questtype = "daily" -- "public" or "daily";
--swapClass = false; -- Do ClassSwapping for levelling Second Class? does not work.
minPlayerLevel = 96; -- minimum PlayerLevel to accept the Quest.
questGiverId = (123954) -- Nedhon Goodgold
questNameId = (427327) -- A Masterpiece
questName = GetIdName(questNameId);
time = os.time(); -- Startingtime of Waypoint
sendMacro('SetFindPartyState(false)')
sendMacro('SetLootMethod("freeforall","")');
sendMacro('SetInstanceLevel("hard")');
changeProfileOption("MAX_TARGET_DIST", 100)
changeProfileOption("LOOT_DISTANCE" ,130)
changeProfileOption("WAYPOINT_DEVIATION", 20)
changeProfileOption("COMBAT_DISTANCE", 150)
changeOptionFriendMob("friend", "Rabbit", "Add");
changeOptionFriendMob("friend", "Hare", "Add");
changeOptionFriendMob("friend", "Scarlet Wing", "Add");
changeOptionFriendMob("friend", "Cavy", "Add");
changeOptionFriendMob("friend", "Snake", "Add");
changeOptionFriendMob("friend", "Ferdhoof Rat", "Add");
changeOptionFriendMob("friend", "Cockroach", "Add");
changeOptionFriendMob("friend", "Beetle", "Add");
changeOptionFriendMob("friend", "Starving Wolf", "Add");
changeOptionFriendMob("friend", 105347, "Add"); --squirl
changeOptionFriendMob("friend",109035, "Add"); --rhino
print ( "starting quest =", questName, "questtype =", questtype)
function questsDone()
local dailyQuestCount, dailyQuestsPerDay= RoMScript("Daily_count()");
print( dailyQuestCount, dailyQuestsPerDay)
if (dailyQuestCount==dailyQuestsPerDay) then
return true;
else
return false;
end
end
function checkfelspar()
if inventory:itemTotalCount(243089) >= 8 then -- 243089 white felspar essence
__WPL:setForcedWaypointType("TRAVEL")
mountUp()
end
end
function mountUp()
if not player:hasBuff(506688) and inventory:itemTotalCount(207204) > 0 then
inventory:useItem(207204)
yrest(500);
end
player:mount()
end
if not player:hasBuff(506684) then -- Unbridled Enthusiasm
inventory:useItem(207200)
end
local dqCount, dqPerDay = RoMScript("Daily_count()");
if questsDone() == true then
error("dailys are done and no resets are left")
end
player:target_NPC(questGiverId)
AcceptQuestByName(questNameId,questtype)
__WPL:setForcedWaypointType("NORMAL")
checkfelspar()
checkfelspar()
checkfelspar()
checkfelspar()
checkfelspar()
checkfelspar()
checkfelspar()
checkfelspar()
checkfelspar()
checkfelspar()
checkfelspar()
checkfelspar()
player:target_NPC(questGiverId)
CompleteQuestByName(questName) -- A Masterpiece