2. Right click menu.
  a) About
  b) Always On Top
3. Put back the minimize button.
4. Minimize to system tray??? This will occure if you:
  a) Click the minimize button.
  b) There are no firework events for 1 minute.
  c) Minimize Mushclient.
5. Auto restore on a firework event.
6. Offset option, to allow you to adjust distance and
  general position to the window it dock to.
7. Make the Close button kill the program, not just close
  the form (more of a bug fix).
8. Use window events from Mushclient to decide when to
  Resize, Move, Minimize or Restore, instead of a timer.
9. Change things so that when minimized, the fireworks will
  still cycle down, but not attempt to draw.

Of these I am uncertain how to do any except 6, 7 and 9. lol

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE muclient>
<!-- Saved on Saturday, November 08, 2003, 9:13 PM -->
<!-- MuClient version 3.42 -->

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

<muclient>
<plugin
   name="MC_Firework"
   author="kagehi"
   id="d25cbd257faedacf03e497db"
   language="VBscript"
   purpose="Ages of Despair plugin that gives an example of using the MC_Firework control."
   save_state="y"
   date_written="2003-11-13 10:55:00"
   requires="3.42"
   version="1.1"
   >
<description trim="y">
<![CDATA[
This plugin provides an example of how to use the MC_Firework control.

It also generates some fireworks based off of the color names sometimes used on Ages of Despair, instead of the ansi colors.
]]>
</description>

</plugin>


<!--  Get our standard constants -->

<include name="constants.vbs"/>

<!--  Triggers  -->

<triggers>
  <trigger
   enabled="y"
   match="^Off in the distance\, a (.*?) ball of fire lights up the sky\.$"
   name="Firework"
   regexp="y"
   script="GenSpark"
   sequence="100"
   other_text_colour="black"
   other_back_colour="black"
  >
  </trigger>
</triggers>

<timers>
  <timer name="DockTimer" script="DockTimer" enabled="y" second="3" active_closed="y">

  </timer>
  <timer name="KillIt" script="KillIt" enabled="y" minute="2" active_closed="y">
  </timer>
</timers>

<aliases>
  <alias
    match="MC_Firework:MoveTo *,*"
    enabled="y"
    name="SetPos"
    script="SetPos">
  </alias>
  <alias
    match="MC_Firework:Size *,*"
    enabled="y"
    name="SetSize"
    script="SetSize">
  </alias>
</aliases>


<!--  Script  -->


<script>
<![CDATA[
dim hndl
dim Repos

sub OnPluginInstall
  set hndl = createobject("MC_Firework.MC_Spark")
  note "Firework plugin installed"
  enabletimer "DockTimer", 1
  Repos = "False"
end sub

sub DockTimer(name)
  hndl.dock
  hndl.createspark("red")
  hndl.createspark("green")
  hndl.createspark("yellow")
  enabletimer "DockTimer", 0
  enabletimer "KillIt",1
end sub

sub KillIt(name)
  set hndl = nothing
  enabletimer "KillIt",0
end sub

sub GenSpark (name, output, wilds)
  enabletimer "KillIt",1
  resettimer "KillIt"
  if typename(hndl) <> "MC_Spark" then
    set hndl = createobject("MC_Firework.MC_Spark")
    hndl.dock
    if Repos = "True" then
      hndl.undock
      hndl.MoveTo getvariable("PosX"), getvariable("PosY")
      if Cint(getvariable("Width")) > 49 then
        hndl.Resize getvariable("Width"), getvariable("Height")
      end if
    end if
  end if
  dim a, b, c
  select case wilds(1)
    case "purple"
      hndl.createspark(9123723)
    case "bright yellow"
      hndl.createspark("light yellow")
    case "sky blue", "sky-blue"
      hndl.createspark("sky blue")
    case "violet"
      hndl.createspark("violet")
    case "cobalt blue"
      hndl.createspark("cobalt blue")
    case "turquiose"
      hndl.createspark(13688896)
    case else
      a = getlinecount
      b = getlineinfo (a, 11)
      c = getstyleinfo (a, 2, 14)
      hndl.createspark (c)
  end select
end sub

sub OnPluginClose
  set hndl = nothing
end sub

sub SetPos (name, output, wilds)
  if isnumeric(wilds(1)) and isnumeric(wilds(2)) then
    Repos = "True"
    setvariable "PosX", wilds(1)
    setvariable "PosY", wilds(2)
    hndl.undock
    hndl.MoveTo Wilds(1), Wilds(2)
  else
    colournote "red", "black", "Error: 'MoveTo' requires numberic values."
  end if
end sub

sub SetSize
  if isnumeric(wilds(1)) and isnumeric(wilds(2)) then
    Repose = "True"
    setvariable "Width", wilds(1)
    setvariable "Height", widls(2)
    hndl.undock
    hndl.Resize wilds(1), wilds(2)
  else
    colournote "red", "black", "Error: 'Size' requires numberic values."
  end if
end sub
]]>
</script>


<!--  Plugin help  -->

<aliases>
  <alias
   script="OnHelp"
   match="MC_Firework:help"
   enabled="y"
  >
  </alias>
</aliases>

<script>
<![CDATA[
Sub OnHelp (sName, sLine, wildcards)
  world.Note world.GetPluginInfo (world.GetPluginID, 3)
End Sub
]]>
</script> 

</muclient>