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