|
|
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: 1760 (0x6e0)
Types: TextFile
Names: »prof.c.orig«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
└─⟦this⟧ »EUUGD18/General/Gb/prof.c.orig«
/*
* Galactic Bloodshed (Robert Chansky, smq@b)
* prof.c -- print out racial profile
*/
#include "vars.h"
#include "races.h"
profile(APcount, argn,args)
int APcount;
int argn;
char args[MAXARGS][COMMANDSIZE];
{
int i, numraces;
printf("---==** Racial profile for %s (player %d) **==---\n\n",Race->name,
Race->Playernum);
if (Race->Thing)
printf("Your race is like \"The Thing\".\n");
printf("%srate:%.1f\n",Race->Thing ? "Infection " : "Birth",Race->birthrate);
printf("# of sexes: %d\n", Race->number_sexes);
printf("Technology: %.1f\n",Race->tech);
printf("Avg Intelligence: %u\n",Race->IQ);
printf("mass:%.2f\n",Race->mass);
printf("metabolism:%.1f\n",Race->metabolism);
printf("adventurists:%.2f%%\n",Race->nonhomebodies*100.0);
printf("default scope: / %s / %s.\n",Stars[Race->homesystem]->name,
Stars[Race->homesystem]->pnames[Race->homeplanetnum] );
printf("planetary conditions preferred by %s:\n", Race->name);
printf(" temperature: %d\n", Temp(Race->conditions[TEMP]) );
printf(" atmosphere concentrations:\n");
printf(" methane %02d%% oxygen %02d%%\n",
Race->conditions[METHANE], Race->conditions[OXYGEN] );
printf(" CO2 %02d%% hydrogen %02d%%\n",
Race->conditions[CO2], Race->conditions[HYDROGEN] );
printf(" nitrogen %02d%% sulfur %02d%%\n",
Race->conditions[NITROGEN], Race->conditions[SULFUR] );
printf(" helium %02d%% other %02d%%\n",
Race->conditions[HELIUM], Race->conditions[OTHER]);
printf("\nRelations with other races:\nPlayer relation\n");
numraces = Numraces();
for (i=1; i<= numraces; i++)
if (i!=Race->Playernum)
printf("%2d %s\n", i, isset( Race->atwar, i) ? "war!" :
isset( Race->allied, i) ? "alliance" :
"neutral" );
}