User:DekeFantle: Difference between revisions

From Elanthipedia
Jump to navigation Jump to search
No edit summary
(Replaced content with 'I am the Fentle, unless you played Space Merchant you have no idea what that means. *chuckle* Just writing something to "get the red out". Any old HOA members out there?, l...')
 
Line 4: Line 4:


Any old HOA members out there?, look for a dwarf that has the glint of laser cannons (maybe lightning bolts) in his eyes and give him the high sign.
Any old HOA members out there?, look for a dwarf that has the glint of laser cannons (maybe lightning bolts) in his eyes and give him the high sign.

<pre>
DEBUG OFF
put avoid !drag
pause
put avoid !join
Delay .5
put awaken
GoTo SET-VARS

SUB_RETURN:
return

# save as CT
# Usage example ".ct bank"

# Reset variables for various hunting scripts
# Do this here so that spell casting order remains the same when those scripts are
# stopped and started on the fly.

#*********************************
#*********************************
#"Other" script var section

SET-VARS:
SetVariable CAMBCNT 0
SetVariable ESCNT 0
SetVariable ALTHARNCNT 0
SetVariable NEXTSPELL EAS
SetVariable SLEEPING FALSE
SetVariable BUFF-TW FALSE
SetVariable BUFF-SW FALSE
SetVariable BUFF-SUF FALSE
SetVariable BUFF-YS FALSE
SetVariable BUFF-ES FALSE
SetVariable BUFF-MOF FALSE
SetVariable BUFF-EAS FALSE
SetVariable BUFF-EASEBURDEN FALSE
SetVariable BUFF-FISS FALSE
SetVariable HUMMING FALSE

If %monstercount > 1 then GoTo Start
GoSub SUB_EMPTYHANDS
GoTo START

#*********************************
#*********************************

START:
If %roomtitle contains "Rossman's Landing, Carousel Chamber" then GoTo ROSSVAULT
If %roomtitle contains "Mistwood Forest, Outside a Ruined Village" then GoTo RUINEDVILLAGE
If %roomdesc contains "The Guildmistress lounges in a plush, blood-red leather chair" then GoTo RIVWMGUILD
#If %roomtitle contains "Rossman's Landing, Carousel" && %roomdesc contains "Thick brick walls give way to a whitewashed plaster foyer" then GoTo ROSSVAULT
If %roomtitle contains "Traders' Guild Outpost, Depository" then GoTo ROSSBANK
If %roomdesc contains "Too narrow for a wagon or cart, the gate allows drovers" then GoTo ROSSPECCS
If %roomtitle contains "Drinak's Tannery" then GoTo ROSSTANNER
If %roomtitle contains "Rossman's Landing, Southeast Gate" then GoTo ROSSSEGATE
If %roomobjects contains "slippery dockside ladder" then GoTo RDOCKLADDER
If %roomtitle contains "Northern Trade Road, Wooded Valley" then GoTo NTR-BLEUCROS-TRAIL-HEAD
If %roomdesc contains "thatched roof at the eastern end of the courtyard" then GoTo ROSSCOURTYARD
If %roomtitle contains "Resurrection Creche, Triage Hall" then GoTo TEMPLETRIAGE
If %roomtitle contains "North Gate, Gate" then GoTo CROSSNGATE
If %roomtitle contains "Gorbesh Fortress, Practice Yard" then GoTo GFORT
If %roomtitle contains "Temple Grounds, Entry Gates" then GoTo CTEMPLE
If %roomtitle contains "Riverhaven Exterior, Southwest Gate" then GoTo RIVWGATE
If %roomtitle contains "Empaths' Guild, Main Room" then GoTo EMPATH
If %roomtitle contains "Ragge's Locksmithing, Salesroom" then GoTo CLSMITH
If %roomdesc contains "Tangled brown undergrowth as thick as a Dwarven beard lines this region" then GoTo FORESTGENI
If %roomdesc contains "a rutted cliff" then GoTo OGRES
If %roomtitle contains "Shard, South Square" then GoTo SHARDSBRIDGE
If %roomtitle contains "Northeast Wilds, Outside Northeast Gate" then GoTo NEGATE
If %roomdesc contains "A set of gleaming ebonwood doors inlaid with gold lead into the tower" then GoTo WMGUILD
If %roomtitle contains "Falken's Tannery, Workshop" then GoTo TANNER
If %roomtitle contains "Tremagis's Furs, Furmongering" then GoTo STANNER
If %roomtitle contains "Crossing, Carousel Chamber" then GoTo VAULT
If %roomtitle contains "First Provincial Bank, Lobby" then GoTo BANK
If %roomtitle contains "The Crossing, Mongers' Square" then GoTo BAZAAR
If %roomtitle contains "Western Gate Tier, Guard House" then GoTo GHOUSE
If %roomtitle contains "Cormyn's House of Heirlooms" then GoTo PAWN
If %roomtitle contains "Clerics' Guild, Gathering Hall" then GoTo CGUILD
If %roomtitle contains "Stormwill Tower, Cloudwalk South" then GoTo WMTOWER
If %roomtitle contains "Survivalist Supplies, Back Room" then GoTo SURVIVALSHOP
If %roomtitle contains "Shard, First Bank of Ilithi" then GoTo SBANK
If %roomobjects contains "dead tree with a darkened hollow near its base" then GoTo HOLLOW
If %roomtitle contains "Dragon's Spine, Behind the Waterfall" then GoTo WATERFALL
If %roomdesc contains "tangled mass, making travel confusing at best" then GoTo BLEUCROS
If %roomtitle contains "Shard, Carousel Chamber" then GoTo SVAULT
If %roomtitle contains "Quentin's Healerium" then GoTo QUENTIN
If %roomtitle contains "Lady Atladene's Garden, Healer's Glade" then GoTo SEMPATH
If %roomtitle contains "Meiria's Gems and Jewelry, Fatimi the Dealer's Backroom" then GoTo SGEMSHOP
If %roomtitle contains "Bank of Riverhaven, Main Lobby" then GoTo RIVBANK
If %roomtitle contains "Steelclaw Clan, Great Hall" then GoTo SBGUILD
Match RBGUILD Barbarian Guildleader Mo
If %roomtitle contains "Anthelorm's Gems and Curios, Purchasing Office" then GoTo RIVGEMSHOP
If %roomtitle contains "Zaulfung, Chickee" then GoTo ZSWAMP
If %roomdesc contains "barricade that blocks passage northwest" then GoTo NTRROCKTROLLS
If %roomtitle contains "Grisgonda's, Appraisal Room" then GoTo CGEMSHOP
If %roomtitle contains "The Western Road, Vista" then GoTo GRYPHONS
If %roomtitle contains "Zaldi Taipa, Kurtz's Gems" then GoTo HORSECLANGEMSHOP
If %roomdesc contains "steep trail over sharp angular rocks" then GoTo CANYON
If %roomtitle contains "Aelik's Pawn" then GoTo SPAWN
If %roomtitle contains "Lower Bank of Ratha, Atrium" then GoTo RABANK
If %roomtitle contains "Warrior Mage Guild, Salle" then GoTo RAWMGUILD
If %roomtitle contains "Onsuwayo's Clinic, Treatment Room One" then GoTo RAEMPATH
If %roomtitle contains "Mother Magpie's Gems and Metals" then GoTo RAGEMSHOP
If %roomtitle contains "Ratha, Carousel Chamber" then GoTo RAVAULT
If %roomdesc contains "Before you stands the Observatory of the Southern Crossbow" then GoTo CMMGUILD
Matchre REMPATH /the other the Guild hospital|Riverhaven Hospital, Tending Chamber/i
Matchre CPBANK /Center, Foreign Exchange|Center, Bank Teller/i
Matchre BADLOCATION /Obvious (paths|exits)/i
put look
MatchWait

STARTERROR:
ECHO *** major error ***
Exit

BADLOCATION:
ECHO *** I cannot determine your current location.
ECHO *** Try starting from the bank!
Exit

RUINEDVILLAGE
#********************************
#>>> Ruined Village Gate Begin <<<

RUINEDVILLAGE:
SetVariable ERRORRETURN ERRORRUINEDVILLAGE
SetVariable CITY ROSSMANS
If %1 contains "bank" || %1 contains "courtyard" || %1 contains "citygate" then GoTo RUINEDVILLAGE-ALL
ECHO ~~ You standing outside the gate to the ruined village and manor house in the Mistwood Forest...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap34
ECHO
ECHO ~~ COURTYARD
ECHO ~~ BANK
ECHO ~~ CITYGATE
ECHO
ECHO ***Try again***
Exit

RUINEDVILLAGE-ALL:
move go thicket
move e
move s
move n
move go forest
move sw
move nw
move w
move nw
move w
If %1 contains "citygate" then GoTo RUINEDVILLAGE-CITYGATE
If %1 contains "bank" || %1 contains "courtyard" then GoTo ROSSSEGATE-COURTYARD

#>>> Ruined Village Gate END <<<
#********************************


#********************************
#>>> Riverhaven War Mage Guild Begin <<<

RIVWMGUILD:
SetVariable ERRORRETURN ERRORRIVWMGUILD
SetVariable CITY RIVERHAVEN
If %1 contains "bank" then GoTo RIVWMGUILD-BANK
ECHO ~~ You standing in the War Mage Guild in Riverhaven from here you can go to...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap30
ECHO
ECHO ~~ BANK
ECHO ~~ CRATE
ECHO
ECHO ***Try again***
Exit

RIVWMGUILD:
move out
move go gate
move nw
move s
move s
If %1 contains "bank" then GoTo RIVWMGUILD-BANK-FINISH
ECHO *** Arrived outside the hospital in Riverhaven "the crate" ***
Exit

#>>> Riverhaven War Mage Guild END <<<
#********************************

#********************************
#>>> Southeast Gate of Rossman's Landing Begin <<<

ROSSSEGATE:
SetVariable ERRORRETURN ERRORROSSSEGATE
SetVariable CITY ROSSMANS
If %1 contains "courtyard" || %1 contains "peccs" || %1 contains "vault" || %1 contains "bank" then GoTo ROSSSEGATE-COURTYARD
If %1 contains "orcs" then GoTo ROSSSEGATE-ORCS
ECHO ~~ You are outside the Southeast Gate of Rossman's Landing...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap34
ECHO
ECHO ~~ COURTYARD
ECHO ~~ BANK
ECHO ~~ PECCS
ECHO ~~ VAULT
ECHO ~~ ORCS
ECHO
ECHO ***Try again***
Exit

ROSSSEGATE-ORCS:
move e
move se
move e
move se
move ne
move go thicket
move e
move ne
move nw
move n
ECHO *** You have arrived near the Manor, Orcs and Warcats.
ECHO *** Go thicket to enter the hunting grounds, bigger Orcs in the manor.
Exit

ROSSSEGATE-COURTYARD:
move go gate
move go arch
ROSSTANNER-ALL-CONTINUE:
move n
move n
move n
move w
move w
move w
ROSSPECCS-ALL-CONTINUE:
If %1 contains "peccs" then GoTo ROSSTANNER-PECCS-FINISH
move s
move s
If %1 contains "bank" || %1 contains "vault" then GoTo ROSSTANNER-BANK-VAULT-CONTINUE
ROSSBANK-COURTYARD:
move w
move go draw
move go gate
move w
If %2 = "HUNTPECCS" then put .oragamionly HUNTPECCS
ECHO *** Arrived in the Courtyard of Rossman's Keep "the Barrel" ***
Exit

#>>> Southeast Gate of Rossman's Landing END <<<
#********************************

#********************************
#>>> Riverhaven Dock Ladder Begin <<<

RDOCKLADDER:
SetVariable ERRORRETURN ERRORRDOCKLADDER
SetVariable CITY RIVERHAVEN
GoTo RDOCKLADDER-ALL

RDOCKLADDER-ALL:
If %1 contains "bank" then GoTo RDOCKLADDER-BANK
If %1 contains "crate" then GoTo RDOCKLADDER-CRATE
ECHO ~~ You are at the dock side ladder in Riverhaven ...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap30
ECHO
ECHO ~~ BANK
ECHO ~~ CRATE
ECHO
ECHO ***Try again***
Exit

#>>> Riverhaven Dock Ladder END <<<
#********************************

#********************************
#>>> Rossman's Keep Courtyard Begin <<<

ROSSCOURTYARD:
SetVariable ERRORRETURN ERRORROSSCOURTYARD
SetVariable CITY ROSSMANS
If %1 contains "bank" || %1 contains "orcs" || %1 contains "peccs" || %1 contains "citygate" || %1 contains "tanner" || %1 contains "vault" then GoTo ROSSCOURTYARD-ALL
ERRORROSSCOURTYARD:
ECHO ~~ You are standing in the courtyard of Rossman's Keep ...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap34b
ECHO
ECHO ~~ BANK
ECHO ~~ PECCS
ECHO ~~ CITYGATE
ECHO ~~ TANNER
ECHO ~~ VAULT
ECHO ~~ ORCS
ECHO
ECHO ***Try again***
Exit

ROSSCOURTYARD-ALL:
move e
move go gate
move go draw
move e
If %1 contains "peccs" || %1 contains "orcs" || %1 contains "citygate" || %1 contains "tanner" then GoTo ROSSCOURTYARD-PECCS
ROSSTANNER-BANK-VAULT-CONTINUE:
move s
move s
move sw
move sw
move sw
move sw
If %1 contains "vault" then GoTo ROSSCOURTYARD-VAULT
ROSSVAULT-BANK:
move climb ladder
move go build
move go vault
GoTo INITBANKROSSMANS

ROSSCOURTYARD-VAULT:
ROSSBANK-VAULT:
move go build
GoTo ENTERVAULT

ROSSCOURTYARD-PECCS:
ROSSBANK-CITYGATE-PECCS-TANNER:
move n
move n
ROSSPECCS-OTHER-CONTINUE:
ROSSBANK-CITYGATE:
If %1 contains "citygate" || %1 contains "orcs" || %1 contains "tanner" then GoTo ROSSCOURTYARD-CITYGATE
ROSSTANNER-PECCS-FINISH:
move w
If %2 = "HUNTPECCS" then put move go gate
If %2 = "HUNTPECCS" then put .5 HUNTPECCS
ECHO *** Go gate to enter hunting area for Bristleback Peccaries ***
Exit

ROSSCOURTYARD-CITYGATE:
move e
move e
move e
move s
move s
move s
If %1 contains "tanner" then GoTo ROSSCOURTYARD-TANNER
ROSSTANNER-CITYGATE:
move go arch
move go gate
If %1 contains "orcs" then GoTo ROSSSEGATE-ORCS
RUINEDVILLAGE-CITYGATE:
ECHO *** Arrived outside the Gate to Rossman's Landing ***
Exit

ROSSCOURTYARD-TANNER:
move s
move s
move go shop
pause
put remove bundle
pause
put sell bundle
If %2 = "HUNTPECCS" then put .ct bank HUNTPECCS
ECHO *** Arrived tanner's shop and sold one bundle in Rossman's Landing ***
Exit

#>>> Rossman's Keep Courtyard END <<<
#********************************

#********************************
#>>> Rossman's Landing Bank Begin <<<

ROSSBANK:
SetVariable ERRORRETURN ERRORROSSROSSBANK
SetVariable CITY ROSSMANS
If %1 contains "courtyard" || %1 contains "citygate" || %1 contains "peccs" || %1 contains "tanner" || %1 contains "vault" then GoTo ROSSBANK-ALL
ERRORROSSBANK:
ECHO ~~ You are standing in the Bank at Rossman's Landing ...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap34a
ECHO
ECHO ~~ COURTYARD
ECHO ~~ PECCS
ECHO ~~ CITYGATE
ECHO ~~ TANNER
ECHO ~~ VAULT
ECHO
ECHO ***Try again***
Exit

ROSSBANK-ALL:
move out
move out
move climb ladder
If %1 contains "vault" then GoTo ROSSBANK-VAULT
ROSSVAULT-ALL-CONTINUE:
move ne
move ne
move ne
move ne
move n
move n
If %1 contains "courtyard" then GoTo ROSSBANK-COURTYARD
If %1 contains "citygate" || %1 contains "peccs" || %1 contains "tanner" then GoTo ROSSBANK-CITYGATE-PECCS-TANNER
ECHO ~~ Error ROSSBANK-ALL:
Exit

#>>> Rossman's Landing Bank END <<<
#********************************

#********************************
#>>> Rossman's Landing Vault Begin <<<

ROSSVAULT:
SetVariable ERRORRETURN ERRORROSSROSSVAULT
SetVariable CITY ROSSMANS
If %1 contains "courtyard" || %1 contains "citygate" || %1 contains "peccs" || %1 contains "tanner" || %1 contains "bank" then GoTo ROSSVAULT-ALL
ERRORROSSVAULT:
ECHO ~~ You are standing in the Bank at Rossman's Landing ...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap34a
ECHO
ECHO ~~ COURTYARD
ECHO ~~ PECCS
ECHO ~~ CITYGATE
ECHO ~~ TANNER
ECHO ~~ BANK
ECHO
ECHO ***Try again***
Exit

ROSSVAULT-ALL:
put close vault
WaitFor You close the vault
move go door
move go arch
move out
If %1 contains "bank" then GoTo ROSSVAULT-BANK
If %1 contains "courtyard" || %1 contains "citygate" || %1 contains "peccs" || %1 contains "tanner" then GoTo ROSSVAULT-ALL-CONTINUE
ECHO ~~ Error ROSSVAULT-ALL:
Exit
#>>> Rossman's Landing Vault END <<<
#********************************

#********************************
#>>> Outside of Pecc's in Rossman's Landing Begin <<<

ROSSPECCS:
SetVariable ERRORRETURN ERRORROSSPECCS
SetVariable CITY ROSSMANS
If %1 contains "courtyard" || %1 contains "bank" || %1 contains "vault" || %1 contains "citygate" || %1 contains "tanner" then GoTo ROSSPECCS-ALL
ECHO ~~ You are outside the Southeast Gate of Rossman's Landing...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap34
ECHO
ECHO ~~ COURTYARD
ECHO ~~ BAMK
ECHO ~~ CITYGATE
ECHO ~~ VAULT
ECHO ~~ TANNER
ECHO
ECHO ***Try again***
Exit

ROSSPECCS-ALL:
move e
If %1 contains "courtyard" || %1 contains "bank" || %1 contains "vault" then GoTo ROSSPECCS-ALL-CONTINUE
If %1 contains "tanner" || %1 contains "citygate" then GoTo ROSSPECCS-OTHER-CONTINUE
ECHO Error in ROSSPECCS-ALL:
Exit

#>>> Outside of Pecc's in Rossman's Landing END <<<
#********************************

#********************************
#>>> Rossman's Landing Tanner Begin <<<

ROSSTANNER:
SetVariable ERRORRETURN ERRORROSSROSSTANNER
SetVariable CITY ROSSMANS
If %1 contains "courtyard" || %1 contains "citygate" || %1 contains "peccs" || %1 contains "bank" || %1 contains "vault" then GoTo ROSSTANNER-ALL
ERRORROSSTANNER:
ECHO ~~ You are standing in the Tanner at Rossman's Landing ...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap34a
ECHO
ECHO ~~ COURTYARD
ECHO ~~ PECCS
ECHO ~~ CITYGATE
ECHO ~~ BANK
ECHO ~~ VAULT
ECHO
ECHO ***Try again***
Exit

ROSSTANNER-ALL:
move out
move n
move n
If %1 contains "citygate" then GoTo ROSSTANNER-CITYGATE
GoTo ROSSTANNER-ALL-CONTINUE

#>>> Rossman's Landing Tanner END <<<
#********************************

#********************************
#>>> Crossing Templ Triage Hall Begin <<<

TEMPLETRIAGE:
SetVariable ERRORRETURN ERRORTEMPLETRIAGE
SetVariable CITY CROSSING
If_1 GoTo TEMPLETRIAGE-ALL
ERRORTEMPLETRIAGE:
ECHO ~~ You are standing inside the Triage Hall of the Crossing Temple ...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap2
ECHO
ECHO ~~ BANK
ECHO ~~ EMPATH
ECHO ~~ NEGATE
ECHO ~~ WGATE
ECHO ~~ CGUILD
ECHO ~~ WMGUILD
ECHO
ECHO ***Try again***
Exit

TEMPLETRIAGE-ALL:
move go clock
move go clock
move go clock
move go door
move s
GoTo TEMPLETRIAGE-ALL-FINISH

#>>> Crossing Templ Triage Hall END <<<
#********************************

#********************************
#>>> Crossing North Gate Begin <<<

CROSSNGATE:
SetVariable ERRORRETURN ERRORCROSSNGATE
SetVariable CITY CROSSING
If_2 GoTo CROSSNGATE-DRAG
If_1 GoTo CROSSNGATE-ALL-%1
ERRORCROSSNGATE:
ECHO ~~ You are standing inside the North Gate of the Crossing ...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap2
ECHO
ECHO ~~ BANK
ECHO ~~ WMGUILD
ECHO ~~ CGUILD (Drag only)
ECHO ~~ TEMPLE (Drag only)
ECHO
ECHO ***Try again***
Exit

CROSSNGATE-DRAG:
If %1 contains "cguild" then GoTo CROSSNGATE-DRAG-CGUILD
If %1 contains "temple" then GoTo CROSSNGATE-DRAG-TEMPLE

CROSSNGATE-DRAG-CGUILD:
put drag %2 e
nextroom
put drag %2 s
nextroom
put drag %2 s
nextroom
put drag %2 w
nextroom
GoTo CROSSNGATE-DRAG-CGUILD-FINISH

CROSSNGATE-DRAG-TEMPLE:
put drag %2 e
nextroom
put drag %2 s
nextroom
put drag %2 s
nextroom
put drag %2 w
nextroom
put drag %2 s
nextroom
put drag %2 e
nextroom
put drag %2 e
nextroom
put drag %2 s
nextroom
put drag %2 s
nextroom
put drag %2 s
nextroom
put drag %2 s
nextroom
put drag %2 s
nextroom
put drag %2 s
nextroom
put drag %2 sw
nextroom
put drag %2 sw
nextroom
put drag %2 gate
nextroom
put drag %2 n
nextroom
put drag %2 door
nextroom
put drag %2 wid
nextroom
put drag %2 wid
nextroom
put drag %2 wid
nextroom
ECHO *** You have arrived dragging %2 to the triage center in the Temple...
Exit

CROSSNGATE-ALL-BANK:
move e
move s
move s
move w
move w
If %1 contains "bank" then GoTo CROSSNGATE-BANK-FINISH

CROSSNGATE-ALL-WMGUILD:
move e
move e
move e
move e
move s
move e
move e
move e
move e
move go gate
GoTo NEGATE-WMGUILD

#>>> Crossing North Gate END <<<
#********************************

#********************************
#>>> Shard Gorbesh Fort Begin <<<

GFORT:
SetVariable ERRORRETURN ERRORGFORT
SetVariable CITY SHARD
If_1 GoTo GFORT-ALL-%1
ERRORGFORT:
ECHO ~~ You are standing insude the entry gates of the Temple in the Crossing ...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap2
ECHO
ECHO ~~ BANK
ECHO ~~ WMTOWER
ECHO ~~ VAULT
ECHO
ECHO ***Try again***
Exit

GFORT-ALL-BANK:
GFORT-ALL-WMTOWER:
GFORT-ALL-VAULT:
move go gate
move nw
move w
move go road
move n
move n
move go gate
move n
move n
move n
move n
move go square
If %1 = "VAULT" || %1 = "vault" then GoTo GFORT-VAULT-CONTINUE
move w
move w
move nw
move nw
move nw
move n
If %1 = "WMTOWER" || %1 = "wmtower" then GoTo GFORT-WMTOWER-CONTINUE
move e
move e
move e
move e
GoTo INITALLBANKS

GFORT-VAULT-CONTINUE:
move e
move e
move ne
move ne
move ne
move n
move w
move w
move w
move w
move go door
SetVariable VAULTLOCATION SHARD
GoTo GOARCH

#>>> Shard Gorbesh Fort END <<<
#********************************

#********************************
#>>> Crossing Temple Enterance Begin <<<

CTEMPLE:
SetVariable ERRORRETURN ERRORCTEMPLE
SetVariable CITY CROSSING
If_1 GoTo CTEMPLE-%1
ERRORCTEMPLE:
ECHO ~~ You are standing insude the entry gates of the Temple in the Crossing ...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap2
ECHO
ECHO ~~ BANK
ECHO ~~ EMPATH
ECHO ~~ NEGATE
ECHO ~~ WGATE
ECHO ~~ CGUILD
ECHO ~~ WMGUILD
ECHO ~~ TRIAGE
ECHO
ECHO ***Try again***
Exit

CTEMPLE-TRIAGE:
move n
move go door
move go wid
move go wid
move go wid
ECHO *** You have arrived in the Triage Hall of the Crossing Temple...
Exit

CTEMPLE-BANK:
CTEMPLE-EMPATH:
CTEMPLE-NEGATE:
CTEMPLE-WMGUILD:
CTEMPLE-CGUILD:
CTEMPLE-WGATE:
CTEMPLE-NGATE:
TEMPLETRIAGE-ALL-FINISH:
move go gate
move ne
If %1 = "BANK" || %1 = "bank" then GoTo INITALLBANKS
move nw
move n
move n
move n
move n
move n
move n
If %1 contains "empath" || %1 contains "negate" || %1 contains "wmguild" then GoTo TEMPLE-NEGATE-BRANCH
move w
move w
If %1 contains "cguild" then GoTo TEMPLE-CGUILD-FINISH
If %1 contains "ngate" then GoTo TEMPLE-NGATE-FINISH
move w
move w
move go bridge
move w
move w
move w
move w
ECHO ~~ You have arrived at the West Gate of the Crossing (inside).
Exit

TEMPLE-NEGATE-BRANCH:
move e
move e
move n
If %1 = "EMPATH" || %1 = "empath" then GoTo CTEMPLE-EMPATH-FINISH
move e
move n
move n
move e
move e
move e
move go gate
If %1 = "NEGATE" || %1 = "negate" then GoTo CTEMPLE-NEGATE-FINISH
GoTo NEGATE-WMGUILD

TEMPLE-NGATE-FINISH:
move n
BANK-NGATE-FINISH:
move e
move e
move n
move n
move w
ECHO *** Arrive Crossing North Gate (inside) go arch at your own peril...
Exit

CTEMPLE-EMPATH-FINISH:
move go door
ECHO ~~ You have arrived at the Empaths guild in the Crossing.
Exit

CTEMPLE-NEGATE-FINISH:
ECHO ~~ You have arrived at NE Gate of the Crossing (outside).
Exit

#>>> Crossing Temple Enterance Gate END <<<
#********************************

#********************************
#>>> Riverhaven West Gate Begin <<<

RIVWGATE:
SetVariable ERRORRETURN ERRORRIVWGATE
SetVariable CITY RIVERHAVEN
If_1 GoTo RIVWGATE-%1
ERRORRIVWGATE:
ECHO ~~ You are standing outside the West gate of the city of Riverhaven ...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap30
ECHO
ECHO ~~ BANK
ECHO ~~ CRATE
ECHO
ECHO ***Try again***
Exit

RIVWGATE-BANK:
move go gate
move e
move e
RDOCKLADDER-BANK:
RDOCKLADDER-CRATE:
move e
move e
move e
move e
move e
move n
move n
move n
If %1 contains "crate" then GoTo RIVWGATE-CRATE
GoTo INITALLBANKS

RIVWGATE-CRATE:
move n
move n
move n
move n
ECHO ~~ You have arrived at the "crate" in Riverhaven...
Exit

#>>> Riverhaven West Gate END <<<
#********************************

#********************************
#>>> Crossing Lock Smith Begin <<<

CLSMITH:
SetVariable ERRORRETURN ERRORCLSMITH
SetVariable CITY CROSSING
If_1 GoTo CLSMITH-%1
ERRORCLSMITH:
ECHO ~~ You are standing at the lock smith shop in the Crossing ...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap1
ECHO
ECHO ~~ WMGUILD
ECHO ~~ BANK
ECHO
ECHO ***Try again***
Exit

CLSMITH-WMGUILD:
SetVariable TRAV-BRANCH CLSMITH-BANK-%1
GoTo CLSMITH-HEAD-OUT

CLSMITH-BANK:
SetVariable TRAV-BRANCH CLSMITH-BANK-%1
CLSMITH-HEAD-OUT:
move out
move s
move s
move e
move e
move e
move e
move e
GoTo %TRAV-BRANCH

#>>> Crossing Lock Smith END <<<
#********************************

#********************************
#>>> Crossing Moon Mage Guild Begin <<<

CMMGUILD:
SetVariable ERRORRETURN ERRORCMMGUILD
SetVariable CITY CROSSING
If_1 GoTo CMMGUILD-%1
ERRORCMMGUILD:
ECHO ~~ You are standing at the enterance to the Crossing MM Guild ...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap8
ECHO
ECHO ~~ WMGUILD
ECHO
ECHO ***Try again***
Exit

CMMGUILD-WMGUILD:
move ne
move n
move n
move w
move sw
move sw
move w
move w
move w
move n
move nw
move nw
move w
move go sedge
move w
move nw
move n
move n
move u
move n
move n
GoTo NEGATE-WMGUILD

#>>> Crossing Moon Mage Guild END <<<
#********************************

#********************************
#>>> OGRES to WMGUILD Begin <<<

OGRES:
SetVariable ERRORRETURN ERROROGRES
SetVariable CITY CROSSING
If_1 GoTo OGRES-%1
ERROROGRES:
ECHO ~~ You are standing at the enterance to the Rocky Out Crop ...
ECHO ~~ http://www.elanthipedia.com/wiki/RanikMap5
ECHO
ECHO ~~ WMGUILD
ECHO ~~ BANK
ECHO ~~ VAULT
ECHO
ECHO ***Try again***
Exit

OGRES-WMGUILD:
SetVariable TRAV-CONTINUE OGRES-WMGUILD-CONTINUE
GoTo OGRES-ALL

OGRES-BANK:
SetVariable TRAV-CONTINUE OGRES-BANK-CONTINUE
GoTo OGRES-ALL

OGRES-VAULT:
SetVariable TRAV-CONTINUE OGRES-VAULT-CONTINUE
GoTo OGRES-ALL

OGRES-ALL:
move climb cliff
move climb trail
move e
move e
move e
move e
move ne
move e
move go brook
GoSub SUB_WADE-EAST
GoSub SUB_WADE-EAST
put prep c a b
pause
put gest fimath
pause
move e
move e
move se
move e
move e
move se
move se
move e
move e
move ne
move e
move e
move se
move e
move e
move se
move e
move e
move go path
Move go gate
GoTo %TRAV-CONTINUE

SUB_WADE-EASTW:
Pause
SUB_WADE-EAST:
Matchre SUB_RETURN /Obvious (paths|exits)/i
Matchre SUB_WADE-EASTW /Sorry,|\.\.\.wait/i
put e
MatchWait 5
ECHO Failed Match SUB_WADE-EAST:
Exit

#>>> OGRES to WMGUILD END <<<
#********************************

#********************************
#>>> Vault, Ratha Begin <<<

RAVAULT:
SetVariable ERRORRETURN ERRORRAVAULT
SetVariable CITY RATHA
If_1 GoTo RAVAULT-ALL
ERRORRAVAULT:
ECHO ~~ You are standing local gem shop city of Ratha, from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO
ECHO ***Try again***
Exit

RAVAULT-ALL:
put close vault
WaitFor You close the vault
move go door
move go arch
move out
move out
GoTo RAVAULT-%1

RAVAULT-BANK:
move se
move e
move n
move n
move n
GoTo RABANK-ENTER

#>>> Vault, Ratha END <<<
#********************************

#********************************
#>>> Gem Shop, Ratha Begin <<<

RAGEMSHOP:
SetVariable ERRORRETURN ERRORRAGEMSHOP
SetVariable CITY RATHA
If_1 GoTo RAGEMSHOP-ALL
ERRORRAGEMSHOP:
ECHO ~~ You are standing local gem shop city of Ratha, from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO
ECHO ***Try again***
Exit

RAGEMSHOP-ALL:
move out
GoTo RAGEMSHOP-BANK:

RAGEMSHOP-BANK:
move s
move se
move s
move s
move ne
move e
move e
move e
move ne
move e
move se
move e
move n
move n
move n
GoTo RABANK-ENTER

#>>> Gem Shop, Ratha END <<<
#********************************

#********************************
#>>> Empath, Ratha Begin <<<

RAEMPATH:
SetVariable ERRORRETURN ERRORRAEMPATH
SetVariable CITY RATHA
If_1 GoTo RAEMPATH-ALL
ERRORRAEMPATH:
ECHO ~~ You are standing in the Clinic in the city of Ratha, from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO
ECHO ***Try again***
Exit

RAEMPATH-ALL:
Pause
put stand
Pause
move go dispensary
move w
move out
GoTo RAEMPATH-BANK

RAEMPATH-BANK:
move w
move sw
move sw
move s
move sw
move s
move e
move se
move ne
move e
move e
move e
move se
move e
move e
move e
move e
move se
move s
move se
move se
GoTo RABANK-ENTER

#>>> Empath, Ratha END <<<
#********************************

#********************************
#>>> WarMage Guild, Ratha Begin <<<

RAWMGUILD:
SetVariable ERRORRETURN ERRORRAWMGUILD
SetVariable CITY RATHA
If_1 GoTo RARAWMGUILD-ALL
ERRORRAWMGUILD:
ECHO ~~ You are standing in the WarMage Guild city of Ratha, from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO
ECHO ***Try again***
Exit

RARAWMGUILD-ALL:
move out
move go gate
GoTo RAWMGUILD-%1

RAWMGUILD-BANK:
move sw
move w
move s
move se
move se
move se
move e
move e
move ne
move go grat
move go nar crev
move e
move se
move down
move s
move down
move e
move se
move ne
move go nar pass
move go grat
move e
move ne
move se
move s
move se
move se
GoTo RABANK-ENTER
#>>> WarMage Guild, Ratha END <<<
#********************************

#********************************
#>>> Bank, Ratha Begin <<<

RABANK-ENTER:
move ne
move climb stair
move go door
GoTo INITBANKRATHA

RABANK:
SetVariable ERRORRETURN ERRORRABANK
SetVariable CITY RATHA
If_1 GoTo RABANK-ALL
ERRORRABANK:
ECHO ~~ You are standing in the Bank in the city of Ratha, from here you can go to ...
ECHO
ECHO ~~ WMGUILD
ECHO ~~ EMPATH
ECHO ~~ VAULT
ECHO ~~ GEMSHOP
ECHO ~~ PAYDEBT
ECHO ~~ POKEBEACH
ECHO
ECHO ***Try again***
Exit

RABANK-ALL:
move go door
move climb stair
move sw
GoTo RABANK-%1

RABANK-POKEBEACH:
move nw
move nw
move n
move nw
move sw
move w
move go grat
move go pass
move w
move nw
move sw
move u
move nw
move sw
move sw
move nw
move u
move w
move nw
move n
move n
move climb ladder
move n
move go grat
move n
move n
move n
move n
move n
move e
move e
move go gate
move n
move ne
move ne
move ne
move e
move e
move e
move ne
move ne
move n
move ne
move ne
move nw
move w
move nw
move n
move ne
move e
move e
move e
move e
move ne
move n
move n
move ne
move n
move ne
move e
move ne
move ne
move n
move ne
move n
move n
move n
move n
move ne
move n
move n
move ne
move ne
move ne
move ne
move e
move e
move ne
move ne
move ne
move e
move ne
move e
move e
Exit

RABANK-PAYDEBT:
move ne
move climb stair
move go door
move go cash
Pause
put withd 30 silver
WaitFor The clerk counts out 30 silver Lirums and hands them over
move go atrium
move go door
move climb stair
move sw
move nw
move nw
move n
move nw
move sw
move w
move go grat
move go pass
move w
move nw
move sw
move u
move n
move u
move nw
move w
move go nar crev
move go grat
move sw
move se
move s
move sw
move s
move w
move go gate
move n
move n
move climb stair
move go door
move go hall
move go second office
pause
put pay 3000
WaitForre /Your debt here is settled|you are debtless/i
move out
move out
put go door
put climb stair
move s
move s
put go gate
move e
move n
move ne
move n
move nw
move ne
move go grat
move go nar crev
move e
move se
move down
move s
move down
move e
move se
move ne
move go nar pass
move go grat
move e
move ne
move se
move s
move se
move se
GoTo RABANK-ENTER

RABANK-GEMSHOP:
move s
move s
move s
move w
move nw
move w
move sw
move w
move w
move w
move sw
move n
move n
move nw
move n
move go mark
GoTo GS-OPENGO2BAG

RABANK-VAULT:
move s
move s
move s
move w
move nw
move go carousel
move go door
GoTo GOARCH

RABANK-EMPATH:
move nw
move nw
move n
move nw
move w
move w
move w
move w
move nw
move w
move w
move w
move sw
move nw
move w
move n
move ne
move n
move ne
move ne
move e
move go clinic
move e
move go room one
ECHO ~~ You have arrived at the Clinic in Ratha, there is an Empath on duty here...
Exit

RABANK-WMGUILD:
move nw
move nw
move n
move nw
move sw
move w
move go grat
move go pass
move w
move nw
move sw
move u
move n
move u
move nw
move w
move go nar crev
move go grat
move sw
move w
move w
move nw
move nw
move nw
move n
move e
move ne
move go gate
move go door
Echo *** You have arrived at the Warrior Mage Guild in Ratha...
Exit


#>>> Bank, Ratha END <<<
#********************************


#********************************
#>>> Pawnshop, Shard Begin <<<

SPAWN:
SetVariable ERRORRETURN ERRORSPAWN
SetVariable CITY SHARD
If_1 GoTo SPAWN-%1
ERRORSPAWN:
ECHO ~~ You are standing in the pawnshop in the city of Shard, from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO
ECHO ***Try again***
Exit

SPAWN-BANK:
move out
move s
move s
move s
GoTo SPAWNBANK-CONTINUE

#>>> Pawnshop, Shard END <<<
#********************************

#********************************
#>>> Malchata Canyon Trail Head, Shard Begin <<<

CANYON:
SetVariable ERRORRETURN ERRORCANYON
SetVariable CITY SHARD
If_1 GoTo CANYON-%1
ERRORCANYON:
ECHO ~~ You are standing at the Malchata canyon trail head East of Shard, from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO ~~ HOLLOW (.ct hollow [CharName] to drag body to hollow)
ECHO
ECHO ***Try again***
Exit

CANYON-HOLLOW:
If_2 GoTo CANYON-DRAG-START
ECHO *** Going to the hollow from here is only for dragging a body ***
ECHO *** Only other destination is the bank. ***
Exit

CANYON-DRAG-START:
SetVariable IPRETURN CANYON-HOLLOW-DRAG
GoTo IP-BODY2DRAG

CANYON-HOLLOW-DRAG:
put drag %2 sw
nextroom
put drag %2 w
nextroom
put drag %2 sw
nextroom
put drag %2 sw
nextroom
put drag %2 w
nextroom
put drag %2 w
nextroom
put drag %2 w
nextroom
put drag %2 nw
nextroom
put drag %2 sw
nextroom
put drag %2 nw
nextroom
put drag %2 s
nextroom
put drag %2 path
nextroom
put mutter how the gods have made this path a real pain to travel on...
pause
put say /matter-of-factly We'll arrive at the hollow shortly.
pause 15

CANOYN-HOLLOW-PATH-ENGAGEDW:
Pause
CANOYN-HOLLOW-PATH-ENGAGED:
Match CANOYN-HOLLOW-RETREAT engaged
Matchre CANOYN-HOLLOW-PATH-END /Obvious\s(exits:|paths:)/i
Match CANOYN-HOLLOW-PATH-ENGAGEDW ...wait
put drag %2 s
MatchWait

CANOYN-HOLLOW-RETREAT:
GoSub SUB_RETREAT
GoTo CANOYN-HOLLOW-PATH-ENGAGED

CANOYN-HOLLOW-PATH-END:
put drag %2 s
nextroom
put drag %2 s
nextroom
put drag %2 path
nextroom
put drag %2 w
nextroom
pause
put pat %2
Exit

CANYON-BANK:
move sw
move w
move sw
move sw
move w
move w
move w
move nw
move sw
move nw
move s
move w
move w
move sw
GoTo CANYON-FINISH-%1


#>>> Malchata Canyon Trail Head, Shard END <<<
#********************************

#********************************
#>>> Horse Clan, Gem shop tent Begin <<<

HORSECLANGEMSHOP:
SetVariable ERRORRETURN ERRORHORSECLANGEMSHOP
SetVariable CITY SHARD
If_1 GoTo HORSECLANGEMSHOP-%1
ERRORHORSECLANGEMSHOP:
ECHO ~~ You are in the the Horse clan, the tent of Kurt's Gems from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO ~~ SELLPOUCHES
ECHO
ECHO ***Try again***
Exit

HORSECLANGEMSHOP-BANK:
HC-BANK-RETURN:
move go flap
move se
move n
move nw
move w
move ne
move n
move nw
move n
move nw
move w
move nw
move w
move sw
move w
move ne
move n
move nw
move nw
move e
move e
move nw
move ne
move e
move ne
move go path
move n
move e
move se
move e
move se
move e
move se
move e
move ne
move e
move ne
move e
move ne
move e
move n
move nw
move ne
move e
move e
move e
move se
move e
move ne
move n
move se
move climb bluff
move ne
move e
move se
move e
ECHO ~~Running to bank in 3 seconds, ESC to cancel
ECHO ~~3
Pause 1
ECHO ~~2
Pause 1
ECHO ~~1
Pause 1
put .CT BANK

#>>> Horse Clan, Gem shop tent END <<<
#********************************

#********************************
#>>> Shard, Outside South Gate Begin <<<

SHARDSGATE:
SetVariable ERRORRETURN ERRORSHARDSGATE
SetVariable CITY SHARD
If_1 GoTo SHARDSGATE-%1
ERRORSHARDSGATE:
ECHO ~~ You are standing outside the South Gate of Shard, from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO ~~ WMTOWER
ECHO ~~ VAULT
ECHO
ECHO ***Try again***
Exit

#>>> Shard, Outside South Gate END <<<
#********************************

#********************************
#>>> Shard, South Square Begin <<<

SHARDSBRIDGE:
SetVariable ERRORRETURN ERRORSHARDSBRIDGE
SetVariable CITY SHARD
If_1 GoTo SHARDSBRIDGE-%1
ERRORSHARDSBRIDGE:
ECHO ~~ You are standing in the South square of Shard, from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO ~~ WMTOWER
ECHO ~~ HOLLOW
ECHO ~~ VAULT
ECHO
ECHO ***Try again***
Exit

SHARDSBRIDGE-BANK:
GoTo SSB-BANK

SHARDSBRIDGE-WMTOWER:
GoTo SSB-WMTOWER

SHARDSBRIDGE-HOLLOW:
GoTo SSB-HOLLOW

SHARDSBRIDGE-VAULT:
GoTo SSB-VAULT

#>>> Shard, South Square END <<<
#********************************

#********************************
#>>> Shard, Quentin's Healerium Begin <<<

QUENTIN:
SetVariable ERRORRETURN ERRORSQUENTIN
SetVariable CITY SHARD
If_1 GoTo QUENTIN-%1
ERRORQUENTIN:
ECHO ~~ You are in Quentin's Healerium in the city of Shard, from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO
ECHO ***Try again***
Exit

QUENTIN-BANK:
move out
GoTo QUENTIN-BANK-FINISH

#>>> Shard, Quentin's Healerium END <<<
#********************************

#********************************
#>>> Shard Tanner Begin <<<

STANNER:
SetVariable ERRORRETURN ERRORSTANNER
SetVariable CITY SHARD
If_1 GoTo STANNER-%1
ERRORSTANNER:
ECHO ~~ You are in Tremagis's Furs (East of Shard), from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO
ECHO ***Try again***
Exit

STANNER-BANK:
move n
move go door
move go path
move se
move go gate
move s
move s
move s
move go gap
move w
move w
move w
move w
move w
move w
move go gate
move s
move sw
move sw
move sw
move w
move w
move w
move w
move nw
move nw
move nw
move n
move e
move e
move e
move e
GoTo INITALLBANKS

#>>>Shard Tanner END <<<
#********************************

#********************************
#>>> Crystaline Gorge (Forest Gryphons) Begin <<<

GRYPHONS:
SetVariable ERRORRETURN ERRORGRYPHONS
SetVariable CITY SHARD

If_2 GoTo GRYPHONS-HOLLOWDRAG
If_1 GoTo GRYPHONS-ALL-%1

ERRORGRYPHONS:
ECHO ~~ You are in the Crystaline Gorge (Forest Gryphons), from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO ~~ EMPATH
ECHO ~~ HOLLOW (ct hollow [Char Name] to drag)
ECHO ~~ HORSECLAN (run to horse clan and sell gems return to bank)
ECHO
ECHO ***Try again***
Exit

FINISH-SBANK-HORSECLAN:
GRYPHONS-ALL-HORSECLAN:
move w
move nw
move w
move sw
move climb trail
move nw
move s
move sw
move w
move nw
move w
move w
move w
move sw
move se
move s
move w
move sw
move w
move sw
move w
move sw
move w
move nw
move w
move nw
move w
move nw
move w
move s
move go path
move sw
move w
move sw
move se
move w
move w
move se
move se
move s
move sw
move e
move ne
move e
move se
move e
move se
move s
move se
move s
move sw
move e
move se
move s
move nw
move go second tent
put echocolumn /new9
Pause
put echocolumn /9 Arrived Horse Clan, Gem shop tent http://www.elanthipedia.com/wiki/RanikMap71a
HORSE-CLAN-TRADER-TENT:
ECHO *******************************************
ECHO
ECHO ~~ s1 Sell all pouches in backpack
ECHO ~~ zzbank Return to the bank in Shard
ECHO ~~ ESC to exit script
ECHO
ECHO *******************************************
Match HC-SELL-POUCHES-START s1
Match HC-BANK-RETURN zzbank
MatchWait

HC-SELL-POUCHES-START:
SetVariable SINGRETURN HCGETPOUCH
GoTo CTSING

HCGETPOUCHW:
Pause
HORSECLANGEMSHOP-SELLPOUCHES:
HCGETPOUCH:
#ECHO *** HCGETPOUCH: ***
Match NOMOREPOUCHES referring to
Match HCSELLPOUCH You get
Match HCGETPOUCHW ...wait
put get gem pouch from my %CONTAINER
MatchWait

HCSELLPOUCHW:
Pause
HCSELLPOUCH:
Match POUC2WARBELT then hands you
Match HCSELLPOUCHW ...wait
put sell my pouch to kurt
MatchWait

POUC2WARBELT:
SetVariable ITEM2BAG pouch
SetVariable GO2BAG war belt
SetVariable BAGITRETURN HCGETPOUCH
GoTo BAGIT

NOMOREPOUCHES:
ECHO
ECHO ~~ All pouches in %CONTAINER sold!
ECHO
GoTo HORES-CLAN-TRADER-TENT

GRYPHONS-ALL-HOLLOW:
GRYPHONS-ALL-BANK:
GRYPHONS-ALL-EMPATH:
put climb path
move ne
move e
move ne
move e
move se
move ne
move ne
move e
move e
move se
move ne
move ne
move e
move e
move se
move ne
move e
move e
move e
move e
move e
move se
move ne
move e
move e
move se
move e
move se
move se
move s
move sw
move s
move sw
move sw
move sw
move s
move se
move se
move s
move se
move s
move e
move se
move s
move se
move e
move e
move e
move e
move e
put go gate
GoTo GRYPHONS-%1

GRYPHONS-HOLLOW:
Move s
Move s
Move se
Move se
Move se
Move e
Move e
Move go bridge
Move s
Move s
Move s
Move s
Move go gate
Move s
Move s
Move s
Move path
Move w

ECHO *** Arrived Hollow, South of Shard.
Exit

GRYPHONS-BANK:
move e
move e
move e
move e
GoTo INITALLBANKS

GRYPHONS-EMPATH:
move e
move e
move e
move e
GoTo GRYPHONS-EMPATH-END

GRYPHONS-HOLLOWDRAG:
SetVariable IPRETURN G-GO-HOLLOW
GoTo IP-BODY2DRAG

G-GO-HOLLOW:
put drag %2 path
nextroom
put drag %2 ne
nextroom
put drag %2 e
nextroom
put drag %2 ne
nextroom
put drag %2 e
nextroom
put drag %2 se
nextroom
put drag %2 ne
nextroom
put drag %2 ne
nextroom
put drag %2 e
nextroom
put drag %2 e
nextroom
put drag %2 se
nextroom
put drag %2 ne
nextroom
put drag %2 ne
nextroom
put drag %2 e
nextroom
put drag %2 e
nextroom
put drag %2 se
nextroom
put drag %2 ne
nextroom
put drag %2 e
nextroom
put drag %2 e
nextroom
put drag %2 e
nextroom
put drag %2 e
nextroom
put drag %2 e
nextroom
put drag %2 se
nextroom
put drag %2 ne
nextroom
put drag %2 e
nextroom
put drag %2 e
nextroom
put drag %2 se
nextroom
put drag %2 e
nextroom
put drag %2 se
nextroom
put drag %2 se
nextroom
put drag %2 s
nextroom
put drag %2 sw
nextroom
put drag %2 s
nextroom
put drag %2 sw
nextroom
put drag %2 sw
nextroom
put drag %2 sw
nextroom
put drag %2 s
nextroom
put drag %2 se
nextroom
put drag %2 se
nextroom
put drag %2 s
nextroom
put drag %2 se
nextroom
put drag %2 s
nextroom
put drag %2 e
nextroom
put drag %2 se
nextroom
put drag %2 s
nextroom
put drag %2 se
nextroom
put drag %2 e
nextroom
put drag %2 e
nextroom
put drag %2 e
nextroom
put drag %2 e
nextroom
put drag %2 e
nextroom
put drag %2 gate
nextroom
put drag %2 s
nextroom
put drag %2 s
nextroom
put drag %2 se
nextroom
put drag %2 se
nextroom
put drag %2 se
nextroom
put drag %2 e
nextroom
put drag %2 e
nextroom
put drag %2 bridge
nextroom
put drag %2 s
nextroom
put drag %2 s
nextroom
put drag %2 s
nextroom
put drag %2 s
nextroom
put drag %2 go gate
nextroom
put drag %2 s
nextroom
put drag %2 s
nextroom
put drag %2 s
nextroom
put drag %2 path
nextroom
put drag %2 w
nextroom
put pant
ECHO *** Arrived Hollow, South of Shard.
Exit

#>>> Crystaline Gorge (Forest Gryphons) END <<<
#********************************

#********************************
#>>> Crossing Gem Shop Begin <<<

CGEMSHOP:
SetVariable ERRORRETURN ERRORCGEMSHOP
SetVariable CITY CROSSING
If_1 GoTo CGEMSHOP-%1
ERRORCGEMSHOP:
ECHO ~~ You are at the Crossing Gem Shop, from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO ~~ VAULT
ECHO
ECHO ***Try again***
Exit

CGEMSHOP-VAULT:
move out
move out
move w
move w
move s
SetVariable VAULTLOCATION CROSSINGVAULT
GoTo ENTERVAULT

CGEMSHOP-BANK:
move out
move out
move w
move w
move s
move se
GoTo INITALLBANKS

#>>> Crossing Gem Shop Begin <<<
#********************************

#********************************
#>>> NTR Rock Trolls Begin <<<

NTRROCKTROLLS:
SetVariable ERRORRETURN ERRORNTRROCKTROLLS
SetVariable CITY CROSSING
If_1 GoTo NTRROCKTROLLS-ALL%1
ERRORNTRROCKTROLLS:
ECHO ~~ You are at the Barricade to Rock Trolls on the Northern Trade Route, from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO ~~ EMPATH
ECHO ~~ BLEUCROS
ECHO
ECHO ***Try again***
Exit

NTRROCKTROLLS-ALLBANK:
NTRROCKTROLLS-ALLEMPATH:
NTRROCKTROLLS-ALLBLEUCROS:
move e
move e
move s
GoTo NTRROCKTROLLS-SETVARS-%1

NTRROCKTROLLS-SETVARS-BANK:
SetVariable BLEUCROS-FINISH NEGATE-BANK
GoTo NTRROCKTROLLS-TRAV

NTRROCKTROLLS-SETVARS-EMPATH:
SetVariable BLEUCROS-FINISH NEGATE-EMPATH
GoTo NTRROCKTROLLS-TRAV

NTRROCKTROLLS-SETVARS-BLEUCROS:
move n
move ne
move go gate
move nw
move nw
move n
move e
move e
GoTo NTRLEUCROS

#>>> NTR Rock Trolls End <<<
#********************************

#********************************
#>>> Riverhaven Gem Shop Begin <<<

RIVGEMSHOP:
SetVariable ERRORRETURN ERRORRRIVGEMSHOP
SetVariable CITY RIVERHAVEN
If_1 GoTo RIVGEMSHOP-%1
ERRORRRIVGEMSHOP:
ECHO ~~ You are in the Riverhaven Gem shop from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO
ECHO ***Try again***
Exit

RIVGEMSHOP-BANK:
move out
move s
move s
GoTo RIVGEMSHOP-BANKCONTINUE

#>>> Riverhaven Gem Shop End<<<
#********************************

#********************************
#>>> Riverhaven Empath spot Begin <<<

REMPATH:
ECHO ~~ REMPATH:
SetVariable ERRORRETURN ERRORREMPATH
SetVariable CITY RIVERHAVEN
If_1 GoTo REMPATH-ALL
ERRORREMPATH:
ECHO ~~ You are at the Empath site in Riverhaven "The Crate" from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO ~~ ZSWAMP
ECHO ~~ OGRES
ECHO ~~ EMPATH
ECHO
ECHO ***Try again***
Exit

REMPATH-ALLW:
Pause
REMPATH-ALL:
Match INHOSPITAL Obvious exits: out
Match REMPATH-%1 You can't go there
Match REMPATH-ALLW ...wait
put w
MatchWait

INHOSPITAL:
move out
Pause
REMPATH-BANK:
RIVWMGUILD-BANK-FINISH:
move s
move s
move s
move s
GoTo INITALLBANKS

REMPATH-ZSWAMP:
move s
move s
move s
move s
GoTo EMPATH-RBANK-ZSWAMP

REMPATH-OGRES:
move s
move s
move s
move s
GoTo EMPATH-RBANK-OGRES

#>>> Riverhaven Empath spot End <<<
#********************************

#********************************
#>>> Riverhaven Barbarian Guild begin <<<

RBGUILD:
SetVariable ERRORRETURN ERRORRBGUILD
SetVariable CITY RIVERHAVEN
If_1 GoTo RBGUILD-%1
ERRORRBGUILD:
ECHO ~~ You are in the Barbarian Guild of the Steel Claw Clan, North of Shard. From here you can go to ...
ECHO ~~ BANK
ECHO ~~ OGRES
ECHO ***Try again***
Exit

RBGUILD-OGRES:
move out
GoTo RBGUILD-OGRES-CONTINUE

RBGUILD-BANK:
move out
move se
move se
move go gate
RIVGEMSHOP-BANKCONTINUE:
move e
move e
move e
move e
move e
move e
move ne
move n
move n
GoTo INITALLBANKS

#********************************
#>>> Shard Barbarian Guild End <<<
#********************************
#>>> Trackless Swamp Begin <<<

ZSWAMP:
SetVariable ERRORRETURN ERRORZSWAMP
SetVariable CITY RIVERHAVEN
If_1 GoTo ZSWAMP-ALL%1
ERRORZSWAMP:
ECHO ~~ You on the pierwalk of the Trackless Swamp from here you can go to ...
ECHO
ECHO ~~ EMPATH
ECHO ~~ BANK
ECHO
ECHO ***Try again***
Exit

ZSWAMP-ALLBANK:
ZSWAMP-ALLEMPATH:
move go pier
move sw
move w
move nw
move w
move w
move w
move nw
move n
move ne
move n
move go trail
move s
move s
move sw
move s
move sw
move sw
move s
move sw
move go gate
move w
move w
move w
move w
move w
move w
move nw
move n
move n
GoTo ZSWAMP-%1

ZSWAMP-BANK:
GoTo INITALLBANKS

#>>> Trackless Swamp End <<<
#********************************

#********************************
#>>> Riverhaven Bank Begin <<<

RIVBANK:
SetVariable ERRORRETURN ERRORRIVBANK
SetVariable CITY RIVERHAVEN
If_1 GoTo RIVBANK-%1
ERRORRIVBANK:
ECHO ~~ You are at the Riverhaven Bank from here you can go to ...
ECHO ~~ VAULT
ECHO ~~ BGUILD
ECHO ~~ EMPATH
ECHO ~~ PAYDEBT
ECHO ~~ OGRES
ECHO ~~ WMGUILD
ECHO ~~ EGATE
ECHO ~~ ZSWAMP
ECHO ~~ GEMSHOP
ECHO ~~ WGATE
ECHO ~~ CRATE
ECHO
ECHO ***Try again***
Exit

RIVBANK-CRATE:
move out
move n
move n
move n
move n
ECHO *** Arrived at the "crate" in Riverhaven...
Exit

RIVBANK-GEMSHOP:
move out
move s
move s
move sw
move w
move w
move w
move w
move w
move w
move n
move n
move go shop
ECHO *** Arrived Riverhaven Gem Shop ***
Exit

RIVBANK-EGATE:
RIVBANK-ZSWAMP:
move out
EMPATH-RBANK-ZSWAMP:
move s
move s
move se
move e
move e
move e
move e
move e
move e
move go gate
If %1 contains "egate" then GoTo RIVBANK-EGATE-FINISH
move ne
move n
move ne
move ne
move n
move ne
move n
move n
move go trail
move s
move sw
move s
move se
move e
move e
move e
move se
move e
move ne
move go pierwalk
ECHO *** Arrived Trackless Swamp ***
Exit

RIVBANK-EGATE-FINISH:
ECHO *** Arrived Outside the East Gate of Riverhaven ***
Exit

RIVBANK-OGRES:
move out
EMPATH-RBANK-OGRES:
move s
move s
move sw
move w
move w
move w
move w
move w
move w
move go gate
move nw
move nw
RBGUILD-OGRES-CONTINUE:
move go trail
move nw
move n
move n
move go gap
ECHO *** Arrived in Dark Tunnels ***
Exit

RIVBANK-PAYDEBT:
move go arch
Pause
put withdraw 30 silver
WaitFor The clerk counts out 30 silver Lirums and hands them over
move go arch
move out
move s
move s
move s
move go town hall
move go office
Pause
put pay 3000
WaitForre /debt is cleared|owe us anything/i
move out
move out
move n
move n
move n
GoTo INITALLBANKS

RIVBANK-EMPATH:
RIVBANK-CRATE:
move out
ZSWAMP-EMPATH:
move n
move n
move n
move n
If %1 contains "CRATE" || %1 contains "crate" then GoTo RIVBANK-CRATE-ARRIVED
REMPATH-EMPATH:
move go hospital
move go arch
GoTo RPATIENTCHECK

RIVBANK-CRATE-ARRIVED:
ECHO *** Arrived at the "crate" in the city of Riverhaven ***
Exit

RPATIENTCHECKW:
Pause
RPATIENTCHECK:
Matchre RWAITFORPATIENT /Also in the room:.*who is lying down/i
Match RGETHEALED Obvious exits
Match RPATIENTCHECKW /Sorry,|\.\.\.wait/i
put look
MatchWait

RWAITFORPATIENT:
Pause 30
GoTo RPATIENTCHECK

RGETHEALEDW:
Pause
RGETHEALED:
Match WAIT4RIVERHAVENHEALING You lie down
Match RGETHEALEDW ...wait
put lie
MatchWait

WAIT4RIVERHAVENHEALING:
WaitForre /You don't need healing|you don't really need healing|You sit up|IDLE TOO LONG/i
GoTo RIVERHAVENHEALLINGDONE

RIVERHAVENHEALLINGDONEW:
Pause
RIVERHAVENHEALLINGDONE:
Match LEAVERIVERHAVENEMPATH leap to your feet
Match RIVERHAVENHEALLINGDONEW ...wait
put dance
MatchWait

LEAVERIVERHAVENEMPATH:
Pause
move w
move out
ECHO *** You are healed and staning in front of Empath Guild in Riverhaven ***
Exit

RIVBANK-VAULT:
move out
move s
move s
move se
move e
GoTo ENTERVAULT

RIVBANK-BGUILD:
RIVBANK-WGATE:
move out
move s
move s
move sw
move w
move w
move w
move w
move w
move w
If %1 contains "WGATE" || %1 contains "wgate" then GoTo RIVBANK-WGATE-ARRIVED
move go gate
move nw
move nw
move go arch
ECHO *** Arrived Riverhaven Barbarian Guild ***
Exit

RIVBANK-WGATE-ARRIVED:
ECHO *** Arrived Riverhaven West Gate ***
put hide
Exit

RIVBANK-WMGUILD:
move out
move n
move n
move n
move n
move n
move n
move se
move go gate
move go arch
ECHO *** Arrived Riverhaven War Mage Guild ***
Exit

#>>> Riverhaven Bank End <<<
#********************************

#********************************
#>>> Crossing Premium Bank Begin <<<

CPBANK:
SetVariable ERRORRETURN ERRORCPBANK
SetVariable CITY CROSSING
If_1 GoTo CPBANK-ALL%1
ERRORCPBANK:
ECHO ~~ You are at Crossing Premium Bank from here you can go to ...
ECHO ~~ BANK <<< Travel script start.
ECHO ~~ NEGATE <<< Travel script start.
ECHO ~~ WGATE
ECHO ~~ WMGUILD
ECHO ~~ BGUILD
ECHO ~~ CGUILD To drag to CGUILD .ct CGUILD [PlayerName]
ECHO ~~ VAULT
ECHO ~~ GHOUSE
ECHO ***Try again***
Exit

CPBANK-ALLW:
Pause
CPBANK-ALLBANK:
CPBANK-ALLNEGATE:
CPBANK-ALLWGATE:
CPBANK-ALLWMGUILD:
CPBANK-ALLBGUILD:
CPBANK-ALLCGUILD:
CPBANK-ALLVAULT:
CPBANK-ALLGHOUSE:
Match OUTAGAIN Center, Bank Teller
Match CPBANK-INIT Center, Basement
Match CPBANK-ALLW ...wait
put out
MatchWait

OUTAGAIN:
move out
CPBANK-INIT:
move climb step
move go arch
move go door
move out
move nw
move nw
move nw
move go brid
move ne
GoTo CPBANK-%1

CPBANK-BANK:
move go bank
GoTo EXCHANGECHECK1

CPBANK-NEGATE:
GoTo BANK-NEGATE2:

CPBANK-WGATE:
GoTo BANK-WGATE2:

CPBANK-WMGUILD:
GoTo BANK-WMGUILD2:

CPBANK-BGUILD:
GoTo BANK-BGUILD2:

CPBANK-CGUILD:
GoTo BANK-CGUILD2:

CPBANK-VAULT:
GoTo BANK-VAULT2:

CPBANK-GHOUSE:
GoTo BANK-GHOUSE2:

#>>> Crossing Premium Bank END <<<
#********************************

#********************************
#>>> Empath START <<<

EMPATH:
SetVariable ERRORRETURN ERROREMPATH
SetVariable CITY CROSSING
If_1 GoTo EMPATH-%1
ERROREMPATH:
ECHO ~~ You are at Empath Guild from here you can go to ...
ECHO ~~ BANK <<< Travel script start.
ECHO ~~ NEGATE <<< Travel script start.
ECHO ~~ WGATE
ECHO ~~ WMGUILD
ECHO ~~ BGUILD
ECHO ~~ CGUILD To drage to CGUILD .ct CGUILD [PlayerName]
ECHO ~~ VAULT
ECHO ~~ GHOUSE
ECHO ~~ TEMPLE
ECHO ***Try again***
Exit

EMPATH-TEMPLE:
move out
move s
move w
move w
move s
move s
move s
move s
move s
move s
move se
CGUILD-TEMPLE-FINISH:
move sw
BANK-TEMPLE-FINISH:
move go gate
ECHO ~~ You have entered the main gate of the Crossing Temple.
Exit

EMPATH-NEGATE:
move out
move e
move n
move n
move e
move e
move e
move go gate
ECHO *** Arrived North East Gate
Exit

EMPATH-WGATE:
move out
move s
move w
move w
move w
move w
move w
move w
move go bridge
move w
move w
move w
move w
move go gate
ECHO *** Arrived West Gate
Exit

EMPATH-GHOUSE:
move out
move s
move w
move w
move w
move w
move w
move w
move go bridge
move w
move w
move w
move w
move go house
ECHO *** Arrived Western Gate Guard House
Exit

EMPATH-BANK:
put dance
Pause
IF_2 GoTo EMPATHACT%CHAR %2
GoTo EMPATH-BANK_CONTINUE

EMPATHACTPREM:
put bow %2
put say }%2 Many thanks!
Pause 2
GoTo EMPATH-BANK_CONTINUE

EMPATHACTREG:
put curt %2
put say }%2 Thank you.
Pause 2
GoTo EMPATH-BANK_CONTINUE

EMPATH-BANK_CONTINUE:
move out
move s
move w
move w
move s
move s
move s
move s
move s
move s
move se
IF_2 GoTo GETCOIN4EMPATH
GoTo INITALLBANKS

EMPATH-BGUILD:
move out
move s
move go guild
ECHO *** Arrived Barbarian Guild
Exit

EMPATH-WMGUILD:
move out
move e
move n
move n
move e
move e
move e
move go gate
GoTo NEGATE-WMGUILD

EMPATH-CGUILD:
If_2 GoTo EMPATH-CGUILD-DRAG
move out
move s
move w
move w
move w
move w
TEMPLE-CGUILD-FINISH:
move n
move n
move n
move n
move go guild
move go arch door
move go build
ECHO *** Arrived Cleric Guild
Exit

EMPATH-CGUILD-DRAG:
put drag %2 out
nextroom
put drag %2 s
nextroom
put drag %2 w
nextroom
put drag %2 w
nextroom
put drag %2 w
nextroom
put drag %2 w
nextroom
put drag %2 n
nextroom
CROSSNGATE-DRAG-CGUILD-FINISH:
put drag %2 n
nextroom
put drag %2 n
nextroom
put drag %2 n
nextroom
put drag %2 guild
nextroom
put drag %2 arch door
nextroom
put drag %2 build
nextroom
ECHO *** Arrived Cleric Guild
Exit

EMPATH-VAULT:
move out
move s
move w
move w
move s
move s
move s
move s
move s
move s
SetVariable VAULTLOCATION CROSSINGVAULT
GoTo ENTERVAULT

#>>> Empath END <<<
#********************************

#********************************
#>>> Guard House START <<<

GHOUSE:
SetVariable ERRORRETURN ERRORGHOUSE
SetVariable CITY CROSSING
If_1 GoTo GHOUSE-%1
ERRORGHOUSE:
ECHO ~~ You are at West Gate Guard House, from here you can go to ...
ECHO ~~ BANK <<< Travel script start.
ECHO ~~ NEGATE <<< Travel script start.
ECHO ~~ WGATE
ECHO ~~ WMGUILD
ECHO ~~ BGUILD
ECHO ~~ VAULT
ECHO ~~ EMPATH
ECHO ~~ NTRTROLLS
ECHO ***Try again***
Exit

GHOUSE-BANK:
move out
OGRES-BANK-CONTINUE:
move e
move e
move e
move e
move e
move e
move e
move e
move e
move s
move s
move s
move s
move s
move s
move se
GoTo INITALLBANKS

GHOUSE-NEGATE:
SetVariable NEGATE-FINISH NEGATE-DONE
GoTo GO2NEGATE

GHOUSE-NTRTROLLS:
SetVariable NEGATE-FINISH NEGATE-NTRTROLLS
GoTo GO2NEGATE

GO2NEGATE:
move out
move e
move e
move e
move e
move e
move e
move e
move e
move e
move e
move e
move n
move e
move n
move n
move e
move e
move e
move go gate
GoTo %NEGATE-FINISH

NEGATE-DONE:
ECHO *** Arrived North East Gate
Exit

GHOUSE-WMGUILD:
move out
OGRES-WMGUILD-CONTINUE:
move e
move e
move e
move e
move e
move e
move e
move e
move e
move e
move e
move n
move e
move n
move n
move e
move e
move e
move go gate
move se
move e
move e
move ne
move se
move e
move ne
move n
ECHO *** Arrived War Mage Guild
Exit

GHOUSE-BGUILD:
move out
move e
move e
move e
move e
move e
move e
move e
move e
move e
move e
move e
move go guild
ECHO *** Arrived Barbarian Guild
Exit

GHOUSE-VAULT:
move out
OGRES-VAULT-CONTINUE:
move e
move e
move e
move e
move e
move e
move e
move e
move e
move s
move s
move s
move s
move s
move s
SetVariable VAULTLOCATION CROSSINGVAULT
GoTo ENTERVAULT

GHOUSE-EMPATH:
move out
move e
move e
move e
move e
move e
move e
move e
move e
move e
move e
move e
move n
move go door
ECHO *** Arrived Empath Guild %CITY
Exit

#>>> Guard House END <<<
#********************************

#********************************
#>>> North East Gate START <<<

NEGATE:
SetVariable ERRORRETURN ERRORNEGATE
SetVariable CITY CROSSING
SetVariable ROUTBREAK1 CONTINUE1
If_1 GoTo NEGATE-%1
ERRORNEGATE:
ECHO ~~ You are at North East Gate from here you can go to ...
ECHO ~~ BANK <<< Travel script start.
ECHO ~~ WMGUILD
ECHO ~~ WGATE
ECHO ~~ NGATE
ECHO ~~ GHOUSE
ECHO ~~ CGUILD
ECHO ~~ VAULT
ECHO ~~ GEMSHOP
ECHO ~~ PAWN
ECHO ~~ TANNER
ECHO ~~ LSMITH
ECHO ~~ MAMAS <<< Scale to weigh items 1 Bronze per
ECHO ~~ FORGE <<< Armor repair.
ECHO ~~ EMPATH
ECHO ~~ BEISWURMS
ECHO ~~ BLEUCROS
ECHO ~~ NTRTROLLS
ECHO ~~ OGRES
ECHO ~~ MMGUILD
ECHO ~~ TEMPLE
ECHO ***Try again***
Exit

NEGATE-TEMPLE:
move go gate
move w
move s
move s
move s
move s
move sw
move s
move s
move s
move w
move w
move w
move sw
move go gate
ECHO ~~ You have entered the main gate of the Crossing Temple.
Exit

NEGATE-MMGUILD:
move go footpath
move s
move d
move s
move s
move se
move e
move e
move e
move se
move se
move s
move e
move e
move e
move ne
move ne
move e
move s
move s
move sw
ECHO ~~ You stand before %CITY MM Guild.
Exit

NEGATE-OGRES:
move go gate
move w
move w
move w
move s
move s
move w
move s
move w
move w
BANK-OGRES-CONTINUE:
VAULT-OGRES-CONTINUE:
move w
move w
move w
move w
move go bridge
move w
move w
move w
move w
move go gate
move go path
move w
move w
move nw
move w
move w
move nw
move w
move w
move sw
move w
move w
move nw
move nw
move w
move w
move nw
move w
move w
move go brook
GoSub SUB_WADE-WEST
GoSub SUB_WADE-WEST
put prep c a b
pause
put gest fimath
pause
move w
move sw
move w
move w
move w
move w
move climb trail
move climb cliff
Exit

SUB_WADE-WESTW:
Pause
SUB_WADE-WEST:
Matchre SUB_RETURN /Obvious (paths|exits)/i
Matchre SUB_WADE-WESTW /Sorry,|\.\.\.wait/i
put w
MatchWait 5
ECHO Failed Match SUB_WADE-WEST:
Exit

NEGATE-BLEUCROS:
NEGATE-GENI:
pause
put rem %SHIELD
pause
put stance shield
SetVariable ROUTEBREAK1 NTRLEUCROS
GoTo NEGATE-BEISSWURMS

NTRLEUCROS:
move n
move n
move ne
move n
move e
move e
move ne
move go path
pause
GoTo TRYTRAIL1

TRYTRAIL1W:
Pause
TRYTRAIL1:
Matchre SEARCHTRAIL1 /referring to|can't go there/i
Match TRYTRAIL2 Obvious paths: north
Match TRYTRAIL1W ...wait
put go trail
MatchWait

SEARCHTRAIL1W:
Pause
SEARCHTRAIL1:
Matchre GOTRAIL1 /obviously attempting to remain hidden|animal trail/i
Matchre SEARCHTRAIL1W /there may be very faint traces of an animal trail|signs something is here|anything of interest here|You find a faint path|Sorry,|\.\.\.wait/i
put search
MatchWait

GOTRAIL1W:
Pause
GOTRAIL1:
Match TRYTRAIL2 Obvious paths: north
Match GOTRAIL1W ...wait
put go trail
MatchWait

TRYTRAIL2W:
Pause
TRYTRAIL2:
Matchre SEARCHTRAIL2 /referring to|can't go there/i
Match TRYTRAIL3 Obvious paths
Match TRYTRAIL2W ...wait
put go trail
MatchWait

SEARCHTRAIL2W:
Pause
SEARCHTRAIL2:
Matchre GOTRAIL2 /obviously attempting to remain hidden|animal trail/i
Matchre SEARCHTRAIL2W /there may be very faint traces of an animal trail|signs something is here|anything of interest here|You find a faint path|Sorry,|\.\.\.wait/i
put search
MatchWait

GOTRAIL2W:
Pause
GOTRAIL2:
Match TRYTRAIL3 Obvious paths
Match GOTRAIL2W ...wait
put go trail
MatchWait

TRYTRAIL3W:
Pause
TRYTRAIL3:
Matchre SEARCHTRAIL3 /referring to|can't go there/i
Match TRYSPOT Obvious paths
Match TRYTRAIL3W ...wait
put go trail
MatchWait

SEARCHTRAIL3W:
Pause
SEARCHTRAIL3:
Matchre GOTRAIL3 /obviously attempting to remain hidden|animal trail/i
Matchre SEARCHTRAIL3W /there may be very faint traces of an animal trail|signs something is here|anything of interest here|You find a faint path|Sorry,|\.\.\.wait/i
put search
MatchWait

GOTRAIL3W:
Pause
GOTRAIL3:
Match TRYSPOT Obvious paths
Match GOTRAIL3W ...wait
put go trail
MatchWait

TRYSPOTW:
Pause
TRYSPOT:
Matchre SEARCHSPOT /referring to|can't go there/i
Match ARRIVEDLEUC Obvious paths: east, south, northwest
Match TRYSPOTW ...wait
put go spot
MatchWait

SEARCHSPOTW:
Pause
SEARCHSPOT:
Matchre GOSPOT /obviously attempting to remain hidden|a bare spot/i
Matchre SEARCHSPOTW /signs something is here|faint animal tracks|Sorry,|\.\.\.wait/i
put search
MatchWait

GOSPOTW:
Pause
GOSPOT:
Match ARRIVEDLEUC Obvious paths: east, south, northwest
Match GOSPOTW ...wait
put go spot
MatchWait

ARRIVEDLEUC:
GoTo LEUCROS-END-%1

LEUCROS-END-BLEUCROS:
ECHO *** Arrived Black Leucros hunting ground.
Exit

LEUCROS-END-GENI:
move e
move e
move e
move se
move go dead
move se
move s
move se
move sw
move sw
move sw
move w
move w
move w
move w
move s
move se
GoTo SEARCH2ENTER-GENI

SEARCH2ENTER-GENIW:
Pause
SEARCH2ENTER-GENI:
Matchre SEARCH2ENTER-GENI /of interest here|something is here|there may be a faint trail here/i
Match GENI-GO-TRAIL You find a faint trail
Matchre SEARCH2ENTER-GENIW /Sorry,|\.\.\.wait/i
put search
MatchWait

GENI-GO-TRAILW:
Pause
GENI-GO-TRAIL:
Match GENI-GO-TRAIL-RETREAT engaged
Matchre ARRIVED-GENI /Obvious (paths|exits)/i
Matchre GENI-GO-TRAILW /Sorry,|\.\.\.wait/i
put go trail
MatchWait

GENI-GO-TRAIL-RETREAT:
GoSub SUB_RETREAT
GoTo GENI-GO-TRAIL

ARRIVED-GENI:
ECHO *** Arrived in the home of the Forrest Geni's ***
Exit

NEGATE-BEISSWURMS:
SetVariable NEGATE-WURMS-FINISH CONT-BEISSWURMS
GoTo NEGATE-TRAV

NEGATE-NTRTROLLS:
SetVariable NEGATE-WURMS-FINISH CONT-NEGATE-NTRTROLLS
GoTo NEGATE-TRAV

NEGATE-TRAV:
move n
move n
move n
move ne
move ne
move n
move nw
move nw
move n
move n
move ne
move nw
move n
move n
move nw
move nw
move n
move n
move n
move ne
move ne
move ne
move e
move e
move e
move n
move n
move n
move n
move n
move n
move ne
move go gate
GoTo %NEGATE-WURMS-FINISH

CONT-BEISSWURMS:
move n
move ne
move go gate
move nw
move nw
move n
move e
move e
GoTo %ROUTEBREAK1

CONTINUE1:
move climb trail
move u
move w
put say Climb the creeper then the ladder, I'll wait for you on the ledge.
move climb creep
move climb ladder
ECHO *** You have arrived at the ledge above the Beisswurm cave, climb rope to enter
Exit

CONT-NEGATE-NTRTROLLS:
move n
move w
move w
ECHO ~~ You stand before the barricade to Rock Trolls, climb barricade to enter.
Exit

NEGATE-BANK:
move go gate
move w
move w
move w
move s
move s
move w
move s
move w
move w
move s
move s
move s
move s
move s
move s
CLSMITH-BANK-BANK:
move se
GoTo INITALLBANKS

NEGATE-WMGUILD:
move se
move e
move e
move ne
move se
move e
move ne
move n
ECHO *** Arrived War Mage Guild
Exit

NEGATE-GHOUSE:
move go gate
move w
move w
move w
move s
move s
move w
move s
move w
move w
move w
move w
move w
move w
move go bridge
move w
move w
move w
move w
move go house
ECHO ***Arrived Guard House
Exit

NEGATE-WGATE:
move go gate
move w
move w
move w
move s
move s
move w
move s
move w
move w
move w
move w
move w
move w
move go bridge
move w
move w
move w
move w
move go gate
ECHO ***Arrived West Gate
Exit

NEGATE-NGATE:
move go gate
move w
move w
move w
move w
move n
move w
move w
move w
move w
move go arch
ECHO *** Arrived North Gate
Exit

NEGATE-CGUILD:
move go gate
move w
move w
move w
move s
move s
move w
move s
move w
move w
move w
move w
move n
move n
move n
move n
move go guild
move go arched door
move go build
ECHO *** Arrived Cleric Guild
Exit

NEGATE-VAULT:
move go gate
move w
move w
move w
move s
move s
move w
move s
move w
move w
move s
move s
move s
move s
move s
move s
SetVariable VAULTLOCATION CROSSINGVAULT
GoTo ENTERVAULT

NEGATE-GEMSHOP:
move go gate
move w
move s
move s
move s
move s
move sw
move w
move w
move s
move go shop
move go room
GoTo ALLGEMSHOP-EMPTY-ALTBAG

NEGATE-PAWN:
move go gate
move w
move w
move w
move s
move s
move w
move s
move w
move w
move w
move w
move w
move w
move go bridge
move s
move go shop
ECHO *** Arrived Pawn Shop
Exit

NEGATE-TANNER:
move go gate
move w
move w
move w
move s
move s
move w
move s
move w
move w
move w
move w
move n
move n
move w
move go shed
ECHO *** Arrived Tanner
Exit

NEGATE-LSMITH:
move go gate
move w
move w
move w
move s
move s
move w
move s
move w
move w
move s
move s
move s
move s
move s
move s
BANK-LSMITH-CONTINUE:
move w
move w
move w
move w
move w
move n
move n
move go door
GoTo CROSSING-LSMITH-MENU

NEGATE-MAMAS:
move go gate
move w
move s
move s
move s
move s
move sw
move w
move w
move s
move s
move w
move go build
ECHO *** Arrived Jeweler's Shop
Exit

NEGATE-FORGE:
move go gate
move w
move s
move s
move s
move s
move sw
move s
move s
move s
move w
move go forge
ECHO *** Arrived Forge
Exit

NEGATE-BAZAAR:
move go gate
move w
move w
move w
move s
move s
move w
move s
move w
move s
move s
move go bazaar
move se
ECHO *** Arrived Bazaar
Exit

NEGATE-EMPATH:
move go gate
move w
move w
move w
move s
move s
move w
move go door
ECHO *** Arrived Empath Guild %CITY
Exit

#>>> North East Gate END <<<
#********************************

#********************************
#>>> War Mage Guild START <<<

WMGUILD:
SetVariable ERRORRETURN ERRORWMGUILD
SetVariable CITY CROSSING
If_1 GoTo WMGUILD-%1
ERRORWMGUILD:
ECHO ~~ You are at War Mage Guild from here you can go to ...
ECHO ~~
ECHO ~~ BANK <<< Travel script start.
ECHO ~~ WGATE
ECHO ~~ NGATE
ECHO ~~ GHOUSE
ECHO ~~ CGUILD
ECHO ~~ VAULT
ECHO ~~ GEMSHOP
ECHO ~~ PAWN
ECHO ~~ TANNER
ECHO ~~ LSMITH
ECHO ~~ MAMAS <<< Scale to weigh items 1 Bronze per
ECHO ~~ FORGE <<< Armor repair.
ECHO ~~ EMPATH
ECHO ~~ BEISSWURMS
ECHO ~~ BLEUCROS
ECHO ~~ OGRES
ECHO ~~ MMGUILD
ECHO ~~ GENI
ECHO ~~
ECHO ***Try again***
Exit

WMGUILD-GENI:
WMGUILD-BLEUCROS:
WMGUILD-BEISSWURMS:
SetVariable ROUTEBREAK1 CONTINUE1
WMGUILD-BANK:
WMGUILD-WGATE:
WMGUILD-NGATE:
WMGUILD-GHOUSE:
WMGUILD-CGUILD:
WMGUILD-VAULT:
WMGUILD-GEMSHOP:
WMGUILD-PAWN:
WMGUILD-TANNER:
WMGUILD-MAMAS:
WMGUILD-FORGE:
WMGUILD-EMPATH:
WMGUILD-OGRES:
WMGUILD-MMGUILD:
WMGUILD-LSMITH:
move s
move sw
move w
move sw
move nw
move w
move w
move nw
GoTo NEGATE-%1

#>>> War Mage Guild END <<<
#********************************

#********************************
#>>> Cleric Guild START <<<

CGUILD:
SetVariable ERRORRETURN ERRORCGUILD
If_1 GoTo CGUILD-%1
ERRORCGUILD:
ECHO ~~ You are at the Cleric's Guild from here you can go to ...
ECHO ~~ BANK <<< Travel script start.
ECHO ~~ EMPATH
ECHO ~~ WGATE
ECHO ~~ NEGATE
ECHO ~~ GHOUSE
ECHO ~~ WMGUILD
ECHO ~~ VAULT
ECHO ~~ TEMPLE
ECHO ***Try again***
Exit

CGUILD-TEMPLE:
CGUILD-BANK:
move out
move go arch door
move out
move s
move s
move s
CROSSNGATE-BANK-FINISH:
move s
move e
move e
move s
move s
move s
move s
move s
move s
move se
If %1 = "TEMPLE" || %1 = "temple" then GoTo CGUILD-TEMPLE-FINISH
GoTo INITALLBANKS

CGUILD-EMPATH:
move out
move go arch door
move out
move s
move s
move s
move s
move e
move e
move e
move e
move n
move go door
ECHO *** Arrived Empath Guild %CITY
Exit

CGUILD-WGATE:
move out
move go arch door
move out
move s
move s
move s
move s
move w
move w
move go bridge
move w
move w
move w
move w
move go Gate
ECHO ***Arrived West Gate
Exit

CGUILD-NEGATE:
move out
move go arch door
move out
move s
move s
move s
move s
move e
move e
move e
move e
move n
move e
move n
move n
move e
move e
move e
move go gate
ECHO *** Arrived North East Gate
Exit

CGUILD-GHOUSE:
move out
move go arch door
move out
move s
move s
move s
move s
move w
move w
move go bridge
move w
move w
move w
move w
move go house
ECHO ***Arrived Guard House
Exit

CGUILD-WMGUILD:
move out
move go arch door
move out
move s
move s
move s
move s
move e
move e
move e
move e
move n
move e
move n
move n
move e
move e
move e
move go gate
move se
move e
move e
move ne
move se
move e
move ne
move n
ECHO *** Arrived War Mage Guild
Exit

CGUILD-VAULT:
move out
move go arch door
move out
move s
move s
move s
move s
move e
move e
move s
move s
move s
move s
move s
move s
SetVariable VAULTLOCATION CROSSINGVAULT
GoTo ENTERVAULT

#>>> Cleric Guild END <<<
#********************************

#********************************
#>>> Bank Start <<<

BANK:
SetVariable ERRORRETURN ERRORBANK
SetVariable CITY CROSSING
If_1 GoTo BANK-%1
ERRORBANK:
ECHO ~~ You are at Bank from here you can go to ...
ECHO ~~ EMPATH
ECHO ~~ WGATE
ECHO ~~ NEGATE
ECHO ~~ GHOUSE
ECHO ~~ WMGUILD
ECHO ~~ VAULT
ECHO ~~ CGUILD
ECHO ~~ TANNER
ECHO ~~ PAWN
ECHO ~~ NGATE
ECHO ~~ GEMSHOP
ECHO ~~ LSMITH
ECHO ~~ WEAPONS
ECHO ~~ FORGE
ECHO ~~ MAMAS
ECHO ~~ ARMOR
ECHO ~~ BAZAAR
ECHO ~~ CPBANK
ECHO ~~ PAYDEBT
ECHO ~~ NTRTROLLS
ECHO ~~ OGRES
ECHO ~~ TEMPLE
ECHO ***Try again***
Exit

BANK-LSMITH:
move out
move nw
GoTo BANK-LSMITH-CONTINUE

BANK-OGRES:
move out
move nw
move n
move n
move n
move n
move n
move n
GoTo BANK-OGRES-CONTINUE

BANK-NTRTROLLS:
move out
move nw
move n
move n
move n
move n
move n
move n
move e
move e
move n
move e
move n
move n
move e
move e
move e
move go gate
GoTo NEGATE-NTRTROLLS

BANK-PAYDEBT:
move go win
pause
put Withdraw 30 silver kron
waitfor making a notation
move out
move out
move nw
move n
move e
move go hall
move go collection office
pause
put pay 3000
WaitForre /your debt is now settled|How fortunate/i
pause
move out
move out
move w
move s
move se
GoTo INITALLBANKS

BANK-TEMPLE:
BANK-CPBANK:
move out
move sw
If %1 ="TEMPLE" || %1 ="temple" then GoTo BANK-TEMPLE-FINISH
put go brid
move se
move se
move se
move go ver
move go door
move go arch
move climb steps
move go door
move go door
ECHO *** Arrived Crossing Premium bank transfre desk
Exit

BANK-EMPATH:
move out
move nw
move n
move n
move n
move n
move n
move n
move e
move e
move n
move go door
ECHO *** Arrived Empath Guild %CITY
Exit

BANK-NGATE:
BANK-CGUILD:
move out
BANK-CGUILD2:
move nw
move n
move n
move n
move n
move n
move n
move w
move w
move n
If %1 contains "ngate" then GoTo BANK-NGATE-FINISH
move n
move n
move n
move go guild
move go arch door
move go build
ECHO *** Arrived Cleric Guild
Exit

BANK-WMGUILD:
move out
BANK-WMGUILD2:
move nw
CLSMITH-BANK-WMGUILD:
move n
move n
move n
move n
move n
move n
move e
move e
move n
move e
move n
move n
move e
move e
move e
move go gate
GoTo NEGATE-WMGUILD

BANK-BGUILD:
move out
BANK-BGUILD2:
move nw
move n
move n
move n
move n
move n
move n
move e
move e
move go guild
ECHO *** Arrived Barbarian Guild
Exit

BANK-WGATE:
move out
BANK-WGATE2:
move nw
move n
move n
move n
move n
move n
move n
move w
move w
move w
move w
move go bridge
move w
move w
move w
move w
move go gate
ECHO *** Arrived West Gate
Exit

BANK-NEGATE:
move out
BANK-NEGATE2:
move nw
move n
move n
move n
move n
move n
move n
move e
move e
move n
move e
move n
move n
move e
move e
move e
move go gate
ECHO *** Arrived North East Gate
Exit

BANK-GHOUSE:
move out
BANK-GHOUSE2:
move nw
move n
move n
move n
move n
move n
move n
move w
move w
move w
move w
move go bridge
move w
move w
move w
move w
move go house
ECHO *** Arrived Guard House
Exit

BANK-VAULT:
move out
BANK-VAULT2:
move nw
SetVariable VAULTLOCATION CROSSINGVAULT
GoTo ENTERVAULT

BANK-TANNER:
move out
move nw
move n
move n
move n
move n
move n
move n
move w
move w
move n
move n
move w
move go shed
ECHO *** Arrived Tanner
Exit

BANK-PAWN:
move out
move nw
move n
move n
move n
move n
move n
move n
move w
move w
move w
move w
move go bridge
move s
move go shop
ECHO *** Arrived Pawn Shop
Exit

BANK-BAZAAR:
move out
move nw
move n
move n
move ne
move go path
move se
ECHO *** Arrived Bazaar
Exit

BANK-GEMSHOP:
move out
move e
move n
move n
move go shop
move go room
GoTo ALLGEMSHOP-EMPTY-ALTBAG

BANK-LMITH:
move out
move nw
move w
move w
move w
move w
move w
move n
move n
move go door
ECHO *** Arrived Lock Smith
Exit

BANK-WEAPONS:
move out
move nw
move n
move n
move n
move go weapon
ECHO *** Arrived Milgrem's Weapons
Exit

BANK-FORGE:
move out
move e
move e
move go forge
ECHO *** Arrived Forge
Exit

BANK-MAMAS:
move out
move e
move n
move w
move go build
ECHO *** Arrived Mamas
Exit

BANK-ARMORY:
move out
move nw
move n
move n
move nw
move go armor
ECHO *** Arrived Armory
Exit

BANK-BARDSHOP:
move out
move nw
move w
move w
move n
move n
move go shop
ECHO *** Arrived Bard Shop
Exit

#>>> Bank END <<<
#********************************

#********************************
#>>> Tanner Begin <<<

TANNER:
SetVariable CITY CROSSING
SetVariable ERRORRETURN ERRORTANNER
If_1 GoTo TANNER-%1
ERRORTANNER:
ECHO ~~ You are at Tanner from here you can go to ...
ECHO ~~ BANK
ECHO ~~ NEGATE
ECHO ~~ GHOUSE
ECHO ~~ VAULT
ECHO ~~ WMGUILD
ECHO ***Try again***
Exit

TANNER-BANK:
move out
move e
move s
move s
move e
move e
move s
move s
move s
move s
move s
move s
move se
GoTo INITALLBANKS

TANNER-NEGATE:
move out
move e
move s
move s
move e
move e
move e
move e
move n
move e
move n
move n
move e
move e
move e
move go gate
ECHO *** Arrived North East Gate
Exit

TANNER-GHOUSE:
move out
move e
move s
move s
move w
move w
move go bridge
move w
move w
move w
move w
move go house
ECHO ***Arrived Guard House
Exit

TANNER-VAULT:
move out
move e
move s
move s
move e
move e
move s
move s
move s
move s
move s
move s
SetVariable VAULTLOCATION CROSSINGVAULT
GoTo ENTERVAULT

TANNER-WMGUILD:
move out
move e
move s
move s
move e
move e
move e
move e
move n
move e
move n
move n
move e
move e
move e
move go gate
GoTo NEGATE-WMGUILD

#>>> Tanner END <<<
#********************************

#********************************
#>>> Bazaar Begin <<<

BAZAAR:
SetVariable ERRORRETURN ERRORBAZAAR
SetVariable CITY CROSSING
If_1 GoTo BAZAAR-%1
ERRORBAZAAR:
ECHO ~~ You are at Tanner from here you can go to ...
ECHO ~~ BANK
ECHO ~~ NEGATE
ECHO ~~ GHOUSE
ECHO ~~ VAULT
ECHO ~~ WMGUILD
ECHO ***Try again***
Exit

BAZAAR-BANK:
move go ramp
move s
move s
move go ramp
move w
GoTo INITALLBANKS

BAZAAR-NEGATE:
move go ramp
move s
move s
move go ramp
move e
move e
move n
move n
move n
move ne
move n
move n
move n
move n
move go gate
ECHO *** Arrived Nort East Gate
Exit

BAZAAR-WMGUILD:
move go ramp
move s
move s
move go ramp
move e
move e
move n
move n
move n
move ne
move n
move n
move n
move n
move e
move go gate
GoTo NEGATE-WMGUILD

BAZAAR-GHOUSE:
move go ramp
move s
move s
move go ramp
move w
move nw
move n
move n
move n
move n
move n
move n
move w
move w
move w
move w
move go bridge
move w
move w
move w
move w
move go house
ECHO *** Arrived Guard House
Exit

BAZAAR-VAULT:
move go ramp
move s
move s
move go ramp
move w
move nw
SetVariable VAULTLOCATION CROSSINGVAULT
GoTo ENTERVAULT

#>>> Bazaar END <<<
#********************************

#********************************
#>>> Vault Begin <<<

VAULT:
SetVariable ERRORRETURN ERRORVAULT
SetVariable CITY CROSSING
If_1 GoTo VEXIT-%1
ERRORVAULT:
ECHO
ECHO ~~ You are in your vault in the %CITY from here you can go to...
ECHO
ECHO ~~ BANK
ECHO ~~ NEGATE
ECHO ~~ GHOUSE
ECHO ~~ BAZAAR
ECHO ~~ WMGUILD
ECHO ~~ GEMSHOP
ECHO ~~ PAWN
ECHO ~~ OPTION
ECHO ~~ OGRES
ECHO
ECHO ***Try again***
Exit

VEXIT-BANK:
VEXIT-NEGATE:
VEXIT-GHOUSE:
VEXIT-BAZAAR:
VEXIT-WMGUILD:
VEXIT-GEMSHOP:
VEXIT-PAWN:
VEXIT-OGRES:
put close vault
WaitFor You close the vault
move go door
move go arch
move out
move out
GoTo VAULT-%1

VEXIT-OPTION:
GoTo VOPTION

VAULT-BANK:
move se
GoTo INITALLBANKS

VAULT-OGRES:
move n
move n
move n
move n
move n
move n
GoTo VAULT-OGRES-CONTINUE

VAULT-NEGATE:
move n
move n
move n
move n
move n
move n
move e
move e
move n
move e
move n
move n
move e
move e
move e
move go gate
ECHO *** Arrived North East Gate
Exit

VAULT-GHOUSE:
move n
move n
move n
move n
move n
move n
move w
move w
move w
move w
move go bridge
move w
move w
move w
move w
move go house
ECHO *** Arrived Guard House
Exit

VAULT-BAZAAR:
move n
move n
move ne
move go path
move se
ECHO *** Arrived Bazaar
Exit

VAULT-WMGUILD:
move n
move n
move n
move n
move n
move n
move e
move e
move n
move e
move n
move n
move e
move e
move e
move go gate
GoTo NEGATE-WMGUILD

VAULT-GEMSHOP:
move se
move e
move n
move n
move go shop
move go room
GoTo ALLGEMSHOP-EMPTY-ALTBAG

VAULT-PAWN:
move n
move n
move n
move n
move n
move n
move w
move w
move w
move w
move go bridge
move s
move go shop
ECHO *** Arrived Pawn Shop
Exit

VAULT-CGUILD:
move n
move n
move n
move n
move n
move n
move w
move w
move n
move n
move n
move n
move go guild
move go arch door
move go build
ECHO *** Arrived Cleric Guild
Exit

#>>> Vault END <<<
#********************************

#********************************
#>>> Pawn Begin <<<

PAWN:
SetVariable ERRORRETURN ERRORPAWN
SetVariable CITY CROSSING
If_1 GoTo PAWN-%1
ERRORPAWN:
ECHO ~~ You are at Tanner from here you can go to ...
ECHO ~~ BANK
ECHO ~~ NEGATE
ECHO ~~ GHOUSE
ECHO ~~ BAZAAR
ECHO ~~ WMGUILD
ECHO ***Try again***
Exit

PAWN-BANK:
move out
move n
move e
move e
move e
move e
move e
move s
move s
move s
move s
move s
move s
move se
GoTo INITALLBANKS

PAWN-NEGATE:
move out
move n
move e
move e
move e
move e
move e
move e
move e
move n
move e
move n
move n
move e
move e
move e
move go gate
ECHO *** Arrived North East Gate
Exit

PAWN-GHOUSE:
move out
move n
move w
move w
move w
move w
move go house
ECHO ***Arrived Guard House
Exit

PAWN-BAZAAR:
move out
move n
move e
move e
move e
move e
move e
move e
move s
move s
move go bazaar
move se
ECHO *** Arrived Bazaar
Exit

PAWN-WMGUILD:
move out
move n
move e
move e
move e
move e
move e
move e
move e
move n
move e
move n
move n
move e
move e
move e
move go gate
GoTo NEGATE-WMGUILD

#>>> Pawn END <<<
#********************************

#********************************
#>>> WMTower Begin <<<

WMTOWER:
SetVariable ERRORRETURN ERRORWMTOWER
SetVariable CITY SHARD
If_1 GoTo WMTOWER-DOWN%1
ERRORWMTOWER:
ECHO ~~ You are at WM Tower in Shard, from here you can go to ...
ECHO
ECHO ~~ BANK
ECHO ~~ GEMSHOP
ECHO ~~ SURVIVALSHOP
ECHO ~~ PAWN
ECHO ~~ HOLLOW
ECHO ~~ WATERFALL
ECHO ~~ VAULT
ECHO ~~ EMPATH
ECHO ~~ SBATTLE
ECHO ~~ WBATTLE
ECHO ~~ PAYDEBT
ECHO ~~ GRYPHONS
ECHO ~~ FORTRESS
ECHO
ECHO ***Try again***
Exit

WMTOWER-DOWNWBATTLE:
WMTOWER-DOWNSBATTLE:
WMTOWER-DOWNBANK:
WMTOWER-DOWNGEMSHOP:
WMTOWER-DOWNSURVIVALSHOP:
WMTOWER-DOWNHOLLOW:
WMTOWER-DOWNWATERFALL:
WMTOWER-DOWNVAULT:
WMTOWER-DOWNEMPATH:
WMTOWER-DOWNPAYDEBT:
WMTOWER-DOWNPAWN:
WMTOWER-DOWNGRYPHONS:
WMTOWER-FORTRESS:
move nw
move go win
move e
move d
move d
move d
move out
GoTo WMTOWER-%1

WMTOWER-GRYPHONS:
move sw
move sw
move s
GoTo WMTOWER-GRYPHONS-FINISH

WMTOWER-PAYDEBT:
move sw
move sw
move s
move e
move e
move e
move e
move go bank
SBANKPAYDEBT:
move n
put withdraw 30 silver
Pause
move s
move out
move e
move go bridge
move e
move e
move e
move go arch
move ne
move e
move go entrance
move go passage
put pay 3000
Pause
move w
move n
move w
move sw
move go arch
move w
move w
move go bridge
move w
move w
GoTo INITALLBANKS

WMTOWER-WBATTLE:
move sw
move sw
move s
move climb ladder
move s
ECHO *** Arrived Western Battlements, Shard.
Exit

WMTOWER-SBATTLE:
move sw
move sw
move s
SBATTLE-CONTINUE:
move s
move se
move se
move se
move e
move e
move go bridge
move s
move s
move s
move s
move climb stair
move e
ECHO *** Arrived South Battlements, Shard.
Exit

WMTOWER-VAULT:
move sw
move sw
move s
move e
move e
move e
move e
move e
move go bridge
move e
move e
move e
move n
move ne
move e
move e
move se
move s
move e
move e
move go bridge
move e
move e
move go carousel
GoTo GOARCH

WMTOWER-EMPATH:
move sw
move sw
move s
SSBATTLEMENTS-EMPATH-CONTINUE:
move e
move e
move e
move e
SBANK-EMPATH-PREM:
move out
GRYPHONS-EMPATH-END:
move e
move go bridge
move e
move e
move e
move n
move ne
move e
move n
move go home
move go corridor
move go garden door
move go path
ECHO *** Arrived Premium healer, Shard.
GoTo PREMIUMHEALER

WMTOWER-BANK:
move sw
move sw
move s
move e
move e
move e
move e
GoTo INITALLBANKS

WMTOWER-GEMSHOP:
move ne
move e
move e
VAULTBRANCH-GEMSHOP:
move s
move s
move s
move s
move s
move s
move go door
GoTo ALLGEMSHOP-EMPTY-ALTBAG
Exit

WMTOWER-SURVIVALSHOP:
move ne
move e
move e
move e
move e
move se
move se
move se
move s
move go gate
move e
move e
move e
move e
move e
move e
move go gap
move n
move n
move n
move go gate
move nw
move go path
move ne
move go tree
ECHO *** Arrived Survivalist Shop East of Shard.
Exit

WMTOWER-PAWN:
move sw
move sw
move s
SBANK-PAWNSHOP:
move s
move se
move se
move se
move e
move e
move n
move n
move n
move go door
GoTo END-PAWN-ALL

WMTOWER-HOLLOW:
move sw
move sw
move s
SBANK-HOLLOW-CONTINUE:
move s
move se
move se
move se
move e
move e
SSB-HOLLOW:
move go bridge
move s
move s
move s
move s
move go gate
SHARDSGATE-HOLLOW:
move s
move s
If %1 = "FORT" || %1 = "fort" then GoTo SBANK-FORT-FINISH
move s
move go path
move w
ECHO *** Arrived Hollow, South of Shard.
Exit

WMTOWER-WATERFALL:
move ne
move e
move e
move go gate
move n
move n
move n
move n
move n
move ne
move nw
move nw
move n
move n
move e
move e
move ne
move e
move e
move n
move ne
move ne
move ne
move n
move ne
move ne
move n
move n
move ne
move ne
move n
move n
move ne
move n
move ne
move n
move ne
move e
move ne
move e
move e
move ne
move go path
move nw
move go trail
move ne
move nw
move n
move ne
GoTo WMTOWER-FINISH-%1

WMTOWER-FINISH-FORTRESS:
put recite Neath the depths of darkness I go to 'scape the prying eyes of light under Dragon's Spine I crawl To crawl out from under the Dragon's shadow.
Pause
put echocolumn /new9
Pause
put echocolumn /9 Arrived the Fortress, http://www.elanthipedia.com/wiki/RanikMap64a - Buy cambrinth armbands in Artificer workroom.
Exit

WMTOWER-FINISH-WATERFALL:
move w
move w
move go crev
put echocolumn /new9
Pause
put echocolumn /9 Arrived Under Waterfall, NE of Shard http://www.elanthipedia.com/wiki/RanikMap64
Exit

#>>> WMTower END <<<
#********************************

#********************************
#>>> Survivalist Shop Begin <<<

SURVIVALSHOP:
SetVariable ERRORRETURN ERRORSURVIVALSHOP
SetVariable CITY SHARD
If_1 GoTo SURVIVALSHOP-%1
ERRORSURVIVALSHOP:
ECHO ~~ You are at the Survivalist Shop outside Shard, from here you can go to ...
ECHO ~~ BANK
ECHO ~~ WMTOWER
ECHO ***Try again***
Exit

SURVIVALSHOP-BANK:
move out
move sw
move go path
move se
move go gate
move s
move s
move s
CANYON-FINISH-BANK:
move go gap
move w
move w
move w
move w
move w
move w
move go gate
move s
move sw
move sw
move sw
move w
move w
move w
move w
move nw
move nw
move nw
move n
move e
move e
move e
move e
GoTo INITALLBANKS

SURVIVALSHOP-WMTOWER:
move out
move sw
move go path
move se
move go gate
move s
move s
move s
move go gap
move w
move w
move w
move w
move w
move w
move go gate
move s
move sw
move sw
move sw
move w
move w
move w
move w
move nw
move nw
move nw
move n
move n
move ne
move ne
move go tower
move climb stair
move u
move u
move w
move go win
move se
ECHO *** Arrived Stormwill Tower, South cloud walk, Shard.
Exit

#>>> SURVIVALSHOP END <<<
#********************************

#********************************
#>>> Shard Bank Begin <<<

SBANK:
SetVariable ERRORRETURN ERRORSBANK
SetVariable CITY SHARD
If_1 GoTo SBANKALL-%1
ERRORSBANK:
ECHO ~~ You are at Bank lobby in Shard, from here you can go to ...
ECHO ~~ WMTOWER
ECHO ~~ PAWNSHOP
ECHO ~~ SURVIVALSHOP
ECHO ~~ VAULT
ECHO ~~ SBATTLE
ECHO ~~ PAYDEBT
ECHO ~~ EMPATH
ECHO ~~ GEMSHOP
ECHO ~~ HOLLOW
ECHO ~~ BGUILD
ECHO ~~ GRYPHONS
ECHO ~~ HORSECLAN (gemshop to sell pouches)
ECHO ~~ CANYON (Ranik map 66b, Malchata's)
ECHO ~~ FORT (Gorbesh Fortress South of Shard)
ECHO ***Try again***
Exit

SBANKALL-WMTOWER:
SBANKALL-PAWNSHOP:
SBANKALL-SURVIVALSHOP:
SBANKALL-SBATTLE:
SBANKALL-GEMSHOP:
SBANKALL-HOLLOW:
SBANKALL-BGUILD:
SBANKALL-GRYPHONS:
SBANKALL-HORSECLAN:
SBANKALL-CANYON:
SBANKALL-FORT:
move out
VAULTBRANCH-WMTOWER:
move w
move w
move w
move w
GoTo SBANK-%1

SBANKALL-PAYDEBT:
SBANKALL-VAULT:
SBANKALL-EMPATH:
GoTo SBANK-%1

SBANK-HORSECLAN:
SBANK-GRYPHONS:
WMTOWER-GRYPHONS-FINISH:
put go gate
move e
move w
move w
move w
move w
move w
move nw
move n
move nw
move w
move n
move nw
move n
move nw
move nw
move n
move ne
move ne
move ne
move n
move ne
move n
move nw
move nw
move w
move nw
move w
move w
move sw
move nw
move w
move w
move w
move w
move w
move sw
move nw
move w
move w
move sw
move sw
move nw
move w
move w
move sw
move sw
move nw
move w
move sw
move w
move sw
put climb path
GoTo FINISH-SBANK-%1

FINISH-SBANK-GRYPHONS:
move nw

pause
SetVariable PATTERNHUESRETURN GRYPHONSEND
GoTo PATTERN-HUES-START
GRYPHONSEND:
put echocolumn /new9
Pause
put echocolumn /9 Arrived at the Crystaline Gorge, home of the Gryphons! http://www.elanthipedia.com/wiki/RanikMap141
ECHO
ECHO ~~ b1 to buff and move to combat area
ECHO ~~ b2 to buff only
ECHO ~~ esc to exit
ECHO
ECHO *************************************
Match LAUNCH-CBTBUFF-MOVE b1
Match LAUNCH-CBTBUFF-ONLY b2
Matchwait

LAUNCH-CBTBUFF-MOVE:
put .cbtbuff ES MOF YS SUF SW MOVE-OUT
Exit

LAUNCH-CBTBUFF-ONLY:
put .cbtbuff ES MOF YS SUF SW NO-MOVE
Exit

SBANK-BGUILD:
move n
move ne
move ne
move ne
move e
move e
SNGATE-BGUILD:
move go gate
move n
move n
move n
move n
move n
move ne
move nw
move nw
move n
move n
move e
move e
move ne
move e
move e
move n
move go path
move w
move go bridge
move e
move n
move n
move n
move n
move go ramp
move n
move n
move go door
ECHO *** Arrived Steel Claw Clan, Barbarian Guild, North of Shard.
Exit

SBANK-FORT:
SBANK-HOLLOW:
GoTo SBANK-HOLLOW-CONTINUE #Located in WMTOWER-HOLLOW section

SBANK-FORT-FINISH:
move go trail
move e
move se
move go gate
#$$
exit

SBANK-GEMSHOP:
move n
move ne
move ne
GoTo WMTOWER-GEMSHOP

SBANK-EMPATH:
GoTo SBANK-EMPATH-%CHAR

SBANK-EMPATH-REG:
move out
move e
move go bridge
move e
move e
move e
move n
move ne
move e
move e
move go build
GoTo REGULARHEALER

SBANK-PAYDEBT:
GoTo SBANKPAYDEBT

GFORT-WMTOWER-CONTINUE:
SBANK-WMTOWER:
move n
move ne
move ne
SGEMSHOP-WMTOWER-CONTINUE:
move go tower
move climb stair
move u
move u
move w
move go win
move se
ECHO *** Arrived Stormwill Tower, South cloud walk, Shard.
Exit

SBANK-CANYON:
SBANK-SURVIVALSHOP:
move n
move ne
move ne
move ne
move e
move e
move e
move e
move se
move se
move se
move s
move go gate
move e
move e
move e
move e
move e
move e
move go gap
GoTo SBANK-FINISH-%1

SBANK-FINISH-SURVIVALSHOP:
move n
move n
move n
move go gate
move nw
move go path
move ne
move go tree
ECHO *** Arrived Survivalist Shop outside of Shard.
Exit

SBANK-VAULT:
move out
move e
move go bridge
move e
move e
move e
move n
move ne
move e
SGEMSHOP-VAULT-CONTINUE:
move e
move se
move s
move e
move e
move go bridge
move e
move e
move go door
SetVariable VAULTLOCATION SHARD
GoTo GOARCH

SBANK-SBATTLE:
GoTo SBATTLE-CONTINUE

SBANK-FINISH-CANYON:
move ne
move e
move e
move n
move se
move se
move e
move ne
move e
move e
move e
move ne
move ne
move e
move ne
Pause
ECHO *** You have arrived at the trail head to the canyon where Malchata's roam. ***
ECHO *** Climb the trail to enter, use extreme CAUTION! these critters are nasty! ***
Exit

#>>> Shard Bank END <<<
#********************************

#********************************
#>>> Shard HOLLOW Begin <<<

HOLLOW:
SetVariable ERRORRETURN ERRORHOLLOW
SetVariable CITY SHARD
If_1 GoTo HOLLOW-ALL%1
ERRORHOLLOW:
ECHO ~~ You are at Bank lobby in Shard, from here you can go to ...
ECHO ~~ WMTOWER
ECHO ~~ BANK
ECHO ~~ SBATTLE
ECHO ***Try again***
Exit

HOLLOW-ALLWMTOWER:
HOLLOW-ALLBANK:
HOLLOW-ALLSBATTLE:
move e
move go path
move n
move n
move n
SHARDSGATE-BANK:
SHARDSGATE-WMTOWER:
SHARDSGATE-VAULT:
move go gate
move n
move n
move n
move n
move go square
GoTo HOLLOW-%1

HOLLOW-WMTOWER:
SSBATTLEMENTS-WMTOWER:
SSB-WMTOWER:
Pause
move w
move w
move nw
move nw
move nw
move n
move n
move ne
move ne
move go tower
move climb stair
move u
move u
move w
move go win
move se
ECHO *** Arrived Stormwill Tower, South cloud walk, Shard.
Exit

HOLLOW-BANK:
SSBATTLEMENTS-BANK:
SSB-BANK:
SPAWNBANK-CONTINUE:
Pause
move w
move w
move nw
move nw
move nw
move n
move e
move e
move e
move e
GoTo INITALLBANKS

HOLLOW-SBATTLE:
move climb ladder
move e
ECHO *** Arrived Shard South Battlements

#>>> Hollow END
#********************************

#********************************
#>>> Shard Waterfall Begin <<<

WATERFALL:
SetVariable ERRORRETURN ERRORWATERFALL
SetVariable CITY SHARD
If_1 GoTo WATERFALL-%1
ERRORWATERFALL:
ECHO ~~ You are under the waterfall NE of Shard, from here you can go to ...
ECHO ~~ WMTOWER
ECHO ***Try again***
Exit

WATERFALL-WMTOWER:
move go crack
move e
move e
move sw
move s
move se
move sw
move go trail
move se
move go path
move sw
move w
move w
move sw
move w
move sw
move s
move sw
move s
move sw
move s
move s
move sw
move sw
move s
move s
move sw
move sw
move s
move sw
move sw
move sw
move s
move w
move w
move sw
move w
move w
move s
move s
move se
move se
move sw
move s
move s
move s
move s
move s
move go gate
move w
move w
move sw
move go tower
move climb stair
move u
move u
move w
move go win
move se
ECHO *** Arrived Stormwill Tower, South cloud walk, Shard.
Exit

#>>> Shard Waterfall END <<<
#********************************

#********************************
#>>> Forest Geni's NTR Begin <<<

FORESTGENI:
SetVariable ERRORRETURN ERRORFORESTGENI
SetVariable CITY CROSSING
If_1 GoTo FORESTGENI-SETVARS-%1
ERRORFORESTGENI:
ECHO ~~ You are in the home of Forest Geni's past Leucros and vipers the NTR, from here you can go to ...
ECHO ~~ WMGUILD
ECHO ~~ EMPATH
ECHO ~~ BANK
ECHO ***Try again***
Exit

FORESTGENI-SETVARS-WMGUILD:
SetVariable BLEUCROS-FINISH NEGATE-WMGUILD
GoTo FORESTGENI-TRAV

FORESTGENI-SETVARS-EMPATH:
SetVariable BLEUCROS-FINISH NEGATE-EMPATH
GoTo FORESTGENI-TRAV

FORESTGENI-SETVARS-BANK:
SetVariable BLEUCROS-FINISH NEGATE-BANK
GoTo FORESTGENI-TRAV

GENI-SEARCH-TRAILW:
Pause
GENI-SEARCH-TRAIL:
Match GENI-GO-TRAIL-OUT a faint trail
Matchre GENI-SEARCH-TRAIL /something is here|of interest here/i
Matchre GENI-SEARCH-TRAILW /Sorry,|\.\.\.wait/i
put search
MatchWait

GENI-GO-TRAIL-OUT:
GoSub SUB_RETREAT
move go trail

FORESTGENI-TRAV:
move nw
move n
move e
move e
move e
move e
move ne
move ne
move ne
move nw
move n
move nw
move go dead
move nw
move w
move w
move w
GoTo BLEUCROS-TRAV

#>>> Forest Geni's NTR END <<<
#********************************

#********************************
#>>> Black Leucro's NTR Begin <<<

BLEUCROS:
SetVariable ERRORRETURN ERRORBLEUCROS
SetVariable CITY CROSSING
If_1 GoTo BLEUCROS-SETVARS-%1
ERRORBLEUCROS:
ECHO ~~ You are in Black Leucros on the NTR, from here you can go to ...
ECHO ~~ WMGUILD
ECHO ~~ EMPATH
ECHO ~~ TANNER
ECHO ~~ BANK
ECHO ***Try again***
Exit

BLEUCROS-SETVARS-WMGUILD:
SetVariable BLEUCROS-FINISH NEGATE-WMGUILD
GoTo BLEUCROS-TRAV

BLEUCROS-SETVARS-EMPATH:
SetVariable BLEUCROS-FINISH NEGATE-EMPATH
GoTo BLEUCROS-TRAV

BLEUCROS-SETVARS-TANNER:
SetVariable BLEUCROS-FINISH NEGATE-TANNER
GoTo BLEUCROS-TRAV

BLEUCROS-SETVARS-BANK:
SetVariable BLEUCROS-FINISH NEGATE-BANK
GoTo BLEUCROS-TRAV

BLEUCROS-TRAVW:
Pause
BLEUCROS-TRAV:
Match LEUCROSTRAVTOPATH weathered signpost
Match BLEUCROS-TRAVW ...wait
put nw
MatchWait

LEUCROSTRAVTOPATH:
Pause
move go trail
move n
move n
GOPATHRETURNTRIPW:
Match GOPATHRETURNTRIP [Northern Trade Road, Wooded Valley]
Match SEARCHLEUCROSPATH referring to
Match GOPATHRETURNTRIPW ...wait
put go path
MatchWait

SEARCHLEUCROSPATH:
Matchre LEUCROSGOPATH /obviously attempting to remain hidden|faint path/i
Matchre SEARCHLEUCROSPATH /anything of interest here|animal trail|Sorry,|\.\.\.wait/i
put search
MatchWait

NTR-BLEUCROS-TRAIL-HEAD:
SetVariable BLEUCROS-FINISH NEGATE-BANK
GoTo GOPATHRETURNTRIP

LEUCROSGOPATH:
Pause
move go path
GOPATHRETURNTRIP:
Pause
move sw
move w
move w
move s
move sw
move s
move s
move w
move w
move s
move se
move se
put go gate
move sw
move s
NTRROCKTROLLS-TRAV:
Pause
move go gate
move sw
move s
move s
move s
move s
move s
move s
move w
move w
move w
move sw
move sw
move sw
move s
move s
move s
move se
move se
move s
move s
move se
move sw
move s
move s
move se
move se
move s
move sw
move sw
move s
move s
move s
GoTo %BLEUCROS-FINISH

#>>> Black Leucros NTR END <<<
#********************************

#********************************
#>>> Shard Barbarian Guild begin <<<

SBGUILD:
SetVariable ERRORRETURN ERRORSBGUILD
SetVariable CITY SHARD
If_1 GoTo SBGUILD-ALL%1
ERRORSBGUILD:
ECHO ~~ You are in the Barbarian Guild of the Steel Claw Clan, North of Shard. From here you can go to ...
ECHO ~~ BANK
ECHO ~~ SBATTLE
ECHO ~~ VAULT
ECHO ***Try again***
Exit

SBGUILD-ALLBANK:
SBGUILD-ALLSBATTLE:
SBGUILD-ALLVAULT:
move out
move s
move s
move d
move s
move s
move s
move s
move w
move go gate
move e
move go path
move s
move w
move w
move sw
move w
move w
move s
move s
move se
move se
move sw
move s
move s
move s
move s
move s
move go gate
GoTo SBGUILD-%1

SBGUILD-BANK:
move w
move w
move sw
move sw
move sw
move s
move e
move e
move e
move e
GoTo INITALLBANKS

SBGUILD-SBATTLE:
move e
move e
move se
move se
move se
move s
move s
move sw
move sw
move sw
move w
move w
move climb ladder
move e
ECHO ***Arrived, Shard South Battlements
Exit

SBGUILD-VAULT:
move e
move e
move se
move se
move se
move s
GoTo BGUILD2VAULT-CONTINUE #Located in SSBATTLEMENTS-VAULT:

#>>> Shard Barbarian Guild end <<<
#********************************

#********************************
#>>> Shard Vault begin <<<

SVAULT:
SetVariable ERRORRETURN ERRORSVAULT
SetVariable CITY SHARD
If_1 GoTo SVAULT-ALL%1
ERRORSVAULT:
ECHO ~~ You are in your vault in Shard, from here you can go to ...
ECHO ~~ WMTOWER
ECHO ~~ BANK
ECHO ~~ SBATTLE
ECHO ~~ WBATTLE
ECHO ~~ GEMSHOP
ECHO ~~ OPTION <<< Transfer stuff
ECHO ***Try again***
Exit

SVAULT-ALLOPTION:
GoTo VOPTION

SVAULT-ALLWMTOWER:
SVAULT-ALLBANK:
SVAULT-ALLSBATTLE:
SVAULT-ALLWBATTLE:
SVAULT-ALLGEMSHOP:
put close vault
WaitFor You close the vault
move go door
move go arch
move out
GoTo SVAULT-%1

SVAULT-WMTOWER:
SVAULT-BANK:
SVAULT-WBATTLE:
move w
move go bridge
move w
move w
move w
move n
move nw
QUENTIN-BANK-FINISH:
move w
move w
move sw
move s
move w
move w
move go bridge
move w
move w
GoTo VAULTBRANCH-%1

VAULTBRANCH-BANK:
GoTo INITALLBANKS

VAULTBRANCH-WBATTLE:
move w
move w
move w
move w
move climb ladder
move s
ECHO ***Arrived, Shard West Battlements
Exit

SVAULT-GEMSHOP:
move e
move e
move e
move e
move n
move nw
move nw
move nw
move w
move w
GoTo VAULTBRANCH-%1

SVAULT-SBATTLE:
move e
move e
move e
move e
move s
move sw
move sw
move sw
move w
move w
move climb ladder
move e
ECHO ***Arrived, Shard South Battlements
Exit

#>>> Shard Vault end <<<
#********************************

#********************************
#>>> Shard premium Empath begin <<<

SEMPATH:
SetVariable ERRORRETURN ERRORSEMPATH
SetVariable CITY SHARD
If_1 GoTo SEMPATH-ALL%1
ERRORSEMPATH:
ECHO ~~ You are in the Garden of the Premium Healer in Shard from here you can go to...
ECHO ~~ WMTOWER
ECHO ~~ BANK
ECHO ~~ GEMSHOP
ECHO ***Try again***
Exit

SEMPATH-ALLBANK:
SEMPATH-ALLWMTOWER:
put dance
put stand
move out
move go door
move go corridor
move out
move s
move w
move sw
move s
move w
move w
move go bridge
move w
move w
GoTo SEMPATH-%1

SEMPATH-ALLGEMSHOP:
put dance
put stand
move out
move go door
move go corridor
move out
move go gate
move n
move go door
GoTo ALLGEMSHOP-EMPTY-ALTBAG

SEMPATH-BANK:
GoTo INITALLBANKS

SEMPATH-WMTOWER:
GoTo VAULTBRANCH-WMTOWER

PREMIUMHEALERW:
Pause
PREMIUMHEALER:
Matchre PREMWAITFORPATIENT /(Also\s(here|in the room)).*who is lying down/i
Matchre PREMHEAL /Obvious\s(paths|exits)/i
Match PREMIUMHEALERW /Sorry,|\.\.\.wait/i
put look
MatchWait

PREMWAITFORPATIENT:
Pause 30
GoTo PREMIUMHEALER

PREMHEALW:
Pause
PREMHEAL:
Match WAIT4HEALING You lie down
Match PREMHEALW ...wait
put lie
MatchWait

WAIT4HEALING:
WaitForre /You don't need healing|You sit up|IDLE TOO LONG/i
GoTo PREMIUMHEALLINGDONE

PREMIUMHEALLINGDONEW:
Pause
PREMIUMHEALLINGDONE:
Match LEAVEPREMIUMEMPATH leap to your feet
Match PREMIUMHEALLINGDONEW ...wait
put Dance
MatchWait

LEAVEPREMIUMEMPATHW:
Pause
LEAVEPREMIUMEMPATH:
put dance
move out
move go door
move go corridor
move out
move s
move w
move sw
move s
move w
move w
move go bridge
move w
move w
GoTo INITALLBANKS

#>>> Shard premium Empath end <<<
#********************************

#********************************
#>>> Shard Gem Shop begin <<<

SGEMSHOP:
SetVariable ERRORRETURN ERRORSGEMSHOP
SetVariable CITY SHARD
If_1 GoTo SGEMSHOP-%1
ERRORSGEMSHOP:
ECHO ~~ You are on the Southern Battlements in Shard from here you can go to...
ECHO ~~ WMTOWER
ECHO ~~ BANK
ECHO ~~ EMPATH
ECHO ~~ VAULT
ECHO ~~ SBATTLE
ECHO ***Try again***
Exit

SGEMSHOP-WMTOWER:
move out
move n
move n
move n
move n
move n
move n
move w
move w
move sw
GoTo SGEMSHOP-WMTOWER-CONTINUE #Located in SBANK-WMTOWER: section

SGEMSHOP-BANK:
move out
move s
move go gate
move s
move w
move sw
move s
move w
move w
move go bridge
move w
move w
GoTo INITALLBANKS

SGEMSHOP-EMPATH:
move s
move go gate
move go home
move go corridor
move go garden door
move go path
ECHO *** Arrived Premium healer, Shard.
GoTo PREMIUMHEALER

SGEMSHOP-VAULT:
move out
move s
move go gate
move s
GoTo SGEMSHOP-VAULT-CONTINUE # Located in SBANK-VAULT: section

SGEMSHOP-SBATTLE:
move n
move n
move n
move n
move n
move n
move e
move e
move se
move se
move se
move s
GoTo SVAULT-SBATTLE:

#>>> Shard Gem Shop end <<<
#********************************

#***************************************************************************
#***************************>>> Common Script <<<***************************

ENTERVAULT:
If %roomtitle contains "Rossman's Landing" then GoTo ROSS-VAULT-ENTER
move go square
move go door
GoTo GOARCH
Exit

ROSS-VAULT-ENTER:
GoTo GOARCH

GOARCHW:
Pause
GOARCH:
Match VAULT-TRANSFER The attendant says, "Hey bub, are you
Match RENTGOBANK-%CITY You need to pay
Match GOARCH2 The attendant steps in front of the
Match ARCHOPEN attendant escorts you through
Match GOARCHW ...wait
put go first arch
MatchWait

GOARCH2W
Pause
GOARCH2:
Match GOARCH3 The attendant steps in front of the
Match ARCHOPEN attendant escorts you through
Match GOARCH2W ...wait
put go second arch
MatchWait

GOARCH3W:
Pause
GOARCH3:
Match GOARCH4 The attendant steps in front of the
Match ARCHOPEN attendant escorts you through
Match GOARCH3W ...wait
put go third arch
MatchWait

GOARCH4W:
Pause
GOARCH4:
Matchre WAITFORARCH /The attendant steps in front of the|referring to/i
Match ARCHOPEN attendant escorts you through
Match GOARCH4W ...wait
put go fourth arch
MatchWait

VAULT-TRANSFER:
If %CITY contains "ROSSMANS" then move go office
Else move go desk
put ring bell
WaitFor The clerk says, "Alright, our Moon Mage
move out
Match GOARCH A young Dwarf trots up to you and says,
matchwait

RENTGOBANK-ROSSMANS
ECHO get rent script needed.
exit

RENTGOBANK-CROSSING:
move out
move out
move se
Move go bank
Move go window
GoTo GETRENT

RENTGOBANK-SHARD:
move out
move w
move go bridge
move w
move w
move w
move n
move nw
move w
move w
move sw
move s
move w
move w
move go bridge
move w
move w
move go bank
move n
GoTo GETRENT

RENTGOBANK-RATHA:
move out
move out
move se
move e
move n
move n
move n
move ne
move climb stair
move go door
move go cash
GoTo GETRENT

GETRENT:
Match RENT-EXCHANGE-%CITY 50 silver Dokora
Match RENT-EXCHANGE-%CITY 50 silver lirum
Match GOBACK2VAULT-CROSSING 50 silver kronar
Matchre GETRENT /(Sorry,|\.*wait)/
put withdraw 50 silver
MatchWait

RENT-EXCHANGE-RATHA:
Pause
move go atrium
move go bursar
GoTo EXCHANGE-RENT-RATHA

EXCHANGE-RENT-RATHA:
Pause
put exchange all lir for kron
WaitFor After collecting a reasonable fee, he hands you
move go atruim
move go door
move climb stair
move sw
move s
move s
move s
move w
move nw
move go carousel
move go door
GoTo PAYRENT

RENT-EXCHANGE-SHARD:
Pause
move s
move e
put exchange all dok for kron
WaitFor After collecting a
move w
move out
move e
move go bridge
move e
move e
move e
move n
move ne
move e
move e
move se
move s
move e
move e
move go bridge
move e
move e
move go door
move go desk
GoTo PAYRENT

GOBACK2VAULT-CROSSING:
move out
move out
move nw
move go square
move go door
move go desk
GoTo PAYRENT

PAYRENT:
Match GOVAULT2 You hand the dwarven clerk your payment
Matchre PAYRENT /(Sorry,|\.*wait)/
put pay 5000
MatchWait

GOVAULT2:
move out
GoTo GOARCH

WAITFORARCH:
ECHO *** Waiting for unoccupied vault...
Pause 20
GoTo GOARCH

ARCHOPEN:
save DUMMYVAR
Pause
put pull lever
WaitFor beckoning you to step through
move go door
put open vault
WaitFor The vault opens
ECHO *** You have arrived at your vault in %CITY%...
VOPTION:
ECHO *******************************************
ECHO
ECHO ~~ V1 Store boxes
ECHO ~~ V2 Store pouches
ECHO ~~ V3 Get boxes
ECHO ~~ V4 Get pouches
ECHO ~~ V5 Undress, put armor in vault
ECHO ~~ V6 Dress, get armor from vault
ECHO ~~ V7 Transfer cards to case
ECHO ~~ V8 Dress to teach
ECHO ~~ V9 Undress teaching outfit
ECHO ~~ g1 Go to the Bank
ECHO ~~ g2 Go to Gem Shop
ECHO ~~ g3 Go to WM Guild
ECHO
ECHO ~~ ESC to exit script
ECHO
ECHO *******************************************
Match STOREBOXES V1
Match STOREPOUCHES V2
Match GETBOXES V3
Match GETPOUCHES V4
Match VAULTARMOR%CHAR V5
Match GETARMOR%CHAR V6
Match CARDTRANSFERSTART V7
Match DRESS2TEACH V8
Match UNDRESS-TEACH-OUTFIT V9
Match GO-BANK g1
Match GO-GEMSHOP g2
Match GO-WMGUILD g3
MatchWait

GO-BANK:
put .ct bank
exit

GO-GEMSHOP:
put .ct gemshop
exit

GO-WMGUILD:
put .ct wmguild
exit


# **********************************************
# Start Dress to teach$$$

DRESS2TEACHW:
Pause
DRESS2TEACH:
Pause
put sort automatic HEADTOTOE
Pause
DRESS2TEACH2:
Match REM-SHIELD %SHIELD
Match REM-HEAD %1STHEAD
Match REM-HAND %1STHAND
Match REM-TORSO plate armor
Match REM-CLOAK cloak of midnight black velvet with a skull-shaped clasp
Match REM-BALDRIC baldric embellished with ornate bronze studs and fittings
Match REM-DUFFELBAG duffel bag
Match REM-WARBELT war belt
Match LOOK4-TEACHING-GARB boots
Match DRESS2TEACHW ...wait
put inventory
MatchWait

REM-SHIELD:
SetVariable ITEM2REMOVE %SHIELD
GoTo V-REMOVE2DRESS-TEACH

REM-TORSO:
SetVariable ITEM2REMOVE %1STTORSO
GoTo V-REMOVE2DRESS-TEACH

REM-HEAD:
SetVariable ITEM2REMOVE %1STHEAD
GoTo V-REMOVE2DRESS-TEACH

REM-HAND:
SetVariable ITEM2REMOVE %1STHAND
GoTo V-REMOVE2DRESS-TEACH

REM-CLOAK:
SetVariable ITEM2REMOVE cloak
GoTo V-REMOVE2DRESS-TEACH

REM-BALDRIC:
SetVariable ITEM2REMOVE baldric
GoTo V-REMOVE2DRESS-TEACH

REM-WANDBELT:
SetVariable ITEM2REMOVE wand belt
GoTo V-REMOVE2DRESS-TEACH

REM-DUFFELBAG:
SetVariable ITEM2REMOVE duffel bag
GoTo V-REMOVE2DRESS-TEACH

REM-WARBELT:
SetVariable ITEM2REMOVE war belt
GoTo V-REMOVE2DRESS-TEACH

V-REMOVE2DRESS-TEACHW:
Pause
V-REMOVE2DRESS-TEACH:
Matchre RACK-IT2DRESS-TEACH /You take off|You detach|You remove|off from over your shoulder|off your finger/i
Matchre RACK-IT2DRESS-TEACH /from your (legs|hands|arms)|off your head|work your way out|placing it in your left hand|loosen the straps securing/i
Match V-REMOVE2DRESS-TEACHW ...wait
put remove my %ITEM2REMOVE%
MatchWait

RACK-IT2DRESS-TEACHW:
Pause
RACK-IT2DRESS-TEACH:
Matchre DRESS2TEACH2 /inside a secure vault|in your/i
Match RACK-IT2DRESS-TEACHW ...wait
put put my %ITEM2REMOVE% on rack
MatchWait

LOOK4-TEACHING-GARBW:
Pause
LOOK4-TEACHING-GARB:
Match GET-EARING a warrior mage's earring
Match GET-EYEPATCH a warrior mage's eyepatch
Match GET-SKULLCAP a scholar's skullcap
Match GET-WMRING a platinum ring
Matchre VOPTION /and.*\w+\.|There is nothing on there/i
Match LOOK4-TEACHING-GARBW ...wait
put look in top drawer
MatchWait

GET-EARING:
SetVariable ITEM2GET earring
GoTo GET-TEACHING-GARB

GET-EYEPATCH:
SetVariable ITEM2GET eyepatch
GoTo GET-TEACHING-GARB

GET-SKULLCAP:
SetVariable ITEM2GET skullcap
GoTo GET-TEACHING-GARB

GET-WMRING:
SetVariable ITEM2GET platinum ring
GoTo GET-TEACHING-GARB

GET-TEACHING-GARBW:
Pause
GET-TEACHING-GARB:
Matchre WEAR-TEACHING-GARB /in a secure vault|in your/i
Match GET-TEACHING-GARBW ...wait
put get %ITEM2GET% from top drawer
MatchWait

WEAR-TEACHING-GARBW:
Pause
WEAR-TEACHING-GARB:
Matchre LOOK4-TEACHING-GARB /on your left eye|You put|from your earlobe|You attach|over your shoulder|You put on|onto your finger/i
Match WEAR-TEACHING-GARBW ...wait
put wear my %ITEM2GET%
MatchWait

UNDRESS-TEACH-OUTFITW:
Pause
UNDRESS-TEACH-OUTFIT:
Pause
put sort automatic HEADTOTOE
Pause
UNDRESS-TEACH-OUTFIT2:
Match REM-EARING earring depicting platinum
Match REM-EYEPATCH red eyepatch
Match REM-SKULLCAP scholar's black silken skullcap
Match REM-WMRING platinum ring bearing the crest
Match LOOK4-WAR-GARB boots
Match DRESS2TEACHW ...wait
put inventory
MatchWait

REM-EARING:
SetVariable ITEM2REMOVE earring
GoTo REM-TEACHING-GARB

REM-EYEPATCH:
SetVariable ITEM2REMOVE eyepatch
GoTo REM-TEACHING-GARB

REM-SKULLCAP:
SetVariable ITEM2REMOVE skullcap
GoTo REM-TEACHING-GARB

REM-WMRING:
SetVariable ITEM2REMOVE platinum ring
GoTo REM-TEACHING-GARB

REM-TEACHING-GARBW:
Pause
REM-TEACHING-GARB:
Matchre TOP-DRAWER-IT /You take off|You detach|You remove|off from over your shoulder|off your finger/i
Match REM-TEACHING-GARBW ...wait
put remove my %ITEM2REMOVE%
MatchWait

TOP-DRAWER-ITW:
Pause
TOP-DRAWER-IT:
Matchre UNDRESS-TEACH-OUTFIT2 /inside a secure vault|in your/i
Match TOP-DRAWER-ITW ...wait
put put my %ITEM2REMOVE% in top drawer
MatchWait

LOOK4-WAR-GARBW:
Pause
LOOK4-WAR-GARB:
Match GET-SHIELD %SHIELD
Match GET-HEAD %1STHEAD
Match GET-HAND %1STHAND
Match GET-TORSO plate armor
Match GET-CLOAK enveloping black cloak
Match GET-BALDRIC belted leather baldric
Match GET-DUFFELBAG duffel bag
Match GET-WARBELT war belt
Matchre VOPTION /and.*\w+\.|There is nothing on there/i
Match LOOK4-WAR-GARBW ...wait
put look on rack
MatchWait

GET-SHIELD:
SetVariable ITEM2GET %SHIELD
GoTo GET-WAR-GARB

GET-HEAD:
SetVariable ITEM2GET %1STHEAD
GoTo GET-WAR-GARB

GET-HAND:
SetVariable ITEM2GET %1STHAND
GoTo GET-WAR-GARB

GET-TORSO:
SetVariable ITEM2GET %1STTORSO
GoTo GET-WAR-GARB

GET-CLOAK:
SetVariable ITEM2GET cloak
GoTo GET-WAR-GARB

GET-BALDRIC:
SetVariable ITEM2GET baldric
GoTo GET-WAR-GARB

GET-DUFFELBAG:
SetVariable ITEM2GET duffel bag
GoTo GET-WAR-GARB

GET-WARBELT:
SetVariable ITEM2GET war belt
GoTo GET-WAR-GARB

GET-WAR-GARBW:
Pause
GET-WAR-GARB:
Matchre WEAR-WAR-GARB /from inside|from atop/i
Match GET-WAR-GARBW ...wait
put get %ITEM2GET% from rack
MatchWait

WEAR-WAR-GARBW:
Pause
WEAR-WAR-GARB:
Matchre LOOK4-WAR-GARB /You put|You attach|over your shoulder|You put on|onto your finger/i
Matchre LOOK4-WAR-GARB /you sling|as you slip it on|onto your hands|on your head|work your way into|to your\s(legs|arms)/i
Match WEAR-WAR-GARBW ...wait
put wear my %ITEM2GET%
MatchWait


# **********************************************
# Start Card transfer section

CARDTRANSFERSTARTW:
Pause
CARDTRANSFERSTART:
Match GETCARDCASE you tap
Match VOPTIONCARDEND referring to
Match CARDTRANSFERSTARTW ...wait
put tap card in my %BAG
MatchWait

GETCARDCASEW:
Pause
GETCARDCASE:
Match GETCARD you get
Match GETCARDCASEW ...wait
put get case from bottom drawer
MatchWait

GETCARDW:
Pause
GETCARD:
Match ADDCARD you get
Match PUTCASEINDRAWER referring to
Match GETCARDW ...wait
put get card from my %BAG
MatchWait

ADDCARDW:
Pause
ADDCARD:
Match GETCARD into your case
Match CHUTECARD You don't have room in your case for another card of that type.
Match ADDCARDW ...wait
put card add
MatchWait

CHUTECARDW:
Pause
CHUTECARD:
Match GETCARD you drop
Match CHUTECARDW ...wait
put put my card in chute
MatchWait

PUTCASEINDRAWERW:
Pause
PUTCASEINDRAWER:
Match VOPTIONCARDEND you put
Match PUTCASEINDRAWERW ...wait
put put my case in bottom drawer
MatchWait

VOPTIONCARDEND:
ECHO **** Cards Transfered ****
GoTo VOPTION

# End Card transfer section
# **********************************************

STOREBOXES:
SetVariable TRANSFERDIRECTION TOSHELF
GoTo SETBOX%CHAR

GETBOXES:
SetVariable TRANSFERDIRECTION TOCONTAINER
GoTo SETBOX2%CHAR

STOREPOUCHES:
SetVariable TRANSFERDIRECTION TOSHELF
GoTo SETPOUCH%CHAR

GETPOUCHES:
SetVariable TRANSFERDIRECTION TOCONTAINER
GoTo SETPOUCH2%CHAR

SETPOUCHPREM:
SetVariable WHERE2GETIT my %ALTBAG
SetVariable WHERE2LOOK rummage /C pouch %ALTBAG
SetVariable BOXDEST in middle drawer
GoTo LOOK4POUCH

SETPOUCHREG:
SetVariable WHERE2GETIT my %CONTAINER
SetVariable WHERE2LOOK rummage /C pouch %CONTAINER
SetVariable BOXDEST on shelf
GoTo LOOK4POUCH

SETPOUCH2PREM:
SetVariable WHERE2GETIT middle drawer
SetVariable WHERE2LOOK look in middle drawer
SetVariable BOXDEST in %CONTAINER
GoTo LOOK4POUCH

SETPOUCH2REG:
SetVariable WHERE2GETIT shelf
SetVariable WHERE2LOOK look on shelf
SetVariable BOXDEST in %CONTAINER
GoTo LOOK4POUCH

SETBOXREG:
SetVariable WHERE2GETIT %CONTAINER
SetVariable WHERE2LOOK rummage /b %CONTAINER
SetVariable BOXDEST on shelf
GoTo LOOK4BOX

SETBOXPREM:
SetVariable WHERE2GETIT %CONTAINER
SetVariable WHERE2LOOK rummage /b %CONTAINER
SetVariable BOXDEST on small shelf
GoTo LOOK4BOX

SETBOX2REG:
SetVariable WHERE2GETIT shelf
SetVariable WHERE2LOOK look on shelf
SetVariable BOXDEST in %CONTAINER
GoTo LOOK4BOX

SETBOX2PREM:
SetVariable WHERE2GETIT small shelf
SetVariable WHERE2LOOK look on small shelf
SetVariable BOXDEST in %CONTAINER
GoTo LOOK4BOX

LOOK4BOXW:
Pause
LOOK4BOX:
Match SAVESTRONGBOX strongbox
Match SAVECHEST chest
Match SAVESKIPPET skippet
Match SAVECADDY caddy
Match SAVETRUNK trunk
Match SAVECRATE crate
Match SAVECASKET casket
Match SAVECOFFER coffer
Matchre SAVEBOX /(driftwood|mahogany|pine|wooden|brass|ironwood|copper|iron|steel|deobar|oaken)\sbox/i
Match LOOK4BOXW ...wait
Match VOPTION nothing
put %WHERE2LOOK
MatchWait

LOOK4POUCHW:
Pause
LOOK4POUCH:
ECHO ~~ LOOK4POUCH:
Save pouch
Match OPEN-ALTBAG it's closed
Match %TRANSFERDIRECTION% gem pouch
Match LOOK4POUCHW ...wait
Match CHECK-CONTAINER nothing
pause
put %WHERE2LOOK
MatchWait

CHECK-CONTAINER:
Pause
SetVariable WHERE2LOOK rummage /C pouch my %CONTAINER
SetVariable WHERE2GETIT %CONTAINER
Match %TRANSFERDIRECTION% gem pouch
Match CHECK-CONTAINER ...wait
Match VOPTION nothing
pause
put %WHERE2LOOK
MatchWait

OPEN-ALTBAGW:
Pause
OPEN-ALTBAG:
Matchre LOOK4POUCH /you open|till it opens|already open|quick flick of your wrist|You pry the bony maw/i
Match ECHO-NO-ALTBAG What were you referring to
Matchre OPEN-ALTBAGW /sorry,|\.\.\.wait/i
put open %WHERE2GETIT
MatchWait

ECHO-NO-ALTBAG:
ECHO Can't find %ALTBAG
Exit

SAVESTRONGBOX:
save strongbox
GoTo %TRANSFERDIRECTION

SAVECHEST:
save chest
GoTo %TRANSFERDIRECTION

SAVESKIPPET:
save skippet
GoTo %TRANSFERDIRECTION

SAVECADDY:
save caddy
GoTo %TRANSFERDIRECTION

SAVETRUNK:
save trunk
GoTo %TRANSFERDIRECTION

SAVECRATE:
save crate
GoTo %TRANSFERDIRECTION

SAVECASKET:
save casket
GoTo %TRANSFERDIRECTION

SAVECOFFER:
save coffer
GoTo %TRANSFERDIRECTION

SAVEBOX:
save box
GoTo %TRANSFERDIRECTION

TOSHELF:
SetVariable WHERE2GET get %s from %WHERE2GETIT
SetVariable WHERE2PUT put my %s %BOXDEST
GoTo GET1

TOCONTAINER:
SetVariable WHERE2GET get %s from %WHERE2GETIT
SetVariable WHERE2PUT put my %s in my %CONTAINER
GoTo GET1

GET1W:
Pause
GET1:
Matchre STOREBOX /from inside|You are already holding that|from atop/i
Match LOOK4BOX What were you referring to
Match GET1W ...wait
put %WHERE2GET
MatchWait

STOREBOXW:
Pause
STOREBOX:
Matchre SWITCH-CONTAINER /no matter how you arrange|can't fit|too long to fit|any more room/i
Matchre GET1 /inside a secure vault|in your/i
Match STOREBOXW ...wait
put %WHERE2PUT
MatchWait

SWITCH-CONTAINER:
SetVariable ITEM2BAG %s
SetVariable GO2BAG %ALTBAG%
SetVariable BAGITRETURN GET1
GoTo BAGIT

#***********************************************
# Banking common section

INITALLBANKS:
move go bank
INITBANKRATHA:
INITBANKROSSMANS:
GoTo EXCHANGESET-%CITY

EXCHANGESET-CROSSING:
SetVariable COIN1 lirum
SetVariable COIN2 dokora
SetVariable COIN3 kronar
GoTo COINCHECK

EXCHANGESET-ROSSMANS:
EXCHANGESET-RATHA:
EXCHANGESET-RIVERHAVEN:
SetVariable COIN1 kronar
SetVariable COIN2 dokora
SetVariable COIN3 lirum
GoTo COINCHECK

EXCHANGESET-SHARD:
SetVariable COIN1 lirum
SetVariable COIN2 kronar
SetVariable COIN3 dokora
GoTo COINCHECK

COINCHECKW:
Pause
COINCHECK:
Match BANKEND Debt:
Matchre EXCHANGECHECK1 /\d+.*(?:Lirums|Dokoras|Kronars)/i
Match COINCHECKW ...wait
put info
MatchWait

EXCHANGECHECK1:
Match EXCHANGECHECK2 But you don't have that much
Match MOVE2EXCHANGE-%CITY who you are referring to
Match EXCHANGECHECK1 ...wait
put tip z101z 10 %COIN1
MatchWait

EXCHANGECHECK2:
Match DEPOSITEONLY-%CITY But you don't have that much
Match MOVE2EXCHANGE-%CITY who you are referring to
Match EXCHANGECHECK2 ...wait
put tip z101z 10 %COIN2
MatchWait

MOVE2EXCHANGE-ROSSMANS:
Pause
move go booth
GoTo EXCHANGE1

MOVE2EXCHANGE-RATHA:
Pause
move go burs
GoTo EXCHANGE1

MOVE2EXCHANGE-CROSSING:
Pause
move go booth
GoTo EXCHANGE1

MOVE2EXCHANGE-RIVERHAVEN:
Pause
move go arch
move go door
GoTo EXCHANGE1

MOVE2EXCHANGE-SHARD:
Pause
move e
GoTo EXCHANGE1

EXCHANGE1W:
Pause
EXCHANGE1:
Matchre EXCHANGE2 /You hand your|isn't worth my time|have any %COIN1%/i
Match EXCHANGE1W ...wait
put exchange all %COIN1% for %COIN3%
MatchWait

EXCHANGE2W:
Pause
EXCHANGE2:
Matchre MOVE2DEPOSITE-%CITY /You hand your|isn't worth my time|have any %COIN2%/i
Match EXCHANGE2W ...wait
put exchange all %COIN2% for %COIN3%
MatchWait

MOVE2DEPOSITE-ROSSMANS:
Pause
move out
DEPOSITEONLY-ROSSMANS:
put deposite all lirum
WaitFor If you would still like to deposit that, just ask me again
put deposite all lirum
Pause
put balance
Pause
GoTo BANKEND

MOVE2DEPOSITE-RATHA:
Pause
move go atrium
DEPOSITEONLY-RATHA:
move go cash
Pause
put deposite all
put bal
Pause
move go atrium
GoTo BANKEND

MOVE2DEPOSITE-CROSSING:
Pause
move out
DEPOSITEONLY-CROSSING:
Pause
move go win
Pause
put deposite all
put bal
Pause
move out
GoTo BANKEND

DEPOSITEONLY-RIVERHAVEN:
Pause
move go arch
Pause
put deposite all
put bal
Pause
move go arch
GoTo BANKEND

MOVE2DEPOSITE-RIVERHAVEN:
Pause
move go door
Pause
put deposite all
put bal
Pause
move go arch
GoTo BANKEND

MOVE2DEPOSITE-SHARD:
Pause
move w
DEPOSITEONLY-SHARD:
Pause
move n
put dep all
put bal
Pause
move s
GoTo BANKEND

BANKEND:
If %2 = "HUNTPECCS" then put .ct peccs HUNTPECCS
ECHO *** At %CITY% bank lobby, all coin deposited.
Exit

GETCOIN4EMPATH:
move go bank
move go win
Pause
put withdraw 2 gold kronar
Pause
move out
move out
move nw
move n
move n
move n
move n
move n
move n
move e
move e
move n
move go door
Pause
put give %2 2 gold kronar
Pause
GoTo EMPACTFINAL%CHAR

EMPACTFINALREG:
put shake hand %2
put hug %2
pause
put
put say }%2 /kindly Thank you again!
pause
ECHO *** At %CITY% Empath guild %2 paid 2 gold for services ***
Exit

EMPACTFINALPREM:
put shake hand %2
put say }%2 /quietly Thanks again, may Kertigen's blessings be upon you.
pause
ECHO *** At %CITY% Empath guild %2 paid 2 gold for services ***
Exit

# End Banking common section
# End Banking common section
#***********************************************
#***********************************************

SETCHARREG:
SetVariable DUMMY %CHARCHECKRETURN
SetVariable CHARCHECKRETURN REGULAR%DUMMY
GoTo %CHARCHECKRETURN

SETCHARPREM:
SetVariable DUMMY %CHARCHECKRETURN
SetVariable CHARCHECKRETURN PREMIUM%DUMMY
GoTo %CHARCHECKRETURN

RATHA-HEALERW:
Pause
RATHA-HEALER:
Matchre RATHAWAITFORPATIENT /Also in the room:.*who is lying down/i
Match GETRATHAHEALED Obvious exits
Match REGULARHEALERW ...wait
put look
MatchWait

RATHAWAITFORPATIENT:
Pause 30
GoTo RATHA-HEALER

GETRATHAHEALEDW:
Pause
GETRATHAHEALED:
Match WAIT4RATHAHEALING You lie down
Match GETRATHAHEALEDW ...wait
put lie
MatchWait

WAIT4RATHAHEALING:
WaitForre /You don't need healing|you don't really need healing|You sit up|IDLE TOO LONG/i
Pause
put stand
Pause
move go dispensary
move w
move out
GoTo RAEMPATH-BANK

REGULARHEALERW:
Pause
REGULARHEALER:
Matchre WAITFORPATIENT /Also in the room:.*who is lying down/i
Match GETQUENTINHEALED Obvious exits: out
Match REGULARHEALERW ...wait
put look
MatchWait

WAITFORPATIENT:
Pause 30
GoTo REGULARHEALER

GETQUENTINHEALEDW:
Pause
GETQUENTINHEALED:
Match WAIT4REGULARHEALING You lie down
Match REGULARHEALERW ...wait
put lie
MatchWait

WAIT4REGULARHEALING:
WaitForre /You don't need healing|you don't really need healing|You sit up|IDLE TOO LONG/i

Match LEAVEREGULAREMPATH leap to your feet
Match REGULARHEALLINGDONEW ...wait
put Dance
MatchWait

REGULARHEALLINGDONEW:
Pause
REGULARHEALLINGDONE:
Match LEAVEREGULAREMPATH leap to your feet
Match REGULARHEALLINGDONEW ...wait
put Dance
MatchWait

LEAVEREGULAREMPATH:
put dance
move out
GoTo QUENTIN-BANK-FINISH

#**********************************************************
#**********************************************************
# START Sell huge/massive gems, bars and nuggets stored in %ALTBAG%

ALLGEMSHOP-EMPTY-ALTBAG:
GoTo GS-OPENGO2BAG

GS-OPENGO2BAGW:
Pause 1
GS-OPENGO2BAG:
Matchre CHK-ALTBAG4GEMS /you open|till it opens|already open|quick flick of your wrist/i
Match STOWITEM2BAG referring to
Match GS-OPENGO2BAGW ...wait
put open my %ALTBAG%
MatchWait

CHK-ALTBAG4GEMSW:
Pause
CHK-ALTBAG4GEMS:
Matchre GS-SET-BAR /\bbar\b/i
Matchre GS-SET-NUG /\bnugget\b/i
Matchre GS-SET-DIOP /\bdiopside\b/i
Matchre GS-SET-CRYSTAL /\bcrystal\b/i
Matchre GS-SET-TOPAZ /\btopaz\b/i
Match GS-CHK-POUCHES nothing in there like that
Match CHK-ALTBAG4GEMSW ...wait
put rummage /G my %ALTBAG%
MatchWait

GS-SET-BAR:
SetVariable GEM2SELL bar
GoTo GET-GEM

GS-SET-NUG:
SetVariable GEM2SELL nugget
GoTo GET-GEM

GS-SET-DIOP:
SetVariable GEM2SELL diopside
GoTo GET-GEM

GS-SET-CRYSTAL:
SetVariable GEM2SELL crystal
GoTo GET-GEM

GS-SET-TOPAZ:
SetVariable GEM2SELL topaz
GoTo GET-GEM

GET-GEMW:
pause
GET-GEM:
Match SELL-GEM from inside
Match CHK-ALTBAG4GEMS referring to
Match GET-GEMW ...wait
put get %GEM2SELL%
MatchWait

SELL-GEM:
Match GET-GEM hands you
Match SELL-GEMW ...wait
put sell my %GEM2SELL%
MatchWait

GS-CHK-POUCHESW:
Pause
GS-CHK-POUCHES:
Matchre GET-1-POUCH /gem pouch.*gem pouch.*gem pouch.*gem pouch.*gem pouch.*gem pouch.*gem pouch.*gem pouch.*gem pouch.*/i
Matchre GET-2-POUCH /gem pouch.*gem pouch.*gem pouch.*gem pouch.*gem pouch.*gem pouch.*gem pouch.*gem pouch/i
Matchre GET-3-POUCH /gem pouch.*gem pouch.*gem pouch.*gem pouch.*gem pouch.*gem pouch.*gem pouch/i
Matchre GET-4-POUCH /gem pouch.*gem pouch.*gem pouch.*gem pouch.*gem pouch.*gem pouch/i
Matchre GET-5-POUCH /gem pouch.*gem pouch.*gem pouch.*gem pouch.*gem pouch/i
Matchre GET-6-POUCH /gem pouch.*gem pouch.*gem pouch.*gem pouch/i
Matchre GET-7-POUCH /gem pouch.*gem pouch.*gem pouch/i
Matchre GET-8-POUCH /gem pouch.*gem pouch/i
Matchre GET-9-POUCH /gem pouch/i
Matchre GET-10-POUCH /\b\./
Match GS-GET-POUCH referring to
Match GS-SELL-DONE You tap
Match GS-CHK-POUCHES ...wait
put look in my %SHEATHE%
MatchWait

GET-10-POUCH:
If exists %JEWLER-NAME then GoSub SUB_GS-GET-POUCH
Else GoSub SUB_GET-JEWLER-NAME
GET-9-POUCH:
If exists %JEWLER-NAME then GoSub SUB_GS-GET-POUCH
Else GoSub SUB_GET-JEWLER-NAME
GET-8-POUCH:
If exists %JEWLER-NAME then GoSub SUB_GS-GET-POUCH
Else GoSub SUB_GET-JEWLER-NAME
GET-7-POUCH:
If exists %JEWLER-NAME then GoSub SUB_GS-GET-POUCH
Else GoSub SUB_GET-JEWLER-NAME
GET-6-POUCH:
If exists %JEWLER-NAME then GoSub SUB_GS-GET-POUCH
Else GoSub SUB_GET-JEWLER-NAME
GET-5-POUCH:
If exists %JEWLER-NAME then GoSub SUB_GS-GET-POUCH
Else GoSub SUB_GET-JEWLER-NAME
GET-4-POUCH:
If exists %JEWLER-NAME then GoSub SUB_GS-GET-POUCH
Else GoSub SUB_GET-JEWLER-NAME
GET-3-POUCH:
If exists %JEWLER-NAME then GoSub SUB_GS-GET-POUCH
Else GoSub SUB_GET-JEWLER-NAME
GET-2-POUCH:
If exists %JEWLER-NAME then GoSub SUB_GS-GET-POUCH
Else GoSub SUB_GET-JEWLER-NAME
GET-1-POUCH:
If exists %JEWLER-NAME then GoSub SUB_GS-GET-POUCH
Else GoSub SUB_GET-JEWLER-NAME
GoTo GS-SELL-DONE

SUB_GET-JEWLER-NAME:
If %roomobjects contains "Veilex" then SetVariable JEWLER-NAME Veilex
If %roomobjects contains "Fatimi" then SetVariable JEWLER-NAME Fatimi
If %roomobjects contains "appraiser" then SetVariable JEWLER-NAME Appraiser
GoSub SUB_GS-GET-POUCH
return

SUB_GS-GET-POUCHW:
Pause
SUB_GS-GET-POUCH:
Match SUB_GS-GET-POUCH-RETURN hands you
Match SUB_GS-GET-POUCHW ...wait
put ask %JEWLER-NAME% for gem pouch
MatchWait

SUB_GS-GET-POUCH-RETURN:
GoSub SUB_GS-STORE-POUCH
return

SUB_GS-STORE-POUCHW:
Pause
SUB_GS-STORE-POUCH:
Match SUB_GS-STORE-POUCH-RETURN You put your pouch in your
Match SUB_GS-STORE-POUCHW ...wait
put put my pouch in my %SHEATHE%
MatchWait

SUB_GS-STORE-POUCH-RETURN:
return

GS-SELL-DONE:
DeleteVariable JEWLER-NAME
ECHO ~~ You have arrived at the gemshop in %CITY% and sold all huge/massive gems that were in your %ALTBAG%.
ECHO ~~ You are also stocked up on empty gem pouches, you have at lease 10 in your %SHEATHE%.
Exit

# END Sell huge/massive gems, bars and nuggets stored in %ALTBAG%
#**********************************************************
#**********************************************************


#**********************************************************
#**********************************************************
# START Pawn items section

END-PAWN-ALL:
ECHO *** Arrived %CITY% Pawn Shop.
ECHO
ECHO ~~ s1 sell runestones
ECHO ~~ s2 sell rings (eyebrow, nose, ear)
ECHO ~~ esc key to exit
ECHO
ECHO **************************************
Match RUNESTONES2SELL s1
Match RINGS2SELL s2
MatchWait

RUNESTONES2SELL:
SetVariable PAWNITEM runestone
GoTo LOOK4PAWN-ITEM

RINGS2SELLW:
Pause
RINGS2SELL:
SetVariable PAWNITEM ring
GoTo LOOK4PAWN-ITEM

LOOK4PAWN-ITEMW:
Pause
LOOK4PAWN-ITEM:
Match GET-PAWN-ITEM similar to "%PAWNITEM%" and see
Match END-PAWN-ALL but there is nothing in there like that
Match LOOK4PAWN-ITEMW ...wait
put rummage /C %PAWNITEM% my %BAG
MatchWait

GET-PAWN-ITEMW:
Pause
GET-PAWN-ITEM:
Match PAWN-IT from inside your
Match END-PAWN-ALL referring to
Match GET-PAWN-ITEMW ...wait
put get %PAWNITEM from my %BAG
MatchWait

PAWN-ITW:
Pause
PAWN-IT:
Match GET-PAWN-ITEM hands you
Match PAWN-ITW ...wait
put sell %PAWNITEM
MatchWait


#**************************************************************************************
# SUB_EMPTYHANDS
# EG.
# GoSub SUB_EMPTYHANDS
# [Next Statement]
#**************************************************************************************

SUB_EMPTYHANDS:
If %lhand = "Empty" && %rhand = "Empty" then return
If $1 = "LEFT" && %lhand = "Empty" then return
If $1 = "RIGHT" && %rhand = "Empty" then return
If $1 = "LEFT" then GoTo EMPTY-LHAND-ONLY
If $1 = "RIGHT" then GoTo EMPTY-RHAND-ONLY
If %rhand contains "origami" || %lhand contains "origami" then GoTo BAG-ORIGAMITHING
If %lhand Contains %WHALBERD || %rhand Contains %WHALBERD then GoTo WEARINITWHALBERD
If %rhand contains %SHIELD || %lhand contains %SHIELD then GoTo EH-WEAR-SHIELD
If %rhand contains %W2HE || %rhand contains %WHE || %rhand contains %WME || %rhand contains %WLE then GoTo SETSHEATHINITR
If %rhand contains %W2HB || %rhand contains %WHB || %rhand contains %WMB || %rhand contains %WLB then GoTo SETSHEATHINITR
If %rhand contains %WHT || %rhand contains %WLT || %rhand contains %WSLING || %rhand contains %WSSLING then GoTo SETSHEATHINITR
If %rhand contains %WPIKE || %rhand contains %WSS || %rhand contains %WQS then GoTo SETSHEATHINITR
If %rhand contains %WCBOW || %rhand contains %WLBOW|| %rhand contains %WSBOW then GoTo SETSHEATHINITR
If %rhand contains %WHX || %rhand contains %WLX then GoTo SETSHEATHINITR
If %lhand contains %W2HE || %lhand contains %WHE || %lhand contains %WME || %lhand contains %WLE then GoTo SETSHEATHINITL
If %lhand contains %W2HB || %lhand contains %WHB || %lhand contains %WMB || %lhand contains %WLB then GoTo SETSHEATHINITL
If %lhand contains %WHT || %lhand contains %WLT || %lhand contains %WSLING || %lhand contains %WSSLING then GoTo SETSHEATHINITL
If %lhand contains %WPIKE || %lhand contains %WSS || %lhand contains %WQS then GoTo SETSHEATHINITL
If %lhand contains %WCBOW || %lhand contains %WLBOW || %lhand contains %WSBOW then GoTo SETSHEATHINITL
If %lhand contains %WHX || %lhand contains %WLX then GoTo SETSHEATHINITL
If %lhand contains "arrow" || %rhand contains "arrow" then GoTo SET-ITEM-ARROW
If %lhand contains "quadrello" || %rhand contains "quadrello" then GoTo SET-ITEM-QUADRELLO
If %rhand != "Empty" then GoTo INITSTOWR
If %lhand != "Empty" then GoTo INITSTOWL
return

EMPTY-LHAND-ONLY:
If %lhand contains "origami" then GoTo BAG-ORIGAMITHING
If %lhand Contains %WHALBERD then GoTo WEARINITWHALBERD
If %lhand contains %SHIELD then GoTo EH-WEAR-SHIELD
If %lhand contains %W2HE || %lhand contains %WHE || %lhand contains %WME || %lhand contains %WLE then GoTo SETSHEATHINITL
If %lhand contains %W2HB || %lhand contains %WHB || %lhand contains %WMB || %lhand contains %WLB then GoTo SETSHEATHINITL
If %lhand contains %WHT || %lhand contains %WLT || %lhand contains %WSLING || %lhand contains %WSSLING then GoTo SETSHEATHINITL
If %lhand contains %WPIKE || %lhand contains %WSS || %lhand contains %WQS then GoTo SETSHEATHINITL
If %lhand contains %WCBOW || %lhand contains %WLBOW || %lhand contains %WSBOW then GoTo SETSHEATHINITL
If %lhand contains %WHX || %lhand contains %WLX then GoTo SETSHEATHINITL
If %lhand contains "arrow" then GoTo SET-ITEM-ARROW
If %lhand contains "quadrello" then GoTo SET-ITEM-QUADRELLO
If %lhand != "Empty" then GoTo INITSTOWL
return

EMPTY-RHAND-ONLY:
If %rhand contains "origami" then GoTo BAG-ORIGAMITHING
If %rhand Contains %WHALBERD then GoTo WEARINITWHALBERD
If %rhand contains %SHIELD || %lhand contains %SHIELD then GoTo EH-WEAR-SHIELD
If %rhand contains %W2HE || %rhand contains %WHE || %rhand contains %WME || %rhand contains %WLE then GoTo SETSHEATHINITR
If %rhand contains %W2HB || %rhand contains %WHB || %rhand contains %WMB || %rhand contains %WLB then GoTo SETSHEATHINITR
If %rhand contains %WHT || %rhand contains %WLT || %rhand contains %WSLING || %rhand contains %WSSLING then GoTo SETSHEATHINITR
If %rhand contains %WPIKE || %rhand contains %WSS || %rhand contains %WQS then GoTo SETSHEATHINITR
If %rhand contains %WCBOW || %rhand contains %WLBOW|| %rhand contains %WSBOW then GoTo SETSHEATHINITR
If %rhand contains %WHX || %rhand contains %WLX then GoTo SETSHEATHINITR
If %rhand contains "arrow" then GoTo SET-ITEM-ARROW
If %rhand contains "quadrello" then GoTo SET-ITEM-QUADRELLO
If %rhand != "Empty" then GoTo INITSTOWR
return

EH-WEAR-SHIELD:
SetVariable SHIELDLOCATION SHINHAND
SetVariable MOVESHIELDRETURN SUB_EMPTYHANDS
SetVariable DUMMY %SHIELDLOCATION%-SH2SHOULDER
GoTo %DUMMY%

SETSHEATHINITR:
SetVariable HAND2SHEATH right
GoTo SHEATHINIT

SETSHEATHINITL:
SetVariable HAND2SHEATH left
GoTo SHEATHINIT

SHEATHINITW:
Pause
SHEATHINIT:
Match EMPTYHANDSUNLOAD You should unload
Matchre SHEATH2CONTAINER /no matter how you arrange|You can't fit|too long to fit|There isn't any more room/
Match SUB_EMPTYHANDS You sheathe
Matchre SHEATHINITW /Sorry,|\.\.\.wait/i
put sheathe %HAND2SHEATH%
MatchWait 5
ECHO Failure in match for SHEATHINIT, exiting for safety!
put exit
put exit
Exit

EMPTYHANDSUNLOADW:
Pause
EMPTYHANDSUNLOAD:
Matchre SUB_EMPTYHANDS /falls|drops/i
Match SUB_EMPTYHANDS You unload
Matchre EMPTYHANDSUNLOADW /Sorry,|\.\.\.wait/i
put unload
MatchWait 5
ECHO Failure in match for EMPTYHANDSUNLOAD, exiting for safety!
put exit
put exit
Exit

SET-ITEM-ARROW:
SetVariable ITEM2QUIV arrow
GoTo EQUIVARROW

SET-ITEM-QUADRELLO:
SetVariable ITEM2QUIV quadrello
GoTo EQUIVARROW

EQUIVARROWW:
Pause
EQUIVARROW:
Matchre SUB_EMPTYHANDS /You put your.*%QUIVER/i
Matchre EQUIVARROWW /Sorry,|\.\.\.wait/i
put stow %ITEM2QUIV
MatchWait 5
ECHO Failure in match for EQUIVARROW, exiting for safety!
put exit
put exit
Exit

SHEATH2CONTAINERW:
Pause
SHEATH2CONTAINER:
Match SUB_EMPTYHANDS You sheathe
Matchre SHEATH2CONTAINERW /Sorry,|\.\.\.wait/i
put sheathe %HAND2SHEATH% in %CONTAINER%
MatchWait 5
ECHO Failure in match for SHEATH2CONTAINER, exiting for safety!
put exit
put exit
Exit

WEARINITWHALBERDW:
Pause
WEARINITWHALBERD:
Match SUB_EMPTYHANDS over your shoulder
Matchre WEARINITWHALBERDW /Sorry,|\.\.\.wait/i
put wear my %WHALBERD%
MatchWait 5
ECHO Failure in match for WEARINITWHALBERD, exiting for safety!
put exit
put exit
Exit

INITSTOWR:
SetVariable ITEM2BAG %rhand
SetVariable GO2BAG %CONTAINER%
GoSub SUB_BAGIT
GoTo SUB_EMPTYHANDS

INITSTOWL:
SetVariable ITEM2BAG %lhand
SetVariable GO2BAG %CONTAINER%
GoSub SUB_BAGIT
GoTo SUB_EMPTYHANDS

BAG-ORIGAMITHING:
SetVariable ITEM2BAG %ORIGAMITHING
SetVariable GO2BAG %CONTAINER%
GoSub SUB_BAGIT
GoTo SUB_EMPTYHANDS

# END SUB_EMPTYHANDS
#**************************************************************************************
#**************************************************************************************



#BEGIN Vault armor section
#********************************************************************
VAULTARMORPREMW:
Pause
VAULTARMORPREM:
Match REMOVERANGEDHAND %RANGEDHAND
Match REMOVERANGEDHEAD %RANGEDHEAD
Match REMOVERANGEDTORSO %RANGEDTORSO
Match REMOVE1STTORSO plate armor
Match REMOVE1STHAND %1STHAND
Match REMOVE1STHEAD %1STHEAD
Match REMOVE2NDTORSO %2NDTORSO
Match REMOVE2NDHEAD %2NDHEAD
Match REMOVE2NDARM %2NDARM
Match REMOVE2NDLEG %2NDLEG
Match REMOVE2NDHAND %2NDHAND
Match REMOVESHIELD %SHIELD
Match VOPTION You have nothing of that sort
Match VAULTARMORPREMW ...wait
put inventory armor
MatchWait

VAULTARMORREGW:
Pause
VAULTARMORREG:
Match REMOVERANGEDHAND %RANGEDHAND
Match REMOVERANGEDHEAD %RANGEDHEAD
Match REMOVERANGEDTORSO %RANGEDTORSO
Match REMOVE1STTORSO %1STTORSO
Match REMOVE1STHAND %1STHAND
Match REMOVE1STHEAD %1STHEAD
Match REMOVE2NDTORSO %2NDTORSO
Match REMOVE2NDHEAD %2NDHEAD
Match REMOVE2NDARM %2NDARM
Match REMOVE2NDLEG %2NDLEG
Match REMOVE2NDHAND %2NDHAND
Match REMOVESHIELD %SHIELD
Match VOPTION You have nothing of that sort
Match VAULTARMORREGW ...wait
put inventory armor
MatchWait

REMOVERANGEDTORSO:
SetVariable ITEM2REMOVE %RANGEDTORSO
GoTo REMOVEITEM

REMOVERANGEDHEAD:
SetVariable ITEM2REMOVE %RANGEDHEAD
GoTo REMOVEITEM

REMOVERANGEDHAND:
SetVariable ITEM2REMOVE %RANGEDHAND
GoTo REMOVEITEM

REMOVE2NDARM:
SetVariable ITEM2REMOVE %2NDARM
GoTo REMOVEITEM

REMOVE2NDLEG:
SetVariable ITEM2REMOVE %2NDLEG
GoTo REMOVEITEM

REMOVE2NDHAND:
SetVariable ITEM2REMOVE %2NDHAND
GoTo REMOVEITEM

REMOVE2NDHEAD:
SetVariable ITEM2REMOVE %2NDHEAD
GoTo REMOVEITEM

REMOVE2NDTORSO:
SetVariable ITEM2REMOVE %2NDTORSO
GoTo REMOVEITEM

REMOVE1STTORSO:
SetVariable ITEM2REMOVE %1STTORSO
GoTo REMOVEITEM

REMOVE1STHEAD:
SetVariable ITEM2REMOVE %1STHEAD
GoTo REMOVEITEM

REMOVE1STHAND:
SetVariable ITEM2REMOVE %1STHAND
GoTo REMOVEITEM

REMOVESHIELD:
SetVariable ITEM2REMOVE %SHIELD
GoTo REMOVEITEM

REMOVEITEMW:
Pause
REMOVEITEM:
Matchre RACKARMOR /from your\s(legs|hands|arms)|off your head|work your way out|placing it in your left hand|loosen the straps securing/i
Match REMOVEITEMW ...wait
put remove my %ITEM2REMOVE
MatchWait

RACKARMORW:
Pause
RACKARMOR:
Match YSARMOR is stopping you from doing that
Match VAULTARMOR%CHAR which is inside a secure vault
Match RACKARMORW ...wait
put put my %ITEM2REMOVE on %SHELFRACK
MatchWait

YSARMOR:
WaitFor to normal
GoTo RACKARMOR

GETARMORPREM:
ECHO
ECHO *** Choose armor to wear...
Pause
ECHO
ECHO ~~ ~~ W1 Plate Armor, %1STHEAD%, %1STHAND%.
ECHO ~~ ~~ W2 %2NDTORSO%, %2NDARM%, %2NDLEG%, %2NDHAND%, %2NDHEAD%.
ECHO ~~ ~~ W3 %RANGEDTORSO%, %RANGEDHEAD%, %RANGEDHAND%.
ECHO
Match ARMOR1PREM w1
Match ARMOR2PREM w2
Match ARMOR3PREM w3
MatchWait

ARMOR1PREM:
SetVariable WEARARMORRETURN ARMOR1PREM
Match WEARTORSOPLATE plate armor
Match WEARHEADPLATE %1STHEAD
Match WEARHANDPLATE %1STHAND
Match WEARSHEILD %SHIELD
Matchre VOPTION /On the wire rack you see.*\./i
put look on %SHELFRACK
MatchWait

ARMOR2PREM:
SetVariable WEARARMORRETURN ARMOR2PREM
Match WEARTORSOMIXED %2NDTORSO
Match WEARARMMIXED %2NDARM
Match WEARLEGMIXED %2NDLEG
Match WEARHANDMIXED %2NDHAND
Match WEARHEADMIXED %2NDHEAD
Match WEARSHEILD %SHIELD
Matchre VOPTION /On the wire rack you see.*\./i
put look on %SHELFRACK
MatchWait

ARMOR3PREM:
SetVariable WEARARMORRETURN ARMOR2PREM
Match WEARTORSORANGED %RANGEDTORSO
Match WEARHEADRANGED %RANGEDHEAD
Match WEARHANDRANGED %RANGEDHAND
Match WEARSHEILD %SHIELD
Matchre VOPTION /On the wire rack you see.*\./i
put look on %SHELFRACK
MatchWait

GETARMORREG:
ECHO
ECHO *** Choose armor to wear...
Pause
ECHO
ECHO ~~ W1 %BONETORSO%, %BONEHEAD%, %BONEHAND%.
ECHO ~~ W2 %2NDTORSO%, %2NDLEG%, %2NDHAND%, %2NDHEAD%.
ECHO ~~ W3 %RANGEDTORSO%, %RANGEDHEAD%, %RANGEDHAND%.
ECHO
Match ARMOR1REG w1
Match ARMOR2REG w2
Match ARMOR3REG w3
MatchWait

ARMOR1REG:
SetVariable WEARARMORRETURN ARMOR1REG
Match WEARTORSOBONE %BONETORSO
Match WEARHEADBONE %BONEHEAD
Match WEARHANDBONE %BONEHAND
Matchre VOPTION /On the large shelf you see*\./i
put look on %SHELFRACK
MatchWait

ARMOR2REG:
SetVariable WEARARMORRETURN ARMOR2REG
Match WEARTORSOMIXED %2NDTORSO
#Match WEARARMMIXED %2NDARM
Match WEARLEGMIXED %2NDLEG
Match WEARHANDMIXED %2NDHAND
Match WEARHEADMIXED %2NDHEAD
Matchre VOPTION /On the large shelf you see*\./i
put look on %SHELFRACK
MatchWait

ARMOR3REG:
SetVariable WEARARMORRETURN ARMOR3REG
Match WEARTORSORANGED %RANGEDTORSO
Match WEARHEADRANGED %RANGEDHEAD
Match WEARHANDRANGED %RANGEDHAND
Match WEARSHEILD %SHIELD
Matchre VOPTION /On the large shelf you see*\./i
put look on %SHELFRACK
MatchWait

WEARTORSORANGED:
SetVariable ITEM2WEAR %RANGEDTORSO
GoTo GETITEM2WEAR

WEARHEADRANGED:
SetVariable ITEM2WEAR %RANGEDHEAD
GoTo GETITEM2WEAR

WEARHANDRANGED:
SetVariable ITEM2WEAR %RANGEDHAND
GoTo GETITEM2WEAR

WEARARMMIXED:
SetVariable ITEM2WEAR %2NDARM
GoTo GETITEM2WEAR

WEARLEGMIXED:
SetVariable ITEM2WEAR %2NDLEG
GoTo GETITEM2WEAR

WEARHANDMIXED:
SetVariable ITEM2WEAR %2NDHAND
GoTo GETITEM2WEAR

WEARHEADMIXED:
SetVariable ITEM2WEAR %2NDHEAD
GoTo GETITEM2WEAR

WEARTORSOMIXED:
SetVariable ITEM2WEAR %2NDTORSO
GoTo GETITEM2WEAR

WEARTORSOPLATE:
SetVariable ITEM2WEAR %1STTORSO
GoTo GETITEM2WEAR

WEARHEADPLATE:
SetVariable ITEM2WEAR %1STHEAD
GoTo GETITEM2WEAR

WEARHANDPLATE:
SetVariable ITEM2WEAR %1STHAND
GoTo GETITEM2WEAR

WEARTORSOBONE:
SetVariable ITEM2WEAR %BONETORSO
GoTo GETITEM2WEAR

WEARHEADBONE:
SetVariable ITEM2WEAR %BONEHEAD
GoTo GETITEM2WEAR

WEARHANDBONE:
SetVariable ITEM2WEAR %BONEHAND
GoTo GETITEM2WEAR

GETITEM2WEARW:
Pause
GETITEM2WEAR:
Match WEARITEM which is in a secure vault
Match GETITEM2WEARW ...wait
put get %ITEM2WEAR from %SHELFRACK
MatchWait

WEARITEMW:
Pause
WEARITEM:
Matchre %WEARARMORRETURN /you sling|as you slip it on|onto your hands|on your head|work your way into|to your\s(legs|arms)/i
Match WEARITEMW ...wait
put wear my %ITEM2WEAR
MatchWait

WEARSHEILD:
put get %SHIELD from %SHELFRACK
WaitFor which is in a secure vault
GoTo WEARLOCATESHIELD

WEARLOCATESHIELDW:
Pause
WEARLOCATESHIELD:
Match SETLOCARM slide your left arm through the straps
Match SETLOCSHOULDER over your shoulder
Match WEARLOCATESHIELDW ...wait
put wear my %SHIELD
MatchWait

SETLOCARM:
SetVariable SHIELDLOCATION SHONARM
GoTo %WEARARMORRETURN

SETLOCSHOULDER:
SetVariable SHIELDLOCATION SHONSHOULDER
GoTo %WEARARMORRETURN


#***************************************************
#***************************************************
#Pattern Hues Section for War Mage.

PATTERN-HUES-START:
GoTo SETHUESCOUNTER

SETHUESCOUNTER:
SetVariable ERRORRETURN PATTERNHUESERROR
SetVariable SS %s
Save %PHCNT
Counter Set %s
Counter Add 1
SetVariable PHCNT %c
Save %SS
#ECHO ~~ SETPATTERNHUES%PHCNT
GoTo SETPATTERNHUES%PHCNT

PATTERNHUESERROR:
#ECHO ~~ PATTERNHUESERROR
SetVariable PHCNT 1
GoTo SETPATTERNHUES%PHCNT

SETPATTERNHUES1:
SetVariable PHCOLOR bright cobalt
GoTo PREPPH

SETPATTERNHUES2:
SetVariable PHCOLOR shadowy ash
GoTo PREPPH

SETPATTERNHUES3:
SetVariable PHCOLOR gleaming ruby
GoTo PREPPH

SETPATTERNHUES4:
SetVariable PHCOLOR glistening sunfire
GoTo PREPPH

SETPATTERNHUES5:
SetVariable PHCOLOR shadowy obsidian
GoTo PREPPH

SETPATTERNHUES6:
SetVariable PHCOLOR sparkling snowflake
GoTo PREPPH

SETPATTERNHUES7:
SetVariable PHCOLOR crystalline emerald
GoTo PREPPH

SETPATTERNHUES8:
SetVariable PHCOLOR translucent gold-flecked
GoTo PREPPH

SETPATTERNHUES9:
SetVariable PHCOLOR shimmering topaz
GoTo PREPPH

SETPATTERNHUES10:
SetVariable PHCOLOR hazy storm
GoTo PREPPH

PREPPHW:
Pause
PREPPH:
Match CASTCANTRIPPH Pattern Hues cantrip
Match STARTREG interferes with your spell preparations
Match PREPPHW ...wait
put prep c p h
MatchWait

CASTCANTRIPPHW:
Pause
CASTCANTRIPPH:
Match PATTERN-HUES-EXIT Roundtime
Match CASTCANTRIPPHW ...wait
put gest %PHCOLOR
MatchWait

PATTERN-HUES-EXIT:
GoTo %PATTERNHUESRETURN

#END Pattern Hues Section for War Mage.
#***************************************************
#***************************************************

#***************************************************
#***************************************************
#Sing/hum section.

CTSINGW:
Pause
CTSING:
Matchre %SINGRETURN% /You begin to hum|You are already/i
Match CTSINGW ...wait
put hum %HUMSTR
MatchWait

#END Sing/hum section.
#***************************************************
#***************************************************

#***************************************************
#***************************************************
# Ice Patch body for dragging section.

# SetVariable IPRETURN
# GoTo IP-BODY2DRAG

IP-BODY2DRAGW:
Pause
IP-BODY2DRAG:
SetVariable STOPSINGRETURN IP-BODY2DRAG
Match STOPSINGING stop playing before you do that
Matchre SPELL-PREP-WAIT /arcane sigil in the air|as you prepare|as you begin to prepare/i
Match IP-BODY2DRAGW ...wait
put prep ip 15
MatchWait

SPELL-PREP-WAITW:
Pause
SPELL-PREP-WAIT:
put Harness 15
Pause
put say }%2 /confidently Gwething to get help to the hollow.
pause
put think Could a Cleric and an Empath come to the Hollow? About 3 rois out and dragging there now.
WaitFor you feel fully prepared
put cast %2
Pause 2
put say /cheerfully Ok, you're iced up and we're ready to go...
pause
put rub fimath
GoTo %IPRETURN%

#END Ice Patch body for dragging section.
#***************************************************
#***************************************************

#***************************************************
#***************************************************
# Stop singing section.

STOPSINGINGW:
Pause
STOPSINGING:
Matchre %STOPSINGRETURN% /You stop|In the name/i
Match STOPSINGINGW ...wait
put stop play
MatchWait

#END Stop singing section.
#***************************************************
#***************************************************

#**************************************************************************************
# SUB_BAGIT
#
# Usage example:
#
# LABEL:
# SetVariable ITEM2BAG [item to put in container]
# SetVariable GO2BAG [container to put the item in]
# GoSub SUB_BAGIT
# [Next Statement]
#
# This next variable is set in BAGIT section by default, comment out there and set pre sub call if needed/wanted.
# SetVariable BAGITRETURNBAIL [script section to go to when all bags are full] <<< Default is to go invisible and exit.
#
# EG.
# GoSub SUB_BAGIT
# GoTo FIGHT
#**************************************************************************************

SUB_BAGIT:
SetVariable BAGITRETURNBAIL EXIT
GoTo BAGIT

BAGITW:
Pause
BAGIT:
#Matchre CLOSEBAG /in your.*(boots|libation caddy|duffel bag)/i
Matchre CLOSEBAG /in your.*(boots|libation caddy)/i
Matchre OPENGO2BAG /is closed|that's closed|referring to/i
Matchre STOWITEM2BAG /no matter how you arrange|can't fit|too long to fit|any more room|too heavy to go in there/i
Matchre SUB_RETURN /which is inside your|in your|You place the/i
Matchre BAGITW /sorry,|\.\.\.wait/i
put put my %ITEM2BAG% in my %GO2BAG%
MatchWait 5
ECHO Failure in match for BAGIT, exiting for safety!
put exit
put exit
Exit

CLOSEBAGW:
Pause
CLOSEBAG:
#If %roomobjects contains "huge" || %roomobjects contains "massive" then GoTo SUB_RETURN
Matchre SUB_RETURN /You close|already closed|referring to|You leisurely close|You slide the jaw/i
Matchre CLOSEBAGW /sorry,|\.\.\.wait/i
put close my %GO2BAG%
MatchWait 5
ECHO Failure in match for CLOSEBAG, exiting for safety!
put exit
put exit
Exit

OPENALTBAG:
SetVariable GO2BAG %ALTBAG
GoTo OPENGO2BAG

OPENGO2BAGW:
Pause
OPENGO2BAG:
If %rhand contains %ORIGAMITHING then SetVariable ITEM2BAG %ORIGAMITHING
Matchre BAGIT /you open|till it opens|already open|quick flick of your wrist|You pry the bony maw/i
Match STOWITEM2BAG What were you referring to
Matchre OPENGO2BAGW /sorry,|\.\.\.wait/i
put open my %GO2BAG%
MatchWait 5
ECHO Failure in match for OPENGO2BAG, exiting for safety!
put exit
put exit
Exit

STOWITEM2BAGW:
Pause
STOWITEM2BAG:
If %GO2BAG contains "pouch in my thigh bag" then GoTo DROP2SWAP
If %GO2BAG contains %CONTAINER then GoTo TRY-ALTBAG
Matchre TRY-ALTBAG /no matter how you arrange|You can't fit|too long to fit|any more room|too heavy to go in there/i
Match SUB_RETURN in your
Matchre STOWITEM2BAGW /sorry,|\.\.\.wait/i
put stow %ITEM2BAG%
MatchWait 5
ECHO Failure in match for STOWITEM2BAG, exiting for safety!
put exit
put exit
Exit

TRY-ALTBAGW:
Pause
TRY-ALTBAG:
#Match CLOSEBAG /in your.*%ALTBAG%/i
Match DROPITEM referring to
Matchre OPENALTBAG /is closed|that's closed/i
Matchre DROPITEM /no matter how you arrange|can't fit|too long to fit|any more room|too heavy to go in there/i
Matchre SUB_RETURN /which is inside your|in your/i
Matchre BAGITW /sorry,|\.\.\.wait/i
put put my %ITEM2BAG% in my %ALTBAG%
MatchWait 5
ECHO Failure in match for TRY-ALTBAG, exiting for safety!
put exit
put exit
Exit

DROPITEMW:
Pause
DROPITEM:
Match BAGITRETURNBAIL you drop
Match CURSEDITEM unable
Match DROPITEMW ...wait
put drop my %ITEM2BAG%
ECHO Failure in match for DROPITEM, exiting for safety!
put exit
put exit
Exit

CURSEDITEM:
ECHO ~~ Holding cursed item, exiting for safety!
GoTo EXIT

DROP2SWAPW:
Pause
DROP2SWAP:
Match SWAPSTART you drop
Match CURSEDITEM unable
Matchre DROP2SWAPW /sorry,|\.\.\.wait/i
put drop my %ITEM2BAG%
MatchWait 5
ECHO Failure in match for DROP2SWAP, exiting for safety!
put exit
put exit
Exit

SWAPSTARTW:
Pause
SWAPSTART:
Match APP-POUCH from inside
Match EXIT referring to
Matchre SWAPSTARTW /sorry,|\.\.\.wait/i
put get pouch from my %BAG
MatchWait 5
ECHO Failure in match for SWAPSTART, exiting for safety!
put exit
put exit
Exit

APP_POUCH:
GoSub SUB_APP-POUCH
If %rhand contains "pouch" || %lhand contains "POUCH" then GoTo STILL-HAVE-POUCH
Else GoTo GET-NEW-POUCH

STILL-HAVE-POUCH
SetVariable FILL-POUCH-RETURN TIE-POUCH
GoTo FILL-POUCH

TIE-POUCHW:
Pause
TIE-POUCH:
Matchre POUCH2ALTBAG /You tie up|already been tied off/i
Matchre TIE-POUCHW /sorry,|\.\.\.wait/i
put tie my pouch
MatchWait 5
ECHO Failure in match for TIE-POUCH, exiting for safety!
put exit
put exit
Exit

POUCH2ALTBAG:
SetVariable ITEM2BAG pouch
SetVariable GO2BAG %ALTBAG
GoSub SUB_BAGIT
GoTo GET-NEW-POUCH

GET-NEW-POUCHW:
Pause
GET-NEW-POUCH:
SetVariable FILL-POUCH-RETURN BAG-NEW-POUCH
Match FILL-POUCH from inside
Match NO-MORE-EMPTY-POUCHES referring to
Matchre GET-NEW-POUCHW /sorry,|\.\.\.wait/i
put get pouch from my %SHEATHE%
MatchWait 5
ECHO Failure in match for GET-NEW-POUCH, exiting for safety!
put exit
put exit
Exit

FILL-POUCHW:
Pause
FILL-POUCH:
Matchre %FILL-POUCH-RETURN% /in the gem pouch|won't be able to fit|There aren't any gems|gem from the/i
Matchre FILL-POUCHW /sorry,|\.\.\.wait/i
put fill my pouch with my %CONTAINER%
MatchWait 5
ECHO Failure in match for FILL-POUCH, exiting for safety!
put exit
put exit
Exit

BAG-NEW-POUCH:
SetVariable ITEM2BAG pouch
SetVariable GO2BAG %BAG%
GoSub SUB_BAGIT
return

NO-MORE-EMPTY-POUCHES:
ECHO *** OUT OF GEM POUCHES !!! ***
GoTo EXIT

EXIT:
#put rub my ring
put avoid drag
Match END You will need to login again to continue playing
Matchre EXIT /sorry,|\.\.\.wait/i
put exit
MatchWait 5
ECHO Failure in match for EXIT, exiting for safety!
put exit
put exit
Exit

END:
Exit

# END SUB_BAGIT
#**************************************************************************************
#**************************************************************************************

#**************************************************************************************
# SUB_APP-POUCH
#
# USAGE;
# GoSub SUB_APP-POUCH
# [Next Statement/Action]
# Use SUB_RETURN to exit
#**************************************************************************************

SUB_APP-POUCHW:
Pause
SUB_APP-POUCH:
Match APP-POUCH-RETREAT You cannot appraise that when you are in combat
Matchre BAG-BIG-POUCH /total.*\d\d\d\d\d\d+/i
Match SUB_RETURN roundtime
Matchre SUB_APP-POUCHW /sorry,|\.\.\.wait/i
put app my gem pouch
MatchWait 15
ECHO Match Failed SUB_APP-POUCH: Exiting for safety!
put exit
Exit

APP-POUCH-RETREAT:
GoSub SUB_RETREAT
GoTo SUB_APP-POUCH

BAG-BIG-POUCH:
SetVariable ITEM2BAG pouch
SetVariable GO2BAG kilt
GoSub SUB_BAGIT
return

# END SUB
#**************************************************************************************
#**************************************************************************************

#**************************************************************************************
# SUB_RETREAT
#
# USAGE;
# GoSub SUB_RETREAT
# [Next Statement/Action]
#**************************************************************************************

SUB_RETREATW:
Pause
SUB_RETREAT:
SetVariable CRITTER-COUNT %monstercount
SetVariable DEAD-NUM 0
If %roomobjects contains "which appears dead" then SetVariable DEAD-NUM -1
Math CRITTER-COUNT add %DEAD-NUM
DeleteVariable DEAD-NUM
If %CRITTER-COUNT < 1 then return
GoTo RETREAT-NOW

RETREAT-NOWW:
Pause
RETREAT-NOW:
Match RETSTAND must stand first
Matchre RETREAT-NOW /to pole range|You stop advancing|pole weapon range on you|melee range on you/i
Matchre RETREAT-NOWW /are unable to get away|You try to back away/i
Match EXIT-GAME You are still stunned
Matchre SUB_RETURN /You retreat from combat|as far away as you can get|You sneak back out of combat/i
Matchre RETREAT-NOWW /sorry,|\.\.\.wait/i
put retreat
MatchWait 5
ECHO Failure in match for SUB_RETREAT, exiting for safety!
put exit
Exit

RETSTAND:
GoSub SUB_STAND
GoTo RETREAT-NOW

# End_SUB
#**************************************************************************************
#**************************************************************************************

CROSSING-LSMITH-MENU:
ECHO *** Arrived Lock Smith in %CITY
ECHO
ECHO ~~ Esc to end script.
ECHO ~~ L1 to buy ordinary lockpicks (no check for coin)
ECHO
Match BUY-PICKS l1
MatchWait

BUY-PICKSW:
Pause
BUY-PICKS:
Matchre LSMITH-MAKE-OFFER /I'm prepared to offer it to you for (\d+) kronars/I
Matchre BUY-PICKSW /Sorry,|\.\.\.wait/i
put buy ordinary lockpick
MatchWait

LSMITH-MAKE-OFFERW:
Pause
LSMITH-MAKE-OFFER:
Match LSMITH-NO-CASH you'd be better off using your own funds to pay for the purchase
Match STOW-LOCKPICKS hands over your lockpick
Matchre LSMITH-MAKE-OFFERW /Sorry,|\.\.\.wait/i
put offer $1
MatchWait

LSMITH-NO-CASH:
ECHO *** Go to the bank and get coin!
Exit

STOW-LOCKPICKSW:
Pause
STOW-LOCKPICKS:
Matchre BUY-PICKS /You put your.*in your/i
Matchre DUMP-PICK /no matter how you arrange|You can't fit|too long to fit|There isn't any more room/i
Matchre STOW-LOCKPICKSW /Sorry,|\.\.\.wait/i
put stow my lockpick
MatchWait

DUMP-PICK:
Pause
put drop my lockpick
Pause
ECHO ~~ Boots are full of lockpicks.
Exit

#***********************************************************************
#***********************************************************************
# SUB_MOVE-SHIELD (Not a true sub)

# SetVariable SHSTRAPSET #(ARM SHOULDER) This is the current strap set.
# SetVariable SHIELDLOCATION SHONARM #(SHONARM SHONSHOULDER SHINHAND SHINCONTAINER) This is the current location of your shield
# SetVariable SHIELDDESTINATION SH2SHOULDER #(SH2ARM SH2SHOULDER SH2HAND SH2CONTAINER) This is where you want to put your shield
# SetVariable MOVESHIELDRETURN [NEXTSECTION] The section of script to return to

# Usage -- Set the SHIELDDESTINATION variable and GoTo FINDSHIELD at the very beginning of your script.

# EG At begining of script...
# SetVariable SHIELDDESTINATION SH2SHOULDER
# SetVariable MOVESHIELDRETURN [NEXTSECTION]
# GoTo FINDSHIELD

# OR set known shield location to [SHINHAND | SHONSHOULDER | SHIELDINCONTAINER | SHONARM]

# At any point you need to move your shield SetVariable DUMMY %SHIELDLOCATION%-SH2HAND where destination is after the dash.
# where the first part is the destination you want the shield to go to. Ensure you set MOVESHIELDRETURN

# EG to move sheild to your hand
# SetVariable MOVESHIELDRETURN
# SetVariable DUMMY %SHIELDLOCATION%-SH2HAND
# GoTo %DUMMY%

FINDSHIELDW:
Pause
FINDSHIELD:
If %lhand contains %SHIELD then GoTo SHIELDINHAND
If %rhand contains %SHIELD then GoSub SUB_EMPTYHANDS RIGHT
Match SHIELDWEARING that you are wearing
Match SHIELDINCONTAINER inside your
Match SHIELDINHAND that you are holding
Match NOSHIELD you were referring to
Matchre FINDSHIELDW /Sorry,|\.\.\.wait/i
put tap my %SHIELD%
MatchWait 5
ECHO Failure in match for FINDSHIELD, exiting for safety!
put exit
put exit
Exit

SHIELDWEARINGW:
Pause
SHIELDWEARING:
Match SHIELDWEARING-EMPTY-HANDS You need a free hand for that
Match CURRENTLOCARM loosen the straps securing
Match CURRENTLOCSHOULDER off from over your shoulder
Matchre SHIELDWEARINGW /Sorry,|\.\.\.wait/i
put remove my %SHIELD%
MatchWait 5
ECHO Failure in match for SHIELDWEARING, exiting for safety!
put exit
put exit
Exit

SHIELDWEARING-EMPTY-HANDS:
GoSub SUB_EMPTYHANDS
GoTo SHIELDWEARING

CURRENTLOCARM:
SetVariable SHSTRAPSET ARM
SetVariable SHIELDLOCATION SHONARM
GoTo INITSHONARM-%SHIELDDESTINATION%

CURRENTLOCSHOULDER:
SetVariable SHSTRAPSET SHOULDER
SetVariable SHIELDLOCATION SHONSHOULDER
GoTo INITSHONSHOULDER-%SHIELDDESTINATION%

SHIELDINCONTAINER:
SetVariable SHIELDLOCATION SHINCONTAINER
GoTo INITSHINCONTAINER-%SHIELDDESTINATION%

SHIELDINHAND:
SetVariable SHIELDLOCATION SHINHAND
GoTo INITSHINHAND-%SHIELDDESTINATION%

INITSHINHAND-SH2HAND:
SetVariable SHIELDLOCATION SHINHAND
GoTo %MOVESHIELDRETURN%

INITSHONARM-SH2ARMW:
Pause
INITSHONARM-SH2ARM:
SetVariable SHIELDLOCATION SHONARM
Matchre %MOVESHIELDRETURN% /You are already wearing that|slide your left arm through the straps/i
Matchre INITSHONARM-SH2ARMW /Sorry,|\.\.\.wait/i
put wear my %SHIELD%
MatchWait 5
ECHO Failure in match for INITSHONARM-SH2ARM, exiting for safety!
put exit
put exit
Exit

INITSHONSHOULDER-SH2ARMW:
Pause
INITSHONSHOULDER-SH2ARM:
SetVariable SHSTRAPSET ARM
SetVariable SHIELDLOCATION SHONARM
Match MODWEARSHIELD fit securely upon your left arm
Match SHEMPTYHANDS hands are too full
Matchre INITSHONSHOULDER-SH2ARMW /Sorry,|\.\.\.wait/i
put adjust my %SHIELD%
MatchWait 5
ECHO Failure in match for INITSHONSHOULDER-SH2ARM, exiting for safety!
put exit
put exit
Exit

INITSHINCONTAINER-SH2ARMW:
Pause
INITSHINCONTAINER-SH2ARM:
SHINCONTAINER-SH2ARM:
SetVariable SHIELDLOCATION SHONARM
Match WEARSHIELD4ARM from inside
Matchre INITSHINCONTAINER-SH2ARMW /Sorry,|\.\.\.wait/i
put get my %SHIELD%
MatchWait 5
ECHO Failure in match for SHINCONTAINER-SH2ARM, exiting for safety!
put exit
put exit
Exit

INITSHINHAND-SH2ARMW:
Pause
INITSHINHAND-SH2ARM:
SetVariable SHIELDLOCATION SHONARM
GoTo WEARSHIELD4ARM

WEARSHIELD4ARMW:
Pause
WEARSHIELD4ARM:
SHINHAND-SH2ARM:
SetVariable SHSTRAPSET ARM
Matchre %MOVESHIELDRETURN% /You are already wearing that|left arm through the straps/i
Match SHIELDWEARING over your shoulder
Matchre WEARSHIELD4ARMW /Sorry,|\.\.\.wait/i
put wear my %SHIELD%
MatchWait 5
ECHO Failure in match for SHINHAND-SH2ARM, exiting for safety!
put exit
put exit
Exit

INITSHONARM-SH2SHOULDERW:
Pause
INITSHONARM-SH2SHOULDER:
SetVariable SHSTRAPSET SHOULDER
SetVariable SHIELDLOCATION SHONSHOULDER
Match MODWEARSHIELD worn across your shoulder
Match SHEMPTYHANDS hands are too full
Matchre INITSHONARM-SH2SHOULDERW /Sorry,|\.\.\.wait/i
put adjust my %SHIELD%
MatchWait 5
ECHO Failure in match for INITSHONARM-SH2SHOULDER, exiting for safety!
put exit
put exit
Exit

INITSHONSHOULDER-SH2SHOULDERW:
Pause
INITSHONSHOULDER-SH2SHOULDER:
SetVariable SHIELDLOCATION SHONSHOULDER
Matchre %MOVESHIELDRETURN /You are already wearing that|over your shoulder/i
Matchre INITSHONSHOULDER-SH2SHOULDERW /Sorry,|\.\.\.wait/i
put wear my %SHIELD%
MatchWait 5
ECHO Failure in match for INITSHONSHOULDER-SH2SHOULDER, exiting for safety!
put exit
put exit
Exit

INITSHINHAND-SH2SHOULDERW:
Pause
INITSHINHAND-SH2SHOULDER:
SetVariable SHIELDLOCATION SHONSHOULDER
GoTo WEAR4SHOULDER

INITSHINCONTAINER-SH2SHOULDERW:
Pause
INITSHINCONTAINER-SH2SHOULDER:
SHINCONTAINER-SH2SHOULDER:
Match WEAR4SHOULDER from inside
Matchre INITSHINCONTAINER-SH2SHOULDERW /Sorry,|\.\.\.wait/i
put get my %SHIELD%
MatchWait 5
ECHO Failure in match for SHINCONTAINER-SH2SHOULDER, exiting for safety!
put exit
put exit
Exit

WEAR4SHOULDERW:
Pause
WEAR4SHOULDER:
SHINHAND-SH2SHOULDER:
SetVariable SHSTRAPSET SHOULDER
SetVariable SHIELDLOCATION SHONSHOULDER
Match SHIELDWEARING left arm through the straps
Matchre %MOVESHIELDRETURN% /You are already wearing that|over your shoulder/i
Matchre WEAR4SHOULDERW /Sorry,|\.\.\.wait/i
put wear my %SHIELD%
MatchWait 5
ECHO Failure in match for SHINHAND-SH2SHOULDER, exiting for safety!
put exit
put exit
Exit

INITSHONARM-SH2HAND:
SetVariable SHSTRAPSET ARM
GoTo SHINHAND-SH2HAND

INITSHONSHOULDER-SH2HAND:
SetVariable SHSTRAPSET SHOULDER
SHINHAND-SH2HAND:
SetVariable SHIELDLOCATION SHINHAND
GoTo %MOVESHIELDRETURN

INITSHINCONTAINER-SH2HANDW:
Pause
INITSHINCONTAINER-SH2HAND:
SHINCONTAINER-SH2HAND:
SetVariable SHEILDLOCATION SHINHAND
Match %MOVESHIELDRETURN from inside
Matchre INITSHINCONTAINER-SH2HANDW /Sorry,|\.\.\.wait/i
put get my %SHIELD% from my %CONTAINER%
MatchWait 5
ECHO Failure in match for SHINCONTAINER-SH2HAND, exiting for safety!
put exit
put exit
Exit

INITSHONARM-SH2CONTAINER:
INITSHONSHOULDER-SH2CONTAINER:
INITSHINHAND-SH2CONTAINER:
SHINHAND-SH2CONTAINER:
SetVariable SHIELDLOCATION SHINCONTAINER
SetVariable ITEM2BAG %SHIELD%
SetVariable GO2BAG %CONTAINER%
GoSub SUB_BAGIT
GoTo %MOVESHIELDRETURN%

MODREMOVESHW:
Pause
SHONARM-SH2CONTAINER:
SHONSHOULDER-SH2CONTAINER:
Match SHONSHOULDER-SH2CONTAINER-E-HANDS You need a free hand for that
Matchre SHINHAND-SH2CONTAINER /and remove it|off from over your shoulder/i
Matchre MODREMOVESHW /Sorry,|\.\.\.wait/i
put remove my %SHIELD%
MatchWait 5
ECHO Failure in match for SHONSHOULDER-SH2CONTAINER, exiting for safety!
put exit
put exit
Exit

SHONSHOULDER-SH2CONTAINER-E-HANDS:
GoSub SUB_EMPTYHANDS
GoTo SHONSHOULDER-SH2CONTAINER

MODREMOVE1SHW:
Pause
SHONARM-SH2HAND:
SHONSHOULDER-SH2HAND:
SetVariable SHIELDLOCATION SHINHAND
Match SHONSHOULDER-SH2HAND-E-HANDS You need a free hand for that
Matchre %MOVESHIELDRETURN /and remove it|off from over your shoulder/i
Matchre MODREMOVE1SHW /Sorry,|\.\.\.wait/i
put remove my %SHIELD%
MatchWait 5
ECHO Failure in match for SHONSHOULDER-SH2HAND, exiting for safety!
put exit
put exit
Exit

SHONSHOULDER-SH2HAND-E-HANDS:
SetVariable SHIELDLOCATION SHONSHOULDER
GoSub SUB_EMPTYHANDS
GoTo SHONSHOULDER-SH2HAND

MODREMOVE2SHW:
Pause
SHONARM-SH2SHOULDER:
SHONSHOULDER-SH2ARM:
Match SHONSHOULDER-SH2ARM-E-HANDS You need a free hand for that
Match INITSHONARM-SH2SHOULDER and remove it
Match INITSHONSHOULDER-SH2ARM off from over your shoulder
Matchre MODREMOVE2SHW /Sorry,|\.\.\.wait/i
put remove my %SHIELD%
MatchWait 5
ECHO Failure in match for SHONSHOULDER-SH2ARM, exiting for safety!
put exit
put exit
Exit

SHONSHOULDER-SH2ARM-E-HANDS
GoSub SUB_EMPTYHANDS
GoTo SHONSHOULDER-SH2ARM

SHONSHOULDER-SH2SHOULDER:
SHONARM-SH2ARM:
INITSHINCONTAINER-SH2CONTAINER:
SHINCONTAINER-SH2CONTAINER:
GoTo %MOVESHIELDRETURN%

MODWEARSHIELDW:
Pause
MODWEARSHIELD:
Matchre %MOVESHIELDRETURN% /You are already wearing that|slide your left arm through the straps|over your shoulder/i
Match NOSHIELD can't wear any more items like that
Matchre MODWEARSHIELDW /Sorry,|\.\.\.wait/i
put wear my %SHIELD%
MatchWait 5
ECHO Failure in match for MODWEARSHIELD, exiting for safety!
put exit
put exit
Exit

NOSHIELD:
ECHO *** No shield found or can't wear it exiting script
Exit

SHEMPTYHANDS:
GoSub SUB_EMPTYHANDS
GoTo %DUMMY%

# END Shield Module
#***************************************
#***************************************

</pre>

Latest revision as of 20:32, 7 June 2009

I am the Fentle, unless you played Space Merchant you have no idea what that means. *chuckle*

Just writing something to "get the red out".

Any old HOA members out there?, look for a dwarf that has the glint of laser cannons (maybe lightning bolts) in his eyes and give him the high sign.

Retrieved from "https://elanthipedia.play.net/index.php?title=User:DekeFantle&oldid=80712"