Obsi bot need help

Quote:

#RequireAdmin #NoTrayIcon #include "GWA2.au3" #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <ComboConstants.au3> #include <GuiEdit.au3> Opt("GUIOnEventMode", True) Opt("GUICloseOnESC", False) Opt("MustDeclareVars", True) #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.8.0 GWA2 Version: 3.6.9 Modified Compiler: Savsuds Author: Savsuds Bot Functions: -Selectable Starting town -Enters Fissure of Woe using Fissure scroll or talking to the Ghostlie (***) -Casts buffs and skills and conducts a run. Kills all Shadow Rangers and Abyssals near the opening tower area -Uses alcohol, corn, apple, war supplies if in your inventory bag Inventory Features: -Picks up and Stores Black/White Dyes -Picks up and Stores Obsidian Keys -Picks up and Stores Dark Remains -Picks Up and Stores Rubies, Sapphires, Obsidian Shards -Picks Up and Stores Unid Golds Requirements: -Plenty of gold in the storage/character unless you only run this during Pantheon week events -Ranger Primary with Assasin secondary and has access to Fissure of Woe -Rank 5 Norn Title -Rank 5 Asuran Title -Rank 5 Deldrimor Title -Temple of the Ages town -Chantry of Secrets town -Zin Ku Corridor town -3-point alcohol to ensure that Dwarven Stability prevents knockdown for when IAU is recharging -Skillbar: OgcSc5PTHQ6M0kxlCH3lNQ4O Notes: Thanks: Ralle, 4D1, gigi, TAP, Miracle, Tormiasz, dDarek, skaldish I borrowed inspiration and code/API from you all Special thanks to Andy for the video sharing his farm and answering questions about the run *** May not implement this feature #ce ---------------------------------------------------------------------------- Global $MAP_ID_TEMPLE_OF_AGES = 138 Global $MAP_ID_CHANTRY_OF_SECRETS = 393 Global $MAP_ID_ZIN_KU_CORRIDOR = 284 Global $MAP_ID_FISSURE_OF_WOE = 34 Global Const $MODELID_CHAMPION_OF_BALTHAZAR = 1937 Global $TempleoftheAges = False Global $ChantryofSecrets = False Global $ZinKuCorridor = False Global Const $RangerSkillBarTemplate = "OgcSc5PTHQ6M0kxlCH3lNQ4O" Global Const $SkillBar[8] = [1031, 826, 2356, 2417, 450, 2423, 1037, 952] #Region Global Skill Number Global Const $Shroud_of_Distress_Skill = 1 Global Const $Shadow_Form_Skill = 2 Global Const $I_Am_Unstoppable_Skill = 3 Global Const $Mental_Block_Skill = 4 Global Const $Whirling_Defense_Skill = 5 Global Const $DwarvenStability_Skill = 6 Global Const $Dark_Escape_Skill = 7 Global Const $Deaths_Charge_Skill = 8 #EndRegion Global Skill Number #Region Global Engergy Skill Cost Global $skillCost[9] $skillCost[$Shroud_of_Distress_Skill] = 10 $skillCost[$Shadow_Form_Skill] = 5 $skillCost[$I_Am_Unstoppable_Skill] = 5 $skillCost[$Mental_Block_Skill] = 10 $skillCost[$Whirling_Defense_Skill] = 10 $skillCost[$DwarvenStability_Skill] = 5 $skillCost[$Dark_Escape_Skill] = 5 $skillCost[$Deaths_Charge_Skill] = 5 #CS Global Const $Shroud_of_Distress_Energie = 10 Global Const $Shadow_Form_Energie = 5 Global Const $I_Am_Unstoppable_Energie = 5 Global Const $Mental_Block_Energie = 10 Global Const $Whirling_Defense_Energie = 10 Global Const $DwarvenStability_Energie = 5 Global Const $Dark_Escape_Energie = 5 Global Const $Deaths_Charge_Energie = 5 #CE #EndRegion Global Engergy Skill Cost #Region Global Const Items Global Const $RARITY_GOLD = 2624 Global Const $RARITY_PURPLE = 2626 Global Const $RARITY_BLUE = 2623 Global Const $RARITY_WHITE = 2621 ;~ Weapon Mods Global $Weapon_Mod_Array[25] = [893, 894, 895, 896, 897, 905, 906, 907, 908, 909, 6323, 6331, 15540, 15541, 15542, 15543, 15544, 15551, 15552, 15553, 15554, 15555, 17059, 19122, 19123] Global Const $ITEM_ID_STAFF_HEAD = 896 Global Const $ITEM_ID_STAFF_WRAPPING = 908 Global Const $ITEM_ID_SHIELD_HANDLE = 15554 Global Const $ITEM_ID_FOCUS_CORE = 15551 Global Const $ITEM_ID_WAND = 15552 Global Const $ITEM_ID_BOW_STRING = 894 Global Const $ITEM_ID_BOW_GRIP = 906 Global Const $ITEM_ID_SWORD_HILT = 897 Global Const $ITEM_ID_SWORD_POMMEL = 909 Global Const $ITEM_ID_AXE_HAFT = 893 Global Const $ITEM_ID_AXE_GRIP = 905 Global Const $ITEM_ID_DAGGER_TANG = 6323 Global Const $ITEM_ID_DAGGER_HANDLE = 6331 Global Const $ITEM_ID_HAMMER_HAFT = 895 Global Const $ITEM_ID_HAMMER_GRIP = 907 Global Const $ITEM_ID_SCYTHE_SNATHE = 15543 Global Const $ITEM_ID_SCYTHE_GRIP = 15553 Global Const $ITEM_ID_SPEARHEAD = 15544 Global Const $ITEM_ID_SPEAR_GRIP = 15555 Global Const $ITEM_ID_INSCRIPTIONS_MARTIAL = 15540 Global Const $ITEM_ID_INSCRIPTIONS_FOCUS_SHIELD = 15541 Global Const $ITEM_ID_INSCRIPTIONS_ALL = 15542 Global Const $ITEM_ID_INSCRIPTIONS_GENERAL = 17059 Global Const $ITEM_ID_INSCRIPTIONS_SPELLCASTING = 19122 Global Const $ITEM_ID_INSCRIPTIONS_FOCUS_ITEMS = 19123 ;~ General items Global Const $ITEM_ID_LOCKPICKS = 22751 Global Const $ITEM_ID_ID_KIT = 2989 Global Const $ITEM_ID_SUP_ID_KIT = 5899 Global Const $ITEM_ID_SALVAGE_KIT = 2992 Global Const $ITEM_ID_EXP_SALVAGE_KIT = 2991 Global Const $ITEM_ID_SUP_SALVAGE_KIT = 5900 ;~ Dyes I included colors not normally grabbed Global Const $ITEM_ID_DYES = 146 Global Const $ITEM_EXTRAID_BLUEDYE = 2 Global Const $ITEM_EXTRAID_GREENDYE = 3 Global Const $ITEM_EXTRAID_PURPLEDYE = 4 Global Const $ITEM_EXTRAID_REDDYE = 5 Global Const $ITEM_EXTRAID_YELLOWDYE = 6 Global Const $ITEM_EXTRAID_BROWNDYE = 7 Global Const $ITEM_EXTRAID_ORANGEDYE = 8 Global Const $ITEM_EXTRAID_SILVERDYE = 9 Global Const $ITEM_EXTRAID_BLACKDYE = 10 Global Const $ITEM_EXTRAID_GRAYDYE = 11 Global Const $ITEM_EXTRAID_WHITEDYE = 12 Global Const $ITEM_EXTRAID_PINKDYE = 13 ;~ Alcohol Global $Alcohol_Array[12] = [910, 5585, 6366, 6375, 22190, 24593, 28435, 30855, 31145, 35124, 36682, 6367] Global Const $ITEM_ID_HUNTERS_ALE = 910 Global Const $ITEM_ID_DWARVEN_ALE = 5585 Global Const $ITEM_ID_SPIKED_EGGNOG = 6366 Global Const $ITEM_ID_EGGNOG = 6375 Global Const $ITEM_ID_SHAMROCK_ALE = 22190 Global Const $ITEM_ID_AGED_DWARVEN_ALE = 24593 Global Const $ITEM_ID_CIDER = 28435 Global Const $ITEM_ID_GROG = 30855 Global Const $ITEM_ID_AGED_HUNTERS_ALE = 31145 Global Const $ITEM_ID_KRYTAN_BRANDY = 35124 Global Const $ITEM_ID_BATTLE_ISLE_ICED_TEA = 36682 Global Const $ITEM_ID_VIAL_OF_ABSINTHE = 6367 ;~ Party Global $Spam_Party_Array[5] = [6376, 21809, 21810, 21813, 36683] Global Const $ITEM_ID_SNOWMAN_SUMMONER = 6376 Global Const $ITEM_ID_ROCKETS = 21809 Global Const $ITEM_ID_POPPERS = 21810 Global Const $ITEM_ID_SPARKLER = 21813 Global Const $ITEM_ID_PARTY_BEACON = 36683 ;~ Sweets Global $Spam_Sweet_Array[6] = [21492, 21812, 22269, 22644, 22752, 28436] Global Const $ITEM_ID_FRUITCAKE = 21492 Global Const $ITEM_ID_BLUE_DRINK = 21812 Global Const $ITEM_ID_CUPCAKES = 22269 Global Const $ITEM_ID_BUNNIES = 22644 Global Const $ITEM_ID_GOLDEN_EGGS = 22752 Global Const $ITEM_ID_PIE = 28436 ;~ Tonics Global $Tonic_Party_Array[21] = [15837, 21490, 22192, 30624, 30626, 30630, 30632, 30634, 30636, 30638, 30640, 30642, 30646, 30648, 31020, 31141, 31142, 31144, 31172, 37771, 37772] ;Global Const $ITEM_ID_ = 4730 Global Const $ITEM_ID_TRANSMOGRIFIER = 15837 Global Const $ITEM_ID_YULETIDE = 21490 Global Const $ITEM_ID_BEETLE_JUICE = 22192 ; Not really a drop from PvE foes Global Const $ITEM_ID_ABYSSAL = 30624 ; Not really a drop from PvE foes Global Const $ITEM_ID_CEREBRAL = 30626 ; Not really a drop from PvE foes Global Const $ITEM_ID_TRAPDOOR = 30630 ; Not really a drop from PvE foes Global Const $ITEM_ID_SEARING = 30632 ; Not really a drop from PvE foes Global Const $ITEM_ID_AUTOMATONIC = 30634 ; Not really a drop from PvE foes Global Const $ITEM_ID_SKELETONIC = 30636 ; Not really a drop from PvE foes Global Const $ITEM_ID_BOREAL = 30638 ; Not really a drop from PvE foes Global Const $ITEM_ID_GELATINOUS = 30640 ; Not really a drop from PvE foes Global Const $ITEM_ID_PHANTASMAL = 30642 ; Not really a drop from PvE foes ;Global Const $ITEM_ID_ = 30646 ; Not really a drop from PvE foes Global Const $ITEM_ID_FROSTY = 30648 Global Const $ITEM_ID_MISCHIEVIOUS = 31020 Global Const $ITEM_ID_MYSTERIOUS = 31141 ; Not really a drop from PvE foes Global Const $ITEM_ID_COTTONTAIL = 31142 ; Not really a drop from PvE foes Global Const $ITEM_ID_ZAISHEN = 31144 ; Not really a drop from PvE foes Global Const $ITEM_ID_UNSEEN = 31172 ; Not really a drop from PvE foes Global Const $ITEM_ID_SPOOKY = 37771 ; Not really a drop from PvE foes Global Const $ITEM_ID_MINUTELY_MAD_KING = 37772 ; Not really a drop from PvE foes ;~ DR Removal Global $DPRemoval_Sweets[6] = [6370, 21488, 21489, 22191, 26784, 28433] Global Const $ITEM_ID_PEPPERMINT_CC = 6370 Global Const $ITEM_ID_WINTERGREEN_CC = 21488 Global Const $ITEM_ID_RAINBOW_CC = 21489 Global Const $ITEM_ID_CLOVER = 22191 Global Const $ITEM_ID_HONEYCOMB = 26784 Global Const $ITEM_ID_PUMPKIN_COOKIE = 28433 ;~ Special Drops Global $Special_Drops[7] = [5656, 18345, 21491, 37765, 21833, 28433, 28434] Global Const $ITEM_ID_CC_SHARDS = 556 Global Const $ITEM_ID_VICTORY_TOKEN = 18345 Global Const $ITEM_ID_WINTERSDAY_GIFT = 21491 ; Not really a drop Global Const $ITEM_ID_WAYFARER_MARK = 37765 Global Const $ITEM_ID_LUNAR_TOKEN = 21833 Global Const $ITEM_ID_LUNAR_TOKENS = 28433 Global Const $ITEM_ID_TOTS = 28434 Global Const $ITEM_ID_WAR_SUPPLY = 35121 Global Const $ITEM_ID_CANDY_APPLE = 28431 Global Const $ITEM_ID_CANDY_CORN = 28432 ;~ Stackable Trophies Global $Stackable_Trophies_Array[1] = [522] Global Const $ITEM_ID_DARK_REMAINS = 522 ;~Material Array Global $Material_Array[3] = [937, 938, 945] ;~ Common Materials Global Const $ITEM_ID_DUST = 929 ;~ Rare Materials Global Const $ITEM_ID_RUBY = 937 Global Const $ITEM_ID_SAPPHIRE = 938 Global Const $ITEM_ID_OBSIDIAN_SHARD = 945 ;~ Arrays for the title spamming (Not inside this version of the bot, but at least the arrays are made for you) Global $ModelsAlcohol[17] = [910, 2513, 5585, 6049, 6366, 6367, 6375, 15477, 19171, 22190, 24593, 28435, 30855, 31145, 31146, 35124, 36682] Global $ModelSweetOutpost[100] = [15528, 15479, 19170, 21492, 21812, 22644, 31150, 35125, 36681] Global $ModelsSweetPve[100] = [22269, 22644, 28431, 28432, 28436] Global $ModelsParty[100] = [6368, 6369, 6376, 21809, 21810, 21813] Global $BAG_SLOTS[18] = [0, 20, 5, 10, 10, 20, 41, 12, 20, 20, 20, 20, 20, 20, 20, 20, 20, 9] Global $Array_pscon[38]=[$ITEM_ID_HUNTERS_ALE, $ITEM_ID_DWARVEN_ALE, $ITEM_ID_SPIKED_EGGNOG, $ITEM_ID_EGGNOG, $ITEM_ID_SHAMROCK_ALE, $ITEM_ID_AGED_DWARVEN_ALE, $ITEM_ID_CIDER, $ITEM_ID_GROG, $ITEM_ID_AGED_HUNTERS_ALE, $ITEM_ID_KRYTAN_BRANDY, $ITEM_ID_BATTLE_ISLE_ICED_TEA, $ITEM_ID_SNOWMAN_SUMMONER, $ITEM_ID_ROCKETS, $ITEM_ID_POPPERS, $ITEM_ID_SPARKLER, $ITEM_ID_PARTY_BEACON, $ITEM_ID_FRUITCAKE, $ITEM_ID_BLUE_DRINK, $ITEM_ID_CUPCAKES, $ITEM_ID_BUNNIES, $ITEM_ID_GOLDEN_EGGS, $ITEM_ID_PIE, $ITEM_ID_TRANSMOGRIFIER, $ITEM_ID_YULETIDE, $ITEM_ID_FROSTY, $ITEM_ID_MISCHIEVIOUS, $ITEM_ID_PEPPERMINT_CC, $ITEM_ID_WINTERGREEN_CC, $ITEM_ID_RAINBOW_CC, $ITEM_ID_CLOVER, $ITEM_ID_HONEYCOMB, $ITEM_ID_PUMPKIN_COOKIE, $ITEM_ID_CC_SHARDS, $ITEM_ID_VICTORY_TOKEN, $ITEM_ID_WINTERSDAY_GIFT, $ITEM_ID_LUNAR_TOKEN, $ITEM_ID_LUNAR_TOKENS, $ITEM_ID_TOTS] #EndRegion Global Const Items #Region Global Const GH Map IDs Global $ISLEOFWURMS = False, $ISLEOFDEAD = False, $ISLEOFMEDITATION = False, $ISLEOFSOLITUDE = False, $DRUIDISLE = False, $IMPERIALISLE = False, $HUNTERISLE = False, $UNCHARTEDISLE = False, $CORRUPTEDISLE = False, $ISLEOFJADE = False, $NOMADISLE = False _ , $FROZENISLE = False, $ISLEOFWEEPING = False, $WARRIORISLE = False, $BURNINGISLE = False, $WIZARDISLE = False ;~ Prophecies Global $BurningIsle_GH_ID = 52 ;Key=Burning Isle Global $Druid_GH_ID = 70 ;Key=Druid´s Isle Global $FrozenIsle_GH_ID = 68 ;Key=Frozen Isle Global $Hunter_GH_ID = 8 ;Key=Hunter´s Isle Global $IsleOFDead_GH_ID = 179 ;Key=Isle Of Dead Global $NomadIsle_GH_ID = 69 ;Key=Nomand´s Isle Global $WarriorsIsle_GH_ID = 7 ;Key=Warrior´s Isle Global $WizardsIsle_GH_ID = 9 ;Key=Wizard´s Isle ;~ Factions Global $Imperial_GH_ID = 363 ;Key=Imperial Isle Global $IsleOfJade_GH_ID = 362 ;Key=Isle Of Jade Global $Meditation_GH_ID = 360 ;Key=Isle Of Meditation Global $IsleOfWeepingStone_GH_ID = 361 ;Key=Isle Of Weeping Stone ;~ Nightfall Global $Corrupted_GH_ID = 539 ;Key=Corrupted Isle Global $Solitude_GH_ID = 538 ;Key=Isle of Solitude Global $IsleOfWurm_GH_ID = 532 ;Key=Isle Of Wurm Global $Ucharted_GH_ID = 531 ;Key=Ucharted Isle #EndRegion Global Const GH Map IDs #Region Things Global $mSelf Global $mSelfID Global $mLowestAlly Global $mLowestAllyHP Global $mLowestOtherAlly Global $mLowestOtherAllyHP Global $mLowestEnemy Global $mLowestEnemyHP Global $mClosestEnemy Global $mClosestEnemyDist Global $mAverageTeamHP Global $mAverageTeamEnergy Global $mTeam[1] ;Array of living members Global $mTeamOthers[1] ;Array of living members other than self Global $mTeamDead[1] ;Array of dead teammates Global $mEnemies[1] ;Array of living enemy team Global $mEnemiesRange[1] ;Array of living enemy team in range of waypoint Global $mEnemiesSpellRange[1] ;Array of living enemy team in spell range Global $mSpirits[1] ;Array of your spirits Global $mPets[1] ;Array of your/your hero's pets Global $mMinions[1] ;Array of your minions Global Const $BoneHorrorID = 2198 #EndRegion Things Global Enum $INSTANCETYPE_OUTPOST, $INSTANCETYPE_EXPLORABLE, $INSTANCETYPE_LOADING Global Enum $RANGE_ADJACENT=156, $RANGE_NEARBY=240, $RANGE_AREA=312, $RANGE_EARSHOT=1000, $RANGE_SPELLCAST = 1085, $RANGE_SPIRIT = 2500, $RANGE_COMPASS = 5000 Global Enum $RANGE_ADJACENT_2=156^2, $RANGE_NEARBY_2=240^2, $RANGE_AREA_2=312^2, $RANGE_EARSHOT_2=1000^2, $RANGE_SPELLCAST_2=1085^2, $RANGE_SPIRIT_2=2500^2, $RANGE_COMPASS_2=5000^2 Global Enum $PROF_NONE, $PROF_WARRIOR, $PROF_RANGER, $PROF_MONK, $PROF_NECROMANCER, $PROF_MESMER, $PROF_ELEMENTALIST, $PROF_ASSASSIN, $PROF_RITUALIST, $PROF_PARAGON, $PROF_DERVISH Global $mFoundChest = False, $mFoundMerch = False, $Bags = 4, $PICKUP_GOLDS = False Global $TempleoftheAges = False, $ChantryofSecrets = False, $ZinKuCorridor = False Global $Select_Town = "Temple of the Ages|Chantry of Secrets|Zin Ku Corridor" Global $Array_Store_ModelIDs460[147] = [474, 476, 486, 522, 525, 811, 819, 822, 835, 610, 2994, 19185, 22751, 4629, 24630, 4631, 24632, 27033, 27035, 27044, 27046, 27047, 7052, 5123 _ , 1796, 21797, 21798, 21799, 21800, 21801, 21802, 21803, 21804, 1805, 910, 2513, 5585, 6049, 6366, 6367, 6375, 15477, 19171, 22190, 24593, 28435, 30855, 31145, 31146, 35124, 36682 _ , 6376 , 6368 , 6369 , 21809 , 21810, 21813, 29436, 29543, 36683, 4730, 15837, 21490, 22192, 30626, 30630, 30638, 30642, 30646, 30648, 31020, 31141, 31142, 31144, 1172, 15528 _ , 15479, 19170, 21492, 21812, 22269, 22644, 22752, 28431, 28432, 28436, 1150, 35125, 36681, 3256, 3746, 5594, 5595, 5611, 5853, 5975, 5976, 21233, 22279, 22280, 6370, 21488 _ , 21489, 22191, 35127, 26784, 28433, 18345, 21491, 28434, 35121, 921, 922, 923, 925, 926, 927, 928, 929, 930, 931, 932, 933, 934, 935, 936, 937, 938, 939, 940, 941, 942, 943 _ , 944, 945, 946, 948, 949, 950, 951, 952, 953, 954, 955, 956, 6532, 6533] Global $pconsWar_Supply_slot[2] Global $pconsCandy_Apple_slot[2] Global $pconsCandy_Corn_slot[2] Global $pconsSpiked_Eggnog_slot[2] Global $pconsAged_Dwarven_Ale_slot[2] Global $pconsGrog_slot[2] Global $pconsAged_Hunters_Ale_slot[2] Global $pconsKrytan_Brandy_slot[2] Global $pconsHard_Apple_Cider_slot[2] Global $pconsHard_VIAL_OF_ABSINTHE_slot[2] ; ================== CONFIGURATION ================== ; True or false to load the list of logged in characters or not Global Const $doLoadLoggedChars = True ; ================ END CONFIGURATION ================ ; ==== Bot global variables ==== Global $RenderingEnabled = True Global $PickUpAll = True Global $RunCount = 0 Global $FailCount = 0 Global $ShardCount = 0 Global $BotRunning = False Global $BotInitialized = False Global $ChatStuckTimer = TimerInit() #Region GUI Global Const $mainGui = GUICreate("Fissure Bot", 350, 275) GUISetOnEvent($GUI_EVENT_CLOSE, "_exit") Global $Input If $doLoadLoggedChars Then $Input = GUICtrlCreateCombo("", 8, 8, 129, 21) GUICtrlSetData(-1, GetLoggedCharNames()) Else $Input = GUICtrlCreateInput("character name", 8, 8, 129, 21) EndIf Global $LOCATION = GUICtrlCreateCombo("Location", 8, 35, 125, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL)) GUICtrlCreateLabel("Runs:", 8, 65, 70, 17) Global Const $RunsLabel = GUICtrlCreateLabel($RunCount, 80, 65, 50, 17) GUICtrlCreateLabel("Fails:", 8, 80, 70, 17) Global Const $FailsLabel = GUICtrlCreateLabel($FailCount, 80, 80, 50, 17) GUICtrlCreateLabel("Ob Shards:", 8, 95, 70, 17) Global Const $ObbyShardCount = GUICtrlCreateLabel($ShardCount, 80, 95, 50, 17) Global Const $Button = GUICtrlCreateButton("Start", 8, 120, 131, 25) GUICtrlSetOnEvent(-1, "GuiButtonHandler") Global Const $StatusLabel = GUICtrlCreateLabel("", 8, 148, 125, 17) Global Const $Checkbox = GUICtrlCreateCheckbox("Disable Rendering", 8, 198, 129, 17) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlSetOnEvent(-1, "ToggleRendering") Global $GLOGBOX = GUICtrlCreateEdit("", 140, 8, 200, 240, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_VSCROLL)) GUICtrlSetColor($GLOGBOX, 65280) GUICtrlSetBkColor($GLOGBOX, 0) GUISetState(@SW_SHOW) GUICtrlSetData($LOCATION, $Select_Town) ;~ Description: Handles the button presses Func GuiButtonHandler() If $BotRunning Then GUICtrlSetData($Button, "Will pause after this run") GUICtrlSetState($Button, $GUI_DISABLE) $BotRunning = False ElseIf $BotInitialized Then GUICtrlSetData($Button, "Pause") $BotRunning = True Else Out("Initializing") Local $CharName = GUICtrlRead($Input) If $CharName=="" Then If Initialize(ProcessExists("gw.exe"), True, True, False) = False Then MsgBox(0, "Error", "Guild Wars is not running.") Exit EndIf Else If Initialize($CharName, True, True, False) = False Then MsgBox(0, "Error", "Could not find a Guild Wars client with a character named '"&$CharName&"'") Exit EndIf EndIf EnsureEnglish(True) GUICtrlSetState($Checkbox, $GUI_ENABLE) GUICtrlSetState($Input, $GUI_DISABLE) GUICtrlSetData($Button, "Pause") WinSetTitle($mainGui, "", "Fissure Bot-" & GetCharname()) $BotRunning = True $BotInitialized = True EndIf EndFunc #EndRegion GUI Out("Waiting for input") While Not $BotRunning Sleep(100) WEnd ; load template if we're in town If GetMapLoading() == $INSTANCETYPE_OUTPOST Then LoadSkillTemplate($RangerSkillBarTemplate) While True If GUICtrlRead($LOCATION, "") == "Temple of the Ages" Then $TempleoftheAges = True ElseIf GUICtrlRead($LOCATION, "") == "Chantry of Secrets" Then $ChantryofSecrets = True ElseIf GUICtrlRead($LOCATION, "") == "Zin Ku Corridor" Then $ZinKuCorridor = True EndIf While (CountSlots() > 4) If Not $BotRunning Then Out("Bot Paused") GUICtrlSetState($Button, $GUI_ENABLE) GUICtrlSetData($Button, "Start") While Not $BotRunning Sleep(100) WEnd EndIf If $TempleoftheAges Then MapTemple() If $ChantryofSecrets Then MapChantry() If $ZinKuCorridor Then MapZinKu() RunningShit() WEnd If (CountSlots() < 5) Then If Not $BotRunning Then Out("Bot Paused") GUICtrlSetState($Button, $GUI_ENABLE) GUICtrlSetData($Button, "Start") While Not $BotRunning Sleep(100) WEnd EndIf Inventory() EndIf WEnd Func RunningShit() ; Here is where you use 1 alcohol so the extra bonus from Dwarven Stability is used ; Along with various other pcons if you have them in your bags Out("Drinking some Drink") UseAlcohol() Sleep(GetPing()+200) Out("Popping Pills") UseCandyApple() Sleep(GetPing()+200) UseCandyCorn() Sleep(GetPing()+200) UseWarSupply() Sleep(GetPing()+200) UseSkillEx(6, -2) UseSkillEx(2, -2) Out("Let's Run Already") UseSkillEx(7, -2) MoveTo(-20615, -3072) MoveTo(-20008, -2889) MoveTo(-19541, -2934) MoveTo(-19145, -3139) MoveTo(-18458, -2721) MoveTo(-17625, -2190) Out("Anti-KD time") UseSkillEx(1, -2) UseSkillEx(4, -2) UseSkillEx(3, -2) MoveTo(-16999, -2822) MoveTo(-16273, -3186) UseDS() MoveTo(-15464, -3462) UseDS() MoveTo(-14684, -3287) Local $EnemyID1 = GetNearestAgentToCoords(-13780, -2627) ; Tele to whatever is there UseSkillex(8, $EnemyID1) MoveTo(-13694, -1459) MoveTo(-14048, -721) MoveTo(-15354, -428) MoveTo(-15681, -370) UseIAU() MoveTo(-15977, -345) UseIAU() MoveTo(-16255, -428) Sleep(GetPing()+1500) ; Casting Shadow Form just in case it is extra aggro UseSkillEx(2, -2) UseSkillEx(3, -2) If IsRecharged($Mental_Block_Skill) And HasEffect($Mental_Block_Skill) Then UseSkillEx($Mental_Block_Skill) EndIf MoveTo(-16469, -416) Sleep(GetPing()+500) MoveTo(-16283, 202) Out("Hold!") UseSkillEx(6, -2) Out("Hold!") UseSkillEx(5, -2) Sleep(GetPing()+4000) MoveTo(-16141, 293) ; move to clear tele path Out("Hold the Line!") Sleep(GetPing()+1250) Out("Die Bitches!") Local $enemyID2 = GetNearestAgentToCoords(-15154, -477) ; Tele to Shadow Rangers, (-15154, -477) UseSkillex(8, $enemyID2) Do Sleep(500) StayAlive() Until GetNumberOfFoesInRangeOfAgent(-2, 200) < 5 Or GetIsDead(-2) Sleep(Random(250, 1000) + GetPing()) PickUpLoot() If GetIsDead(-2) Then Out("I was pawn'd") $FailCount += 1 GUICtrlSetData($FailsLabel, $FailCount) Else $RunCount += 1 GUICtrlSetData($RunsLabel, $RunCount) EndIf GUICtrlSetData($ObbyShardCount, GetObsidianShardCount()) Out("Returning to Town") If $TempleoftheAges = True Then Out("Temple of the Ages") RndTravel($MAP_ID_TEMPLE_OF_AGES) WaitMapLoading($MAP_ID_TEMPLE_OF_AGES, 5000) EndIf If $ChantryofSecrets = True Then Out("Chantry of Secrets") RndTravel($MAP_ID_CHANTRY_OF_SECRETS) WaitMapLoading($MAP_ID_CHANTRY_OF_SECRETS, 5000) EndIf If $ZinKuCorridor = True Then Out("Zin Ku Corridor") RndTravel($MAP_ID_ZIN_KU_CORRIDOR) WaitMapLoading($MAP_ID_ZIN_KU_CORRIDOR, 5000) EndIf EndFunc ;==>RangerRun Func StayAlive() If IsRecharged($DwarvenStability_Skill) Then UseSkillEx($DwarvenStability_Skill) EndIf If IsRecharged($I_Am_Unstoppable_Skill) Then UseSkillEx($I_Am_Unstoppable_Skill) EndIf If IsRecharged($Shroud_of_Distress_Skill) Then UseSkillEx($Shroud_of_Distress_Skill) EndIf If IsRecharged($Mental_Block_Skill) Then UseSkillEx($Mental_Block_Skill) EndIf If IsRecharged($Whirling_Defense_Skill) Then UseSkillEx($Whirling_Defense_Skill) EndIf If IsRecharged($Shadow_Form_Skill) Then UseSkillEx($Shadow_Form_Skill) EndIf Local $enemyID3 = GetNearestAgentToCoords(-15040, -505) If IsRecharged($Deaths_Charge_Skill) Then UseSkillex(8, $enemyID3) EndIf EndFunc Func UseIAU() If IsRecharged($I_Am_Unstoppable_Skill) Then UseSkillEx($I_Am_Unstoppable_Skill) EndIf EndFunc Func UseDS() If IsRecharged($DwarvenStability_Skill) Then UseSkillEx($DwarvenStability_Skill) EndIf EndFunc Func UseSkillEx($lSkill, $lTgt=-2, $aTimeout = 3000) If GetIsDead(-2) Then Return If Not IsRecharged($lSkill) Then Return If GetEnergy(-2) < $skillCost[$lSkill] Then Return Local $lDeadlock = TimerInit() UseSkill($lSkill, $lTgt) Do Sleep(50) If GetIsDead(-2) = 1 Then Return Until (Not IsRecharged($lSkill)) Or (TimerDiff($lDeadlock) > $aTimeout) If $lSkill > 1 Then RndSleep(750) EndFunc Func IsRecharged($lSkill) Return GetSkillBarSkillRecharge($lSkill)==0 EndFunc Func HasEffect($Effect) If DllStructGetData(GetEffect($Effect), 'SkillID') < 1 Then ; If you're not under effect Return False Else Return True EndIf EndFunc ;==>HasEffect Func GoNearestNPCToCoords($x, $y) Local $guy, $Me Do RndSleep(250) $guy = GetNearestNPCToCoords($x, $y) Until DllStructGetData($guy, 'Id') <> 0 ChangeTarget($guy) RndSleep(250) GoNPC($guy) RndSleep(250) Do RndSleep(500) Move(DllStructGetData($guy, 'X'), DllStructGetData($guy, 'Y'), 40) RndSleep(500) GoNPC($guy) RndSleep(250) $Me = GetAgentByID(-2) Until ComputeDistance(DllStructGetData($Me, 'X'), DllStructGetData($Me, 'Y'), DllStructGetData($guy, 'X'), DllStructGetData($guy, 'Y')) < 250 RndSleep(1000) EndFunc ;==>GoNearestNPCToCoords Func GetNumberOfFoesInRangeOfAgent($aAgent = -2, $aRange = 1250) Local $lAgent, $lDistance Local $lCount = 0 If Not IsDllStruct($aAgent) Then $aAgent = GetAgentByID($aAgent) For $i = 1 To GetMaxAgents() $lAgent = GetAgentByID($i) If BitAND(DllStructGetData($lAgent, 'typemap'), 262144) Then ContinueLoop If DllStructGetData($lAgent, 'Type') <> 0xDB Then ContinueLoop If DllStructGetData($lAgent, 'Allegiance') <> 3 Then ContinueLoop If DllStructGetData($lAgent, 'HP') <= 0 Then ContinueLoop If BitAND(DllStructGetData($lAgent, 'Effects'), 0x0010) > 0 Then ContinueLoop $lDistance = GetDistance($lAgent) If $lDistance > $aRange Then ContinueLoop $lCount += 1 Next Return $lCount EndFunc ;==>GetNumberOfFoesInRangeOfAgent Func GoldCheck() Local $lGold = GetGoldCharacter() If $lGold < 1000 Then If GetGoldStorage() < 20000 Then Out("Ran out of gold") $BotRunning = False Return False EndIf Out("Withdrawing gold") WithdrawGold(20000) EndIf Return True EndFunc Func RndTravel($aMapID) Local $UseDistricts = 11 ; 7=eu, 8=eu+int, 11=all(incl. asia) ; Region/Language order: eu-en, eu-fr, eu-ge, eu-it, eu-sp, eu-po, eu-ru, int, asia-ko, asia-ch, asia-ja Local $Region[11] = [2, 2, 2, 2, 2, 2, 2, -2, 1, 3, 4] Local $Language[11] = [0, 2, 3, 4, 5, 9, 10, 0, 0, 0, 0] Local $Random = Random(0, $UseDistricts - 1, 1) MoveMap($aMapID, $Region[$Random], 0, $Language[$Random]) WaitMapLoading($aMapID, 30000) Sleep(GetPing()+3000) EndFunc ;==>RndTravel Func GenericRandomPath($aPosX, $aPosY, $aRandom = 50, $STOPSMIN = 1, $STOPSMAX = 5, $NUMBEROFSTOPS = -1) If $NUMBEROFSTOPS = -1 Then $NUMBEROFSTOPS = Random($STOPSMIN, $STOPSMAX, 1) Local $lAgent = GetAgentByID(-2) Local $MYPOSX = DllStructGetData($lAgent, "X") Local $MYPOSY = DllStructGetData($lAgent, "Y") Local $DISTANCE = ComputeDistance($MYPOSX, $MYPOSY, $aPosX, $aPosY) If $NUMBEROFSTOPS = 0 Or $DISTANCE < 200 Then MoveTo($aPosX, $aPosY, $aRandom) Else Local $M = Random(0, 1) Local $N = $NUMBEROFSTOPS - $M Local $STEPX = (($M * $aPosX) + ($N * $MYPOSX)) / ($M + $N) Local $STEPY = (($M * $aPosY) + ($N * $MYPOSY)) / ($M + $N) MoveTo($STEPX, $STEPY, $aRandom) GenericRandomPath($aPosX, $aPosY, $aRandom, $STOPSMIN, $STOPSMAX, $NUMBEROFSTOPS - 1) EndIf EndFunc ;==>GENERICRANDOMPATH Func CheckRealPlayerIsInOutPost() Local $Player_Name $Player_Name = Check_Is_Other_Player_Here() If ($Player_Name == False) Then DistrictChange() If (GetMapLoading() == 2) Then DISCONNECTED() _PurgeHook() EndIf EndFunc ;==>CheckRealPlayerIsInOutPost Func DistrictChange($AZONEID = 0, $AUSEDISTRICTS = 7) Local $REGION[12] = [2, 2, 2, 2, 2, 2, 2, 0, -2, 1, 3, 4] Local $LANGUAGE[12] = [0, 2, 3, 4, 5, 9, 10, 0, 0, 0, 0, 0] Local $random, $OLD_REGION, $OLD_LANGUAGE If $AZONEID = 0 Then $AZONEID = GetMapID() $OLD_REGION = GetRegion() $OLD_LANGUAGE = GetLanguage() Do $random = Random(0, $AUSEDISTRICTS - 1, 1) Until $LANGUAGE[$random] <> $OLD_LANGUAGE $REGION = $REGION[$random] $LANGUAGE = $LANGUAGE[$random] MoveMap($AZONEID, $REGION, 0, $LANGUAGE) Return WaitMapLoading($AZONEID) EndFunc ;==>DISTRICTCHANGE Func Check_Is_Other_Player_Here() Local $how_many_Agents, $lAgentArray, $n = 0, $Myname, $AgentPlayerNummber, $aAgent, $LAGENT, $modelID_Me, $lAgentArray, $lMe_ = -2 $lAgentArray = GetAgentArray(0xDB) For $i = 0 To (UBound($lAgentArray) -1) If (DllStructGetData($lAgentArray[$i], 'Allegiance') == 1) Then $LAGENT = GetAgentByID($lMe_) $modelID_Me = DllStructGetData($LAGENT, 'PlayerNumber') $AgentPlayerNummber = DllStructGetData($lAgentArray[$i], "PlayerNumber") If ($AgentPlayerNummber == $modelID_Me) Then ContinueLoop If (($AgentPlayerNummber> 0) And ($AgentPlayerNummber < 100)And($AgentPlayerNummber<> $modelID_Me))Then $aAgent = GetPlayerName($lAgentArray[$i]) $n =+1 Out1($aAgent) EndIf EndIf Next If ($n > 0) Then Out("Players are here!") Out("Change District!") Return False EndIf Return True EndFunc ;==>Check_Is_Other_Player_Here Func ToggleRendering() $RenderingEnabled = Not $RenderingEnabled If $RenderingEnabled Then EnableRendering() WinSetState(GetWindowHandle(), "", @SW_SHOW) Else DisableRendering() WinSetState(GetWindowHandle(), "", @SW_HIDE) ClearMemory() EndIf EndFunc ;==>ToggleRendering Func Out($TEXT) ;If $BOTRUNNING Then FileWriteLine($FLOG, @CRLF & "[" & @HOUR & ":" & @MIN & ":" & @SEC & "] " & $TEXT) Local $TEXTLEN = StringLen($TEXT) Local $CONSOLELEN = _GUICtrlEdit_GetTextLen($GLOGBOX) If $TEXTLEN + $CONSOLELEN > 30000 Then GUICtrlSetData($GLOGBOX, StringRight(_GUICtrlEdit_GetText($GLOGBOX), 30000 - $TEXTLEN - 1000)) _GUICtrlEdit_AppendText($GLOGBOX, @CRLF & "[" & @HOUR & ":" & @MIN & ":" & @SEC & "] " & $TEXT) _GUICtrlEdit_Scroll($GLOGBOX, 1) EndFunc ;==>OUT Func _exit() Exit EndFunc Func TimeUpdater() Local $WeakCounter, $Sec, $Min, $Hour, $L_Sec, $L_Min, $L_Hour $WeakCounter += 1 $Sec += 1 If $Sec = 60 Then $Min += 1 $Sec = $Sec - 60 EndIf If $Min = 60 Then $Hour += 1 $Min = $Min - 60 EndIf If $Sec < 10 Then $L_Sec = "0" & $Sec Else $L_Sec = $Sec EndIf If $Min < 10 Then $L_Min = "0" & $Min Else $L_Min = $Min EndIf If $Hour < 10 Then $L_Hour = "0" & $Hour Else $L_Hour = $Hour EndIf GUICtrlSetData($lTime, $L_Hour & ":" & $L_Min & ":" & $L_Sec) EndFunc ;==>TimeUpdater #Region Running in Towns Func MapTemple() ;~ Checks if you are already in Temple of the Ages, if not then you travel to Temple of the Ages If GetMapID() <> $MAP_ID_TEMPLE_OF_AGES Then Out("Off to Temple of the Ages") RndTravel($MAP_ID_TEMPLE_OF_AGES) WaitMapLoading($MAP_ID_TEMPLE_OF_AGES, 5000) EndIf pconsScanInventory() Sleep(GetPing()+500) EnterFissureTemple() EndFunc Func MapChantry() ;~ Checks if you are already in Chantry of Secrets, if not then you travel to Chantry of Secrets If GetMapID() <> $MAP_ID_CHANTRY_OF_SECRETS Then Out("Off to Chantry of Secrets") RndTravel($MAP_ID_CHANTRY_OF_SECRETS) WaitMapLoading($MAP_ID_CHANTRY_OF_SECRETS, 5000) EndIf pconsScanInventory() Sleep(GetPing()+500) EnterFissureChantry() EndFunc Func MapZinKu() ;~ Checks if you are already in Zin Ku Corridor, if not then you travel to Zin Ku Corridor If GetMapID() <> $MAP_ID_ZIN_KU_CORRIDOR Then Out("Off to Zin Ku Corridor") RndTravel($MAP_ID_ZIN_KU_CORRIDOR) WaitMapLoading($MAP_ID_ZIN_KU_CORRIDOR, 5000) EndIf pconsScanInventory() Sleep(GetPing()+500) EnterFissureZinKuCorridor() EndFunc Func EnterFissureTemple() ;~ Checks to see if I can pay the toll, if not it withdraws 20k If Not GoldCheck() Then Return ;~Running to the Shrine Out("Running to Shrine") TravelToPortalToA() Sleep(GetPing()+500) ;~ popping the Ghost and Entering Fissure Local $Avatar $Avatar = GetNearestNPCToCoords(-2429, 18753) ; try to get the avatar, might be there already. If DllStructGetData($Avatar, "PlayerNumber") <> $MODELID_CHAMPION_OF_BALTHAZAR Then ; nope avatar is not there, spawn him. Out("Spawning Balthazar") SendChat("kneel", "/") Local $lDeadlock = TimerInit() Do Sleep(1500) ; wait until Balthazar is up. $Avatar = GetNearestNPCToCoords(-2429, 18753) If TimerDiff($lDeadlock) > 5000 Then MoveTo(-2537, 18786) SendChat("kneel", "/") $lDeadlock = TimerInit() EndIf Until DllStructGetData($Avatar, "PlayerNumber") == $MODELID_CHAMPION_OF_BALTHAZAR ; TODO: make a deadlock check EndIf Out("Paying the Toll") GoNpc($Avatar) Sleep(GetPing()+500) Dialog(0x85) ; "yes, to the service of balthazar" Sleep(GetPing()+500) DIALOG(0x86) ; "accept" Out("Waiting for Fissure to load") WaitMapLoading($MAP_ID_FISSURE_OF_WOE, 1000) If GetMapID() == $MAP_ID_TEMPLE_OF_AGES Then Return ; dialogs to enter Fissure failed. restart. WaitMapLoading($MAP_ID_TEMPLE_OF_AGES, 2000) EndFunc ;==>Enter Fissure from Temple of the Ages Func EnterFissureChantry() ;~ Checks to see if I can pay the toll, if not it withdraws 20k If Not GoldCheck() Then Return ;~Running to the Shrine Out("Running to Shrine") TravelToPortalChantry() Sleep(GetPing()+500) ;~ popping the Ghost and Entering Fissure Local $Avatar $Avatar = GetNearestNPCToCoords(-9865, 992) ; try to get the avatar, might be there already. If DllStructGetData($Avatar, "PlayerNumber") <> $MODELID_CHAMPION_OF_BALTHAZAR Then ; nope avatar is not there, spawn him. Out("Spawning Balthazar") SendChat("kneel", "/") Local $lDeadlock = TimerInit() Do Sleep(1500) ; wait until Balthazar is up. $Avatar = GetNearestNPCToCoords(-9865, 992) If TimerDiff($lDeadlock) > 5000 Then MoveTo(-9985, 1096) SendChat("kneel", "/") $lDeadlock = TimerInit() EndIf Until DllStructGetData($Avatar, "PlayerNumber") == $MODELID_CHAMPION_OF_BALTHAZAR ; TODO: make a deadlock check EndIf Out("Paying the Toll") GoNpc($Avatar) Sleep(GetPing()+500) Dialog(0x85) ; "yes, to the service of balthazar" Sleep(GetPing()+500) DIALOG(0x86) ; "accept" Out("Waiting for Fissure to load") WaitMapLoading($MAP_ID_FISSURE_OF_WOE, 1000) If GetMapID() == $MAP_ID_CHANTRY_OF_SECRETS Then Return ; dialogs to enter Fissure failed. restart. WaitMapLoading($MAP_ID_CHANTRY_OF_SECRETS, 2000) EndFunc ;==>Enter Fissure from Chantry of Secrets Func EnterFissureZinKuCorridor() ;~ Checks to see if I can pay the toll, if not it withdraws 20k If Not GoldCheck() Then Return ;~Running to the Shrine Out("Running to Shrine") TravelToPortalZinKu() Sleep(GetPing()+500) ;~ popping the Ghost and Entering Fissure Local $Avatar $Avatar = GetNearestNPCToCoords(-1199, -16655) ; try to get the avatar, might be there already. If DllStructGetData($Avatar, "PlayerNumber") <> $MODELID_CHAMPION_OF_BALTHAZAR Then ; nope avatar is not there, spawn him. Out("Spawning Balthazar") SendChat("kneel", "/") Local $lDeadlock = TimerInit() Do Sleep(1500) ; wait until Balthazar is up. $Avatar = GetNearestNPCToCoords(-1199, -16655) If TimerDiff($lDeadlock) > 5000 Then MoveTo(-1188, -16527) SendChat("kneel", "/") $lDeadlock = TimerInit() EndIf Until DllStructGetData($Avatar, "PlayerNumber") == $MODELID_CHAMPION_OF_BALTHAZAR ; TODO: make a deadlock check EndIf Out("Paying the Toll") GoNpc($Avatar) Sleep(GetPing()+500) Dialog(0x85) ; "yes, to the service of balthazar" Sleep(GetPing()+500) DIALOG(0x86) ; "accept" Out("Waiting for Fissure to load") WaitMapLoading($MAP_ID_FISSURE_OF_WOE, 1000) If GetMapID() == $MAP_ID_CHANTRY_OF_SECRETS Then Return ; dialogs to enter Fissure failed. restart. WaitMapLoading($MAP_ID_CHANTRY_OF_SECRETS, 2000) EndFunc ;==>Enter Fissure from Chantry of Secrets Func Waypoint1() MoveTo(-4147, 18067) MoveTo(-3660, 17761) MoveTo(-2912, 18381) MoveTo(-2537, 18786) ; Kneel spot EndFunc Func Waypoint2() MoveTo(-3660, 17761) MoveTo(-2912, 18381) MoveTo(-2537, 18786) ; Kneel spot EndFunc Func Waypoint3() MoveTo(-3581, 17573) MoveTo(-2912, 18381) MoveTo(-2537, 18786) ; Kneel spot EndFunc Func Waypoint1Chantry() MoveTo(-9985, 1096) ; Kneel spot EndFunc Func Waypoint2Chantry() MoveTo(-9985, 1096) ; Kneel spot EndFunc Func Waypoint3Chantry() MoveTo(-9985, 1096) ; Kneel spot EndFunc Func Waypoint1ZinKu() MoveTo(7451, -17545) MoveTo(6907, -17479) MoveTo(4870, -17425) MoveTo(2336, -17533) MoveTo(-1848, -17493) MoveTo(-2639, -15983) MoveTo(-1225, -16116) MoveTo(-1188, -16527) ; Kneel spot EndFunc Func Waypoint2ZinKu() MoveTo(7451, -17545) MoveTo(6907, -17479) MoveTo(4870, -17425) MoveTo(2336, -17533) MoveTo(-1848, -17493) MoveTo(-2639, -15983) MoveTo(-1225, -16116) MoveTo(-1188, -16527) ; Kneel spot EndFunc Func Waypoint3ZinKu() MoveTo(6907, -17479) MoveTo(4870, -17425) MoveTo(2336, -17533) MoveTo(-1848, -17493) MoveTo(-2639, -15983) MoveTo(-1225, -16116) MoveTo(-1188, -16527) ; Kneel spot EndFunc Func TravelToPortalToA() Local $Skip = False If CHECKAREA(-4922, 18965) Then OUT("Start Point 1") If Waypoint1() Then Return True Else Return False EndIf ElseIf CHECKAREA(-5059, 17370) Then OUT("Start Point 2") If Waypoint2() Then Return True Else Return False EndIf ElseIf CHECKAREA(-3581, 17573) Then OUT("Start Point 3") If Waypoint3() Then Return True Else Return False EndIf Else OUT("Where the fuck am I?") Return False EndIf EndFunc ;==>TravelToPortal Temple of the Ages Func TravelToPortalChantry() Local $Skip = False If CHECKAREA(-10042, 126) Then OUT("Start Point 1") If Waypoint1Chantry() Then Return True Else Return False EndIf ElseIf CHECKAREA(-12203, 382) Then OUT("Start Point 2") If Waypoint2Chantry() Then Return True Else Return False EndIf ElseIf CHECKAREA(-11549, 2158) Then ; -11589, 2224 OUT("Start Point 3") If Waypoint3Chantry() Then Return True Else Return False EndIf Else OUT("Where the fuck am I?") Return False EndIf EndFunc ;==>TravelToPortal Chantry of Secrets Func TravelToPortalZinKu() Local $Skip = False If CHECKAREA(9047, -17228) Then OUT("Start Point 1") If Waypoint1ZinKu() Then Return True Else Return False EndIf ElseIf CHECKAREA(8473, -18234) Then OUT("Start Point 2") If Waypoint2ZinKu() Then Return True Else Return False EndIf ElseIf CHECKAREA(7451, -17545) Then OUT("Start Point 3") If Waypoint3ZinKu() Then Return True Else Return False EndIf Else OUT("Where the fuck am I?") Return False EndIf EndFunc ;==>TravelToPortal Zin Ku Corridor Func CheckArea($AX, $AY) Local $RET = False Local $PX = DllStructGetData(GetAgentByID(-2), "X") Local $PY = DllStructGetData(GetAgentByID(-2), "Y") If ($PX < $AX + 500) And ($PX > $AX - 500) And ($PY < $AY + 500) And ($PY > $AY - 500) Then $RET = True EndIf Return $RET EndFunc ;==>CHECKAREA #EndRegion Running in Towns #EndRegion Bot Functions #Region PickUp Func PickUpLoot() Local $lAgent Local $lItem Local $lDeadlock For $i = 1 To GetMaxAgents() If GetIsDead(-2) Then Return $lAgent = GetAgentByID($i) If DllStructGetData($lAgent, 'Type') <> 0x400 Then ContinueLoop $lItem = GetItemByAgentID($i) If CanPickup($lItem) Then PickUpItem($lItem) $lDeadlock = TimerInit() While GetAgentExists($i) Sleep(100) If GetIsDead(-2) Then Return If TimerDiff($lDeadlock) > 10000 Then ExitLoop WEnd EndIf Next EndFunc ;==>PickUpLoot Func CanPickUp($aItem) Local $lModelID = DllStructGetData(($aItem), 'ModelID') Local $aExtraID = DllStructGetData($aItem, "ExtraID") Local $lRarity = GetRarity($aItem) Local $Requirement = GetItemReq($aItem) If (($lModelID == 2511) And (GetGoldCharacter() < 99000)) Then Return True ; gold coins (only pick if character has less than 99k in inventory) ElseIf ($lModelID == $ITEM_ID_DYES) Then ; if dye If (($aExtraID == $ITEM_EXTRAID_BLACKDYE) Or ($aExtraID == $ITEM_EXTRAID_WHITEDYE))Then ; only pick white and black ones Return True EndIf ElseIf ($lRarity == $RARITY_GOLD) Then ; gold items Return True ElseIf($lModelID == $ITEM_ID_LOCKPICKS)Then Return True ; Lockpicks Elseif($lModelID == 5971)Then Return True ; Obsidian Keys ElseIf($lModelID == $ITEM_ID_DARK_REMAINS)Then Return True ; Dark Remains ElseIf CheckArrayPscon($lModelID)Then ; ==== Pcons ==== or all event items Return True ElseIf CheckArrayMaterials($lModelID)Then ; ==== Materials ==== Return True Else Return False EndIf EndFunc ;==>CanPickUp Func CheckArrayPscon($lModelID) For $p = 0 To (UBound($Array_pscon) -1) If ($lModelID == $Array_pscon[$p]) Then Return True Next EndFunc Func CheckArrayMaterials($lModelID) For $p = 0 To (UBound($Material_Array) -1) If ($lModelID == $Material_Array[$p]) Then Return True Next EndFunc #EndRegion Pickup #Region Inventory Func Inventory() ;~ Opening the Chest Out("Going to Xunlai Chest.") Chest() If GetGoldCharacter() > 90000 Then Out("Depositing Gold") DepositGold() EndIf ;~ Storing things I want to keep Out("Storing Stuff") StoreItems() StoreMaterials() StoreUNIDGolds() ;~ Opening the Merchant Out("Going to Merchant.") Merchant() Out("Identifying") ;~ Identifies each bag Local $i For $i = 1 To $Bags Out("Identifying bag " & $i & ".") If (FindIDKit() == 0) Then If GetGoldCharacter() < 500 And GetGoldStorage() > 499 Then WithdrawGold(500) Sleep(GetPing()+500) EndIf Local $J = 0 Do BuyItem(6, 1, 500) Sleep(GetPing()+500) $J = $J + 1 Until FINDIDKIT() <> 0 Or $J = 3 If $J = 3 Then ExitLoop Sleep(GetPing()+500) EndIf IdentifyBag($i, False, True) Sleep(GetPing()+100) Next Out("Selling") ;~ Sells each bag Sell(1) Sell(2) Sell(3) Sell(4) EndFunc Func Sell($BAGINDEX) Local $AITEM Local $BAG = GetBag($BAGINDEX) Local $NUMOFSLOTS = DllStructGetData($BAG, "slots") For $I = 1 To $NUMOFSLOTS Out("Selling item: " & $BAGINDEX & ", " & $I) $AITEM = GetItemBySlot($BAGINDEX, $I) If DllStructGetData($AITEM, "ID") = 0 Then ContinueLoop If CanSell($AITEM) Then SellItem($AITEM) EndIf Sleep(GetPing()+250) Next EndFunc Func CanSell($aItem) Local $LMODELID = DllStructGetData($aitem, "ModelID") Local $LRARITY = GetRarity($aitem) Local $Requirement = GetItemReq($aItem) If $LRARITY == $RARITY_GOLD Then Return True EndIf If $LRARITY == $RARITY_PURPLE Then Return True EndIf ;~ Leaving Blues and Whites as false for now. Going to make it salvage them at some point in the future. It does not currently pick up whites or blues If $LRARITY == $RARITY_BLUE Then Return False EndIf If $LRARITY == $RARITY_WHITE Then Return False EndIf If $LMODELID == $ITEM_ID_DYES Then Switch DllStructGetData($aitem, "ExtraID") Case $ITEM_EXTRAID_BLACKDYE, $ITEM_EXTRAID_WHITEDYE Return False Case Else Return True EndSwitch EndIf If $lModelID > 21785 And $lModelID < 21806 Then Return False ; Elite/Normal Tomes If $lModelID > 920 And $lModelID < 957 Then Return False ; Materials If $lModelID > 6531 And $lModelID < 6534 Then Return False ; Amber and Jade ; ==== Inscriptions ==== If $lModelID == $ITEM_ID_INSCRIPTIONS_MARTIAL Then Return False ; Martial Weapons If $lModelID == $ITEM_ID_INSCRIPTIONS_FOCUS_SHIELD Then Return False ; Focus Items or Shields If $lModelID == $ITEM_ID_INSCRIPTIONS_ALL Then Return False ; All Weapons If $lModelID == $ITEM_ID_INSCRIPTIONS_GENERAL Then Return False ; General If $lModelID == $ITEM_ID_INSCRIPTIONS_SPELLCASTING Then Return False ; Spellcasting Weapons If $lModelID == $ITEM_ID_INSCRIPTIONS_FOCUS_ITEMS Then Return False ; Focus Items ; ==== Weapon Mods ==== If $lModelID == $ITEM_ID_STAFF_HEAD Then Return False ; All Staff heads If $lModelID == $ITEM_ID_STAFF_WRAPPING Then Return False ; All Staff wrappings If $lModelID == $ITEM_ID_SHIELD_HANDLE Then Return False ; All Shield Handles If $lModelID == $ITEM_ID_FOCUS_CORE Then Return False ; All Focus Cores If $lModelID == $ITEM_ID_WAND Then Return False ; All Wands If $lModelID == $ITEM_ID_BOW_STRING Then Return False ; All Bow strings If $lModelID == $ITEM_ID_BOW_GRIP Then Return False ; All Bow grips If $lModelID == $ITEM_ID_SWORD_HILT Then Return False ; All Sword hilts If $lModelID == $ITEM_ID_SWORD_POMMEL Then Return False ; All Sword pommels If $lModelID == $ITEM_ID_AXE_HAFT Then Return False ; All Axe hafts If $lModelID == $ITEM_ID_AXE_GRIP Then Return False ; All Axe grips If $lModelID == $ITEM_ID_DAGGER_TANG Then Return False ; All Dagger tangs If $lModelID == $ITEM_ID_DAGGER_HANDLE Then Return False ; All Dagger handles If $lModelID == $ITEM_ID_HAMMER_HAFT Then Return False ; All Hammer hafts If $lModelID == $ITEM_ID_HAMMER_GRIP Then Return False ; All Hammer grips If $lModelID == $ITEM_ID_SCYTHE_SNATHE Then Return False ; All Scythe snathes If $lModelID == $ITEM_ID_SCYTHE_GRIP Then Return False ; All Scythe grips If $lModelID == $ITEM_ID_SPEARHEAD Then Return False ; All Spearheads If $lModelID == $ITEM_ID_SPEAR_GRIP Then Return False ; All Spear grips ; ==== General ==== If $lModelID == $ITEM_ID_ID_KIT Then Return False If $lModelID == $ITEM_ID_SUP_ID_KIT Then Return False If $lModelID == $ITEM_ID_SALVAGE_KIT Then Return False If $lModelID == $ITEM_ID_EXP_SALVAGE_KIT Then Return False If $lModelID == $ITEM_ID_SUP_SALVAGE_KIT Then Return False If $lModelID == $ITEM_ID_LOCKPICKS Then Return False If $lModelID == $ITEM_ID_DARK_REMAINS Then Return False ; ==== Alcohol ==== If $lModelID == $ITEM_ID_HUNTERS_ALE Then Return False If $lModelID == $ITEM_ID_DWARVEN_ALE Then Return False If $lModelID == $ITEM_ID_SPIKED_EGGNOG Then Return False If $lModelID == $ITEM_ID_EGGNOG Then Return False If $lModelID == $ITEM_ID_SHAMROCK_ALE Then Return False If $lModelID == $ITEM_ID_AGED_DWARVEN_ALE Then Return False If $lModelID == $ITEM_ID_CIDER Then Return False If $lModelID == $ITEM_ID_GROG Then Return False If $lModelID == $ITEM_ID_AGED_HUNTERS_ALE Then Return False If $lModelID == $ITEM_ID_KRYTAN_BRANDY Then Return False If $lModelID == $ITEM_ID_BATTLE_ISLE_ICED_TEA Then Return False ; ==== Party ==== If $lModelID == $ITEM_ID_SNOWMAN_SUMMONER Then Return False If $lModelID == $ITEM_ID_ROCKETS Then Return False If $lModelID == $ITEM_ID_POPPERS Then Return False If $lModelID == $ITEM_ID_SPARKLER Then Return False If $lModelID == $ITEM_ID_PARTY_BEACON Then Return False ; ==== Sweets ==== If $lModelID == $ITEM_ID_FRUITCAKE Then Return False If $lModelID == $ITEM_ID_BLUE_DRINK Then Return False If $lModelID == $ITEM_ID_CUPCAKES Then Return False If $lModelID == $ITEM_ID_BUNNIES Then Return False If $lModelID == $ITEM_ID_GOLDEN_EGGS Then Return False If $lModelID == $ITEM_ID_PIE Then Return False ; ==== Tonics ==== If $lModelID == $ITEM_ID_TRANSMOGRIFIER Then Return False If $lModelID == $ITEM_ID_YULETIDE Then Return False If $lModelID == $ITEM_ID_FROSTY Then Return False If $lModelID == $ITEM_ID_MISCHIEVIOUS Then Return False ; ==== DP Removal ==== If $lModelID == $ITEM_ID_PEPPERMINT_CC Then Return False If $lModelID == $ITEM_ID_WINTERGREEN_CC Then Return False If $lModelID == $ITEM_ID_RAINBOW_CC Then Return False If $lModelID == $ITEM_ID_CLOVER Then Return False If $lModelID == $ITEM_ID_HONEYCOMB Then Return False If $lModelID == $ITEM_ID_PUMPKIN_COOKIE Then Return False ; ==== Special Drops ==== If $lModelID == $ITEM_ID_CC_SHARDS Then Return False If $lModelID == $ITEM_ID_VICTORY_TOKEN Then Return False If $lModelID == $ITEM_ID_WINTERSDAY_GIFT Then Return False If $lModelID == $ITEM_ID_TOTS Then Return False If $lModelID == $ITEM_ID_LUNAR_TOKEN Then Return False If $lModelID == $ITEM_ID_LUNAR_TOKENS Then Return False If $lModelID == $ITEM_ID_WAYFARER_MARK Then Return False ; ==== Stackable Drops ==== If $lModelID == $ITEM_ID_DARK_REMAINS Then Return False Return True EndFunc ;==>CANSELL Func Chest() Dim $Waypoints_by_XunlaiChest[3][3] = [ _ [$MAP_ID_TEMPLE_OF_AGES, -6764, 18679], _ [$MAP_ID_CHANTRY_OF_SECRETS, -11835, 2757], _ [$MAP_ID_ZIN_KU_CORRIDOR, 8027, -18227]] For $i = 0 To (UBound($Waypoints_by_XunlaiChest) - 1) If ($Waypoints_by_XunlaiChest[$i][0] == True) Then Do GenericRandomPath($Waypoints_by_XunlaiChest[$i][1], $Waypoints_by_XunlaiChest[$i][2], Random(60, 80, 2)) Until CheckArea($Waypoints_by_XunlaiChest[$i][1], $Waypoints_by_XunlaiChest[$i][2]) Local $aChestName = "Xunlai Chest" Local $lChest = GetAgentByName($aChestName) If IsDllStruct($lChest)Then OUT("Going to " & $aChestName) GoToNPC($lChest) RndSleep(Random(3000, 4200)) EndIf EndIf Next EndFunc ;~ Xunlai Chest Func Merchant() Dim $Waypoints_by_Merchant[3][3] = [ _ [$MAP_ID_TEMPLE_OF_AGES, -5048, 19468], _ [$MAP_ID_CHANTRY_OF_SECRETS, -11081, 2143], _ [$MAP_ID_ZIN_KU_CORRIDOR, 11040, -18944]] For $i = 0 To (UBound($Waypoints_by_Merchant) - 1) If ($Waypoints_by_Merchant[$i][0] == True) Then Do GenericRandomPath($Waypoints_by_Merchant[$i][1], $Waypoints_by_Merchant[$i][2], Random(60, 80, 2)) Until CheckArea($Waypoints_by_Merchant[$i][1], $Waypoints_by_Merchant[$i][2]) Local $aMerchName = "Merchant" Local $lMerch = GetAgentByName($aMerchName) If IsDllStruct($lMerch)Then OUT("Going to " & $aMerchName) GoToNPC($lMerch) RndSleep(Random(3000, 4200)) EndIf EndIf Next EndFunc ;~ Merchant #Region Storing Stuff ; Big function that calls the smaller functions below Func StoreItems() StackableDrops(1, 20) StackableDrops(2, 5) StackableDrops(3, 10) StackableDrops(4, 10) Alcohol(1, 20) Alcohol(2, 5) Alcohol(3, 10) Alcohol(4, 10) Party(1, 20) Party(2, 5) Party(3, 10) Party(4, 10) Sweets(1, 20) Sweets(2, 5) Sweets(3, 10) Sweets(4, 10) Scrolls(1, 20) Scrolls(2, 5) Scrolls(3, 10) Scrolls(4, 10) DPRemoval(1, 20) DPRemoval(2, 5) DPRemoval(3, 10) DPRemoval(4, 10) SpecialDrops(1, 20) SpecialDrops(2, 5) SpecialDrops(3, 10) SpecialDrops(4, 10) EndFunc ;~ Includes event items broken down by type Func StoreMaterials() Materials(1, 20) Materials(2, 5) Materials(3, 10) Materials(4, 10) EndFunc ;~ Common and Rare Materials Func StoreUNIDGolds() UNIDGolds(1, 20) UNIDGolds(2, 5) UNIDGolds(3, 10) UNIDGolds(4, 10) EndFunc ;~ UNID Golds Func StackableDrops($BAGINDEX, $NUMOFSLOTS) Local $AITEM Local $M Local $Q Local $bag 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 = 522) And $Q = 250 Then Do For $BAG = 8 To 12 $SLOT = FindEmptySlot($BAG) $SLOT = @extended 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(GetPing()+500) EndIf EndIf Next EndFunc ;~ like Suarian Bones, lockpicks, Glacial Stones, etc Func Alcohol($BAGINDEX, $NUMOFSLOTS) Local $AITEM Local $M Local $Q Local $bag 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 = 910 Or $M = 2513 Or $M = 5585 Or $M = 6049 Or $M = 6367 Or $M = 6375 Or $M = 15477 Or $M = 19171 Or $M = 22190 Or $M = 36682) And $Q = 250 Then Do For $BAG = 8 To 12 $SLOT = FindEmptySlot($BAG) $SLOT = @extended 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(GetPing()+500) EndIf EndIf Next EndFunc Func Party($BAGINDEX, $NUMOFSLOTS) Local $AITEM Local $M Local $Q Local $bag 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 = 6376 Or $M = 6368 Or $M = 6369 Or $M = 21809 Or $M = 21810 Or $M = 21813 Or $M = 29436 Or $M = 29543 Or $M = 36683 Or $M = 4730 Or $M = 15837 Or $M = 21490 Or $M = 22192 Or $M = 30626 Or $M = 30630 Or $M = 30638 Or $M = 30642 Or $M = 30646 Or $M = 30648 Or $M = 31020 Or $M = 31141 Or $M = 31142 Or $M = 31144 Or $M = 31172) And $Q = 250 Then Do For $BAG = 8 To 12 $SLOT = FindEmptySlot($BAG) $SLOT = @extended 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(GetPing()+500) EndIf EndIf Next EndFunc Func Sweets($BAGINDEX, $NUMOFSLOTS) Local $AITEM Local $M Local $Q Local $bag 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 = 15528 Or $M = 15479 Or $M = 19170 Or $M = 21492 Or $M = 21812 Or $M = 22269 Or $M = 22644 Or $M = 22752 Or $M = 28436 Or $M = 31150 Or $M = 35125 Or $M = 36681) And $Q = 250 Then Do For $BAG = 8 To 12 $SLOT = FindEmptySlot($BAG) $SLOT = @extended 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(GetPing()+500) EndIf EndIf Next EndFunc Func Scrolls($BAGINDEX, $NUMOFSLOTS) Local $AITEM Local $M Local $Q Local $bag 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 = 22280) And $Q = 250 Then Do For $BAG = 8 To 12 $SLOT = FindEmptySlot($BAG) $SLOT = @extended 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(GetPing()+500) EndIf EndIf Next EndFunc Func DPRemoval($BAGINDEX, $NUMOFSLOTS) Local $AITEM Local $M Local $Q Local $bag 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 = 6370 Or $M = 21488 Or $M = 21489 Or $M = 22191 Or $M = 35127 Or $M = 26784 Or $M = 28433) And $Q = 250 Then Do For $BAG = 8 To 12 $SLOT = FindEmptySlot($BAG) $SLOT = @extended 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(GetPing()+500) EndIf EndIf Next EndFunc Func SpecialDrops($BAGINDEX, $NUMOFSLOTS) Local $AITEM Local $M Local $Q Local $bag 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 = 18345 Or $M = 28434) And $Q = 250 Then Do For $BAG = 8 To 12 $SLOT = FindEmptySlot($BAG) $SLOT = @extended 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(GetPing()+500) EndIf EndIf Next EndFunc Func Materials($BAGINDEX, $NUMOFSLOTS) Local $AITEM Local $M Local $Q Local $bag 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 = $ITEM_ID_OBSIDIAN_SHARD Or $M = $ITEM_ID_RUBY Or $M = $ITEM_ID_SAPPHIRE) And $Q = 250 Then Do For $BAG = 8 To 12 $SLOT = FindEmptySlot($BAG) $SLOT = @extended 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(GetPing()+500) EndIf EndIf Next EndFunc ; Keeps all Golds Func UNIDGolds($BAGINDEX, $NUMOFSLOTS) Local $AITEM Local $M Local $R Local $bag Local $SLOT Local $FULL Local $NSLOT For $I = 1 To $NUMOFSLOTS $AITEM = GetItemBySlot($BAGINDEX, $I) If DllStructGetData($AITEM, "ID") = 0 Then ContinueLoop $R = GetRarity($AITEM) $M = DllStructGetData($AITEM, "ModelID") If $M = 22280 Then Return False ElseIf $R = 2624 Then Do For $BAG = 8 To 12 $SLOT = FindEmptySlot($BAG) $SLOT = @extended 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(GetPing()+500) EndIf EndIf Next EndFunc ;~ UNID golds #CS Func UnStore() For $i = 8 to 16 StoreChest($i) Next EndFunc Func StoreChest($aBag) Out("UnStoring chest " & $aBag & ".") If Not IsDllStruct($aBag) Then $aBag = GetBag($aBag) Local $lItem = GetItemBySlot($aBag, $i) Local $lSlot Local $Stockable = False Local $q = DllStructGetDada($lItem, 'Quantity') Local $m = DllStructGetData($lItem, 'ModelID') Local $r = GetRarity($lItem) Local $i If IsInvFull() Then $BotRunning = False EndIf For $i = 1 To DllStructGetData($aBag, 'Slots') If $BotRunning = False Then ExitLoop EndIf If DllStructGetData($lItem, 'id') == 0 Then ContinueLoop If _ArraySearch($ArrayModelIDInv, $m) <> -1 Then $stockable = True If $stockable == True and $q == 250 Then $lSlot = OpenInventorySlot() If IsArray($lSlot) Then MoveItem($lItem, $lSlot[0], $lSlot[1]) Sleep(GetPing() + Random(500, 750, 1)) $BotRunning = false EndIf EndIf Next EndFunc #CE 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 OpenStorageSlot() Local $lBag Local $lReturnArray[2] For $i = 8 To 16 $lBag = GetBag($i) For $j = 1 To DllStructGetData($lBag, 'Slots') If DllStructGetData(GetItemBySlot($lBag, $j), 'ID') == 0 Then $lReturnArray[0] = $i $lReturnArray[1] = $j Return $lReturnArray EndIf Next Next EndFunc ;==>OpenStorageSlot Func OpenInventorySlot() Local $lBag Local $lReturnArray[2] Local $j For $i = 1 To 4 $lBag = GetBag($i) For $j = 1 To DllStructGetData($lBag, 'Slots') If DllStructGetData(GetItemBySlot($lBag, $j), 'ID') == 0 Then $lReturnArray[0] = $i $lReturnArray[1] = $j Return $lReturnArray EndIf Next Next EndFunc Func FindStorageStack($aModelID, $aExtraID) Local $lBag Local $lReturnArray[2] Local $lItem For $i = 6 To 16 If $i == 7 Then ContinueLoop $lBag = GetBag($i) For $j = 1 To DllStructGetData($lBag, 'Slots') $lItem = GetItemBySlot($lBag, $j) If DllStructGetData($lItem, 'ModelID') == $aModelID And DllStructGetData($lItem, 'ExtraID') == $aExtraID And DllStructGetData($lItem, 'Quantity') < 250 Then $lReturnArray[0] = $i $lReturnArray[1] = $j Return $lReturnArray EndIf Next Next EndFunc Func FindInventoryStack($aModelID, $aExtraID) Local $lBag Local $lReturnArray[2] Local $lItem For $i = 1 To 4 $lBag = GetBag($i) For $j = 1 To DllStructGetData($lBag, 'Slots') $lItem = GetItemBySlot($lBag, $j) If DllStructGetData($lItem, 'ModelID') == $aModelID And DllStructGetData($lItem, 'ExtraID') == $aExtraID And DllStructGetData($lItem, 'Quantity') < 250 Then $lReturnArray[0] = $i $lReturnArray[1] = $j Return $lReturnArray EndIf Next Next EndFunc Func IsInvFull() If CountInvSlots() = 0 Then Out("Inventory Full") Return True EndIf Return False EndFunc ; Counts open slot in your Imventory Func CountSlots() Local $bag Local $temp = 0 $bag = GetBag(1) $temp += DllStructGetData($bag, 'Slots') - DllStructGetData($bag, 'ItemsCount') $bag = GetBag(2) $temp += DllStructGetData($bag, 'Slots') - DllStructGetData($bag, 'ItemsCount') $bag = GetBag(3) $temp += DllStructGetData($bag, 'Slots') - DllStructGetData($bag, 'ItemsCount') $bag = GetBag(4) $temp += DllStructGetData($bag, 'Slots') - DllStructGetData($bag, 'ItemsCount') Return $temp EndFunc ;==>CountSlots ; Counts open slots in the storage chest Func CountSlotsChest() Local $bag Local $temp = 0 $bag = GetBag(8) $temp += DllStructGetData($bag, 'Slots') - DllStructGetData($bag, 'ItemsCount') $bag = GetBag(9) $temp += DllStructGetData($bag, 'Slots') - DllStructGetData($bag, 'ItemsCount') $bag = GetBag(10) $temp += DllStructGetData($bag, 'Slots') - DllStructGetData($bag, 'ItemsCount') $bag = GetBag(11) $temp += DllStructGetData($bag, 'Slots') - DllStructGetData($bag, 'ItemsCount') $bag = GetBag(12) $temp += DllStructGetData($bag, 'Slots') - DllStructGetData($bag, 'ItemsCount') $bag = GetBag(13) $temp += DllStructGetData($bag, 'Slots') - DllStructGetData($bag, 'ItemsCount') $bag = GetBag(14) $temp += DllStructGetData($bag, 'Slots') - DllStructGetData($bag, 'ItemsCount') $bag = GetBag(15) $temp += DllStructGetData($bag, 'Slots') - DllStructGetData($bag, 'ItemsCount') $bag = GetBag(16) $temp += DllStructGetData($bag, 'Slots') - DllStructGetData($bag, 'ItemsCount') Return $temp EndFunc ;==>CountSlots #EndRegion Storing Stuff #EndRegion Inventory #Region Pcons Func UseAlcohol() If (GetMapLoading() == 1) And (GetIsDead(-2) == False) Then If $pconsSpiked_Eggnog_slot[0] > 0 And $pconsSpiked_Eggnog_slot[1] > 0 Then If DllStructGetData(GetItemBySlot($pconsSpiked_Eggnog _slot[0], $pconsSpiked_Eggnog_slot[1]), "ModelID") == $ITEM_ID_SPIKED_EGGNOG Then UseItemBySlot($pconsSpiked_Eggnog_slot[0], $pconsSpiked_Eggnog_slot[1]) EndIf ElseIf $pconsAged_Dwarven_Ale_slot[0] > 0 And $pconsAged_Dwarven_Ale_slot[1] > 0 Then If DllStructGetData(GetItemBySlot($pconsAged_Dwarven_ Ale_slot[0], $pconsAged_Dwarven_Ale_slot[1]), "ModelID") == $ITEM_ID_AGED_DWARVEN_ALE Then UseItemBySlot($pconsAged_Dwarven_Ale_slot[0], $pconsAged_Dwarven_Ale_slot[1]) EndIf ElseIf $pconsGrog_slot[0] > 0 And $pconsGrog_slot[1] > 0 Then If DllStructGetData(GetItemBySlot($pconsGrog_slot[0], $pconsGrog_slot[1]), "ModelID") == $ITEM_ID_GROG Then UseItemBySlot($pconsGrog_slot[0], $pconsGrog_slot[1]) EndIf ElseIf $pconsHard_Apple_Cider_slot[0] > 0 And $pconsHard_Apple_Cider_slot[1] > 0 Then If DllStructGetData(GetItemBySlot($pconsHard_Apple_Ci der_slot[0], $pconsHard_Apple_Cider_slot[1]), "ModelID") == $ITEM_ID_CIDER Then UseItemBySlot($pconsHard_Apple_Cider_slot[0], $pconsHard_Apple_Cider_slot[1]) EndIf ElseIf $pconsAged_Hunters_Ale_slot[0] > 0 And $pconsAged_Hunters_Ale_slot[1] > 0 Then If DllStructGetData(GetItemBySlot($pconsAged_Hunters_ Ale_slot[0], $pconsAged_Hunters_Ale_slot[1]), "ModelID") == $ITEM_ID_AGED_HUNTERS_ALE Then UseItemBySlot($pconsAged_Hunters_Ale_slot[0], $pconsAged_Hunters_Ale_slot[1]) EndIf ElseIf $pconsKrytan_Brandy_slot[0] > 0 And $pconsKrytan_Brandy_slot[1] > 0 Then If DllStructGetData(GetItemBySlot($pconsKrytan_Brandy _slot[0], $pconsKrytan_Brandy_slot[1]), "ModelID") == $ITEM_ID_KRYTAN_BRANDY Then UseItemBySlot($pconsKrytan_Brandy_slot[0], $pconsKrytan_Brandy_slot[1]) EndIf EndIf EndIf EndFunc Func UseWarSupply() If (GetMapLoading() == 1) And (GetIsDead(-2) == False) Then If $pconsWar_Supply_slot[0] > 0 And $pconsWar_Supply_slot[1] > 0 Then If DllStructGetData(GetItemBySlot($pconsWar_Supply_sl ot[0], $pconsWar_Supply_slot[1]), "ModelID") == $ITEM_ID_WAR_SUPPLY Then UseItemBySlot($pconsWar_Supply_slot[0], $pconsWar_Supply_slot[1]) EndIf EndIf EndIf EndFunc Func UseCandyApple() If (GetMapLoading() == 1) And (GetIsDead(-2) == False) Then If $pconsCandy_Apple_slot[0] > 0 And $pconsCandy_Apple_slot[1] > 0 Then If DllStructGetData(GetItemBySlot($pconsCandy_Apple_s lot[0], $pconsCandy_Apple_slot[1]), "ModelID") == $ITEM_ID_CANDY_APPLE Then UseItemBySlot($pconsCandy_Apple_slot[0], $pconsCandy_Apple_slot[1]) EndIf EndIf EndIf EndFunc Func UseCandyCorn() If (GetMapLoading() == 1) And (GetIsDead(-2) == False) Then If $pconsCandy_Corn_slot[0] > 0 And $pconsCandy_Corn_slot[1] > 0 Then If DllStructGetData(GetItemBySlot($pconsCandy_Corn_sl ot[0], $pconsCandy_Corn_slot[1]), "ModelID") == $ITEM_ID_CANDY_CORN Then UseItemBySlot($pconsCandy_Corn_slot[0], $pconsCandy_Corn_slot[1]) EndIf EndIf EndIf EndFunc ;~ This searches the bags for the specific pcon you wish to use. Func pconsScanInventory() Local $bag Local $size Local $slot Local $item Local $ModelID $pconsCandy_Apple_slot[0] = $pconsCandy_Apple_slot[1] = 0 $pconsCandy_Corn_slot[0] = $pconsCandy_Corn_slot[1] = 0 $pconsSpiked_Eggnog_slot[0] = $pconsSpiked_Eggnog_slot[1] = 0 $pconsAged_Dwarven_Ale_slot[0] = $pconsAged_Dwarven_Ale_slot[1] = 0 $pconsGrog_slot[0] = $pconsGrog_slot[1] = 0 $pconsAged_Hunters_Ale_slot[0] = $pconsAged_Hunters_Ale_slot[1] = 0 $pconsKrytan_Brandy_slot[0] = $pconsKrytan_Brandy_slot[1] = 0 $pconsHard_Apple_Cider_slot[0] = $pconsHard_Apple_Cider_slot[1] = 0 $pconsWar_Supply_slot[0] = $pconsWar_Supply_slot[1] = 0 For $bag = 1 To 4 Step 1 If $bag == 1 Then $size = 20 If $bag == 2 Then $size = 5 If $bag == 3 Then $size = 10 If $bag == 4 Then $size = 10 For $slot = 1 To $size Step 1 $item = GetItemBySlot($bag, $slot) $ModelID = DllStructGetData($item, "ModelID") Switch $ModelID Case 0 ContinueLoop Case $ITEM_ID_SPIKED_EGGNOG $pconsSpiked_Eggnog_slot[0] = $bag $pconsSpiked_Eggnog_slot[1] = $slot Case $ITEM_ID_AGED_DWARVEN_ALE $pconsAged_Dwarven_Ale_slot[0] = $bag $pconsAged_Dwarven_Ale_slot[1] = $slot Case $ITEM_ID_GROG $pconsGrog_slot[0] = $bag $pconsGrog_slot[1] = $slot Case $ITEM_ID_CIDER $pconsHard_Apple_Cider_slot[0] = $bag $pconsHard_Apple_Cider_slot[1] = $slot Case $ITEM_ID_AGED_HUNTERS_ALE $pconsAged_Hunters_Ale_slot[0] = $bag $pconsAged_Hunters_Ale_slot[1] = $slot Case $ITEM_ID_KRYTAN_BRANDY $pconsKrytan_Brandy_slot[0] = $bag $pconsKrytan_Brandy_slot[1] = $slot Case $ITEM_ID_WAR_SUPPLY $pconsWar_Supply_slot[0] = $bag $pconsWar_Supply_slot[1] = $slot Case $ITEM_ID_CANDY_APPLE $pconsCandy_Apple_slot[0] = $bag $pconsCandy_Apple_slot[1] = $slot Case $ITEM_ID_CANDY_CORN $pconsCandy_Corn_slot[0] = $bag $pconsCandy_Corn_slot[1] = $slot EndSwitch Next Next EndFunc ;==>pconsScanInventory ;~ Uses the Item from Use????() Func UseItemBySlot($aBag, $aSlot) Local $item = GetItemBySlot($aBag, $aSlot) SENDPACKET(8, 119, DllStructGetData($item, "ID")) EndFunc ;==>UseItemBySlot Func arrayContains($array, $item) For $i = 1 To $array[0] If $array[$i] == $item Then Return True EndIf Next Return False EndFunc ;==>arrayContains #EndRegion Pcons #Region Counting Func GetObsidianShardCount() Local $AAMOUNTObsidianShard Local $aBag Local $aItem Local $i For $i = 1 To 4 $aBag = GetBag($i) For $j = 1 To DllStructGetData($aBag, "Slots") $aItem = GetItemBySlot($aBag, $j) If DllStructGetData($aItem, "ModelID") == $ITEM_ID_OBSIDIAN_SHARD Then $AAMOUNTObsidianShard += DllStructGetData($aItem, "Quantity") Else ContinueLoop EndIf Next Next Return $AAMOUNTObsidianShard EndFunc ; Counts Obsidian Shards in your Inventory Func GetAlcoholCountInventory() Local $AAMOUNTAlcohol Local $aBag Local $aItem Local $i For $i = 1 To 4 $aBag = GetBag($i) For $j = 1 To DllStructGetData($aBag, "Slots") $aItem = GetItemBySlot($aBag, $j) If DllStructGetData($aItem, "ModelID") == ($ITEM_ID_SPIKED_EGGNOG Or $ITEM_ID_AGED_DWARVEN_ALE or $ITEM_ID_AGED_HUNTERS_ALE Or $ITEM_ID_KRYTAN_BRANDY Or $ITEM_ID_GROG) Then $AAMOUNTAlcohol += DllStructGetData($aItem, "Quantity") Else ContinueLoop EndIf Next Next Return $AAMOUNTAlcohol EndFunc ; Counts Amount of Alcohol Shards in your Inventory Func GetAlcoholCountChest() Local $AAMOUNTAlcoholChest Local $aBag Local $aItem Local $i For $i = 8 To 16 $aBag = GetBag($i) For $j = 1 To DllStructGetData($aBag, "Slots") $aItem = GetItemBySlot($aBag, $j) If DllStructGetData($aItem, "ModelID") == ($ITEM_ID_SPIKED_EGGNOG Or $ITEM_ID_AGED_DWARVEN_ALE or $ITEM_ID_AGED_HUNTERS_ALE Or $ITEM_ID_KRYTAN_BRANDY Or $ITEM_ID_GROG) Then $AAMOUNTAlcoholChest += DllStructGetData($aItem, "Quantity") Else ContinueLoop EndIf Next Next Return $AAMOUNTAlcoholChest EndFunc ; Counts Amount of Alcohol Shards in your Storage Func GetCandyCornCountInventory() Local $AAMOUNTCandyCorn Local $aBag Local $aItem Local $i For $i = 1 To 4 $aBag = GetBag($i) For $j = 1 To DllStructGetData($aBag, "Slots") $aItem = GetItemBySlot($aBag, $j) If DllStructGetData($aItem, "ModelID") == $ITEM_ID_CANDY_CORN Then $AAMOUNTCandyCorn += DllStructGetData($aItem, "Quantity") Else ContinueLoop EndIf Next Next Return $AAMOUNTCandyCorn EndFunc ; Counts Candy Corn in your Inventory Func GetCandyCornCountChest() Local $AAMOUNTCandyCornChest Local $aBag Local $aItem Local $i For $i = 8 To 16 $aBag = GetBag($i) For $j = 1 To DllStructGetData($aBag, "Slots") $aItem = GetItemBySlot($aBag, $j) If DllStructGetData($aItem, "ModelID") == $ITEM_ID_CANDY_CORN Then $AAMOUNTCandyCornChest += DllStructGetData($aItem, "Quantity") Else ContinueLoop EndIf Next Next Return $AAMOUNTCandyCornChest EndFunc ; Counts Candy Corn in your Storage Func GetCandyAppleCountInventory() Local $AAMOUNTCandyApples Local $aBag Local $aItem Local $i For $i = 1 To 4 $aBag = GetBag($i) For $j = 1 To DllStructGetData($aBag, "Slots") $aItem = GetItemBySlot($aBag, $j) If DllStructGetData($aItem, "ModelID") == $ITEM_ID_CANDY_APPLE Then $AAMOUNTCandyApples += DllStructGetData($aItem, "Quantity") Else ContinueLoop EndIf Next Next Return $AAMOUNTCandyApples EndFunc ; Counts Cand Apples in your Inventory Func GetCandyAppleCountChest() Local $AAMOUNTCandyApplesChest Local $aBag Local $aItem Local $i For $i = 8 To 16 $aBag = GetBag($i) For $j = 1 To DllStructGetData($aBag, "Slots") $aItem = GetItemBySlot($aBag, $j) If DllStructGetData($aItem, "ModelID") == $ITEM_ID_CANDY_APPLE Then $AAMOUNTCandyApplesChest += DllStructGetData($aItem, "Quantity") Else ContinueLoop EndIf Next Next Return $AAMOUNTCandyApplesChest EndFunc ; Counts Cand Apples in your Storage #EndRegion Counting