Here's a condensed version of Glue's script
Code:
 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-
}