egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2013-08-01T08:17:30-04:00 https://forum.eggheads.org/app.php/feed/topic/19494 2013-08-01T08:17:30-04:00 2013-08-01T08:17:30-04:00 https://forum.eggheads.org/viewtopic.php?p=101941#p101941 <![CDATA[only one time bet]]>
Maybe someone will have time to test it with you.

Statistics: Posted by willyw — Thu Aug 01, 2013 8:17 am

]]> 2013-08-01T06:02:53-04:00 2013-08-01T06:02:53-04:00 https://forum.eggheads.org/viewtopic.php?p=101940#p101940 <![CDATA[Re: only one time bet]]> Statistics: Posted by gembels — Thu Aug 01, 2013 6:02 am

]]> 2013-07-31T20:40:13-04:00 2013-07-31T20:40:13-04:00 https://forum.eggheads.org/viewtopic.php?p=101936#p101936 <![CDATA[Re: only one time bet]]>
lsearch is meant for use on lists.
Ref: http://www.tcl.tk/man/tcl8.5/TclCmd/lsearch.htm

If given something else, you may get unexpected and undesirable results.
Ref: http://www.peterre.info/characters.html
Be sure (for now) to read the part about converting between lists and strings.
There is even a snippet of script there, and below it, it says,
"The script choked on nicks that contained [ or {. " :)

Bookmark that - it is worth having.


A guess - and that is all this is - would be:

Code: 

set firstone [lsearch [split $tgwrngansw] $namae]

I hope this helps.

Statistics: Posted by willyw — Wed Jul 31, 2013 8:40 pm

]]> 2013-07-31T20:20:40-04:00 2013-07-31T20:20:40-04:00 https://forum.eggheads.org/viewtopic.php?p=101934#p101934 <![CDATA[only one time bet]]>

Code: 

                                        set namae [tgstripcodesdx [strlwr [string trim $nick]]]                                        set firstone [lsearch $tgwrngansw $namae]                                        if {$firstone ==-1} {lappend tgwrngansw $namae}                                        if {$firstone !=-1} {                                        tggamemsg2 "$nick, only 1 time bet"                                        return                                        }tggamemsg2 "$nick, bet accepted: $text"

Code: 

proc tgstripcodesdx {text} {        regsub -all -- "(\[0-9\]\[0-9\]?(,\[0-9\]\[0-9\]?)?)?" $text "" text        regsub -all -- "\t" $text " " text        set text "[string map -nocase [list "\[" "" "\]" "" "~" ""] $text]"        return $text}
In my ircd server we allow to have nick using symbol like []~-_ of course also A-Za-z0-9

the problem is, if nick like "[]Name" or "[the]master" without quote, has always can pass the strict .. can bet 10 times.. the codes should only allow 1 time betting..

another nick like symbol ~-_ and of course also A-Za-z0-9 have no problem with it, everything good (only 1 time bet)

thanks in advance

Statistics: Posted by gembels — Wed Jul 31, 2013 8:20 pm

]]>