|
|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T p
Length: 1065 (0x429)
Types: TextFile
Names: »printships.c«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
└─⟦this⟧ »EUUGD18/General/Trek73/src/printships.c«
#ident "@(#) TREK73 $Header: printships.c,v 1.1 87/10/09 11:10:37 okamoto Exp $"
/*
* $Source: /ccc/okamoto/src/trek/src/RCS/printships.c,v $
*
* $Header: printships.c,v 1.1 87/10/09 11:10:37 okamoto Exp $
*
* $Log: printships.c,v $
* Revision 1.1 87/10/09 11:10:37 11:10:37 okamoto (Jeff Okamoto)
* Initial revision
*
*/
/*
* TREK73: printships.c
*
* Print Basic Point Values for all standard ships.
*
*/
#include <stdio.h>
#include "externs.h"
extern struct ship_stat stats[];
main()
{
double bpv, efficiency;
int turn, max_speed;
int i;
void calculate();
for(i=0; i<MAXSHIPCLASS; i++) {
calculate(
stats[i].regen,
stats[i].pods,
stats[i].ph_shield,
stats[i].tp_shield,
stats[i].num_phaser + stats[i].num_torp,
stats[i].o_crew,
&bpv,
&efficiency,
&turn,
&max_speed
);
printf("%s:", stats[i].abbr);
printf("\tBPV =\t\t%.2f\n", bpv);
printf("\tEfficiency =\t%.2f\n", efficiency);
printf("\tTurn =\t\t%d\n", turn);
printf("\tMax speed =\t%d\n\n", max_speed);
}
}