Added twinkling stars and starting level options

1 files changed, 37 insertions, 2 deletions

diff --git a/missile_lock.bmx b/missile_lock.bmx
index 609f36b..a7685fb 100644
--- a/missile_lock.bmx
+++ b/missile_lock.bmx
@@ -90,6 +90,7 @@ MissileSet.Init()
 AsteroidSet.Init()
 
 Global quit:Int=False
+Global start_level:Int=1
 
 
 ' ===================================
@@ -101,8 +102,10 @@ Menu()
 FlushKeys()
 
 While Not quit
+	Local start_bonus:Int=1000*(start_level-1)
+	
 	GameState.Reset()
-	'GameState.SetLevel(25)
+	GameState.SetLevel(start_level)
 	MissileSet.StartLevel()
 	AsteroidSet.StartLevel()
 	
@@ -191,6 +194,10 @@ While Not quit
 				GameState.AddScore(500*GameState.level)
 			EndIf
 			
+			If start_bonus
+				GameState.AddScore(start_bonus)
+			EndIf
+			
 			If GameState.bonus_timer
 				bonus:+GameState.bonus_timer
 				bt=GameState.bonus_timer
@@ -237,6 +244,11 @@ While Not quit
 					y:+20
 				EndIf
 				
+				If start_bonus
+					GFX.font.Centre("STARTING LEVEL BONUS " + start_bonus + "!!!",y,255,255,0)
+					y:+20
+				EndIf
+				
 				If GameState.gonads
 					GFX.font.Centre("SECRET GONADS OF STEEL BONUS " + (9999+(GameState.level-1)*10000) + "!!!",y,255,255,0)
 					y:+20
@@ -267,6 +279,8 @@ While Not quit
 				timer:-1
 			Wend
 			
+			start_bonus=0
+
 			GameState.AddScore(bonus-added)
 			
 			GameState.LevelUp()
@@ -275,6 +289,7 @@ While Not quit
 		EndIf
 	Wend
 	
+	GameConfig.maxlevel=GameState.level
 	GameConfig.Save()
 	
 	MissileSet.Nuke()
@@ -339,11 +354,13 @@ Function Menu()
 	While Not done
 		Cls
 		
-		If Rand(100)>80
+		Rem
+		If Rand(100)>90
 			Local x:Int=Rand(0,800)
 			Local y:Int=Rand(0,600)
 			Particles.AddScaledImage(GFX.fireball,x,y,0.1)
 		End If
+		End Rem
 		
 		Backdrop.Draw()
 		Particles.Draw()
@@ -423,6 +440,20 @@ Function Menu()
 				FlushKeys()
 			EndIf
 			
+			If GameConfig.maxlevel>1
+				If KeyHit(KEY_LEFT) Or KeyHit(KEY_DOWN)
+					start_level=start_level-1
+					If start_level<1
+						start_level=GameConfig.maxlevel
+					EndIf
+				ElseIf KeyHit(KEY_RIGHT) Or KeyHit(KEY_UP)
+					start_level=start_level+1
+					If start_level>GameConfig.maxlevel
+						start_level=1
+					EndIf
+				End If
+			EndIf
+			
 			GFX.font.Centre("COPYRIGHT (C) NODDYBOX 2006",200)
 			GFX.font.Centre("HTTP://WWW.NODDYBOX.CO.UK/",226)
 
@@ -431,6 +462,10 @@ Function Menu()
 			
 			GFX.font.Centre("PRESS " + KeySym(GameConfig.kthrust).ToUpper() + " TO PLAY",400)
 
+			If GameConfig.maxlevel>1
+				GFX.font.Centre("CURSORS TO SELECT STARTING LEVEL: "+start_level,460)
+			EndIf
+			
 			GFX.font.Centre("PRESS R TO REDEFINE KEYS",480)
 			GFX.font.Centre("PRESS ESCAPE TO QUIT",500)
 		EndIf