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, treasure maps, and diras.

This script was written for Genie3.

Menu Options

1. Coins
2. Gems (includes treasure maps just because I never want to miss them)
3. Boxes
4. Dira
5. Cards
6. Herbs
7. Junk

Menu 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|\bmap\b|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|\bmap\b|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: