initial release

cosmic rage/worlds/plugins/multiple_send.xml

@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE muclient>
+<!-- Saved on Wednesday, August 28, 2002, 10:48 AM -->
+<!-- MuClient version 3.26 -->
+
+<!-- Plugin "Multiple_Send" generated by Plugin Wizard -->
+
+<!--
+See forum post 
+
+http://www.gammon.com.au/forum/bbshowpost.php?bbsubject_id=1403
+
+for more details about this script.
+-->
+
+<muclient>
+<plugin
+   name="Multiple_Send"
+   author="Nick Gammon"
+   id="33e3ed2a4a9751329b048b5c"
+   language="VBscript"
+   purpose="Sends commands to multiple worlds"
+   date_written="2002-08-28 10:44:11"
+   date_modified="2003-04-21 08:37:30"
+   requires="3.39"
+   version="1.1"
+   >
+<!--
+Version 1 - initial release.
+Version 1.1 - changed to use WorldGetIDList so it would still work
+              if you had multiple worlds of the same name.
+-->
+<description trim="y">
+<![CDATA[
+You can send a command to one or more worlds, or all worlds, like this:
+
+#all say Goodnight All  <-- sends to all open worlds
+#1   say Hi everyone    <-- sends to world #1
+#123 say Follow Me      <-- sends to worlds #1, #2 and #3
+
+Multiple_Send:help      <-- this help screen
+
+
+]]>
+</description>
+
+</plugin>
+
+
+<!--  Aliases  -->
+
+<aliases>
+  <alias
+   script="SendToWlds"
+   match="#* *"
+   enabled="y"
+  >
+  </alias>
+</aliases>
+
+<!--  Script  -->
+
+
+<script>
+<![CDATA[
+'
+'  based on a script by Shadowfyr (with minor corrections)
+'
+
+sub SendToWlds(name, output, wildcards)
+ dim z, wrld
+
+ select case wildcards(1)
+   case "all"
+     for each wrld in world.getworldIDlist
+       set sndworld = world.getworldbyid(wrld)
+       sndworld.send wildcards(2)
+     next
+   case else
+     if isnumeric(wildcards(1)) then
+       count = 1
+       for each wrld in world.getworldIDlist
+         if instr (wildcards (1), cstr (count)) and count < 10 then
+           set sndworld = world.getworldbyid(wrld)
+           sndworld.send wildcards(2)
+         end if
+         count = count + 1
+       next
+     else
+       world.note "Error! Unable to determine world to send to."
+     end if
+ end select
+end sub
+
+
+]]>
+</script>
+
+
+<!--  Plugin help  -->
+
+<aliases>
+  <alias
+   script="OnHelp"
+   match="Multiple_Send:help"
+   enabled="y"
+  >
+  </alias>
+</aliases>
+
+<script>
+<![CDATA[
+Sub OnHelp (sName, sLine, wildcards)
+  World.Note World.GetPluginInfo (World.GetPluginID, 3)
+End Sub
+]]>
+</script> 
+
+</muclient>