summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.cvsignore1
-rw-r--r--gametypes.bmx4
-rw-r--r--global.bmx16
-rw-r--r--missile_lock.bmx5
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)