;; Jesters Trivia reporting script.  This script works fine with TF5, but
;; I don't know if TF4 knows about \w\s for regexp.  The script outputs alot
;; of info from Jesters Trivia into an easily readable table.  Covers heavy
;; weight, unstun, iron will, warez, aoh, unpain, flex, soul shield, and
;; minor and major typeprots, plus PFE, PFG, blurred image and 
;; shield of protection.
;; I got the idea from seeing Bleezuz use a nice zmud trigger that
;; does the same thing, so I'm just copying someone elses good idea  :)
;; Thanks to Jeskko for the idea of grabbing info from %{P3} variable,
;; and Thanks to Marvin for showing me how to grab the info using strstr
;; --Hair
;;
;; *******   NOTE *******
;; For this script to grab output properly, cutter has to be turned OFF.
;; If you want, you can uncomment the 2nd line of jt_echo_header and it'll
;; turn cutter back on after jesters trivia fires.

/DEF -F -t"The information floods into your mind:" jt_echo_header = \
;	/SEND cutter 80 %; \
	/SEND emote ||             HW  Uns IW  War AoH Unp Flx SS  TypeProts

/DEF -F -mregexp -t"\[([\w\s,'-]+)\] \[([\w\s,'-]+)\] \[ ([\w\s,'-]+) \]" jt_report_effects = \
	/EVAL /SET hvw=$[strstr({P3},"heavy weight") >= 0 ? "X" : "."] %; \
	/EVAL /SET unsts=$[strstr({P3},"unstun") >= 0 ? "X" : "."] %; \
	/EVAL /SET iws=$[strstr({P3},"iron will") >= 0 ? "X" : "."] %; \
	/EVAL /SET warz=$[strstr({P3},"war ensemble") >= 0 ? "X" : "."] %; \
	/EVAL /SET aoha=$[strstr({P3},"auta of hate") >= 0 ? "X" : "."] %; \
	/EVAL /SET unps=$[strstr({P3},"unpain") >= 0 ? "X" : "."] %; \
	/EVAL /SET flxs=$[strstr({P3},"flex shield") >= 0 ? "X" : "."] %; \
	/EVAL /SET uss=$[strstr({P3},"soul shield") >= 0 ? "X" : "."] %; \
	/EVAL /SET comi=$[strstr({P3},"frost insulation") >= 0 ? "(cold)" : ""] %; \
	/EVAL /SET coma=$[strstr({P3},"frost shield") >= 0 ? "(COLD)" : ""] %; \
	/EVAL /SET asmi=$[strstr({P3},"corrosion shield") >= 0 ? "(acid)" : ""] %; \
	/EVAL /SET asma=$[strstr({P3},"acid shield") >= 0 ? "(ACID)" : ""] %; \
	/EVAL /SET apmi=$[strstr({P3},"air shield") >= 0 ? "(asph)" : ""] %; \
	/EVAL /SET apma=$[strstr({P3},"aura of wind") >= 0 ? "(ASPH)" : ""] %; \
	/EVAL /SET pomi=$[strstr({P3},"toxic dilution") >= 0 ? "(pois)" : ""] %; \
	/EVAL /SET poma=$[strstr({P3},"shield of detoxification") >= 0 ? "(POIS)" : ""] %; \
	/EVAL /SET fimi=$[strstr({P3},"heat reduction") >= 0 ? "(fire)" : ""] %; \
	/EVAL /SET fima=$[strstr({P3},"flame shield") >= 0 ? "(FIRE)" : ""] %; \
	/EVAL /SET mami=$[strstr({P3},"magic dispersion") >= 0 ? "(mana)" : ""] %; \
	/EVAL /SET mama=$[strstr({P3},"repulsor aura") >= 0 ? "(MANA)" : ""] %; \
	/EVAL /SET phmi=$[strstr({P3},"force absorption") >= 0 ? "(phys)" : ""] %; \
	/EVAL /SET phma=$[strstr({P3},"armour of aether") >= 0 ? "(PHYS)" : ""] %; \
	/EVAL /SET phsop=$[strstr({P3},"shield of protection") >= 0 ? "(SOP)" : ""] %; \
	/EVAL /SET phbi=$[strstr({P3},"blurred image") >= 0 ? "(BLUR)" : ""] %; \
	/EVAL /SET psmi=$[strstr({P3},"psionic shield") >= 0 ? "(psi)" : ""] %; \
	/EVAL /SET psma=$[strstr({P3},"psychic sanctuary") >= 0 ? "(PSI)" : ""] %; \
	/EVAL /SET gpfe=$[strstr({P3},"protection from evil") >= 0 ? "(PFE)" : ""] %; \
	/EVAL /SET epfg=$[strstr({P3},"protection from good") >= 0 ? "(PFG)" : ""] %; \
	/SET typeprot=%{comi}%{coma}%{asmi}%{asma}%{apmi}%{apma}%{pomi}%{poma}%{fimi}%{fima}%{mami}%{mama}%{phmi}%{phma}%{phsop}%{phbi}%{psmi}%{psma}%{gpfe}%{gpfg} %; \
	/SEND emote ||$[pad(%{P1},12)]  %{hvw}    %{unsts}  %{iws}    %{warz}   %{aoha}   %{unps}   %{flxs}  %{uss} %{typeprot}