################################################################################ 
# 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 "MerLyn" 
# Buda gerekli olan sifre 
set ipass "pass" 
 
 
 
bind pub - opver opver 
bind evnt - init-server baglan_yap 
bind pub - artiver artiver 
bind pub - opal opal 
bind pub - artial artial 
bind pub - isinla isinla 
bind pub - banac banac 
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 "mode $kanal +o :$n" 
putserv "PRIVMSG $c :$n $kanal Kanalinda Oplandi..!" 
} 
proc artiver {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "os mode $kanal +v :$gnick" 
putserv "PRIVMSG $c :$n $kanal Kanalinda Voicelendi..!" 
} 
proc opal {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "os mode $kanal -o :$gnick" 
putserv "PRIVMSG $c :$n $kanal Kanalinda Opu Geri Alindi..!" 
} 
proc artial {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "os mode $kanal -v :$gnick" 
putserv "PRIVMSG $c :$n $kanal Kanalinda Voicesi Alindi..!" 
} 
proc isinla {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "sajoin $n $kanal" 
putserv "PRIVMSG $c :$n $kanal kanalina isinlandi..!!" 
} 
proc banac {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "os mode $kanal -b :$gnick" 
putserv "PRIVMSG $c :$n $kanal kanalindaki baniniz kaldirildi..!!" 
}