[TIB] Re: Game Idea???

[Prev][Next][Index][Thread]

[TIB] Re: Game Idea???

In a message dated 12/16/2002 7:17:18 PM Eastern Standard Time, nolekid@bellsouth.net writes:

I don't know 89 basic,  but I do 86 basic, which is practically the same thing.
what you would probably do for the 3 spins/1 spins thing would be a GOTO or something if they get the correct answer (X="queen of england" goto F; else goto G type thing) and then the "G" would be a menu with the possible choices (I think that's what you're describing.)
the actual spin (I think, I'm not an expert) would be a random # generator, w/ each # assigned to a prize, like 500 or "whammy."

Maybe you already had that far, but it should get you going. Pretty good idea.


hmm...  I don't know...  I was thinking more like an actual system screen...  it'd take a minute to build, but would be pretty quick with for( loops...

ü = --> (the store arrow, which is alt+0252 in the ti font)
á = tiny L (the list marker, which is alt+0225 in ti font)

: are used before program control commands to make them easier to find

on a draw screen set to -47,47,-31,31 (my favorite dimensions for no good reason at all, it just keeps the quadrants easy to tell apart, and everything's one pixel)

:For(X,-46,44,12)   ;draws 8 9x9 boxes across the top and bottom rows
Line(X,30,X+9,30)
Line(X,21,X+9,21)
Line(X,30,X,21)
Line(X+9,30,X+9,21)
Line(X,-30,X+9,-30)
Line(X,-21,X+9,-21)
Line(X,-30,X,-21)
Line(X+9,-30,X+9,-21)
:End

:For(X,-17, 7, 12)      ;draws 3 9x9 boxes along the left and right
Line(-46,X,-46,X+9)
Line(-37,X,-37,X+9)
Line(-46,X,-37,X)
Line(-46,X+9,-37,X+9)
Line(47,X,47,X+9)
Line(38,X,38,X+9)
Line(47,X,38,X)
Line(47,X+9,38,X+9)
:End

;fill the boxes with whatever values you want to on your own...  I've never seen the show, so I don't know...  Use a rand # gen to fill them though...  maybe use a 0 for a whammythingie.
;the second one gets a little bit tricker...  You've got to draw the boxes around the shapes in time with erasing them and getting the keypress...

For(Z,1,22)   ;Z= the box currently on
       :If Z<10
       :Then
             :For(X,-47,47,12) ;draw the big box
             Line(X,31,X+10,31)
             Line(X,20,X+10,20)
             Line(X,31,X,20)
             Line(X+10,30,X+10,20)
             :End
            
auggh...  I'm too tired to finish...  but you get the idea right?  (I know that the for loop in the Z<10 part will draw many little boxes around the entire top line right now...  But I'm too tired to fix it...)  I'm thinking test for (Z<=8) and then (Z>8 and Z<12), then a (Z>=12 and Z<=19), and finally a (Z>19).  Each time would change the direction the boxes are drawn and X is changed...  The thing is that 2 sides are already constant in whatever loop you place them in, as I proved while drawing the boxes...  All anyone has to do is increase the size by 1 in each dimension, and you've got yourself a great little outline...  though skip the +1 on the far right side, because then you'll have a size error, and it'll try to draw everything out of legal bounds...  I'll try to work on it tomorrow morning if I'm awake and have enough time...  Till then, I hope this helps... 
Goodnight.
Nick