HNPF bot

This is my first bot, it is not completley an AFK bot as you still have to zone in and out of Olafstead, however, this could be easily implemented. You also have to take the quest and abandon it each time, again this could be easily implemented.

Interface size = normal
screensize = windowed.

Change command party to F8,

The code is written in AutoIt3, please feel free to post comments / suggestions.

[Only registered and activated users can see links. Click Here To Register...]

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()