diff options
Diffstat (limited to 'shockwave.bb')
| -rw-r--r-- | shockwave.bb | 40 |
1 files changed, 30 insertions, 10 deletions
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 |