Www.Hossohbetci.Com " Degisen Dunyanin Degismeyen Yuzu Seviyeli Hossohbet Adresiniz"
voice.tcl ( kanal a giren kişiler e oto voice verir.)


Kod:
## voice.tcl                                           
##  - Kanala Giren Herkese Voice Verme Tcl
## bu Tcl IRCturk Network Team Tarafindan Yazilmistir..!
## Tcl Arsivi : WwW.IRCturk.OrG


# 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"