Sign in to follow this  
Followers 0
Blubber

Guild Wars WayPoint Bot?!

3 posts in this topic

#1 ·  Posted (edited)

Hello how I can do a Guild Wars WayPoint Bot... like this thread.. WOW WayPoint

But this is for World Of Warcraft but i will have it for Guild Wars... Anyone have a idea?

Position X --> 00A135F8 float

Position Y --> 00A135FC float

Course --> 00A13859 float

MouseCoord X --> 00A13F78 float

MouseCoord Y --> 00A13F7C float

Thanks

#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 by Blubber

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Huhu, new Code :P

Work only to one Site :P

#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 by Blubber

Share this post


Link to post
Share on other sites

nobody will help me?

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0