Apple-2-SW
/
bastools
mirror of https://github.com/AppleCommander/bastools.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Reordered the erase to do the sub before the depthcharge.

This commit is contained in:
Rob Greene 2018-07-16 22:21:15 -05:00
parent 4c779f45e9
commit 722fee2b6d
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
samples/destroyer.bas
View File

@ -116,13 +116,7 @@
chargeindex = 1
' Erase shapes
700 if priorchargex(chargeindex) then \
xdraw priorchargeshape(chargeindex) at priorchargex(chargeindex),priorchargey(chargeindex): \
if peek(234) then \
chargex(chargeindex)=0: \
chargey(chargeindex)=0: \
chargeshape(chargeindex)=0
710 if oldsubx then \
700 if oldsubx then \
xdraw oldsubshape at oldsubx,oldsuby: \
a=oldsubx:oldsubx=0: \
if peek(234) then \
@ -134,6 +128,12 @@
remainingcharges=remainingcharges+5: \
vtab 2:htab 37:qq=score:gosub 40: \
vtab 3:qq=remainingcharges:gosub 40
710 if priorchargex(chargeindex) then \
xdraw priorchargeshape(chargeindex) at priorchargex(chargeindex),priorchargey(chargeindex): \
if peek(234) then \
chargex(chargeindex)=0: \
chargey(chargeindex)=0: \
chargeshape(chargeindex)=0
720 if zx then xdraw zs at zx,explosiony:zx=0
730 xdraw oldshipshape at oldshipx,shipy
740 if remainingcharges > 0 then 200