Gear - Aardwolf hyperlink inventory

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<!-- Saved on Sunday, August 29, 2010, 3:35 PM -->
<!-- MuClient version 4.56 -->

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

<muclient>
<plugin
   name="Gear"
   author="Moshu(William Arends), Multiple"
   id="8e3032045952b7736f263d5d"
   language="Lua"
   purpose="Powerful hyperlinked based inventory plugin written by william arends. "
   date_written="2010-12-2 15:35:02"
   requires="4.56"
   version="1.0"
   save_state="y"
   >

<description trim="y">

Aardwolf Hyperlink Inventory Plugin.

Feel free to use this for any purpose on any MUD, but I'd appreciate an email if you improve
something -- wolf@aardwolf.com (lasher) williamtarends@hotmail.com (moshu)

</description>

</plugin>


<!--  Triggers  -->

<triggers>

  <trigger
   enabled="y"
   match="*{invdata *}"
   script="inv_redirect"
   omit_from_output="y"
   name="inv_start2"
   sequence="100"
  >
  </trigger>


  <trigger
   enabled="y"
   match="*{invdata}"
   script="inv_redirect"
   omit_from_output="y"
   name="inv_start"
   sequence="100"
  >
  </trigger>

  <trigger
   enabled="n"
   match="*,*,*,*,*,*,*,*"
   script="inv_redirect"
   name="multi_line_inv"
   omit_from_output="y"
   sequence="10"
  >
  </trigger>

<!--    <trigger
   enabled="n"
   match="*,,*,*,*,*,*,*"
   script="inv_redirect"
   name="multi_line_inv_no_flags"
   omit_from_output="y"
   sequence="10"
  >
  </trigger> -->

  <trigger
   enabled="y"
   match="{/invdata}"
   script="inv_redirect"
   omit_from_output="y"
   name="inv_end"
   sequence="5"
  >
  </trigger>

</triggers>

<aliases>
  <alias
   match="load invcap"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>CallPlugin("8e3032045952b7736f263d5d", "LoadInvCap", "")</send>
  </alias>



  <alias
   match="reload inv"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>
  ReloadPlugin("8e3032045952b7736f263d5d")
  Note("Reloaded Inventory Capture")
  </send>
  </alias>

<!--
  <alias
   match="disable invcap"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>EnablePlugin("8e3032045952b7736f263d5d", 1)
  Note("Disabled Inventory Capture")
  </send>
  </alias>
 -->

  <!-- Show Sell -->
   <alias
   match="invshow sell on"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showSell = "true"
    Note("Show Sell Hyperlink = On")
  </send>
  </alias>

   <alias
   match="invshow sell off"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showSell = "false"
  Note("Show Sell Hyperlink = Off")
  </send>
  </alias>

  <!-- Show Id -->
   <alias
   match="invshow id on"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showId = "true"
    Note("Show Id Hyperlink = On")
  </send>
  </alias>

   <alias
   match="invshow id off"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showId = "false"
  Note("Show Id Hyperlink = Off")
  </send>
  </alias>

   <!-- Show Drop -->
   <alias
   match="invshow drop on"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showDrop = "true"
    Note("Show Drop Hyperlink = On")
  </send>
  </alias>

   <alias
   match="invshow drop off"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showDrop = "false"
  Note("Show Drop Hyperlink = Off")
  </send>
  </alias>


   <!-- Show Unique-->
   <alias
   match="invshow u on"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showU = "true"
    Note("Show Unique Hyperlink = On")
  </send>
  </alias>

   <alias
   match="invshow u off"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showU = "false"
  Note("Show Unique Hyperlink = Off")
  </send>
  </alias>

   <!-- Show Flags -->
   <alias
   match="invshow flags on"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showFlags = "true"
    Note("Show Flags = On")
  </send>
  </alias>

   <alias
   match="invshow flags off"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showFlags = "false"
  Note("Show Flags = Off")
  </send>
  </alias>


   <!-- Show Comp -->
   <alias
   match="invshow comp on"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showComp = "true"
    Note("Show Compare Hyperlink = On")
  </send>
  </alias>

   <alias
   match="invshow comp off"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showComp = "false"
  Note("Show Compare Hyperlink = Off")
  </send>
  </alias>

   <!-- Show Look In -->
   <alias
   match="invshow lookin on"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showLookIn = "true"
    Note("Show Look In Hyperlink = On")
  </send>
  </alias>

   <alias
   match="invshow lookin off"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showLookIn= "false"
  Note("Show Look In Hyperlink = Off")
  </send>
  </alias>

  <!-- ENCHANTS -->

   <!-- Show Resonate -->
   <alias
   match="invshow res on"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showRes = "true"
    Note("Show Resonate Hyperlink = On")
  </send>
  </alias>

   <alias
   match="invshow res off"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showRes = "false"
  Note("Show Resonate Hyperlink = Off")
  </send>
  </alias>

   <!-- Show Illuminate -->
   <alias
   match="invshow ill on"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showIll = "true"
    Note("Show Illuminate Hyperlink = On")
  </send>
  </alias>

   <alias
   match="invshow ill off"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showIll = "false"
  Note("Show Illuminate Hyperlink = Off")
  </send>
  </alias>

   <!-- Show Solidify -->
   <alias
   match="invshow sol on"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showSol = "true"
    Note("Show Solidify Hyperlink = On")
  </send>
  </alias>

   <alias
   match="invshow sol off"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showSol = "false"
  Note("Show Solidify Hyperlink = Off")
  </send>
  </alias>


   <!-- Show ITEM TYPE -->
   <alias
   match="invshow type on"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showType = "true"
    Note("Show Type Hyperlink = On")
  </send>
  </alias>

   <alias
   match="invshow type off"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showType = "false"
  Note("Show Type Hyperlink = Off")
  </send>
  </alias>

     <!-- Show Add Note-->
   <alias
   match="invshow note on"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showNote = "true"
    Note("Show Item Note Hyperlink = On")
  </send>
  </alias>

   <alias
   match="invshow note off"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

    showNote = "false"
  Note("Show Item Note Hyperlink = Off")
  </send>
  </alias>

  <!-- Read Note alias-->
   <alias
   match="ReadItemNote *"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>
  local x = GetVariable("note" .. %1)
  if x == nil or x == "" then
        Note("No note set for this item.")
          local result = ""
          if GetVariable("note" .. %1) == nil then
            result = utils.editbox("This is where you can create a note for a item inside your inventory. This is useful for tagging gear you have enchanted or portals that are not of type portal like the devils hand its a weapon that is a portal. You could put a note on devils hand, ex:This is portal also is a weapon. I enchanted it with resonate","Enter a note for this item", "I enchanted this item. Change the default message here with ItemNoteDef = value", "Courier", "9")
          end

          if result ~= nil then
            --ColourNote("white","red",result)
            ColourTell("white","black","##Note added to item " .. %1 .. result)
            assert(SetVariable("note" .. %1, result))
            --Note(GetVariable("note" .. %1))
            Execute("invdata")
          else
            ColourTell("white","black","##Note returned with no result.")
          end
  else
    ColourTell("white","black","Note" .. %1 .. " " .. x .. "")
  end

  </send>
  </alias>


  <!-- Add Note alias-->
   <alias
   match="AddItemNote *"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>
  local result = ""
          if GetVariable("note" .. %1) == nil then
            result = utils.editbox("This is where you can create a note for a item inside your inventory. This is useful for tagging gear you have enchanted or portals that are not of type portal like the devils hand its a weapon that is a portal. You could put a note on devils hand, ex:This is portal also is a weapon. I enchanted it with resonate","Enter a note for this item", "I enchanted this item. Change the default message here with ItemNoteDef = value", "Courier", "9")
          end

          if GetVariable("note" .. %1) ~= nil then
                    result = utils.editbox("This is where you can create a note for a item inside your inventory. This is useful for tagging gear you have enchanted or portals that are not of type portal like the devils hand its a weapon that is a portal. You could put a note on devils hand, ex:This is portal also is a weapon. I enchanted it with resonate","Enter a note for this item","" .. GetVariable("note" .. %1) .. "", "Courier", "9")
          end

  if result ~= nil then
    ColourTell("white","black","##Note added to item " .. %1 .. result)
    assert(SetVariable("note" .. %1, result))
    SendNoEcho("invdata")
  else
    ColourTell("white","black","##Note returned with no result.")
  end
  </send>
  </alias>


  <!-- Delete Note alias-->
   <alias
   match="DeleteItemNote *"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>
  SetVariable("note" .. %1,"")
  SendNoEcho("invdata")
  </send>
  </alias>

    <!-- Set Note alias-->
   <alias
   match="SetItemNote * *"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

  SetVariable(%1,%2)
  Note(GetVariable(%1))
  --local result = utils.editbox("Enter a note for this item", "I enchanted this item(Change the default message here with ItemNoteDef = value", "booa", "Courier", 9)
  ColourNote("Yellow","Green","NOTE ADDED: Click the N hyperlink to view the note for a given item.")
  </send>
  </alias>


    <!-- Set Note alias-->
   <alias
   match="GetItemNote *"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

  Print(GetVariable(%1))
  ColourNote("Yellow","Green","NOTE PRINTED: You have just opened note for this item.")
  </send>
  </alias>


    <!-- Set Id Command alias-->
   <alias
   match="id = *"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

  SetVariable("idCommand",%1)
  ColourNote("Blue","black","Id hyperlink set to: " .. %1 .. "\r*Set this to something like id, lore, and etc to change the id method.\r*Also you can make the ? hyperlink so what every command you set it to. (Hope to make each link work this way also")
  </send>
  </alias>

    <!-- Plugin Options -->
   <alias
   match="copyid *"
   enabled="y"
   script=""
   send_to="12"
   sequence="100"
  >
  <send>
    SetClipboard(%1)
    print("!!##Item id copied to clipboard for use with other game commands.")
  </send>
  </alias>

      <!-- Plugin Options -->
   <alias
   match="Gear"
   enabled="y"
   script=""
   send_to="12"
   sequence="100"
  >
  <send>
    SendNoEcho("invdata")

  </send>
  </alias>
     <alias
   match="gear"
   enabled="y"
   script=""
   send_to="12"
   sequence="100"
  >
  <send>
    SendNoEcho("invdata")

  </send>
  </alias>

  <!-- Hud Off alias-->
   <alias
   match="hud off"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>
  WindowShow(Win, false)
  </send>
  </alias>


  <!-- Hud On alias-->
   <alias
   match="hud on"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>
  WindowShow(Win, true)
  </send>
  </alias>

  <!-- Plugin Options -->
   <alias
   match="gear options"
   enabled="y"
   script="OptionsTrigger"
   send_to="12"
   sequence="100"
  >
  <send>

  </send>
  </alias>



  <alias
   match="disable inv"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>EnablePlugin("8e3032045952b7736f263d5d", 1)
  Note("Disabled Inventory Capture")
  </send>
  </alias>
</aliases>

<script>
<![CDATA[
-- functions for handling Aardwolf color codes
dofile (GetPluginInfo (GetPluginID(), 20) .. "aardwolf_colors.lua")
--dofile (GetPluginInfo (GetPluginID(), 20) .. "aardwolf_colors.lua")
Win = "0a" .. GetPluginID()
inv_lines = {}
--coord_data= {}
show_inv = 0
itemType = ""
idCommand = "id "
ColorToggle = 0 --This will flip from 1 to 0 and is used to color everyother item in the inventory differently.


showAll = "false"
showNone = "false" -- Toggle show all and show none to true and function will turn on/off all shows then turn its self to false again. So it only fires once
showType = "true"
showId = "true"
showDrop = "true"
showSell = "true"
showLookIn = "true"
showWear = "true"
showComp = "true"
showRes = "true"
showIll = "true"
showSol = "true"
showRecite = "true"
showFlags = "true"
showTimer = "true"
showU = "true"--Show unique item info
--Note show variables
showNoNoteLinks = "false"
showNote = "true"
showAddNote = "true"
showClearNote = "true"
counter = 0
clickedBag = 0;
ColorCodedLine = ""

function inv_redirect (name, line, wildcards, styles)

    EnableTrigger ("multi_line_inv", true)  -- capture subsequent lines
    if name == "inv_start" or name == "inv_start2" then   --- Setup the window.
        inv_lines = {} --reset ready for new scan
        counter = 0
    elseif name == "inv_end" then
       EnableTrigger ("multi_line_inv", false)  -- no more lines to go
    else
        if name == "multi_line_inv" then

            objid = assert(GetTriggerWildcard (name, "1"))
            flags = assert(GetTriggerWildcard (name, "2"))
            name = assert(GetTriggerWildcard (name, "3"))

        end

        if objid ~= nil then
            local itemId = wildcards[5]--Item Type
            GetTypeFromId(tonumber(itemId))--This will set variable itemType to be used in plugin after this point
            NoteStyle(3)
            --ColourTell("white", "Black", "[")
            if ColorToggle == 1 then
                if counter < 10 then
                    ColourTell("white","black","0" .. counter)
                else
                    ColourTell("white","black",counter)
                end

                ColorToggle = 0
            else
                if counter < 10 then
                    ColourTell("gray","black","0" .. counter)
                else
                    ColourTell("gray","black",counter)
                end
                ColorToggle = ColorToggle + 1
            end
            --ID item
            if showId == "true" then
                        if objid == nil then
                    --do nada
                else
                    ColourTell("white", "Black", "|")
                    Hyperlink (GetVariable("action1")  .. objid,"?",
                    "ID this item",
                    "red", "black", 0)
                end
            end




            if showDrop == "true" then
                if objid == nil then
                    --do nada
                else
                    ColourTell("white", "Black", "|")
                    Hyperlink ("drop "  .. objid .. ";invdata","X",
                    "Drop this item",
                    "yellow", "black", 0)
                end
            end

            local wearLoc = wildcards[8]
            local unique = wildcards[6]
            --if itemType == "Weapon" or itemType == "Armor" or itemType == "Portal" or itemType == "Treasure" or itemType == "Container" then
            if wearLoc == "-1" then
                -- ColourTell("white", "Black", "|")
                -- Hyperlink ("wear "  .. objid,"W",
                -- "Wear this item",
                -- "green", "black", 0)
            else
                ColourTell("white", "Black", "|")
                if objid ~= nil then
                    Hyperlink ("wear "  .. objid,"W",
                    "Wear this item",
                    "green", "black", 0)
                end
            end

            if showSell == "true" and objid ~= nil then
                ColourTell("white", "Black", "|")
                Hyperlink ("sell "  .. objid,"$",
                "Sell this item",
                "yellow", "black", 0)
            end

            if showComp == "true" and objid ~= nil then
                ColourTell("white", "Black", "|")
                Hyperlink ("compare "  .. objid,"%",
                "Compare this item",
                "red", "black", 0)
            end

            if showRes == "true" and objid ~= nil then
                ColourTell("white", "Black", "|")
                Hyperlink ("c resonate  "  .. objid,"!",
                "Cast enchant [Resonate] on this item",
                "yellow", "black", 0)
            end

            if showIll == "true" and objid ~= nil then
                ColourTell("white", "Black", "|")
                Hyperlink ("c illuminate "  .. objid,"*",
                "Cast enchant [Illuminate] on this item",
                "red", "black", 0)
            end

            if showSol == "true" and objid ~= nil then
                ColourTell("white", "Black", "|")
                Hyperlink ("c solidify "  .. objid,"#",
                "Cast enchant [Solidify] on this item",
                "yellow", "black", 0)

            end
                ColourTell("white", "Black", "|")


                    --If it is a container give look in command
            if wildcards[5] == "11" and showLookIn == "true" and objid ~= nil then

                Hyperlink ("look in "  .. objid,"~",
                "Look inside this item",
                "white", "black", 0)
                ColourTell("white", "Black", "|")
            end

            NoteStyle(3)

            --when they click the item name this picks action depending on type
            commandStr = ""
            messageStr = ""
            if itemType == "Furniture" then
                commandStr = "drop " .. objid .. ";sleep " .. objid .. ";"
                messageStr = "Click to DROP and sleep on " .. strip_colours(name) .. ". MAKE SURE TO PICK IT UP."
            end
            if itemType == "Light" then
                commandStr = "wear "
                messageStr = "Click to eat " .. strip_colours(name) .. "."
            end
            if itemType == "Food" then
                commandStr = "eat "
                messageStr = "Click to eat " .. strip_colours(name) .. "."
            end
            if itemType == "Drink Container" then
                commandStr = "drink "
                messageStr = "Click to drink from " .. strip_colours(name) .. "."
            end
            if itemType == "Pill" then
                commandStr = "eat "
                messageStr = "Click to eat the pill " .. strip_colours(name) .. "."
            end
            if itemType == "Portal" then
                commandStr = "remove second;wear " .. objid .. ";enter;"
                messageStr = "Click to enter the portal " .. strip_colours(name) .. "."
            end
            if itemType == "Container" then
                commandStr = "Look in "
                messageStr = "Click to look into " .. strip_colours(name) .. "."
            end
            if itemType == "Armor" then
                commandStr = "wear "
                messageStr = "Click to wear " .. strip_colours(name) .. "."
            end
            if itemType == "Weapon" then
                commandStr = "wield "
                messageStr = "Click to wield " .. strip_colours(name) .. "."
            end

            if itemType == "Scroll" then
                commandStr = "recite "
                messageStr = "Click to recite " .. strip_colours(name) .. "."
            end

            if itemType == "Potion" then
                commandStr = "quaff "
                messageStr = "Click to quaff " .. strip_colours(name) .. "."
            end

            if commandStr == "" then
                commandStr = "id "
            end

            if messageStr == "" then
                messageStr = "Click to Id "
            end

            if ColorToggle == 1 then
                Hyperlink (commandStr .. objid,strip_colours(name),
                    messageStr,
                    "yellow", "black", 0)
            else
                --Tell(counter)
                Hyperlink (commandStr .. objid,strip_colours(name),
                    messageStr,
                    "red", "black", 0)
            end
            counter = counter + 1

            if itemType == "Weapon" then
                Hyperlink ("dual " .. objid, "[D]", "Click to dual wield " .. strip_colours(name),
                "purple","black", 0)
            end

            if itemType == "Container" then
                Hyperlink ("get all " .. objid, "[G]", "Click to get all items in " .. strip_colours(name),
                "purple","black", 0)
            end

            if itemType == "Container" then
                Hyperlink ("put all " .. objid, "[P]", "Click to put all items in " .. strip_colours(name),
                "purple","black", 0)
            end

            if itemType == "Drink Container" then
                Hyperlink ("fill " .. objid .. " fountain", "[F]", "Click to fill " .. strip_colours(name),
                "purple","black", 0)
            end

            if showRecite == "true" and itemType == "Scroll" and objid ~= nil then

                Hyperlink ("recite "  .. objid .. ";invdata","[R]",
                "Recite scroll",
                "cyan", "black", 0)
                --ColourTell("white", "Black", "|")
            end

            if showFlags == "true" and wildcards[2] ~= "" then
                ColourTell("white", "Black", "[" .. wildcards[2] .. "]")
            end


            --Show item type of item Weapons, Armor, Potion, Key, etc...
            if showType == "true" then
                ColourTell("white", "Black", " [" .. itemType .. "]")
            end

            --This will print the unique hyperlink that if item is unique
            if showU == "true" then
                if unique == "0" then
                    --Not unique
                else
                    if unique == "1" and objid ~= nil then
                        ColourTell("white", "Black", " [")
                        Hyperlink (idCommand  .. objid,"Unique",
                        "Id this item. This item might be enchanted or a clan item for it is unique.",
                        "Yellow", "black", 0)
                        ColourTell("white", "Black", "]")
                    end
                end
            end

            ColourTell("white", "Black", " |")

            --Read a note on item

            if GetVariable("note" .. objid) == nil then
                Hyperlink ("ReadItemNote " .. objid,"N",
                "Create note for this item.",
                "Yellow", "black", 0)
            else
                Hyperlink ("ReadItemNote " .. objid,"N",
                "Item Note: " .. GetVariable("note" .. objid),
                "Yellow", "black", 0)
            end

            --ColourTell("white", "Black", "]")
            ColourTell("white", "Black", "|")

            --Add a note to item
            Hyperlink ("AddItemNote " .. objid,"+",
            "Add/Change note for this item.",
            "Yellow", "black", 0)

            --ColourTell("white", "Black", "]")
            ColourTell("white", "Black", "|")

            --Delete note on a item
            Hyperlink ("DeleteItemNote " .. objid,"-",
            "Delete note for this item.",
            "Yellow", "black", 0)
            ColourTell("white", "Black", "|")

            --Delete note on a item
            Hyperlink ("copyid " .. objid,"C",
            "Copy item id to clipboard.",
            "Yellow", "black", 0)
            ColourTell("white", "Black", "| ")

            --Timer, this doesn't work for invdata maybe eqdata??
            if showTimer == "true" and wildcards[8] ~= "-1" and wildcards[8] ~= nil then
                ColourTell("white","black","[Timer:")
                ColourTell("Red","black",wildcards[8])
                ColourTell("white","black","]")
            end
            Note("\r")
        end

        NoteStyle(3)
        --Note(wildcards[8])
        --Note(wearLoc)
    end
end -- function map_redirect

function OptionsTrigger()
    --Header
    ColourTell("white","red","--------*Moshu's Inven Plugin Options*--------")
    Note("\n")
    ColourTell("red","black","\r---->   Hyperlinks Settings\r")
    Note("\n")
    --Show Id
    --Note("")
    ColourTell("white","black","Show Id:[")
    Hyperlink ("invshow id on"," TRUE ",
    "Toggle Show Id On.",
    "Green", "black", 0)
    ColourTell("white","black","|")
    Hyperlink ("invshow id off"," FALSE ",
    "Toggle Show Id Off.",
    "Red", "black", 0)
    ColourTell("white","black","] Current Value:" .. showId .. "\r")


    --Show Type
    Note("")
    ColourTell("white","black","Show Type:[")
    Hyperlink ("invshow type on"," TRUE ",
    "Toggle Show Item Type On.",
    "Green", "black", 0)
    ColourTell("white","black","|")
    Hyperlink ("invshow type off"," FALSE ",
    "Toggle Show Item Type Off.",
    "Red", "black", 0)
    ColourTell("white","black","] Current Value:" .. showType .. "\r")


    --Show Drop
    Note("")
    ColourTell("white","black","Show Drop:[")
    Hyperlink ("invshow drop on"," TRUE ",
    "Toggle Show Drop On.",
    "Green", "black", 0)
    ColourTell("white","black","|")
    Hyperlink ("invshow drop off"," FALSE ",
    "Toggle Show Drop Off.",
    "Red", "black", 0)
    ColourTell("white","black","] Current Value:" .. showDrop .. "\r")


    --Show Sell
    Note("")
    ColourTell("white","black","Show Sell:[")
    Hyperlink ("invshow sell on"," TRUE ",
    "Toggle Show Sell On.",
    "Green", "black", 0)
    ColourTell("white","black","|")
    Hyperlink ("invshow sell off"," FALSE ",
    "Toggle Show Sell Off.",
    "Red", "black", 0)
    ColourTell("white","black","] Current Value:" .. showSell .. "\r")


    --Show Look In
    Note("")
    ColourTell("white","black","Show Look In:[")
    Hyperlink ("invshow lookin on"," TRUE ",
    "Toggle Show Look In On.",
    "Green", "black", 0)
    ColourTell("white","black","|")
    Hyperlink ("invshow lookin off"," FALSE ",
    "Toggle Show Look In Off.",
    "Red", "black", 0)
    ColourTell("white","black","] Current Value:" .. showLookIn .. "\r")


    --Show Comp
    Note("")
    ColourTell("white","black","Show Compare:[")
    Hyperlink ("invshow comp on"," TRUE ",
    "Toggle Show Comp On.",
    "Green", "black", 0)
    ColourTell("white","black","|")
    Hyperlink ("invshow comp off"," FALSE ",
    "Toggle Show Comp Off.",
    "Red", "black", 0)
    ColourTell("white","black","] Current Value:" .. showComp .. "\r")


    --Show Resonate
    Note("")
    ColourTell("white","black","Show Resonate:[")
    Hyperlink ("invshow res on"," TRUE ",
    "Toggle Show Resonate On.",
    "Green", "black", 0)
    ColourTell("white","black","|")
    Hyperlink ("invshow res off"," FALSE ",
    "Toggle Show Resonate Off.",
    "Red", "black", 0)
    ColourTell("white","black","] Current Value:" .. showRes .. "\r")

    --Show Illuminate
    Note("")
    ColourTell("white","black","Show Illuminate:[")
    Hyperlink ("invshow ill on"," TRUE ",
    "Toggle Show Illuminate On.",
    "Green", "black", 0)
    ColourTell("white","black","|")
    Hyperlink ("invshow ill off"," FALSE ",
    "Toggle Show Illuminate Off.",
    "Red", "black", 0)
    ColourTell("white","black","] Current Value:" .. showIll .. "\r")

    --Show Solidify
    Note("")
    ColourTell("white","black","Show Solidify:[")
    Hyperlink ("invshow sol on"," TRUE ",
    "Toggle Show Solidify On.",
    "Green", "black", 0)
    ColourTell("white","black","|")
    Hyperlink ("invshow sol off"," FALSE ",
    "Toggle Show Solidify Off.",
    "Red", "black", 0)
    ColourTell("white","black","] Current Value:" .. showSol .. "\r")

    --Show Flags
    Note("")
    ColourTell("white","black","Show Flags:[")
    Hyperlink ("invshow flags on"," TRUE ",
    "Toggle Show Flags On.",
    "Green", "black", 0)
    ColourTell("white","black","|")
    Hyperlink ("invshow flags off"," FALSE ",
    "Toggle Show Flags Off.",
    "Red", "black", 0)
    ColourTell("white","black","] Current Value:" .. showFlags .. "*Not a hyperlink\r")

    --Show Unique
    Note("")
    ColourTell("white","black","Show Unique:[")
    Hyperlink ("invshow u on"," TRUE ",
    "Toggle Show Unique On.",
    "Green", "black", 0)
    ColourTell("white","black","|")
    Hyperlink ("invshow u off"," FALSE ",
    "Toggle Show Unique Off.",
    "Red", "black", 0)
    ColourTell("white","black","] Current Value:" .. showU .. "\r")

    Note("")--end line
end

function Display_Line (line, styles)
    local id = font_id

    -- first 2 lines in bold
    if line < 3 then
      id = font_id_bold
    end

    local left = 10
    local top =  (line - 1) * font_height + 5

    for _, v in ipairs (styles) do
        left = left + WindowText (win, id, v.text,
                               left, top, 0, 0, v.textcolour)
    end -- for each style run
end -- Display_Line


function LoadInvCap()
    LoadPlugin ("C:/Users/Moshu/Documents/Aardwolf-Mud-MUSHclient/MUSHclient/worlds/plugins/aard_inv_capture")
    Note("**Loaded Inventory Capture Plugin")
end

function GetTypeFromId(id)

    if id == 1 then
      itemType = "Light"
    end

    if id == 2 then
      itemType = "Scroll"
    end

    if id == 3 then
      itemType = "Wand"
    end
    if id == 4 then
      itemType = "Stave"
    end
    if id == 5 then
      itemType = "Weapon"
    end
    if id == 6 then
      itemType = "Treasure"
    end
    if id == 7 then
      itemType = "Armor"
    end
    if id == 8 then
      itemType = "Potion"
    end
    if id == 9 then
      itemType = "Furniture"
    end
    if id == 10 then
      itemType = "Trash"
    end
    if id == 11 then
      itemType = "Container"
    end
    if id == 12 then
      itemType = "Drink Container"
    end
    if id == 13 then
      itemType = "Key"
    end
    if id == 14 then
      itemType = "Food"
    end
    if id == 15 then
      itemType = "Boat"
    end
    if id == 16 then
      itemType = "Mob Corpse"
    end
    if id == 17 then
      itemType = "Player Corpse"
    end
    if id == 18 then
      itemType = "Fountain"
    end
    if id == 19 then
      itemType = "Pill"
    end
    if id == 20 then
      itemType = "Portal"
    end
    if id == 21 then
      itemType = "Beacon"
    end
    if id == 22 then
      itemType = "Gift Card"
    end
    if id == 23 then
      itemType = "Unused"
    end
    if id == 24 then
      itemType = "Raw Material"
    end
    if id == 25 then
      itemType = "CampFire"
    end
    --Note(itemType)
end


--=================================================================================
-- Called when plugin is first installed, including when Mush first starts.
-- This is the place to initialize stuff you need in the main plugin.
--=================================================================================
function OnPluginInstall()
   ColourTell("yellow", "black", "GEAR has been installed. Type Gear or gear to use it. Written by Moshu.\n")
   --- Get a unique name for main window
   win = GetPluginID ()  -- get a unique name
   assert(SetVariable("action1", "id "))
end


]]>


</script>

</muclient>