egghelp/eggheads community

!ignore script

2011-02-19T04:17:58-04:00

That's because only the ignore uses the regexp. Just replace:

Code:

if {[regexp -nocase -- {^[-_./\\]+?([a-z0-9]+)[-_./\\]+$} [lindex [split $text] 0] a b}

with:

Code:

if {[regexp -nocase -- {^[-_./\\]+?([a-z0-9]+)[-_./\\]+$} [lindex [split $text] 0] a b]}

notice the ']' after 'b'.

Statistics: Posted by caesar — Sat Feb 19, 2011 4:17 am

!ignore script

2011-02-18T13:45:12-04:00

I created the ignore.tcl using the code Luminous created and am running eggdrop 1.6.20 and tcl 8.5.9

When I run !ignore user I receive this error:

Tcl error [pub:cmdignore: missing close-bracket
in expression "[regexp -nocase -- {^[-..."

Any thoughts or ideas? !unignore and !listignores work fine.

Any help is greatly appreciated

Statistics: Posted by Jahner — Fri Feb 18, 2011 1:45 pm

!ignore script

2011-01-21T10:26:50-04:00

Using a botnet relay to connect this across 5 different networks. Using CrazyCat Chanrelay 3.0

Is this adaptable to work across the relay without a major rewrite?

Thank you in advance.

Rowdyone

Statistics: Posted by RowdyOne — Fri Jan 21, 2011 10:26 am

!ignore script

2010-08-13T10:55:47-04:00

Okay, I made a few tweaks regarding how nicks are set. This -should- catch nicks like amigo_blah and just turn it into *amigo*!*, but I made it so that it will first attempt to ignore via their hostmask if they are on channel. If they are not, it uses the modified version of this nick.

I also added the ignorelist too. Syntax is !ignorelist.

I went ahead and wrote the whole thing out as one script. Ignorelist is at the end. I fancied up the output of it for you some. Hope it works as planned, I wasn't able to test all of this in full, aside from the ignorelist.

Code:

bind pub o|o !ignore pub:cmdignorebind pub o|o !unignore pub:cmdunignore bind pub o|o !listignores listignoresproc pub:cmdignore {nick uhost handle channel text} { if {$text == ""} {return 0}  if {[regexp -nocase -- {^[-_./\\]+?([a-z0-9]+)[-_./\\]+$} [lindex [split $text] 0] a b} { set target *$b*!*@*  } else {  set target [join [lindex [split $text] 0]]   }  set reason [join [lrange [split $text] 1 end]] set host [lindex [split [getchanhost $target $chan] @] 1]        if {$reason == ""} {set ir "Requested By $nick on [join [ctime [unixtime]]]."} else {set ir "$reason Set By $nick on [join [ctime [unixtime]]]."}       if {![string match *!*@* $target] && ![onchan $target]} {        putserv "PRIVMSG $channel :invalid target; no such nickname/hostmask."         return 0        }         if {[onchan $target]} {set im "*!*@*.[join [lrange [split $host .] end-2 end] .]"} else {"set im $target"}          newignore $im $handle "$ir" 0           putserv "PRIVMSG $channel :$nick, now ignoring $im for $it minutes."            return 1}proc pub:cmdunignore {nick host handle channel text} { if {$text == ""} {return 0}  set imask [lindex [split $text] 0]   if {![isignore $imask]} {putserv "PRIVMSG $channel :invalid ignore $imask."; return 0}    if {[killignore $imask]} {     putserv "PRIVMSG $channel :$nick, no longer ingoring $imask."      return 1    } else {     putserv "PRIVMSG $channel :failed, ignore $imask must be removed manually."      return 0    }}proc listignores {nick host hand chan text} { set ilist [ignorelist]    if {![llength $ilist]} {    putserv "NOTICE $nick :I am not currently ignoring anyone." return 0    } set inum 0    foreach i $ilist { set mask [join [lindex $i 0]] set reason [join [lindex $i 1]] set begin [join [clock format [lindex $i 3] -format %D-%T]] set end [join [clock format [lindex $i 2] -format %D-%T]]        puthelp "NOTICE $nick :[incr inum]: \"$mask\" - Set at: $begin by [lindex $i end] for reason \"$reason\" - Ends at: $end"    }}

Statistics: Posted by Luminous — Fri Aug 13, 2010 10:55 am

!ignore script

2010-08-13T09:50:19-04:00

Luminous are u the best!! mate! 1 & 2 is perfect

As for question 3.. is like this: amigo_123 or amigo_can or amigo_was

_*** = anything the user wants

4. can i get a list of ignores nicks? how? public o priv..

Thank u very much!

Statistics: Posted by dani — Fri Aug 13, 2010 9:50 am

!ignore script

2010-08-03T22:09:37-04:00

work fine!!! but i need a simple functions.. and i dont know how..

1. only ops use this command
2. ignore permanent, with out $time (third possibility)

3. can ignore a nick for a part? ex. amigo_***
where * is anything.

please help me and thanks mates.

1.) the lines where it says:

Code:

bind pub - !ignore pub:cmdignorebind pub - !unignore pub:cmdunignore

change that "-" to |o or o|o if you also want to allows those with global o flag to use the script.

2.) To make the ignore permanent, remove these lines:

Code:

if {![string match {[0-9]*} $time]} {set it "15m"} else {set it "$time"}set time [lindex [split $text] 1]

and change:

Code:

newignore $im $handle "$ir" $it

Code:

newignore $im $handle "$ir" 0

and replace:

Code:

set reason [join [lrange [split $text] 2 end]]

with:

Code:

set reason [join [lrange [split $text] 1 end]]

As for question 3... I need a bit more info. it sounds to me like you want to turn nicks like amiigo_ into *amigo*!*. To do this, you'll need a string trim or regsub to trim away chars others than what you want, like:

Code:

set inick [regsub -all -- {[^a-z0-9]} $target ""]

This would remove all characters except for a-z and 0-9.

Then, you would need to change:

Code:

if {[onchan $target]} {set im "$target!*@*"} else {"set im $target"}

Code:

if {[onchan $target]} {set im "*$inick*!*@*"} else {"set im $target"}

.

I think that's what you want...

Statistics: Posted by Luminous — Tue Aug 03, 2010 10:09 pm

!ignore script

2010-06-20T10:26:54-04:00

Nice work guys !

Statistics: Posted by SIrJoKer — Sun Jun 20, 2010 10:26 am

!ignore script

2010-06-18T11:48:30-04:00

work fine!!! but i need a simple functions.. and i dont know how..

1. only ops use this command
2. ignore permanent, with out $time (third possibility)

3. can ignore a nick for a part? ex. amigo_***
where * is anything.

please help me and thanks mates.

Statistics: Posted by dani — Fri Jun 18, 2010 11:48 am

!ignore script

2007-10-16T03:37:05-04:00

Yep, its possible to i think. However, i think it might cause problems with the bot. not to mention theres alot of problems with binds not doing channel specific stuff, they do it on all the bots channel and use an enable channel setting or list. Maybe just skiping the unbind'ing of and stuff like that and using a channel option to do like +quiet and nothing can happen on the channel set +quiet. You could just add something like

Code:

setudef flag quiet

to eggdrop config file. And then in every script check that channel isn't set +quiet with

Code:

if {[channel get $channel quiet] > 0} {return 0}

or if you use MC More Tools (which am more sure of with the working thing) you can use

Code:

if {[chanflag $channel quiet]} {return 0}

# chanflag
# version:
# v3.1
# information (mc.moretools command):
# Check to see if is enabled or disabled for . The 'get'
# option for the 'channel' command, provided by eggdrop in version 1.6.11,
# does the same as this command. Because of that, this command will try
# and query 'channel' command first (is faster); if it receives an error
# then it will proceed with my code. includes custom setudef flags
# as well as the standard ones provided by eggdrop.
# dependencies (other than eggdrop provided commands):
# The 'badargs' command from mc.moretools.
# The 'unlist' command from mc.moretools.
# examples:
# chanflag #abc123 protectops => 0
# chanflag #abc123 mc.spamcheck => 1
# credit:
# returns:
# - 0 if disabled or invalid .
# - 1 if enabled.

Something along that lines would be alot easyer i think, and it would probably prevent problems with unbind'ing of things done via a script.
hope it helps.

Statistics: Posted by TCL_no_TK — Tue Oct 16, 2007 3:37 am

!ignore script

2007-10-15T11:29:58-04:00

Could tis be adapted to be like a "quiet" script..

Lets say different tcl's are being generaly abused or are not needed at the moment.

Have a !silence #chan to make the bot ignore all channel commands for all scripts in that room - automatically removed after say 30 mins, or if a room op types !unsilence #chan

I should really learn some tcl

Statistics: Posted by John_Maclain — Mon Oct 15, 2007 11:29 am

!ignore script

2007-10-12T13:05:17-04:00

Works great, thanks again

Statistics: Posted by iNFERNiS — Fri Oct 12, 2007 1:05 pm

!ignore script

2007-10-11T13:46:23-04:00

Find where is says

if {[onchan $target]} {set im "$target!*@*"} else {"set im $target"}

and change it to

Code:

if {[onchan $target]} {set im "$target!*@*"} else {set im "$target"}

. Should work now

Statistics: Posted by TCL_no_TK — Thu Oct 11, 2007 1:46 pm

!ignore script

2007-10-11T11:12:57-04:00

sweet, thanks guys

edit: works pretty good so far. Would it be possible to ignore ident + hostmask? ignoring nick alone is kind of useless since the person can just change their nick. I tried defining adresses to ignore but doesn't seem to take it.

[17:32:44] [@iNFERNiS] !ignore TheVirus!thevirus@thevir.us 5 test
[17:31] Tcl error [pub:cmdignore]: invalid command name "set im TheVirus!thevirus@thevir.us"

[17:32:57] [@iNFERNiS] !ignore thevirus@thevir.us 5 test
[17:32:58] [@ef'LSGIRL] invalid target; no such nickname/hostmask.

Statistics: Posted by iNFERNiS — Thu Oct 11, 2007 11:12 am

!ignore script

2007-10-11T08:37:36-04:00

its ok ty

Statistics: Posted by ultralord — Thu Oct 11, 2007 8:37 am

!ignore script

2007-10-11T08:17:26-04:00

Well from my point of view it should work fine, what the best you can do is, take a list of .ignores from DCC and then try to !unignore *!*@host here see if it removes or not.

Statistics: Posted by iamdeath — Thu Oct 11, 2007 8:17 am