'IF_STATEMENTS
'CLICK
GraphicsWindow.MouseDown = click
Sub click
x = GraphicsWindow.MouseX
y = GraphicsWindow.MouseY
If x > 165 And x < 235 And y > 60 And y < 110 Then
Sound.PlayClick()
Shapes.Animate(clock1button, 165, 75, 200)
Shapes.Animate(clock2button, 465, 60, 200)
Controls.SetButtonCaption(clock1seconds, "0")
Controls.SetButtonCaption(clock2seconds, "0")
Controls.SetButtonCaption(num, "2")
Timer.Interval = 1000
EndIf
If x > 465 And x < 535 And y > 60 And y < 110 Then
Sound.PlayClick()
Shapes.Animate(clock2button, 465, 75, 200)
Shapes.Animate(clock1button, 165, 60, 200)
Controls.SetButtonCaption(clock1seconds, "0")
Controls.SetButtonCaption(clock2seconds, "0")
Controls.SetButtonCaption(num, 1)
Timer.Interval = 1000
EndIf
EndSub
'MOUSE_OVER
GraphicsWindow.MouseMove = mousemove
Sub mousemove
x = GraphicsWindow.MouseX
y = GraphicsWindow.MouseY
If x > 300 And x < 400 And y > 0 And y < 100 Then
Shapes.ShowShape(lefteyeshut)
Shapes.ShowShape(righteyeshut)
Else
Shapes.HideShape(lefteyeshut)
Shapes.HideShape(righteyeshut)
EndIf
EndSub
If getnum = 1 Then
Controls.SetButtonCaption(clock1seconds, getclock1seconds + 1)
If getclock1seconds = 19 Then
Sound.PlayBellRing()
Controls.SetButtonCaption(num, 0)
EndIf
EndIf
If getnum = 2 Then
Controls.SetButtonCaption(clock2seconds, getclock2seconds + 1)
If getclock2seconds = 19 Then
Sound.PlayBellRing()
Controls.SetButtonCaption(num, 0)
EndIf
EndIf
EndSub