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

Sound! Sort of..

Browse Source
This commit is contained in:
stevenhowes
2021-02-06 21:32:47 +00:00
parent 41ea643007
commit 67ccab12ba
2 changed files with 6 additions and 1 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
+6 -1
View File
@@ -22,6 +22,7 @@ DEF PROC_main
REM Current graphics buffer REM Current graphics buffer
Scr% = 1 Scr% = 1
VOICE 1,"Percussion-Noise"
DIM PlayerLocation%(1) DIM PlayerLocation%(1)
PlayerLocation%(X) = SCREENGFXWIDTH%/2 PlayerLocation%(X) = SCREENGFXWIDTH%/2
PlayerLocation%(Y) = SCREENGFXHEIGHT%/PlayerYHeightDivide% PlayerLocation%(Y) = SCREENGFXHEIGHT%/PlayerYHeightDivide%
@@ -147,7 +148,8 @@ DEF PROCplayer_ship_handle_damage
IF TIME > PlayerExplodeNextFrame% THEN IF TIME > PlayerExplodeNextFrame% THEN
PlayerExplodeNextFrame% = TIME + 4 PlayerExplodeNextFrame% = TIME + 4
IF PlayerSprite$ = "player_ship" THEN IF PlayerSprite$ = "player_ship" THEN
DieEnd% = TIME + 100 DieEnd% = TIME + 150
SOUND 1,-5,0,50
ENDIF ENDIF
CASE PlayerSprite$ OF CASE PlayerSprite$ OF
WHEN "player_ship": PlayerSprite$ = "explode_shp1" WHEN "player_ship": PlayerSprite$ = "explode_shp1"
@@ -169,6 +171,9 @@ ENDPROC
DEF PROCenemy_ship_handle_damage DEF PROCenemy_ship_handle_damage
FOR Enemy%=0 TO MaxEnemies% - 1 FOR Enemy%=0 TO MaxEnemies% - 1
IF EnemyHealth%(Enemy%) <= 0 THEN IF EnemyHealth%(Enemy%) <= 0 THEN
IF EnemySprites$(Enemy%) = "durno_ship2" THEN
SOUND 1,-5,0,50
ENDIF
IF TIME > EnemyExplodeNextFrame%(Enemy%) THEN IF TIME > EnemyExplodeNextFrame%(Enemy%) THEN
EnemyExplodeNextFrame%(Enemy%) = TIME + 4 EnemyExplodeNextFrame%(Enemy%) = TIME + 4
CASE EnemySprites$(Enemy%) OF CASE EnemySprites$(Enemy%) OF