nlua_pilotoutfit.c

Go to the documentation of this file.

/*
 * See Licensing and Copyright notice in naev.h
 */
#include <lauxlib.h>
 
#include "naev.h"
#include "nlua_pilotoutfit.h"
 
#include "log.h"
#include "nlua_outfit.h"
#include "nluadef.h"
#include "rng.h"
#include "slots.h"
 
int pilotoutfit_modified = 0;
 
/* Pilot outfit metatable methods. */
static int poL_outfit( lua_State *L );
static int poL_state( lua_State *L );
static int poL_progress( lua_State *L );
static int poL_set( lua_State *L );
static int poL_clear( lua_State *L );
static const luaL_Reg poL_methods[] = {
   { "outfit", poL_outfit },
   { "state", poL_state },
   { "progress", poL_progress },
   { "set", poL_set },
   { "clear", poL_clear },
   {0,0}
}; 
int nlua_loadPilotOutfit( nlua_env env )
{
   nlua_register(env, PILOTOUTFIT_METATABLE, poL_methods, 1);
   return 0;
}
 
PilotOutfitSlot* lua_topilotoutfit( lua_State *L, int ind )
{
   return *((PilotOutfitSlot**) lua_touserdata(L,ind));
}
PilotOutfitSlot* luaL_checkpilotoutfit( lua_State *L, int ind )
{
   if (lua_ispilotoutfit(L,ind))
      return lua_topilotoutfit(L,ind);
   luaL_typerror(L, ind, PILOTOUTFIT_METATABLE);
   return NULL;
}
PilotOutfitSlot* luaL_validpilotoutfit( lua_State *L, int ind )
{
   PilotOutfitSlot *o;
 
   if (lua_ispilotoutfit(L, ind))
      o  = luaL_checkpilotoutfit(L,ind);
   else {
      luaL_typerror(L, ind, PILOTOUTFIT_METATABLE);
      return NULL;
   }
 
   if (o == NULL)
      NLUA_ERROR(L, _("Pilot Outfit is invalid."));
 
   return o;
}
PilotOutfitSlot** lua_pushpilotoutfit( lua_State *L, PilotOutfitSlot *po )
{
   PilotOutfitSlot **lpo = (PilotOutfitSlot**) lua_newuserdata(L, sizeof(PilotOutfitSlot*));
   *lpo = po;
   luaL_getmetatable(L, PILOTOUTFIT_METATABLE);
   lua_setmetatable(L, -2);
   return lpo;
}
int lua_ispilotoutfit( lua_State *L, int ind )
{
   int ret;
 
   if (lua_getmetatable(L,ind)==0)
      return 0;
   lua_getfield(L, LUA_REGISTRYINDEX, PILOTOUTFIT_METATABLE);
 
   ret = 0;
   if (lua_rawequal(L, -1, -2))  /* does it have the correct mt? */
      ret = 1;
 
   lua_pop(L, 2);  /* remove both metatables */
   return ret;
}
 
static int poL_outfit( lua_State *L )
{
   PilotOutfitSlot *po = luaL_validpilotoutfit(L,1);
   lua_pushoutfit(L, po->outfit );
   return 1;
}
 
static int poL_state( lua_State *L )
{
   PilotOutfitSlot *po = luaL_validpilotoutfit(L,1);
   const char *state = luaL_optstring(L,2,NULL);
   PilotOutfitState pos = po->state;
 
   if (!outfit_isMod( po->outfit ))
      NLUA_ERROR( L, _("'pilotoutfit.%s' only works with modifier outfits!"), "state");
 
   if (state==NULL || strcmp(state,"off")==0)
      po->state = PILOT_OUTFIT_OFF;
   else if (strcmp(state,"warmup")==0)
      po->state = PILOT_OUTFIT_WARMUP;
   else if (strcmp(state,"on")==0)
      po->state = PILOT_OUTFIT_ON;
   else if (strcmp(state,"cooldown")==0)
      po->state = PILOT_OUTFIT_COOLDOWN;
   else
      NLUA_ERROR( L, _("Unknown PilotOutfit state '%s'!"), state );
 
   /* Mark as modified if state changed. */
   if (pos != po->state)
      pilotoutfit_modified = 1;
 
   return 0;
}
 
static int poL_progress( lua_State *L )
{
   PilotOutfitSlot *po = luaL_validpilotoutfit(L,1);
 
   if (!outfit_isMod( po->outfit ))
      NLUA_ERROR( L, _("'pilotoutfit.%s' only works with modifier outfits!"), "progress");
 
   po->progress = CLAMP( 0., 1., luaL_checknumber(L,2) );
   return 0;
}
 
static int poL_set( lua_State *L )
{
   PilotOutfitSlot *po = luaL_validpilotoutfit(L,1);
   const char *name = luaL_checkstring(L,2);
   double value = luaL_checknumber(L,3);
   ss_statsSet( &po->lua_stats, name, value, 1 );
   pilotoutfit_modified = 1;
   return 0;
}
 
static int poL_clear( lua_State *L )
{
   PilotOutfitSlot *po = luaL_validpilotoutfit(L,1);
   ss_statsInit( &po->lua_stats );
   pilotoutfit_modified = 1;
   return 0;
}