Blubber Posted August 3, 2008 Share Posted August 3, 2008 (edited) Hello how I can do a Guild Wars WayPoint Bot... like this thread.. WOW WayPointBut this is for World Of Warcraft but i will have it for Guild Wars... Anyone have a idea?Position X --> 00A135F8 floatPosition Y --> 00A135FC floatCourse --> 00A13859 floatMouseCoord X --> 00A13F78 floatMouseCoord Y --> 00A13F7C floatThanks#include <NomadMemory.au3> #include <GUIConstants.au3> #include <File.au3> #include <math.au3> HotKeySet("{f1}","start") HotKeySet("{esc}","_exit") while 1 sleep(20) WEnd func _GetCoords() Local $Array[2] Local $DllInformation = _MemoryOpen(WinGetProcess("Guild Wars")) $Array[0] = Floor(_MemoryRead(0x00A135F8, $DllInformation, 'float'));x $Array[1] = Floor(_MemoryRead(0x00A135FC, $DllInformation, 'float'));y _MemoryClose($DllInformation) Return $Array EndFunc func _exit() Exit EndFunc Edited August 3, 2008 by Blubber Link to comment Share on other sites More sharing options...
Blubber Posted August 3, 2008 Author Share Posted August 3, 2008 (edited) Huhu, new Code Work only to one Site expandcollapse popup#include <NomadMemory.au3> #include <GUIConstantsEX.au3> #include <math.au3> $Gui = GUICreate("Walk To X Y", 446, 371, 193, 125) $Group1 = GUICtrlCreateGroup("X----------------------------------Y", 16, 8, 257, 49) $x = GUICtrlCreateInput("x", 24, 24, 105, 21) $y = GUICtrlCreateInput("y", 136, 24, 105, 21) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("Rotor", 16, 64, 257, 41) $rotor = GUICtrlCreateInput("rotor", 24, 80, 241, 21) GUICtrlCreateGroup("", -99, -99, 1, 1) $Button1 = GUICtrlCreateButton("Walkto", 16, 224, 289, 41, 0) $Group3 = GUICtrlCreateGroup("X----------------------------------Y", 24, 128, 257, 49) $xlauf = GUICtrlCreateInput("x1", 32, 144, 105, 21) $ylauf = GUICtrlCreateInput("y", 144, 144, 105, 21) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) HotKeySet("{esc}","_exit") AdlibEnable("_GetCoords") While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $Button1 laufen() EndSwitch WEnd func laufen() WinActivate('Guild Wars') WinWaitActive('Guild Wars') sleep(2000) $Coords = _GetCoords() while $Coords[0] <> GUICtrlRead($xlauf) and $Coords[1] <> GUICtrlRead($ylauf) $Coords = _GetCoords() If $Coords[0] > GUICtrlRead($xlauf) then ControlSend("Guild Wars","","","{s up}") ControlSend("Guild Wars","","","{w down}") elseIf $Coords[0] < GUICtrlRead($xlauf) then ControlSend("Guild Wars","","","{w up}") ControlSend("Guild Wars","","","{s down}") EndIf If $Coords[1] > GUICtrlRead($ylauf) then ControlSend("Guild Wars","","","{e up}") ControlSend("Guild Wars","","","{q down}") ElseIf $Coords[1] < GUICtrlRead($ylauf) then ControlSend("Guild Wars","","","{q up}") ControlSend("Guild Wars","","","{e down}") EndIf WEnd ControlSend("Guild Wars","","","{esc}") EndFunc func _GetCoords() Local $Array[2] Local $DllInformation = _MemoryOpen(WinGetProcess("Guild Wars")) $Array[0] = Floor(_MemoryRead(0x00A135F8, $DllInformation, 'float'));x $Array[1] = Floor(_MemoryRead(0x00A135FC, $DllInformation, 'float'));y _MemoryClose($DllInformation) GUICtrlSetData($x,$Array[0]) GUICtrlSetData($y,$Array[1]) Return $Array EndFunc func _exit() Exit EndFunc Edited August 3, 2008 by Blubber Link to comment Share on other sites More sharing options...
Blubber Posted August 4, 2008 Author Share Posted August 4, 2008 nobody will help me? Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now