;*********************** Super spiffy windowed comm ********************************
;
;  After Tinyfugue version 5b4 attribute strings are stripped from all output to files, so the tail -f of your communication
;  log will no longer be ansified, just spammy

/eval /set lastline=%{lastline-0}
/eval /set commwindowsopen=%{commwindowsopen-0}

; communication lines
;/if (!commwindowsopen) \
;	/sh xterm -bg black -fg white -T FordCom -e tail -f FordCom &%;\
;/endif 

/eval /set lines=$[tfopen("FordCom", "a")]%;\
/eval /set windowmsg=%{cyan}<$[ftime("%Y:%m:%d::%I:%M:%S", time())]>%{end_color};\
/eval /let retval=$[tfwrite(lines, windowmsg)]%;\
/eval /set lastline=%{lines} %;\

; stop shouts from interfering with other triggers
/def -p1 -t'^[A-Za-z0-9]+ shouts:.*$$' shoutblock = \
	/return%;

; ************ ALPHA LINK **********************
/alias ahist  /eval /set alphahist 1%;/send ahist%;/repeat -1 1 /set alphahist 0%;
/def -p1 -F -t'^([A-Z][a-z0-9]+ \<ALPHA Uplink\>\:)(.*)$$' windowalpha = \
	/if (alphahist) /return%;/endif%;\
	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{green}%{P1}%{end_color}%{white}$[escape('$%;',{P2})] $[escape('$%;',{P4})]%{end_color}%;\
	/eval /let retval=$[tfwrite(lines, windowmsg)]%;\
	/eval /set lastline=%{lines}

; ************ Cae ********************************
/def -p1 -F -t'^(Ganderei drinks a potion and his body contorts in pain!)$$' windowcae = \
	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{green}%{P1}%{end_color}%;\
	/eval /let retval=$[tfwrite(lines, windowmsg)]%;\
	/eval /set lastline=%{lines}
/def -p1 -F -t'^Prysmyia\'s [a-z]+ casing cracks, then shatters apart!$$' windowprys = \
	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{green}%{P0}%{end_color}%;\
	/eval /let retval=$[tfwrite(lines, windowmsg)]%;\
	/eval /set lastline=%{lines}

; ****************** Mystic Eyes *********************
/def -p1 -F -t"^([A-Za-z]+ dealt the killing blow to Mystic Eyes)\.$" eyekiller = \
	/if (alphahist) /return%;/endif%;\
	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{red}%{P1}%{end_color}%;\
	/eval /let retval=$[tfwrite(lines, windowmsg)]%;\
	/eval /set lastline=%{lines}

/def -p1 -F -t"appears out of nowhere\.$" watcheye = \
	/if (alphahist) /return%;/endif%;\
	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{green}%{PL} %{P0}%{end_color}%;\
	/eval /let retval=$[tfwrite(lines, windowmsg)]%;\
	/eval /set lastline=%{lines}





; ************* OTHER GUILD (jedis) ************
/def -p1 -t'^([A-Z][a-z]+ thinks \. o O )\((.*)$' windowtelep = \
	/if (tellhist) /return%;/endif%;\
	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{red}%{P1}%{white}$[escape('$%;',{P2})]%{end_color}%;\
	/eval /let retval=$[tfwrite(lines, windowmsg)]%;\
	/eval /set lastline=%{lines}

/def -p1 -t'^(\[Auction\] [A-Z][a-z]+ : Up for bids: )(.*)$' windowauct = \
	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{white}%{P1}%{white}$[escape('$%;',{P2})]%{end_color}%;\
	/eval /let retval=$[tfwrite(lines, windowmsg)]%;\


; ************* GUILD (bard) ************
/alias bhist  /eval /set bardhist 1%;/send bchat bard -h%;/repeat -1 1 /set bardhist 0%;
/alias hbhist /eval /set bardhist 1%;/send bchat 30 -h%;/repeat -1 1 /set bardhist 0%;

/def -p1 -F -t'^([A-Z][a-z]+ \[[0-9]+\]:)(.*)$$' windowbard = \
	/if (bardhist) /return%;/endif%;\
	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{green}%{P1}%{end_color}%{green}%{P2}%{white}$[escape('$%;',{P4})]%{end_color}%;\
	/eval /let retval=$[tfwrite(lines, windowmsg)]%;\
	/eval /set lastline=%{lines}

/def -p1 -F -t'^([A-Z][a-z]+ \[(HighBard|Gallant)\]:)(.*)$$' windowhibard = \
	/if (bardhist) /return%;/endif%;\
	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{cyan}%{P1}%{end_color}%{cyan}$[escape('$%;',{P3})]%{end_color}%;\
	/eval /let retval=$[tfwrite(lines, windowmsg)]%;\
	/eval /set lastline=%{lines}

/def -p1 -F -t'^([A-Z][a-z]+ \[Fifty\]:)(.*)$$' windowfiftybard = \
	/if (bardhist) /return%;/endif%;\
	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{yellow}%{P1}%{end_color}%{yellow}%{P2}%{white}$[escape('$%;',{P4})]%{end_color}%;\
	/eval /let retval=$[tfwrite(lines, windowmsg)]%;\
	/eval /set lastline=%{lines}

; ************  Clan communication lines ******************

/alias cth /eval /set ctellhist 1%;/send ctellhist%;/repeat -1 1 /set ctellhist 0%;
/def -p1 -F -t'^(\[(Clan|CLAN)\]:? )([A-Za-z]+ : )?(.*)' windowcourt1 = \
	/if (ctellhist) /return%;/endif%;\
	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{yellow}[%{P2}] %{end_color}%{bright}%{yellow}%{P3}%{white}$[escape('$%;',{P4})]%{end_color}%;\
	/eval /let retval=$[tfwrite(lines, windowmsg)]%;\
	/eval /set lastline=%{lines}

/def -p1 -F -t'^(\[\{(Council|COUNCIL)\}\]:? )([A-Za-z]+ : )?(.*)' windowclancouncil = \
	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{yellow}[%{P2}] %{end_color}%{bright}%{yellow}%{P3}%{white}$[escape('$%;',{P4})]%{end_color}%;\
	/eval /let retval=$[tfwrite(lines, windowmsg)]%;\
	/eval /set lastline=%{lines}

/def -p1 -F -t'^(\[War Status\] : War will begin in [0-9]+ minutes)$' windowclanwar = \
	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{yellow}[%{P1}] %{end_color}%{bright}%{end_color}%;\
	/eval /let retval=$[tfwrite(lines, windowmsg)]%;\
	/eval /set lastline=%{lines}


;/def -p1 -F -t'^\(P.\): (.*)$' killprogram = /substitute %P2
/def -p1 -aCbggreen -t'^Mists begin to swirl around your feet.' scryhilite = /beep 

; ************ Personal communication lines ******************

; spouse line:  --<@ Name @>-- msg
/def -p1 -t'^--<@ ([A-Za-z]+) @>-- (.*)$$' windowspouse = \
	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{blue}\[SPOUSE\] %{end_color}%{cyan}%{P1}: %{end_color}%{white}$[escape('$%;',{P2})]%{end_color}%;\
	/eval /let retval=$[tfwrite(lines, windowmsg)]%;\
	/eval /set lastline=%{lines}


; tells 
;Miette tells you (Fjord,Turgon): how much control do you have now?
/alias tellhist /eval /set tellhist 1%;/send tellhist%;/repeat -1 1 /set tellhist 0%;
/def -p1 -F -t'^([A-Za-z0-9]+ tells?( you)? ?\(?([A-Za-z0-9,]+)?\)? ?:)(.*)$$' windowtell = \
	/if (tellhist) /return%;/endif%;\
	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{red}%{P1}%{end_color}%{white}$[escape('$%;',{P4})]%{end_color}%;\
	/eval /let retval=$[tfwrite(lines, windowmsg)]%;\
	/eval /set lastline=%{lines}%;


; far emotes
/def -p1 -t'^(From afar,)(.*)$$' windowemote = \
	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{yellow}%{P1}$[escape('$%;',{P2})]%{end_color}%;\
        /eval /let retval=$[tfwrite(lines, windowmsg)]%;\
        /eval /set lastline=%{lines}

; party 
/alias pth /eval /set ptellhist 1%;/send ptell -h%;/repeat -1 1 /set ptellhist 0%;
/def -p1 -t'^(\[PARTY\])( [A-Za-z]+:.*)$$' windowparty = \
	/if (ptellhist) /return%;/endif%;\
        /eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{magenta}%{P1}%{end_color}%{white}$[escape('$%;',{P2})]%{end_color}%;\
        /eval /let retval=$[tfwrite(lines, windowmsg)]%;\
        /eval /set lastline=%{lines}

; talk
/alias sayhist /eval /set sayhist 1%;/send sayhist%;/repeat -1 1 /set sayhist 0%;
/def -p1 -t'^([^Y][A-Za-z0-9]+ says?: )(.*)$$' windowsay = \
	/if (sayhist) /return%;/endif%;\
        /eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{magenta}%{P1}%{end_color}%{white}$[escape('$%;',{P2})]%{end_color}%;\
        /eval /let retval=$[tfwrite(lines, windowmsg)]%;\
        /eval /set lastline=%{lines}


; whisper
/def -p1 -t'^([A-Za-z0-9]+ whispers? to [A-Za-z]+: )(.*)$$' windowwhisper = \
        /eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{cyan}%{P1}%{end_color}%{white}$[escape('$%;',{P2})]%{end_color}%;\
        /eval /let retval=$[tfwrite(lines, windowmsg)]%;\
        /eval /set lastline=%{lines}

; Link Tell
/def -p1 -t'^[A-Za-z0-9]+ LTs? \(.*\)$$' windowlinktell = \
        /eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{red}%{P0}%{end_color}%;\
        /eval /let retval=$[tfwrite(lines, windowmsg)]%;\
        /eval /set lastline=%{lines}

; This takes care of multi-line messages (makes them go to the right place if you use 
; multiple capture windows)
/def -p2 -F -t'^  +.*$$' longline = \
	/if (lastline) \
	  /eval /set windowmsg=%{white}$[escape('$%;',{P0})]%{end_color}%;\
	  /eval /let retval=$[tfwrite(lastline, windowmsg)]%;\
	/endif

/def -F -p10 -t'^[^ ]' setline = /set lastline=0
/def -F -p10 -t'^[ ]*$' blankline = /if (!lastline) /echo %;/endif
/set commwindowsopen=1



; ################# Other Guild Regexps ############################

; Jugger shit
;/def -p1 -ag -F -t'^(\[Jugger(\([A-Z]+\))?\] )([A-Za-z]+: )?(.*)$$' windowjugger1 = \
;	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{green}%{P1}%{end_color}%{green}%{P3}%{white}%{P4}%{end_color}%;\
;	/eval /let retval=$[tfwrite(juggerline, windowmsg)]%;\
;	/eval /set lastline=%{juggerline}
;/def -p1 -PCgreen -F -t'^\[Jugger(\([A-Z]+\))?\] [A-Za-z ]+:' hilitemain
;/def -p2 -PBCgreen -F -t'^\[Jugger(\([A-Z]+\))?\]' hilitemain2
;/def -p1 -PCgreen -F -t'^\[Bear(\([A-Z]+\))?\] [A-Za-z ]+:' hilitecb
;/def -p2 -PBCgreen -F -t'^\[Bear(\([A-Z]+\))?\]' hilitecb2
;/def -p1 -Fag -t'^(\[Bear(\([A-Z]+\))?\] )([A-Za-z]+:)?(.*)$$' windowjugger2 = \
;	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{green}%{P1}%{end_color}%{green}%{P3}%{white}%{P4}%{end_color}%;\
;	/eval /let retval=$[tfwrite(juggerline, windowmsg)]%;\
;	/eval /set lastline=%{juggerline}

; Mental comm lines
;/def -p1 -ag -F -t'^([a-zA-Z]+ \[[A-Z][0-9]+\]:)(.*)$$' windowelemain = \
;	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{green}%{P1}%{end_color}%{green}%{P2}%{end_color}%;\
;	/eval /let retval=$[tfwrite(lines, windowmsg)]%;\
;	/eval /set lastline=%{lines} %;\
;/def -p1 -ag -F -t'^(\[{ENTER|EXIT}\])(.*)$$' windowelementer = \
;	/eval /set windowmsg=%{cyan}<$[ftime("%I:%M:%S", time())]>%{end_color}%{bright}%{green}%{P 1}%{end_color}%{green}%{P2}%{end_color}%;\
;        /eval /let retval=$[tfwrite(lines, windowmsg)]%;\
;        /eval /set lastline=%{lines}