summaryrefslogtreecommitdiff
path: root/missile_lock.bmx
diff options
context:
space:
mode:
Diffstat (limited to 'missile_lock.bmx')
-rw-r--r--missile_lock.bmx48
1 files changed, 26 insertions, 22 deletions
diff --git a/missile_lock.bmx b/missile_lock.bmx
index 21ba804..f4a4652 100644
--- a/missile_lock.bmx
+++ b/missile_lock.bmx
@@ -52,7 +52,6 @@ EndIf
?
Graphics 800,600,32,HERTZ
-SetOrigin(400,300)
HideMouse
SetBlend(ALPHABLEND)
@@ -69,8 +68,8 @@ Lookup.Init()
GameConfig.Load()
Scroller.Init()
Particles.Init()
-
-GameState.Reset()
+Backdrop.Init()
+Trail.Init()
Global quit:Int=False
@@ -84,10 +83,23 @@ Menu()
While Not quit
GameState.Reset()
- TFadeScreen.DoFadeOut()
+ While Not KeyHit(KEY_ESCAPE)
+ Cls
+ Backdrop.Draw()
+ Particles.Draw()
+ Trail.Draw()
+ GameState.Display()
+ GameState.Control()
+ GameState.Move()
+ SetRotation(GameState.ang)
+ DrawImage(GFX.ship,GameState.x,GameState.y)
+ SetRotation(0)
+ Flip(1)
+ Wend
GameConfig.Save()
- 'last_score=game.score
+
+ TFadeScreen.DoFadeOut()
Menu()
Wend
@@ -121,28 +133,26 @@ Function Menu()
Local defkey:Int=0
Particles.Clear()
+ GameState.Reset()
While Not done
Cls
If Rand(100)>30
- Particles.AddScaledImage(GFX.exhaust,Rand(-400,400),Rand(-400,400),0.3)
+ Particles.AddScaledImage(GFX.exhaust,Rand(0,800),Rand(0,600),0.3)
End If
- GameState.ang=(GameState.ang+2) Mod 3600
-
- SetOrigin(400,300)
+ Backdrop.Draw()
Particles.Draw()
GameState.Display()
Scroller.Draw()
- SetOrigin(0,0)
SetColor(255,255,255)
DrawImage(GFX.title,0,0)
If defkey>0
- If defkey=5
+ If defkey=4
GFX.font.Centre("PRESS A KEY TO GO BACK TO THE MENU",380)
Else
GFX.font.Centre("DEFINE KEYS",350)
@@ -152,16 +162,13 @@ Function Menu()
Local c1:Int=128+128*(defkey=1)
Local c2:Int=128+128*(defkey=2)
Local c3:Int=128+128*(defkey=3)
- Local c4:Int=128+128*(defkey=4)
GFX.font.Draw("LEFT",250,200,c1,c1,c1)
GFX.font.Draw("RIGHT",250,220,c2,c2,c2)
- GFX.font.Draw("FIRE",250,240,c3,c3,c3)
- GFX.font.Draw("PAUSE",250,260,c4,c4,c4)
+ GFX.font.Draw("PAUSE",250,240,c3,c3,c3)
GFX.font.Draw(KeySym(GameConfig.kleft),500,200,c1,c1,0)
GFX.font.Draw(KeySym(GameConfig.kright),500,220,c2,c2,0)
- GFX.font.Draw(KeySym(GameConfig.kfire),500,240,c3,c3,0)
- GFX.font.Draw(KeySym(GameConfig.kpause),500,260,c4,c4,0)
+ GFX.font.Draw(KeySym(GameConfig.kpause),500,240,c3,c3,0)
Local k:Int=-1
@@ -183,14 +190,12 @@ Function Menu()
Case 2
GameConfig.kright=k
Case 3
- GameConfig.kfire=k
- Case 4
GameConfig.kpause=k
End Select
defkey:+1
- If defkey=6
+ If defkey=5
GameConfig.Save()
defkey=0
FlushKeys()
@@ -213,7 +218,7 @@ Function Menu()
GFX.font.Centre("COPYRIGHT (C) NODDYBOX 2006",200)
- GFX.font.Centre("PRESS FIRE TO PLAY",300)
+ GFX.font.Centre("PRESS SPACE TO PLAY",300)
GFX.font.Centre("PRESS R TO REDEFINE KEYS",380)
GFX.font.Centre("PRESS ESCAPE TO QUIT",400)
@@ -227,12 +232,11 @@ Function Menu()
EndIf
EndIf
- Flip
+ Flip(1)
Wend
Particles.Clear()
TFadeScreen.DoFadeOut()
- SetOrigin(400,300)
End Function