quitban.tcl v.1.1 slennox

[Ahilius]

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...

[awyeah]

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.

[Alchera]

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.
#

[awyeah]

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.

[mm]

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

[Alchera]

Example for calling:

Code: Select all

set msg [ctrl:filter $arg]

The procedure itself:

Code: Select all

# ctrl:filter <string> 
# 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 
}

[awyeah]

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!

[Alchera]

/me smacks awyeah on the wrist

[awyeah]

By the way as for this code:

Example for calling:

Code: Select all

set msg [ctrl:filter $arg]

The procedure itself:

Code: Select all

# ctrl:filter <string> 
# 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: Select all

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

#CORRECT
regsub -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!

[greenbear]

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

[awyeah]

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.