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

/def -F -t"^You carefully study (.*)[(]?" setName = \
        /eval /set name=%{P1}%;

/def ana = \
	/set analog 1%;\
	/eval /set eqstring=######## BEGIN LORE %{1} %{2} ##############%;\
	/eval /let retval=$[tfwrite(eq, eqstring)]%;\
		/eval /send emote lores %1. %;\
		/eval /send lore %1 %2 %;\
		/eval /send emote uses %1. %;\
		/eval /send use %1 %2 %;\
		/eval /send emote looks at %1. %;\
		/eval /send look at %1 %2%;\

/def -F -t"^You emote: Fjord looks at" endAna = \
        /eval /set randomArt $[rand(1,6)]%;\
        /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 ... God what is that?  Gruesome, whatever it is.  Looks like Rastafan in a Mona Lisa wig%;\
        /endif%;\
        /eval /send emote plucks a huge leather-bound tome of lore out of his ass, and you can see grooves of old inlay spelling out "My First Coloring Book".  He sets to work at it, laying down on his stomach with a cigarette clenched between his teeth while 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 (analog) \
      /log /home/buermann/public_html/forsaken/armor/EqLog %;\
;		/set eqstring=%{P1}%;\
;        	/eval /let retval=$[tfwrite(eq, eqstring)]%;
   /endif %;


;/def -F -t"^.*$$" captureAna = \
;	/if (analog) \
;          /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 lore out of his ass,$" stopAna = \
	/if (analog) \
		/eval /set eqstring=######## END LORE ##############%;\
		/eval /let retval=$[tfwrite(eq, eqstring)]%;\
		/log off%;\
	/endif%;\
	/set analog 0%;\
   /log fjord.log


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


/alias boxbor \
    /set i %{1}%;\
    /while (i > 0) \
        /send borrow %{2} %{i}%;\
        /set i $[i-1]%;\
    /done%;

/alias boxana /ana %{1}%;donate %{1}