From 0c54a57c59fdce1ffc0055f57983ad090a3e18e6 Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Fri, 21 Apr 2006 21:07:17 +0000
Subject: Updates while working away

---
 global.bmx | 38 +++++++++++++++++++++++---------------
 1 file changed, 23 insertions(+), 15 deletions(-)

(limited to 'global.bmx')

diff --git a/global.bmx b/global.bmx
index f2c92c0..1d078fa 100644
--- a/global.bmx
+++ b/global.bmx
@@ -36,6 +36,7 @@ Incbin "GFX/ship.png"
 Incbin "GFX/missile.png"
 Incbin "GFX/exhaust.png"
 Incbin "GFX/flame.png"
+Incbin "GFX/star.png"
 
 Const HERTZ:Int=70
 
@@ -44,12 +45,12 @@ Type Lookup
 	Global co:Double[]
 	
 	Function Init()
-		si=New Double[3600]
-		co=New Double[3600]
+		si=New Double[360]
+		co=New Double[360]
 		
-		For Local a:Double=0 To 3599
-			si[a]=Sin(a/10.0)
-			co[a]=Cos(a/10.0)
+		For Local a:Double=0 To 359
+			si[a]=Sin(a)
+			co[a]=Cos(a)
 		Next
 	End Function
 End Type
@@ -64,6 +65,7 @@ Type GFX
 	Global missile:TImage
 	Global exhaust:TImage
 	Global flame:TImage
+	Global star:TImage
 	
 	Function SafeLoadImage:TImage(p:String, mode:Int)
 		Local i:TImage=LoadImage(p,mode)
@@ -84,15 +86,18 @@ Type GFX
 
 		title=SafeLoadImage("incbin::GFX/title.png",0)
 		
-		ship=SafeLoadImage("incbin::GFX/ship.png",0)
-		flame=SafeLoadImage("incbin::GFX/flame.png",0)
+		ship=SafeLoadImage("incbin::GFX/ship.png",FILTEREDIMAGE)
+		flame=SafeLoadImage("incbin::GFX/flame.png",FILTEREDIMAGE)
 		MidHandleImage(ship)
 		MidHandleImage(flame)
 
-		missile=SafeLoadImage("incbin::GFX/missile.png",0)
+		missile=SafeLoadImage("incbin::GFX/missile.png",FILTEREDIMAGE)
 		exhaust=SafeLoadImage("incbin::GFX/exhaust.png",FILTEREDIMAGE)
 		SetImageHandle(missile,3,7)
 		SetImageHandle(exhaust,3,3)
+
+		star=SafeLoadImage("incbin::GFX/star.png",0)
+		SetImageHandle(star,1,1)
 	End Function
 End Type
 
@@ -184,21 +189,24 @@ Type Scroller
 	
 	Function Init()
 		msg="                                          "
-		msg="                                          "
-		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!"
+		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:+"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=-400
+		msgx=0
 		msgp=0
-		msgy=560-300
+		msgy=560
 	End Function 
 	
 	Function Draw()
 		GFX.font.Draw(msg[..70],msgx,msgy)
 
 		msgx:-2
-		If msgx<-(GFX.font.TextWidth(msg[0..1])+400)
+		If msgx<-GFX.font.TextWidth(msg[0..1])
 			msgx:+GFX.font.TextWidth(msg[0..1])
 			msg=msg[1..]+msg[0..1]
 		EndIf
-- 
cgit v1.2.3