i need help to get work this tcl script
the script don't work & i see this errors in the partyline
Tcl error [modeD:raw352]: invalid command name "#tingis"
[11:15] I am in modeD:raw353
the tcl is below
Code: Select all
#Its Made To Work With The Channel Modes +Dm
#Its To Prevent Join/Part Flood From Botnets and Lame Script Kiddow
#My info: xplorer@live.ca - irc.undernet.org - #mircscripting
#This Tcl *ONLY* Work on ONE (1) Channel
#Enter the name below
set modeD(channel) "#CHANGE_ME_NOW"
#Set The mode to give, I SUGGEST you to keep it to "v"
set modeD(mode) "v"
# Binds
bind time - "* * * *" modeD:time
bind raw - 355 modeD:raw353
bind raw - 315 modeD:raw353
bind raw - 352 modeD:raw352
proc modeD:raw352 {from raw arg} {
global modeD
set host [lindex [split $arg] 3]
set host "*!*@$host"
set nick [lindex [split $arg] 5]
if { [isban $host $modeD(channel)] || [isban [maskhost $host] $modeD(channel)] || [isban $host]|| [isban [maskhost $host]] } {
#If Reached here The user is in blacklist host!
return
}
putquick "MODE $modeD(channel) +v $nick"
putcmdlog "MODE $modeD(channel) +v $nick"
}
proc modeD:time {min hour day month year} {
global modeD
if {[validchan $modeD(channel)]} {
if {[regexp {D|d} [lindex [getchanmode $modeD(channel)] 0]]} {
putquick "NAMES -d $modeD(channel)" -next
putcmdlog "Doing -d "
}
}
}
proc modeD:raw353 {from raw arg} {
global modeD
putcmdlog "I am in modeD:raw353"
set channel [lindex [split $arg] 2]
putcmdlog "$arg"
if {[set mode $modeD(mode)] == ""} {
set mode "v"
}
if {![string equal -nocase $channel $modeD(channel)]} { return }
putcmdlog "$arg"
set list2 [lindex [split $arg :] 1]
putcmdlog "$list2"
foreach user [lindex [split $arg :] 1] {
if {$user != "" && (![onchan $user $channel] || (![isop $user $channel] && ![isvoice $user $channel]))} {
putquick "WHO $user"
}
}
}
#########
putlog "Delay Voice +Dm XploreR@Live.Ca"