diff --git a/!TheEscape/!RunImage,ffb b/!TheEscape/!RunImage,ffb index bd58cfd..3e7b226 100644 Binary files a/!TheEscape/!RunImage,ffb and b/!TheEscape/!RunImage,ffb differ diff --git a/!TheEscape/!RunImage,ffb.bas b/!TheEscape/!RunImage,ffb.bas index c9b51ae..f947b5e 100644 --- a/!TheEscape/!RunImage,ffb.bas +++ b/!TheEscape/!RunImage,ffb.bas @@ -9,7 +9,7 @@ DEF PROC_main DIM PlayerLocation%(1) PlayerLocation%(0) = 800 PlayerLocation%(1) = 100 - PlayerVelocity%=0 + PlayerVelocity%=1 PlayerShields%=100 PlayerStructuralIntegrity%=100 XMovePerCent%=10 @@ -46,7 +46,7 @@ DEF PROC_main FOR Spec%=0 TO 49 GCOL 0,0 LINE SpecLocations%(0,Spec%),SpecLocations%(1,Spec%),SpecLocations%(0,Spec%),SpecLocations%(1,Spec%) - SpecLocations%(1,Spec%) = SpecLocations%(1,Spec%) - (Cents% - LastCents%) + SpecLocations%(1,Spec%) = SpecLocations%(1,Spec%) - ((Cents% - LastCents%) * PlayerVelocity%/10) IF SpecLocations%(1,Spec%) < 0 THEN SpecLocations%(1,Spec%) = 1200 SpecLocations%(0,Spec%) = RND(1600) @@ -115,6 +115,18 @@ DEF PROCinputs ResetShipSprite% = Cents% + 20 PlayerLocation%(0) = PlayerLocation%(0) - (XMovePerCent% * (Cents% - LastCents%)) ENDIF + IF INKEY(-58) THEN + PlayerVelocity% = PlayerVelocity% + 1 + IF PlayerVelocity% > 100 THEN + PlayerVelocity% = 100 + ENDIF + ENDIF + IF INKEY(-42) THEN + PlayerVelocity% = PlayerVelocity% - 1 + IF PlayerVelocity% < 0 THEN + PlayerVelocity% = 0 + ENDIF + ENDIF IF INKEY(-17) THEN IF DebugOut% = 1 THEN DebugOut% = 0 ELSE DebugOut% = 1 ENDIF