initial release

cosmic rage/worlds/plugins/showactivity.xml

@@ -0,0 +1,63 @@
+<?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>