egghelp.org community Forum Index
[ egghelp.org home | forum home ]
egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

clone kicker
Goto page Previous  1, 2
 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests
View previous topic :: View next topic  
Author Message
caesar
Mint Rubber


Joined: 14 Oct 2001
Posts: 3579
Location: Mint Factory

PostPosted: Mon Mar 18, 2019 2:49 am    Post subject: Reply with quote

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.
_________________
I tawt I taw a puddy tat!
Back to top
View user's profile Send private message
simo
Master


Joined: 22 Mar 2015
Posts: 316

PostPosted: Mon Mar 18, 2019 11:13 am    Post subject: Reply with quote

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
Back to top
View user's profile Send private message
caesar
Mint Rubber


Joined: 14 Oct 2001
Posts: 3579
Location: Mint Factory

PostPosted: Tue Mar 19, 2019 5:01 am    Post subject: Reply with quote

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]::check
   
   proc 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.
_________________
I tawt I taw a puddy tat!
Back to top
View user's profile Send private message
simo
Master


Joined: 22 Mar 2015
Posts: 316

PostPosted: Tue Mar 19, 2019 2:05 pm    Post subject: Reply with quote

loaded it and this is output
Quote:

<TCL-Tester> join function triggered!
<TCL-Tester> Annemarie (~Merrilee@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Orosco (~Kisha@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Black (~Mena@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Rhodes (~Snow@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Georgene (~Connell@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Patino (~Concepcion@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Gearldine (~Newberry@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Bettyann (~Lilly@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Buss (~Hayes@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Geer (~Mueller@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Brumfield (~Marcelene@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Kinney (~Cloud@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Chastain (~Evans@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Manns (~Houle@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Carman (~Childers@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Dean (~Ferguson@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
Back to top
View user's profile Send private message
caesar
Mint Rubber


Joined: 14 Oct 2001
Posts: 3579
Location: Mint Factory

PostPosted: Sat Mar 23, 2019 5:31 am    Post subject: Reply with quote

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.
_________________
I tawt I taw a puddy tat!


Last edited by caesar on Sat Mar 23, 2019 8:59 am; edited 1 time in total
Back to top
View user's profile Send private message
simo
Master


Joined: 22 Mar 2015
Posts: 316

PostPosted: Sat Mar 23, 2019 8:04 am    Post subject: Reply with quote

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 paren
in expression "(1"
Back to top
View user's profile Send private message
caesar
Mint Rubber


Joined: 14 Oct 2001
Posts: 3579
Location: Mint Factory

PostPosted: Sat Mar 23, 2019 8:19 am    Post subject: Reply with quote

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

In DCC Chat do a .tcl $errorInfo and tell me what you see.
_________________
I tawt I taw a puddy tat!
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests All times are GMT - 4 Hours
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber