-- MAIN WORK BY LORDNIKA -- -- EDIT BY MURMANOV -- -- ENJOY IT :) -- --[[ NPC ID's ]]-- mob1 = GetIdName(105799) -- NPC "Ankes-Bober" mob2 = GetIdName(105798) -- NPC "Ankes-Krieger" mob3 = GetIdName(105848) -- NPC "Ankes-Agent" mob4 = GetIdName(105843) -- NPC "Ankes-Heiler" john = GetIdName(119061) -- NPC "John Carter" --[[ Quest ID's ]]-- questname_1 = GetIdName(424623) -- Quest "Beseitigt weitere Gefahren f\129r das Fischerdorf"; questname_2 = GetIdName(424624) -- Quest "Immediate Relief"; --[[ Object ID's ]]-- box = GetIdName(119486) -- Object "Gefangener der Diebe" function EventTimer() repeat TBES = RoMScript('getevmessage()') until (TBES == "|cffffff80Regional event now restarting!|r") printf("Am inceput !"); end function Check_Quest() queststate = getQuestStatus(questname_1); if queststate == "complete" then __WPL:setWaypointIndex(__WPL:findWaypointTag("Finish")); changeOptionFriendMob("mob", mob1, "Remove"); changeOptionFriendMob("mob", mob2, "Remove"); changeOptionFriendMob("mob", mob3, "Remove"); changeOptionFriendMob("mob", mob4, "Remove"); end end player:target_NPC(john) AcceptQuestByName(questname_1) RoMScript("OnClick_QuestListButton(3, 1)") repeat player:target_NPC(john); AcceptQuestByName(questname_1) RoMScript("OnClick_QuestListButton(1, 1)"); cprintf(cli.white, questname_1.."\n"); until getQuestStatus(questname_1) ~= "accepted" changeOptionFriendMob("mob", mob1, "Add"); changeOptionFriendMob("mob", mob2, "Add"); changeOptionFriendMob("mob", mob3, "Add"); changeOptionFriendMob("mob", mob4, "Add"); Check_Quest() Check_Quest() Check_Quest() Check_Quest() Check_Quest() Check_Quest() Check_Quest() Check_Quest() Check_Quest() Check_Quest() Check_Quest() Check_Quest() Check_Quest() Check_Quest() player:target_NPC(john) CompleteQuestByName(questname_1) RoMScript("OnClick_QuestListButton(3, 1)") --yrest(200) repeat --quest2 = RoMScript("CheckQuest(424624)"); player:target_NPC(john); AcceptQuestByName(questname_2) RoMScript("OnClick_QuestListButton(1, 1)") cprintf(cli.white, questname_2.."\n") until getQuestStatus(questname_2) ~= "accepted" player:target_Object(box); player:harvest(); player:target_Object(box); player:harvest(); if getQuestStatus(questname_2) == "incomplete" then __WPL:setWaypointIndex(__WPL:findWaypointTag("Start2")) -- else cprintf(cli.green, questname_2.."\n") end repeat player:target_NPC(john); CompleteQuestByName(questname_2); RoMScript("OnClick_QuestListButton(1, 1)") cprintf(cli.white, questname_2.."\n") until getQuestStatus(questname_2) == "not accepted"