on *:text:*:#:{
  if $regex($nick(#,$me).pnick,/(%|@|&|~|\.)/) && $nick isop $chan {
    if $regex($1,/^[!.]tem[ıiİ]zle/Si) {
      msg # Kanal $regsubex($nick,/(.)/g,\t) tarafından temizleniyor..
      msg #  -
      var %t = 1 | while %t <= 60 { msg # $regsubex($nick,/(.)/g,$+($chr(3),$r(1,14),\t)) | inc %t }
      msg #  -
      msg # Kanal $regsubex($nick,/(.)/g,\t) tarafından temizlendi
    }
    if $regex($1,/^[!.]s[iİı]l/Si) {
      tokenize 44 $str($regsubex($str(.,5),/./g,$+($chr(3),$r(2,8), $&
        $v1,$chr(32),$chr(15))) $+ $chr(44) , 60))
      msg # $* 
      msg # Temizleyen $v1
    }
    if $regex($1,/^[!.]clear/Si) {
      var %renk 1,%i 1
      .timer 1 1 msg $chan Kanali temizleyen $nick
      while (%i <= 50) { if %renk == 15 { var %renk 1 } |  msg $chan $+($chr(3),%renk,$nick) | inc %i | inc %renk } 
    }
  }
}