Suche Necrobomber JSB Bot

Page 1 of 2 1 2
03/07/2011 20:01 kenneahnung#1
Weiß einer obs so ein ding schon gibt also sprich das er erkennt wo er was einnehmen muss und alles dementsprechen callt
danke im vorraus^^
03/07/2011 20:14 kknb#2
gibts nicht
03/07/2011 20:21 _Vato#3
Wenn du damit was anfangen kannst, dann viel spass, wenn nicht, dann lass es lieber ;)

03/07/2011 21:07 kknb#4
ich bin ja glatt sprachlos das hier noch jemand was erstellen kann wo ich kein augenkrebs von bekomme.
03/07/2011 21:13 kenneahnung#5
hmm iwie kann ich damit nix anfangen xD
was macht man damit ^^?
03/07/2011 21:38 kknb#6
du brauchst ne modifizierte dll und eine angepasste gwcaconstants. also auf gut deutsch nichts für dich.
03/07/2011 21:41 black_byte#7
Aber wirklich nett das du sowas hier public stellst.

MfG
black byte
03/07/2011 21:55 kenneahnung#8
hmm kann das jemand mal so umändern das ich es auch verwenden kann?
03/07/2011 21:57 kknb#9
können schon, nur die frage ist warum sollte sich jemand die mühe machen nur damit es bei dir läuft?
03/07/2011 22:02 Deset#10
oder du nutzt den:

Code:
#NoTrayIcon
Opt("GUIOnEventMode", 1)


#include <ProgressConstants.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <ComboConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ScrollBarConstants.au3>
#include <GuiEdit.au3>
#include <Array.au3>
#include "GWCAConstants.au3"

;Starter ini points
$cbType = "int"
CmdCB($CA_GetKurzFaction)
$preRunKurz = $cbVar[0]
IniWrite("Statistics.dat", "Kurzick Statistics", "Faction",$preRunKurz)
CmdCB($CA_GetLuxonFaction)
$preRunLux = $cbVar[0]
IniWrite("Statistics.dat", "Luxon Statistics", "Faction",$preRunLux)
CmdCB($CA_GetBalthFaction)
$preRunBalth = $cbVar[0]
IniWrite("Statistics.dat", "Balth Statistics", "Faction",$preRunBalth)

#Region Variables
Global $gui_window[9], $gui_toggle[9], $active = False
Global $bRunning = False ;; Bot Sentinel Value
Global $tTotal = 0 ;; Timer used to check match run time.

Global $totalRunsLuxon = Number(IniRead("Statistics.dat", "Luxon Statistics", "Runs", "0"))
Global $totalTimeLuxon = Number(IniRead("Statistics.dat", "Luxon Statistics", "Time", "0.0001"))
Global $totalFactionLuxon = Number(IniRead("Statistics.dat", "Luxon Statistics", "Faction", ""))
Global $totalRunsKurzick = Number(IniRead("Statistics.dat", "Kurzick Statistics", "Runs", "0"))
Global $totalTimeKurzick = Number(IniRead("Statistics.dat", "Kurzick Statistics", "Time", "0.0001"))
Global $totalFactionKurzick = Number(IniRead("Statistics.dat", "Kurzick Statistics", "Faction", ""))
Global $totalFactionBalth = Number(IniRead("Statistics.dat", "Balth Statistics", "Faction", ""))
#EndRegion Variables

#Region Constants
Const $FACTION_Kurz = 1
Const $FACTION_Lux = 2
Const $MAP_JQKurz = 296 ;;Kurzick JQ Outpost
Const $MAP_JQLux = 295 ;;Luxon JQ Outpost
Const $MAP_JQArena = 223 ;;Inside JQ
Const $MAP_GTOB = 248
#EndRegion Constants

#Region Skills
Enum $SKILL_Contagion = 1, _
		$SKILL_DarkAura, _
		$SKILL_DeathNova, _
		$SKILL_PutridBile, _
		$SKILL_ShadowWalk, _
		$SKILL_SignetOfAgony, _
		$SKILL_TouchOfAgony, _
		$SKILL_Dash
#EndRegion Skills

#Region Shrines Region
#Region Shrine enum
Enum $SHRINE_PurpleQuarry = 1, _
		$SHRINE_YellowQuarry, _
		$SHRINE_GreenQuarry, _
		$SHRINE_PurpleGuard, _
		$SHRINE_YellowKurzGuard, _
		$SHRINE_MiddleKurzGuard, _
		$SHRINE_MiddleLuxGuard, _
		$SHRINE_YellowLuxGuard, _
		$SHRINE_GreenGuard, _
		$SHRINE_LuxBase, _
		$SHRINE_KurzBase
#EndRegion Shrine enum
#Region Shrine coords
Dim $aShrines[11][2] = [[1579.7390, -2295.26], _      ;purplequarry
		[-3034.230, 6240.510], _	  ;yellowquarry
		[5249.4785, 1231.989], _ 	  ;greenquarry
		[-542.4951, -2066.41], _	  ;purpleguard
		[-4836.251, 4633.272], _	  ;yellowkurzguard
		[-1044.872, 2163.458], _      ;middlekurzguard
		[864.0032, 4244.3945], _	  ;middleluxguard
		[-1182.46, 8126.49], _      ;yellowluxguard
		[5239.0000, 3847.000], _      ;greenguard
		[0.0, 0.0], _      ;luxbase
		[0.0, 0.0]] ;kurzbase
#EndRegion Shrine coords
#EndRegion Shrines Region
#Region Portals Region
#Region Portals
Enum $PORTAL_KurzLeft = 0, _
		$PORTAL_KurzMid, _
		$PORTAL_KurzRight, _
		$PORTAL_LuxLeft, _
		$PORTAL_LuxMid, _
		$PORTAL_LuxRight
#EndRegion Portals
#Region PortalCoords
Dim $aPortals[6][2] = [[-4894, -1619], _
		[-3649, -1760], _
		[-3178, -2457], _
		[5206, 6622], _
		[4611, 6885], _
		[4119, 8289]]
#EndRegion PortalCoords

#Region TeleportCoords
Dim $aTeleports[6][2] = [[-3287, 2420], _
		[-288, 1131], _
		[-631, -721], _
		[3806, 3731], _
		[1777, 3312], _
		[667, 6432]]
#EndRegion TeleportCoords
#EndRegion Portals Region
#Region GUI Region
#Region gui
$cGUI = GUICreate("Jade Quarry", 250, 415, -1, -1, 0x80880000)
$btnClose = GUICtrlCreateButton("X", 230, 0, 17, 15)
GUICtrlSetOnEvent(-1, "EventHandler")
GUISetBkColor(0x000000, $cGUI)
$picLogo = GUICtrlCreatePic(@ScriptDir & "\JQ-Pic.jpg", 0, 0, 250, 65, -1, 0x00100000)
GUICtrlSetFont(-1, 8)
GUICtrlCreateGroup("Settings", 2, 1, 246, 125, 0x80880000)
GUICtrlCreateLabel("Guil Wars:", 8, 85)
GUICtrlSetColor(-1, 0xC0C0C0)
$cmbogw = GUICtrlCreateCombo("", 100, 83, 140, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))

GUICtrlCreateLabel("What side:", 8, 115)
GUICtrlSetColor(-1, 0xC0C0C0)
$FactionType = GUICtrlCreateCombo("Luxon", 100, 115, 140, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Kurzick", "Luxon")
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlSetOnEvent(-1, "EventHandler")

GUICtrlCreateLabel("Donation Options:", 8, 145)
GUICtrlSetColor(-1, 0xC0C0C0)
$FactionDonationOption = GUICtrlCreateCombo("", 100, 145, 140, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Alliance|Jadeite", "Alliance")
GUICtrlSetColor(-1, 0xC0C0C0)

GUICtrlCreateLabel("Balth Faction:", 8, 175)
GUICtrlSetColor(-1, 0xC0C0C0)
$BalthOption = GUICtrlCreateCombo("Exchange for zkeys", 100, 175, 140, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Exchange for zkeys", "Do not exchange")
GUICtrlSetColor(-1, 0xC0C0C0)

GUICtrlCreateGroup("Statistics", 2, 185, 246, 150, 0x80880000)
$labelTotalBPoints = GUICtrlCreateLabel("Total Balth Pts: 0", 8, 203, 100)
GUICtrlSetColor(-1, 0xC0C0C0)
$labelPointsBHour = GUICtrlCreateLabel("Balth Pts/hour: 0", 138, 203, 100)
GUICtrlSetColor(-1, 0xC0C0C0)
$labelTotalKorLPoints = GUICtrlCreateLabel("Total Ally Pts: 0", 8, 223, 100)
GUICtrlSetColor(-1, 0xC0C0C0)
$labelPointsKorLHour = GUICtrlCreateLabel("Ally Pts/hour: 0", 138, 223, 100)
GUICtrlSetColor(-1, 0xC0C0C0)
$labelTotalRuns = GUICtrlCreateLabel("Total runs: 0", 8, 243, 100)
GUICtrlSetColor(-1, 0xC0C0C0)
$labelRunsHour = GUICtrlCreateLabel("Runs/hour: 0", 138, 243, 100)
GUICtrlSetColor(-1, 0xC0C0C0)
$labelProgress = GUICtrlCreateLabel("Kurzick/Luxon Title", 8, 263, 200)
GUICtrlSetColor(-1, 0xC0C0C0)
$progressAlly = GUICtrlCreateProgress(8, 283, 225, 20, $PBS_SMOOTH)

GUICtrlCreateGroup("Status", 2, 340, 246, 40, 0x80880000)
$labelStatus = GUICtrlCreateLabel("There is no life.", 8, 354, 230)
GUICtrlSetColor(-1, 0xC0C0C0)
$buttonRun = GUICtrlCreateButton("Start!", (250 - 80) / 2, 390, 80, 25)

GUICtrlSetOnEvent(-1, "EventHandler")
GUISetState(True, $cGUI)

refreshgw()

#EndRegion gui
Func EventHandler()
	If GUICtrlRead($FactionType) = "Luxon" Then
		If GUICtrlRead($FactionDonationOption) = "Alliance" Then
			GUICtrlSetData($FactionDonationOption, "|Alliance|Jadeite", "Alliance")
		Else
			GUICtrlSetData($FactionDonationOption, "|Alliance|Jadeite", "Jadeite")
		EndIf
	Else
		If GUICtrlRead($FactionDonationOption) = "Alliance" Then
			GUICtrlSetData($FactionDonationOption, "|Alliance|Amber", "Alliance")
		Else
			GUICtrlSetData($FactionDonationOption, "|Alliance|Amber", "Amber")
		EndIf
	EndIf
	DisplayStatistics() ;;Everytime something happens, update stats
	Switch (@GUI_CtrlId)
		Case $btnClose
			Exit
		Case $buttonRun
			$bRunning = Not $bRunning
			If $bRunning Then
				$sGW = GUICtrlRead($cmbogw)
				GUICtrlSetData($buttonRun, "Stop!")
				GUICtrlSetState($cmbogw, $GUI_DISABLE)
				GUICtrlSetState($FactionType, $GUI_DISABLE)
				GUICtrlSetState($FactionDonationOption, $GUI_DISABLE)
				GUICtrlSetState($BalthOption, $GUI_DISABLE)
			Else
				GUICtrlSetData($buttonRun, "Start!")
				GUICtrlSetState($cmbogw, $GUI_ENABLE)
				GUICtrlSetState($FactionType, $GUI_ENABLE)
				GUICtrlSetState($FactionDonationOption, $GUI_ENABLE)
				GUICtrlSetState($BalthOption, $GUI_ENABLE)
			EndIf
	EndSwitch
EndFunc   ;==>EventHandler

Func SetProgress()
	$oldCbType = $cbType
	$cbType = "int"
	If GUICtrlRead($FactionType) = "Kurzick" Then
		CmdCB($CA_GetTitleKurzick)
	Else
		CmdCB($CA_GetTitleLuxon)
	EndIf
	Switch $cbVar[0]
		Case 7500000 To 10000000
			$n = $cbVar[0] - 7500000
			$d = 10000000 - 7500000
			GUICtrlSetData($progressAlly, Round(($n / $d) * 100, 0))
		Case 5000000 To 7500000
			$n = $cbVar[0] - 5000000
			$d = 7500000 - 5000000
			GUICtrlSetData($progressAlly, Round(($n / $d) * 100, 0))
		Case 3750000 To 5000000
			$n = $cbVar[0] - 3750000
			$d = 5000000 - 3750000
			GUICtrlSetData($progressAlly, Round(($n / $d) * 100, 0))
		Case 2500000 To 3750000
			$n = $cbVar[0] - 2500000
			$d = 3750000 - 2500000
			GUICtrlSetData($progressAlly, Round(($n / $d) * 100, 0))
		Case 1850000 To 2500000
			$n = $cbVar[0] - 1850000
			$d = 2500000 - 1850000
			GUICtrlSetData($progressAlly, Round(($n / $d) * 100, 0))
		Case 1200000 To 1850000
			$n = $cbVar[0] - 1200000
			$d = 1850000 - 1200000
			GUICtrlSetData($progressAlly, Round(($n / $d) * 100, 0))
		Case 875000 To 1200000
			$n = $cbVar[0] - 875000
			$d = 1200000 - 875000
			GUICtrlSetData($progressAlly, Round(($n / $d) * 100, 0))
		Case 550000 To 875000
			$n = $cbVar[0] - 550000
			$d = 875000 - 550000
			GUICtrlSetData($progressAlly, Round(($n / $d) * 100, 0))
		Case 400000 To 550000
			$n = $cbVar[0] - 400000
			$d = 550000 - 400000
			GUICtrlSetData($progressAlly, Round(($n / $d) * 100, 0))
		Case 250000 To 400000
			$n = $cbVar[0] - 250000
			$d = 400000 - 250000
			GUICtrlSetData($progressAlly, Round(($n / $d) * 100, 0))
		Case 100000 To 250000
			$n = $cbVar[0] - 100000
			$d = 250000 - 100000
			GUICtrlSetData($progressAlly, Round(($n / $d) * 100, 0))
		Case -1 To 100000
			$n = $cbVar[0]
			$d = 100000
			GUICtrlSetData($progressAlly, Round(($n / $d) * 100, 0))
	EndSwitch
EndFunc   ;==>SetProgress

Func UpdateStatus($text)
	GUICtrlSetData($labelStatus, $text)
EndFunc   ;==>UpdateStatus
#EndRegion GUI Region

#Region Stats
Func SaveStatistics()
	IniWrite("Statistics.dat", "Luxon Statistics", "Runs", $totalRunsLuxon)
	IniWrite("Statistics.dat", "Luxon Statistics", "Time", $totalTimeLuxon)
	IniWrite("Statistics.dat", "Luxon Statistics", "Faction", $totalFactionLuxon)
	IniWrite("Statistics.dat", "Kurzick Statistics", "Runs", $totalRunsKurzick)
	IniWrite("Statistics.dat", "Kurzick Statistics", "Time", $totalTimeKurzick)
	IniWrite("Statistics.dat", "Kurzick Statistics", "Faction", $totalFactionKurzick)
	IniWrite("Statistics.dat", "Balth Statistics", "Faction", $totalFactionBalth)
EndFunc   ;==>SaveStatistics

Func DisplayStatistics()
	If GUICtrlRead($FactionType) = "Luxon" Then
		GUICtrlSetData($labelTotalRuns, "Total runs: " & $totalRunsLuxon)
		GUICtrlSetData($labelRunsHour, "/hour: " & Round($totalRunsLuxon / $totalTimeLuxon, 2))
		GUICtrlSetData($labelTotalKorLPoints, "Luxon: " & $totalFactionLuxon)
		GUICtrlSetData($labelPointsKorLHour, "/hour: " & Round($totalFactionLuxon / $totalTimeLuxon, 2))
	Else
		GUICtrlSetData($labelTotalRuns, "Total runs: " & $totalRunsKurzick)
		GUICtrlSetData($labelRunsHour, "/hour: " & Round($totalRunsKurzick / $totalTimeKurzick, 2))
		GUICtrlSetData($labelTotalKorLPoints, "Kurzick: " & $totalFactionKurzick)
		GUICtrlSetData($labelPointsKorLHour, "/hour: " & Round($totalFactionKurzick / $totalTimeKurzick, 2))
	EndIf
	GUICtrlSetData($labelTotalBPoints, "Balth: " & $totalFactionBalth)
	GUICtrlSetData($labelPointsBHour, "/hour: " & Round($totalFactionBalth / ($totalTimeLuxon + $totalTimeKurzick), 2))
	SaveStatistics()
EndFunc   ;==>DisplayStatistics
#EndRegion Stats
#Region Bot
DisplayStatistics()
While 1
	Sleep(1000)
	SetProgress()
	If $bRunning Then
		ConsoleWrite("BalthOption: " & GUICtrlRead($BalthOption) & @CRLF)
		If GUICtrlRead($BalthOption) = "Exchange for zkeys" Then
			$cbType = "int"
			CmdCB($CA_GetBalthFaction)
			Local $percentage = $cbVar[0] / $cbVar[1]
			ConsoleWrite("Balth Bar $percentage: " & $percentage & @CRLF)
			If $percentage >= 0.5 Then
				UpdateStatus("Buying Zkeys with Balth Faction")
				GoTolkano()
			EndIf
		EndIf
		;; KURZICK Statistics
		If GUICtrlRead($FactionType) = "Kurzick" Then
			$tRun = TimerInit()
			$cbType = "int"
			;;Initial Stats
			CmdCB($CA_GetKurzFaction)
			$preRunKurz = $cbVar[0]
			CmdCB($CA_GetBalthFaction)
			$preRunBalth = $cbVar[0]

			If GUICtrlRead($FactionDonationOption) = "Alliance" Then
				$cbType = "int"
				CmdCB($CA_GetKurzFaction)
				Local $percentage = $cbVar[0] / $cbVar[1]
				ConsoleWrite("Kurzick Bar $percentage: " & $percentage & @CRLF)
				If $percentage >= 0.75 Then
						UpdateStatus("Donating Kurzick Faction to the Alliance")
						DonateFaction(0)
					Else
						UpdateStatus("Donating Kurzick Faction for Amber")
						Cmd($CA_Dialog, 131)
						SR(500, 600)
						CmdCB($CA_GetKurzFaction)
						$temp = Floor($cbVar[0] / 5000)
						$id = 8388609 + ($temp * 256)
						Cmd($CA_Dialog, $id)
				EndIf
			EndIf

			ConsoleWrite("Kurzick Pre Faction: " & $preRunKurz & @CRLF)
			ConsoleWrite("Balthazar Pre Faction: " & $preRunBalth & @CRLF)
			KurzickBotLoop()
			WaitLoad(0)
			SR(5000, 7500)
			;; Update stats
			$totalRunsKurzick += 1
			ConsoleWrite("Current Run Time: " & (TimerDiff($tRun) / 3600000) & @CRLF)
			$totalTimeKurzick = $totalTimeKurzick + (TimerDiff($tRun) / 3600000)
			ConsoleWrite("Total Time: " & $totalTimeKurzick & @CRLF)
			$cbType = "int"
			CmdCB($CA_GetKurzFaction)
			ConsoleWrite("Total Kurz Preadd: " & $totalFactionKurzick & @CRLF)
			ConsoleWrite("Kurzick Title: " & $cbVar[0] & @CRLF)
			ConsoleWrite("Old Kurz Title: " & $preRunKurz & @CRLF)
			$totalFactionKurzick = $totalFactionKurzick + ($cbVar[0] - $preRunKurz)
			CmdCB($CA_GetBalthFaction)
			$totalFactionBalth = $totalFactionBalth + ($cbVar[0] - $preRunBalth)
			ConsoleWrite("Post Run KurzFaction: " & $totalFactionKurzick & @CRLF)
			ConsoleWrite("Post Run BalthFaction: " & $totalFactionBalth & @CRLF)
			DisplayStatistics()
		EndIf
		;; LUXON Statistics
		If GUICtrlRead($FactionType) = "Luxon" Then
			$tRun = TimerInit()
			$cbType = "int"
			CmdCB($CA_GetLuxonFaction)
			$preRunLux = $cbVar[0]
			CmdCB($CA_GetBalthFaction)
			$preRunBalth = $cbVar[0]

			If GUICtrlRead($FactionDonationOption) = "Alliance" Then
				$cbType = "int"
				CmdCB($CA_GetLuxonFaction)
				Local $percentage = $cbVar[0] / $cbVar[1]
				ConsoleWrite("Luxon Bar $percentage: " & $percentage & @CRLF)
				If $percentage >= 0.75 Then
						UpdateStatus("Donating Luxon Faction to the Alliance")
						DonateFaction(1)
					Else
						UpdateStatus("Donating Luxon Faction for Jade")
						Cmd($CA_Dialog, 131)
						SR(500, 600)
						CmdCB($CA_GetLuxonFaction)
						$temp = Floor($cbVar[0] / 5000)
						$id = 8388609 + ($temp * 256)
						Cmd($CA_Dialog, $id)
				EndIf
			EndIf
			ConsoleWrite("Luxon Pre Faction: " & $preRunLux & @CRLF)
			ConsoleWrite("Balthazar Pre Faction: " & $preRunBalth & @CRLF)

			LuxonBotLoop()
			WaitLoad(0)
			SR(5000, 7500)
			;; Update stats
			$totalRunsLuxon += 1
			ConsoleWrite("Current Run Time: " & (TimerDiff($tRun) / 3600000) & @CRLF)
			$totalTimeLuxon = $totalTimeLuxon + (TimerDiff($tRun) / 3600000)
			ConsoleWrite("Total Time: " & $totalTimeLuxon & @CRLF)
			$cbType = "int"
			CmdCB($CA_GetLuxonFaction)
			ConsoleWrite("Total Lux Preadd: " & $totalFactionLuxon & @CRLF)
			ConsoleWrite("Lux Title: " & $cbVar[0] & @CRLF)
			ConsoleWrite("Old Lux Title: " & $preRunLux & @CRLF)
			$totalFactionLuxon = $totalFactionLuxon + ($cbVar[0] - $preRunLux)
			CmdCB($CA_GetBalthFaction)
			$totalFactionBalth = $totalFactionBalth + ($cbVar[0] - $preRunBalth)
			ConsoleWrite("Post Run LuxFaction: " & $totalFactionLuxon & @CRLF)
			ConsoleWrite("Post Run BalthFaction: " & $totalFactionBalth & @CRLF)
			DisplayStatistics()

		EndIf
	EndIf
WEnd

#Region KurzBot
Func KurzickBotLoop()
	$cbType = "int"
	CmdCB($CA_GETMAPID)
	If ($cbVar[0] <> $MAP_JQKurz And $cbVar[0] <> $MAP_JQArena) Then
		UpdateStatus("Travelling to Jade Quarry")
		TravelTo($MAP_JQKurz)
		SR(3000, 3500)
		ChangeDistrict(2)
		UpdateStatus("Changing District")

	EndIf
	SR(1000, 2000)
	$cbType = "float"
	cmdCB($CA_GetEffectDuration, 2546)
	If $cbVar[1] > 0 Then
		UpdateStatus("Dishonorable Detected.. Duration is " & Round(($cbVar[1] / 1000) / 60) & " Minutes...")
		Do
			Sleep(Random(2000, 3000))
			cmdCB($CA_GetEffectDuration, 2546)
			UpdateStatus("Dishonorable Update --> " & Round(($cbVar[1] / 1000) / 60) & " Minutes Remaining.")
		Until $cbVar[1] = 0
		UpdateStatus("Dishonorable Expired. Going In.")
	EndIf
	$cbType = "int"
	CmdCB($CA_GETMAPID)
	If $cbVar[0] = $MAP_JQKurz Then
		UpdateStatus("Entering Battle")
		Cmd($CA_EnterChallenge)
		WaitLoad(1)
		SR(3000, 4500)
	EndIf
	$cbType = "int"
	CmdCB($CA_GETMAPID)
	If $cbVar[0] = $MAP_JQArena Then
		Do
			WaitAlive()
			CmdCB($CA_GetPing)
			Sleep($cbVar[0])
			CmdCB($CA_SKILLRECHARGE, $SKILL_ShadowWalk)
			If $cbVar[0] <> 0 Then Sleep(Random(5000, 7500))
			$cbType = "int"
			CmdCB($CA_GETMAPID)
			If $cbVar[0] <> $MAP_JQArena Then ExitLoop
			$Shrine = KZChooseShrine()
			$cbType = "int"
			CmdCB($CA_GETMAPID)
			If $cbVar[0] <> $MAP_JQArena Then ExitLoop
			$Portal = KZPickPortalByShrine($Shrine)
			Prep()
			$cbType = "int"
			CmdCB($CA_GETMAPID)
			If $cbVar[0] <> $MAP_JQArena Then ExitLoop
			GoPortal($Portal)
			$cbType = "int"
			CmdCB($CA_GETMAPID)
			If $cbVar[0] <> $MAP_JQArena Then ExitLoop
			$ret = GoShrine($Shrine)
			Do
				If $ret = 0 Then
					$cbType = "int"
					CmdCB($CA_GETMAPID)
					If $cbVar[0] <> $MAP_JQArena Then ExitLoop
					$Shrine = KZChooseShrine()
					$cbType = "int"
					CmdCB($CA_GETMAPID)
					If $cbVar[0] <> $MAP_JQArena Then ExitLoop
					$ret = GoShrine($Shrine)
				EndIf
			Until $ret = 1
			$cbType = "int"
			CmdCB($CA_GETMAPID)
			If $cbVar[0] <> $MAP_JQArena Then ExitLoop
			GoBomb($Shrine)
			WaitDead()
			$cbType = "int"
			CmdCB($CA_GETMAPID)

		Until $cbVar[0] <> $MAP_JQArena
	EndIf
EndFunc   ;==>KurzickBotLoop
#EndRegion KurzBot
#Region LuxBot
Func LuxonBotLoop()
	$cbType = "int"
	CmdCB($CA_GETMAPID)
	If ($cbVar[0] <> $MAP_JQLux And $cbVar[0] <> $MAP_JQArena) Then
		UpdateStatus("Travelling to Jade Quarry")
		TravelTo($MAP_JQLux)
		SR(3000, 3500)
		ChangeDistrict(2)
		UpdateStatus("Changing District")

	EndIf
	SR(1000, 2000)
	$cbType = "float"
	cmdCB($CA_GetEffectDuration, 2546)
	If $cbVar[1] > 0 Then
		UpdateStatus("Dishonorable Detected.. Duration is " & Round(($cbVar[1] / 1000) / 60) & " Minutes...")
		Do
			Sleep(Random(2000, 3000))
			cmdCB($CA_GetEffectDuration, 2546)
			UpdateStatus("Dishonorable Update --> " & Round(($cbVar[1] / 1000) / 60) & " Minutes Remaining.")
		Until $cbVar[1] = 0
		UpdateStatus("Dishonorable Expired. Going In.")
	EndIf
	$cbType = "int"
	CmdCB($CA_GETMAPID)
	If $cbVar[0] = $MAP_JQLux Then
		UpdateStatus("Entering Battle")
		Cmd($CA_EnterChallenge)
		WaitLoad(1)
		SR(3000, 4500)
	EndIf
	$cbType = "int"
	CmdCB($CA_GETMAPID)
	If $cbVar[0] = $MAP_JQArena Then
		Do
			WaitAlive()
			CmdCB($CA_GetPing)
			Sleep($cbVar[0])
			CmdCB($CA_SKILLRECHARGE, $SKILL_ShadowWalk)
			If $cbVar[0] <> 1 Then Sleep(Random(5000, 7500))
			$cbType = "int"
			CmdCB($CA_GETMAPID)
			If $cbVar[0] <> $MAP_JQArena Then ExitLoop
			$Shrine = LXChooseShrine()
			$cbType = "int"
			CmdCB($CA_GETMAPID)
			If $cbVar[0] <> $MAP_JQArena Then ExitLoop
			$Portal = LXPickPortalByShrine($Shrine)
			Prep()
			$cbType = "int"
			CmdCB($CA_GETMAPID)
			If $cbVar[0] <> $MAP_JQArena Then ExitLoop
			GoPortal($Portal)
			$cbType = "int"
			CmdCB($CA_GETMAPID)
			If $cbVar[0] <> $MAP_JQArena Then ExitLoop
			$ret = GoShrine($Shrine)
			Do
				If $ret = 0 Then
					$cbType = "int"
					CmdCB($CA_GETMAPID)
					If $cbVar[0] <> $MAP_JQArena Then ExitLoop
					$Shrine = LXChooseShrine()
					$cbType = "int"
					CmdCB($CA_GETMAPID)
					If $cbVar[0] <> $MAP_JQArena Then ExitLoop
					$ret = GoShrine($Shrine)
				EndIf
			Until $ret = 1
			$cbType = "int"
			CmdCB($CA_GETMAPID)
			If $cbVar[0] <> $MAP_JQArena Then ExitLoop
			GoBomb($Shrine)
			WaitDead()
			$cbType = "int"
			CmdCB($CA_GETMAPID)

		Until $cbVar[0] <> $MAP_JQArena
	EndIf
EndFunc   ;==>LuxonBotLoop
#EndRegion LuxBot
#EndRegion Bot
#Region Faction Functions
#Region Kurzick Functions
Func KZChooseShrine()
	$cbType = "int"
	CmdCB($CA_GetPing)
	Sleep($cbVar[0])
	CmdCB($CA_GetMapOverlayInfo, $SHRINE_MiddleKurzGuard)
	If $cbVar[0] <> $FACTION_Kurz Then Return $SHRINE_MiddleKurzGuard

	CmdCB($CA_GetMapOverlayInfo, $SHRINE_MiddleLuxGuard)
	If $cbVar[0] <> $FACTION_Kurz Then Return $SHRINE_MiddleLuxGuard

	CmdCB($CA_GetMapOverlayInfo, $SHRINE_PurpleGuard)
	If $cbVar[0] <> $FACTION_Kurz Then Return $SHRINE_PurpleGuard

	CmdCB($CA_GetMapOverlayInfo, $SHRINE_PurpleQuarry)
	If $cbVar[0] <> $FACTION_Kurz Then Return $SHRINE_PurpleQuarry

	CmdCB($CA_GetMapOverlayInfo, $SHRINE_YellowKurzGuard)
	If $cbVar[0] <> $FACTION_Kurz Then Return $SHRINE_YellowKurzGuard

	CmdCB($CA_GetMapOverlayInfo, $SHRINE_YellowQuarry)
	If $cbVar[0] <> $FACTION_Kurz Then Return $SHRINE_YellowQuarry

	CmdCB($CA_GetMapOverlayInfo, $SHRINE_GreenQuarry)
	If $cbVar[0] <> $FACTION_Kurz Then Return $SHRINE_GreenQuarry

	CmdCB($CA_GetMapOverlayInfo, $SHRINE_GreenGuard)
	If $cbVar[0] <> $FACTION_Kurz Then Return $SHRINE_GreenGuard

	CmdCB($CA_GetMapOverlayInfo, $SHRINE_YellowLuxGuard)
	If $cbVar[0] <> $FACTION_Kurz Then Return $SHRINE_YellowLuxGuard

	Return 1
EndFunc   ;==>KZChooseShrine

Func KZPickPortalByShrine($iShrine)
	Switch $iShrine
		Case $SHRINE_MiddleKurzGuard
			ContinueCase
		Case $SHRINE_MiddleLuxGuard
			ContinueCase
		Case $SHRINE_GreenQuarry
			ContinueCase
		Case $SHRINE_GreenGuard
			Return $PORTAL_KurzMid

		Case $SHRINE_PurpleGuard
			ContinueCase
		Case $SHRINE_PurpleQuarry
			Return $PORTAL_KurzRight

		Case $SHRINE_YellowKurzGuard
			ContinueCase
		Case $SHRINE_YellowQuarry
			ContinueCase
		Case $SHRINE_YellowLuxGuard
			Return $PORTAL_KurzLeft
	EndSwitch

	Return 0
EndFunc   ;==>KZPickPortalByShrine
#EndRegion Kurzick Functions
#Region Luxon Functions
Func LXChooseShrine()
	$cbType = "int"
	CmdCB($CA_GetPing)
	Sleep($cbVar[0])
	CmdCB($CA_GetMapOverlayInfo, $SHRINE_MiddleLuxGuard)
	If $cbVar[0] <> $FACTION_Lux Then Return $SHRINE_MiddleLuxGuard

	CmdCB($CA_GetMapOverlayInfo, $SHRINE_YellowLuxGuard)
	If $cbVar[0] <> $FACTION_Lux Then Return $SHRINE_YellowLuxGuard

	CmdCB($CA_GetMapOverlayInfo, $SHRINE_GreenGuard)
	If $cbVar[0] <> $FACTION_Lux Then Return $SHRINE_GreenGuard

	CmdCB($CA_GetMapOverlayInfo, $SHRINE_GreenQuarry)
	If $cbVar[0] <> $FACTION_Lux Then Return $SHRINE_GreenQuarry

	CmdCB($CA_GetMapOverlayInfo, $SHRINE_YellowQuarry)
	If $cbVar[0] <> $FACTION_Lux Then Return $SHRINE_YellowQuarry

	CmdCB($CA_GetMapOverlayInfo, $SHRINE_MiddleKurzGuard)
	If $cbVar[0] <> $FACTION_Lux Then Return $SHRINE_MiddleKurzGuard

	CmdCB($CA_GetMapOverlayInfo, $SHRINE_PurpleQuarry)
	If $cbVar[0] <> $FACTION_Lux Then Return $SHRINE_PurpleQuarry

	CmdCB($CA_GetMapOverlayInfo, $SHRINE_PurpleGuard)
	If $cbVar[0] <> $FACTION_Lux Then Return $SHRINE_PurpleGuard

	Return 1
EndFunc   ;==>LXChooseShrine

Func LXPickPortalByShrine($iShrine)
	Switch $iShrine
		Case $SHRINE_MiddleKurzGuard
			ContinueCase
		Case $SHRINE_MiddleLuxGuard
			ContinueCase
		Case $SHRINE_PurpleQuarry
			ContinueCase
		Case $SHRINE_PurpleGuard
			Return $PORTAL_LuxMid

		Case $SHRINE_GreenGuard
			ContinueCase
		Case $SHRINE_GreenQuarry
			Return $PORTAL_LuxLeft

		Case $SHRINE_YellowKurzGuard
			ContinueCase
		Case $SHRINE_YellowQuarry
			ContinueCase
		Case $SHRINE_YellowLuxGuard
			Return $PORTAL_LuxRight
	EndSwitch

	Return 0
EndFunc   ;==>LXPickPortalByShrine
#EndRegion Luxon Functions
#EndRegion Faction Functions
#Region Generic Functions
Func GoPortal($iPortal)
	UpdateStatus("Moving to portal")
	$cbType = "int"
	$mState = CmdCB($CA_GetMapLoading)

	$cbType = "float"
	MoveEx($aPortals[$iPortal][0], $aPortals[$iPortal][1], 60)

	$tEscape = TimerInit()

	CmdCB($CA_GETCOORDS, -2)
	Do
		Sleep(250)
		$oldCoords = $cbVar
		$cbType = "int"
		CmdCB($CA_GETISDEAD, -2)
		If $cbVar[0] = 1 Then ExitLoop

		$mStateOld = $mState
		$mState = CmdCB($CA_GetMapLoading)
		If $mState[0] <> $mStateOld[0] Then ExitLoop

		$cbType = "float"
		CmdCB($CA_GETCOORDS, -2)
		If $oldCoords[0] = $cbVar[0] And $oldCoords[1] = $cbVar[1] And TimerDiff($tEscape) > 35000 Then
			Prep()
			MoveEx($aPortals[$iPortal][0], $aPortals[$iPortal][1], 5)
			$tEscape = TimerInit()
		EndIf
	Until ComputeDistanceEx($cbVar[0], $cbVar[1], $aTeleports[$iPortal][0], $aTeleports[$iPortal][1]) < 400
	Return 1
EndFunc   ;==>GoPortal

Func GoShrine($iShrine)
	UpdateStatus("Going to Shrine")
	$cbType = "int"
	$mState = CmdCB($CA_GetMapLoading)
	$tRun = TimerInit()
	$cbType = "float"
	If $iShrine = 6 And GUICtrlRead($FactionType) = "Kurzick" Then
		MoveEx(-492.362, 1321.62, 0)
		Sleep(1000)
	ElseIf $iShrine = 7 And GUICtrlRead($FactionType) = "Luxon" Then
		MoveEx(1544.59, 3517.09, 0)
		Sleep(1000)
	Else
		MoveEx($aShrines[$iShrine - 1][0], $aShrines[$iShrine - 1][1], 20)

		CmdCB($CA_GETCOORDS, -2)
		Do
			Sleep(250)
			$oldCoords = $cbVar
			$cbType = "int"
			CmdCB($CA_GetMapOverlayInfo, $iShrine)
			If GUICtrlRead($FactionType) = "Luxon" Then
				If $cbVar[0] <> $FACTION_Kurz Then Return 0
			EndIf
			If GUICtrlRead($FactionType) = "Kurzick" Then
				If $cbVar[0] <> $FACTION_Lux Then Return 0
			EndIf
			CmdCB($CA_GETISDEAD, -2)
			If $cbVar[0] = 1 Then ExitLoop
			CmdCB($CA_SKILLRECHARGE, $SKILL_Dash)
			If Not @error And $cbVar[0] = 0 Then Cmd($CA_USESKILL, $SKILL_Dash)
			CmdCB($CA_GETISDEAD, -2)
			If $cbVar[0] = 1 Then ExitLoop
			If TimerDiff($tRun) > 36500 Then
				UpdateStatus("Runtimer!")
				Sleep(1000)
				Prep()
				$tRun = TimerInit()
			EndIf
			$mStateOld = $mState
			$mState = CmdCB($CA_GetMapLoading)
			If $mState[0] <> $mStateOld[0] Then ExitLoop

			$cbType = "float"
			CmdCB($CA_GETCOORDS, -2)
			If $oldCoords[0] = $cbVar[0] And $oldCoords[1] = $cbVar[1] Then
				MoveEx($aShrines[$iShrine - 1][0], $aShrines[$iShrine - 1][1], 40)
			EndIf
		Until ComputeDistanceEx($cbVar[0], $cbVar[1], $aShrines[$iShrine - 1][0], $aShrines[$iShrine - 1][1]) < 1220
	EndIf
	Return 1
EndFunc   ;==>GoShrine

Func GoBomb($iShrine)
	CmdCB($CA_GetPing)
	Sleep($cbVar[0])
	UpdateStatus("Bombing!")
	$target = GetNearestAgentToCoords($aShrines[$iShrine - 1][0], $aShrines[$iShrine - 1][1])
	UseSkillEx($SKILL_PutridBile, $target)
	UseSkillEx($SKILL_ShadowWalk, $target)
	UseSkillEx($SKILL_SignetOfAgony, $target)
	UseSkillEx($SKILL_TouchOfAgony, $target)
EndFunc   ;==>GoBomb

Func Prep()
	CmdCB($CA_GetPing)
	Sleep($cbVar[0])
	UpdateStatus("Preping")
	UseSkillEx($SKILL_DarkAura, -2)
	Cmd($CA_USESKILL, $SKILL_DeathNova, -2)
	Sleep(500)
	Do
		SleepEx(250)
		$cbType = "int"
		CmdCB($CA_GetSkill, -2)
	Until $cbVar[0] <> 104
	Sleep(500)
	UseSkillEx($SKILL_Contagion)
EndFunc   ;==>Prep

Func ChangeDistrict($iRegion) ;0 = american
	$tMap = TimerInit()
	Cmd($CA_ChangeDistrict, $iRegion)
	Do
		Sleep(200)
		$aLoad = CmdCB($CA_GetMapLoading)
		If TimerDiff($tMap) > 20000 And $aLoad[0] <> 2 Then Cmd($CA_ChangeDistrict, $iRegion)
		$aTmpMap = CmdCB($CA_GETMAPID)
	Until $aLoad[0] = 0 And $aTmpMap[0] = $MAP_JQKurz
EndFunc   ;==>ChangeDistrict

Func SR($min, $max)
	Sleep(Random($min, $max))
EndFunc   ;==>SR

Func WaitLoad($zone)
	$oldCbType = $cbType
	;1 - explore area, 0-outpost
	If $zone = 1 Then UpdateStatus("Entering JQ")
	If $zone = 0 Then UpdateStatus("Entering JQ Outpost")
	$cbType = "int"
	Do
		Sleep(250)
		CmdCB($CA_GetMapLoading)
	Until $cbVar[0] = $zone
	$cbType = $oldCbType
EndFunc   ;==>WaitLoad

Func WaitDead(); new improved version, more human like behavior
	UpdateStatus("Trying to die")
	$oldCbType = $cbType
	$cbType = "int"
	Do
		Sleep(250)
		$cbType = "int"
		CmdCB($CA_GETMAPID)
		If $cbVar[0] <> $MAP_JQArena Then ExitLoop
		UseSkillEx($SKILL_SignetOfAgony, -2)
		Sleep(250)
		Cmd($CA_TargetNearestFoe)
		Sleep(250)
		Cmd($CA_ATTACK, -1)
		Sleep(250)
		UseSkillEx($SKILL_PutridBile, -1)
		UseSkillEx($SKILL_TouchOfAgony, -1)
		CmdCB($CA_GETISDEAD, -2)
	Until $cbVar[0] = 1
	$cbType = $oldCbType
EndFunc   ;==>WaitDead

Func WaitAlive()
	CmdCB($CA_GetPing)
	Sleep($cbVar[0])
	UpdateStatus("Waiting to Res")
	$oldCbType = $cbType
	$cbType = "int"
	Do
		Sleep(250)
		$cbType = "int"
		CmdCB($CA_GETMAPID)
		If $cbVar[0] <> $MAP_JQArena Then ExitLoop
		CmdCB($CA_GETISDEAD, -2)
	Until $cbVar[0] = 0
	$cbType = $oldCbType
EndFunc   ;==>WaitAlive

Func GoTolkano()
	Local $tolkano, $faction
	$oldCbType = $cbType
	$cbType = "int"
	If GUICtrlRead($FactionType) = "Kurzick" Then
		Local $TolkanoCoords[2] = [-2626.65, -6745.82]
	Else
		Local $TolkanoCoords[2] = [3509.64, 13508.44]
	EndIf
	Cmd($CA_ChangeTarget, $tolkano) ;; Target Tolkano (not really needed)
	MoveToEx($TolkanoCoords[0], $TolkanoCoords[1]) ;; Move to Tolkano
	$cbType = "int"
	CmdCB($CA_GetBalthFaction) ;; Get available Balth faction
	$faction = $cbVar
	;; Exchange all Balth faction for zkeys
	While $faction[0] >= 5000
		Cmd($CA_GONPC, $tolkano) ;; Activate Dialog
		Sleep(Random(1000, 2000))
		Cmd($CA_Dialog, 134) ;; Purchase Zkeys using faction
		Sleep(Random(1000, 2000))
		Cmd($CA_Dialog, 135) ;; Purchase 1 Zkey
		Sleep(Random(1000, 2000))
		CmdCB($CA_GetBalthFaction)
		$faction = $cbVar
	WEnd
	Sleep(2000)
	$cbType = $oldCbType
EndFunc   ;==>GoTolkano

;; type 0 = Kurzick, 1 = Luxon
Func DonateFaction($type)
	Local $rewards, $faction, $factionCommand
	$oldCbType = $cbType
	$cbType = "int"
	If $type = 0 Then
		$factionCommand = $CA_GetKurzFaction
		Local $coords[2] = [-2695.97, -7084.15]
	Else
		$factionCommand = $CA_GetLuxonFaction
		Local $coords[2] = [3497.39, 13084.34]
	EndIf
	$rewards = GetNearestNpcToCoords($coords[0], $coords[1])
	Cmd($CA_ChangeTarget, $rewards) ;; Target Donation Guy (not really needed)
	$cbType = "float"
	MoveToEx($coords[0], $coords[1]) ;; Move to donation guy
	$cbType = "int"
	CmdCB($factionCommand) ;; Get available faction
	$faction = $cbVar
	Cmd($CA_GONPC, $rewards) ;; Activate Dialog
	Sleep(Random(1000, 2000))
	Cmd($CA_Dialog, 134) ;; Raise Alliance Reputation button action
	Sleep(2000)
	While $faction[0] >= 5000
		Cmd($CA_DonateFaction, $type)
		CmdCB($factionCommand)
		$faction = $cbVar
		Sleep(Random(500, 1000))
	WEnd
	Sleep(2000)
	$cbType = $oldCbType
EndFunc   ;==>DonateFaction

Func SleepEx($msDelay)
	$old = $cbType
	$cbType = "int"
	CmdCB($CA_GetPing)
	Sleep($msDelay + $cbVar[0])
	$cbType = $old
EndFunc   ;==>SleepEx



Func RefreshGW()
	$selected = GUICtrlRead($cmbogw)
	Local $winlist[1]
	$list = WinList()
	For $i = 1 To $list[0][0]
		If StringInStr($list[$i][0], "Guild Wars -") <> 0 Then
			ReDim $winlist[UBound($winlist) + 1]
			$winlist[UBound($winlist) - 1] = $list[$i][0]
		EndIf
	Next
	GUICtrlSetData($cmbogw, _ArrayToString($winlist, "|"), $selected)
EndFunc   ;==>RefreshGW



#EndRegion Generic Functions
03/07/2011 22:19 kenneahnung#11
aus purer nettigkeit vielleicht hab gehört sowas gibt es noch :'D

der code bringt mir genauso wenig
03/07/2011 22:22 Glücksbärchen™#12
Google autoit und downloade dir das, der Rest erübrigt sich
03/07/2011 22:31 kenneahnung#13
hmm hab damit soweit alles gemacht kommt aba ne fehlermeldung
03/07/2011 23:39 blauwiggle#14
Quote:
Originally Posted by kenneahnung View Post
hmm hab damit soweit alles gemacht kommt aba ne fehlermeldung
Ich hat vorhin auch ne Fehlermeldung ^^
Hab mich aber drum gekümmert und nun kommt die nicht mehr.

Probiers mal aus ;)
03/08/2011 11:12 kenneahnung#15
was haste denn gemacht?
Page 1 of 2 1 2