From 1c900457e45e70e12a04b2c5b909e0bd9a9d8a3e Mon Sep 17 00:00:00 2001 From: Ian C Date: Tue, 2 May 2006 22:50:22 +0000 Subject: Updates --- missile_lock.bmx | 38 ++++++++++++++++++++++++++++++-------- 1 file changed, 30 insertions(+), 8 deletions(-) (limited to 'missile_lock.bmx') diff --git a/missile_lock.bmx b/missile_lock.bmx index ebd5017..b2b7bea 100644 --- a/missile_lock.bmx +++ b/missile_lock.bmx @@ -84,6 +84,7 @@ Menu() While Not quit GameState.Reset() + 'GameState.SetLevel(10) MissileSet.StartLevel() AsteroidSet.StartLevel() @@ -97,7 +98,6 @@ While Not quit Particles.Draw() Trail.Draw() - GameState.Display() GameState.Control() GameState.Move() @@ -131,7 +131,18 @@ While Not quit EndIf EndIf + If GameState.pause + GFX.font.Centre("PAUSED!",300,255,255,0) + EndIf + + GameState.Display() Flip(1) + + If GameState.pause + GameState.pause=False + While Not KeyHit(GameConfig.kpause) And Not KeyHit(KEY_ESCAPE) + Wend + EndIf Wend If Not GameState.game_over @@ -155,7 +166,6 @@ While Not quit Particles.Draw() Trail.Draw() - GameState.Display() GameState.Control() GameState.Move() @@ -187,7 +197,19 @@ While Not quit GFX.font.Centre("GET READY!",300) EndIf + If GameState.pause + GFX.font.Centre("PAUSED!",300,255,255,0) + EndIf + + GameState.Display() Flip(1) + + If GameState.pause + GameState.pause=False + While Not KeyHit(GameConfig.kpause) And Not KeyHit(KEY_ESCAPE) + Wend + EndIf + timer:-1 Wend @@ -262,14 +284,15 @@ Function Menu() While Not done Cls - - If Rand(100)>30 - Particles.AddScaledImage(GFX.exhaust,Rand(0,800),Rand(0,600),0.3) + + If Rand(100)>80 + Local x:Int=Rand(0,800) + Local y:Int=Rand(0,600) + Particles.AddScaledImage(GFX.fireball,x,y,0.1) End If Backdrop.Draw() Particles.Draw() - GameState.Display() Scroller.Draw(560) SetColor(255,255,255) @@ -366,11 +389,10 @@ Function Menu() EndIf EndIf + GameState.Display() Flip(1) Wend Particles.Clear() TFadeScreen.DoFadeOut() End Function - - -- cgit v1.2.3