Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - persalteas

Pages: 1 ... 6 7 [8] 9 10 ... 16
106
Grammer / Re: Grammer Grayscale Ghristmas Game
« 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


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

107
Grammer / Re: Grammer Grayscale Ghristmas Game
« 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.

108
Grammer / Re: TokenIDE now supports Grammer programs
« on: December 16, 2012, 03:24:35 pm »
Hmh, I posted too fast... D:

It doesn't work. TokenIDE gives an error.
I solve it, wait.

EDIT: problem solved.

109
Grammer / Re: TokenIDE now supports Grammer programs
« on: December 16, 2012, 12:30:58 pm »
Yes I told him on Cemetech, he says he will include it in the download. :)


110
Grammer / TokenIDE now supports Grammer programs
« on: December 16, 2012, 12:24:35 pm »
I made a Grammer token file for TokenIDE, you can now use it as a Grammer IDE !  :love:


Download it on TI-Planet : http://ti-pla.net/a9812


It's something like Axetokens.xml. You load Grammertokens.xml instead of Axetokens.xml and it's done.  :thumbsup:

111
Grammer / Re: Grammer Grayscale Ghristmas Game
« 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.

112
Grammer / Re: Grammer Grayscale Ghristmas Game
« on: December 15, 2012, 12:15:32 pm »
I used this version, I think it's the latest.

113
Grammer / Re: Grammer Grayscale Ghristmas Game
« on: December 15, 2012, 08:48:37 am »
Please see.  D:

114
TI Z80 / Re: [Axe] WiredWorks, a SolidWorks-like
« on: December 15, 2012, 05:42:15 am »
Great !!

The next step would be a module that places a light, a camera, and renders a 3D view like in Blender, with several grayscale levels.

115
Grammer / Re: Grammer Grayscale Ghristmas Game
« 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. )

116
Grammer / Re: Grammer Grayscale Ghristmas Game
« 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...

117
Grammer / Re: Grammer Grayscale Ghristmas Game
« 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.

118
Grammer / Re: Grammer Grayscale Ghristmas Game
« 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 ?

119
Grammer / Grammer Grayscale Ghristmas Game
« 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":
Quote from: BASIC Code
:.0:"Grammer Noyel !
:If 5/3≠1
:Then
:ClrDraw
:Text(0,0,"Please install Grammer
:Text(7,0,"to run this program.
:Return
:End
:AsmPrgmFDCB24DEC9
:ClrDraw
:Text(0,0,"loading...
:DispGraph
:π9872→Z
:π9340→Y
:Lbl "N","ZCH→a
:Lbl "O","ZCH→b
:Lbl "Y","ZCH→c
:Lbl "E","ZCH→d
:Lbl "L","ZCH→e
:Send(6,"DNOYEL→M
:Lbl "T1","ZCH→p
:Lbl "T2","ZCH→q
:Lbl "B","ZCH→r
:Lbl "C","ZCH→s
:Lbl "A","ZCH→w
:Lbl "H1","ZCH→x
:Lbl "H2","ZCH→y
:Lbl "H3","ZCH→z
:Lbl "F→F
:.MENU
:Disp 'Y
:Disp °Z
:ClrDrawZ
:ClrDraw
:Shade(27
:Lbl "CH","ZCH→A
:prgmA
:solve(1,Y,Z,768
:Fill(0
:Line(31,35,19,33,0
:For(C,1,5
:If C=1
:a→B
:If C=2
:b→B
:If C=3
:c→B
:If C=4
:d→B
:If C=5
:e→B
:For(A,1,7
:2*C -1→K
:Pt-On(10,B,A,K,2,13,Z
:DispGraph
:If A≠7
:Pt-On(10,B,A,K,2,13,Z
:prgmF
:End
:End
:Output(2
:Disp Z
:Text(56,10,"start / stats / quit
:Disp Y
:Disp °Z
:0→K
:r→C
:Return→R
:getKey→G
:If K=0
:Then
:randInt(3,88→A
:randInt(0,15→B
:End
:If K=0  or K=7
:Pt-On(10,C,B,A,1,8,Z
:If K=7
:‾9→K
:K+1→K
:prgmF
:If G=15  or G=50  or G=49
:Goto Lbl "Q
:If G=51
:prgmLbl "STAT
:If G=99
:Goto Lbl "MENU
:If G<52
:Goto R
:ClrDrawZ
:Fill(0
:p→C
:q→D
:0→K →J
:M[0,0,0,0,0,0
:2→V
:Shade(30
:Horizontal 56,0
:
:
:Return→R
:getKey→G
:K+1→K
:If K=1  or K=5
:Pt-On(10,C,2,3,5,16,Z
:If K=6  or K=10
:Pt-On(10,D,2,3,5,16,Z
:If K=10
:0→K
:If J=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
:Pt-On(10,w,40,11,,16
:If H
:Then
:Pt-On(10,H,40,10,2,16
:M+5 [1
:End
:End
:DispGraph
:Tangent(V,2
:J+V→J
:Vertical 95
:Vertical 94
:Horizontal 56,0
:Pxl-Off(randInt(56,65),randInt(94,97
:DispGraph
:If J≥16
:Then
:solve(1,M+1,M,5
:M+5 [0
:0→J
:End
:If G=15
:Goto Lbl "MENU
:Goto R
:
:.Q
:ClrDraw
:ClrDrawZ
:DispGraph
:ClrHome
:Stop
:.F
:DispGraph
:Fill(23,0,35,4,4,18
:End
:.STAT
:Disp Y
:ClrDraw
:Text(0,0,"BC
:DispGraph
:!Pause If getKey=15
:99→G
:End

Spoiler For "prgmZCH - Data program":
Quote
:.CH
:Line(24,0,25,46,3
:Line('25,0,69,0,0
:Line(6,24,10,81,3
:Line('5,27,88,27
:Line(15,33,22,64,3
:Line(4,54,11,88,3
:Line('5,63,91,63,0
:Line(30,33,20,34,3
:Line(23,33,22,48,3
:Line('24,53,28,53
:Line('66,53,70,53
:Line('28,52,66,52
:Line('11,23,17,23
:Line('78,23,84,23
:Line('17,22,24,22
:Line('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
:End
:.A
:08081C3E1C7F3E7EFF7EFF7EFF3C1818
:.C
:004428FE92FE
:.N
:08101C181E181D18391C391C389C389C18581878183808100000
:.O
:07E008101008300C700E700E700E700E700E300C1008081007E0
:.E
:0FC03FF06018E000F000FC00F800F000E00860103FF00FC00000
:.Y
:700C380C3C181F380FF8007000F001E003C007003C00F0000000
:.L
:38003C003C001C001C001C001800180018E01FF81FFC38060000
:.B
:10101028C7281010
:.T1
:0E0000028A1F0000012414800000C82780000070048FFFFF28371003FFC479EFFC01AE7080001E1073403F6020F0471C80A0BFFA0083A08004005C6080090060107FFE0080102044010020FFF8030000
:.T2
:0E000001541F00000288148000005027800000B0048FF8008837100FF10479EF800F3870807FFFC0734001F040F0471A0080BFFA3400808004340280800922FD407FFE0280C02044010040FFF8010020
:.H1
:000000C000C00FF010C8200440028001FFFF400440044C044C04403440344034
:.H2
:03003FFC20042524200425542004FC54820481148084FF14820482749A549A54
:.H3
:0000019803D807F80E781DB83C3C7FFE20043FFC35543FFC20042FF428942894


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 ?


120
Introduce Yourself! / Re: HI :)
« on: November 07, 2012, 04:47:44 pm »
Hey niki :D

welcome to omnimaga :D
[Private joke] That's a very good idea to speak english, you don't need any azerty keyboard here.
* persalteas runs far far away

Pages: 1 ... 6 7 [8] 9 10 ... 16