Sub BeaconFlasher_Timer_Expired
Select Case MovingBeaconLight
Case 0: MovingBeaconLight = MovingBeaconLight+1
' DstX DstY DstZ RotX RotY RotZ Scale Time
Call MiniPlayField_1.MoveTo( 250, 511.7, 300, 0, 0, 1, 4, 0)
' DstX DstY DstZ RotX RotY RotZ Scale Time
Call MiniPlayField_1.MoveTo( 250, 511.7, 300, 0, 0, 180, 4, 0.5)
Case 1: MovingBeaconLight = 0
' DstX DstY DstZ RotX RotY RotZ Scale Time
Call MiniPlayField_1.MoveTo( 250, 511.7, 300, 0, 0, 181, 4, 0)
' DstX DstY DstZ RotX RotY RotZ Scale Time
Call MiniPlayField_1.MoveTo( 250, 511.7, 300, 0, 0, 360, 4, 0.5)
End Select
End Sub