/**
* @brief Makes sure it's sane to buy a ship.
* @param shipname Ship being bought.
*/
int shipyard_canBuy ( char *shipname, Planet *planet )
{
Ship* ship;
ship = ship_get( shipname );
int failure = 0;
credits_t price;
price = ship_buyPrice(ship);
/* Must have enough credits and the necessary license. */
if ((!player_hasLicense(ship->license)) &&
((planet == NULL) || (!planet_isBlackMarket(planet)))) {
land_errDialogueBuild( "You lack the %s.", ship->license );
failure = 1;
}
if (!player_hasCredits( price )) {
char buf[ECON_CRED_STRLEN];
credits2str( buf, price - player.p->credits, 2 );
land_errDialogueBuild( "You need %s more credits.", buf);
failure = 1;
}
return !failure;
}
/**
* @brief Saves a planet.
*
* @param writer Write to use for saving the star planet.
* @param p Planet to save.
* @return 0 on success.
*/
int dpl_savePlanet( const Planet *p )
{
xmlDocPtr doc;
xmlTextWriterPtr writer;
char file[PATH_MAX], *cleanName;
int i;
/* Create the writer. */
writer = xmlNewTextWriterDoc(&doc, 0);
if (writer == NULL) {
WARN("testXmlwriterDoc: Error creating the xml writer");
return -1;
}
/* Set the writer parameters. */
xmlw_setParams( writer );
/* Start writer. */
xmlw_start(writer);
xmlw_startElem( writer, "asset" );
/* Attributes. */
xmlw_attr( writer, "name", "%s", p->name );
/* Explicit virtualness. */
if (p->real == ASSET_VIRTUAL)
xmlw_elemEmpty( writer, "virtual" );
/* Position. */
if (p->real == ASSET_REAL) {
xmlw_startElem( writer, "pos" );
xmlw_elem( writer, "x", "%f", p->pos.x );
xmlw_elem( writer, "y", "%f", p->pos.y );
xmlw_endElem( writer ); /* "pos" */
}
/* GFX. */
if (p->real == ASSET_REAL) {
xmlw_startElem( writer, "GFX" );
xmlw_elem( writer, "space", "%s", p->gfx_spacePath );
xmlw_elem( writer, "exterior", "%s", p->gfx_exteriorPath );
xmlw_endElem( writer ); /* "GFX" */
}
/* Presence. */
if (p->faction >= 0) {
xmlw_startElem( writer, "presence" );
xmlw_elem( writer, "faction", "%s", faction_name( p->faction ) );
xmlw_elem( writer, "value", "%f", p->presenceAmount );
xmlw_elem( writer, "range", "%d", p->presenceRange );
xmlw_endElem( writer );
}
/* General. */
if (p->real == ASSET_REAL) {
xmlw_startElem( writer, "general" );
xmlw_elem( writer, "class", "%s", p->class );
xmlw_elem( writer, "population", "%"PRIu64, p->population );
xmlw_elem( writer, "hide", "%f", sqrt(p->hide) );
xmlw_startElem( writer, "services" );
if (planet_hasService( p, PLANET_SERVICE_LAND )) {
if (p->land_func == NULL)
xmlw_elemEmpty( writer, "land" );
else
xmlw_elem( writer, "land", "%s", p->land_func );
}
if (planet_hasService( p, PLANET_SERVICE_REFUEL ))
xmlw_elemEmpty( writer, "refuel" );
if (planet_hasService( p, PLANET_SERVICE_BAR ))
xmlw_elemEmpty( writer, "bar" );
if (planet_hasService( p, PLANET_SERVICE_MISSIONS ))
xmlw_elemEmpty( writer, "missions" );
if (planet_hasService( p, PLANET_SERVICE_COMMODITY ))
xmlw_elemEmpty( writer, "commodity" );
if (planet_hasService( p, PLANET_SERVICE_OUTFITS ))
xmlw_elemEmpty( writer, "outfits" );
if (planet_hasService( p, PLANET_SERVICE_SHIPYARD ))
xmlw_elemEmpty( writer, "shipyard" );
xmlw_endElem( writer ); /* "services" */
if (planet_hasService( p, PLANET_SERVICE_LAND )) {
xmlw_startElem( writer, "commodities" );
for (i=0; i<p->ncommodities; i++)
xmlw_elem( writer, "commodity", "%s", p->commodities[i]->name );
xmlw_endElem( writer ); /* "commodities" */
if (planet_isBlackMarket(p))
xmlw_elemEmpty( writer, "blackmarket" );
xmlw_elem( writer, "description", "%s", p->description );
if (planet_hasService( p, PLANET_SERVICE_BAR ))
xmlw_elem( writer, "bar", "%s", p->bar_description );
}
xmlw_endElem( writer ); /* "general" */
}
