Reordered the erase to do the sub before the depthcharge.
This commit is contained in:
parent
4c779f45e9
commit
722fee2b6d
|
@ -116,13 +116,7 @@
|
||||||
chargeindex = 1
|
chargeindex = 1
|
||||||
|
|
||||||
' Erase shapes
|
' Erase shapes
|
||||||
700 if priorchargex(chargeindex) then \
|
700 if oldsubx 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 \
|
|
||||||
xdraw oldsubshape at oldsubx,oldsuby: \
|
xdraw oldsubshape at oldsubx,oldsuby: \
|
||||||
a=oldsubx:oldsubx=0: \
|
a=oldsubx:oldsubx=0: \
|
||||||
if peek(234) then \
|
if peek(234) then \
|
||||||
|
@ -134,6 +128,12 @@
|
||||||
remainingcharges=remainingcharges+5: \
|
remainingcharges=remainingcharges+5: \
|
||||||
vtab 2:htab 37:qq=score:gosub 40: \
|
vtab 2:htab 37:qq=score:gosub 40: \
|
||||||
vtab 3:qq=remainingcharges: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
|
720 if zx then xdraw zs at zx,explosiony:zx=0
|
||||||
730 xdraw oldshipshape at oldshipx,shipy
|
730 xdraw oldshipshape at oldshipx,shipy
|
||||||
740 if remainingcharges > 0 then 200
|
740 if remainingcharges > 0 then 200
|
||||||
|
|
Loading…
Reference in New Issue