on *:connect:{
.timermood 0 3600 randmood
;3600 is 1hr
}
alias randmood {
set %mood $gettok(happy sad angry,$r(1,3),32)
}
alias -l brandtime {
var %lowtime = 100 | ; quickest duration between messages (in seconds)
var %hightime = 500 | ; longest duration between messages (in seconds)
return $r(%lowtime,%hightime)
}
alias brandmsg {
var %rline = $read($+(%mood,.txt))
if (/me* iswm %rline) describe $1 $gettok(%rline,2-,32)
else msg $1 %rline
$+(.timer,$1) 1 $brandtime brandmsg $1-
}