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

---
 global.bmx | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'global.bmx')

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])
-- 
cgit v1.2.3