--here is where all registered functions will liveGLOBAL_DISPATCH={}--use this function to load and register a scripts funcitonsfunction RegisterScript(scriptFile)	local key = scriptFile;		if (GLOBAL_DISPATCH[key]~=nil) then		print("script already registered");		return true;	end		local funcTable={}		--make sure these globals functions are nil before hand	Initialize=nil;	Shutdown=nil;	Update=nil;		--nfLoadAndRun is a C fucntion which loads and runs a script	--i don't know how to do  this from Lua, but in C you do 	--loadfile the do a pcall and that will load and run the script	local err = nfLoadAndRun(scriptFile)		if (err~=nil) then		print("Failed to load and execute script");		print(err);	--this should contain error message		return false;	end		--after the script has been loaded we can now store away these	--global, doesn't mater if they are nil, since dsipatcher will	--not execute nil funcitons.	funcTable["Initialize"]=Initialize;	funcTable["Shutdown"]=Shutdown;	funcTable["Update"]=Update;		--nil them out again to keep namespace clear	Initialize=nil;	Shutdown=nil;	Update=nil;		--store away our function table for later use	GLOBAL_DISPATCH[key]=funcTable;		return true;end--you'll use the resister function like soRegisterScript("Scripts/AI_Ogre")--here is an example script for say AI_Ogre (note that myData is passed in)function Initialize(myData)	myData.name="Mr Orgre";	myData.age=24;	myData.weapons={"battle axe","dagger"};	myData.dislikes={"elves","hobbits","brocolli");	myData.state="sleeping";end--note any function used by the script internally should be declared--local to prevent pollution and possible overwrite by other scriptslocal function UpdateAwake(myData)    if (math.random(0,100)==0) then	myData.state="sleeping";   endend--this is how a script uses stateful data for a particular instancefunction Update(myData)	if (myData.state=="sleeping") then		if (math.random(0,100)==0) then			myData.state="awake";		end	elseif (myData.state=="awake") then	    UpdateAwake(myData);	endend--doesnt define Shutdown but thats ok..--now to dispatch any function we need 3 thingsfunction Dispatch(funcName,scriptFile,object)	local key = scriptFile;	local funcTable = GLOBAL_DISPATCH[key];		if (funcTable==nil) then		print("cannot find function table for given script");		return false;	end		if (funcTable[funcName]==nil) then		--it's not really an error for script to not have this function?		--is it? depends on your implemenation.		return true;	end		--the object should already contain a table use to store state	--specificly for this script, but in this case we can create one 	--if it doesn't	local data = object[key];		if (data==nil) then		object[key]={};		data=object[key];	end		--now we dispatch the function with the given data table associated	--with it.	funcTable[funcName](data);		--all ok	return true;end

---------------------------------------------------------------demonstrate script loading with consistent API across all--scripts--global accessible to all scriptsglobalValue = 1.123;--original instances of these loaded scripts, we keep them around and use them to create new instances of the objects we need.local scriptA	= require "scripts/ScriptA";local scriptB   = require "scripts/ScriptB";--when we need an instance we new itlocal a = scriptA:new();local b = scriptA:new();local c = scriptB:new();--some test seting local valuesa:set(1);b:set(2);c:set(3);--setting a shared value between all instance of that scripta:setShared(7.89);--now we print out the states, note how we call functions to an object using--the : convention, this is important.a:foo();b:foo();--set global valueglobalValue = 3.124;--check on the unrelated scriptsc:foo();

---------------------------------------------------------------------common header to all scritps using this scheme of auto registeration--dont need to change anything in this header.local Script = { }	--local table no possible namespace collisionfunction Script:new()   local __object = { }   setmetatable(__object, {__index = Script})   __object:init();   return __object; end------------------------------------------------------------------- ---------------------------------------------------------------------shared values/functions will be accessible to all instance of this particular scriptlocal sharedValue = 0;--this function is only accessible to instances of this scriptlocal function sharedFunction()	print("Shared function called");end--since this is global any script can call this, even other AIsfunction globalFunction()	print("Global function called");end---------------------------------------------------------------------init function called first thing upon object creation--any variables defined in here are only accessible to a particualr--instance, this is where all per instance state data is stored.--even though this function doesn't have the keyword local is it --local by the fact that its owner table Script is declared local above.-------------------------------------------------------------------function Script:init()	print("init called");        --define new member variables here, this is per instance data        --accessed using the self. convention.	self.x = 0;end ---------------------------------------------------------------------update function-------------------------------------------------------------------function Script:update() 	--do something?end---------------------------------------------------------------------shutdown function-------------------------------------------------------------------function Script:shutdown() 	--cleanupend---------------------------------------------------------------------misc functions accessible to this object-------------------------------------------------------------------function Script:foo()	print("local "..self.x.." global "..globalValue.." shared "..sharedValue);end function Script:set(val) 	self.x=val; endfunction Script:setShared(val) sharedValue=val; end---------------------------------------------------------------------automatically returns table for this object, in this scheme--always needs to be the last line.return Script;-------------------------------------------------------------------

local Script = { }	--local table no possible namespace collision function Script:new()   local __object = { }   setmetatable(__object, {__index = Script})   __object:init();   return __object; end -------------------------------------------------------------------local sharedValue = 0;--init function called first thing upon object creationfunction Script:init()	print("init2 called");	self.x = 0;end function Script:update() 	--do something?endfunction Script:shutdown() 	--cleanupend--misc functions accessible to this objectfunction Script:foo()	print("local "..self.x.." global "..globalValue.." shared "..sharedValue);end function Script:set(val) 	self.x=val; end---------------------------------------------------------------------automatically returns table of this objectreturn Script;