function EventTimer() srchstr = "|cffffff80"..getTEXT("SC_ZONE_PE_3TH_ST1START").."|r" repeat TBES = RoMScript('getevmessage()') until (TBES == srchstr) printf("Am inceput !"); end EventMonitorStart("faris", "CHAT_MSG_SYSTEM") speed() local function releaseQuest() player:target_NPC(123971) -- 'Caslin Amust' yrest(2000) CompleteQuestByName(427349) -- 'Energetic Sequencing (Public)' yrest(2000) AcceptQuestByName(427349) -- 'Energetic Sequencing (Public)' yrest(2000) player:target_NPC(123971) -- 'Caslin Amust' yrest(2000); ChoiceOptionByName(getTEXT("SC_Q427391_1")) -- 'Right then! Let's get cracking!' yrest(2000) end function Chek_Quest() queststate = getQuestStatus(427349) -- 'Energetic Sequencing (Public)' if queststate == "complete" then return false else return true end 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(124015) -- 'Earth Elemental Rune' player:target_Object(124015) -- 'Earth Elemental Rune' elseif _message and string.find(_message, getTEXT("SYS_MAGIC_TYPE02")) then -- 'Water' yrest(1500); player:target_Object(124013) -- 'Water Elemental Rune' player:target_Object(124013) -- 'Water Elemental Rune' elseif _message and string.find(_message, getTEXT("SYS_MAGIC_TYPE03")) then -- 'Fire' yrest(1500); player:target_Object(124012) -- 'Fire Elemental Rune' player:target_Object(124012) -- 'Fire Elemental Rune' elseif _message and string.find(_message, getTEXT("SYS_MAGIC_TYPE04")) then -- 'Wind' yrest(1500); player:target_Object(124014) -- 'Wind Elemental Rune' player:target_Object(124014) -- 'Wind Elemental Rune' elseif _message and string.find(_message, getTEXT("SYS_MAGIC_TYPE05")) then -- 'Light' yrest(1500); player:target_Object(124016) -- 'Light Elemental Rune' player:target_Object(124016) -- '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(427349) -- 'Energetic Sequencing (Public)' until queststate == "complete" end while (true) do local __,__,__,Score,Count = RoMScript("PE_GetInfo(1)") if Count ~= 2 then releaseQuest() doQuest() print("Waiting for event to start") yrest(1000) repeat local __,__,__,Score,Count = RoMScript("PE_GetInfo(1)") yrest(1000) print(Count) until Count == 2 else releaseQuest() doQuest() end end