… | |
… | |
47 | int |
47 | int |
48 | is_dragon_pl (const object *op) |
48 | is_dragon_pl (const object *op) |
49 | { |
49 | { |
50 | if (op != NULL && op->type == PLAYER && op->arch != NULL && op->arch->clone.race != NULL && strcmp (op->arch->clone.race, "dragon") == 0) |
50 | if (op != NULL && op->type == PLAYER && op->arch != NULL && op->arch->clone.race != NULL && strcmp (op->arch->clone.race, "dragon") == 0) |
51 | return 1; |
51 | return 1; |
|
|
52 | |
52 | return 0; |
53 | return 0; |
53 | } |
54 | } |
54 | |
55 | |
55 | /* |
56 | /* |
56 | * If final is set, it a clean/final save, not a backup, ie dont remove objects from inventory |
57 | * If final is set, it a clean/final save, not a backup, ie dont remove objects from inventory |
… | |
… | |
63 | int wiz = ob->flag [FLAG_WIZ]; |
64 | int wiz = ob->flag [FLAG_WIZ]; |
64 | |
65 | |
65 | /* Eneq(@csd.uu.se): If we have an open container hide it. */ |
66 | /* Eneq(@csd.uu.se): If we have an open container hide it. */ |
66 | object *container = ob->container; |
67 | object *container = ob->container; |
67 | ob->container = 0; |
68 | ob->container = 0; |
|
|
69 | |
|
|
70 | if (ob->map) |
|
|
71 | maplevel = ob->map->path; |
68 | |
72 | |
69 | #define PL_OUT(k) freezer.put (KW_ ## k, k) |
73 | #define PL_OUT(k) freezer.put (KW_ ## k, k) |
70 | #define PL_OUT2(k,v) freezer.put (KW_ ## k, v) |
74 | #define PL_OUT2(k,v) freezer.put (KW_ ## k, v) |
71 | |
75 | |
72 | PL_OUT (password); |
76 | PL_OUT (password); |
… | |
… | |
82 | PL_OUT (digestion); |
86 | PL_OUT (digestion); |
83 | PL_OUT2 (pickup, mode); |
87 | PL_OUT2 (pickup, mode); |
84 | PL_OUT (outputs_sync); |
88 | PL_OUT (outputs_sync); |
85 | PL_OUT (outputs_count); |
89 | PL_OUT (outputs_count); |
86 | |
90 | |
87 | freezer.put (KW_usekeys, usekeys == key_inventory ? "key_inventory" : (usekeys == keyrings ? "keyrings" : "containers")); |
91 | freezer.put (KW_usekeys, usekeys == key_inventory ? "key_inventory" : (usekeys == keyrings ? "keyrings" : "containers")); |
88 | freezer.put (KW_unapply, unapply == unapply_nochoice ? "unapply_nochoice" : (unapply == unapply_never ? "unapply_never" : "unapply_always")); |
92 | freezer.put (KW_unapply, unapply == unapply_nochoice ? "unapply_nochoice" : (unapply == unapply_never ? "unapply_never" : "unapply_always")); |
89 | |
93 | |
90 | PL_OUT2 (map, maplevel); |
94 | PL_OUT2 (map, maplevel); |
91 | PL_OUT (savebed_map); |
95 | PL_OUT (savebed_map); |
92 | PL_OUT (bed_x); |
96 | PL_OUT (bed_x); |
… | |
… | |
140 | } |
144 | } |
141 | |
145 | |
142 | player * |
146 | player * |
143 | player::load_pl (object_thawer &thawer) |
147 | player::load_pl (object_thawer &thawer) |
144 | { |
148 | { |
|
|
149 | int maxerrs = 10; |
|
|
150 | |
145 | player *pl = new player; |
151 | player *pl = new player; |
146 | |
152 | |
147 | pl->savebed_map = first_map_path; |
153 | pl->savebed_map = first_map_path; |
148 | |
154 | |
149 | /* this loads the standard objects values. */ |
155 | /* this loads the standard objects values. */ |
… | |
… | |
156 | |
162 | |
157 | switch (kw) |
163 | switch (kw) |
158 | { |
164 | { |
159 | case KW_EOF: |
165 | case KW_EOF: |
160 | LOG (llevError, "%s: unexpected EOF while reading player header\n", thawer.name); |
166 | LOG (llevError, "%s: unexpected EOF while reading player header\n", thawer.name); |
161 | pl->ob->destroy (); |
167 | goto failure; |
162 | pl->destroy (); |
168 | |
|
|
169 | default: |
|
|
170 | LOG (llevError, "%s: skipping unknown key in player header: %s\n", thawer.name, keyword_str [kw]); |
|
|
171 | if (!--maxerrs) goto failure; |
163 | return 0; |
172 | break; |
164 | |
173 | |
165 | case KW_ERROR: |
174 | case KW_ERROR: |
166 | LOG (llevError, "%s: error while reading player header, skipping (%s,%s)\n", thawer.name, thawer.last_keyword, thawer.last_value); |
175 | LOG (llevError, "%s: parse error while reading player header, skipping (%s,%s).\n", thawer.name, thawer.kw_str, thawer.value); |
|
|
176 | if (!--maxerrs) goto failure; |
167 | break; |
177 | break; |
168 | |
178 | |
169 | case KW_endplst: |
179 | case KW_endplst: |
170 | goto done; |
180 | goto done; |
171 | |
181 | |
… | |
… | |
231 | fgets (line, 32, thawer); pl->levsp [i] = atoi (line); |
241 | fgets (line, 32, thawer); pl->levsp [i] = atoi (line); |
232 | fgets (line, 32, thawer); pl->levgrace[i] = atoi (line); |
242 | fgets (line, 32, thawer); pl->levgrace[i] = atoi (line); |
233 | } |
243 | } |
234 | } |
244 | } |
235 | break; |
245 | break; |
236 | |
|
|
237 | default: |
|
|
238 | LOG (llevError, "%s: skipping unknown key in player header: %s\n", thawer.name, keyword_str [kw]); |
|
|
239 | break; |
|
|
240 | } |
246 | } |
241 | } |
247 | } |
242 | |
248 | |
243 | done: |
249 | done: |
244 | if (!load_object (thawer, pl->ob, 0)) |
250 | if (!load_object (thawer, pl->ob, 0)) |
… | |
… | |
249 | } |
255 | } |
250 | |
256 | |
251 | INVOKE_PLAYER (LOAD, pl); |
257 | INVOKE_PLAYER (LOAD, pl); |
252 | |
258 | |
253 | return pl; |
259 | return pl; |
|
|
260 | |
|
|
261 | failure: |
|
|
262 | LOG (llevError, "%s: too many or too grave errors, aborting player load.\n", thawer.name); |
|
|
263 | |
|
|
264 | pl->ob->destroy (); |
|
|
265 | pl->destroy (); |
|
|
266 | |
|
|
267 | return 0; |
254 | } |
268 | } |
255 | |
269 | |
256 | player * |
270 | player * |
257 | player::load_pl (const char *path) |
271 | player::load_pl (const char *path) |
258 | { |
272 | { |