Mine

on *:text:!ubw*:$($UBW_CHANS): {
  if ($UBW_ENABLED == 1 && (%ubw_next <= $ctime || %ubw_next == $null)) {
    if ($eval($+(%,ubw_next_,$nick),2) <= $ctime || $eval($+(%,ubw_next_,$nick),2) == $null) {
      var %i = 1
      while (%i <= 12) {
        if ($eval($+($,$calc(%i + 1)),2) == $null) {
          set $+(%,word,%i) $null
        }
        else {
          set $+(%,word,%i) $eval($+($,$calc(%i + 1)),2)
        }
        inc %i
      }

      var %text = $ubw_translate( %word1 , %word2 , %word3 , %word4 , %word5 , %word6 , %word7 , %word8 , %word9 , %word10 , %word11 , %word12 )

      if (%ubw_inprog == 1) {
        .timer 1 $UBW_TIMEOUT ubw_domsg $chan $nick %text
        set %ubw_inprog 1
      }
    }
  }
}

alias ubw_domsg {
  if (%ubw_other == 1) {
    set %ubw_other 0
  }
  else {
    var %i = 1, %chan = $1, %nick = $2, %text = $3-

    set $+(%,ubw_next_,%nick) $calc($ctime + $UBW_DELAY_NICK)
    set %ubw_next $calc($ctime + $UBW_DELAY_GLOBAL)

    while (%i <= $gettok(%text,0,92)) {
      msg %chan $gettok(%text,%i,92)
      inc %i
    }
  }

  set %ubw_inprog 0
  ubw_unset
}