| … | |
… | |
| 1014 | init_archetype_pointers (); /* Setup global pointers to archetypes */ |
1014 | init_archetype_pointers (); /* Setup global pointers to archetypes */ |
| 1015 | init_races (); /* overwrite race designations using entries in lib/races file */ |
1015 | init_races (); /* overwrite race designations using entries in lib/races file */ |
| 1016 | init_gods (); /* init linked list of gods from archs */ |
1016 | init_gods (); /* init linked list of gods from archs */ |
| 1017 | init_readable (); /* inits useful arrays for readable texts */ |
1017 | init_readable (); /* inits useful arrays for readable texts */ |
| 1018 | init_formulae (); /* If not called before, reads formulae from file */ |
1018 | init_formulae (); /* If not called before, reads formulae from file */ |
| 1019 | |
|
|
| 1020 | switch (settings.dumpvalues) |
|
|
| 1021 | { |
|
|
| 1022 | case 1: |
|
|
| 1023 | print_monsters (); |
|
|
| 1024 | exit (0); |
|
|
| 1025 | case 2: |
|
|
| 1026 | dump_abilities (); |
|
|
| 1027 | exit (0); |
|
|
| 1028 | case 3: |
|
|
| 1029 | dump_artifacts (); |
|
|
| 1030 | exit (0); |
|
|
| 1031 | case 4: |
|
|
| 1032 | dump_spells (); |
|
|
| 1033 | exit (0); |
|
|
| 1034 | case 5: |
|
|
| 1035 | exit (0); |
|
|
| 1036 | case 6: |
|
|
| 1037 | dump_races (); |
|
|
| 1038 | exit (0); |
|
|
| 1039 | case 7: |
|
|
| 1040 | dump_alchemy (); |
|
|
| 1041 | exit (0); |
|
|
| 1042 | case 9: |
|
|
| 1043 | dump_alchemy_costs (); |
|
|
| 1044 | exit (0); |
|
|
| 1045 | case 10: |
|
|
| 1046 | dump_monster_treasure (settings.dumparg); |
|
|
| 1047 | exit (0); |
|
|
| 1048 | } |
|
|
| 1049 | } |
1019 | } |
| 1050 | |
1020 | |
| 1051 | void |
1021 | void |
| 1052 | init_startup (void) |
1022 | init_startup (void) |
| 1053 | { |
1023 | { |
| … | |
… | |
| 1286 | else |
1256 | else |
| 1287 | { |
1257 | { |
| 1288 | if (set_race && (!mon->clone.race || strcmp (mon->clone.race, race))) |
1258 | if (set_race && (!mon->clone.race || strcmp (mon->clone.race, race))) |
| 1289 | { |
1259 | { |
| 1290 | if (mon->clone.race) |
1260 | if (mon->clone.race) |
| 1291 | LOG (llevDebug, "Resetting race to %s from %s for archetype %s\n", race, &mon->clone.race, &mon->name); |
1261 | LOG (llevDebug, "Resetting race to %s from %s for archetype %s\n", race, &mon->clone.race, &mon->archname); |
| 1292 | |
1262 | |
| 1293 | mon->clone.race = race; |
1263 | mon->clone.race = race; |
| 1294 | } |
1264 | } |
| 1295 | |
1265 | |
| 1296 | /* if the arch is a monster, add it to the race list */ |
1266 | /* if the arch is a monster, add it to the race list */ |
| … | |
… | |
| 1312 | |
1282 | |
| 1313 | for (list = first_race; list; list = list->next) |
1283 | for (list = first_race; list; list = list->next) |
| 1314 | { |
1284 | { |
| 1315 | fprintf (stderr, "\nRACE %s:\t", &list->name); |
1285 | fprintf (stderr, "\nRACE %s:\t", &list->name); |
| 1316 | for (tmp = list->member; tmp; tmp = tmp->next) |
1286 | for (tmp = list->member; tmp; tmp = tmp->next) |
| 1317 | fprintf (stderr, "%s(%d), ", &tmp->ob->arch->name, tmp->ob->level); |
1287 | fprintf (stderr, "%s(%d), ", &tmp->ob->arch->archname, tmp->ob->level); |
| 1318 | } |
1288 | } |
| 1319 | |
1289 | |
| 1320 | fprintf (stderr, "\n"); |
1290 | fprintf (stderr, "\n"); |
| 1321 | } |
1291 | } |
| 1322 | |
1292 | |
