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." } |