|
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); } }