#NoTrayIcon
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <Math.au3>
#include "GWA2.au3"
#include "Constants.au3"
Opt("MustDeclareVars", True) ; have to declare variables with either Local or Global.
Opt("GUIOnEventMode", True) ; enable gui on event mode
Global $boolInitialized = False
Global $boolRunning = False
Global $lastDistrict = -1
Global $Rendering = True
Global Const $MainGui = GUICreate("Skelefarm - Quest Acceptor", 172, 190)
GUICtrlCreateLabel("Skelefarm - Quest Acceptor", 8, 6, 156, 17, $SS_CENTER)
Global Const $inputCharName = GUICtrlCreateCombo("", 8, 24, 150, 22)
GUICtrlSetData(-1, GetLoggedCharNames())
Global Const $cbxHideGW = GUICtrlCreateCheckbox("Disable Graphics", 8, 48)
Global Const $cbxOnTop = GUICtrlCreateCheckbox("Always On Top", 8, 68)
;~ GUICtrlCreateLabel("Runs:", 8, 92)
;~ Global Const $lblRunsCount = GUICtrlCreateLabel(0, 80, 92, 30)
;~ GUICtrlCreateLabel("Fails:", 8, 112)
;~ Global Const $lblFailsCount = GUICtrlCreateLabel(0, 80, 112, 30)
Global Const $lblLog = GUICtrlCreateLabel("", 8, 130, 154, 30)
Global Const $btnStart = GUICtrlCreateButton("Start", 8, 162, 154, 25)
GUICtrlSetOnEvent($btnStart, "EventHandler")
GUICtrlSetOnEvent($cbxOnTop, "EventHandler")
GUICtrlSetOnEvent($cbxHideGW, "EventHandler")
GUISetOnEvent($GUI_EVENT_CLOSE, "EventHandler")
GUISetState [MENTION=330060]Sw_[/MENTION]SHOW)
Do
Sleep(100)
Until $boolInitialized
If GetMapID() <> $LA_ID Then
TravelTo($LA_ID)
EndIf
; abandon quest if we have it:
If DllStructGetData(GetQuestByID($EVERY_BIT_HELPS), "ID") <> 0 Then
AbandonQuest($EVERY_BIT_HELPS)
Sleep(GetPing()+100)
EndIf
While 1
If $boolRunning Then
; Gold check
If GetGoldCharacter() >= 99*1000 Then
If GetGoldStorage() < 900*1000 Then
DepositGold(_Min(1000*1000 - GetGoldStorage(), 100*1000))
Else
EctoBuy()
EndIf
EndIf
If CountSlots() < 5 Then
StoreTricks()
EndIf
; Inventory check / managment
InventoryManagement()
Out("Moving to the guy")
MoveTo(5240, 9082) ; go close to the steward
Local $Steward = GetNearestNPCToCoords(5332, 9048)
Sleep(100)
GoNPC($Steward)
Sleep(300)
Out("Accepting quest")
AcceptQuest($EVERY_BIT_HELPS)
Sleep(300)
Out("Accepting reward")
QuestReward($EVERY_BIT_HELPS)
Sleep(300)
Out("Zoning")
Local $lDistrict = nextRandomDis()
MoveMap($LA_ID, $lRegion[$lDistrict], 0, $lLanguage[$lDistrict])
WaitMapLoading($LA_ID, 10*1000, 2.5*1000) ; zone, wait 2.5 sec at the end
Else
Sleep(100)
EndIf
WEnd
Func InventoryManagement()
Local $skele = GetItemByModelIDExtended($MODEL_ID_CAPTURED_SKELETON)
If $skele[1] == 0 And $skele[2] == 0 Then
MsgBox(0, "Done", "No more skeles to exchange")
Exit
EndIf
If DllStructGetData($skele[0], 'Quantity') <= 2 Then
Local $haveSome = False
Local $curBag = $skele[1]
Local $curSlot = $skele[2] + 1
If $curSlot > DllStructGetData(GetBag($curBag), 'Slots') Then
$curBag += 1
$curSlot = 1
EndIf
While 1
Local $next = GetItemByModelIDExtended($MODEL_ID_CAPTURED_SKELETON, $curBag, $curSlot)
If $next[1] == 0 And $next[2] == 0 Then
If $haveSome Then
For $bag=$curBag To 4
For $slot=$curSlot To DllStructGetData(GetBag($bag), 'Slots')
If DllStructGetData(GetItemBySlot($bag, $slot), 'ModelID') == 0 Then
MoveItem($skele[0], $bag, $slot)
Return
EndIf
Next
Next
Else
MsgBox(0, "Done", "Only "&DllStructGetData($skele[0], 'Quantity')&" left")
Exit
EndIf
EndIf
If DllStructGetData($next[0], 'Quantity') <= 248 Then
MoveItem($skele[0], $next[1], $next[2])
ExitLoop
EndIf
$curBag = $next[1]
$curSlot = $next[2] + 1
If $curSlot > DllStructGetData(GetBag($curBag), 'Slots') Then
$curBag += 1
$curSlot = 1
EndIf
$haveSome = True
WEnd
EndIf
EndFunc
; returns a 3-element array containing: The item struct, the bag where it is, the slot where it is.
Func GetItemByModelIDExtended($ModelID, $StartBag = 1, $StartSlot = 1)
Local $retArr[3] = [False, 0, 0]
For $bag = $StartBag To 4
For $slot = $StartSlot To DllStructGetData(GetBag($bag), 'Slots')
Local $item = GetItemBySlot($bag, $slot)
If DllStructGetData($item, 'ModelID') == $ModelID Then
$retArr[0] = $item
$retArr[1] = $bag
$retArr[2] = $slot
Return $retArr
EndIf
Next
Next
Return $retArr
EndFunc
Func nextRandomDis()
Local $tmp
While 1
$tmp = Random(1, 11, 1)
If $tmp <> $lastDistrict Then
$lastDistrict = $tmp
Return $tmp
EndIf
WEnd
EndFunc
Func EventHandler()
Switch [MENTION=3027413]Gui_[/MENTION]CtrlId
Case $GUI_EVENT_CLOSE
Exit
Case $cbxHideGW
ClearMemory()
ToggleRendering()
Case $btnStart
If $boolRunning Then
GUICtrlSetData($btnStart, "Resume")
$boolRunning = False
ElseIf $boolInitialized Then
GUICtrlSetData($btnStart, "Pause")
$boolRunning = True
Else
$boolRunning = True
GUICtrlSetData($btnStart, "Initializing...")
GUICtrlSetState($btnStart, $GUI_DISABLE)
GUICtrlSetState($inputCharName, $GUI_DISABLE)
WinSetTitle($MainGui, "", GUICtrlRead($inputCharName))
If GUICtrlRead($inputCharName) = "" Then
If Initialize(ProcessExists("gw.exe"), True, False, False) = False Then ; don't need string logs or event system
MsgBox(0, "Error", "Guild Wars it not running.")
Exit
EndIf
Else
If Initialize(GUICtrlRead($inputCharName), True, False, False) = False Then ; don't need string logs or event system
MsgBox(0, "Error", "Can't find a Guild Wars client with that character name.")
Exit
EndIf
EndIf
GUICtrlSetData($btnStart, "Pause")
GUICtrlSetState($btnStart, $GUI_ENABLE)
$boolInitialized = True
EndIf
Case $cbxOnTop
WinSetOnTop($MainGui, "", GUICtrlRead($cbxOnTop)==$GUI_CHECKED)
EndSwitch
EndFunc
Func ToggleRendering()
If $Rendering Then
DisableRendering()
WinSetState(GetWindowHandle(), "", [MENTION=330060]Sw_[/MENTION]HIDE)
ClearMemory()
Else
EnableRendering()
WinSetState(GetWindowHandle(), "", [MENTION=330060]Sw_[/MENTION]SHOW)
EndIf
$Rendering = Not $Rendering
EndFunc
Func Out($aString)
Local $timestamp = "[" & [MENTION=902431]Hour[/MENTION] & ":" & [MENTION=287308]Min[/MENTION] & "] "
GUICtrlSetData($lblLog, $timestamp & $aString)
EndFunc ;==>Out
Func EctoBuy()
Local $EctoID = 930
If GetGoldCharacter() > 97000 Then
Sleep(GetPing()+200)
MoveTo(7536, 5859)
Local $Trader = GetNearestNPCToCoords(7527, 5773)
; $Trader = GetAgentByName("Argus[Rare Material Trader]")
GOTONPC($Trader)
TraderRequest($EctoID)
Sleep(GetPing()+1000)
While GetGoldCharacter() > 20*1000
TraderRequest($EctoID)
Sleep(GetPing()+100)
TraderBuy()
WEnd
EndIf
EndFunc ;==>EctoBuy
#Region ToT Storage
Func StoreTricks()
TrickOrTreat(1, 20)
TrickOrTreat(2, 5)
TrickOrTreat(3, 10)
TrickOrTreat(4, 10)
EndFunc
Func TrickOrTreat($BAGINDEX, $NUMOFSLOTS)
Local $AITEM
Local $M
Local $Q
Local $SLOT
Local $FULL
Local $NSLOT
For $I = 1 To $NUMOFSLOTS
$AITEM = GETITEMBYSLOT($BAGINDEX, $I)
If DllStructGetData($AITEM, "ID") = 0 Then ContinueLoop
$M = DllStructGetData($AITEM, "ModelID")
$Q = DllStructGetData($AITEM, "quantity")
If $M = 28434 And $Q = 250 Then
Do
For $BAG = 8 To 12
$SLOT = FINDEMPTYSLOT($BAG)
$SLOT = [MENTION=368499]Extended[/MENTION]
If $SLOT <> 0 Then
$FULL = False
$NSLOT = $SLOT
ExitLoop 2
Else
$FULL = True
EndIf
Sleep(400)
Next
Until $FULL = True
If $FULL = False Then
MOVEITEM($AITEM, $BAG, $NSLOT)
Sleep(Random(450, 550))
EndIf
EndIf
Next
EndFunc
Func FINDEMPTYSLOT($BAGINDEX)
Local $LITEMINFO, $ASLOT
For $ASLOT = 1 To DllStructGetData(GETBAG($BAGINDEX), "Slots")
Sleep(40)
$LITEMINFO = GETITEMBYSLOT($BAGINDEX, $ASLOT)
If DllStructGetData($LITEMINFO, "ID") = 0 Then
SetExtended($ASLOT)
ExitLoop
EndIf
Next
Return 0
EndFunc
Func COUNTSLOTS($ANUMBAGS = 4)
Local $LFREESLOTS = 0
Local $LBAGSLOTS = 0
For $i = 1 To $ANUMBAGS
$LBAGSLOTS = DllStructGetData(GETBAG($i), "slots")
$LFREESLOTS += $LBAGSLOTS
For $SLOT = 1 To $LBAGSLOTS
If DllStructGetData(GETITEMBYSLOT($i, $SLOT), "ModelID") <> 0 Then
$LFREESLOTS -= 1
EndIf
Next
Next
Return $LFREESLOTS
EndFunc ;==>COUNTSLOTS
#EndRegion Store Tots
I know its a little out of date. but wanted to share it freely.
Code:
#NoTrayIcon
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include "GWA2.au3"
#include "Constants.au3"
Opt("GUIOnEventMode", True) ; enable gui on event mode
Global $boolInitialized = False
Global $boolRunning = False
Global Const $SleepTime = 50 ; in milliseconds
Global Const $MainGui = GUICreate("Skelefarm - ToT Dropper", 172, 190)
GUICtrlCreateLabel("Skelefarm - ToT Dropper", 8, 6, 156, 17, $SS_CENTER)
Global Const $inputCharName = GUICtrlCreateCombo("", 8, 24, 150, 22)
GUICtrlSetData(-1, GetLoggedCharNames())
Global Const $lblLog = GUICtrlCreateLabel("", 8, 130, 154, 30)
Global Const $btnStart = GUICtrlCreateButton("Start", 8, 162, 154, 25)
GUICtrlSetOnEvent($btnStart, "EventHandler")
GUISetOnEvent($GUI_EVENT_CLOSE, "EventHandler")
GUISetState [MENTION=330060]Sw_[/MENTION]SHOW)
Do
Sleep(100)
Until $boolInitialized
While 1
If $boolRunning Then
RapeATot()
Sleep(500)
Else
Sleep(250)
EndIf
WEnd
Func RapeATot()
For $bag=1 To 4
For $slot=1 To DllStructGetData(GetBag($bag), 'Slots')
Local $item = GetItemBySlot($bag, $slot)
If DllStructGetData($item, 'ModelID') == $MODEL_ID_TOT_BAGS Then
DropItem($item)
Return
EndIf
Next
Next
EndFunc
Func EventHandler()
Switch [MENTION=3027413]Gui_[/MENTION]CtrlId
Case $GUI_EVENT_CLOSE
Exit
Case $btnStart
If $boolRunning Then
GUICtrlSetData($btnStart, "Resume")
$boolRunning = False
ElseIf $boolInitialized Then
GUICtrlSetData($btnStart, "Pause")
$boolRunning = True
Else
$boolRunning = True
GUICtrlSetData($btnStart, "Initializing...")
GUICtrlSetState($btnStart, $GUI_DISABLE)
GUICtrlSetState($inputCharName, $GUI_DISABLE)
WinSetTitle($MainGui, "", GUICtrlRead($inputCharName))
If GUICtrlRead($inputCharName) = "" Then
If Initialize(ProcessExists("gw.exe"), True, False, False) = False Then ; don't need string logs or event system
MsgBox(0, "Error", "Guild Wars it not running.")
Exit
EndIf
Else
If Initialize(GUICtrlRead($inputCharName), True, False, False) = False Then ; don't need string logs or event system
MsgBox(0, "Error", "Can't find a Guild Wars client with that character name.")
Exit
EndIf
EndIf
GUICtrlSetData($btnStart, "Pause")
GUICtrlSetState($btnStart, $GUI_ENABLE)
$boolInitialized = True
EndIf
EndSwitch
EndFunc
Func Out($aString)
Local $timestamp = "[" & [MENTION=902431]Hour[/MENTION] & ":" & [MENTION=287308]Min[/MENTION] & "] "
GUICtrlSetData($lblLog, $timestamp & $aString)
EndFunc ;==>Out
Func Main()
If Not GoldCheck() Then Return
If $TOA_ID Then
SpawnpointToA()
Sleep(GetPing()+500)
If $SpawnpointToA1 Then
Out("Spawnpoint 1")
MoveTo(-4124.00, 119829.00)
EndIf
EndIf
; TODO: check for being stuck
Local $Avatar
$Avatar = GetNearestNPCToCoords(-4124, 19829) ; try to get the avatar, might be there already.
If DllStructGetData($Avatar, "PlayerNumber") <> $MODELID_AVATAR_OF_GRENTH Then ; nope avatar is not there, spawn him.
Out("Spawning grenth")
SendChat("kneel", "/")
Local $lDeadlock = TimerInit()
EndIf
Out("Talking to the avatar of grenth")
;GoNpc(83)
Sleep(3500)
GoNearestNPCToCoords(-4124.00, 19829.00)
Sleep(2000);wait till he spawns
Dialog(0x86) ; "Enter UW"
Out("Waiting for uw to load")
WaitMapLoading(72)
If GetMapID() == $TOA_ID Then Return ; dialogs to enter uw failed. restart.
Func Main()
If Not GoldCheck() Then Return
If $TOA_ID Then
SpawnpointToA()
Sleep(GetPing()+500)
If $SpawnpointToA1 Then
Out("Spawnpoint 1")
MoveTo(-4124.00, 119829.00)
EndIf
EndIf
; TODO: check for being stuck
Local $Avatar
$Avatar = GetNearestNPCToCoords(-4124, 19829) ; try to get the avatar, might be there already.
If DllStructGetData($Avatar, "PlayerNumber") <> $MODELID_AVATAR_OF_GRENTH Then ; nope avatar is not there, spawn him.
Out("Spawning grenth")
SendChat("kneel", "/")
Local $lDeadlock = TimerInit()
EndIf
Out("Talking to the avatar of grenth")
;GoNpc(83)
Sleep(3500)
GoNearestNPCToCoords(-4124.00, 19829.00)
Sleep(2000);wait till he spawns
Dialog(0x86) ; "Enter UW"
Out("Waiting for uw to load")
WaitMapLoading(72)
If GetMapID() == $TOA_ID Then Return ; dialogs to enter uw failed. restart.
You are a hero for me! now i just have the problem that i get skeleid -1
Code:
Func GetSkeleID()
; for some reasons sometimes it does not work. So just do the whole thing multiple times.
For $i=1 To 3
Local $lAgentArray = GetAgentArray(0xDB)
Local $lMe = GetAgentByID(-2)
Local $lSkeleID = -1
Local $lClosestSkeleDistance = 25000000 ; 25000000 = compass distance^2, skele will be less than that.
For $i = 1 To $lAgentArray[0]
If DllStructGetData($lAgentArray[$i], 'PlayerNumber') == $MODELID_SKELETON_OF_DHUUM Then
Local $lDistance = GetPseudoDistance($lMe, $lAgentArray[$i])
If $lDistance < $lClosestSkeleDistance Then ; we found a closer skele
$lSkeleID = DllStructGetData($lAgentArray[$i], "ID")
$lClosestSkeleDistance = $lDistance
EndIf
EndIf
Next
If $lSkeleID > 0 Then Return $lSkeleID
Sleep(1500)
Next
If $lSkeleID == -1 Then WriteChat("ERROR - CANNOT FIND SKELE - TELL SOMEONE ABOUT IT")
Return $lSkeleID
EndFunc
there is no follower .au3 or am i missing something? the include file only has functions in it but there is main script for a follower.au3 for the other 7 slots of the party
there is no follower .au3 or am i missing something? the include file only has functions in it but there is main script for a follower.au3 for the other 7 slots of the party
yes you are right. there is no follower.. and that is not one I like to make puplic yet
yes you are right. there is no follower.. and that is not one I like to make puplic yet
well you pretty much wrote everything down you need for it in shared foulder.
it could work with any class (sec class cant be monk since leader is searched by monk second profession) thats smart by the way.. then follow.. then if distance is 2 big (because leader used deaths charge) you can ee to the target and use any spells (X/Ele could work with aoe or even just Lod) just edit mapcheck with UW map to start the script.. can basically be a loop until mapid <> uw.
[Selling] PS4 Account w/ 1,8kk Coins + TOTS Chiellini, TOTS Matic, TOTS Oblak, TOTS Callejon 05/05/2018 - Fifa Trading - 0 Replies Selling a clean&legit account with 1,8kk Coins.
It also has untradeable cards listed below;
TOTS Chiellini (94)
TOTS Matic (92)
TOTS Oblak (93)
TOTS Callejon (89)
Monthly Red ST Depay (85)
Monthly Red LW Thorgan Hazard (84) and few more.
small update
