SLIC-Reference : : CreateBuilding  

//----------------------------------------------------------------------------
//
// Authored   : Maq
//
// Name       : Slic_CreateBuilding
//
// Description: Function to create a building in a city.
//
// Parameters : SlicArg 0: city
//		SlicArg 1: buildingdb index
//
// Globals    : -
//
// Returns    : SFN_ERROR		: execution result
//
//----------------------------------------------------------------------------
SFN_ERROR Slic_CreateBuilding::Call(SlicArgList *args)
{
	if (args->Count() != 2) {
		return SFN_ERROR_NUM_ARGS;
	}

	Unit city;
	sint32 type;
	if(!args->GetCity(0, city)) {
		return SFN_ERROR_TYPE_BUILTIN;
	}

	if(!args->GetInt(1, type))
		return SFN_ERROR_TYPE_ARGS;

	if(!g_theUnitPool->IsValid(city)) {
		return SFN_ERROR_OK;
	}

	if(type < 0 || type >= g_theBuildingDB->NumRecords())
		return SFN_ERROR_OUT_OF_RANGE;

	city.CD()->AddImprovement(type);
	return SFN_ERROR_OK;

}