<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>

<muclient>
<plugin
   name="DominationPacts"
   author="Keldar"
   id="d410d1a6608857f28d51ea8c"
   language="Lua"
   purpose="Tracking occultic pacts"
   date_written="2006-10-31"
   requires="3.80"
   version="1.0"
   >
<description trim="y">
<![CDATA[
Usage:
 
  pacts    -  displays your present and absent pacts.
]]>
</description>

</plugin>

<aliases>
  <alias
   name="pacts_start"
   script="PactsGetter"
   match="^\s*pacts\s*$"
   enabled="y"
   regexp="y"
   sequence="100"
  >
  </alias>
</aliases>


<!--  Get our standard constants -->

<include name="constants.lua"/>

<!--  Script  -->


<script>
<![CDATA[
require "flc.kwait"

function PactsGetter(tocall)
  local pact_names = {"Hecate", "Nemesis", "Pyradius", "Rixil", "Skyrax", "Arctar",
                      "NinKharsag", "Xenophage", "Palpatar", "Scrag", "Marduk",
                      "Cadmus", "Piridion", "Buul", "Danaeus", "Golgotha", "Lycantha",
                      "Dameron", "Istria", "Eerion"}
  kwait.make(function()
    Send("pacts")
    
    repeat
      local line,wildcs = kwait.regexp([[You have formed a pact, (\d+) summons remaining, with (.*)]], 2, true)
      if line then
        for pact in ipairs(pact_names) do
          if string.find(wildcs[2], pact) then
            ColourNote("silver", "", "You have " .. wildcs[1] .. " with " .. pact .. ".")
          end
        end
      end
      
    until line == nil
    
  end)
end


]]>
</script>


<!--  Plugin help  -->

<aliases>
  <alias
   script="OnHelp"
   match="Pacts:help"
   enabled="y"
  >
  </alias>
</aliases>

<script>
<![CDATA[
function OnHelp ()
  world.Note (world.GetPluginInfo (world.GetPluginID (), 3))
end
]]>
</script> 

</muclient>
