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.
Requests for complete scripts or modifications/fixes for scripts you didn't write. Response not guaranteed, and no thread bumping!
caesar
Mint Rubber
Posts: 3778 Joined: Sun Oct 14, 2001 8:00 pmLocation: Mint Factory
Post
by caesar Wed Mar 25, 2015 11:23 am
SpiKe^^ wrote: It may be worth mentioning, the uhosts in uhlist are like this: nick!user@host
Ahh, I just noticed that. At first glance saw uhost and expected user@host but now saw that you replaced it with nick!user@host.
Give this a try:
Code: Select all
proc rp_dobans {chan uhlist} {
if {![botisop $chan]} return
set banList ""
set nickList ""
foreach ele $uhlist {
scan $ele {%[^!]!%[^@]@%s} nick user host
set bmask "*!*@$host"
if {[lsearch $banList $bmask] != -1} continue
lappend banList $bmask
lappend nickList $nick
}
while {[llength $banList] != 0} {
puthelp "MODE $chan +b [join [lrange $banList 0 6] " "]"
set banList [lrange $banList 6 end]
}
while {[llength $nickList] != 0} {
putkick $chan [join [lrange $nickList 0 6] ","] "repeat flood"
set nickList [lrange $nickList 6 end]
}
}
For now haven't changed the queue nor the amount of modes/kicks per line. Feel free to adjust the limits based on the server settings and swith from
puthelp queue to
putquick and replace:
Code: Select all
while {[llength $nickList] != 0} {
putkick $chan [join [lrange $nickList 0 6] ","] "repeat flood"
set nickList [lrange $nickList 6 end]
}
with:
Code: Select all
foreach n [split $nickList] {
putquick "KICK $chan $n :repeat flood"
}
Once the game is over, the king and the pawn go back in the same box.
simo
Revered One
Posts: 1107 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Wed Mar 25, 2015 12:26 pm
i replaced the part you posted caesar it doesn seem to compress ban modes
in 1 line as much as possible
17:23:48 (Mathews) : waxlkx khjskjsfkjsfkjsfkjkj tpjdsl
caesar
Mint Rubber
Posts: 3778 Joined: Sun Oct 14, 2001 8:00 pmLocation: Mint Factory
Post
by caesar Wed Mar 25, 2015 12:38 pm
Then do:
Code: Select all
/mode #channel +b *!*@one *!*@two *!*@three *!*@four *!*@five *!*@six
from your IRC Client and if that doesn't add all 6 bans in one line then try with +b+b+b+b+b+b instead of one +b.
What's with the:
17:23:48 (1 User) is Banned (1) Seidel
Your IRC Client adding stuff?
Also, I see this guys saying the same stuff:
17:23:48 (Mathews) : waxlkx khjskjsfkjsfkjsfkjkj tpjdsl
yet I see different people getting kicked/banned. What's up with that? doing multiple tests at the same time and doing a mixed copy/paste of the results?
Once the game is over, the king and the pawn go back in the same box.
SpiKe^^
Owner
Posts: 831 Joined: Fri May 12, 2006 10:20 pmLocation: Tennessee, USA
Contact:
Post
by SpiKe^^ Wed Mar 25, 2015 1:34 pm
On undernet anyway, the correct mode line is more like: /mode #pc-mirc-help +bbb *!*@one *!*@two *!*@three
simo
Revered One
Posts: 1107 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Wed Mar 25, 2015 1:34 pm
i already said max modes per line is 15 in inspircd
simo
Revered One
Posts: 1107 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Wed Mar 25, 2015 1:57 pm
the kicks are instant and fine all that remains is to compress the modes
SpiKe^^
Owner
Posts: 831 Joined: Fri May 12, 2006 10:20 pmLocation: Tennessee, USA
Contact:
Post
by SpiKe^^ Wed Mar 25, 2015 2:04 pm
Let's understand how the script is working...
simo
Revered One
Posts: 1107 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Wed Mar 25, 2015 2:08 pm
thank you spike^^ for the explanation of the working of the code the kicks is all fine as you mentioned kicks are always per user as there is no multi kick in 1 line possible the only thing wich is missing is the compression of modes beeing set
simo
Revered One
Posts: 1107 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Wed Mar 25, 2015 2:15 pm
this is what i have so far
Code: Select all
# multi-host-repeat.tcl v1.0 by SpiKe^^, closely based on
# repeat.tcl v1.1 (9 April 1999) by slennox <slenny@ozemail.com.au>
# Repeat flood, kick-ban on repeats:seconds #
set rp_bflood 3:10
# Repeat flood kick-ban reason #
set rp_breason "repeat flood"
# Length of time in minutes to ban Repeat flooders #
set rp_btime 1
# After a valid Repeat flood, script will continue to #
# kick-ban offenders for an additional 'x' seconds #
set rp_blinger 10
# END OF SETTINGS # Don't edit below unless you know what you're doing #
bind pubm - * rp_pubmsg
set rp_bflood [split $rp_bflood :]
proc rp_pubmsg {nick uhost hand chan text} {
global rp_bcount rp_bflood rp_breason rp_btime rp_blinger
set uhost [string tolower $nick!$uhost]
set chan [string tolower $chan]
set text [string map [list \017 ""] [stripcodes abcgru $text]]
set text [string tolower $text]
if {[isbotnick $nick]} { return 0 }
if {[matchattr $hand f|f $chan]} { return 0 }
set utnow [unixtime]
set target [lindex $rp_bflood 0]
if {[info exists rp_bcount($chan:$text)]} {
set uhlist [lassign $rp_bcount($chan:$text) cnt ut]
set utend [expr {$ut + [lindex $rp_bflood 1]}]
set expire [expr {$utend + $rp_blinger}]
if {$cnt < $target} {
if {$utnow > $utend} { unset rp_bcount($chan:$text) }
} elseif {$utnow > $expire} { unset rp_bcount($chan:$text) }
}
if {![info exists rp_bcount($chan:$text)]} {
set rp_bcount($chan:$text) [list 1 $utnow $uhost]
return 0
}
if {$utnow <= $utend} {
incr cnt
if {[lsearch $uhlist $uhost] == "-1"} { lappend uhlist $uhost }
set rp_bcount($chan:$text) [linsert $uhlist 0 $cnt $ut]
if {$cnt < $target} { return 0 }
if {$cnt == $target} { rp_dobans $chan $uhlist
} else { rp_dobans $chan [list $uhost] }
} elseif {$cnt >= $target} { rp_dobans $chan [list $uhost] }
return 0
}
proc rp_dobans {chan uhlist} {
if {![botisop $chan]} return
set banList ""
set nickList ""
foreach ele $uhlist {
scan $ele {%[^!]!%[^@]@%s} nick user host
set bmask "*!*@$host"
if {[lsearch $banList $bmask] != -1} continue
lappend banList $bmask
lappend nickList $nick
}
while {[llength $banList] != 0} {
pushmode $chan "+bbbbbbbbbbbbbbb" " [join [lrange $banList 0 15] " "]"
#puthelp "MODE $chan +bbbbbbbbbbbbbbb [join [lrange $banList 0 15] " "]"
set banList [lrange $banList 15 end]
}
foreach n [split $nickList] {
putquick "KICK $chan $n :repeat flood"
}
}
proc rp_breset {} {
global rp_bcount rp_bflood rp_blinger
set utnow [unixtime]
set target [lindex $rp_bflood 0]
foreach {key val} [array get rp_bcount] {
lassign $val cnt ut
set utend [expr {$ut + [lindex $rp_bflood 1]}]
set expire [expr {$utend + $rp_blinger}]
if {$cnt < $target} {
if {$utnow > $utend} { unset rp_bcount($key) }
} elseif {$utnow > $expire} { unset rp_bcount($key) }
}
utimer 30 [list rp_breset]
}
if {![info exists rp_running]} {
utimer 30 [list rp_breset]
set rp_running 1
}
putlog "Loaded multi-host-repeat.tcl v1.0 by SpiKe^^"
simo
Revered One
Posts: 1107 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Wed Mar 25, 2015 2:19 pm
oh i just did test with action it seems code only works for text and not for when flood is done using action or /me
SpiKe^^
Owner
Posts: 831 Joined: Fri May 12, 2006 10:20 pmLocation: Tennessee, USA
Contact:
Post
by SpiKe^^ Wed Mar 25, 2015 2:19 pm
The way I see it, you have 2 conflicting requests:
simo
Revered One
Posts: 1107 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Wed Mar 25, 2015 2:24 pm
with my own client it looks like this and this is the aim i had
19:23:41 Rasmussen Kicked from #servernet By @simo ( *** Don't Repeat Please *** )
simo
Revered One
Posts: 1107 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Wed Mar 25, 2015 2:25 pm
as i mentioned i dont want any queu i want all to be send immediate and compressed mode settings as seen in post above
SpiKe^^
Owner
Posts: 831 Joined: Fri May 12, 2006 10:20 pmLocation: Tennessee, USA
Contact:
Post
by SpiKe^^ Wed Mar 25, 2015 2:30 pm
Bummerz, compressing modes implies a queue to wait for enough modes to send. I may be done with this string.
simo
Revered One
Posts: 1107 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo Wed Mar 25, 2015 2:47 pm
is there an option to exempt channel ops halfops admins owner(founder) from beeing effected by this code
with compressed mode i mean as much modes in 1 line as possible in this case per 15
SpiKe^^ wrote: Bummerz, compressing modes implies a queue to wait for enough modes to send. I may be done with this string.
indeed thats what i meant sir
also does this only work for msg only and not for messages sent with /me
