summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gfx/font.bb66
-rw-r--r--gfx/font.fddbin6464 -> 6464 bytes
-rw-r--r--shockwave.bb40
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
Binary files differ
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