/**
* @brief Gets planet at index raising an error if isn't a planet.
*
* @param L Lua state to get planet from.
* @param ind Index position to find the planet.
* @return Planet found at the index in the state.
*/
LuaPlanet* luaL_checkplanet( lua_State *L, int ind )
{
if (lua_isplanet(L,ind))
return lua_toplanet(L,ind);
luaL_typerror(L, ind, PLANET_METATABLE);
return NULL;
}
/**
* @brief Gets a system.
*
* Behaves differently depending on what you pass as param: <br/>
* - string : Gets the system by name. <br/>
* - planet : Gets the system by planet. <br/>
*
* @usage sys = system.get( p ) -- Gets system where planet 'p' is located.
* @usage sys = system.get( "Gamma Polaris" ) -- Gets the system by name.
*
* @luaparam param Read description for details.
* @luareturn System metatable matching param.
* @luafunc get( param )
*/
static int systemL_get( lua_State *L )
{
LuaSystem sys;
StarSystem *ss;
Planet *pnt;
/* Invalid by default. */
sys.id = -1;
/* Passing a string (systemname) */
if (lua_isstring(L,1)) {
ss = system_get( lua_tostring(L,1) );
if (ss != NULL)
sys.id = system_index( ss );
}
/* Passing a planet */
else if (lua_isplanet(L,1)) {
pnt = luaL_validplanet(L,1);
ss = system_get( planet_getSystem( pnt->name ) );
if (ss != NULL)
sys.id = system_index( ss );
}
else NLUA_INVALID_PARAMETER(L);
/* Error checking. */
if (sys.id < 0) {
NLUA_ERROR(L, "No matching systems found.");
return 0;
}
/* return the system */
lua_pushsystem(L,sys);
return 1;
}
/**
* @brief Gets a planet directly.
*
* @param L Lua state to get planet from.
* @param ind Index position to find the planet.
* @return Planet found at the index in the state.
*/
Planet* luaL_validplanet( lua_State *L, int ind )
{
LuaPlanet *lp;
Planet *p;
if (lua_isplanet(L, ind)) {
lp = luaL_checkplanet(L, ind);
p = planet_getIndex(*lp);
}
else if (lua_isstring(L, ind))
p = planet_get( lua_tostring(L, ind) );
else {
luaL_typerror(L, ind, PLANET_METATABLE);
return NULL;
}
if (p == NULL)
NLUA_ERROR(L, _("Planet is invalid"));
return p;
}
/**
* @brief Teleports the player to a new planet or system (only if not landed).
*
* If the destination is a system, the coordinates of the player will not change.
* If the destination is a planet, the player will be placed over that planet.
*
* @usage player.teleport( system.get("Arcanis") ) -- Teleports the player to Arcanis.
* @usage player.teleport( "Arcanis" ) -- Teleports the player to Arcanis.
* @usage player.teleport( "Dvaer Prime" ) -- Teleports the player to Dvaer, and relocates him to Dvaer Prime.
*
* @luaparam dest System or name of a system or planet or name of a planet to teleport the player to.
* @luafunc teleport( dest )
*/
static int playerL_teleport( lua_State *L )
{
Planet *pnt;
StarSystem *sys;
const char *name, *pntname;
/* Must not be landed. */
if (landed)
NLUA_ERROR(L,"Can not teleport the player while landed!");
if (comm_isOpen())
NLUA_ERROR(L,"Can not teleport the player while the comm is open!");
if (player_isBoarded())
NLUA_ERROR(L,"Can not teleport the player while he is boarded!");
pnt = NULL;
/* Get a system. */
if (lua_issystem(L,1)) {
sys = luaL_validsystem(L,1);
name = system_getIndex(sys->id)->name;
}
/* Get a planet. */
else if (lua_isplanet(L,1)) {
pnt = luaL_validplanet(L,1);
name = planet_getSystem( pnt->name );
if (name == NULL) {
NLUA_ERROR( L, "Planet '%s' does not belong to a system..", pnt->name );
return 0;
}
}
/* Get destination from string. */
else if (lua_isstring(L,1)) {
name = lua_tostring(L,1);
if (!system_exists( name )) {
if (!planet_exists( name )) {
NLUA_ERROR( L, "'%s' is not a valid teleportation target.", name );
return 0;
}
/* No system found, assume destination string is the name of a planet. */
pntname = name;
name = planet_getSystem( name );
pnt = planet_get( pntname );
if (name == NULL) {
NLUA_ERROR( L, "Planet '%s' does not belong to a system..", pntname );
return 0;
}
}
}
else
NLUA_INVALID_PARAMETER(L);
/* Check if system exists. */
if (!system_exists( name )) {
NLUA_ERROR( L, "System '%s' does not exist.", name );
return 0;
}
/* Jump out hook is run first. */
hooks_run( "jumpout" );
/* Just in case remove hyperspace flags. */
pilot_rmFlag( player.p, PILOT_HYPERSPACE );
pilot_rmFlag( player.p, PILOT_HYP_BEGIN );
pilot_rmFlag( player.p, PILOT_HYP_BRAKE );
pilot_rmFlag( player.p, PILOT_HYP_PREP );
/* Free graphics. */
space_gfxUnload( cur_system );
/* Go to the new system. */
space_init( name );
/* Map gets deformed when jumping this way. */
map_clear();
/* Add the escorts. */
player_addEscorts();
/* Run hooks - order is important. */
hooks_run( "jumpin" );
hooks_run( "enter" );
events_trigger( EVENT_TRIGGER_ENTER );
missions_run( MIS_AVAIL_SPACE, -1, NULL, NULL );
/* Reset targets when teleporting */
player_targetPlanetSet( -1 );
player_targetHyperspaceSet( -1 );
gui_setNav();
/* Move to planet. */
if (pnt != NULL)
vectcpy( &player.p->solid->pos, &pnt->pos );
return 0;
}
/**
* @brief Persists the node on the top of the stack and pops it.
*
* @param L Lua state with node to persist on top of the stack.
* @param writer XML Writer to use.
* @param Are we parsing a node in a table? Avoids checking for extra __save.
* @return 0 on success.
*/
static int nxml_persistDataNode( lua_State *L, xmlTextWriterPtr writer, int intable )
{
int ret, b;
LuaPlanet *p;
LuaSystem *s;
LuaFaction *f;
LuaShip *sh;
LuaTime *lt;
Planet *pnt;
StarSystem *ss;
char buf[PATH_MAX];
const char *name, *str;
int keynum;
/* Default values. */
ret = 0;
/* key, value */
/* Handle different types of keys. */
switch (lua_type(L, -2)) {
case LUA_TSTRING:
/* Can just tostring directly. */
name = lua_tostring(L,-2);
/* Isn't a number key. */
keynum = 0;
break;
case LUA_TNUMBER:
/* Can't tostring directly. */
lua_pushvalue(L,-2);
name = lua_tostring(L,-1);
lua_pop(L,1);
/* Is a number key. */
keynum = 1;
break;
/* We only handle string or number keys, so ignore the rest. */
default:
lua_pop(L,1);
/* key */
return 0;
}
/* key, value */
/* Now handle the value. */
switch (lua_type(L, -1)) {
/* Recursive for tables. */
case LUA_TTABLE:
/* Check if should save -- only if not in table.. */
if (!intable) {
lua_getfield(L, -1, "__save");
b = lua_toboolean(L,-1);
lua_pop(L,1);
if (!b) /* No need to save. */
break;
}
/* Start the table. */
xmlw_startElem(writer,"data");
xmlw_attr(writer,"type","table");
xmlw_attr(writer,"name","%s",name);
if (keynum)
xmlw_attr(writer,"keynum","1");
lua_pushnil(L); /* key, value, nil */
/* key, value, nil */
while (lua_next(L, -2) != 0) {
/* key, value, key, value */
ret = nxml_persistDataNode( L, writer, 1 );
/* key, value, key */
}
/* key, value */
xmlw_endElem(writer); /* "table" */
break;
/* Normal number. */
case LUA_TNUMBER:
nxml_saveData( writer, "number",
name, lua_tostring(L,-1), keynum );
/* key, value */
break;
/* Boolean is either 1 or 0. */
case LUA_TBOOLEAN:
/* lua_tostring doesn't work on booleans. */
if (lua_toboolean(L,-1)) buf[0] = '1';
else buf[0] = '0';
buf[1] = '\0';
nxml_saveData( writer, "bool",
name, buf, keynum );
/* key, value */
break;
/* String is saved normally. */
case LUA_TSTRING:
nxml_saveData( writer, "string",
name, lua_tostring(L,-1), keynum );
/* key, value */
break;
/* User data must be handled here. */
case LUA_TUSERDATA:
if (lua_isplanet(L,-1)) {
p = lua_toplanet(L,-1);
pnt = planet_getIndex( p->id );
if (pnt != NULL)
nxml_saveData( writer, "planet",
name, pnt->name, keynum );
else
WARN("Failed to save invalid planet.");
/* key, value */
break;
}
else if (lua_issystem(L,-1)) {
s = lua_tosystem(L,-1);
ss = system_getIndex( s->id );
if (ss != NULL)
nxml_saveData( writer, "system",
name, ss->name, keynum );
else
WARN("Failed to save invalid system.");
/* key, value */
break;
}
else if (lua_isfaction(L,-1)) {
f = lua_tofaction(L,-1);
str = faction_name( f->f );
if (str == NULL)
break;
nxml_saveData( writer, "faction",
name, str, keynum );
/* key, value */
break;
}
else if (lua_isship(L,-1)) {
sh = lua_toship(L,-1);
str = sh->ship->name;
if (str == NULL)
break;
nxml_saveData( writer, "ship",
name, str, keynum );
/* key, value */
break;
}
else if (lua_istime(L,-1)) {
lt = lua_totime(L,-1);
snprintf( buf, sizeof(buf), "%"PRId64, lt->t );
nxml_saveData( writer, "time",
name, buf, keynum );
break;
}
/* Rest gets ignored, like functions, etc... */
default:
/* key, value */
break;
}
lua_pop(L,1);
/* key */
return ret;
}