Gammon Forum

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<!-- Saved on Wedsday, November 17, 2015, 7:14  -->
<!-- MuClient version 4.13 -->

<!-- Plugin "pet_Input" generated by Wire Razor -->

<muclient>
<plugin
   name="pet_input"
   author="Wire Razor"
   id="fefa658aa8caca3cb5e2fa00"
   language="Lua"
   purpose="Works as a new window, for one's pet"
   date_written="2015-11-17 7:14:42"
   requires="4.00"
   version="1.0"
   >

</plugin>


<!--  Script  -->


<script>
<![CDATA[
world_name = "muck(wire)"

function OnPluginCommandEntered (command)

  local w = GetWorld (world_name)  -- find world

  -- not found? show error
  if not w then
    ColourNote ("white", "red", "World " .. world_name .. " is not open")
  else
    w:Execute (command)  -- execute command (handle aliases, etc.)
    PushCommand (command)  -- save in command history
  end -- if

  return ("\t")  -- clear command

end -- OnPluginCommandEntered 


]]>
</script>


</muclient>

function OnPluginCommandEntered (command)

  local w = GetWorld (world_name)  -- find world

  -- not found? show error
  if not w then
    ColourNote ("white", "red", "World " .. world_name .. " is not open")
  else
    w:Execute ("pet " .. command)  -- execute command (handle aliases, etc.)
    PushCommand ("pet " .. command)  -- save in command history
  end -- if

  return ("\t")  -- clear command

end -- OnPluginCommandEntered

  if w then  -- if present
    for _, v in ipairs (styles) do
      w:ColourTell (RGBColourToName (v.textcolour), 
                    RGBColourToName (v.backcolour), 
                    v.text)
    end -- for each style run
    w:Note ("")  -- wrap up line

  end -- world found

  if w then  -- if present
    for _, v in ipairs (styles) do
      str, en, cap = string.find(v.text, "^Beast\>%s+(.*)$")

      if cap == nil then
        cap = v.text
      end -- if
      
      w:ColourTell (RGBColourToName (v.textcolour), 
                    RGBColourToName (v.backcolour), 
                    cap) -- cleaned version of v.text or original text.
    end -- for each style run
    w:Note ("")  -- wrap up line

  end -- world found