Inital Commit

!TheEscape/!Run,feb

@@ -0,0 +1,5 @@
+Set TheEscape$Dir <Obey$Dir>
+IconSprites <TheEscape$Dir>.!Sprites
+WimpSlot -min 320k -max 320k
+Dir <TheEscape$Dir>
+Run <TheEscape$Dir>.!RunImage

!TheEscape/!RunImage,ffb.bas

@@ -0,0 +1,104 @@
+
+PROC_main
+END
+
+DEF PROC_main
+  REM Current graphics buffer
+  DIM SCR 0
+
+  REM Player location
+  LOCATIONX=0
+  LOCATIONY=0
+
+  REM Player ship attributes
+  VELOCITY=0
+  SHIELDS=100
+  STRUCTURALINTEGRITY=100
+  XPERCENT=5
+
+  REM Used for centiseconds per frame calcs
+  CENTS = TIME
+
+  REM 800x600 GFX Area 1600x1200
+  MODE 32
+
+  REM Sprite set
+  sprite_area% = FNload_sprites("Spr")
+
+  REPEAT
+    REM Store current time and last time
+    LASTCENTS = CENTS
+    CENTS = TIME
+
+    REM Set grpahics buffer
+    SYS "OS_Byte",112,SCR
+
+     KEY = INKEY(0)
+
+     IF KEY = 100 THEN
+       LOCATIONX = LOCATIONX + (XPERCENT * (CENTS - LASTCENTS))
+     ENDIF
+     IF KEY = 97 THEN
+       LOCATIONX = LOCATIONX - (XPERCENT * (CENTS - LASTCENTS))
+     ENDIF
+
+     CLS
+
+     SYS "OS_SpriteOp",34+256,sprite_area%,"lcars",0,940,0
+
+
+REM     PRINT "X:   " + STR$(LOCATIONX)
+REM     IF KEY <> -1 THEN
+REM     PRINT "Key: " + STR$(KEY)
+REM     ELSE
+REM     PRINT "Key:"
+REM     ENDIF
+REM     PRINT "CPF: " + STR$(CENTS - LASTCENTS)
+
+
+     SYS "OS_SpriteOp",34+256,sprite_area%,"player_ship",LOCATIONX,0,0
+
+     VDU 5
+
+     GCOL 0,0
+     MOVE 75,1150
+     PRINT "Sheilds"
+     MOVE 75,1120
+     PRINT "Integrity"
+     MOVE 75,1090
+     PRINT "Velocity"
+
+     GCOL 0,7
+     MOVE 130,1150
+     PRINT SHIELDS
+     MOVE 130,1120
+     PRINT STRUCTURALINTEGRITY
+     MOVE 130,1090
+     PRINT VELOCITY
+
+     WAIT
+
+     SYS "OS_Byte",113,SCR
+
+     IF SCR=0 THEN SCR=1 ELSE SCR=0
+
+  UNTIL FALSE
+
+ENDPROC
+
+DEF PROCdelay(n)
+  T%=TIME+n:REPEAT UNTIL TIME > T%
+ENDPROC
+
+DEF FNload_sprites(sprite_file$)
+  LOCAL length%, area_ptr%
+  SYS "OS_File",13,sprite_file$ TO ,,,,length%
+  DIM area_ptr% length%+4-1
+  area_ptr%!0 = length%+4
+  area_ptr%!4 = 16
+  SYS "OS_SpriteOp",9+256,area_ptr%
+  SYS "OS_SpriteOp",10+256,area_ptr%,sprite_file$
+=area_ptr%
+
+
+