diff --git a/!TheEscape/!RunImage,ffb b/!TheEscape/!RunImage,ffb index 7128121..89a1f4c 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 5c79743..8a3d50f 100644 --- a/!TheEscape/!RunImage,ffb.bas +++ b/!TheEscape/!RunImage,ffb.bas @@ -16,17 +16,15 @@ PROCtitle PROCfinal_gfx_setup -PROCmain +PROCmain_scene1 END DEF PROCtitle - MODE 4 CLS PROCdraw_sprite("intro_25",320,256) KEY$ = GET$ - SCREENMODE% = 25 IF KEY$ = "1" THEN SCREENMODE% = 32 ENDIF @@ -39,6 +37,11 @@ DEF PROCtitle ENDPROC DEF PROCinitial_gfx_setup + SCREENMODE% = 4 + + + MODE SCREENMODE% + sprite_area% = FNload_sprites("Spr") ENDPROC @@ -60,17 +63,19 @@ DEF PROCfinal_gfx_setup REM Position text cursor at graphics location VDU 5 + ENDPROC DEF PROCaudio_setup - VOICE 1,"Percussion-Noise" + VOICES 2 + VOICE 1,"WaveSynth-Beep" + VOICE 2,"Percussion-Noise" ENDPROC -DEF PROCmain +DEF PROCmain_scene1 REM Current graphics buffer Scr% = 1 - DIM PlayerLocation%(1) PlayerLocation%(X) = SCREENGFXWIDTH%/2 PlayerLocation%(Y) = SCREENGFXHEIGHT%/PlayerYHeightDivide% @@ -125,8 +130,6 @@ DEF PROCmain SpeckLocations%(Speck%,Y) = RND(SCREENGFXHEIGHT%) NEXT Speck% - - REPEAT REM Store current time and last time LastCents% = Cents% @@ -186,7 +189,7 @@ DEF PROCplayer_ship_handle_damage PlayerExplodeNextFrame% = TIME + 4 IF PlayerSprite$ = "player_ship" THEN DieEnd% = TIME + 150 - SOUND 1,-5,0,50 + SOUND 2,-5,0,50 ENDIF CASE PlayerSprite$ OF WHEN "player_ship": PlayerSprite$ = "explode_shp1" @@ -209,7 +212,7 @@ DEF PROCenemy_ship_handle_damage FOR Enemy%=0 TO MaxEnemies% - 1 IF EnemyHealth%(Enemy%) <= 0 THEN IF EnemySprites$(Enemy%) = "durno_ship2" THEN - SOUND 1,-5,0,50 + SOUND 2,-5,0,50 ENDIF IF TIME > EnemyExplodeNextFrame%(Enemy%) THEN EnemyExplodeNextFrame%(Enemy%) = TIME + 4