Join us on Discord!
You can help CodeWalrus stay online by donating here.

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

Started by Dream of Omnimaga, March 12, 2016, 05:52:03 AM

Previous topic - Next topic

0 Members and 3 Guests are viewing this topic.

Dream of Omnimaga

It seems to work, now :D. 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.
  • Calculators owned: TI-82 Advanced Edition Python TI-84+ TI-84+CSE TI-84+CE TI-84+CEP TI-86 TI-89T cfx-9940GT fx-7400G+ fx 1.0+ fx-9750G+ fx-9860G fx-CG10 HP 49g+ HP 39g+ HP 39gs (bricked) HP 39gII HP Prime G1 HP Prime G2 Sharp EL-9600C
  • Consoles, mobile devices and vintage computers owned: Huawei P30 Lite, Moto G 5G, Nintendo 64 (broken), Playstation, Wii U

unregistered

Hey, good news !!  :D

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

Dream of Omnimaga

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)?
  • Calculators owned: TI-82 Advanced Edition Python TI-84+ TI-84+CSE TI-84+CE TI-84+CEP TI-86 TI-89T cfx-9940GT fx-7400G+ fx 1.0+ fx-9750G+ fx-9860G fx-CG10 HP 49g+ HP 39g+ HP 39gs (bricked) HP 39gII HP Prime G1 HP Prime G2 Sharp EL-9600C
  • Consoles, mobile devices and vintage computers owned: Huawei P30 Lite, Moto G 5G, Nintendo 64 (broken), Playstation, Wii U

unregistered

#93
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 ;)

Dream of Omnimaga

Make sure the calculator won't detonate O.O

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?
  • Calculators owned: TI-82 Advanced Edition Python TI-84+ TI-84+CSE TI-84+CE TI-84+CEP TI-86 TI-89T cfx-9940GT fx-7400G+ fx 1.0+ fx-9750G+ fx-9860G fx-CG10 HP 49g+ HP 39g+ HP 39gs (bricked) HP 39gII HP Prime G1 HP Prime G2 Sharp EL-9600C
  • Consoles, mobile devices and vintage computers owned: Huawei P30 Lite, Moto G 5G, Nintendo 64 (broken), Playstation, Wii U

unregistered

#95
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)

Dream of Omnimaga

Maybe. It's strange, though. THat said at least there is the English readme :P
  • Calculators owned: TI-82 Advanced Edition Python TI-84+ TI-84+CSE TI-84+CE TI-84+CEP TI-86 TI-89T cfx-9940GT fx-7400G+ fx 1.0+ fx-9750G+ fx-9860G fx-CG10 HP 49g+ HP 39g+ HP 39gs (bricked) HP 39gII HP Prime G1 HP Prime G2 Sharp EL-9600C
  • Consoles, mobile devices and vintage computers owned: Huawei P30 Lite, Moto G 5G, Nintendo 64 (broken), Playstation, Wii U

Lionel Debroux

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 :)
Member of the TI-Chess Team.
Co-maintainer of GCC4TI (GCC4TI online documentation), TIEmu and TILP.
Co-admin of TI-Planet.

Dream of Omnimaga

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. :P
  • Calculators owned: TI-82 Advanced Edition Python TI-84+ TI-84+CSE TI-84+CE TI-84+CEP TI-86 TI-89T cfx-9940GT fx-7400G+ fx 1.0+ fx-9750G+ fx-9860G fx-CG10 HP 49g+ HP 39g+ HP 39gs (bricked) HP 39gII HP Prime G1 HP Prime G2 Sharp EL-9600C
  • Consoles, mobile devices and vintage computers owned: Huawei P30 Lite, Moto G 5G, Nintendo 64 (broken), Playstation, Wii U

Powered by EzPortal