stevenhowes/TheEscape
1
0
Fork 0
mirror of https://github.com/stevenhowes/TheEscape.git synced 2026-05-26 15:53:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

Adjustable Velocity

Browse Source
This commit is contained in:
stevenhowes
2021-01-31 14:28:27 +00:00
parent 60deea7682
commit 00ae5c722d
2 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
!TheEscape/!RunImage,ffb
BIN
View File
Binary file not shown.
!TheEscape/!RunImage,ffb.bas
+14 -2
View File
@@ -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