################################################################################
# opal.tcl 1.0 - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set inick "X"
# Buda gerekli olan sifre
set ipass "11111"
 
 
 
 
 
 
# 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 :)"
putserv "sajoin #OpS"
putserv "samode #Ops +o botnick"
putserv "umode +c"
}
proc opver {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "FJOIN $kanal $n"
putserv "samode $kanal +o $n"

} 

# Botun giriste ircop olmasi icin gerekli ircop nicki
set inick "X"
# Buda gerekli olan sifre
set ipass "11111"
 
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 :)"
putserv "sajoin #Ops
putserv "samode #Ops +o botnick"
putserv "umode +c"
}
 
proc opver {n u h c a} {
set kanal [lindex $a 0]
if {![string match -nocase "#ops" "$c"]} {return 0}
putquick "FJOIN $kanal $n"
putquick "samode $kanal +o $n"
}