Updates for update blitz

5 files changed, 934 insertions, 934 deletions

diff --git a/game.bmx b/game.bmx
index 8b88300..5fe68ba 100644
--- a/game.bmx
+++ b/game.bmx
@@ -1,394 +1,394 @@
-' Vectoroids

-'

-' Copyright 2005 Ian Cowburn

-'

-' $Id$

-'

-Strict

-Import noddybox.vector

-Import noddybox.bitmapfont

-Import noddybox.vectorgfx

-Import "types.bmx"

-Import "sounds.bmx"

-

-Type TGame

-

-	Field score:Int

-	Field astlist:TList

-	Field bullets:TList

-	Field lives:Int

-	Field ship:TVectorGfxObject

-	Field lifeship:TVectorGfxObject

-	Field shotdelay:Int

-	Field deaddelay:Int

-	Field x:Double

-	Field y:Double

-	Field dx:Double

-	Field dy:Double

-	Field waiting:Int

-	Field freq:Int

-	Field hit:Int

-	Field hyperdelay:Int

-	Field waitdelay:Int

-	Field leveldelay:Int

-	Field minspeed:Double

-	Field maxspeed:Double

-	Field numast:Int

-	Field extralife:Int

-	Field saucerdelay:Int

-	Field saucertime:Int

-	Field saucershot:Int

-	Field saucer:TSaucer

-	

-	Method New()

-		score=0

-		astlist=CreateList()

-		bullets=CreateList()

-		lives=2

-		ship=GameGFX.ship.Clone()

-		lifeship=GameGFX.ship.Clone()

-		deaddelay=250

-		waiting=True

-		waitdelay=500

-		x=GraphicsWidth()/2

-		y=GraphicsHeight()/2

-		dx=0

-		dy=0

-		ship.ang=0

-		ship.x=x

-		ship.y=y

-		leveldelay=0

-		extralife=10000

-		

-		lifeship.y=5

-		lifeship.scale=0.5

-		

-		minspeed=0.1

-		maxspeed=1.0

-		numast=5

-	

-		saucertime=120*50

-		saucerdelay=0

-		saucershot=150

-		

-		NewLevel()

-	End Method

-	

-	Method NewLevel()

-		TAsteroid.minspeed=minspeed

-		TAsteroid.maxspeed=maxspeed

-		For Local f:Int=0 Until numast

-			astlist.AddLast(TAsteroid.Create())

-		Next

-		freq=30

-		hit=0

-		bullets.Clear()

-		shotdelay=0

-		hyperdelay=0

-	End Method

-	

-	Method CheckShipLaunch()

-		Local x1:Int=GraphicsWidth()/2-100

-		Local y1:Int=GraphicsHeight()/2-100

-		Local x2:Int=GraphicsWidth()/2+100

-		Local y2:Int=GraphicsHeight()/2+100

-		

-		If waitdelay=0 Or KeyHit(GameConfig.khyper)

-			FlushKeys()

-			waiting=False

-		EndIf

-		

-		waitdelay:-1

-		

-		For Local a:TAsteroid=EachIn astlist

-			If saucer Or (a.x>x1 And a.x<x2 And a.y>y1 And a.y<y2)

-				SetAlpha(0.7-Float(waitdelay)/1000.0)

-				ship.Draw()

-				SetColor(255,0,0)

-				DrawLine(x1,y1,x2,y1)

-				DrawLine(x2,y1,x2,y2)

-				DrawLine(x2,y2,x1,y2)

-				DrawLine(x1,y2,x1,y1)

-				SetColor(255,255,255)

-				SetAlpha(1)

-				

-				GameGFX.font.Centre("press hyperspace to launch early",150)

-		

-				Return

-			EndIf

-		Next

-		

-		waiting=False

-	End Method

-	

-	Method Pause()

-		Local i:Timage=CreateImage(GraphicsWidth(),GraphicsHeight(),1,MASKEDIMAGE|DYNAMICIMAGE|FILTEREDIMAGE)

-		

-		GrabImage(i,0,0)

-		MidHandleImage(i)

-		

-		Local a:Int[]=[0,0,0,0,0,0,0,0]

-		Local ac:Int[]=[7,6,5,4,3,2,1,0]

-		

-		Sounds.Pause()

-		

-		While Not KeyHit(GameConfig.kpause)

-			Cls

-			

-			Local al:Double=0.3

-			

-			For Local f:Int=0 Until a.length

-				SetAlpha(al)

-				SetRotation(a[f])

-				SetScale(al,al)

-				DrawImage(i,GraphicsWidth()/2,GraphicsHeight()/2)

-				If ac[f]>0

-					ac[f]:-1

-				Else

-					a[f]:+1

-				EndIf

-				al:+0.1

-			Next

-			

-			SetRotation(0)

-			SetScale(1,1)

-			GameGFX.font.Centre("paused",GraphicsHeight()/2-16)

-			

-			Flip

-		Wend

-		

-		SetAlpha(1)

-		SetRotation(0)

-		SetScale(1,1)

-		

-		FlushKeys

-		Sounds.EndPause()

-	End Method

-	

-	Method Play:Int()

-		Cls

-		

-		If waiting And lives>=0

-			CheckShipLaunch()

-		EndIf

-		

-		If astlist.Count()=0

-			If leveldelay=0

-				leveldelay=200

-			Else

-				leveldelay:-1

-				If leveldelay=0

-					numast=Min(20,numast+2)

-					minspeed=Min(0.5,minspeed+0.05)

-					maxspeed=Min(2.0,maxspeed+0.05)

-					saucertime=Max(10,saucertime-20)

-					saucershot=Max(25,saucershot-10)

-					NewLevel()

-				EndIf

-			EndIf

-		EndIf

-		

-		If lives>-1 And saucer=Null

-			saucerdelay:+1

-			

-			If saucerdelay>saucertime

-				saucerdelay=0

-				If score<10000

-					saucer=TSaucer.Create(True,saucershot)

-				ElseIf score<20000

-					saucer=TSaucer.Create(Rand(0,1),saucershot)

-				Else

-					saucer=TSaucer.Create(False,saucershot)

-				EndIf

-			EndIf

-		EndIf

-				

-		

-		If lives>-1 And Not waiting

-			If KeyDown(GameConfig.kleft)

-				ship.ang:-20

-				If ship.ang<0

-					ship.ang:+3600

-				EndIf

-			EndIf

-	

-			If KeyDown(GameConfig.kright)

-				ship.ang=(ship.ang+20) Mod 3600

-			EndIf

-	

-			If KeyDown(GameConfig.kthrust)

-				Sounds.PlayerThrust(True)

-				dx=Min(2,Max(-2,dx+Lookup.si[ship.ang]*0.1))

-				dy=Min(2,Max(-2,dy+Lookup.co[ship.ang]*0.1))

-			Else

-				Sounds.PlayerThrust(False)

-			EndIf

-	

-			If KeyDown(GameConfig.khyper) And hyperdelay=0

-				x=Rand(10,GraphicsWidth()-10)

-				y=Rand(10,GraphicsHeight()-10)

-				dx=0

-				dy=0

-				hyperdelay=100

-			EndIf

-			

-			If KeyDown(GameConfig.kfire) And shotdelay=0

-				Sounds.PlayerFire()

-				bullets.AddLast(TShot.Create(ship))

-				shotdelay=25

-			EndIf

-			

-			If shotdelay>0

-				shotdelay:-1

-			EndIf

-			

-			If hyperdelay>0

-				hyperdelay:-1

-			EndIf

-			

-			If KeyHit(KEY_ESCAPE)

-				lives=-1

-				TParticleMachine.AsteroidExplosion(ship.x,ship.y)

-				Sounds.ShipExplosion()

-			EndIf

-

-			x:+dx

-			y:+dy

-			

-			If x<0

-				x:+GraphicsWidth()

-			EndIf

-			

-			If x>=GraphicsWidth()

-				x:-GraphicsWidth()

-			EndIf

-			

-			If y<0

-				y:+GraphicsHeight()

-			EndIf

-			

-			If y>=GraphicsHeight()

-				y:-GraphicsHeight()

-			EndIf

-			

-			ship.x=x

-			ship.y=y

-		EndIf

-		

-		SetAlpha(0.7)

-

-		For Local a:TAsteroid=EachIn astlist

-			a.Update()

-		Next

-		

-		For Local f:Int=1 To lives

-			lifeship.x=f*9

-			lifeship.Draw()

-		Next

-		

-		SetAlpha(1)

-		

-		GameGFX.font.Centre(score,0)

-		SetColor(255,255,255)

-		If lives<0

-			For Local s:TShot=EachIn bullets

-				s.Update(bullets,astlist,saucer)

-			Next

-		Else

-			For Local s:TShot=EachIn bullets

-				Local sc:Int=s.Update(bullets,astlist,saucer)

-				score:+sc

-				

-				If sc

-					If score>extralife

-						If extralife=10000

-							extralife=50000

-						Else

-							extralife:+50000

-						EndIf

-						lives:+1

-						Sounds.ExtraLife()

-					EndIf

-					

-					hit:+1

-					If hit>3

-						hit=0

-						If freq>15

-							freq:-1

-						EndIf

-					EndIf

-				EndIf

-			Next

-		EndIf

-		

-		Local hit:Int=False

-		

-		If saucer

-			SetAlpha(0.7)

-			If lives>-1 And Not waiting

-				hit=saucer.Update(ship)

-			Else

-				saucer.Update(Null)

-			EndIf

-

-			SetAlpha(1)

-			

-			If saucer.Finished()

-				saucer=Null

-				Sounds.NoSaucer()

-			EndIf

-		EndIf

-		

-		If lives<0

-			deaddelay:-1

-			GameGFX.font.Centre("game over",292)

-		Else

-			If Not waiting

-				SetAlpha(0.7)

-				

-				If hit Or Collides(ship.DrawToPointList())

-					TParticleMachine.ShipExplosion(ship.x,ship.y)

-					Sounds.ShipExplosion()

-

-					lives:-1

-					x=GraphicsWidth()/2

-					y=GraphicsHeight()/2

-					dx=0

-					dy=0

-					ship.ang=0

-					ship.x=x

-					ship.y=y

-					waiting=True

-					waitdelay=500

-					FlushKeys()

-				EndIf

-

-				SetAlpha(1)

-			EndIf

-		EndIf

-		

-		TParticleMachine.Process()

-		Sounds.Update(freq)

-		

-		Flip

-		

-		If KeyHit(GameConfig.kpause)

-			Pause()

-		EndIf

-		

-		Return deaddelay>0

-	End Method	

-	

-	Method Collides:Int(list:TList)

-		For Local a:TAsteroid=EachIn astlist

-			For Local p:TVectorGfxPoint=EachIn list

-				If a.obj.IsInside(p.x,p.y)

-					Return True

-				EndIf

-			Next

-		Next

-		

-		Return False

-	End Method

-

-End Type

+' Vectoroids
+'
+' Copyright 2005 Ian Cowburn
+'
+' $Id$
+'
+Strict
+Import noddybox.vector
+Import noddybox.bitmapfont
+Import noddybox.vectorgfx
+Import "types.bmx"
+Import "sounds.bmx"
+
+Type TGame
+
+	Field score:Int
+	Field astlist:TList
+	Field bullets:TList
+	Field lives:Int
+	Field ship:TVectorGfxObject
+	Field lifeship:TVectorGfxObject
+	Field shotdelay:Int
+	Field deaddelay:Int
+	Field x:Double
+	Field y:Double
+	Field dx:Double
+	Field dy:Double
+	Field waiting:Int
+	Field freq:Int
+	Field hit:Int
+	Field hyperdelay:Int
+	Field waitdelay:Int
+	Field leveldelay:Int
+	Field minspeed:Double
+	Field maxspeed:Double
+	Field numast:Int
+	Field extralife:Int
+	Field saucerdelay:Int
+	Field saucertime:Int
+	Field saucershot:Int
+	Field saucer:TSaucer
+	
+	Method New()
+		score=0
+		astlist=CreateList()
+		bullets=CreateList()
+		lives=2
+		ship=GameGFX.ship.Clone()
+		lifeship=GameGFX.ship.Clone()
+		deaddelay=250
+		waiting=True
+		waitdelay=500
+		x=GraphicsWidth()/2
+		y=GraphicsHeight()/2
+		dx=0
+		dy=0
+		ship.ang=0
+		ship.x=x
+		ship.y=y
+		leveldelay=0
+		extralife=10000
+		
+		lifeship.y=5
+		lifeship.scale=0.5
+		
+		minspeed=0.1
+		maxspeed=1.0
+		numast=5
+	
+		saucertime=120*50
+		saucerdelay=0
+		saucershot=150
+		
+		NewLevel()
+	End Method
+	
+	Method NewLevel()
+		TAsteroid.minspeed=minspeed
+		TAsteroid.maxspeed=maxspeed
+		For Local f:Int=0 Until numast
+			astlist.AddLast(TAsteroid.Create())
+		Next
+		freq=30
+		hit=0
+		bullets.Clear()
+		shotdelay=0
+		hyperdelay=0
+	End Method
+	
+	Method CheckShipLaunch()
+		Local x1:Int=GraphicsWidth()/2-100
+		Local y1:Int=GraphicsHeight()/2-100
+		Local x2:Int=GraphicsWidth()/2+100
+		Local y2:Int=GraphicsHeight()/2+100
+		
+		If waitdelay=0 Or KeyHit(GameConfig.khyper)
+			FlushKeys()
+			waiting=False
+		EndIf
+		
+		waitdelay:-1
+		
+		For Local a:TAsteroid=EachIn astlist
+			If saucer Or (a.x>x1 And a.x<x2 And a.y>y1 And a.y<y2)
+				SetAlpha(0.7-Float(waitdelay)/1000.0)
+				ship.Draw()
+				SetColor(255,0,0)
+				DrawLine(x1,y1,x2,y1)
+				DrawLine(x2,y1,x2,y2)
+				DrawLine(x2,y2,x1,y2)
+				DrawLine(x1,y2,x1,y1)
+				SetColor(255,255,255)
+				SetAlpha(1)
+				
+				GameGFX.font.Centre("press hyperspace to launch early",150)
+		
+				Return
+			EndIf
+		Next
+		
+		waiting=False
+	End Method
+	
+	Method Pause()
+		Local i:Timage=CreateImage(GraphicsWidth(),GraphicsHeight(),1,MASKEDIMAGE|DYNAMICIMAGE|FILTEREDIMAGE)
+		
+		GrabImage(i,0,0)
+		MidHandleImage(i)
+		
+		Local a:Int[]=[0,0,0,0,0,0,0,0]
+		Local ac:Int[]=[7,6,5,4,3,2,1,0]
+		
+		Sounds.Pause()
+		
+		While Not KeyHit(GameConfig.kpause)
+			Cls
+			
+			Local al:Double=0.3
+			
+			For Local f:Int=0 Until a.length
+				SetAlpha(al)
+				SetRotation(a[f])
+				SetScale(al,al)
+				DrawImage(i,GraphicsWidth()/2,GraphicsHeight()/2)
+				If ac[f]>0
+					ac[f]:-1
+				Else
+					a[f]:+1
+				EndIf
+				al:+0.1
+			Next
+			
+			SetRotation(0)
+			SetScale(1,1)
+			GameGFX.font.Centre("paused",GraphicsHeight()/2-16)
+			
+			Flip
+		Wend
+		
+		SetAlpha(1)
+		SetRotation(0)
+		SetScale(1,1)
+		
+		FlushKeys
+		Sounds.EndPause()
+	End Method
+	
+	Method Play:Int()
+		Cls
+		
+		If waiting And lives>=0
+			CheckShipLaunch()
+		EndIf
+		
+		If astlist.Count()=0
+			If leveldelay=0
+				leveldelay=200
+			Else
+				leveldelay:-1
+				If leveldelay=0
+					numast=Min(20,numast+2)
+					minspeed=Min(0.5,minspeed+0.05)
+					maxspeed=Min(2.0,maxspeed+0.05)
+					saucertime=Max(10,saucertime-20)
+					saucershot=Max(25,saucershot-10)
+					NewLevel()
+				EndIf
+			EndIf
+		EndIf
+		
+		If lives>-1 And saucer=Null
+			saucerdelay:+1
+			
+			If saucerdelay>saucertime
+				saucerdelay=0
+				If score<10000
+					saucer=TSaucer.Create(True,saucershot)
+				ElseIf score<20000
+					saucer=TSaucer.Create(Rand(0,1),saucershot)
+				Else
+					saucer=TSaucer.Create(False,saucershot)
+				EndIf
+			EndIf
+		EndIf
+				
+		
+		If lives>-1 And Not waiting
+			If KeyDown(GameConfig.kleft)
+				ship.ang:-20
+				If ship.ang<0
+					ship.ang:+3600
+				EndIf
+			EndIf
+	
+			If KeyDown(GameConfig.kright)
+				ship.ang=(ship.ang+20) Mod 3600
+			EndIf
+	
+			If KeyDown(GameConfig.kthrust)
+				Sounds.PlayerThrust(True)
+				dx=Min(2,Max(-2,dx+Lookup.si[ship.ang]*0.1))
+				dy=Min(2,Max(-2,dy+Lookup.co[ship.ang]*0.1))
+			Else
+				Sounds.PlayerThrust(False)
+			EndIf
+	
+			If KeyDown(GameConfig.khyper) And hyperdelay=0
+				x=Rand(10,GraphicsWidth()-10)
+				y=Rand(10,GraphicsHeight()-10)
+				dx=0
+				dy=0
+				hyperdelay=100
+			EndIf
+			
+			If KeyDown(GameConfig.kfire) And shotdelay=0
+				Sounds.PlayerFire()
+				bullets.AddLast(TShot.Create(ship))
+				shotdelay=25
+			EndIf
+			
+			If shotdelay>0
+				shotdelay:-1
+			EndIf
+			
+			If hyperdelay>0
+				hyperdelay:-1
+			EndIf
+			
+			If KeyHit(KEY_ESCAPE)
+				lives=-1
+				TParticleMachine.AsteroidExplosion(ship.x,ship.y)
+				Sounds.ShipExplosion()
+			EndIf
+
+			x:+dx
+			y:+dy
+			
+			If x<0
+				x:+GraphicsWidth()
+			EndIf
+			
+			If x>=GraphicsWidth()
+				x:-GraphicsWidth()
+			EndIf
+			
+			If y<0
+				y:+GraphicsHeight()
+			EndIf
+			
+			If y>=GraphicsHeight()
+				y:-GraphicsHeight()
+			EndIf
+			
+			ship.x=x
+			ship.y=y
+		EndIf
+		
+		SetAlpha(0.7)
+
+		For Local a:TAsteroid=EachIn astlist
+			a.Update()
+		Next
+		
+		For Local f:Int=1 To lives
+			lifeship.x=f*9
+			lifeship.Draw()
+		Next
+		
+		SetAlpha(1)
+		
+		GameGFX.font.Centre(score,0)
+		SetColor(255,255,255)
+		If lives<0
+			For Local s:TShot=EachIn bullets
+				s.Update(bullets,astlist,saucer)
+			Next
+		Else
+			For Local s:TShot=EachIn bullets
+				Local sc:Int=s.Update(bullets,astlist,saucer)
+				score:+sc
+				
+				If sc
+					If score>extralife
+						If extralife=10000
+							extralife=50000
+						Else
+							extralife:+50000
+						EndIf
+						lives:+1
+						Sounds.ExtraLife()
+					EndIf
+					
+					hit:+1
+					If hit>3
+						hit=0
+						If freq>15
+							freq:-1
+						EndIf
+					EndIf
+				EndIf
+			Next
+		EndIf
+		
+		Local hit:Int=False
+		
+		If saucer
+			SetAlpha(0.7)
+			If lives>-1 And Not waiting
+				hit=saucer.Update(ship)
+			Else
+				saucer.Update(Null)
+			EndIf
+
+			SetAlpha(1)
+			
+			If saucer.Finished()
+				saucer=Null
+				Sounds.NoSaucer()
+			EndIf
+		EndIf
+		
+		If lives<0
+			deaddelay:-1
+			GameGFX.font.Centre("game over",292)
+		Else
+			If Not waiting
+				SetAlpha(0.7)
+				
+				If hit Or Collides(ship.DrawToPointList())
+					TParticleMachine.ShipExplosion(ship.x,ship.y)
+					Sounds.ShipExplosion()
+
+					lives:-1
+					x=GraphicsWidth()/2
+					y=GraphicsHeight()/2
+					dx=0
+					dy=0
+					ship.ang=0
+					ship.x=x
+					ship.y=y
+					waiting=True
+					waitdelay=500
+					FlushKeys()
+				EndIf
+
+				SetAlpha(1)
+			EndIf
+		EndIf
+		
+		TParticleMachine.Process()
+		Sounds.Update(freq)
+		
+		Flip
+		
+		If KeyHit(GameConfig.kpause)
+			Pause()
+		EndIf
+		
+		Return deaddelay>0
+	End Method	
+	
+	Method Collides:Int(list:TList)
+		For Local a:TAsteroid=EachIn astlist
+			For Local p:TVectorGfxPoint=EachIn list
+				If a.obj.IsInside(p.x,p.y)
+					Return True
+				EndIf
+			Next
+		Next
+		
+		Return False
+	End Method
+
+End Type
diff --git a/hiscore.bmx b/hiscore.bmx
index ce18e01..99f436e 100644
--- a/hiscore.bmx
+++ b/hiscore.bmx
@@ -1,195 +1,195 @@
-' Vectoroids

-'

-' Copyright 2005 Ian Cowburn

-'

-' $Id$

-'

-Strict

-Import "types.bmx"

-

-Type THiscore

-

-	Const NUM:Int=5

-	Field score:THiscoreEnt[]

-	Field col:Int[]

-	Field coli:Int[]

-	

-	Function Load:THiscore()

-		Local o:THiscore=New THiscore

-

-		o.score=New THiscoreEnt[NUM]

-		o.col=New Int[NUM]

-		o.coli=New Int[NUM]

-		

-		For Local f:Int=0 Until NUM

-			o.col[f]=254-f*20

-			o.coli[f]=1

-		Next

-		

-		Local s:TStream=ReadStream("vectoroids.hiscore")

-		

-		If s=Null

-			For Local f:Int=0 Until NUM

-				o.score[f]=THiscoreEnt.Create("SV",10000-f*2000)

-			Next

-		Else

-			s=LittleEndianStream(s)

-			

-			For Local f:Int=0 Until NUM

-				Local sc:Int=s.ReadInt()

-				Local n:String=s.ReadLine()

-				o.score[f]=THiscoreEnt.Create(n,sc)

-			Next

-

-			s.Close()

-		EndIf

-		

-		Return o

-	End Function

-	

-	Method Save()

-		Local s:TStream=WriteStream("vectoroids.hiscore")

-		

-		If s=Null

-			Return

-		EndIf

-		

-		s=LittleEndianStream(s)

-		

-		For Local sc:THiscoreEnt=EachIn score

-			s.WriteInt(sc.score)

-			s.WriteLine(sc.name)

-		Next

-

-		s.Close()

-	End Method

-	

-	Method Display(y:Int)

-		GameGFX.font.Centre("ALL TIME HIGH SCORES",y)

-		y:+20

-		

-		For Local f:Int=0 Until NUM

-			GameGFX.font.DrawColoured(score[f].name,300,y,col[f],col[f],col[f])

-			Local l:Int=GameGFX.font.TextWidth(score[f].score)

-			GameGFX.font.DrawColoured(score[f].score,500-l,y,col[f],col[f],col[f])

-			y:+10

-			col[f]:+coli[f]

-			

-			If col[f]=255 Or col[f]=150

-				coli[f]=-coli[f]

-			EndIf

-		Next

-	End Method

-	

-	Method Check(sc:Int)

-		If sc<score[NUM-1].score

-			Return

-		EndIf

-		

-		Local done:Int=False

-		Local a:String="abcdefghijklmnopqrstuvwxyz{}"

-		Local cur:Int=0

-		Local nm:String=""

-		Local last:Int=0

-		Local del:Int=0

-		Local tx:Int=GraphicsWidth()/2-GameGFX.font.TextWidth("___")

-		Local press:Int=False

-		

-		While Not done

-			Cls

-			

-			GameGFX.font.Centre("enter your name for",0)

-			GameGFX.font.Centre("the hall of fame",20)

-			

-			SetScale(2,2)

-			GameGFX.font.Draw("___",tx,300)

-			GameGFX.font.Draw(nm+a[cur..cur+1],tx,300)

-			SetScale(1,1)

-

-			If del

-				del:-1

-			EndIf

-			

-			If KeyDown(GameConfig.kleft)

-				If last<>GameConfig.kleft Or del=0

-					If last=GameConfig.kleft

-						del=5

-					Else

-						del=20

-					EndIf

-					last=GameConfig.kleft

-					cur:-1

-					If cur<0

-						cur:+a.length						

-					EndIf

-				EndIf

-				press=True

-			ElseIf KeyDown(GameConfig.kright)

-				If last<>GameConfig.kright Or del=0

-					If last=GameConfig.kright

-						del=5

-					Else

-						del=20

-					EndIf

-					last=GameConfig.kright

-					cur:+1

-					If cur=a.length

-						cur=0

-					EndIf

-				EndIf

-				press=True

-			Else

-				press=False

-				last=0

-				del=0

-			EndIf

-

-			If KeyHit(GameConfig.khyper)

-				Local c:String=a[cur..cur+1]

-				

-				If c="{"

-					If nm.length>1

-						nm=nm[0..nm.length-1]

-					ElseIf nm.length=1

-						nm=""

-					EndIf

-				Else If c="}"

-					done=True

-				Else

-					nm:+c

-					If nm.length=3

-						done=True

-					EndIf

-				EndIf

-			EndIf

-			

-			Flip

-		Wend

-		

-		score[NUM-1]=THiscoreEnt.Create(nm.ToUpper(),sc)

-		score.Sort()

-		Save()

-	End Method

-End Type

-

-Type THiscoreEnt

-	Field	score:Int

-	Field	name:String

-	

-	Function Create:THiscoreEnt(name:String, score:Int)

-		Local o:THiscoreEnt=New THiscoreEnt

-		o.score=score

-		o.name=name

-		Return o

-	End Function

-	

-	Method Compare(o:Object)

-		Local os:THiscoreEnt=THiscoreEnt(o)

-		

-		If os

-			Return os.score-score

-		Else

-			Return 0

-		EndIf

-	End Method

-End Type

+' Vectoroids
+'
+' Copyright 2005 Ian Cowburn
+'
+' $Id$
+'
+Strict
+Import "types.bmx"
+
+Type THiscore
+
+	Const NUM:Int=5
+	Field score:THiscoreEnt[]
+	Field col:Int[]
+	Field coli:Int[]
+	
+	Function Load:THiscore()
+		Local o:THiscore=New THiscore
+
+		o.score=New THiscoreEnt[NUM]
+		o.col=New Int[NUM]
+		o.coli=New Int[NUM]
+		
+		For Local f:Int=0 Until NUM
+			o.col[f]=254-f*20
+			o.coli[f]=1
+		Next
+		
+		Local s:TStream=ReadStream("vectoroids.hiscore")
+		
+		If s=Null
+			For Local f:Int=0 Until NUM
+				o.score[f]=THiscoreEnt.Create("SV",10000-f*2000)
+			Next
+		Else
+			s=LittleEndianStream(s)
+			
+			For Local f:Int=0 Until NUM
+				Local sc:Int=s.ReadInt()
+				Local n:String=s.ReadLine()
+				o.score[f]=THiscoreEnt.Create(n,sc)
+			Next
+
+			s.Close()
+		EndIf
+		
+		Return o
+	End Function
+	
+	Method Save()
+		Local s:TStream=WriteStream("vectoroids.hiscore")
+		
+		If s=Null
+			Return
+		EndIf
+		
+		s=LittleEndianStream(s)
+		
+		For Local sc:THiscoreEnt=EachIn score
+			s.WriteInt(sc.score)
+			s.WriteLine(sc.name)
+		Next
+
+		s.Close()
+	End Method
+	
+	Method Display(y:Int)
+		GameGFX.font.Centre("ALL TIME HIGH SCORES",y)
+		y:+20
+		
+		For Local f:Int=0 Until NUM
+			GameGFX.font.Draw(score[f].name,300,y,col[f],col[f],col[f])
+			Local l:Int=GameGFX.font.TextWidth(score[f].score)
+			GameGFX.font.Draw(score[f].score,500-l,y,col[f],col[f],col[f])
+			y:+10
+			col[f]:+coli[f]
+			
+			If col[f]=255 Or col[f]=150
+				coli[f]=-coli[f]
+			EndIf
+		Next
+	End Method
+	
+	Method Check(sc:Int)
+		If sc<score[NUM-1].score
+			Return
+		EndIf
+		
+		Local done:Int=False
+		Local a:String="abcdefghijklmnopqrstuvwxyz{}"
+		Local cur:Int=0
+		Local nm:String=""
+		Local last:Int=0
+		Local del:Int=0
+		Local tx:Int=GraphicsWidth()/2-GameGFX.font.TextWidth("___")
+		Local press:Int=False
+		
+		While Not done
+			Cls
+			
+			GameGFX.font.Centre("enter your name for",0)
+			GameGFX.font.Centre("the hall of fame",20)
+			
+			SetScale(2,2)
+			GameGFX.font.Draw("___",tx,300)
+			GameGFX.font.Draw(nm+a[cur..cur+1],tx,300)
+			SetScale(1,1)
+
+			If del
+				del:-1
+			EndIf
+			
+			If KeyDown(GameConfig.kleft)
+				If last<>GameConfig.kleft Or del=0
+					If last=GameConfig.kleft
+						del=5
+					Else
+						del=20
+					EndIf
+					last=GameConfig.kleft
+					cur:-1
+					If cur<0
+						cur:+a.length						
+					EndIf
+				EndIf
+				press=True
+			ElseIf KeyDown(GameConfig.kright)
+				If last<>GameConfig.kright Or del=0
+					If last=GameConfig.kright
+						del=5
+					Else
+						del=20
+					EndIf
+					last=GameConfig.kright
+					cur:+1
+					If cur=a.length
+						cur=0
+					EndIf
+				EndIf
+				press=True
+			Else
+				press=False
+				last=0
+				del=0
+			EndIf
+
+			If KeyHit(GameConfig.khyper)
+				Local c:String=a[cur..cur+1]
+				
+				If c="{"
+					If nm.length>1
+						nm=nm[0..nm.length-1]
+					ElseIf nm.length=1
+						nm=""
+					EndIf
+				Else If c="}"
+					done=True
+				Else
+					nm:+c
+					If nm.length=3
+						done=True
+					EndIf
+				EndIf
+			EndIf
+			
+			Flip
+		Wend
+		
+		score[NUM-1]=THiscoreEnt.Create(nm.ToUpper(),sc)
+		score.Sort()
+		Save()
+	End Method
+End Type
+
+Type THiscoreEnt
+	Field	score:Int
+	Field	name:String
+	
+	Function Create:THiscoreEnt(name:String, score:Int)
+		Local o:THiscoreEnt=New THiscoreEnt
+		o.score=score
+		o.name=name
+		Return o
+	End Function
+	
+	Method Compare(o:Object)
+		Local os:THiscoreEnt=THiscoreEnt(o)
+		
+		If os
+			Return os.score-score
+		Else
+			Return 0
+		EndIf
+	End Method
+End Type
diff --git a/sounds.bmx b/sounds.bmx
index 1c7ffe0..2936b49 100644
--- a/sounds.bmx
+++ b/sounds.bmx
@@ -1,139 +1,139 @@
-' Vectoroids

-'

-' Copyright 2005 Ian Cowburn

-'

-' $Id$

-'

-Strict

-

-Incbin "SFX/explode1.wav"

-Incbin "SFX/explode2.wav"

-Incbin "SFX/explode3.wav"

-Incbin "SFX/fire.wav"

-Incbin "SFX/life.wav"

-Incbin "SFX/lsaucer.wav"

-Incbin "SFX/sfire.wav"

-Incbin "SFX/ssaucer.wav"

-Incbin "SFX/thrust.wav"

-Incbin "SFX/thumphi.wav"

-Incbin "SFX/thumplo.wav"

-

-

-Type Sounds

-	Global explode:TSound[]

-	Global fire:TSound

-	Global life:TSound

-	Global lsaucer:TSound

-	Global sfire:TSound

-	Global ssaucer:TSound

-	Global thrust:TSound

-	Global thumphi:TSound

-	Global thumplo:TSound

-	

-	Global thrust_channel:TChannel

-	Global ssaucer_channel:TChannel

-	Global lsaucer_channel:TChannel

-	

-	Global frame:Int

-	Global hi:Int

-	

-	Global thrust_on:Int

-	Global small_on:Int

-	Global large_on:Int

-

-	Function Init()

-		explode=New TSound[3]

-		explode[2]=LoadSound("incbin::SFX/explode1.wav")

-		explode[1]=LoadSound("incbin::SFX/explode2.wav")

-		explode[0]=LoadSound("incbin::SFX/explode3.wav")

-		fire=LoadSound("incbin::SFX/fire.wav")

-		life=LoadSound("incbin::SFX/life.wav")

-		lsaucer=LoadSound("incbin::SFX/lsaucer.wav",True)

-		sfire=LoadSound("incbin::SFX/sfire.wav")

-		ssaucer=LoadSound("incbin::SFX/ssaucer.wav",True)

-		thrust=LoadSound("incbin::SFX/thrust.wav",True)

-		thumplo=LoadSound("incbin::SFX/thumplo.wav")

-		thumphi=LoadSound("incbin::SFX/thumphi.wav")

-		

-		frame=0

-		hi=True

-		

-		thrust_channel=thrust.Cue()

-		ssaucer_channel=ssaucer.Cue()

-		lsaucer_channel=lsaucer.Cue()

-	End Function

-	

-	Function Update(freq:Int)

-		If frame>freq

-			frame=0

-			

-			If hi

-				thumphi.Play()

-			Else

-				thumplo.Play()

-			EndIf

-			

-			hi=Not hi

-		EndIf

-		frame:+1

-	End Function

-	

-	Function AsteroidExplosion(size:Int)

-		explode[size].Play()

-	End Function

-	

-	Function ShipExplosion()

-		explode[0].Play()

-	End Function

-	

-	Function PlayerFire()

-		fire.Play()

-	End Function

-	

-	Function SaucerFire()

-		sfire.Play()

-	End Function

-	

-	Function ExtraLife()

-		life.Play()

-	End Function

-

-	Function PlayerThrust(on:Int)

-		thrust_channel.SetPaused(Not on)

-		thrust_on=on

-	End Function

-	

-	Function SmallSaucer()

-		ssaucer_channel.SetPaused(False)

-		small_on=True

-	End Function

-	

-	Function LargeSaucer()

-		lsaucer_channel.SetPaused(False)

-		large_on=True

-	End Function

-	

-	Function NoSaucer()

-		lsaucer_channel.SetPaused(True)

-		ssaucer_channel.SetPaused(True)

-		small_on=False

-		large_on=False

-	End Function

-	

-	Function Clear()

-		PlayerThrust(False)

-		NoSaucer()

-	End Function

-	

-	Function Pause()

-		thrust_channel.SetPaused(True)

-		ssaucer_channel.SetPaused(True)

-		lsaucer_channel.SetPaused(True)

-	End Function

-	

-	Function EndPause()

-		thrust_channel.SetPaused(Not thrust_on)

-		ssaucer_channel.SetPaused(Not small_on)

-		lsaucer_channel.SetPaused(Not large_on)

-	End Function

-End Type

+' Vectoroids
+'
+' Copyright 2005 Ian Cowburn
+'
+' $Id$
+'
+Strict
+
+Incbin "SFX/explode1.wav"
+Incbin "SFX/explode2.wav"
+Incbin "SFX/explode3.wav"
+Incbin "SFX/fire.wav"
+Incbin "SFX/life.wav"
+Incbin "SFX/lsaucer.wav"
+Incbin "SFX/sfire.wav"
+Incbin "SFX/ssaucer.wav"
+Incbin "SFX/thrust.wav"
+Incbin "SFX/thumphi.wav"
+Incbin "SFX/thumplo.wav"
+
+
+Type Sounds
+	Global explode:TSound[]
+	Global fire:TSound
+	Global life:TSound
+	Global lsaucer:TSound
+	Global sfire:TSound
+	Global ssaucer:TSound
+	Global thrust:TSound
+	Global thumphi:TSound
+	Global thumplo:TSound
+	
+	Global thrust_channel:TChannel
+	Global ssaucer_channel:TChannel
+	Global lsaucer_channel:TChannel
+	
+	Global frame:Int
+	Global hi:Int
+	
+	Global thrust_on:Int
+	Global small_on:Int
+	Global large_on:Int
+
+	Function Init()
+		explode=New TSound[3]
+		explode[2]=LoadSound("incbin::SFX/explode1.wav")
+		explode[1]=LoadSound("incbin::SFX/explode2.wav")
+		explode[0]=LoadSound("incbin::SFX/explode3.wav")
+		fire=LoadSound("incbin::SFX/fire.wav")
+		life=LoadSound("incbin::SFX/life.wav")
+		lsaucer=LoadSound("incbin::SFX/lsaucer.wav",True)
+		sfire=LoadSound("incbin::SFX/sfire.wav")
+		ssaucer=LoadSound("incbin::SFX/ssaucer.wav",True)
+		thrust=LoadSound("incbin::SFX/thrust.wav",True)
+		thumplo=LoadSound("incbin::SFX/thumplo.wav")
+		thumphi=LoadSound("incbin::SFX/thumphi.wav")
+		
+		frame=0
+		hi=True
+		
+		thrust_channel=thrust.Cue()
+		ssaucer_channel=ssaucer.Cue()
+		lsaucer_channel=lsaucer.Cue()
+	End Function
+	
+	Function Update(freq:Int)
+		If frame>freq
+			frame=0
+			
+			If hi
+				thumphi.Play()
+			Else
+				thumplo.Play()
+			EndIf
+			
+			hi=Not hi
+		EndIf
+		frame:+1
+	End Function
+	
+	Function AsteroidExplosion(size:Int)
+		explode[size].Play()
+	End Function
+	
+	Function ShipExplosion()
+		explode[0].Play()
+	End Function
+	
+	Function PlayerFire()
+		fire.Play()
+	End Function
+	
+	Function SaucerFire()
+		sfire.Play()
+	End Function
+	
+	Function ExtraLife()
+		life.Play()
+	End Function
+
+	Function PlayerThrust(on:Int)
+		thrust_channel.SetPaused(Not on)
+		thrust_on=on
+	End Function
+	
+	Function SmallSaucer()
+		ssaucer_channel.SetPaused(False)
+		small_on=True
+	End Function
+	
+	Function LargeSaucer()
+		lsaucer_channel.SetPaused(False)
+		large_on=True
+	End Function
+	
+	Function NoSaucer()
+		lsaucer_channel.SetPaused(True)
+		ssaucer_channel.SetPaused(True)
+		small_on=False
+		large_on=False
+	End Function
+	
+	Function Clear()
+		PlayerThrust(False)
+		NoSaucer()
+	End Function
+	
+	Function Pause()
+		thrust_channel.SetPaused(True)
+		ssaucer_channel.SetPaused(True)
+		lsaucer_channel.SetPaused(True)
+	End Function
+	
+	Function EndPause()
+		thrust_channel.SetPaused(Not thrust_on)
+		ssaucer_channel.SetPaused(Not small_on)
+		lsaucer_channel.SetPaused(Not large_on)
+	End Function
+End Type
diff --git a/types.bmx b/types.bmx
index 2f2175a..e6abffd 100644
--- a/types.bmx
+++ b/types.bmx
@@ -81,7 +81,7 @@ Type GameConfig
 			kfire=KEY_Q
 			kthrust=KEY_S
 			khyper=KEY_SPACE
-			kpause=KEY_P
+			kpause=KEY_H
 			Return
 		EndIf
 		
diff --git a/vectoroids.bmx b/vectoroids.bmx
index b4018bc..09be3e8 100644
--- a/vectoroids.bmx
+++ b/vectoroids.bmx
@@ -1,205 +1,205 @@
-' Vectoroids

-'

-' Copyright 2005 Ian Cowburn

-'

-' $Id$

-'

-Strict

-

-Import noddybox.vector

-Import noddybox.bitmapfont

-Import noddybox.keysyms

-

-Import "types.bmx"

-Import "game.bmx"

-Import "sounds.bmx"

-Import "hiscore.bmx"

-

-

-' Initialise

-'

-SeedRnd(MilliSecs())

-

-?Win32

-If Switch("--directx")

-	SetGraphicsDriver D3D7Max2DDriver()

-Else

-	SetGraphicsDriver GLMax2DDriver()

-EndIf

-?

-

-Graphics 800,600,32,60

-HideMouse

-

-SetBlend(ALPHABLEND)

-SetAlpha(1.0)

-

-' Globals

-'

-Lookup.Init()

-GameGFX.Init()

-TParticleMachine.Init()

-GameConfig.Load()

-Sounds.Init()

-

-Global quit:Int=False

-Global hiscore:THiscore=THiscore.Load()

-

-' Main code

-'

-Menu()

-

-While Not quit

-	Local game:TGame=New TGame

-	While game.Play()

-	Wend

-	Sounds.Clear()

-	TParticleMachine.Clear()

-	hiscore.Check(game.score)

-	Menu()

-Wend

-

-EndGraphics

-End

-

-

-' ===================================

-' Argument Routines

-' ===================================

-'

-Function Switch:Int(s:String)

-	For Local a:String=EachIn AppArgs

-		If a=s

-			Return True

-		EndIf

-	Next

-	

-	Return False

-End Function

-

-' ===================================

-' Menu Routines

-' ===================================

-'

-Function Menu()

-	FlushKeys()

-	

-	Local done:Int=False

-	

-	Local defkey:Int=0

-	Local obj:TVectorGfxObject

-	

-	Select Rand(1,2)

-		Case 1

-			obj=GameGFX.large.Clone()

-		Case 2

-			obj=GameGFX.ship.Clone()

-	End Select

-	

-	obj.scale=5

-	obj.x=GraphicsWidth()/2

-	obj.y=GraphicsHeight()/2

-	

-	While Not done

-		If KeyHit(KEY_ESCAPE)

-			done=True

-			quit=True

-		EndIf

-		

-		Cls

-		

-		obj.ang=(obj.ang+1) Mod 3600

-

-		If defkey=0

-			SetAlpha(0.5)

-		Else

-			SetAlpha(0.2)

-		EndIf

-		SetColor(255,255,255)

-		obj.Draw()

-		SetAlpha(1)

-		

-		If defkey>0

-		

-			If defkey=7

-				GameGFX.font.Centre("PRESS A KEY TO GO BACK TO THE MENU",120)

-			Else

-				GameGFX.font.Centre("DEFINE KEYS",120)

-			EndIf

-			

-			GameGFX.font.DrawColoured("left",250,150,255,255*(defkey=1),0)

-			GameGFX.font.DrawColoured("right",250,170,255,255*(defkey=2),0)

-			GameGFX.font.DrawColoured("thrust",250,190,255,255*(defkey=3),0)

-			GameGFX.font.DrawColoured("fire",250,210,255,255*(defkey=4),0)

-			GameGFX.font.DrawColoured("hyperspace",250,230,255,255*(defkey=5),0)

-			GameGFX.font.DrawColoured("pause",250,250,255,255*(defkey=6),0)

-			GameGFX.font.DrawColoured(KeySym(GameConfig.kleft).ToLower(),500,150,255,255*(defkey=1),0)

-			GameGFX.font.DrawColoured(KeySym(GameConfig.kright).ToLower(),500,170,255,255*(defkey=2),0)

-			GameGFX.font.DrawColoured(KeySym(GameConfig.kthrust).ToLower(),500,190,255,255*(defkey=3),0)

-			GameGFX.font.DrawColoured(KeySym(GameConfig.kfire).ToLower(),500,210,255,255*(defkey=4),0)

-			GameGFX.font.DrawColoured(KeySym(GameConfig.khyper).ToLower(),500,230,255,255*(defkey=5),0)

-			GameGFX.font.DrawColoured(KeySym(GameConfig.kpause).ToLower(),500,250,255,255*(defkey=6),0)

-			

-			Local k:Int=0

-			

-			For Local f:Int=1 To 255

-				If KeyHit(f)

-					k=f

-					Continue

-				EndIf

-			Next

-			

-			If k<>0

-				Select defkey

-					Case 1

-						GameConfig.kleft=k

-					Case 2

-						GameConfig.kright=k

-					Case 3

-						GameConfig.kthrust=k

-					Case 4

-						GameConfig.kfire=k

-					Case 5

-						GameConfig.khyper=k

-					Case 6

-						GameConfig.kpause=k

-				End Select

-				

-				defkey:+1

-				

-				If defkey=8

-					GameConfig.Save()

-					defkey=0

-				EndIf

-			EndIf

-		Else

-			GameGFX.font.CentreColoured("vectoroids",0,255,255,0)

-			GameGFX.font.CentreColoured("COPYRIGHT | 2005 IAN C",20,255,0,0)

-		

-			GameGFX.font.Centre("press space to play",150)

-			GameGFX.font.Centre("press r to redefine keys",190)

-			GameGFX.font.Centre("EXTRA LIFE AT 10000 PTS THEN EVERY 50000 PTS",520)

-			GameGFX.font.Centre("ESCAPE TO QUIT",560)

-			GameGFX.font.CentreColoured("BASED ON ASTEROIDS | 1979 ~~ ATARI INC.",580,255,0,0)

-			

-			hiscore.Display(400)

-			

-			If KeyHit(KEY_ESCAPE)

-				done=True

-				quit=True

-			EndIf

-			

-			If KeyHit(KEY_R)

-				FlushKeys()

-				defkey=1

-			EndIf

-			

-			If KeyHit(KEY_SPACE)

-				FlushKeys()

-				done=True

-			EndIf

-		EndIf

-		

-		Flip

-	Wend

-End Function

+' Vectoroids
+'
+' Copyright 2005 Ian Cowburn
+'
+' $Id$
+'
+Strict
+
+Import noddybox.vector
+Import noddybox.bitmapfont
+Import noddybox.keysyms
+
+Import "types.bmx"
+Import "game.bmx"
+Import "sounds.bmx"
+Import "hiscore.bmx"
+
+
+' Initialise
+'
+SeedRnd(MilliSecs())
+
+?Win32
+If Switch("--directx")
+	SetGraphicsDriver D3D7Max2DDriver()
+Else
+	SetGraphicsDriver GLMax2DDriver()
+EndIf
+?
+
+Graphics 800,600,32,60
+HideMouse
+
+SetBlend(ALPHABLEND)
+SetAlpha(1.0)
+
+' Globals
+'
+Lookup.Init()
+GameGFX.Init()
+TParticleMachine.Init()
+GameConfig.Load()
+Sounds.Init()
+
+Global quit:Int=False
+Global hiscore:THiscore=THiscore.Load()
+
+' Main code
+'
+Menu()
+
+While Not quit
+	Local game:TGame=New TGame
+	While game.Play()
+	Wend
+	Sounds.Clear()
+	TParticleMachine.Clear()
+	hiscore.Check(game.score)
+	Menu()
+Wend
+
+EndGraphics
+End
+
+
+' ===================================
+' Argument Routines
+' ===================================
+'
+Function Switch:Int(s:String)
+	For Local a:String=EachIn AppArgs
+		If a=s
+			Return True
+		EndIf
+	Next
+	
+	Return False
+End Function
+
+' ===================================
+' Menu Routines
+' ===================================
+'
+Function Menu()
+	FlushKeys()
+	
+	Local done:Int=False
+	
+	Local defkey:Int=0
+	Local obj:TVectorGfxObject
+	
+	Select Rand(1,2)
+		Case 1
+			obj=GameGFX.large.Clone()
+		Case 2
+			obj=GameGFX.ship.Clone()
+	End Select
+	
+	obj.scale=5
+	obj.x=GraphicsWidth()/2
+	obj.y=GraphicsHeight()/2
+	
+	While Not done
+		If KeyHit(KEY_ESCAPE)
+			done=True
+			quit=True
+		EndIf
+		
+		Cls
+		
+		obj.ang=(obj.ang+1) Mod 3600
+
+		If defkey=0
+			SetAlpha(0.5)
+		Else
+			SetAlpha(0.2)
+		EndIf
+		SetColor(255,255,255)
+		obj.Draw()
+		SetAlpha(1)
+		
+		If defkey>0
+		
+			If defkey=7
+				GameGFX.font.Centre("PRESS A KEY TO GO BACK TO THE MENU",120)
+			Else
+				GameGFX.font.Centre("DEFINE KEYS",120)
+			EndIf
+			
+			GameGFX.font.DrawColoured("left",250,150,255,255*(defkey=1),0)
+			GameGFX.font.DrawColoured("right",250,170,255,255*(defkey=2),0)
+			GameGFX.font.DrawColoured("thrust",250,190,255,255*(defkey=3),0)
+			GameGFX.font.DrawColoured("fire",250,210,255,255*(defkey=4),0)
+			GameGFX.font.DrawColoured("hyperspace",250,230,255,255*(defkey=5),0)
+			GameGFX.font.DrawColoured("pause",250,250,255,255*(defkey=6),0)
+			GameGFX.font.DrawColoured(KeySym(GameConfig.kleft).ToLower(),500,150,255,255*(defkey=1),0)
+			GameGFX.font.DrawColoured(KeySym(GameConfig.kright).ToLower(),500,170,255,255*(defkey=2),0)
+			GameGFX.font.DrawColoured(KeySym(GameConfig.kthrust).ToLower(),500,190,255,255*(defkey=3),0)
+			GameGFX.font.DrawColoured(KeySym(GameConfig.kfire).ToLower(),500,210,255,255*(defkey=4),0)
+			GameGFX.font.DrawColoured(KeySym(GameConfig.khyper).ToLower(),500,230,255,255*(defkey=5),0)
+			GameGFX.font.DrawColoured(KeySym(GameConfig.kpause).ToLower(),500,250,255,255*(defkey=6),0)
+			
+			Local k:Int=0
+			
+			For Local f:Int=1 To 255
+				If KeyHit(f)
+					k=f
+					Continue
+				EndIf
+			Next
+			
+			If k<>0
+				Select defkey
+					Case 1
+						GameConfig.kleft=k
+					Case 2
+						GameConfig.kright=k
+					Case 3
+						GameConfig.kthrust=k
+					Case 4
+						GameConfig.kfire=k
+					Case 5
+						GameConfig.khyper=k
+					Case 6
+						GameConfig.kpause=k
+				End Select
+				
+				defkey:+1
+				
+				If defkey=8
+					GameConfig.Save()
+					defkey=0
+				EndIf
+			EndIf
+		Else
+			GameGFX.font.CentreColoured("vectoroids",0,255,255,0)
+			GameGFX.font.CentreColoured("COPYRIGHT | 2005 IAN C",20,255,0,0)
+		
+			GameGFX.font.Centre("press space to play",150)
+			GameGFX.font.Centre("press r to redefine keys",190)
+			GameGFX.font.Centre("EXTRA LIFE AT 10000 PTS THEN EVERY 50000 PTS",520)
+			GameGFX.font.Centre("ESCAPE TO QUIT",560)
+			GameGFX.font.CentreColoured("BASED ON ASTEROIDS | 1979 ~~ ATARI INC.",580,255,0,0)
+			
+			hiscore.Display(400)
+			
+			If KeyHit(KEY_ESCAPE)
+				done=True
+				quit=True
+			EndIf
+			
+			If KeyHit(KEY_R)
+				FlushKeys()
+				defkey=1
+			EndIf
+			
+			If KeyHit(KEY_SPACE)
+				FlushKeys()
+				done=True
+			EndIf
+		EndIf
+		
+		Flip
+	Wend
+End Function