Autohunt (lvl bot made from EQ2Extreme) : EverQuest 2 Premium Discussions

Code: Select all

' CUSTOM SCRIPT ADDED
Dim lblTargetRange
Dim RangeX
Dim RangeY
Dim RangeZ
Dim TRange
Dim CurrentAttackKey
Dim TargetWindowVisible    'user defined, 0= no window visible   1=window visible           (Checks pixel 172,55)
Dim TargetHeading




Sub TargetCheck
    Dim Off
    Set oPlayer = EQ.Player
    Set oTarget = oPlayer.Target 
    Attackloop = 1
    Off = 5 'Suggest 3
    If oPlayer.Level >= oTarget.Level AND oTarget.Level >= 20 Then
        Keyboard.SendKeys "`"
        Sleep (2000)
        Range
        If TRange <=20 Then    
Kill
        Else
            Keyboard.SendKeys "{NUMLOCK}"
            Do
                Sleep (100)
                Range
                Set oPlayer = EQ.Player
                TargetWindowChecker
                If oPlayer.Health <=0 Then
                    Exit Do
                End If
            Loop Until TRange <20> (138-Off) AND R <138> (42-Off) AND B <42> (116-Off) AND G < (116+Off) Then
        TargetWindowVisible = 1
    Else
        TargetWindowVisible = 0
    End If
End Sub
            
Sub Kill    
    CurrentAttackKey = 1
    Do     
        Sleep (1800)
        Keyboard.SendKeys CurrentAttackKey
        CurrentAttackKey = CurrentAttackKey + 1
        If CurrentAttackKey = 9 Then
            CurrentAttackKey = 0
        Else
        End If
        Set oPlayer = EQ.Player
        TargetWindowChecker
        If oPlayer.Health <=0 Then
            Exit Do
        End If
    Loop Until TargetWindowVisible = 0
End Sub

Sub DeathChecker
    Sleep (7000)
    Dim MouseChords
    Set oPlayer = EQ.Player
    If oPlayer.Health <=0 Then
        Deathcount = Deathcount + 1
        Mouse.LMouseClick 641,666,1,3
        Sleep (10000)
        CurrentAttackKey = 1
        MouseChords = 30
        Do
            Mouse.LMouseClick MouseChords,877,1,3
            MouseChords = MouseChords + 42
            Sleep (3500)
            CurrentAttackKey = CurrentAttackKey + 1
        Loop Until CurrentAttackKey = 7
    Else
    End If
End Sub


Sub MoveLoc (X,Y) '180-540 degrees... (540/180=S 270=W 360=N 450=E)
    Dim DiffX
    Dim DiffY
    Dim LRange
    Dim Off
    Set oPlayer = EQ.Player
    Diffx = oPlayer.X - X
    Diffy = oPlayer.Y - Y
    TargetHeading = (Atn(DiffY/DiffX))*180/3.14
    If DiffX > 0 Then
        If DiffY > 0 Then
            TargetHeading = 270 - TargetHeading + 180    'x,y
        Else
            TargetHeading = 270 - TargetHeading + 180    'x,-y
        End If
    Else
        If DiffY > 0 Then
            TargetHeading = 90 - TargetHeading + 180   '-x,y
        Else
            TargetHeading = 90 - TargetHeading + 180   '-x,-y                      
        End If
    End If
    Sleep (3000)
    Keyboard.KeysDown ("X")
    Sleep (20)
    Keyboard.KeysUp ("X")
    Sleep (20)
    Keyboard.KeysDown ("A")
    Off = 10
    Do
        Sleep (50)
        Set oPlayer = EQ.Player
    Loop Until oPlayer.Heading > TargetHeading-Off AND oPlayer.Heading < TargetHeading+Off
    Keyboard.KeysUp ("A")
    Sleep (100)
    Do
        Set oPlayer = EQ.Player
        If oPlayer.Heading <TargetHeading> TargetHeading-(Off/5) AND oPlayer.Heading < TargetHeading+(Off/5)
    Sleep (100)
    Keyboard.KeysDown ("W")
    Do
        Set oPlayer = EQ.Player  
        RangeX = (oPlayer.X - X)
        RangeY = (oPlayer.Y - Y)
        LRange = sqr(abs(RangeX^2) + abs(RangeY^2))
        Sleep (10)
    Loop Until LRange <=25
    Keyboard.KeysUp ("W")
End Sub

Sleep (5000)
Dim Deathcount
Do
    Sleep (200)
    Keyboard.KeysDown ("D")
    Sleep (200)
    Keyboard.KeysUp ("D")
    Keyboard.SendKeys "{TAB}"
    Sleep (200)
    TargetCheck
    TargetWindowChecker
    Set oPlayer = EQ.Player
    Set oTarget = oPlayer.Target 
    If TargetWindowVisible = 0 OR oPlayer.Level < oTarget.Level OR oTarget.Level <= 20 Then
        Set oPlayer = EQ.Player
        If oPlayer.Health <=100 Or oPlayer.Power <=100 Then
            Keyboard.SendKeys "{ESC}"
            Mouse.LMouseClick 240,880,1,3      
            Do
                Sleep (1000)
                TargetWindowChecker
                Set oPlayer = EQ.Player
                If TargetWindowVisible = 1 Then
                    Sleep (100)
                    TargetCheck
                    Sleep (100)
                    Exit Do
                End If
                If oPlayer.Health <= 0 Then
                    Exit Do
                End If
            Loop Until oPlayer.Health = 100 And oPlayer.Power = 100
        End If
    End If
    Set oPlayer = EQ.Player
    If oPlayer.Health <=0 Then
        DeathChecker
        Moveloc -252,52
        Moveloc -299,205
        Moveloc -310,381
        Moveloc -312,564
        Moveloc -340,677
        Moveloc -345,672
    End If
Loop