set fso = CreateObject("Scripting.FileSystemObject")
set wmp = CreateObject("WMPlayer.OCX")

logfilename = CreateObject("Wscript.Shell").SpecialFolders("Mydocuments") + "\RIFT\Log.txt"

if fso.FileExists(logfilename) then
   fso.DeleteFile(logfilename)
end if

fso.CreateTextFile logfilename,True

set logfile = fso.GetFile(logfilename)
set stream = logfile.OpenAsTextStream()
do while true
   if not stream.atEndOfStream then
      message = stream.ReadLine
      event_name_start = instr(1,message,"The zone event [")
      event_name_end = instr(1,message,"] has started in [")
      if (event_name_start <> 0 and event_name_end <> 0) then
         zone_name_start = event_name_end + 18
         zone_name_end = instr(zone_name_start,message,"]")
         event_name = mid(message,event_name_start + 16,event_name_end - event_name_start - 16)
         zone_name = mid(message,zone_name_start,zone_name_end - zone_name_start)
         if (zone_name = "Goboro Reef" or zone_name = "Draumheim" or zone_name = "Tarken Glacier") then
            wscript.stdout.writeline mid(message,1,event_name_start - 1) & "[" & _
                   event_name & "] in [" & _
                   zone_name & "]"
            wmp.URL = "alert.mp3"
            wmp.controls.play
            while wmp.playState <> 1
               wscript.Sleep 100
            wend
         end if
      end if
   end if
   wscript.sleep 1000
loop