'TEXT
GraphicsWindow.FontSize = "15"
GraphicsWindow.FontName = "consolas"
GraphicsWindow.FontBold = "false"
GraphicsWindow.BrushColor = "cyan"
line1 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line2 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line3 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line4 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line5 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line6 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line7 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line8 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line9 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line10 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line11 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line12 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line13 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line14 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line15 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line16 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line17 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line18 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line19 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line20 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line21 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line22 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line23 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line24 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line25 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line26 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line27 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line28 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line29 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
line30 = Shapes.AddText("bla bla bla bla bla bla bla bla bla bla bla bla bla bla ")
'SUBROUTINES
'*'*'*'*'*'*'*'*'*'*'*'
'MOUSE_DOWN
GraphicsWindow.MouseDown = md
Sub md
'CLICK_HANDLE
If (Mouse.IsLeftButtonDown) Then
If x > handleleft And x < handleleft + 25 And y > handletop And y < handletop + 25 Then
Sound.PlayClick()
Controls.SetButtonCaption(handleactive, 1)
Shapes.ShowShape(overline)
Shapes.SetOpacity(back, 100)
EndIf
EndIf
EndSub
'MOUSE_MOVE
GraphicsWindow.MouseMove = mm
Sub mm
x = GraphicsWindow.MouseX
y = GraphicsWindow.MouseY
If handletop > 465 Then
Controls.SetButtonCaption(handleactive, 0)
Shapes.Move(handle, handleleft, 453.5)
Shapes.HideShape(overline)
Shapes.SetOpacity(back, 50)
EndIf
If handletop < 131 Then
Controls.SetButtonCaption(handleactive, 0)
Shapes.Move(handle, handleleft, 143.5)
Shapes.HideShape(overline)
Shapes.SetOpacity(back, 50)
EndIf
EndIf
EndSub
'MOUSE_UP
GraphicsWindow.MouseUp = mu
Sub mu
Controls.SetButtonCaption(handleactive, 0)
Shapes.HideShape(overline)
'PLAY_CLICK
If x > handleleft And x < handleleft + 25 And y > handletop And y < handletop + 25 Then
Sound.PlayClick()
Shapes.SetOpacity(back, 50)
Else
Shapes.SetOpacity(back, 50)
EndIf
EndSub