on &*:INPUT:*:{
  if ($left($1,1) != /) {
    Var %i = 1
    Var %t.ini = 09,01
    Var %t.txt = 00,01
    Var %nick01 = $1 $+
    Unset %mitxt
    While ($gettok($1-,%i,32)) { set %mitxt %mitxt $iif($v1 ison $chan,9(0 $+ $v1 $+ 9) ,$+($chr(15),$chr(3),%t.ini,$upper($left($v1,1)),$chr(2),$chr(3),%t.txt,$mid($v1,2,1000)))) | Inc %i }
    {  say 1,1-09,01 %mitxt 1,1- | halt }
  }
}