egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-05-10T06:59:39-04:00 https://forum.eggheads.org/app.php/feed/topic/11810 2006-05-10T06:59:39-04:00 2006-05-10T06:59:39-04:00 https://forum.eggheads.org/viewtopic.php?p=62880#p62880 <![CDATA[Ban user]]>

Statistics: Posted by GeeX — Wed May 10, 2006 6:59 am

]]> 2006-05-09T12:32:06-04:00 2006-05-09T12:32:06-04:00 https://forum.eggheads.org/viewtopic.php?p=62844#p62844 <![CDATA[Ban user]]>

Code: 

} elseif {
this is supposed to be just an "else", it tries to evaluate the whole body after elseif as an if expression. therefore the string "set" without an equalizer operator doesnt make any sense for if and returns an error for the whole line which starts with the first line.

Statistics: Posted by De Kus — Tue May 09, 2006 12:32 pm

]]> 2006-05-09T12:27:21-04:00 2006-05-09T12:27:21-04:00 https://forum.eggheads.org/viewtopic.php?p=62843#p62843 <![CDATA[Ban user]]>

Statistics: Posted by GeeX — Tue May 09, 2006 12:27 pm

]]> 2006-05-09T12:19:06-04:00 2006-05-09T12:19:06-04:00 https://forum.eggheads.org/viewtopic.php?p=62841#p62841 <![CDATA[Ban user]]>

Code: 

if {![channel get $chan protection(flag)]} {
to

Code: 

if {![channel get $chan $protection(flag)]} {

Statistics: Posted by Sir_Fz — Tue May 09, 2006 12:19 pm

]]> 2006-05-09T08:04:34-04:00 2006-05-09T08:04:34-04:00 https://forum.eggheads.org/viewtopic.php?p=62833#p62833 <![CDATA[Ban user]]>

Code: 

result: syntax error in expression " set protection(banuser) [lindex [split $arg...": variable references require preceding $  ("if" test expression)  while compiling "if {![channel get $chan protection(flag)]} { putserv "NOTICE $nick :Error. Protection is disabled. Enable it by typing $protection(tri..." (compiling body of proc "protection:ban", line 3) invoked from within  "protection:ban $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

Statistics: Posted by GeeX — Tue May 09, 2006 8:04 am

]]> 2006-05-08T19:25:19-04:00 2006-05-08T19:25:19-04:00 https://forum.eggheads.org/viewtopic.php?p=62811#p62811 <![CDATA[Ban user]]> .set errorInfo.

Statistics: Posted by Sir_Fz — Mon May 08, 2006 7:25 pm

]]> 2006-05-08T16:09:47-04:00 2006-05-08T16:09:47-04:00 https://forum.eggheads.org/viewtopic.php?p=62801#p62801 <![CDATA[Ban user]]> when I use this proc?

Code: 

        proc protection:ban { nick host hand chan arg } {            global protection            if {![channel get $chan protection(flag)]} {                putserv "NOTICE $nick :Error. Protection is disabled. Enable it by typing $protection(trigger)protection on in order to use ban."                return            } elseif {$arg == ""} {                putserv "NOTICE $nick :Error. Wrong syntax. Use $protection(trigger)ban 'nick' 'duration' 'reason'."            } elseif {                set protection(banuser) [lindex [split $arg] 0]                set protection(banhost) "*![getchanhost $protection(banuser) $chan]"                set protection(duration) [lindex [split $arg] 1]                set protection(reason) [join [lrange [split $arg] 2 end]]                if {![isnumber $protection(duration)]} {                    set protection(reason) [join [lrange [split $arg] 1 end]]                    set protection(duration) "60"                }                if {![onchan $protection(banuser) $chan] && ![string match "*!*" $protection(banuser)} {                    set protection(banhost) "$protection(banuser)*!*@"                    putquick "MODE $chan +b $protection(banhost)"                    putserv "NOTICE $nick :Done. $protection(banhost) successfully added."                }                if {[string match "*!*" $protection(banuser)] && [matchattr [nick2hand $nick] n|n $chan]} {                    set protection(banhost) "$protection(banuser)"                    if {$protection(banhost) == "*!*@*"} {                        return                    } else {                        putquick "mode $chan +b $protection(banhost)"                        putserv "NOTICE $nick :Done. $protection(banhist) successfully added."                    }                }                if {[isbot $protection(banuser)]} {                    putserv "NOTICE $nick :Error. You cannot ban the bot."                    return                }                if {[matchattr [nick2hand $nick] o|o $chan] && [matchattr [nick2hand $protection(banuser)] mn|mn $chan]} {                    putserv "NOTICE $nick :Error. You cannot ban $protection(banuser) from $chan (higher access level)."                    return                }                if {[matchattr [nick2hand $nick] m|m $chan] && [matchattr [nick2hand $protection(banuser)] n|n $chan]} {                    putserv "NOTICE $nick :Error. You cannot ban $protection(banuser) from $chan (higher access level)."                    return                }                if {[isdynamicip $protection(banhost)]} {                    set protection(banhost) "[maskhost $protection(banhost)]"                }                set protection(id) [channel get $chan "$protection(kickid)"]                incr protection(id)                channel set $chan protection(kickid) "$protection(id)"                regsub -all -- {:reason:} $protection(kickmsg) $protection(reason) protection(kickmsg)                regsub -all -- {:id:}     $protection(kickmsg) $protection(id) protection(kickmsg)                newchanban $chan $protection(banhost) $handle "$protection(kickmsg)" $protection(duration)                putquick "KICK $chan $protection(banuser) :$protection(kickmsg)"            }        }

Statistics: Posted by GeeX — Mon May 08, 2006 4:09 pm

]]>