diff options
| -rw-r--r-- | GFX/sprites.bms | bin | 7307 -> 8906 bytes | |||
| -rw-r--r-- | GFX/twinkle.png | bin | 0 -> 221 bytes | |||
| -rw-r--r-- | gametypes.bmx | 23 | ||||
| -rw-r--r-- | global.bmx | 9 | ||||
| -rw-r--r-- | missile_lock.bmx | 39 |
5 files changed, 67 insertions, 4 deletions
diff --git a/GFX/sprites.bms b/GFX/sprites.bms Binary files differindex 6af2e13..786efca 100644 --- a/GFX/sprites.bms +++ b/GFX/sprites.bms diff --git a/GFX/twinkle.png b/GFX/twinkle.png Binary files differnew file mode 100644 index 0000000..e265e89 --- /dev/null +++ b/GFX/twinkle.png diff --git a/gametypes.bmx b/gametypes.bmx index 7956568..1e5fb54 100644 --- a/gametypes.bmx +++ b/gametypes.bmx @@ -169,10 +169,12 @@ Type BackdropStar Field r:Int Field g:Int Field b:Int + Field twinkle:Int + Field frame:Int Method New() x=Rand(0,800) - y=Rand(0,600) + y=Rand(0,598) r=Rand(128,255) g=Rand(128,255) b=Rand(128,255) @@ -183,19 +185,36 @@ End Type Type Backdrop Const NUM:Int=100 Global s:BackdropStar[] + Global frame:Int Function Init() s=New BackdropStar[NUM] For Local f:Int=0 Until NUM s[f]=New BackdropStar + s[f].frame=f Mod 6 + s[f].twinkle=Rand(100)>70 Next + + frame=0 End Function Function Draw() + frame=(frame+1) Mod 6 For Local f:Int=0 Until NUM SetColor(s[f].r,s[f].g,s[f].b) - DrawImage(GFX.star,s[f].x,s[f].y) + If s[f].twinkle + DrawImage(GFX.twinkle,s[f].x,s[f].y,s[f].frame) + If Not frame + s[f].frame=(s[f].frame+1) Mod 6 + s[f].x=(s[f].x+2) Mod 800 + EndIf + Else + DrawImage(GFX.star,s[f].x,s[f].y) + If Not frame + s[f].x=(s[f].x+1) Mod 800 + EndIf + EndIf Next End Function End Type @@ -37,6 +37,7 @@ Incbin "GFX/missile.png" Incbin "GFX/exhaust.png" Incbin "GFX/flame.png" Incbin "GFX/star.png" +Incbin "GFX/twinkle.png" Incbin "GFX/asteroid.png" Incbin "GFX/fireball.png" @@ -56,6 +57,7 @@ Type GFX Global exhaust:TImage Global flame:TImage Global star:TImage + Global twinkle:TImage Global asteroid:TImage Global fireball:TImage @@ -91,6 +93,9 @@ Type GFX star=SafeLoadImage("incbin::GFX/star.png",0) SetImageHandle(star,1,1) + twinkle=SafeLoadAnimImage("incbin::GFX/twinkle.png",8,8,0,6,0) + SetImageHandle(star,2,2) + asteroid=SafeLoadImage("incbin::GFX/asteroid.png",FILTEREDIMAGE) MidHandleImage(asteroid) @@ -105,6 +110,7 @@ Type GameConfig Global kpause:Int Global kthrust:Int Global hiscore:Int + Global maxlevel:Int Global accepted:Int Function Load() @@ -116,6 +122,7 @@ Type GameConfig kthrust=KEY_SPACE kpause=KEY_P hiscore=0 + maxlevel=1 accepted=False Return EndIf @@ -127,6 +134,7 @@ Type GameConfig kthrust=s.ReadInt() kpause=s.ReadInt() hiscore=s.ReadInt() + maxlevel=s.ReadInt() accepted=s.ReadInt() s.Close() @@ -146,6 +154,7 @@ Type GameConfig s.WriteInt(kthrust) s.WriteInt(kpause) s.WriteInt(hiscore) + s.WriteInt(maxlevel) s.WriteInt(accepted) s.Close() diff --git a/missile_lock.bmx b/missile_lock.bmx index 609f36b..a7685fb 100644 --- a/missile_lock.bmx +++ b/missile_lock.bmx @@ -90,6 +90,7 @@ MissileSet.Init() AsteroidSet.Init() Global quit:Int=False +Global start_level:Int=1 ' =================================== @@ -101,8 +102,10 @@ Menu() FlushKeys() While Not quit + Local start_bonus:Int=1000*(start_level-1) + GameState.Reset() - 'GameState.SetLevel(25) + GameState.SetLevel(start_level) MissileSet.StartLevel() AsteroidSet.StartLevel() @@ -191,6 +194,10 @@ While Not quit GameState.AddScore(500*GameState.level) EndIf + If start_bonus + GameState.AddScore(start_bonus) + EndIf + If GameState.bonus_timer bonus:+GameState.bonus_timer bt=GameState.bonus_timer @@ -237,6 +244,11 @@ While Not quit y:+20 EndIf + If start_bonus + GFX.font.Centre("STARTING LEVEL BONUS " + start_bonus + "!!!",y,255,255,0) + y:+20 + EndIf + If GameState.gonads GFX.font.Centre("SECRET GONADS OF STEEL BONUS " + (9999+(GameState.level-1)*10000) + "!!!",y,255,255,0) y:+20 @@ -267,6 +279,8 @@ While Not quit timer:-1 Wend + start_bonus=0 + GameState.AddScore(bonus-added) GameState.LevelUp() @@ -275,6 +289,7 @@ While Not quit EndIf Wend + GameConfig.maxlevel=GameState.level GameConfig.Save() MissileSet.Nuke() @@ -339,11 +354,13 @@ Function Menu() While Not done Cls - If Rand(100)>80 + Rem + If Rand(100)>90 Local x:Int=Rand(0,800) Local y:Int=Rand(0,600) Particles.AddScaledImage(GFX.fireball,x,y,0.1) End If + End Rem Backdrop.Draw() Particles.Draw() @@ -423,6 +440,20 @@ Function Menu() FlushKeys() EndIf + If GameConfig.maxlevel>1 + If KeyHit(KEY_LEFT) Or KeyHit(KEY_DOWN) + start_level=start_level-1 + If start_level<1 + start_level=GameConfig.maxlevel + EndIf + ElseIf KeyHit(KEY_RIGHT) Or KeyHit(KEY_UP) + start_level=start_level+1 + If start_level>GameConfig.maxlevel + start_level=1 + EndIf + End If + EndIf + GFX.font.Centre("COPYRIGHT (C) NODDYBOX 2006",200) GFX.font.Centre("HTTP://WWW.NODDYBOX.CO.UK/",226) @@ -431,6 +462,10 @@ Function Menu() GFX.font.Centre("PRESS " + KeySym(GameConfig.kthrust).ToUpper() + " TO PLAY",400) + If GameConfig.maxlevel>1 + GFX.font.Centre("CURSORS TO SELECT STARTING LEVEL: "+start_level,460) + EndIf + GFX.font.Centre("PRESS R TO REDEFINE KEYS",480) GFX.font.Centre("PRESS ESCAPE TO QUIT",500) EndIf |
