View previous topic :: View next topic |
Author |
Message |
simo Owner
Joined: 22 Mar 2015 Posts: 969
|
Posted: Fri Dec 31, 2021 10:33 am Post subject: |
|
|
i placed it here but it didnt seem to have the desired effect:
Quote: | set ok "" ; set err ""
foreach user $userls {
set user "[string trimleft $user "@+"]"
|
|
|
Back to top |
|
 |
simo Owner
Joined: 22 Mar 2015 Posts: 969
|
Posted: Fri Dec 31, 2021 10:57 am Post subject: |
|
|
thanks for the explanation on irc spike^^ i guess stripping @ would break gettin a custom banmask to set ban on as u explained on irc |
|
Back to top |
|
 |
SpiKe^^ Owner

Joined: 12 May 2006 Posts: 809 Location: Tennessee, USA
|
Posted: Fri Dec 31, 2021 5:49 pm Post subject: |
|
|
Perhaps this can be a usable compromise.
Find this line in the script Code: | } elseif {[string is digit -strict $item]} { set btime $item
|
and Add these lines just after that line... Code: |
} elseif {[string match {[+%]?*} $item]} {
lappend nickls [string trimleft $item "+%"]
} elseif {[string match "@?*" $item] && ![string match {*[.:]*} $item]} {
lappend nickls [string trimleft $item "@"]
|
_________________ SpiKe^^
Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
. |
|
Back to top |
|
 |
simo Owner
Joined: 22 Mar 2015 Posts: 969
|
Posted: Sat Jan 01, 2022 9:06 am Post subject: |
|
|
excellent tried it and seems to work well thanks Spike^^ |
|
Back to top |
|
 |
simo Owner
Joined: 22 Mar 2015 Posts: 969
|
Posted: Wed Feb 02, 2022 1:13 pm Post subject: |
|
|
i had a request if u are up for it Spike^^ as we use this code on various networks i found chanops on some of our networks never use multiple nicks to kick and kickban users but rather use:
!k nick custom reason
!kb nick custom reason
would it be easy to edit the code to have it work like this ?
thanks in advance. |
|
Back to top |
|
 |
SpiKe^^ Owner

Joined: 12 May 2006 Posts: 809 Location: Tennessee, USA
|
Posted: Wed Feb 02, 2022 2:26 pm Post subject: |
|
|
I thought that was how it worked now? _________________ SpiKe^^
Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
. |
|
Back to top |
|
 |
simo Owner
Joined: 22 Mar 2015 Posts: 969
|
Posted: Wed Feb 02, 2022 2:46 pm Post subject: |
|
|
atm its stacked both modes and kicks |
|
Back to top |
|
 |
SpiKe^^ Owner

Joined: 12 May 2006 Posts: 809 Location: Tennessee, USA
|
Posted: Wed Feb 02, 2022 2:50 pm Post subject: |
|
|
I don't get the difference.
the stacker can work with a "stack" of 1, just as well as 4 or 44? _________________ SpiKe^^
Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
. |
|
Back to top |
|
 |
simo Owner
Joined: 22 Mar 2015 Posts: 969
|
Posted: Wed Feb 02, 2022 2:50 pm Post subject: |
|
|
yea but it wont get the custom kick msg |
|
Back to top |
|
 |
simo Owner
Joined: 22 Mar 2015 Posts: 969
|
Posted: Wed Feb 02, 2022 2:52 pm Post subject: |
|
|
<+Simo> !k Dari test
Dari Kicked from #test
-Hawk- : test is not on channel #test
the custom kick msg wasnt used by the code |
|
Back to top |
|
 |
SpiKe^^ Owner

Joined: 12 May 2006 Posts: 809 Location: Tennessee, USA
|
Posted: Wed Feb 02, 2022 2:58 pm Post subject: |
|
|
That's because the command is: !k Dari .test _________________ SpiKe^^
Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
. |
|
Back to top |
|
 |
simo Owner
Joined: 22 Mar 2015 Posts: 969
|
Posted: Wed Feb 02, 2022 3:01 pm Post subject: |
|
|
but we wanted to just kick 1 nick at a time and have custom kick message right after it without any additional chars like . or other
!k nick custom kick here
!kb nick custom kick here |
|
Back to top |
|
 |
SpiKe^^ Owner

Joined: 12 May 2006 Posts: 809 Location: Tennessee, USA
|
Posted: Wed Feb 02, 2022 3:35 pm Post subject: Lame hack |
|
|
Try find this line in the script.... Code: | if {$uh ne "Timer" && ![is:allowed $nk $hn $ch]} { return 0 } |
and add these lines just after that line... Code: | if {$do eq "k" || $do eq "kb"} {
if {[llength [set temp [split $tx]]]>1 && ![matchstr ".*" [lindex $temp 1]]} {
set tx "[lindex $temp 0] .[join [lrange $temp 1 end]]"
}
} |
Leaves the script mostly as it is except for the !k and !kb commands can only do a single nick, unless you start the custom reason with a . as before.
EDIT: On further thought that may be somewhat shortsighted, as it does not look for "change target channel" or "custom bantime" arguments... _________________ SpiKe^^
Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
. |
|
Back to top |
|
 |
simo Owner
Joined: 22 Mar 2015 Posts: 969
|
Posted: Wed Feb 02, 2022 5:03 pm Post subject: |
|
|
so doing like this wont work ?
!k nick custom kick msg
!kb nick custom kick msg
i tested it ad added the line u suggested but it didnt add the custom kick msg |
|
Back to top |
|
 |
SpiKe^^ Owner

Joined: 12 May 2006 Posts: 809 Location: Tennessee, USA
|
Posted: Wed Feb 02, 2022 5:08 pm Post subject: |
|
|
That's not what I said.
Said it just does that and kills the other options for the k and kb commands.
Try the hack and see... _________________ SpiKe^^
Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
. |
|
Back to top |
|
 |
|