/set anaLog 0%;
/eval /set eq=$[tfopen("/home/buermann/public_html/forsaken/armor/ZooLog","a")]%;

/def -F -t"^You focus in on the thought waves of (.*)[(]?" setName = \
        /eval /set name=%{P1}%;

/def c = \
	/set zoolog 1%;\
	/eval /set eqstring=######## BEGIN ZOOLOGY %{1} %{2} ##############%;\
	/eval /let retval=$[tfwrite(eq, eqstring)]%;\
		/eval /send emote looks at %1. %;\
		/eval /send look at %1 %2%;\
		/eval /send cast thought wave on %1 %2 %;\
		/eval /repeat -2 1 /send cast know alignment on %1 %2 %;\
		/eval /repeat -3 1 /send peer %1 %2%;\

/def -F -t"^You emote: Fjord looks at" endAna = \
        /eval /set randomArt $[rand(1,7)]%;\
        /if (randomArt == 1) \
                /set artist Henri de Toulouse-Latrec%;\
        /elseif (randomArt == 2) \
                /set artist Maurcel Duchamp%;\
        /elseif (randomArt == 3) \
                /set artist horse shit and dingo sprinkles%;\
        /elseif (randomArt == 4) \
                /set artist Paul Cézanne%;\
        /elseif (randomArt == 5) \
                /set artist Werner Heisenberg%;\
        /elseif (randomArt == 6) \
                /set artist ... God what is that?  Gruesome, whatever it is.  Looks like Rastafan in a Mona Lisa wig%;\
        /elseif (randomArt == 7) \
                /set artist ... Lord have mercy what is that?  It's might be the most disturbing work of crayon art you have ever seen.  There's no happy yellow sun and stick figures, instead it looks like...  maybe a splayed beheaded corpse of a child with the skin flayed off and its intestines swirled around a tire iron?  It looks like Iraq%;\
        /endif%;\
        /eval /send emote plucks a huge leather-bound tome out of his ass, and you can see grooves of old inlay spelling out "The Crayon Coloring Guide to the Taxi-occultural Arcana of the Three Kingdoms".  He sets to work at it, laying down on his stomach with a cigarette clenched between his teeth as he scribbles furiously outside the lines.  The picture looks vaguely like a %{name} but with all the looping green crayon it could just as well be a portrait of %{artist}.

/def -F -t"^You carefully study (.*)$$" startAna = \
	/if (zoolog) \
      /log /home/buermann/public_html/forsaken/armor/ZooLog %;\
   /endif %;


;/def -F -t"^.*$$" captureAna = \
;	/if (zoolog) \
;          /eval /set eqstring=%{P0}%;\
;          /eval /let retval=$[tfwrite(eq, eqstring)]%;\
;        /endif    

;/def -t"^It looks .*\.$" stopAna = \

/def -t"^You emote: Fjord plucks a huge leather-bound tome of zoology out of his ass,$" stopAna = \
	/if (zoolog) \
		/eval /set eqstring=######## END ZOOLOGY ##############%;\
		/eval /let retval=$[tfwrite(eq, eqstring)]%;\
		/log off%;\
	/endif%;\
	/set zoolog 0%;\
   /log fjord.log


/def -t"^That is not here" stopAna3 = /stopAna2

/def -t"^It doesn\'t look .*\.$" stopAna2 = \
	/if (zoolog) \
		/eval /set eqstring=%{P0}%;\
		/eval /let retval=$[tfwrite(eq, eqstring)]%;\
		/eval /set eqstring=######## END ZOOLOGY ##############%;\
		/eval /let retval=$[tfwrite(eq, eqstring)]%;\
		/log off%;\
	/endif%;\
	/set zoolog 0%;\