###############################################
#            Powered By CanCeL                #
# EKOLPC.ORG - SITEAL.NET INTERNET HIZMETLERI #
#      MSN/MAIL: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
           #
###############################################
#gerekli bindler
bind pub - !komutlar komut
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
}
proc komut {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "PRIVMSG $gnick :İsteğiniz üzerine komutlar listeleniyor, lütfen bekleyiniz..."
putserv "PRIVMSG $gnick :!shun nick (Shun Atar)"
putserv "PRIVMSG $gnick :!unshun nick (shun açar)"
putserv "PRIVMSG $gnick :!kill nick (sunucudan atar)"
putserv "PRIVMSG $gnick :!kline nick (kline atar)"
putserv "PRIVMSG $gnick :!unkline ip (kLineyi açar)"
putserv "PRIVMSG $gnick :!sqline nick (nick yasaklar)"
putserv "PRIVMSG $gnick :!unsqline nick (Nickin yasağını kaldırı)"
putserv "PRIVMSG $gnick :!reklam nick (Reklam Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)"
putserv "PRIVMSG $gnick :!Lamer nick (Saldırı Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)"
putserv "PRIVMSG $gnick :!Kufur nick (Küfür Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)"
putserv "PRIVMSG $gnick :Komut listesi sonu..."
}
#gerekli bindler
bind pub - !shun shun
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
 
}
proc shun {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "shun $kanal Lutfen Kurallara Uyunuz!"
putserv "WALLOPS : $kanal, $gnick tarafınca SHUN emri verildi. "
}
#gerekli bindler
bind pub - !kill ciksin
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
 
}
proc ciksin {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "kill $kanal Lutfen Kurallara Uyunuz!"
putserv "WALLOPS : $kanal, $gnick tarafınca KILL emri verildi. "
}
#gerekli bindler
bind pub - !kline kline
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
 
}
proc kline {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "kline $kanal Lutfen Kurallara Uyunuz!"
putserv "WALLOPS : $kanal, $gnick tarafınca KLINE emri verildi!"
}
#gerekli bindler
bind pub - !unshun unshun
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
 
}
proc kline {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "unshun $kanal"
putserv "WALLOPS : $kanal, $gnick tarafınca SHUN Kaldırma emri verildi!"
}
#gerekli bindler
bind pub - !unkline unk
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
 
}
proc unk {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "unkline $kanal"
putserv "WALLOPS : $kanal, $gnick tarafınca KLINE Kaldırma emri verildi!"
}
#gerekli bindler
bind pub - !Sqline sqline
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
 
}
proc sqline {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "os sqline add $kanal $gnick Tarafınca Yasaklanmıstır!"
putserv "WALLOPS : $kanal, $gnick tarafınca Nicki Yasaklanma Emrini Verdi!"
}
#gerekli bindler
bind pub - !unSqline unsqline
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
 
}
proc unsqline {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "os sqline del $kanal $gnick"
putserv "WALLOPS : $kanal, $gnick tarafınca Nick Yasağı Kaldırma Emrini Verdi!"
}
#gerekli bindler
bind pub - !reklam reklam
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
 
}
proc reklam {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "kline $kanal Reklam Yasaktır!"
putserv "WALLOPS : $kanal, $gnick tarafınca KLINE Emrini Verdi!"
}
 
#gerekli bindler
bind pub - !kufur kufur
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
 
}
proc kufur {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "kline $kanal Küfür Yasaktır!"
putserv "WALLOPS : $kanal, $gnick tarafınca KLINE Emrini Verdi!"
}
#gerekli bindler
bind pub - !lamer lamer
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
 
}
proc lamer {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "kline $kanal Saldırı Yasaktır!"
putserv "WALLOPS : $kanal, $gnick tarafınca KLINE Emrini Verdi!"
}