egghelp/eggheads community

!help

2004-12-23T03:05:32-04:00

afaik this is a help forum we do not translate other scripting languages to tcl.

Statistics: Posted by metroid — Thu Dec 23, 2004 3:05 am

!help

2004-12-22T17:08:35-04:00

Code:

 eval set REALNAME 14[4CrashProof-War^Bawt v.A114]^assign username 14[4CrashProof-War^Bawt v.A114]^assign server aquilla.hackexe.org^assign dontkickthisban *!*@* *!~*@* *bot* *b0t* *sevr* *serv*    assign banmask $after(@ $userhost($knick2))      /mode $warchan +b $banmask      /kick $warchan $knick2 Banned.14[4CrashProof-War^Bawt14]      ^timer -refnum Unban1 30 mode $warchan -b $banmask[quote] i run epic bots with eggdrops   max ban is 30sec .The chanserv is only for the bots  /kick $warchan $knick2 Banned for 30 seconds.14[4BulletProof-War^Bawt14][/quote]

/mode $warchan -bbbb *sevr*!*@* *serv*!*@* *bot*!*@* *b0t*!*@*

IF a USER that it does not have in nick his words bot/b0t/serv/sevr removes BAN in the channel him it makes 2 bans from 30 seconds 1)ban - reason:Dont Unban A Bot/serv Ban: banmask 2)ban - reason:Don't Mess With The Bot's or Serv's. IT CAN BECOME TCL? SPECIAL THANKS

Statistics: Posted by s0ulw4r — Wed Dec 22, 2004 5:08 pm

!help

2004-12-21T23:18:56-04:00

Why not use a newchanban/newban -sticky ban with +dynamicbans activated add them into your channel? so those bans will not be removed by anyone, similar to as of ChanServ akicks.

Statistics: Posted by awyeah — Tue Dec 21, 2004 11:18 pm

Dont Unban A Bot/b0t/sevr/serv Ban!

2004-12-21T08:01:34-04:00

IF a USER that it does not have in nick his words bot/b0t/serv/sevr removes BAN in the channel him it makes 2 bans from 30 seconds 1)ban - reason:Dont Unban A Bot/serv Ban: banmask 2)ban - reason:Don't Mess With The Bot's or Serv's. IT CAN BECOME TCL? SPECIAL THANKS

Statistics: Posted by s0ulw4r — Tue Dec 21, 2004 8:01 am

working

2004-12-21T06:56:55-04:00

special thanks

Statistics: Posted by s0ulw4r — Tue Dec 21, 2004 6:56 am

Re: rehelp

2004-12-20T22:48:44-04:00

this tcl that you gave to me doesn't work,I need a list where I can put the nicks that have the words <> no flags only nicks.Any nick that has the words <> will try to come into the channel and it is not in the protect list will automatically be banned.The one way is to put in the tcl the nicks,the other way is the bot by itself automatically when it comes in the channel to seek the access list of the channel <> and at dalnet is <<:/msg chanserv sop list>>.and the third way is to make it by a command public or /msg.
Thank you for your patience

instead of whining "it doesn't work it doesn't work" you could have said that it complains with a Tcl error on $::botnet-nick; change it to ${::botnet-nick} and it's gonna be okay

Statistics: Posted by demond — Mon Dec 20, 2004 10:48 pm

rehelp

2004-12-20T17:49:35-04:00

this tcl that you gave to me doesn't work,I need a list where I can put the nicks that have the words <> no flags only nicks.Any nick that has the words <> will try to come into the channel and it is not in the protect list will automatically be banned.The one way is to put in the tcl the nicks,the other way is the bot by itself automatically when it comes in the channel to seek the access list of the channel <> and at dalnet is <<:/msg chanserv sop list>>.and the third way is to make it by a command public or /msg.
Thank you for your patience

Statistics: Posted by s0ulw4r — Mon Dec 20, 2004 5:49 pm

!help

2004-12-20T11:11:19-04:00

[quote="s0ulw4r"][quote="demond"]what's not working?

from the listing you pasted (next time use

Code:

 tag) I can't understand what your problem is[/quote]  want to make a tcl that would give access to channel list (/cs access #channel list) and ban (reason: Is Not Protected. False Bot) those nicks that include the word the words bot/b0t/serv/serv {(bot|b0t|serv|sevr)} $nick]} and are not include in the list of the channelthe tcl might be made in a way that I would add them with publi command! ( !protect EggBot !ptrotect SpEEd|SEVR !protect dArkB0t ................)[/quote]access to channel list? access that grants the right of use of /cs access #channel list? this has nothing to do with your initial request, or you are simply unable to explain what you need (assuming that you know it yourself, which I very much doubt, I think you are totally confused)what I wrote for you (with Papillon's fix) bans anyone with bot/serv in their nick, if they aren't on the protected list - and you can add nicks to that list with !protect public command - if this doesn't suit you, feel free to help yourself as you wish

Statistics: Posted by demond — Mon Dec 20, 2004 11:11 am

!help

2004-12-20T04:55:07-04:00

Concept:
First bind on pub, to bind to the trigger which would make the bot do /msg chanserv access #channel list. Then bind to notc, check if [string equal "ChanServ" $nick] and making sure $target is the bot's nick by checking string index 0 != #, if necessary. Then you can find the list index numbers of the text output to check and string match your patterns with a foreach loop or string match the entire text. Though I would prefer using lindex. After match, you can go ahead and do anything you like within the loop itself.

Statistics: Posted by awyeah — Mon Dec 20, 2004 4:55 am

!help

2004-12-20T04:27:54-04:00

[quote="demond"]what's not working?

from the listing you pasted (next time use

Code:

 tag) I can't understand what your problem is[/quote]  want to make a tcl that would give access to channel list (/cs access #channel list) and ban (reason: Is Not Protected. False Bot) those nicks that include the word the words bot/b0t/serv/serv {(bot|b0t|serv|sevr)} $nick]} and are not include in the list of the channelthe tcl might be made in a way that I would add them with publi command! ( !protect EggBot !ptrotect SpEEd|SEVR !protect dArkB0t ................)

Statistics: Posted by s0ulw4r — Mon Dec 20, 2004 4:27 am

!help

2004-12-19T21:37:25-04:00

thats why I used foreach

Statistics: Posted by demond — Sun Dec 19, 2004 9:37 pm

!help

2004-12-19T21:25:37-04:00

Hmm... never tried that, seems odd to match 2 lists of elements and checking if any both of the lists have similar entries. However you would need to use a foreach loop with lsearch for that. The foreach loop would keep changing the element in one list (which will be your search pattern), while you match against the other list.

I just use a foreach loop as you did and use string match as it is faster. But a foreach loop and string match would take the sametime as lsearch then, since string match has a foreach loop with it and it is not alone.

Statistics: Posted by awyeah — Sun Dec 19, 2004 9:25 pm

!help

2004-12-19T20:57:43-04:00

And also for using lsearch matching, put both of the variables to match in similar strings before using -exact; either both in lower strings or upper strings. (generally a good idea)

how do you lsearch through patterns, matching not a pattern against list elements but an element against patterns?

Statistics: Posted by demond — Sun Dec 19, 2004 8:57 pm

!help

2004-12-19T20:54:52-04:00

And also for using lsearch matching, put both of the variables to match in similar strings before using -exact; either both in lower strings or upper strings, since it does not have a -nocase switch such as other string manipulation commands. (generally a good idea)

Statistics: Posted by awyeah — Sun Dec 19, 2004 8:54 pm

!help

2004-12-19T11:37:56-04:00

Code:

if {[string match *${b}* $n] && ([lsearch -exact $::plist $n] == -1)} {

you have to add a -nocase in there

Code:

if {[string match -nocase *${b}* $n] && ([lsearch -exact $::plist $n] == -1)} {

Statistics: Posted by Papillon — Sun Dec 19, 2004 11:37 am