Updates

3 files changed, 63 insertions, 43 deletions

diff --git a/gfx/font.bb b/gfx/font.bb
index 9318839..40d41d5 100644
--- a/gfx/font.bb
+++ b/gfx/font.bb
@@ -1,4 +1,4 @@
-; Generated 12 Dec 2004 00:21:20
+; Generated 05 Mar 2005 02:03:42
 ;
 dim font_width(95)
 font_width(0)=8
@@ -908,48 +908,48 @@ font_data(11,0,7)=0
 font_data(11,1,0)=0
 font_data(11,1,1)=0
 font_data(11,1,2)=0
-font_data(11,1,3)=0
-font_data(11,1,4)=0
+font_data(11,1,3)=-1
+font_data(11,1,4)=-1
 font_data(11,1,5)=0
 font_data(11,1,6)=0
 font_data(11,1,7)=0
 font_data(11,2,0)=0
 font_data(11,2,1)=0
 font_data(11,2,2)=0
-font_data(11,2,3)=0
-font_data(11,2,4)=0
+font_data(11,2,3)=-1
+font_data(11,2,4)=-1
 font_data(11,2,5)=0
 font_data(11,2,6)=0
 font_data(11,2,7)=0
 font_data(11,3,0)=0
-font_data(11,3,1)=0
-font_data(11,3,2)=0
-font_data(11,3,3)=0
-font_data(11,3,4)=0
-font_data(11,3,5)=0
-font_data(11,3,6)=0
+font_data(11,3,1)=-1
+font_data(11,3,2)=-1
+font_data(11,3,3)=-1
+font_data(11,3,4)=-1
+font_data(11,3,5)=-1
+font_data(11,3,6)=-1
 font_data(11,3,7)=0
 font_data(11,4,0)=0
-font_data(11,4,1)=0
-font_data(11,4,2)=0
-font_data(11,4,3)=0
-font_data(11,4,4)=0
-font_data(11,4,5)=0
-font_data(11,4,6)=0
+font_data(11,4,1)=-1
+font_data(11,4,2)=-1
+font_data(11,4,3)=-1
+font_data(11,4,4)=-1
+font_data(11,4,5)=-1
+font_data(11,4,6)=-1
 font_data(11,4,7)=0
 font_data(11,5,0)=0
 font_data(11,5,1)=0
 font_data(11,5,2)=0
-font_data(11,5,3)=0
-font_data(11,5,4)=0
+font_data(11,5,3)=-1
+font_data(11,5,4)=-1
 font_data(11,5,5)=0
 font_data(11,5,6)=0
 font_data(11,5,7)=0
 font_data(11,6,0)=0
 font_data(11,6,1)=0
 font_data(11,6,2)=0
-font_data(11,6,3)=0
-font_data(11,6,4)=0
+font_data(11,6,3)=-1
+font_data(11,6,4)=-1
 font_data(11,6,5)=0
 font_data(11,6,6)=0
 font_data(11,6,7)=0
@@ -1036,48 +1036,48 @@ font_data(13,0,7)=0
 font_data(13,1,0)=0
 font_data(13,1,1)=0
 font_data(13,1,2)=0
-font_data(13,1,3)=0
-font_data(13,1,4)=0
+font_data(13,1,3)=-1
+font_data(13,1,4)=-1
 font_data(13,1,5)=0
 font_data(13,1,6)=0
 font_data(13,1,7)=0
 font_data(13,2,0)=0
 font_data(13,2,1)=0
 font_data(13,2,2)=0
-font_data(13,2,3)=0
-font_data(13,2,4)=0
+font_data(13,2,3)=-1
+font_data(13,2,4)=-1
 font_data(13,2,5)=0
 font_data(13,2,6)=0
 font_data(13,2,7)=0
 font_data(13,3,0)=0
 font_data(13,3,1)=0
 font_data(13,3,2)=0
-font_data(13,3,3)=0
-font_data(13,3,4)=0
+font_data(13,3,3)=-1
+font_data(13,3,4)=-1
 font_data(13,3,5)=0
 font_data(13,3,6)=0
 font_data(13,3,7)=0
 font_data(13,4,0)=0
 font_data(13,4,1)=0
 font_data(13,4,2)=0
-font_data(13,4,3)=0
-font_data(13,4,4)=0
+font_data(13,4,3)=-1
+font_data(13,4,4)=-1
 font_data(13,4,5)=0
 font_data(13,4,6)=0
 font_data(13,4,7)=0
 font_data(13,5,0)=0
 font_data(13,5,1)=0
 font_data(13,5,2)=0
-font_data(13,5,3)=0
-font_data(13,5,4)=0
+font_data(13,5,3)=-1
+font_data(13,5,4)=-1
 font_data(13,5,5)=0
 font_data(13,5,6)=0
 font_data(13,5,7)=0
 font_data(13,6,0)=0
 font_data(13,6,1)=0
 font_data(13,6,2)=0
-font_data(13,6,3)=0
-font_data(13,6,4)=0
+font_data(13,6,3)=-1
+font_data(13,6,4)=-1
 font_data(13,6,5)=0
 font_data(13,6,6)=0
 font_data(13,6,7)=0
diff --git a/gfx/font.fdd b/gfx/font.fdd
index 6a08647..126aa69 100644
--- a/gfx/font.fdd
+++ b/gfx/font.fdd
diff --git a/shockwave.bb b/shockwave.bb
index 6bc9d59..3d654c1 100644
--- a/shockwave.bb
+++ b/shockwave.bb
@@ -1,7 +1,7 @@
 ;
 ; SHOCKWAVE (c) COPYRIGHT Ian Cowburn 2004
 ;
-; $Id: shockwave.bb,v 1.3 2005-03-04 01:38:16 ianc Exp $
+; $Id: shockwave.bb,v 1.4 2005-03-05 02:10:49 ianc Exp $
 ;
 
 Include "gfx/font.bb"
@@ -179,7 +179,9 @@ Global score=0
 Global shield=0
 Global dead=False
 Global highscore=0
+Global highlostchain=0
 Global new_highscore=False
+Global new_highlostchain=False
 Global hit_count=0
 Global hit_timer=0
 Global turbo_count=0
@@ -267,7 +269,7 @@ Repeat
 			For f=1 To noast
 				NewAsteroid(ASTLARGE,Rand(-FIELDSIZE,FIELDSIZE),Rand(-FIELDSIZE,FIELDSIZE))
 			Next
-
+			
 			If is_bonus_level
 				For f=30 To 50 Step 4
 					NewCameraSpriteText("BONUS LEVEL "+Str$(level),$ffffff,0,0,EntityZ(camera)+f,-0.4,1,0.01)
@@ -331,9 +333,10 @@ Repeat
 				HudTextCentre(200,"20000",$ffff00)
 				AddScore(20000)
 			ElseIf total_chain>0
+				;Stop
 				bonus=total_chain
 				
-				If sheild+bonus>MAXSHIELD
+				If (shield+bonus)>MAXSHIELD
 					bonus=MAXSHIELD-shield
 				EndIf
 				
@@ -461,6 +464,9 @@ Repeat
 		
 	Wend
 	
+	new_highscore=False
+	new_highlostchain=False
+	
 	If dead
 	
 		PlaySound explode_sfx
@@ -478,9 +484,15 @@ Repeat
 		If score>highscore
 			new_highscore=True
 			highscore=score
+		EndIf
+		
+		If hit_count>5 And hit_count>highlostchain
+			new_highlostchain=True
+			highlostchain=hit_count
+		EndIf
+		
+		If new_highscore Or new_highlostchain
 			SaveHighScore()
-		Else
-			new_highscore=False
 		EndIf
 		
 		f=0
@@ -1490,6 +1502,7 @@ Function Menu()
 	HudTextCentre(80,"PRESS ESC TO QUIT",$ffff00)
 	
 	HudTextCentre(170,"HIGH SCORE",$ffffff)
+	HudTextCentre(200,"HIGHEST LOST CHAIN",$ffffff)
 	
 	AddScore(0)
 	
@@ -1511,7 +1524,12 @@ Function Menu()
 			HudTextCentre(170,"NEW HIGH SCORE",(g Shl 16) Or (b Shl 8) Or r)
 		EndIf
 		
+		If new_highlostchain
+			HudTextCentre(200,"NEW HIGHEST LOST CHAIN",(g Shl 16) Or (b Shl 8) Or r)
+		EndIf
+		
 		HudTextCentre(180,Str$(highscore),(r Shl 16) Or (g Shl 8) Or b)
+		HudTextCentre(210,Str$(highlostchain),(r Shl 16) Or (g Shl 8) Or b)
 		
 		r=(r+7) And 255
 		g=(g+5) And 255
@@ -1623,6 +1641,7 @@ Function LoadHighScore()
 	EndIf
 
 	highscore=ReadInt(fp)
+	highlostchain=ReadInt(fp)
 	CloseFile fp
 End Function
 
@@ -1634,6 +1653,7 @@ Function SaveHighScore()
 	EndIf
 	
 	WriteInt fp,highscore
+	WriteInt fp,highlostchain
 	CloseFile fp
 End Function
 
@@ -1691,13 +1711,13 @@ End Function
 .InstructionData
 Data "THE ALIENS HAVE SELECTED YOU TO REPRESENT THE HUMAN RACE "
 Data "IN SHOCKWAVE. "
-Data "IF YOU FAIL 3 BILLION SOULS WILL BE LOST. MORE IMPORTANTLY, YOURS....   "
-Data "UNFORTUNATELY, YOUR SHIP IS BUST. "
+Data "IF YOU FAIL 3 BILLION SOULS WILL BE LOST. MOST IMPORTANTLY, YOURS....   "
+Data "THERE IS A SPANNER IN THE WORKS THOUGH - YOUR SHIP IS BUST. "
 Data "THERE IS NO CONTROL OVER ITS "
-Data "SPEED; ONLY STEERING WORKS AND YOU CAN ONLY DESTROY THE SPHERES WITH YOUR SHOCKWAVE EXHAUST.   "
+Data "SPEED.  ONLY STEERING WORKS AND YOU CAN ONLY DESTROY THE SPHERES WITH YOUR SHOCKWAVE EXHAUST.   "
 Data "THE DESTROYED SPHERES MAY ALSO HAVE "
-Data "UNDESIRED EFFECTS ON THE SHIP...   "
+Data "UNDESIRED EFFECTS ON THE SHIP...   OR EVEN GOOD ONES.  "
 Data "TO STEER USE THE LEFT AND RIGHT CURSOR KEYS.  PRESS P TO PAUSE.   "
 Data "    "
-Data "GOOD LUCK.                                       "
+Data "GOOD LUCK!                                       "
 Data "END"
\ No newline at end of file