diff --git a/!TheEscape/!RunImage,ffb b/!TheEscape/!RunImage,ffb index 3b21248..7e46d0b 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 c667d14..a63fba4 100644 --- a/!TheEscape/!RunImage,ffb.bas +++ b/!TheEscape/!RunImage,ffb.bas @@ -20,6 +20,17 @@ DEF PROC_main XMovePerCent%=5 ResetShipSprite% = 0 + MaxEnemies% = 4 + DIM EnemyLocations%(MaxEnemies% - 1,1) + DIM EnemySprites$(MaxEnemies% -1) + + REM Random it up for now + FOR Enemy%=0 TO MaxEnemies% - 1 + EnemyLocations%(Enemy%,0) = RND(SCREENGFXWIDTH%) + EnemyLocations%(Enemy%,1) = SCREENGFXHEIGHT% + (RND(SCREENGFXHEIGHT%/2) * (Enemy% + 1)) + EnemySprites$(Enemy%) = "durno_ship" + NEXT Enemy% + REM Show/hide debug display DebugOut%=0 @@ -93,6 +104,17 @@ DEF PROC_main REM Draw player ship PROCdraw_sprite(ShipSprite$,PlayerLocation%(0),PlayerLocation%(1)) + + REM TODO: Only uses player velocity currently (/2 so they don't match stars) + FOR Enemy%=0 TO MaxEnemies% - 1 + EnemyLocations%(Enemy%,1) = EnemyLocations%(Enemy%,1) - ((Cents% - LastCents%) * PlayerVelocity%/20) + IF EnemyLocations%(Enemy%,1) < 0 THEN + EnemyLocations%(Enemy%,1) = SCREENGFXHEIGHT% + RND(SCREENGFXHEIGHT%) + EnemyLocations%(Enemy%,0) = RND(SCREENGFXWIDTH%) + ENDIF + PROCdraw_sprite(EnemySprites$(Enemy%),EnemyLocations%(Enemy%,0),EnemyLocations%(Enemy%,1)) + NEXT Enemy% + IF DebugOut% = 1 THEN PROCdebugoutput ENDIF @@ -145,6 +167,11 @@ DEF PROCdebugoutput MOVE 0,500 PRINT "X: " + STR$(PlayerLocation%(0)) " Y: " STR$(PlayerLocation%(1)) PRINT "CPF: " + STR$(Cents% - LastCents%) + + FOR Enemy%=0 TO MaxEnemies% - 1 + PRINT "ENEMY:" STR$(Enemy%) + " " + STR$(EnemyLocations%(Enemy%,0)) + "," + STR$(EnemyLocations%(Enemy%,1)) + NEXT Enemy% + RECT PlayerLocation%(0) + PlayerHitbox%(0), PlayerLocation%(1) + PlayerHitbox%(1), PlayerHitbox%(2), PlayerHitbox%(3) ENDPROC