Completed first version

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])