Yani alta verdiginiz kod ornek user .gir oyun dediginde # isareti koymadan odada veya botun ozelinde bot odaa .gir ankara dediginde bot onu atmicak odaya degilmi ?
|
Heartbroken Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
putquick "sajoin $nick #$knl"
Burada $nick Komutu Kullanan
Kişidir.
Yani Bot kendini Sokmaz,
Komutu .gir Diyeni sajoin eder.
Kod: Kodu kopyalamak için üzerine çift tıklayın! set komut ".gir"
set cici "#Okanal #Bukanal #Şukanal"
bind pub - $komut girpub
bind msg - $komut girmsg
proc girpub {n u h c a} {
set knl [lindex [split $a] 0]
if {[string length $knl] < 2} {
putserv "PRIVMSG $c :Hatalı Kullanım. $::komut #Kanal şeklinde Olamalı."
return
} elseif {![string equal {#} [string index $knl 0]]} {
putserv "PRIVMSG $c :Hatalı #Kanal adı girdiniz."
return
} elseif {$knl ni $::cici} {
putserv "PRIVMSG $c :$knl Kanalı yasaklı listemde. Red edildi."
return
} else {
# .gir Komutunu kullananı sajoinler.
putquick "SAJOIN $n $knl"
# Botu O kanala sokar.
# channel add $knl
}
}
proc girmsg {n u h a} {
set knl [lindex [split $a] 0]
if {[string length $knl] < 2} {
putserv "PRIVMSG $n :Hatalı Kullanım. $::komut #Kanal şeklinde Olamalı."
return
} elseif {![string equal {#} [string index $knl 0]]} {
putserv "PRIVMSG $n :Hatalı #Kanal adı girdiniz."
return
} elseif {$knl ni $::cici} {
putserv "PRIVMSG $n :$knl Kanalı yasaklı listemde. Red edildi."
return
} else {
# .gir Komutunu kullananı sajoinler.
putquick "SAJOIN $n $knl"
# Botu O kanala sokar.
# channel add $knl
}
}
Botun Belirtilen Kanala
Girmesi isteniyorsa,
# channel add $knl
Satırının başındaki # Kaldırın.
Bu Kod Tcl8.5 ve Üzerinde İşler.
|