Something

on ^*:TEXT:*:#:{ 
  var %i = 0 
  var %line = $1- 
  while (%i < $numtok($1-,32)) { 
    inc %i 1 
    if ($gettok($1-,%i,32) ison $chan) { 
      if ($gettok($1-,%i,32) isop $chan) { 
        var %line = $replace(%line,$gettok($1-,%i,32), $+ $gettok($1-,%i,32) $+ ) 
      } 
      elseif ($gettok($1-,%i,32) ishop $chan) { 
        var %line = $replace(%line,$gettok($1-,%i,32), $+ $gettok($1-,%i,32) $+ ) 
      } 
      elseif ($gettok($1-,%i,32) isvoice $chan) { 
        var %line = $replace(%line,$gettok($1-,%i,32), $+ $gettok($1-,%i,32) $+ ) 
      } 
    } 
  } 
  var %nick = $color2($cmod($chan,$nick)) $+ 15 $+ $nick $+ 04:
  if ($gettok($readini(mirc.ini,options,n4),12,44) == 0) { 
    echo $chan %nick %line 
  } 
  elseif ($gettok($readini(mirc.ini,options,n4),12,44) == 1) { 
    echo $chan $timestamp %nick %line 
  } 
  haltdef 
} 
on *:INPUT:#:{ 
  if (/ == $left($1,1)) { return } 
  var %nick = $color2($cmod($chan,$nick)) $+ 15 $+ $me $+ 04:
  if ($gettok($readini(mirc.ini,options,n4),12,44) == 0) { 
    echo $chan %nick $1- 
  } 
  elseif ($gettok($readini(mirc.ini,options,n4),12,44) == 1) { 
    echo $chan $timestamp %nick $1- 
  } 
  .msg $chan $1- 
  halt 
} 
alias cmod {
  if ($nick($1,$2).pnick != $2) { return $left($v1,1) }
  else { return  }
}
alias color2 { return $+($chr(3),04,$1-) }