Simple Presearing Lvl Bot GWA² based

Jonas_93 · 01/05/2012, 21:41

update

New Gui with Status reports included
Summoning stone option included
Change Window Name option included
fixxed some bugs

black_byte · 01/05/2012, 23:06

Wenn du gerade eine map am laden bist und ein move packet sendest crashed der client.

MfG
black byte

kendor · 01/06/2012, 02:21

kills Charr much faster now with imp

Jonas_93 · 01/06/2012, 02:59

update

will attack chaars now instead of following

useskill option included
survivor option included
stealth function included
time status included

kendor · 01/13/2012, 02:54

still crashing when leaving tow me. I got the 2.6 update too. not sure bud.

vrijstoer · 01/13/2012, 10:33

Still crashing when leaving, And I also got 2.6

solos · 01/16/2012, 23:43

vlt mal mit WaitMapLoading($MapID) probieren, danach kannst ja immer noch ein RndSleep(500) einbauen... ich teste das gerade mal.

edit: Man könnte auch alle bis auf einen töten, dadurch fällt das aufgeben und neu annehmen weg, so wars zumindest bei den vorrangegangenen presearing bots.

edit2: naja da alle meine anderen bots momentan genau dasselbe problem mit dem wechseln von maps haben, denk ich dass es an gwa liegt. Mit einer einfachen Sleepfunktion statt der Memorygeschichten von gwa funktioniert es anscheinend.

This one should work:
If your loading Screen between two areas lasts longer than 3sec choose slow pc(random 5-6 seconds).

PHP Code:


			
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=160px-Miniatur-Prinz_Rurik.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include "GWA².au3"

Opt("GUIOnEventMode",1)

FileInstall("C:\Dokumente und Einstellungen\Jonas\Desktop\GWA²\PresearingLvlBot\Rurik.jpg", @TempDir & "Rurik.jpg")

Global $loopVar = False
Global $questId = 46
Global $ModelID = 30847
Global $moveVar = 7260
Global $health = 51
Global $speed = Random(2000, 3000, 1)
Global $runsDone = 0
Global $startXp = 0
Global $earnedXp = 0
Global $timeElapsed = 0

Global $listText

Global $windowName = "Guild Wars"
Global $stealth
Global $timer


#Region ### START Koda GUI section ### Form=
$gui = GUICreate("Presearing_LevelBot2.5 by Jonas93", 425, 220, 195, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "_eventHandler")
GUISetBkColor(0xFFFFFF)
$list = GUICtrlCreateList("", 8, 8, 305, 150, BitOR($LBS_NOTIFY,$WS_VSCROLL,$WS_BORDER))
$startButton = GUICtrlCreateButton("start", 8, 160, 40, 21)
GUICtrlSetOnEvent(-1,"_eventHandler")
$infoButton = GUICtrlCreateButton("info", 55, 160, 40, 21)
GUICtrlSetOnEvent(-1,"_eventHandler")
$windowButton = GUICtrlCreateButton("set window name", 225, 160, 90, 21)   ;320,10,
GUICtrlSetOnEvent(-1,"_eventHandler")
$stoneCheckBox = GUICtrlCreateCheckbox("Summoning Stone",8,185)
$useSkillCheckBox = GUICtrlCreateCheckbox("Use Skill",120,185)
$survivorCheckBox = GUICtrlCreateCheckbox("Survivor",190,185)
$slowpcCheckBox = GUICtrlCreateCheckbox("Slow Pc",260,185)
GUICtrlCreatePic(@TempDir & "Rurik.jpg", 314, 5, 123, 175)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

_startMessage()

HotKeySet("{F1}" , "_stealth")

While 1
    If $loopVar Then _botLoop()
WEnd

Func _eventHandler()
    Switch(@GUI_CtrlId)
        Case $infoButton

                    If $loopVar = True Then
                        $milisecs = TimerDiff($timer)
                        $secs = $milisecs /1000
                        $mins = $secs/60
                        If $secs < 60 Then
                            $timeElapsed = round($secs) & " secs"
                        Else
                            $timeElapsed = round($mins) & " mins"
                        EndIf
                    EndIf

                    UpdateStatus("-------------BotStatus-------------")
                    UpdateStatus("runs Done: " & $runsDone )
                    UpdateStatus("experience earned: " & $earnedXp)
                    UpdateStatus("time elapsed: " & $timeElapsed)
                    UpdateStatus("-------------BotStatus-------------")
        Case $startButton
                    Initialize(WinGetProcess($windowName),True, True)
                    $startXp = GetExperience()
                    $timer = TimerInit()
                    $loopVar = Not $loopVar
        Case $windowButton
                    $windowName = InputBox("Settings - WindowName","Please Insert your GuildWars window name")
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
EndFunc


Func _botLoop()
    If GUICtrlRead($slowpcCheckBox) = 1 Then
    $speed = Random(5000, 6000, 1)
    endif
    UpdateStatus("Abandon Quest")
    AbandonQuest($questId)
    UpdateStatus("Move to Rurik")
    MoveTo(5740,10636)
    UpdateStatus("Accept Quest")
    $agent = GetNearestNPCToAgent(-2)
    GoToNPC($agent)
    AcceptQuest($questId)
    RndSleep(1000)
    UpdateStatus("Move out of Ascalon")
    MoveTo(7118,10695)
    MoveTo(7483,10459)
    MoveTo(7404,5933)
    MoveTo($moveVar,5450)
    UpdateStatus("Wait map to load")
    Sleep($speed)
    Do
        RndSleep(500)
        $lMe = GetAgentByID(-2)
        $x = DllStructGetData($lMe, 'X')
    Until $x <> 0
    UpdateStatus("Wait for Rurik")
    MoveTo(5526,4505,100)
    RndSleep(6000)
    UpdateStatus("Move infront of Charr")
    MoveTo(4498,5469,100)
    MoveTo(3297,6157,100)
    MoveTo(2149,6378,100)
    MoveTo(836,6645,100)
    MoveTo(-382,7450,100)
    MoveTo(-1032,7992,100)
    MoveTo(-2125,8739,100)
    UpdateStatus("Follow Rurik")
    Do
        $rurikAgent = GetNearestNPCToAgent(-2)
        $aX = DllStructGetData($rurikAgent, 'X')
        $aY = DllStructGetData($rurikAgent, 'Y')
        MoveTo($aX,$aY)
        $nearestEnemy = GetNearestEnemyToAgent()
        $distance = GetDistance($nearestEnemy,-2)
    Until $distance < 1800
    RndSleep(250)

    If GUICtrlRead($stoneCheckbox) = 1 Then
        $id = GetItemByModelID($ModelID)
        UseItem($id)
    EndIf

    UpdateStatus("Wait until all Charr are dead")
    Do
        $nearestEnemy = GetNearestEnemyToAgent()
        Attack($nearestEnemy)
        If GUICtrlRead($useSkillCheckBox) = 1 then
            If GetSkillbarSkillRecharge(1) = 0 Then
                If GetEnergy() > 10 then UseSkill(1,$nearestEnemy)
            EndIf
        EndIf
        $distance = GetDistance($nearestEnemy,-2)
        $living = GetIsLiving(-2)
        If GUICtrlRead($survivorCheckBox) = 1 Then    $health = GetHealth()
        sleep(250)
    Until $distance > 3000 or $living <> True or $health < 50
    UpdateStatus("Travel back to Ascalon")
    TravelTo(148)
    Sleep($speed)
    Do
        RndSleep(500)
        $lMe = GetAgentByID(-2)
        $x = DllStructGetData($lMe, 'X')
    Until $x <> 0

    UpdateInfos()

Endfunc

Func UpdateStatus($text)
    GUICtrlSetData($list, "")
    $listText = $text & "|" & $listText
    GUICtrlSetData($list,$listText)
EndFunc

Func UpdateInfos()
    $runsDone +=1

    $currentXp = GetExperience()
    $earnedXp = $currentXp - $startXp
EndFunc

Func _stealth()

    If $stealth = 0 Then
        WinSetState($gui, "", @SW_HIDE)
        WinSetTrans($gui, "", 0)
        WinSetState($windowName, "", @SW_HIDE)
        WinSetTrans($windowName, "", 0)
        Opt("TrayIconHide", 1)
                $stealth =1

    ElseIf $stealth = 1 Then
        WinSetState($gui, "", @SW_SHOW)
        WinSetTrans($gui, "", 255)
        WinSetState($windowName, "", @SW_SHOW)
        WinSetTrans($windowName, "", 255)
        Opt("TrayIconHide", 0)
                 $stealth = 0
    EndIf

Endfunc

Func _startMessage()
    GUICtrlSetData($list, "                  Presearing_LevelBot2.5 by Jonas93")
    GUICtrlSetData($list, "_________________________________________________")
    GUICtrlSetData($list, "To hide and show the Bot window and Guild Wars window")
    GUICtrlSetData($list, "press F1")
    GUICtrlSetData($list, " ")
    GUICtrlSetData($list, 'check "Summoning Stone" to use Summoning Stone.')
    GUICtrlSetData($list, 'check "Use Skill" to Use 1. SkillbarSkill in fight.')
    GUICtrlSetData($list, 'check "Survivor" to Travel back if your Health < 50')
EndFunc

Ibfjord · 02/24/2012, 17:02

This bot crashes a lot for me too. I've tried it with original GWA and older versions. I'm using latest AutoIt. But even the older LDoA bot I have isn't working right so I'm not sure what's going on.

einkeks95 · 02/24/2012, 17:28

Quote:

Originally Posted by Ibfjord

This bot crashes a lot for me too. I've tried it with original GWA and older versions. I'm using latest AutoIt. But even the older LDoA bot I have isn't working right so I'm not sure what's going on.

Try this

Spoiler

Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=160px-Miniatur-Prinz_Rurik.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include "GWA².au3"

Opt("GUIOnEventMode",1)

FileInstall("C:\Dokumente und Einstellungen\Jonas\Desktop\GWA²\PresearingLvlBot\Rurik.jpg", @TempDir & "Rurik.jpg")

Global $loopVar = False
Global $questId = 46
Global $ModelID = 30847
Global $moveVar = 7260
Global $health = 51
Global $speed = Random(2000, 3000, 1)
Global $runsDone = 0
Global $startXp = 0
Global $earnedXp = 0
Global $timeElapsed = 0

Global $listText

Global $windowName = "Guild Wars"
Global $stealth
Global $timer


#Region ### START Koda GUI section ### Form=
$gui = GUICreate("Presearing_LevelBot2.5 by Jonas93", 425, 220, 195, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "_eventHandler")
GUISetBkColor(0xFFFFFF)
$list = GUICtrlCreateList("", 8, 8, 305, 150, BitOR($LBS_NOTIFY,$WS_VSCROLL,$WS_BORDER))
$startButton = GUICtrlCreateButton("start", 8, 160, 40, 21)
GUICtrlSetOnEvent(-1,"_eventHandler")
$infoButton = GUICtrlCreateButton("info", 55, 160, 40, 21)
GUICtrlSetOnEvent(-1,"_eventHandler")
$windowButton = GUICtrlCreateButton("set window name", 225, 160, 90, 21)   ;320,10,
GUICtrlSetOnEvent(-1,"_eventHandler")
$stoneCheckBox = GUICtrlCreateCheckbox("Summoning Stone",8,185)
$useSkillCheckBox = GUICtrlCreateCheckbox("Use Skill",120,185)
$survivorCheckBox = GUICtrlCreateCheckbox("Survivor",190,185)
$slowpcCheckBox = GUICtrlCreateCheckbox("Slow Pc",260,185)
GUICtrlCreatePic(@TempDir & "Rurik.jpg", 314, 5, 123, 175)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

_startMessage()

HotKeySet("{F1}" , "_stealth")

While 1
    If $loopVar Then _botLoop()
WEnd

Func _eventHandler()
    Switch(@GUI_CtrlId)
        Case $infoButton

                    If $loopVar = True Then
                        $milisecs = TimerDiff($timer)
                        $secs = $milisecs /1000
                        $mins = $secs/60
                        If $secs < 60 Then
                            $timeElapsed = round($secs) & " secs"
                        Else
                            $timeElapsed = round($mins) & " mins"
                        EndIf
                    EndIf

                    UpdateStatus("-------------BotStatus-------------")
                    UpdateStatus("runs Done: " & $runsDone )
                    UpdateStatus("experience earned: " & $earnedXp)
                    UpdateStatus("time elapsed: " & $timeElapsed)
                    UpdateStatus("-------------BotStatus-------------")
        Case $startButton
                    Initialize(WinGetProcess($windowName),True, True)
                    $startXp = GetExperience()
                    $timer = TimerInit()
                    $loopVar = Not $loopVar
        Case $windowButton
                    $windowName = InputBox("Settings - WindowName","Please Insert your GuildWars window name")
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
EndFunc


Func _botLoop()
    If GUICtrlRead($slowpcCheckBox) = 1 Then
    $speed = Random(5000, 6000, 1)
    endif
    UpdateStatus("Abandon Quest")
    AbandonQuest($questId)
    UpdateStatus("Move to Rurik")
    MoveTo(5740,10636)
    UpdateStatus("Accept Quest")
    $agent = GetNearestNPCToAgent(-2)
    GoToNPC($agent)
    AcceptQuest($questId)
    RndSleep(1000)
    UpdateStatus("Move out of Ascalon")
    MoveTo(7118,10695)
    MoveTo(7483,10459)
    MoveTo(7404,5933)
    Move($moveVar,5450); because MoveTo() crash in Portals
    UpdateStatus("Wait map to load")
    Sleep(Random(3000,4000,1)); for the way to the Portal
	Sleep($speed)
    Do
        RndSleep(500)
        $lMe = GetAgentByID(-2)
        $x = DllStructGetData($lMe, 'X')
    Until $x <> 0
    UpdateStatus("Wait for Rurik")
    MoveTo(5526,4505,100)
    RndSleep(6000)
    UpdateStatus("Move infront of Charr")
    MoveTo(4498,5469,100)
    MoveTo(3297,6157,100)
    MoveTo(2149,6378,100)
    MoveTo(836,6645,100)
    MoveTo(-382,7450,100)
    MoveTo(-1032,7992,100)
    MoveTo(-2125,8739,100)
    UpdateStatus("Follow Rurik")
    Do
        $rurikAgent = GetNearestNPCToAgent(-2)
        $aX = DllStructGetData($rurikAgent, 'X')
        $aY = DllStructGetData($rurikAgent, 'Y')
        MoveTo($aX,$aY)
        $nearestEnemy = GetNearestEnemyToAgent()
        $distance = GetDistance($nearestEnemy,-2)
    Until $distance < 1800
    RndSleep(250)

    If GUICtrlRead($stoneCheckbox) = 1 Then
        $id = GetItemByModelID($ModelID)
        UseItem($id)
    EndIf

    UpdateStatus("Wait until all Charr are dead")
    Do
        $nearestEnemy = GetNearestEnemyToAgent()
        Attack($nearestEnemy)
        If GUICtrlRead($useSkillCheckBox) = 1 then
            If GetSkillbarSkillRecharge(1) = 0 Then
                If GetEnergy() > 10 then UseSkill(1,$nearestEnemy)
            EndIf
        EndIf
        $distance = GetDistance($nearestEnemy,-2)
        $living = GetIsLiving(-2)
        If GUICtrlRead($survivorCheckBox) = 1 Then    $health = GetHealth()
        sleep(250)
    Until $distance > 3000 or $living <> True or $health < 50
    UpdateStatus("Travel back to Ascalon")
    TravelTo(148)
    Sleep($speed)
    Do
        RndSleep(500)
        $lMe = GetAgentByID(-2)
        $x = DllStructGetData($lMe, 'X')
    Until $x <> 0

    UpdateInfos()

Endfunc

Func UpdateStatus($text)
    GUICtrlSetData($list, "")
    $listText = $text & "|" & $listText
    GUICtrlSetData($list,$listText)
EndFunc

Func UpdateInfos()
    $runsDone +=1

    $currentXp = GetExperience()
    $earnedXp = $currentXp - $startXp
EndFunc

Func _stealth()

    If $stealth = 0 Then
        WinSetState($gui, "", @SW_HIDE)
        WinSetTrans($gui, "", 0)
        WinSetState($windowName, "", @SW_HIDE)
        WinSetTrans($windowName, "", 0)
        Opt("TrayIconHide", 1)
                $stealth =1

    ElseIf $stealth = 1 Then
        WinSetState($gui, "", @SW_SHOW)
        WinSetTrans($gui, "", 255)
        WinSetState($windowName, "", @SW_SHOW)
        WinSetTrans($windowName, "", 255)
        Opt("TrayIconHide", 0)
                 $stealth = 0
    EndIf

Endfunc

Func _startMessage()
    GUICtrlSetData($list, "                  Presearing_LevelBot2.5 by Jonas93")
    GUICtrlSetData($list, "_________________________________________________")
    GUICtrlSetData($list, "To hide and show the Bot window and Guild Wars window")
    GUICtrlSetData($list, "press F1")
    GUICtrlSetData($list, " ")
    GUICtrlSetData($list, 'check "Summoning Stone" to use Summoning Stone.')
    GUICtrlSetData($list, 'check "Use Skill" to Use 1. SkillbarSkill in fight.')
    GUICtrlSetData($list, 'check "Survivor" to Travel back if your Health < 50')
EndFunc

ddarek · 02/24/2012, 20:08

Hi
Tip:
1st - use strings instead of declaring $rurikAgent

2nd- whats the point od using stealth mode without Enable/Disable Rendering ?

Nombies · 02/25/2012, 11:43

Would it be possible to get an option for picking up dye drops? That'd be very nice. I like the bot (when it's not crashing).

Speaking of, the crashes don't seem to be an issue with timing or a speed setting. It seems that when it does crash upon leaving it does so the instant you hit the warp point, before the loading screen even appears. At least on my end.

Ibfjord · 02/25/2012, 18:46

@einkeks95, Thanks for posting that script. Working good. Does this bot automatically go to Foible's Fair and start doing farming bandits from Farmer Hamnet quest?

einkeks95 · 02/27/2012, 18:53

Quote:

Originally Posted by Ibfjord

@einkeks95, Thanks for posting that script. Working good. Does this bot automatically go to Foible's Fair and start doing farming bandits from Farmer Hamnet quest?

no, its the same Bot as from Jonas. I changed only 1 Line

.

Ibfjord · 02/28/2012, 04:29

Quote:

Originally Posted by einkeks95

no, its the same Bot as from Jonas. I changed only 1 Line .

Okay, I see. It doesn't farm bandits for 10-20? If not does it do something else besides Charr At The Gate?

Lordsocke · 02/28/2012, 20:27

Still crashing when leaving, And I also got 2.6 ;(