setudef flag temiz

set admin_chan "#kanal"

set satr "12"

bind pubm mn|oa "*" temizlik

proc temizlik {nick uhost hand chan text} {
   if {![channel get $chan temiz]} { return 0;}
   if {![string first -nocase "LMSG"]} { return 0;} 
   if {![string match -nocase "!temizle" [lindex $text 1]]} { return 0;}
   if {![isop $nick $chan] || ![onchan $nick $::admin_chan]} {
     puthelp "notice $nick :[lindex $text 1] komutunu kullanmaya yetkiniz yok..."
     return 0
     } else {
     puthelp "privmsg $chan :Rahatsizlik Nedeni İle Sunucudan Uzaklatirildiniz."
     set i 0; set j "."; while {$i < $::satr} { puthelp "privmsg $chan :$j"; incr i }
     puthelp "privmsg $chan :$nick Tarafından Temizlendi, Gidişin Güle Güle Gelişin Muhteşem Olsun"
     }
}