|
You last visited: Today at 20:50
Advertisement
Suche Necrobomber JSB Bot
Discussion on Suche Necrobomber JSB Bot within the GW Bots forum part of the Guild Wars category.
03/07/2011, 20:01
|
#1
|
elite*gold: 0 
Join Date: Mar 2009
Posts: 46
Received Thanks: 5
|
Suche Necrobomber JSB Bot
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
|
#2
|
elite*gold: 20
Join Date: Feb 2007
Posts: 3,080
Received Thanks: 4,294
|
gibts nicht
|
|
|
|
|
03/07/2011, 20:21
|
#3
|
elite*gold: 0
Join Date: Dec 2009
Posts: 209
Received Thanks: 50
|
Wenn du damit was anfangen kannst, dann viel spass, wenn nicht, dann lass es lieber 
PHP Code:
#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
|
|
|
|
|
03/07/2011, 21:07
|
#4
|
elite*gold: 20
Join Date: Feb 2007
Posts: 3,080
Received Thanks: 4,294
|
ich bin ja glatt sprachlos das hier noch jemand was erstellen kann wo ich kein augenkrebs von bekomme.
|
|
|
|
|
03/07/2011, 21:13
|
#5
|
elite*gold: 0
Join Date: Mar 2009
Posts: 46
Received Thanks: 5
|
hmm iwie kann ich damit nix anfangen xD
was macht man damit ^^?
|
|
|
|
|
03/07/2011, 21:38
|
#6
|
elite*gold: 20
Join Date: Feb 2007
Posts: 3,080
Received Thanks: 4,294
|
du brauchst ne modifizierte dll und eine angepasste gwcaconstants. also auf gut deutsch nichts für dich.
|
|
|
|
|
03/07/2011, 21:41
|
#7
|
elite*gold: 0
Join Date: Jan 2010
Posts: 447
Received Thanks: 315
|
Aber wirklich nett das du sowas hier public stellst.
MfG
black byte
|
|
|
|
|
03/07/2011, 21:55
|
#8
|
elite*gold: 0
Join Date: Mar 2009
Posts: 46
Received Thanks: 5
|
hmm kann das jemand mal so umändern das ich es auch verwenden kann?
|
|
|
|
|
03/07/2011, 21:57
|
#9
|
elite*gold: 20
Join Date: Feb 2007
Posts: 3,080
Received Thanks: 4,294
|
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
|
#10
|
elite*gold: 0
Join Date: Feb 2010
Posts: 760
Received Thanks: 204
|
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
|
#11
|
elite*gold: 0
Join Date: Mar 2009
Posts: 46
Received Thanks: 5
|
aus purer nettigkeit vielleicht hab gehört sowas gibt es noch :'D
der code bringt mir genauso wenig
|
|
|
|
|
03/07/2011, 22:22
|
#12
|
elite*gold: 50
Join Date: Nov 2010
Posts: 2,172
Received Thanks: 373
|
Google autoit und downloade dir das, der Rest erübrigt sich
|
|
|
|
|
03/07/2011, 22:31
|
#13
|
elite*gold: 0
Join Date: Mar 2009
Posts: 46
Received Thanks: 5
|
hmm hab damit soweit alles gemacht kommt aba ne fehlermeldung
|
|
|
|
|
03/07/2011, 23:39
|
#14
|
elite*gold: 0
Join Date: Apr 2006
Posts: 1,722
Received Thanks: 476
|
Quote:
Originally Posted by kenneahnung
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
|
#15
|
elite*gold: 0
Join Date: Mar 2009
Posts: 46
Received Thanks: 5
|
was haste denn gemacht?
|
|
|
|
Similar Threads
|
[suche]suche fiesta online &makeitem codes[Suche]
08/02/2011 - Fiesta Online - 3 Replies
Moin Moin, ich suche schon längere zeit nach iwi ne datei oder so wie die ganzen ; items,mount,pets,händler,rüstung und so weiter drinne stehen würde mich sehr freuen.
und wen jemand ne datei hand wo neue sachen sind würde ich mich auch freuen
m.f.g. Shannks :handsdown:
|
[SUCHE]Ich suche einen der mit mir Levelt[SUCHE]
10/26/2010 - CrossFire - 2 Replies
Ich suche ein zum Leveln
wieso solltest du mit machen
-viel Exp
-schnelles aufsteigen
eine runde killd der eine andere runde killt der ein oder nahc ein ander so oder so mir egal
|
All times are GMT +1. The time now is 20:55.
|
|
