stevenhowes/TheEscape
1
0
Fork 0
mirror of https://github.com/stevenhowes/TheEscape.git synced 2026-05-27 00:03:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

Enemy/Enemy collision detection (expanded bbox for testint) - Hangs macine now?!

Browse Source
This commit is contained in:
stevenhowes
2021-01-31 22:20:11 +00:00
parent 964f413d02
commit f870a07382
3 changed files with 20 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
!TheEscape/!Run,feb
+1 -1
View File
@@ -1,5 +1,5 @@
Set TheEscape$Dir <Obey$Dir> Set TheEscape$Dir <Obey$Dir>
IconSprites <TheEscape$Dir>.!Sprites IconSprites <TheEscape$Dir>.!Sprites
WimpSlot -min 320k -max 320k WimpSlot -min 512k -max 512k
Dir <TheEscape$Dir> Dir <TheEscape$Dir>
Run <TheEscape$Dir>.!RunImage Run <TheEscape$Dir>.!RunImage
!TheEscape/!RunImage,ffb
BIN
View File
Binary file not shown.
!TheEscape/!RunImage,ffb.bas
+19 -6
View File
@@ -20,7 +20,7 @@ DEF PROC_main
PlayerHitbox%() = 0,0,60,81 PlayerHitbox%() = 0,0,60,81
DIM EnemyHitbox%(0,3) DIM EnemyHitbox%(0,3)
EnemyHitbox%() = 0,0,48,74 EnemyHitbox%() = 0,0,148,74
XMovePerCent%=5 XMovePerCent%=5
ResetShipSprite% = 0 ResetShipSprite% = 0
@@ -120,7 +120,7 @@ DEF PROCenemy_ship_move
REM TODO: Only uses player velocity currently (/2 so they don't match stars) REM TODO: Only uses player velocity currently (/2 so they don't match stars)
FOR Enemy%=0 TO MaxEnemies% - 1 FOR Enemy%=0 TO MaxEnemies% - 1
EnemyLocations%(Enemy%,1) = EnemyLocations%(Enemy%,1) - ((Cents% - LastCents%) * PlayerVelocity%/20) EnemyLocations%(Enemy%,1) = EnemyLocations%(Enemy%,1) - ((Cents% - LastCents%) * PlayerVelocity%/20)
IF EnemyLocations%(Enemy%,1) < 0 THEN IF EnemyLocations%(Enemy%,1) <= 0 THEN
EnemyLocations%(Enemy%,1) = SCREENGFXHEIGHT% + RND(SCREENGFXHEIGHT%) EnemyLocations%(Enemy%,1) = SCREENGFXHEIGHT% + RND(SCREENGFXHEIGHT%)
EnemyLocations%(Enemy%,0) = RND(SCREENGFXWIDTH%) EnemyLocations%(Enemy%,0) = RND(SCREENGFXWIDTH%)
ENDIF ENDIF
@@ -161,7 +161,23 @@ 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 TODO: Collision with another enemy 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)
@@ -280,6 +296,3 @@ DEF FNload_sprites(sprite_file$)
SYS "OS_SpriteOp",9+256,area_ptr% SYS "OS_SpriteOp",9+256,area_ptr%
SYS "OS_SpriteOp",10+256,area_ptr%,sprite_file$ SYS "OS_SpriteOp",10+256,area_ptr%,sprite_file$
=area_ptr% =area_ptr%