'Register a new event
RegisterEvent "OnVariableChanged"

'Register a plugin to listen for the event, supplying the plugin's ID and the event's name.
'The listening plugin must have a sub with the same name as an event it is listening to and
'this sub must accept exactly 1 argument, otherwise the event will cause an error
RegisterListener "9ba81f81508fb8a03adac921", "OnVariableChanged"

<aliases>
  <alias
   script="HandleEvents"
   match="PluginEvent * *"
   enabled="y"
   omit_from_command_history="y"
   omit_from_log="y"
   omit_from_output="y"
   ignore_case="y"
   keep_evaluating="y"
   sequence="1"
  >
  </alias>
</aliases>

sub HandleEvents(aname, output, wilds)
  Firedfrom = wilds(1)
  if instr(wilds(2),"Partlist") = 1 then
    Params = split(wilds(2),",")
    ...
  end if
  ...
end sub

<?xml version="1.0" encoding="UTF-8" ?>
<!DOCTYPE muclient >

<muclient>
   <plugin name="EventManager1" author="Keldar" language="vbscript" purpose="Managing custom script events"
     save_state="y" date_written="2004-03-11" requires="3.32" version="1.0" id="fc8161da9a2a5d7f56a03600">
 </plugin>

<aliases>
<alias
	name="register_listener"
	match="fc8161da9a2a5d7f56a03600 reg_listener */*"
	enabled="y"
	sequence="0"
	send_to="12"
><send>call RegisterListener(&quot;%1&quot;, &quot;%2&quot;)</send></alias>
<alias
	name="register_event"
	match="fc8161da9a2a5d7f56a03600 reg_event *"
	enabled="y"
	sequence="0"
	send_to="12"
><send>call RegisterEvent(&quot;%1&quot;)</send></alias>
<alias
	name="dispatch_event"
	match="^fc8161da9a2a5d7f56a03600 dispatch_event (.*?)/(.*?)$"
	enabled="y"
	regexp="y"
	sequence="0"
	send_to="12"
><send>call DispatchEvent(&quot;%1&quot;, &quot;%2&quot;)</send></alias>
</aliases>

<script> 
<![CDATA[
option explicit
dim evt_list
set evt_list = CreateObject("Scripting.Dictionary")


'Register a new event
'RegisterEvent "OnPrompt"


'Register a plugin to listen for the event, supplying the plugin's ID and the event's name.
'The listening plugin must have a sub with the same name as an event it is listening to and
'this sub must accept exactly 1 argument, otherwise the event will cause an error
'RegisterListener "9ba81f81508fb8a03adac921", "OnPrompt"

sub RegisterListener (id, evt)
	dim listeners, new_listeners
	if evt_list.Exists(evt) then
		listeners = evt_list.Item(evt)
		if ubound(listeners) > 0 then
			new_listeners = join(listeners, "_")
			new_listeners = new_listeners + "_" + id
			evt_list.Item(evt) = split(new_listeners, "_")
		else
			new_listeners = id
		end if
		evt_list.Item(evt) = split(new_listeners, "_")
	else
		world.Colournote "red", "white", "EventManager plugin: " & evt & " event not registered"
	end if
end sub

sub RegisterEvent(evt_name)
	dim listeners(0)
	if evt_list.Exists(evt_name) then
		exit sub
	end if
	evt_list.Add evt_name, listeners
end sub

sub DispatchEvent(evt, args)
	dim listeners, listener
	if evt_list.Exists(evt) then
		listeners = evt_list.Item(evt)
		for each listener in listeners
			world.Execute listener & ":" & evt & " " & args
		next
	else
		world.Colournote "red", "white", "EventManager plugin: " & evt & " event not registered"
	end if
end sub

]]>        
</script>
</muclient>

Function OnPluginHandleEvent (ID, Type, Data)

  if ' I handled this event
    OnPluginHandleEvent = vbTrue
  else
    OnPluginHandleEvent = vbFalse
  end if

end Function

Boolean = FireEvent(Type, Data)

sub OnPluginHandleEvent (ID, Type, Data)
  select case Type
    case "GetID"
      World.FireEvent("ID", PluginID)
  end select
end sub

sub OnPluginHandleEvent (ID, Type, Data)
  select case Type
    case "GetID"
      World.FireEvent("ID", PluginID)
    case "ID"
      setvariable "Plugin_Count", getvariable("Plugin_Count") + 1
  end select
end sub

sub CountPlugins
  setvariable "Plugin_Count",0
  World.FireEvent("GetID", "")
end sub