saece kanalda olsun dedim olmadi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
| Alıntı: |
set komut ".gir"
set cici[list oyun kelime test sohbet yarisma]
bind pub - $komut girpub
proc girpub {n u h c a} {
set knl [lindex [split $a] 0]
if {![string length $knl]} {
putserv "PRIVMSG $c :Hatalı Kullanım. $::komut Kanal-Adı şeklinde Olmalı."
return
}
if {[string equal {#} [string index $knl 0]]} {
set hedef [string range $knl 1 end]
} else {
set hedef $knl
}
if {[lsearch -nocase $::cici $hedef] eq -1} {
putserv "PRIVMSG $c :$knl Kanalı yasaklı listemde. Red edildi."
return
} else {
# .gir Komutunu kullananı sajoinler.
putquick "SAJOIN $n #$hedef"
# Botu O kanala sokar.
# channel add #$hedef
}
}
|