on *:text:*:#: {

  if $regex($1,/^([!.]zs[iİı]l)/Si) && $nick isop $chan { 

    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 } 

  }

}