namespace eval tpk {
 foreach p [array names tpk *] { 
 catch {unset tpk($p)} 
    }
 }
 
 variable tpk
 array set tpk {
        semb "!"
        renk1 \00314
        renk2 \00303
        sebep "buraya atilma sebebi yazilmali yoksa bu mesajla atmaya devam eder..."
     }
     variable depnick {}
     variable depknl {}
 
  setudef flag dep 
 
bind pub -|- $tpk(semb)tep ::tepik:at
 
proc ::tepik:at {nick host hand chan text} {
  global botnick
  variable tpk
  variable depnick
  variable depknl
  if {![channel get $chan dep]} {
  return
  }
  if {![isop $nick $chan]} {
  return
  }  
     set depknl [lindex $text 0]
     set depnick [lrange $text 1 end]
 if {$depnick == ""} { 
 puthelp "privmsg $chan : $tpk(renk1)hatali kullanim: $tpk(renk2) !tep kanal nick" 
 return 0 
 }
 if {$depknl == ""} { 
 puthelp "privmsg $chan : $tpk(renk1)hatali kullanim: $tpk(renk2) !tep kanal nick"
 return 0 
 } 
 channel add $depknl
    putnow "operserv mode $depknl +o $botnick"
  if {![botonchan $depknl] || ![botisop $depknl]} {
  return 0
  }
     if {![onchan $nick $chan]} {
  puthelp "privmsg $chan :$tpk(renk1) $depknl $tpk(renk2)'inda  $tpk(renk1) $depnick $tpk(renk2)bulunamadi..."
   return 0
   }
    set host [getchanhost $depnick $depknl] 
    set banmask "*!*[string trimleft [string range $host [string first "!" $host] end] ?^~-_+?]" 
  utimer 1 "pushmode $depknl +b $depnick$banmask"
  putserv "kick $depknl $depnick :$tpk(renk2) $tpk(sebep)"
  utimer 4 "channel remove $depknl"
}
 
putlog "yuklenmedi demeyin..yuklendi,yuklendi..."