- Code: Select all
LoadControl Text(4)
Text(4).Move 712*15,566*15,100*15,30*15
Text(4).Refresh
Counter = 60
Text(4) = Counter
Text(4).ForeColor = RGB(255,255,255)
Text(4).FontSize = 10
Text(4).Visible = True
Text(4).Refresh
ctimer=Action.CreateTimedEvent (1,"UpdateCounter(counter)",true)
Frame Properties Code
- Code: Select all
Sub UpdateCounter(counter)
counter=counter-1
If Counter = 10 Then
PlaySoundWin7 GetPath(4) & "red_tail_hawk.mp3", 1
End If
If counter < 10 Then
Text(4).ForeColor = RGB(255,0,0)
End If
If counter=0 then
RemoveTimedEvent (ctimer)
Text(4) = "0"
Action.GoToFrame("score")
Exit Sub
End If
Text(4) = counter
End Sub
Subroutine for countdown