sub TimerKickerBoost1_Expired()
TimerKickerBoost1.Set False
Dim SpeedNumber
Dim ball
Set ball = xBAM.BallCloseTo(0,0 )
SpeedNumber = ball.speed * 1 'speed ball 1/10
ball.SetVelocity SpeedNumber*sin(BallTrajectory * DegToRad), -SpeedNumber*cos(BallTrajectory * DegToRad), 0
End Sub
Sub TimerKickerBoost2_Expired()
TimerKickerBoost2.Set False
Dim SpeedNumber
Dim ball
Set ball = xBAM.BallCloseTo(0,0 )
SpeedNumber = ball.speed * 2'speed ball 1/10
ball.SetVelocity SpeedNumber*sin(BallTrajectory * DegToRad), -SpeedNumber*cos(BallTrajectory * DegToRad), 0
End Sub
Sub TimerKickerBoost3_Expired()
TimerKickerBoost3.Set False
Dim SpeedNumber
Dim ball
Set ball = xBAM.BallCloseTo(0,0 )
SpeedNumber = ball.speed * 3 'speed ball 1/10
ball.SetVelocity SpeedNumber*sin(BallTrajectory * DegToRad), -SpeedNumber*cos(BallTrajectory * DegToRad), 0
End Sub
Sub TimerKickerBoost4_Expired()
TimerKickerBoost4.Set False
Dim SpeedNumber
Dim ball
Set ball = xBAM.BallCloseTo(0,0 )
SpeedNumber = ball.speed * 4 'speed ball 1/10
ball.SetVelocity SpeedNumber*sin(BallTrajectory * DegToRad), -SpeedNumber*cos(BallTrajectory * DegToRad), 0
End Sub
Sub TimerKickerBoost5_Expired()
TimerKickerBoost5.Set False
Dim SpeedNumber
Dim ball
Set ball = xBAM.BallCloseTo(0,0 )
SpeedNumber = ball.speed * 5'speed ball 1/10
ball.SetVelocity SpeedNumber*sin(BallTrajectory * DegToRad), -SpeedNumber*cos(BallTrajectory * DegToRad), 0
End Sub
Sub TimerKickerBoost6_Expired()
TimerKickerBoost6.Set False
Dim SpeedNumber
Dim ball
Set ball = xBAM.BallCloseTo(0,0 )
SpeedNumber = ball.speed * 6 'speed ball 1/10
ball.SetVelocity SpeedNumber*sin(BallTrajectory * DegToRad), -SpeedNumber*cos(BallTrajectory * DegToRad), 0
End Sub
Sub TimerKickerBoost7_Expired()
TimerKickerBoost7.Set False
Dim SpeedNumber
Dim ball
Set ball = xBAM.BallCloseTo(0,0 )
SpeedNumber = ball.speed * 7 'speed ball 1/10
ball.SetVelocity SpeedNumber*sin(BallTrajectory * DegToRad), -SpeedNumber*cos(BallTrajectory * DegToRad), 0
End Sub
Sub TimerKickerBoost8_Expired()
TimerKickerBoost8.Set False
Dim SpeedNumber
Dim ball
Set ball = xBAM.BallCloseTo(0,0 )
SpeedNumber = ball.speed * 8 'speed ball 1/10
ball.SetVelocity SpeedNumber*sin(BallTrajectory * DegToRad), -SpeedNumber*cos(BallTrajectory * DegToRad), 0
End Sub
Sub TimerKickerBoost9_Expired()
TimerKickerBoost9.Set False
Dim SpeedNumber
Dim ball
Set ball = xBAM.BallCloseTo(0,0 )
SpeedNumber = ball.speed * 9 'speed ball 1/10
ball.SetVelocity SpeedNumber*sin(BallTrajectory * DegToRad), -SpeedNumber*cos(BallTrajectory * DegToRad), 0
End Sub