on *:input:*: { if $regex($1-,/^(?!\.|\41|\/)/S) { haltdef 
    if $window($active).type == channel { msg $active $regsubex($regsubex($regsubex($1-,/(\S+)/Sg, $&
      $iif(\1 ison #,$+(,,$r(2,6),\1,),\1)),/([[:punct:]])/g,$+(,$r(2,6),\1,)),/(^.|[0-9[:cntrl:]]\x2E\xF\s?.)/g,$upper(\1)) }
    if $window($active).type == query { msg $active $regsubex($regsubex($regsubex($1-,/(\S+)/Sg, $& 
  $iif(\1 == $active,$+(,$r(2,6),\1,),\1)),/([[:punct:]])/g,$+(,$r(2,6),\1,)),/(^.|[0-9[:cntrl:]]\x2E\xF\s?.)/g,$upper(\1)) } } }

on *:input:*:{ if !$istok(/,$left($1,1),32) { haltdef | msg $active $regsubex($1-,/(\S+)/Sg,$iif(\1 ison # || \1 == $active, $+($chr(3),$(,%renk),$str(2,$chr(2)),\1,$chr(15)),\1)) } }

menu * {
  .Nick Renklendirme
  ..Tek Renk Seç:set %renk $input(1-14 Arası Sayı Girin!,eo,Nick Renklendirici) | if %renk isnum 1-14 { echo 4 -tae $qt(%renk) Numaralı Renk Seçildi. } | else { unset %renk | echo 4 -tae 1-14 Arası Bir Sayı Seçin!. }
  ..Her Seslenişte Farklı Renk:set %renk $!r(1,14) | echo 4 -tae Her Seslenişte Farklı Renk Seçildi. 
  ..Kapat:if $var(%renk) { unset %renk | echo 4 -tae Nick Renklendirici Kapatıldı. } | else { echo 4 -tae Nick Renlendirici Zaten Kapalı! }
}