User:DekeFantle
Jump to navigation
Jump to search
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.
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 #*************************************** #***************************************