<?xml version="1.0" encoding="US-ASCII"?>
<!DOCTYPE muclient>
<!-- Saved on Tuesday, March 23, 2004, 11:06 AM -->
<!-- MuClient version 3.47 -->

<!-- Plugin "ShowActivity" generated by Plugin Wizard -->

<muclient>
<plugin
   name="ShowActivity"
   author="Nick Gammon"
   id="5365175f17f932736cbd30f0"
   language="VBscript"
   purpose="Shows worlds with new activity in Info Bar"
   date_written="2004-03-23 11:05:04"
   requires="3.29"
   version="1.0"
   >
<description trim="y">
<![CDATA[
This automatically updates the Info Bar every 2 seconds to show the names of worlds with new activity.
]]>
</description>

</plugin>


<!--  Timers  -->

<timers>
  <timer enabled="y" second="2"    send_to="12"
active_closed="y" >
  <send>active = &quot;&quot;

'
'  check all worlds
'
for each id in world.GetWorldIdList
  set thisworld = GetWorldById (id)
  if not (thisworld is nothing) then
    if thisworld.GetInfo (202) &gt; 0 then
      if active &lt;&gt; &quot;&quot; then active = active &amp; &quot;, &quot;
      active = active &amp; thisworld.GetInfo (2)
    end if
    set thisworld = nothing
  end if
next

'
'  display results
'
InfoClear
if active &lt;&gt; &quot;&quot; then
 InfoFont &quot;&quot;, 0, 1  ' bold font 
 Info &quot;Activity: &quot; 
 InfoFont &quot;&quot;, 0, 0  ' normal font
 Info active
end if</send>

  </timer>
</timers>

</muclient>
