;; jesters trivia helper, emotes (or psay or whatever) 
;; (c) 12.3.2003 Antti Pietikäinen (Heidel@bat)

;; n.b. Spid has better jesters trivia system

/require -q help_list.tf
/help_add /help_jester jesters trivia echoer

/def -i help_jester=\
	/echo -aB Jesters trivia helper:%;\
	/echo /jester                    Cast jesters trivia, echoing all.%;\
	/echo /jester p Name1 ...        Cast jesters trivia, and report only name1, etc.%;\
	/echo (note: case sensetive, name is wrong, Name is right)%;\
	/echo


;; how to show jester info
/def -i jester_echo = @emote > %{*}

/def -i -E(jestermode) -F -t"The information floods into your mind:" jester_start=\
		/def -F -p4000 -mregexp -t"^\\[([A-Z][a-z]+)\\] \\[([a-z ]+)\\] \\[(.*)\\]$$" jester_line=\
			/jester_echo %%{P1}:%%{P3}%;\
		/def -F -1 -mregexp -t"^$$" jester_end = /undef jester_line%%;/set jestermode 0

/def -i jester=\
	/if ({*}=~"") \
		/set jestermode 1%;\
		@cast jesters trivia%;\
		/repeat -60 1 /set jestermode 0%;\
	/elseif ({*}=/"p *") \
		/jestertemps %{-1}%;\
		@cast jesters trivia%;\
		/repeat -60 1 /purge jestertemp_*%;\
	/else \
		/echo -aB % Jesters trivia: wrong parameters, either none or p <playerlist>%;\
	/endif

/def -i jestertemps=\
	/while ({#}>0) \
	/def -F -p5000 -mregexp -t"^\\[(%{1})\\] \\[([a-z ]+)\\] \\[(.*)\\]$$$" jestertemp_%{1}=\
                        /jester_echo %%{P1}:%%{P3}%;\
		/shift%;\
	/done
	

;;	/def -F -t'The information floods into your mind:' jestertempstart=\
;;		/def -F -1 -mregexp -t"^$$$" jester_end = /undef jestertempstart%%;\
;;		/purge jestertemp_*

/def -i -F -p10000 -mregexp -P1Cyellow -t'(WarE)' jester_warelite
/def -i -F -p10000 -mregexp -P1BCmagenta -t'(\.hw\.)' jester_hwlite
/def -i -F -p10000 -mregexp -P1Cgreen -t'(mldy)' jester_mldylite

;;P1=name, P2=align, P3=prots
;;prots to alphabetical order, ignoring numbers?

;; DONE!
/echo -aCyellow % Jesters trivia helper loaded.