; imbuements.tf /purge imbuement* ; ---------------------- Aura translations START ---------------------- /def -F -mregexp -t"(A|An) (faint|pronounced|intense) smell of (musk|vanilla|alcohol|lavender|sage|cinnamon) emanates from its surface\." imbuementTranslSmells = \ /if ({P2} =~ 'intense') \ /set imbValue=4.6/5.5%; \ /elseif ({P2} =~ 'pronounced') \ /set imbValue=2.5/2.7%; \ /else \ /set imbValue=1.2/1.3%; \ /endif%; \ /if ({P3} =~ 'musk') \ /set imbString=STR%; \ /elseif ({P3} =~ 'vanilla') \ /set imbString=DIS%; \ /elseif ({P3} =~ 'alcohol') \ /set imbString=CON%; \ /elseif ({P3} =~ 'lavender') \ /set imbString=INT%; \ /elseif ({P3} =~ 'sage') \ /set imbString=WIS%; \ /elseif ({P3} =~ 'cinnamon') \ /set imbString=DEX%; \ /endif%; \ /test substitute (strcat({PL}, {P1}, " ", {P2}, " smell of ", {P3}, " emanates from its surface. (", {imbString}, " +", {imbValue}, ")", {PR})) /def -F -mregexp -t"Its surface has (a|an) (faint|pronounced|intense) (opalesque|grey|brown|blue|azure|rose) tint\." imbuementTranslTints = \ /if ({P2} =~ 'intense') \ /set imbValue=50%; \ /elseif ({P2} =~ 'pronounced') \ /set imbValue=25%; \ /else \ /set imbValue=10%; \ /endif%; \ /if ({P3} =~ 'opalesque') \ /set imbString=WATER SPELLS%; \ /elseif ({P3} =~ 'grey') \ /set imbString=DEATH SPELLS%; \ /elseif ({P3} =~ 'brown') \ /set imbString=EARTH SPELLS%; \ /elseif ({P3} =~ 'blue') \ /set imbString=LIFE SPELLS%; \ /elseif ({P3} =~ 'azure') \ /set imbString=AIR SPELLS%; \ /elseif ({P3} =~ 'rose') \ /set imbString=FIRE SPELLS%; \ /endif%; \ /test substitute (strcat({PL}, "Its surface has ", {P1}, " ", {P2}, " ", {P3}, " tint. (", {imbString}, " +", {imbValue}, ")", {PR})) /def -F -mregexp -t"It is pulsing with the (faint|pronounced|intense) aura of a (stallion|lion|spider|boar|badger|monkey)\." imbuementTranslPAuras = \ /if ({P1} =~ 'intense') \ /set imbValue=50%; \ /elseif ({P1} =~ 'pronounced') \ /set imbValue=25%; \ /else \ /set imbValue=10%; \ /endif%; \ /if ({P2} =~ 'stallion') \ /set imbString=POLEARM%; \ /elseif ({P2} =~ 'lion') \ /set imbString=SWORD%; \ /elseif ({P2} =~ 'spider') \ /set imbString=KNIFE%; \ /elseif ({P2} =~ 'boar') \ /set imbString=CLUB%; \ /elseif ({P2} =~ 'badger') \ /set imbString=AXE%; \ /elseif ({P2} =~ 'monkey') \ /set imbString=UNARMED COMBAT%; \ /endif%; \ /test substitute (strcat({PL}, "It is pulsing with the ", {P1}, " aura of a ", {P2}, ". (", {imbString}, " +", {imbValue}, ")", {PR})) /def -F -mregexp -t"(Beryl|Bone|Diamond|Granite|Ivory|Mithril|Onyx|Peridot|Quartz|Sapphire|Topaz) formations along its surface emit (a|an) (faint|pronounced|intense) glow\." imbuementTranslFormations = \ /if ({P1} =~ 'Beryl') \ /set imbString=ELF%; \ /elseif ({P1} =~ 'Bone') \ /set imbString=UNDEAD%; \ /elseif ({P1} =~ 'Diamond') \ /set imbString=DRAGON%; \ /elseif ({P1} =~ 'Granite') \ /set imbString=OGRE%; \ /elseif ({P1} =~ 'Ivory') \ /set imbString=MINOTAUR%; \ /elseif ({P1} =~ 'Mithril') \ /set imbString=DWARF%; \ /elseif ({P1} =~ 'Onyx') \ /set imbString=GOBLIN%; \ /elseif ({P1} =~ 'Peridot') \ /set imbString=GNOME%; \ /elseif ({P1} =~ 'Quartz') \ /set imbString=HALFLING%; \ /elseif ({P1} =~ 'Sapphire') \ /set imbString=HUMAN%; \ /elseif ({P1} =~ 'Topaz') \ /set imbString=TROLL%; \ /endif%; \ /test substitute (strcat({PL}, {P1}, " formations along its surface emit ", {P2}, " ", {P3}, " glow. (SLAY ", {imbString}, ")", {PR})) /def -F -mregexp -t"(A|An) (faint|pronounced|intense) aura of (light|darkness|crimson energy) surrounds this object\." imbuementTranslAurasSurr = \ /if ({P2} =~ 'intense') \ /set imbValue=5?%; \ /elseif ({P2} =~ 'pronounced') \ /set imbValue=3%; \ /else \ /set imbValue=1%; \ /endif%; \ /if ({P3} =~ 'light') \ /set imbString=LIGHT +%; \ /elseif ({P3} =~ 'darkness') \ /set imbString=LIGHT -%; \ /elseif ({P3} =~ 'crimson energy') \ /set imbString=SPELLCRAFT +%; \ /if ({P2} =~ 'intense') \ /set imbValue=50%; \ /elseif ({P2} =~ 'pronounced') \ /set imbValue=25%; \ /else \ /set imbValue=10%; \ /endif%; \ /endif%; \ /test substitute (strcat({PL}, {P1}, " ", {P2}, " aura of ", {P3}, " surrounds this object. (", {imbString}, {imbValue}, ")", {PR})) /def -F -mregexp -t"It exudes (a|an) (faint|pronounced|intense) aura of (well-being|viciousness|malevolence)\." imbuementTranslExudesAura = \ /if ({P3} =~ 'well-being') \ /set imbString=+AC%; \ /elseif ({P3} =~ 'viciousness') \ /set imbString=+ACCURACY%; \ /elseif ({P3} =~ 'malevolence') \ /set imbString=+DAMAGE%; \ /endif%; \ /test substitute (strcat({PL}, "It exudes ", {P1}, " ", {P2}, " aura of ", {P3}, ". (", {imbString}, ")", {PR})) /def -F -mregexp -t"(It gives you|You get|Being near this object gives you|A|An|For some odd reason, this object gives you|The presence of this object causes|Being around this object gives you|You get) (a |an |A |An |)(faint|pronounced|intense) (feeling of unease|goosebumps being around this object|urge to sneeze|dull feeling comes over you, looking at this object|tickle in your throat|ringing in your ears|itching sensation|feeling of nausea as you stare at it|feeling of drowsiness comes over you as peer at it|hair-raising sensation grips you as you examine this object|feeling of calm comes over you in the presence of this object)\." imbuementTranslResists = \ /if ({P4} =~ 'feeling of unease') \ /set imbString=LIFE%; \ /elseif ({P4} =~ 'goosebumps being around this object') \ /set imbString=COLD%; \ /elseif ({P4} =~ 'urge to sneeze') \ /set imbString=POISON%; \ /elseif ({P4} =~ 'dull feeling comes over you, looking at this object') \ /set imbString=MAGIC%; \ /elseif ({P4} =~ 'tickle in your throat') \ /set imbString=WATER%; \ /elseif ({P4} =~ 'ringing in your ears') \ /set imbString=AIR%; \ /elseif ({P4} =~ 'itching sensation') \ /set imbString=ACID%; \ /elseif ({P4} =~ 'feeling of calm comes over you in the presence of this object') \ /set imbString=FIRE%; \ /elseif ({P4} =~ 'feeling of nausea as you stare at it') \ /set imbString=DEATH%; \ /elseif ({P4} =~ 'feeling of drowsiness comes over you as peer at it') \ /set imbString=EARTH%; \ /elseif ({P4} =~ 'hair-raising sensation grips you as you examine this object') \ /set imbString=ELECTRICITY%; \ /endif%; \ /test substitute (strcat({PL}, {P1}, " ", {P2}, {P3}, " ", {P4}, ". (RESIST ", {imbString}, ")", {PR})) /def -F -mregexp -t"^ (A|An) (faint|pronounced|intense) hair-raisinn sensation grips you as you examine this$" imbuementTranslResists2 = \ /def -F -msimple -t" object." imbuementTranslResists2b = \ /test substitute (strcat({PL}, " object. (RESIST ELECTRICITY) ", {PR})) /def -F -mregexp -t"^ For some odd reason, this object gives you (a|an) (faint|pronounced|intense) tickle in$" imbuementTranslResists3 = \ /def -F -msimple -t" your throat." imbuementTranslResists3b = \ /test substitute (strcat({PL}, " your throat. (RESIST WATER) ", {PR})) /def -F -mregexp -t"(It glistens with |Drops of |It is enveloped by |)(a |an |A |An |)(faint|Faint|faintly|pronounced|Pronounced|pronouncedly|intense|Intense|intensely) (clusters of frost cling to the weapon|disturbance in the air surrounding the weapon catches your attention|hissing sound issues from this object|fluctuation in the weapon's colour seems to be occuring|acid sheen|odor of decay issues from the weapon|ripples of blue electricty play along the weapon's length|green moisture cling to this weapon|white flames)\." imbuementTranslDamages = \ /if ({P4} =~ 'clusters of frost cling to the weapon') \ /set imbString=COLD%; \ /elseif ({P4} =~ 'disturbance in the air surrounding the weapon catches your attention') \ /set imbString=AIR-BOLTS%; \ /elseif ({P4} =~ 'hissing sound issues from this object') \ /set imbString=HEAT%; \ /elseif ({P4} =~ 'fluctuation in the weapon\'s colour seems to be occuring') \ /set imbString=EARTH%; \ /elseif ({P4} =~ 'acid sheen') \ /set imbString=ACID%; \ /elseif ({P4} =~ 'odor of decay issues from the weapon') \ /set imbString=DEATH%; \ /elseif ({P4} =~ 'white flames') \ /set imbString=ELEMENTAL%; \ /elseif ({P4} =~ 'ripples of blue electricty play along the weapon\'s length') \ /set imbString=ELECTRICITY%; \ /elseif ({P4} =~ 'green moisture cling to this weapon') \ /set imbString=POISON%; \ /endif%; \ /test substitute (strcat({PL}, {P1}, {P2}, {P3}, " ", {P4}, ". (", {imbString}, " DAMAGE)", {PR})) /def -F -mregexp -t"(It is emitting |It pulses with |You notice |It is surrounded by |)(a |an |A |An |)(faint|faintly|pronounced|pronouncedly|intense|intensely) (orange glow surrounds its surface|clicking sound is coming from this object|purring sound|silvery aura|purple gleam playing off its surface|swirling bands of yellow energy)\." imbuementTranslMiscSkills = \ /if ({P3} =~ 'intense' | {P3} =~ 'intensely') \ /set imbValue=50%; \ /elseif ({P3} =~ 'pronounced' | {P3} =~ 'pronouncedly') \ /set imbValue=25%; \ /else \ /set imbValue=10%; \ /endif%; \ /if ({P4} =~ 'orange glow surrounds its surface') \ /set imbString=AWARENESS%; \ /elseif ({P4} =~ 'clicking sound is coming from this object') \ /set imbString=BLINDFIGHTING%; \ /elseif ({P4} =~ 'purring sound') \ /set imbString=HIDE/SNEAK%; \ /elseif ({P4} =~ 'silvery aura') \ /set imbString=2H COMBAT%; \ /elseif ({P4} =~ 'purple gleam playing off its surface') \ /set imbString=PARRY%; \ /elseif ({P4} =~ 'swirling bands of yellow energy') \ /set imbString=DEFENCE%; \ /endif%; \ /test substitute (strcat({PL}, {P1}, {P2}, {P3}, " ", {P4}, ". (", {imbString}, " +", {imbValue}, ")", {PR})) /def -F -mregexp -t"(A|An) (faint|pronounced|intense) (feeling of security emanates from it|sparkle bewitches your senses as you peer at it|gleam of mithril seems to coat this object|whine is coming from this object|drone issues from this weapon)\." imbuementTranslMiscNonSkills = \ /if ({P3} =~ 'feeling of security emanates from it') \ /set imbString=HEALING%; \ /elseif ({P3} =~ 'sparkle bewitches your senses as you peer at it') \ /set imbString=DARKVISION%; \ /elseif ({P3} =~ 'gleam of mithril seems to coat this object') \ /set imbString=DURABILITY%; \ /elseif ({P3} =~ 'whine is coming from this object') \ /set imbString=SPEED%; \ /elseif ({P3} =~ 'drone issues from this weapon') \ /set imbString=SLOW OPPONENT%; \ /endif%; \ /test substitute (strcat({PL}, {P1}, " ", {P2}, " ", {P3}, ". (", {imbString}, ")", {PR})) ; ---------------------- Aura translations END ---------------------- ; ---------------------- Cherry picking START ---------------------- /alias cpSetup \ /set spCherries 0%; \ /def -F -ag -t"{He|She|It} looks *" spGag1%; \ /def -F -ag -t"{He|She|It} seems to be feeling very well." spGag2%; \ /def -F -ag -t"{He|She|It} is * and * for {a|an} *" spGag3%; \ /def -F -ag -t"> You find no *" spGag4%; \ /def -F -ag -t"{He|She|It} is {giggling|smiling|grinning|nodding|sighing|chuckling|laughing} {merrily.|happily.|evilly.|solemnly.|proudly.|tiredly.|wistfully.|politely.}" spGag5%; \ /def -ah -t"There {is|are} * obvious exit*" spHighlight1%; \ /def -F -mregexp -t"(UNUSUAL|PECULIAR|EXOTIC)" spCountCherries = \ /tfshow =======================================================%%; \ /tfshow =======================================================%%; \ /set spCherries=$$[{spCherries} + 1]%; \ rest /alias cp1 \ cpSetup%; \ /def -F -n1 -mglob -t"*Sparkle church." spDone = \ /def -F -n1 -mglob -t"*Ah, wasn't that nice." spCherry1 = \ /tfshow Cherry picking done! Found: %%{spCherries}%%%; \ /tfshow Sparkle, Giants, Ogre mage & Dwarfheim%%%; \ /purge sp*%; \ /def -F -n1 -mglob -t"*Ah, wasn't that nice." spCherry1 = \ s%%;#3 e%%;#2 n%%;w%%;exa humans%%;e%%;s%%;w%%;get knife%%;e%%;s%%;w%%;s%%;sell knife%%;list%%;n%%;#3 w%%;s%%;exa box%%;#3 n%%;#3 w%%;#5 n%%;#3 w%%;#2 n%%;#4 w%%;exa giants%%;#4 e%%;#2 s%%;#3 e%%;n%%;exa mage%%;w%%;exa mage%%;e%%;n%%;exa mage%%;w%%;exa mage%%;exa hatch%%;open hatch%%;get all from compartment%%;w%%;exa mage%%;n%%;w%%;exa mage%%;e%%;exa mage%%;e%%;exa mage%%;e%%;exa mage%%;#3 n%%;w%%;#2 n%%;#3 w%%;d%%;enter cave%%;exa dwarves%%;n%%;exa dwarves%%;sell gemstone%%;list%%;s%%;e%%;exa dwarves%%;e%%;exa dwarves%%;w%%;n%%;exa dwarves%%;n%%;exa dwarves%%;s%%;e%%;exa dwarves%%;e%%;exa dwarves%%;d%%;exa dwarves%%;u%%;n%%;exa dwarves%%;w%%;exa dwarves%%;n%%;exa dwarves%%;deposit coins%%;s%%;e%%;n%%;exa dwarves%%;e%%;exa dwarves%%;w%%;s%%;s%%;e%%;exa dwarves%%;e%%;exa dwarves%%;n%%;exa dwarves%%;exa box%%;e%%;exa dwarves%%;w%%;s%%;#4 w%%;s%%;#2 w%%;u%%;#3 e%%;#2 s%%;e%%;#11 s%%;#3 e%%;#2 s%%;e%%;n /alias cp2 \ cpSetup%; \ /def -F -n1 -mglob -t"*Sparkle church." spDone = \ /def -F -n1 -mglob -t"*Ah, wasn't that nice." spCherry1 = \ /tfshow Cherry picking done! Found: %%{spCherries}%%%; \ /tfshow Goblin home, Orc fortress & Dungeon top level%%%; \ /purge sp*%; \ /def -F -n1 -mglob -t"*Ah, wasn't that nice." spCherry1 = \ s%%;w%%;#2 n%%;#4 w%%;s%%;#2 w%%;s%%;w%%;s%%;w%%;s%%;w%%;#3 n%%;e%%;exa goblins%%;w%%;#3 s%%;e%%;n%%;e%%;n%%;e%%;n%%;#2 e%%;n%%;#9 w%%;n%%;w%%;n%%;exa orcs%%;n%%;exa orcs%%;exa uruks%%;n%%;w%%;n%%;e%%;exa orcs%%;w%%;s%%;#2 e%%;n%%;e%%;exa orcs%%;w%%;#3 n%%;exa orcs%%;#4 s%%;w%%;#3 n%%;d%%;s%%;exa orcs%%;w%%;exa orcs%%;w%%;exa orcs%%;n%%;exa orcs%%;s%%;e%%;s%%;exa orcs%%;s%%;exa orcs%%;#2 n%%;#2 e%%;exa orcs%%;s%%;exa orcs%%;s%%;exa orcs%%;s%%;exa orcs%%;w%%;exa orcs%%;n%%;exa orcs%%;s%%;e%%;#3 n%%;w%%;n%%;u%%;#5 s%%;e%%;s%%;#13 e%%;#2 s%%;e%%;n /alias cp3 \ cpSetup%; \ /def -F -n1 -mglob -t"*Sparkle church." spDone = \ /def -F -n1 -mglob -t"*Ah, wasn't that nice." spCherry1 = \ /tfshow Cherry picking done! Found: %%{spCherries}%%%; \ /tfshow Road to Green Oaks, Green Oaks north part%%%; \ /purge sp*%; \ /def -F -n1 -mglob -t"*Ah, wasn't that nice." spCherry1 = \ s%%;w%%;#2 n%%;#14 w%%;exa humans%%;w%%;sw%%;s%%;exa humans%%;s%%;exa humans%%;sw%%;w%%;#2 sw%%;exa humans%%;sw%%;s%%;se%%;exa elves%%;s%%;se%%;e%%;#2 se%%;exa humans%%;#2 se%%;e%%;exa humans%%;e%%;se%%;exa humans%%;se%%;e%%;exa elves%%;#2 se%%;exa box%%;#2 n%%;exa elves%%;e%%;exa elves%%;e%%;exa elves%%;e%%;exa elves%%;e%%;exa elves%%;e%%;exa elves%%;e%%;exa elves%%;s%%;exa elves%%;w%%;exa elves%%;w%%;exa elves%%;w%%;exa elves%%;w%%;exa elves%%;w%%;exa elves%%;w%%;exa elves%%;s%%;exa elves%%;s%%;exa elves%%;e%%;exa elves%%;n%%;exa elves%%;e%%;exa elves%%;s%%;exa elves%%;list%%;n%%;e%%;exa elves%%;s%%;exa elves%%;n%%;e%%;exa elves%%;s%%;exa elves%%;n%%;e%%;exa elves%%;s%%;exa elves%%;n%%;#5 w%%;#2 nw%%;w%%;#3 nw%%;n%%;nw%%;n%%;e%%;nw%%;#3 n%%;nw%%;n%%;nw%%;#3 n%%;ne%%;#15 e%%;#2 s%%;e%%;n /alias cp4 \ cpSetup%; \ /def -F -n1 -mglob -t"*Sparkle church." spDone = \ /def -F -n1 -mglob -t"*Ah, wasn't that nice." spCherry1 = \ /tfshow Cherry picking done! Found: %%{spCherries}%%%; \ /tfshow Green Oaks south part%%%; \ /purge sp*%; \ /def -F -n1 -mglob -t"*Ah, wasn't that nice." spCherry1 = \ s%%;w%%;#2 n%%;#15 w%%;sw%%;#3 s%%;se%%;s%%;se%%;#3 s%%;se%%;w%%;s%%;se%%;s%%;#3 se%%;e%%;#2 se%%;#2 s%%;#3 e%%;exa elves%%;e%%;exa elves%%;e%%;exa elves%%;w%%;s%%;exa elves%%;s%%;exa elves%%;s%%;exa elves%%;n%%;w%%;exa elves%%;e%%;nw%%;exa elves%%;se%%;n%%;se%%;exa elves%%;s%%;exa elves%%;sw%%;exa elves%%;w%%;exa elves%%;n%%;exa elves%%;s%%;sw%%;exa elves%%;s%%;exa elves%%;s%%;exa elves%%;#2 n%%;w%%;exa elves%%;ne%%;exa elves%%;n%%;exa elves%%;sw%%;exa elves%%;w%%;exa elves%%;sw%%;exa elves%%;w%%;exa elves%%;e%%;ne%%;nw%%;exa elves%%;n%%;exa elves%%;n%%;exa elves%%;n%%;s%%;ne%%;exa elves%%;s%%;exa elves%%;s%%;exa elves%%;e%%;exa elves%%;s%%;exa elves%%;n%%;e%%;exa elves%%;n%%;exa elves%%;w%%;exa elves%%;n%%;exa elves%%;e%%;exa elves%%;#2 w%%;#2 n%%;#2 nw%%;w%%;#3 nw%%;n%%;nw%%;n%%;e%%;nw%%;#3 n%%;nw%%;n%%;nw%%;#3 n%%;ne%%;#15 e%%;#2 s%%;e%%;n /alias cp5 \ cpSetup%; \ /def -F -n1 -mglob -t"*Sparkle church." spDone = \ /def -F -n1 -mglob -t"*Ah, wasn't that nice." spCherry1 = \ /tfshow Cherry picking done! Found: %%{spCherries}%%%; \ /tfshow Orc Camp, outer circle%%%; \ /purge sp*%; \ /def -F -n1 -mglob -t"*Ah, wasn't that nice." spCherry1 = \ s%%;w%%;#2 n%%;#15 w%%;sw%%;#3 s%%;se%%;exa orcs%%;sw%%;exa orcs%%;in%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;#3 d%%;out%%;sw%%;exa orcs%%;s%%;exa orcs%%;in%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;#3 d%%;out%%;se%%;exa orcs%%;s%%;exa orcs%%;se%%;exa orcs%%;in%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;#3 d%%;out%%;e%%;exa orcs%%;e%%;exa orcs%%;in%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;#3 d%%;out%%;ne%%;exa orcs%%;ne%%;exa orcs%%;in%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;#3 d%%;out%%;nw%%;exa orcs%%;n%%;exa orcs%%;n%%;exa orcs%%;in%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;#3 d%%;out%%;n%%;exa orcs%%;in%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;#3 d%%;out%%;sw%%;exa orcs%%;nw%%;exa orcs%%;in%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;#3 d%%;out%%;w%%;nw%%;#3 n%%;ne%%;#15 e%%;#2 s%%;e%%;n /alias cp6 \ cpSetup%; \ /def -F -n1 -mglob -t"*Sparkle church." spDone = \ /def -F -n1 -mglob -t"*Ah, wasn't that nice." spCherry1 = \ /tfshow Cherry picking done! Found: %%{spCherries}%%%; \ /tfshow Orc Camp, inner area%%%; \ /purge sp*%; \ /def -F -n1 -mglob -t"*Ah, wasn't that nice." spCherry1 = \ s%%;w%%;#2 n%%;#15 w%%;sw%%;#3 s%%;se%%;s%%;exa orcs%%;se%%;exa orcs%%;w%%;exa orcs%%;sw%%;exa orcs%%;e%%;exa orcs%%;s%%;exa orcs%%;se%%;exa orcs%%;n%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;u%%;exa orcs%%;#4 d%%;e%%;exa orcs%%;ne%%;w%%;exa orcs%%;w%%;exa orcs%%;n%%;nw%%;n%%;nw%%;#3 n%%;ne%%;#15 e%%;#2 s%%;e%%;n /alias cp7 \ cpSetup%; \ /set churchCounter 0%; \ /def -F -n1 -mglob -t"*A dismal graveyard." spDoneHalf = \ /tfshow Cherry picking done 1/3 (road & cave)! Found: %%{spCherries}%%; \ /tfshow Rest a bit, then type "go" to check the rest%%; \ /alias go \ exa zombies%%%;ne%%%;exa zombies%%%;e%%%;exa zombies%%%;ne%%%;exa zombies%%%;sw%%%;w%%%;sw%%%;s%%%;exa zombies%%%;e%%%;exa zombies%%%;s%%%;exa zombies%%%;s%%%;exa zombies%%%;sw%%%;exa zombies%%%;ne%%%;n%%%;ne%%%;exa zombies%%%;u%%%;exa zombies%%%;d%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;e%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;w%%%;n%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;w%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;sw%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;se%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;w%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;e%%%;se%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;w%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;sw%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;ne%%%;e%%%;s%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;sw%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;ne%%%;se%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;ne%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;e%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;se%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;e%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;w%%%;d%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;e%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;w%%%;nw%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;ne%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;n%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;s%%%;sw%%%;w%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;n%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;ne%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;u%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;e%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;s%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;n%%%;w%%%;sw%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;w%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;n%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;ne%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;d%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;w%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;s%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;s%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;w%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;s%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;se%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;nw%%%;n%%%;w%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;sw%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;se%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;nw%%%;ne%%%;nw%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;n%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;s%%%;se%%%;n%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;ne%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;n%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;w%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;e%%%;ne%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;u%%%;rub lichen%%%;exa skeletons%%%;exa spirits%%%;sw%%%;s%%%;u%%%;out%%%;sw%%%;w%%%;n%%%;exa spDoneTwoThirds%%%;/unalias go%; \ /def -F -n1 -mglob -t"*You find no spDoneTwoThirds." spDoneTwoThirds = \ /tfshow Cherry picking done 2/3 (graveyard)! Found: %%{spCherries}%%; \ /tfshow Rest a bit, then type "go" to return home%%; \ /alias go \ sw%%%;w%%%;s%%%;#2 se%%%;#3 s%%%;#2 sw%%%;#2 s%%%;#4 sw%%%;n%%%;#5 w%%%;#2 nw%%%;w%%%;#3 nw%%%;n%%%;nw%%%;n%%%;e%%%;nw%%%;#3 n%%%;nw%%%;n%%%;nw%%%;#3 n%%%;ne%%%;#15 e%%%;#2 s%%%;e%%%;n%%%;/unalias go%; \ /def -F -mglob -t"*Ah, wasn't that nice." spCherry1 = \ /set churchCounter=$$[{churchCounter} + 1]%%; \ /if (churchCounter == 1) \ s%%;#3 e%%;s%%;e%%;#2 s%%;#2 sw%%;#3 w%%;gshelf torch%%;#3 e%%;#2 ne%%;#2 n%%;w%%;n%%;#3 w%%;n%%; \ /elseif (churchCounter == 2) \ s%%;w%%;#2 n%%;#15 w%%;sw%%;#3 s%%;se%%;s%%;se%%;#3 s%%;se%%;w%%;s%%;se%%;s%%;#3 se%%;e%%;#2 se%%;#5 e%%;s%%;ne%%;exa elves%%;ne%%;exa elves%%;ne%%;exa elves%%;ne%%;exa elves%%;n%%;exa humans%%;n%%;#2 ne%%;exa humans%%;n%%;exa orcs%%;#2 n%%;nw%%;exa humans%%;nw%%;n%%;exa humans%%;n%%;nw%%;#2 n%%;exa humans%%;ne%%;exa humans%%;sw%%;#2 s%%;sw%%;w%%;sw%%;light all%%;in%%;exa gibberers%%;se%%;exa gibberers%%;sw%%;exa gibberers%%;w%%;exa gibberers%%;s%%;exa gibberers%%;n%%;#2 e%%;exa gibberers%%;ne%%;exa gibberers%%;ne%%;#2 sw%%;se%%;exa gibberers%%;ne%%;exa gibberers%%;n%%;exa gibberers%%;nw%%;exa gibberers%%;se%%;s%%;#2 sw%%;exa gibberers%%;nw%%;exa gibberers%%;se%%;ne%%;d%%;exa gibberers%%;e%%;exa gibberers%%;e%%;exa gibberers%%;sw%%;exa gibberers%%;nw%%;sw%%;exa gibberers%%;se%%;exa gibberers%%;n%%;exa gibberers%%;ne%%;w%%;u%%;nw%%;w%%;ne%%;nw%%;out%%;extinguish all%%;ne%%;e%%;ne%%;se%%;s%%;e%%;ne%%; \ /elseif (churchCounter == 3) \ s%%;#3 e%%;s%%;e%%;#2 s%%;#2 sw%%;#3 w%%;pshelf torch%%;#3 e%%;#2 ne%%;#2 n%%;w%%;n%%;#3 w%%;n%%; \ /else \ /tfshow Cherry picking done! Found: %%{spCherries}%%; \ /tfshow Road past Green Oaks, Gibberer cave & Graveyard.%%; \ /purge sp*%%; \ /endif ; ---------------------- Cherry picking END ---------------------- /def -F -t'The corpse of * {unusual|peculiar|exotic}*' imbuementCorpseCheck1 = \ /tfshow ========== LOOT 1!!! ==========%; \ ga /def -F -t'The corpse of *' imbuementCorpseCheck2 = \ /def -F -p5 -t'* {unusual|peculiar|exotic} *' corpseCheckPart1 = \ /tfshow ========== LOOT 2!!! ==========%%; \ ga%; \ /def -F -t'*.' corpseCheckPart2 = \ /purge corpseCheckPart* /def -F -p9 -t'You get * {unusual} * from the corpse of *' imbuementLootedU = \ /tfshow ========== unusual item looted ==========%; \ keep all unusual items /def -F -p9 -t'You get * {peculiar} * from the corpse of *' imbuementLootedP = \ /tfshow ========== peculiar item looted ==========%; \ keep all peculiar items /def -F -p9 -t'You get * {exotic} * from the corpse of *' imbuementLootedE = \ /tfshow ========== exotic item looted ==========%; \ keep all exotic items /def -F -msimple -t"Perhaps you want to ?" imbuementCheckL = check lapidarium /def -F -t"* Such stones should be stored immediately in your lapidarium for safekeeping. Use them well." imbuementStoreStones = store stones