GetResourceScripts - Revision history

Wassmas at 21:36, 26 June 2025

2025-06-26T21:36:00Z

← Older revision		Revision as of 21:36, 26 June 2025
Line 28:		Line 28:
	end		end
	end		end
			xmlUnloadFile(theMeta)
	return scripts		return scripts
	end		end

Wassim Masmoudi: /* Credits */

2014-12-01T21:12:20Z

Credits

← Older revision		Revision as of 21:12, 1 December 2014
Line 89:		Line 89:

	==Credits==		==Credits==
	*'''Author:''': WASSIm.		*'''Author:''' WASSIm.

	==See Also==		==See Also==
	{{Useful_Functions}}		{{Useful_Functions}}

Wassim Masmoudi: /* Example */

2014-12-01T21:11:56Z

Example

← Older revision		Revision as of 21:11, 1 December 2014
Line 39:		Line 39:
	addCommandHandler("compile",		addCommandHandler("compile",
	function (source, cmd, resourceName)		function (source, cmd, resourceName)
	~~outputChatBox("STARTED COMPILING",source,255,0,0,true)~~
	local resource = getResourceFromName(resourceName)		local resource = getResourceFromName(resourceName)
	for i, script in ipairs (getResourceScripts(resource)) do		if (resource) then
	local ~~theScript~~ = ~~fileOpen(~~":"..resourceName.."/"..script~~..""~~, true)		for i, script in ipairs (getResourceScripts(resource)) do
	local ~~theScriptN~~ = ~~script~~		local localFile = ":"..resourceName.."/"..script
	if (~~theScript~~) then		local theScript = fileExists(localFile) and fileOpen(localFile, true)
	fetchRemote("http://luac.mtasa.com/?compile=1&debug=0&obfuscate=1", myCallback, ~~fileRead~~(~~theScript~~, ~~500000000~~), ~~true~~,~~resourceName~~,~~theScriptN~~)		if (theScript) then
			local code = fileRead(theScript, fileGetSize(theScript)), fileClose(theScript)
			if not (string.byte(code) == 28) then
			if (fetchRemote("http://luac.mtasa.com/?compile=1&debug=0&obfuscate=1", myCallback, code, true, localFile, source)) then
			outputChatBox(localFile..": Start copy compile script...", source, 0, 255, 0)
			else
			outputChatBox(localFile..": Problem fetch remort", source, 255, 0, 0)
			end
			else
			outputChatBox(localFile..": Already compiled", source, 255, 0, 0)
			end
			else
			outputChatBox(localFile..": Does not exist or script don't opened", source, 255, 0, 0)
	end		end
	end		end
			else
			outputChatBox(resourceName..": Does not exist", source, 255, 0, 0)
	end		end
	)		end)


	function myCallback(responseData, errno,~~resourceName~~,~~theScript~~)		function myCallback(responseData, errno, localFile, source)
	if errno == 0 then		if (errno == 0) and (responseData) then
	if (string.find(responseData, "ERROR")) then		local localFileC = localFile.."c"
	~~outputConsole~~(~~":"..resourceName~~.."/: "..responseData~~..""~~, source)		if (string.find(responseData, "ERROR")) then
	else		outputChatBox(localFile..": "..responseData, source, 255, 0, 0)
	local theScriptC = fileCreate(~~":"..resourceName.."/"..theScript.."c"~~)		else
	fileWrite(theScriptC, responseData)		if (fileExists(localFileC)) then fileDelete(localFileC) end
	fileClose(theScriptC)		local theScriptC = fileCreate(localFileC)
	if (~~responseData) then~~		if (theScriptC) then
	~~outputConsole(""..resourceName.."/"..theScript~~..": Successfully compiled", source)		fileWrite(theScriptC, responseData)
	else		fileClose(theScriptC)
	~~outputConsole~~(~~""..resourceName.."/"..theScript~~..": Failed to compiled", source)		outputChatBox(localFile..": Successfully compiled", source, 0, 255, 0)
	end		else
	end		outputChatBox(localFile..": Failed to compiled", source, 255, 0, 0)
	end		end
			end
			else
			outputChatBox(localFile..": Failed get compiled code", source, 255, 0, 0)
			end
	end		end
	</syntaxhighlight>		</syntaxhighlight>

Kevin Gross: Final minor edit

2014-12-01T20:22:40Z

Final minor edit

← Older revision		Revision as of 20:22, 1 December 2014
Line 57:		Line 57:
	outputConsole(":"..resourceName.."/: "..responseData.."", source)		outputConsole(":"..resourceName.."/: "..responseData.."", source)
	else		else
	local theScriptC = fileCreate(":"..resourceName.."/"..theScript..".c")		local theScriptC = fileCreate(":"..resourceName.."/"..theScript.."c")
	fileWrite(theScriptC, responseData)		fileWrite(theScriptC, responseData)
	fileClose(theScriptC)		fileClose(theScriptC)

Kevin Gross: Minor edit / Tabulation

2014-12-01T20:22:17Z

Minor edit / Tabulation

← Older revision		Revision as of 20:22, 1 December 2014
Line 39:		Line 39:
	addCommandHandler("compile",		addCommandHandler("compile",
	function (source, cmd, resourceName)		function (source, cmd, resourceName)
	outputChatBox("STARTED COMPILING",source,255,0,0,true)		outputChatBox("STARTED COMPILING",source,255,0,0,true)
	local resource = getResourceFromName(resourceName)		local resource = getResourceFromName(resourceName)
	for i, script in ipairs (getResourceScripts(resource)) do		for i, script in ipairs (getResourceScripts(resource)) do
	local theScript = fileOpen(":"..resourceName.."/"..script.."", true)		local theScript = fileOpen(":"..resourceName.."/"..script.."", true)
	local theScriptN = script		local theScriptN = script
	if (theScript) then		if (theScript) then
	fetchRemote("http://luac.mtasa.com/?compile=1&debug=0&obfuscate=1", myCallback, fileRead(theScript, 500000000), true,resourceName,theScriptN)		fetchRemote("http://luac.mtasa.com/?compile=1&debug=0&obfuscate=1", myCallback, fileRead(theScript, 500000000), true,resourceName,theScriptN)
Line 57:		Line 57:
	outputConsole(":"..resourceName.."/: "..responseData.."", source)		outputConsole(":"..resourceName.."/: "..responseData.."", source)
	else		else
	local theScriptC = fileCreate(":"..resourceName.."/"..theScript..".~~luac~~")		local theScriptC = fileCreate(":"..resourceName.."/"..theScript..".c")
	fileWrite(theScriptC, responseData)		fileWrite(theScriptC, responseData)
	fileClose(theScriptC)		fileClose(theScriptC)

Kevin Gross: Fixed Example

2014-12-01T20:19:48Z

Fixed Example

← Older revision		Revision as of 20:19, 1 December 2014
Line 37:		Line 37:
	<section name="Server" class="server" show="true">		<section name="Server" class="server" show="true">
	<syntaxhighlight lang="lua">		<syntaxhighlight lang="lua">

	addCommandHandler("compile",		addCommandHandler("compile",
	function (source, cmd, resourceName)		function (source, cmd, resourceName)
			outputChatBox("STARTED COMPILING",source,255,0,0,true)
	local resource = getResourceFromName(resourceName)		local resource = getResourceFromName(resourceName)
	for i, script in ipairs (getResourceScripts(resource)) do		for i, script in ipairs (getResourceScripts(resource)) do
	local theScript = fileOpen(":"..resourceName.."/"..script.."", true)		local theScript = fileOpen(":"..resourceName.."/"..script.."", true)
			local theScriptN = script
	if (theScript) then		if (theScript) then
	function myCallback(responseData, errno)		fetchRemote("http://luac.mtasa.com/?compile=1&debug=0&obfuscate=1", myCallback, fileRead(theScript, 500000000), true,resourceName,theScriptN)
			end
			end
			end
			)


			function myCallback(responseData, errno,resourceName,theScript)
	if errno == 0 then		if errno == 0 then
	if (string.find(responseData, "ERROR")) then		if (string.find(responseData, "ERROR")) then
	outputConsole(":"..resourceName.."/~~"..theScript.."~~: "..responseData.."", source)		outputConsole(":"..resourceName.."/: "..responseData.."", source)
	else		else
	local theScriptC = fileCreate(":"..resourceName.."/"..theScript.."")		local theScriptC = fileCreate(":"..resourceName.."/"..theScript..".luac")
	fileWrite(theScriptC, responseData)		fileWrite(theScriptC, responseData)
	fileClose(theScriptC)		fileClose(theScriptC)
Line 58:		Line 66:
	end		end
	end		end
	~~end~~		end
	~~fetchRemote("http://luac.mtasa.com/?compile=1&debug=0&blockdecompile=1&encrypt=1", myCallback, fileRead(theScript, 500000000), true)~~		end
	~~end~~
	~~end~~
	end
	end)
	</syntaxhighlight>		</syntaxhighlight>
	</section>		</section>

WASSIm.: /* Example */

2014-05-31T21:27:18Z

Example

← Older revision		Revision as of 21:27, 31 May 2014
Line 37:		Line 37:
	<section name="Server" class="server" show="true">		<section name="Server" class="server" show="true">
	<syntaxhighlight lang="lua">		<syntaxhighlight lang="lua">

	addCommandHandler("compile",		addCommandHandler("compile",
	function (source, cmd, resourceName)		function (source, cmd, resourceName)
Line 57:		Line 58:
	end		end
	end		end
	~~fetchRemote("http://luac.mtasa.com/?compile=1&debug=0&blockdecompile=1&encrypt=1", myCallback, fileRead(theScript, 500000000), true)~~
	end		end
			fetchRemote("http://luac.mtasa.com/?compile=1&debug=0&blockdecompile=1&encrypt=1", myCallback, fileRead(theScript, 500000000), true)
	end		end
	end		end

WASSIm.: /* Example */

2014-05-31T21:24:37Z

Example

← Older revision		Revision as of 21:24, 31 May 2014
Line 66:		Line 66:
	</section>		</section>

	Author: WASSIm.		==Credits==
			*'''Author:''': WASSIm.

	==See Also==		==See Also==
	{{Useful_Functions}}		{{Useful_Functions}}

WASSIm. at 23:05, 27 January 2014

2014-01-27T23:05:07Z

← Older revision		Revision as of 23:05, 27 January 2014
Line 5:		Line 5:

	==Syntax==		==Syntax==
	<syntaxhighlight lang="lua">~~bool~~ getResourceScripts ( resource theResource )</syntaxhighlight>		<syntaxhighlight lang="lua">table getResourceScripts ( resource theResource )</syntaxhighlight>

	===Required Arguments===		===Required Arguments===

WASSIm.: /* Example */

2014-01-10T03:59:22Z

Example

← Older revision		Revision as of 03:59, 10 January 2014
Line 48:		Line 48:
	outputConsole(":"..resourceName.."/"..theScript..": "..responseData.."", source)		outputConsole(":"..resourceName.."/"..theScript..": "..responseData.."", source)
	else		else
	local theScriptC = fileCreate(":"..resourceName.."/"..~~src~~.."")		local theScriptC = fileCreate(":"..resourceName.."/"..theScript.."")
	fileWrite(theScriptC, responseData)		fileWrite(theScriptC, responseData)
	fileClose(theScriptC)		fileClose(theScriptC)