Tekil Mesaj gösterimi
Alt 04 Ekim 2007, 20:22   #1
Çevrimdışı
salincak
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
ScanX.tcl sajoin sorunu




selam arkadaşlar ScanX kurdum herşey güzel çalışıyo ama

user kanala !yardim yazınca bize hber veriyo useri help kanalına sokmuyo bu koddana nerde hata var acaba yardımcı olursanız sevinirim

bind pub - !help yardim:msg
bind pub - !yardim yardim:msg
bind pub - !yardım yardim:msg
proc yardim:msg {n u h c a} {
global botnick admin_chan
set yardim_msg [lindex $a ]
if {[onchan $n $admin_chan]==1 || [onchan $n #help]} {return 0}
if {[onchan $n $admin_chan]==0} {
if {![info exists ::helpcount([set wnick [md5 [string tolower $h]]])]} {
set ::helpcount($wnick) 0
timer 30[list unset ::helpcount($wnick)]
putserv "SAJOIN $n #help"
putserv "PRIVMSG #help 4$n sorununuz hakkında özelime Yardim yazarak gereken bilgiyi edinebileceğiniz gibi birazdan online yetkililerimiz de sizinle ilgilencektir. Lütfen sorununuz hallolduğunda gereksiz bekleme yapmayınız!"
putserv "GLOBOPS 4$n yardım isteğinde bulundu, otomatik olarak benim tarafımdan 12#Help4 kanalına çekilmiştir, lütfen ilgileniniz: 2!yardim $yardim_msg. ( Bu mesaj sadece sunucu yetkilelerine iletilmektedir! )"
utimer 5[list putserv "MODE #help +v $n" -next]
foreach nick [chanlist "help"] {
if {[isop $nick "#help"] || [ishalfop $nick "#help"]} {
putserv "notice $nick :$n yardım talebinde bulunduğu için #help kanalına benim tarafımdan çekilmiştir. Lütfen ilgileniniz."
}
}
timer 2[list putserv "MODE #help -v $n"]
}
if {[incr ::helpcount($wnick)] == 1} { putserv "notice $n
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
u komutu bu kadar sık kullanamazsınız." }

 
Alıntı ile Cevapla

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