on *:text:!temizle:#: {
if ($nick isop $chan) {
 if $read(takim.txt,w,$+($nick,$chr(11),*)) { 
 if be* iswm $gettok($read(takim.txt,w,$+ $nick $+ *),2,32)) { set %temizchan $chan | temizlebjk }
 elseif *fe* iswm $gettok($read(takim.txt,w,$+ $nick $+ *),2,32)) { set %temizchan $chan | temizlefb }
 elseif *ga* iswm $gettok($read(takim.txt,w,$+ $nick $+ *),2,32)) { set %temizchan $chan | temizlegs }
 elseif *tra* iswm $gettok($read(takim.txt,w,$+ $nick $+ *),2,32)) { set %temizchan $chan | temizlets }
  }
 else { .timer 50 0 msg $chan $chr(3) | .timer 1 2 msg $chan Kanal temizlenmistir. }
 }
}

alias temizlefb {
  .timer 50 00 msg $chan 2,2takimlartakimlartakim takimlartakimlartakim 8,8takimlartakimlartakim takimlartakimlartakim
}  
alias temizlebjk {
  .timer 50 00 msg $chan 1,1takimlartakimlartakim takimlartakimlartakim 0,0takimlartakimlartakim takimlartakimlartakim
}  
alias temizlegs {
  .timer 50 00 msg $chan 4,4takimlartakimlartakim takimlartakimlartakim 8,8takimlartakimlartakim takimlartakimlartakim
} 
alias temizlets {
  .timer 50 00 msg $chan 5,5takimlartakimlartakim takimlartakimlartakim 11,11takimlartakimlartakim takimlartakimlartakim
}