---------------------------------
-----------Drefia Wyrms----------
----By Xiaospike & Joshwa534-----
------------Enjoy!!!-------------
---------------------------------

----------- BP SETUP ------------
-- [BP 1] - Main Backpack
-- [BP 2] - Stackable Product
-- [BP 3] - Non-Stackable Backpack
-- [BP 4] - Gold Backpack Cascaded

-----------------------------
---------DP SETUP------------
-----------------------------

local RAREDP = 0
local STACKDP = 1

---------- Backpacks ---------

local NonstackBP = "Orange Backpack"
local StackBP = "Beach Backpack"
local GoldBP = "Brocade Backpack"

---------- Settings ---------

local ManaID = 238 --- Which mana potions are you using?
local MinMana = 100 --- How many mana potions until you leave the hunt.
local MaxMana = 300 --- How many mana potions you begin the hunt with.
local ManaPrice = 120 --- What is the price of your selected mana potions?

local MinCap = 100 ---- if less then script will exit spawn

local DragonLords = true -- if you want to hunt on -2 (Dragon Lords) put true or else to hunt on -1 (Dragons Only) put false.
local Hardcore = false -- if you want to hunt on -3 (Dragon Lords x 4) put true or else put false.

----------------------------------------------------------

-- [266] Health Potion - 45gp
-- [236] Strong Health Potion - 100gp
-- [239] Great Health Potion - 190gp
-- [7643] Ultimate Health Potion - 310gp

-- [268] Mana Potion - 50 gp
-- [237] Strong Mana Potion - 80gp
-- [238] Great Mana Potion - 120gp

-- [7642] Great Spirit Potion - 190gp

setTargetingEnabled(true)
setLooterEnabled(true)

--------------------------------------------------------------------
--------------------------------------------------------------------
--------------------------------------------------------------------
------------------ DO NOT TOUCH THIS CODE --------------------------
-------------------- IF YOU DO NOT KNOW ----------------------------
-------------------- WHAT YOU ARE DOING ----------------------------
--------------------------------------------------------------------
--------------------------------------------------------------------Priestess
--------------------------------------------------------------------

registerEventListener(WALKER_SELECTLABEL, "onWalkerSelectLabel")

local info = [[
    Free Darashia Dragons & Dragon Lords by Xiaospike & Joshwa534]]
    wait(5000)

    print([[
    Free Darashia Dragons & Dragon Lords by Xiaospike & Joshwa534]])
    wait(5000)

dofile("Forgee.lua")
function onWalkerSelectLabel(labelName)

	if (labelName == "checker1") then
		setWalkerEnabled(false)
		if (Self.ItemCount(ManaID) <= MinMana) or (Self.Cap() < MinCap) or (Self.ItemCount(HealthID) <= MinHealth) then
			setWalkerEnabled(true)
			gotoLabel("LeaveCave")
		else
			setWalkerEnabled(true)
			gotoLabel("keepHunting1")
		end

	elseif (labelName == "checker2") then
		setWalkerEnabled(false)
		if (Self.ItemCount(ManaID) <= MinMana) or (Self.Cap() < MinCap) then
			setWalkerEnabled(true)
			gotoLabel("LeaveDLS")
		else
			setWalkerEnabled(true)
			gotoLabel("keepHunting2")
		end

	elseif (labelName == "DragonLords") then
		setWalkerEnabled(false)
		if (DragonLords) then
			gotoLabel("DL")
		else
			gotoLabel("NODL")
		end
		setWalkerEnabled(true)

	elseif (labelName == "Hardcore") then
		setWalkerEnabled(false)
		if (Hardcore) and (Self.ItemCount(ManaID) > MinMana) then
			gotoLabel("HardcoreMode")
		else
			gotoLabel("Softcore")
		end
		setWalkerEnabled(true)

	elseif (labelName == "keepHunting2") then
		print(info)

	elseif (labelName == "checkstuff") then
		local ESTMana = (MaxMana-20)
		setWalkerEnabled(false)
		if (Self.ItemCount(ManaID) < ESTMana) then
			setWalkerEnabled(true)
			gotoLabel("Resupply")
		else
			setWalkerEnabled(true)
			gotoLabel("ToHunt")
		end

	elseif (labelName == "bank") then
		local withdrawManas = (MaxMana-Self.ItemCount(ManaID))*ManaPrice
		setWalkerEnabled(false)
		Self.SayToNpc({"hi", "deposit all", "yes"}, 65)
		if (withdrawManas > 0) then
			Self.SayToNpc({"withdraw " .. withdrawManas, "yes"}, 65)
		end
		Self.SayToNpc({"balance"}, 65)
		setWalkerEnabled(true)
		wait(2000)

	elseif (labelName == "deposit") then
		setWalkerEnabled(false)
		Self.ReachDepot()
		Self.DepositItems({3386, 0}, {3392, 0}, {7402, 0}, {7399, 0}, {3428, 0}, {3280, 0}, {818, 0}, {3416, 0}, {8072, 0}, {3071, 0}, {7430, 0}, {3322, 0}, {7290, 0}, {3284, 0}, {3297, 0}, {5919, 0}, {5791, 0})
		Self.DepositItems({3028, 1}, {9661, 1}, {5877, 1}, {3373, 1},{5882, 1}, {3029, 1}, {5948, 1}, {236, 1}, {3061, 1}, {3450, 1}, {11457,1}, {5920, 1}, {3351, 1})
		wait(1500,1900)
		setWalkerEnabled(true)

	elseif (labelName == "HardcoreMode") then
		print(info)

	elseif (labelName == "potions") then
		setWalkerEnabled(false)
		if (Self.ItemCount(ManaID) < MaxMana then
			Self.SayToNpc({"hi", "flasks", "yes", "yes", "yes", "yes", "yes", "yes", "trade"}, 65)
			wait(2000)
			if (Self.ItemCount(ManaID) < MaxMana) then
				buyItems(ManaID, MaxMana)
				wait(200)
				buyItems(ManaID, MaxMana)
				wait(200)
				buyItems(ManaID, MaxMana)
				wait(200)
				buyItems(ManaID, MaxMana)
				wait(200)
				buyItems(ManaID, MaxMana)
				wait(200)
				buyItems(ManaID, MaxMana)
				wait(200)
				buyItems(ManaID, MaxMana)
				wait(200)
				buyItems(ManaID, MaxMana)
				wait(200)
				buyItems(ManaID, MaxMana)
				wait(200)
				buyItems(ManaID, MaxMana)
				wait(200)
			end
			wait(200, 500)
		end
		setWalkerEnabled(true)

	elseif (labelName == "keepHunting1") then
		print(info)

	elseif (labelName == "ResetBps") then
		setWalkerEnabled(false)
		Self.CloseContainers()
		repeat
			wait(900)
		until (Self.UseItemFromEquipment("backpack") > 0)
		wait(1000)
		Container.GetFirst():OpenChildren(Item.GetID(NonstackBP), Item.GetID(StackBP), Item.GetID(GoldBP))
		setWalkerEnabled(true)
	end
end
----------------------- Functions ----------------------
Self.ReachNpc = function(name, tries)
        local npc = Creature.GetByName(name)
        if (npc:DistanceFromSelf() > 3) then
                tries =  tries or 15
                repeat
                        local nposi = npc:Position()
                        Self.UseItemFromGround(nposi.x, nposi.y, nposi.z)
                        wait(1500)
                        tries = tries - 1
                until (npc:DistanceFromSelf() <= 3) or (tries == 0)
        end
end

function NpcConv(...)
    for _, str in ipairs(arg) do
        wait((tostring(str):len() / 125) * 60000 * math.random(1.1, 1.8))
        Self.SayToNpc(str)
    end
end


function sellItems(item) -- item = item ID
	wait(300, 1700)
	Self.ShopSellItem(item, Self.ShopGetItemSaleCount(item))
	wait(900, 1200)
end

function buyItems(item, count) -- item = item id, count = how many you want to buy up to
	wait(900, 1200)
	if (Self.ItemCount(item) < count) then
		Self.ShopBuyItem(item, (count-Self.ItemCount(item)))
		wait(200, 500)
	end
end