private CPUUpdateResult ReallyBoot(LuaMount bootMount)
{
if (m_machine != null)
{
throw new InvalidOperationException();
}
// Check if the system has any RAM
if (m_computer.Memory.TotalMemory == 0)
{
m_computer.ErrorOutput.WriteLine("Error starting CPU: No RAM");
return(m_isMainCPU ? CPUUpdateResult.Shutdown : CPUUpdateResult.Continue);
}
// Mount the ROM
m_fileSystem.Mount(bootMount, FilePath.Empty, FilePath.Empty, true);
// Check if the boot path exists
var bootPath = new FilePath("boot.lua");
if (!m_fileSystem.Exists(bootPath) || m_fileSystem.IsDir(bootPath))
{
m_computer.ErrorOutput.WriteLine("Error starting CPU: ROM does not countain {0}", bootPath);
m_fileSystem.UnmountAll();
return(m_isMainCPU ? CPUUpdateResult.Shutdown : CPUUpdateResult.Continue);
}
// Init lua machine
m_machine = new LuaMachine(m_computer.Memory);
m_machine.AllowByteCodeLoading = false;
m_machine.EnforceTimeLimits = true;
try
{
// Remove default APIs we don't want
m_machine.RemoveUnsafeGlobals();
// Install basic APIs
if (m_computer.Host != null)
{
m_machine.SetGlobal("_HOST", m_computer.Host);
}
InstallAPI(new IOAPI(m_computer, m_fileSystem));
InstallAPI(new OSAPI(m_computer, this, m_fileSystem));
InstallAPI(new PackageAPI(m_computer, m_fileSystem));
// Install custom APIs
PreloadAPI(new SystemAPI(m_computer, this));
PreloadAPI(new FSAPI(m_computer, m_fileSystem));
}
catch (LuaError e)
{
m_computer.ErrorOutput.WriteLine("Error starting CPU: {0}", e.Message);
Halt();
return(m_isMainCPU ? CPUUpdateResult.Shutdown : CPUUpdateResult.Continue);
}
// Load the boot script
try
{
string bootScript;
using (var reader = m_fileSystem.OpenForRead(bootPath))
{
bootScript = reader.ReadToEnd();
}
var bootFunction = m_machine.LoadString(bootScript, "@" + bootPath);
m_mainRoutine = m_machine.CreateCoroutine(bootFunction);
m_eventFilter.Clear();
}
catch (IOException e)
{
m_computer.ErrorOutput.WriteLine("Error loading {0}: {1}", bootPath, e.Message);
Halt();
return(m_isMainCPU ? CPUUpdateResult.Shutdown : CPUUpdateResult.Continue);
}
catch (LuaError e)
{
m_computer.ErrorOutput.WriteLine("Error parsing {0}: {1}", bootPath, e.Message);
Halt();
return(m_isMainCPU ? CPUUpdateResult.Shutdown : CPUUpdateResult.Continue);
}
// Start the boot script
m_eventFilter.Clear();
return(Resume(LuaArgs.Empty));
}
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();
}
}
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);
}
}
}
public virtual void Init(LuaMachine machine)
{
machine.SetGlobal(Name, GetMethodTable());
}