I was bored yesterday and programmed some Axe arcade games.
Here they are.
Here they are.
.FALL
.Turn off run indicator and "done"
DiagnosticOff
.Clear both buffers
ClrDraw^^r^^r
.Sprite data
[5AFFFF7E3C241818]->Pic1
[7EC3BFBFBFBFFF7E]
[80C0A09088D0A818]
[0000002424242400]
.I don't remember what this does (already!) Oh, yeah, its a secret
rand/8192->R
0->Z
If R=6
8->Z
End
If R=7
16->Z
End
.Menu
Fix 5
Text(1,0,"Easy
Text(1,7,"Medium
Text(1,14,"Hard
Fix 4
0->Y
250->P
Repeat getKey(54)
If getKey(1)
If Y=14
0->Y
Else
Y+7->Y
End
Pause P
End
If getKey(4)
If Y=0
14->Y
Else
Y-7->Y
End
Pause P
End
If getKey(4) xor getKey(1)
If P>=10
.accelerate the selection rectangle (see gif)
P-5->P
End
Else
250->P
End
rref(0,Y,96,7
DispGraph
rref(0,Y,96,7
End
.Deals with selection
.easy
If Y=0
100->S->D
2->A->L
127->H
End
.medium
If Y=7
200->S->D
10->A->L
191->H
End
.hard
If Y=14
100->S->D
20->A->L
191->H
End
H->M
11264->X
20->R
0->T
41->W
0->E
0->theta
Fix 5
.loop
Repeat getKey(15) or E
theta++
If getKey(3)
X+H->X
End
If getKey(2)
X-H->X
End
If getKey(2) xor getKey(3)
H+3->H
Else
M->H
End
DS<(D,S)
W--
End
DS<(L,A)
rand/21845-1->T
End
R+T->R
If R=7
R++
End
If (R+W)=88
R--
End
ILine(R-8,62,R,62
ILine(R+W,62,R+W+8,62
ILine(0,62,R,62)^^r
ILine(R+W,62,95,62)^^r
Pt-Change(X/256,16,Pic1+Z
Pt-Change(X/256,16,Pic1+Z)^^r
Pt-On(X/256,8,Pic1+24
Text(1,0,theta>Dec
DispGraph^^r^^r
Pt-Change(X/256,16,Pic1+Z
Pt-Change(X/256,16,Pic1+Z)^^r
Vertical -
Vertical -^^r
If pxl-Test(X/256,20) or pxl-Test(X/256+7,20
1->E
End
End
Fix 4
ClrDraw
DispGraph
ClrHome
Return
Advertisement