64 lines
1.3 KiB
XML
64 lines
1.3 KiB
XML
<?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 = ""
|
|
|
|
'
|
|
' check all worlds
|
|
'
|
|
for each id in world.GetWorldIdList
|
|
set thisworld = GetWorldById (id)
|
|
if not (thisworld is nothing) then
|
|
if thisworld.GetInfo (202) > 0 then
|
|
if active <> "" then active = active & ", "
|
|
active = active & thisworld.GetInfo (2)
|
|
end if
|
|
set thisworld = nothing
|
|
end if
|
|
next
|
|
|
|
'
|
|
' display results
|
|
'
|
|
InfoClear
|
|
if active <> "" then
|
|
InfoFont "", 0, 1 ' bold font
|
|
Info "Activity: "
|
|
InfoFont "", 0, 0 ' normal font
|
|
Info active
|
|
end if</send>
|
|
|
|
</timer>
|
|
</timers>
|
|
|
|
</muclient>
|