Loot (script)

Loot (script)
Category	utility
Front-end	Genie
Author	Isharon

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.

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|bead|beryl|bloodgem|bloodstone|carnelian|chrysoberyl|carnelian|chalcedony
var gems2 chrysoberyl|chrysoprase|citrine|coral|crystal|diamond|diopside|emerald|egg|eggcase|garnet|gem|goldstone|glossy malachite
var gems3 (chunk of|some|piece of).*granite|hematite|iolite|ivory|jade|jasper|kunzite|lapis lazuli|malachite stone|minerals|moonstone|morganite|onyx
var gems4 opal|pearl|pebble|peridot|quartz|ruby|sapphire|spinel|star-stone|sunstone|talon|tanzanite|tooth|topaz|tourmaline|tsavorite|turquoise|zircon
var gweths (lantholite|waermodi|jadeite|lasmodi|sjatmal) stones
var boxtype brass|copper|deobar|driftwood|iron|ironwood|mahogany|oaken|pine|steel|wooden
var boxes coffer|crate|strongbox|caddy|casket|skippet|trunk|chest|\bbox
var junkloot runestone|scroll|tablet|vellum|sheiska leaf|ostracon|hhr'lav'geluhh bark|papyrus roll|smudged parchment|lockpick|fragment|package
var collectibles dira|kirmhiro draught|\bmap\b|package|soulstone|(?<!crossbow) \bbolts?\b|flarmencrank|\bgear\b|glarmencoupler|\bnuts?\b|rackensprocket|spangleflange

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

matchre Coins 1
matchre Gems 2
matchre Boxes 3
matchre Collectibles 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 ^You
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 ^You
put stow %GEM
waitforre ^You
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 ^You
put stow %BOX
waitforre ^You
goto CHECK_BOX

Collectibles:

CHECK_collectible:
if matchre ("$roomobjs", "(%collectibles)") then goto GET_collectible
NO_collectibleS:
goto end

GET_collectible:
var COLLECTIBLE $1
put get %COLLECTIBLE
waitforre ^You
put stow %COLLECTIBLE
waitforre ^You
goto CHECK_collectible

Cards:

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

GET_CARD:
put get card
waitforre ^You
put stow card
waitforre ^You
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 ^You
put stow %HERB
waitforre ^You
goto CHECK_HERB

Junk:

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

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

end:

Quick Version

##LOOT Variables
var gems1 agate|alexandrite|amber|amethyst|andalusite|aquamarine|bead|beryl|bloodgem|bloodstone|carnelian|chrysoberyl|carnelian|chalcedony
var gems2 chrysoberyl|chrysoprase|citrine|coral|crystal|diamond|diopside|emerald|egg|eggcase|garnet|gem|goldstone|glossy malachite
var gems3 (chunk of|some|piece of).*granite|hematite|iolite|ivory|jade|jasper|kunzite|lapis lazuli|malachite stone|minerals|moonstone|morganite|onyx
var gems4 opal|pearl|pebble|peridot|quartz|ruby|sapphire|spinel|star-stone|sunstone|talon|tanzanite|tooth|topaz|tourmaline|tsavorite|turquoise|zircon
var gweths (lantholite|waermodi|jadeite|lasmodi|sjatmal) stones
var boxtype brass|copper|deobar|driftwood|iron|ironwood|mahogany|oaken|pine|steel|wooden
var boxes coffer|crate|strongbox|caddy|casket|skippet|trunk|chest|\bbox
var junkloot runestone|scroll|tablet|vellum|sheiska leaf|ostracon|hhr'lav'geluhh bark|papyrus roll|smudged parchment|lockpick|fragment|package
var collectibles dira|kirmhiro draught|\bmap\b|package|soulstone|(?<!crossbow) \bbolts?\b|flarmencrank|\bgear\b|glarmencoupler|\bnuts?\b|rackensprocket|spangleflange

Coins:

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

GET_COIN:
put get coin
waitforre ^You
goto CHECK_COIN

Gems:

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

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

Collectibles:

CHECK_collectible:
if matchre ("$roomobjs", "(%collectibles)") then goto GET_collectible
NO_collectibleS:
goto end

GET_collectible:
var COLLECTIBLE $1
put get %COLLECTIBLE
waitforre ^You
put stow %COLLECTIBLE
waitforre ^You
goto CHECK_collectible

end: