diff options
| author | Ian C <ianc@noddybox.co.uk> | 2006-06-11 23:22:19 +0000 |
|---|---|---|
| committer | Ian C <ianc@noddybox.co.uk> | 2006-06-11 23:22:19 +0000 |
| commit | c6819b88a79e3ebe7f5d7c69c292b7b29a2d818e (patch) | |
| tree | 2372261cd65877a7531c41771852c89720417d1f | |
| parent | e9c53b3a4f3fd89176a34e8bd4aa527b51ca89ff (diff) | |
Completed first version
| -rw-r--r-- | .cvsignore | 1 | ||||
| -rw-r--r-- | gametypes.bmx | 4 | ||||
| -rw-r--r-- | global.bmx | 16 | ||||
| -rw-r--r-- | missile_lock.bmx | 5 |
4 files changed, 24 insertions, 2 deletions
@@ -2,3 +2,4 @@ .bmx mlock.config mlock.hiscore +snapshot.png
\ No newline at end of file diff --git a/gametypes.bmx b/gametypes.bmx index 1e5fb54..aaab0d7 100644 --- a/gametypes.bmx +++ b/gametypes.bmx @@ -159,6 +159,10 @@ Type GameState GFX.font.DrawRight("HISCORE",799,0) GFX.font.DrawRight(Number.Format(GameConfig.hiscore),799,16,255,255,0) + + If KeyHit(KEY_F12) + SavePixmapPNG(GrabPixmap(0,0,GraphicsWidth(),GraphicsHeight()),"snapshot.png") + EndIf End Function End Type @@ -196,6 +196,7 @@ Type Scroller Global msg:String Global msgp:Int Global msgx:Int + Global txth:Int Function Init() Rem @@ -214,10 +215,25 @@ Type Scroller msgx=0 msgp=0 + + txth=GFX.font.MaxHeight() End Function Function Draw(y:Int) GFX.font.Draw(msg[..70],msgx,y) + + Rem + SetColor(0,0,0) + Local a:Double=1 + For Local f:Int=0 To 10 + SetAlpha(a) + a:-0.09 + DrawLine(f,y,f,y+txth) + DrawLine(799-f,y,799-f,y+txth) + Next + SetColor(255,255,255) + SetAlpha(1) + EndRem msgx:-2 If msgx<-GFX.font.TextWidth(msg[0..1]) diff --git a/missile_lock.bmx b/missile_lock.bmx index a7685fb..b8575ec 100644 --- a/missile_lock.bmx +++ b/missile_lock.bmx @@ -289,7 +289,8 @@ While Not quit EndIf Wend - GameConfig.maxlevel=GameState.level + GameConfig.maxlevel=Max(GameState.level,GameConfig.maxlevel) + GameConfig.Save() MissileSet.Nuke() @@ -463,7 +464,7 @@ 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) + GFX.font.Centre("CURSORS TO SELECT STARTING LEVEL: "+start_level,450) EndIf GFX.font.Centre("PRESS R TO REDEFINE KEYS",480) |