Nickleri altı çizgili yazmak

on *:input:*: {
  if ($left($1,1) != /) {
    haltdef | var %1 = 1,%2 = $1-,%v1,%t,%3
    while ($gettok(%2,%1,32)) { %v1 = $v1 | if ($active = %v1 || %v1 ison #) { %3 = $v1 | break } | inc %1 }
    %t = $regsubex(%2,$+(/\b,%3,\b/gi),$+($chr(3),4,$chr(31),%3,$chr(3),$chr(31)))
    .msg $target %t | echo $color(own text) $target $timestamp $+($me,:) %t
  }
}

alıntıdır.