Normal Mod | Çizgisel Mod

**BLaCK_and_WHiTe** · 02-15-2008, 03:58 AM

Kod:

################################################## ##############################

# opal.tcl 1.0 - www.ircturk.org #

# #

# Bu tcl nin amaci helperlarin ihticayi olduklari kanalda op almalarini sagla #

# maktir. Mynet myops botu ornek alinarak yapilmistir. Bot bulundugu kanaldan #

# verilen "opver #kanal" komutuna karsilik komutu veren kullaniciyi kanalda op #

# yapar. Dikkat edilmesi gereken kotu, botu normal kullanicilarin erisemiyecek #

# leri bir kanalda bulundurmaktir.! #

################################################## ####################Stonkeep##

# Botun giriste ircop olmasi icin gerekli ircop nicki

set inick "botnicki"

# Buda gerekli olan sifre

set ipass "123bot"

# Ayarlar Bu kadar.! DOKUNMAYIN!!!

#gerekli bindler

bind pub - opver opver

bind evnt - init-server baglan_yap

proc baglan_yap {type} {

gll inick ipass

putserv "OPER $inick $ipass"

putserv "WALLOPS :Basari ile Login Oldum "

putserv "sajoin #OpS"

putserv "samode #Ops +o botnick"

putserv "umode +c"

}

proc opver {n u h c a} {

gll gnick

set gnick $n

set kanal [lindex $a 0]

putserv "FJOIN $kanal $n"

putserv "samode $kanal +o $n"

}