local Jacob = player:findNearestNameOrId(111121) if Jacob and 200 > distance(player, Jacob) then __WPL:setWaypointIndex(1); end counter = 0 --__WPL:setWaypointIndex(33); changeOptionFriendMob("mob", "Ice Dwarf Gladiator", "Add") changeOptionFriendMob("mob", "Ice Dwarf Soldier", "Add") changeOptionFriendMob("mob", "Ice Dwarf Priest", "Add") changeOptionFriendMob("mob", "Ice Dwarf Warrior", "Add") changeOptionFriendMob("mob", "Ice Dwarf Worker", "Add") RoMScript("SetAutoTakeLoot(true)") changeProfileOption("LOOT_ALL", true) changeProfileOption("LOOT", true) function OneQStat() local queststatus = getQuestStatus(421136); if queststatus == "complete" then __WPL:setForcedWaypointType("TRAVEL"); __WPL:setDirection(WPT_BACKWARD); end end function TwoQStat() local queststatus = getQuestStatus(421137); if queststatus == "complete" then __WPL:setForcedWaypointType("TRAVEL"); __WPL:setDirection(WPT_BACKWARD); end end function checkForloot(_count,_dist) _dist = _dist or 200 _count = _count or 5 local loottable = {} local count = 0 local objectList = CObjectList(); objectList:update(); local objSize = objectList:size() for i = 0,objSize do obj = objectList:getObject(i) obj:update() if obj.Type == 2 then local pawn = CPawn(obj.Address) if pawn.Lootable and _dist >= distance(player,pawn) then table.insert(loottable,pawn) count = count + 1 end end end --print("Count: "..count) -- for testing, works fine if count >= _count and inventory:itemTotalCount(0) ~= 0 then local loot = 3 if _count ~= 5 then loot = _count end for i = 1,loot do loottable[i]:updateLootable() if loottable[i].Lootable then player:moveTo(CWaypoint(loottable[i].X,loottable[i].Z),true,nil,50) --teleport(loottable[i].X,loottable[i].Z) player:target(loottable[i]) printf(" . "); --print("Looting "..loottable[i].Name..""); yrest(200) Attack() yrest(2000) end end local tmp = CWaypoint(__WPL.Waypoints[__WPL.CurrentWaypoint]) player:moveTo(CWaypoint(tmp.X,tmp.Z),true,nil,50) -- teleport(tmp.X,tmp.Z) return false else return true end end function lootCheck() repeat yrest(50); until checkForloot(1,200) end player:target_NPC(111121) -- Jacob AcceptQuestByName(421136) -- The Cause of the Dwarf Attacks player:mount() __WPL:setForcedWaypointType("NORMAL"); changeProfileOption("MAX_TARGET_DIST", 100) local queststatus = getQuestStatus(421136); if queststatus == "complete" then __WPL:setForcedWaypointType("TRAVEL"); __WPL:setDirection(WPT_FORWARD); __WPL:setWaypointIndex(__WPL:findWaypointTag("OneDone")); else __WPL:setDirection(WPT_FORWARD); end lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() OneQStat() lootCheck() __WPL:setDirection(WPT_BACKWARD); player:mount() player:target_NPC(111121) -- Jacob CompleteQuestByName(421136, 1) -- The Cause of the Dwarf Attacks -- Rewards: [1] Dwarves' Work Belt (223240), [2] Bloody Guide Belt (223241), player:target_NPC(111121) -- Jacob AcceptQuestByName(421137) -- Influencing Factors player:mount() __WPL:setForcedWaypointType("NORMAL"); changeProfileOption("MAX_TARGET_DIST", 150) local queststatus = getQuestStatus(421137); if queststatus == "complete" then __WPL:setForcedWaypointType("TRAVEL"); __WPL:setDirection(WPT_FORWARD); __WPL:setWaypointIndex(__WPL:findWaypointTag("TwoDone")); else __WPL:setDirection(WPT_FORWARD); end lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() TwoQStat() lootCheck() __WPL:setDirection(WPT_BACKWARD); player:mount() player:target_NPC(111121) -- Jacob CompleteQuestByName(421137, 1) -- Influencing Factors -- Rewards: [1] Dwarves' Snow Shirt (223242), [2] Dwarves' Leather Snow Shirt (223243), [3] Dwarves' Snow Breastplate (223244), player:target_NPC(111121) -- Jacob AcceptQuestByName(421138) -- Tools for the Dwarf Researcher player:mount() player:target_NPC(111122) -- Moa CompleteQuestByName(421138) -- Tools for the Dwarf Researcher player:target_NPC(111122) -- Moa AcceptQuestByName(421139) -- Delivering the Tools repeat player:target_Object(111404) -- Moa's Plant Box repeat yrest(100); until RoMScript("GetItemQueueInfo(1)") == nil local queststatus = getQuestStatus(421139); until queststatus == "complete" player:mount() player:target_NPC(111121) -- Jacob CompleteQuestByName(421139) -- Delivering the Tools player:target_NPC(111121) -- Jacob AcceptQuestByName(421140) -- Source of Pollution player:mount() --waterfall, heading back player:mount() player:target_NPC(111121) -- Jacob CompleteQuestByName(421140) -- Source of Pollution player:target_NPC(111121) -- Jacob AcceptQuestByName(421141) -- A Way to Stop the Fighting player:mount() --print("KILL TARGET MANUALLY!") repeat local Ayson = player:findNearestNameOrId("Ayson") if Ayson then player:target(Ayson.Address) player:fight() elseif player.Battling then player:fight() end yrest(50); local queststatus = getQuestStatus(421141); until queststatus == "complete" player:mount() player:target_NPC(111121) -- Jacob CompleteQuestByName(421141, 1) -- A Way to Stop the Fighting -- Rewards: [1] Sword of Tyranny (211587), [2] Tooth of Ayson (211588), [3] Staff of Harmony (211589), player:mount() player:target_NPC(111136) -- Marl AcceptQuestByName(421900) -- Ice Dwarves that are up to no good error("Attunement for IDK finished!")