egghelp/eggheads community

Re: can i ask a question ?

2024-10-20T18:47:27-04:00

thank you

Statistics: Posted by pektek — Sun Oct 20, 2024 6:47 pm

Re: can i ask a question ?

2024-09-24T02:45:36-04:00

If, for whatever reason, you want to generate a list containing elements from 1 to 50 don't use the stuff you've used in set number { ... }, use something like:

Code:

proc BuildRange {start end} {    set result {}    for {set i $start} {$i <= $end} {incr i} {        lappend result $i    }    return $result}

instead to generate the list of numbers for you. Basic usage would be:

Code:

set numbers [BuildRange 1 50]

for example with this result:

Code:

% set range [BuildRange 1 50]1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

Anyway, you don't need to generate a list of numbers just to pick a random one from the list in the end, so instead go with something like:

Code:

proc RandomNumber {min max} {    return [expr {int(rand() * ($max - $min + 1)) + $min}]}

that would pick a random number in the range of min and max, for example:

Code:

% RandomNumber 1 5026

The main issue in your code was that the random picked number wasn't stored anywhere, thus when the function terminated the number was erased from memory as well. Anyway, without further due test this out:

Code:

namespace eval GuessNumber {    bind pub - !randomnumber [namespace current]::StartGame    bind pub - !guess [namespace current]::Guess    proc StartGame {nick host hand chan text} {        variable number        set number [RandomNumber 1 50]        puthelp "PRIVMSG $chan :\00307\002\037(\037\002\00304$nick has started The Number Guessing Game.\00307\037\002)"        puthelp "PRIVMSG $chan :\00307\002\037(\037\002\00304The Number Range is From:\002 1 \002To:\002 50 \002\00307\037\002)"        puthelp "PRIVMSG $chan :\00307\002\037(\037\002\00304To Guess What Number Type: !guess \002\00307\037\002)"    }    proc Guess {nick uhost hand chan text} {        namespace upvar [namespace current] number no        if {[scan $text {%d} value] != 1} {            puthelp "PRIVMSG $chan :Sorry, that's not a valid number."            return        }        CheckNumber $chan $nick $value    }    proc RandomNumber {min max} {        return [expr {int(rand() * ($max - $min + 1)) + $min}]    }    proc CheckNumber {chan nick value} {        variable number        if {![info exists number] } {            puthelp "PRIVMSG $chan :Sorry, there's nothing to guess cos game hasn't been started yet."            return        }        if {$value == $number} {            puthelp "PRIVMSG $chan :Congragulations, $nick, You Have Won!"            unset number        } elseif {$value > $number} {            puthelp "PRIVMSG $chan :This Is Bigger than the correct Number"        } else {            puthelp "PRIVMSG $chan :This is Smaller than the correct Number"        }    }}

Statistics: Posted by caesar — Tue Sep 24, 2024 2:45 am

Re: can i ask a question ?

2024-09-23T07:58:35-04:00

Lol, I didn't see there was a second bind/proc.
And willyw is right: script script

proc msg_guess { nick chan host handle text } {   set unumber [join [lindex [split $text] 0]]...

script But your script can't work as number is a list, not an element of the list.

Statistics: Posted by CrazyCat — Mon Sep 23, 2024 7:58 am

Re: can i ask a question ?

2024-09-23T07:33:32-04:00

...
proc msg_guess { nick chan host handle text number } {

...
[/code]

Compared to: https://docs.eggheads.org/using/tcl-commands.html
( text search down to find: bind pub )
where it says:

4. PUB

bind pub

procname

Aren't the parameters labeled out of order?

I hope this helps.

Statistics: Posted by willyw — Mon Sep 23, 2024 7:33 am

Re: can i ask a question ?

2024-09-23T01:51:58-04:00

Remove the quotes: script script

bind pub -|- number msg_number

script

Statistics: Posted by CrazyCat — Mon Sep 23, 2024 1:51 am

can i ask a question ?

2024-09-22T20:01:11-04:00

it sets it, and does most of it but it doesnt reply to the number, any ideas?

Thanks for your help guys ?

Code:

bind pub "-|-" number msg_number proc msg_number { nick host hand chan text } {putquick "PRIVMSG $chan :\00307\002\037(\037\002\00304$nick has started The Number Guessing Game.\00307\037\002)"putquick "PRIVMSG $chan :\00307\002\037(\037\002\00304The Number Range is From:\002 1 \002To:\002 50 \002\00307\037\002)"putquick "PRIVMSG $chan :\00307\002\037(\037\002\00304To Guess What Number Type: `guess (Number)\002\00307\037\002)"}set number {"\"1\"""\"2\"""\"3\"""\"4\"""\"5\"""\"6\"""\"7\"""\"8\"""\"9\"""\"10\"""\"11\"""\"12\"""\"13\"""\"14\"""\"15\"""\"16\"""\"17\"""\"18\"""\"19\"""\"20\"""\"21\"""\"22\"""\"23\"""\"24\"""\"25\"""\"26\"""\"27\"""\"28\"""\"29\"""\"30\"""\"31\"""\"32\"""\"33\"""\"34\"""\"35\"""\"36\"""\"37\"""\"38\"""\"39\"""\"40\"""\"41\"""\"42\"""\"43\"""\"44\"""\"45\"""\"46\"""\"47\"""\"48\"""\"49\"""\"50\""}bind pub "-|-" guess msg_guessproc msg_guess { nick chan host handle text number } {if {$number = $text} { putquick "PRIVMSG $chan :Congragulations, $nick, You Have Won!" }if {$number != $text} {if {$number > $text} { putquick "PRIVMSG $chan :This Is Bigger than the correct Number" }if {$number < $text} { putquick "PRIVMSG $chan :This is Smaller than the correct Number" }} else {return}}

Statistics: Posted by pektek — Sun Sep 22, 2024 8:01 pm