Initial working version

1 files changed, 56 insertions, 29 deletions

diff --git a/global.bmx b/global.bmx
index 1d078fa..dedad10 100644
--- a/global.bmx
+++ b/global.bmx
@@ -37,24 +37,13 @@ Incbin "GFX/missile.png"
 Incbin "GFX/exhaust.png"
 Incbin "GFX/flame.png"
 Incbin "GFX/star.png"
+Incbin "GFX/asteroid.png"
 
 Const HERTZ:Int=70
 
-Type Lookup
-	Global si:Double[]
-	Global co:Double[]
-	
-	Function Init()
-		si=New Double[360]
-		co=New Double[360]
-		
-		For Local a:Double=0 To 359
-			si[a]=Sin(a)
-			co[a]=Cos(a)
-		Next
-	End Function
-End Type
-
+Const MISSILE_LAYER:Int=1
+Const ASTEROID_LAYER:Int=2
+Const ALL_LAYERS:Int=3
 
 Type GFX
 	Global font:TBitmapFont
@@ -66,7 +55,9 @@ Type GFX
 	Global exhaust:TImage
 	Global flame:TImage
 	Global star:TImage
-	
+	Global asteroid:TImage
+	Global explosion:TImage
+
 	Function SafeLoadImage:TImage(p:String, mode:Int)
 		Local i:TImage=LoadImage(p,mode)
 		Assert i,"Failed to load " + p
@@ -98,6 +89,9 @@ Type GFX
 
 		star=SafeLoadImage("incbin::GFX/star.png",0)
 		SetImageHandle(star,1,1)
+		
+		asteroid=SafeLoadImage("incbin::GFX/asteroid.png",FILTEREDIMAGE)
+		MidHandleImage(asteroid)
 	End Function
 End Type
 
@@ -105,7 +99,7 @@ Type GameConfig
 	Global kleft:Int
 	Global kright:Int
 	Global kpause:Int
-	Global kfire:Int
+	Global kthrust:Int
 	Global hiscore:Int
 	
 	Function Load()
@@ -114,7 +108,7 @@ Type GameConfig
 		If s=Null
 			kleft=KEY_LEFT
 			kright=KEY_RIGHT
-			kfire=KEY_SPACE
+			kthrust=KEY_SPACE
 			kpause=KEY_P
 			hiscore=0
 			Return
@@ -124,7 +118,7 @@ Type GameConfig
 		
 		kleft=s.ReadInt()
 		kright=s.ReadInt()
-		kfire=s.ReadInt()
+		kthrust=s.ReadInt()
 		kpause=s.ReadInt()
 		hiscore=s.ReadInt()
 		
@@ -142,7 +136,7 @@ Type GameConfig
 		
 		s.WriteInt(kleft)
 		s.WriteInt(kright)
-		s.WriteInt(kfire)
+		s.WriteInt(kthrust)
 		s.WriteInt(kpause)
 		s.WriteInt(hiscore)
 		
@@ -185,25 +179,20 @@ Type Scroller
 	Global msg:String
 	Global msgp:Int
 	Global msgx:Int
-	Global msgy:Int
 	
 	Function Init()
 		msg="                                          "
-		msg:+"DURING A TEST-FLIGHT OF THE STAR-FIGHTER OX-9 YOU ARE AMBUSHED IN THE ASTEROID FIELD...   "
-		msg:+"THE EVIL EMPIRE CANNOT BE ALLOWED TO DESTROY THE PROTOTYPE SO YOU MUST PILOT THE WEAPONLESS OX-9 "
+		msg:+"DURING A TEST-FLIGHT OF THE STAR-FIGHTER XY-9 YOU ARE AMBUSHED IN THE ASTEROID FIELD OUTSIDE OF MARS...   "
+		msg:+"THE EVIL EMPIRE CANNOT BE ALLOWED TO DESTROY THE PROTOTYPE SO YOU MUST PILOT THE WEAPONLESS CRAFT, "
 		msg:+"AVOIDING THE DEADLY MISSILES UNTIL HELP ARRIVES...   "
 		msg:+"SHOW HEART YOUNG PILOT, STAR-FLEET IS DEPENDING UPON YOU!"
-		'msg:+"TAKE THE LAST REMAINING STAR-FIGHTER AND USE SKILL AND JUDGEMENT TO AVOID THE DEADLY MISSILES THE EVIL ALIENS ARE FIRING AT YOU WHILE "
-		'msg:+"DESTROYING THEIR ADVANCING FLEET...   "
-		'msg:+"SHOW HEART YOUNG PILOT, THE EARTH IS DEPENDING UPON YOU!"
 
 		msgx=0
 		msgp=0
-		msgy=560
 	End Function 
 	
-	Function Draw()
-		GFX.font.Draw(msg[..70],msgx,msgy)
+	Function Draw(y:Int)
+		GFX.font.Draw(msg[..70],msgx,y)
 
 		msgx:-2
 		If msgx<-GFX.font.TextWidth(msg[0..1])
@@ -213,6 +202,44 @@ Type Scroller
 	End Function
 End Type
 
+Type Thanks
+	Global item:String[]
+	Global i:Int
+	Global wait:Int
+	Global a:Double
+	Global ai:Double
+	
+	Function Init()
+		item=["HTTP://WWW.SLAYRADIO.ORG/", ..
+			  "HTTP://WWW.BLITZBASIC.COM/"]
+		i=0
+		a=0
+		ai=0.05
+	End Function
+	
+	Function Draw(y:Int)
+		SetAlpha(a)
+		GFX.font.Centre(item[i],y)
+		SetAlpha(1)
+		
+		If wait
+			wait:-1
+		Else
+			a:+ai
+			
+			If a>1
+				wait=HERTZ*5
+				ai=-0.05
+				a=1
+			ElseIf a<0
+				i=(i+1) Mod item.length
+				ai=0.05
+				a=0
+			EndIf
+		EndIf
+	End Function 
+End Type
+
 Type TFadeScreen
 	Field a:Double
 	Field ai:Double