on *:TEXT:$(* $+ %w4r.secretword $+ *):#w4r:{ if (%w4r.secretword.lasttrigger <= $calc($ctime - 5) || !%w4r.secretword.lasttrigger) { msg #w4r A $+ $str(H,$rand(10,100)) $+ !!! | set %w4r.secretword.lasttrigger $ctime } }
raw 332:*Secret word of the day*:{ if ($2 == #w4r) { getsecretword $3- } }
on *:TOPIC:#w4r:{ getsecretword $1- }
alias getsecretword { if (Secret word of the day: isin $1-) { var %wordpos = $calc($findtok($1-,day:,1,32) + 1) | set %w4r.secretword $gettok($1-,%wordpos,32) } }