No OneTemporary
Actions

Authored By

Unknown

Size

74 KB

Referenced Files

None

Subscribers

None

View Options

	diff --git a/src/ScriptAPI.cpp b/src/ScriptAPI.cpp
	index 8d67b65..c8374a5 100644
	--- a/src/ScriptAPI.cpp
	+++ b/src/ScriptAPI.cpp
	@@ -1,1744 +1,1745 @@
	/*
	* Copyright (C) 2012-2013 Me and My Shadow
	*
	* This file is part of Me and My Shadow.
	*
	* Me and My Shadow is free software: you can redistribute it and/or modify
	* it under the terms of the GNU General Public License as published by
	* the Free Software Foundation, either version 3 of the License, or
	* (at your option) any later version.
	*
	* Me and My Shadow is distributed in the hope that it will be useful,
	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	* GNU General Public License for more details.
	*
	* You should have received a copy of the GNU General Public License
	* along with Me and My Shadow. If not, see <http://www.gnu.org/licenses/>.
	*/

	#include "ScriptAPI.h"
	#include "ScriptExecutor.h"
	#include "SoundManager.h"
	#include "Functions.h"
	#include "Block.h"
	#include "Game.h"
	#include "MusicManager.h"
	#include "ScriptDelayExecution.h"
	#include <iostream>
	#include <algorithm>
	using namespace std;

	/////////////////////////// HELPER MACRO ///////////////////////////

	#define HELPER_GET_AND_CHECK_ARGS(ARGS) \
	int args = lua_gettop(state); \
	if(args != ARGS) { \
	return luaL_error(state, "Incorrect number of arguments for %s, expected %d.", __FUNCTION__, ARGS); \
	}

	#define HELPER_GET_AND_CHECK_ARGS_RANGE(ARGS1, ARGS2) \
	int args = lua_gettop(state); \
	if(args < ARGS1 \|\| args > ARGS2) { \
	return luaL_error(state, "Incorrect number of arguments for %s, expected %d-%d.", __FUNCTION__, ARGS1, ARGS2); \
	}

	#define HELPER_GET_AND_CHECK_ARGS_2(ARGS1, ARGS2) \
	int args = lua_gettop(state); \
	if(args != ARGS1 && args != ARGS2) { \
	return luaL_error(state, "Incorrect number of arguments for %s, expected %d or %d.", __FUNCTION__, ARGS1, ARGS2); \
	}

	#define HELPER_GET_AND_CHECK_ARGS_AT_LEAST(ARGS) \
	int args = lua_gettop(state); \
	if(args < ARGS) { \
	return luaL_error(state, "Incorrect number of arguments for %s, expected at least %d.", __FUNCTION__, ARGS); \
	}

	#define HELPER_GET_AND_CHECK_ARGS_AT_MOST(ARGS) \
	int args = lua_gettop(state); \
	if(args > ARGS) { \
	return luaL_error(state, "Incorrect number of arguments for %s, expected at most %d.", __FUNCTION__, ARGS); \
	}

	//================================================================

	#define HELPER_CHECK_ARGS_TYPE(INDEX, TYPE) \
	if(!lua_is##TYPE(state,INDEX)) { \
	return luaL_error(state, "Invalid type for argument %d of %s, should be %s.", INDEX, __FUNCTION__, #TYPE); \
	}

	#define HELPER_CHECK_ARGS_TYPE_NO_HINT(INDEX, TYPE) \
	if(!lua_is##TYPE(state,INDEX)) { \
	return luaL_error(state, "Invalid type for argument %d of %s.", INDEX, __FUNCTION__); \
	}

	#define HELPER_CHECK_ARGS_TYPE_2(INDEX, TYPE1, TYPE2) \
	if(!lua_is##TYPE1(state,INDEX) && !lua_is##TYPE2(state,INDEX)) { \
	return luaL_error(state, "Invalid type for argument %d of %s, should be %s or %s.", INDEX, __FUNCTION__, #TYPE1, #TYPE2); \
	}

	#define HELPER_CHECK_ARGS_TYPE_2_NO_HINT(INDEX, TYPE1, TYPE2) \
	if(!lua_is##TYPE1(state,INDEX) && !lua_is##TYPE2(state,INDEX)) { \
	return luaL_error(state, "Invalid type for argument %d of %s.", INDEX, __FUNCTION__); \
	}

	#define HELPER_CHECK_ARGS_TYPE_OR_NIL(INDEX, TYPE) \
	HELPER_CHECK_ARGS_TYPE_2(INDEX, TYPE, nil)

	#define HELPER_CHECK_ARGS_TYPE_OR_NIL_NO_HINT(INDEX, TYPE) \
	HELPER_CHECK_ARGS_TYPE_2_NO_HINT(INDEX, TYPE, nil)

	//================================================================

	#define HELPER_CHECK_OPTIONAL_ARGS_TYPE(INDEX, TYPE) \
	if(args>=INDEX && !lua_is##TYPE(state,INDEX)) { \
	return luaL_error(state, "Invalid type for argument %d of %s, should be %s.", INDEX, __FUNCTION__, #TYPE); \
	}

	#define HELPER_CHECK_OPTIONAL_ARGS_TYPE_NO_HINT(INDEX, TYPE) \
	if(args>=INDEX && !lua_is##TYPE(state,INDEX)) { \
	return luaL_error(state, "Invalid type for argument %d of %s.", INDEX, __FUNCTION__); \
	}

	#define HELPER_CHECK_OPTIONAL_ARGS_TYPE_2(INDEX, TYPE1, TYPE2) \
	if(args>=INDEX && !lua_is##TYPE1(state,INDEX) && !lua_is##TYPE2(state,INDEX)) { \
	return luaL_error(state, "Invalid type for argument %d of %s, should be %s or %s.", INDEX, __FUNCTION__, #TYPE1, #TYPE2); \
	}

	#define HELPER_CHECK_OPTIONAL_ARGS_TYPE_2_NO_HINT(INDEX, TYPE1, TYPE2) \
	if(args>=INDEX && !lua_is##TYPE1(state,INDEX) && !lua_is##TYPE2(state,INDEX)) { \
	return luaL_error(state, "Invalid type for argument %d of %s.", INDEX, __FUNCTION__); \
	}

	#define HELPER_CHECK_OPTIONAL_ARGS_TYPE_OR_NIL(INDEX, TYPE) \
	HELPER_CHECK_OPTIONAL_ARGS_TYPE_2(INDEX, TYPE, nil)

	#define HELPER_CHECK_OPTIONAL_ARGS_TYPE_OR_NIL_NO_HINT(INDEX, TYPE) \
	HELPER_CHECK_OPTIONAL_ARGS_TYPE_2_NO_HINT(INDEX, TYPE, nil)

	//================================================================

	#define HELPER_REGISTER_IS_VALID_FUNCTION(CLASS) \
	int isValid(lua_State* state){ \
	HELPER_GET_AND_CHECK_ARGS(1); \
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata); \
	CLASS* object = CLASS::getObjectFromUserData(state, 1); \
	lua_pushboolean(state, object ? 1 : 0); \
	return 1; \
	}

	//================================================================

	#define _F(FUNC) { #FUNC, _L::FUNC }
	#define _FG(FUNC) _F(get##FUNC)
	#define _FI(FUNC) _F(is##FUNC)
	#define _FS(FUNC) _F(set##FUNC)
	#define _FGS(FUNC) _F(get##FUNC), _F(set##FUNC)
	#define _FIS(FUNC) _F(is##FUNC), _F(set##FUNC)

	///////////////////////////BLOCK SPECIFIC///////////////////////////

	class BlockScriptAPI {
	public:
	static int getFlags(const Block* block) {
	return block->flags;
	}
	static void setFlags(Block* block, int flags) {
	block->flags = flags;
	}
	static void fragileUpdateState(Block* block, int state) {
	state &= 0x3;
	block->flags = (block->flags & ~0x3) \| state;
	const char* s = (state == 0) ? "default" : ((state == 1) ? "fragile1" : ((state == 2) ? "fragile2" : "fragile3"));
	block->appearance.changeState(s);
	}
	static int getTemp(const Block* block) {
	return block->temp;
	}
	static void setTemp(Block* block, int value) {
	block->temp = value;
	}
	};

	namespace block {

	HELPER_REGISTER_IS_VALID_FUNCTION(Block);

	int getBlockById(lua_State* state){
	//Get the number of args, this MUST be one.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Make sure the given argument is an id (string).
	HELPER_CHECK_ARGS_TYPE(1, string);

	//Check if the currentState is the game state.
	Game* game = dynamic_cast<Game*>(currentState);
	if (game == NULL) return 0;

	//Get the actual game object.
	string id = lua_tostring(state, 1);
	std::vector<Block*>& levelObjects = game->levelObjects;
	Block* object = NULL;
	for (unsigned int i = 0; i < levelObjects.size(); i++){
	if (levelObjects[i]->getEditorProperty("id") == id){
	object = levelObjects[i];
	break;
	}
	}
	if (object == NULL){
	//Unable to find the requested object.
	//Return nothing, will result in a nil in the script.
	return 0;
	}

	//Create the userdatum.
	object->createUserData(state, "block");

	//We return one object, the userdatum.
	return 1;
	}

	int getBlocksById(lua_State* state){
	//Get the number of args, this MUST be one.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Make sure the given argument is an id (string).
	HELPER_CHECK_ARGS_TYPE(1, string);

	//Check if the currentState is the game state.
	Game* game = dynamic_cast<Game*>(currentState);
	if (game == NULL) return 0;

	//Get the actual game object.
	string id = lua_tostring(state, 1);
	std::vector<Block*>& levelObjects = game->levelObjects;
	std::vector<Block*> result;
	for (unsigned int i = 0; i < levelObjects.size(); i++){
	if (levelObjects[i]->getEditorProperty("id") == id){
	result.push_back(levelObjects[i]);
	}
	}

	//Create the table that will hold the result.
	lua_createtable(state, result.size(), 0);

	//Loop through the results.
	for (unsigned int i = 0; i < result.size(); i++){
	//Create the userdatum.
	result[i]->createUserData(state, "block");
	//And set the table.
	lua_rawseti(state, -2, i + 1);
	}

	//We return one object, the userdatum.
	return 1;
	}

	int moveTo(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(3);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, number); // integer
	HELPER_CHECK_ARGS_TYPE(3, number); // integer

	//Now get the pointer to the object.
	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	int x = lua_tonumber(state, 2);
	int y = lua_tonumber(state, 3);
	object->moveTo(x, y);

	return 0;
	}

	int getLocation(lua_State* state){
	//Make sure there's only one argument and that argument is an userdatum.
	HELPER_GET_AND_CHECK_ARGS(1);

	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	//Get the object.
	lua_pushnumber(state, object->getBox().x);
	lua_pushnumber(state, object->getBox().y);
	return 2;
	}

	int setLocation(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(3);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, number); // integer
	HELPER_CHECK_ARGS_TYPE(3, number); // integer

	//Now get the pointer to the object.
	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	int x = lua_tonumber(state, 2);
	int y = lua_tonumber(state, 3);
	object->setLocation(x, y);

	return 0;
	}

	int growTo(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(3);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, number); // integer
	HELPER_CHECK_ARGS_TYPE(3, number); // integer

	//Now get the pointer to the object.
	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	int w = lua_tonumber(state, 2);
	int h = lua_tonumber(state, 3);
	object->growTo(w, h);

	return 0;
	}

	int getSize(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	//Get the object.
	lua_pushnumber(state, object->getBox().w);
	lua_pushnumber(state, object->getBox().h);
	return 2;
	}

	int setSize(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(3);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, number); // integer
	HELPER_CHECK_ARGS_TYPE(3, number); // integer

	//Now get the pointer to the object.
	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	int w = lua_tonumber(state, 2);
	int h = lua_tonumber(state, 3);
	object->setSize(w, h);

	return 0;
	}

	int getType(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL \|\| object->type < 0 \|\| object->type >= TYPE_MAX) return 0;

	lua_pushstring(state, Game::blockName[object->type]);
	return 1;
	}

	int changeThemeState(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(2);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, string);

	Block* object = Block::getObjectFromUserData(state, 1);
	object->appearance.changeState(lua_tostring(state, 2));

	return 0;
	}

	int setVisible(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(2);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, boolean);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL)
	return 0;

	BlockScriptAPI::setFlags(object,
	(BlockScriptAPI::getFlags(object) & ~0x80000000) \| (lua_toboolean(state, 2) ? 0 : 0x80000000)
	);

	return 0;
	}

	int isVisible(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL)
	return 0;

	lua_pushboolean(state, (BlockScriptAPI::getFlags(object) & 0x80000000) ? 0 : 1);
	return 1;
	}

	int getEventHandler(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(2);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, string);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	//Check event type
	string eventType = lua_tostring(state, 2);
	map<string, int>::iterator it = Game::gameObjectEventNameMap.find(eventType);
	if (it == Game::gameObjectEventNameMap.end()) return 0;

	//Check compiled script
	map<int, int>::iterator script = object->compiledScripts.find(it->second);
	if (script == object->compiledScripts.end()) return 0;

	//Get event handler
	lua_rawgeti(state, LUA_REGISTRYINDEX, script->second);
	return 1;
	}

	//It will return old event handler.
	int setEventHandler(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(3);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, string);
	HELPER_CHECK_ARGS_TYPE_OR_NIL(3, function);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	//Check event type
	string eventType = lua_tostring(state, 2);
	map<string, int>::const_iterator it = Game::gameObjectEventNameMap.find(eventType);
	if (it == Game::gameObjectEventNameMap.end()){
	lua_pushfstring(state, "Unknown block event type: '%s'.", eventType.c_str());
	return lua_error(state);
	}

	//Check compiled script
	int scriptIndex = LUA_REFNIL;
	{
	map<int, int>::iterator script = object->compiledScripts.find(it->second);
	if (script != object->compiledScripts.end()) scriptIndex = script->second;
	}

	//Set new event handler
	object->compiledScripts[it->second] = luaL_ref(state, LUA_REGISTRYINDEX);

	//Get old event handler and unreference it
	lua_rawgeti(state, LUA_REGISTRYINDEX, scriptIndex);
	luaL_unref(state, LUA_REGISTRYINDEX, scriptIndex);
	return 1;
	}

	int onEvent(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(2);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, string);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	//Check event type
	string eventType = lua_tostring(state, 2);
	map<string, int>::const_iterator it = Game::gameObjectEventNameMap.find(eventType);
	if (it == Game::gameObjectEventNameMap.end()){
	lua_pushfstring(state, "Unknown block event type: '%s'.", eventType.c_str());
	return lua_error(state);
	}

	object->onEvent(it->second);

	return 0;
	}

	int isActivated(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	switch (object->type) {
	case TYPE_MOVING_BLOCK:
	case TYPE_MOVING_SHADOW_BLOCK:
	case TYPE_MOVING_SPIKES:
	case TYPE_CONVEYOR_BELT:
	case TYPE_SHADOW_CONVEYOR_BELT:
	lua_pushboolean(state, (BlockScriptAPI::getFlags(object) & 0x1) ? 0 : 1);
	return 1;
	default:
	return 0;
	}
	}

	int setActivated(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(2);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, boolean);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	switch (object->type) {
	case TYPE_MOVING_BLOCK:
	case TYPE_MOVING_SHADOW_BLOCK:
	case TYPE_MOVING_SPIKES:
	case TYPE_CONVEYOR_BELT:
	case TYPE_SHADOW_CONVEYOR_BELT:
	BlockScriptAPI::setFlags(object,
	(BlockScriptAPI::getFlags(object) & ~1) \| (lua_toboolean(state, 2) ? 0 : 1)
	);
	break;
	}

	return 0;
	}

	int isAutomatic(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	switch (object->type) {
	case TYPE_PORTAL:
	lua_pushboolean(state, (BlockScriptAPI::getFlags(object) & 0x1) ? 1 : 0);
	return 1;
	default:
	return 0;
	}
	}

	int setAutomatic(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(2);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, boolean);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	switch (object->type) {
	case TYPE_PORTAL:
	BlockScriptAPI::setFlags(object,
	(BlockScriptAPI::getFlags(object) & ~1) \| (lua_toboolean(state, 2) ? 1 : 0)
	);
	break;
	}

	return 0;
	}

	int getBehavior(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	switch (object->type) {
	case TYPE_BUTTON:
	case TYPE_SWITCH:
	switch (BlockScriptAPI::getFlags(object) & 0x3) {
	default:
	lua_pushstring(state, "toggle");
	break;
	case 1:
	lua_pushstring(state, "on");
	break;
	case 2:
	lua_pushstring(state, "off");
	break;
	}
	return 1;
	default:
	return 0;
	}
	}

	int setBehavior(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(2);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, string);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	switch (object->type) {
	case TYPE_BUTTON:
	case TYPE_SWITCH:
	{
	int newFlags = BlockScriptAPI::getFlags(object) & ~3;
	std::string s = lua_tostring(state, 2);
	if (s == "on") newFlags \|= 1;
	else if (s == "off") newFlags \|= 2;
	BlockScriptAPI::setFlags(object, newFlags);
	}
	break;
	}

	return 0;
	}

	int getState(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	switch (object->type) {
	case TYPE_FRAGILE:
	lua_pushnumber(state, BlockScriptAPI::getFlags(object) & 0x3);
	return 1;
	default:
	return 0;
	}
	}

	int setState(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(2);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, number); // integer

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	switch (object->type) {
	case TYPE_FRAGILE:
	{
	int oldState = BlockScriptAPI::getFlags(object) & 0x3;
	int newState = (int)lua_tonumber(state, 2);
	if (newState < 0) newState = 0;
	else if (newState > 3) newState = 3;
	if (newState != oldState) {
	BlockScriptAPI::fragileUpdateState(object, newState);
	}
	}
	break;
	}

	return 0;
	}

	int isPlayerOn(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	switch (object->type) {
	case TYPE_BUTTON:
	lua_pushboolean(state, (BlockScriptAPI::getFlags(object) & 0x4) ? 1 : 0);
	return 1;
	default:
	return 0;
	}
	}

	int getPathMaxTime(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	switch (object->type) {
	case TYPE_MOVING_BLOCK:
	case TYPE_MOVING_SHADOW_BLOCK:
	case TYPE_MOVING_SPIKES:
	lua_pushnumber(state, object->getPathMaxTime());
	return 1;
	default:
	return 0;
	}
	}

	int getPathTime(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	switch (object->type) {
	case TYPE_MOVING_BLOCK:
	case TYPE_MOVING_SHADOW_BLOCK:
	case TYPE_MOVING_SPIKES:
	lua_pushnumber(state, BlockScriptAPI::getTemp(object));
	return 1;
	default:
	return 0;
	}
	}

	int setPathTime(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(2);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, number); // integer

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	switch (object->type) {
	case TYPE_MOVING_BLOCK:
	case TYPE_MOVING_SHADOW_BLOCK:
	case TYPE_MOVING_SPIKES:
	BlockScriptAPI::setTemp(object, (int)lua_tonumber(state, 2));
	break;
	}

	return 0;
	}

	int isLooping(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	switch (object->type) {
	case TYPE_MOVING_BLOCK:
	case TYPE_MOVING_SHADOW_BLOCK:
	case TYPE_MOVING_SPIKES:
	lua_pushboolean(state, (BlockScriptAPI::getFlags(object) & 0x2) ? 0 : 1);
	return 1;
	default:
	return 0;
	}
	}

	int setLooping(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(2);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, boolean);

	Block* object = Block::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	switch (object->type) {
	case TYPE_MOVING_BLOCK:
	case TYPE_MOVING_SHADOW_BLOCK:
	case TYPE_MOVING_SPIKES:
	BlockScriptAPI::setFlags(object,
	(BlockScriptAPI::getFlags(object) & ~2) \| (lua_toboolean(state, 2) ? 0 : 2)
	);
	break;
	}

	return 0;
	}

	}

	#define _L block
	//Array with the methods for the block library.
	static const struct luaL_Reg blocklib_m[]={
	_FI(Valid),
	_FG(BlockById),
	_FG(BlocksById),
	_F(moveTo),
	_FGS(Location),
	_F(growTo),
	_FGS(Size),
	_FG(Type),
	_F(changeThemeState),
	_FIS(Visible),
	_FGS(EventHandler),
	_F(onEvent),
	_FIS(Activated),
	_FIS(Automatic),
	_FGS(Behavior),
	_FGS(State),
	_FI(PlayerOn),
	_FG(PathMaxTime),
	_FGS(PathTime),
	_FIS(Looping),
	{ NULL, NULL }
	};
	#undef _L

	int luaopen_block(lua_State* state){
	luaL_newlib(state,blocklib_m);

	//Create the metatable for the block userdata.
	luaL_newmetatable(state,"block");

	lua_pushstring(state,"__index");
	lua_pushvalue(state,-2);
	lua_settable(state,-3);

	Block::registerMetatableFunctions(state,-3);

	//Register the functions and methods.
	luaL_setfuncs(state,blocklib_m,0);
	return 1;
	}

	//////////////////////////PLAYER SPECIFIC///////////////////////////

	struct PlayerUserDatum{
	char sig1,sig2,sig3,sig4;
	};

	Player* getPlayerFromUserData(lua_State* state,int idx){
	PlayerUserDatum* ud=(PlayerUserDatum*)lua_touserdata(state,1);
	//Make sure the user datum isn't null.
	if(!ud) return NULL;

	//Get the game state.
	Game* game=dynamic_cast<Game*>(currentState);
	if(game==NULL) return NULL;

	Player* player=NULL;

	//Check the signature to see if it's the player or the shadow.
	if(ud->sig1=='P' && ud->sig2=='L' && ud->sig3=='Y' && ud->sig4=='R')
	player=&game->player;
	else if(ud->sig1=='S' && ud->sig2=='H' && ud->sig3=='D' && ud->sig4=='W')
	player=&game->shadow;

	return player;
	}

	namespace playershadow {

	int getLocation(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	Player* player = getPlayerFromUserData(state, 1);
	if (player == NULL) return 0;

	//Get the object.
	lua_pushnumber(state, player->getBox().x);
	lua_pushnumber(state, player->getBox().y);
	return 2;
	}

	int setLocation(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(3);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, number); // integer
	HELPER_CHECK_ARGS_TYPE(3, number); // integer

	//Get the player.
	Player* player = getPlayerFromUserData(state, 1);
	if (player == NULL) return 0;

	//Get the new location.
	int x = lua_tonumber(state, 2);
	int y = lua_tonumber(state, 3);
	player->setLocation(x, y);

	return 0;
	}

	int jump(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS_2(1, 2);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_OPTIONAL_ARGS_TYPE(2, number); // integer

	//Get the player.
	Player* player = getPlayerFromUserData(state, 1);
	if (player == NULL) return 0;

	//Get the new location.
	if (args == 2){
	int yVel = lua_tonumber(state, 2);
	player->jump(yVel);
	} else{
	//Use default jump strength.
	player->jump();
	}

	return 0;
	}

	int isShadow(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	Player* player = getPlayerFromUserData(state, 1);
	if (player == NULL) return 0;

	lua_pushboolean(state, player->isShadow());
	return 1;
	}

	int getCurrentStand(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	Player* player = getPlayerFromUserData(state, 1);
	if (player == NULL) return 0;

	//Get the actual game object.
	Block* object = player->getObjCurrentStand();
	if (object == NULL){
	return 0;
	}

	//Create the userdatum.
	object->createUserData(state, "block");

	//We return one object, the userdatum.
	return 1;
	}

	}

	#define _L playershadow
	//Array with the methods for the player and shadow library.
	static const struct luaL_Reg playerlib_m[]={
	_FGS(Location),
	_F(jump),
	_FI(Shadow),
	_FG(CurrentStand),
	{NULL,NULL}
	};
	#undef _L

	int luaopen_player(lua_State* state){
	luaL_newlib(state,playerlib_m);

	//Create the metatable for the player userdata.
	luaL_newmetatable(state,"player");

	lua_pushstring(state,"__index");
	lua_pushvalue(state,-2);
	lua_settable(state,-3);

	//Now create two default player user data, one for the player and one for the shadow.
	PlayerUserDatum* ud=(PlayerUserDatum*)lua_newuserdata(state,sizeof(PlayerUserDatum));
	ud->sig1='P';ud->sig2='L';ud->sig3='Y';ud->sig4='R';
	luaL_getmetatable(state,"player");
	lua_setmetatable(state,-2);
	lua_setglobal(state,"player");

	ud=(PlayerUserDatum*)lua_newuserdata(state,sizeof(PlayerUserDatum));
	ud->sig1='S';ud->sig2='H';ud->sig3='D';ud->sig4='W';
	luaL_getmetatable(state,"player");
	lua_setmetatable(state,-2);
	lua_setglobal(state,"shadow");

	//Register the functions and methods.
	luaL_setfuncs(state,playerlib_m,0);
	return 1;
	}

	//////////////////////////LEVEL SPECIFIC///////////////////////////

	namespace level {

	int getSize(lua_State* state){
	//NOTE: this function accepts 0 arguments, but we ignore the argument count.

	//Returns level size.
	lua_pushinteger(state, LEVEL_WIDTH);
	lua_pushinteger(state, LEVEL_HEIGHT);
	return 2;
	}

	int getWidth(lua_State* state){
	//NOTE: this function accepts 0 arguments, but we ignore the argument count.

	//Returns level size.
	lua_pushinteger(state, LEVEL_WIDTH);
	return 1;
	}

	int getHeight(lua_State* state){
	//NOTE: this function accepts 0 arguments, but we ignore the argument count.

	//Returns level size.
	lua_pushinteger(state, LEVEL_HEIGHT);
	return 1;
	}

	int getName(lua_State* state){
	//NOTE: this function accepts 0 arguments, but we ignore the argument count.

	//Check if the currentState is the game state.
	Game* game = dynamic_cast<Game*>(currentState);
	if (game == NULL) return 0;

	//Returns level name.
	lua_pushstring(state, game->getLevelName().c_str());
	return 1;
	}

	int getEventHandler(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE(1, string);

	//Check if the currentState is the game state.
	Game* game = dynamic_cast<Game*>(currentState);
	if (game == NULL) return 0;

	//Check event type
	string eventType = lua_tostring(state, 1);
	map<string, int>::iterator it = Game::levelEventNameMap.find(eventType);
	if (it == Game::levelEventNameMap.end()) return 0;

	//Check compiled script
	map<int, int>::iterator script = game->compiledScripts.find(it->second);
	if (script == game->compiledScripts.end()) return 0;

	//Get event handler
	lua_rawgeti(state, LUA_REGISTRYINDEX, script->second);
	return 1;
	}

	//It will return old event handler.
	int setEventHandler(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(2);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE(1, string);
	HELPER_CHECK_ARGS_TYPE_OR_NIL(2, function);

	//Check if the currentState is the game state.
	Game* game = dynamic_cast<Game*>(currentState);
	if (game == NULL) return 0;

	//Check event type
	string eventType = lua_tostring(state, 1);
	map<string, int>::const_iterator it = Game::levelEventNameMap.find(eventType);
	if (it == Game::levelEventNameMap.end()){
	lua_pushfstring(state, "Unknown level event type: '%s'.", eventType.c_str());
	return lua_error(state);
	}

	//Check compiled script
	int scriptIndex = LUA_REFNIL;
	{
	map<int, int>::iterator script = game->compiledScripts.find(it->second);
	if (script != game->compiledScripts.end()) scriptIndex = script->second;
	}

	//Set new event handler
	game->compiledScripts[it->second] = luaL_ref(state, LUA_REGISTRYINDEX);

	//Get old event handler and unreference it
	lua_rawgeti(state, LUA_REGISTRYINDEX, scriptIndex);
	luaL_unref(state, LUA_REGISTRYINDEX, scriptIndex);
	return 1;
	}

	int win(lua_State* state){
	//NOTE: this function accepts 0 arguments, but we ignore the argument count.

	//Check if the currentState is the game state.
	if (stateID == STATE_LEVEL_EDITOR)
	return 0;
	Game* game = dynamic_cast<Game*>(currentState);
	if (game == NULL) return 0;

	game->won = true;
	return 0;
	}

	int getTime(lua_State* state){
	//NOTE: this function accepts 0 arguments, but we ignore the argument count.

	//Check if the currentState is the game state.
	Game* game = dynamic_cast<Game*>(currentState);
	if (game == NULL) return 0;

	//Returns level size.
	lua_pushinteger(state, game->time);
	return 1;
	}

	int getRecordings(lua_State* state){
	//NOTE: this function accepts 0 arguments, but we ignore the argument count.

	//Check if the currentState is the game state.
	Game* game = dynamic_cast<Game*>(currentState);
	if (game == NULL) return 0;

	//Returns level size.
	lua_pushinteger(state, game->recordings);
	return 1;
	}

	int broadcastObjectEvent(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS_RANGE(1, 4);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE(1, string);
	HELPER_CHECK_OPTIONAL_ARGS_TYPE_OR_NIL(2, string);
	HELPER_CHECK_OPTIONAL_ARGS_TYPE_OR_NIL(3, string);
	HELPER_CHECK_OPTIONAL_ARGS_TYPE_OR_NIL_NO_HINT(4, userdata);

	//Check event type
	int eventType = 0;
	{
	string s = lua_tostring(state, 1);
	auto it = Game::gameObjectEventNameMap.find(s);
	if (it == Game::gameObjectEventNameMap.end()){
	lua_pushfstring(state, "Unknown block event type: '%s'.", s.c_str());
	return lua_error(state);
	} else {
	eventType = it->second;
	}
	}

	//Check object type
	int objType = -1;
	if (args >= 2 && lua_isstring(state, 2)) {
	string s = lua_tostring(state, 2);
	auto it = Game::blockNameMap.find(s);
	if (it == Game::blockNameMap.end()){
	lua_pushfstring(state, "Unknown object type: '%s'.", s.c_str());
	return lua_error(state);
	} else {
	objType = it->second;
	}
	}

	//Check id
	const char* id = NULL;
	if (args >= 3 && lua_isstring(state, 3)) {
	id = lua_tostring(state, 3);
	}

	//Check target
	Block *target = NULL;
	if (args >= 4) {
	target = Block::getObjectFromUserData(state, 4);
	}

	//Check if the currentState is the game state.
	Game* game = dynamic_cast<Game*>(currentState);
	if (game == NULL) return 0;

	game->broadcastObjectEvent(eventType, objType, id, target);

	return 0;
	}

	}

	#define _L level
	//Array with the methods for the level library.
	static const struct luaL_Reg levellib_m[]={
	_FG(Size),
	_FG(Width),
	_FG(Height),
	_FG(Name),
	_FGS(EventHandler),
	_F(win),
	_FG(Time),
	_FG(Recordings),
	_F(broadcastObjectEvent),
	{NULL,NULL}
	};
	#undef _L

	int luaopen_level(lua_State* state){
	luaL_newlib(state,levellib_m);

	//Register the functions and methods.
	luaL_setfuncs(state,levellib_m,0);
	return 1;
	}

	/////////////////////////CAMERA SPECIFIC///////////////////////////

	//FIXME: I can't define namespace camera since there is already a global variable named camera.
	//Therefore I use struct camera for a workaround.

	struct camera {

	static int setMode(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE(1, string);

	string mode = lua_tostring(state, 1);

	//Get the game for setting the camera.
	Game* game = dynamic_cast<Game*>(currentState);
	if (game == NULL) return 0;
	//Check which mode.
	if (mode == "player"){
	game->cameraMode = Game::CAMERA_PLAYER;
	} else if (mode == "shadow"){
	game->cameraMode = Game::CAMERA_SHADOW;
	} else{
	//Unknown OR invalid camera mode.
	return luaL_error(state, "Unknown or invalid camera mode for %s: '%s'.", __FUNCTION__, mode.c_str());
	}

	//Returns nothing.
	return 0;
	}

	static int lookAt(lua_State* state){
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS(2);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE(1, number); // integer
	HELPER_CHECK_ARGS_TYPE(2, number); // integer

	//Get the point.
	int x = lua_tonumber(state, 1);
	int y = lua_tonumber(state, 2);

	//Get the game for setting the camera.
	Game* game = dynamic_cast<Game*>(currentState);
	if (game == NULL) return 0;
	game->cameraMode = Game::CAMERA_CUSTOM;
	game->cameraTarget.x = x;
	game->cameraTarget.y = y;

	return 0;
	}

	};

	#define _L camera
	//Array with the methods for the camera library.
	static const struct luaL_Reg cameralib_m[]={
	_FS(Mode),
	_F(lookAt),
	{NULL,NULL}
	};
	#undef _L

	int luaopen_camera(lua_State* state){
	luaL_newlib(state,cameralib_m);

	//Register the functions and methods.
	luaL_setfuncs(state,cameralib_m,0);
	return 1;
	}

	/////////////////////////AUDIO SPECIFIC///////////////////////////

	namespace audio {

	int playSound(lua_State* state){
	//Get the number of args, this can be anything from one to three.
	HELPER_GET_AND_CHECK_ARGS_RANGE(1, 4);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE(1, string);
	HELPER_CHECK_OPTIONAL_ARGS_TYPE(2, number); // integer
	HELPER_CHECK_OPTIONAL_ARGS_TYPE(3, boolean);
	HELPER_CHECK_OPTIONAL_ARGS_TYPE(4, number); // integer

	//Default values for concurrent and force.
	//See SoundManager.h
	int concurrent = -1;
	bool force = false;
	int fadeMusic = -1;

	//If there's a second one it should be an integer.
	if (args > 1){
	concurrent = lua_tonumber(state, 2);
	}
	//If there's a third one it should be a boolean.
	if (args > 2){
	force = lua_toboolean(state, 3);
	}

	if (args > 3){
	fadeMusic = lua_tonumber(state, 4);
	}

	//Get the name of the sound.
	string sound = lua_tostring(state, 1);
	//Try to play the sound.
	int channel = getSoundManager()->playSound(sound, concurrent, force, fadeMusic);

	//Returns whether the operation is successful.
	lua_pushboolean(state, channel >= 0 ? 1 : 0);
	return 1;
	}

	int playMusic(lua_State* state){
	//Get the number of args, this can be either one or two.
	HELPER_GET_AND_CHECK_ARGS_2(1, 2);

	//Make sure the first argument is a string.
	HELPER_CHECK_ARGS_TYPE(1, string);
	HELPER_CHECK_OPTIONAL_ARGS_TYPE(2, boolean);

	//Default value of fade for playMusic.
	//See MusicManager.h.
	bool fade = true;

	//If there's a second one it should be a boolean.
	if (args > 1){
	fade = lua_toboolean(state, 2);
	}

	//Get the name of the music.
	string music = lua_tostring(state, 1);
	//Try to switch to the new music.
	getMusicManager()->playMusic(music, fade);

	//Returns nothing.
	return 0;
	}

	int pickMusic(lua_State* state){
	//NOTE: this function accepts 0 arguments, but we ignore the argument count.

	//Let the music manager pick a song from the current music list.
	getMusicManager()->pickMusic();
	return 0;
	}

	int setMusicList(lua_State* state){
	//Get the number of args, this MUST be one.
	HELPER_GET_AND_CHECK_ARGS(1);

	//Make sure the given argument is a string.
	HELPER_CHECK_ARGS_TYPE(1, string);

	//And set the music list in the music manager.
	string list = lua_tostring(state, 1);
	getMusicManager()->setMusicList(list);
	return 0;
	}

	int getMusicList(lua_State* state){
	//NOTE: this function accepts 0 arguments, but we ignore the argument count.

	//Return the name of the song (contains list prefix).
	lua_pushstring(state, getMusicManager()->getCurrentMusicList().c_str());
	return 1;
	}


	int currentMusic(lua_State* state){
	//NOTE: this function accepts 0 arguments, but we ignore the argument count.

	//Return the name of the song (contains list prefix).
	lua_pushstring(state, getMusicManager()->getCurrentMusic().c_str());
	return 1;
	}

	}

	#define _L audio
	//Array with the methods for the audio library.
	static const struct luaL_Reg audiolib_m[]={
	_F(playSound),
	_F(playMusic),
	_F(pickMusic),
	_FGS(MusicList),
	_F(currentMusic),
	{NULL,NULL}
	};
	#undef _L

	int luaopen_audio(lua_State* state){
	luaL_newlib(state,audiolib_m);

	//Register the functions and methods.
	luaL_setfuncs(state,audiolib_m,0);
	return 1;
	}

	/////////////////////////DELAY EXECUTION SPECIFIC///////////////////////////

	namespace delayExecution {

	HELPER_REGISTER_IS_VALID_FUNCTION(ScriptDelayExecution);

	int schedule(lua_State* state) {
	//Check the number of arguments.
	HELPER_GET_AND_CHECK_ARGS_AT_LEAST(2);

	//Check if the arguments are of the right type.
	HELPER_CHECK_ARGS_TYPE_OR_NIL(1, function);
	HELPER_CHECK_ARGS_TYPE(2, number); // integer
	HELPER_CHECK_OPTIONAL_ARGS_TYPE_OR_NIL(3, number); // integer
	HELPER_CHECK_OPTIONAL_ARGS_TYPE_OR_NIL(4, number); // integer
	HELPER_CHECK_OPTIONAL_ARGS_TYPE_OR_NIL(5, boolean);

	//Create the delay execution object.
	ScriptDelayExecution *obj = new ScriptDelayExecution(getScriptExecutor()->getDelayExecutionList());
	+ obj->setActive();

	obj->time = (int)lua_tonumber(state, 2);
	obj->repeatCount = (args >= 3 && lua_isnumber(state, 3)) ? (int)lua_tonumber(state, 3) : 1;
	obj->repeatInterval = (args >= 4 && lua_isnumber(state, 4)) ? (int)lua_tonumber(state, 4) : obj->time;
	obj->enabled = ((args >= 5 && lua_isboolean(state, 5)) ? lua_toboolean(state, 5) : 1) != 0;

	//Get arguments.
	for (int i = 6; i <= args; i++) {
	obj->arguments.push_back(luaL_ref(state, LUA_REGISTRYINDEX));
	}
	std::reverse(obj->arguments.begin(), obj->arguments.end());

	//Get the function.
	lua_settop(state, 1);
	obj->func = luaL_ref(state, LUA_REGISTRYINDEX);

	//Create the userdatum.
	obj->createUserData(state, "delayExecution");

	//We return one object, the userdatum.
	return 1;
	}

	int cancel(lua_State* state){
	HELPER_GET_AND_CHECK_ARGS(1);

	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	auto object = ScriptDelayExecution::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	//Delete the object.
	delete object;
	return 0;
	}

	int isEnabled(lua_State* state){
	HELPER_GET_AND_CHECK_ARGS(1);

	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	auto object = ScriptDelayExecution::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	lua_pushboolean(state, object->enabled ? 1 : 0);
	return 1;
	}

	int setEnabled(lua_State* state) {
	HELPER_GET_AND_CHECK_ARGS(2);

	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, boolean);

	auto object = ScriptDelayExecution::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	object->enabled = lua_toboolean(state, 2) != 0;
	return 0;
	}

	int getTime(lua_State* state){
	HELPER_GET_AND_CHECK_ARGS(1);

	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	auto object = ScriptDelayExecution::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	lua_pushnumber(state, object->time);
	return 1;
	}

	int setTime(lua_State* state) {
	HELPER_GET_AND_CHECK_ARGS(2);

	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, number); // integer

	auto object = ScriptDelayExecution::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	object->time = (int)lua_tonumber(state, 2);
	return 0;
	}

	int getRepeatCount(lua_State* state){
	HELPER_GET_AND_CHECK_ARGS(1);

	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	auto object = ScriptDelayExecution::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	lua_pushnumber(state, object->repeatCount);
	return 1;
	}

	int setRepeatCount(lua_State* state) {
	HELPER_GET_AND_CHECK_ARGS(2);

	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, number); // integer

	auto object = ScriptDelayExecution::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	object->repeatCount = (int)lua_tonumber(state, 2);
	return 0;
	}

	int getRepeatInterval(lua_State* state){
	HELPER_GET_AND_CHECK_ARGS(1);

	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	auto object = ScriptDelayExecution::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	lua_pushnumber(state, object->repeatInterval);
	return 1;
	}

	int setRepeatInterval(lua_State* state) {
	HELPER_GET_AND_CHECK_ARGS(2);

	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, number); // integer

	auto object = ScriptDelayExecution::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	//Set the repeat interval (should >=1).
	int i = (int)lua_tonumber(state, 2);
	if (i > 0) object->repeatInterval = i;
	return 0;
	}

	int getFunc(lua_State* state){
	HELPER_GET_AND_CHECK_ARGS(1);

	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	auto object = ScriptDelayExecution::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;
	if (object->func == LUA_REFNIL) return 0;

	lua_rawgeti(state, LUA_REGISTRYINDEX, object->func);
	return 1;
	}

	int setFunc(lua_State* state) {
	HELPER_GET_AND_CHECK_ARGS(2);

	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE_OR_NIL(2, function);

	auto object = ScriptDelayExecution::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	int oldFunc = object->func;
	object->func = luaL_ref(state, LUA_REGISTRYINDEX);

	if (oldFunc == LUA_REFNIL) return 0;

	lua_rawgeti(state, LUA_REGISTRYINDEX, oldFunc);
	luaL_unref(state, LUA_REGISTRYINDEX, oldFunc);
	return 1;
	}

	int getArguments(lua_State* state){
	HELPER_GET_AND_CHECK_ARGS(1);

	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	auto object = ScriptDelayExecution::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	for (int a : object->arguments) {
	lua_rawgeti(state, LUA_REGISTRYINDEX, a);
	}

	return object->arguments.size();
	}

	int setArguments(lua_State* state) {
	HELPER_GET_AND_CHECK_ARGS_AT_LEAST(1);

	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	auto object = ScriptDelayExecution::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	//Remove old arguments.
	for (int a : object->arguments) {
	luaL_unref(state, LUA_REGISTRYINDEX, a);
	}
	object->arguments.clear();

	//Get arguments.
	for (int i = 2; i <= args; i++) {
	object->arguments.push_back(luaL_ref(state, LUA_REGISTRYINDEX));
	}
	std::reverse(object->arguments.begin(), object->arguments.end());

	return 0;
	}

	int getExecutionTime(lua_State* state){
	HELPER_GET_AND_CHECK_ARGS(1);

	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);

	auto object = ScriptDelayExecution::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	lua_pushnumber(state, object->executionTime);
	return 1;
	}

	int setExecutionTime(lua_State* state) {
	HELPER_GET_AND_CHECK_ARGS(2);

	HELPER_CHECK_ARGS_TYPE_NO_HINT(1, userdata);
	HELPER_CHECK_ARGS_TYPE(2, number); // integer

	auto object = ScriptDelayExecution::getObjectFromUserData(state, 1);
	if (object == NULL) return 0;

	object->executionTime = (int)lua_tonumber(state, 2);
	return 0;
	}
	}


	#define _L delayExecution
	//Array with the methods for the block library.
	static const struct luaL_Reg delayExecutionLib_m[] = {
	_FI(Valid),
	_F(schedule),
	_F(cancel),
	_FIS(Enabled),
	_FGS(Time),
	_FGS(RepeatCount),
	_FGS(RepeatInterval),
	_FGS(Func),
	_FGS(Arguments),
	_FGS(ExecutionTime),
	{ NULL, NULL }
	};
	#undef _L

	int luaopen_delayExecution(lua_State* state){
	luaL_newlib(state, delayExecutionLib_m);

	//Create the metatable for the delay execution userdata.
	luaL_newmetatable(state, "delayExecution");

	lua_pushstring(state, "__index");
	lua_pushvalue(state, -2);
	lua_settable(state, -3);

	ScriptDelayExecution::registerMetatableFunctions(state, -3);

	//Register the functions and methods.
	luaL_setfuncs(state, delayExecutionLib_m, 0);
	return 1;
	}
	diff --git a/src/ScriptDelayExecution.cpp b/src/ScriptDelayExecution.cpp
	index 88b5775..9eee81e 100644
	--- a/src/ScriptDelayExecution.cpp
	+++ b/src/ScriptDelayExecution.cpp
	@@ -1,226 +1,226 @@
	/*
	* Copyright (C) 2018 Me and My Shadow
	*
	* This file is part of Me and My Shadow.
	*
	* Me and My Shadow is free software: you can redistribute it and/or modify
	* it under the terms of the GNU General Public License as published by
	* the Free Software Foundation, either version 3 of the License, or
	* (at your option) any later version.
	*
	* Me and My Shadow is distributed in the hope that it will be useful,
	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	* GNU General Public License for more details.
	*
	* You should have received a copy of the GNU General Public License
	* along with Me and My Shadow. If not, see <http://www.gnu.org/licenses/>.
	*/

	#include "ScriptDelayExecution.h"

	#include <assert.h>
	#include <iostream>

	ScriptDelayExecution::ScriptDelayExecution(ScriptDelayExecutionList *parent)
	: parent(parent)
	, func(LUA_REFNIL), time(0), repeatCount(0), repeatInterval(0)
	, executionTime(0)
	, enabled(true)
	{
	assert(parent != NULL);

	//Link ourself to the parent.
	- parent->delayExecutionObjects.push_back(this);
	- index = parent->delayExecutionObjects.size() - 1;
	+ parent->objects.push_back(this);
	+ index = parent->objects.size() - 1;
	}

	ScriptDelayExecution::ScriptDelayExecution(ScriptDelayExecutionList *parent, const ScriptDelayExecution& other)
	- : parent(parent)
	+ : ScriptProxyUserClass(other), parent(parent)
	, func(LUA_REFNIL), time(other.time), repeatCount(other.repeatCount), repeatInterval(other.repeatInterval)
	, executionTime(other.executionTime)
	, enabled(other.enabled)
	{
	assert(parent != NULL);

	lua_State *state = parent->state;

	assert(other.parent != NULL && state == other.parent->state && state != NULL);

	//Make a copy of Lua references.
	if (other.func != LUA_REFNIL) {
	lua_rawgeti(state, LUA_REGISTRYINDEX, other.func);
	func = luaL_ref(state, LUA_REGISTRYINDEX);
	}
	for (int a : other.arguments) {
	lua_rawgeti(state, LUA_REGISTRYINDEX, a);
	arguments.push_back(luaL_ref(state, LUA_REGISTRYINDEX));
	}

	//Link ourself to the parent.
	- parent->delayExecutionObjects.push_back(this);
	- index = parent->delayExecutionObjects.size() - 1;
	+ parent->objects.push_back(this);
	+ index = parent->objects.size() - 1;
	}

	ScriptDelayExecution::~ScriptDelayExecution() {
	//Remove Lua references.
	if (parent->state) {
	if (func != LUA_REFNIL) {
	luaL_unref(parent->state, LUA_REGISTRYINDEX, func);
	}
	for (int a : arguments) {
	if (a != LUA_REFNIL) {
	luaL_unref(parent->state, LUA_REGISTRYINDEX, a);
	}
	}
	}

	func = LUA_REFNIL;
	arguments.clear();

	//Unlink from parent.
	- if (index >= 0 && index < (int)parent->delayExecutionObjects.size()) {
	- assert(parent->delayExecutionObjects[index] == this);
	- parent->delayExecutionObjects[index] = NULL;
	+ if (index >= 0 && index < (int)parent->objects.size()) {
	+ assert(parent->objects[index] == this);
	+ parent->objects[index] = NULL;
	}
	}

	void ScriptDelayExecution::execute() {
	lua_State *state = parent->state;

	assert(state != NULL);

	//Check if reference is empty.
	if (func == LUA_REFNIL) return;

	//Get the function
	lua_rawgeti(state, LUA_REGISTRYINDEX, func);

	//Check if it's function.
	if (!lua_isfunction(state, -1)) {
	return;
	}

	//Backup the old "this"
	lua_getglobal(state, "this");
	int oldThisIndex = luaL_ref(state, LUA_REGISTRYINDEX);

	//Set the new "this" to ourself.
	createUserData(state, "delayExecution");
	lua_setglobal(state, "this");

	//Push arguments to stack.
	for (int a : arguments) {
	lua_rawgeti(state, LUA_REGISTRYINDEX, a);
	}

	//Now execute the script on the top of Lua stack.
	//WARNING: After this point we may get deleted, so don't use any member variables.
	int ret = lua_pcall(state, arguments.size(), 0, 0);

	//Restore "this" back to oringinal value.
	lua_rawgeti(state, LUA_REGISTRYINDEX, oldThisIndex);
	luaL_unref(state, LUA_REGISTRYINDEX, oldThisIndex);
	lua_setglobal(state, "this");

	//Check if there's an error.
	if (ret != LUA_OK){
	std::cerr << "LUA ERROR: " << lua_tostring(state, -1) << std::endl;
	return;
	}
	}

	void ScriptDelayExecution::updateTimer() {
	//Check if we are enabled.
	if (!enabled) return;

	//Sanity check for repeat interval.
	if (repeatInterval <= 0) {
	if (repeatCount != 0) repeatCount = 1;
	}

	//Check if we should delete ourself.
	if (repeatCount == 0) {
	delete this;
	return;
	}

	bool shouldExecute = (--time) <= 0;

	if (shouldExecute) {
	//Decrease the repeat count if it's not infinity.
	if (repeatCount > 0) repeatCount--;

	//Reset the timer, if repeat interval is invalid we set it to a big enough number.
	time = (repeatInterval <= 0) ? 0x40000000 : repeatInterval;

	//Increase the execution time.
	executionTime++;

	//Now execute the script on the top of Lua stack.
	//WARNING: After this point we may get deleted, so don't use any member variables.
	execute();
	}
	}

	ScriptDelayExecutionList::ScriptDelayExecutionList()
	: state(NULL)
	{
	}

	ScriptDelayExecutionList::ScriptDelayExecutionList(const ScriptDelayExecutionList& other)
	: state(other.state)
	{
	assert(state != NULL);

	- for (auto obj : other.delayExecutionObjects) {
	+ for (auto obj : other.objects) {
	if (obj) {
	//Create new object, which will be inserted in the object list automatically.
	new ScriptDelayExecution(this, *obj);
	}
	}
	}

	ScriptDelayExecutionList::~ScriptDelayExecutionList() {
	destroy();
	}

	void ScriptDelayExecutionList::destroy() {
	//This will make the code in ScriptDelayExecution::~ScriptDelayExecution() runs faster.
	- decltype(delayExecutionObjects) tmp;
	- std::swap(tmp, delayExecutionObjects);
	+ decltype(objects) tmp;
	+ std::swap(tmp, objects);

	for (auto obj : tmp) {
	delete obj;
	}
	}

	void ScriptDelayExecutionList::updateTimer() {
	assert(state != NULL);

	//Get the number of objects we are going to process.
	//NOTE: We get this number at the beginning, since during execution new objects may come in, and we don't process newly added objects.
	- int m = delayExecutionObjects.size();
	+ int m = objects.size();

	for (int i = 0; i < m; i++) {
	- if (delayExecutionObjects[i]) delayExecutionObjects[i]->updateTimer();
	+ if (objects[i]) objects[i]->updateTimer();
	}

	//Now remove the deleted objects in the list.
	int j = 0;
	- m = delayExecutionObjects.size();
	+ m = objects.size();
	for (int i = 0; i < m; i++) {
	- if (delayExecutionObjects[i] == NULL) {
	+ if (objects[i] == NULL) {
	//We found an empty slot.
	j++;
	} else if (j > 0) {
	//We move the object to the empty slot and update the index of it.
	- (delayExecutionObjects[i - j] = delayExecutionObjects[i])->index = i - j;
	+ (objects[i - j] = objects[i])->index = i - j;
	}
	}

	//Resize the list if necessary.
	if (j > 0) {
	- delayExecutionObjects.resize(m - j);
	+ objects.resize(m - j);
	}
	}
	diff --git a/src/ScriptDelayExecution.h b/src/ScriptDelayExecution.h
	index 23768be..2f44c9c 100644
	--- a/src/ScriptDelayExecution.h
	+++ b/src/ScriptDelayExecution.h
	@@ -1,110 +1,109 @@
	/*
	* Copyright (C) 2018 Me and My Shadow
	*
	* This file is part of Me and My Shadow.
	*
	* Me and My Shadow is free software: you can redistribute it and/or modify
	* it under the terms of the GNU General Public License as published by
	* the Free Software Foundation, either version 3 of the License, or
	* (at your option) any later version.
	*
	* Me and My Shadow is distributed in the hope that it will be useful,
	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	* GNU General Public License for more details.
	*
	* You should have received a copy of the GNU General Public License
	* along with Me and My Shadow. If not, see <http://www.gnu.org/licenses/>.
	*/

	#ifndef SCRIPTDELAYEXECUTION_H
	#define SCRIPTDELAYEXECUTION_H

	#include <vector>

	#include "ScriptUserData.h"

	class ScriptDelayExecutionList;

	-class ScriptDelayExecution : public ScriptUserClass<'D', 'L', 'E', 'X', ScriptDelayExecution> {
	+class ScriptDelayExecution : public ScriptProxyUserClass<'D', 'L', 'E', 'X', ScriptDelayExecution> {
	public:
	//The script executor.
	ScriptDelayExecutionList *parent;

	//The index of this object in the delay execution list.
	int index;

	//The function to be executed, stored in LUA_REGISTRYINDEX.
	int func;

	//The arguments, stored in LUA_REGISTRYINDEX.
	std::vector<int> arguments;

	//The remaining time until the next execution.
	int time;

	//The number of times the function will be executed.
	int repeatCount;

	//The repeat interval.
	int repeatInterval;

	//The execution time.
	int executionTime;

	//Enabled of a delay execution. A disabled one will not count down its timer.
	bool enabled;

	/*//These are used when properties are changed during function execution.
	bool timeChanged, repeatCountChanged;*/

	public:
	//Construct an empty delay execution object and insert to the script executor.
	ScriptDelayExecution(ScriptDelayExecutionList *parent);

	+ ScriptDelayExecution(const ScriptDelayExecution& other) = delete;
	+
	+ ScriptDelayExecution& operator=(const ScriptDelayExecution& other) = delete;
	+
	//Construct a delay execution object from existing one and insert to the script executor.
	ScriptDelayExecution(ScriptDelayExecutionList *parent, const ScriptDelayExecution& other);

	//Destructor.
	virtual ~ScriptDelayExecution();

	//Execute the function.
	void execute();

	//Update timer and possibly execute the function.
	void updateTimer();
	-
	-private:
	- ScriptDelayExecution(const ScriptDelayExecution& other) = delete;
	- const ScriptDelayExecution& operator=(const ScriptDelayExecution& other) = delete;
	};

	class ScriptDelayExecutionList {
	public:
	//The delay execution objects.
	- std::vector<ScriptDelayExecution*> delayExecutionObjects;
	+ std::vector<ScriptDelayExecution*> objects;

	//The Lua state.
	lua_State *state;

	public:
	//The default constructor.
	ScriptDelayExecutionList();

	//The copy constructor.
	ScriptDelayExecutionList(const ScriptDelayExecutionList& other);

	+ const ScriptDelayExecutionList& operator=(const ScriptDelayExecutionList& other) = delete;
	+
	//Destructor.
	virtual ~ScriptDelayExecutionList();

	//Destroy all execution objects.
	void destroy();

	//Update timer.
	void updateTimer();
	-
	-private:
	- const ScriptDelayExecutionList& operator=(const ScriptDelayExecutionList& other) = delete;
	};

	#endif
	diff --git a/src/ScriptExecutor.cpp b/src/ScriptExecutor.cpp
	index 782f9ed..3eab879 100644
	--- a/src/ScriptExecutor.cpp
	+++ b/src/ScriptExecutor.cpp
	@@ -1,211 +1,214 @@
	/*
	* Copyright (C) 2012 Me and My Shadow
	*
	* This file is part of Me and My Shadow.
	*
	* Me and My Shadow is free software: you can redistribute it and/or modify
	* it under the terms of the GNU General Public License as published by
	* the Free Software Foundation, either version 3 of the License, or
	* (at your option) any later version.
	*
	* Me and My Shadow is distributed in the hope that it will be useful,
	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	* GNU General Public License for more details.
	*
	* You should have received a copy of the GNU General Public License
	* along with Me and My Shadow. If not, see <http://www.gnu.org/licenses/>.
	*/

	#include "ScriptExecutor.h"
	#include "ScriptDelayExecution.h"
	#include "ScriptAPI.h"
	#include "Block.h"
	#include <iostream>
	using namespace std;

	ScriptExecutor::ScriptExecutor():state(NULL){
	//NOTE: If a state is going to use the scriptExecutor it is his task to reset it.
	}

	ScriptExecutor::~ScriptExecutor(){
	destroy();
	}

	void ScriptExecutor::destroy() {
	//Make sure there is a state to close.
	if (state) {
	lua_close(state);
	state = NULL;
	}

	//Delete all delay execution objects.
	if (delayExecutionObjects) {
	// Set the state to NULL since the state is already destroyed. This prevents the destructor to call luaL_unref.
	delayExecutionObjects->state = NULL;
	delete delayExecutionObjects;
	delayExecutionObjects = NULL;
	}
	if (savedDelayExecutionObjects) {
	// Set the state to NULL since the state is already destroyed. This prevents the destructor to call luaL_unref.
	savedDelayExecutionObjects->state = NULL;
	delete savedDelayExecutionObjects;
	savedDelayExecutionObjects = NULL;
	}
	}

	void ScriptExecutor::reset(bool save){
	//Check if we only need to restore from saved state.
	if (!save && state) {
	//Delete delay execution objects.
	if (delayExecutionObjects) {
	delete delayExecutionObjects;
	delayExecutionObjects = new ScriptDelayExecutionList();
	delayExecutionObjects->state = state;
	}

	return;
	}

	//Close the lua_state, if any.
	destroy();

	//Create a new state.
	state=luaL_newstate();

	//Now load the lua libraries.
	//FIXME: Only allow safe libraries/functions.
	luaopen_base(state);
	luaL_requiref(state,"table",luaopen_table,1);
	//SDL2 porting note. This library seems to have been deprecated.
	//If this is used, it's possible to compile lua 5.3 in compatability mode
	//that includes it.
	//luaL_requiref(state,"bit32",luaopen_bit32,1);
	luaL_requiref(state,"string",luaopen_string,1);
	luaL_requiref(state,"math",luaopen_math,1);

	//Load our own libraries.
	luaL_requiref(state,"block",luaopen_block,1);
	luaL_requiref(state,"playershadow",luaopen_player,1);
	luaL_requiref(state,"level",luaopen_level,1);
	luaL_requiref(state,"camera",luaopen_camera,1);
	luaL_requiref(state,"audio",luaopen_audio,1);
	luaL_requiref(state, "delayExecution", luaopen_delayExecution, 1);

	//Create a new delay execution list.
	delayExecutionObjects = new ScriptDelayExecutionList();
	delayExecutionObjects->state = state;
	}

	void ScriptExecutor::registerFunction(std::string name,lua_CFunction function){
	lua_register(state,name.c_str(),function);
	}

	int ScriptExecutor::compileScript(std::string script){
	//First make sure the stack is empty.
	lua_settop(state,0);

	//Compile the script.
	if(luaL_loadstring(state,script.c_str())!=LUA_OK){
	cerr<<"LUA ERROR: "<<lua_tostring(state,-1)<<endl;
	return LUA_REFNIL;
	}

	//Save it to LUA_REGISTRYINDEX and return values.
	return luaL_ref(state,LUA_REGISTRYINDEX);
	}

	int ScriptExecutor::executeScript(std::string script,Block* origin){
	//First make sure the stack is empty.
	lua_settop(state,0);

	//Compile the script.
	if(luaL_loadstring(state,script.c_str())!=LUA_OK){
	cerr<<"LUA ERROR: "<<lua_tostring(state,-1)<<endl;
	return 0;
	}

	//Now execute the script.
	return executeScriptInternal(origin);
	}

	int ScriptExecutor::executeScript(int scriptIndex,Block* origin){
	//Check if reference is empty.
	if(scriptIndex==LUA_REFNIL) return 0;

	//Make sure the stack is empty.
	lua_settop(state,0);

	//Get the function
	lua_rawgeti(state,LUA_REGISTRYINDEX,scriptIndex);

	//Check if it's function and run.
	if(lua_isfunction(state,-1)){
	return executeScriptInternal(origin);
	}else{
	cerr<<"LUA ERROR: Not a function"<<endl;
	return 0;
	}
	}

	int ScriptExecutor::executeScriptInternal(Block* origin){
	int oldThisIndex = LUA_REFNIL;

	//If the origin isn't null set it in the global scope.
	if(origin){
	//Backup the old "this"
	lua_getglobal(state, "this");
	oldThisIndex = luaL_ref(state, LUA_REGISTRYINDEX);

	origin->createUserData(state,"block");
	lua_setglobal(state,"this");
	}

	//Now execute the script on the top of Lua stack.
	int ret=lua_pcall(state,0,1,0);

	//If we set an origin set it back to oringinal value.
	if(origin){
	lua_rawgeti(state, LUA_REGISTRYINDEX, oldThisIndex);
	luaL_unref(state, LUA_REGISTRYINDEX, oldThisIndex);
	lua_setglobal(state,"this");
	}

	//Check if there's an error.
	if(ret!=LUA_OK){
	cerr<<"LUA ERROR: "<<lua_tostring(state,-1)<<endl;
	return 0;
	}

	//Get the return value.
	return lua_tonumber(state,-1);
	}

	ScriptDelayExecutionList* ScriptExecutor::getDelayExecutionList() {
	return delayExecutionObjects;
	}

	void ScriptExecutor::processDelayExecution() {
	if (delayExecutionObjects) delayExecutionObjects->updateTimer();
	}

	void ScriptExecutor::saveState() {
	if (savedDelayExecutionObjects) {
	delete savedDelayExecutionObjects;
	savedDelayExecutionObjects = NULL;
	}
	savedDelayExecutionObjects = new ScriptDelayExecutionList(*delayExecutionObjects);
	}

	void ScriptExecutor::loadState() {
	if (delayExecutionObjects) {
	delete delayExecutionObjects;
	delayExecutionObjects = NULL;
	}
	if (savedDelayExecutionObjects) {
	delayExecutionObjects = new ScriptDelayExecutionList(*savedDelayExecutionObjects);
	+ for (auto obj : delayExecutionObjects->objects) {
	+ obj->setActive();
	+ }
	} else {
	delayExecutionObjects = new ScriptDelayExecutionList();
	delayExecutionObjects->state = state;
	}
	}
	diff --git a/src/ScriptUserData.h b/src/ScriptUserData.h
	index d614b24..6b32994 100644
	--- a/src/ScriptUserData.h
	+++ b/src/ScriptUserData.h
	@@ -1,199 +1,266 @@
	/*
	* Copyright (C) 2012 Me and My Shadow
	*
	* This file is part of Me and My Shadow.
	*
	* Me and My Shadow is free software: you can redistribute it and/or modify
	* it under the terms of the GNU General Public License as published by
	* the Free Software Foundation, either version 3 of the License, or
	* (at your option) any later version.
	*
	* Me and My Shadow is distributed in the hope that it will be useful,
	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	* GNU General Public License for more details.
	*
	* You should have received a copy of the GNU General Public License
	* along with Me and My Shadow. If not, see <http://www.gnu.org/licenses/>.
	*/

	#ifndef SCRIPTUSERDATA_H
	#define SCRIPTUSERDATA_H

	extern "C" {
	#include "lua.h"
	#include "lualib.h"
	#include "lauxlib.h"
	}
	#include <string>
	+#include <memory>

	#ifdef _DEBUG
	#include <assert.h>
	#endif

	//NOTE: Enable this you'll see a lot of annoying script debug messages which will lag the game in debug mode.
	//#define DISABLED_DEBUG_STUFF

	#if defined(_DEBUG) && defined(DISABLED_DEBUG_STUFF)
	//Some debug functions
	void scriptUserClassDebugCreate(char sig1,char sig2,char sig3,char sig4,const void* p1,const void* p2);
	void scriptUserClassDebugInvalidate(char sig1,char sig2,char sig3,char sig4,const void* p1,const void* p2);
	void scriptUserClassDebugUnlink(char sig1,char sig2,char sig3,char sig4,const void* p1,const void* p2);
	#endif

	//A struct represents the Lua user data.
	struct ScriptUserData{
	char sig1,sig2,sig3,sig4;
	void* data;
	ScriptUserData* prev;
	ScriptUserData* next;
	};

	//A helper class to bind C++ class to Lua user data.
	template<char sig1,char sig2,char sig3,char sig4,class T>
	class ScriptUserClass{
	public:
	ScriptUserClass():scriptUserDataHead(NULL){
	}

	- ScriptUserClass(const ScriptUserClass& other):scriptUserDataHead(NULL){
	- }
	+ ScriptUserClass(const ScriptUserClass& other) = delete;

	- ScriptUserClass& operator=(const ScriptUserClass& other){
	- //do nothing
	- }
	+ ScriptUserClass& operator=(const ScriptUserClass& other) = delete;

	//Create a Lua user data pointed to this object. (-0,+1,e)
	//state: Lua state.
	//metatableName: Metatable name.
	void createUserData(lua_State* state,const char* metatableName){
	//Convert this object to T.
	- T* obj=dynamic_cast<T*>(this);
	-#ifdef _DEBUG
	- //It should not be NULL unless there is a bug in code
	- assert(obj!=NULL);
	-#endif
	+ //NOTE: we omit the runtime safety check, only leave the compile time check (by static_cast).
	+ T* obj=static_cast<T*>(this);

	//Create user data.
	ScriptUserData* ud=(ScriptUserData*)lua_newuserdata(state,sizeof(ScriptUserData));

	ud->sig1=sig1;
	ud->sig2=sig2;
	ud->sig3=sig3;
	ud->sig4=sig4;
	ud->data=obj;

	//Add it to the linked list.
	ud->next=scriptUserDataHead;
	ud->prev=NULL;
	if(scriptUserDataHead) scriptUserDataHead->prev=ud;
	scriptUserDataHead=ud;

	//Set matatable and we are done.
	luaL_getmetatable(state,metatableName);
	lua_setmetatable(state,-2);

	#if defined(_DEBUG) && defined(DISABLED_DEBUG_STUFF)
	scriptUserClassDebugCreate(sig1,sig2,sig3,sig4,this,ud);
	#endif
	}

	//Destroys all Lua user data associated to this object.
	void destroyUserData(){
	while(scriptUserDataHead){
	#if defined(_DEBUG) && defined(DISABLED_DEBUG_STUFF)
	scriptUserClassDebugInvalidate(sig1,sig2,sig3,sig4,this,scriptUserDataHead);
	#endif
	scriptUserDataHead->data=NULL;
	scriptUserDataHead=scriptUserDataHead->next;
	}
	}

	//Convert a Lua user data in Lua stack to object. (-0,+0,e)
	//state: Lua state.
	//idx: Index.
	//Returns: The object. NULL if this user data is invalid.
	//NOTE: This data should be a user data.
	static T* getObjectFromUserData(lua_State* state,int idx){
	ScriptUserData* ud=(ScriptUserData*)lua_touserdata(state,idx);

	if(ud && ud->sig1==sig1 && ud->sig2==sig2 && ud->sig3==sig3 && ud->sig4==sig4)
	return reinterpret_cast<T*>(ud->data);
	return NULL;
	}

	//Register __gc, __eq to given table. (-0,+0,e)
	//state: Lua state.
	//idx: Index.
	static void registerMetatableFunctions(lua_State *state,int idx){
	lua_pushstring(state,"__gc");
	lua_pushcfunction(state,&garbageCollectorFunction);
	lua_rawset(state,idx);
	lua_pushstring(state,"__eq");
	lua_pushcfunction(state,&checkEqualFunction);
	lua_rawset(state,idx);
	}

	virtual ~ScriptUserClass(){
	destroyUserData();
	}
	private:
	ScriptUserData* scriptUserDataHead;

	//The garbage collector (__gc) function.
	static int garbageCollectorFunction(lua_State* state){
	//Check if it's a user data. It can be a table (the library itself)
	if(!lua_isuserdata(state,1)) return 0;

	ScriptUserData* ud=(ScriptUserData*)lua_touserdata(state,1);

	if(ud){
	if(ud->data){
	-#if defined(_DEBUG) && defined(DISABLED_DEBUG_STUFF)
	+#if defined(_DEBUG)
	//It should be impossible unless there is a bug in code
	assert(ud->sig1==sig1 && ud->sig2==sig2 && ud->sig3==sig3 && ud->sig4==sig4);
	#endif
	//Unlink it
	if(ud->next) ud->next->prev=ud->prev;
	if(ud->prev) ud->prev->next=ud->next;
	else{
	ScriptUserClass* owner=static_cast<ScriptUserClass>(reinterpret_cast<T>(ud->data));
	owner->scriptUserDataHead=ud->next;
	}
	#if defined(_DEBUG) && defined(DISABLED_DEBUG_STUFF)
	scriptUserClassDebugUnlink(sig1,sig2,sig3,sig4,
	static_cast<ScriptUserClass>(reinterpret_cast<T>(ud->data)),ud);
	#endif
	}

	ud->data=NULL;
	ud->next=NULL;
	ud->prev=NULL;
	}

	return 0;
	}

	//The 'operator==' (__eq) function.
	static int checkEqualFunction(lua_State* state){
	//Check if it's a user data. It can be a table (the library itself)
	if(!lua_isuserdata(state,1) \|\| !lua_isuserdata(state,2)) return 0;

	ScriptUserData* ud1=(ScriptUserData*)lua_touserdata(state,1);
	ScriptUserData* ud2=(ScriptUserData*)lua_touserdata(state,2);

	if(ud1!=NULL && ud2!=NULL){
	#ifdef _DEBUG
	//It should be impossible unless there is a bug in code
	assert(ud1->sig1==sig1 && ud1->sig2==sig2 && ud1->sig3==sig3 && ud1->sig4==sig4);
	assert(ud2->sig1==sig1 && ud2->sig2==sig2 && ud2->sig3==sig3 && ud2->sig4==sig4);
	#endif
	lua_pushboolean(state,ud1->data==ud2->data);
	return 1;
	}

	return 0;
	}
	};

	+//Another helper class to bind C++ class to Lua user data.
	+//This allows dynamic changes of the pointer which pointing to the actual C++ class.
	+//Typical use case is a class which can dynamically create/delete during game running and has save/load feature.
	+template<char sig1, char sig2, char sig3, char sig4, class T>
	+class ScriptProxyUserClass {
	+public:
	+ //The default constructor, which creates a new proxy object.
	+ ScriptProxyUserClass() : proxy(new Proxy()) {
	+ }
	+
	+ //The copy constructor, which reuses proxy object from existing one.
	+ //NOTE: You must call this function in your copy constructor!!!
	+ ScriptProxyUserClass(const ScriptProxyUserClass& other) : proxy(other.proxy) {
	+ }
	+
	+ ScriptProxyUserClass& operator=(const ScriptProxyUserClass& other) = delete;
	+
	+ virtual ~ScriptProxyUserClass() {
	+ if (proxy->object == static_cast<T*>(this)) {
	+ proxy->object = NULL;
	+ }
	+ }
	+
	+ //Set current object as active object, i.e. accessible from Lua.
	+ //Usually called when the object is created at the first time, or when the game is loaded.
	+ void setActive() {
	+ proxy->object = static_cast<T*>(this);
	+ }
	+
	+ //Create a Lua user data pointed to this object. (-0,+1,e)
	+ //state: Lua state.
	+ //metatableName: Metatable name.
	+ void createUserData(lua_State* state, const char* metatableName) {
	+ assert(proxy->object == static_cast<T*>(this));
	+ proxy->createUserData(state, metatableName);
	+ }
	+
	+ //Convert a Lua user data in Lua stack to object. (-0,+0,e)
	+ //state: Lua state.
	+ //idx: Index.
	+ //Returns: The object. NULL if this user data is invalid.
	+ //NOTE: This data should be a user data.
	+ static T* getObjectFromUserData(lua_State* state, int idx) {
	+ Proxy *p = Proxy::getObjectFromUserData(state, idx);
	+ if (p == NULL) return NULL;
	+ return p->object;
	+ }
	+
	+ //Register __gc, __eq to given table. (-0,+0,e)
	+ //state: Lua state.
	+ //idx: Index.
	+ static void registerMetatableFunctions(lua_State *state, int idx) {
	+ Proxy::registerMetatableFunctions(state, idx);
	+ }
	+
	+private:
	+ class Proxy : public ScriptUserClass<sig1, sig2, sig3, sig4, Proxy> {
	+ friend class ScriptProxyUserClass;
	+ public:
	+ Proxy() : object(NULL) {
	+ }
	+
	+ virtual ~Proxy() {
	+ }
	+
	+ private:
	+ T *object;
	+ };
	+
	+ std::shared_ptr<Proxy> proxy;
	+};
	+
	#endif

File Metadata

Mime Type: text/x-diff
Expires: Sat, May 16, 8:25 PM (1 d, 17 h)
Storage Engine: blob
Storage Format: Raw Data
Storage Handle: 63919
Default Alt Text: (74 KB)

No OneTemporaryActions

View Options

File Metadata

Event Timeline

No OneTemporary
Actions