From 5fcf611bf389f4b96ca5aeec150fddc0ff5ba37e Mon Sep 17 00:00:00 2001 From: stevenhowes <38082088+stevenhowes@users.noreply.github.com> Date: Sat, 30 Jan 2021 20:12:42 +0000 Subject: [PATCH] Inital Commit --- !TheEscape/!Run,feb | 5 ++ !TheEscape/!RunImage,ffb | Bin 0 -> 1933 bytes !TheEscape/!RunImage,ffb.bas | 104 +++++++++++++++++++++++++++++++++++ !TheEscape/!Sprites,ff9 | Bin 0 -> 736 bytes !TheEscape/!Sprites22,ff9 | Bin 0 -> 1892 bytes !TheEscape/Spr,ff9 | Bin 0 -> 57104 bytes 6 files changed, 109 insertions(+) create mode 100644 !TheEscape/!Run,feb create mode 100644 !TheEscape/!RunImage,ffb create mode 100644 !TheEscape/!RunImage,ffb.bas create mode 100644 !TheEscape/!Sprites,ff9 create mode 100644 !TheEscape/!Sprites22,ff9 create mode 100644 !TheEscape/Spr,ff9 diff --git a/!TheEscape/!Run,feb b/!TheEscape/!Run,feb new file mode 100644 index 0000000..5535146 --- /dev/null +++ b/!TheEscape/!Run,feb @@ -0,0 +1,5 @@ +Set TheEscape$Dir +IconSprites .!Sprites +WimpSlot -min 320k -max 320k +Dir +Run .!RunImage \ No newline at end of file diff --git a/!TheEscape/!RunImage,ffb b/!TheEscape/!RunImage,ffb new file mode 100644 index 0000000000000000000000000000000000000000..8a15151a39f02cd4c0f587aa417d705aed8a5ee0 GIT binary patch literal 1933 zcmb7FZD<>H7|-2hzSKVLoU^{o`RrUr(q7>%OlR4Cm4n%zW-CbT+5j{9^&-4F1 zzvp@W&r8VHT%3Hj+ zQY;!K`QpU9$(d-HRr1Zj_MzJx{9IXIGfXa5^SWKCg1c}tb8X_3_rZ|kZ{9KrT&$X$M~WrO$X6=`i))C# zXzC{n&g|!V}GBju8yiIABivUlxgU!L0Z*9PDmHJn1AHq z5cz%q{ts)^|8rLjv0Rj(AdtXnoa5(&y34l+5F$u2 zw-;K-?sE<|USfGRlY3yzHe^N9LJBHR!Xq$VzQsA`qp{;i;q`!ukWHu`?{n1`>j$U= zpCsYwsH<&j2^clog9ka#s1y%yz>9sTl}8Zd&*Nh8d`7~{x4K^q7vp1&hco}~Vdy`2 zc)RK0EE4(1lfEJ0Q%GM$T%Yyp@CrIxla=A{U}$7iX|Jdvm-D)5$%?9shgC%-;XDW~ z;oS~yyDW2Qv?|LB6Od#ij}|@{Xx;{L{qrsln25XAczBYBG|tY%QY7ARZwJRwV{M|v zfno$n+|%PhV#!R5#C?4`3}g}y_0}<|=|r4FRqFsn=i+UwJIg`hgrCG|ys5=V;0>~D-U9z8fgv2uBM|)iP0=tMOFiUtY^VkSFaRfHc>~%F;EN7OD zQn_Fuu@^c}A)sFIIufWv#Wt2Oifh2V(T-EcfqTbmE8vb9*kc~-eT4CGD~vG`Kll3n zGHb(XJ&vzEuC2y$BJul9kQ2sFSao;++PSbu{I$ctiANGW)mC!_lGN=dsqZG2XX6w} z3~|7n;cMq~*qu`;48Wud=ZntHj$jzwUyYyjWRhlpN#Dr)2cIVCVF<-t-;q?q$78+t zS11@LTA&gn=_xGwY=2~ZurhHK=yjfiNYZl-{6)ZDJ8%00Q#)ZDag%hVC(_37yPy2m K;oa@0zy1a*KL11j literal 0 HcmV?d00001 diff --git a/!TheEscape/!RunImage,ffb.bas b/!TheEscape/!RunImage,ffb.bas new file mode 100644 index 0000000..6699e3b --- /dev/null +++ b/!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% + + + diff --git a/!TheEscape/!Sprites,ff9 b/!TheEscape/!Sprites,ff9 new file mode 100644 index 0000000000000000000000000000000000000000..4ed45271f2f680ba5231bda1a0e594c4adc74cc9 GIT binary patch literal 736 zcmb`DK?=e^3`KuM5J9L{aPOr=3N8x@gFBDlPP~^#@BrSR=KoAOZPA6`hfI>!Op<8@ zU~TrC0S~jy>CiOC{jP0*dH!Y&3$v}+r2wRXmbJ{ak;^-@Rw*Tdly14H zlEPTXiNiWh*A~1P`jMS&oe8G0Um}i*y9)x>~Hi=pV#NjiTDlNtyV+8D|g0xtI+3`i{}#;=L%>`M20lQd19& Fy#Xd}mD2zK literal 0 HcmV?d00001 diff --git a/!TheEscape/!Sprites22,ff9 b/!TheEscape/!Sprites22,ff9 new file mode 100644 index 0000000000000000000000000000000000000000..f19c3f56a872c1ae8a92ad549fb2062be88df039 GIT binary patch literal 1892 zcmd5+yK2Kg5S$p>QgGn}@&oSkF>V4W9fHA4jKBdQ2u5YfbU}aNKEIJNb=(R6fit`J z&?+{L(s|)@F( zPE)O^D)M&@$*1A?n<2cr5`rdt^3@zze{;t;1P%LeZ!kh{Wf#eYLU2c?j;YeB{>Jb=DJ9*ID16XOWSqjE;JnRsWA&O9)GQNpDq^L`D-WZMDDFQ+?zF@tOK1_QfuqQ-@8zBbQ|ynie-(#2*}tc zDewW52Us+0!gC(n!FesNIT3kXs~(o=H0)uSAnvU;dp2j`v^z~4^Wk#l^Y8B1-J>Lz kq5la76^AmA+P2tBI(OD-x$tHD+o?ihwKs07y5)uK)l5 literal 0 HcmV?d00001 diff --git a/!TheEscape/Spr,ff9 b/!TheEscape/Spr,ff9 new file mode 100644 index 0000000000000000000000000000000000000000..63a847546d91f55e0823c8f44199b2c6344c510b GIT binary patch literal 57104 zcmeI5F>WI_6o!c?K+;75Tn32X+Jysc+{T3t;6`<9Br7C<3t=~bkSeXO;42slEJ)-j=ps6m)Fya zKQ4dQjB`Ed8~@3<@6;cCA!+j4Fz35|zwb=L;n3^&_}H0F<(kgqna<^#X7Wshd#czo zui@}q@#l)2d7UcSe$M2Z&gGeA@}>Tj&TYCL47_d*5BsLu(a7sgp6Nlp=~13(Dc^ME z#$MNhiQ*@UoqFAl=8B&ycI@>a&-5tYw3KIZV{wxPlY!Ua^ssLl%|~8id8Ubc(^Q^m zF5l$FW3RzvqWFnor(UD^T=8?oj=d)GOjG%$xjfUAa+|J|+jOJcrd#DU-N`dO$TL04 zGcDzru9V+&t=y&?4MxHQ#!{~5>ci&kZ9IDUT= zGKBceu^n7%DnE>uMXUCYjw{zW??3l=xvVlq_s{#)iV(j!Hbc8qei*;gm&WY!;?LJ_ zetP@sZ!`Cm*8CVwW8W3;OkZ!ucSSfB-R=`ue5hLNG7I;?xv*jpS+H=LU6gHOL1~13 z(_fj{++cNPb)?YsiDw?Kr(54J=L_9hTbWsdQw*O3-2c1T?l=AWq7`d5{b1i0**5&j zE*8}Gdp+kfZp6#5mhpRP2X^GO_yaS1c-sF#&BuRC-~k+%p?K>8zpz8#6MWky%J<3s zPmcES0!RNiclq=A*J9cbBd?7$uT5i=Lrm1~@wq%N{Mw@BV&m#&eh2iNGHK;mCV z`Y?&W?XtMWR@LJ(DThnmW2=ZK50kt`;=4MT^aae%8VGAczUXpI+RJNM;d;_Ezz~oQ;!Jo z^i(T#D3j*uQLfweeqZj9epEimZMCGidVJDJ(~G%B4Fc37{SZam8dRGvp&k+9>8a+h zYeZ6yH2jELgKG07)FVPXJ=Gj`jY#T|h97ZjP;I^>SC8hIyN%qJdqkd(rcd>82OBSJhq zRfB5tCAoSu&)jV!_vn^)Za3