Interface size = normal
screensize = windowed.
Change command party to F8,
The code is written in AutoIt3, please feel free to post comments / suggestions.
Code:
;HNPF bot to farm Norn faction, to add an extra dimension of not being caught, I have not implemented a system, where
; you can completley go afk, you still must zone to and from Olafstead. However, the system could be easily implemented.
;I use these hero builds, although you could use any builds that work and are x/P
;JORA = OQkkEhSspeKzOWqEVcKQFqyWRAA
;MASTER OF WHISPERS = OAlkQwG5xYmzOWF+I+DBidXVVAA
;VEKK = OgljgwMpZO7YAd4oc4NQGcDBAA
If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
EndIf
Global $resize = InputBox("MiniMap", "Change the size and position of the minimap for the bot to work. If you want to resize, enter ""1""" )
Global $target = InputBox("Target", "Enter the hotkey assigned to TARGET ALLY. This can be set by pressing F11 and then going to the CONTROL tab", "Enter the hotkey that is TARGET ALLY")
Global $Hero1 = InputBox("HERO 1","Enter the hotkey assigned to the speedbuff on HERO 1. This can be set by pressing F11 and then going to the CONTROL tab","Enter the hotkey that is the speed buff")
Global $Hero2 = InputBox("HERO 2","Enter the hotkey assigned to the speedbuff on HERO 2. This can be set by pressing F11 and then going to the CONTROL tab","Enter the hotkey that is the speed buff")
Global $Hero3 = InputBox("HERO 3","Enter the hotkey assigned to the speedbuff on HERO 3. This can be set by pressing F11 and then going to the CONTROL tab","Enter the hotkey that is the speed buff")
Global $Sleep1 = Random(30000, 34000)
Global $rndnumber = Random(1, 4, 1)
Global $SmlSleep = Random(8000, 10000)
If $resize = 1 Then
MouseClickDrag("left", 131, 180, 656, 390)
EndIf
Func _Point1()
If $rndnumber > 2 Then
Send("{F8}")
_Speed()
MouseClick("left",353, 271)
Sleep($Sleep1)
Else
Send("{F8}")
_Speed()
MouseClick("left",356, 272)
Sleep($Sleep1)
EndIf
EndFunc
Func _Point2()
If $rndnumber > 2 Then
Send("{F8}")
_Speed()
MouseClick("left",386, 276)
Sleep($Sleep1)
Else
Send("{F8}")
_Speed()
MouseClick("left", 393, 286)
Sleep($Sleep1)
EndIf
EndFunc
Func _Point3()
If $rndnumber > 2 Then
Send("{F8}")
_Speed()
MouseClick("left", 435, 170)
Sleep($Sleep1)
Else
Send("{F8}")
_Speed()
MouseClick("left", 456, 166)
Sleep($Sleep1)
EndIf
EndFunc
Func _Point4()
If $rndnumber > 2 Then
Send("{F8}")
MouseClick("left", 517, 154)
_Speed()
Sleep($Sleep1)
Else
Send("{F8}")
_Speed()
MouseClick("left", 531, 151)
Sleep($Sleep1)
EndIf
EndFunc
Func _Point5()
If $rndnumber > 2 Then
Send("{F8}")
_Speed()
MouseClick("left", 603, 198)
Sleep($Sleep1)
Else
Send("{F8}")
MouseClick("left", 602, 202)
Sleep($Sleep1)
EndIf
EndFunc
Func _Speed()
$counter = 5
Do
Send($hero1) ;sends hero 1 speedbuff
Sleep($SmlSleep)
Send($hero2) ;sends hero 2 speedbuff
Sleep($SmlSleep)
Send($hero3) ;sends hero 3 speedbuff
$counter = $counter + 1
Until $counter > 5
EndFunc
Func _Begin()
Send("{r down}") ;auto - runs into range of Olgana
Sleep(12000)
Send("{r up}")
Send($target) ;targets Olgana
Sleep(1200)
Send("{SPACE}") ;Runs to Olgana
Sleep(22000)
If $rndnumber > 2 Then
MouseClick("left", 576, 395)
Sleep(1200)
Else
MouseClick("left", 707, 405)
Sleep(1200)
EndIf
EndFunc
Func _start()
Send("{q down}") ;moves out of aggro range from the Ice Elementals
Sleep(1000)
Send("{q up}")
Sleep(1200)
EndFunc
_Start()
_Point1()
_Point2()
_Begin()
_Point3()
_Point4()
_Point5()
