adam/cobm
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Some cleanups.

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/sc2/code/trunk@1458 8092fc87-c524-0410-9efc-e669fe64eaf9
This commit is contained in:
meep-eep
2005-01-18 11:47:26 +00:00
parent 49f337538a
commit f7d74f57f1
3 changed files with 113 additions and 141 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sc2/src/sc2code/grpinfo.c
+55 -75
View File
@@ -117,9 +117,7 @@ BuildGroups (void)
EXTENDED_SHIP_FRAGMENTPTR TemplatePtr;
TemplatePtr = (EXTENDED_SHIP_FRAGMENTPTR)LockStarShip (
&GLOBAL (avail_race_q),
hTemplate
);
&GLOBAL (avail_race_q), hTemplate);
hNextShip = _GetSuccLink (TemplatePtr);
if ((encounter_radius = TemplatePtr->ShipInfo.actual_strength)
@@ -128,6 +126,9 @@ BuildGroups (void)
SIZE dx, dy;
DWORD d_squared;
// XXX: i is redefined in the line below, so the assignment
// to i a few lines ago is useless... is there a bug?
// TODO: investigate
if ((i = HomeWorld[Index]) && CurStarDescPtr->Index == (BYTE)i)
{
BestIndex = Index;
@@ -176,10 +177,7 @@ BuildGroups (void)
}
FoundHome:
UnlockStarShip (
&GLOBAL (avail_race_q),
hTemplate
);
UnlockStarShip (&GLOBAL (avail_race_q), hTemplate);
}
if (BestPercent)
@@ -200,13 +198,13 @@ FoundHome:
num_groups = 5;
do
{
for (Index = HINIBBLE (EncounterMakeup[BestIndex]); Index; --Index)
for (Index = HINIBBLE (EncounterMakeup[BestIndex]); Index;
--Index)
{
if (Index <= LONIBBLE (EncounterMakeup[BestIndex])
|| (COUNT)TFB_Random () % 100 < 50)
CloneShipFragment (
BestIndex, &GLOBAL (npc_built_ship_q), 0
);
CloneShipFragment (BestIndex, &GLOBAL (npc_built_ship_q),
0);
}
PutGroupInfo (0L, ++which_group);
@@ -218,8 +216,7 @@ FoundHome:
}
static void
FlushGroupInfo (GROUP_HEADER *pGH, DWORD offset, BYTE which_group, PVOID
fp)
FlushGroupInfo (GROUP_HEADER *pGH, DWORD offset, BYTE which_group, PVOID fp)
{
BYTE RaceType, NumShips;
HSTARSHIP hStarShip;
@@ -243,8 +240,7 @@ FlushGroupInfo (GROUP_HEADER *pGH, DWORD offset, BYTE which_group, PVOID
BYTE crew_level;
FragPtr = (SHIP_FRAGMENTPTR)LockStarShip (
&temp_q, hStarShip
);
&temp_q, hStarShip);
hNextShip = _GetSuccLink (FragPtr);
crew_level = FragPtr->ShipInfo.crew_level;
which_group = GET_GROUP_ID (FragPtr);
@@ -259,12 +255,8 @@ FlushGroupInfo (GROUP_HEADER *pGH, DWORD offset, BYTE which_group, PVOID
else
FlushGroupInfo (pGH, 0L, which_group, fp);
pGH->GroupOffset[which_group] = 0;
RemoveQueue (
&temp_q, hStarShip
);
FreeStarShip (
&temp_q, hStarShip
);
RemoveQueue (&temp_q, hStarShip);
FreeStarShip (&temp_q, hStarShip);
}
}
GLOBAL (npc_built_ship_q) = temp_q;
@@ -279,20 +271,18 @@ FlushGroupInfo (GROUP_HEADER *pGH, DWORD offset, BYTE which_group, PVOID
hStarShip = GetHeadLink (&GLOBAL (npc_built_ship_q));
FragPtr = (SHIP_FRAGMENTPTR)LockStarShip (
&GLOBAL (npc_built_ship_q), hStarShip
);
&GLOBAL (npc_built_ship_q), hStarShip);
RaceType = GET_RACE_ID (FragPtr);
SeekResFile (fp, pGH->GroupOffset[which_group], SEEK_SET);
WriteResFile ((PBYTE)&RaceType, sizeof (RaceType), 1, fp);
UnlockStarShip (
&GLOBAL (npc_built_ship_q), hStarShip
);
UnlockStarShip (&GLOBAL (npc_built_ship_q), hStarShip);
}
SeekResFile (fp, offset, SEEK_SET);
WriteResFile (pGH, sizeof (*pGH), 1, fp);
#ifdef DEBUG_GROUPS
fprintf (stderr, "1)FlushGroupInfo(%lu): WG = %u(%lu), NG = %u, SI = %u\n",
offset, which_group, pGH->GroupOffset[which_group], pGH->NumGroups, pGH->star_index);
fprintf (stderr, "1)FlushGroupInfo(%lu): WG = %u(%lu), NG = %u, "
"SI = %u\n", offset, which_group, pGH->GroupOffset[which_group],
pGH->NumGroups, pGH->star_index);
#endif /* DEBUG_GROUPS */
NumShips = (BYTE)CountLinks (&GLOBAL (npc_built_ship_q));
@@ -334,11 +324,8 @@ FlushGroupInfo (GROUP_HEADER *pGH, DWORD offset, BYTE which_group, PVOID
#endif /* DEBUG_GROUPS */
Ptr = (PBYTE)&FragPtr->RaceDescPtr;
WriteResFile ((PBYTE)Ptr,
((PBYTE)&FragPtr->ShipInfo.race_strings) - Ptr,
1, fp);
UnlockStarShip (
&GLOBAL (npc_built_ship_q), hStarShip
);
((PBYTE)&FragPtr->ShipInfo.race_strings) - Ptr, 1, fp);
UnlockStarShip (&GLOBAL (npc_built_ship_q), hStarShip);
hStarShip = hNextShip;
}
}
@@ -361,7 +348,8 @@ GetGroupInfo (DWORD offset, BYTE which_group)
SeekResFile (fp, offset, SEEK_SET);
ReadResFile (&GH, sizeof (GH), 1, fp);
#ifdef DEBUG_GROUPS
fprintf (stderr, "GetGroupInfo(%lu): %u(%lu) out of %u\n", offset, which_group, GH.GroupOffset[which_group], GH.NumGroups);
fprintf (stderr, "GetGroupInfo(%lu): %u(%lu) out of %u\n", offset,
which_group, GH.GroupOffset[which_group], GH.NumGroups);
#endif /* DEBUG_GROUPS */
if (which_group == (BYTE)~0)
{
@@ -369,7 +357,8 @@ GetGroupInfo (DWORD offset, BYTE which_group)
ReinitQueue (&GLOBAL (npc_built_ship_q));
#ifdef DEBUG_GROUPS
fprintf (stderr, "%u == %u\n", GH.star_index, (COUNT)(CurStarDescPtr - star_array));
fprintf (stderr, "%u == %u\n", GH.star_index,
(COUNT)(CurStarDescPtr - star_array));
#endif /* DEBUG_GROUPS */
day_index = GH.day_index;
month_index = GH.month_index;
@@ -383,8 +372,9 @@ GetGroupInfo (DWORD offset, BYTE which_group)
#ifdef DEBUG_GROUPS
if (GH.star_index == (COUNT)(CurStarDescPtr - star_array))
fprintf (stderr, "GetGroupInfo: battle groups out of date %u/%u/%u!\n",
month_index, day_index, year_index);
fprintf (stderr, "GetGroupInfo: battle groups out of "
"date %u/%u/%u!\n", month_index, day_index,
year_index);
#endif /* DEBUG_GROUPS */
fp = res_OpenResFile (tempDir, RANDGRPINFO_FILE, "wb");
GH.NumGroups = 0;
@@ -394,7 +384,8 @@ GetGroupInfo (DWORD offset, BYTE which_group)
}
else
{
for (which_group = 1; which_group <= GH.NumGroups; ++which_group)
for (which_group = 1; which_group <= GH.NumGroups;
++which_group)
{
if (GH.GroupOffset[which_group] == 0)
continue;
@@ -411,17 +402,17 @@ GetGroupInfo (DWORD offset, BYTE which_group)
hStarShip = CloneShipFragment (RaceType,
&GLOBAL (npc_built_ship_q), 0);
FragPtr = (SHIP_FRAGMENTPTR)LockStarShip (
&GLOBAL (npc_built_ship_q), hStarShip
);
&GLOBAL (npc_built_ship_q), hStarShip);
OwnStarShip (FragPtr, BAD_GUY, 0);
SET_GROUP_ID (FragPtr, which_group);
rand_val = TFB_Random ();
task = (BYTE)(LOBYTE (LOWORD (rand_val)) % ON_STATION);
task = (BYTE)(LOBYTE (LOWORD (rand_val))
% ON_STATION);
if (task == FLEE)
task = ON_STATION;
SET_ORBIT_LOC (FragPtr,
NORMALIZE_FACING (LOBYTE (HIWORD (rand_val))));
SET_ORBIT_LOC (FragPtr, NORMALIZE_FACING (
LOBYTE (HIWORD (rand_val))));
group_loc = pSolarSysState->SunDesc[0].NumPlanets;
if (group_loc == 1 && task == EXPLORE)
@@ -438,8 +429,7 @@ GetGroupInfo (DWORD offset, BYTE which_group)
(HIWORD (rand_val) % 10000) - 5000;
if (task == EXPLORE)
FragPtr->ShipInfo.group_counter =
((COUNT)TFB_Random ()
% MAX_REVOLUTIONS)
((COUNT)TFB_Random () % MAX_REVOLUTIONS)
<< FACING_SHIFT;
else
{
@@ -449,16 +439,11 @@ GetGroupInfo (DWORD offset, BYTE which_group)
COUNT angle;
POINT org;
XFormIPLoc (
&pSolarSysState->PlanetDesc[
group_loc - 1
].image.origin,
&org,
FALSE
);
angle = FACING_TO_ANGLE (
GET_ORBIT_LOC (FragPtr) + 1
);
XFormIPLoc (&pSolarSysState->PlanetDesc[
group_loc - 1].image.origin, &org,
FALSE);
angle = FACING_TO_ANGLE (GET_ORBIT_LOC (
FragPtr) + 1);
FragPtr->ShipInfo.loc.x = org.x
+ COSINE (angle, STATION_RADIUS);
FragPtr->ShipInfo.loc.y = org.y
@@ -471,8 +456,8 @@ GetGroupInfo (DWORD offset, BYTE which_group)
SET_GROUP_LOC (FragPtr, group_loc);
#ifdef DEBUG_GROUPS
fprintf (stderr, "battle group %u(0x%04x) strength %u, "
"type %u, loc %u<%d, %d>, task %u\n",
fprintf (stderr, "battle group %u(0x%04x) strength "
"%u, type %u, loc %u<%d, %d>, task %u\n",
which_group,
hStarShip,
NumShips,
@@ -482,9 +467,8 @@ GetGroupInfo (DWORD offset, BYTE which_group)
FragPtr->ShipInfo.loc.y,
task);
#endif /* DEBUG_GROUPS */
UnlockStarShip (
&GLOBAL (npc_built_ship_q), hStarShip
);
UnlockStarShip (&GLOBAL (npc_built_ship_q),
hStarShip);
}
}
@@ -544,16 +528,16 @@ GetGroupInfo (DWORD offset, BYTE which_group)
&GLOBAL (npc_built_ship_q), 0);
FragPtr = (SHIP_FRAGMENTPTR)LockStarShip (
&GLOBAL (npc_built_ship_q), hStarShip
);
&GLOBAL (npc_built_ship_q), hStarShip);
Ptr = (PBYTE)&FragPtr->RaceDescPtr;
ReadResFile ((PBYTE)Ptr,
((PBYTE)&FragPtr->ShipInfo.race_strings) - Ptr,
1, fp);
((PBYTE)&FragPtr->ShipInfo.race_strings) - Ptr, 1,
fp);
#ifdef DEBUG_GROUPS
if (which_group == 0)
fprintf (stderr, "G) type %u, loc %u<%d, %d>, task 0x%02x:%u\n",
fprintf (stderr, "G) type %u, loc %u<%d, %d>, "
"task 0x%02x:%u\n",
RaceType,
GET_GROUP_LOC (FragPtr),
FragPtr->ShipInfo.loc.x,
@@ -591,15 +575,9 @@ GetGroupInfo (DWORD offset, BYTE which_group)
#ifdef DEBUG_GROUPS
fprintf (stderr, " -- REMOVING\n");
#endif /* DEBUG_GROUPS */
UnlockStarShip (
&GLOBAL (npc_built_ship_q), hStarShip
);
RemoveQueue (
&GLOBAL (npc_built_ship_q), hStarShip
);
FreeStarShip (
&GLOBAL (npc_built_ship_q), hStarShip
);
UnlockStarShip (&GLOBAL (npc_built_ship_q), hStarShip);
RemoveQueue (&GLOBAL (npc_built_ship_q), hStarShip);
FreeStarShip (&GLOBAL (npc_built_ship_q), hStarShip);
}
}
}
@@ -652,7 +630,8 @@ PutGroupInfo (DWORD offset, BYTE which_group)
month_index = 0;
day_index = 7;
year_index = 0;
ValidateEvent (RELATIVE_EVENT, &month_index, &day_index, &year_index);
ValidateEvent (RELATIVE_EVENT, &month_index, &day_index,
&year_index);
GH.day_index = (BYTE)day_index;
GH.month_index = (BYTE)month_index;
GH.year_index = year_index;
@@ -672,3 +651,4 @@ GH.month_index, GH.day_index, GH.year_index);
return (offset);
}
sc2/src/sc2code/planets/devices.c
+3
View File
@@ -19,6 +19,9 @@
#include "starcon.h"
#include "controls.h"
// If DEBUG_DEVICES is defined, the device list shown in the game will
// include the pictures of all devices defined, regardless of which
// devices the player actually possesses.
//#define DEBUG_DEVICES
static COUNT
sc2/src/sc2code/planets/lander.c
+28 -39
View File
@@ -82,8 +82,11 @@ const LIFEFORM_DESC CreatureData[] =
{SPEED_MOTIONLESS | DANGER_WEAK, MAKE_BYTE (8, 5)},
{SPEED_MOTIONLESS | DANGER_MONSTROUS, MAKE_BYTE (1, 1)},
// Evil One
{BEHAVIOR_UNPREDICTABLE | SPEED_SLOW | DANGER_HARMLESS, MAKE_BYTE (0, 1)},
// Brainbox Bulldozer
{BEHAVIOR_HUNT | AWARENESS_HIGH | SPEED_FAST | DANGER_MONSTROUS, MAKE_BYTE (15, 15)},
// Zex's Beauty
};
#define FLASH_WIDTH 9
@@ -204,9 +207,8 @@ object_animation (PELEMENT ElementPtr)
{
COLOR c;
if ((c = DamageColorCycle (
GetPrimColor (pPrim), 0
)) == WHITE_COLOR)
c = DamageColorCycle (GetPrimColor (pPrim), 0);
if (c == WHITE_COLOR)
{
SetPrimType (pPrim, STAMP_PRIM);
if (ElementPtr->hit_points == 0)
@@ -321,6 +323,16 @@ object_animation (PELEMENT ElementPtr)
DetectPercent = (((BYTE)(CreatureData[index].Attributes
& AWARENESS_MASK) >> AWARENESS_SHIFT) + 1)
* (30 / 6);
// XXX: Shouldn't this be dependant on
// PLANET_SIDE_RATE somehow? And why is it
// written as '30 / 6' instead of 5? Does the 30
// specify the (PC) framerate? That doesn't make
// sense; I would expect it to be in the
// denominator. And even then, it wouldn't give
// the same results with different frame rates,
// as repeating 'random(x / 30)' 30 times doesn't
// generally have the same result as repeating
// 'random(x / 35)' 25 times. - SvdB
if (((BYTE)TFB_Random () % 100) < DetectPercent)
{
ElementPtr->thrust_wait = 0;
@@ -383,11 +395,8 @@ object_animation (PELEMENT ElementPtr)
break;
}
SetVelocityComponents (
&ElementPtr->velocity,
COSINE (angle, speed),
SINE (angle, speed)
);
SetVelocityComponents (&ElementPtr->velocity,
COSINE (angle, speed), SINE (angle, speed));
}
}
}
@@ -705,8 +714,7 @@ CheckObjectCollision (COUNT index)
SetPrimColor (pPrim, WHITE_COLOR);
PlaySound (SetAbsSoundIndex (
LanderSounds, LANDER_HITS
), NotPositional (), NULL, GAME_SOUND_PRIORITY);
LanderSounds, LANDER_HITS), NotPositional (), NULL, GAME_SOUND_PRIORITY);
}
UnlockElement (hElement);
break;
@@ -726,10 +734,8 @@ CheckObjectCollision (COUNT index)
{
if (pPSD->ElementLevel
+ NumRetrieved > pPSD->MaxElementLevel)
NumRetrieved = (COUNT)(
pPSD->MaxElementLevel
- pPSD->ElementLevel
);
NumRetrieved = (COUNT)(pPSD->MaxElementLevel
- pPSD->ElementLevel);
FillLanderHold (pPSD, scan, NumRetrieved);
if (scan == MINERAL_SCAN)
{
@@ -1798,39 +1804,22 @@ LoadLanderData (void)
if (LanderFrame[0] == 0)
{
LanderFrame[0] =
CaptureDrawable (
LoadGraphic (LANDER_MASK_PMAP_ANIM)
);
CaptureDrawable (LoadGraphic (LANDER_MASK_PMAP_ANIM));
LanderFrame[1] =
CaptureDrawable (
LoadGraphic (QUAKE_MASK_PMAP_ANIM)
);
CaptureDrawable (LoadGraphic (QUAKE_MASK_PMAP_ANIM));
LanderFrame[2] =
CaptureDrawable (
LoadGraphic (LIGHTNING_MASK_ANIM)
);
CaptureDrawable (LoadGraphic (LIGHTNING_MASK_ANIM));
LanderFrame[3] =
CaptureDrawable (
LoadGraphic (LAVA_MASK_PMAP_ANIM)
);
LanderFrame[4] =
CaptureDrawable (
LoadGraphic (LANDER_SHIELD_MASK_ANIM)
);
CaptureDrawable (LoadGraphic (LAVA_MASK_PMAP_ANIM));
LanderFrame[4] = CaptureDrawable (LoadGraphic (LANDER_SHIELD_MASK_ANIM));
LanderFrame[5] =
CaptureDrawable (
LoadGraphic (LANDER_LAUNCH_MASK_PMAP_ANIM)
);
CaptureDrawable (LoadGraphic (LANDER_LAUNCH_MASK_PMAP_ANIM));
LanderFrame[6] =
CaptureDrawable (
LoadGraphic (LANDER_RETURN_MASK_PMAP_ANIM)
);
CaptureDrawable (LoadGraphic (LANDER_RETURN_MASK_PMAP_ANIM));
LanderSounds = CaptureSound (LoadSound (LANDER_SOUNDS));
LanderFrame[7] =
CaptureDrawable (
LoadGraphic (ORBIT_VIEW_ANIM)
);
CaptureDrawable (LoadGraphic (ORBIT_VIEW_ANIM));
{
COUNT i;