Çevrimdışı

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..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Cok Saolasın Arkadaşım. Code Yazıyorum ama TCL den pek anlamam sık sık kafanı agrıtacağım kusura bakma
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Sana da Kolay Gelsin Kardeşim saol..