Print Page - Grammer Grayscale Ghristmas Game

Calculator Community => TI Calculators => Grammer => Topic started by: persalteas on November 29, 2012, 07:49:48 am

Title: Grammer Grayscale Ghristmas Game
Post by: persalteas on November 29, 2012, 07:49:48 am

Hey everyone, I am making a new program, (for the christmas Espace-TI contest, I wasn't motivated for Omnimaga's Apocalyptic contest and Cemetech contest 9... I try easier ! )

So, you are Santa Claus in your flying ferrari, carried out by the supple Rudolph, and you throw packs on the houses down.

You have 200 packets to drop, but you accumulate fails when you throw next to the house, or when you don't throw on a house.
I think it's a bit easy, if you have ideas that could make it harder, please tell me !

I will post my code, wait 30 minutes please, enjoy this screen while waiting... (it's an old gif, Santa claus doesn't throw anything, and wabbitemu makes it slow.)

EDIT:

Spoiler For "prgmNOYEL":

Spoiler For "prgmZCH - Data program":

The program is not finished (The score system is not implemented, the stats screen just displays "BC", etc...), I have several questions...

1) Is that possible to display text on a specified buffer ?

2) Is that possible to archive the data program, and run a subroutine inside while it is archived ?

Title: Re: Grammer Grayscale Ghristmas Game
Post by: Xeda112358 on November 29, 2012, 12:22:53 pm

Wow, those sprites are great o.o Do you mind if I look for a way to speed up your grayscale, though? (it will be a few days, probably, before I can work on that, though).

Quote from: persalteas on November 29, 2012, 07:49:48 am

1) Is that possible to display text on a specified buffer ?

No, there isn't a way to do that, sorry .__. When I need to draw text on another buffer, I do this:

Code: [Select]

Disp 'pi9872     ;or whatever the buffer is
Text(0,0,"Stuff
Disp 'pi9340     ;Or whatever your main buffer is.

Quote from: persalteas on November 29, 2012, 07:49:48 am

2) Is that possible to archive the data program, and run a subroutine inside while it is archived ?

Unfortunately, no, again :[ However, I will point out that you can convert all the hex (sprites?) directly to data and store all the sprites in an appvar. This will save some memory and slightly speed up sprite display.

Title: Re: Grammer Grayscale Ghristmas Game
Post by: persalteas on November 29, 2012, 02:54:40 pm

Quote

Do you mind if I look for a way to speed up your grayscale, though?

Okay, thanks !

Quote

I will point out that you can convert all the hex (sprites?) directly to data and store all the sprites in an appvar. This will save some memory and slightly speed up sprite display.

If I do, labels won't work... But I can use pointers, yes. I suppose to know the width in bytes of each sprite to add it to the appvar pointer, yes ?

Title: Re: Grammer Grayscale Ghristmas Game
Post by: Yeong on November 29, 2012, 03:40:26 pm

What I usually do for small games is make a label dedicated to memory storage and use them like a custom data.

Title: Re: Grammer Grayscale Ghristmas Game
Post by: persalteas on November 29, 2012, 06:09:01 pm

Yes, but first I wanted to store these data in archive. If I use a label in the main program, I can't.

Title: Re: Grammer Grayscale Ghristmas Game
Post by: Xeda112358 on November 29, 2012, 09:21:57 pm

Grammer has no built in functions for reading archived content, unfortunately.

As to the pointers, yes, just find the number of bytes of each sprite as the offset. For example, say you store the sprites to appvar "Sprites" and these are your first few sprites:

Code: [Select]

:.A
:08081C3E1C7F3E7EFF7EFF7EFF3C1818  ;16 bytes (compressed)
:.C
:004428FE92FE                      ;6 bytes (compressed)
:.N
:08101C181E181D18391C391C389C389C18581878183808100000  ;26 bytes compressed

Then you could do something like this:

Code: [Select]

Get("USprites→w+16→s+6→a+26→b...

(Here, I used the pointers you use in your program).

I hope this helps!

P.S.: Here is a trick... In the Grammer program header, nothing is read by Grammer, but it is read by BASIC. This means you can do this:

Code: [Select]

.0:Pause "Grammer Required":Return

EDIT: The reason I always use the header ".0:Return" is because if Grammer isn't installed, the program won't run. If Grammer is installed, it reads the ".0:" and knows it is a Grammer program.

Title: Re: Grammer Grayscale Ghristmas Game
Post by: persalteas on December 13, 2012, 07:46:45 am

I have another question.

What do you do if you want the getkey to be very very less precise ?

(If I press the key one time, it drops something like 2 or 3 packs at the time...)

And this is the same problem when leaving the game: Exit by pressing the [zoom] key would display the Zoom Menu after the program end...

Title: Re: Grammer Grayscale Ghristmas Game
Post by: shmibs on December 13, 2012, 10:20:25 am

if you want key detection to be less precise then your only real option is to check every other frame rather than every single one (i guess you could do something with interrupts as well, but that would be annoying to handle). in order to make this less susceptible to missed keypresses, you could set a variable of some sort to be decremented every frame unless it equals zero. then, set a check on the keypress in question which requires that variable to be at 0 in order for the keypress to be detected. then, if the key is pressed, set the variable to some positive number (probably one or two).

Title: Re: Grammer Grayscale Ghristmas Game
Post by: Xeda112358 on December 13, 2012, 12:07:31 pm

You can also do this:

Code: [Select]

Repeat A=51    ;[ZOOM] is pressed
<<main code>>
End
While getKey    ;
End
Stop

Alternatively:

Code: [Select]

Repeat A=51    ;[ZOOM] is pressed
<<main code>>
End
Pause If getKey
Stop

These will not exit the program until no keys are being pressed. You can add something like Pause 5 or Pause 10 at the end for good measure.

Title: Re: Grammer Grayscale Ghristmas Game
Post by: Sorunome on December 13, 2012, 06:51:25 pm

wow, this is looking pretty nice so far, the cutszenes :D

Title: Re: Grammer Grayscale Ghristmas Game
Post by: DJ Omnimaga on December 13, 2012, 10:55:08 pm

Looks interesting, and that fire animation at the start fits really well. :)

Title: Re: Grammer Grayscale Ghristmas Game
Post by: Xeda112358 on December 14, 2012, 07:43:03 am

Quote from: DJ_O on December 13, 2012, 10:55:08 pm

Looks interesting, and that fire animation at the start fits really well. :)

Yes, I thought that was a rather awesome use of fire :D

Title: Re: Grammer Grayscale Ghristmas Game
Post by: Stefan Bauwens on December 14, 2012, 07:48:46 am

That titlescreen along with the sprites look very pretty. Well done.

Title: Re: Grammer Grayscale Ghristmas Game
Post by: persalteas on December 14, 2012, 05:04:03 pm

Thank you everyone :)

I will try to use a variable as shmibs said.

Xeda, your example could be great if the problem was just to exit the program, but it's more complex :/

And, I am sorry, but this:

Code: [Select]

.0:Pause "Grammer Required":Returndoesn't work. The program is Paused or crashes when Grammer is installed.

( unlike, the "Get("USprites→w+16→s+6→a+26→b..." works very well, thanks. But I had to add a "-2" in front of that, I don't know why, but it works ! great. )

Title: Re: Grammer Grayscale Ghristmas Game
Post by: Xeda112358 on December 15, 2012, 07:46:33 am

Quote from: persalteas on December 14, 2012, 05:04:03 pm

Xeda, your example could be great if the problem was just to exit the program, but it's more complex :/

Ah, okay. Well, I also like to do this:

Code: [Select]

Repeat <<stuff>>    ;main loop
<<don't change A>>
Repeat A>0: and A≠B
A→B
getKey→A
End
<<don't change A>>
End

Quote from: persalteas on December 14, 2012, 05:04:03 pm

And, I am sorry, but this:
Code: [Select]
.0:Pause "Grammer Required":Returndoesn't work. The program is Paused or crashes when Grammer is installed.

It works when I do it D: Grammer should skip that line and go to the next one if it is installed (because any line starting with '.' is read as a label name).

Title: Re: Grammer Grayscale Ghristmas Game
Post by: persalteas on December 15, 2012, 08:48:37 am

Please see. D:

Title: Re: Grammer Grayscale Ghristmas Game
Post by: Xeda112358 on December 15, 2012, 12:12:42 pm

That is really weird o_O Is that the latest version of Grammer? I used an earlier version and a later version when I tested it and both worked. Maybe it was a bug in that specific version and it got fixed?

Title: Re: Grammer Grayscale Ghristmas Game
Post by: persalteas on December 15, 2012, 12:15:32 pm

I used this version (http://ourl.ca/13558/309289), I think it's the latest.

Title: Re: Grammer Grayscale Ghristmas Game
Post by: Xeda112358 on December 15, 2012, 12:20:07 pm

Hmm, I must have never released the newer version D: Maybe it's because I had a bug in it or something ? Regardless, I used that version and it still worked fine. Do you have other apps installed? Maybe zStart or something that could be causing issues even after a RAM clear?

Title: Re: Grammer Grayscale Ghristmas Game
Post by: persalteas on December 15, 2012, 12:31:46 pm

No, anything, you can see it on the gif, Grammer is alone.

But I thought it could be because I switch the hooks "On" and you don't.
Wait, I try without the hooks..

EDIT: no, hooks are not responsible of this bug.

Title: Re: Grammer Grayscale Ghristmas Game
Post by: persalteas on December 17, 2012, 09:18:47 am

Big update ;)

2500 bytes exactly.

Code pasted with TokenIDE 8)

Code: [Select]

.0:Return
->a
pi9872->Z
pi9340->Y
MakeVar(6,"UNOYEL->M
2+FindVar("UNY->w+16->s+138->r+8->p+80->q+80->x+32->y+32->z+32->b+1->c+1->d+1->e
Lbl "F->F
SetBuf('Y
SetBuf(^^oZ
ClrDrawZ
ClrDraw
Contrast(27
Rect(24,0,25,46,3
Rect('25,0,69,0,0
Rect(6,24,10,81,3
Rect('5,27,88,27
Rect(15,33,22,64,3
Rect(4,54,11,88,3
Rect('5,63,91,63,0
Rect(30,33,20,34,3
Rect(23,33,22,48,3
Rect('24,53,28,53
Rect('66,53,70,53
Rect('28,52,66,52
Rect('11,23,17,23
Rect('78,23,84,23
Rect('17,22,24,22
Rect('69,22,78,22
Circle(29,13,3
Circle(29,26,3
Circle(29,41,3
Circle(29,54,3
Circle(29,67,3
Circle(29,79,3
Misc(1,Y,Z,768
Fill(0
Rect(31,35,19,33,0
For(C,1,5
C*26 +FindVar("UNY->B
For(A,1,7
2*C -1->K
Tile(2,B,A,K,2,13,Z
DispGraph
If A!=7
Tile(2,B,A,K,2,13,Z
call F
End
End
SetFont 2
SetBuf(Z
Text(56,10,"start / quit / stats
SetBuf(Y
SetBuf(^^oZ
0->K
9->V
Return->R
getKey->G
call Lbl "BRILL
call F
If G=15  or G=51
Goto Lbl "Q
If G=50  or G=49
call Lbl "STAT
If G=99
Goto a
If G<52
Goto R
ClrDrawZ
Fill(0
M[0,0,0,0,0,0
2->V
0->W->I->J->K->U->O
100->H
Contrast(30
Horizontal 56,0
Return->R
getKey->G
If O
Then
SetBuf('Z
Rect(0,0,35,15,0
Text(0,0,"Done:
Text('+6,0,I
Text(+6,0,"Fails:
Text('+6,0,J
Text(+6,0,"ToDrop:
Text('+6,0,H
SetBuf('Y
End
K+1->K
If K=1  or K=5
Tile(2,p,2,3,5,16,Z
If K=6  or K=10
Tile(2,q,2,3,5,16,Z
If K=10
0->K 
If U=0  and randInt(0,2
Then
0->h
randInt(1,5
If =1
x->h
If =2
y->h
If =3
z->h
If =4
Tile(2,w,40,11,,16
If h
Then
Tile(2,h,40,10,2,16
M+5 [1
End
End
DispGraph
For(C,1,V
ShiftBuf(1,2
U+1->U
Vertical 95
End
Horizontal 56,0
Pxl-Off(randInt(56,65),randInt(94,97
DispGraph
If U>=16
Then
If (M
J+1->J
Misc(1,M+1,M,5
M+5 [0
0->U
End
If G=9  and !W
Then
H-1->H
1->W
0->theta
Tile(5,s,20,3
End
If W
Then
For(C,1,V+1
Rect(0,20,20,30,11
Horizontal 20
theta+1->theta
End
End
If theta>=19
Then
If !(M+1
J+1->J
If (M+1
Then
I+1->I
M+1 [0
End
0->W->theta
End
If G=14
Then
Inv(O->O
SetBuf('Z
Rect(0,0,35,28,0
SetBuf('Y
End
If !H  and !W  or G=15
Goto Lbl "E
Goto R
.E
0->S
If I>J
Then
I-2*J ->S
End
call Lbl "BUF1
Text(12,17,"Well Done !
Text(24,20,"Score: 
Text('^^oS
call Lbl "BUF2
100-H->H
b[H+(b
c[I+(c
d[J+(d
If S>(e
e[S
call Lbl "STAT
Goto a
.Q
ClrDraw
ClrDrawZ
DispGraph
DelVar "UNOYEL
ClrHome
Stop
.F
DispGraph
Fill(23,0,35,4,4,18
End
.STAT
call Lbl "BUF1
Text(12,17,"Statistics
Text(36,12,"Total Drops:
Text('^^oGetInc(b
Text(29,12,"Total okays:
Text('^^oGetInc(b
Text(22,12,"Total fails:
Text('^^oGetInc(b
Text(43,12,"High Score:
Text('^^oGetInc(b
call Lbl "BUF2
99->G
End
.BRILL
If !K
Then
randInt(3,88->A
randInt(0,15->B
End
If !K  or K=7
Tile(2,r,B,A,1,8,Z
If K=7
~V->K
K+1->K
End
.BUF1
ClrDrawZ
Fill(0
For(90
Pxl-Off(randInt(3,63),randInt(3,93
End
SetBuf('Z
Rect(11,8,44,76,6
Rect(10,7,44,76,6
Rect('20,19,60,19
End
.BUF2
SetBuf('Y
0->K+1->V
For(C,1,10
For(U,1,53
Tile(2,s,U,C
call Lbl "BRILL
DispGraph
If getKey=15
Then
53->U
10->C
End
If U!=53
Tile(2,s,U,C
U+3->U
End
End
Repeat getKey=15
call Lbl "BRILL
DispGraph
End
End

It's quite great, there is only two problems:

1) The high score sometimes display "255" or "653**", I don't know why and how to solve it...
2) When you press [^] in the game, it displays the score and some info. But I don't know why the back of the sled is BLINKING. The rectangle which erases the score display is small and doesn't erase the sled. That's strange.

Title: Re: Grammer Grayscale Ghristmas Game
Post by: Xeda112358 on December 17, 2012, 09:24:10 am

For 1) It seems that you might be making a negative score? There is a Mode settign that lets you disply negative numbers, but I'm not sure about the 255, I'll have to look at the code.
2) I'll have to look at the code to figure it out XD

EDIT: I cannot figure out what is wrong with the sled, are you using XOR logic? If so, do this:

Make sure the whole sprite is drawn OFF
Draw the menu
Continue as normal

Then, when the menu exits:

Make sure the whole sprite is OFF
Erase the menu
Continue as normal

So, are you inverting the sprite? If so, I may be able to offer some advice on speeding it up...

Title: Re: Grammer Grayscale Ghristmas Game
Post by: persalteas on December 17, 2012, 10:12:57 am

2) Yeah ! :D Problem solved ! (but you have to maintain the key pressed)

Code: [Select]

.0:Return
->a
pi9872->Z
pi9340->Y
MakeVar(6,"UNOYEL->M
2+FindVar("UNY->w+16->s+138->r+8->p+80->q+80->x+32->y+32->z+32->b+1->c+1->d+1->e
Lbl "F->F
SetBuf('Y
SetBuf(^^oZ
ClrDrawZ
ClrDraw
Contrast(27
Rect(24,0,25,46,3
Rect('25,0,69,0,0
Rect(6,24,10,81,3
Rect('5,27,88,27
Rect(15,33,22,64,3
Rect(4,54,11,88,3
Rect('5,63,91,63,0
Rect(30,33,20,34,3
Rect(23,33,22,48,3
Rect('24,53,28,53
Rect('66,53,70,53
Rect('28,52,66,52
Rect('11,23,17,23
Rect('78,23,84,23
Rect('17,22,24,22
Rect('69,22,78,22
Circle(29,13,3
Circle(29,26,3
Circle(29,41,3
Circle(29,54,3
Circle(29,67,3
Circle(29,79,3
Misc(1,Y,Z,768
Fill(0
Rect(31,35,19,33,0
For(C,1,5
C*26 +FindVar("UNY->B
For(A,1,7
2*C -1->K
Tile(2,B,A,K,2,13,Z
DispGraph
If A!=7
Tile(2,B,A,K,2,13,Z
call F
End
End
SetFont 2
SetBuf(Z
Text(56,10,"start / quit / stats
SetBuf(Y
SetBuf(^^oZ
0->K
9->V
Return->R
getKey->G
call Lbl "BRILL
call F
If G=15  or G=51
Goto Lbl "Q
If G=50  or G=49
call Lbl "STAT
If G=99
Goto a
If G<52
Goto R
ClrDrawZ
Fill(0
M[0,0,0,0,0,0
2->V
0->W->I->J->K->U
~1->O
100->H
Contrast(30
Horizontal 56,0
Return->R
getKey->G
If O
Then
SetBuf('Z
Rect(0,0,35,15,0
Text(0,0,"Done:
Text('+6,0,I
Text(+6,0,"Fails:
Text('+6,0,J
Text(+6,0,"ToDrop:
Text('+6,0,H
SetBuf('Y
End
K+1->K
If K=1  or K=5
Tile(2,p,2,3,5,16,Z
If K=6  and G=14
Then
Inv(O->O
ClrDrawZ
End
If K=6  or K=10
Tile(2,q,2,3,5,16,Z
If K=10
0->K 
If U=0  and randInt(0,2
Then
0->h
randInt(1,5
If =1
x->h
If =2
y->h
If =3
z->h
If =4
Tile(2,w,40,11,,16
If h
Then
Tile(2,h,40,10,2,16
M+5 [1
End
End
DispGraph
For(C,1,V
ShiftBuf(1,2
U+1->U
Vertical 95
End
Horizontal 56,0
Pxl-Off(randInt(56,65),randInt(94,97
DispGraph
If U>=16
Then
If (M
J+1->J
Misc(1,M+1,M,5
M+5 [0
0->U
End
If G=9  and !W
Then
H-1->H
1->W
0->theta
Tile(5,s,20,3
End
If W
Then
For(C,1,V+1
Rect(0,20,20,30,11
Horizontal 20
theta+1->theta
End
End
If theta>=19
Then
If !(M+1
J+1->J
If (M+1
Then
I+1->I
M+1 [0
End
0->W->theta
End
If !H  and !W  or G=15
Goto Lbl "E
Goto R
.E
0->S
If I>J
Then
I-2*J ->S
End
call Lbl "BUF1
Text(12,17,"Well Done !
Text(24,20,"Score: 
Text('^^oS
call Lbl "BUF2
100-H->H
b[H+(b
c[I+(c
d[J+(d
If S>(e
e[S
call Lbl "STAT
Goto a
.Q
ClrDraw
ClrDrawZ
DispGraph
DelVar "UNOYEL
ClrHome
Stop
.F
DispGraph
Fill(23,0,35,4,4,18
End
.STAT
call Lbl "BUF1
Text(12,17,"Statistics
Text(36,12,"Total Drops:
Text('^^oGetInc(b
Text(29,12,"Total okays:
Text('^^oGetInc(b
Text(22,12,"Total fails:
Text('^^oGetInc(b
Text(43,12,"High Score:
Text('^^oGetInc(b
call Lbl "BUF2
99->G
End
.BRILL
If !K
Then
randInt(3,88->A
randInt(0,15->B
End
If !K  or K=7
Tile(2,r,B,A,1,8,Z
If K=7
~V->K
K+1->K
End
.BUF1
ClrDrawZ
Fill(0
For(90
Pxl-Off(randInt(3,63),randInt(3,93
End
SetBuf('Z
Rect(11,8,44,76,6
Rect(10,7,44,76,6
Rect('20,19,60,19
End
.BUF2
SetBuf('Y
0->K+1->V
For(C,1,10
For(U,1,53
Tile(2,s,U,C
call Lbl "BRILL
DispGraph
If getKey=15
Then
53->U
10->C
End
If U!=53
Tile(2,s,U,C
U+3->U
End
End
Repeat getKey=15
call Lbl "BRILL
DispGraph
End
End

(http://tiplanet.org/forum/download/file.php?id=428)

(YES, the gif is still blinking, but on a real calc it works !)

Title: Re: Grammer Grayscale Ghristmas Game
Post by: Xeda112358 on December 17, 2012, 10:23:19 am

Awesome! So, if you are drawing the sprite using XOR logic, you might be doing this:

XOR sprite 1 to the screen
XOR sprite 1 to erase it
XOR sprite 2 tot he screen
XOR sprite 2 to erase it

...

But really, you don't need to do that. You can create a sprite that will erase the previous sprite with XOR logic and replace it with the new sprite all at once. It is a little tricky to understand, but it might make your animation much smoother since it won't be blinking. For example, here are two sprites:

3C4281818181423C
0000182424180000

Instead of doing :
XOR 3C4281818181423C
XOR 3C4281818181423C
XOR 0000182424180000
XOR 0000182424180000

You can draw the first sprite outside of the loop, then use a single sprite to toggle between the two images:

Code: [Select]

XOR 3C4281818181423C
Repeat <<main loop>>
XOR 3C4299A5A599423C   ;toggle between the two sprites
End

How do you find the "toggle" sprite? Simple: XOR the two sprites together and use the data it makes :) That will get rid of the moments where there is nothing on the screen, so there won't be any more blinking :D

Title: Re: Grammer Grayscale Ghristmas Game
Post by: persalteas on December 18, 2012, 07:30:27 am

Oh yes, that's a good idea !

I will try to do this.