/set cLog 0%;
/eval /set mob=$[tfopen("/home/buermann/public_html/forsaken/armor/MobLog","a")]%;

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

/def c = \
    /set clog 1%;\
    /eval /set mobstring=######## BEGIN CONSIDER %{1} %{2} ##############%;\
    /eval /let retval=$[tfwrite(mob, mobstring)]%;\
        /send cease%;\
        /eval /send emote considers %1. %;\
        /eval /send cast thought wave at %1 %2 %;\
        /eval /send emote knows where %1 %2 lives%;\
        /eval /send rating%;\
        /eval /repeat -2 1 /send emote knows%1.%;\
        /eval /repeat -2 1 /send cast know alignment at %1 %2 %;\
        /eval /repeat -4 1 /send emote studies %1. %;\
        /eval /repeat -4 1 /send look at %1 %2%;\

/def -t"([A-Z][a-z]+)       : \[ (\* \* \* \* \* \* \* \* \* \*) \]" deansi_eval = \
    /set eval $[replace('@{BCyellow}*@{n}', "", encode_attr({P2})) ]%;\
    /set eval $[replace('@{BCgreen}*@{n}', "1", eval ) ]%;\
    /set eval $[replace(' ', "", eval ) ]%;\
    /set str $[strlen(eval)]%;\
    /substitute %P1: %{str}%;
;    /blueecho %{str}%;
;/test substitute( replace("@{BCgreen}*@{n}", "1", replace("@{BCyellow}*@{n}", "", encode_attr({P0}) ) )
;    /eval /echo $[encode_attr({P2})]%;\
;    /eval /echo $[regmatch("green", encode_attr({P2}))]%;\
;    /eval /echo %P0 %P1 %P2 %P3 %P4 %P5


/def -F -t"^You emote: Fjord studies " endc = \
        /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 anthropology 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 focus in on the thought waves of (.*)$$" startc = \
    /if (clog) \
        /log /home/buermann/public_html/forsaken/armor/MobLog %;\
;        /set mobstring=%{P1}%;\
;            /eval /let retval=$[tfwrite(mob, mobstring)]%;
    /endif %;


;/def -F -t"^.*$$" capturec = \
;    /if (clog) \
;          /eval /set mobstring=%{P0}%;\
;          /eval /let retval=$[tfwrite(mob, mobstring)]%;\
;        /endif    

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

/def -t"^You emote: Fjord plucks a huge leather-bound tome of anthropology out of his ass,$" stopc = \
    /if (clog) \
       /eval /set mobstring=######## END CONSIDER ##############%;\
       /eval /let retval=$[tfwrite(mob, mobstring)]%;\
       /log off%;\
    /endif%;\
    /set clog 0%;\
    /log fjord.log


/def -t"^It doesn\'t look .*\.$" stopc2 = \
    /if (clog) \
        /eval /set mobstring=%{P0}%;\
        /eval /let retval=$[tfwrite(mob, mobstring)]%;\
        /eval /set mobstring=######## END CONSIDER ##############%;\
        /eval /let retval=$[tfwrite(mob, mobstring)]%;\
        /log off%;\
    /endif%;\
    /set clog 0%;\