egghelp/eggheads community

Is it possible?

2004-07-08T03:11:54-04:00

Try adding putlog and the end of each line in your procedure
which you want to check where the error is.
Like "putlog 1", etc etc. after every line in the procedure.

Code:

set bla bla "varname"; putlog 0if {(...............)} {; putlog 1elseif {(...........)} {; putlog 2else {(...............)} {; putlog "checking"

Then try to execute the command, and while doing so
check in dcc partyline with the bot, upto where the putlogs
have been displayed. The line which doesnt have it being
displayed might be the one which needs to be corrected, eventually
if there is an error detected in that line, the script will not run
further and the putlogs in the next few lines after it will also not
be displayed.

This is a good way of detecting faulty errors, which aren't
shown as Tcl error [proc:name] in partyline.

Statistics: Posted by awyeah — Thu Jul 08, 2004 3:11 am

Is it possible?

2004-07-08T01:28:23-04:00

Well i had made one, but for some reason it didnt work properly, here is the entire script

Code:

proc addop:q:reaction {nick host hand text [censored]} {  set chan $::addopchan  set from "$nick!$host"  if {[string match -nocase "Q!TheQBot@CServe.quakenet.org" $from]} {    if {[string match -nocase "You are not known or banned on this channel and can't dump the userlist!" $text]} {      putserv "PRIVMSG $chan :I have no access to Q on this channel."      unbind notc - * addop:q:reaction      return    }    if {[string match -nocase "You have to be master to change someone's flags!" $text]}{      putserv "PRIVMSG $:addopchan :I do not have the master flag for $chan"      unbind notc - * addop:q:reaction      return    }    if {[string match -nocase "You have to be owner to change a master's flags!" $text]}{      putserv "PRIVMSG $chan :I do not have the owner flag for $::addopchan"      unbind notc - * addop:q:reaction      return    }      unbind notc - * addop:q:reaction}}proc addop:l:reaction {nick host hand text [censored]} {  set chan $::addopchan2  set from "$nick!$host"  if {[string match -nocase "L" $from]} {    if {[string match -nocase "Sorry, you do not have permission to view/change user flags on" $text]} {      putserv "PRIVMSG $chan :I have no access to L on this channel."      unbind notc - * addop:l:reaction      return    }    if {[string match -nocase "You're not the owner or a master of" $text]}{      putserv "PRIVMSG $chan :I do not have the master flag for $chan"      unbind notc - * addop:l:reaction      return    }    if {[string match -nocase "Only owners can change a master's flags." $text]}{      putserv "PRIVMSG $chan :I do not have the owner flag for $::addopchan"      unbind notc - * addop:l:reaction      return    }      unbind notc - * addop:l:reaction}}bind pub o|o !addop pub:addop:qproc pub:addop:q {nick uhost hand chan text} { if {[string length $text] > 0} { set tnick [lindex $text 0] }if {[onchan "Q" $chan]} { set ::addopchan "$chan"bind notc - * addop:q:reactionputquick "NOTICE $nick :Note: I need atleast +aom(n) flags for this command to work."putquick "PRIVMSG Q :chanlev $chan $text"putquick "NOTICE $nick :Done."putquick "MODE $chan +o $tnick"putquick "NOTICE $tnick :$text is/are your new flag(s) in Q."} elseif {[onchan "L" $chan]} { set ::addopchan2 "$chan"bind notc - * addop:l:reactionputquick "NOTICE $nick :Note: I need atleast +aom(n) flags for this command to work."putquick "PRIVMSG L :chanlev $chan $text"putquick "NOTICE $nick :Done."putquick "MODE $chan +o $tnick"putquick "NOTICE $tnick :$text is/are your new flag(s) in L"}}bind pub o|o !rop pub:rop:qproc pub:rop:q {nick uhost hand chan text} { if {[string length $text] > 0} { set tnick [lindex $text 0] }if {[onchan "Q" $chan]} { set ::addopchan "$chan"bind notc - * addop:q:reactionputquick "NOTICE $nick :Note: I need atleast +aom(n) flags for this command to work."putquick "PRIVMSG Q :chanlev $chan $text"putquick "NOTICE $nick :Done."putquick "MODE $chan -o $tnick"putquick "NOTICE $tnick :You have been removed from Q by $nick."} elseif {[onchan "L" $chan]} { set ::addopchan2 "$chan"bind notc - * addop:l:reactionputquick "NOTICE $nick :Note: I need atleast +aom(n) flags for this command to work."putquick "PRIVMSG L :chanlev $chan $text"putquick "NOTICE $nick :Done."putquick "MODE $chan -o $tnick"putquick "NOTICE $tnick :You have been removed from L by $nick."}}putlog "add Q\L flags script by MeTroiD loaded."

I made this 2 days ago but the L part never worked

Statistics: Posted by metroid — Thu Jul 08, 2004 1:28 am

Is it possible?

2004-07-07T21:54:39-04:00

You didnt read my first post clearly.
(You need a new bind and a new procedure for the script!)

Statistics: Posted by awyeah — Wed Jul 07, 2004 9:54 pm

Is it possible?

2004-07-07T15:56:10-04:00

But anyhow, the script doesnt seem to work -_-

This is the addop script

Code:

bind pub o|o !addop pub:addop:qproc pub:addop:q {nick uhost hand chan text} { if {[string length $text] > 0} { set tnick [lindex $text 0] }if {[onchan "Q" $chan]} {if {[string match -nocase "* master *" $text]} {return}putquick "NOTICE $nick :Note: I need atleast +aom(n) flags for this command to work."putquick "PRIVMSG Q :chanlev $chan $text"putquick "NOTICE $nick :Done."putquick "MODE $chan +o $tnick"putquick "NOTICE $tnick :$text is/are your new flag(s) in Q."} elseif {[onchan "L" $chan]} { if {[string match -nocase "* You're not the owner or a master of *" $text]} {return}putquick "NOTICE $nick :Note: I need atleast +aom(n) flags for this command to work."putquick "PRIVMSG L :chanlev $chan $text"putquick "NOTICE $nick :Done."putquick "MODE $chan +o $tnick"putquick "NOTICE $tnick :$text is/are your new flag(s) in L"}}

It just ignores the string thing :\

Statistics: Posted by metroid — Wed Jul 07, 2004 3:56 pm

Is it possible?

2004-07-07T14:39:44-04:00

Not? Damnit, im on the wrong website again

Statistics: Posted by metroid — Wed Jul 07, 2004 2:39 pm

Is it possible?

2004-07-07T13:02:58-04:00

if {([string match -nocase "* master *" $text])) ( return )
Wtf, this ain't mirc scripting!

Code:

if {[string match -nocase "* master *" $text]} {return}

Statistics: Posted by dollar — Wed Jul 07, 2004 1:02 pm

Is it possible?

2004-07-07T09:39:39-04:00

Code:

[15:38] Tcl error [pub:rop:q]: syntax error in expression "([string match -nocase "* master *" $text])) ( return )[15:38:27]  putq...": extra tokens at end of expression

Thats the error i get :E

Statistics: Posted by metroid — Wed Jul 07, 2004 9:39 am

Is it possible?

2004-07-07T09:34:14-04:00

Code:

bind pub o|o !addop pub:addop:qproc pub:addop:q {nick uhost hand chan text} { if {[string length $text] > 0} { set tnick [lindex $text 0] }if {[onchan "Q" $chan]} {if {([string match -nocase "* master *" $text])) ( return )putquick "NOTICE $nick :Note: I need atleast +aom(n) flags for this command to work."putquick "PRIVMSG Q :chanlev $chan $text"putquick "NOTICE $nick :Done."putquick "MODE $chan +o $tnick"putquick "NOTICE $tnick :$text is/are your new flag(s) in Q."} elseif {[onchan "L" $chan]} { if {([string match -nocase "* master *" $text])) ( return )putquick "NOTICE $nick :Note: I need atleast +aom(n) flags for this command to work."putquick "PRIVMSG L :chanlev $chan $text"putquick "NOTICE $nick :Done."putquick "MODE $chan +o $tnick"putquick "NOTICE $tnick :$text is/are your new flag(s) in L"}}

This should check if it recieves a reply first right? And if it does get a reply with the word Master in it, It should just stop

Statistics: Posted by metroid — Wed Jul 07, 2004 9:34 am

Is it possible?

2004-07-07T09:30:48-04:00

I'll give it a try ( btw i made a nice proc etc but it didnt work properly )

Statistics: Posted by metroid — Wed Jul 07, 2004 9:30 am

Is it possible?

2004-07-07T04:08:45-04:00

You can use:

Code:

EXAMPLE([string match -nocase *pattern here* text-to-match])

It will be something like:

Code:

if {([string match -nocase "* has * access to *" $text])} {

Where the matching procedure word is between
the quotation marks " and ".

Replace the matching pattern with your services reply.

Always remember this:
* = matches a single word
? = matches a single character

Statistics: Posted by awyeah — Wed Jul 07, 2004 4:08 am

Is it possible?

2004-07-07T02:25:43-04:00

nvm this post, i've given up on the string match stuff

Statistics: Posted by metroid — Wed Jul 07, 2004 2:25 am

Is it possible?

2004-07-07T01:24:13-04:00

Thnx, ill have a go at it

Statistics: Posted by metroid — Wed Jul 07, 2004 1:24 am

Is it possible?

2004-07-06T21:40:24-04:00

For the thing which you are trying to say, and if I understand correctly.

You want the bot to execute commands of a network services, and if the service denies and says you do not have access, it should show it on the channel.

You can bind a trigger whether your networks services does a msg, or notice to a bind of a procedure match certain texts with wildcards of having no access with your services nick, and then return 0 or privmsg $chan or whatever.

There is no way you can trigger pub with bind msg or notice, you will need a seperate procedure.

Like on DALnet if you use ChanServ WHY <#channel> gives results:
if "* has * access *" (awyeah has access to)
if "* has NO access *" (awyeah has NO access to)
(You can use this type of string matching with wildcards)

Also you will need several conditions, like only if the $nick is your services
nick, also maybe match the user@host and botisop $chan etc.

Statistics: Posted by awyeah — Tue Jul 06, 2004 9:40 pm

Is it possible?

2004-07-06T15:47:28-04:00

I have another odd question, I made this script but what i was wondering was if it could pick up lines during the proc. The script i made is here :

Code:

bind pub o|o !addop pub:addop:qproc pub:addop:q {nick uhost hand chan text} { if {[string length $text] > 0} { set tnick [lindex $text 0] }if {[onchan "Q" $chan]} { putquick "NOTICE $nick :Note: I need atleast the +aom(n) flags for this command to work."putquick "PRIVMSG Q :chanlev $chan $text"putquick "NOTICE $nick :Done."putquick "MODE $chan +o $tnick"putquick "NOTICE $tnick :$text is/are your new flag(s) in Q."} elseif {[onchan "L" $chan]} { putquick "NOTICE $nick :Note: I need atleast the +aom(n) flags for this command to work."putquick "PRIVMSG L :chanlev $chan $text"putquick "NOTICE $nick :Done."putquick "MODE $chan +o $tnick"putquick "NOTICE $tnick :$text is/are your new flag(s) in L"}}bind pub o|o !rop pub:rop:qproc pub:rop:q {nick uhost hand chan text} { if {[string length $text] > 0} { set tnick [lindex $text 0] }if {[onchan "Q" $chan]} { putquick "NOTICE $nick :Note: I need atleast the +aom(n) flags for this command to work."putquick "PRIVMSG Q :chanlev $chan $text"putquick "NOTICE $nick :Done."putquick "MODE $chan -o $tnick"putquick "NOTICE $tnick :You have been removed from Q by $nick."} elseif {[onchan "L" $chan]} { putquick "NOTICE $nick :Note: I need atleast the +aom(n) flags for this command to work."putquick "PRIVMSG L :chanlev $chan $text"putquick "NOTICE $nick :Done."putquick "MODE $chan -o $tnick"putquick "NOTICE $tnick :You have been removed from L by $nick."}}putlog "add Q\L flags script by \002MeTroiD\002 loaded."

What I would like it to pick up is, if this command is used but the bot has no access in the service bot Q/L which tells you "You are not known or banned on this channel and can't dump the userlist!" And L tells you "Sorry, you do not have permission to view/change user flags on "

If you don't have access, What i was wondering is if it possible for the bot to look for these commands when either one of these commands are used. Cos if it detects one of the lines it should say in the channel that he has no access to the service bot on that channel. But i have no clue how or if its possible for the bot to look for either one of these lines.

-Edit : The script works fine btw, i was just wondering if it was possible

Statistics: Posted by metroid — Tue Jul 06, 2004 3:47 pm

Is it possible?

2004-07-06T10:28:53-04:00

An alternative to a lot of if's and else's is switch. Doing strikelight's tests the if's seem to be a bit faster than the switch, but switch offers a better *look* than a bunch of if's and elses. If you want a lil bit more speed but no *look* then stick to if's. The *difference* betwen them has been discussed here. Scroll a bit down and read strikelight's post.

Statistics: Posted by caesar — Tue Jul 06, 2004 10:28 am