http://www.omnimaga.org/index.php?topic=1463.45
It is a work in progress.
Future Goals (no pun intended
)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
EndCan't take screenshot in assembly apps i think
