Quote:
Originally Posted by melisious
hi there dont suppose anyone has a working pre searing nick farmer where it farms 25 of the required items then runs to nick to get the gifts they could post plz
|
Very OLD now
F.D
;; Pre Nick Farmer
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include-once
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <GuiComboBox.au3>
#include <ButtonConstants.au3>
#include <IE.au3>
#include <Array.au3>
#include <String.au3>
#include "GWBible.au3"
#include "GWAddOns.au3"
#region Variables
;;;;;;;;;;;;;;;;;;;; GLOBALS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Global Const $BotTitle = "Nick-Farm"
Global $WaypointCounter = 1
Global $boolRun = False
Global $NeedToChangeMap = False
Global $OldGuiText
Global $SeenNick = False
Global $FarmOnly = False
Global $Selected
;; Towns
Global Const $MapAscalon = 148
Global Const $MapBarradn = 163
Global Const $MapAshford = 164
Global Const $MapFoibles = 165
Global Const $MapFtRanik = 166
;; Trophy IDs
Global Const $SpiderLeg = 422
Global Const $CharrCarving = 423
Global Const $IcyLodestone = 424
Global Const $DullCarapace = 425
Global Const $GargoyleSkull = 426
Global Const $WornBelt = 427
Global Const $UnnaturalSeed = 428
Global Const $SkaleFin = 429
Global Const $SkeletalLimb = 430
Global Const $EnchantedLodestone = 431
Global Const $GrawlNecklace = 432
Global Const $BakedHusk = 433
Global Const $RedIrisFlower = 2994
Global $Trophy = 2994
#endregion Variables
;;;;;;;;;;;;;;;;;;;; TRAY ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Initialize2()
Opt("TrayMenuMode", 3)
Opt("TrayAutoPause", 0)
Opt("TrayOnEventMode", 1)
#NoTrayIcon ; no tray icon
TraySetIcon(@ScriptDir & "\Leader.ico")
Global $StartProgram = TrayCreateItem("Start " & $BotTitle)
TrayItemSetOnEvent(-1, "TrayHandler")
Global $RenderMode = TrayCreateItem("Change Render")
TrayItemSetOnEvent(-1, "TrayHandler")
Global $SelFarm = TrayCreateItem("Farm Only")
TrayItemSetOnEvent(-1, "TrayHandler")
TrayCreateItem("")
Global $ItemBaked = TrayCreateItem("Baked Husk")
TrayItemSetOnEvent(-1, "TrayHandler")
Global $ItemCharr = TrayCreateItem("Charr Carving")
TrayItemSetOnEvent(-1, "TrayHandler")
Global $ItemDull = TrayCreateItem("Dull Carapace")
TrayItemSetOnEvent(-1, "TrayHandler")
Global $ItemEnchanted = TrayCreateItem("Enchanted Lodestone")
TrayItemSetOnEvent(-1, "TrayHandler")
Global $ItemSkull = TrayCreateItem("Gargoyle Skull")
TrayItemSetOnEvent(-1, "TrayHandler")
Global $ItemNecklace = TrayCreateItem("Grawl Necklace")
TrayItemSetOnEvent(-1, "TrayHandler")
Global $ItemIcy = TrayCreateItem("Icy Lodestone")
TrayItemSetOnEvent(-1, "TrayHandler")
Global $ItemFlower = TrayCreateItem("Red Iris Flower")
TrayItemSetOnEvent(-1, "TrayHandler")
Global $ItemFin = TrayCreateItem("Skale Fin")
TrayItemSetOnEvent(-1, "TrayHandler")
Global $ItemLimb = TrayCreateItem("Skeletal Limb")
TrayItemSetOnEvent(-1, "TrayHandler")
Global $ItemLeg = TrayCreateItem("Spider Leg")
TrayItemSetOnEvent(-1, "TrayHandler")
Global $ItemSeed = TrayCreateItem("Unnatural Seed")
TrayItemSetOnEvent(-1, "TrayHandler")
Global $ItemBelt = TrayCreateItem("Worn Belt")
TrayItemSetOnEvent(-1, "TrayHandler")
TrayCreateItem("")
Global $tExit = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "TrayHandler")
SetEvent("CheckRupt", "", "", "", "")
;;;;;;;;;;;;;;;;;;;; MAIN ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GetSelectedItem()
Main()
Func Main()
;; Wait for Start
While Not $boolRun
Sleep(100)
WEnd
While $boolRun
Sleep(100)
If $boolRun And Not $SeenNick Then
If $FirstRun == True Then
$FirstRun = False
EndIf
;; Farm Trophy
Switch ($Trophy)
Case $BakedHusk
Update("Farming Baked Husks")
FarmBakedHusk()
Case $CharrCarving
Update("Farming Charr Carvings")
FarmCharrCarving()
Case $DullCarapace
Update("Farming Dull Carapaces")
FarmDullCarapace()
Case $EnchantedLodestone
Update("Farming Enchanted Lodestones")
FarmEnchantedLodestone()
Case $GargoyleSkull
Update("Farming Gargoyle Skulls")
FarmGargoyleSkull()
Case $GrawlNecklace
Update("Farming Grawl Necklaces")
FarmGrawlNecklace()
Case $IcyLodestone
Update("Farming Icy Lodestones")
FarmIcyLodestone()
Case $RedIrisFlower
Update("Farming Red Iris Flowers")
FarmRedIrisFlower()
Case $SkaleFin
Update("Farming Skale Fins")
FarmSkaleFin()
Case $SkeletalLimb
Update("Farming Skeletal Limbs")
FarmSkeletalLimb()
Case $SpiderLeg
Update("Farming Spider Legs")
FarmSpiderLeg()
Case $UnnaturalSeed
Update("Farming Unnatural Seeds")
FarmUnnaturalSeed()
Case $WornBelt
Update("Farming Worn Belts")
FarmWornBelt()
EndSwitch
;; See Nick
SeeNick()
;; Resign
ResignAndReturn()
;; Stop the Farm
$SeenNick = True
EndIf
WEnd
EndFunc
;;--------- Farm Functions --------------;;
;; Done
Func SeeNick()
TravelTo($MapFtRanik)
Update("Seeing Nick");
;; Leave Fort Ranik
MoveTo(22536, 8994)
MoveTo(22549, 8494)
MoveTo(22543, 7991)
MoveTo(22547, 7488)
Move(22549, 7328)
;; Regent Valley
WaitMapLoading(162)
MoveAggroing(22432, 6043)
MoveAggroing(22074, 5691)
MoveAggroing(21944, 5207)
MoveAggroing(21773, 4733)
MoveAggroing(21600, 4261)
MoveAggroing(21393, 3806)
MoveAggroing(21023, 3458)
MoveAggroing(20530, 3374)
MoveAggroing(20027, 3303)
MoveAggroing(19527, 3246)
MoveAggroing(19024, 3206)
MoveAggroing(18515, 3158)
MoveAggroing(18012, 3118)
MoveAggroing(17511, 3108)
MoveAggroing(17001, 3097)
MoveAggroing(16497, 3020)
MoveAggroing(16157, 3396)
MoveAggroing(16134, 3897)
MoveAggroing(16308, 4372)
MoveAggroing(16499, 4846)
MoveAggroing(16699, 5310)
MoveAggroing(16812, 5801)
MoveAggroing(16778, 6306)
MoveAggroing(16738, 6807)
MoveAggroing(16715, 7319)
MoveAggroing(16686, 7821)
MoveAggroing(16972, 8235)
MoveAggroing(17331, 8585)
MoveAggroing(17256, 9088)
MoveAggroing(17118, 9572)
MoveAggroing(16934, 10046)
MoveAggroing(16600, 10421)
MoveAggroing(16161, 10673)
MoveAggroing(15676, 10827)
MoveAggroing(15189, 10958)
MoveAggroing(14709, 11122)
MoveAggroing(14321, 11442)
MoveAggroing(14088, 11885)
MoveAggroing(13826, 12319)
MoveAggroing(13590, 12766)
MoveAggroing(13611, 13274)
MoveAggroing(13901, 13683)
MoveAggroing(14200, 14092)
MoveAggroing(14500, 14500)
MoveAggroing(14645, 14981)
MoveAggroing(14800, 15467)
MoveAggroing(15060, 15901)
MoveAggroing(15158, 16394)
;; Nicholas Sandford
GoToNPCNearestCoords(15278, 16507)
;; Dialog 1
Dialog(0x85)
;; Dialog 1
Dialog(0x86)
$SeenNick = True
EndFunc
;; Done
Func FarmBakedHusk()
While Not EnoughTrophies($Trophy)
TravelTo($MapAshford)
MoveTo(-11546, -6152)
Move(-11352, -6230)
;; Lakeside County
WaitMapLoading(146)
MoveAggroing(-10441, -5492)
MoveAggroing(-10360, -4995)
MoveAggroing(-9956, -4694)
MoveAggroing(-9451, -4695)
MoveAggroing(-8984, -4505)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-8941, -4000)
MoveAggroing(-9405, -3802)
MoveAggroing(-9912, -3775)
MoveAggroing(-10396, -3637)
MoveAggroing(-10550, -3157)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-10224, -2776)
MoveAggroing(-9735, -2666)
MoveAggroing(-9230, -2620)
MoveAggroing(-8881, -2254)
MoveAggroing(-9110, -1804)
MoveAggroing(-9585, -1645)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-10091, -1617)
MoveAggroing(-10586, -1507)
MoveAggroing(-10603, -1007)
MoveAggroing(-10200, -707)
MoveAggroing(-9719, -560)
MoveAggroing(-9212, -521)
WEnd
EndFunc
;; Needs Work
Func FarmCharrCarving()
While Not EnoughTrophies($Trophy)
TravelTo($MapAscalon)
MoveTo(7597, 5705)
Move(7377, 5479)
;; Lakeside County
WaitMapLoading(146)
MoveTo(5741, 4796)
MoveTo(5338, 5099)
MoveTo(4938, 5403)
MoveTo(4538, 5706)
MoveTo(4114, 5982)
MoveTo(3678, 6230)
MoveTo(3209, 6417)
MoveTo(2714, 6498)
MoveTo(2217, 6559)
MoveTo(1713, 6640)
MoveTo(1218, 6722)
MoveTo(719, 6804)
MoveTo(267, 7031)
MoveTo(-172, 7291)
MoveTo(-606, 7548)
MoveTo(-1017, 7844)
MoveTo(-1400, 8174)
MoveTo(-1787, 8495)
MoveTo(-2182, 8817)
MoveTo(-2572, 9148)
MoveTo(-2947, 9484)
MoveTo(-3272, 9870)
MoveTo(-3585, 10261)
MoveTo(-3920, 10635)
MoveTo(-4318, 10947)
While GetNumberOfFoesInRangeOfAgent(-2, 1250) > 1
Sleep(100)
MoveAggroing(-4318, 10947)
WEnd
If EnoughTrophies($Trophy) Then ExitLoop
WEnd
EndFunc
;; Done
Func FarmDullCarapace()
While Not EnoughTrophies($Trophy)
TravelTo($MapAscalon)
MoveTo(7683, 5647)
Move(7288, 5387)
;; Lakeside County
WaitMapLoading(146)
MoveAggroing(6602, 4485)
MoveAggroing(6436, 4004)
MoveAggroing(6212, 3555)
MoveAggroing(5997, 3098)
MoveAggroing(5888, 2609)
MoveAggroing(5847, 2109)
MoveAggroing(5839, 1603)
MoveAggroing(5829, 1094)
MoveAggroing(5813, 587)
MoveAggroing(5830, 85)
MoveAggroing(5810, -420)
MoveAggroing(5786, -921)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(5761, -1423)
MoveAggroing(5739, -1930)
MoveAggroing(5696, -2438)
MoveAggroing(5717, -2946)
MoveAggroing(5990, -3369)
MoveAggroing(6359, -3714)
MoveAggroing(6676, -4112)
MoveAggroing(6918, -4549)
MoveAggroing(7163, -4991)
MoveAggroing(7410, -5437)
MoveAggroing(7581, -5916)
MoveAggroing(7793, -6376)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(8118, -6766)
MoveAggroing(8483, -7119)
MoveAggroing(8845, -7463)
MoveAggroing(9351, -7495)
MoveAggroing(9837, -7647)
MoveAggroing(10340, -7721)
MoveAggroing(10836, -7840)
MoveAggroing(11304, -8025)
MoveAggroing(11106, -8496)
MoveAggroing(10821, -8915)
MoveAggroing(10467, -9274)
MoveAggroing(10065, -9574)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(9929, -10063)
MoveAggroing(9771, -10540)
MoveAggroing(9624, -11029)
MoveAggroing(9152, -11207)
MoveAggroing(8646, -11221)
MoveAggroing(8142, -11216)
MoveAggroing(7640, -11184)
MoveAggroing(7134, -11146)
MoveAggroing(6636, -11033)
MoveAggroing(6153, -10885)
MoveAggroing(5786, -10536)
MoveAggroing(5612, -10060)
MoveAggroing(5863, -10502)
MoveAggroing(6202, -10877)
MoveAggroing(5788, -10592)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(5297, -10692)
MoveAggroing(4904, -11012)
MoveAggroing(4606, -11423)
MoveAggroing(4294, -11822)
MoveAggroing(4002, -12233)
MoveAggroing(3776, -12689)
MoveAggroing(3629, -13168)
MoveAggroing(3344, -13588)
MoveAggroing(2876, -13788)
MoveAggroing(2410, -13595)
MoveAggroing(2652, -13155)
MoveAggroing(3058, -12848)
MoveAggroing(3460, -12537)
MoveAggroing(3847, -12220)
MoveAggroing(4228, -11897)
WEnd
EndFunc
;; Done
Func FarmEnchantedLodestone()
While Not EnoughTrophies($Trophy)
TravelTo($MapBarradn)
MoveTo(-7436, 1453)
Move(-7514, 1457)
;; Green Hills County
WaitMapLoading(160)
MoveAggroing(-7928, 1548)
MoveAggroing(-7945, 2052)
MoveAggroing(-7860, 2545)
MoveAggroing(-7559, 2948)
MoveAggroing(-7230, 3332)
MoveAggroing(-6900, 3717)
MoveAggroing(-6538, 4063)
MoveAggroing(-6182, 4429)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-5860, 4818)
MoveAggroing(-5571, 5227)
MoveAggroing(-5414, 5712)
MoveAggroing(-5403, 6217)
MoveAggroing(-5411, 6719)
MoveAggroing(-5441, 7223)
MoveAggroing(-5745, 7627)
MoveAggroing(-6177, 7899)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-6480, 8301)
MoveAggroing(-6876, 8620)
MoveAggroing(-7204, 9014)
MoveAggroing(-7453, 9454)
MoveAggroing(-7677, 9918)
MoveAggroing(-8102, 10193)
MoveAggroing(-8316, 10650)
MoveAggroing(-8649, 11029)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-8898, 11473)
MoveAggroing(-9257, 11831)
MoveAggroing(-9742, 11952)
MoveAggroing(-10237, 11866)
MoveAggroing(-10665, 11603)
MoveAggroing(-11065, 11301)
MoveAggroing(-11425, 10946)
MoveAggroing(-11808, 10612)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-12237, 10336)
MoveAggroing(-12742, 10367)
MoveAggroing(-13148, 10661)
MoveAggroing(-13294, 11146)
MoveAggroing(-13574, 11572)
MoveAggroing(-13994, 11853)
MoveAggroing(-14419, 12118)
MoveAggroing(-14764, 12482)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-15075, 12882)
MoveAggroing(-15405, 13269)
MoveAggroing(-15659, 13713)
MoveAggroing(-15917, 14142)
MoveAggroing(-16410, 14228)
MoveAggroing(-16880, 14055)
MoveAggroing(-17393, 14030)
MoveAggroing(-17884, 14136)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-18379, 14053)
MoveAggroing(-18805, 13788)
MoveAggroing(-19203, 13469)
MoveAggroing(-19592, 13153)
MoveAggroing(-19920, 12765)
MoveAggroing(-19960, 12263)
MoveAggroing(-19791, 11788)
MoveAggroing(-19452, 11420)
MoveAggroing(-19098, 11051)
WEnd
EndFunc
;; Done
Func FarmGargoyleSkull()
While Not EnoughTrophies($Trophy)
TravelTo($MapBarradn)
Move(-7434, 1427)
;; Green Hills County
WaitMapLoading(160)
MoveAggroing(-7968, 1803)
MoveAggroing(-7906, 2302)
MoveAggroing(-7752, 2786)
MoveAggroing(-7454, 3192)
MoveAggroing(-7084, 3530)
MoveAggroing(-6699, 3861)
MoveAggroing(-6315, 4189)
MoveAggroing(-5968, 4557)
MoveAggroing(-5690, 4980)
MoveAggroing(-5483, 5440)
MoveAggroing(-5368, 5936)
MoveAggroing(-5342, 6440)
MoveAggroing(-5356, 6944)
MoveAggroing(-5455, 7437)
MoveAggroing(-5504, 7937)
MoveAggroing(-5181, 8324)
MoveAggroing(-4674, 8348)
MoveAggroing(-4178, 8441)
MoveAggroing(-3779, 8742)
MoveAggroing(-3414, 9091)
MoveAggroing(-3656, 9060)
;; Farming Loop
While Not EnoughTrophies($Trophy)
Move(-3210, 9248)
;; Catacombs
WaitMapLoading(145)
MoveAggroing(-8800, 15323)
MoveAggroing(-8300, 15260)
MoveAggroing(-7799, 15274)
MoveAggroing(-7377, 15544)
MoveAggroing(-7047, 15924)
MoveAggroing(-6545, 15906)
MoveAggroing(-6130, 15623)
MoveAggroing(-6604, 15450)
MoveAggroing(-7103, 15380)
MoveAggroing(-7603, 15309)
MoveAggroing(-8109, 15277)
MoveAggroing(-8621, 15293)
MoveAggroing(-9118, 15350)
MoveAggroing(-9611, 15447)
MoveAggroing(-10082, 15635)
MoveAggroing(-10535, 15852)
Move(-10886, 16026)
;; Green Hills County
WaitMapLoading(160)
WEnd
WEnd
EndFunc
;; Needs Work
Func FarmGrawlNecklace()
While Not EnoughTrophies($Trophy)
TravelTo($MapAscalon)
MoveTo(7481, 5552)
Move(7311, 5448)
;; Lakeside County
WaitMapLoading(146)
MoveAggroing(6192, 4637)
MoveAggroing(5700, 4746)
MoveAggroing(5193, 4810)
MoveAggroing(4681, 4830)
MoveAggroing(4180, 4859)
MoveAggroing(3681, 4918)
MoveAggroing(3184, 4992)
MoveAggroing(2684, 5069)
MoveAggroing(2183, 5120)
MoveAggroing(1685, 5070)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(1180, 5018)
MoveAggroing(677, 4970)
MoveAggroing(171, 4931)
MoveAggroing(-331, 4905)
MoveAggroing(-837, 4882)
MoveAggroing(-1341, 4861)
MoveAggroing(-1841, 4906)
MoveAggroing(-2244, 5208)
MoveAggroing(-2639, 5515)
MoveAggroing(-3039, 5823)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-3438, 6130)
MoveAggroing(-3836, 6437)
MoveAggroing(-4266, 6696)
MoveAggroing(-4766, 6718)
MoveAggroing(-5256, 6600)
MoveAggroing(-5693, 6351)
MoveAggroing(-6137, 6102)
MoveAggroing(-6571, 5853)
MoveAggroing(-7018, 5622)
MoveAggroing(-7475, 5401)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-7801, 5014)
MoveAggroing(-8159, 4658)
MoveAggroing(-8651, 4537)
MoveAggroing(-9111, 4331)
MoveAggroing(-9614, 4285)
MoveAggroing(-9872, 4716)
MoveAggroing(-9944, 5215)
MoveAggroing(-9893, 5714)
MoveAggroing(-9624, 6137)
MoveAggroing(-9464, 6618)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-9566, 7107)
MoveAggroing(-9999, 7361)
MoveAggroing(-10471, 7550)
MoveAggroing(-10940, 7729)
MoveAggroing(-11406, 7921)
MoveAggroing(-11834, 8204)
MoveAggroing(-12190, 8555)
MoveAggroing(-12539, 8923)
MoveAggroing(-12898, 9272)
MoveAggroing(-13283, 9601)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-13718, 9857)
MoveAggroing(-14205, 9985)
Move(-14594, 10018)
;; Green Hills County
WaitMapLoading(160)
MoveAggroing(21644, 13050)
MoveAggroing(21260, 13374)
MoveAggroing(20860, 13682)
MoveAggroing(20353, 13661)
MoveAggroing(19872, 13522)
MoveAggroing(19473, 13212)
MoveAggroing(19142, 12835)
MoveAggroing(18697, 12589)
MoveAggroing(18220, 12434)
MoveAggroing(17753, 12247)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(17297, 12040)
MoveAggroing(16785, 12048)
MoveAggroing(16298, 12168)
MoveAggroing(15832, 12366)
MoveAggroing(15387, 12615)
MoveAggroing(14915, 12428)
MoveAggroing(14474, 12187)
MoveAggroing(14016, 11985)
MoveAggroing(13728, 12397)
MoveAggroing(13548, 12869)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(13339, 13330)
MoveAggroing(13100, 13780)
MoveAggroing(12821, 14197)
MoveAggroing(12437, 14528)
MoveAggroing(11944, 14658)
MoveAggroing(11444, 14748)
MoveAggroing(10941, 14709)
MoveAggroing(10443, 14641)
MoveAggroing(9942, 14593)
MoveAggroing(9635, 14192)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(9534, 13696)
MoveAggroing(9612, 13197)
MoveAggroing(9775, 12722)
MoveAggroing(10029, 12289)
MoveAggroing(10267, 11840)
MoveAggroing(10498, 11391)
MoveAggroing(10721, 10937)
MoveAggroing(11020, 10530)
MoveAggroing(11341, 10140)
MoveAggroing(11431, 9644)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(10944, 9513)
MoveAggroing(10461, 9355)
MoveAggroing(9963, 9293)
MoveAggroing(9464, 9207)
MoveAggroing(8966, 9273)
MoveAggroing(8580, 9594)
MoveAggroing(8148, 9853)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(7765, 10182)
MoveAggroing(7401, 10538)
MoveAggroing(7049, 10894)
MoveAggroing(6672, 11231)
MoveAggroing(6394, 11656)
MoveAggroing(6103, 12065)
MoveAggroing(5832, 12495)
MoveAggroing(5489, 12870)
MoveAggroing(5144, 13235)
WEnd
EndFunc
;; Done
Func FarmIcyLodestone()
While Not EnoughTrophies($Trophy)
TravelTo($MapFoibles)
MoveTo(0, 8593)
MoveTo(224, 8141)
Move(417, 7718)
;; Wizard's Folly
WaitMapLoading(161)
MoveAggroing(633, 7270)
MoveAggroing(711, 6776)
MoveAggroing(790, 6279)
MoveAggroing(870, 5781)
MoveAggroing(1173, 5378)
MoveAggroing(1581, 5086)
MoveAggroing(2006, 4811)
MoveAggroing(2401, 4491)
MoveAggroing(2665, 4059)
MoveAggroing(2779, 3564)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(2815, 3060)
MoveAggroing(2858, 2558)
MoveAggroing(2929, 2060)
MoveAggroing(3019, 1568)
MoveAggroing(3066, 1064)
MoveAggroing(3010, 1568)
MoveAggroing(2918, 2066)
MoveAggroing(2556, 2413)
MoveAggroing(2054, 2375)
MoveAggroing(1564, 2276)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(1067, 2356)
MoveAggroing(617, 2575)
MoveAggroing(215, 2872)
MoveAggroing(-183, 3184)
MoveAggroing(-575, 3496)
MoveAggroing(-974, 3801)
MoveAggroing(-1370, 4113)
MoveAggroing(-1781, 4407)
MoveAggroing(-2217, 4661)
MoveAggroing(-2707, 4790)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-3203, 4685)
MoveAggroing(-3601, 4381)
MoveAggroing(-3758, 3900)
MoveAggroing(-3769, 3395)
MoveAggroing(-3782, 2890)
MoveAggroing(-3971, 2425)
MoveAggroing(-4327, 2069)
MoveAggroing(-4713, 1747)
MoveAggroing(-5137, 1468)
MoveAggroing(-5403, 1040)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-5581, 568)
MoveAggroing(-5752, 94)
MoveAggroing(-5917, -384)
MoveAggroing(-6073, -864)
MoveAggroing(-6128, -1366)
MoveAggroing(-6075, -1865)
MoveAggroing(-6016, -2363)
MoveAggroing(-5920, -2878)
MoveAggroing(-5842, -3375)
MoveAggroing(-5820, -3876)
MoveAggroing(-5793, -4377)
MoveAggroing(-5702, -4872)
MoveAggroing(-5435, -5301)
MoveAggroing(-5021, -5585)
MoveAggroing(-4611, -5880)
MoveAggroing(-4321, -6289)
MoveAggroing(-4081, -6728)
MoveAggroing(-4003, -7228)
WEnd
EndFunc
;; Needs Work
Func FarmRedIrisFlower()
Local $Found = False
While Not EnoughTrophies($Trophy)
$Found = False
TravelTo($MapAshford)
MoveTo(-11548, -6364)
Move(-11381, -6256)
;; Lakeside County
WaitMapLoading(146)
While Not $Found
MoveAggroing(-10953, -6898)
MoveAggroing(-10936, -7411)
MoveAggroing(-10943, -7912)
MoveAggroing(-10984, -8413)
; Check for Red Iris Flower
MoveAggroing(-11088, -8911)
MoveAggroing(-11213, -9406)
MoveAggroing(-11341, -9897)
MoveAggroing(-11459, -10385)
; Check for Red Iris Flower
MoveAggroing(-11577, -10876)
MoveAggroing(-11690, -11365)
MoveAggroing(-11800, -11861)
MoveAggroing(-11907, -12355)
; Check for Red Iris Flower
MoveAggroing(-12017, -12845)
MoveAggroing(-12144, -13331)
MoveAggroing(-12288, -13811)
MoveAggroing(-12431, -14299)
; Check for Red Iris Flower
ExitLoop
WEnd
If EnoughTrophies($Trophy) Then ExitLoop
WEnd
EndFunc
;; Done
Func FarmSkaleFin()
While Not EnoughTrophies($Trophy)
TravelTo($MapFtRanik)
MoveTo(23310, 11205)
MoveTo(23084, 10754)
MoveTo(22861, 10306)
MoveTo(22706, 9823)
MoveTo(22629, 9329)
MoveTo(22587, 8826)
MoveTo(22549, 8323)
MoveTo(22518, 7815)
Move(22509, 7429)
;; Regent Valley
WaitMapLoading(162)
MoveAggroing(22546, 6067)
MoveAggroing(22555, 5563)
MoveAggroing(22538, 5062)
MoveAggroing(22463, 4558)
MoveAggroing(22264, 4097)
MoveAggroing(21997, 3672)
MoveAggroing(21687, 3275)
MoveAggroing(21287, 2971)
MoveAggroing(20844, 2733)
MoveAggroing(20373, 2557)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(19900, 2382)
MoveAggroing(19434, 2191)
MoveAggroing(19027, 1878)
MoveAggroing(18741, 1465)
MoveAggroing(18471, 1041)
MoveAggroing(18131, 674)
MoveAggroing(17704, 405)
MoveAggroing(17216, 259)
MoveAggroing(16720, 171)
MoveAggroing(16219, 235)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(15742, 420)
MoveAggroing(15352, 742)
MoveAggroing(14950, 1045)
MoveAggroing(14527, 1320)
MoveAggroing(14086, 1565)
MoveAggroing(13639, 1805)
MoveAggroing(14142, 1858)
MoveAggroing(14597, 2073)
MoveAggroing(14960, 2417)
MoveAggroing(15458, 2341)
MoveAggroing(15960, 2342)
MoveAggroing(15886, 2845)
MoveAggroing(16018, 3331)
MoveAggroing(16123, 3831)
WEnd
EndFunc
;; Done
Func FarmSkeletalLimb()
While Not EnoughTrophies($Trophy)
TravelTo($MapAshford)
MoveTo(-13929, -7073)
Move(-13929, -7073)
;; Catacombs
WaitMapLoading(145)
MoveAggroing(13973, 1956)
MoveAggroing(13758, 1502)
MoveAggroing(13808, 1000)
MoveAggroing(13810, 498)
MoveAggroing(13852, -1)
MoveAggroing(13639, -461)
MoveAggroing(13132, -465)
MoveAggroing(12624, -445)
MoveAggroing(12120, -455)
MoveAggroing(11618, -450)
MoveAggroing(11134, -295)
MoveAggroing(10672, -91)
MoveAggroing(10345, 298)
MoveAggroing(10003, 666)
MoveAggroing(9632, 1003)
MoveAggroing(9139, 1113)
MoveAggroing(8645, 1197)
MoveAggroing(8132, 1228)
MoveAggroing(7718, 933)
MoveAggroing(7340, 592)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(6949, 268)
MoveAggroing(6499, 45)
MoveAggroing(6043, -167)
MoveAggroing(5584, -373)
MoveAggroing(5120, -573)
MoveAggroing(4655, -768)
MoveAggroing(4187, -968)
MoveAggroing(3708, -1134)
MoveAggroing(3241, -1326)
MoveAggroing(2786, -1535)
MoveAggroing(2312, -1711)
MoveAggroing(1858, -1936)
MoveAggroing(1429, -2194)
MoveAggroing(948, -2344)
MoveAggroing(458, -2216)
MoveAggroing(221, -1766)
MoveAggroing(-62, -1353)
MoveAggroing(-496, -1097)
MoveAggroing(-934, -854)
MoveAggroing(-1427, -744)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-1904, -899)
MoveAggroing(-2025, -1388)
MoveAggroing(-2138, -1877)
MoveAggroing(-2258, -2364)
MoveAggroing(-2379, -2849)
MoveAggroing(-2500, -3336)
MoveAggroing(-2823, -3721)
MoveAggroing(-3310, -3602)
MoveAggroing(-3784, -3414)
MoveAggroing(-4255, -3241)
MoveAggroing(-4750, -3137)
MoveAggroing(-5150, -2835)
MoveAggroing(-5574, -2560)
MoveAggroing(-5981, -2257)
MoveAggroing(-6433, -2029)
MoveAggroing(-6938, -1981)
MoveAggroing(-7173, -2423)
MoveAggroing(-6962, -2879)
MoveAggroing(-6676, -3293)
MoveAggroing(-6513, -3771)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-6635, -4265)
MoveAggroing(-6931, -4669)
MoveAggroing(-7315, -4996)
MoveAggroing(-7641, -5384)
MoveAggroing(-7909, -5820)
MoveAggroing(-7908, -6326)
MoveAggroing(-7943, -6825)
MoveAggroing(-7970, -7333)
MoveAggroing(-8012, -7833)
MoveAggroing(-8516, -7827)
MoveAggroing(-9021, -7767)
MoveAggroing(-9523, -7724)
MoveAggroing(-10025, -7691)
MoveAggroing(-10530, -7646)
MoveAggroing(-11005, -7485)
MoveAggroing(-11444, -7234)
MoveAggroing(-11510, -6732)
MoveAggroing(-11578, -6234)
MoveAggroing(-11567, -5733)
MoveAggroing(-11674, -5238)
MoveAggroing(-11774, -4749)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-11798, -4241)
MoveAggroing(-11819, -3734)
MoveAggroing(-11892, -3239)
MoveAggroing(-11929, -2740)
MoveAggroing(-11901, -2231)
MoveAggroing(-11863, -1729)
MoveAggroing(-11857, -1218)
MoveAggroing(-11916, -715)
MoveAggroing(-11914, -212)
MoveAggroing(-11870, 294)
MoveAggroing(-11881, 799)
MoveAggroing(-11919, 1305)
MoveAggroing(-12176, 1736)
MoveAggroing(-12681, 1735)
MoveAggroing(-13184, 1761)
MoveAggroing(-13686, 1787)
MoveAggroing(-14189, 1811)
MoveAggroing(-14635, 2045)
MoveAggroing(-14679, 2550)
MoveAggroing(-14558, 3044)
MoveAggroing(-14579, 3551)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-14361, 4014)
MoveAggroing(-13959, 4320)
MoveAggroing(-14367, 4027)
MoveAggroing(-14654, 3617)
MoveAggroing(-14719, 3115)
MoveAggroing(-14723, 2611)
MoveAggroing(-14657, 2115)
MoveAggroing(-14284, 1774)
MoveAggroing(-13776, 1776)
MoveAggroing(-13272, 1767)
MoveAggroing(-12771, 1738)
MoveAggroing(-12270, 1684)
MoveAggroing(-11900, 1340)
MoveAggroing(-11898, 835)
MoveAggroing(-11884, 325)
MoveAggroing(-11895, -179)
MoveAggroing(-11905, -682)
MoveAggroing(-11914, -1191)
MoveAggroing(-11927, -1694)
MoveAggroing(-11941, -2202)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-11949, -2708)
MoveAggroing(-11923, -3210)
MoveAggroing(-11897, -3717)
MoveAggroing(-11848, -4218)
MoveAggroing(-11799, -4716)
MoveAggroing(-11747, -5221)
MoveAggroing(-11664, -5721)
MoveAggroing(-11584, -6217)
MoveAggroing(-11512, -6719)
MoveAggroing(-11457, -7219)
MoveAggroing(-11017, -7474)
MoveAggroing(-10538, -7622)
MoveAggroing(-10034, -7671)
MoveAggroing(-9531, -7731)
MoveAggroing(-9029, -7772)
MoveAggroing(-8524, -7817)
MoveAggroing(-8022, -7820)
MoveAggroing(-7938, -7326)
MoveAggroing(-7921, -6823)
MoveAggroing(-7940, -6321)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-7903, -5822)
MoveAggroing(-7667, -5372)
MoveAggroing(-7321, -5011)
MoveAggroing(-6951, -4667)
MoveAggroing(-6649, -4267)
MoveAggroing(-6556, -3775)
MoveAggroing(-6664, -3284)
MoveAggroing(-6954, -2872)
MoveAggroing(-7230, -2450)
MoveAggroing(-7422, -1985)
MoveAggroing(-7924, -1940)
MoveAggroing(-8427, -1946)
MoveAggroing(-8931, -1947)
MoveAggroing(-9437, -1937)
MoveAggroing(-9939, -1927)
MoveAggroing(-10441, -1913)
MoveAggroing(-10827, -1588)
MoveAggroing(-10834, -1084)
MoveAggroing(-10836, -582)
MoveAggroing(-10829, -75)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-10828, 426)
MoveAggroing(-10832, 926)
MoveAggroing(-10842, 1427)
MoveAggroing(-10855, 1931)
MoveAggroing(-10867, 2436)
MoveAggroing(-10880, 2939)
MoveAggroing(-10894, 3445)
MoveAggroing(-10919, 3948)
MoveAggroing(-10935, 4450)
MoveAggroing(-11189, 4881)
MoveAggroing(-11691, 4964)
MoveAggroing(-12196, 4912)
MoveAggroing(-12532, 5283)
MoveAggroing(-12819, 5698)
MoveAggroing(-13097, 6118)
MoveAggroing(-13433, 6493)
MoveAggroing(-13624, 6961)
MoveAggroing(-13755, 7448)
MoveAggroing(-13773, 7955)
MoveAggroing(-12789, 9439)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-12768, 9940)
MoveAggroing(-12468, 10340)
MoveAggroing(-12027, 10588)
MoveAggroing(-11551, 10741)
MoveAggroing(-11060, 10862)
MoveAggroing(-10560, 10918)
MoveAggroing(-9456, 11153)
MoveAggroing(-9103, 10796)
MoveAggroing(-8692, 10507)
MoveAggroing(-8266, 10236)
MoveAggroing(-7866, 9935)
MoveAggroing(-7523, 9565)
MoveAggroing(-7334, 9100)
MoveAggroing(-7163, 8625)
MoveAggroing(-7106, 8126)
MoveAggroing(-6987, 7639)
MoveAggroing(-7154, 7159)
MoveAggroing(-7379, 6711)
MoveAggroing(-7654, 6291)
MoveAggroing(-7934, 5873)
MoveAggroing(-8248, 5469)
MoveAggroing(-8710, 5270)
MoveAggroing(-9173, 5063)
MoveAggroing(-9675, 5025)
WEnd
EndFunc
;; Done
Func FarmSpiderLeg()
While Not EnoughTrophies($Trophy)
TravelTo($MapFtRanik)
MoveTo(22952, 10672)
MoveTo(22780, 10200)
MoveTo(22646, 9711)
MoveTo(22585, 9206)
MoveTo(22568, 8698)
MoveTo(22562, 8191)
MoveTo(22561, 7689)
Move(22561, 7402)
;; Regent Valley
WaitMapLoading(162)
MoveAggroing(22584, 6322)
MoveAggroing(22551, 5818)
MoveAggroing(22545, 5310)
MoveAggroing(22514, 4806)
MoveAggroing(22386, 4319)
MoveAggroing(22142, 3877)
MoveAggroing(21864, 3459)
MoveAggroing(21510, 3093)
MoveAggroing(21142, 2748)
MoveAggroing(20799, 2376)
MoveAggroing(20461, 1994)
MoveAggroing(20132, 1608)
MoveAggroing(19837, 1197)
MoveAggroing(19550, 781)
MoveAggroing(19245, 373)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(19064, -95)
MoveAggroing(18784, -517)
MoveAggroing(18632, -996)
MoveAggroing(18479, -1480)
MoveAggroing(18355, -1974)
MoveAggroing(18292, -2477)
MoveAggroing(18476, -2946)
MoveAggroing(18738, -3377)
MoveAggroing(19009, -3804)
MoveAggroing(19287, -4235)
MoveAggroing(19566, -4666)
MoveAggroing(19834, -5095)
MoveAggroing(20094, -5526)
MoveAggroing(20381, -5940)
MoveAggroing(20501, -6429)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(20553, -6928)
MoveAggroing(20564, -7433)
MoveAggroing(20694, -7925)
MoveAggroing(21202, -7891)
MoveAggroing(21557, -7531)
MoveAggroing(21770, -7186)
; Apple Basket
$Basket = GetNearestItemTo(-2)
PickUpItem($Basket)
Sleep(3000)
DropBundle()
SLeep(2000)
MoveAggroing(21530, -7517)
MoveAggroing(21185, -7888)
MoveAggroing(20715, -8066)
MoveAggroing(20590, -7581)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(20548, -7081)
MoveAggroing(20465, -6585)
MoveAggroing(20295, -6107)
MoveAggroing(20067, -5657)
MoveAggroing(19829, -5212)
MoveAggroing(19574, -4770)
MoveAggroing(19322, -4338)
MoveAggroing(19065, -3900)
MoveAggroing(18759, -3496)
MoveAggroing(18463, -3085)
MoveAggroing(18218, -2648)
MoveAggroing(18115, -2156)
MoveAggroing(17949, -2630)
MoveAggroing(17776, -3103)
MoveAggroing(17529, -3551)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(17152, -3885)
MoveAggroing(16714, -4140)
MoveAggroing(16255, -4356)
MoveAggroing(15752, -4369)
MoveAggroing(15665, -4863)
MoveAggroing(15727, -5359)
MoveAggroing(15715, -5868)
MoveAggroing(15707, -6371)
MoveAggroing(15684, -6878)
MoveAggroing(15661, -7385)
MoveAggroing(15627, -7886)
MoveAggroing(15563, -8382)
MoveAggroing(15867, -8783)
MoveAggroing(16199, -9163)
MoveAggroing(16533, -9536)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(16599, -10037)
MoveAggroing(16102, -10117)
MoveAggroing(15610, -10239)
MoveAggroing(15111, -10335)
MoveAggroing(14612, -10408)
MoveAggroing(14113, -10467)
MoveAggroing(13604, -10532)
MoveAggroing(13115, -10665)
MoveAggroing(12632, -10820)
MoveAggroing(12185, -11045)
MoveAggroing(11772, -11347)
MoveAggroing(11295, -11519)
MoveAggroing(10824, -11711)
MoveAggroing(10327, -11813)
MoveAggroing(9828, -11763)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(9341, -11613)
MoveAggroing(8860, -11459)
MoveAggroing(8423, -11713)
MoveAggroing(8085, -12087)
MoveAggroing(7886, -12550)
MoveAggroing(7476, -12849)
MoveAggroing(6974, -12906)
MoveAggroing(6477, -12989)
MoveAggroing(5977, -13074)
MoveAggroing(5480, -13171)
MoveAggroing(4983, -13266)
MoveAggroing(4481, -13294)
MoveAggroing(3973, -13227)
MoveAggroing(3495, -13079)
MoveAggroing(3011, -12929)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(2548, -12733)
MoveAggroing(2091, -12511)
MoveAggroing(1650, -12265)
MoveAggroing(1522, -11776)
MoveAggroing(1750, -11329)
MoveAggroing(2176, -11067)
MoveAggroing(2599, -10785)
MoveAggroing(2865, -10356)
MoveAggroing(3080, -9902)
MoveAggroing(3289, -9444)
MoveAggroing(3381, -8945)
MoveAggroing(3514, -8458)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(3744, -8009)
MoveAggroing(4227, -7873)
MoveAggroing(4730, -7914)
MoveAggroing(5231, -7875)
MoveAggroing(5731, -7971)
MoveAggroing(6215, -8103)
MoveAggroing(6704, -8246)
MoveAggroing(7193, -8390)
MoveAggroing(7695, -8450)
MoveAggroing(8038, -8819)
MoveAggroing(8215, -9289)
MoveAggroing(8556, -9664)
MoveAggroing(8989, -9941)
MoveAggroing(9350, -10295)
WEnd
EndFunc
;; Done
Func FarmUnnaturalSeed()
While Not EnoughTrophies($Trophy)
TravelTo($MapBarradn)
MoveTo(-7114, 1426)
Move(-7490, 1411)
;; Green Hills County
WaitMapLoading(160)
MoveAggroing(-8249, 1419)
MoveAggroing(-8758, 1415)
MoveAggroing(-9260, 1398)
MoveAggroing(-9766, 1365)
MoveAggroing(-10263, 1308)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-10704, 1545)
MoveAggroing(-11168, 1747)
MoveAggroing(-11423, 1315)
MoveAggroing(-11378, 808)
MoveAggroing(-11315, 307)
MoveAggroing(-11227, -188)
MoveAggroing(-11189, -693)
WEnd
EndFunc
;; Done
Func FarmWornBelt()
While Not EnoughTrophies($Trophy)
TravelTo($MapAshford)
MoveTo(-11465, -6218)
Move(-11391, -6219)
;; Lakeside County
WaitMapLoading(146)
MoveAggroing(-10218, -6362)
MoveAggroing(-9727, -6479)
MoveAggroing(-9229, -6558)
MoveAggroing(-8720, -6593)
MoveAggroing(-8218, -6544)
MoveAggroing(-7830, -6221)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-7705, -5735)
MoveAggroing(-7661, -5234)
MoveAggroing(-7615, -4726)
MoveAggroing(-7411, -4266)
MoveAggroing(-7130, -3849)
MoveAggroing(-6845, -3432)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-6560, -3019)
MoveAggroing(-6279, -2604)
MoveAggroing(-6319, -2102)
MoveAggroing(-6618, -1693)
MoveAggroing(-6230, -1370)
MoveAggroing(-5770, -1160)
If EnoughTrophies($Trophy) Then ExitLoop
MoveAggroing(-5320, -936)
MoveAggroing(-4877, -692)
MoveAggroing(-4440, -424)
MoveAggroing(-3937, -373)
MoveAggroing(-3474, -565)
MoveAggroing(-3031, -821)
MoveAggroing(-2555, -1002)
MoveAggroing(-2055, -920)
WEnd
EndFunc
;; Done
Func EnoughTrophies($aTrophy)
If CountInventoryItem($aTrophy) >= 25 And Not $FarmOnly Then
Return True
EndIf
EndFunc
;;--------- Common Commands: ------------;;
Func ZoneToMap($MoveX, $MoveY, $NewMapID)
Do
Move($MoveX, $MoveY, 2)
RndSleep(500)
Until WaitMapLoading($NewMapID)
RndSleep(3000)
EndFunc
Func TrayHandler()
Switch (@TRAY_ID)
Case $StartProgram
$boolRun = Not $boolRun
If $boolRun Then
TrayItemSetText($StartProgram, "Stop " & $BotTitle)
Else
TrayItemSetText($StartProgram, "Start " & $BotTitle)
EndIf
Case $ItemBaked
HandleSelect($ItemBaked,$Selected)
$Trophy = $BakedHusk
Case $ItemCharr
HandleSelect($ItemCharr,$Selected)
$Trophy = $CharrCarving
Case $ItemDull
HandleSelect($ItemDull,$Selected)
$Trophy = $DullCarapace
Case $ItemEnchanted
HandleSelect($ItemEnchanted,$Selected)
$Trophy = $EnchantedLodestone
Case $ItemSkull
HandleSelect($ItemSkull,$Selected)
$Trophy = $GargoyleSkull
Case $ItemNecklace
HandleSelect($ItemNecklace,$Selected)
$Trophy = $GrawlNecklace
Case $ItemIcy
HandleSelect($ItemIcy,$Selected)
$Trophy = $IcyLodestone
Case $ItemFlower
HandleSelect($ItemFlower,$Selected)
$Trophy = $RedIrisFlower
Case $ItemFin
HandleSelect($ItemFin,$Selected)
$Trophy = $SkaleFin
Case $ItemLimb
HandleSelect($ItemLimb,$Selected)
$Trophy = $SkeletalLimb
Case $ItemLeg
HandleSelect($ItemLeg,$Selected)
$Trophy = $SpiderLeg
Case $ItemSeed
HandleSelect($ItemSeed,$Selected)
$Trophy = $UnnaturalSeed
Case $ItemBelt
HandleSelect($ItemBelt,$Selected)
$Trophy = $WornBelt
Case $RenderMode
TOGGLERENDERING()
Case $SelFarm
$FarmOnly = Not $FarmOnly
If $FarmOnly Then
TrayItemSetState($SelFarm,1)
Else
TrayItemSetState($SelFarm,4)
EndIf
Case $tExit
If Not $RENDERING Then TOGGLERENDERING()
_exit()
EndSwitch
EndFunc ;==>TrayHandler
Func HandleSelect($new,$old)
TrayItemSetState($new, 1)
TrayItemSetState($old, 4)
$Selected = $new
EndFunc
Func GetSelectedItem()
Local $oIE = _IECreate("http://wiki.guildwars.com/wiki/Nicholas_Sandford", 0, 0)
Local $sText = _IEBodyReadText($oIE)
Local $sFound = _StringBetween($sText,"he is currently looking for ","s.")
Switch($sFound[0])
Case "Baked Husk"
TrayItemSetState($ItemBaked,1)
$Selected = $ItemBaked
$Trophy = $BakedHusk
Case "Charr Carving"
TrayItemSetState($ItemCharr,1)
$Selected = $ItemCharr
$Trophy = $CharrCarving
Case "Dull Carapace"
TrayItemSetState($ItemDull,1)
$Selected = $ItemDull
$Trophy = $DullCarapace
Case "Enchanted Lodestone"
TrayItemSetState($ItemEnchanted,1)
$Selected = $ItemEnchanted
$Trophy = $EnchantedLodestone
Case "Gargoyle Skull"
TrayItemSetState($ItemSkull,1)
$Selected = $ItemSkull
$Trophy = $GargoyleSkull
Case "Grawl Necklace"
TrayItemSetState($ItemNecklace,1)
$Selected = $ItemNecklace
$Trophy = $GrawlNecklace
Case "Icy Lodestone"
TrayItemSetState($ItemIcy,1)
$Selected = $ItemIcy
$Trophy = $IcyLodestone
Case "Red Iris Flower"
TrayItemSetState($ItemFlower,1)
$Selected = $ItemFlower
$Trophy = $RedIrisFlower
Case "Skale Fin"
TrayItemSetState($ItemFin,1)
$Selected = $ItemFin
$Trophy = $SkaleFin
Case "Skeletal Limb"
TrayItemSetState($ItemLimb,1)
$Selected = $ItemLimb
$Trophy = $SkeletalLimb
Case "Spider Leg"
TrayItemSetState($ItemLeg,1)
$Selected = $ItemLeg
$Trophy = $SpiderLeg
Case "Unnatural Seed"
TrayItemSetState($ItemSeed,1)
$Selected = $ItemSeed
$Trophy = $UnnaturalSeed
Case "Worn Belt"
TrayItemSetState($ItemBelt,1)
$Selected = $ItemBelt
$Trophy = $WornBelt
EndSwitch
_IEQuit($oIE)
EndFunc
;~ Description: guess what?
Func _exit()
Exit
EndFunc
