Also bei mir stirbt er mit Lvl 4 nicht.
Hier mal den Source von Rikul von einem seiner älternen Lvl Bots die eig. trotzdem noch einwandfrei funkionieren.
PHP Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\Icons\Vista- Icons\Games\Game 23.ico
#AutoIt3Wrapper_outfile=LvL Bot By ¤Rikul¤.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GWCAConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$cGui = GUICreate("LvL Bot", 170, 98, 192, 124)
GUISetBkColor(0x800000)
$Group1 = GUICtrlCreateGroup("CharacterName", 8, 5, 153, 42)
$CharName = GUICtrlCreateInput("", 16, 20, 137, 19, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Start = GUICtrlCreateButton("Start", 8, 56, 73, 33, $WS_GROUP)
$Exit = GUICtrlCreateButton("Exit", 88, 56, 73, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUIRegisterMsg(0x500, "WndCallback")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
Global $sGW = "Guild Wars - " & GUICtrlRead($CharName)
Charr()
Case $Exit
ToggleExit()
EndSwitch
WEnd
Func Charr()
MoveToEx(8032.95, 5929.20)
MoveToEx(7291.85, 5237.10)
LoadOut()
MoveToEx(7313.88, 5250.29)
LoadOut()
While 1
MoveCharr()
WEnd
EndFunc
Func MoveCharr()
MoveToEx(7563.87, 10622.45)
MoveToEx(5719.72, 10663.01)
$iQuest = GetNearestNPCToCoords(5719.72, 10663.01)
Cmd($CA_GONPC, $iQuest)
Sleep ( 1000 )
Cmd($CA_Dialog, 8400385)
Sleep ( 750 )
If CmdCB($CA_QuestCheck, 8400385) = 1 Then
Sleep ( 50 )
Else
$iQuest = GetNearestNPCToCoords(5719.72, 10663.01)
Cmd($CA_GONPC, $iQuest)
Sleep ( 1000 )
Cmd($CA_Dialog, 8400385)
Sleep ( 750 )
EndIf
MoveToEx(7576.28, 10613.87)
MoveToEx(7596.26, 9021.46)
MoveToEx(7196.70, 5765.78)
MoveToEx(7041.15, 5399.12)
LoadOut()
MoveToEx(5954.24, 4604.10)
Sleep ( 500 )
MoveToEx(4559.05, 5627.33)
Sleep ( 1000 )
MoveToEx(3009.13, 6450.57)
MoveToEx(87.32, 6708.05)
Sleep ( 1500 )
MoveToEx(-3042.37, 9498.23)
MoveToEx(-3081.60, 10946.84)
Sleep ( 1500 )
KillCharr()
KillCharr()
Resign()
Sleep ( 2500 )
Cmd($CA_QuestAbandon, -1)
If CmdCB($CA_QuestCheck, 8400385) = 1 Then
Cmd($CA_QuestAbandon, -1)
Else
Sleep ( 50 )
EndIf
EndFunc
Func KillCharr()
CmdCB($CA_TargetNearestFoe)
Sleep ( 175 )
CmdCB($CA_Attack, -1)
Do
ControlSend ( $sGW, "", "", "{TAB}" )
Sleep( 200 )
$LVL = CmdCB($CA_GetLevel,-1)
Until $LVL[0] = Not 4 Or $LVL[0] = Not 5
EndFunc