egghelp/eggheads community

Boggle Game Script

2005-11-30T22:37:26-04:00

You are funny, you could have given me the link for that post on IRC, might have been easier for me to give you a help for your case .

Statistics: Posted by De Kus — Wed Nov 30, 2005 10:37 pm

Boggle Game Script

2005-11-30T02:36:07-04:00

you could try to embed boggle's C code into your Tcl script using Critcl, but I'd suggest you learn C and port boggle to Tcl; if you are ever to do anything serious in programming, you will need to know C anyway, so learning it would only be beneficial

Statistics: Posted by demond — Wed Nov 30, 2005 2:36 am

Boggle Game Script

2005-11-30T00:46:32-04:00

The script is more or less done. However I can't release it as a standalone tcl script because it requires the Boggle Solver to work. But I'll be more than happy to share the code if anyone's interested.

Statistics: Posted by sarius — Wed Nov 30, 2005 12:46 am

Boggle Game Script

2005-11-29T08:33:48-04:00

Hi demond. Thanks for such a prompt reply.

It seems to be working without foreach. I just used \n.

Hmm... will update more when I finish the rest of the script

Statistics: Posted by sarius — Tue Nov 29, 2005 8:33 am

Boggle Game Script

2005-11-29T01:27:48-04:00

assuming that boggle reads board's data from standard input, you need to open a pipeline and write to it:

Code:

set f [open "|boggle >output.txt" w]foreach {k data} [array get die] {puts $f $data}close $f

Statistics: Posted by demond — Tue Nov 29, 2005 1:27 am

Boggle Game Script

2005-11-28T22:41:18-04:00

I tried searching in the TCL archive and also google but I can't one specifically written for tcl or eggdrop. Or maybe it has not been made public =P

Anyway, I'm in the midst of writing one for my own educational purpose, interest and for a bunch of friends in my irc channel.

Here's the gist of it

Code:

set die(0) "lrytte"set die(1) "vthrwe"set die(2) "eghwne"set die(3) "seotis"set die(4) "anaeeg"set die(5) "idsytt"set die(6) "oattow"set die(7) "mtoicu"set die(8) "afpkfs"set die(9) "xlderi"set die(10) "hcpoas"set die(11) "ensieu"set die(12) "yldevr"set die(13) "znrnhl"set die(14) "obbaoj"set die(15) "nmihuq"proc generateboggle {bog} {global dieset letters ""set numbers ""set randnum ""while { [llength $letters] < 16 } {set foundadupe 0set randnum [rand 16]set counter 0while {$counter < [llength $numbers]} {set dupenumtocheck [lrange $numbers $counter $counter]if {$dupenumtocheck == $randnum} { set foundadupe 1}incr counter}if {$foundadupe == 0} {lappend numbers $randnumset randletter [string index $die($randnum) [rand 6]]lappend letters $randletter}}return $letters}proc Boggle {nick uhost hand chan args} {global bogset bogstring [generateboggle $bog]putquick "privmsg #Boggle :[join [split [lrange $bogstring 0 3] " "] "  "]"putquick "privmsg #Boggle :[join [split [lrange $bogstring 4 7] " "] "  "]"putquick "privmsg #Boggle :[join [split [lrange $bogstring 8 11] " "] "  "]"putquick "privmsg #Boggle :[join [split [lrange $bogstring 12 15] " "] "  "]"utimer 360 "EndofRound #Boggle"}

This is basically just for generating the a 4x4 Boggle board. The next step (which I have not written) is to feed this board into a Boggle solver written in C.
The boggle solver will generate a list of all the possible words based on a dictionary text file.
The eggdrop will then match the answers typed in by the players against this list.
The Boggle solver was obtained from here

Ideally, I would like to convert the C code into tcl, but my knowledge in C is pretty limited.

Anyway, I would like to know how to use the egg to feed the letters into the Solver. To run the solver, I have to type ./boggle2 and press enter. Then I have to type the letters on the boggle board one by one, pressing enter after each one.

After all the letters have been entered, the solver will print the list of words on the console screen. I need to change it to print to a text file.

I think I should be able to manage the matching of answers to the text file after this. Hopefully!

Any comments/advice/suggestions will be greatly appreciated!

Statistics: Posted by sarius — Mon Nov 28, 2005 10:41 pm