################################################################################
 
# opal.tcl 1.0 - [url]
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set inick "test"
 
# Buda gerekli olan sifre
 
set ipass "test"
 
 
 
 
 
 
 
 
 
 
 
 
 
# Ayarlar Bu kadar.! DOKUNMAYIN!!!
 
#gerekli bindler
 
bind pub - opver opver
 
bind evnt - init-server baglan_yap
 
proc baglan_yap {type} {
 
global inick ipass
 
putserv "OPER $inick $ipass"
 
putserv "WALLOPS :Basari ile Login Oldum :)"
 
}
 
proc opver {n u h c a} {
 
global gnick
 
set gnick $n
 
set kanal [lindex $a 0]
 
putserv "SAJOIN $gnick :$kanal"
 
putserv "os mode $kanal +o :$gnick"
 
putserv "PRIVMSG $c :$n $kanal Kanalinda Oplandi..!"
 
putserv "WALLOPS :$n $kanal Kanalinda Oplandi..!"
 
} 

putserv "os mode $kanal +o :$gnick"