AardCrowley-Aardwolf-Scripts/Note_Write_Helper/Note_Write_Helper.xml

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<!-- Saved on Sunday, August 16, 2015, 9:00 AM -->
<!-- MuClient version 4.98 -->

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

<muclient>
<plugin
   name="Note_Write_Helper"
   author="Arcidayne"
   id="291e6a78b7457b70ebf24375"
   language="Lua"
   purpose="Preformats long lines to break at 79 characters with respect to full words."
   save_state="y"
   date_written="2015-08-16 08:56:28"
   requires="4.00"
   version="2.1"
   >
<description trim="y">
<![CDATA[
Instead of using the note formatter tool, or figuring out how long your line of text is, this plugin will do it for you!

nw <text>           No indent character; takes a long line and formats linewraps it.
nwi <char> <text>   Same as above, except it takes an indent character.
nnw <reply|new>     Opens up an editor box so you can just type the whole note at once.

##Examples##

nw This is a long line of text that would be formatted to break at 79 characters with respect to the word boundaries.

returns

This is a long line of text that would be formatted to break at 79 characters with
respect to the word boundaries.

nwi > This is a long line of text that would be formatted to break at 79 characters with respect to the word boundaries.

returns

>This is a long line of text that would be formatted to break at 79 characters with 
>respect to the word boundaries.

As a side note, in order to post blank lines, you will need to use @w for each blank line. I may or may not fix it in the future.

]]>
</description>

</plugin>


<!--  Aliases  -->

<aliases>
  <alias
   match="^nw (.*)$"
   enabled="y"
   group="NoteHelper"
   regexp="y"
   send_to="12"
   sequence="100"
  >
  <send>Send(note_wrap("%1"))</send>
  </alias>
  <alias
   match="^nwi\s(.*?)\s(.*)$"
   enabled="y"
   group="NoteHelper"
   regexp="y"
   send_to="12"
   sequence="100"
  >
  <send>Send(note_wrap("%2", 79, "%1"))</send>
  </alias>

  <alias
    match="^nnw (new|reply)$"
    enabled="y"
    group="NoteHelper"
    regexp="y"
    send_to="12"
    sequence="100"
    >
    <send>noteeditor("%1")</send>
  </alias>
</aliases>

<!--  Script  -->


<script>
<![CDATA[
function note_wrap(str, limit, indent, indent1)
   indent = indent or ""
   indent1 = indent1 or indent
   limit = limit or 79
   local here = 1-#indent1
   local last_color = ''
   return indent1..str:gsub("(%s+)()(%S+)()",
     function(sp, st, word, fi)
       local delta = 0
       local color_before_current_word = last_color
       word:gsub('()@([@%a])', 
         function(pos, c)
           if c == '@' then 
             delta = delta + 1 
           elseif c == 'x' then 
             delta = delta + 5
             last_color = word:sub(pos, pos+4)
           else                 
             delta = delta + 2 
             last_color = word:sub(pos, pos+1)
          end
         end)
       here = here + delta
       if fi-here > limit then
         here = st - #indent + delta
         return "\n"..indent..color_before_current_word..word
       end
    end)
end

function noteeditor(str)
  local board_table = {
  {"Announce", "N"}, 
  {"Mudinfo", "N"}, 
  {"General", "Y"}, 
  {"Misc", "Y"}, 
  {"Claninfo", "Y"}, 
  {"Clan", "Y"}, 
  {"Tech", "Y"}, 
  {"Ideas", "Y"}, 
  {"Rankings", "N"}, 
  {"Forsale", "Y"}, 
  {"Roleplay", "Y"}, 
  {"Art", "Y"}, 
  {"Games", "Y"}, 
  {"Typos", "Y"}, 
  {"Bugs", "Y"}, 
  {"Upgrades", "Y"},
  {"Personal", "Y"}, 
  {"Lottery", "N"}, 
  {"Lasertag", "N"}, 
  {"Jokes", "Y"}, 
  {"Raiding", "Y"}, 
  {"Voting", "N"}, 
  {"Mafia", "N"}, 
  {"Gquest", "N"}, 
  {"Epics","Y"}
  }


  local note, note_to, note_subj, note_to_send, board_check = false, false, false, false, false
  
  if str == "new" then
    note_board = utils.inputbox("To which board are you posting?", "Board")

    for _,v in ipairs(board_table) do
      if string.upper(v[1]) == string.upper(note_board) and v[2] == "Y" then
        board_check = true
        break
      end
    end

    if board_check then
      note_to = utils.inputbox("To whom are you writing the note?", "To list", "all")
    
      if note_to then
        note_to_send = "board " .. note_board .. ";note write " .. note_to
        note_subj = utils.inputbox("What is the subject of your note?", "Subject")
      
        if not note_subj then
          note_subj = ".q"
          note_to_send = "echo Note cancelled!"
        end -- end note_subj    
      else
        note_to_send = "echo Note cancelled!"
      end -- end note_to
    else
      note_to_send = "echo Note cancelled!"
    end

  elseif str == "reply" then
    note_to = utils.inputbox("To which note are you replying?", "Note number")
    if note_to then
      note_to_send = "note reply " .. note_to or ""
    else
      note_to_send = "echo Note cancelled!"
    end -- end note_to
  end

  Execute(note_to_send)

  if note_to_send ~= "echo Note cancelled!" then
    if note_subj then
      Send(note_subj)
    end

    note = utils.editbox("Write your note.", "Note Writer Box")

    if note then
      for line in note:gmatch("[^%c]+[%c+]?") do 
        Send(note_wrap(line))
        --Send(" ")
      end
      Send(".s")
    else
      Send(".q")
    end
  end
end
]]>
</script>


<!--  Plugin help  -->

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

<script>
<![CDATA[
function OnHelp ()
  world.Note (world.GetPluginInfo (world.GetPluginID (), 3))
end
]]>
</script> 

</muclient>