[Axe Parser] TI-84 (so 1337) Soccer Game

Forum rules
- Ask questions about or share code from languages other than Source Engine scripting.
- Start new topic titles with the code language in brackets (i.e. [C#], [C++], [PHP], etc.)
Locked
Smoothmoove2
1+ Posts
1+ Posts
Posts: 15
Joined: Thu Oct 13, 2011 12:30 am

[Axe Parser] TI-84 (so 1337) Soccer Game

Post by Smoothmoove2 » Tue Jul 09, 2013 4:22 am

AHAHAHHAHA. Here is a soccer game for TI calculators. It is written in the Axe language, which can be found here.
http://www.omnimaga.org/index.php?topic=1463.45
It is a work in progress.
Future Goals (no pun intended :lol: )
Fix goals
Edges of fields
2 players
Show score on screen

Code: Select all

.BALL

.SCORES

0->U

0->V

.?

1->Z

1->K

[0000183C3C180000]->Pic4

44->L

28->M

1->C

0->X->Y

ClrDraw

[183C187E183C66C3]->Pic1

[183C1A7C18386406]->Pic2

[183C583E181C2660]->Pic3

Repeat getKey(15)

If C=4

1->C

End

If getKey(1)

Y+1->Y

End

If getKey(2)

X-1->X

End

If getKey(3)

X+1->X

End

If getKey(4)

Y-1->Y

End

ClrDraw

.DRAW FIELD

Circle(47,31,12)

Line(0,0,95,0)

Line(95,0,95,63)

Line(95,63,0,63)

Line(0,63,0,0)

Line(5,20,5,42)

Line(91,20,91,42)

.DRAW CHARACTER

.C = ANIM FRAME COUNT
If C=1

Pt-On(X-1,Y-1,Pic2

End

If C=2

Pt-On(X-1,Y-1,Pic1

End

If C=3

Pt-On(X-1,Y-1,Pic3

End

.HIT BALL?

If sqrt(((L-X)^^2)+((M-Y)^^2))<4

(Z*(L-X))+L->L

(Z*(M-Y))+M->M

End

.BORDERS

.VERTICAL

If L<=1:2->L:End

If L>=95:94->L:End

.HORIZONTAL

If M<=1:2->M:End

If M>=63:62->M:End

.GOAL

.P1G

.If L<5 and 42>M and M<20

.1+V->V

.44->L

.28->M

.End

.P2G

.If L>91 and 42>M and M<20

.1+U->U

.44->L

.28->M

.End

.BALL

.DISP SCORE

.Disp U>Dec

.Disp V>Dec

Pt-On(L,M,Pic4

DispGraph

Pause 60

.HAS POSITION CHANGED?

If Q-X!=0 xor R-Y!=0

C+1->C

End

X->Q

Y->R

1->Z

.KICK IF PRESS 2ND

If getKey(54)

(5)->Z

End

End

Can't take screenshot in assembly apps i think :(
[GR]Nick_6893{A} : but at least i don't listen to gay ass computer generated music

Locked