egghelp/eggheads community

quitban.tcl v.1.1 slennox

2004-08-16T21:25:24-04:00

Yeah, but I still will be using a strip filter procedure in all of my coming scripts atleast for the coming 4-5 months, because most people might not update to the latest eggdrop1.6.17 so soon.

So if my scripts have a scriptcodes function to remove control codes, and most people using that script are running old eggdrop versions, older than 1.6.17 then that function will not be defined, causing the script to choke.

Statistics: Posted by awyeah — Mon Aug 16, 2004 9:25 pm

quitban.tcl v.1.1 slennox

2004-08-16T09:46:54-04:00

or you can save some trouble and use stripcodes (new in eggdrop1.6.17) ..

Statistics: Posted by greenbear — Mon Aug 16, 2004 9:46 am

quitban.tcl v.1.1 slennox

2004-08-15T23:55:24-04:00

By the way as for this code:

Example for calling:

Code:

set msg [ctrl:filter $arg]

The procedure itself:

Code:

# ctrl:filter  # Strip all control characters. Thanks to ppslim (ppslim@acarr.plus.com).proc ctrl:filter {str} {   regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str   return $str }

'user' in most of his posts mentioned:

#Not the correct way to remove colors
proc ctrl:filter {str} {
regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\002|\017|\026|\037|\006|\007} $str "" str
return $str

#The correct way to remove colors
proc ctrl:filter {str} {
regsub -all -- {\003([0-9]{1,2}(,[0-9]{1,2})?)?|\002|\017|\026|\037|\006|\007} $str "" str
return $str
}

Code:

#WRONGregsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\002|\017|\026|\037|\006|\007} $str "" str #CORRECTregsub -all -- {\003([0-9]{1,2}(,[0-9]{1,2})?)?|\002|\017|\026|\037|\006|\007} $str "" str

So use the regular substitution as 'user' has mentioned.

Now I am not a rocketscientist or as good as these guys, but I think maybe user has a point. I don't understand regexp or regsub very well so we will leave this for ppslim (the creator) and user to argue over (both are indeed good scripters). Lets see who wins and who is correct!

Statistics: Posted by awyeah — Sun Aug 15, 2004 11:55 pm

quitban.tcl v.1.1 slennox

2004-08-15T23:50:45-04:00

/me smacks awyeah on the wrist

Statistics: Posted by Alchera — Sun Aug 15, 2004 11:50 pm

quitban.tcl v.1.1 slennox

2004-08-15T23:45:12-04:00

There is a filter, actually in some procs I forgot to rename it.
That's why the named filter in the procs is different to the actual name of the filter giving an error that procedure cannot be found.

What can I say! A 50kb+ script, somewhere you get an error! isn't it true?
Maybe because of being lazy and pasting and also not of thorough testing!

Anyway I just submitted a new fixed version, with more updates and functions of the 'Anti Part/Quit Message Script'.

It takes some days to be added onto egghelp.org though. If you need the script in a hurry give me your email and I will send it to you, otherwise wait till it has been updated on egghelp.org's TCL archive in the 'New Scripts' section!

I will be looking in the future to reduce the size when I get time as well and add a bit more features!

Statistics: Posted by awyeah — Sun Aug 15, 2004 11:45 pm

quitban.tcl v.1.1 slennox

2004-08-15T18:14:51-04:00

Example for calling:

Code:

set msg [ctrl:filter $arg]

The procedure itself:

Code:

# ctrl:filter  # Strip all control characters. Thanks to ppslim (ppslim@acarr.plus.com).proc ctrl:filter {str} {   regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str   return $str }

Statistics: Posted by Alchera — Sun Aug 15, 2004 6:14 pm

quitban.tcl v.1.1 slennox

2004-08-15T13:47:43-04:00

hi awyeah,

nice script, but i think ppl will get the error... because there is no -> ctrl:filter procedure in the code...may be i am missing something..

thanks

Statistics: Posted by mm — Sun Aug 15, 2004 1:47 pm

quitban.tcl v.1.1 slennox

2004-08-15T09:53:15-04:00

Also set +dynamicbans
# dynamicbans
# Only activate bans on the channel when necessary? This keeps
# the channel's ban list from getting excessively long. The bot
# still remembers every ban, but it only activates a ban on the
# channel when it sees someone join who matches that ban.
#

Yes! it is also good, to set +dynamicbans.
Bans in the bots banlist will not be always enforced/active on the channel if those bans are unbanned on the channel by an Op.

Statistics: Posted by awyeah — Sun Aug 15, 2004 9:53 am

quitban.tcl v.1.1 slennox

2004-08-15T01:02:41-04:00

Also set +dynamicbans

# dynamicbans
# Only activate bans on the channel when necessary? This keeps
# the channel's ban list from getting excessively long. The bot
# still remembers every ban, but it only activates a ban on the
# channel when it sees someone join who matches that ban.
#

Statistics: Posted by Alchera — Sun Aug 15, 2004 1:02 am

quitban.tcl v.1.1 slennox

2004-08-15T00:24:30-04:00

Umm, maybe you can replace the 'newchanban' to putserv "MODE $chan +b $banmask" something like this.

I also made a script similar it binds on part as well as quit you might want to try that 'Anti Part/Quit Message Script'. You can find it on egghelp.org's TCL archive.

Statistics: Posted by awyeah — Sun Aug 15, 2004 12:24 am

quitban.tcl v.1.1 slennox

2004-08-14T22:15:55-04:00

In your collection of tcl scripts, you have quitban.tcl script (v1.1).

I've been using this script for a while on my channel (#Liepaja).
Wonderful script!

Only one but. Script setting ban in bot's banist and in channel banlist.

(06:30:30)—› quit: (quit_ban_test) (~user@proxy2.vita.gov.lv) (Quit: HnH Script version 5.2 Download
from www.RG-soft.com)
(06:30:30)—› mode: (Liepaja) sets (+b *!~user@proxy2.vita.gov.lv)

Every day I need to clean my channel banlist because it becoming a
mess

Can script be configured to set ban into bot's banlist only?

Thank you for your answer!

Sincerly,

Andry
P.S. - sorry for bad english...

Statistics: Posted by Ahilius — Sat Aug 14, 2004 10:15 pm