| version 1.15 | | version 1.16 |
|---|
| | |
| /* | | /* |
| * static char *rcsid_readable_c = | | * static char *rcsid_readable_c = |
| * "$Id: readable.c,v 1.15 2004/10/09 19:36:29 akirschbaum Exp $"; | | * "$Id: readable.c,v 1.16 2004/12/29 01:08:48 mwedel Exp $"; |
| */ | | */ |
| | | |
| /* | | /* |
| | |
| break; | | break; |
| } | | } |
| | | |
| /* preamble */ | | |
| strcpy (retbuf, "Herein is described an alchemical proceedure: \n"); | | |
| | | |
| if (!formula) { | | if (!formula) { |
| book->msg = add_string(" <indescipherable text>\n"); | | book->msg = add_string(" <indescipherable text>\n"); |
| new_text_name(book, 4); | | new_text_name(book, 4); |
| | |
| archetype *at; | | archetype *at; |
| int nindex = nstrtok (formula->arch_name, ","); | | int nindex = nstrtok (formula->arch_name, ","); |
| | | |
| | | /* preamble */ |
| | | sprintf(retbuf, "Herein is described a project using %s: \n", |
| | | formula->skill?formula->skill:"an unknown skill"); |
| | | |
| /* construct name of object to be made */ | | /* construct name of object to be made */ |
| if (nindex > 1) | | if (nindex > 1) |
| { | | { |
| | |
| if (formula->ingred != NULL) | | if (formula->ingred != NULL) |
| { | | { |
| linked_char *next; | | linked_char *next; |
| strcat (retbuf, " may be made using the \nfollowing ingredients:\n"); | | archetype *at; |
| | | |
| | | at = find_archetype(formula->cauldron); |
| | | |
| | | sprintf(retbuf + strlen(retbuf), |
| | | " may be made at %s using the following ingredients:\n", |
| | | at?query_name(&at->clone):"an unknown place"); |
| | | |
| for (next = formula->ingred; next != NULL; next = next->next) | | for (next = formula->ingred; next != NULL; next = next->next) |
| { | | { |
| strcat (retbuf, next->name); | | strcat (retbuf, next->name); |