Sub Analog_Left_Touch (Action As Int, X As Float, Y As Float)
Select Action
Case Activity.ACTION_DOWN
Analog_Left_StartX = X
Analog_Left_StartY = Y
Analog_Left_Active = True
Case Activity.ACTION_MOVE
Analog_Left_DeltaX = X - Analog_Left_StartX
Analog_Left_DeltaY = Y - Analog_Left_StartY
Analog_Left_StartX = X
Analog_Left_StartY = Y
actor_setup(0).X = actor_setup(0).X + (Analog_Left_DeltaX * Analog_Left_TouchRatio)
actor_setup(0).Y = actor_setup(0).Y + (Analog_Left_DeltaY * Analog_Left_TouchRatio)
Case Activity.ACTION_UP
Analog_Left_DeltaX = 0
Analog_Left_DeltaY = 0
Analog_Left_Active = False
End Select
End Sub
Sub Analog_Right_Touch (Action As Int, X As Float, Y As Float)
Select Action
Case Activity.ACTION_DOWN
Analog_Right_StartX = X
Analog_Right_StartY = Y
Analog_Right_Active = True
Case Activity.ACTION_MOVE
Analog_Right_DeltaX = X - Analog_Right_StartX
Analog_Right_DeltaY = Y - Analog_Right_StartY
Analog_Right_StartX = X
Analog_Right_StartY = Y
actor_setup(1).X = actor_setup(1).X + (Analog_Right_DeltaX * Analog_Right_TouchRatio)
actor_setup(1).Y = actor_setup(1).Y + (Analog_Right_DeltaY * Analog_Right_TouchRatio)
Case Activity.ACTION_UP
Analog_Right_DeltaX = 0
Analog_Right_DeltaY = 0
Analog_Right_Active = False
End Select
End Sub