/**
* Initialize a unit count of the starport.
* @param key Unit type to set.
* @param settings Count to set.
*/
static void Scenario_Load_Choam(const char *key, char *settings)
{
uint8 unitType;
unitType = Unit_StringToType(key);
if (unitType == UNIT_INVALID) return;
g_starportAvailable[unitType] = atoi(settings);
}
static void Scenario_Load_Unit(const char *key, char *settings)
{
uint8 houseType, unitType, actionType;
int8 orientation;
uint16 hitpoints;
tile32 position;
Unit *u;
char *split;
VARIABLE_NOT_USED(key);
/* The value should have 6 values separated by a ',' */
split = strchr(settings, ',');
if (split == NULL) return;
*split = '\0';
/* First value is the House type */
houseType = House_StringToType(settings);
if (houseType == HOUSE_INVALID) return;
/* Find the next value in the ',' separated list */
settings = split + 1;
split = strchr(settings, ',');
if (split == NULL) return;
*split = '\0';
/* Second value is the Unit type */
unitType = Unit_StringToType(settings);
if (unitType == UNIT_INVALID) return;
/* Find the next value in the ',' separated list */
settings = split + 1;
split = strchr(settings, ',');
if (split == NULL) return;
*split = '\0';
/* Third value is the Hitpoints in percent (in base 256) */
hitpoints = atoi(settings);
/* Find the next value in the ',' separated list */
settings = split + 1;
split = strchr(settings, ',');
if (split == NULL) return;
*split = '\0';
/* Fourth value is the position on the map */
position = Tile_UnpackTile(atoi(settings));
/* Find the next value in the ',' separated list */
settings = split + 1;
split = strchr(settings, ',');
if (split == NULL) return;
*split = '\0';
/* Fifth value is orientation */
orientation = (int8)((uint8)atoi(settings));
/* Sixth value is the current state of the unit */
settings = split + 1;
actionType = Unit_ActionStringToType(settings);
if (actionType == ACTION_INVALID) return;
u = Unit_Allocate(UNIT_INDEX_INVALID, unitType, houseType);
if (u == NULL) return;
u->o.flags.s.byScenario = true;
u->o.hitpoints = hitpoints * g_table_unitInfo[unitType].o.hitpoints / 256;
u->o.position = position;
u->orientation[0].current = orientation;
u->actionID = actionType;
u->nextActionID = ACTION_INVALID;
/* In case the above function failed and we are passed campaign 2, don't add the unit */
if (!Map_IsValidPosition(Tile_PackTile(u->o.position)) && g_campaignID > 2) {
Unit_Free(u);
return;
}
/* XXX -- There is no way this is ever possible, as the beingBuilt flag is unset by Unit_Allocate() */
if (!u->o.flags.s.isNotOnMap) Unit_SetAction(u, u->actionID);
u->o.seenByHouses = 0x00;
Unit_HouseUnitCount_Add(u, u->o.houseID);
Unit_SetOrientation(u, u->orientation[0].current, true, 0);
Unit_SetOrientation(u, u->orientation[0].current, true, 1);
Unit_SetSpeed(u, 0);
}
static void Scenario_Load_Reinforcement(const char *key, char *settings)
{
uint8 index, houseType, unitType, locationID;
uint16 timeBetween;
tile32 position;
bool repeat;
Unit *u;
char *split;
index = atoi(key);
/* The value should have 4 values separated by a ',' */
split = strchr(settings, ',');
if (split == NULL) return;
*split = '\0';
/* First value is the House type */
houseType = House_StringToType(settings);
if (houseType == HOUSE_INVALID) return;
/* Find the next value in the ',' separated list */
settings = split + 1;
split = strchr(settings, ',');
if (split == NULL) return;
*split = '\0';
/* Second value is the Unit type */
unitType = Unit_StringToType(settings);
if (unitType == UNIT_INVALID) return;
/* Find the next value in the ',' separated list */
settings = split + 1;
split = strchr(settings, ',');
if (split == NULL) return;
*split = '\0';
/* Third value is the location of the reinforcement */
if (strcasecmp(settings, "NORTH") == 0) locationID = 0;
else if (strcasecmp(settings, "EAST") == 0) locationID = 1;
else if (strcasecmp(settings, "SOUTH") == 0) locationID = 2;
else if (strcasecmp(settings, "WEST") == 0) locationID = 3;
else if (strcasecmp(settings, "AIR") == 0) locationID = 4;
else if (strcasecmp(settings, "VISIBLE") == 0) locationID = 5;
else if (strcasecmp(settings, "ENEMYBASE") == 0) locationID = 6;
else if (strcasecmp(settings, "HOMEBASE") == 0) locationID = 7;
else return;
/* Fourth value is the time between reinforcement */
settings = split + 1;
timeBetween = atoi(settings) * 6 + 1;
repeat = (settings[strlen(settings) - 1] == '+') ? true : false;
/* ENHANCEMENT -- Dune2 makes a mistake in reading the '+', causing repeat to be always false */
if (!g_dune2_enhanced) repeat = false;
position.s.x = 0xFFFF;
position.s.y = 0xFFFF;
u = Unit_Create(UNIT_INDEX_INVALID, unitType, houseType, position, 0);
if (u == NULL) return;
g_scenario.reinforcement[index].unitID = u->o.index;
g_scenario.reinforcement[index].locationID = locationID;
g_scenario.reinforcement[index].timeLeft = timeBetween;
g_scenario.reinforcement[index].timeBetween = timeBetween;
g_scenario.reinforcement[index].repeat = repeat ? 1 : 0;
}
static void ReadProfileIni(const char *filename)
{
char *source;
char *key;
char *keys;
char buffer[120];
uint16 locsi;
if (filename == NULL) return;
if (!File_Exists(filename)) return;
source = GFX_Screen_Get_ByIndex(SCREEN_1);
memset(source, 0, 32000);
File_ReadBlockFile(filename, source, GFX_Screen_GetSize_ByIndex(SCREEN_1));
keys = source + strlen(source) + 5000;
*keys = '\0';
Ini_GetString("construct", NULL, keys, keys, 2000, source);
for (key = keys; *key != '\0'; key += strlen(key) + 1) {
ObjectInfo *oi = NULL;
uint16 count;
uint8 type;
uint16 buildCredits;
uint16 buildTime;
uint16 fogUncoverRadius;
uint16 availableCampaign;
uint16 sortPriority;
uint16 priorityBuild;
uint16 priorityTarget;
uint16 hitpoints;
type = Unit_StringToType(key);
if (type != UNIT_INVALID) {
oi = &g_table_unitInfo[type].o;
} else {
type = Structure_StringToType(key);
if (type != STRUCTURE_INVALID) oi = &g_table_structureInfo[type].o;
}
if (oi == NULL) continue;
Ini_GetString("construct", key, buffer, buffer, 120, source);
count = sscanf(buffer, "%hu,%hu,%hu,%hu,%hu,%hu,%hu,%hu", &buildCredits, &buildTime, &hitpoints, &fogUncoverRadius, &availableCampaign, &priorityBuild, &priorityTarget, &sortPriority);
oi->buildCredits = buildCredits;
oi->buildTime = buildTime;
oi->hitpoints = hitpoints;
oi->fogUncoverRadius = fogUncoverRadius;
oi->availableCampaign = availableCampaign;
oi->priorityBuild = priorityBuild;
oi->priorityTarget = priorityTarget;
if (count <= 7) continue;
oi->sortPriority = (uint8)sortPriority;
}
if (g_debugGame) {
for (locsi = 0; locsi < UNIT_MAX; locsi++) {
ObjectInfo *oi = &g_table_unitInfo[locsi].o;
sprintf(buffer, "%*s%4d,%4d,%4d,%4d,%4d,%4d,%4d,%4d",
15 - (int)strlen(oi->name), "", oi->buildCredits, oi->buildTime, oi->hitpoints, oi->fogUncoverRadius,
oi->availableCampaign, oi->priorityBuild, oi->priorityTarget, oi->sortPriority);
Ini_SetString("construct", oi->name, buffer, source);
}
for (locsi = 0; locsi < STRUCTURE_MAX; locsi++) {
ObjectInfo *oi = &g_table_unitInfo[locsi].o;
sprintf(buffer, "%*s%4d,%4d,%4d,%4d,%4d,%4d,%4d,%4d",
15 - (int)strlen(oi->name), "", oi->buildCredits, oi->buildTime, oi->hitpoints, oi->fogUncoverRadius,
oi->availableCampaign, oi->priorityBuild, oi->priorityTarget, oi->sortPriority);
Ini_SetString("construct", oi->name, buffer, source);
}
}
*keys = '\0';
Ini_GetString("combat", NULL, keys, keys, 2000, source);
for (key = keys; *key != '\0'; key += strlen(key) + 1) {
uint16 damage;
uint16 movingSpeedFactor;
uint16 fireDelay;
uint16 fireDistance;
Ini_GetString("combat", key, buffer, buffer, 120, source);
String_Trim(buffer);
if (sscanf(buffer, "%hu,%hu,%hu,%hu", &fireDistance, &damage, &fireDelay, &movingSpeedFactor) < 4) continue;
for (locsi = 0; locsi < UNIT_MAX; locsi++) {
UnitInfo *ui = &g_table_unitInfo[locsi];
if (strcasecmp(ui->o.name, key) != 0) continue;
ui->damage = damage;
ui->movingSpeedFactor = movingSpeedFactor;
ui->fireDelay = fireDelay;
ui->fireDistance = fireDistance;
break;
}
}
if (!g_debugGame) return;
for (locsi = 0; locsi < UNIT_MAX; locsi++) {
const UnitInfo *ui = &g_table_unitInfo[locsi];
sprintf(buffer, "%*s%4d,%4d,%4d,%4d", 15 - (int)strlen(ui->o.name), "", ui->fireDistance, ui->damage, ui->fireDelay, ui->movingSpeedFactor);
Ini_SetString("combat", ui->o.name, buffer, source);
}
}