egghelp/eggheads community

+e Execption TCL?

2015-04-09T01:29:18-04:00

Code:

bind pub - !except push:exceptproc push:except {nick uhost hand chan text} {if {![botisop $chan]} returnif {[scan $text {%s%[^!]!%[^@]@%s} mode nik user host] != 4 || $mode ne "+e"} {puthelp "PRIVMSG $chan :Syntax: !except +e *!*test@test.com"return} else {pushmode $chan +e "*!*@$host"}}

Mode and host-mask check in place. Give this a try. Tested it on Undernet but there's no exceptions list so don't know if it pushes the exception as should.

Statistics: Posted by caesar — Thu Apr 09, 2015 1:29 am

+e Execption TCL?

2015-04-08T21:50:55-04:00

...
its should be like:
* uhud sets mode: +e *!*test@test.com

See tcl-commands.doc at the link I've already posted in this thread.

Text search tcl-commands.doc for:
maskhost
and read that section.

Then examine this line in the script:

Code:

putserv "mode $chan +e [maskhost [lindex [split $text] 1] 2]"

and experiment with changing the type number that of the maskhost command.
Are you wanting number 3 ?

I hope this helps.

Statistics: Posted by willyw — Wed Apr 08, 2015 9:50 pm

+e Execption TCL?

2015-04-08T21:47:18-04:00

whew...
Thank you, Spike.
I thought I was going cross-eyed there for a moment. Glad to know that I did read it correctly.

Statistics: Posted by willyw — Wed Apr 08, 2015 9:47 pm

+e Execption TCL?

2015-04-08T21:09:04-04:00

Yes, but it exactly what you asked for:)

Statistics: Posted by SpiKe^^ — Wed Apr 08, 2015 9:09 pm

+e Execption TCL?

2015-04-08T19:26:04-04:00

its work but its not the set ident:

(09:02:26) !mode +e *!*test@test.com
(09:02:26) * uhud sets mode: +e *!*@test.com

its should be like:
* uhud sets mode: +e *!*test@test.com

Statistics: Posted by Smartiees — Wed Apr 08, 2015 7:26 pm

Re: +e Execption TCL?

2015-03-28T22:46:11-04:00

Code:

# March 28, 2015# http://forum.egghelp.org/viewtopic.php?t=19904bind pub - "!mode" do_mode_eproc do_mode_e {nick uhost handle chan text} {#Check to see if user sent just !mode by itself.        if {[llength [split $text]] == 0} {                putserv "privmsg $chan :Syntax: !mode +e *!*test@test.com"                return 0           }#Check to see if user used anything other than +e        if {[lindex [split $text] 0] ne "+e" } {                putserv "privmsg $chan :Syntax: !mode +e *!*test@test.com"                return 0           }#Check to see if user sent just !mode +e        if {[lindex [split $text] 1] == ""} {                putserv "privmsg $chan :Syntax: !mode +e *!*test@test.com"                return 0            }        putserv "mode $chan +e [maskhost [lindex [split $text] 1] 2]"}

References:
http://www.eggheads.org/support/egghtml ... mands.html
http://www.tcl.tk/man/tcl8.5/TclCmd/contents.htm

First, load the script and test it. I tested only briefly, and it appeared to do what you requested.

Next, take a few minutes and click the links that I noted for you - for references.
This is a VERY simple script, and a good one for someone that wants to begin to grasp TCL for Eggdrop to study and understand.

There are probably other ideas of how to go about doing this. Some might be shorter. This was written to be easy to follow.

I hope this helps.

Statistics: Posted by willyw — Sat Mar 28, 2015 10:46 pm

+e Execption TCL?

2015-03-28T18:17:30-04:00

is there any tcl available which about like if you type:

!mode +e *!*test@test.com

then bot set it that IP as like:

nomnom sets mode: +e *!*@test.com

is there available or anyone can make that code please?

Statistics: Posted by Smartiees — Sat Mar 28, 2015 6:17 pm