/**
* @brief Parses the actual individual event nodes.
*
* @param parent Parent node to parse.
* @return 0 on success.
*/
static int events_parseActive( xmlNodePtr parent )
{
char *buf;
unsigned int id;
int data;
xmlNodePtr node, cur;
Event_t *ev;
node = parent->xmlChildrenNode;
do {
if (!xml_isNode(node,"event"))
continue;
xmlr_attr(node,"name",buf);
if (buf==NULL) {
WARN("Event has missing 'name' attribute, skipping.");
continue;
}
data = event_dataID( buf );
if (data < 0) {
WARN("Event in save has name '%s' but event data not found matching name. Skipping.", buf);
free(buf);
continue;
}
free(buf);
xmlr_attr(node,"id",buf);
if (buf==NULL) {
WARN("Event with data '%s' has missing 'id' attribute, skipping.", event_dataName(data));
continue;
}
id = atoi(buf);
free(buf);
if (id==0) {
WARN("Event with data '%s' has invalid 'id' attribute, skipping.", event_dataName(data));
continue;
}
/* Create the event. */
event_create( data, &id );
ev = event_get( id );
if (ev == NULL) {
WARN("Event with data '%s' was not created, skipping.", event_dataName(data));
continue;
}
ev->save = 1; /* Should save by default again. */
/* Get the data. */
cur = node->xmlChildrenNode;
do {
if (xml_isNode(cur,"lua"))
nxml_unpersistLua( ev->L, cur );
} while (xml_nextNode(cur));
/* Claims. */
if (xml_isNode(node,"claims"))
ev->claims = claim_xmlLoad( node );
} while (xml_nextNode(node));
return 0;
}
/**
* @brief Checks to see if the player has an event active.
*
* @usage if player.evtActive( "Shipwreck" ) then -- The shipwreck event is active
*
* @luaparam name Name of the mission to check.
* @luareturn true if the mission is active, false if it isn't.
* @luafunc evtActive( name )
*/
static int playerL_evtActive( lua_State *L )
{
int evtid;
const char *str;
str = luaL_checkstring(L,1);
evtid = event_dataID( str );
if (evtid < 0) {
NLUA_ERROR(L, "Event '%s' not found in stack", str);
return 0;
}
lua_pushboolean( L, event_alreadyRunning( evtid ) );
return 1;
}
/**
* @brief Starts an event.
*
* @param name Name of the event to start.
* @param[out] id ID of the newly created event.
* @return 0 on success, <0 on error.
*/
int event_start( const char *name, unsigned int *id )
{
int ret, edat;
unsigned int eid;
edat = event_dataID( name );
if (edat < 0)
return -1;
eid = 0;
ret = event_create( edat, &eid );
if ((ret == 0) && (id != NULL))
*id = eid;
return ret;
}
/**
* @brief Checks to see if player has done an event.
*
* @usage if player.evtDone( "Shipwreck" ) then -- Player finished event
*
* @luaparam name Name of the event to check.
* @luareturn true if event was finished, false if it wasn't.
* @luafunc evtDone( name )
*/
static int playerL_evtDone( lua_State *L )
{
const char *str;
int id;
/* Handle parameters. */
str = luaL_checkstring(L, 1);
/* Get event ID. */
id = event_dataID( str );
if (id == -1) {
NLUA_ERROR(L, "Event '%s' not found in stack", str);
return 0;
}
return player_eventAlreadyDone( id );
}
