hocam kod bu calısiyor ama bir sorun var .gir oyun bosluk birtane olunca giriyor 2 3 bosluk yapanlar var giremio bilincsiz kulanici .gir oyun yaziyor boslugu nasil cözeriz örnek .gir oyun bosluk sayisi cok olsun 1 bosluk veya 3 4 verselerde girisnler..
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
set komut ".gir"
set cici {:?oyun|kelime|test|sohbet|avrupa|islamioyun|jm|ops|help|teylo|islam|siyaset|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
}
if {![regexp -nocase -- $hedef $::cici]} {
putserv "PRIVMSG $c :$knl 12 Özel Kanal Açma isteginiz Red edildi.Bilgi için help.."
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
}
if {![regexp -nocase -- $hedef $::cici]} {
putserv "PRIVMSG $n :$knl 12 Özel Kanal Açma isteginiz Red edildi.Bilgi için Jiyan.."
return
} else {
# .gir Komutunu kullananı sajoinler.
putquick "SAJOIN $n #$hedef"
# Botu O kanala sokar.
# channel add #$hedef
}
}