egghelp/eggheads community

clone kicker

2019-03-23T08:19:06-04:00

I did some minor testing and had to invent some commands to get some results and forgot to change that proc name back.

In DCC Chat do a .tcl $errorInfo and tell me what you see.

Statistics: Posted by caesar — Sat Mar 23, 2019 8:19 am

clone kicker

2019-03-23T08:04:17-04:00

first i got error

Code:

Tcl error [::DeClone::check]: invalid command name "chanlist2"

then i changed :

Code:

      set known [chanlist2 $chan $clone(excepts)]

to:

Code:

      set known [chanlist $chan $clone(excepts)]

then i got error:

Code:

Tcl error [::DeClone::check]: unbalanced open parenin expression "(1"

Statistics: Posted by simo — Sat Mar 23, 2019 8:04 am

clone kicker

2019-03-23T08:59:23-04:00

Code:

See last post for code.

Give this code a try and let me know the results.

The clone(grace) is the thing we discussed on the channel. It grans 10 seconds to said user to remove it's clone and when the timer expires will ban them.

If there are equal or more than whatever is set at clone(max) then it will lock and ban them all.

Edit: We did some live testings fixed some minor issues.

Statistics: Posted by caesar — Sat Mar 23, 2019 5:31 am

clone kicker

2019-03-19T14:05:56-04:00

loaded it and this is output

join function triggered!
Annemarie (~Merrilee@testing.clones.net) joined #tcl-test.
join function triggered!
Orosco (~Kisha@testing.clones.net) joined #tcl-test.
join function triggered!
Black (~Mena@testing.clones.net) joined #tcl-test.
join function triggered!
Rhodes (~Snow@testing.clones.net) joined #tcl-test.
join function triggered!
Georgene (~Connell@testing.clones.net) joined #tcl-test.
join function triggered!
Patino (~Concepcion@testing.clones.net) joined #tcl-test.
join function triggered!
Gearldine (~Newberry@testing.clones.net) joined #tcl-test.
join function triggered!
Bettyann (~Lilly@testing.clones.net) joined #tcl-test.
join function triggered!
Buss (~Hayes@testing.clones.net) joined #tcl-test.
join function triggered!
Geer (~Mueller@testing.clones.net) joined #tcl-test.
join function triggered!
Brumfield (~Marcelene@testing.clones.net) joined #tcl-test.
join function triggered!
Kinney (~Cloud@testing.clones.net) joined #tcl-test.
join function triggered!
Chastain (~Evans@testing.clones.net) joined #tcl-test.
join function triggered!
Manns (~Houle@testing.clones.net) joined #tcl-test.
join function triggered!
Carman (~Childers@testing.clones.net) joined #tcl-test.
join function triggered!
Dean (~Ferguson@testing.clones.net) joined #tcl-test.
join function triggered!

Statistics: Posted by simo — Tue Mar 19, 2019 2:05 pm

clone kicker

2019-03-19T05:01:29-04:00

In the "ideal" example you posted one page behind the join should be triggered 30 times (one time for each of the 30 clones that joined), yet in your example it triggered only once and punished all of them at the same time, again only once.

I'm trying to mimic that but not sure if possible. So, since I don't have the means to create clones on demand nor a server to play on I need your help to do some testing for me to see what happens.

Code:

namespace eval CloneTest {bind join - * [namespace current]::checkproc check {nick uhost hand chan} {putlog "join function triggered!"}}

Load this code onto a test bot without any other code and tell me if you see 30 lines when you join those 30 clones or just one. In theory should see 30 lines.

Statistics: Posted by caesar — Tue Mar 19, 2019 5:01 am

clone kicker

2019-03-18T11:13:53-04:00

i would like to post the msl code but the author who shared it with me (code isnt mine) requested me not to publish it so i have to respect his request
but i can go throu the fundementals

* if it detects clones it locks channel with +RM (with timer to unlock) and stores cloned nicks (and set ban on banmask of clones)
* next it uses mode event ( possibly eggdrops bind mode +R ) to make sure channel lock mode +R is set
* then sends the stored nicks to an alias to be kicked in stacked way ( per set threshold ) and makes sure to remove each nick from stored nicks that has been kicked to prevent duplicate kicks

Statistics: Posted by simo — Mon Mar 18, 2019 11:13 am

clone kicker

2019-03-18T02:49:01-04:00

Yeah, i saw where I did wrong and will fix it shortly.

Can you post the msl code to see what approach was used? I'm asking cos there's a delay between the clones joining and when the lock, ban and kicking starts.

Statistics: Posted by caesar — Mon Mar 18, 2019 2:49 am

clone kicker

2019-03-17T18:28:03-04:00

something like this would be ideal

23:22:33 Join : Skaggs ~Rosario@testing.clones.net
23:22:33 Join : Barclay ~Coulter@testing.clones.net
23:22:33 Join : Massie ~Overby@testing.clones.net
23:22:33 Join : Mead ~Smothers@testing.clones.net
23:22:33 Join : Crowell ~Boyce@testing.clones.net
23:22:33 Join : Boatwright ~Nelson@testing.clones.net
23:22:33 Join : Clemons ~Yuri@testing.clones.net
23:22:33 Join : Dallas ~Scruggs@testing.clones.net
23:22:33 Join : Overstreet ~Bobbitt@testing.clones.net
23:22:33 Join : Fitzsimmons ~Beatty@testing.clones.net
23:22:33 Join : Boren ~Bowlin@testing.clones.net
23:22:33 Join : Block ~Mcneill@testing.clones.net
23:22:33 Join : Hargrove ~Joan@testing.clones.net
23:22:33 Join : Schaeffer ~Yung@testing.clones.net
23:22:33 Join : Negrete ~Colwell@testing.clones.net
23:22:33 Join : Lauer ~Hundley@testing.clones.net
23:22:33 Join : Jansen ~Saucedo@testing.clones.net
23:22:33 Join : Fulton ~Clarinda@testing.clones.net
23:22:33 Join : Beal ~Olive@testing.clones.net
23:22:33 Join : Mclendon ~Goldstein@testing.clones.net
23:22:33 Join : Swank ~Arriaga@testing.clones.net
23:22:33 Join : Myrtis ~Redmon@testing.clones.net
23:22:33 Join : Orourke ~Durden@testing.clones.net
23:22:33 Join : Cheung ~Spears@testing.clones.net
23:22:33 Join : Mcvay ~Motley@testing.clones.net
23:22:33 Join : Hughey ~Tommye@testing.clones.net
23:22:33 Join : Sales ~Pointer@testing.clones.net
23:22:33 Join : Lefebvre ~Lovett@testing.clones.net
23:22:33 Join : Hensley ~Parham@testing.clones.net
23:22:33 Join : Dahl ~Funderburk@testing.clones.net
23:22:33 @simo Sets Mode on #tcl-test to: +RM
23:22:33 @simo Sets Mode on #tcl-test to: +b *!*@*.clones.net
23:22:33 (30 Users) Are Banned Barclay Beal Block Boatwright Boren Cheung Clemons Crowell Dahl Dallas Fitzsimmons Fulton Hargrove Hensley Hughey Jansen Lauer Lefebvre Massie Mclendon Mcvay Mead Myrtis Negrete Orourke Overstreet Sales Schaeffer Skaggs Swank
23:22:34 Barclay Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Skaggs Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Massie Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Mead Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Crowell Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Boatwright Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Clemons Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Dallas Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Overstreet Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Fitzsimmons Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Boren Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Block Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Hargrove Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Schaeffer Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Negrete Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Lauer Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Jansen Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Fulton Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Beal Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Mclendon Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Swank Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Myrtis Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Orourke Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Cheung Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Mcvay Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Hughey Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Sales Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Lefebvre Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Hensley Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:34 Dahl Kicked from #tcl-test By @simo <> ( Clone flood detected )
23:22:54 @simo Sets Mode on #tcl-test to: -MR

this is a msl code that does the same exact thing it detects clones then locks channel first after thats determined to be done then start banning and kicking to give it a chance to keep track of stored nicks and kicked nicks not to repeat the same kicks of same nicks over and over and also to make sure the lock channel is modes are set 1 time and removed after timed duration i usually use 20 sec

Statistics: Posted by simo — Sun Mar 17, 2019 6:28 pm

clone kicker

2019-03-15T18:29:12-04:00

also ideally you would set temp lock channel with like +MR the moment clones are detected just incase to give the bot some space to work with to start doing things after channel is locked, set lock modes ones tho not have it set over and over the same lock modes

theoretically you could say to use anti mass join tcl for that only in the case of clones being joined 1 per like 10 sec the anti mass joins tcl wouldnt detect them as mass join flood and this clone kicker tcl would

Statistics: Posted by simo — Fri Mar 15, 2019 6:29 pm

clone kicker

2019-03-15T18:45:38-04:00

now it seems to kick first 5 - 10 clones and after that it slows down taking it ages to kick the rest of the remaining clones

while on this specific server it should kick 20 per single kick command without any issues

it also keeps banning same ip over and over again and it doesnt seem to remove the already kicked nick from the list of stored nicks

21:19:14 Join : Horne ~Butler@testing.clones.net
21:19:14 Join : Sanders ~Brand@testing.clones.net
21:19:14 Join : Jernigan ~Monnie@testing.clones.net
21:19:14 Join : Alves ~Burnett@testing.clones.net
21:19:14 Join : Purnell ~Queenie@testing.clones.net
21:19:14 Join : Custer ~Crandall@testing.clones.net
21:19:14 Join : Shorter ~Silver@testing.clones.net
21:19:14 Join : Faber ~Yun@testing.clones.net
21:19:14 Join : Kidwell ~Hannah@testing.clones.net
21:19:14 Join : Pullen ~Mireles@testing.clones.net
21:19:14 Join : Cowan ~Brunner@testing.clones.net
21:19:14 Join : Camarillo ~Felicita@testing.clones.net
21:19:14 Join : Kilpatrick ~Britany@testing.clones.net
21:19:14 Join : Leone ~Laquanda@testing.clones.net
21:19:14 Join : Hidalgo ~Stillwell@testing.clones.net
21:19:14 Join : Adkins ~Bickford@testing.clones.net
21:19:14 Join : Crider ~Mcghee@testing.clones.net
21:19:14 Join : Prado ~Dyson@testing.clones.net
21:19:14 Join : Broussard ~Kendall@testing.clones.net
21:19:14 Join : Dale ~Caitlyn@testing.clones.net
21:19:14 Join : Luce ~Conrad@testing.clones.net
21:19:14 @TCL-Tester Sets Mode on #tcl-test to: +b *!*@testing.clones.net
21:19:14 (21 Users) Are Banned Adkins Alves Broussard Camarillo Cowan Crider Custer Dale Faber Hidalgo Horne Jernigan Kidwell Kilpatrick Leone Luce Prado Pullen Purnell Sanders Shorter
21:19:14 (@TCL-Tester) : +b *!*@testing.clones.net
21:19:14 Horne Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:19:14 Sanders Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:19:14 Jernigan Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:19:14 (@TCL-Tester) : Horne,Sanders,Jernigan Clones Are Not Allowed 120 Sec Ban ...!!!
21:19:14 (@TCL-Tester) : +b *!*@testing.clones.net
21:19:14 Alves Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:19:14 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves Clones Are Not Allowed 120 Sec Ban ...!!!
21:19:14 (@TCL-Tester) : +b *!*@testing.clones.net
21:19:14 Purnell Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:19:16 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell Clones Are Not Allowed 120 Sec Ban ...!!!
21:19:18 (@TCL-Tester) : +b *!*@testing.clones.net
21:19:19 Custer Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:19:20 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell,Custer Clones Are Not Allowed 120 Sec Ban ...!!!
21:19:22 (@TCL-Tester) : +b *!*@testing.clones.net
21:19:23 Shorter Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:19:24 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell,Custer,Shorter Clones Are Not Allowed 120 Sec Ban ...!!!
21:19:26 (@TCL-Tester) : +b *!*@testing.clones.net
21:19:27 Faber Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:19:28 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell,Custer,Shorter,Faber Clones Are Not Allowed 120 Sec Ban ...!!!
21:19:30 (@TCL-Tester) : +b *!*@testing.clones.net
21:19:31 Kidwell Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:19:32 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell,Custer,Shorter,Faber,Kidwell Clones Are Not Allowed 120 Sec Ban ...!!!
21:19:34 (@TCL-Tester) : +b *!*@testing.clones.net
21:19:35 Pullen Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:19:36 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell,Custer,Shorter,Faber,Kidwell,Pullen Clones Are Not Allowed 120 Sec Ban ...!!!
21:19:38 (@TCL-Tester) : +b *!*@testing.clones.net
21:19:39 Cowan Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:19:40 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell,Custer,Shorter,Faber,Kidwell,Pullen,Cowan Clones Are Not Allowed 120 Sec Ban ...!!!
21:19:42 (@TCL-Tester) : +b *!*@testing.clones.net
21:19:43 Camarillo Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:19:44 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell,Custer,Shorter,Faber,Kidwell,Pullen,Cowan,Camarillo Clones Are Not Allowed 120 Sec Ban ...!!!
21:19:46 (@TCL-Tester) : +b *!*@testing.clones.net
21:19:47 Kilpatrick Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:19:48 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell,Custer,Shorter,Faber,Kidwell,Pullen,Cowan,Camarillo,Kilpatrick Clones Are Not Allowed 120 Sec Ban ...!!!
21:19:50 (@TCL-Tester) : +b *!*@testing.clones.net
21:19:51 Leone Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:19:52 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell,Custer,Shorter,Faber,Kidwell,Pullen,Cowan,Camarillo,Kilpatrick,Leone Clones Are Not Allowed 120 Sec Ban ...!!!
21:19:54 (@TCL-Tester) : +b *!*@testing.clones.net
21:19:55 Hidalgo Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:19:56 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell,Custer,Shorter,Faber,Kidwell,Pullen,Cowan,Camarillo,Kilpatrick,Leone,Hidalgo Clones Are Not Allowed 120 Sec Ban ...!!!
21:19:58 (@TCL-Tester) : +b *!*@testing.clones.net
21:19:59 Adkins Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:20:00 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell,Custer,Shorter,Faber,Kidwell,Pullen,Cowan,Camarillo,Kilpatrick,Leone,Hidalgo,Adkins Clones Are Not Allowed 120 Sec Ban ...!!!
21:20:02 (@TCL-Tester) : +b *!*@testing.clones.net
21:20:03 Crider Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:20:04 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell,Custer,Shorter,Faber,Kidwell,Pullen,Cowan,Camarillo,Kilpatrick,Leone,Hidalgo,Adkins,Crider Clones Are Not Allowed 120 Sec Ban ...!!!
21:20:06 (@TCL-Tester) : +b *!*@testing.clones.net
21:20:07 Prado Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:20:08 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell,Custer,Shorter,Faber,Kidwell,Pullen,Cowan,Camarillo,Kilpatrick,Leone,Hidalgo,Adkins,Crider,Prado Clones Are Not Allowed 120 Sec Ban ...!!!
21:20:10 (@TCL-Tester) : +b *!*@testing.clones.net
21:20:11 Broussard Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:20:12 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell,Custer,Shorter,Faber,Kidwell,Pullen,Cowan,Camarillo,Kilpatrick,Leone,Hidalgo,Adkins,Crider,Prado,Broussard Clones Are Not Allowed 120 Sec Ban ...!!!
21:20:14 (@TCL-Tester) : +b *!*@testing.clones.net
21:20:15 Dale Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:20:16 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell,Custer,Shorter,Faber,Kidwell,Pullen,Cowan,Camarillo,Kilpatrick,Leone,Hidalgo,Adkins,Crider,Prado,Broussard,Dale Clones Are Not Allowed 120 Sec Ban ...!!!
21:20:18 (@TCL-Tester) : +b *!*@testing.clones.net
21:20:20 (@TCL-Tester) : Horne,Sanders,Jernigan,Alves,Purnell,Custer,Shorter,Faber,Kidwell,Pullen,Cowan,Camarillo,Kilpatrick,Leone,Hidalgo,Adkins,Crider,Prado,Broussard,Dale Clones Are Not Allowed 120 Sec Ban ...!!!
21:20:21 Luce Kicked from #tcl-test By @TCL-Tester <> ( Clones Are Not Allowed 120 Sec Ban ...!!! )
21:20:22 (@TCL-Tester) : Luce Clones Are Not Allowed 120 Sec Ban ...!!!
21:20:23 @TCL-Tester Sets Mode on #tcl-test to: -b *!*@testing.clones.net

Statistics: Posted by simo — Fri Mar 15, 2019 4:02 pm

clone kicker

2019-03-15T09:48:08-04:00

That's because of lappend.
Replace:

Code:

lappend bans *!*@$hostlappend members $clones($host)

with:

Code:

append bans *!*@$hostappend members $clones($host)

Another option would be to create the two lists before appending anything to them.

After set found 0 we add:

Code:

set members {}set bans {}

and leave the rest as is. I prefer changing from lappend to append, meaning first option.

Statistics: Posted by caesar — Fri Mar 15, 2019 9:48 am

clone kicker

2019-03-15T08:28:47-04:00

it kicks 1 clone only

13:23:41 Join : Brinkman ~Dean@testing.clones.net
13:23:41 Join : Britton ~Rodrigue@testing.clones.net
13:23:41 Join : Shackelford ~Skaggs@testing.clones.net
13:23:41 Join : Sumpter ~Berg@testing.clones.net
13:23:41 Join : Kong ~Southern@testing.clones.net
13:23:41 Join : Harkins ~Cantwell@testing.clones.net
13:23:41 Join : Becker ~Mckinnon@testing.clones.net
13:23:41 Join : Montanez ~Sulema@testing.clones.net
13:23:41 Join : Laila ~Emmons@testing.clones.net
13:23:41 Join : Debora ~Kyle@testing.clones.net
13:23:41 Join : Breen ~Finnegan@testing.clones.net
13:23:41 Join : Flood ~Barnhart@testing.clones.net
13:23:41 Join : Curley ~Diehl@testing.clones.net
13:23:41 @TCL-Tester Sets Mode on #tcl-test to: +b *!*@testing.clones.net
13:23:41 (18 Users) Are Banned Becker Breen Brinkman Britton Curley Cushman Debora Dotson Flood Harkins Hays Huber Kong Laila Montanez Shackelford Stewart Sumpter
13:23:41 Dotson Kicked from #tcl-test By @TCL-Tester <> ( Cushman Stewart Clones Are Not Allowed 120 Sec Ban ...!!! )'

Statistics: Posted by simo — Fri Mar 15, 2019 8:13 am

clone kicker

2019-03-15T08:06:56-04:00

Typo

Replace:

Code:

if {found} {

with:

Code:

if {$found} {

Statistics: Posted by caesar — Fri Mar 15, 2019 8:06 am

clone kicker

2019-03-15T07:37:33-04:00

now gettin this error

12:36:53 [12:35:31] Tcl error [::DeClone::check]: invalid bareword "found"
12:36:53 in expression "found";
12:36:53 should be "$found" or "{found}" or "found(...)" or ...

Statistics: Posted by simo — Fri Mar 15, 2019 7:37 am

clone kicker

2019-03-15T07:11:25-04:00

Ah, yeah, I see where i screwed up. My bad. Try this updated code instead:

Code:

namespace eval DeClone {# Set the next line as the kick msg you want to sayset clone(msg) "10Clones Are Not Allowed 120 Sec Ban ...!!!"# Set the next line as the number of clones to scan forset clone(max) 3# Set the next line as the channels you want to run in (* = allchannels)set clone(chans) "#SuKooN"# Set ban time (in seconds)set clone(bantime) 120# Exempt +o users from this script ??#  0 = No, do not exempt users with +o#  1 = Yes, exempt users with +o#  2 = Yes, also exempt users with +vset clone(exemptops) 1# Set exempt users by standard "nick!user@host" mask ??# If you do not have any mask to exempt: set clone_exemptmask {}set clone(exemptmask) { *!*@DALnet *!*@*.users.quakenet.org *!*@*.irccloud.com  }###########  End Settings  ###########   bind join - * [namespace current]::check   proc checknick {nick} {set skip [list "S" "Q" "X" "ChanServ"]set test [expr {[lsearch -nocase $skip $nick] > -1 ? "1" : "0"}]}   proc checkMask {nuh} {variable cloneset match 0foreach mask $clone(exemptmask) {if {[string match -nocase $mask $nuh]} {incr matchbreak}}set match}   proc stackBans {chan banlist} {set max 25set count [llength $banlist]while {$count > 0} {if {$count> $max} {set mode [string repeat "b" $max]set masks [join [lrange $banlist 0 [expr {$max - 1}]]]set banlist [lrange $banlist $max end]incr count -$maxincr total $max} else {set mode [string repeat "b" $count]set masks [join $banlist]incr total $countset count 0}puthelp "MODE $chan +$mode $masks"}}   proc stackKicks {chan kicklist reason} {set max 25set count [llength $kicklist]while {$count > 0} {if {$count > $max} {set users [join [lrange $kicklist 0 [expr {$max - 1}]] ","]set kicklist [lrange $kicklist $max end]incr count -$max} else {set users [join $kicklist ","]set count 0}puthelp "KICK $chan $users :$reason"}}proc timedLift {chan bans} {variable cloneforeach ban [split $bans] {utimer $clone(bantime) [list puthelp "MODE $chan -b $ban"]}}   proc check {nick uhost hand chan} {variable cloneif {[isbotnick $nick] || ![botisop $chan] || [matchattr $hand bm|m $chan]} returnif {[checkMask $nick!$uhost]} return      foreach user [chanlist $chan] {if {[isbotnick $nick] || [checknick $user]} continueif {$clone(exemptops)} {set hn [nick2hand $user $chan]if {[isop $user $chan] || [isvoice $user $chan] || [matchattr $hn +o+v|+o+v $chan]} continue}set uh [getchanhost $user $chan]if {[checkMask $user!$uh]} continuescan $uh {%[^@]@%s} u hlappend clones($h) $user}      set found 0foreach host [array names clones] {if {[llength $clones($host)] >= $clone(max)} {lappend bans *!*@$hostlappend members $clones($host)incr found}}if {found} {stackBans $chan $bansstackKicks $chan $members $clone(msg)timedLift $chan $bans}}}

Statistics: Posted by caesar — Fri Mar 15, 2019 7:11 am