Loot (script)

I borrowed the loot code from Geniehunter to make a standalone looting script. The first version is a menu-based script. The second version can be run to quickly loot coins, gems, and diras.

Menu Versopm

##LOOT Variables
var gems1 agate|alexandrite|amber|amethyst|andalusite|aquamarine|bar|bead|beryl|bloodgem|bloodstone|carnelian|carnelian|chalcedony
var gems2 chrysoberyl|chrysoprase|citrine|coral|crystal|diamond|diopside|egg|eggcase|emerald|garnet|gem|goldstone
var gems3 (chunk of|some|piece of).*granite|hematite|iolite|ivory|jade|jasper|kunzite|lapis|lazuli|malachite|malachite stone|minerals|moonstone|morganite|nugget|onyx
var gems4 opal|pearl|pebble|peridot|quartz|ruby|sapphire|spinel|star-stone|sunstone|talon|tanzanite|tooth|topaz|tourmaline|tsavorite|turquoise|zircon
var gweths (jadeite|kyanite|lantholite|lasmodi|sjatmal|waermodi) stones
var boxes (brass|copper|deobar|driftwood|iron|ironwood|mahogany|oaken|pine|steel|wooden) box|caddy|casket|chest|coffer|crate|skippet|strongbox|trunk
var dira dira
var card card
var herbs (aevaes|aloe|blocil|cebi|eghmok|genich|georin|hisan|hulij|hulnik|ithor|jadice|junliar|lujeakave|muljin|nemoih|nilos|nuloe|ojhenik|plovik|qun|riolur|sufil|yelith) balm|berries|elixir|flower|grass|leaf|mash|moss|paste|pollen|potion|powder|pulp|root|salve|sap|solution|stem|tea|tincture
var junk fragment|hhr'lav'geluhh bark|lockpick|ostracon|package|papyrus roll|runestone|scroll|sheiska leaf|smudged parchment|tablet|vellum

echo ** Enter Loot Option # ***
echo
echo 1. Coins
echo
echo 2. Gems
echo
echo 3. Boxes
echo
echo 4. Dira
echo
echo 5. Cards
echo
echo 6. Herbs
echo
echo 7. Junk

matchre Coins 1
matchre Gems 2
matchre Boxes 3
matchre Dira 4
matchre Cards 5
matchre Herbs 6
matchre Junk 7
matchwait

Coins:

CHECK_COIN:
if matchre ("$roomobjs", "(coin|coins)") then goto GET_COIN
NO_COINS:
goto end

GET_COIN:
put get coin
waitforre o
goto CHECK_COIN

Gems:

CHECK_GEM:
if (matchre ("$roomobjs", "\b(%gems1|%gems2|%gems3|%gems4|%gweths)\b(,|\.| and)")) then goto GET_GEM
NO_GEMS:
goto end

GET_GEM:
var GEM $1
put get %GEM
waitforre o
put stow %GEM
waitforre o
goto CHECK_GEM

Boxes:

CHECK_BOX:
if matchre ("$roomobjs", "(%boxes)") then goto GET_BOX
NO_BOXES:
goto end

GET_BOX:
var BOX $1
put get %BOX
waitforre o
put stow %BOX
waitforre o
goto CHECK_BOX

Diras:

CHECK_DIRA:
if matchre ("$roomobjs", "(dira|diras)") then goto GET_DIRA
NO_DIRAS:
goto end

GET_DIRA:
put get dira
waitforre o
put stow dira
waitforre o
goto CHECK_DIRA

Cards:

CHECK_CARD:
if matchre ("$roomobjs", "(card|cards)") then goto GET_CARD
NO_CARDS:
goto end

GET_CARD:
put get card
waitforre o
put stow card
waitforre o
goto CHECK_CARD

Herbs:

CHECK_HERB:
if (matchre ("$roomobjs", "\b(%herbs)\b(,|\.| and)")) then goto GET_HERB
NO_HERBS:
goto end

GET_HERB:
var HERB $1
put get %HERB
waitforre o
put stow %HERB
waitforre o
goto CHECK_HERB

Junk:

CHECK_JUNK:
if (matchre ("$roomobjs", "\b(%junk)\b(,|\.| and)")) then goto GET_JUNK
NO_JUNKS:
goto end

GET_JUNK:
var JUNK $1
put get %JUNK
waitforre o
put stow %JUNK
waitforre o
goto CHECK_JUNK

end:

Quick Version

##LOOT Variables
var gems1 agate|alexandrite|amber|amethyst|andalusite|aquamarine|bar|bead|beryl|bloodgem|bloodstone|carnelian|carnelian|chalcedony
var gems2 chrysoberyl|chrysoprase|citrine|coral|crystal|diamond|diopside|egg|eggcase|emerald|garnet|gem|goldstone
var gems3 (chunk of|some|piece of).*granite|hematite|iolite|ivory|jade|jasper|kunzite|lapis|lazuli|malachite|malachite stone|minerals|moonstone|morganite|nugget|onyx
var gems4 opal|pearl|pebble|peridot|quartz|ruby|sapphire|spinel|star-stone|sunstone|talon|tanzanite|tooth|topaz|tourmaline|tsavorite|turquoise|zircon
var gweths (jadeite|kyanite|lantholite|lasmodi|sjatmal|waermodi) stones
var dira dira

Coins:

CHECK_COIN:
if matchre ("$roomobjs", "(coin|coins)") then goto GET_COIN
NO_COINS:
goto Gems

GET_COIN:
put get coin
waitforre o
goto CHECK_COIN

Gems:

CHECK_GEM:
if (matchre ("$roomobjs", "\b(%gems1|%gems2|%gems3|%gems4|%gweths)\b(,|\.| and)")) then goto GET_GEM
NO_GEMS:
goto Diras

GET_GEM:
var GEM $1
put get %GEM
waitforre o
put stow %GEM
waitforre o
goto CHECK_GEM

Diras:

CHECK_DIRA:
if matchre ("$roomobjs", "(dira|diras)") then goto GET_DIRA
NO_DIRAS:
goto end

GET_DIRA:
put get dira
waitforre o
put stow dira
waitforre o
goto CHECK_DIRA

end: