<![CDATA[
<BODY BGCOLOR=000000 TEXT=FFFFFF LINK=FFFFFF VLINK=FFFFFF>
<base target="area">
<tt>
[<a href="tf.html#conjunction">Conjunction Output</a>]<br>
[<a href="tf.html#running">Running around the world</a>]<br>
<br><br><br><br><br><br>
<font color=00ff00><a name=conjunction>CONJUNCTION OUTPUT</a></font>
<PRE>
;; Alternative output for astronomy
;; campino@zombiemud
/def -ag -t'=-=-=-=-=-=-=-=-=-=-=-=-=' gagastronomyspam
/def -mregexp -q -p20 -F -t'^Conjunction [0-9]+ seconds from now:' planets=\
/set planet_row=%{P0}%;\
/set planets=%{PR}%;\
/set planet_number 0%;\
/while (regmatch('^ ([A-Z][a-z]+),', planets)) \
/if ({P1} =~ 'Sun') \
/set planet_number $[planet_number + 1]%;\
/elseif ({P1} =~ 'Mercury') \
/set planet_number $[planet_number + 2]%;\
/elseif ({P1} =~ 'Venus') \
/set planet_number $[planet_number + 3]%;\
/elseif ({P1} =~ 'Mars') \
/set planet_number $[planet_number + 4]%;\
/elseif ({P1} =~ 'Jupiter') \
/set planet_number $[planet_number + 5]%;\
/elseif ({P1} =~ 'Saturn') \
/set planet_number $[planet_number + 6]%;\
/elseif ({P1} =~ 'Uranus') \
/set planet_number $[planet_number + 7]%;\
/elseif ({P1} =~ 'Neptune') \
/set planet_number $[planet_number + 8]%;\
/elseif ({P1} =~ 'Pluto') \
/set planet_number $[planet_number + 9]%;\
/endif%;\
/set planets=%{PR}%;\
/done%;\
/substitute %planet_row %planet_number
</PRE>
<font color=00ff00><a name=running>RUNNING AROUND THE WORLD</a></font>
<PRE>
;; Running around the world
;; campino@zombiemud '97
;;
;; /go shows a help page
/def -i hdef=\
/if /test ((strstr({2}, '=')>strstr({2}, ';'))&(strstr({2}, ';')!=-1))%; \
/then /echo Fehlerhaftes Script (missing Scriptname) %;\
/elseif /test (strstr({2}, '=')==strstr({2}, ';'))%; \
/then /echo Fehlerhaftes Script (missing arguments) %;\
/else \
/let wegetemp1=$[substr({2}, 0, strstr({2}, "="))] %;\
/let wegetemp2=$[substr({2}, strstr({2}, '=')+1)] %;\
/def -i -p%{1} %wegetemp1\=/go %wegetemp1 \%\{\*\} %;\
/def -i %wegetemp1\hin=%wegetemp2 %{-2} %;\
/endif%;
/def -i wdef=\
/if /test ((strstr({1}, '=')>strstr({1}, ';'))&(strstr({1}, ';')!=-1))%; \
/then /echo Fehlerhaftes Script (missing Scriptname) %;\
/elseif /test (strstr({1}, '=')==strstr({1}, ';'))%; \
/then /echo Fehlerhaftes Script (missing arguments) %;\
/else \
/let wegetemp1=$[substr({1}, 0, strstr({1}, "="))] %;\
/let wegetemp2=$[substr({1}, strstr({1}, '=')+1)] %;\
/def -i %wegetemp1\weg=%wegetemp2 %{-1}\/\%\{1\} \%\{-1\} %;\
/endif%;
/def -i go_help=\
/echo You can choose:%;\
/echo ===============%;\
/echo go_subs : A list of trigs to subguilds in the outerworld%;\
/echo go_areas : A list of trigs to the area's obelisks/first room%;\
/echo go_xp14k : A list of trigs to xp monsters ~14k worth%;\
/echo go_xp100k : A list of trigs to of xp monsters ~100k-400k worth%;\
/echo go_xp1m : A list of trigs to of xp monsters ~700-1.5M worth%;\
/echo go_xp2m : A list of trigs to of xp monsters >2M worth%;\
/echo go_eq : A list of trigs to of eq monsters
/def -i go_subs=\
/echo A few Subguilds:%;\
/echo ================%;\
/echo abjusub - Abjurer Subguilds%;\
/echo na - Navigators Subguild%;\
/echo ran1 - Rangers of the Deep Forest%;\
/echo ran2 - Rangers of the High Mountains%;\
/echo ran3 - Rangers of the Forgotten Desert
/def -i go_areas=\
/echo Areas on the old continent%;\
/echo ==========================%;\
/echo ala - Dungeon of Alazar an - Angarock ang - Guardian Angel%;
/echo ar - Arrakis azy - Azynya bar - Barracks%;\
/echo barl- Rube Barlow%;\
/echo bay - Tucker's Bayou bro - Broxima cas - Castle%;\
/echo cir - Circus cor - Corn Fields cs - CS%;\
/echo dr - Druid's Castle dar - Darkwater eb - Ebon Stronghold%;
/echo elf - Elf Forest eri - Village of Erinia fis - Fishbert's Fores
/echo for - Forest frog - Frog King Area gob - Goblins%;\
/echo gr - Greyhawk green - Castle Greenlight hi - Hive%;\
/echo hill - Hillside home - e from Catapult isl - Island(Varalor)%
/echo la - The Land ma - Malbeth's Temple mans - Haunted Mansion
/echo met - Castle Metallica min - Mines mor - Mordor%;\
/echo mys - Valley of Mystery%;\
/echo ne1 - Newbie Area ne2 - Newbie Area ne3 - Newbie Area (Dus
/echo ne4 - Newbie Area ne5 - Newbie Area oldrav - Old Ravenkall
/echo pyr - Pyramid%;\
/echo rav - Ravenloft sav - Savannah sea - Sea Elves%;\
/echo sha - Shadizar sir - Sirros sta - Stargrove%;\
/echo swa - Swamps (5x Water) ter - Terray (!4xWater!) tir - Minas Tirith%;\
/echo to - Towanda tow1 - Tower(yellow) tow2 - Tower(red)%;\
/echo tree - Brownie Tree tyr - Tyrir val - Valley%;\
/echo var - Castle Vargan vil - Village Green wo - Frozen Woods%;\
/echo wz - Wiz Tower
/def -i go_eq =\
/echo Eq-Monsters%;\
/echo ===========%;\
/echo shal - Shalash
/def -i go_xp1m =\
/echo 1M EXP-Monsters%;\
/echo ===============%;\
/echo taurus - Taurus%;\
/echo kiord - Kiord%;\
/echo leegah - Room between Leegah,Dubbit,Tunnuk and Klypsys%;\
/echo gatekeeper - Silent Gatekeeper%;\
/echo hu - Hu's Cafe
/def -i go_xp2m =\
/echo 2M EXP-Monsters%;\
/echo ===============%;\
/echo kalak - Kalak%;\
/echo mama - Mama Rosa%;\
/echo joyce - Joyce
/def go=/go_main %{*}
/def -i go_main=\
/if /test (%#==0)%;\
/then /go_help%;\
/elseif /test (%#!=2)%;\
/then /echo Wrong Number of Arguments to /go %;\
/else %;\
/let i=1 %;\
/while ( (!list(strcat('-p',%i,' -i ',{1}))) & (i<=Knotenpunkte) )\
/let i=$[i+1] %;\
/done%;\
/let j=1 %;\
/while ( (!list(strcat('-p',%j,' -i ',{2}))) & (j<=Knotenpunkte) )\
/let j=$[j+1] %;\
/done%;\
; i=Startknoten; j=Zielknoten;
/if /test (i>Knotenpunkte)%; \
/then /echo Missing Macro %{1}\weg %; \
/elseif /test (j>Knotenpunkte)%; \
/then /echo Missing Macro %{2}\hin %; \
/else /%{1}\weg verbinden %i %j %{2}\hin%;\
/endif%;\
/endif%;
; {1}=Startknoten, {2}=Zielknoten, {3}=Zielort
/def -i verbinden=\
; /echo verbinden: %{1} %{2} nach %{3} %;\
/if /test ({1}=={2})%; \
/then /%{3}%;\
; schauen ob es eine direkte Verbindung zwischen den beiden Punkten gibt
/elseif /test (list(strcat('-i ','verbindung',{1},'->',{2})))%;\
/then /verbindung%{1}\-\>%{2} %{3} %;\
/elseif /test ({1}==1)%;\
/then /echo Es existiert keine Verbindung von Knoten 1 nach %{2} %;\
/else %;\
; im schlimmsten Fall ueber den Hauptknoten 1 laufen
/test (list(strcat('-i ','verbindung',{1},'->',1)))%;\
/verbindung%{1}\-\>1 verbinden 1 %{2} %{3} %;\
/endif%;
; Verbindungen der Knotenpunkte (Verbindung zu Knoten 1 MUSS es geben)
/set Knotenpunkte=11
;;knoten 1 ist 14n,15w vom cs
/def -i verbindung1->2=2 n%;20 nw%;3 nw%;/%{1} %{-1}%;
/def -i verbindung2->1=20 se%;3 se%;2 s%;/%{1} %{-1}%;
/def -i verbindung1->3=10 e%;7 ne%;10 e%;/%{1} %{-1}%;
/def -i verbindung3->1=10 w%;7 sw%;10 w%;/%{1} %{-1}%;
/def -i verbindung1->4=14 se%;e%;/%{1} %{-1}%;
/def -i verbindung4->1=w%;14 nw%;/%{1} %{-1}%;
/def -i verbindung1->5=13 s%;2 sw%;3 s%;3 w%;7 sw%;/%{1} %{-1}%;
/def -i verbindung5->1=7 ne%;3 e%;3 n%;2 ne%;13 n%;/%{1} %{-1}%;
/def -i verbindung1->6=7 s%;2 w%;2 sw%;/%{1} %{-1}%;
/def -i verbindung6->1=2 ne%;2 e%;7 n%;/%{1} %{-1}%;
/def -i verbindung1->7=3 sw%;16 w%;3 sw%;/%{1} %{-1}%;
/def -i verbindung7->1=3 ne%;16 e%;3 ne%;/%{1} %{-1}%;
/def -i verbindung1->8=5 nw%;4 w%;nw%;4 w%;sw%;4 w%;/%{1} %{-1}%;
/def -i verbindung8->1=4 e%;ne%;4 e%;se%;4 e%;5 se%;/%{1} %{-1}%;
/def -i verbindung1->9=5 ne%;7 n%;/%{1} %{-1}%;
/def -i verbindung9->1=7 s%;5 sw%;/%{1} %{-1}%;
/def -i verbindung1->10=12 s%;4 se%;6 s%;3 se%;5 s%;9 se%;/%{1} %{-1}%;
/def -i verbindung10->1=9 nw%;5 n%;3 nw%;6 n%;4 nw%;12 n%;/%{1} %{-1}%;
/def -i verbindung1->11=9 s%;2 sw%;6 w%;4 sw%;4 w%;17 sw%;6 w%;5 s%;/%{1} %{-1}%;
/def -i verbindung11->1=5 n%;6 e%;17 ne%;4 e%;4 ne%;6 e%;2 ne%;9 n%;/%{1} %{-1}%;
/def -i verbindung1->12=15 e%;12 s%;w%;withdraw 2000%;e%;n%;3 e%;n%;w%;buy transport%;/%{1} %{-1}%;
/def -i verbindung12->1=buy transport%;e%;s%;3 w%;11 n%;15 w%;/%{1} %{-1}%;
; Knotenpunkt 1: 14n,15w vom cs
/hdef 1 to=9 w%;2 nw%;gates%;2 n%;
/wdef to=3 s%;2 se%;9 e%;
/hdef 1 cs=15 e%;14 s%;
/wdef cs=14 n%;15 w%;
/hdef 1 wz=6 w%;5 s%;w%;
/wdef wz=e%;5 n%;6 e%;
/hdef 1 ne2=6 se%;3 e%;meadow%;
/wdef ne2=out%;3 w%;6 nw%;
; Knotenpunkt 2: 14n,15w,2n,23nw vom cs
/hdef 2 wo=6 s%;4 w%;woods%;2 n%;
/wdef wo=3 s%;4 e%;6 n%;
/hdef 2 ang=2 w%;7 n%;
/wdef ang=7 s%;2 e%;
/hdef 2 an=13 e%;2 s%;valley%;
/wdef an=out%;2 n%;13 w%;
/hdef 2 green=18 nw%;5 w%;enter%;
/wdef green=out%;5 e%;18 se%;
/hdef 2 dar=19 n%;nw%;enter%;
/wdef dar=out%;se%;19 s%;
/hdef 2 barl=12 ne%;20 e%;2 e%;cliff%;
/wdef barl=out%;20 w%;2 w%;12 sw%;
; Knotenpunkt 3: 9n,12ne
/hdef 3 for=4 w%;2 s%;path%;
/wdef for=path%;2 n%;4 e%;
/hdef 3 var=10 w%;n%;forest%;
/wdef var=out%;s%;10 e%;
/hdef 3 ala=4 n%;w%;d%;
/wdef ala=u%;e%;4 s%;
/hdef 3 cas=2 n%;6 ne%;
/wdef cas=6 sw%;2 s%;
/hdef 3 isl=9 e%;portal%;
/wdef isl=out%;9 w%;
/hdef 3 sea=5 e%;9 s%;village%;e%;
/wdef sea=2 w%;9 n%;5 w%;
/hdef 3 bro=4 sw%;2 w%;2 sw%;4 w%;
/wdef bro=4 e%;2 ne%;2 e%;4 ne%;
/hdef 3 vil=4 sw%;2 w%;3 sw%;w%;village%;
/wdef vil=leave%;e%;3 ne%;2 e%;4 ne%;
; Knotenpunkt 4: 10s vom cs
/hdef 4 gob=3 e%;path%;
/wdef gob=path%;3 w%;
/hdef 4 home=2 ne%;7 e%;
/wdef home=7 w%;2 sw%;
/hdef 4 min=4 ne%;7 e%;5 s%;
/wdef 4%;4 n%;out%;7 w%;4 sw%;
/hdef 4 ne3=5 ne%;5 n%;path
/wdef ne3=e%;5 s%;5 sw%;
/hdef 4 met=5 ne%;12 e%;
/wdef met=12 w%;5 sw%;
/hdef 4 cir=5 ne%;10 e%;2 s%;
/wdef cir=2 n%;10 w%;5 sw%;
/hdef 4 ne4=7 e%;valley%;
/wdef ne4=hills%;7 w%;
/hdef 4 tree=s%;10 e%;tree%;
/wdef tree=out%;out%;10 w%;n%;
/hdef 4 tir=3 s%;17 e%;city%;
/wdef tir=fields%;17 w%;3 n%;
/hdef 4 bar=4 s%;2 sw%;
/wdef bar=2 ne%;4 n%;
/hdef 4 cor=3 sw%;4 w%;fields%;
/wdef cor=w%;4 e%;3 ne%;
/hdef 4 mans=6 s%;3 sw%;enter%;
/wdef mans=out%;3 ne%;6 n%;
/hdef 4 ne5=7 se%;s%;
/wdef ne5=n%;7 nw%;
/hdef 4 mor=4 se%;8 s%;13 e%;mountain%;
/wdef mor=plains%;13 w%;8 n%;4 nw%;
/hdef 4 gatekeeper=4 se%;8 s%;13 e%;mountain%;n%;4 ne%;n%;3 nw%;w%;2 sw%;\
s%;2 se%;2 e%;ne%;n%;2 nw%;w%;sw%;s%;se%;ne%;n%;
/wdef gatekeeper=s%;sw%;nw%;n%;ne%;e%;2 se%;s%;sw%;2 w%;2 nw%;n%;2 ne%;\
e%;3 se%;s%;4 sw%;s%;plains%;13 w%;8 n%;4 nw%;
; Knotenpunkt 5: 10s,15w,4s,5w,7sw
/hdef 5 sta=n%;6 nw%;forest%;
/wdef sta=s%;6 se%;s%;
/hdef 5 ran1=n%;7 nw%;2 w%;enter%;
/wdef ran1=out%;2 e%;7 se%;s%;
/hdef 5 tow1=5 s%;3 e%;tower%;
/wdef tow1=out%;3 w%;5 n%;
/hdef 5 fis=5 s%;6 w%;forest%;
/wdef fis=out%;6 e%;5 n%;
/hdef 5 tyr=5 s%;17 w%;
/wdef tyr=17 e%;5 n%;
/hdef 5 bay=4 s%;5 e%;se%;6 e%;2 n%;path%;
/wdef bay=out%;2 s%;6 w%;nw%;5 w%;4 n%;
/hdef 5 elf=4 s%;5 e%;se%;11 e%;n%;forest%;
/wdef elf=se%;s%;11 w%;nw%;5 w%;4 n%;
; Knotenpunkt 6: 7n,10w,nw,3sw,5w vom cs
/hdef 6 gr=2 ne%;5 e%;s%;
/wdef gr=n%;5 w%;2 sw%;
/hdef 6 ne1=2 sw%;6 w%;n%;path%;2 n%;
/wdef ne1=2 s%;leave%;s%;6 e%;2 ne%;
/hdef 6 dr=5 sw%;2 w%;path%;
/wdef dr=path%;2 e%;5 ne%;
/hdef 6 la=2 sw%;5 s%;climb%;
/wdef la=climb%;5 n%;2 ne%;
; Knotenpunkt 7: 11n,20w,14w,3sw
/hdef 7 ma=3 n%;path%;2 s%;sw%;2 w%;2 n%;nw%;
/wdef ma=se%;3 s%;2 e%;ne%;3 n%;3 s%;
/hdef 7 na=4 s%;3 w%;path%;4 n%;3 e%;n%;d%;2 s%;
/wdef na=2 n%;u%;s%;3 w%;5 s%;3 e%;4 n%;
/hdef 7 sha=4 s%;3 w%;path%;4 n%;e%;8 n%;
/wdef sha=8 s%;w%;5 s%;3 e%;4 n%;
/hdef 7 ar=4 s%;3 w%;path%;4 n%;8 w%;n%;enter%;portal%;7 n%;9 w%;
/wdef ar=9 e%;7 s%;portal%;out%;4 e%;5 s%;3 e%;4 n%;
/hdef 7 kalak=4 s%;3 w%;path%;4 n%;e%;8 n%;3 n%;3 w%;n%;4 w%;s%;enter%;
/wdef kalak=out%;n%;4 e%;s%;3 e%;3 s%;8 s%;w%;5 s%;3 e%;4 n%;
/hdef 7 taurus=4 s%;3 w%;path%;4 n%;e%;8 n%;2 n%;2 ne%;5 n%;e%;n%;
/wdef taurus=s%;w%;6 s%;2 w%;3 s%;8 s%;w%;5 s%;3 e%;4 n%;
/hdef 7 kiord=4 s%;3 w%;path%;4 n%;e%;8 n%;3 n%;3 w%;n%;4 w%;n%;3 e%;2 n%;push pl
/wdef kiord=out%;2 s%;3 w%;s%;4 e%;s%;3 e%;3 s%;8 s%;w%;5 s%;3 e%;4 n%;
; Knotenpunkt 8: 14n,15w,5nw,14w
/hdef 8 val=3 nw%;w%;
/wdef val=e%;3 se%;
/hdef 8 sir=2 sw%;4 w%;trail%;5 s%;
/wdef sir=5 n%;path%;4 e%;2 ne%;
/hdef 8 mys=4 e%;ne%;4 se%;e%;
/wdef mys=w%;4 nw%;sw%;4 w%;
; Knotenpunkt 9: 14n,10ne,2n vom cs
/hdef 9 eb=3 s%;2 e%;
/wdef eb=2 w%;3 n%;
/hdef 9 hi=4 w%;n%;hive%;/echo ATTENTION: water!!!
/wdef hi=out%:s%;4 e%;
/hdef 9 hill=2 e%;3 n%;
/wdef hill=3 s%;2 w%;
; Knotenpunkt 10: 17s,4w,18s,5e
/hdef 10 rav=5 w%;7 n%;3 e%;s%;enter mists%;w%;
;kein rueckweg aus ravenloft 'mists' bei maruschka benutzen
/hdef 10 frog=19 w%;opening%;
/wdef frog=forest%;19 e%;
/hdef 10 tow2=5 ne%;15 e%;tower%;
/wdef tow2=out%;15 w%;5 sw%;
/hdef 10 sav=10 e%;3 se%;path%;
/wdef sav=out%;3 nw%;10 w%;
/hdef 10 azy=8 se%;s%;valley%;
/wdef azy=s%;n%;8 nw%;
/hdef 10 ran3=2 se%;5 s%;enter
/wdef ran3=out%;5 n%;2 nw%;
/hdef 10 medo=2 se%;9 s%;
/wdef medo=9 n%;2 nw%;
/hdef 10 pyr=5 s%;4 sw%;
/wdef pyr=4 ne%;5 n%;
/hdef 10 abjusub=3 w%;10 sw%;enter%;3 s%;open door%;s%;stairs%;3 u%;n%;
/wdef abjusub=s%;4 d%;leave%;3 n%;leave%;10 ne%;3 e%;
/hdef 10 mama=2 se%;9 s%;portal%;portal%;4 w%;2 n%;ne%;2 e%;2 n%;2 e%;ne%;\
2 n%;w%;n%;shop%;
/wdef mama=out%;s%;e%;s%;leave%;sw%;3 w%;2 sw%;3 s%;4 e%;portal%;leave%;\
9 n%;2 nw%;
; Knotenpunkt 11: 3s,8w von shalash
/hdef 11 oldrav=2 nw%;6 sw%;3 s%;sw%;s%;e%;
/wdef oldrav=w%;n%;ne%;3 n%;6 ne%;2 se%;
/hdef 11 ran2=e%;ne%;enter%;
/wdef ran2=out%;sw%;w%;
/hdef 11 shal=8 e%;3 n%;
/wdef shal=3 s%;8 w%;
/hdef 11 eri=s%;5 sw%;w%;road%;
/wdef eri=s%;e%;5 ne%;n%;
/hdef 11 ter=s%;5 sw%;w%;5 s%;3 sw%;valley%;
/wdef ter=out%;3 ne%;5 n%;e%;5 ne%;n%;
/hdef 11 hig=4 s%;e%;3 se%;2 e%;forest%;
/wdef hig=road%;2 w%;3 nw%;w%;4 n%;
/hdef 11 swa=4 s%;e%;3 se%;2 e%;se%;4 e%;
/wdef swa=4 w%;nw%;2 w%;3 nw%;w%;4 n%;
/hdef 11 leegah=s%;5 sw%;w%;5 s%;3 sw%;valley%;path%;4 e%;2 ne%;4 n%;2 w%;
/wdef leegah=2 e%;4 s%;2 sw%;5 w%;out%;3 ne%;5 n%;e%;5 ne%;n%;
; Knotenpunkt 12: Ravenkall Transport Room
/hdef 12 joyce=n%;e%;n%;w%;
/wdef joyce=e%;s%;w%;s%;
/hdef 12 hu=n%;e%;2 s%;w%;
/wdef hu=e%;2 n%;w%;s%;
/hdef 12 brandel=n%;2 w%;4 s%;8 w%;n%;
/wdef brandel=s%;8 e%;4 n%;2 e%;s%;
</PRE>
</tt>
</body>
</html>]]>