Special:Badtitle/NS100:Annotated Viewing Filter

From DmWiki
(Redirected from Annotated Viewing Filter)
Jump to navigationJump to search
// ..> If no onject in hand then
// ....> The player is asking for the state of his character.
// ....> If fighter skill > GlobalVariable[4] then 
// .................>Say "YOU NEED A HIGHER FIGHTER RANK TO PROGRESS FURTHER..."
// ....> If ninja skill   > GlobalVariable[5] then 
// .................>Say "YOU NEED A HIGHER NINJA RANK TO PROGRESS FURTHER..."
// ....> If priest skill  > GlobalVariable[6] then 
// .................>Say "YOU NEED A HIGHER PRIEST RANK TO PROGRESS FURTHER..."
// ....> If wizard skill  > GlobalVariable[7] then 
// .................>Say "YOU NEED A HIGHER WIZARD RANK TO PROGRESS FURTHER..."
// ....> if Talent[0] then Say "YOU FEEL NAUSEOUS AND SICK."
//  ...> if Talent[1] then Say "FEVER AND SWEAT TROUBLE YOU."
//  ...> If Talent[2[ then Say "CHILLS AND TEMBLORS RUN ALONG YOUR BODY."
//  ...> If Talent[3] then Say "YOUR BONES FEEL ICY AND FRAGILE."
// ....>
//   > else if object in hand
// ..> If Priest  Level less than Artisan (6),    suppress printing of CURSED text
// ..> If Fighter Level less than Apprentice (3), suppress printing of BROKEN text
// ..> If Poisened Weapon use "FUNEREAL" instead of "POISONED"
// ..> If Ninja Level < Journeyman (4), suppress printing "FUNEREAL" or "POISONED" text
// ..> Print "CONSUMABLE" if object is consumable
// ..> Handle Unique objects as follows:
// ....>If the object is one of the following:
// ......> First, Print "UNIQUE" if Priest Level >= Adept(7).
// ......> Second, if Priest Level >= LO MASTER(9) then perform the
// ......>   action indicated for each special object as noted below.
// ..........>SHIELD OF DARC  at 8(22,28)        "Doom of Stamm" 
// ..........>  if PriestLevel >= 11(On Master)  "BORN BY THE LAST MIGHTY DWARF"
// ..........>                                   "ITS POWER BROKE HIS WILL"
// ..........>                                   "FOR DARKNESS DRIVES ITS WIELDER ON"
// ..........>                                   "AND URGES THEM TO KILL."
// ..........>POWERTOWERS     at 4(2,1)    "Robbed From The Niggelungs"
// ..........>  if PriestLevel >= 11(On Master)  "ONCE STOLEN FROM THE NIBBELUNGS OLD"
// ..........>                                   "BY THE RED HAIRED WARRIOR BOLD."
// ..........>                                   "GREAT STRENGTH DO THEY IMPART"
// ..........>                                   "UNTO THEIR WEARER... DOES NOT MATTER WHO."
// ..........>LOCKPICKS       at 0(27,2)   "Secret of Iaido"
// ..........>  if PriestLevel >= 11(On Master)  "THE GREATEST THIEF EVER KNOWN "
// ..........>                                   "FROM EVERY CAGE THIS BIRD HAS FLOWN."
// ..........>                                   "BUT NOT WITHOUT HIS TOOLS WAS HE "
// ..........>                                   "AS FROM EACH TRAP HE D QUICKLY FLEE."
// ..........>HORN OF FRIGHT  at 5(22,15)  "Heirloom of Banville"
// ..........>  if NinjaLevel >= 9(LO Master)     Play Sound #264
// ..........>  if PriestLevel >= 11(On Master)  "AN HEIRLOOM PROUD OF CLAN SO GREAT "
// ..........>                                   "TO SUMMON FEAR ITS ONLY TRAIT."
// ..........>                                   "ITS FOES THEY FLEE IN TERROR BORN"
// ..........>                                   "OF WIND PASSED THROUGH THIS MIGHTY HORN."
// ..........>LEVIATHON       at 10(27,0)  "Secret of Iaido"
// ..........>  if PriestLevel >= 11(On Master)  "THE GREATEST THIEF EVER KNOWN "
// ..........>                                   "FROM EVERY CAGE THIS BIRD HAS FLOWN."
// ..........>                                   "BUT NOT WITHOUT HIS TOOLS WAS HE "
// ..........>                                   "AS FROM EACH TRAP HE D QUICKLY FLEE."
// ..........>GIFT OF TAMIEL  at 34(2,23)  "Believed To Hold THe Essence Of Gando"
// ..........>  if PriestLevel >= 11(On Master)  "A MIGHTY MAGE THOUGH GENTLE "
// ..........>                                   "ONCE MURDERED BY SURPRISE."
// ..........>                                   "IT S SAID HIS ESSENCE DWELLS WITHIN"
// ..........>                                   "THIS SIMPLE GEM LAID PRIZE."
// ..........>BEO BOW         at 0(2,19)   "Speed of the Wuuf"
// ..........>  if PriestLevel >= 11(On Master)  "SHARP OF EYE AND SHARP OF EAR "
// ..........>                                   "HIS SHIFT SHOT BOW BROUGHT GREATEST FEAR."
// ..........>                                   "SHORT IN STATURE SHARP IN CLAW "
// ..........>                                   "THIS CANINE LIVED BY HIS OWN LAW."
// ..........>HELL PLATE      at 19(1,17)  "The Plate of Retaliation"
// ..........>  if PriestLevel >= 11(On Master)  "CLAD IN CHAOS CLOTHED IN DARK "
// ..........>                                   "THIS MIGHTY ARMOUR LEAVES ITS MARK."
// ..........>                                   "FOR WEARING DARKNESS WILL YOU FIND "
// ..........>                                   "IT TAKES YOUR SOUL AND FILLS YOUR MIND."
// ..........>SHIELD OF LYTE  at 10(22,6)  "The Immaculate"
// ..........>  if PriestLevel >= 11(On Master)  "IT BELONGED TO HE WHO CAME"
// ..........>                                   "IN TIMES OF PERIL TIMES OF FLAME."
// ..........>                                   "THIS MAGIC WARDER BANISHED FIRE "
// ..........>                                   "POISON SLIME FROM DEEPEST MIRE."
// ..........>WIZARD WAND     at 26(16,17) "Fate of Gothmog"
// ..........>  if PriestLevel >= 11(On Master)  "DWELLER OF DARKNESS ROBED IN NIGHT "
// ..........>                                   "LEADER THEY SAY OF BALROG MIGHT."
// ..........>                                   "WITH A WEAPON WAS HE TO GO "
// ..........>                                   "BUT HIS FATE IT SEEMS NO ONE SHALL KNOW."
// ..........>PENDANT FERAL   at 17(8,17)  "Said to Hold Knowledge of Syra"
// ..........>  if PriestLevel >= 11(On Master)  "MIGHTY THINGS CAN KNOWLEDGE BRING "
// ..........>                                   "ENTOMBED WITHIN THE SMALLEST THING."
// ..........>                                   "PLACED THERE AND THEN LEFT TO LIE "
// ..........>                                   "BELIEVING HER MASTER HAD BEEN LED TO DIE."
// ..........>CALIBURN        at 12(27,23) "Arm of Wu Tse"
// ..........>  if PriestLevel >= 11(On Master)  "USED BY SHE WHO SMOTE HER FOES"
// ..........>                                   "WITH MIGHTY DEADLY SWIFT BROUGHT BLOWS."
// ..........>                                   "THIS MIGHTY BLADE KNEW MERCY NONE."
// ..........>                                   "IT COULD SLAY PARENT DAUGHTER SON."
// ..........>MACE OF ORDER   at 3(4,19)   "Stuns Groups of Enemies"
// ..........>  if PriestLevel >= 11(On Master)  "HEFTY LIFTED HIGH ABOVE "
// ..........>                                   "ITS WEIGHT CAN CREATURES FELL "
// ..........>                                   "BUT ONLY IF YOU HAVE THE STRENGTH "
// ..........>                                   "AND WIELD THE WEAPON WELL."
// ..........>SLING           at 3(26,22)  "Sling of the Killer"
// ..........>DAGGER          at 4(24,9)   "Swift Death"
// ..........>  if PriestLevel >= 11(On Master)  "A FRIEND TO ROGUES AND THIEVES ALIKE"
// ..........>                                   "WHEN ENEMIES IT GREETS."
// ..........>                                   "ITS STRIKES ARE SWIFT AND POISON FLOWS"
// ..........>                                   "TO BLOOD WHICH IT THEN EATS."
// ..........>EYE             at 9(5,24)   "Eye of Vecna"
// ..........>  if PriestLevel >= 11(On Master)  "THINGS OF DARKNESS IT HAS SEEN "
// ..........>                                   "NEVER KNOWN SWEET PEACE SERENE."
// ..........>                                   "POWERS OF DEATH MAY IT POSSESS "
// ..........>                                   "OF WHICH ITS OWNER DID OBSESS."
// ..........>GAUNTLETS       at 11(17,31) "Gloves of Swiftness"
// ..........>CROWN OF KINGS  at 7(4,25)   "Said to Bestow Infinite Wisdom"
// ..........>  if PriestLevel >= 11(On Master)  "CROWN OF WISDOM CROWN OF MIGHT "
// ..........>                                   "CROWN OF KNOWLEDGE INNER SIGHT."
// ..........>                                   "CROWN TO FIND YOUR INNER POWER "
// ..........>                                   "AND HELP IT BLOSSOM LIKE A FLOWER."
// ..........>POWERGEM        at 7(20,2)   "Heart of the Dwarven Fortress"
// ..........>  if PriestLevel >= 11(On Master)  "THE POWER SOURCE OF DWARVEN RACE "
// ..........>                                   "IT STILL BEARS SECRETS GREAT."
// ..........>                                   "WITH POWER MORE THAN SWORD OR MACE "
// ..........>                                   "HUNGER FOR MAGIC CAN IT SATE."
// ..........>DEXHELM         at 9(24,18)  "Old Relic"
// ..........>FLAMEBAIN       at 9(27,15)  "Old Relic"
// ..........>ELVEN BOOTS     at 9(29,17)  "Old Relic"
// ..........>SORCERER WAND   at 11(22,8)  "Triumph of Gothmog"
// ..........>  if PriestLevel >= 11(On Master)  "MIGHTY STAFF OF POWER GREAT "
// ..........>                                   "ITS HUNGER NEVER SATED."
// ..........>                                   "THREE LIVES IT NEEDS TO LIVE AGAIN "
// ..........>                                   "SINCE IT HAS BEEN CREATED."
// ..........>WATERSKIN       at 10(9,31)  "Everpouring Vial of Conflux"
// ..........>  if PriestLevel >= 11(On Master)  "MADE FOR MORE THAN HOLDING DRINK "
// ..........>                                   "ITS SECRET MEANT IT LED"
// ..........>                                   "TO NEWBORN CREATURES LEAKING FORTH "
// ..........>                                   "AS FROM THIS SKIN THEY BLED."
// ..........>ROPE            at 13(27,0)  "Balrog Burning Whip"
// ..........>  if PriestLevel >= 11(On Master)  "SCORCH AND LASH THIS TONGUE OF FLAME"
// ..........>                                   "WAS USED BY DEMON BEYOND NAME."
// ..........>                                   "A SWORD OF FIRE WAS THERE TOO "
// ..........>                                   "TO WREAK A DEATH OF EVERY HUE."
// ..........>COMPASS         at 8(17,13)  "Learning Advisor"
// ..........>     Depending on levelMultiplier
// ................................ 0 "STASIS FIELD"
// ................................ 1 "DIMENSION OF LINEARITY"
// ................................ 2 "LOW POTENTIAL PLANE"
// ................................ 3 "FIRST LESSONS BEGIN"
// ................................ 4 "BUDDING CHAOS"
// ................................ 5 "LITTLE SPIN WHEEL OF FORTUNE
// ................................ 6 "GROUND OF PROPHECIES
// ................................ 7 "FATE UNFURLING
// ................................ 8 "SHAPING OPPORTUNITIES
// ................................ 9 "FULFILLING FUTURE
// ................................10 "MEETING DESTINY
// ................................11 "FLOURISHING EVENTS
// ................................12 "MEET YOURSELF
// ................................13 "DREAMS BECOME TRUE
// ................................14 "OMEGA POINT
// ..........>FURY            at 13(27,0)  "Balrog Sword"
// ..........>  if PriestLevel >= 11(On Master)  "FLAMING BLADE OF CHAOS BORN "
// ..........>                                   "WIELDED BY THE NAMELESS SPAWN."
// ..........>                                   "WIELDED BY THE DEMON GREAT "
// ..........>                                   "WHO BROUGHT UNTO THE DWARVES THEIR FATE."
// ..........>ROPE            at 6(12,24)  "Scorching Silk Whip"
// ..........>  if PriestLevel >= 11(On Master)  "A SILKEN ROPE YET FIRM AND STRONG "
// ..........>                                   "IT DOES NOT BREAK OR FRAY."
// ..........>                                   "ITS STRANDS ONCE USED TO BIND AND WRAP "
// ..........>                                   "FOR STORING HELPLESS PREY."
// ..........>MAGIC PURSE     at 0(10,8)   "Iron Purse"
// ..........>  Send Message to Competition counter(Keys)  Toggle3 1parameter(subtype (=1)) delay=0
// ..........>CRYSTAL BLADE   at 14(9,7)   "Blade of Leyla"
// ..........>  if PriestLevel >= 11(On Master)  "A SWIFT ASSASSIN DEFT AND SLY"
// ..........>                                   "COULD KILL WITHOUT A REASON WHY."
// ..........>                                   "HER BLADE SO SHARP IT CUT THROUGH STONE"
// ..........>                                   "COULD SEVER MUSCLE VEIN AND BONE."
// ..........>FURX            at 6(23,23)  "Sword of Druafang, Dragonslayer"
// ..........>  if PriestLevel >= 11(On Master)  "MIGHTY BLADE OF SAGE NOW GONE "
// ..........>                                   "SLAIN BY CURSE BY DEADLY SONG."
// ..........>                                   "THE RUNEBRINGER HE WAS TO SOME "
// ..........>                                   "NONE KNOW FROM WHERE HE ONCE DID COME."
// ..........>DRAGON HEAD     at 7(30,8)   "Helm of Druafang"
// ..........>  if PriestLevel >= 11(On Master)  "MADE FROM SCALES OF UNKNOWN WYRM "
// ..........>                                   "WORN BY HE WHO ONCE STOOD FIRM."
// ..........>                                   "RUNIC KNOWLEDGE DID HE HOLD "
// ..........>                                   "BEFORE A CURSE DID LAY HIM COLD."
// ..........>FUR RAGS        at 0(1,19)   "Barbarian Hide"
// ..........>ELVEN BOOTS     at 18(18,30) "Bloody Trail"
// ..........>VORPAL BLADE    at 9(13,8)   
// ..........>DRAGON FEET     at 10(14,30) "Forged in the Armouries of Moria"
// ..........>  if PriestLevel >= 11(On Master)  "FORGED BY DWARVEN SMITHS OF OLD "
// ..........>                                   "FAR DEEP BENEATH THE WORLD."
// ..........>                                   "HE PROCESS LOST TO TIME AND DUST "
// ..........>                                   "SINCE THEIR DOOM WAS UNFURLED."
// ..........>BONE DOLL       at 0(13,4)   "Spiritual Guide of Damned Souls"
// ..........>  if PriestLevel >= 11(On Master)  "A SIMPLE IDOL LITTLE MORE "
// ..........>                                   "THE TOOL OF THOSE WHO FOLLOW"
// ..........>                                   "GREAT DEITIES LONG SINCE FORGOT "
// ..........>                                   "WHO STILL HEAR PRAYERS HOLLOW."
// ..........>MAGIC PURSE     at 4(9,25)   "Saphire Purse"
// ..........>  Send Message to Competition Counter(Gems) Toggle3 parameter=subtype=1 delay=0
// ..........>BRANCH          at 2(18,6)   "Branch of Fear and Courage"
// ..........>  if PriestLevel >= 11(On Master)  "SIMPLE BRANCH OF SIMPLE WOOD "
// ..........>                                   "USED FOR LITTLE OF MUCH GOOD."
// ..........>                                   "YET DEEP WITHIN THE HEART OF TREES"
// ..........>                                   "LIE THINGS NO MORTAL EVER SEES."
// ..........>WAND            at 2(23,22)  "The Long Lost Wand"
// ..........>  if PriestLevel >= 11(On Master)  "NOT MUCH IS THERE AT FIRST TO SEE"
// ..........>                                   "IN THIS A WAND SO SMALL."
// ..........>                                   "YET IT CAN HEAL/ PROTECT THE WEAK "
// ..........>                                   "AND CALM THINGS WITH ITS CALL."
// ..........>FURY            at 2(31,26)  "The Fire Pact"
// ..........>BOOK            at 9(5,22)   "Forbiden Book. Holds Long Forgotten Past"
// ..........>  if PriestLevel >= 11(On Master)  "NOT FOR MORTAL HANDS TO WIELD"
// ..........>                                   "OR MORTAL EYES TO SEE."
// ..........>                                   "ITS PAGES TURN ITS CURSE AWAKES "
// ..........>                                   "IT BRINGS INSANITY."
// ..........>DRAGON WRATH    at 14(2,18)  "Said to Bestow the Aura of Fear Of Dragons"
// ..........>  if PriestLevel >= 11(On Master)  "EVERY DRAGON HAS ITS BANE "
// ..........>                                   "GLOWING SWORD OR TERROR MANE."
// ..........>                                   "FEAR IN SOUND OR SIGHT OR SMELL "
// ..........>                                   "SEE THEM KNOW THEM LEARN THEM WELL."
// ..........>HEAVEN PLATE    at 7(0,3)    "Marked by Ful"
// ..........>  if PriestLevel >= 11(On Master)  "CLAD IN WHITE AND MUCH ADORED "
// ..........>                                   "SLAYING FOES WITH MIGHTY SWORD."
// ..........>                                   "HIS ARMOUR BRIGHT LIKE SUNLIGHT SNOW "
// ..........>                                   "TO TERRIFY EACH FANG FILLED FOE."
// ..........>RUNIC GREAVES   at 19(0,18)  "Greaves of Extortion"
// ..........>  if PriestLevel >= 11(On Master)  "CLAD IN CHAOS CLOTHED IN DARK "
// ..........>                                   "THIS MIGHTY ARMOUR LEAVES ITS MARK."
// ..........>                                   "FOR WEARING DARKNESS WILL YOU FIND "
// ..........>                                   "IT TAKES YOUR SOUL AND FILLS YOUR MIND."
// ..........>DRAGON POLYEN   at 15(3,3)   "Made from the Skin of a Green Dragon"
// ..........>  if PriestLevel >= 11(On Master)  "DRAGONS ARE THERE MANY TRUE "
// ..........>                                   "RED AND GREEN AND GOLD AND BLUE."
// ..........>                                   "EVEN THOSE WHO LACK IN STRENGTH"
// ..........>                                   "MAY LEND THEIR HIDES BE GREAT AT LENGTH."
// ..........>ARROW           at 3(12,9)   "Explosive Head"
// ..........>DRAGON ARMOR    at 15(12,19) "Made from the Scales of Smaug"
// ..........>  if PriestLevel >= 11(On Master)  "FORMED FROM HIDE OF DRAGON AZURE"
// ..........>                                   "HIS HIDE OF GEM BRINGER OF TORTURE."
// ..........>                                   "HOARDER OF TREASURE BRINGER OF FLAME "
// ..........>                                   "GREAT IN LENGTH BUT SHORT IN NAME."
// ..........>CHALCEDONY      at 29(14,4)  "Essence of Earth" 
// ..........>GAUNTLETS       at 34(15,5)  "Ghoul Touch"
// ..........>  if WizardLevel >= 8 then "VAMPYRIC"
// ..........>THE ONE RING    at 15(29,5)  "There are Strong Markings on It"
// ..........>  if PriestLevel >= 11(On Master)  "THIS SIMPLE BAND OF COMMON GOLD"
// ..........>                                   "IN FIRE SHOWS ITS HUE."
// ..........>                                   "IT BREAKS ALL WILLS WHO WIELD IT MUCH "
// ..........>                                   "EXCEPT ITS MASTER TRUE."
// ..........>RUBY            at 27(15,1)  "Essence of Fire"
// ..........>DUST            at 6(0,30)   "Ashes of Herakles"
// ..........>DAGGER          at 5(8,22)   "Unknown Origins"
// ..........>  if WizardLevel >= 8 then "VAMPYRIC"
// ..........>  if PriestLevel >= 11(On Master)  "FANG OF THOSE WHO LIVE ON LIFE "
// ..........>                                   "WHO DRAIN THEIR VICTIMS DRY "
// ..........>                                   "WHO PIERCE THE VITAL POINT AND DRINK."
// ..........>                                   "THEIR VICTIMS SELDOM CRY."
// ..........>VORPAL BLADE    at 18(25,24) "Mournblade"
// ..........>  if WizardLevel >= 8 then "VAMPYRIC"
// ..........>  if PriestLevel >= 11(On Master)  "NOT FROM METAL NOR FROM STONE"
// ..........>                                   "THIS DEATHLY BLADE WAS CAST."
// ..........>                                   "IT CUTS THROUGH WATER AND THROUGH FLAME "
// ..........>                                   "AND THROUGH DEAD EONS PAST."
// ..........>RAPIER          at 0(23,27)  "Fleshbite. Sustained"
// ..........>SCIMITAR        at 32(15,12) "Des Sabre"
// ..........>  if PriestLevel >= 11(On Master)  "A SABRE OF THE RUNE OF VOID"
// ..........>                                   "THE RUNE THAT CALLS ITS POWER"
// ..........>                                   "ITS MIGHTY BLADE CAN SLAY GREAT BEASTS"
// ..........>                                   "BRING DOWN THE HIGHEST TOWER."
// ..........>SAPHIRE         at 28(24,1)  "Essence of Air"
// ..........>MACE OF ORDER   at 5(6,22)   "Windu"
// ..........>  Send S0 message with 0 delay to:
// ..........>  5(18,31)  Two And/Or on Crypt level
// ..........>    Trigger Rive generator at 5(15,14) Center of large area
// ..........>    Send S0 to 5(30,30) ('RandomChance') --> CompetitionCounter @19(26,0) "points"
// ..........>  if PriestLevel >= 11(On Master)  "A MACE TO CRUSH THE UNDEAD FOES"
// ..........>                                   "TO BREAK THEIR BONES APART."
// ..........>                                   "WHAT MORE CAN YOU UNLEASH ON THOSE"
// ..........>                                   "DEVOID OF FLESH AND HEART."
// ..........>EMERALD         at 30(7,21)  "Essence of Water"
// ..........>MASK OF TERROR  at 19(1,19)  "The Helm of Negation"
// ..........>  if PriestLevel >= 11(On Master)  "CLAD IN CHAOS CLOTHED IN DARK "
// ..........>                                   "THIS MIGHTY ARMOUR LEAVES ITS MARK."
// ..........>                                   "FOR WEARING DARKNESS WILL YOU FIND "
// ..........>                                   "IT TAKES YOUR SOUL AND FILLS YOUR MIND."
// ..........>DEMON POLEYN    at 19(0,20)  "Poleyns of Incision"
// ..........>  if PriestLevel >= 11(On Master)  "CLAD IN CHAOS CLOTHED IN DARK "
// ..........>                                   "THIS MIGHTY ARMOUR LEAVES ITS MARK."
// ..........>                                   "FOR WEARING DARKNESS WILL YOU FIND "
// ..........>                                   "IT TAKES YOUR SOUL AND FILLS YOUR MIND."
// ..........>HOLY GREAVES    at 7(0,11)   "Marked by Ma"
// ..........>  if PriestLevel >= 11(On Master)  "CLAD IN WHITE AND MUCH ADORED "
// ..........>                                   "SLAYING FOES WITH MIGHTY SWORD."
// ..........>                                   "HIS ARMOUR BRIGHT LIKE SUNLIGHT SNOW "
// ..........>                                   "TO TERRIFY EACH FANG FILLED FOE."
// ..........>DIVINE MASK     at 7(0,7)    "Marked by Oh"
// ..........>  if PriestLevel >= 11(On Master)  "CLAD IN WHITE AND MUCH ADORED "
// ..........>                                   "SLAYING FOES WITH MIGHTY SWORD."
// ..........>                                   "HIS ARMOUR BRIGHT LIKE SUNLIGHT SNOW "
// ..........>                                   "TO TERRIFY EACH FANG FILLED FOE.
// ..........>ANGEL POLEYN    at 7(0,15)   "Marked by Oh" G1T1
// ..........>  if PriestLevel >= 11(On Master)  "CLAD IN WHITE AND MUCH ADORED "
// ..........>                                   "SLAYING FOES WITH MIGHTY SWORD."
// ..........>                                   "HIS ARMOUR BRIGHT LIKE SUNLIGHT SNOW "
// ..........>                                   "TO TERRIFY EACH FANG FILLED FOE."
// ..........>SMALL SHIELD    at 6(18,21)  "Shield of Neta"
// ..........>STONE MUSHROOOM at 0(1,1)    "Lousy T Shirt"
// ..........>STORMRING       at 27(0,25)  "Sar Wedding Ring"
// ..........>  if PriestLevel >= 11(On Master)  "PHNGLUI MGLWNAFH CTHULHU RLYEH WGAHNAGL FHTAGN"
// ..........>CAPE            at 34(6,23)  "Cape of the Chameleon"
// ..........>FURY            at 25(26,11) "Armageddon Blade"
// ..........>MAGIC PURSE     at 48(14,2)  "Silver Purse"
// ..........>  Send Message to Competition Counter(coins)  Toggle3 parameter=subtype=1 delay=0
// ..........>CORAL POLEYN    at 17(24,8)  "Heals Wounds"
// ..........>  if PriestLevel >= 11(On Master)  "SHELLS OF CORAL CRABS REGENERATE THROUGH TIME."
// ..........>DEXHELM         at 6(20,20)  "Helm of Madness Whispered"
// ..........>STONE CLUB      at 8(24,1)   "Golemsoul"
// ..........>COMPASS         at 18(9,30)  "Sparkling Seeds"
// ..........>EYE             at 4(14,7)   "Xorn Eye"
// ..........>CHALCEDONY      at 4(5,1)    "Blackripples Onyx"
// ..........>BOOK            at 41(31,23) "Phylacter of Protection"
// ..........>GAUNTLETS       at 11(15,29) "Gauntlet of Lazyness"
// ..........>KATANA          at 7(27,11)  "Breathsteal.thirst from the Orient"
// ..........>  if WizardLevel >= 8 then "VAMPYRIC"
// ..........>SHURIKEN        at 1(28,15)  "Trail of Pain" L15 &SAY
// ..........>                                   "THE TELEPORTERS POINTS NORTHWARDS ACCORDING TO .R.AAHL"
// ..........>SPIKED MACE     at 34(0,29)  "Demons Bane"
// ..........>BOOK            at 8(21,5)   "Shaping Vitroglass into a Flask" G1T1
// ..........>  if PriestLevel >= 11(On Master)  "ALL THE PAGES WERE TORN OFF."
// ..........>EMERALD         at 62(16,0)  "Gaze of Fate"
// ...........>  Depending on LUCK
//........... >     "A STRONG CURSE RUNS IN YOUR BLOOD."
//........... >     "THE GODS DISLIKE YOU."
//........... >     "BAD OMENS CLOUD YOUR FUTURE."
//........... >     "LUCK HAS ABANDONNED YOU."
//........... >     "YOUR FATE IS UNDECIDED."
//........... >     "FORTUNE IS SMILING TO YOU."
//........... >     "YOUR PATH IS COVERED WITH FOUR LEAVES CLOVERS."
//........... >     "YOU HAVE THE BLESSING OF THE GODS."
// ..........>MAGIC PURSE     at 41(4,27)  "Copper Purse"
// ...........> Send Toggle3 message to Competition counter(coins) with parameter=subtype=0
// ..........>MAGIC PURSE     at 7(17,8)   "Emerald Purse"
// ...........> Send Toggle3 message to Comepetition counter(gens) with parameter=subtype=0
// ..........>MAGIC PURSE     at 10(14,8)  "Gold Purse"
// ...........> Send Toggle3 message to Competition counter(coins) with parameter=subtype=0
// ..........>CHALCEDONY      at 61(9,8)   "Blackripples Onyx"
// ..........>THE HELION at3(30,12) 13(11,25) 34(1,5) 38(31,0) 51(13,04)  "Retains the Soul" G1T1
// ..........>  if PriestLevel >= 11(On Master)  "CRAFTED BY AMBITIOUS CASTERS"
// ..........>                                   "NOW LONG DEAD COLD"
// ..........>                                   "THE TINY AMBER WAS TOLD"
// ..........>                                   "MEMORIES OF ITS MASTERS."
// ..........>SCROLL         at 0(5,1)  
// ............>Depending on GlobalVariabl[8]
//  ...........>  Replace with scroll reading "THE CHALLENGE//NEOPHYTE/ADVENTURER"
//  ...........>  Replace with scroll reading "THE CHALLENGE//NOVICE/ADVENTURER"
//  ...........>  Replace with scroll reading "THE CHALLENGE//APPRENTICE/EXPLORER"
//  ...........>  Replace with scroll reading "THE CHALLENGE//JOURNEYMAN/EXPLORER"
// ..........>PLASMA         at 2(30,22)
//  ...........> If PriestLevel > 3 then display
//  ...........>   "TRICKY PLASMA. QUITE STICKY."
//  ...........>   "TRICKY PLASMA. VERY STICKY."
//  ...........>   "TRICKY PLASMA. ANNOYINGLY STICKY."
//  ...........>   "SOME SORT OF STICKY IMMATERIAL ENERGY.

//  .........>MACE            "GRANTS ACCESS TO THE GUILD OF FIGHTERS."
//  .........>ROCK            if charges>0  "GLOWING STONE" 
//  .........>SHURIKEN        "GRANTS ACCESS TO THE GUILD OF NINJAS."
//  .........>MONK STAFF      "GRANTS ACCESS TO THE GUILD OF PRIESTS."
//  .........>CASQUE 'N COIF  "BESTOWS WINGED FEET."
//  .........> if PriestLevel > 11 
//  .........>    SPEED HE HAD FOR SPEED HE KNEW 
//  .........>    HIS FEET AT SPEED THEY NEARLY FLEW.
//  .........>    HIS FATE IS UNKNOWN BUT HIS CARES
//  .........>    WERE TO KEEP MORE SPEED AS SPARES.
//  .........>VEN EGG strength 0 "THERE IS A BABY MUNCHER INSIDE."
//  .........>VEN EGG strength 1 "SOMETHING WIGGLES INSIDE."
//  .........>VEN EGG strength 2 "SOMETHING WIGGLES INSIDE."
//  .........>VEN EGG strength 3 "A GREEN DRAGON EGG."
//  .........>VEN EGG strength 4 "SOMETHING WEIRD MOVES INSIDE."
//  .........>VEN EGG strength 25 "SOMETHING WITH A LOT OF LEGS WIGGLES INSIDE."
//  .........>DUST  if subtype==0  say "ASHES"
//  .........>        if subtype==1  say nothing
//  .........>        if subtype==25 say "DEAD MUSHROOM SPORES."
//  .........>CORBUM  "GRANTS ACCESS TO THE GUILD OF WIZARDS."
//  .........>POWDER  if subtype ==0 then "RUST"
//  .........>BONES        at 13(25,19) if PriestLevel > 9  "BONES OF BALIN."
// ............>                        if PriestLevel > 11 "FLEEING DID NOT HELP HIS KIND 
// ............>                                            "WHEN NAMELESS FEAR CAME FORTH.
// ............>                                            "THE CHASE WAS SHORT WHEN HE COULD FIND
// ............>                                            "NO ESCAPE SOUTH OR NORTH.
//  .........>BONES        at 13(23,22) if PriestLevel > 9  "A FRAGILE SKELETON." 
// ............>                        if PriestLevel > 11 "BONES OF ONE WHO FELL UNKNOWN 
// ............>                                            "TAKEN UNAWARES 
// ............>                                            "ONE WHO FELL TO COLD HARD STONE 
// ............>                                            "DEVOURED BY NIGHTMARES.
//  .........>BONES        at 12(12,28) if PriestLevel > 9  "BONES OF FRAIR."
// ............>                        if PriestLevel > 11 "FLEEING DID NOT HELP HIS KIND 
// ............>                                            "WHEN NAMELESS FEAR CAME FORTH.
// ............>                                            "THE CHASE WAS SHORT WHEN HE COULD FIND
// ............>                                            "NO ESCAPE SOUTH OR NORTH.
//  .........>BONES        at 12(12,29) if PriestLevel > 9  "BONES OF LOINI."
// ............>                        if PriestLevel > 11 "FLEEING DID NOT HELP HIS KIND 
// ............>                                            "WHEN NAMELESS FEAR CAME FORTH.
// ............>                                            "THE CHASE WAS SHORT WHEN HE COULD FIND
// ............>                                            "NO ESCAPE SOUTH OR NORTH.
//  .........>BONES        at 12(12,30) if PriestLevel > 9  "BONES OF NAILI."
// ............>                        if PriestLevel > 11 "FLEEING DID NOT HELP HIS KIND 
// ............>                                            "WHEN NAMELESS FEAR CAME FORTH.
// ............>                                            "THE CHASE WAS SHORT WHEN HE COULD FIND
// ............>                                            "NO ESCAPE SOUTH OR NORTH.
//  .........>BONES        at 5(28,1)   if PriestLevel > 9  "SOME SORT OF ACID BURNT THESE BONES."
// ............>                        if PriestLevel > 11 "DEEP WITHIN ARACHNID LAIRS
// ............>                                            "DID THIS BODY COME.
// ............>                                            "HE MAY HAVE NOTED DOWN HIS SCARES 
// ............>                                            "BEFORE HE WAS STRUCK DUMB.
//  .........>BONES        at 7(19,23)  if PriestLevel > 9  "VICTIM OF SOLUNE."
// ............>                        if PriestLevel > 11 "VICTIM OF A MAKER
// ............>                                            "OF GOLEMS POTIONS DEATH.
// ............>                                            "WHO S KNOWN TO MAKE HIS SLAVES EAT ASH 
// ............>                                            "BEFORE THEIR FINAL BREATH.
//  .........>BONES        at 7(19,23   if PriestLevel > 9  "VICTIM OF SOLUNE."
// ............>                        if PriestLevel > 11 "VICTIM OF A MAKER
// ............>                                            "OF GOLEMS POTIONS DEATH.
// ............>                                            "WHO S KNOWN TO MAKE HIS SLAVES EAT ASH 
// ............>                                            "BEFORE THEIR FINAL BREATH.
//  .........>BONES        at 7(14,23)  if PriestLevel > 9  "THE FATE OF AN INNOCENT PRISONNER..."
// ............>                        if PriestLevel > 11 "THE JUDGES THEY DO NOT KNOW ALL.
// ............>                                            "THEIR JUSTICE IS NOT FLAWLESS.
// ............>                                            "HIS PLEAS UNHEARD AND USELESS NOW 
// ............>                                            "AS WITH ALL THOSE DEEMED LAWLESS.
//  .........>ELVEN BOOTS  at 18(18,30) if PriestLevel > 9  "BLOODY TRAIL.
//  .........>VORPAL BLADE at 9(13,8)   if PriestLevel > 9  "BACKBONE FROM THE QUEEN OF THE MUNCHERS."
// ............>                        if PriestLevel > 11 "THE MIGHTY QUEEN OF TOOTH FILLED THINGS
// ............>                                            "UPON THE GROUND WAS LAID
// ............>                                            "AND FROM HER TWISTED AWKWARD SPINE
// ............>                                            "WAS MADE A MIGHTY BLADE.
//  .........>BONES        at 7(20,2)   if PriestLevel > 9  "CORPSE OF THE DARK COUNCILLOR."
// ............>                        if PriestLevel > 11 "FROM FAR ABOVE HE NOW HAS COME 
// ............>                                            "HIS BODY AND HIS POWER.
// ............>                                            "YOUR ACT OF DEATH HAS COME TO THIS 
// ............>                                            "DEEP DOWN THE MIGHTY TOWER.
//  .........>BONES        at 5(4,27)   if PriestLevel > 9  "OLD BONES OF LOR."
// ............>                        if PriestLevel > 11 "MIGHTY FIGHTER WAS HE TRUE 
// ............>                                            "YET HOW CAN HE HAVE DIED 
// ............>                                            "FOR FAR AWAY IN MIRROR CLEAR 
// ............>                                            "HIS MIND DOES SLEEP INSIDE.
//  .........>BONES        at 6(0,1)    if PriestLevel > 9  "SO MUCH FOR THE HERO THAT COULD NOT DIE..."
// ............>                        if PriestLevel > 11 "SPIDER STRENGTH CAN SAP ALL MIGHT 
// ............>                                            "SPIDER POISON TAKE ALL SIGHT.
// ............>                                            "NOTES HE MADE ON PROGRESS DONE 
// ............>                                            "SINCE LAST DID HE BEHOLD THE SUN.
//  .........>BONES        at 20(26,9)  if PriestLevel > 9  "CORPSE OF A BARBARIAN."
// ............>                        if PriestLevel > 11 "NOT WITHOUT ITS TRAPS THIS PLACE 
// ............>                                            "NOT WITHOUT ITS DANGERS.
// ............>                                            "TOO EASY PREY THE WIZARDS PRIESTS 
// ............>                                            "THE WARRIORS AND RANGERS.
//  .........>BONES        at 22(6,7)   if PriestLevel > 9  "A SKULL."
//  .........>BONES        at 5(5,21)   if PriestLevel > 9  "BONES OF THE CARTOGRAPHER."
// ............>                        if PriestLevel > 11 "HE HOPED HE WOULD BECOME SO RICH 
// ............>                                            "MAP MAKING WAS HIS TRADE.
// ............>                                            "BUT THEN HE FOUND THE MIGHTY LICH 
// ............>                                            "AND DIED BEFORE HE GREYED.
//  .........>BONES        at 7(13,19)  if PriestLevel > 9  "THE FATE OF A MAYBE GUILTY PRISONNER...
// ............>                        if PriestLevel > 11 "TRAPPED FOREVER LEFT BEHIND
// ............>                                            "BY FRIENDS AND FOES ALIKE.
// ............>                                            "HIS CRIME FORGOTTEN NOW PERHAPS
// ............>                                            "A VICTIM DID HE STRIKE 
//  .........>BONES        at 6(23,23)  if PriestLevel > 9  "REMAINS OF DRUAFANG."
// ............>                        if PriestLevel > 11 "HE WHO GIFTED MANY RUNES 
// ............>                                            "HE WHO HAS BEEN SLAIN.
// ............>                                            "HE WHO USED THE STARS AND MOONS 
// ............>                                            "WHO HAS FOR AGES LAIN.
//  .........>BONES        at 5(6,22)   if PriestLevel > 9  "BODY OF VECNA..."
// ............>                        if PriestLevel > 11 "HOST TO UNDEAD WILL AND MIND 
// ............>                                            "THE LICH S BODY LEFT BEHIND.
// ............>                                            "FOR NOW THE SPIRIT MAY ROAM FREE 
// ............>                                            "STILL WIELDING POWERS OF NECROMANCY.
//  .........>BOOK         at 61(13,6)  if PriestLevel > 9  "THE PAGES OF THIS BOOK ARE COVERED WITH A NICE SLOW WRITING.  THE COVER IS WEATHERED AND WATER HAS WASHED THE INK OF SOME PAGES."
//  .........>BOOK         at 61(12,14) if PriestLevel > 9  "THE PAGES OF THIS BOOK ARE COVERED WITH A SMALL ANGUISHED WRITING. IT IS HARD TO DECIPHER."
//  .........>BOOK         at 61(12,14) if PriestLevel > 9  "THIS BOOK ARE COVERED WITH CHAOTIC WRITINGS. INK STAINS OBSCURE MOST OF THE TEXT. SEVERAL PAGES WERE TORN APART."
//  .........>BOOK         at 61(9,11)  if PriestLevel > 9  "THE PAGES OF THIS BOOK ARE COVERED WITH A NICE SLOW WRITING."
//  .........>ROCK" charges 11 at 61(14,15) and 62(0,18) "GLASS ROCK"
//  .........>ROCK" charges 12 "VITROGLASS"
//  .........>ROCK" charges 13 "VITROUS ROCK"
//  .........>ROCK" charges 14 "NITROVITROUS ROCK"
//  .........>ROCK" charges 15 at 34(6,27) "PHILOSOPHAL STONE"
//  .........>THORN" charges 1 "GREEN FATE"
//  .........>THORN" charges 2 "MENS SANA IN CORPORE SANO"
//  .........>THORN" charges 3 "SCRAMBLED EGGS"
//  .........>THORN" charges 4 "MAGICK OF THE ANCIENT ONES"
//  .........>THORN" charges 5 "THOUGHTS OF BLUES"
//  .........>THORN" charges 6 "FORCE OF LIFE"
//  .........>THORN" charges 7 "GROUND VISION"
//  .........>THORN" charges 8 "FEELIN BETTER"
//  .........>THORN" charges 9 at 5(9,0) "IMPERVIOUSITY"
//  .........>THORN" charges 10 "EARTH WILL"
//  .........>THORN" charges 11 "COLD ASHES"
//  .........>THORN" charges 12 "IRON MOON"
//  .........>THORN" charges 13 "GREEN MOOD"
//  .........>THORN" charges 14 "RISE OF THE TITANS"
//  .........>THORN" charges 15 at 7(11,19) and 63(28,25) "LUNATIC FEVER"
// ..........>VEN EGG"  charges 255 "COOKED EGG"
// ..........>SAR WINE" charges 245 at 41(11,5) "SOFT WINE"
// ..........>SAR WINE" charges 246 at 41(12,9) and 61(14,15) "CHROMATIC WINE"
// ..........>SAR WINE" charges 247 at 41(12,5) "CUPRIC WINE"
// ..........>SAR WINE" charges 248 at 41(11,9) and 61(14,4) "EGG WINE"
// ..........>SAR WINE" charges 249 at 41(13,9) "RUBY WINE"
// ..........>SAR WINE" charges 250 at 61(10,15) "NOCTURN WINE"
// ..........>SAR WINE" charges 251 at 61(14,15) "MUD WINE"
// ..........>SAR WINE" charges 252 at 61(14,15) "MUSHY WINE"
// ..........>SAR WINE" charges 253 at 41(9,8) "FRUITY WINE"
// ..........>SAR WINE" charges 254 at 41(10,9) and 5(6,0) "MOON WINE"
// ..........>SAR WINE" charges 255 "WINE OF TITANS"
// ..........>WATER" charges = 249 "FLOWERS MACERATION"
// ..........>WATER" charges = 250 at 62(0,26) "JUICE"
// ..........>WATER" charges = 251 "INFUSION"
// ..........>WATER" charges = 252 "FLAVOURED JUICE"
// ..........>WATER" charges = 253 "JUICY INFUSION"
// ..........>WATER" charges = 254 at 61(12,4) "ARGENTUM VIS"
// ..........>WATER" charges = 255 at 41(8,24) "AURIC WATER"
// ..........>KATH VINEGAR" charges =248 at 61(9,8) "NITRIC ACID"
// ..........>KATH VINEGAR" charges =249 at 61(15,14) "PHOSPHORIC ACID"
// ..........>KATH VINEGAR" charges =250 at 0(18,9) "SELENIC ACID"
// ..........>KATH VINEGAR" charges =251  "EXPLOSIVE ACID"
// ..........>KATH VINEGAR" charges =252  "SULFURIC ACID"
// ..........>KATH VINEGAR" charges =253  "WHITE KATH"
// ..........>KATH VINEGAR" charges =254  "BLACK KATH"
// ..........>KATH VINEGAR" charges =255  "VITRIOL"
// ..........>DUST subtype =2 at 61(9,9) and 62(0,28) "PHOSPHORUS
// ..........>DUST subtype =3 at 61(13,15) and 62(0,30) "SALTPETRE
// ..........>DUST subtype =4 at 4(13,26) "BLACK POWDER
// ..........>DUST subtype =5 at 62(0,25) "CALCIUM
// ..........>DUST subtype =6 at 41(3,20 and 41(5,19) "CARBOXYSILICIUM
// ..........>DUST subtype =7  "CHROMATIC SILICATE
// ..........>DUST subtype =8  "LIGHT SELENIUM
// ..........>DUST subtype =9  "MOON EMBERS
// ..........>DUST subtype =10 at 11(8,21) "MOONLIGHT
// ..........>DUST subtype =11  "NITRO COAL
// ..........>DUST subtype =12 at 14(24,3) "NITRO TITANIUM".
// ..........>DUST subtype =13 at 62(0,27) "SELENIUM"
// ..........>DUST subtype =14 at 61(12,9) and 62(0,14) "SILICIUM"
// ..........>DUST subtype =15 at 61(11,12) and 62(0,21) at 61(11,12) and 62(0,21) "SILVER"
// ..........>DUST subtype =16  "TITAN MOONDUST"
// ..........>DUST subtype =17  "TITANIC PHOSPHATE"
// ..........>DUST subtype =18  "TITANIUM SULFATE"
// ..........>DUST subtype =19  "WHITE POWDER"
// ..........>DUST subtype =20  "LIME"
// ..........>DUST subtype =21  "QUICKLIME"
// ..........>POWDER subtype =1 at 61(13,13) and 62(0,13) "ALUMINIUM"
// ..........>POWDER subtype =2  "CALCIC COPPER"
// ..........>POWDER subtype =3 at 62(0,24) "CHROMIUM"
// ..........>POWDER subtype =4 at 61(14,12) "CHROMO SULFUR"
// ..........>POWDER subtype =5 at 61(10,8) "CHROMOCALCITE"
// ..........>POWDER subtype =6 at 61(11,5) "CHROMOON"
// ..........>POWDER subtype =7 at 61(15,7) and 62(0,20) "COPPER"
// ..........>POWDER subtype =8 ar 14(24,3) and 61(13,15) "COPPER SULFATE"
// ..........>POWDER subtype =9 at 61(12,14) "CUPRIC PHOSPHATE"
// ..........>POWDER subtype =10 at 61(12,9) "FERRIC SULFATE"
// ..........>POWDER subtype =11 at 61(9,8) "FERRO SELENITE"
// ..........>POWDER subtype =12 at 14(24,3) and 61(13,6) "FERRO SILICATE"
// ..........>POWDER subtype =13 at 61(10,10) "FERROCALCITE"
// ..........>POWDER subtype =14 at 20(29,5) and 61(10,12) "FERROUS NITRE"
// ..........>POWDER subtype =15 at 82(0,17) and 62(1,5) "GLOWING EMBERS"
// ..........>POWDER subtype =16 at 5(8,4) and 62(0,22) "GOLD"
// ..........>POWDER subtype =17 at 14(24,3) and 62(0,23) "TITANIUM"
// ..........>POWDER subtype =18  "NITRO COPERATE"
// ..........>POWDER subtype =19 at 3(12,9) "PHOSPHOFERRIC"
// ..........>POWDER subtype =20  "SELENIC CUPROUS"
// ..........>POWDER subtype =21 at 61(10,15) and 62(0,15) "SULFUR"
// ..........>POWDER subtype =22 at 62(0,19) "GOLDLIME"
// ..........>CERBERUS
// ..........>  Depending on Wizard Level
// ............>"The Cerberus Just Bit You" ...  "The Cerberus purrs of Sweet Joy"
// ............>"This animal hates you" ... "THIS ANIMAL IS THRILLED BY YOUR POWER."
// ............>If WizardLevel < 3 then S0 message to 0(6,31) to modify character.


Description = Examine Filter ABCDEF
State = 0
StateLocation = 0
GroupID = 0
Number of States = 58
First Displayed State = 0
Number of non-empty states = 27
State Number = 0
Number of Actions = 12
0S0 = L3 L0 &PARAM@                       // Fetch all 3 parameters to V0
      V2@ L20 L60 &CHAR@                  // Fetch 60 character Variables --> V20
      V1@ L0 &< ?J10S0                    // If no object then goto 10S0
      L0 &@ L16 &% &DUP L8 &< &NOT ?G0C0  // if CURSED     bit set then gosub 0C0
      L8 &% &DUP L4 &< &NOT ?G0T0         // if BROKEN     bit set then gosub 0T0
      L4 &% &DUP L2 &< &NOT ?G0S1         // if POISONED   bit set then gosub 0S1
      L2 &% L1 &< &NOT ?G0C1              // if CONSUMABLE bit set then gosub 0C1
      G0T2                                // 
      G0S3 
      G0C3 
      L1 L2 &@ L2 L0 &MASTERY &< ?G0T3    // If PriestLevel >= 1 then gosub 0T3
      G2C1                                // gosub 2C1
      L1 &@ &TYPE ??{(50003,2S0)}         // If CEREBUS then goto 2S0

// Subroutine called for CURSED objects  
// If Priest Level < Artisan (6) don't print CURSED text
0C0 = L1 &NEG L2 &@ L2 L0                  // < -1  charIndex  2  0 > 
      &MASTERY                             // Fetch character's mastery of skill 2 (priest)
                                           // < -1   priestLevel >
      L6 &< ?G0T1                          // if priestLevel < Artisan(6) then gosub 0T1 (Don't Print)
      L3 L0                                // < -1 or -2   3   0 >
      &DESCRIBE                            // Whether to print CURSED text


0T0 = LA L2 &@ L0 L0                       // < locationOf"BROKEN"   charIndex   0   0 >
      &MASTERY                             // < locationOf"BROKEN"   fighterLevel >
      L3 &< ?G0T1                          // if fighterLevel less than 3 (apprentice) gosub 0T1  (Don't Print)
      L2 L5 &DESCRIBE                      // < "BROKEN" or ""   2  5 >  Whether to print "BROKEN"


// Subroutine.  If ninjaLevel < 4 don't print POISONED text
0S1 = L1 &NEG L2 &@ L1 L0 
      &MASTERY                             // Fetch ninja Level
      L4 &< ?G0T1                          // If level < journeyman(4) suppress POISONED text
      G2T3 
      L1 L6 &DESCRIBE

// Subroutine.  Print "CONSUMABLE" normally
0C1 = L1 &NEG L0 L15 &DESCRIBE

// Subroutine if priestLevel < Artisan  
//            if fighterLevel < Apprentice
//            if ninjaLevel < Journeyman
0T1 = &DROP L2 &NEG   // replace -1 with -2 ... don't print descriptive text

// Object is special
0S2 = LB                               // descriptive text[4] = "UNIQUE"
      L2 &@ L2 L0 &MASTERY L7 &<       // if PriestLevel<7
      ?G0T1                            //    then descriptive text[4] = ""
      L4 L11 &DESCRIBE                 // set descriptive text[4]
      L2 &@ L2 L0 &MASTERY L9 &< &NOT  // if PriestLevel >= 9
      ?J1T0                            //    then goto 1T0

// Viewing Gauntlets 11723 at 34(15,5)
// DAGGER          at 5(8,22)
// VORPAL BLADE    at 18(25,24)
// KATANA          at 7(27,11)
0C2 = L$ 
      L2 &@ L3 L0 &MASTERY   // Fetch Wizard level
      L8 &< ?G0T1 
      L5 L8 &DESCRIBE        // if level >= 8 then "VAMPYRIC"


0T2 = L1 &@ 
      ??{(14,0S2)  // Shield of Darc  at 8(22,28)  then to 1C2
      (23,0S2)     // PowerTowers     at 4(2,1)    then to 3C2
      (41,0S2)     // LockPicks       at 0(27,2)   then to 3T3
      (46,0S2)     // Horn of Fright  at 5(22,15)  then to 1S3
      (49,0S2)     // LEVIATHON       at 10(27,0)  then to 3T3
      (63,0S2)     // GIFT OF TAMIEL  at 34(2,23)  then to 3C3
      (77,0S2)     // BEO BOW         at 0(2,19)   then to 4S0
      (96,0S2)     // HELL PLATE      at 19(1,17)  then to 13S0
      (114,0S2)    // SHIELD OF LYTE  at 10(22,6)  then to 1C3
      (117,0S2)    // WIZARD WAND     at 26(16,17) then to 3T0
      (121,0S2)    // PENDANT FERAL   at 17(8,17)  then to 3S0
      (134,0S2)    // CALIBURN        at 12(27,23) then to 1T3
      (733,0S2)    // MACE OF ORDER   at 3(4,19)   then to 4C1
      (917,0S2)    // SLING           at 3(26,22)  then to 14C0
      (1071,0S2)   // DAGGER          at 4(24,9)   then to 7T2
      (1164,0S2)   // EYE             at 9(5,24)   then to 1S1
      (1170,0S2)   // GAUNTLETS       at 11(17,31) then to 8C2
      (1468,0S2)   // CROWN OF KINGS  at 7(4,25)   then to 4T1
      (1531,0S2)   // POWERGEM        at 7(20,2)   then to 4S2
      (1826,0S2)   // DEXHELM         at 9(24,18)  then to 9T0
      (1846,0S2)   // FLAMEBAIN       at 9(27,15)  then to 9T0
      (1877,0S2)   // ELVEN BOOTS     at 9(29,17)  then to 9T0
      (2107,0S2)   // SORCERER WAND   at 11(22,8)  then to 3T1
      (2471,0S2)   // WATERSKIN       at 10(9,31)  then to 3C1
      (2533,0S2)   // ROPE            at 13(27,0)  then to 5S1
      (3075,0S2)   // COMPASS         at 8(17,13)  then to 15S0
      (3367,0S2)   // FURY            at 13(27,0)  then to 7S2
      (3990,0S2)   // ROPE            at 6(12,24)  then to 3S1
      (4895,0S2)   // MAGIC PURSE     at 0(10,8)   then to 14C3
      (4897,0S2)   // CRYSTAL BLADE   at 14(9,7)   then to 4C0
      (4934,0S2)   // FURX            at 6(23,23)  then to 4T0
      (4935,0S2)   // DRAGON HEAD     at 7(30,8)   then to 4C3
      (5287,0S2)   // FUR RAGS        at 0(1,19)   then to 11T3
      (5498,0S2)   // ELVEN BOOTS     at 18(18,30) then to 9S2
      (5507,0S2)   // VORPAL BLADE    at 9(13,8)
      (5648,0S2)   // DRAGON FEET     at 10(14,30) then to 4T3
      (5758,0S2)   // BONE DOLL       at 0(13,4)   then to 4T2
      (5769,0S2)   // MAGIC PURSE     at 4(9,25)   then to 14T2
      (5890,0S2)   // BRANCH          at 2(18,6)   then to 4S1
      (5941,0S2)   // WAND            at 2(23,22)  then to 5T1
      (6459,0S2)   // FURY            at 2(31,26)  then to 10S3
      (6574,0S2)   // BOOK            at 9(5,22)   then to 1C1
      (6627,0S2)   // DRAGON WRATH    at 14(2,18)  then to 4C2
      (6795,0S2)   // HEAVEN PLATE    at 7(0,3)    then to 13C1
      (6796,0S2)   // RUNIC GREAVES   at 19(0,18)  then to 13S1
      (7710,0S2)   // DRAGON POLYEN   at 15(3,3)   then to 5S0
      (7719,0S2)   // ARROW           at 3(12,9)   then to 14T0
      (7766,0S2)   // DRAGON ARMOR    at 15(12,19) then to 4S3
      (10684,0S2)  // CHALCEDONY      at 29(14,4)  then to 5S3
      (11723,0S2)  // GAUNTLETS       at 34(15,5)  then to 13S3
      (11827,0S2)  // THE ONE RING    at 15(29,5)  then to 3S2
      (11913,0S2)  // RUBY            at 27(15,1)  then to 5C2
      (12350,0S2)  // DUST            at 6(0,30)   then to 8T1
      (13400,0S2)  // DAGGER          at 5(8,22)   then to 5T0
      (13685,0S2)  // VORPAL BLADE    at 18(25,24) then to 5C0
      (14016,0S2)  // RAPIER          at 0(23,27)  then to 10C3
      (14180,0S2)  // SCIMITAR        at 32(15,12) then to 5S2
      (14183,0S2)  // SAPHIRE         at 28(24,1)  then to 5T2
      (14240,0S2)  // MACE OF ORDER   at 5(6,22)   then to 7S3
      (14245,0S2)  // EMERALD         at 30(7,21)  then to 5C3
      (15066,0S2)  // MASK OF TERROR  at 19(1,19)  then to 13C0
      (15068,0S2)  // DEMON POLEYN    at 19(0,20)  then to 13T0
      (15070,0S2)  // HOLY GREAVES    at 7(0,11)   then to 13S2
      (15072,0S2)  // DIVINE MASK     at 7(0,7)    then to 13C2
      (15074,0S2)  // ANGEL POLEYN    at 7(0,15)   then to 13T1
      (15191,0S2)  // SMALL SHIELD    at 6(18,21)  then to 3C0
      (15248,0S2)  // STONE MUSHROOOM at 0(1,1)    then to 8S2
      (15300,0S2)  // STORMRING       at 27(0,25)  then to 8T2
      (16275,0S2)  // CAPE            at 34(6,23)  then to 9C2
      (16292,0S2)  // FURY            at 25(26,11) then to 8S3
      (16343,0S2)  // MAGIC PURSE     at 48(14,2)  then to 14S2
      (16392,0S2)  // CORAL POLEYN    at 17(24,8)  then to 9C0
      (16820,0S2)  // DEXHELM         at 6(20,20)  then to 9T1
      (16845,0S2)  // STONE CLUB      at 8(24,1)   then to 9C3
      (16855,0S2)  // COMPASS         at 18(9,30)  then to 9T3
      (16858,0S2)  // EYE             at 4(14,7)   then to 10T3
      (16862,0S2)  // CHALCEDONY      at 4(5,1)    then to 9T2
      (16864,0S2)  // BOOK            at 41(31,23) then to 9S3
      (17064,0S2)  // GAUNTLETS       at 11(15,29) then to 13C3
      (17083,0S2)  // KATANA          at 7(27,11)  then to 13T2
      (17472,0S2)  // SHURIKEN        at 1(28,15)  then to 10T1
      (17592,0S2)  // SPIKED MACE     at 34(0,29)  then to 1T2
      (17939,0S2)  // BOOK            at 8(21,5)   then to 10S2
      (18097,0S2)  // EMERALD         at 62(16,0)  then to 14S1
      (18623,0S2)  // MAGIC PURSE     at 41(4,27)  then to 14C2
      (18624,0S2)  // MAGIC PURSE     at 7(17,8)   then to 14S3
      (18625,0S2)  // MAGIC PURSE     at 10(14,8)  then to 14T1
      (19282,0S2)} // CHALCEDONY      at 61(9,8)  then to 9T2
      L1 &@ &TYPE 
      ??{(100040,0S2)} // THE HELION at3(30,12) 13(11,25) 34(1,5) 38(31,0) 51(13,04) then to 3S3


0S3 = L1 &@ 
      ??{(11723,0C2)  // GAUNTLETS       at 34(15,5)
      (13400,0C2)     // DAGGER          at 5(8,22)
      (13685,0C2)     // VORPAL BLADE    at 18(25,24)
      (14240,12S0     // MACE OF ORDER   at 5(6,22)
      (16448,11S0)    // Scroll          at 0(5,1)
      (17083,0C2)}    // KATANA          at 7(27,11)
      
0C3 = L1 &@ &GETCURSE ?G0C0    // If cursed gosub 0C0
      L1 &@ &GETBROKEN ?G0T0   // If broken gosub 0T0
      
0T3 = L1 &@ 
      ??{(6456,13T3)} // If PLASMA at 2(30,22) then goto 13T3
                      // 13T3 = L19318 
                      // If PriestLEvel > 3 then
                      //   "TRICKY PLASMA. QUITE STICKY."
                      //   "TRICKY PLASMA. VERY STICKY."
                      //   "TRICKY PLASMA. ANNOYINGLY STICKY."
                      //   "SOME SORT OF STICKY IMMATERIAL ENERGY.

      L1 &@ &TYPE 
      ??{(50020,8T0)  //"MACE"            "GRANTS ACCESS TO THE GUILD OF FIGHTERS."
      (50030,7C3)     //"ROCK"            if charges>0  "GLOWING STONE" 
      (50032,8S1)     //"SHURIKEN"        "GRANTS ACCESS TO THE GUILD OF NINJAS."
      (50034,8C0)     //"MONK STAFF"      "GRANTS ACCESS TO THE GUILD OF PRIESTS."
      (60056,7T1)     //"CASQUE 'N COIF"  "BESTOWS WINGED FEET."
                      // if PriestLevel > 11 
                      //    SPEED HE HAD FOR SPEED HE KNEW 
                      //    HIS FEET AT SPEED THEY NEARLY FLEW.
                      //    HIS FATE IS UNKNOWN BUT HIS CARES
                      //    WERE TO KEEP MORE SPEED AS SPARES.
      (80768,7C2)     //"VEN EGG" strength 0 "THERE IS A BABY MUNCHER INSIDE."
      (80769,8C3)     //"VEN EGG" strength 1 "SOMETHING WIGGLES INSIDE."
      (80770,9S1)     //"VEN EGG" strength 2 "SOMETHING WIGGLES INSIDE."
      (80771,9S0)     //"VEN EGG" strength 3 "A GREEN DRAGON EGG."
      (80772,9C1)     //"VEN EGG" strength 4 "SOMETHING WEIRD MOVES INSIDE."
      (80793,8T3)     //"VEN EGG" strength 25 "SOMETHING WITH A LOT OF LEGS WIGGLES INSIDE."
      (100004,1S0)    //"DUST"  if subtype==0  say "ASHES"
                      //        if subtype==1  say nothing
                      //        if subtype==25 say "DEAD MUSHROOM SPORES."
      (100047,8S0)    //"CORBUM"  "GRANTS ACCESS TO THE GUILD OF WIZARDS."
      (100050,10C2)}  //"POWDER"  if subtype ==0 then "RUST"
State Number = 1
Number of Actions = 12

// DUST
1S0 = L1 &@ &GETSUBTYPE &DUP &NOT  //   < subtype   subtype==0 >
      ?J1C0                        // if subtype==0 goto 1C0  "ASHES"
      L1 &!= ?J1S2                 // if subtype==1 goto 1S2  say nothing
      L19381 G1T1                  // else "DEAD MUSHROOM SPORES."
1C0 = L19380 G1T1    // "ASHES"


1T0 = L1 &@ 
      ??{(14,1C2)
      (23,3C2)
      (41,3T3)
      (46,1S3)
      (49,3T2)
      (63,3C3)
      (77,4S0)
      (96,13S0)
      (114,1C3)
      (117,3T0)
      (121,3S0)
      (134,1T3)
      (733,4C1)
      (917,14C0)
      (1071,7T2)
      (1164,1S1)
      (1170,8C2)
      (1468,4T1)
      (1531,4S2)
      (1826,9T0)
      (1846,9T0)
      (1877,9T0)
      (2107,3T1)
      (2471,3C1)
      (2533,5S1)
      (3075,15S0)
      (3367,7S2)
      (3990,3S1)
      (4895,14C3)
      (4897,4C0)
      (4934,4T0)
      (4935,4C3)
      (5287,11T3)
      (5498,9S2)
      (5648,4T3)
      (5758,4T2)
      (5769,14T2)
      (5890,4S1)
      (5941,5T1)
      (6459,10S3)
      (6574,1C1)
      (6627,4C2)
      (6795,13C1)
      (6796,13S1)
      (7710,5S0)
      (7719,14T0)
      (7766,4S3)
      (10684,5S3)
      (11723,13S3)
      (11827,3S2)
      (11913,5C2)
      (12350,8T1)
      (13400,5T0)
      (13685,5C0)
      (14016,10C3)
      (14180,5S2)
      (14183,5T2)
      (14240,7S3)
      (14245,5C3)
      (15066,13C0)
      (15068,13T0)
      (15070,13S2)
      (15072,13C2)
      (15074,13T1)
      (15191,3C0)
      (15248,8S2)
      (15300,8T2)
      (16275,9C2)
      (16292,8S3)
      (16343,14S2)
      (16392,9C0)
      (16820,9T1)
      (16845,9C3)
      (16855,9T3)
      (16858,10T3)
      (16862,9T2)
      (16864,9S3)
      (17064,13C3)
      (17083,13T2)
      (17472,10T1)
      (17592,1T2)
      (17939,10S2)
      (18097,14S1)
      (18623,14C2)
      (18624,14S3)
      (18625,14T1)
      (19282,9T2)} 
      L1 &@ &TYPE 
      ??{(100040,3S3)}
1S1 = L19424 G1T1
1C1 = L19425 G1T1

// Describe object unconditionlly.
// IF PriestLevel > 11 then provide enhanced description at location +1(0,0)
1T1 = &DUP L7 L9 &DESCRIBE // < location ... location >
      L2 &@ L2 L0 &MASTERY // < location  priestLevel > 
      L11 &< ?J1S2         
      L1024 &+ L15 &SAY    // if priestLevel >= 11(On Master) then say 
1S2 = N
1C2 = L19426 G1T1
1T2 = L19427 G1T1
1S3 = L19428 G1T1 L2 &@ L1 L0 &MASTERY L9 &< ?J1S2 L264 L0 L0 &SOUND
1C3 = L19429 G1T1
1T3 = L19430 G1T1
State Number = 2
Number of Actions = 11

// Examining a CERBERUS     // <  >
2S0 = L2 &@ L3 L3 &MASTERY  // Wizard Level
      L32 &* L18833 &+      // 32*wizardLevel (Move over wixxardLevel Columns) + 18(12,17)
      &DUP &1+              // Text location down one row
      G2S2                  // Sound if high level wizard
      L15 &SAY              // "The Cerberus Just Bit You" ...  "The Cerberus purrs of Sweet Joy"
      L7 L9 &DESCRIBE       // "This animal hates you" ... "THIS ANIMAL IS THRILLED BY YOUR POWER."
      L2 &@ L3 L3 &MASTERY  // Wizard level again
      ??{(0,2C0)(1,2C0)(2,2T0)} 
//WizardLevel 0 or 1
2C0 = L10 &RAND &NEG J2S1  // -RAND(10)
// WizardLEvel 2
2T0 = L0 J2S1              // 0

// Wizard level 0, 1, or 2.  // Stack contains adjustment ( 0 or -RAND(10) )
                             // < adj >
2S1 = V2@                    // < adj  charIndex  >
      L2 &ROT                // < charIndex  2  adj >
      &1- G2S3               // < charIndex  2  adj-1 > Set0 Message to 0(6,31) (adjust PriestLevel?)
      L221 L0 L0 &SOUND      // Make Sound

// Near end of viewing filter
2C1 = V2@ L2 L0 &MASTERY L4 &< &NOT ?J2T1  if PriestLevel>=4 then goto 2T1
2T1 = V1@ ??
      {(198,7T0) BONES at 13(25,19)BONES OF BALIN."FLEEING DID NOT HELP HIS KIND /WHEN NAMELESS FEAR CAME FORTH./THE CHASE WAS SHORT WHEN HE COULD FIND/NO ESCAPE SOUTH OR NORTH.
      (2363,7C0) BONES at 13(23,22)A FRAGILE SKELETON." BONES OF ONE WHO FELL UNKNOWN /TAKEN UNAWARES /ONE WHO FELL TO COLD HARD STONE /DEVOURED BY NIGHTMARES.
      (2661,6C3) BONES at 12(12,28)BONES OF FRAIR."FLEEING DID NOT HELP HIS KIND /WHEN NAMELESS FEAR CAME FORTH./THE CHASE WAS SHORT WHEN HE COULD FIND/NO ESCAPE SOUTH OR NORTH.
      (2665,6T3) BONES at 12(12,29)BONES OF LOINI."FLEEING DID NOT HELP HIS KIND /WHEN NAMELESS FEAR CAME FORTH./THE CHASE WAS SHORT WHEN HE COULD FIND/NO ESCAPE SOUTH OR NORTH.
      (2669,7S0) BONES at 12(12,30)BONES OF NAILI."FLEEING DID NOT HELP HIS KIND /WHEN NAMELESS FEAR CAME FORTH./THE CHASE WAS SHORT WHEN HE COULD FIND/NO ESCAPE SOUTH OR NORTH.
      (3500,6S2) BONES at 5(28,1)SOME SORT OF ACID BURNT THESE BONES."DEEP WITHIN ARACHNID LAIRS/DID THIS BODY COME./HE MAY HAVE NOTED DOWN HIS SCARES /BEFORE HE WAS STRUCK DUMB.
      (4824,6S3) BONES at 7(19,23)VICTIM OF SOLUNE."VICTIM OF A MAKER/OF GOLEMS POTIONS DEATH./WHO S KNOWN TO MAKE HIS SLAVES EAT ASH /BEFORE THEIR FINAL BREATH.
      (4825,6S3) BONES at 7(19,23)VICTIM OF SOLUNE."VICTIM OF A MAKER/OF GOLEMS POTIONS DEATH./WHO S KNOWN TO MAKE HIS SLAVES EAT ASH /BEFORE THEIR FINAL BREATH.
      (4975,6T2) BONES at 7(14,23)THE FATE OF AN INNOCENT PRISONNER..."THE JUDGES THEY DO NOT KNOW ALL./THEIR JUSTICE IS NOT FLAWLESS./HIS PLEAS UNHEARD AND USELESS NOW /AS WITH ALL THOSE DEEMED LAWLESS.
      (5498,5T3) ELVEN BOOTS at 18(18,30)BLOODY TRAIL.
      (5507,5C1) VORPAL BLADE at 9(13,8)BACKBONE FROM THE QUEEN OF THE MUNCHERS."THE MIGHTY QUEEN OF TOOTH FILLED THINGS/UPON THE GROUND WAS LAID/AND FROM HER TWISTED AWKWARD SPINE/WAS MADE A MIGHTY BLADE.
      (5518,6C0) BONES at 7(20,2)CORPSE OF THE DARK COUNCILLOR."FROM FAR ABOVE HE NOW HAS COME /HIS BODY AND HIS POWER./YOUR ACT OF DEATH HAS COME TO THIS /DEEP DOWN THE MIGHTY TOWER.
      (7989,6S1) BONES at 5(4,27)OLD BONES OF LOR."MIGHTY FIGHTER WAS HE TRUE /YET HOW CAN HE HAVE DIED /FOR FAR AWAY IN MIRROR CLEAR /HIS MIND DOES SLEEP INSIDE.
      (8309,6T0) BONES at 6(0,1)SO MUCH FOR THE HERO THAT COULD NOT DIE..."SPIDER STRENGTH CAN SAP ALL MIGHT /SPIDER POISON TAKE ALL SIGHT./NOTES HE MADE ON PROGRESS DONE /SINCE LAST DID HE BEHOLD THE SUN.
      (9636,7S1) BONES at 20(26,9)CORPSE OF A BARBARIAN."NOT WITHOUT ITS TRAPS THIS PLACE /NOT WITHOUT ITS DANGERS./TOO EASY PREY THE WIZARDS PRIESTS /THE WARRIORS AND RANGERS.
      (9899,7C1) BONES at 22(6,7)A SKULL."
      (11995,6T1 BONES at )5(5,21)BONES OF THE CARTOGRAPHER."HE HOPED HE WOULD BECOME SO RICH /MAP MAKING WAS HIS TRADE./BUT THEN HE FOUND THE MIGHTY LICH /AND DIED BEFORE HE GREYED.
      (13310,6C2) BONES at 7(13,19)THE FATE OF A MAYBE GUILTY PRISONNER..."TRAPPED FOREVER LEFT BEHIND/BY FRIENDS AND FOES ALIKE./HIS CRIME FORGOTTEN NOW PERHAPS/A VICTIM DID HE STRIKE 
      (13771,6S0) BONES at 6(23,23)REMAINS OF DRUAFANG."HE WHO GIFTED MANY RUNES /HE WHO HAS BEEN SLAIN./HE WHO USED THE STARS AND MOONS /WHO HAS FOR AGES LAIN.
      (13772,6C1) BONES at 5(6,22)BODY OF VECNA..."HOST TO UNDEAD WILL AND MIND /THE LICH S BODY LEFT BEHIND./FOR NOW THE SPIRIT MAY ROAM FREE /STILL WIELDING POWERS OF NECROMANCY.
      (19008,16S0) BOOK at 61(13,6)THE PAGES OF THIS BOOK ARE COVERED WITH A NICE SLOW WRITING.  THE COVER IS WEATHERED AND WATER HAS WASHED THE INK OF SOME PAGES."
      (19009,16C0) BOOK at 61(12,14)THE PAGES OF THIS BOOK ARE COVERED WITH A SMALL ANGUISHED WRITING. IT IS HARD TO DECIPHER."
      (19010,16T0) BOOK at 61(12,14)THIS BOOK ARE COVERED WITH CHAOTIC WRITINGS. INK STAINS OBSCURE MOST OF THE TEXT. SEVERAL PAGES WERE TORN APART."
      (19069,16T1)} BOOK at 61(9,11)THE PAGES OF THIS BOOK ARE COVERED WITH A NICE SLOW WRITING."
      J49S0
      
// Subroutine      
// View Cerberus  <text location>  18(12,18) + (level,0)
// "The Cerberus Just Bit You" ...  "The Cerberus purrs of Sweet Joy"
2S2 = &DUP 
      ??{(19250,2C2) 18(25,18)
      (19282,2C2)    18(26,18)
      (19314,2C2)    18(27,18)
      (19346,2C2)    18(28,18)
      (19378,2C2)    18(29,18)
      (19410,2C2)    18(30,18)
      (19442,2C2)}   18(31,18)
      
// Cerberus & high level wizard
2C2 = L310 L0 L0 &SOUND

// View Cerberus subroutine
// Three values on stack <      >
2S3 = V0@ V1@ V2@                // Save parameter values
      L5 &ROLL L5 &ROLL L5 &ROLL // < --- 
      V2! V1! V0! L3 L0 &PARAM!  // Set new parameter values
      L223 L0 L3 L0 &MESSAGE     // Set0 To 0(6,31) Character parameter change
      V2! V1! V0! L3 L0 &PARAM!  // Restore original parameter values


2C3 = &DROP L10844   // Drop old text and use text at 10(18,28) "FUNEREAL"

// Subroutine.  If weapon replace text with 
2T3 = L1 &@ &TYPE L10000 &/ L5 &=    // <  objectType==5  >  Test for 'weapon'
      ?J2C3                          // if weapon goto 2C3


State Number = 3
Number of Actions = 12
3S0 = L19431 G1T1
3C0 = L19114 G1T1
3T0 = L19433 G1T1
3S1 = L19434 G1T1
3C1 = L19435 G1T1
3T1 = L19436 G1T1
3S2 = L19437 G1T1
3C2 = L19232 G1T1
3T2 = L19233 G1T1
3S3 = L19234 G1T1
3C3 = L19235 G1T1
3T3 = L19236 G1T1
State Number = 4
Number of Actions = 12
4S0 = L19237 G1T1
4C0 = L19238 G1T1
4T0 = L19239 G1T1
4S1 = L19240 G1T1
4C1 = L19241 G1T1
4T1 = L19242 G1T1
4S2 = L19243 G1T1
4C2 = L19244 G1T1
4T2 = L19245 G1T1
4S3 = L19246 G1T1
4C3 = L19247 G1T1
4T3 = L19248 G1T1
State Number = 5
Number of Actions = 12
5S0 = L19366 G1T1
5C0 = L19367 G1T1
5T0 = L19368 G1T1
5S1 = L19438 G1T1
5C1 = L19440 G1T1
5T1 = L19369 G1T1
5S2 = L19200 G1T1
5C2 = L19201 G1T1
5T2 = L19202 G1T1
5S3 = L19203 G1T1
5C3 = L19204 G1T1
5T3 = L19205 G1T1
State Number = 6
Number of Actions = 12
6S0 = L19168 G1T1
6C0 = L19169 G1T1
6T0 = L19170 G1T1
6S1 = L19171 G1T1
6C1 = L19172 G1T1
6T1 = L19173 G1T1
6S2 = L19174 G1T1
6C2 = L19175 G1T1
6T2 = L19176 G1T1
6S3 = L19177 G1T1
6C3 = L19178 G1T1
6T3 = L19179 G1T1
State Number = 7
Number of Actions = 12
7S0 = L19180 G1T1
7C0 = L19181 G1T1
7T0 = L19182 G1T1
7S1 = L19183 G1T1
7C1 = L19184 G1T1

// CASK N COIF
7T1 = L19334 G1T1  //"BESTOWS WINGED FEET."
7S2 = L19335 G1T1
7C2 = L19385 G1T1  //"THERE IS A BABY MUNCHER INSIDE."
7T2 = L19302 G1T1
7S3 = L19303 G1T1

// ROCK
7C3 = L1 &@ &GETCHARGES ?J7T3
7T3 = L19382 G1T1
State Number = 8
Number of Actions = 12
8S0 = L19310 J8C1  // "GRANTS ACCESS TO THE GUILD OF WIZARDS."

// MONK STAFF
8C0 = L19342 J8C1 "GRANTS ACCESS TO THE GUILD OF PRIESTS."

// Torch
8T0 = L19311 J8C1

8S1 = L19343 J8C1


8C1 = L7 L15 &DESCRIBE
8T1 = L19110 G1T1
8S2 = L19111 G1T1
8C2 = L19112 G1T1
8T2 = L19113 G1T1
8S3 = L19116 G1T1

//VEN EGG strength 1
8C3 = L19386 G1T1  // "SOMETHING WIGGLES INSIDE."

// VEN EGG strength 25
8T3 = L19387 G1T1  // "SOMETHING WITH A LOT OF LEGS WIGGLES INSIDE."
State Number = 9
Number of Actions = 12

// VEN EGG strength 3
9S0 = L19388 G1T1  // "A GREEN DRAGON EGG."
9C0 = L19115 G1T1
9T0 = L19118 G1T1

//VEN EGG Strength 2 
9S1 = L19354 G1T1  // "SOMETHING WIGGLES INSIDE."

//VEN EGG strength 4
9C1 = L19353 G1T1  // "SOMETHING WEIRD MOVES INSIDE."
9T1 = L19119 G1T1
9S2 = L19205 G1T1
9C2 = L19206 G1T1
9T2 = L19207 G1T1
9S3 = L19208 G1T1
9C3 = L19209 G1T1
9T3 = L19210 G1T1
State Number = 10
Number of Actions = 12

// No object....examining character stats.
10S0 = GV4@                 // Fetch Global Variable[4]
       V2@ L0 L3 &MASTERY   // Fetch fighter skill
       &< ?G10C0            // If fighter skill > GlobalVariable[4] then gosub 10C0
       GV5@ V2@ L1 L3 &MASTERY &< ?G10T0 // If ninja skill > GlobalVariable[5] then gosub 10T0
       GV6@ V2@ L2 L3 &MASTERY &< ?G10S1 // If priest skill > GlobalVariable[6] then gosub 10S1
       GV7@ V2@ L3 L3 &MASTERY &< ?G10C1 // If wizard skill > GlobalVariable[7] then gosub 10C1
       J20S0
10C0 = L19040 L12 &SAY  // Say "YOU NEED A HIGHER FIGHTER RANK TO PROGRESS FURTHER..."
10T0 = L19041 L12 &SAY  // Say "YOU NEED A HIGHER NINJA RANK TO PROGRESS FURTHER..."
10S1 = L19042 L12 &SAY  // Say "YOU NEED A HIGHER PRIEST RANK TO PROGRESS FURTHER..."
10C1 = L19043 L12 &SAY  // Say "YOU NEED A HIGHER WIZARD RANK TO PROGRESS FURTHER..."
10T1 = L19044 L15 &SAY
10S2 = L19444 G1T1
10C2 = L1 &@ &GETSUBTYPE &NOT ?J10T2 // if subtype ==0 then "RUST"
10T2 = L19379 G1T1  "RUST"
10S3 = L19432 G1T1
10C3 = L19212 G1T1
10T3 = L19211 G1T1
State Number = 11
Number of Actions = 3

// Scroll at 0(5,1) Competition Scroll
11S0 = L20096 OP3 MT*   // Send T3 message to 19(20,0) Competition Counter (points)
       GV8@ ?J11C0      // if GlobalVariable[8] then goto 11C0

11C0 = L0 GV8@ L20 &/    // < 0  GV[8]/20 >
       L20097 &+         // < 0  19(20,1)+(0,GV[8]/20) >
                         // Scroll "THE CHALLENGE//NEOPHYTE/ADVENTURER"
                         // Scroll "THE CHALLENGE//NOVICE/ADVENTURER"
                         // Scroll "THE CHALLENGE//APPRENTICE/EXPLORER"
                         // Scroll "THE CHALLENGE//JOURNEYMAN/EXPLORER"
       L15 L128 F        // Fetch the scroll object
       V1! L3 L0 &PARAM! // Set the objectID being examined


11T3 = L19443 G1T1
State Number = 12
Number of Actions = 1

// MACE OF ORDER   at 5(6,22)
12S0 = LC    
       MS*   // Send S0 message with 0 delay
             // 5(18,31)  Two And/Or on Crypt level
             // Trigger Rive generator at 5(15,14) Center of large area
             // Send S0 to 5(30,30) ('RandomChance') --> CompetitionCounter @19(26,0) "points"
State Number = 13
Number of Actions = 12
13S0 = L19277 G1T1
13C0 = L19278 G1T1
13T0 = L19279 G1T1
13S1 = L19280 G1T1
13C1 = L19213 G1T1
13T1 = L19214 G1T1
13S2 = L19215 G1T1
13C2 = L19216 G1T1
13T2 = L19315 G1T1
13S3 = L19316 G1T1
13C3 = L19317 G1T1

// PLASMA at 2(30,22) 
13T3 = L19318     // "TRICKY PLASMA. QUITE STICKY."
                  // "TRICKY PLASMA. VERY STICKY."
                  // "TRICKY PLASMA. ANNOYINGLY STICKY."
                  // "SOME SORT OF STICKY IMMATERIAL ENERGY.
       LD &+ G1T1 // if PriestLevel >3 then say 
       LD &1+ &DUP L4 &= ?G14S0 SD


State Number = 14
Number of Actions = 11
14S0 = &DROP L3
14C0 = L19150 G1T1
14T0 = L19149 G1T1
14S1 = L19117 G1T1 V30@ L256 &% L10 &/ &DUP L8 &< &NOT ?G14C1 LE &+ L15 &SAY
14C1 = &DROP L7
14T1 = L19323 G1T1 V0@ V1@ &GETSUBTYPE V0! L1 L0 &PARAM! LF L2 L1 L0 OP3 &MESSAGE V0! L1 L0 &PARAM!
14S2 = L19324 G1T1 V0@ V1@ &GETSUBTYPE V0! L1 L0 &PARAM! LF L2 L1 L0 OP3 &MESSAGE V0! L1 L0 &PARAM!
14C2 = L19325 G1T1 V0@ V1@ &GETSUBTYPE V0! L1 L0 &PARAM! LF L2 L1 L0 OP3 &MESSAGE V0! L1 L0 &PARAM!
14T2 = L19326 G1T1 V0@ V1@ &GETSUBTYPE V0! L1 L0 &PARAM! LF &1+ L2 L1 L0 OP3 &MESSAGE V0! L1 L0 &PARAM!
14S3 = L19291 G1T1 V0@ V1@ &GETSUBTYPE V0! L1 L0 &PARAM! LF &1+ L2 L1 L0 OP3 &MESSAGE V0! L1 L0 &PARAM!
14C3 = L19292 G1T1 V0@ V1@ &GETSUBTYPE V0! L1 L0 &PARAM! LF &1+ &1+ L2 L1 L0 OP3 &MESSAGE V0! L1 L0 &PARAM!
State Number = 15
Number of Actions = 1
15S0 = L19109 G1T1 L60 L2 &PARTY@ V61@ &MULTIPLIER@ L63840 &+ L15 &SAY
State Number = 16
Number of Actions = 6
16S0 = L64101 J16S1
16C0 = L64133 J16S1
16T0 = L64165 J16S1
16S1 = V1@ &GETCHARGES &+ L15 &SAY V1@ &DUP &GETCHARGES &1+ &DUP L16 &= ?G16C1 &SETCHARGES
16C1 = &DROP L0
16T1 = L64197 J16S1
State Number = 20
Number of Actions = 6
20S0 = G20C0 G20T0 G20S1 G20C1

20C0 = V78@ L1 &AND &NOT   // if Talent[0] then Say "YOU FEEL NAUSEOUS AND SICK."
       ?J20T3 L20422 L15 &SAY

20T0 = V78@ L2 &AND &NOT ?J20T3 L20423 L15 &SAY // if Talent[1] then Say "FEVER AND SWEAT TROUBLE YOU."
20S1 = V78@ L4 &AND &NOT ?J20T3 L20424 L15 &SAY // If Talent[2[ then Say "CHILLS AND TEMBLORS RUN ALONG YOUR BODY."
20C1 = V78@ L8 &AND &NOT ?J20T3 L20425 L15 &SAY // If Talent[3] then Say "YOUR BONES FEEL ICY AND FRAGILE."
20T3 = N
State Number = 49
Number of Actions = 6
49S0 = V1@ &TYPE G49C0 
       ??{(3011,50S0)"ROCK" charges 11 "GLASS ROCK"
       (3012,50C0)"ROCK" charges 12 "VITROGLASS"
       (3013,50T0)"ROCK" charges 13 VITROUS ROCK
       (3014,50S1)"ROCK" charges 14 NITROVITROUS ROCK
       (3015,50C1)"ROCK" charges 15 PHILOSOPHAL STONE
       (3101,51C2)"THORN" charges 1 GREEN FATE
       (3102,51S2)"THORN" charges 2 MENS SANA IN CORPORE SANO
       (3103,51T1)"THORN" charges 3 SCRAMBLED EGGS
       (3104,51C1)"THORN" charges 4 MAGICK OF THE ANCIENT ONES
       (3105,51S1)"THORN" charges 5 THOUGHTS OF BLUES
       (3106,51T0)"THORN" charges 6 FORCE OF LIFE
       (3107,51C0)"THORN" charges 7 GROUND VISION
       (3108,51S0)"THORN" charges 8 FEELIN BETTER
       (3109,50T3)"THORN" charges 9 IMPERVIOUSITY
       (3110,50C3)"THORN" charges 10 EARTH WILL
       (3111,50S3)"THORN" charges 11 COLD ASHES
       (3112,50T2)"THORN" charges 12 IRON MOON
       (3113,50C2)"THORN" charges 13 GREEN MOOD
       (3114,50S2)"THORN" charges 14 RISE OF THE TITANS
       (3115,50T1)"THORN" charges 15 LUNATIC FEVER
       (21023,51T2)3,255 "VEN EGG"  charges 255 "COOKED EGG"
       (21269,51S3)4,245 "SAR WINE" charges 245 "SOFT WINE"
       (21270,51C3)4,246 "SAR WINE" charges 246 "CHROMATIC WINE"
       (21271,51T3)4,247 "SAR WINE" charges 247 "CUPRIC WINE"
       (21272,52S0)4,248 "SAR WINE" charges 248 "EGG WINE"
       (21273,52C0)4,249 "SAR WINE" charges 249 "RUBY WINE"
       (21274,52T0)4,250 "SAR WINE" charges 250 "NOCTURN WINE"
       (21275,52S1)4,251 "SAR WINE" charges 251 "MUD WINE"
       (21276,52C1)4,252 "SAR WINE" charges 252 "MUSHY WINE"
       (21277,52T1)4,253 "SAR WINE" charges 253 "FRUITY WINE"
       (21278,52S2)4,254 "SAR WINE" charges 254 "MOON WINE"
       (21279,52T2)4,255 "SAR WINE" charges 255 "WINE OF TITANS"
       (24089,52S3)15,249 "WATER" charges = 249 "FLOWERS MACERATION"
       (24090,52C3)15,250 "WATER" charges = 250 "JUICE"
       (24091,52T3)15,251 "WATER" charges = 251 "INFUSION"
       (24092,53S0)15,252 "WATER" charges = 252 "FLAVOURED JUICE"
       (24093,53C0)15,253 "WATER" charges = 253 "JUICY INFUSION"
       (24094,53T0)15,254 "WATER" charges = 254 "ARGENTUM VIS"
       (24095,53S1)15,255 "WATER" charges = 255 "AURIC WATER"
       (24344,53T2)"KATH VINEGAR" charges =248  "NITRIC ACID"
       (24345,53C2)"KATH VINEGAR" charges =249  "PHOSPHORIC ACID"
       (24346,53S2)"KATH VINEGAR" charges =250  "SELENIC ACID"
       (24347,57T1)"KATH VINEGAR" charges =251  "EXPLOSIVE ACID"
       (24348,53S3)"KATH VINEGAR" charges =252  "SULFURIC ACID"
       (24349,53C1)"KATH VINEGAR" charges =253  "WHITE KATH"
       (24350,53T1)"KATH VINEGAR" charges =254  "BLACK KATH"
       (24351,53C3)"KATH VINEGAR" charges =255  "VITRIOL"
       (30402,53T3)"DUST subtype =2  "PHOSPHORUS
       (30403,54S0)"DUST subtype =3  "SALTPETRE
       (30404,54C0)"DUST subtype =4  "BLACK POWDER
       (30405,54T0)"DUST subtype =5  "CALCIUM
       (30406,54S1)"DUST subtype =6  "CARBOXYSILICIUM
       (30407,54C1)"DUST subtype =7  "CHROMATIC SILICATE
       (30408,54T1)"DUST subtype =8  "LIGHT SELENIUM
       (30409,54S2)"DUST subtype =9  "MOON EMBERS
       (30410,54C2)"DUST subtype =10  "MOONLIGHT
       (30411,54T2)"DUST subtype =11  "NITRO COAL
       (30412,54S3)"DUST subtype =12  "NITRO TITANIUM".
       (30413,54C3)"DUST subtype =13  "SELENIUM"
       (30414,54T3)"DUST subtype =14  "SILICIUM"
       (30415,55S0)"DUST subtype =15  "SILVER"
       (30416,55C0)"DUST subtype =16  "TITAN MOONDUST"
       (30417,55T0)"DUST subtype =17  "TITANIC PHOSPHATE
       (30418,55S1)"DUST subtype =18  "TITANIUM SULFATE
       (30419,55C1)"DUST subtype =19  "WHITE POWDER
       (30420,55T1)"DUST subtype =20  "LIME
       (30421,55S2)"DUST subtype =21  "QUICKLIME
       (35001,55C2)"POWDER subtype =1  "ALUMINIUM
       (35002,55T2)"POWDER subtype =2  "CALCIC COPPER
       (35003,55S3)"POWDER subtype =3  "CHROMIUM
       (35004,55C3)"POWDER subtype =4  "CHROMO SULFUR
       (35005,55T3)"POWDER subtype =5  "CHROMOCALCITE
       (35006,56S0)"POWDER subtype =6  "CHROMOON
       (35007,56C0)"POWDER subtype =7  "COPPER
       (35008,56T0)"POWDER subtype =8  "COPPER SULFATE
       (35009,56S1)"POWDER subtype =9  "CUPRIC PHOSPHATE
       (35010,56C1)"POWDER subtype =10  "FERRIC SULFATE
       (35011,56T1)"POWDER subtype =11  "FERRO SELENITE
       (35012,56S2)"POWDER subtype =12  "FERRO SILICATE
       (35013,56C2)"POWDER subtype =13  "FERROCALCITE
       (35014,56T2)"POWDER subtype =14  "FERROUS NITRE
       (35015,56S3)"POWDER subtype =15  "GLOWING EMBERS
       (35016,56C3)"POWDER subtype =16  "GOLD
       (35017,56T3)"POWDER subtype =17  "TITANIUM
       (35018,57S0)"POWDER subtype =18  "NITRO COPERATE
       (35019,57C0)"POWDER subtype =19  "PHOSPHOFERRIC
       (35020,57T0)"POWDER subtype =20  "SELENIC CUPROUS
       (35021,57S1)"POWDER subtype =21  "SULFUR
       (35022,57C1)}"POWDER subtype =22  "GOLDLIME
       
// Subroutine called from 49S0  < objectType >
49C0 = &DUP L10000 &/     < objType  objType/10000  >
       ??{(5,49T0)   // Weapon     --> 100*type + charges
       (6,49S1)      // Clothing   --? 10000+type+charges
       (8,49C1)      // Potion     --> 20000+256*type + strength
       (10,49T1)}    // Misc       --> 30000+100*type + subtype
       &DROP L0

49T0 = L50000 &NEG &+ L100 &* V1@ &GETCHARGES &+
49S1 = L50000 &NEG &+ V1@ &GETCHARGES &+
49C1 = L60000 &NEG &+
49T1 = L100000 &NEG &+ L100 &* L30000 &+ V1@ &GETSUBTYPE &+
State Number = 50
Number of Actions = 12
50S0 = L64424 G1T1
50C0 = L64425 G1T1
50T0 = L64426 G1T1
50S1 = L64427 G1T1
50C1 = L64428 G1T1
50T1 = L64429 G1T1
50S2 = L64430 G1T1
50C2 = L64431 G1T1
50T2 = L64432 G1T1
50S3 = L64433 G1T1
50C3 = L64434 G1T1
50T3 = L64435 G1T1
State Number = 51
Number of Actions = 12
51S0 = L64436 G1T1
51C0 = L64437 G1T1
51T0 = L64438 G1T1
51S1 = L64439 G1T1
51C1 = L64440 G1T1
51T1 = L64441 G1T1
51S2 = L64442 G1T1
51C2 = L64443 G1T1
51T2 = L64444 G1T1
51S3 = L64445 G1T1
51C3 = L64446 G1T1
51T3 = L64447 G1T1
State Number = 52
Number of Actions = 11
52S0 = L64448 G1T1
52C0 = L64449 G1T1
52T0 = L64450 G1T1
52S1 = L64451 G1T1
52C1 = L64452 G1T1
52T1 = L64453 G1T1
52S2 = L64454 G1T1
52T2 = L64455 G1T1
52S3 = L64456 G1T1
52C3 = L64457 G1T1
52T3 = L64458 G1T1
State Number = 53
Number of Actions = 12
53S0 = L64459 G1T1
53C0 = L64460 G1T1
53T0 = L64461 G1T1
53S1 = L64462 G1T1
53C1 = L64463 G1T1
53T1 = L64464 G1T1
53S2 = L64465 G1T1
53C2 = L64466 G1T1
53T2 = L64467 G1T1
53S3 = L64468 G1T1
53C3 = L64469 G1T1
53T3 = L64470 G1T1
State Number = 54
Number of Actions = 12
54S0 = L64471 G1T1
54C0 = L64472 G1T1
54T0 = L64473 G1T1
54S1 = L64474 G1T1
54C1 = L64475 G1T1
54T1 = L64476 G1T1
54S2 = L64477 G1T1
54C2 = L64478 G1T1
54T2 = L64479 G1T1
54S3 = L64480 G1T1
54C3 = L64481 G1T1
54T3 = L64482 G1T1
State Number = 55
Number of Actions = 12
55S0 = L64483 G1T1
55C0 = L64484 G1T1
55T0 = L64485 G1T1
55S1 = L64486 G1T1
55C1 = L64487 G1T1
55T1 = L64488 G1T1
55S2 = L64489 G1T1
55C2 = L64490 G1T1
55T2 = L64491 G1T1
55S3 = L64492 G1T1
55C3 = L64493 G1T1
55T3 = L64494 G1T1
State Number = 56
Number of Actions = 12
56S0 = L64495 G1T1
56C0 = L64496 G1T1
56T0 = L64497 G1T1
56S1 = L64498 G1T1
56C1 = L64499 G1T1
56T1 = L64500 G1T1
56S2 = L64501 G1T1
56C2 = L64502 G1T1
56T2 = L64503 G1T1
56S3 = L64504 G1T1
56C3 = L64505 G1T1
56T3 = L64506 G1T1
State Number = 57
Number of Actions = 6
57S0 = L64507 G1T1
57C0 = L64508 G1T1
57T0 = L64509 G1T1
57S1 = L64510 G1T1
57C1 = L64511 G1T1
57T1 = L64423 G1T1
signature = 42B897FA64537978DFD55287AC8ACD37