Just put it into remonte and now you will be mumbling sometimes ;]

on *:text:*:#: {
  write ward.txt $1-
  if (%ward.los == $null) {
    set %ward.los $rand(10,30)
  }
  if (%ward.los == %ward.sta) {
    set %ward.chan $chan
    ward
  }
  else { inc %ward.sta }
}

alias ward {
  set %ward.len $rand(3,10)
  var %y = 1
  while (%y <= %ward.len) {
    set %ward.line $rand(1,$lines(ward.txt))
    set %ward.word $rand(1,$numtok($read(ward.txt,%ward.line),32))
    set %ward.words $addtok(%ward.words,$gettok($read(ward.txt,%ward.line),%ward.word,32),32)
    inc %y
  }
  describe %ward.chan mumbling: %ward.words $+ .
  unset %ward.*
}