Mercurial > hg > early-roguelike
view srogue/rgdata.c @ 244:ded75a57405c
Rogue V4, V5: fix messages when viewing the identified items.
The functions for displaying the list of identified items begin by
prompting for the category of item, using msg(). Rogue V4 left this
prompt on the screen after displaying the discovery list. Rogue V5
erased the message window even if the process of printing the list
created another message which the player had not read.
Messages are now cleared in endline(), which is capable of checking
whether clearing should be done.
author | John "Elwin" Edwards |
---|---|
date | Sun, 24 Apr 2016 13:33:17 -0400 |
parents | 2128c7dc8a40 |
children |
line wrap: on
line source
/* * Super-Rogue * Copyright (C) 1984 Robert D. Kindelberger * All rights reserved. * * See the file LICENSE.TXT for full copyright and licensing information. */ #include "global.c" main(argc,argv) char **argv; int argc; { char *ptr; int i, j, k; struct magic_item *mi; struct init_weps *wp; struct init_armor *ar; struct monster *mo; FILE *fo; /* * write to desired output file */ if (argc > 1) { fo = fopen(argv[1], "w"); if (fo == NULL) { printf("%s: %s not writable\n",argv[0],argv[1]); exit(1); } } else fo = stdout; /* * print total chances for armor, weapons, food, scrolls, etc */ fprintf(fo,"\n\n\n\n\n\n"); fprintf(fo,"\t ITEM GENERAL INFO\n\n\n"); fprintf(fo,"NAME\t\tCHANCE\t\tWEIGHT\n\n"); for (mi = &things[0]; mi < &things[NUMTHINGS]; mi++) { fprintf(fo,"%s\t\t",mi->mi_name); i = mi->mi_prob / 10; j = mi->mi_prob % 10; fprintf(fo,"%2d.%1d %%\t\t",i,j); i = mi->mi_wght / 10; j = mi->mi_wght % 10; if (i == 0 && j == 0) fprintf(fo,"%3s\n","*"); else fprintf(fo,"%3d.%1d lbs\n",i,j); } fprintf(fo,"\n\n\n\n\n\n\nNOTES - * means that weight depends on which one of that item type\n"); fprintf(fo," - All items weigh 20%% more when cursed\n"); /* * print stuff about potions */ fprintf(fo,"\n\n\n\n\n\n"); fprintf(fo,"\t\t POTION INFO\n\n\n"); fprintf(fo,"NAME\t\t\t\tCHANCE\t\tWORTH\n\n"); for (mi = &p_magic[0]; mi < &p_magic[MAXPOTIONS]; mi++) { fprintf(fo,"%s\t",mi->mi_name); k = strlen(mi->mi_name); if (k < 8) ptr = "\t\t\t"; else if (k >= 16) ptr = "\t"; else ptr = "\t\t"; fprintf(fo,"%s", ptr); i = mi->mi_prob / 10; j = mi->mi_prob % 10; fprintf(fo,"%2d.%1d %%\t\t",i,j); fprintf(fo,"%3d\n",mi->mi_worth); } fprintf(fo,"\n\n\n\n\nNOTE - All potions weigh 0.5 lbs\n"); /* * print stuff about scrolls */ fprintf(fo,"\n\n\n\n\n\n"); fprintf(fo,"\t\t SCROLL INFO\n\n\n"); fprintf(fo,"NAME\t\t\t\tCHANCE\t\tWORTH\n\n"); for (mi = &s_magic[0]; mi < &s_magic[MAXSCROLLS]; mi++) { fprintf(fo,"%s\t",mi->mi_name); k = strlen(mi->mi_name); if (k < 8) ptr = "\t\t\t"; else if (k >= 16) ptr = "\t"; else ptr = "\t\t"; fprintf(fo,"%s", ptr); i = mi->mi_prob / 10; j = mi->mi_prob % 10; fprintf(fo,"%2d.%1d %%\t\t",i,j); fprintf(fo,"%3d\n",mi->mi_worth); } fprintf(fo,"\n\n\n\n\nNOTE - All scrolls weigh 3.0 lbs\n"); /* * print stuff about rings */ fprintf(fo,"\n\n\n\n\n\n"); fprintf(fo,"\t\t RING INFO\n\n\n"); fprintf(fo,"NAME\t\t\t\tCHANCE\t\tWORTH\n\n"); for (mi = &r_magic[0]; mi < &r_magic[MAXRINGS]; mi++) { fprintf(fo,"%s\t",mi->mi_name); k = strlen(mi->mi_name); if (k < 8) ptr = "\t\t\t"; else if (k >= 16) ptr = "\t"; else ptr = "\t\t"; fprintf(fo,"%s", ptr); i = mi->mi_prob / 10; j = mi->mi_prob % 10; fprintf(fo,"%2d.%1d %%\t\t",i,j); fprintf(fo,"%3d\n",mi->mi_worth); } fprintf(fo,"\n\n\n\n\nNOTE - All rings weigh 0.5 lbs\n"); /* * print stuff about sticks */ fprintf(fo,"\n\n\n\n\n\n"); fprintf(fo,"\t\t STAFF/WAND INFO\n\n\n"); fprintf(fo,"NAME\t\t\t\tCHANCE\t\tWORTH\n\n"); for (mi = &ws_magic[0]; mi < &ws_magic[MAXSTICKS]; mi++) { fprintf(fo,"%s\t",mi->mi_name); k = strlen(mi->mi_name); if (k < 8) ptr = "\t\t\t"; else if (k >= 16) ptr = "\t"; else ptr = "\t\t"; fprintf(fo,"%s", ptr); i = mi->mi_prob / 10; j = mi->mi_prob % 10; fprintf(fo,"%2d.%1d %%\t\t",i,j); fprintf(fo,"%3d\n",mi->mi_worth); } fprintf(fo,"\n\n\n\n\nNOTES - All wands weigh 6.0 lbs\n"); fprintf(fo," - All staffs weigh 10.0 lbs\n"); fprintf(fo," - Wands contain from 4 to 8 charges\n"); fprintf(fo," - Staffs contain from 5 to 12 charges\n"); fprintf(fo," - Sticks of light have an additional 7 to 15 charges\n"); /* * print armor info */ fprintf(fo,"\n\n\n\n\n\n"); fprintf(fo,"\t\t\t\tARMOR INFO\n\n\n"); fprintf(fo,"NAME\t\t\t\tAC\tCHANCE\t\tWORTH\t\tWEIGHT\n\n"); for (ar = &armors[0]; ar < &armors[MAXARMORS]; ar++) { fprintf(fo,"%s\t",ar->a_name); k = strlen(ar->a_name); if (k < 8) ptr = "\t\t\t"; else if (k >= 16) ptr = "\t"; else ptr = "\t\t"; fprintf(fo,"%s", ptr); fprintf(fo,"%2d\t",ar->a_class); fprintf(fo,"%2d %%\t\t",ar->a_prob); fprintf(fo,"%3d\t\t",ar->a_worth); fprintf(fo,"%2d lbs\n",ar->a_wght / 10); } fprintf(fo,"\n\n\n\n\nNOTE - All armor becomes 50%% lighter when blessed\n"); /* * print stuff about weapons */ fprintf(fo,"\n\n\n\n\n\n"); fprintf(fo,"\t\t\t\t\tWEAPON INFO\n\n\n"); fprintf(fo, "NAME\t\t\tHIT DAMAGE\tHURL DAMAGE\tWORTH\t\tWEIGHT\n\n"); for (wp = &weaps[0]; wp < &weaps[MAXWEAPONS]; wp++) { fprintf(fo,"%s\t",wp->w_name); k = strlen(wp->w_name); if (k < 8) ptr = "\t\t"; else if (k >= 16) ptr = ""; else ptr = "\t"; fprintf(fo,"%s", ptr); ptr = wp->w_dam; i = *ptr - '0'; j = 0; ptr += 2; while (*ptr != NULL) { j = j * 10 + (*ptr - '0'); ++ptr; } j *= i; fprintf(fo," %d to %d\t",i,j); ptr = wp->w_hrl; i = *ptr - '0'; j = 0; ptr += 2; while (*ptr != NULL) { j = j * 10 + (*ptr - '0'); ++ptr; } j *= i; fprintf(fo," %d to %d\t",i,j); fprintf(fo,"%4d\t\t",wp->w_worth); i = wp->w_wght / 10; j = wp->w_wght % 10; fprintf(fo,"%2d.%1d lbs\n",i,j); } fprintf(fo,"\n\n\n\n\nNOTE - All weapons become 50%% lighter when blessed\n"); /* * print stuff about the monsters */ }