[TI-84+CE] Wal-Rush! CE v2.0

u/Dream of Omnimaga June 08, 2016, 05:44:50 PM

It seems to work, now

. At least, it seems to work before and after I do a RAM clear, so I guess things are good now. Here's my new code:

Asm(prgmSETTINGS
0:Asm(prgmCLSCREEN
Goto 0
Lbl S
"001,75,450000004555000444455544440004000000
Asm(prgmSPRITE
"002,75,400606006006006066466060060060060600
Asm(prgmSPRITE
"003,C5,7000099990000099988889999988877778888877700007777700000000000
Asm(prgmSPRITE
"004,88,40330330012212210112112103333333332323333323233333333333330330330
Asm(prgmSPRITE
End
Lbl 0
{20,25,255,148,224,227,0,12,4,34,231,129
Asm(prgmPALETTE
1→dim(ʟWALRS
"000,75,410011101011121111111110111111001110
Asm(prgmSPRITE
For(Z,⁻1,0
If Z
Goto S
End
"005,55,70000000000000000000000000
Asm(prgmSPRITE
"006,88,3A33A33AA1221221A1121121A333333333232333332323333333333333A33A33A
Asm(prgmSPRITE
"007,Y5,4BBB666BBB6666BBBBBB6BBB66666BBBBBB44466644464446664446444666664446665556665556555666555655565556555555AAAAAAAAA6AAA666AAA6AAA66666AAA6662226662226666222222622266666222666
Asm(prgmSPRITE
"008,Y5,46666BBB666BBB6BBBBBB6BBB6666666BBB44464446664446444666644466666664446666555666555655555565555556666555AAA6AAA666AAA6666AAA6AAA666AAA66662226666222666622222262226662226222
Asm(prgmSPRITE
"009,75,4BBB6BBB46664665666555A666A662226222
Asm(prgmSPRITE
{224,225,232,233,226,231,228,229,230,227
Asm(prgmPALETTE
"010,75,410011101011121111111110111111001110
Asm(prgmSPRITE
For(Z,⁻1,0
If Z
Goto S
End
{227,230,229,228,231,226,233,232,225,224
Asm(prgmPALETTE
"011,75,410011101011121111111110111111001110
Asm(prgmSPRITE
For(Z,⁻1,0
If Z
Goto S
End
{0,0,320,80,0,0,77,320,8,16,0,78,320,1,0,0,85,320,8,25,0,86,320,1,16,0,93,320,8,29,0,94,320,1,25,0,101,320,8,14,0,102,320,1,29,0,109,320,61,231,0,110,320,1,14,0,170,320,71,5,2,41,316,4,129
Asm(prgmCLSCREEN
{6,146,111,7,2,17,8,138,17,9,290,17
Asm(prgmSPRITE
For(A,0,288,24
{10+A,168,1,4,16,18+A,170,4,1,231,26+A,169,4,4,14
Asm(prgmCLSCREEN
End
{89,52,14,0,1,2
Asm(prgmPRINT
"A GAME OF WALRUSES
Asm(prgmPRINT
{12,179,0,5
Asm(prgmPRINT
"PC an\d Atari 2600 game by JWinslow23
Asm(prgmPRINT
{20,199
Asm(prgmPRINT
"TI-84 Plus CE remake by DJ Omnimaga
Asm(prgmPRINT
{48,219
Asm(prgmPRINT
"(C)2016, https://codewalr.us
Asm(prgmPRINT
{114,146,0,231
Asm(prgmPRINT
"Highscore:
Asm(prgmPRINT
{202,146
Asm(prgmPRINT
ʟWALRS(1
Asm(prgmPRINT
0getKey
Repeat Z
getKey→Z
End
If Z=45:Then
Asm(prgmBACKHOME
ClrHome
DelVar L₁Return
End
While 1
1→A
0→B
0→I
288→C
288→D
1→E
10→R
0→O
0→P
288→F
0→G
1→M
{0,0,320,220,20,0,220,320,20,0
Asm(prgmCLSCREEN
{146,222,255,0
Asm(prgmPRINT
0
Asm(prgmPRINT
While B<190 and Z≠45 and (O≠C or (B+20<R or B-10>R
While B<190 and O≤300 and (O≠C or (B+20<R or B-10>R
{5,F,G,5,D,I,3,12A,96,3,12A+80,96,3,12A+160,96,3,12A+240,96,4,C,B,M,O,R
Asm(prgmSPRITE
C→D
B→I
O→F
R→G
A+1→A
If A>13:1→A
getKey→Z
If Z=21:⁻40→E
E+10+10(E=⁻10→E
C-24(Z=24)+24(Z=26→C
If C<0:0→C
If C>288:288→C
If E>30:30→E
B+E→B
If B<0:0→B
O+24→O
R+20(M=2)((R<B)-(R>B→R
If Z=45:200→B
End
If (B+20≥R and B-10≤R) and O=C and not(M:Then
P+10→P:300→O
End
If O>288:Then
0→O
P+1→P
{146,222
Asm(prgmPRINT
P
Asm(prgmPRINT
20randInt(0,9→R
not(randInt(0,3))+(150<randInt(P,200→M
End
End
If Z≠45:Then
If B>188:188→B
0→θ
For(Z,1,10
not(θ→θ
{0,0,320,220,224+3θ
Asm(prgmCLSCREEN
{13+5θ,12A,96,13+5θ,12A+80,96,13+5θ,12A+160,96,13+5θ,12A+240,96,14+5θ,C,B,10+M+5θ,O,R
Asm(prgmSPRITE
End
{C,B,32,32,224
Asm(prgmCLSCREEN
{126,40,0,224
Asm(prgmPRINT
"Game Over
Asm(prgmPRINT
If P>ʟWALRS(1:Then
{112,60
Asm(prgmPRINT
"NEW HIGHSCORE
Asm(prgmPRINT
P→ʟWALRS(1
End
0getKey
Repeat getKey
End
Else
Asm(prgmBACKHOME
ClrHome
DelVar L₁Return
End
End

Also I need to update my game in Ticalc.org, Cemetech and TI-Planet download sections, because I noticed one of my copyright text turned into a token.

u/unregistered June 08, 2016, 07:59:37 PM

Hey, good news !!

While reading my sources, I 've found some pieces of codes still optimisable : Sprites might be faster again

u/Dream of Omnimaga June 08, 2016, 08:05:01 PM

That's cool. Also I need to take a look at how text linebreaks work, because I haven't checked the readme yet for the new command additions. Will v3.4 change to a different linebreak character that is easily reachable on the American TI-84+CE (such as the imaginary i)?

u/unregistered June 08, 2016, 08:16:03 PM

I'm studying the sources and keep careful : I wanna be sure that future optimisations will be safe

Yes, concerning "linebreaks", I chose the character i , which can be easily accessible on both TI83PCE & TI84+CE , and that's already available in version 3.3

Last Edit: June 08, 2016, 08:18:53 PM by grosged

u/Dream of Omnimaga June 08, 2016, 08:21:32 PM

Make sure the calculator won't detonate

Kidding aside, good luck, and glad to see it's already available. I'll check if I can adapt my programs for it.

Also @grosged there is a problem with the French readme:

QuoteSi vous prÃ©cÃ©dez SETTINGS du signe plus entre guillemet "+", cela forcera le programme
Ã rester en 16bpp (utile pour le dÃ©bogage d'une erreur Basic!).

Special characters such as accents don't show up properly. Is it due to you using the wrong charset or is it due to me being on a North American machine?

u/unregistered June 08, 2016, 08:43:52 PM

I don't know, I just know my computer's OS is Linux (Ubuntu-based LinuxMint : https://www.linuxmint.com/ )
Maybe that's the reason why there are incompatibilities

EDIT: I've just updated Instructions-FR.txt (no more french characters)

Last Edit: June 08, 2016, 09:02:53 PM by grosged

u/Dream of Omnimaga June 08, 2016, 08:44:44 PM

Maybe. It's strange, though. THat said at least there is the English readme

u/Lionel Debroux June 09, 2016, 06:12:28 AM

Linux computers usually use modern UTF-8, for maximum interoperability. Ã© instead of é is a sign the file was opened with a text editor which doesn't support Unicode, or didn't automatically detect that the file contains UTF-8 characters

u/Dream of Omnimaga June 09, 2016, 06:17:26 AM

Yeah I normally use Notepad, but for most readmes I use Wordpad. I never saw much need to install a third-party text viewer just to open readme files, especially that most readme files I read are in English.