TCL Hakkında Lütfen Yardım Edin!
 

Arkadaşlar Unreal3.2 Versionu Kullanıyorum. Bir Bot Hazırlıyorum. botun görevi su;

özeline sajoin nick #örnek
yazıldığında nick adlı useri #örnek kanalına cekecek
bende bir TCL var ama $1 yazıldığında TCL de kabuıl etmiyor. cevaplarınızı Bekliyorum arkadaşlar saolun.. :(

Eveet uzun süredir tcl ile bişeyler yazmamıştım ama biraz uğraşınca oldu
Kodu:

#Aşağıdaki kısım botun özeline ne yazınca komut olarak
#algıalyacağını belirtir !/ şifreniz sajoin nick #örnek
#yazdığınızda şifrenizden sonraki kısımı uygular :)
set Command "!/"

#şifreniz
set Password "Alience"


#aşıdaki kısımı ellemeyin

bind msg - $Command getsetcommand
proc getsetcommand {nick uhost hand arg} {
global Command
global Password
if { $arg == "" } {
putserv "PRIVMSG $nick :Kullanılışı: $Command <Şifreniz> <Komut>"
return 0
}
set tempcomma [lrange $arg 1 end]
if { $tempcomma == "" } {
putserv "PRIVMSG $nick :Kullanılışı: $Command <Şifreniz> <Komut>"
return 0
}
set temppass [lindex [split $arg " "] 0]
if {[strlwr $temppass]==[strlwr $Password]} {

putserv "$tempcomma"
return 1
}
putserv "PRIVMSG $nick :Şifreniz Hatalı!"
return 1
}
putlog "Text to Command v1.0 By Alience"


senin istediğin komut için !/ Alience sajoin nick #örnek tabi Alience kısmı şifen boylece istediğin komutu uygulatabilirsin bu arada senin aradığın
$1 dediğin kısım için mirc nin $gettok gibi fonksiyonunu kullanmamız gerekli idi
[lindex [split $arg " "] 0] bu $1 yerine kullanabiliriz yani elimizdeki stringi " " boşluğa göre ayırıyor split ediyor ve ilk kelimeyi alıyoruz 0 yerine 1 yazsaydık 2. kelimeyi alıcaktık
[lrange $arg 1 end] ta yine mirc nin $gettok fonksiyonunun 1- kısmı ile aynı yanı 1 kelimeden itibaren tüm hepsini al tabi 0 ilk kelimemiz oradaki 1 de 2. kelimemiz oluyor nedenine gelincede passı gormesini istemeyiz :) ayrıca mesaj yazdırmak istiyorsan birisine !/ Alience PRIVMSG nick :mesajın gibi yazmalısın nede olsa irc serverleri bundan anlıyor ve mirc gibi onu sadeleştrecek client yok ek olarak senin istediğin kodu herkez kullansın diyorsan cok basit olarak
bind msg - sajoin getsetcommand
proc getsetcommand {nick uhost hand arg} {
putserv "$arg"
return 1
}
yeterli idi ama ben sana yukardaki kırmızı olanı tavsiye ediyorum kolay gelsin ;)

Teşekkürler..
 

Cok Saolasın Arkadaşım. Code Yazıyorum ama TCL den pek anlamam sık sık kafanı agrıtacağım kusura bakma ;) Sana da Kolay Gelsin Kardeşim saol..