Useful Mudlet scripts and macro - Revision history

Syntax McBucketface: /* Trigger script */ Added some debugging and better syntax.

2022-12-17T02:39:11Z

Trigger script: Added some debugging and better syntax.

← Older revision		Revision as of 02:39, 17 December 2022
Line 209:		Line 209:
	<nowiki>local saveFolder = "E:/Other/Flexible Survival/Multiplayer/Preview Images/"		<nowiki>local saveFolder = "E:/Other/Flexible Survival/Multiplayer/Preview Images/"
	local link = matches[1]		local link = matches[1]
			link = string.gsub(link, '"', "")
			debugc("Matches 4: " .. matches[4])
			local shortLink =
			((matches[4] == nil and not matches[4] == '"') and string.gsub(link, matches[4], "") or link)
	local explodedPath = Split(matches[2] .. "." .. matches[3], "/")		local explodedPath = Split(matches[2] .. "." .. matches[3], "/")
	local file = explodedPath[#explodedPath - 1] .. "." .. explodedPath[#explodedPath]		local file = explodedPath[#explodedPath - 1] .. "." .. explodedPath[#explodedPath]

			function setUrl()
			selectString(shortLink, 1)
			setUnderline(true)
			setLink([[showImagePreview("]] .. file .. [[")]], "Show Image Preview")
			resetFormat()
			end

			registerAnonymousEventHandler(
			"sysDownloadError",
			function(event, errorFound, localFilename, usedUrl)
			debugc("There was a problem using the following URL: " .. usedUrl)
			debugc("fuction downloadErrorEventHandler, " .. errorFound)
			end,
			true
			)

	if not io.exists(saveFolder .. file) then		if not io.exists(saveFolder .. file) then
	downloadFile(saveFolder .. file, link)		downloadFile(saveFolder .. file, link)
	~~end~~		setUrl()
	~~selectString~~(~~link, 1~~)		else
	~~setUnderline(true)~~		setUrl()
	~~setLink~~(~~[[showImagePreview("]] .. file .. [[")]], "Show Image Preview"~~)		end</nowiki>
	~~resetFormat()~~</nowiki>

	=== Code ===		=== Code ===

Syntax McBucketface: /* Trigger Script */ Updated to use better debugging techniques.

2022-12-13T17:01:28Z

Trigger Script: Updated to use better debugging techniques.

← Older revision		Revision as of 17:01, 13 December 2022
Line 325:		Line 325:
	leave everything else as default		leave everything else as default

	===~~Trigger Script==~~=		<nowiki>local saveFolder = "E:/Other/Flexible Survival/Multiplayer/Preview Images/"
			local textToSelect = matches[1]
			local post = textToSelect .. ".json"
			local triggeredLineNumber = getLineNumber()

	~~<nowiki>local saveFolder = "E:/Other/Flexible Survival/Multiplayer/Preview Images/"~~		function highlighter(fileName, selectionText)
	~~local textToSelect~~ = ~~matches[~~1]		for i = triggeredLineNumber, triggeredLineNumber + 100, 1 do
	~~local shortUrl~~ = "~~https://e621~~.~~net/posts/"~~ .. ~~matches~~[2]		if not moveCursor(0, i) then
	~~local post = shortUrl ..~~ "~~.json~~"		break
	~~local triggeredLineNumber = getLineNumber~~()		end
	~~local handlerId~~		if selectString(selectionText, 1) >= 0 then
	~~handlerId =~~		break
	registerAnonymousEventHandler(		end
	"sysGetHttpDone",		end
	function(_, url, body)		setUnderline(true)
	if url == post then		setLink([[showImagePreview("]] .. fileName .. [[")]], "Show Image Preview")
	~~killAnonymousEventHandler(handlerId)~~		resetFormat()
	local json = yajl.to_value(body)		moveCursorEnd()
	local link = json.post.file.url		end
	local explodedPath = Split(link, "/")
	local file = explodedPath[#explodedPath]		registerAnonymousEventHandler(
	if not io.exists(saveFolder .. file) then		"sysGetHttpDone",
	downloadFile(saveFolder .. file, link)		function(_, url, body)
	end		if url == post then
	~~for i = triggeredLineNumber~~, ~~triggeredLineNumber + 100, 1 do~~		local json = yajl.to_value(body)
	~~if not moveCursor(0, i~~) ~~then~~		local link = json.post.file.url
	~~break~~		local explodedPath = Split(link, "/")
	~~end~~		local file = explodedPath[#explodedPath]
			if not io.exists(saveFolder .. file) then
	~~if selectString~~(~~shortUrl~~, 1) >= 0 then		downloadFile(saveFolder .. file, link)
	~~break~~		else
	end		highlighter(file)
	end		end
	~~setUnderline(~~true)		end
	~~setLink~~(~~[[showImagePreview~~(~~"]] .. file .. [[")]]~~, ~~"Show Image Preview"~~)		end,
	~~resetFormat~~()		true
	~~moveCursorEnd~~()		)
	end		registerAnonymousEventHandler(
	end		'sysGetHttpError',
	)		function(event, response, rurl)
	~~getHTTP~~(~~post~~)		if rurl == url then
	~~tempTimer~~(5, ~~[[killAnonymousEventHandler(]]~~ .. ~~handlerId .. [[~~)]])</nowiki>		display(r)
			else
			return true
			end
			end,
			true
			)
			registerAnonymousEventHandler(
			'downloaded_file',
			function(_, filename)
			-- is the file that downloaded ours?
			if not filename:find(file, 1, false) then
			highlighter(filename)
			end
			end,
			true
			)
			registerAnonymousEventHandler(
			'sysDownloadError',
			function(event, errorFound, localFilename, usedUrl)
			debugc("fuction downloadErrorEventHandler, " .. errorFound)
			end,
			true
			)
			getHTTP(post)</nowiki>

	===Known bugs===		===Known bugs===

Syntax McBucketface: /* Trigger Script */ Removed the check for invalid downloads as it wasn't working as intended.

2022-12-10T01:37:25Z

Trigger Script: Removed the check for invalid downloads as it wasn't working as intended.

← Older revision		Revision as of 01:37, 10 December 2022
Line 402:		Line 402:
	tempTimer(5, [[killAnonymousEventHandler(]] .. handlerId .. [[)]])		tempTimer(5, [[killAnonymousEventHandler(]] .. handlerId .. [[)]])
	end		end
	~~if io.exists(saveFolder .. file) then~~		for i = triggeredLineNumber, triggeredLineNumber + 100, 1 do
	for i = triggeredLineNumber, triggeredLineNumber + 100, 1 do		if not moveCursor(0, i) then
	if not moveCursor(0, i) then		break
	~~break~~
	~~end~~
	~~if selectString(textToSelect, 1) == 0 then~~
	break
	~~end~~
	end		end
	setUnderline(true)		if selectString(textToSelect, 1) == 0 then
	setLink([[showImagePreview("]] .. file .. [[")]], "Show Image Preview")		break
	resetFormat()		end
	moveCursorEnd()		end
	~~end~~</nowiki>		setUnderline(true)
			setLink([[showImagePreview("]] .. file .. [[")]], "Show Image Preview")
			resetFormat()
			moveCursorEnd()</nowiki>

	===Known bugs===		===Known bugs===
	*An error is shown in the error and debug windows saying the following: "<[string "Trigger: Rule34 Post Preview Trigger"]:4: attempt to concatenate field '?' (a nil		*An error is shown in the error and debug windows saying the following: "<[string "Trigger: Rule34 Post Preview Trigger"]:4: attempt to concatenate field '?' (a nil
	value)>". No known cause is known, but it does not seem to affect functionality. Note that the mentioned trigger would be whatever you named it. Likely same issue as the rule34 trigger.		value)>". No known cause is known, but it does not seem to affect functionality. Note that the mentioned trigger would be whatever you named it. Likely same issue as the rule34 trigger.

Syntax McBucketface: /* Trigger script */ Removed valid download check as it was not functioning.

2022-12-10T01:36:41Z

Trigger script: Removed valid download check as it was not functioning.

← Older revision		Revision as of 01:36, 10 December 2022
Line 149:		Line 149:

	=== Trigger script ===		=== Trigger script ===
	local textToSelect = matches[1]		<nowiki>local saveFolder = "E:/Other/Flexible Survival/Multiplayer/Preview Images/"
	~~<nowiki>~~local ~~post~~ = "https://e621.net/posts/" .. matches[2] .. ".json"~~</nowiki>~~		local textToSelect = matches[1]
	local triggeredLineNumber = getLineNumber()		local shortUrl = "https://e621.net/posts/" .. matches[2]
			local post = shortUrl .. ".json"
	local handlerId		local triggeredLineNumber = getLineNumber()
	handlerId = registerAnonymousEventHandler("sysGetHttpDone", function(_, url, body)		local handlerId
	if url == post then		debugc("TRIGGERED")
	killAnonymousEventHandler(handlerId)		handlerId =
			registerAnonymousEventHandler(
	local json = yajl.to_value(body)		"sysGetHttpDone",
	local link = json.post.file.url		function(_, url, body)
			if url == post then
	local explodedPath = Split(link, "/")		killAnonymousEventHandler(handlerId)
	local file = explodedPath[#explodedPath]		local json = yajl.to_value(body)
			local link = json.post.file.url
	downloadFile(~~getMudletHomeDir() .. "/Preview Images/"~~ .. file, link)		local explodedPath = Split(link, "/")
			local file = explodedPath[#explodedPath]
	moveCursor(0, ~~triggeredLineNumber~~)		if not io.exists(saveFolder .. file) then
	selectString(~~textToSelect~~,1)		downloadFile(saveFolder .. file, link)
	setUnderline(true)		end
	~~<nowiki>~~setLink([[showImagePreview("]] .. file .. [[")]],"Show Image Preview")~~</nowiki>~~		for i = triggeredLineNumber, triggeredLineNumber + 100, 1 do
	resetFormat()		if not moveCursor(0, i) then
	moveCursorEnd()		break
			end
			if selectString(shortUrl, 1) >= 0 then
			break
			end
			end
			setUnderline(true)
			setLink([[showImagePreview("]] .. file .. [[")]], "Show Image Preview")
			resetFormat()
			moveCursorEnd()
			end
	end		end
	~~end~~)		)
			getHTTP(post)
	getHTTP(post)		tempTimer(5, [[killAnonymousEventHandler(]] .. handlerId .. [[)]])</nowiki>
	~~<nowiki>~~tempTimer(5, [[killAnonymousEventHandler(]] .. handlerId .. [[)]])</nowiki>

	==Alternative Image Previewer==		==Alternative Image Previewer==

Syntax McBucketface: /* Trigger script */ Removed the check for invalid links since the fix wasn't entirely functional.

2022-12-10T01:35:23Z

Trigger script: Removed the check for invalid links since the fix wasn't entirely functional.

← Older revision		Revision as of 01:35, 10 December 2022
Line 206:		Line 206:
	downloadFile(saveFolder .. file, link)		downloadFile(saveFolder .. file, link)
	end		end
	~~if io.exists(saveFolder .. file) then~~		selectString(link, 1)
	selectString(link, 1)		setUnderline(true)
	setUnderline(true)		setLink([[showImagePreview("]] .. file .. [[")]], "Show Image Preview")
	setLink([[showImagePreview("]] .. file .. [[")]], "Show Image Preview")		resetFormat()</nowiki>
	resetFormat()
	~~end~~</nowiki>





	=== Code ===		=== Code ===

Syntax McBucketface: /* Trigger Script */ Corrected the trigger as being the code for e621. Oops.

2022-12-10T01:07:29Z

Trigger Script: Corrected the trigger as being the code for e621. Oops.

← Older revision		Revision as of 01:07, 10 December 2022
Line 379:		Line 379:
	<nowiki>local saveFolder = "E:/Other/Flexible Survival/Multiplayer/Preview Images/"		<nowiki>local saveFolder = "E:/Other/Flexible Survival/Multiplayer/Preview Images/"
	local textToSelect = matches[1]		local textToSelect = matches[1]
	local ~~shortUrl~~ = "https://~~e621~~.~~net/posts~~/" .. matches[2]		local post = "https://api.rule34.xxx/index.php?page=dapi&s=post&q=index&json=1&" .. matches[2]
	~~local post = shortUrl .. ".json"~~
	local triggeredLineNumber = getLineNumber()		local triggeredLineNumber = getLineNumber()
	local ~~handlerId~~		local explodedPath = Split(matches[2], "=")
	~~debugc(~~"~~TRIGGERED~~")		local file = "Rule34." .. explodedPath[#explodedPath] .. ".jpeg"
	handlerId =		if not io.exists(saveFolder .. file) then
	registerAnonymousEventHandler(		local handlerId
	"sysGetHttpDone",		handlerId =
	function(_, url, body)		registerAnonymousEventHandler(
	if url == post then		"sysGetHttpDone",
	killAnonymousEventHandler(handlerId)		function(_, url, body)
	local json = yajl.to_value(body)		if url == post then
	local link = json~~.post.file.url~~		killAnonymousEventHandler(handlerId)
	~~local explodedPath = Split(link, "/")~~		local json = yajl.to_value(body)
	~~local file = explodedPath~~[~~#explodedPath~~]		local link = json[1].file_url
	~~if not io.exists(saveFolder .~~. ~~file) then~~
	downloadFile(saveFolder .. file, link)		downloadFile(saveFolder .. file, link)
	~~end~~
	~~if io.exists(saveFolder .. file) then~~
	~~for i = triggeredLineNumber, triggeredLineNumber + 100, 1 do~~
	~~if not moveCursor(0, i) then~~
	~~break~~
	~~end~~
	~~if selectString(shortUrl, 1) >= 0 then~~
	~~break~~
	~~end~~
	~~end~~
	~~setUnderline(true)~~
	~~setLink([[showImagePreview("]] .. file .. [[")]], "Show Image Preview")~~
	~~resetFormat()~~
	~~moveCursorEnd()~~
	end		end
	end		end
			)
			getHTTP(post)
			tempTimer(5, [[killAnonymousEventHandler(]] .. handlerId .. [[)]])
			end
			if io.exists(saveFolder .. file) then
			for i = triggeredLineNumber, triggeredLineNumber + 100, 1 do
			if not moveCursor(0, i) then
			break
			end
			if selectString(textToSelect, 1) == 0 then
			break
	end		end
	)		end
	~~getHTTP~~(~~post~~)		setUnderline(true)
	~~tempTimer~~(5, [[~~killAnonymousEventHandler~~(]] .. ~~handlerId~~ .. [[)]])</nowiki>		setLink([[showImagePreview("]] .. file .. [[")]], "Show Image Preview")
			resetFormat()
			moveCursorEnd()
			end</nowiki>

	===Known bugs===		===Known bugs===
	*An error is shown in the error and debug windows saying the following: "<[string "Trigger: Rule34 Post Preview Trigger"]:4: attempt to concatenate field '?' (a nil		*An error is shown in the error and debug windows saying the following: "<[string "Trigger: Rule34 Post Preview Trigger"]:4: attempt to concatenate field '?' (a nil
	value)>". No known cause is known, but it does not seem to affect functionality. Note that the mentioned trigger would be whatever you named it. Likely same issue as the rule34 trigger.		value)>". No known cause is known, but it does not seem to affect functionality. Note that the mentioned trigger would be whatever you named it. Likely same issue as the rule34 trigger.

Syntax McBucketface: /* Trigger Script */ Added logic to prevent invalid URL's from highlighting text.

2022-12-10T01:05:05Z

Trigger Script: Added logic to prevent invalid URL's from highlighting text.

← Older revision		Revision as of 01:05, 10 December 2022
Line 379:		Line 379:
	<nowiki>local saveFolder = "E:/Other/Flexible Survival/Multiplayer/Preview Images/"		<nowiki>local saveFolder = "E:/Other/Flexible Survival/Multiplayer/Preview Images/"
	local textToSelect = matches[1]		local textToSelect = matches[1]
	local ~~post~~ = "https://~~api~~.~~rule34.xxx~~/~~index.php?page=dapi&s=post&q=index&json=1&~~" .. matches[2]		local shortUrl = "https://e621.net/posts/" .. matches[2]
			local post = shortUrl .. ".json"
	local triggeredLineNumber = getLineNumber()		local triggeredLineNumber = getLineNumber()
	local ~~explodedPath = Split~~(~~matches[2],~~ "=")		local handlerId
	~~local file~~ = ~~"Rule34." .. explodedPath[#explodedPath] .. ".jpeg"~~		debugc("TRIGGERED")
	~~if not io.exists(saveFolder .. file) then~~		handlerId =
	~~local handlerId~~		registerAnonymousEventHandler(
	~~handlerId =~~		"sysGetHttpDone",
	registerAnonymousEventHandler(		function(_, url, body)
	"sysGetHttpDone",		if url == post then
	function(_, url, body)		killAnonymousEventHandler(handlerId)
	if url == post then		local json = yajl.to_value(body)
	killAnonymousEventHandler(handlerId)		local link = json.post.file.url
	local json = yajl.to_value(body)		local explodedPath = Split(link, "/")
	local link = json[1].~~file_url~~		local file = explodedPath[#explodedPath]
			if not io.exists(saveFolder .. file) then
	downloadFile(saveFolder .. file, link)		downloadFile(saveFolder .. file, link)
			end
			if io.exists(saveFolder .. file) then
			for i = triggeredLineNumber, triggeredLineNumber + 100, 1 do
			if not moveCursor(0, i) then
			break
			end
			if selectString(shortUrl, 1) >= 0 then
			break
			end
			end
			setUnderline(true)
			setLink([[showImagePreview("]] .. file .. [[")]], "Show Image Preview")
			resetFormat()
			moveCursorEnd()
	end		end
	end		end
	)		end
	getHTTP(post)		)
	tempTimer(5, [[killAnonymousEventHandler(]] .. handlerId .. [[)]])		getHTTP(post)
	~~end~~		tempTimer(5, [[killAnonymousEventHandler(]] .. handlerId .. [[)]])</nowiki>
	~~for i = triggeredLineNumber, triggeredLineNumber + 100, 1 do~~
	~~if not moveCursor(0, i) then~~
	~~break~~
	~~end~~
	~~if selectString(textToSelect, 1) == 0 then~~
	~~break~~
	~~end~~
	~~end~~
	~~setUnderline(true)~~
	~~setLink([[showImagePreview("]] .. file .. [[")]], "Show Image Preview")~~
	~~resetFormat()~~
	~~moveCursorEnd(~~)</nowiki>


	===Known bugs===		===Known bugs===
	*An error is shown in the error and debug windows saying the following: "<[string "Trigger: Rule34 Post Preview Trigger"]:4: attempt to concatenate field '?' (a nil		*An error is shown in the error and debug windows saying the following: "<[string "Trigger: Rule34 Post Preview Trigger"]:4: attempt to concatenate field '?' (a nil
	value)>". No known cause is known, but it does not seem to affect functionality. Note that the mentioned trigger would be whatever you named it. Likely same issue as the rule34 trigger.		value)>". No known cause is known, but it does not seem to affect functionality. Note that the mentioned trigger would be whatever you named it. Likely same issue as the rule34 trigger.

Syntax McBucketface: Added a fix to the standard alternative trigger script to handle invalid URL's that don't result in a download

2022-12-10T01:01:26Z

Added a fix to the standard alternative trigger script to handle invalid URL's that don't result in a download

← Older revision		Revision as of 01:01, 10 December 2022
Line 199:		Line 199:
	-----------------------		-----------------------

	<nowiki>local saveFolder = ~~[[REPLACE WITH PATH TO FOLDER]]~~		<nowiki>local saveFolder = "E:/Other/Flexible Survival/Multiplayer/Preview Images/"
	local link = matches[1]		local link = matches[1]
	local explodedPath = Split( matches[2] .. "." .. matches[3], "/")		local explodedPath = Split(matches[2] .. "." .. matches[3], "/")
	local file = ~~explodedPath[#explodedPath]~~		local file = explodedPath[#explodedPath - 1] .. "." .. explodedPath[#explodedPath]
	~~local finalFile = (io.exists(saveFolder .. file) and~~ explodedPath[#explodedPath-1] .. "." .. ~~file or file)~~		if not io.exists(saveFolder .. file) then
			downloadFile(saveFolder .. file, link)
	if not io.exists(saveFolder .. ~~finalFile~~) then		end
	downloadFile(saveFolder .. ~~finalFile~~, link)		if io.exists(saveFolder .. file) then
	~~else~~		selectString(link, 1)
	~~finalFile =~~ file		setUnderline(true)
	~~end~~		setLink([[showImagePreview("]] .. file .. [[")]], "Show Image Preview")
	selectString(link,1)		resetFormat()
	setUnderline(true)		end</nowiki>
	setLink([[showImagePreview("]] .. ~~finalFile~~ .. [[")]],"Show Image Preview")
	resetFormat()</nowiki>

Syntax McBucketface: /* Trigger Script */

2022-12-08T23:24:16Z

Trigger Script

← Older revision		Revision as of 23:24, 8 December 2022
Line 414:		Line 414:
	resetFormat()		resetFormat()
	moveCursorEnd()</nowiki>		moveCursorEnd()</nowiki>


			===Known bugs===
			*An error is shown in the error and debug windows saying the following: "<[string "Trigger: Rule34 Post Preview Trigger"]:4: attempt to concatenate field '?' (a nil
			value)>". No known cause is known, but it does not seem to affect functionality. Note that the mentioned trigger would be whatever you named it. Likely same issue as the rule34 trigger.

Syntax McBucketface: /* Alternative e621 Trigger Implementation */

2022-12-08T23:23:23Z

Alternative e621 Trigger Implementation

← Older revision		Revision as of 23:23, 8 December 2022
Line 364:		Line 364:
	getHTTP(post)		getHTTP(post)
	tempTimer(5, [[killAnonymousEventHandler(]] .. handlerId .. [[)]])</nowiki>		tempTimer(5, [[killAnonymousEventHandler(]] .. handlerId .. [[)]])</nowiki>

			===Known bugs===
			*An error is shown in the error and debug windows saying the following: "<[string "Trigger: e621 Post Preview Trigger"]:4: attempt to concatenate field '?' (a nil
			value)>". No known cause is known, but it does not seem to affect functionality. Note that the mentioned trigger would be whatever you named it. Likely same issue as the rule34 trigger.

	==rule34.xxx Trigger Implementation==		==rule34.xxx Trigger Implementation==