Code:
.BULLET
ClrDraw
DispGraph
DiagnosticOff
[000C021D020C0000]->Str1
0->A->C->X->Y->T
1->E
Fill(L1,100,0)
Pt-Change(X,Y,Str1
Repeat getKey(15)
For(A,0,11
A*4+L1->B
If B
If {B+3}<95
Pt-Change({B+3},{B+2},Str1
{B+3}+1->{B+3}
Pt-Change({B+3},{B+2},Str1
Else
0->B
End
End
End
If getKey(54)
If T>20
If C>11
0->C
End
1+C->C
(C*4)+L1->B
X+8->{B+3}
Y->{B+2}
1->B
0->T
Pt-Change({B+3},{B+2},Str1
End
End
If getKey(4)
Pt-Change(X,Y,Str1
Y-1->Y
Pt-Change(X,Y,Str1
End
If getKey(1)
Pt-Change(X,Y,Str1
Y+1->Y
Pt-Change(X,Y,Str1
End
If T<21
T+1->T
End
DispGraph
End
As you can see in the screenshot it's not behaving like i think it should :/
(I want to be able to shoot image [000C021D020C0000] and leave nothing but the cursor behind.)
Any help or optimizations are appreciated.
Credit to the SHMUP tutorial here for starting me out
http://www.cemetech.net/forum/viewtopic.php?t=9695