From 00ae5c722d4eea5420061784777f150dc4cf3d77 Mon Sep 17 00:00:00 2001
From: stevenhowes <38082088+stevenhowes@users.noreply.github.com>
Date: Sun, 31 Jan 2021 14:28:27 +0000
Subject: [PATCH] Adjustable Velocity

---
 !TheEscape/!RunImage,ffb     | Bin 3455 -> 3764 bytes
 !TheEscape/!RunImage,ffb.bas |  16 ++++++++++++++--
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/!TheEscape/!RunImage,ffb b/!TheEscape/!RunImage,ffb
index bd58cfd256fec677583f01fd977215b67087ac00..3e7b226679796dae5ebfba1a5074a680e1573055 100644
GIT binary patch
delta 650
zcmew_wMBNq0Y<}(2VI!ivJ^mIasrFwWEB?K$qp={q6%6H0Xd14sYPL_Ir+(%C6%iB
zh6bBMSbnh9n_6fp^zgDQ(*x^5Q>9>wu1`T*!H}0_gA!Qva|~HK1w#V^ka@en3V;Nr
zi9i*+EJwJ&3eMK^vYcaAP&muWazj8t;km*x4P6r>u!|lM>mpr{i{3!&!*r320@yv@
z<e&~hbB_kliw3-`3{dCrvT}i4!zu!EjiEWnHLP-zL%7VHSv4TCMywBcS#4N&S>1%b
zD7d61m8L5c6lLa>6!WqM2;EiqlmZgUFD)r3E#YO2;#E+1qhO$83iLN?%H(rgPE4$M
zlZCj|xhg=$Gy#q2ne5E1WH5~%tQ8nh8hM($tP8{y6hc&OCu-+eeO36YFj2t{$mL~S
z1=6$ysA=EisobiJCnoRamSem$`4+c1*By}5GoaLm$<jQgjK3xa^2p1uu}CQ>yi&+X
z%}X!IP}NaLEJ{s`FDNNe<z?fW+{2^C#3nI$505kxo6_W)Jkk<uI${b4HHs#{@G&&w
kWiy-1!>hu?<}lfa*GQVpi_aFxm=G3Twm2ZpVB!4_08;X};{X5v

delta 335
zcmdlY`(J9p0Y-z32VIyMgD1~sQJAd8B0brOMPzdh%Xd}|Lvu}q9$uDZlRLT1omn=p
zD=3`hW!c60keB5M3opw#p)U$9sY#{j3I#=(c_qcXEH{MiDtt--3FViT6qJ_mvOMBd
zP<W$Ypkr!az{~PxGBb}86U(>B?mX&T3_xR8xmb8vMJ8A9C>hA{gSF-)R%+yF^0I1(
zD=37h+D_EYv-+y=S7D-p9gxe*Y6Q|`1JvX;`4o>TW5DDOJaUXtllghgxl%w<c|fU(
z$pO5kj7^i<c;#hSd!!T;UMb|H=B1ZpsOl&r7NsV}7nBqMjhZ(3Ag>-1>w?K2d8L_H
zS54;Qla^rJBBp>)qiCXFt6*rx%err}BcBQr>xs$fd`8l&m-uXvjJX4}@fi?*VB!4_
E0EqZv&j0`b

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