<?xml version="1.0" encoding="utf-8"?><waypoints>
<onload>
function scanevent(_msg,_stop)
   
   local events = {
   "CHAT_MSG_CHANNEL_JOIN",
   "CHAT_MSG_CHANNEL_LEAVE",
   "CHAT_MSG_CHANNEL",
   "CHAT_MSG_COMBAT",
   "CHAT_MSG_EMOTE",
   "CHAT_MSG_GM_TALK",
   "CHAT_MSG_GM",
   "CHAT_MSG_GUILD",
   "CHAT_MSG_LFG",
   "CHAT_MSG_LOOT",
   "CHAT_MSG_PARTY",
   "CHAT_MSG_RAID",
   "CHAT_MSG_SALE",
   "CHAT_MSG_SAY",
   "CHAT_MSG_SYSTEM_GET",
   "CHAT_MSG_SYSTEM_VALUE",
   "CHAT_MSG_SYSTEM",
   "CHAT_MSG_WHISPER_INFORM",
   "CHAT_MSG_WHISPER_OFFLINE",
   "CHAT_MSG_WHISPER",
   "CHAT_MSG_YELL",
   "CHAT_MSG_ZONE",
   "CHAT_MSN_ADDBUTTON",
   "CHAT_MSN_ADDITEMLINK",
   "CHAT_MSN_ADD",
   "CHAT_MSN_CLOSE",
   "CHAT_MSN_ITEMPREVIEW",
   "CHAT_MSN_OPEN",
   "CHAT_MSN_POPUP",
   "CHAT_MSN_SMALL",
   "MESSAGE_NORMAL",
   "SCROLL_BANNER_MESSAGE",
   "SHOW_MESSAGE_DIALOG",
   "SYSTEM_MESSAGE",
   "WARNING_MESSAGE"
   }
   
   
   local function stoptest()
      unregisterTimer("EVENTtest");
      for i = 0,#events do
         EventMonitorStop("EVENT"..i) 
      end
   end
   
   if _stop then stoptest() return end
   
   for k,v in ipairs(events) do
      EventMonitorStart("EVENT"..k, v) 
   end      
   local function testevent()
      for k,v in ipairs(events) do
         local time, moreToCome, name, msg = EventMonitorCheck("EVENT"..k, "4,1")
       if name then print(v.." "..name) end
         if msg then print(v.." "..msg) end
      end
   end
   registerTimer("EVENTtest", secondsToTimer(1), testevent);
end

   scanevent("Tense")
   for i = 1,30 do
      yrest(1000)
   end
   scanevent(nil,true)


	
</onload> 
</waypoints>