questtype = "daily" -- "public" or "daily";
swapClass = false; -- Do ClassSwapping for levelling Second Class?
minPlayerLevel = 96; -- minimum PlayerLevel to accept the Quest.
questGiverId = (123953) -- Marleta Bedkon
questNameId = (427300) -- Hunting Season
questName = GetIdName(questNameId);
houseMaidId = 110758 -- Housekeeper
UseDailyTickets = false; -- this needs home sweet home 7day or regular
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", 109186, "Add"); --snake
--- zone mobs to ignore
changeOptionFriendMob("friend", 106468, "Add"); --omn fanged fish
changeOptionFriendMob("friend", 109160, "Add"); --blood sucking swamp bat
changeOptionFriendMob("friend", 105374, "Add"); --skeltion general
print ( "starting quest =", questName, "questtype =", questtype)
function questtohouse()
yrest(500)
--inventory:useItem(202435) -- home sweet home standard -- comment out one you are not using.
inventory:useItem(208785) -- home sweet home 7 days -- comment out one you are not using.
yrest(5000)
waitForLoadingScreen(40);
end
function questsDone()
local dailyQuestCount, dailyQuestsPerDay= RoMScript("Daily_count()");
print( dailyQuestCount, dailyQuestsPerDay)
if (dailyQuestCount==dailyQuestsPerDay) then
return true;
else
return false;
end
end
function housetoquest()
repeat
yrest(500)
until player:target_NPC(houseMaidId) -- Housekeeper
ChoiceOptionByName(getTEXT("HOUSE_MAID_LEAVE_HOUSE")) -- 'Leave the house'
waitForLoadingScreen(40);
end
function swClass()
player:update();
RoMScript("ExchangeClass("..(player.Class2+1)..","..(player.Class1+1)..")");
yrest(1000);
end
function mountUp()
if not player:hasBuff(506688) and inventory:itemTotalCount(207204) > 0 then
inventory:useItem(207204)
yrest(500);
end
player:mount()
end
function quest()
queststate = getQuestStatus(questNameId)
if queststate == "complete" then
mountUp()
__WPL:setForcedWaypointType("TRAVEL")
end
end
if not player:hasBuff(506684) then -- Unbridled Enthusiasm
inventory:useItem(207200)
end
local empties = inventory:itemTotalCount(0);
if 1 > empties then
-- Wait for user to make some space in inventory.
cprintf(cli.yellow,"Not much space left in inventory. Are you sure you want to continue with only %d spaces left?\n",empties)
player:sleep();
end;
local dqCount, dqPerDay = RoMScript("Daily_count()");
if questsDone()== true then
inventory:update();
player:update();
if inventory:itemTotalCount(202434) > 0 and UseDailyTickets == true then
inventory:useItem(202434);
yrest(2000)
else
error("dailys are done and no resets are left")
end
end
repeat
yrest(500)
until player:target_NPC(questGiverId)
AcceptQuestByName(questNameId,questtype)
if not player:hasBuff(506684) then -- Unbridled Enthusiasm
inventory:useItem(207200)
end
__WPL:setForcedWaypointType("NORMAL")
quest()
quest()
quest()
quest()
quest()
quest()
quest()
quest()
quest()
quest()
quest()
if swapClass == true then
yrest(2500) -- wait for agro to drop
yrest(2500) -- wait for agro to drop
questtohouse()
repeat
yrest(500)
until player:target_NPC(houseMaidId) -- housemaid
yrest(150);
ChoiceOptionByName(getTEXT("HOUSE_MAID_HOUSE_CHANGEJOB")) -- 'Change class'
yrest(150);
swClass()
housetoquest()
end
repeat
yrest(500)
until player:target_NPC(questGiverId)
CompleteQuestByName(questName)
if swapClass == true then
questtohouse()
repeat
yrest(500)
until player:target_NPC(houseMaidId) -- housemaid
yrest(150);
ChoiceOptionByName(getTEXT("HOUSE_MAID_HOUSE_CHANGEJOB")) -- 'Change class'
yrest(150);
swClass()
yrest(300);
housetoquest()
end