taultunleashed logoAutohunt (lvl bot made from EQ2Extreme) : EverQuest 2 Premium Discussions
newtopic  postreply
 [ 1 post ] 
blue large dot

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

Posted: February 16th, 2008, 3:23 pm
 
fatalshrooms
fatalshrooms's Reps:
User avatar
Workin On this script and leaving my source code here fin case someone wants an example of a lvling bot tacked onto EQ2Extreme...
This script is basicly just added onto the bottom of the EQ2Extreme script.
Its not ganna work without tweaking, and its probally best only to use this as an example... anyways It works for me, it can run overnight if I let it....

If you guys want me to make it easier to use I guess I could by putting all the variables you need to change at the top...

No other scripts on taultunleashed worked with vista so I just whipped this up for me.

Code:
' 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


Reply with quote
Want Advertisements After The Last Post Removed? Create A Free Account!

blue large dot Who is online
Users browsing this forum: No registered users and 4 guests

Popular Sections
SWTOR Cheats
Guild Wars 2 Cheats
Guild Wars 2 Hacks
Guild Wars 2 Bots
Diablo 3 Cheats
Guild Wars 2 Mods

Popular Sections
WoW Cataclysm Cheats & Exploits
WoW Cataclysm Hacks & Bots
Star Wars The Old Republic Cheats
SWTOR Mods
Torchlight 2 Cheats
SWTOR Space Mission Bots
Site Nav and RSS
RSS Feed of EverQuest 2 Premium Discussions RSS Feed 
Sitemap of EverQuest 2 Premium Discussions Sitemap 
SitemapIndex SitemapIndex
RSS Feed RSS Feed
Channel list Channel list
left bottom corner Site and Contents Copyright 2001-2012 All Rights Reserved TaultUnleashed.com bottom corner
top left
top right
createaccount
Username:   Password:   Remember Me?