Flash aimbot

Dim target1x, target1y As Long
Dim target2x, target2y As Long
Dim target3x, target3y As Long



Private Sub Form_Load()
    SWFGame.Playing = True
End Sub


Private Sub mn*****Aimbot_Click()
    Timer1.Enabled = True
End Sub

Private Sub mn*****AmmoHack_Click()
    Call SWFGame.SetVariable("_root.ammo", 9999)
End Sub

Private Sub mn*****HPHack_Click()
    Call SWFGame.SetVariable("_root.lives", 100)
End Sub


Private Sub Timer1_Timer()
    On Error GoTo ErrorHandler
        'target 1
        target1x = SWFGame.GetVariable("_root.target1._x")
        target1y = SWFGame.GetVariable("_root.target1._y")
        Call SWFGame.SetVariable("_root._xmouse", target1x)
        Call SWFGame.SetVariable("_root._ymouse", target1y)
        
        
    On Error GoTo ErrorHandler
        'target 2
        target2x = SWFGame.GetVariable("_root.target2._x")
        target2y = SWFGame.GetVariable("_root.target2._y")
        Call SWFGame.SetVariable("_root._xmouse", target2x)
        Call SWFGame.SetVariable("_root._ymouse", target2y)
        
    On Error GoTo ErrorHandler
        'target 3
        target3x = SWFGame.GetVariable("_root.target3._x")
        target3y = SWFGame.GetVariable("_root.target3._y")
        Call SWFGame.SetVariable("_root._xmouse", target3x)
        Call SWFGame.SetVariable("_root._ymouse", target3y)
        
    On Error GoTo ErrorHandler
        'target 4
        target4x = SWFGame.GetVariable("_root.target4._x")
        target4y = SWFGame.GetVariable("_root.target4._y")
        Call SWFGame.SetVariable("_root._xmouse", target4x)
        Call SWFGame.SetVariable("_root._ymouse", target4y)
        
    On Error GoTo ErrorHandler
        'target 5
        target5x = SWFGame.GetVariable("_root.target5._x")
        target5y = SWFGame.GetVariable("_root.target5._y")
        Call SWFGame.SetVariable("_root._xmouse", target5x)
        Call SWFGame.SetVariable("_root._ymouse", target5y)
        
    On Error GoTo ErrorHandler
        'target 6
        target6x = SWFGame.GetVariable("_root.target6._x")
        target6y = SWFGame.GetVariable("_root.target6._y")
        Call SWFGame.SetVariable("_root._xmouse", target6x)
        Call SWFGame.SetVariable("_root._ymouse", target6y)
        
    On Error GoTo ErrorHandler
        'target 7
        target7x = SWFGame.GetVariable("_root.target7._x")
        target7y = SWFGame.GetVariable("_root.target7._y")
        Call SWFGame.SetVariable("_root._xmouse", target7x)
        Call SWFGame.SetVariable("_root._ymouse", target7y)
        
    On Error GoTo ErrorHandler
        'target 8
        target8x = SWFGame.GetVariable("_root.target8._x")
        target8y = SWFGame.GetVariable("_root.target8._y")
        Call SWFGame.SetVariable("_root._xmouse", target8x)
        Call SWFGame.SetVariable("_root._ymouse", target8y)
        
    On Error GoTo ErrorHandler
        'target 9
        target9x = SWFGame.GetVariable("_root.target9._x")
        target9y = SWFGame.GetVariable("_root.target9._y")
        Call SWFGame.SetVariable("_root._xmouse", target9x)
        Call SWFGame.SetVariable("_root._ymouse", target9y)
        
    On Error GoTo ErrorHandler
        'target 10
        target10x = SWFGame.GetVariable("_root.target10._x")
        target10y = SWFGame.GetVariable("_root.target10._y")
        Call SWFGame.SetVariable("_root._xmouse", target10x)
        Call SWFGame.SetVariable("_root._ymouse", target10y)
        
    On Error GoTo ErrorHandler
        'target 11
        target11x = SWFGame.GetVariable("_root.target11._x")
        target11y = SWFGame.GetVariable("_root.target11._y")
        Call SWFGame.SetVariable("_root._xmouse", target11x)
        Call SWFGame.SetVariable("_root._ymouse", target11y)
        
ErrorHandler:
        'do nothing
End Sub