From c6819b88a79e3ebe7f5d7c69c292b7b29a2d818e Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Sun, 11 Jun 2006 23:22:19 +0000
Subject: Completed first version
---
.cvsignore | 1 +
gametypes.bmx | 4 ++++
global.bmx | 16 ++++++++++++++++
missile_lock.bmx | 5 +++--
4 files changed, 24 insertions(+), 2 deletions(-)
diff --git a/.cvsignore b/.cvsignore
index 63482b4..ff36519 100644
--- a/.cvsignore
+++ b/.cvsignore
@@ -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
diff --git a/global.bmx b/global.bmx
index dbcd52e..b220932 100644
--- a/global.bmx
+++ b/global.bmx
@@ -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)
--
cgit v1.2.3