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 komutu bu kadar sık kullanamazsınız." }