set admin_chan "#kanal-adı"

set satr "12"

bind pubm - "*" temizlik

proc temizlik {nick user hand chan text} {
  if {![string match -nocase $::botnick [lindex $text 0]] && ![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
   }
   set chan [lindex [split $text] 2]
if {$chan == ""} { puthelp "notice $nick :kullanımı: $::botnick temizle #kanal-adı"; return 0;}
if {![validchan $chan] || ![botonchan $chan]} { 
  puthelp "notice $nick :[lindex [split $text] 2] ya doğru yazılmamış yada benim bulunduğum kanallardan biri değil..." 
  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"
   }
}