Tekil Mesaj gösterimi
Alt 05 Haziran 2014, 03:56   #8
Çevrimdışı
saywhat
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bot Özellere Mesaj Atma TCL İstek..




yukarıda verdiğiniz kod için ayrı bir unreal module kurulmalı ki oradaki tüm kullanıcılara özel mesaj komutu işleyebilsin... -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yani şu :
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
putserv "allsend all private global ....."

bu komut o unreal modülüne ait,onun getirdiği bir "özellik" aksi halde /describe $*sunucu mesaj

Sorun "describe" , imiş... (Heartbroken söyledi...daha evvel kullanmamıştım .eggdrop/Tcl olarak)

describe == /me şeklinde atıyor mesajı... ki eggdrop için bunun karşılığı \001ACTION bla bla bla\001 yani /ctcp ...

yukarıda dediğim gibi eggdrop != mIRC ..o nedenle deneyip görmek lazım eggdrop'da nasıl işlediğini.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind pubm mn "#Dj *" vs_op proc vs_op {n u h c t} { if {![string equal -nocase "!djalım" [lindex [split $t] 0]]} { return 0;} set mesaj [join [lrange [split $t] 1 end]] if {[llength $mesaj] eq "0"} { puthelp "notice $n :Kullanımı :$::lastbind <sunucudaki kullanıcılara göndermek istenen meaaj>" return 0 } else { putserv "privmsg $::server :\001ACTION $mesaj\001" return 0 } }

bu şekilde deneyin. işlemezse ,şu
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
putserv "privmsg $::server :\001ACTION $mesaj\001"

satırını :

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
putserv "privmsg \$*$::server :\001ACTION $mesaj\001"

şeklinde değişip denersiniz.

sunucu başında illa $* gerekir mi gerekmez mi bunu deneyip görmeniz gerekecek.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet