Simple Presearing Lvl Bot GWA² based

[einkeks95]

Originally Posted by Lordsocke

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

Try this .

Originally Posted by einkeks95

Try this

 Spoiler

#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

[Lion2205]

Originally Posted by Ibfjord

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

I've modified one to pick up flowers that are nearby once done with charr at gate, but i haven't used it since i lost my internet ._.

[Daradon]

ich weiß fragen sind nicht erlaubt aber ich dachte wenn ich sie hir stelle krige ich schneller ne antwort

da GW ja nicht mehr so populär ist und jeder eis eig schon 50 mal durch genudelt hatt
wolte ich mal wissen ob es ein DMG hack gibt damit man sich schnell neuer machen kann und die auch schnell auf 20 hatt ?

[XRakuX]

Nein gibt es nicht.

[cco<nu]

Work well but sometimes the character get lost