EventMonitorStart("faris", "CHAT_MSG_SYSTEM") speed() local function releaseQuest() player:target_NPC("Caslin Amust"); yrest(2000); CompleteQuestByName("Energetic Sequencing"); yrest(2000); AcceptQuestByName("Energetic Sequencing"); yrest(2000); player:target_NPC("Caslin Amust"); yrest(2000); ChoiceOptionByName("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, "Earth") then yrest(1500); player:target_Object("Earth Elemental Rune"); player:target_Object("Earth Elemental Rune"); elseif _message and string.find(_message, "Water") then yrest(1500); player:target_Object("Water Elemental Rune"); player:target_Object("Water Elemental Rune"); elseif _message and string.find(_message, "Wind") then yrest(1500); player:target_Object("Wind Elemental Rune"); player:target_Object("Wind Elemental Rune") elseif _message and string.find(_message, "Light") then yrest(1500); player:target_Object("Light Elemental Rune"); player:target_Object("Light Elemental Rune"); elseif _message and string.find(_message, "Fire") then yrest(1500); player:target_Object("Fire Elemental Rune"); player:target_Object("Fire Elemental Rune"); elseif _message and string.find(_message, "finished!") then player:target_NPC("Caslin Amust"); yrest(2000); ChoiceOptionByName("Right then! Let's get cracking!"); yrest(2000); end player:update() queststate = getQuestStatus("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("Caslin Amust"); yrest(2000); CompleteQuestByName("Energetic Sequencing"); yrest(2000); loadPaths("tornadafaristan");