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
Still crashing when leaving, And I also got 2.6 ;(