summaryrefslogtreecommitdiff
path: root/global.bmx
diff options
context:
space:
mode:
authorIan C <ianc@noddybox.co.uk>2006-06-11 23:22:19 +0000
committerIan C <ianc@noddybox.co.uk>2006-06-11 23:22:19 +0000
commitc6819b88a79e3ebe7f5d7c69c292b7b29a2d818e (patch)
tree2372261cd65877a7531c41771852c89720417d1f /global.bmx
parente9c53b3a4f3fd89176a34e8bd4aa527b51ca89ff (diff)
Completed first version
Diffstat (limited to 'global.bmx')
-rw-r--r--global.bmx16
1 files changed, 16 insertions, 0 deletions
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])