[AsisT]

Tarafımca Can sıkıntısından yazılmış basitce bir komut uygulamadır, Online opers/admin olmadığında opsların başının çaresine bakması için gerekli diye düşündüm ;oki

Uygulama Biçimi:

• !Komutlar (Komut listesini açar)
• !shun nick (Shun Atar)
• !unshun nick (shun açar)
• !kill nick (sunucudan atar)
• !kline nick (kline atar)
• !unkline ip (kLineyi açar)
• !sqline nick (nick yasaklar)
• !unsqline nick (Nickin yasağını kaldırı)
• !reklam nick (Reklam Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)
• !Lamer nick (Saldırı Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)
• !Kufur nick (Küfür Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

###############################################
#            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!"
}

NOT: TCL'yi denemeden verdim bir hata olursa yazarsınız düzeltirim.

[Amado]

Sunun bide !ekle/sil/kufur ve bad nickler icin olani varmi elinizde?

[BuCaLI]

iyi güzel fakat

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
}

bölümünü yaklaşık 10 sefer yazmışsın tcl içerisinde
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bota daha baştan cinnet geçirteceksin biri yeterli
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


ikincisi inick ve ipass için değişkenler göremedim tcl nin herhangibiyerine

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

set inick "botunnicki"
set ipass "operpası"

şeklinde de eklersen sorunsuz çalışır.

BuCaLI Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

iyi güzel fakat Kod:   Kodu kopyalamak için üzerine çift tıklayın! bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass putserv "OPER $inick $ipass" } bölümünü yaklaşık 10 sefer yazmışsın tcl içerisinde Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. bota daha baştan cinnet geçirteceksin biri yeterli Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. ikincisi inick ve ipass için değişkenler göremedim tcl nin herhangibiyerine Kod:   Kodu kopyalamak için üzerine çift tıklayın! set inick "botunnicki" set ipass "operpası" şeklinde de eklersen sorunsuz çalışır.

katılıyorum bot server a bile zar zar bağlanıyor senin verdiğin şekilde

[salincak]

ya bu botu normal userler bile kullanıp adam atıyo
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.