public override void Init(LuaMachine machine) { base.Init(machine); machine.DoString(@" -- Locals local type = type local error = error local function expect( value, sExpectedType, index ) local sFoundType = type( value ) if sExpectedType and sFoundType ~= sExpectedType then error( ""Expected "" .. sExpectedType .. "" at argument #"" .. index .. "", got "" .. sFoundType, 3 ) end return value end -- System API methods local coroutine_yield = coroutine.yield local table_unpack = table.unpack function system.pullEvent( a, ... ) local tEvent if a ~= nil then tEvent = { coroutine_yield( ""terminate"", a, ... ) } else tEvent = { coroutine_yield() } end local sEvent = tEvent[1] if sEvent == ""terminate"" then error( ""Terminated"", 0 ) else return table_unpack( tEvent ) end end function system.pullEventRaw( ... ) return coroutine_yield( ... ) end local system_getDevice = system.getDevice local system_pullEvent = system.pullEvent function system.sleep( nSeconds ) expect( nSeconds, ""number"", 1 ) local clock = system_getDevice( ""clock"" ) if not clock then error( ""Error sleeping: No clock detected"", 2 ) end local nTimer = clock.startTimer( nSeconds ) while true do local sEvent, p1 = system_pullEvent( ""timer"" ) if p1 == nTimer then break end end end", "=SystemAPI.Init" ); }
private LuaArgs DoFile(LuaArgs args) { var path = args.GetString(0); if (Assets.Exists <LuaScript>(path)) { var script = LuaScript.Get(path); return(m_machine.DoString(script.Code, "@" + AssetPath.GetFileName(path))); } throw new LuaError("Script not found: " + path); }
private void PreloadAPI(LuaAPI api) { api.Init(m_machine); m_machine.DoString(string.Format(@" local g = _G local api = g[ ""{0}"" ] package.preload[ ""{0}"" ] = function() g[ ""{0}"" ] = api return api end g[ ""{0}"" ] = nil " , api.Name), "=LuaCPUDevice.PreloadAPI"); }
public override void Init(LuaMachine machine) { base.Init(machine); machine.DoString(@" -- Locals local type = type local error = error local function expect( value, sExpectedType, index ) local sFoundType = type( value ) if sExpectedType and sFoundType ~= sExpectedType then error( ""Expected "" .. sExpectedType .. "" at argument #"" .. index .. "", got "" .. sFoundType, 3 ) end return value end -- IO API local io_open = io.open local io_input = io.input local io_output = io.output local tostring = tostring local load = load function loadfile( sPath, sMode, _env ) if sPath ~= nil then expect( sPath, ""string"", 1 ) end local file, sChunkName if sPath then file = io_open( sPath ) sChunkName = ""@"" .. sPath else file = io_input() sChunkName = ""=stdin"" end if file then local sFile = file:read( ""a"" ) file:close() if _env ~= nil then return load( sFile, sChunkName, sMode, _env ) else return load( sFile, sChunkName, sMode ) end end return nil, ""File not found: "" .. sPath end local loadfile = loadfile function dofile( sPath ) if sPath ~= nil then expect( sPath, ""string"", 1 ) end local fnFile, sError = loadfile( sPath ) if fnFile then return fnFile() else error( sError, 2 ) end end local select = select function print( ... ) local nArgs = select( ""#"", ... ) local output = io_output() for n=1,nArgs do local arg = select( n, ... ) output:write( tostring(arg) ) if n<nArgs then output:write( ""\t"" ) end end output:write( ""\n"" ) end" , "=IOAPI.Init" ); }
public override void Init(LuaMachine machine) { base.Init(machine); machine.DoString(@" -- Locals local type = type local error = error local function expect( value, sExpectedType, index ) local sFoundType = type( value ) if sExpectedType and sFoundType ~= sExpectedType then error( ""Expected "" .. sExpectedType .. "" at argument #"" .. index .. "", got "" .. sFoundType, 3 ) end return value end -- Package API local package_preload = package.preload local package_searchpath = package.searchpath local package_loaded = package.loaded local package_searchers = package.searchers local pcall = pcall local loadfile = loadfile table.insert( package.searchers, function( sName ) -- Load from preload expect( sName, ""string"", 1 ) if package_preload[ sName ] ~= nil then return package_preload[ sName ] else return ""no field package.preload['"" .. sName .. ""']"" end end ) table.insert( package.searchers, function( sName ) -- Load from path expect( sName, ""string"", 1 ) if type( package.path ) ~= ""string"" then error( ""package.path must be a string"", 0 ) end local sPath, sError = package_searchpath( sName, package.path ) if sPath ~= nil then local fnFile, sError = loadfile( sPath ) if fnFile then return fnFile, sPath else return sError end else return sError end end ) local require_in_progress = {} function require( sName ) expect( sName, ""string"", 1 ) if package_loaded[ sName ] ~= nil then return package_loaded[ sName ] end if require_in_progress[ sName ] then error( ""loop detected requiring '"" .. sName .. ""'"", 2 ) end require_in_progress[ sName ] = true local ok, result = pcall( function() local sFullError = ""module '"" .. sName .. ""' not found:"" for n=1,#package_searchers do local fnSearcher = package_searchers[n] local fnLoader, sExtra = fnSearcher( sName ) if type(fnLoader) == ""function"" then local result = fnLoader( sName, sExtra ) if result ~= nil then package_loaded[ sName ] = result return result else package_loaded[ sName ] = true return true end elseif type(fnLoader) == ""string"" then sFullError = sFullError .. ""\n"" .. fnLoader end end error( sFullError, 0 ) end ) require_in_progress[ sName ] = false if ok then return result else error( result, 0 ) end end" , "=PackageAPI.Init" ); }
public ScriptController(LevelState state) { m_state = state; m_machine = new LuaMachine(); m_machine.AllowByteCodeLoading = false; m_machine.EnforceTimeLimits = true; m_machine.RemoveUnsafeGlobals(); m_activeCoroutines = new List <LuaCoroutine>(); // Install APIs and Globals m_machine.SetGlobal("io", new IOAPI(m_state).ToTable()); m_machine.SetGlobal("level", new LevelAPI(m_state).ToTable()); if (m_state is InGameState) { m_machine.SetGlobal("game", new GameAPI((InGameState)m_state).ToTable()); m_machine.SetGlobal("campaign", new CampaignAPI(m_state).ToTable()); m_machine.DoString(@"do local game_showDialogue = game.showDialogue function game.showDialogue( character, text, modal, returnImmediately ) -- Create dialog game_showDialogue( character, text, modal ) if modal ~= false and returnImmediately ~= true then while not game.isDialogueReadyToContinue() do yield() end end end local game_hideDialogue = game.hideDialogue function game.hideDialogue() -- Create dialog game_hideDialogue() while game.isDialogueVisible() do yield() end end end", "=ScriptController.ctor"); } else if (m_state is CutsceneState) { m_machine.SetGlobal("cutscene", new CutsceneAPI((CutsceneState)m_state).ToTable()); m_machine.SetGlobal("campaign", new CampaignAPI(m_state).ToTable()); } m_machine.SetGlobal("dofile", (LuaCFunction)DoFile); m_machine.DoString(@"do function expect( value, sExpectedType, nArg ) local sFoundType = type( value ) if sFoundType ~= sExpectedType then error( ""Expected "" .. sExpectedType .. "" at argument "" .. nArg .. "", got "" .. sFoundType, 3 ) end end local tResults = {} function require( s ) expect( s, ""string"", 1 ) if tResults[s] == nil then local ok, result = pcall( dofile, ""scripts/"" .. s .. "".lua"" ) if not ok then error( result, 0 ) elseif result == nil then tResults[s] = true else tResults[s] = result end end return tResults[s] end print = io.print yield = coroutine.yield function sleep( t ) expect( t, ""number"", 1 ) local l = io.getTime() + t repeat yield() until io.getTime() >= l end end", "=ScriptController.ctor"); // Start the main script m_scriptPath = m_state.Level.Info.ScriptPath; if (m_scriptPath != null) { if (Assets.Exists <LuaScript>(m_scriptPath)) { try { var script = LuaScript.Get(m_scriptPath); m_machine.DoString(script.Code, "@" + AssetPath.GetFileName(m_scriptPath)); } catch (LuaError e) { App.Log("Lua Error: {0}", e.Message); } } else { App.Log("Error: Script {0} not found", m_scriptPath); } } }
private static void Init() { if (s_animMachine == null) { s_animMachine = new LuaMachine(); s_animMachine.AllowByteCodeLoading = false; s_animMachine.EnforceTimeLimits = true; s_animMachine.RemoveUnsafeGlobals(); s_animMachine.SetGlobal("print", (LuaCFunction) delegate(LuaArgs args) { var output = new StringBuilder(); for (int i = 0; i < args.Length; ++i) { output.Append(args.ToString(i)); if (i < args.Length - 1) { output.Append(", "); } } App.UserLog(output.ToString()); return(LuaArgs.Empty); }); s_animMachine.SetGlobal("dofile", (LuaCFunction) delegate(LuaArgs args) { var path = args.GetString(0); if (Assets.Assets.Exists <LuaScript>(path)) { var script = LuaScript.Get(path); return(s_animMachine.DoString(script.Code, "@" + AssetPath.GetFileName(path))); } throw new LuaError("Script not found: " + path); }); s_animMachine.DoString( @"do function expect( value, sExpectedType, nArg ) local sFoundType = type( value ) if sFoundType ~= sExpectedType then error( ""Expected "" .. sExpectedType .. "" at argument "" .. nArg .. "", got "" .. sFoundType, 3 ) end end local tResults = {} function require( s ) expect( s, ""string"", 1 ) if tResults[s] == nil then local ok, result = pcall( dofile, ""scripts/"" .. s .. "".lua"" ) if not ok then error( result, 0 ) elseif result == nil then tResults[s] = true else tResults[s] = result end end return tResults[s] end abs = math.abs floor = math.floor ceil = math.ceil min = math.min max = math.max pow = math.pow sqrt = math.sqrt pi = math.pi function clamp( x, low, hi ) expect( x, ""number"", 1 ) expect( low, ""number"", 2 ) expect( hi, ""number"", 3 ) if x < low then return low elseif x > hi then return hi else return x end end local math_rad, math_deg = math.rad, math.deg local math_sin, math_cos, math_tan = math.sin, math.cos, math.tan local math_asin, math_acos, math_atan = math.asin, math.acos, math.atan function sin( x ) expect( x, ""number"", 1 ) return math_sin( math_rad( x ) ) end function cos( x ) expect( x, ""number"", 1 ) return math_cos( math_rad( x ) ) end function tan( x ) expect( x, ""number"", 1 ) return math_tan( math_rad( x ) ) end function asin( x ) expect( x, ""number"", 1 ) return math_deg( math_asin( x ) ) end function acos( x ) expect( x, ""number"", 1 ) return math_deg( math_acos( x ) ) end function atan( x ) expect( x, ""number"", 1 ) return math_deg( math_atan( x ) ) end function atan2( y, x ) expect( y, ""number"", 1 ) expect( x, ""number"", 2 ) return math_deg( math_atan( y, x ) ) end function ease( f ) expect( f, ""number"", 1 ) f = clamp( f, 0.0, 1.0 ) return (3 - 2*f) * f * f end function lerp( a, b, f ) expect( a, ""number"", 1 ) expect( b, ""number"", 2 ) expect( f, ""number"", 3 ) return a + (b-a) * f end function lerp3( x0, y0, z0, x1, y1, z1, f ) expect( x0, ""number"", 1 ) expect( y0, ""number"", 2 ) expect( z0, ""number"", 3 ) expect( x1, ""number"", 4 ) expect( y1, ""number"", 5 ) expect( z1, ""number"", 6 ) expect( f, ""number"", 7 ) return lerp(x0, x1, f), lerp(y0, y1, f), lerp(z0, z1, f) end function step( a, x ) expect( a, ""number"", 1 ) expect( x, ""number"", 2 ) return (x >= a) and 1 or 0 end function smoothstep( a, b, x ) expect( a, ""number"", 1 ) expect( b, ""number"", 2 ) expect( x, ""number"", 3 ) local f = clamp( (x - a) / (b - a), 0, 1 ) return ease(f) end function rot2D( x, y, a, xo, yo ) expect( x, ""number"", 1 ) expect( y, ""number"", 2 ) expect( a, ""number"", 3 ) if xo then expect( xo, ""number"", 4 ) end if yo then expect( yo, ""number"", 5 ) end xo = xo or 0 yo = yo or 0 local ar = -math_rad(a) local ca, sa = math_cos(ar), math_sin(ar) return xo + (x - xo) * ca - (y - yo) * sa, yo + (x - xo) * sa + (y - yo) * ca end function setpos( part, x, y, z ) expect( part, ""table"", 1 ) expect( x, ""number"", 2 ) expect( y, ""number"", 3 ) expect( z, ""number"", 4 ) part.x = x part.y = y part.z = z end function lookat( part, x, y, z ) expect( part, ""table"", 1 ) expect( x, ""number"", 2 ) expect( y, ""number"", 3 ) expect( z, ""number"", 4 ) local dx = x - part.x local dy = y - part.y local dz = z - part.z local dxz = sqrt( dx*dx + dz*dz ) part.ry = -atan2( dx, -dz ) part.rx = atan2( dy, dxz ) part.rz = 0 end local tAnimations = {} function install_animation( sAnimName, sAnimCode, sChunkName ) local tAnimEnv = {} setmetatable( tAnimEnv, { __index = _ENV } ) local fnAnim, sError = load( sAnimCode, sChunkName, ""t"", tAnimEnv ) if fnAnim then local ok, sError = pcall( fnAnim ) if ok then tAnimations[ sAnimName ] = tAnimEnv.animate else tAnimations[ sAnimName ] = nil error( sError, 0 ) end else tAnimations[ sAnimName ] = nil error( sError, 0 ) end end local tPart = {} function call_animation( sAnimName, sPartName, nTime ) tPart.name = sPartName tPart.hide = false tPart.x, tPart.y, tPart.z = 0,0,0 tPart.rx, tPart.ry, tPart.rz = 0,0,0 tPart.sx, tPart.sy, tPart.sz = 1,1,1 tPart.u, tPart.v = 0,0 tPart.su, tPart.sv = 1,1 tPart.r, tPart.g, tPart.b, tPart.a = 1,1,1,1 tPart.fov = nil local fnAnimate = tAnimations[sAnimName] if fnAnimate then fnAnimate( tPart, nTime ) end return tPart.hide, tPart.x, tPart.y, tPart.z, tPart.rx, tPart.ry, tPart.rz, tPart.sx, tPart.sy, tPart.sz, tPart.u, tPart.v, tPart.su, tPart.sv, tPart.r, tPart.g, tPart.b, tPart.a, tPart.fov end end", "=LuaAnimation.Init" ); s_install_animation = s_animMachine.GetGlobal("install_animation").GetFunction(); s_call_animation = s_animMachine.GetGlobal("call_animation").GetFunction(); } }