egghelp/eggheads community

need help with lists

2013-03-10T12:58:44-04:00

Update:

Final code and works like a charm. Now i got some reading to do to understand the difference.

Code:

proc proc_msgm {nick host handle text} {    global memo    set items [split $text]    set temp [list "verify" "ident" "addhost" "pass" "info" "voice" "halfop" "invite" "key" "op" "status" "notes"]    set danger [list "die" "jump" "reset"]    set chan "#prototype"    if {[matchattr $nick n]} {        return 1    }    foreach pattern $temp {        if {[lsearch -nocase $items $pattern] >= 0} {            puthelp "PRIVMSG $chan :$nick has just messaged me, using the \002$pattern\002 command."            return 1        }    }    foreach pattern $danger {        if {[lsearch -nocase $items $pattern] >= 0} {            putserv "PRIVMSG $chan :\002WARNING!\002 User \002$nick\002 has just attempted to use the \002$pattern\002 command."            putserv "PRIVMSG $chan :Full output is: \002$text\002."            putserv "PRIVMSG $memo :send lokii Master, a user \002$nick\002 has just attempted to issue the \002$pattern\002 command on me via /msg. His full output was: \002$text\002."            return 1        }    }    puthelp "PRIVMSG $chan :$nick messaged me saying: '$text'"    return 1}

Many thanks for your help

Statistics: Posted by LoKii — Sun Mar 10, 2013 12:58 pm

need help with lists

2013-03-10T12:12:34-04:00

Sorry, made a minor mistake...
Should've tested for greater or equal to zero, not less than zero...

I'll update my previous post in a sec or two...

Yup, now it works like a charm. I will try to understand the difference between yours and mine, to make sure that in the future, my code will be more effective.

Will convert my version into yours, and show it.

Many thanks for your help everyone

Statistics: Posted by LoKii — Sun Mar 10, 2013 12:12 pm

need help with lists

2013-03-10T12:05:48-04:00

Sorry, made a minor mistake...
Should've tested for greater or equal to zero, not less than zero...

I'll update my previous post in a sec or two...

Statistics: Posted by nml375 — Sun Mar 10, 2013 12:05 pm

need help with lists

2013-03-10T12:07:49-04:00

Your solution didnt quite work for me.

No matter what i write in a /msg bot , the result is ALWAYS:

LoKii has just messaged me, using the verify command.

I dont really understand why yet, but I'm sure I will figure it out once i understand what you meant with using the foreach-loop once.

In the mean time, my code is:

Code:

proc proc_msgm {nick uhost hand arg} {    global memo    set chan "#prototype"    set line [string trim $arg]    set items [split [string tolower $line]]    set temp {        "verify"        "ident"        "addhost"        "pass"        "info"        "voice"        "halfop"        "invite"        "key"        "op"        "status"        "notes"    }    set danger {        "die"        "jump"        "reset"    }    if {[matchattr $nick n]} {        return 1    }    foreach pattern $temp {        foreach match [lsearch -all -inline $items $pattern] {            putserv "PRIVMSG $chan :$nick has just messaged me, using the \002$pattern\002 command."            return 1                 }    }    foreach pattern $danger {        foreach match [lsearch -all -inline $items $pattern] {            putserv "PRIVMSG $chan :\002WARNING!\002 User \002$nick\002 has just attempted to use the \002$pattern\002 command."            putserv "PRIVMSG $chan :Full output is: \002$arg\002."            putserv "PRIVMSG $memo :send lokii Master, a user \002$nick\002 has just attempted to issue the \002$pattern\002 command on me via /msg. His full output was: \002$arg\002."            return 1        }    }    puthelp "PRIVMSG $chan :$nick messaged me saying: '$line'"    return 1}

Which works great, except I'm sure that your method is less resource-hungry.

BTW, i got my code based on a code that you have written in: http://forum.egghelp.org/viewtopic.php? ... ight=lists

Statistics: Posted by LoKii — Sun Mar 10, 2013 12:03 pm

need help with lists

2013-03-10T11:42:58-04:00

@ nml375

Simple, I dont know either. Im a total n00b trying to get my scripts to work the way I imagine.

I will try out your suggestion and let you know in a bit

If I showed you my main script which is around 3000 lines by now, you would prolly shoot me for raping TCL.

Cheers for your help.

Statistics: Posted by LoKii — Sun Mar 10, 2013 11:42 am

need help with lists

2013-03-10T12:06:45-04:00

LoKii,
I'm not sure why you're using a second foreach-loop with lsearch in inline mode as the source. Just test the result from lsearch; if it's 0 or greater, there was a match, while -1 indicates there was no match.
My recommendation is something along these lines:

Code:

proc proc_msgm {nick host handle text} {  set items [split $text]  set temp [list "verify" "ident" "addhost" "pass"]  set chan "#prototype"  foreach pattern $temp {    if {[lsearch -nocase $items $pattern] >= 0} {      puthelp "PRIVMSG $chan :$nick has just messaged me, using the \002$pattern\002 command."      return 1    }  }  puthelp "PRIVMSG $chan :$nick messaged me saying: '$text'"  return 1}

Statistics: Posted by nml375 — Sun Mar 10, 2013 11:35 am

need help with lists

2013-03-10T11:01:48-04:00

update:

I got it to work this way:

Code:

proc proc_msgm {nick uhost hand arg} {    set chan "#prototype"    set line [string trim $arg]    set items [split [string tolower $line]]    set temp {        "verify"        "ident"        "addhost"        "pass"    }    foreach pattern $temp {        foreach match [lsearch -all -inline $items $pattern] {            putserv "PRIVMSG $chan :$nick has just messaged me, using the \002$pattern\002 command."           return 1                 }    }    puthelp "PRIVMSG $chan :$nick messaged me saying: '$line'"    return 1}

Using the lsearch.

Cheers everyone and sorry again for hijacking this thread

Statistics: Posted by LoKii — Sun Mar 10, 2013 11:01 am

need help with lists

2013-03-10T10:37:59-04:00

Yes, i also discovered that lsearch is the way to go.

What i am trying to accomplish is, i took a script called: forward.tcl written by r0gUe.

His script basicly just relays any msg to the bot to a specified channel.

What i want to do, is to edit it, so that certain messages are not relayed with the same output, due to security, such as pass/ident/auth/addhost etc....

What i have so far is:

Code:

bind msgm - "*" proc_msgmproc proc_msgm {nick uhost hand arg} {    set chan "#prototype"    set line [string trim $arg]    set temp {        "verify"        "ident"        "addhost"        "pass"    }    foreach a $temp [split $arg]{        if {[string match -nocase $a $arg]} {            putserv "PRIVMSG $chan :$nick has used the $a command"                    }    }    puthelp "PRIVMSG $chan :$nick messaged me saying: '$line'"    return 1}

So I am not too worried about large rooms and such, since its only in the rare cases that someone pms the bot. I just want to make sure that no passwords though go through, which is why i am attempting to change the output in the 'if' statement on certain words.

Cheers

Statistics: Posted by LoKii — Sun Mar 10, 2013 10:37 am

need help with lists

2013-03-10T10:21:16-04:00

I am trying more and more to use lsearch (i never used that in the past) so i have to try use it now in the present yet as i used foreach alot it would be a little weird for me at start but ill try use it.

Statistics: Posted by Madalin — Sun Mar 10, 2013 10:21 am

need help with lists

2013-03-10T10:11:52-04:00

Madalin:
Instead of using a foreach loop which is slow, why not just use the standard tcl-command lsearch?

LoKii:
In that case I would use a loop on each word said by the user and do a lsearch on the list. Word of warning though, if your channel is very crowded and people are chatty this will be very time-consuming on the bot. I have not been writing tcl-code for years and have forgotten alot, so might be a much more effecient way of doing it if you search around

Statistics: Posted by Papillon — Sun Mar 10, 2013 10:11 am

need help with lists

2013-03-10T08:49:01-04:00

forgive me for hijacking this thread, a small question regarding it.

This code is based on the first word said in the sentence, but if i want to capture any word from the sentence which is in the temp(words) list, how would i go about doing it, if the word is NOT the first word?

Cheers.

Statistics: Posted by LoKii — Sun Mar 10, 2013 8:49 am

need help with lists

2013-02-28T16:22:17-04:00

No problem, glad i could help

Statistics: Posted by Madalin — Thu Feb 28, 2013 4:22 pm

need help with lists

2013-02-28T16:19:37-04:00

awesome, it works. thank you.
i was going completely different approach to this problem before but this solution works just perfect. Much appreciated

Statistics: Posted by alkoleht — Thu Feb 28, 2013 4:19 pm

need help with lists

2013-02-28T16:09:50-04:00

Try this code and tell if this is what you wanted

Code:

bind MSGM - * check:msgmset temp(chan) "#channel"set temp(words) {"word1""word2"}proc check:msgm {nick uhost hand arg} {global tempforeach a $temp(words) {if {[string match -nocase $a [lindex [split $arg] 0]]} {putserv "PRIVMSG $temp(chan) :$nick said \002[lindex [split $arg] 0]\002"return} else {putserv "PRIVMSG $temp(chan) :$nick said: $arg"return}}}

Statistics: Posted by Madalin — Thu Feb 28, 2013 4:09 pm

need help with lists

2013-02-28T15:18:19-04:00

Hi. I am pretty noob when it comes to TCL but i am trying to learn.
I am trying to create a script that will take user msg to bot, does some matching and relays it to chan.
here is how it looks in reality:

1. let's say i have a list of words:

Code:

set word {flowerbeehouse}

2. user MSG-s to bot, ether just one word or more text, doesnt matter.
example:

Code:

/msg bot house is tv show

3. script then takes the first word of imput and matches that to $word . also no matter if the input is CAPS or lower case or MiXeD
4. if first word matches then say in chan:

Code:

 $nick sayd $word

if the first word does not match $word list then it will say the full imput into the chan.

so example:

Code:

/msg  house is tv show  says word [b]house[/b]/msg  there is a house in tv right now  says: there is a house in tv right now

i know it may sound strange but that is something i want to create.
any help with this would be appreciated
Thank you

Statistics: Posted by alkoleht — Thu Feb 28, 2013 3:18 pm