egghelp/eggheads community

adding bind join to script

2009-01-15T02:53:17-04:00

Thanks,

How do I make a join bind for this one
I tried code from post #2 in this thread by speechles but I don't get what text this code below is asking for...

I also put in....

bind join - * tgstart

but it says: Tcl error [tgstart]: wrong # args: should be "tgstart nick host hand chan text"

Code:

################################################################################starts the game if it isn't running.proc tgstart {nick host hand chan text} {global tgplaying tgstreak tgchan tgerrremindtime tgerrremindtimer tgmissed tgchoosecmd tgcheatif {[strlwr $tgchan]==[strlwr $chan]} {if {$tgplaying==0} {if {$tgcheat != "ON"} {set tgcheat "OFF"}tggamemsg "Trivia Game Started."tgnextqset tgplaying 1set tgstreak 0set tgmissed 0set tgerrremindtimer [timer $tgerrremindtime tgerrremind]}}}

Statistics: Posted by cache — Thu Jan 15, 2009 2:53 am

adding bind join to script

2009-01-12T21:45:07-04:00

Have it way you showed me but get error when I try to start
Code:
Tcl error [pub_hangmanstart]: can't read "::restarthangman(nick)": no such variable

HAW, sorry cache.. that was me being a dumbass. Setting isn't allowed to the value, and setting to the name doesn't require the $. This was my mistake. ;/

Code:

set $::restarthangman(nick) $nickset $::restarthangman(uhost) $uhostset $::restarthangman(hand) $handset $::restarthangman(chan) $chan

Simply remove those $ off the ::'s and everything will work as it should have to begin with, my bad..

Code:

set ::restarthangman(nick) $nickset ::restarthangman(uhost) $uhostset ::restarthangman(hand) $handset ::restarthangman(chan) $chan

Statistics: Posted by speechles — Mon Jan 12, 2009 9:45 pm

adding bind join to script

2009-01-11T19:15:38-04:00

Have it way you showed me but get error when I try to start

Code:

Tcl error [pub_hangmanstart]: can't read "::restarthangman(nick)": no such variable

Statistics: Posted by cache — Sun Jan 11, 2009 7:15 pm

adding bind join to script

2009-01-11T19:01:02-04:00

Use the code I gave above, which has the proper join bound to the join proc and pub to pub, then simply use this proc in place of the one you already have.

Code:

proc hangman_abort {tried here} {global hangman tried hereif {$hangman(dtimer) != ""} {killutimer $hangman(dtimer)}set chan $hangman(chan)putquick "PRIVMSG $chan :The hangman game has ended. Next game in 15 seconds.."putquick "PRIVMSG $chan :Puzzle $hangman(puzzle)"set hangman(trys) 0hangman_saveutimer 15 [list join_hangmanstart $::restarthangman(nick) $::restarthangman(uhost) $::restarthangman(hand) $::restarthangman(chan)]}

Statistics: Posted by speechles — Sun Jan 11, 2009 7:01 pm

adding bind join to script

2009-01-11T18:57:57-04:00

lol sorry trying to understand what part to rename, i just crahed

Statistics: Posted by cache — Sun Jan 11, 2009 6:57 pm

adding bind join to script

2009-01-11T18:49:46-04:00

Thank you..

Just wonder if I did this right? I get error can't read restarthangman(chan) no such var...
Code:
set $::restarthangman(chan) $nick set $::restarthangman(nick) $uhost set $::restarthangman(nick) $hand set $::restarthangman(nick) $chan

Code:

set $::restarthangman(nick) $nickset $::restarthangman(uhost) $uhostset $::restarthangman(hand) $handset $::restarthangman(chan) $chan

They need to be named like this and then it will work.

Also, recheck your script. You will have an error again regarding arguments. You've somehow removed the join proc and are binding it again to the pub proc. You can't do this the arguments don't match. This is why you make a stub procedure for join, to add the extra argument rest and then invoke the normal pub procedure.

Code:

bind pub -|- [cmdchar]hangmanstart pub_hangmanstartbind join -|- * join_hangmanstartproc join_hangmanstart {nick uhost hand chan} {  pub_hangmanstart $nick $uhost $hand $chan "1"}proc pub_hangmanstart {nick uhost hand chan rest} {global hangmanset $::restarthangman(nick) $nickset $::restarthangman(uhost) $uhostset $::restarthangman(hand) $handset $::restarthangman(chan) $chan..rest of script continues...

Then use this timer when the game ends to restart it.

Code:

utimer 15 [list join_hangmanstart $::restarthangman(nick) $::restarthangman(uhost) $::restarthangman(hand) $::restarthangman(chan)]

Statistics: Posted by speechles — Sun Jan 11, 2009 6:49 pm

adding bind join to script

2009-01-11T18:48:08-04:00

Thank you..

Just wonder if I did this right? I get error can't read restarthangman(chan) no such var...

Code:

bind pub -|- [cmdchar]hangmanstart pub_hangmanstart bind join -|- * pub_hangmanstart proc pub_hangmanstart {nick uhost hand chan rest} { set $::restarthangman(chan) $nick set $::restarthangman(nick) $uhost set $::restarthangman(nick) $hand set $::restarthangman(nick) $changlobal hangman  if {$hangman(trys) > 0} {putserv "NOTICE $nick :Hangman game allready in progress on $hangman(chan)."                           return 0}  if {($rest > 0) && ($rest <4)} {set hangman(level) $rest}  if {![file exists $hangman(datafile)]} {      putserv "NOTICE $nick :$hangman(datafile) not found."      return 0                                         }  set rest [hangman_pick]  set hangman(started) "RandomSelection"  hangman_start $chan $nick $rest }

Statistics: Posted by cache — Sun Jan 11, 2009 6:48 pm

adding bind join to script

2009-01-11T18:34:09-04:00

Where do I add the 4 varibles?

proc hangman_abort {tried here} {
global hangman tried here
if {$hangman(dtimer) != ""} {killutimer $hangman(dtimer)}
set chan $hangman(chan)
putquick "PRIVMSG $chan :The hangman game has ended. Next game in 15 seconds.."
putquick "PRIVMSG $chan :Puzzle $hangman(puzzle)"
set hangman(trys) 0
hangman_save

}

See up above, how chan is set using $hangman(chan). $hangman(chan) is a global variable. The global line contains the array's prefix, hangman. So all within that array are localized as well. This is how that script is using re-association within itself.
Note: notice the passed variables 'tried' and 'here' are also globalized. This is a cheap way to pass local variables into global space.

The easiest way to do this yourself is to make new globals to use to invoke at the end of your timer. So choose a new array, say restarthangman. Then to carry these across to your timer, add these to the beginning of the pub_hangmanstart proc:

Code:

set $::restarthangman(nick) $nickset $::restarthangman(uhost) $uhostset $::restarthangman(hand) $handset $::restarthangman(chan) $chan

Then add this wherever your presently adding the timer:

Code:

utimer 15 [list join_hangmanstart $::restarthangman(nick) $::restarthangman(uhost) $::restarthangman(hand) $::restarthangman(chan)]

Statistics: Posted by speechles — Sun Jan 11, 2009 6:34 pm

adding bind join to script

2009-01-11T18:11:48-04:00

Where do I add the 4 varibles?

proc hangman_abort {tried here} {
global hangman tried here
if {$hangman(dtimer) != ""} {killutimer $hangman(dtimer)}
set chan $hangman(chan)
putquick "PRIVMSG $chan :The hangman game has ended. Next game in 15 seconds.."
putquick "PRIVMSG $chan :Puzzle $hangman(puzzle)"
set hangman(trys) 0
hangman_save
utimer 15 [list join_hangmanstart $nick $uhost $hand $chan]
}

Statistics: Posted by cache — Sun Jan 11, 2009 6:11 pm

adding bind join to script

2009-01-11T17:46:34-04:00

ok thanks

Statistics: Posted by cache — Sun Jan 11, 2009 5:46 pm

adding bind join to script

2009-01-11T17:43:11-04:00

Code:

utimer 15 [list join_hangmanstart $nick $uhost $hand $chan]...or..utimer 15 [list pub_hangmanstart $nick $uhost $hand $chan $rest]

That is, IF.. the 4 variable requirements are used within the section where you've added this timer. If not, you will need to somehow re-associate them so that they can be passed through the timer.

Statistics: Posted by speechles — Sun Jan 11, 2009 5:43 pm

adding bind join to script

2009-01-11T17:11:45-04:00

Am trying tpo get the game to stay on.. after the script where it would say game over...

I added this

Code:

utimer 15 pub_hangmanstarteven tried..utimer 15 join_hangmanstart

I was hoping that tmer would set off these binds to make game start again..
bind pub -|- [cmdchar]hangmanstart pub_hangmanstart
bind join -|- * join_hangmanstart
proc join_hangmanstart {nick uhost hand chan} {
pub_hangmanstart $nick $uhost $hand $chan "1"
}

Any idea what code I need to set off the proc pub_hangmanstart after it says game over?

Thanks

Statistics: Posted by cache — Sun Jan 11, 2009 5:11 pm

adding bind join to script

2009-01-08T22:33:23-04:00

Thank you! That works

Statistics: Posted by cache — Thu Jan 08, 2009 10:33 pm

adding bind join to script

2009-01-08T18:53:33-04:00

The problem is the pub bind passes one too many arguments (rest) which is the rest of the input the user types. When a join occurs this argument is omitted. You can use the code below to achieve what your after

Code:

bind pub -|- [cmdchar]hangmanstart pub_hangmanstartbind join -|- * join_hangmanstartproc join_hangmanstart {nick uhost hand chan} {  pub_hangmanstart $nick $uhost $hand $chan "1"}proc pub_hangmanstart {nick uhost hand chan rest} {global hangman if {$hangman(trys) > 0} {putserv "NOTICE $nick :Hangman game allready in progress on $hangman(chan)."   return 0 } if {($rest > 0) && ($rest <4)} {set hangman(level) $rest} if {![file exists $hangman(datafile)]} {     putserv "NOTICE $nick :$hangman(datafile) not found."     return 0 } set rest [hangman_pick] set hangman(started) "RandomSelection" hangman_start $chan $nick $rest}

The join proc invokes the normal pub proc. It sets rest as "1" which will set the hangman level to 1. Since join doesn't allow the user to set this, you can modify the line below to the proper level you desire 1-4.

Code:

pub_hangmanstart $nick $uhost $hand $chan "1"

Statistics: Posted by speechles — Thu Jan 08, 2009 6:53 pm

adding bind join to script

2009-01-08T17:55:23-04:00

Hey all.

Am trying to add this line "bind join -|- * pub_hangmanstart" below to make the game auto start when anyone joins the room. But I get the error [07:43] Tcl error [pub_hangmanstart]: wrong # args: should be "pub_hangmanstart nick uhost hand chan rest"

Code:

bind pub -|- [cmdchar]hangmanstart pub_hangmanstartbind join -|- * pub_hangmanstartproc pub_hangmanstart {nick uhost hand chan rest} {global hangman if {$hangman(trys) > 0} {putserv "NOTICE $nick :Hangman game allready in progress on $hangman(chan)."                           return 0} if {($rest > 0) && ($rest <4)} {set hangman(level) $rest} if {![file exists $hangman(datafile)]} {     putserv "NOTICE $nick :$hangman(datafile) not found."     return 0                                        } set rest [hangman_pick] set hangman(started) "RandomSelection" hangman_start $chan $nick $rest}

Can anyone please show me how or point me in direction to get it to work? Thanks

Statistics: Posted by cache — Thu Jan 08, 2009 5:55 pm