IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:

## voice.tcl                                            

##  - Kanala Giren Herkese Voice Verme Tcl

## bu Tcl IRCturk Network Team Tarafindan Yazilmistir..!

## Tcl Arsivi : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Botun Hangi Kanallarda Bu Tcl Kullanacagini

# Girin Eger Bos Birakirsaniz Butun Kanallarda

# bu Tcl Kullanicaktir.

set avchan "#IRCturk"
 

## BURADA BISI DEGISTIRMEYIN ##
 

bind join - * avjoin
 

proc avjoin {nick uhost hand chan} {

 global avchan botnick

 if {$nick == $botnick} {return 0}

 if {$avchan == "" && [botisop $chan]} {

  pushmode $chan +v $nick

  return 0

 }

 set chan [string tolower $chan]

 foreach i [string tolower $avchan] {

  if {$i == $chan && [botisop $chan]} {

   pushmode $chan +v $nick

   return 0

  }

 }

}
 

putlog "Voice Verme Tcl By Stonkeep"

İşini görecektir.

Kaynak : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]