altaki kod calisiyor ama sadece oyunu goruyor diger odayi gormuyor
.gir yarisma diyorum girmiyor .gir oyun diyince giriyor..
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
set komut ".gir"
set cici "oyun kelime test sohbet yarisma"
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]} {
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
}
foreach hmm [split $::cici " "] {
if {![string match -nocase $hedef $hmm]} {
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
}
}
}
proc girmsg {n u h a} {
set knl [lindex [split $a] 0]
if {![string length $knl]} {
putserv "PRIVMSG $n :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
}
foreach hmm [split $::cici " "] {
if {![string match -nocase $hedef $hmm]} {
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
}
}
}