egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2002-01-05T03:17:00-04:00 https://forum.eggheads.org/app.php/feed/topic/767 2002-01-05T03:17:00-04:00 2002-01-05T03:17:00-04:00 https://forum.eggheads.org/viewtopic.php?p=3475#p3475 <![CDATA[Hmmmm, LoL tools bug]]> Statistics: Posted by Guest — Sat Jan 05, 2002 3:17 am

]]> 2002-01-04T13:21:00-04:00 2002-01-04T13:21:00-04:00 https://forum.eggheads.org/viewtopic.php?p=3456#p3456 <![CDATA[Hmmmm, LoL tools bug]]>
But I have got a bad headache so dont blame me if this is wrong lol

Regards

Ian-Highlander

Statistics: Posted by Ian-Highlander — Fri Jan 04, 2002 1:21 pm

]]> 2002-01-04T13:06:00-04:00 2002-01-04T13:06:00-04:00 https://forum.eggheads.org/viewtopic.php?p=3455#p3455 <![CDATA[Hmmmm, LoL tools bug]]>
### !BAN <nick|mask> [time] [reason]

proc pub_lol_ban {nick host hand chan arg} {
set arg [charfilter $arg]
global lol botnick
if {![check $hand $nick $host]} {
if {$lol(silent) == 1 || [checksilent $hand]} {return 0}
puthelp "NOTICE $nick :You need to be identified to use this function. Type .identhelp in the partyline for more info. : 02/msg $botnick id <password>02 or 02/msg $botnick silent <password>02 to no more receive this warning."
return 0
}
if {[llength $arg] < 1} {
puthelp "NOTICE $nick :02Usage:02 [string trim $lol(cmdchar)]ban <nick|mask> [time] [reason]"
return 0
}
set who [lindex $arg 0]
set ti [lindex $arg 1]
if {[number $ti]} {
set reason [lrange $arg 2 end]
} {
set ti ""
set reason [lrange $arg 1 end]
}
if {$reason == ""} {set reason "requested"}
if {[string first "*" $who] != -1 || [string first "?" $who] != -1} {
if {$reason == "requested"} {set reason "MaskBan: $who"}
set who [strlwr $who]
set bancount 0
set flags "-$lol(no_ban_flags)&-$lol(no_ban_flags)"
if {$lol(no_ban_flags) == ""} {
set list [strlwr [chanlist $chan]]
} {
set list [strlwr [chanlist $chan $flags]]
}
foreach chanuser $list {
set banmask ""
if {[string match [strlwr $who] [strlwr $chanuser]] && $chanuser != [strlwr $botnick] && $chanuser != [strlwr $nick] && ![isop $chanuser $chan] && ![isvoice $chanuser $chan]} {
incr bancount
set ipmask [lindex [split [maskhost $chanuser![getchanhost $chanuser $chan]] "@"] 1]
set userm [lindex [split [getchanhost $chanuser $chan] "@"] 0]
set banmask *!*$userm@$ipmask
newchanban $chan $banmask $nick $reason
if {[botisop $chan]} {
putserv "MODE $chan +b $banmask"
putserv "KICK $chan $chanuser :$nick: $reason"
}
}
}
if {$bancount == 0} {
puthelp "NOTICE $nick :Sorry but no one matches this mask."
}
} {
if {![onchan $who $chan]} {
puthelp "NOTICE $nick :Sorry, but I don't see $who in $chan."
return 0
}
if {[strlwr $who] == [strlwr $botnick]} {
puthelp "NOTICE $nick :Yeah right, like I'm going to let you ban ME!"
return 0
}
if {[nick2hand $who $chan] != "*"} {
if {$hand != [nick2hand $who $chan]} {
if {[matchattr [nick2hand $who $chan] o|o $chan] && ![matchattr $hand o|o $chan]} {
puthelp "NOTICE $nick :Sorry, you must be an operator to ban an operator."
return 0
}
if {([matchattr [nick2hand $who $chan] m|m $chan] || [matchattr [nick2hand $who $chan] b]) && ![matchattr $hand m|m $chan]} {
puthelp "NOTICE $nick :Sorry, you must be a master to ban a master or a bot."
return 0
}
}
}
set ipmask [lindex [split [maskhost $who![getchanhost $who $chan]] "@"] 1]
set userm [lindex [split [getchanhost $who $chan] "@"] 0]
set banmask *!*$userm@$ipmask
if {[botisop $chan]} {
if {[isop $who $chan]} {pushmode $chan -o $who}
putserv "MODE $chan +b $banmask"
putserv "KICK $chan $who :$reason"
}
switch $ti {
""
{
newchanban $chan $banmask $nick $reason
puthelp "NOTICE $nick :New mask added: $mask"
}
0
{
newchanban $chan $banmask $nick $reason $ti
puthelp "NOTICE $nick :New mask added permanently: $mask"
}
default
{
newchanban $chan $banmask $nick $reason $ti
puthelp "NOTICE $nick :New mask added for $ti minutes: $mask"
}
}
}
return 0
}

Statistics: Posted by Guest — Fri Jan 04, 2002 1:06 pm

]]> 2002-01-04T11:06:00-04:00 2002-01-04T11:06:00-04:00 https://forum.eggheads.org/viewtopic.php?p=3451#p3451 <![CDATA[Hmmmm, LoL tools bug]]>
++
Fred

Statistics: Posted by Guest — Fri Jan 04, 2002 11:06 am

]]> 2002-01-04T08:12:00-04:00 2002-01-04T08:12:00-04:00 https://forum.eggheads.org/viewtopic.php?p=3447#p3447 <![CDATA[Hmmmm, LoL tools bug]]>
6:06:56 PM <redhat> [18:10] TCL error [pub_lol_ban]: can't read "mask": no such variable

Statistics: Posted by Guest — Fri Jan 04, 2002 8:12 am

]]>