Kurzick Bot Updating

[solidsteve]

Hello there guys.

right so some know I'm trying to update the Kurzick bot by mrcrew, I'll be totally honest I'm no where near a standard of scripting that I can actually do this by myself.

The bot is here with Edits I have put in



The edits are pretty simple once I've put in including nearly all the new GWA2 that was out a few weeks ago

another thing I slotted into the code was....

	Update("Taking blessing")
	$deadlock = 0
	Do
	GoNearestNPCToCoords(-12909, 15616)
	Dialog(133)
	RndSleep(1000)
	Dialog(134)
	RndSleep(1000)
	$deadlock+=1
	Until DllStructGetData(geteffect(593), 'skillid') = 593 or $deadlock = 10
	AdlibRegister ("DeathCheck",1000)

also put in a few different map markers

	$enemy = "14"
	AggroMoveToEx(-4447, 1055, $enemy,3000)

	$enemy = "15"
	AggroMoveToEx(-3832, -586, $enemy,3000)

	$enemy = "16"
	AggroMoveToEx(-3143, -2203, $enemy,3000)

	$enemy = "missing"
	AggroMoveToEx(-5780, -4665, $enemy,3000)

Now guys onto the only problems left with the script that i cant seem to get my head around

First one is not important, it does not trace points earned in the VQ.

Second is a little bit more, once the VQ is done it return's a error with line 6601

here's the code to EndFunc and error

	If GUICtrlRead($cbxBacktrack) = $GUI_CHECKED Then
		For $i = $coordscount - 1 To 0 Step -1
			AggroMoveToEx($VQcoordsX[$i], $VQcoordsY[$i], "backtracking", 4000)
			If GetAreaVanquished() = True Then ExitLoop
		Next
	EndIf
	If GetAreaVanquished() Then
		ConsoleWrite("Run successful" & @CRLF)
	Else
		If GUICtrlRead($cbxManuallyFinish) = $GUI_CHECKED Then
			WinActivate("Guild Wars")
			MsgBox(0,"Error","Get missing spawn" & @CRLF & "Press Ok to continue ")
			;Exit
		Else
			ConsoleWrite("Run failed" & @CRLF)
		EndIf
	EndIf
	RndSleep(500)
	$dCoords[0]=0
	$dCoords[1]=0
	AdlibUnRegister("DeathCheck")
	RndSleep(250)
	TravelTo($townHzH)
EndFunc

And for who cares heres the entire VQ code

 Spoiler

Func Vanquish()
	Update("Taking blessing")
	$deadlock = 0
	Do
	GoNearestNPCToCoords(-12909, 15616)
	Dialog(133)
	RndSleep(1000)
	Dialog(134)
	RndSleep(1000)
	$deadlock+=1
	Until DllStructGetData(geteffect(593), 'skillid') = 593 or $deadlock = 10
	AdlibRegister ("DeathCheck",1000)

	$enemy = "0"
	AggroMoveToEx(-11733, 16729, $enemy)
	$enemy = "1"
	AggroMoveToEx(-11942, 18468, $enemy)

	$enemy = "missing"
	AggroMoveToEx(-11178,20073, $enemy)

	$enemy = "2"
	AggroMoveToEx(-11008, 16972, $enemy)

	$enemy = "3"
	AggroMoveToEx(-11238, 15226, $enemy)

	$enemy = "4"
	AggroMoveToEx(-10965, 13496, $enemy)

	$enemy = "5"
	AggroMoveToEx(-10570, 11789, $enemy)

	$enemy = "6"
	AggroMoveToEx(-10138, 10076, $enemy)

	$enemy = "7"
	AggroMoveToEx(-10289, 8329, $enemy)

	$enemy = "8"
	AggroMoveToEx(-8587, 8739, $enemy)

	$enemy = "9"
	AggroMoveToEx(-6853, 8496, $enemy)

	$enemy = "10"
	AggroMoveToEx(-5211, 7841, $enemy)

	$enemy = "missing"
	AggroMoveToEx(-4059, 11325, $enemy)

	$enemy = "11"
	AggroMoveToEx(-4328, 6317, $enemy)

	$enemy = "12"
	AggroMoveToEx(-4454, 4558, $enemy)

	$enemy = "13"
	AggroMoveToEx(-4650, 2812, $enemy)

	$enemy = "missing"
	AggroMoveToEx(-9326,1601, $enemy)
	AggroMoveToEx(-11000,2219, $enemy,5000)
	AggroMoveToEx(-6313,2778, $enemy)

	$enemy = "14"
	AggroMoveToEx(-4447, 1055, $enemy,3000)

	$enemy = "15"
	AggroMoveToEx(-3832, -586, $enemy,3000)

	$enemy = "16"
	AggroMoveToEx(-3143, -2203, $enemy,3000)

	$enemy = "missing"
	AggroMoveToEx(-5780, -4665, $enemy,3000)

	$enemy = "17"
	AggroMoveToEx(-2541, -3848, $enemy,3000)

	$enemy = "18"
	AggroMoveToEx(-2108, -5549, $enemy,3000)

	$enemy = "19"
	AggroMoveToEx(-1649, -7250, $enemy,2500)

	$enemy = "20"
	AggroMoveToEx(-666, -8708, $enemy,2500)

	$enemy = "21"
	AggroMoveToEx(526, -10001, $enemy)

	$enemy = "22"
	AggroMoveToEx(1947, -11033, $enemy)

	$enemy = "23"
	AggroMoveToEx(3108, -12362, $enemy)

	$enemy = "24"
	AggroMoveToEx(2932, -14112, $enemy)

	$enemy = "25"
	AggroMoveToEx(2033, -15621, $enemy)

	$enemy = "26"
	AggroMoveToEx(1168, -17145, $enemy)

	$enemy = "27"
	AggroMoveToEx(-254, -18183, $enemy)

	$enemy = "28"
	AggroMoveToEx(-1934, -18692, $enemy)

	$enemy = "29"
	AggroMoveToEx(-3676, -18939, $enemy)

	$enemy = "30"
	AggroMoveToEx(-5433, -18839, $enemy,3000)

	$enemy = "31"
	AggroMoveToEx(-3679, -18830, $enemy)

	$enemy = "32"
	AggroMoveToEx(-1925, -18655, $enemy)

	$enemy = "33"
	AggroMoveToEx(-274, -18040, $enemy)

	$enemy = "34"
	AggroMoveToEx(1272, -17199, $enemy)

	$enemy = "35"
	AggroMoveToEx(2494, -15940, $enemy)

	$enemy = "36"
	AggroMoveToEx(3466, -14470, $enemy)

	$enemy = "37"
	AggroMoveToEx(4552, -13081, $enemy)

	$enemy = "38"
	AggroMoveToEx(6279, -12777, $enemy)

	$enemy = "39"
	AggroMoveToEx(7858, -13545, $enemy)

	$enemy = "40"
	AggroMoveToEx(8396, -15221, $enemy)

	$enemy = "41"
	AggroMoveToEx(9117, -16820, $enemy)

	$enemy = "42"
	AggroMoveToEx(10775, -17393, $enemy,3000)

	$enemy = "43"
	AggroMoveToEx(9133, -16782, $enemy)

	$enemy = "44"
	AggroMoveToEx(8366, -15202, $enemy)

	$enemy = "45"
	AggroMoveToEx(8083, -13466, $enemy)

	$enemy = "46"
	AggroMoveToEx(6663, -12425, $enemy)

	$enemy = "47"
	AggroMoveToEx(5045, -11738, $enemy)

	$enemy = "48"
	AggroMoveToEx(4841, -9983, $enemy)

	$enemy = "49"
	AggroMoveToEx(5262, -8277, $enemy)

	$enemy = "50"
	AggroMoveToEx(5726, -6588, $enemy)

	$enemy = "51"
	AggroMoveToEx(5076, -4955, $enemy,3000)

	$enemy = "52"
	AggroMoveToEx(4453, -3315, $enemy,3000)

	$enemy = "53"
	AggroMoveToEx(5823, -2204, $enemy,3000)

	$enemy = "54"
	AggroMoveToEx(7468, -1606, $enemy,3000)

	$enemy = "55"
	AggroMoveToEx(8591, -248, $enemy)

	$enemy = "56"
	AggroMoveToEx(8765, 1497, $enemy)

	$enemy = "57"
	AggroMoveToEx(9756, 2945, $enemy)

	$enemy = "58"
	AggroMoveToEx(11344, 3722, $enemy)

	$enemy = "59"
	AggroMoveToEx(12899, 2912, $enemy,3000)

	$enemy = "60"
	AggroMoveToEx(12663, 4651, $enemy)

	$enemy = "61"
	AggroMoveToEx(13033, 6362, $enemy)

	$enemy = "62"
	AggroMoveToEx(13018, 8121, $enemy)

	$enemy = "63"
	AggroMoveToEx(11596, 9159, $enemy)

	$enemy = "64"
	AggroMoveToEx(11880, 10895, $enemy)

	$enemy = "65"
	AggroMoveToEx(11789, 12648, $enemy)

	$enemy = "66"
	AggroMoveToEx(10187, 13369, $enemy)

	$enemy = "67"
	AggroMoveToEx(8569, 14054, $enemy,3000)

	$enemy = "68"
	AggroMoveToEx(8641, 15803, $enemy,3000)

	$enemy = "69"
	AggroMoveToEx(10025, 16876, $enemy,3000)

	$enemy = "missing"
	AggroMoveToEx(11318, 18944, $enemy,3000)

	$enemy = "70"
	AggroMoveToEx(8621, 15831, $enemy,3000)

	$enemy = "71"
	AggroMoveToEx(7382, 14594, $enemy,3000)

	$enemy = "72"
	AggroMoveToEx(6253, 13257, $enemy,3000)

	$enemy = "73"
	AggroMoveToEx(5531, 11653, $enemy,3000)

	$enemy = "76"
	AggroMoveToEx(6036, 8799, $enemy)

	$enemy = "77"
	AggroMoveToEx(4752, 7594, $enemy)

	$enemy = "78"
	AggroMoveToEx(3630, 6240, $enemy)

	$enemy = "79"
	AggroMoveToEx(4831, 4966, $enemy)

	$enemy = "80"
	AggroMoveToEx(6390, 4141, $enemy)

	$enemy = "81"
	AggroMoveToEx(4833, 4958, $enemy)

	$enemy = "82"
	AggroMoveToEx(3167, 5498, $enemy)

	$enemy = "83"
	AggroMoveToEx(2129, 4077, $enemy,3000)

	$enemy = "84"
	AggroMoveToEx(3151, 5502, $enemy)

	$enemy = "missing"
	AggroMoveToEx(-2234, 311, $enemy,3000)

	$enemy = "0"
	AggroMoveToEx(2474, 4345, $enemy,3000)

	$enemy = "1"
	AggroMoveToEx(3294, 5899, $enemy,3000)

	$enemy = "2"
	AggroMoveToEx(3072, 7643, $enemy,3000)

	$enemy = "3"
	AggroMoveToEx(1836, 8906, $enemy,3000)

	$enemy = "4"
	AggroMoveToEx(557, 10116, $enemy,3000)

	$enemy = "5"
	AggroMoveToEx(-545, 11477, $enemy,3000)

	$enemy = "6"
	AggroMoveToEx(-1413, 13008, $enemy,3000)

	$enemy = "7"
	AggroMoveToEx(-2394, 14474, $enemy,3000)

	$enemy = "8"
	AggroMoveToEx(-3986, 15218, $enemy,3000)

	$enemy = "9"
	AggroMoveToEx(-5319, 16365, $enemy,3000)

	$enemy = "10"
	AggroMoveToEx(-5238, 18121, $enemy,3000)

	$enemy = "missing"
	AggroMoveToEx(-7916, 19630, $enemy,3000)

	$enemy = "11"
	AggroMoveToEx(-3964, 19324, $enemy,3000)

	$enemy = "12"
	AggroMoveToEx(-2245, 19684, $enemy,3000)

	$enemy = "13"
	AggroMoveToEx(-802, 18685, $enemy,3000)

	$enemy = "14"
	AggroMoveToEx(74, 17149, $enemy,3000)

	$enemy = "15"
	AggroMoveToEx(611, 15476, $enemy,4000)

	$enemy = "16"
	AggroMoveToEx(2139, 14618, $enemy,4000)

	$enemy = "17"
	AggroMoveToEx(3883, 14448, $enemy,4000)

	$enemy = "18"
	AggroMoveToEx(5624, 14226, $enemy,4000)

	$enemy = "19"
	AggroMoveToEx(7384, 14094, $enemy,4000)

	$enemy = "20"
	AggroMoveToEx(8223, 12552, $enemy,4000)

	$enemy = "21"
	AggroMoveToEx(7148, 11167, $enemy,4000)

	$enemy = "22"
	AggroMoveToEx(5427, 10834, $enemy,10000)

	If GUICtrlRead($cbxBacktrack) = $GUI_CHECKED Then
		For $i = $coordscount - 1 To 0 Step -1
			AggroMoveToEx($VQcoordsX[$i], $VQcoordsY[$i], "backtracking", 4000)
			If GetAreaVanquished() = True Then ExitLoop
		Next
	EndIf
	If GetAreaVanquished() Then
		ConsoleWrite("Run successful" & @CRLF)
	Else
		If GUICtrlRead($cbxManuallyFinish) = $GUI_CHECKED Then
			WinActivate("Guild Wars")
			MsgBox(0,"Error","Get missing spawn" & @CRLF & "Press Ok to continue ")
			;Exit
		Else
			ConsoleWrite("Run failed" & @CRLF)
		EndIf
	EndIf
	RndSleep(500)
	$dCoords[0]=0
	$dCoords[1]=0
	AdlibUnRegister("DeathCheck")
	RndSleep(250)
	TravelTo($townHzH)
EndFunc

So the question is, Can i have help fixing it as my scripting know how is very very limited (though learning as i go)

[SqMalen]

Where is $cbxBacktrack declared? is it even declared at all? Looks like it may not exist.

[solidsteve]

Originally Posted by SqMalen

Where is $cbxBacktrack declared? is it even declared at all? Looks like it may not exist.

The only $cbxBacktrack there is the coding at 6601

	If GUICtrlRead($cbxBacktrack) = $GUI_CHECKED Then
		For $i = $coordscount - 1 To 0 Step -1
			AggroMoveToEx($VQcoordsX[$i], $VQcoordsY[$i], "backtracking", 4000)
			If GetAreaVanquished() = True Then ExitLoop
		Next
	EndIf

How'd I go about declaring it?

[SqMalen]

It looks like it "was" a GUI Item and it should be a backtrack loop.

Add me on skype: and I will fix it for you.

[solidsteve]

Originally Posted by SqMalen

It looks like it "was" a GUI Item and it should be a backtrack loop.

Add me on skype: and I will fix it for you.

Okay will do

[Kalaid]

Has there been any updates on this? There are literally no working Kurzick faction farming bots at the moment.

[solidsteve]

Originally Posted by Kalaid

Has there been any updates on this? There are literally no working Kurzick faction farming bots at the moment.

There's been nothing

it works in a way but i needs resetting after each run so its working but not

[lorthan118]

Is it possible to just loop the run with a while loop?
While
(run)
Endwhile


Also, I want to add that the link provided takes me to without downloading, but I still have the one from the previous post

[solidsteve]

Originally Posted by lorthan118

Is it possible to just loop the run with a while loop?
While
(run)
Endwhile


Also, I want to add that the link provided takes me to without downloading, but I still have the one from the previous post

Not sure what was wrong with Mega yesterday when i checked, it was doing what the bot wasn't, as in looping

I'll replace that with the loop and see what happens

also link is fixed

[dvdrww]

Hi,
This is an amazing bot, thanks for sharing.
I've made some improvements on the script, which I'll share when everything is ok. Now, I need some help for looping. In my opinion, the problem comes from this part :

If GUICtrlRead($cbxBacktrack) = $GUI_CHECKED Then
		For $i = $coordscount - 1 To 0 Step -1
			AggroMoveToEx($VQcoordsX[$i], $VQcoordsY[$i], "backtracking", 4000)
			If GetAreaVanquished() = True Then ExitLoop
		Next
	EndIf

	If GetAreaVanquished() Then
		ConsoleWrite("Run successful" & @CRLF)
	Else
		If GUICtrlRead($cbxManuallyFinish) = $GUI_CHECKED Then
			WinActivate("Guild Wars")
			MsgBox(0,"Error","Get missing spawn" & @CRLF & "Press Ok to continue ")
			;Exit
		Else
			ConsoleWrite("Run failed" & @CRLF)
		EndIf
	EndIf
	RndSleep(500)
	$dCoords[0]=0
	$dCoords[1]=0
	AdlibUnRegister("DeathCheck")
	RndSleep(250)
	TravelTo($townHzH)

that checks if the run is finished. But it crashes before executing "TravelTo($townHzH)". Can someone help me ?
Note: it's possible that the problem comes from other sub-functions like GetAreaVanquished()

[dvdrww]

to solve the problem just turn in comments this parts :

 Spoiler

If GUICtrlRead($cbxBacktrack) = $GUI_CHECKED Then
For $i = $coordscount - 1 To 0 Step -1
AggroMoveToEx($VQcoordsX[$i], $VQcoordsY[$i], "backtracking", 4000)
If GetAreaVanquished() = True Then ExitLoop
Next
EndIf

If GetAreaVanquished() Then
ConsoleWrite("Run successful" & @CRLF)
Else
If GUICtrlRead($cbxManuallyFinish) = $GUI_CHECKED Then
WinActivate("Guild Wars")
MsgBox(0,"Error","Get missing spawn" & @CRLF & "Press Ok to continue ")
;Exit
Else
ConsoleWrite("Run failed" & @CRLF)
EndIf
EndIf

It should work !

[nigropls]

Originally Posted by dvdrww

to solve the problem just turn in comments this parts :

 Spoiler

If GUICtrlRead($cbxBacktrack) = $GUI_CHECKED Then
For $i = $coordscount - 1 To 0 Step -1
AggroMoveToEx($VQcoordsX[$i], $VQcoordsY[$i], "backtracking", 4000)
If GetAreaVanquished() = True Then ExitLoop
Next
EndIf

If GetAreaVanquished() Then
ConsoleWrite("Run successful" & @CRLF)
Else
If GUICtrlRead($cbxManuallyFinish) = $GUI_CHECKED Then
WinActivate("Guild Wars")
MsgBox(0,"Error","Get missing spawn" & @CRLF & "Press Ok to continue ")
;Exit
Else
ConsoleWrite("Run failed" & @CRLF)
EndIf
EndIf

It should work !

Can you post the working bot please?

Thanks