.gir kanal komutu hakkinda
 

merhaba asagidaki komut çalısıyor asilnda bu komutu sadece oyun odalari icn kulanmak istiyorum belirledim bir kac odaya gire bilsinler kanalyasaklama.conf mevcut orda izin verdim odalara giriliyor

.gir elif dediginde bu odayada giriyor istiyorum ki sadece belirledigim odalara gire bilsinler .gir dediginde her odaya giremesin



set komut ".gir"

bind msg - $komut giris1
bind pub - $komut giris2

proc giris1 {nick host hand text} {
set knl [string map {"#" ""} [lindex $text 0]]
putquick "sajoin $nick #$knl"
}

proc giris2 {nick host hand chan text} {
set knl [string map {"#" ""} [lindex $text 0]]
putquick "sajoin $nick #$knl"
}

Cevap: .gir kanal komutu hakkinda
 

Denemedim Ama Böyle Çalışır Diye Düşünüyorum. : )

Cevap: .gir kanal komutu hakkinda
 

him bot sajoin yapio zaten o odalara atcak beni onemli olan belrledigim odalar disindaki odalara girmesin..

Cevap: .gir kanal komutu hakkinda
 

Tcl Versionu nedir?
ve Belirlediğiniz girilecek
Odalar kaç tanedir ?

Cevap: .gir kanal komutu hakkinda
 

simdi uste verdim komut .gir dedinde yazdigin her odaya giriyor bot sajoin ile aliyor belirledigim oda sayisi 6 yani istiyorum ki .gir dediginde soyle giriyor .gir oyun .gir yarisma belirledigim bu 6 odanin ismini yazinca girsin digerlerine giremesin..

Cevap: .gir kanal komutu hakkinda
 

putquick "sajoin $nick #$knl"
Burada $nick Komutu Kullanan
Kişidir.

Yani Bot kendini Sokmaz,
Komutu .gir Diyeni sajoin eder.

Botun Belirtilen Kanala
Girmesi isteniyorsa,
# channel add $knl
Satırının başındaki # Kaldırın.
Bu Kod Tcl8.5 ve Üzerinde İşler.

Girilmesine izin verdiğiniz Kanallar ,
set cici Ayarında sıralanmalı.

Cevap: .gir kanal komutu hakkinda
 

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 ?

Cevap: .gir kanal komutu hakkinda
 

bot her oda var bu komutu user icin kulanmak istiyorum yani userler .gir oyun dediginde girisin botun ozelinde yada kanalda .gir ankara dediginde giremesin belirledim 6 oda disinda .gir istanbul dese bile bot onu sajoin ile aliyor odaya bu olmasin istiyorum

Cevap: .gir kanal komutu hakkinda
 

Bu Şekilde Kanal adı Başında
# Olsun olmasın İşler.
Sadece Girilmesine
izin Verdiğiniz Kanalları ,
set cici ayarında Adlarının başında
# Olmadan sıralayın .
Bu kod için!

Tcl8.5 ve Üstü Gerekir.

Cevap: .gir kanal komutu hakkinda
 

asagidaki gibi yaptim bot ozeline ve kanalda .gir oyun diyorum normal user nicki ile bot atmiyor odaya


set komut ".gir"

set cici "oyun yarisma sohbet test kelime teylo avrupa dj aop help konu toplanti jm"

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 {$hedef ni $::cici} {
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
}


if {$hedef ni $::cici} {
putserv "PRIVMSG $n :$knl Kanalı yasaklı listemde. Red edildi."
return
} else {
# .gir Komutunu kullananı sajoinler.
putquick "SAJOIN $n #$hedef"
# Botu O kanala sokar.
# channel add #$hedef
}
}