EventMonitorStart("faris", "CHAT_MSG_SYSTEM") speed() local function releaseQuest() player:target_NPC(123971) -- 'Caslin Amust' yrest(2000) CompleteQuestByName(427340) -- 'Energetic Sequencing' yrest(2000) AcceptQuestByName(427340) -- 'Energetic Sequencing' yrest(2000) player:target_NPC(123971) -- 'Caslin Amust' yrest(2000); ChoiceOptionByName(getTEXT("SC_Q427391_1")) -- 'Right then! Let's get cracking!' yrest(2000) end local function doQuest() repeat local time, moreToCome, _name, _message = EventMonitorCheck("faris","4,1",true) if _message then string.lower(_message) print("1 ".._message) end if _message and string.find(_message, getTEXT("SYS_MAGIC_TYPE01")) then -- 'Earth' yrest(1500); player:target_Object(getTEXT("Sys124015_name")) -- 'Earth Elemental Rune' player:target_Object(getTEXT("Sys124015_name")) -- 'Earth Elemental Rune' elseif _message and string.find(_message, getTEXT("SYS_MAGIC_TYPE02")) then -- 'Water' yrest(1500); player:target_Object(getTEXT("Sys124013_name")) -- 'Earth Elemental Rune' player:target_Object(getTEXT("Sys124013_name")) -- 'Earth Elemental Rune' elseif _message and string.find(_message, getTEXT("SYS_MAGIC_TYPE03")) then -- 'Earth' yrest(1500); player:target_Object(getTEXT("Sys124012_name")) -- 'Fire Elemental Rune' player:target_Object(getTEXT("Sys124012_name")) -- 'Fire Elemental Rune' elseif _message and string.find(_message, getTEXT("SYS_MAGIC_TYPE04")) then -- 'Earth' yrest(1500); player:target_Object(getTEXT("Sys124014_name")) -- 'Wind Elemental Rune' player:target_Object(getTEXT("Sys124014_name")) -- 'Wind Elemental Rune' elseif _message and string.find(_message, getTEXT("SYS_MAGIC_TYPE05")) then -- 'Light' yrest(1500); player:target_Object(getTEXT("Sys124016_name")) -- 'Light Elemental Rune' player:target_Object(getTEXT("Sys124016_name")) -- 'Light Elemental Rune' elseif _message and string.find(_message, "finished!") then player:target_NPC(123971) -- 'Caslin Amust' yrest(2000) ChoiceOptionByName(getTEXT("SC_Q427391_1")) -- 'Right then! Let's get cracking!' yrest(2000) end player:update() queststate = getQuestStatus(427340) -- 'Energetic Sequencing' until queststate == "complete" end while (true) do local dqCount, dqPerDay = RoMScript("Daily_count()"); if dqCount == 9 then inventory:update(); player:update(); if inventory:itemTotalCount(202434) > 0 then inventory:useItem(202434); yrest(2000) else break end else releaseQuest() doQuest() end end player:target_NPC(123971) -- 'Caslin Amust' yrest(2000) CompleteQuestByName(427340) -- 'Energetic Sequencing' yrest(2000) loadPaths("tornadafaristan")