/**
* @brief Checks to see if pilot and p are the same.
*
* @usage if p == p2 then -- Pilot 'p' and 'p2' match.
*
* @luaparam p Pilot to compare.
* @luaparam comp Pilot to compare against.
* @luareturn true if they are the same.
* @luafunc __eq( p, comp )
*/
static int pilotL_eq( lua_State *L )
{
LuaPilot *p1, *p2;
/* Get parameters. */
p1 = luaL_checkpilot(L,1);
p2 = luaL_checkpilot(L,2);
/* Push result. */
lua_pushboolean(L, p1->pilot == p2->pilot);
return 1;
}
/**
* @brief Changes the pilot's AI.
*
* @usage p:changeAI( "empire" ) -- set the pilot to use the Empire AI
*
* @luafunc changeAI( p, newai )
*/
static int pilotL_changeAI( lua_State *L )
{
LuaPilot *lp;
Pilot *p;
const char *str;
int ret;
/* Get the pilot. */
lp = luaL_checkpilot(L,1);
p = pilot_get(lp->pilot);
if (p==NULL) {
NLUA_ERROR(L,"Pilot is invalid.");
return 0;
}
/* Get parameters. */
str = luaL_checkstring(L,2);
/* Get rid of current AI. */
ai_destroy(p);
/* Create the new AI. */
ret = ai_pinit( p, str );
lua_pushboolean(L, ret);
return 1;
}
/**
* @brief Hooks the function to a specific pilot.
*
* You can hook to different actions. Curently hook system only supports:<br />
* - "death" : triggered when pilot dies.<br />
* - "board" : triggered when pilot is boarded.<br />
* - "disable" : triggered when pilot is disabled.<br />
* - "jump" : triggered when pilot jumps to hyperspace.<br />
* - "hail" : triggered when pilot is hailed.<br />
* - "attacked" : triggered when the pilot is attacked in manual control <br />
* - "idle" : triggered when the pilot becomes idle in manual control <br />
*
* @luaparam pilot Pilot identifier to hook.
* @luaparam type One of the supported hook types.
* @luaparam funcname Name of function to run when hook is triggered.
* @luareturn Hook identifier.
* @luafunc pilot( pilot, type, funcname )
*/
static int hook_pilot( lua_State *L )
{
unsigned int h;
LuaPilot *p;
int type;
const char *hook_type;
/* Parameters. */
p = luaL_checkpilot(L,1);
hook_type = luaL_checkstring(L,2);
/* Check to see if hook_type is valid */
if (strcmp(hook_type,"death")==0) type = PILOT_HOOK_DEATH;
else if (strcmp(hook_type,"board")==0) type = PILOT_HOOK_BOARD;
else if (strcmp(hook_type,"disable")==0) type = PILOT_HOOK_DISABLE;
else if (strcmp(hook_type,"jump")==0) type = PILOT_HOOK_JUMP;
else if (strcmp(hook_type,"hail")==0) type = PILOT_HOOK_HAIL;
else if (strcmp(hook_type,"attacked")==0) type = PILOT_HOOK_ATTACKED;
else if (strcmp(hook_type,"idle")==0) type = PILOT_HOOK_IDLE;
else { /* hook_type not valid */
NLUA_DEBUG("Invalid pilot hook type: '%s'", hook_type);
return 0;
}
/* actually add the hook */
h = hook_generic( L, hook_type, 3 );
pilot_addHook( pilot_get(p->pilot), type, h );
return 0;
}
/**
* @brief Adds an outfit to a pilot.
*
* @usage added = p:addOutfit( "Laser Cannon", 5 ) -- Adds 5 laser cannons to p
*
* @luaparam p Pilot to add outfit to.
* @luaparam outfit Name of the outfit to add.
* @luaparam q Amount to add.
* @luareturn The amount actually added.
* @luafunc addOutfit( p, outfit, q )
*/
static int pilotL_addOutfit( lua_State *L )
{
LuaPilot *lp;
Pilot *p;
const char *outfit;
int q, n;
Outfit *o;
/* Get the pilot. */
lp = luaL_checkpilot(L,1);
p = pilot_get(lp->pilot);
if (p==NULL) {
NLUA_ERROR(L,"Pilot is invalid.");
return 0;
}
/* Get parameters. */
outfit = luaL_checkstring(L,2);
q = luaL_checkint(L,3);
/* Get the outfit. */
o = outfit_get( outfit );
if (o == NULL)
return 0;
/* Add outfit. */
n = pilot_addOutfit( p, o, q );
lua_pushnumber(L,n);
return 1;
}
/**
* @brief Sets the pilot's faction.
*
* @usage p:setFaction( "Empire" )
* @usage p:setFaction( faction.get( "Dvaered" ) )
*
* @luaparam p Pilot to change faction of.
* @luaparam faction Faction to set by name or faction.
* @luafunc setFaction( faction )
*/
static int pilotL_setFaction( lua_State *L )
{
Pilot *p;
LuaPilot *lp;
LuaFaction *f;
int fid;
const char *faction;
/* Parse parameters. */
lp = luaL_checkpilot(L,1);
if (lua_isstring(L,2)) {
faction = lua_tostring(L,2);
fid = faction_get(faction);
}
else if (lua_isfaction(L,2)) {
f = lua_tofaction(L,2);
fid = f->f;
}
else NLUA_INVALID_PARAMETER();
/* Get pilot/faction. */
p = pilot_get(lp->pilot);
if (p==NULL) {
NLUA_ERROR(L,"Pilot is invalid.");
return 0;
}
/* Set the new faction. */
p->faction = fid;
return 0;
}
/**
* @brief Sends a message to the target or player if no target is passed.
*
* @usage p:comm( "How are you doing?" ) -- Messages the player
* @usage p:comm( "You got this?", true ) -- Messages the player ignoring interference
* @usage p:comm( target, "Heya!" ) -- Messages target
* @usage p:comm( target, "Got this?", true ) -- Messages target ignoring interference
*
* @luaparam p Pilot to message the player.
* @ulaparam target Target to send message to.
* @luaparam msg Message to send.
* @luafunc comm( p, target, msg )
*/
static int pilotL_comm( lua_State *L )
{
Pilot *p, *t;
LuaPilot *lp, *target;
const char *msg;
int ignore_int;
/* Parse parameters. */
lp = luaL_checkpilot(L,1);
if (lua_isstring(L,2)) {
target = NULL;
msg = luaL_checkstring(L,2);
ignore_int = lua_toboolean(L,3);
}
else {
target = luaL_checkpilot(L,2);
msg = luaL_checkstring(L,3);
ignore_int = lua_toboolean(L,4);
}
/* Check to see if pilot is valid. */
p = pilot_get(lp->pilot);
if (p == NULL) {
NLUA_ERROR(L,"Pilot param 1 not found in pilot stack!");
return 0;
}
if (target == NULL)
t = player;
else {
t = pilot_get(target->pilot);
if (t == NULL) {
NLUA_ERROR(L,"Pilot param 2 not found in pilot stack!");
return 0;
}
}
/* Broadcast message. */
pilot_message( p, t->id, msg, ignore_int );
return 0;
}
/**
* @brief Checks to see if pilot is still alive.
*
* @usage if p:alive() then -- Pilot is still alive
*
* @luaparam p Pilot to check to see if is still alive.
* @luareturn true if pilot is still alive.
* @luafunc alive( p )
*/
static int pilotL_alive( lua_State *L )
{
LuaPilot *lp;
Pilot *p;
/* Parse parameters. */
lp = luaL_checkpilot(L,1);
p = pilot_get( lp->pilot );
/* Check if is alive. */
lua_pushboolean(L, p!=NULL);
return 1;
}
/**
* @brief Removes an outfit from a pilot.
*
* "all" will remove all outfits.
*
* @usage p:rmOutfit( "all" ) -- Leaves the pilot naked.
* @usage p:rmOutfit( "Neutron Disruptor", 1 ) -- Removes a neutron disruptor.
*
* @luparam p Pilot to remove outfit from.
* @luaparam outfit Name of the outfit to remove.
* @luaparam q Amount to remove.
* @luareturn The amount actually removed.
* @luafunc rmOutfit( p, outfit, q )
*/
static int pilotL_rmOutfit( lua_State *L )
{
LuaPilot *lp;
Pilot *p;
const char *outfit;
int q, n;
Outfit *o;
/* Get the pilot. */
lp = luaL_checkpilot(L,1);
p = pilot_get(lp->pilot);
if (p==NULL) {
NLUA_ERROR(L,"Pilot is invalid.");
return 0;
}
/* Get parameters. */
outfit = luaL_checkstring(L,2);
/* If outfit is "all", we remove everything. */
if (strcmp(outfit,"all")==0) {
n = 0;
while (p->outfits != NULL) {
pilot_rmOutfit( p, p->outfits[0].outfit, p->outfits[0].quantity );
n++;
}
lua_pushnumber(L,n);
return 1;
}
/* We'll need a quantity now. */
q = luaL_checkint(L,3);
/* Get the outfit. */
o = outfit_get( outfit );
if (o == NULL) {
NLUA_ERROR(L,"Outfit isn't found in outfit stack.");
return 0;
}
/* Add outfit. */
n = pilot_rmOutfit( p, o, q );
lua_pushnumber(L,n);
return 1;
}
/**
* @brief Hooks the function to a specific pilot.
*
* You can hook to different actions. Curently hook system only supports:<br />
* <ul>
* <li> "death" : triggered when pilot dies (before marked as dead). <br />
* <li> "exploded" : triggered when pilot has died and the final explosion has begun. <br />
* <li> "board" : triggered when pilot is boarded.<br />
* <li> "disable" : triggered when pilot is disabled (with disable set).<br />
* <li> "jump" : triggered when pilot jumps to hyperspace (before he actually jumps out).<br />
* <li> "hail" : triggered when pilot is hailed.<br />
* <li> "land" : triggered when pilot is landing (right when starting land descent).<br />
* <li> "attacked" : triggered when the pilot is attacked. <br />
* <li> "idle" : triggered when the pilot becomes idle in manual control.<br />
* </ul>
* <br />
* If you pass nil as pilot, it will set it as a global hook that will jump for all pilots.<br />
* <br />
* DO NOT DO UNSAFE THINGS IN PILOT HOOKS. THIS MEANS STUFF LIKE player.teleport(). IF YOU HAVE DOUBTS USE A "safe" HOOK.<br />
* <br />
* These hooks all pass the pilot triggering the hook as a parameter, so they should have the structure of:<br />
* <br />
* function my_hook( pilot, arg )<br />
* end<br />
* <br />
* The combat hooks also pass the pilot acting on it, so for example the pilot
* that disabled, attacked or killed the selected pilot. They have the
* following format:<br />
* <br />
* function combat_hook( pilot, attacker, arg )<br />
* end<br />
* <br />
* Please note that in the case of disable or death hook the attacker may be nil
* indicating that it was killed by other means like for example the shockwave
* of a dying ship or nebula volatility.
*
* @luaparam pilot Pilot identifier to hook (or nil for all).
* @luaparam type One of the supported hook types.
* @luaparam funcname Name of function to run when hook is triggered.
* @luaparam arg Argument to pass to hook.
* @luareturn Hook identifier.
* @luafunc pilot( pilot, type, funcname, arg )
*/
static int hook_pilot( lua_State *L )
{
unsigned int h;
LuaPilot *p;
int type;
const char *hook_type;
char buf[ PATH_MAX ];
/* Parameters. */
if (lua_ispilot(L,1))
p = luaL_checkpilot(L,1);
else if (lua_isnil(L,1))
p = NULL;
else {
NLUA_ERROR(L, "Invalid parameter #1 for hook.pilot, expecting pilot or nil.");
return 0;
}
hook_type = luaL_checkstring(L,2);
/* Check to see if hook_type is valid */
if (strcmp(hook_type,"death")==0) type = PILOT_HOOK_DEATH;
else if (strcmp(hook_type,"exploded")==0) type = PILOT_HOOK_EXPLODED;
else if (strcmp(hook_type,"board")==0) type = PILOT_HOOK_BOARD;
else if (strcmp(hook_type,"disable")==0) type = PILOT_HOOK_DISABLE;
else if (strcmp(hook_type,"jump")==0) type = PILOT_HOOK_JUMP;
else if (strcmp(hook_type,"hail")==0) type = PILOT_HOOK_HAIL;
else if (strcmp(hook_type,"land")==0) type = PILOT_HOOK_LAND;
else if (strcmp(hook_type,"attacked")==0) type = PILOT_HOOK_ATTACKED;
else if (strcmp(hook_type,"idle")==0) type = PILOT_HOOK_IDLE;
else { /* hook_type not valid */
NLUA_ERROR(L, "Invalid pilot hook type: '%s'", hook_type);
return 0;
}
/* actually add the hook */
snprintf( buf, sizeof(buf), "p_%s", hook_type );
h = hook_generic( L, buf, 0., 3, 0 );
if (p==NULL)
pilots_addGlobalHook( type, h );
else
pilot_addHook( pilot_get(p->pilot), type, h );
lua_pushnumber( L, h );
return 1;
}
/**
* @brief Sets the pilot as friendly to player.
*
* @usage p:setFriendly()
*
* @luaparam p Pilot to set as friendly.
* @luafunc setFriendly( p )
*/
static int pilotL_setFriendly( lua_State *L )
{
LuaPilot *lp;
Pilot *p;
/* Get the pilot. */
lp = luaL_checkpilot(L,1);
p = pilot_get(lp->pilot);
if (p==NULL) {
NLUA_ERROR(L,"Pilot is invalid.");
return 0;
}
/* Remove hostile and mark as friendly. */
pilot_setFriendly(p);
return 0;
}
/**
* @brief Sets the pilot as hostile to player.
*
* @usage p:setHostile()
*
* @luaparam p Pilot to set as hostile.
* @luafunc setHostile( p )
*/
static int pilotL_setHostile( lua_State *L )
{
LuaPilot *lp;
Pilot *p;
/* Get the pilot. */
lp = luaL_checkpilot(L,1);
p = pilot_get(lp->pilot);
if (p==NULL) {
NLUA_ERROR(L,"Pilot is invalid.");
return 0;
}
/* Set as hostile. */
pilot_setHostile(p);
return 0;
}
/**
* @brief Gets the pilot's current name.
*
* @usage name = p:name()
*
* @luaparam p Pilot to get the name of.
* @luareturn The current name of the pilot.
* @luafunc name( p )
*/
static int pilotL_name( lua_State *L )
{
LuaPilot *p1;
Pilot *p;
/* Parse parameters. */
p1 = luaL_checkpilot(L,1);
p = pilot_get( p1->pilot );
/* Pilot must exist. */
if (p == NULL) {
NLUA_ERROR(L,"Pilot is invalid.");
return 0;
}
/* Get name. */
lua_pushstring(L, p->name);
return 1;
}
/**
* @brief Disables a pilot.
*
* @usage p:disable()
*
* @luaparam p Pilot to disable.
* @luafunc disable( p )
*/
static int pilotL_disable( lua_State *L )
{
LuaPilot *lp;
Pilot *p;
/* Get the pilot. */
lp = luaL_checkpilot(L,1);
p = pilot_get(lp->pilot);
if (p==NULL) {
NLUA_ERROR(L,"Pilot is invalid.");
return 0;
}
/* Disable the pilot. */
p->shield = 0.;
p->armour = PILOT_DISABLED_ARMOR * p->armour_max;
pilot_setFlag( p, PILOT_DISABLED );
return 0;
}
/**
* @brief Gets the pilot's velocity.
*
* @usage vel = p:vel()
*
* @luaparam p Pilot to get the velocity of.
* @luareturn The pilot's current velocity as a vec2.
* @luafunc vel( p )
*/
static int pilotL_velocity( lua_State *L )
{
LuaPilot *p1;
Pilot *p;
LuaVector v;
/* Parse parameters */
p1 = luaL_checkpilot(L,1);
p = pilot_get( p1->pilot );
/* Pilot must exist. */
if (p == NULL) {
NLUA_ERROR(L,"Pilot is invalid.");
return 0;
}
/* Push velocity. */
vectcpy( &v.vec, &p->solid->vel );
lua_pushvector(L, v);
return 1;
}
/**
* @brief Sets the pilot's position.
*
* @usage p:warp( vec2.new( 300, 200 ) )
*
* @luaparam p Pilot to set the position of.
* @luaparam pos Position to set.
* @luafunc warp( p, pos )
*/
static int pilotL_warp( lua_State *L )
{
LuaPilot *p1;
Pilot *p;
LuaVector *v;
/* Parse parameters */
p1 = luaL_checkpilot(L,1);
p = pilot_get( p1->pilot );
v = luaL_checkvector(L,2);
/* Pilot must exist. */
if (p == NULL) {
NLUA_ERROR(L,"Pilot is invalid.");
return 0;
}
/* Warp pilot to new position. */
vectcpy( &p->solid->pos, &v->vec );
vectnull( &p->solid->vel ); /* Clear velocity otherwise it's a bit weird. */
return 0;
}
/**
* @brief Makes the pilot broadcast a message.
*
* @usage p:broadcast( "Mayday! Requesting assistance!" )
* @usage p:broadcast( "Help!", true ) -- Will ignore interference
*
* @luaparam p Pilot to broadcast the message.
* @luaparam msg Message to broadcast.
* @luaparam ignore_int Whether or not it should ignore interference.
* @luafunc broadcast( p, msg, ignore_int )
*/
static int pilotL_broadcast( lua_State *L )
{
Pilot *p;
LuaPilot *lp;
const char *msg;
int ignore_int;
/* Parse parameters. */
lp = luaL_checkpilot(L,1);
msg = luaL_checkstring(L,2);
ignore_int = lua_toboolean(L,3);
/* Check to see if pilot is valid. */
p = pilot_get(lp->pilot);
if (p == NULL) {
NLUA_ERROR(L,"Pilot is invalid.");
return 0;
}
/* Broadcast message. */
pilot_broadcast( p, msg, ignore_int );
return 0;
}
/**
* @brief Changes the pilot's name.
*
* @usage p:rename( "Black Beard" )
*
* @luaparam p Pilot to change name of.
* @luaparam name Name to change to.
* @luafunc rename( p, name )
*/
static int pilotL_rename( lua_State *L )
{
LuaPilot *p1;
const char *name;
Pilot *p;
/* Parse parameters */
p1 = luaL_checkpilot(L,1);
p = pilot_get( p1->pilot );
name = luaL_checkstring(L,2);
/* Pilot must exist. */
if (p == NULL) {
NLUA_ERROR(L,"Pilot is invalid.");
return 0;
}
/* Change name. */
if (p->name != NULL)
free(p->name);
p->name = strdup(name);
return 0;
}
