You last visited: Today at 23:35
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
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: 210
Received Thanks: 50
Wenn du damit was anfangen kannst, dann viel spass, wenn nicht, dann lass es lieber
PHP Code:
#include <ProgressConstants.au3>
; Starter ini points
= "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 .
$totalRunsLuxon = Number ( IniRead ( "Statistics.dat" , "Luxon Statistics" , "Runs" , "0" ))
$totalTimeLuxon = Number ( IniRead ( "Statistics.dat" , "Luxon Statistics" , "Time" , "0.0001" ))
$totalFactionLuxon = Number ( IniRead ( "Statistics.dat" , "Luxon Statistics" , "Faction" , "" ))
$totalRunsKurzick = Number ( IniRead ( "Statistics.dat" , "Kurzick Statistics" , "Runs" , "0" ))
$totalTimeKurzick = Number ( IniRead ( "Statistics.dat" , "Kurzick Statistics" , "Time" , "0.0001" ))
$totalFactionKurzick = Number ( IniRead ( "Statistics.dat" , "Kurzick Statistics" , "Faction" , "" ))
$totalFactionBalth = Number ( IniRead ( "Statistics.dat" , "Balth Statistics" , "Faction" , "" ))
#EndRegion Variables
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
Enum $SKILL_Contagion = 1 , _
, _
, _
, _
, _
, _
, _
#EndRegion Skills
Enum $SHRINE_PurpleQuarry = 1 , _
, _
, _
, _
, _
, _
, _
, _
, _
, _
#EndRegion Shrine enum
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
Enum $PORTAL_KurzLeft = 0 , _
, _
, _
, _
, _
#EndRegion Portals
Dim $aPortals [ 6 ][ 2 ] = [[- 4894 , - 1619 ], _
[- 3649 , - 1760 ], _
[- 3178 , - 2457 ], _
[ 5206 , 6622 ], _
[ 4611 , 6885 ], _
[ 4119 , 8289 ]]
#EndRegion PortalCoords
Dim $aTeleports [ 6 ][ 2 ] = [[- 3287 , 2420 ], _
[- 288 , 1131 ], _
[- 631 , - 721 ], _
[ 3806 , 3731 ], _
[ 1777 , 3312 ], _
[ 667 , 6432 ]]
#EndRegion TeleportCoords
$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 ()
GUICtrlRead ( $FactionType ) = "Luxon" Then
If GUICtrlRead ( $FactionDonationOption ) = "Alliance" Then
( $FactionDonationOption , "|Alliance|Jadeite" , "Alliance" )
GUICtrlSetData ( $FactionDonationOption , "|Alliance|Jadeite" , "Jadeite" )
GUICtrlRead ( $FactionDonationOption ) = "Alliance" Then
( $FactionDonationOption , "|Alliance|Amber" , "Alliance" )
GUICtrlSetData ( $FactionDonationOption , "|Alliance|Amber" , "Amber" )
DisplayStatistics () ;; Everytime something happens , update stats
Switch (@ GUI_CtrlId )
$btnClose
Exit
$buttonRun
= Not $bRunning
If $bRunning Then
= GUICtrlRead ( $cmbogw )
GUICtrlSetData ( $buttonRun , "Stop!" )
GUICtrlSetState ( $cmbogw , $GUI_DISABLE )
GUICtrlSetState ( $FactionType , $GUI_DISABLE )
GUICtrlSetState ( $FactionDonationOption , $GUI_DISABLE )
GUICtrlSetState ( $BalthOption , $GUI_DISABLE )
GUICtrlSetData ( $buttonRun , "Start!" )
GUICtrlSetState ( $cmbogw , $GUI_ENABLE )
GUICtrlSetState ( $FactionType , $GUI_ENABLE )
GUICtrlSetState ( $FactionDonationOption , $GUI_ENABLE )
GUICtrlSetState ( $BalthOption , $GUI_ENABLE )
EndFunc ;==> EventHandler
()
$oldCbType = $cbType
= "int"
If GUICtrlRead ( $FactionType ) = "Kurzick" Then
( $CA_GetTitleKurzick )
CmdCB ( $CA_GetTitleLuxon )
$cbVar [ 0 ]
7500000 To 10000000
= $cbVar [ 0 ] - 7500000
= 10000000 - 7500000
( $progressAlly , Round (( $n / $d ) * 100 , 0 ))
5000000 To 7500000
= $cbVar [ 0 ] - 5000000
= 7500000 - 5000000
( $progressAlly , Round (( $n / $d ) * 100 , 0 ))
3750000 To 5000000
= $cbVar [ 0 ] - 3750000
= 5000000 - 3750000
( $progressAlly , Round (( $n / $d ) * 100 , 0 ))
2500000 To 3750000
= $cbVar [ 0 ] - 2500000
= 3750000 - 2500000
( $progressAlly , Round (( $n / $d ) * 100 , 0 ))
1850000 To 2500000
= $cbVar [ 0 ] - 1850000
= 2500000 - 1850000
( $progressAlly , Round (( $n / $d ) * 100 , 0 ))
1200000 To 1850000
= $cbVar [ 0 ] - 1200000
= 1850000 - 1200000
( $progressAlly , Round (( $n / $d ) * 100 , 0 ))
875000 To 1200000
= $cbVar [ 0 ] - 875000
= 1200000 - 875000
( $progressAlly , Round (( $n / $d ) * 100 , 0 ))
550000 To 875000
= $cbVar [ 0 ] - 550000
= 875000 - 550000
( $progressAlly , Round (( $n / $d ) * 100 , 0 ))
400000 To 550000
= $cbVar [ 0 ] - 400000
= 550000 - 400000
( $progressAlly , Round (( $n / $d ) * 100 , 0 ))
250000 To 400000
= $cbVar [ 0 ] - 250000
= 400000 - 250000
( $progressAlly , Round (( $n / $d ) * 100 , 0 ))
100000 To 250000
= $cbVar [ 0 ] - 100000
= 250000 - 100000
( $progressAlly , Round (( $n / $d ) * 100 , 0 ))
1 To 100000
= $cbVar [ 0 ]
$d = 100000
( $progressAlly , Round (( $n / $d ) * 100 , 0 ))
EndFunc ;==> SetProgress
( $text )
GUICtrlSetData ( $labelStatus , $text )
EndFunc ;==> UpdateStatus
#EndRegion GUI Region
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
()
GUICtrlRead ( $FactionType ) = "Luxon" Then
( $labelTotalRuns , "Total runs: " & $totalRunsLuxon )
GUICtrlSetData ( $labelRunsHour , "/hour: " & Round ( $totalRunsLuxon / $totalTimeLuxon , 2 ))
GUICtrlSetData ( $labelTotalKorLPoints , "Luxon: " & $totalFactionLuxon )
GUICtrlSetData ( $labelPointsKorLHour , "/hour: " & Round ( $totalFactionLuxon / $totalTimeLuxon , 2 ))
GUICtrlSetData ( $labelTotalRuns , "Total runs: " & $totalRunsKurzick )
GUICtrlSetData ( $labelRunsHour , "/hour: " & Round ( $totalRunsKurzick / $totalTimeKurzick , 2 ))
GUICtrlSetData ( $labelTotalKorLPoints , "Kurzick: " & $totalFactionKurzick )
GUICtrlSetData ( $labelPointsKorLHour , "/hour: " & Round ( $totalFactionKurzick / $totalTimeKurzick , 2 ))
GUICtrlSetData ( $labelTotalBPoints , "Balth: " & $totalFactionBalth )
GUICtrlSetData ( $labelPointsBHour , "/hour: " & Round ( $totalFactionBalth / ( $totalTimeLuxon + $totalTimeKurzick ), 2 ))
SaveStatistics ()
EndFunc ;==> DisplayStatistics
#EndRegion Stats
DisplayStatistics ()
1
( 1000 )
SetProgress ()
$bRunning Then
( "BalthOption: " & GUICtrlRead ( $BalthOption ) & @ CRLF )
GUICtrlRead ( $BalthOption ) = "Exchange for zkeys" Then
= "int"
CmdCB ( $CA_GetBalthFaction )
Local $percentage = $cbVar [ 0 ] / $cbVar [ 1 ]
ConsoleWrite ( "Balth Bar $percentage : " & $percentage & @ CRLF )
$percentage >= 0.5 Then
( "Buying Zkeys with Balth Faction" )
GoTolkano ()
KURZICK Statistics
If GUICtrlRead ( $FactionType ) = "Kurzick" Then
= TimerInit ()
$cbType = "int"
;; Initial Stats
( $CA_GetKurzFaction )
$preRunKurz = $cbVar [ 0 ]
CmdCB ( $CA_GetBalthFaction )
$preRunBalth = $cbVar [ 0 ]
GUICtrlRead ( $FactionDonationOption ) = "Alliance" Then
= "int"
CmdCB ( $CA_GetKurzFaction )
Local $percentage = $cbVar [ 0 ] / $cbVar [ 1 ]
ConsoleWrite ( "Kurzick Bar $percentage : " & $percentage & @ CRLF )
$percentage >= 0.75 Then
( "Donating Kurzick Faction to the Alliance" )
DonateFaction ( 0 )
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 )
ConsoleWrite ( "Kurzick Pre Faction: " & $preRunKurz & @ CRLF )
ConsoleWrite ( "Balthazar Pre Faction: " & $preRunBalth & @ CRLF )
KurzickBotLoop ()
WaitLoad ( 0 )
SR ( 5000 , 7500 )
Update stats
+= 1
( "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 ()
LUXON Statistics
If GUICtrlRead ( $FactionType ) = "Luxon" Then
= TimerInit ()
$cbType = "int"
CmdCB ( $CA_GetLuxonFaction )
$preRunLux = $cbVar [ 0 ]
CmdCB ( $CA_GetBalthFaction )
$preRunBalth = $cbVar [ 0 ]
GUICtrlRead ( $FactionDonationOption ) = "Alliance" Then
= "int"
CmdCB ( $CA_GetLuxonFaction )
Local $percentage = $cbVar [ 0 ] / $cbVar [ 1 ]
ConsoleWrite ( "Luxon Bar $percentage : " & $percentage & @ CRLF )
$percentage >= 0.75 Then
( "Donating Luxon Faction to the Alliance" )
DonateFaction ( 1 )
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 )
ConsoleWrite ( "Luxon Pre Faction: " & $preRunLux & @ CRLF )
ConsoleWrite ( "Balthazar Pre Faction: " & $preRunBalth & @ CRLF )
LuxonBotLoop ()
WaitLoad ( 0 )
SR ( 5000 , 7500 )
Update stats
+= 1
( "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 ()
WEnd
#Region KurzBot
Func KurzickBotLoop ()
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQKurz And $cbVar [ 0 ] <> $MAP_JQArena ) Then
( "Travelling to Jade Quarry" )
TravelTo ( $MAP_JQKurz )
SR ( 3000 , 3500 )
ChangeDistrict ( 2 )
UpdateStatus ( "Changing District" )
SR ( 1000 , 2000 )
$cbType = "float"
cmdCB ( $CA_GetEffectDuration , 2546 )
$cbVar [ 1 ] > 0 Then
( "Dishonorable Detected.. Duration is " & Round (( $cbVar [ 1 ] / 1000 ) / 60 ) & " Minutes..." )
Sleep ( Random ( 2000 , 3000 ))
cmdCB ( $CA_GetEffectDuration , 2546 )
UpdateStatus ( "Dishonorable Update --> " & Round (( $cbVar [ 1 ] / 1000 ) / 60 ) & " Minutes Remaining." )
Until $cbVar [ 1 ] = 0
( "Dishonorable Expired. Going In." )
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] = $MAP_JQKurz Then
( "Entering Battle" )
Cmd ( $CA_EnterChallenge )
WaitLoad ( 1 )
SR ( 3000 , 4500 )
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] = $MAP_JQArena Then
Do
WaitAlive ()
CmdCB ( $CA_GetPing )
Sleep ( $cbVar [ 0 ])
CmdCB ( $CA_SKILLRECHARGE , $SKILL_ShadowWalk )
$cbVar [ 0 ] <> 0 Then Sleep ( Random ( 5000 , 7500 ))
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQArena Then ExitLoop
= KZChooseShrine ()
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQArena Then ExitLoop
= KZPickPortalByShrine ( $Shrine )
Prep ()
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQArena Then ExitLoop
( $Portal )
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQArena Then ExitLoop
= GoShrine ( $Shrine )
$ret = 0 Then
= "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQArena Then ExitLoop
= KZChooseShrine ()
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQArena Then ExitLoop
= GoShrine ( $Shrine )
Until $ret = 1
= "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQArena Then ExitLoop
( $Shrine )
WaitDead ()
$cbType = "int"
CmdCB ( $CA_GETMAPID )
Until $cbVar [ 0 ] <> $MAP_JQArena
EndIf
EndFunc ;==> KurzickBotLoop
#EndRegion KurzBot
Func LuxonBotLoop ()
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQLux And $cbVar [ 0 ] <> $MAP_JQArena ) Then
( "Travelling to Jade Quarry" )
TravelTo ( $MAP_JQLux )
SR ( 3000 , 3500 )
ChangeDistrict ( 2 )
UpdateStatus ( "Changing District" )
SR ( 1000 , 2000 )
$cbType = "float"
cmdCB ( $CA_GetEffectDuration , 2546 )
$cbVar [ 1 ] > 0 Then
( "Dishonorable Detected.. Duration is " & Round (( $cbVar [ 1 ] / 1000 ) / 60 ) & " Minutes..." )
Sleep ( Random ( 2000 , 3000 ))
cmdCB ( $CA_GetEffectDuration , 2546 )
UpdateStatus ( "Dishonorable Update --> " & Round (( $cbVar [ 1 ] / 1000 ) / 60 ) & " Minutes Remaining." )
Until $cbVar [ 1 ] = 0
( "Dishonorable Expired. Going In." )
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] = $MAP_JQLux Then
( "Entering Battle" )
Cmd ( $CA_EnterChallenge )
WaitLoad ( 1 )
SR ( 3000 , 4500 )
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] = $MAP_JQArena Then
Do
WaitAlive ()
CmdCB ( $CA_GetPing )
Sleep ( $cbVar [ 0 ])
CmdCB ( $CA_SKILLRECHARGE , $SKILL_ShadowWalk )
$cbVar [ 0 ] <> 1 Then Sleep ( Random ( 5000 , 7500 ))
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQArena Then ExitLoop
= LXChooseShrine ()
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQArena Then ExitLoop
= LXPickPortalByShrine ( $Shrine )
Prep ()
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQArena Then ExitLoop
( $Portal )
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQArena Then ExitLoop
= GoShrine ( $Shrine )
$ret = 0 Then
= "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQArena Then ExitLoop
= LXChooseShrine ()
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQArena Then ExitLoop
= GoShrine ( $Shrine )
Until $ret = 1
= "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQArena Then ExitLoop
( $Shrine )
WaitDead ()
$cbType = "int"
CmdCB ( $CA_GETMAPID )
Until $cbVar [ 0 ] <> $MAP_JQArena
EndIf
EndFunc ;==> LuxonBotLoop
#EndRegion LuxBot
Func KZChooseShrine ()
$cbType = "int"
CmdCB ( $CA_GetPing )
Sleep ( $cbVar [ 0 ])
CmdCB ( $CA_GetMapOverlayInfo , $SHRINE_MiddleKurzGuard )
$cbVar [ 0 ] <> $FACTION_Kurz Then Return $SHRINE_MiddleKurzGuard
( $CA_GetMapOverlayInfo , $SHRINE_MiddleLuxGuard )
$cbVar [ 0 ] <> $FACTION_Kurz Then Return $SHRINE_MiddleLuxGuard
( $CA_GetMapOverlayInfo , $SHRINE_PurpleGuard )
$cbVar [ 0 ] <> $FACTION_Kurz Then Return $SHRINE_PurpleGuard
( $CA_GetMapOverlayInfo , $SHRINE_PurpleQuarry )
$cbVar [ 0 ] <> $FACTION_Kurz Then Return $SHRINE_PurpleQuarry
( $CA_GetMapOverlayInfo , $SHRINE_YellowKurzGuard )
$cbVar [ 0 ] <> $FACTION_Kurz Then Return $SHRINE_YellowKurzGuard
( $CA_GetMapOverlayInfo , $SHRINE_YellowQuarry )
$cbVar [ 0 ] <> $FACTION_Kurz Then Return $SHRINE_YellowQuarry
( $CA_GetMapOverlayInfo , $SHRINE_GreenQuarry )
$cbVar [ 0 ] <> $FACTION_Kurz Then Return $SHRINE_GreenQuarry
( $CA_GetMapOverlayInfo , $SHRINE_GreenGuard )
$cbVar [ 0 ] <> $FACTION_Kurz Then Return $SHRINE_GreenGuard
( $CA_GetMapOverlayInfo , $SHRINE_YellowLuxGuard )
$cbVar [ 0 ] <> $FACTION_Kurz Then Return $SHRINE_YellowLuxGuard
Return 1
;==> KZChooseShrine
( $iShrine )
$iShrine
Case $SHRINE_MiddleKurzGuard
Case $SHRINE_MiddleLuxGuard
Case $SHRINE_GreenQuarry
Case $SHRINE_GreenGuard
Return $PORTAL_KurzMid
Case $SHRINE_PurpleGuard
Case $SHRINE_PurpleQuarry
Return $PORTAL_KurzRight
Case $SHRINE_YellowKurzGuard
Case $SHRINE_YellowQuarry
Case $SHRINE_YellowLuxGuard
Return $PORTAL_KurzLeft
EndSwitch
0
;==> KZPickPortalByShrine
#EndRegion Kurzick Functions
Func LXChooseShrine ()
$cbType = "int"
CmdCB ( $CA_GetPing )
Sleep ( $cbVar [ 0 ])
CmdCB ( $CA_GetMapOverlayInfo , $SHRINE_MiddleLuxGuard )
$cbVar [ 0 ] <> $FACTION_Lux Then Return $SHRINE_MiddleLuxGuard
( $CA_GetMapOverlayInfo , $SHRINE_YellowLuxGuard )
$cbVar [ 0 ] <> $FACTION_Lux Then Return $SHRINE_YellowLuxGuard
( $CA_GetMapOverlayInfo , $SHRINE_GreenGuard )
$cbVar [ 0 ] <> $FACTION_Lux Then Return $SHRINE_GreenGuard
( $CA_GetMapOverlayInfo , $SHRINE_GreenQuarry )
$cbVar [ 0 ] <> $FACTION_Lux Then Return $SHRINE_GreenQuarry
( $CA_GetMapOverlayInfo , $SHRINE_YellowQuarry )
$cbVar [ 0 ] <> $FACTION_Lux Then Return $SHRINE_YellowQuarry
( $CA_GetMapOverlayInfo , $SHRINE_MiddleKurzGuard )
$cbVar [ 0 ] <> $FACTION_Lux Then Return $SHRINE_MiddleKurzGuard
( $CA_GetMapOverlayInfo , $SHRINE_PurpleQuarry )
$cbVar [ 0 ] <> $FACTION_Lux Then Return $SHRINE_PurpleQuarry
( $CA_GetMapOverlayInfo , $SHRINE_PurpleGuard )
$cbVar [ 0 ] <> $FACTION_Lux Then Return $SHRINE_PurpleGuard
Return 1
;==> LXChooseShrine
( $iShrine )
$iShrine
Case $SHRINE_MiddleKurzGuard
Case $SHRINE_MiddleLuxGuard
Case $SHRINE_PurpleQuarry
Case $SHRINE_PurpleGuard
Return $PORTAL_LuxMid
Case $SHRINE_GreenGuard
Case $SHRINE_GreenQuarry
Return $PORTAL_LuxLeft
Case $SHRINE_YellowKurzGuard
Case $SHRINE_YellowQuarry
Case $SHRINE_YellowLuxGuard
Return $PORTAL_LuxRight
EndSwitch
0
;==> LXPickPortalByShrine
#EndRegion Luxon 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 )
Sleep ( 250 )
$oldCoords = $cbVar
= "int"
CmdCB ( $CA_GETISDEAD , - 2 )
$cbVar [ 0 ] = 1 Then ExitLoop
= $mState
= CmdCB ( $CA_GetMapLoading )
$mState [ 0 ] <> $mStateOld [ 0 ] Then ExitLoop
= "float"
CmdCB ( $CA_GETCOORDS , - 2 )
$oldCoords [ 0 ] = $cbVar [ 0 ] And $oldCoords [ 1 ] = $cbVar [ 1 ] And TimerDiff ( $tEscape ) > 35000 Then
()
MoveEx ( $aPortals [ $iPortal ][ 0 ], $aPortals [ $iPortal ][ 1 ], 5 )
$tEscape = TimerInit ()
Until ComputeDistanceEx ( $cbVar [ 0 ], $cbVar [ 1 ], $aTeleports [ $iPortal ][ 0 ], $aTeleports [ $iPortal ][ 1 ]) < 400
Return 1
;==> GoPortal
( $iShrine )
UpdateStatus ( "Going to Shrine" )
$cbType = "int"
$mState = CmdCB ( $CA_GetMapLoading )
$tRun = TimerInit ()
$cbType = "float"
If $iShrine = 6 And GUICtrlRead ( $FactionType ) = "Kurzick" Then
(- 492.362 , 1321.62 , 0 )
Sleep ( 1000 )
$iShrine = 7 And GUICtrlRead ( $FactionType ) = "Luxon" Then
( 1544.59 , 3517.09 , 0 )
Sleep ( 1000 )
MoveEx ( $aShrines [ $iShrine - 1 ][ 0 ], $aShrines [ $iShrine - 1 ][ 1 ], 20 )
CmdCB ( $CA_GETCOORDS , - 2 )
Sleep ( 250 )
$oldCoords = $cbVar
= "int"
CmdCB ( $CA_GetMapOverlayInfo , $iShrine )
GUICtrlRead ( $FactionType ) = "Luxon" Then
If $cbVar [ 0 ] <> $FACTION_Kurz Then Return 0
EndIf
GUICtrlRead ( $FactionType ) = "Kurzick" Then
If $cbVar [ 0 ] <> $FACTION_Lux Then Return 0
EndIf
CmdCB ( $CA_GETISDEAD , - 2 )
$cbVar [ 0 ] = 1 Then ExitLoop
( $CA_SKILLRECHARGE , $SKILL_Dash )
Not @ error And $cbVar [ 0 ] = 0 Then Cmd ( $CA_USESKILL , $SKILL_Dash )
CmdCB ( $CA_GETISDEAD , - 2 )
$cbVar [ 0 ] = 1 Then ExitLoop
If TimerDiff ( $tRun ) > 36500 Then
( "Runtimer!" )
Sleep ( 1000 )
Prep ()
$tRun = TimerInit ()
$mStateOld = $mState
= CmdCB ( $CA_GetMapLoading )
$mState [ 0 ] <> $mStateOld [ 0 ] Then ExitLoop
= "float"
CmdCB ( $CA_GETCOORDS , - 2 )
$oldCoords [ 0 ] = $cbVar [ 0 ] And $oldCoords [ 1 ] = $cbVar [ 1 ] Then
( $aShrines [ $iShrine - 1 ][ 0 ], $aShrines [ $iShrine - 1 ][ 1 ], 40 )
Until ComputeDistanceEx ( $cbVar [ 0 ], $cbVar [ 1 ], $aShrines [ $iShrine - 1 ][ 0 ], $aShrines [ $iShrine - 1 ][ 1 ]) < 1220
EndIf
1
;==> GoShrine
( $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
()
CmdCB ( $CA_GetPing )
Sleep ( $cbVar [ 0 ])
UpdateStatus ( "Preping" )
UseSkillEx ( $SKILL_DarkAura , - 2 )
Cmd ( $CA_USESKILL , $SKILL_DeathNova , - 2 )
Sleep ( 500 )
SleepEx ( 250 )
$cbType = "int"
CmdCB ( $CA_GetSkill , - 2 )
Until $cbVar [ 0 ] <> 104
( 500 )
UseSkillEx ( $SKILL_Contagion )
EndFunc ;==> Prep
( $iRegion ) ; 0 = american
= TimerInit ()
Cmd ( $CA_ChangeDistrict , $iRegion )
Sleep ( 200 )
$aLoad = CmdCB ( $CA_GetMapLoading )
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
;==> ChangeDistrict
( $min , $max )
Sleep ( Random ( $min , $max ))
EndFunc ;==> SR
( $zone )
$oldCbType = $cbType
; 1 - explore area , 0 - outpost
If $zone = 1 Then UpdateStatus ( "Entering JQ" )
$zone = 0 Then UpdateStatus ( "Entering JQ Outpost" )
$cbType = "int"
Do
Sleep ( 250 )
CmdCB ( $CA_GetMapLoading )
Until $cbVar [ 0 ] = $zone
= $oldCbType
;==> WaitLoad
(); new improved version , more human like behavior
( "Trying to die" )
$oldCbType = $cbType
= "int"
Do
Sleep ( 250 )
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQArena Then ExitLoop
( $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
= $oldCbType
;==> WaitDead
()
CmdCB ( $CA_GetPing )
Sleep ( $cbVar [ 0 ])
UpdateStatus ( "Waiting to Res" )
$oldCbType = $cbType
= "int"
Do
Sleep ( 250 )
$cbType = "int"
CmdCB ( $CA_GETMAPID )
$cbVar [ 0 ] <> $MAP_JQArena Then ExitLoop
( $CA_GETISDEAD , - 2 )
Until $cbVar [ 0 ] = 0
= $oldCbType
;==> WaitAlive
()
Local $tolkano , $faction
= $cbType
= "int"
If GUICtrlRead ( $FactionType ) = "Kurzick" Then
[ 2 ] = [- 2626.65 , - 6745.82 ]
Local $TolkanoCoords [ 2 ] = [ 3509.64 , 13508.44 ]
Cmd ( $CA_ChangeTarget , $tolkano ) ;; Target Tolkano ( not really needed )
MoveToEx ( $TolkanoCoords [ 0 ], $TolkanoCoords [ 1 ]) ;; Move to Tolkano
= "int"
CmdCB ( $CA_GetBalthFaction ) ;; Get available Balth faction
= $cbVar
;; Exchange all Balth faction for zkeys
While $faction [ 0 ] >= 5000
( $CA_GONPC , $tolkano ) ;; Activate Dialog
( Random ( 1000 , 2000 ))
Cmd ( $CA_Dialog , 134 ) ;; Purchase Zkeys using faction
( Random ( 1000 , 2000 ))
Cmd ( $CA_Dialog , 135 ) ;; Purchase 1 Zkey
( Random ( 1000 , 2000 ))
CmdCB ( $CA_GetBalthFaction )
$faction = $cbVar
( 2000 )
$cbType = $oldCbType
;==> GoTolkano
;; type 0 = Kurzick , 1 = Luxon
( $type )
Local $rewards , $faction , $factionCommand
= $cbType
= "int"
If $type = 0 Then
= $CA_GetKurzFaction
[ 2 ] = [- 2695.97 , - 7084.15 ]
$factionCommand = $CA_GetLuxonFaction
[ 2 ] = [ 3497.39 , 13084.34 ]
$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
= "int"
CmdCB ( $factionCommand ) ;; Get available faction
= $cbVar
( $CA_GONPC , $rewards ) ;; Activate Dialog
( Random ( 1000 , 2000 ))
Cmd ( $CA_Dialog , 134 ) ;; Raise Alliance Reputation button action
( 2000 )
$faction [ 0 ] >= 5000
( $CA_DonateFaction , $type )
CmdCB ( $factionCommand )
$faction = $cbVar
( Random ( 500 , 1000 ))
WEnd
( 2000 )
$cbType = $oldCbType
;==> DonateFaction
( $msDelay )
$old = $cbType
= "int"
CmdCB ( $CA_GetPing )
Sleep ( $msDelay + $cbVar [ 0 ])
$cbType = $old
;==> SleepEx
()
$selected = GUICtrlRead ( $cmbogw )
Local $winlist [ 1 ]
$list = WinList ()
$i = 1 To $list [ 0 ][ 0 ]
StringInStr ( $list [ $i ][ 0 ], "Guild Wars -" ) <> 0 Then
[ UBound ( $winlist ) + 1 ]
$winlist [ UBound ( $winlist ) - 1 ] = $list [ $i ][ 0 ]
Next
( $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
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.
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
03/07/2011, 22:22
#12
elite*gold: 50
Join Date: Nov 2010
Posts: 2,178
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?
[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 +2. The time now is 23:35 .
