on *:input:*: {
if $regex($left($1-,1),/[^.!/]/S) {
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)) | halt }
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)) | halt }
}
}

menu channel,nicklist,query {
Renkli Yazı Aç: .enable #renk | echo -a $timestamp Renkli Yazı Modu : Açık
Renkli Yazı Kapat: .disable #renk | echo -a $timestamp Renkli Yazı Modu : Kapalı.
}
#renk off
on *:input:*:{
if $left($1-,1) != $readini(mirc.ini,text,commandchar) || $ctrlenter == $true {
var %c = 1,2,3,4,5,6,7,10,12,13,14
var %i = 1
var %MAX = $len($1-)
while (%i var %r = $gettok(%c,$rand(1,$numtok(%c,44)),44)
if $mid($1-,%i,1) == $chr(32) { var %t = %t $chr(32) }
else { var %t = %t $+  $+ %r $+ $mid($1-,%i,1) }
inc %i
}
msg $active %t
halt def
}
}
#renk end