This is the new home of the egghelp.org community forum. this announcement post . Click the X in the top right-corner of this box to dismiss this message.
Help for those learning Tcl or writing their own scripts.
caesar
Mint Rubber
Posts: 3778 Joined: Sun Oct 14, 2001 8:00 pmLocation: Mint Factory
Post
by caesar Tue Apr 21, 2015 12:45 am
Code: Select all
set clearbans(max) 6
bind pub - !clearbans clear:bans
proc clear:bans {nick uhost hand chan text} {
global clearbans
if {![botisop $chan]} return
set chanbans [chanbans $chan]
set len [llength $chanbans]
if {!$len} {
puthelp "PRIVMSG $chan :Bans list is empty."
return
}
foreach {ban bywho age} [join $chanbans] {
lappend banlist $ban
}
while {$len > 0} {
if {$len > $clearbans(max)} {
set mode [string repeat "b" $clearbans(max)]
set masks [join [lrange $banlist 0 [expr {$clearbans(max) - 1}]]]
set banlist [lrange $banlist $clearbans(max) end]
incr len -$clearbans(max)
} else {
set mode [string repeat "b" $len]
set masks [join $banlist]
set len 0
}
puthelp "MODE $chan -$mode $masks"
}
}
[07:48:01] * cez sets mode: +bbbbbb *!*@5 *!*@6 *!*@7 *!*@8 *!*@9 *!*@10
Once the game is over, the king and the pawn go back in the same box.
Online
simo
Revered One
Posts: 1108 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Tue Apr 21, 2015 7:08 am
i was wondering why it always leaves some bans left and doest clear all bans ?
SpiKe^^
Owner
Posts: 831 Joined: Fri May 12, 2006 10:20 pmLocation: Tennessee, USA
Contact:
Post
by SpiKe^^ Tue Apr 21, 2015 8:29 am
i was wondering why it always leaves some bans left and doest clear all bans ?
Which one of these scripts are you commenting on?
also it seems anyone can clear bans
My public command is limited to o|o
Online
simo
Revered One
Posts: 1108 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Tue Apr 21, 2015 9:03 am
i was refer to:
Code: Select all
set clearbans(max) 6
bind pub - !clearbans clear:bans
proc clear:bans {nick uhost hand chan text} {
global clearbans
if {![botisop $chan]} return
set chanbans [chanbans $chan]
set len [llength $chanbans]
if {!$len} {
puthelp "PRIVMSG $chan :Bans list is empty."
return
}
foreach {ban bywho age} [join $chanbans] {
lappend banlist $ban
}
while {$len > 0} {
if {$len > $clearbans(max)} {
set mode [string repeat "b" $clearbans(max)]
set masks [join [lrange $banlist 0 [expr {$clearbans(max) - 1}]]]
set banlist [lrange $banlist $clearbans(max) end]
incr len -$clearbans(max)
} else {
set mode [string repeat "b" $len]
set masks [join $banlist]
set len 0
}
puthelp "MODE $chan -$mode $masks"
}
}
caesar
Mint Rubber
Posts: 3778 Joined: Sun Oct 14, 2001 8:00 pmLocation: Mint Factory
Post
by caesar Tue Apr 21, 2015 11:38 am
Yeah, my fault there. On the test bot don't have access to it so had to leave it blank for debugging. Replace the "-" in
with something you like, for instance o|o to allow only local and global users with "o" flag to do that cleaning.
Once the game is over, the king and the pawn go back in the same box.
Online
simo
Revered One
Posts: 1108 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Tue Apr 21, 2015 11:41 am
works nice caesar only it doesnt seem to clear all bans
caesar
Mint Rubber
Posts: 3778 Joined: Sun Oct 14, 2001 8:00 pmLocation: Mint Factory
Post
by caesar Tue Apr 21, 2015 12:01 pm
Really? It should. Don't see any reasons it shouldn't. Care to share some of the bans that aren't lifted? maybe I'm missing something.
Once the game is over, the king and the pawn go back in the same box.
Online
simo
Revered One
Posts: 1108 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Tue Apr 21, 2015 2:25 pm
this is an example:
last ones i had to remove manually myselve
20:23:14 AmaziGH Sets Mode on #servernet to: +bbbbbbbbbbbbbbb *!*@ServerNet-nw2.306.31.32.IP *!*@ServerNet-6yf.996.67.52.IP *!*@ServerNet-65h.270.93.88.IP *!*@ServerNet-gw4.255.78.85.IP *!*@ServerNet-20s.322.67.09.IP *!*@ServerNet-3pm.573.54.19.IP *!*@ServerNet-m96.584.30.96.IP *!*@ServerNet-5h7.567.17.15.IP *!*@ServerNet-aph.345.71.65.IP *!*@ServerNet-6v2.134.07.52.IP *!*@ServerNet-x10.424.75.92.IP *!*@ServerNet-929.684.29.67.IP *!*@ServerNet-a8q.384.05.73.IP *!*@ServerNet-e0x.855.57.99.IP *!*@Serv
Online
simo
Revered One
Posts: 1108 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Wed Apr 22, 2015 10:48 am
is there a way to make it clear all bans
SpiKe^^
Owner
Posts: 831 Joined: Fri May 12, 2006 10:20 pmLocation: Tennessee, USA
Contact:
Post
by SpiKe^^ Wed Apr 22, 2015 5:23 pm
Why not use mine that works...
Code: Select all
set clearbans(max) 6
bind pub o|o !clearbans clear:bans
proc clear:bans {nick uhost hand chan text} {
global clearbans
if {![botisop $chan]} { return 0 }
set banlist [chanbans $chan]
if {![llength $banlist]} {
puthelp "PRIVMSG $chan :$chan Bans list is empty."
return 0
}
set blist ""
set modes ""
foreach ban $banlist {
append modes b
lappend blist [lindex $ban 0]
if {[llength $blist] == $clearbans(max)} {
putserv "MODE $chan -$modes [join $blist]"
set blist ""
set modes ""
}
}
if {[llength $blist] > 0} {
putserv "MODE $chan -$modes [join $blist]"
}
return 0
}
caesar
Mint Rubber
Posts: 3778 Joined: Sun Oct 14, 2001 8:00 pmLocation: Mint Factory
Post
by caesar Thu Apr 23, 2015 12:55 am
This makes no sense. I've added about all the bans you quoted above and all where removed.
[07:49:27] <@cez> !clearbans
Maybe the server has a anti-flood function that prevents you to do mass modes? Have you tried removing all those bans by yourself?
Once the game is over, the king and the pawn go back in the same box.
Online
simo
Revered One
Posts: 1108 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Thu Apr 23, 2015 5:37 am
i have an opered bot with all privliages and no limmitations on testnet wich has max of 15 mode settings in 1 line
Online
simo
Revered One
Posts: 1108 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Fri Apr 24, 2015 2:48 pm
i tried your version and it works nice
caesar
Mint Rubber
Posts: 3778 Joined: Sun Oct 14, 2001 8:00 pmLocation: Mint Factory
Post
by caesar Sat Apr 25, 2015 1:02 am
As expected, either code you've used makes no sense not to have them all removed and this means there's something on the server side that doesn't let the bot to remove all bans, or more than a certain amount. Count them when it doesn't remove them all and then try with slightly less and see if there's indeed a limit or something.
Once the game is over, the king and the pawn go back in the same box.
Online
simo
Revered One
Posts: 1108 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Sat Apr 25, 2015 5:12 am
server side allows bot to set as much modes as it wants since its opered and limitless privliges so that cant be it
