Normal Mod | Çizgisel Mod

**BLaCK_and_WHiTe** · 02-15-2008, 04:01 AM

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"

Benzer Konular...
Konu:		Yazar	Cevaplar	Gösterim:	Son Mesaj
	!sop !op !halfop !voice !sil opekle.tcl	GhostLy	1	122	01-18-2008 10:40 PM Son Mesaj: GhostLy