static char *sccsid
= "@(#)dr_5.c 1.1 83/03/17";
subtract(from
, totalfrom
, crewfrom
, fromcap
, pcfrom
)
int from
, fromcap
, pcfrom
;
register int totalfrom
, crewfrom
[3];
if (fromcap
== from
&& totalfrom
){ /* if not captured */
if (totalfrom
> crewfrom
[n
]){
totalfrom
-= crewfrom
[n
];
crewfrom
[n
] -= totalfrom
;
Write(SPECS
+ from
, 0, 14 + 2*n
, crewfrom
[n
]);
pcfrom
= pcfrom
< 0 ? 0 : pcfrom
;
Write(FILES
+ from
, 0, 70, pcfrom
);
mensent(from
, to
, crew
, captured
, pc
, points
, key
)
int from
, to
, key
, crew
[3], *captured
, *pc
, *points
;
{ /* returns # of crew squares sent */
ptr
= &specs
[scene
[game
].ship
[from
].shipnum
];
ptr1
= scene
[game
].ship
[from
].file
; /* key: 0 OBP */
ptr2
= key
? ptr1
-> DBP
: ptr1
-> OBP
; /* 1 DBP */
*captured
= ptr1
-> captured
;
if (ptr2
[n
].turnsent
&& ptr2
[n
].toship
== to
)
c1
= men
/100 ? crew
[0] : 0;
c2
= (men
%100)/10 ? crew
[1] : 0;
c3
= men
/10 ? crew
[2] : 0;
c3
= *captured
< 0 ? crew
[2] : *pc
;