first commit

[rbdr/pico-engine] / actor.cpp

#include "stdafx.h"\r
\r
Actor::Actor(int xpos, int ypos, const char *spritepath, const char *scriptpath, Map *map, Audio *audio, Game_overwatch *ow, CLuaVirtualMachine& vm) : CLuaScript(vm){\r
	this->init(xpos,ypos,spritepath,scriptpath,NULL,LEFT,true,map,audio,ow,vm);\r
}\r
\r
Actor::Actor(int xpos, int ypos, const char *spritepath, const char *scriptpath, Actor *dad, Direction dir, bool phys, Map *map, Audio *audio, Game_overwatch *ow, CLuaVirtualMachine& vm) : CLuaScript(vm){\r
	this->init(xpos,ypos,spritepath,scriptpath,dad,dir,phys,map,audio,ow,vm);\r
}\r
\r
Actor::~Actor(){\r
	SDL_FreeSurface(sprite);\r
	if(parent != NULL){\r
		parent->remove_bullet();\r
	}\r
	overwatch->move_out(this);\r
}\r
\r
void Actor::init(int xpos, int ypos, const char *spritepath, const char *scriptpath, Actor *dad, Direction dir, bool phys, Map *map, Audio *aud, Game_overwatch *ow, CLuaVirtualMachine& vm){\r
	//Set Values from constructor\r
	x = xpos;\r
	y = ypos;\r
	overwatch = ow;\r
	audio = aud;\r
	currentmap = map;\r
	physics = phys;\r
	parent = dad;\r
	currentdirection = dir;\r
    walk_time = 0;\r
	\r
	//sprite\r
	SDL_Surface *raw_sprite = IMG_Load(spritepath);\r
    sprite = SDL_DisplayFormat(raw_sprite);\r
    SDL_FreeSurface(raw_sprite);\r
    Uint32 colorkey = SDL_MapRGB(sprite->format, 255, 0, 255);\r
    SDL_SetColorKey(sprite, SDL_SRCCOLORKEY | SDL_RLEACCEL, colorkey);	//le ponemos al buddy el colorkey para las transparencias\r
    w = sprite->w/SPRITE_FRAMES_W;												 //el ancho de nuestro spritesheet\r
    h = sprite->h/SPRITE_FRAMES_H;												 //lo alto de nuestro spritesheet\r
	\r
	//Lua API.\r
	m_iMethodBase = RegisterFunction ("get_x");\r
	RegisterFunction ("get_y");\r
	RegisterFunction ("get_w");\r
	RegisterFunction ("get_h");\r
	RegisterFunction ("get_clip_x");\r
	RegisterFunction ("get_clip_y");\r
	RegisterFunction ("get_currentframe");\r
	RegisterFunction ("get_oldclip");\r
	RegisterFunction ("get_vertical_speed");\r
	RegisterFunction ("get_falltime");\r
	RegisterFunction ("get_speed");\r
	RegisterFunction ("get_ownspeed");\r
	RegisterFunction ("get_totalspeed");\r
	RegisterFunction ("set_x");\r
	RegisterFunction ("set_y");\r
	RegisterFunction ("set_w");\r
	RegisterFunction ("set_h");\r
	RegisterFunction ("set_clip_x");\r
	RegisterFunction ("set_clip_y");\r
	RegisterFunction ("set_currentframe");\r
	RegisterFunction ("set_oldclip");\r
	RegisterFunction ("set_vertical_speed");\r
	RegisterFunction ("set_falltime");\r
	RegisterFunction ("set_speed");\r
	RegisterFunction ("set_ownspeed");\r
	RegisterFunction ("set_totalspeed");\r
	RegisterFunction ("get_currentdirection");\r
	RegisterFunction ("set_currentdirection");\r
	RegisterFunction ("can_move");\r
	RegisterFunction ("get_collision");\r
	RegisterFunction ("set_collision");\r
	RegisterFunction ("get_map_sx");\r
	RegisterFunction ("get_map_sy");\r
	RegisterFunction ("set_map_sx");\r
	RegisterFunction ("set_map_sy");\r
	RegisterFunction ("get_cfg_max_map_w");\r
	RegisterFunction ("get_cfg_max_map_h");\r
	RegisterFunction ("get_cfg_screen_width");\r
	RegisterFunction ("get_cfg_screen_height");\r
	RegisterFunction ("get_leftkey");\r
	RegisterFunction ("get_rightkey");\r
	RegisterFunction ("get_zkey");\r
	RegisterFunction ("get_xkey");\r
	RegisterFunction ("get_jumplock");\r
	RegisterFunction ("get_shootlock");\r
	RegisterFunction ("set_jumplock");\r
	RegisterFunction ("set_shootlock");\r
	RegisterFunction ("set_dying");\r
	RegisterFunction ("add_bullet");\r
	RegisterFunction ("get_shotcount");\r
	RegisterFunction ("set_physics");\r
	RegisterFunction ("set_enemy");\r
	RegisterFunction ("set_controllable");\r
	RegisterFunction ("get_ckey");\r
	RegisterFunction ("get_switchlock");\r
	RegisterFunction ("set_switchlock");\r
	RegisterFunction ("set_noclip");\r
	RegisterFunction ("load_clip");\r
	RegisterFunction ("play_sfx");\r
	RegisterFunction ("play_bgm");\r
	RegisterFunction ("stop_bgm");\r
    RegisterFunction ("get_cfg_tile_w");\r
	RegisterFunction ("get_cfg_tile_h");\r
    RegisterFunction ("accelerate");\r
    RegisterFunction ("get_walk_time");\r
    RegisterFunction ("set_walk_time");\r
    RegisterFunction ("decelerate");\r
	\r
	\r
	//lua compile.\r
	this->CompileFile("scripts/globals.lua");\r
	this->CompileFile (scriptpath);\r
	\r
	//lua sync.\r
	this->SelectScriptFunction ("sync");\r
	this->Go ();\r
\r
	\r
	//default values.\r
	oldclip = 0;\r
	vertical_speed = 0.0;\r
	falltime = 0.0;\r
	speed = 0.0;\r
	ownspeed = 0.0;\r
	clip_x = 0;\r
	clip_y = 0;\r
	currentframe = 0;\r
	jumplock = false;\r
	shootlock = false;\r
	dying = false;\r
	shotcount = 0;\r
	\r
	//using ENUM direction as colliding vector index.\r
	colliding[UP], colliding[DOWN], colliding[LEFT], colliding[RIGHT] = false;\r
	\r
	overwatch->move_in(this);\r
}\r
\r
//The Lua ScriptCalling Index.\r
int Actor::ScriptCalling (CLuaVirtualMachine& vm,  int iFunctionNumber){\r
	switch (iFunctionNumber - m_iMethodBase)\r
	{\r
		case 0:\r
			return lget_x(vm);\r
			break;\r
		\r
		case 1:\r
			return lget_y(vm);\r
			break;\r
		\r
		case 2:\r
			return lget_w(vm);\r
			break;\r
			\r
		case 3:\r
			return lget_h(vm);\r
			break;\r
			\r
		case 4:\r
			return lget_clip_x(vm);\r
			break;\r
			\r
		case 5:\r
			return lget_clip_y(vm);\r
			break;\r
			\r
		case 6:\r
			return lget_currentframe(vm);\r
			break;\r
			\r
		case 7:\r
			return lget_oldclip(vm);\r
			break;\r
			\r
		case 8:\r
			return lget_vertical_speed(vm);\r
			break;\r
			\r
		case 9:\r
			return lget_falltime(vm);\r
			break;\r
			\r
		case 10:\r
			return lget_speed(vm);\r
			break;\r
			\r
		case 11:\r
			return lget_ownspeed(vm);\r
			break;\r
			\r
		case 12:\r
			return lget_totalspeed(vm);\r
			break;\r
		case 13:\r
			return lset_x(vm);\r
			break;\r
			\r
		case 14:\r
			return lset_y(vm);\r
			break;\r
			\r
		case 15:\r
			return lset_w(vm);\r
			break;\r
			\r
		case 16:\r
			return lset_h(vm);\r
			break;\r
			\r
		case 17:\r
			return lset_clip_x(vm);\r
			break;\r
			\r
		case 18:\r
			return lset_clip_y(vm);\r
			break;\r
			\r
		case 19:\r
			return lset_currentframe(vm);\r
			break;\r
			\r
		case 20:\r
			return lset_oldclip(vm);\r
			break;\r
			\r
		case 21:\r
			return lset_vertical_speed(vm);\r
			break;\r
			\r
		case 22:\r
			return lset_falltime(vm);\r
			break;\r
			\r
		case 23:\r
			return lset_speed(vm);\r
			break;\r
			\r
		case 24:\r
			return lset_ownspeed(vm);\r
			break;\r
			\r
		case 25:\r
			return lset_totalspeed(vm);\r
			break;\r
			\r
		case 26:\r
			return lget_currentdirection(vm);\r
			break;\r
			\r
		case 27:\r
			return lset_currentdirection(vm);\r
			break;\r
			\r
		case 28:\r
			return lcan_move(vm);\r
			break;\r
			\r
		case 29:\r
			return lget_collision(vm);\r
			break;\r
			\r
		case 30:\r
			return lset_collision(vm);\r
			break;\r
			\r
		case 31:\r
			return lget_map_sx(vm);\r
			break;\r
			\r
		case 32:\r
			return lget_map_sy(vm);\r
			break;\r
			\r
		case 33:\r
			return lset_map_sx(vm);\r
			break;\r
			\r
		case 34:\r
			return lset_map_sy(vm);\r
			break;\r
			\r
		case 35:\r
			return lget_cfg_max_map_w(vm);\r
			break;\r
			\r
		case 36:\r
			return lget_cfg_max_map_h(vm);\r
			break;\r
			\r
		case 37:\r
			return lget_cfg_screen_width(vm);\r
			break;\r
			\r
		case 38:\r
			return lget_cfg_screen_height(vm);\r
			break;\r
			\r
		case 39:\r
			return lget_leftkey(vm);\r
			break;\r
			\r
		case 40:\r
			return lget_rightkey(vm);\r
			break;\r
			\r
		case 41:\r
			return lget_zkey(vm);\r
			break;\r
			\r
		case 42:\r
			return lget_xkey(vm);\r
			break;\r
			\r
		case 43:\r
			return lget_jumplock(vm);\r
			break;\r
			\r
		case 44:\r
			return lget_shootlock(vm);\r
			break;\r
			\r
		case 45:\r
			return lset_jumplock(vm);\r
			break;\r
			\r
		case 46:\r
			return lset_shootlock(vm);\r
			break;\r
			\r
		case 47:\r
			return lset_dying(vm);\r
			break;\r
			\r
		case 48:\r
			return ladd_bullet(vm);\r
			break;\r
			\r
		case 49:\r
			return lget_shotcount(vm);\r
			break;\r
		\r
		case 50:\r
			return lset_physics(vm);\r
			break;\r
			\r
		case 51:\r
			return lset_enemy(vm);\r
			break;\r
			\r
		case 52:\r
			return lset_controllable(vm);\r
			break;\r
			\r
		case 53:\r
			return lget_ckey(vm);\r
			break;\r
			\r
		case 54:\r
			return lget_switchlock(vm);\r
			break;\r
			\r
		case 55:\r
			return lset_switchlock(vm);\r
			break;\r
			\r
		case 56:\r
			return lset_noclip(vm);\r
			break;\r
			\r
		case 57:\r
			return lload_clip(vm);\r
			break;\r
			\r
		case 58:\r
			return lplay_sfx(vm);\r
			break;\r
			\r
		case 59:\r
			return lplay_bgm(vm);\r
			break;\r
			\r
		case 60:\r
			return lstop_bgm(vm);\r
			break;\r
            \r
        case 61:\r
			return lget_cfg_tile_w(vm);\r
			break;\r
			\r
		case 62:\r
			return lget_cfg_tile_h(vm);\r
			break;\r
        case 63:\r
			return laccelerate(vm);\r
			break;\r
        case 64:\r
			return lget_walk_time(vm);\r
			break;\r
        case 65:\r
			return lset_walk_time(vm);\r
			break;\r
        case 66:\r
			return ldecelerate(vm);\r
			break;\r
	}\r
	return 0;\r
   }\r
\r
void Actor::HandleReturns (CLuaVirtualMachine& vm, const char *strFunc){\r
	\r
}\r
\r
void Actor::animate(){\r
	\r
	//check for conditions.\r
	if (ownspeed != 0) {\r
		animating = true;\r
	}else{\r
		animating = false;\r
	}\r
	\r
	\r
	//then do stuff\r
	if (animating) {\r
		if(currentframe <= MOVEMENT_FREQ){\r
			currentframe++;\r
		}else{\r
			currentframe = 0;\r
		}\r
		\r
		if(currentframe==0){\r
			if(clip_x >= (w*SPRITE_FRAMES_W)-w){\r
				animup = false;               \r
			}\r
			if(clip_x == 0){\r
				animup = true;\r
			}\r
			if(animup){clip_x += w;}else{ clip_x -= w;}\r
		}   \r
	}\r
}\r
\r
void Actor::move(){\r
	if (!colliding[DOWN]) {\r
		speed = 0;\r
	}\r
	totalspeed = speed + ownspeed;\r
	if (noclip) {\r
		x += totalspeed;\r
	}else{\r
		if (totalspeed > 0 &&  this->can_move(RIGHT, x, y) ) {\r
			x += totalspeed;\r
		}\r
		if (totalspeed < 0 &&  this->can_move(LEFT, x, y) ) {\r
			x += totalspeed;\r
		}\r
	}\r
}\r
\r
bool Actor::can_move(Direction direction, int xpos, int ypos){\r
	if(direction == UP){\r
		if(currentmap->get_passability((xpos+5-currentmap->get_sx()),(ypos-1-currentmap->get_sy())) == 1 || currentmap->get_passability((xpos+w-5-currentmap->get_sx()),(ypos-1-currentmap->get_sy())) == 1 || colliding[UP]){\r
			return false;\r
		}\r
	}\r
	if(direction == RIGHT){\r
		if(currentmap->get_passability((xpos+w-currentmap->get_sx()),(ypos+(h*.25)-currentmap->get_sy())) == 1 || currentmap->get_passability((xpos+w-currentmap->get_sx()),(ypos+h-1-currentmap->get_sy())) == 1 || colliding[RIGHT]){\r
			return false;\r
		}\r
	}\r
	if(direction == DOWN){\r
		if(currentmap->get_passability((xpos+5-currentmap->get_sx()),(ypos+h-currentmap->get_sy())) == 1 || currentmap->get_passability((xpos+w-5-currentmap->get_sx()),(ypos+h-currentmap->get_sy())) == 1 || colliding[DOWN]){\r
			return false;\r
		}\r
	}\r
	if(direction == LEFT){\r
		if(currentmap->get_passability((xpos-currentmap->get_sx()),(ypos+(h*.25)-currentmap->get_sy())) == 1 || currentmap->get_passability((xpos-currentmap->get_sx()),(ypos+h-1-currentmap->get_sy())) == 1 || colliding[LEFT]){\r
			return false;\r
		}\r
	}\r
	return true;\r
}\r
\r
bool Actor::can_die(){\r
\r
	if(currentmap->get_tile((x-currentmap->get_sx()),(y-1-currentmap->get_sy())) == 2 || currentmap->get_tile((x+w-currentmap->get_sx()),(y-1-currentmap->get_sy())) == 2){\r
		return true;\r
	}\r
	if(currentmap->get_tile((x+1+w-currentmap->get_sx()),(y-currentmap->get_sy())) == 2 || currentmap->get_tile((x+1+w-currentmap->get_sx()),(y+h-currentmap->get_sy())) == 2){\r
		return true;\r
	}\r
	if(currentmap->get_tile((x-currentmap->get_sx()),(y+1+h-currentmap->get_sy())) == 2 || currentmap->get_tile((x+w-currentmap->get_sx()),(y+1+h-currentmap->get_sy())) == 2){\r
		return true;\r
	}\r
	if(currentmap->get_tile((x-1-currentmap->get_sx()),(y-currentmap->get_sy())) == 2 || currentmap->get_tile((x-1-currentmap->get_sx()),(y+h-currentmap->get_sy())) == 2){\r
		return true;\r
	}\r
	return false;\r
}\r
\r
void Actor::add_bullet(const char* sprite, const char* script){\r
	shotcount++;\r
	if (currentdirection == LEFT) {\r
		new Actor(x-14, y+10,sprite, script, this, LEFT, false, currentmap, audio, overwatch, m_vm);\r
	}\r
	if (currentdirection == RIGHT) {\r
		new Actor(x+w+4, y+10,sprite, script, this, RIGHT, false, currentmap, audio, overwatch, m_vm);\r
	}\r
}\r
\r
void Actor::remove_bullet(){\r
	shotcount--;\r
}\r
\r
void Actor::accelerate(float accel, float max_speed){\r
    \r
    if ( (accel > 0 && ownspeed == max_speed && max_speed < 0) || (accel < 0 && ownspeed == max_speed && max_speed > 0) ){\r
        walk_time = 0;\r
    }\r
    \r
    //reset the time if we were deccelerating.\r
    if (walk_time < 0) {\r
        walk_time = 0;\r
    }\r
    \r
    walk_time += 1; //increase the time, because we are accelerating.\r
    \r
    if((ownspeed >= max_speed && max_speed > 0) || (ownspeed <= max_speed && max_speed < 0)){\r
        ownspeed = max_speed;\r
    }else{\r
        ownspeed = ownspeed + accel*walk_time;\r
    }\r
}\r
\r
void Actor::decelerate(float accel){\r
    if(ownspeed != 0 && falltime == 0){\r
        if (walk_time > 0) {\r
            walk_time = 0;\r
        }\r
        walk_time -= 1; //increase the time, because we are accelerating.\r
        \r
        //Stay at 0\r
        if (ownspeed > 0) {\r
            ownspeed = ownspeed + accel*walk_time;\r
            if (ownspeed < 0){\r
                ownspeed = 0;       //if we go too far, just settle with 0.\r
            }\r
        }\r
        if (ownspeed < 0) {\r
            ownspeed = ownspeed - accel*walk_time;\r
            if (ownspeed > 0){\r
                ownspeed = 0;       //if we go too far, just settle with 0.\r
            }\r
        }\r
    }\r
}\r
\r
//internal accessors\r
\r
int Actor::get_x(void){ return x; }\r
void Actor::set_x(int newval){ x = newval; }\r
int Actor::get_y(void){ return y; }\r
void Actor::set_y(int newval){ y = newval; }\r
int Actor::get_w(void){ return w; }\r
void Actor::set_w(int newval){ w = newval; }\r
int Actor::get_h(void){ return h; }\r
void Actor::set_h(int newval){ h = newval; }\r
int Actor::get_clip_x(void){ return clip_x; }\r
void Actor::set_clip_x(int newval){ clip_x = newval; }\r
int Actor::get_clip_y(void){ return clip_y; }\r
void Actor::set_clip_y(int newval){ clip_y = newval; }\r
int Actor::get_currentframe(void){ return currentframe; }\r
void Actor::set_currentframe(int newval){ currentframe = newval; }\r
int Actor::get_oldclip(void){ return oldclip; }\r
void Actor::set_oldclip(int newval){ oldclip = newval; }\r
float Actor::get_vertical_speed(void){ return vertical_speed; }\r
void Actor::set_vertical_speed(float newval){ vertical_speed = newval;}\r
float Actor::get_vertical_acc(void){ return vertical_acc; }\r
void Actor::set_vertical_acc(float newval){ vertical_acc = newval;}\r
float Actor::get_falltime(void){ return falltime; }\r
void Actor::set_falltime(float newval){ falltime = newval; }\r
SDL_Surface * Actor::get_sprite(void){ return sprite; }\r
float Actor::get_speed(void){ return speed; }\r
void Actor::set_speed(float newval){ speed = newval;}\r
float Actor::get_ownspeed(void){ return ownspeed; }\r
void Actor::set_ownspeed(float newval){ ownspeed = newval;}\r
float Actor::get_totalspeed(void){ return totalspeed; }\r
void Actor::set_totalspeed(float newval){ totalspeed = newval;}\r
float Actor::get_horizontal_acc(void){ return vertical_acc; }\r
void Actor::set_horizontal_acc(float newval){ vertical_acc = newval;}\r
Direction Actor::get_currentdirection(void){ return currentdirection; }\r
Enemy Actor::get_enemy(void){ return enemy; }\r
int Actor::get_leftkey(void){ return leftkey; }\r
void Actor::set_leftkey(int newval){ leftkey = newval; }\r
int Actor::get_rightkey(void){ return rightkey; }\r
void Actor::set_rightkey(int newval){ rightkey = newval; }\r
int Actor::get_zkey(void){ return zkey; }\r
void Actor::set_zkey(int newval){ zkey = newval; }\r
int Actor::get_xkey(void){ return xkey; }\r
void Actor::set_xkey(int newval){ xkey = newval; }\r
bool Actor::get_physics(void){ return physics; }\r
void Actor::set_physics(bool newval){ physics = newval; }\r
void Actor::set_collision(bool col, int corner){\r
	colliding[corner] = col;\r
}\r
bool Actor::get_controllable(void){ return controllable; }\r
bool Actor::get_collision(int corner){\r
	return colliding[corner];\r
}\r
bool Actor::get_dying(void){ return dying; }\r
void Actor::set_dying(bool newval){ dying = newval; }\r
void Actor::set_ckey(int newval){ ckey = newval; }\r
bool Actor::get_noclip(void){ return noclip; }\r
\r
//lua accessors (get)\r
int Actor::lget_x(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, x);\r
	return 1;\r
}\r
\r
int Actor::lget_y(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, y);\r
	return 1;\r
}\r
\r
int Actor::lget_w(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, w);\r
	return 1;\r
}\r
\r
int Actor::lget_h(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, h);\r
	return 1;\r
}\r
\r
int Actor::lget_clip_x(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, clip_x);\r
	return 1;\r
}\r
\r
int Actor::lget_clip_y(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, clip_y);\r
	return 1;\r
}\r
\r
int Actor::lget_currentframe(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, currentframe);\r
	return 1;\r
}\r
\r
int Actor::lget_oldclip(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, oldclip);\r
	return 1;\r
}\r
\r
int Actor::lget_vertical_speed(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, vertical_speed);\r
	return 1;\r
}\r
\r
int Actor::lget_falltime(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, falltime);\r
	return 1;\r
}\r
\r
int Actor::lget_speed(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, speed);\r
	return 1;\r
}\r
\r
int Actor::lget_ownspeed(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, ownspeed);\r
	return 1;\r
}\r
\r
int Actor::lget_totalspeed(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, totalspeed);\r
	return 1;\r
}\r
\r
int Actor::lget_currentdirection(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, currentdirection);\r
	return 1;\r
}\r
\r
int Actor::lget_collision(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushboolean (state, colliding[(int) lua_tonumber (state, -1)]);\r
	return 1;\r
}\r
\r
int Actor::lget_map_sx(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, currentmap->get_sx());\r
	return 1;\r
}\r
\r
int Actor::lget_map_sy(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, currentmap->get_sy());\r
	return 1;\r
}\r
\r
int Actor::lget_cfg_max_map_w(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, MAX_MAP_W);\r
	return 1;\r
}\r
\r
int Actor::lget_cfg_max_map_h(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, MAX_MAP_H);\r
	return 1;\r
}\r
\r
int Actor::lget_cfg_tile_h(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, TILE_HEIGHT);\r
	return 1;\r
}\r
\r
int Actor::lget_cfg_screen_height(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, SCREEN_HEIGHT);\r
	return 1;\r
}\r
\r
int Actor::lget_leftkey(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, leftkey);\r
	return 1;\r
}\r
\r
int Actor::lget_rightkey(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, rightkey);\r
	return 1;\r
}\r
\r
int Actor::lget_zkey(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, zkey);\r
	return 1;\r
}\r
\r
int Actor::lget_xkey(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, xkey);\r
	return 1;\r
}\r
\r
int Actor::lget_jumplock(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushboolean (state, jumplock);\r
	return 1;\r
}\r
\r
int Actor::lget_shootlock(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushboolean (state, shootlock);\r
	return 1;\r
}\r
\r
int Actor::lget_shotcount(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, shotcount);\r
	return 1;\r
}\r
\r
int Actor::lget_ckey(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, ckey);\r
	return 1;\r
}\r
\r
int Actor::lget_switchlock(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushboolean (state, switchlock);\r
	return 1;\r
}\r
\r
int Actor::lget_cfg_tile_w(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, TILE_WIDTH);\r
	return 1;\r
}\r
\r
int Actor::lget_cfg_screen_width(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, SCREEN_WIDTH);\r
	return 1;\r
}\r
\r
int Actor::lget_walk_time(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushnumber (state, walk_time);\r
	return 1;\r
}\r
\r
//lua accessors (set)\r
int Actor::lset_x(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	x = (int) lua_tonumber (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_y(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	y = (int) lua_tonumber (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_w(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	w = (int) lua_tonumber (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_h(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	h = (int) lua_tonumber (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_clip_x(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	clip_x = (int) lua_tonumber (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_clip_y(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	clip_y = (int) lua_tonumber (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_currentframe(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	currentframe = (int) lua_tonumber (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_oldclip(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	oldclip = (int) lua_tonumber (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_vertical_speed(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	vertical_speed = (float) lua_tonumber (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_falltime(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	falltime = (float) lua_tonumber (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_speed(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	speed = (float) lua_tonumber (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_ownspeed(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	ownspeed = (float) lua_tonumber (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_totalspeed(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	totalspeed = (float) lua_tonumber (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_currentdirection(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	currentdirection = (Direction) lua_tonumber (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_collision(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	colliding[(int) lua_tonumber (state, -1)] = (bool) lua_toboolean(state, -2);\r
	return 0;\r
}\r
\r
int Actor::lset_map_sx(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	currentmap->set_sx((int) lua_tonumber (state, -1));\r
	return 0;\r
}\r
\r
int Actor::lset_map_sy(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	currentmap->set_sy((int) lua_tonumber (state, -1));\r
	return 0;\r
}\r
\r
int Actor::lset_jumplock(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	jumplock = (bool) lua_toboolean (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_shootlock(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	shootlock = (bool) lua_toboolean (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_dying(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	dying = (bool) lua_toboolean (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_physics(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	physics = (bool) lua_toboolean (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_enemy(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	enemy = (Enemy) lua_tonumber (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_controllable(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	controllable = (bool) lua_toboolean (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_switchlock(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	switchlock = (bool) lua_toboolean (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_noclip(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	noclip = (bool) lua_toboolean (state, -1);\r
	return 0;\r
}\r
\r
int Actor::lset_walk_time(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	walk_time = (int) lua_tonumber (state, -1);\r
	return 0;\r
}\r
\r
\r
//misc lua methods\r
\r
int Actor::lcan_move(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;\r
	lua_pushboolean(state,this->can_move((Direction) lua_tonumber (state, -3), (int) lua_tonumber (state, -2), (int) lua_tonumber (state, -1)));\r
	return 1;	\r
}\r
\r
int Actor::ladd_bullet(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;	\r
	this->add_bullet((const char*) lua_tostring (state, -2), (const char*) lua_tostring (state, -1));\r
	return 1;\r
}\r
\r
int Actor::lload_clip(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;	\r
	audio->load_clip((const char*) lua_tostring (state, -1));\r
	return 1;\r
}\r
\r
int Actor::lplay_sfx(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;	\r
	audio->play_sfx((const char*) lua_tostring (state, -1));\r
	return 1;\r
}\r
\r
int Actor::lplay_bgm(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;	\r
	audio->play_bgm((const char*) lua_tostring (state, -1));\r
	return 1;\r
}\r
\r
int Actor::lstop_bgm(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;	\r
	audio->stop_bgm((const char*) lua_tostring (state, -1));\r
	return 1;\r
}\r
\r
int Actor::laccelerate(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;	\r
	this->accelerate((float)  lua_tonumber (state, -2), (float)  lua_tonumber (state, -1));\r
	return 1;\r
}\r
\r
int Actor::ldecelerate(CLuaVirtualMachine& vm){\r
	lua_State *state = (lua_State *) vm;	\r
	this->decelerate((float)  lua_tonumber (state, -1));\r
	return 1;\r
}