You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
184 lines
7.5 KiB
184 lines
7.5 KiB
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
<!DOCTYPE muclient>
|
|
<!-- Saved on Wednesday, March 09, 2022, 11:04 AM -->
|
|
<!-- MuClient version 5.07-pre -->
|
|
|
|
<!-- Plugin "RoomCharWindow" generated by Plugin Wizard -->
|
|
|
|
<muclient>
|
|
<plugin name="NoteWindow" author="Crowley" id="c49e43d9dce931263263088b" language="Lua" purpose="Note output and hyperlinks" save_state="y" date_written="2022-03-09 11:02:09" requires="5.07" version="1.0" sequence="10">
|
|
|
|
</plugin>
|
|
<!-- Aliases -->
|
|
|
|
<aliases>
|
|
<alias match="^(note(?: read(?: \d+| last| again)?)?)$" enabled="y" regexp="y" script="startNoteRead" sequence="100">
|
|
</alias>
|
|
|
|
<alias match="^notewin (on|off|show|hide|clear|help)$" enabled="y" regexp="y" ignore_case="y" script="toggleNoteWin" sequence="100">
|
|
</alias>
|
|
|
|
<alias match="^(note\s?(?:list(?:\s\d+)?|unread|to\s\w+|from\s\w+|subj\s.+)?)$" enabled="y" regexp="y" script="startNoteList" sequence="100">
|
|
</alias>
|
|
</aliases>
|
|
|
|
<script>
|
|
<![CDATA[
|
|
local extras = require "aard_lua_extras"
|
|
require "gmcphelper"
|
|
local snapshotV = tonumber(extras.PackageVersion())
|
|
|
|
local prefix = GetAlphaOption("script_prefix")
|
|
|
|
if (snapshotV< 2245) or (snapshotV < 2252 and tonumber(gmcp("char.base.level")) > 201) then
|
|
ColourNote("white", "blue", "Sorry, your snapshot of the AardMUSH package is not compatible for your level and you will not be able to use this script. Please update your snapshot of the AardMUSH package to use this plugin. Unloading plugin to prevent issues.")
|
|
Execute(prefix .. 'DoAfterSpecial(1, "UnloadPlugin(\'' .. GetPluginID() .. '\')", sendto.script)')
|
|
else
|
|
require "wrapped_captures"
|
|
end
|
|
|
|
require 'themed_miniwindows'
|
|
|
|
if not GetVariable("noteShow") then
|
|
SetVariable("noteShow", "true")
|
|
noteShow = GetVariable("noteShow")
|
|
else
|
|
noteShow = GetVariable("noteShow")
|
|
end
|
|
|
|
function OnPluginInstall()
|
|
NotesWin = ThemedTextWindow(
|
|
"Notes", -- string, required, a unique identifier for this window
|
|
200, -- integer, required, where to put it if the player hasn't moved it
|
|
200, -- integer, required, where to put it if the player hasn't moved it
|
|
840, -- integer, required, how big to make it if the player hasn't moved it
|
|
500, -- integer, required, how big to make it if the player hasn't moved it
|
|
"Note", -- string, optional (nil means no titlebar), text to put into the title
|
|
"center", -- string, optional (default is "center"), "left", "center", or "right"
|
|
true, -- boolean, optional (default is false), true adds a close button in the top left
|
|
true, -- boolean, optional (default is false), make the window resizeable
|
|
true, -- boolean, optional (default is false), add a scrollbar and mousewheel scrolling
|
|
true, -- boolean, optional (default is false), make the text selectable
|
|
true, -- boolean, optional (default is false), make the text copyable via right-click
|
|
true, -- boolean, optional (default is false), turn detected URLs into clickable links
|
|
true, -- boolean, optional (default is false), automatically wrap text lines that are too wide
|
|
GetAlphaOption("output_font_name"), -- string, optional (default is Dina), override the title font name
|
|
GetOption("output_font_height"), -- integer, optional (default is 10), override the title font size
|
|
GetAlphaOption("output_font_name"), -- string, optional (default is Dina), override the body text font name
|
|
GetOption("output_font_height"), -- integer, optional (default is 10), override the body text font size
|
|
1000, -- integer, optional (default is 1000), maximum number of text lines to keep
|
|
5, -- integer, optional (default is 5 pixels), space between text and miniwindow frame
|
|
true -- boolean, optional (default is false), true will prevent the window from appearing until you call :show() on it
|
|
)
|
|
end
|
|
|
|
function startNoteRead(name, line, wildcards)
|
|
local param = wildcards[1]
|
|
if noteShow == "true" then
|
|
if not WindowInfo("Notes", 1) then OnPluginInstall() end
|
|
NotesWin:clear(false)
|
|
Capture.untagged_output(param, true, true, true, addToWindow, false)
|
|
else
|
|
Send(param)
|
|
end
|
|
end
|
|
|
|
function startNoteList(name, line, wildcards)
|
|
local param = wildcards[1]
|
|
Capture.untagged_output(param, true, true, true, hyperlinknotes, false)
|
|
end
|
|
|
|
function addToWindow(lines)
|
|
NotesWin:clear(false)
|
|
NotesWin:add_text(lines, false)
|
|
|
|
NotesWin:fit_contents(850, 500)
|
|
NotesWin:set_scroll(1)
|
|
NotesWin:show()
|
|
end
|
|
|
|
function findBoundaries(tbl)
|
|
local start_idx = 1
|
|
while start_idx<= #tbl and not tbl[start_idx][2]:find("~") and not tbl[start_idx][2]:find("No more new posts") do
|
|
start_idx = start_idx + 1
|
|
end
|
|
|
|
local end_idx = #tbl
|
|
while end_idx >= 1 and not tbl[end_idx][2]:find("~") and not tbl[end_idx][2]:find("There are no new") do
|
|
end_idx = end_idx - 1
|
|
end
|
|
|
|
if start_idx > 1 then
|
|
table.remove(tbl, 1)
|
|
start_idx = start_idx - 1
|
|
end
|
|
|
|
if end_idx < #tbl then
|
|
table.remove(tbl)
|
|
end_idx = end_idx - 1
|
|
end
|
|
|
|
for i = end_idx, start_idx, -1 do
|
|
table.remove(tbl, i)
|
|
end
|
|
|
|
local lines = {}
|
|
for _, entry in ipairs(tbl) do
|
|
table.insert(lines, entry[2])
|
|
end
|
|
|
|
return lines
|
|
end
|
|
|
|
function hyperlinknotes(lines)
|
|
for i,v in ipairs(findBoundaries(lines)) do
|
|
if i < 5 or i == #lines then
|
|
Simulate(stylesToANSI(v) .. "\n")
|
|
else
|
|
for j,k in ipairs(v) do
|
|
if j == 2 then
|
|
Hyperlink(prefix .. "Execute('note read " .. string.gsub(k.text, " ", "") .. "')", k.text, "note read " .. string.gsub(k.text, " ", ""), RGBColourToName(k.textcolour), RGBColourToName(k.backcolour))
|
|
else
|
|
ColourTell(RGBColourToName(k.textcolour), RGBColourToName(k.backcolour), k.text)
|
|
end
|
|
end
|
|
Note("")
|
|
end
|
|
end
|
|
end
|
|
|
|
function toggleNoteWin(name, line, wildcards)
|
|
local noteOpt = wildcards[1]
|
|
|
|
if noteOpt == "on" then
|
|
noteShow = "true"
|
|
SetVariable("noteShow", noteShow)
|
|
ColourNote("white", "blue", "Note Extender: Displaying notes in window.")
|
|
elseif noteOpt == "off" then
|
|
noteShow = "false"
|
|
SetVariable("noteShow", noteShow)
|
|
ColourNote("white", "blue", "Note Extender: Displaying notes in main output.")
|
|
elseif noteOpt == "show" then
|
|
NotesWin:fit_contents(850, 500)
|
|
NotesWin:show()
|
|
elseif noteOpt == "hide" then
|
|
NotesWin:hide()
|
|
elseif noteOpt == "clear" then
|
|
NotesWin:clear(false)
|
|
NotesWin:hide()
|
|
elseif noteOpt == "help" then
|
|
onHelp()
|
|
end
|
|
end
|
|
|
|
function onHelp()
|
|
ColourNote("yellow", "", "Basic commands:")
|
|
ColourNote("orange", "", string.format("%-30s - %s", "notewin <on|off>", "Toggles where notes are displayed (window or output)."))
|
|
ColourNote("orange", "", string.format("%s-30s - %s", "notewin <show|hide>", "Shows or hides the note window."))
|
|
ColourNote("orange", "", string.format("%-30s - %s", "notewin clear", "Clears the note window of existing content."))
|
|
end
|
|
|
|
]]>
|
|
</script>
|
|
</muclient>
|