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

Tried re-arranging and removing any of the 'breaker' REMs or the PRINT 1s makes it work. Some kind of limitation somewhere

Browse Source
This commit is contained in:
stevenhowes
2021-01-31 23:08:18 +00:00
parent f870a07382
commit 3c3d3d35fd
2 changed files with 23 additions and 22 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
+23 -22
View File
@@ -161,24 +161,6 @@ DEF PROCenemy_ship_collide
w1 = EnemyHitbox%(EnemyHitboxID%(Enemy%),2) w1 = EnemyHitbox%(EnemyHitboxID%(Enemy%),2)
h1 = EnemyHitbox%(EnemyHitboxID%(Enemy%),3) h1 = EnemyHitbox%(EnemyHitboxID%(Enemy%),3)
REM Collision with another enemy
REM TEST
REM TESt
FOR Enemy2%=0 TO MaxEnemies% - 1
If Enemy% > Enemy2% THEN
x2 = EnemyLocations%(Enemy2%,0) + EnemyHitbox%(EnemyHitboxID%(Enemy2%),0)
y2 = EnemyLocations%(Enemy2%,1) + EnemyHitbox%(EnemyHitboxID%(Enemy2%),1)
w2 = EnemyHitbox%(EnemyHitboxID%(Enemy2%),2)
h2 = EnemyHitbox%(EnemyHitboxID%(Enemy2%),3)
IF FNcollide(x1, y1, w1, h1, x2, y2, w2, h2) = 1 THEN
MOVE x1+w1,y1+h1
IF DebugOut% = 1 THEN
PRINT STR$(Enemy%) + " hit " + STR$(Enemy2%)
ENDIF
ENDIF
ENDIF
NEXT Enemy2%
REM Collision with a player REM Collision with a player
x2 = PlayerLocation%(0) + PlayerHitbox%(0) x2 = PlayerLocation%(0) + PlayerHitbox%(0)
y2 = PlayerLocation%(1) + PlayerHitbox%(1) y2 = PlayerLocation%(1) + PlayerHitbox%(1)
@@ -188,12 +170,31 @@ DEF PROCenemy_ship_collide
MOVE x1+w1,y1+h1 MOVE x1+w1,y1+h1
PlayerVelocity% = 0 PlayerVelocity% = 0
PRINT "BOOM" PRINT "BOOM"
IF DebugOut% = 1 THEN REM IF DebugOut% = 1 THEN
PRINT " hits player" REM PRINT " hits player"
ENDIF REM ENDIF
ENDIF ENDIF
REM TODO: Collision with projectile CollidesWith% = Enemy%
FOR OtherEnemy%=0 TO MaxEnemies% - 1
REM Collision with an enemy
x2 = EnemyLocations%(OtherEnemy%,0) + EnemyHitbox%(EnemyHitboxID%(OtherEnemy%),0)
y2 = EnemyLocations%(OtherEnemy%,1) + EnemyHitbox%(EnemyHitboxID%(OtherEnemy%),1)
w2 = EnemyHitbox%(EnemyHitboxID%(OtherEnemy%),2)
h2 = EnemyHitbox%(EnemyHitboxID%(OtherEnemy%),3)
IF FNcollide(x1, y1, w1, h1, x2, y2, w2, h2) = 1 THEN
CollidesWith% = OtherEnemy%
ENDIF
NEXT OtherEnemy%
REM Breaker
REM Breaker
IF 1 = 1 THEN
PRINT "1"
PRINT "1"
ENDIF
NEXT Enemy% NEXT Enemy%
ENDPROC ENDPROC