[ViewVC] Diff of: cvs/deliantra/server/common/loader.C

Comparing deliantra/server/common/loader.C (file contents):
Revision 1.3 by root, Mon Sep 4 13:55:54 2006 UTC vs.
Revision 1.39 by elmex, Wed Jan 3 02:51:09 2007 UTC

…		…
16		16
17	You should have received a copy of the GNU General Public License	17	You should have received a copy of the GNU General Public License
18	along with this program; if not, write to the Free Software	18	along with this program; if not, write to the Free Software
19	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	19	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
20		20
21	The authors can be reached via e-mail at crossfire-devel@real-time.com	21	The authors can be reached via e-mail at <crossfire@schmorp.de>
22	*/	22	*/
23		23
24	/* Eneq(@csd.uu.se): Added weight-modifiers in environment of objects.	24	/* Eneq(@csd.uu.se): Added weight-modifiers in environment of objects.
25	sub/add_weight will transcend the environment updating the carrying	25	sub/add_weight will transcend the environment updating the carrying
26	variable. */	26	variable. */
27		27
28		28
29	#include <global.h>	29	#include <global.h>
30	#include <loader.h>	30	#include <loader.h>
31	#include <newserver.h>
32	#include <sproto.h>	31	#include <sproto.h>
33		32
34	/* Maps the MOVE_* values to names */	33	/* Maps the MOVE_* values to names */
35	static const char *const move_name[] = {"walk", "fly_low", "fly_high", "swim", "boat", NULL};	34	static const char *const move_name[] = { "walk", "fly_low", "fly_high", "swim", "boat", NULL };
36		35
37	/* This table is only necessary to convert objects that existed before the	36	/* This table is only necessary to convert objects that existed before the
38	* spell object conversion to the new object. It was not practical	37	* spell object conversion to the new object. It was not practical
39	* to go through every mapping looking for every potion, rod, wand, etc	38	* to go through every mapping looking for every potion, rod, wand, etc
40	* that had a sp set and update to the new value. So this maps the	39	* that had a sp set and update to the new value. So this maps the
…		…
43	* new spell won't have been used, and thus won't have any legacy object.	42	* new spell won't have been used, and thus won't have any legacy object.
44	* NULL entries in this table are valid - to denote objects that should	43	* NULL entries in this table are valid - to denote objects that should
45	* not be updated for whatever reason.	44	* not be updated for whatever reason.
46	*/	45	*/
47	const char *spell_mapping[] = {	46	const char *spell_mapping[] = {
48	"spell_magic_bullet", /* 0 */	47	"spell_magic_bullet", /* 0 */
49	"spell_small_fireball", /* 1 */	48	"spell_small_fireball", /* 1 */
50	"spell_medium_fireball", /* 2 */	49	"spell_medium_fireball", /* 2 */
51	"spell_large_fireball", /* 3 */	50	"spell_large_fireball", /* 3 */
52	"spell_burning_hands", /* 4 */	51	"spell_burning_hands", /* 4 */
53	"spell_sm_lightning", /* 5 */	52	"spell_sm_lightning", /* 5 */
54	"spell_large_lightning", /* 6 */	53	"spell_large_lightning", /* 6 */
55	"spell_magic_missile", /* 7 */	54	"spell_magic_missile", /* 7 */
56	"spell_create_bomb", /* 8 */	55	"spell_create_bomb", /* 8 */
57	"spell_summon_golem", /* 9 */	56	"spell_summon_golem", /* 9 */
58	"spell_summon_fire_elemental", /* 10 */	57	"spell_summon_fire_elemental", /* 10 */
59	"spell_summon_earth_elemental", /* 11 */	58	"spell_summon_earth_elemental", /* 11 */
60	"spell_summon_water_elemental", /* 12 */	59	"spell_summon_water_elemental", /* 12 */
61	"spell_summon_air_elemental", /* 13 */	60	"spell_summon_air_elemental", /* 13 */
62	"spell_dimension_door", /* 14 */	61	"spell_dimension_door", /* 14 */
63	"spell_create_earth_wall", /* 15 */	62	"spell_create_earth_wall", /* 15 */
64	"spell_paralyze", /* 16 */	63	"spell_paralyze", /* 16 */
65	"spell_icestorm", /* 17 */	64	"spell_icestorm", /* 17 */
66	"spell_magic_mapping", /* 18 */	65	"spell_magic_mapping", /* 18 */
67	"spell_turn_undead", /* 19 */	66	"spell_turn_undead", /* 19 */
68	"spell_fear", /* 20 */	67	"spell_fear", /* 20 */
69	"spell_poison_cloud", /* 21 */	68	"spell_poison_cloud", /* 21 */
70	"spell_wonder", /* 22 */	69	"spell_wonder", /* 22 */
71	"spell_destruction", /* 23 */	70	"spell_destruction", /* 23 */
72	"spell_perceive_self", /* 24 */	71	"spell_perceive_self", /* 24 */
73	"spell_word_of_recall", /* 25 */	72	"spell_word_of_recall", /* 25 */
74	"spell_invisible", /* 26 */	73	"spell_invisible", /* 26 */
75	"spell_invisible_to_undead", /* 27 */	74	"spell_invisible_to_undead", /* 27 */
76	"spell_probe", /* 28 */	75	"spell_probe", /* 28 */
77	"spell_lg_magic_bullet", /* 29 */	76	"spell_lg_magic_bullet", /* 29 */
78	"spell_improved_invisibility", /* 30 */	77	"spell_improved_invisibility", /* 30 */
79	"spell_holy_word", /* 31 */	78	"spell_holy_word", /* 31 */
80	"spell_minor_healing", /* 32 */	79	"spell_minor_healing", /* 32 */
81	"spell_medium_healing", /* 33 */	80	"spell_medium_healing", /* 33 */
82	"spell_major_healing", /* 34 */	81	"spell_major_healing", /* 34 */
83	"spell_heal", /* 35 */	82	"spell_heal", /* 35 */
84	"spell_create_food", /* 36 */	83	"spell_create_food", /* 36 */
85	"spell_earth_to_dust", /* 37 */	84	"spell_earth_to_dust", /* 37 */
86	"spell_armour", /* 38 */	85	"spell_armour", /* 38 */
87	"spell_strength", /* 39 */	86	"spell_strength", /* 39 */
88	"spell_dexterity", /* 40 */	87	"spell_dexterity", /* 40 */
89	"spell_constitution", /* 41 */	88	"spell_constitution", /* 41 */
90	"spell_charisma", /* 42 */	89	"spell_charisma", /* 42 */
91	"spell_create_fire_wall", /* 43 */	90	"spell_create_fire_wall", /* 43 */
92	"spell_create_frost_wall", /* 44 */	91	"spell_create_frost_wall", /* 44 */
93	"spell_protection_from_cold", /* 45 */	92	"spell_protection_from_cold", /* 45 */
94	"spell_protection_from_electricity", /* 46 */	93	"spell_protection_from_electricity", /* 46 */
95	"spell_protection_from_fire", /* 47 */	94	"spell_protection_from_fire", /* 47 */
96	"spell_protection_from_poison", /* 48 */	95	"spell_protection_from_poison", /* 48 */
97	"spell_protection_from_slow", /* 49 */	96	"spell_protection_from_slow", /* 49 */
98	"spell_protection_from_paralysis", /* 50 */	97	"spell_protection_from_paralysis", /* 50 */
99	"spell_protection_from_draining", /* 51 */	98	"spell_protection_from_draining", /* 51 */
100	"spell_protection_from_magic", /* 52 */	99	"spell_protection_from_magic", /* 52 */
101	"spell_protection_from_attack", /* 53 */	100	"spell_protection_from_attack", /* 53 */
102	"spell_levitate", /* 54 */	101	"spell_levitate", /* 54 */
103	"spell_small_speedball", /* 55 */	102	"spell_small_speedball", /* 55 */
104	"spell_large_speedball", /* 56 */	103	"spell_large_speedball", /* 56 */
105	"spell_hellfire", /* 57 */	104	"spell_hellfire", /* 57 */
106	"spell_dragonbreath", /* 58 */	105	"spell_dragonbreath", /* 58 */
107	"spell_large_icestorm", /* 59 */	106	"spell_large_icestorm", /* 59 */
108	"spell_charging", /* 60 */	107	"spell_charging", /* 60 */
109	"spell_polymorph", /* 61 */	108	"spell_polymorph", /* 61 */
110	"spell_cancellation", /* 62 */	109	"spell_cancellation", /* 62 */
111	"spell_confusion", /* 63 */	110	"spell_confusion", /* 63 */
112	"spell_mass_confusion", /* 64 */	111	"spell_mass_confusion", /* 64 */
113	"spell_summon_pet_monster", /* 65 */	112	"spell_summon_pet_monster", /* 65 */
114	"spell_slow", /* 66 */	113	"spell_slow", /* 66 */
115	"spell_regenerate_spellpoints", /* 67 */	114	"spell_regenerate_spellpoints", /* 67 */
116	"spell_cure_poison", /* 68 */	115	"spell_cure_poison", /* 68 */
117	"spell_protection_from_confusion", /* 69 */	116	"spell_protection_from_confusion", /* 69 */
118	"spell_protection_from_cancellation", /* 70 */	117	"spell_protection_from_cancellation", /* 70 */
119	"spell_protection_from_depletion", /* 71 */	118	"spell_protection_from_depletion", /* 71 */
120	"spell_alchemy", /* 72 */	119	"spell_alchemy", /* 72 */
121	"spell_remove_curse", /* 73 */	120	"spell_remove_curse", /* 73 */
122	"spell_remove_damnation", /* 74 */	121	"spell_remove_damnation", /* 74 */
123	"spell_identify", /* 75*/	122	"spell_identify", /* 75 */
124	"spell_detect_magic", /* 76 */	123	"spell_detect_magic", /* 76 */
125	"spell_detect_monster", /* 77 */	124	"spell_detect_monster", /* 77 */
126	"spell_detect_evil", /* 78 */	125	"spell_detect_evil", /* 78 */
127	"spell_detect_curse", /* 79 */	126	"spell_detect_curse", /* 79 */
128	"spell_heroism", /* 80 */	127	"spell_heroism", /* 80 */
129	"spell_aggravation", /* 81 */	128	"spell_aggravation", /* 81 */
130	"spell_firebolt", /* 82 */	129	"spell_firebolt", /* 82 */
131	"spell_frostbolt", /* 83 */	130	"spell_frostbolt", /* 83 */
132	"spell_shockwave", /* 84 */	131	"spell_shockwave", /* 84 */
133	"spell_color_spray", /* 85 */	132	"spell_color_spray", /* 85 */
134	"spell_haste", /* 86 */	133	"spell_haste", /* 86 */
135	"spell_face_of_death", /* 87 */	134	"spell_face_of_death", /* 87 */
136	"spell_ball_lightning", /* 88 */	135	"spell_ball_lightning", /* 88 */
137	"spell_meteor_swarm", /* 89 */	136	"spell_meteor_swarm", /* 89 */
138	"spell_comet", /* 90 */	137	"spell_comet", /* 90 */
139	"spell_mystic_fist", /* 91 */	138	"spell_mystic_fist", /* 91 */
140	"spell_raise_dead", /* 92 */	139	"spell_raise_dead", /* 92 */
141	"spell_resurrection", /* 93 */	140	"spell_resurrection", /* 93 */
142	"spell_reincarnation", /* 94 */	141	"spell_reincarnation", /* 94 */
143	"spell_immunity_to_cold", /* 95 */	142	"spell_immunity_to_cold", /* 95 */
144	"spell_immunity_to_electricity",/* 96 */	143	"spell_immunity_to_electricity", /* 96 */
145	"spell_immunity_to_fire", /* 97 */	144	"spell_immunity_to_fire", /* 97 */
146	"spell_immunity_to_poison", /* 98 */	145	"spell_immunity_to_poison", /* 98 */
147	"spell_immunity_to_slow", /* 99 */	146	"spell_immunity_to_slow", /* 99 */
148	"spell_immunity_to_paralysis", /* 100 */	147	"spell_immunity_to_paralysis", /* 100 */
149	"spell_immunity_to_draining", /* 101 */	148	"spell_immunity_to_draining", /* 101 */
150	"spell_immunity_to_magic", /* 102 */	149	"spell_immunity_to_magic", /* 102 */
151	"spell_immunity_to_attack", /* 103 */	150	"spell_immunity_to_attack", /* 103 */
152	"spell_invulnerability", /* 104 */	151	"spell_invulnerability", /* 104 */
153	"spell_defense", /* 105 */	152	"spell_defense", /* 105 */
154	"spell_rune_of_fire", /* 106 */	153	"spell_rune_of_fire", /* 106 */
155	"spell_rune_of_frost", /* 107 */	154	"spell_rune_of_frost", /* 107 */
156	"spell_rune_of_shocking", /* 108 */	155	"spell_rune_of_shocking", /* 108 */
157	"spell_rune_of_blasting", /* 109 */	156	"spell_rune_of_blasting", /* 109 */
158	"spell_rune_of_death", /* 110 */	157	"spell_rune_of_death", /* 110 */
159	"spell_marking_rune", /* 111 */	158	"spell_marking_rune", /* 111 */
160	"spell_build_director", /* 112 */	159	"spell_build_director", /* 112 */
161	"spell_create_pool_of_chaos", /* 113 */	160	"spell_create_pool_of_chaos", /* 113 */
162	"spell_build_bullet_wall", /* 114 */	161	"spell_build_bullet_wall", /* 114 */
163	"spell_build_lightning_wall", /* 115 */	162	"spell_build_lightning_wall", /* 115 */
164	"spell_build_fireball_wall", /* 116 */	163	"spell_build_fireball_wall", /* 116 */
165	"spell_magic_rune", /* 117 */	164	"spell_magic_rune", /* 117 */
166	"spell_rune_of_magic_drain", /* 118 */	165	"spell_rune_of_magic_drain", /* 118 */
167	"spell_antimagic_rune", /* 119 */	166	"spell_antimagic_rune", /* 119 */
168	"spell_rune_of_transference", /* 120 */	167	"spell_rune_of_transference", /* 120 */
169	"spell_transference", /* 121 */	168	"spell_transference", /* 121 */
170	"spell_magic_drain", /* 122 */	169	"spell_magic_drain", /* 122 */
171	"spell_counterspell", /* 123 */	170	"spell_counterspell", /* 123 */
172	"spell_disarm", /* 124 */	171	"spell_disarm", /* 124 */
173	"spell_cure_confusion", /* 125 */	172	"spell_cure_confusion", /* 125 */
174	"spell_restoration", /* 126 */	173	"spell_restoration", /* 126 */
175	"was summon evil monster", /* 127 / / Not implenented as nothing used it */	174	"was summon evil monster", /* 127 // Not implenented as nothing used it */
176	"spell_counterwall", /* 128 */	175	"spell_counterwall", /* 128 */
177	"spell_cause_light_wounds", /* 129 */	176	"spell_cause_light_wounds", /* 129 */
178	"spell_cause_medium_wounds", /* 130 */	177	"spell_cause_medium_wounds", /* 130 */
179	"spell_cause_heavy_wounds", /* 131 */	178	"spell_cause_heavy_wounds", /* 131 */
180	"spell_charm_monsters", /* 132 */	179	"spell_charm_monsters", /* 132 */
181	"spell_banishment", /* 133 */	180	"spell_banishment", /* 133 */
182	"spell_create_missile", /* 134 */	181	"spell_create_missile", /* 134 */
183	"spell_show_invisible", /* 135 */	182	"spell_show_invisible", /* 135 */
184	"spell_xray", /* 136 */	183	"spell_xray", /* 136 */
185	"spell_pacify", /* 137 */	184	"spell_pacify", /* 137 */
186	"spell_summon_fog", /* 138 */	185	"spell_summon_fog", /* 138 */
187	"spell_steambolt", /* 139 */	186	"spell_steambolt", /* 139 */
188	"spell_command_undead", /* 140 */	187	"spell_command_undead", /* 140 */
189	"spell_holy_orb", /* 141 */	188	"spell_holy_orb", /* 141 */
190	"spell_summon_avatar", /* 142 */	189	"spell_summon_avatar", /* 142 */
191	"spell_holy_possession", /* 143 */	190	"spell_holy_possession", /* 143 */
192	"spell_bless", /* 144 */	191	"spell_bless", /* 144 */
193	"spell_curse", /* 145 */	192	"spell_curse", /* 145 */
194	"spell_regeneration", /* 146 */	193	"spell_regeneration", /* 146 */
195	"spell_consecrate", /* 147 */	194	"spell_consecrate", /* 147 */
196	"spell_summon_cult_monsters", /* 148 */	195	"spell_summon_cult_monsters", /* 148 */
197	"spell_cause_critical_wounds", /* 149 */	196	"spell_cause_critical_wounds", /* 149 */
198	"spell_holy_wrath", /* 150 */	197	"spell_holy_wrath", /* 150 */
199	"spell_retributive_strike", /* 151 */	198	"spell_retributive_strike", /* 151 */
200	"spell_finger_of_death", /* 152 */	199	"spell_finger_of_death", /* 152 */
201	"spell_insect_plague", /* 153 */	200	"spell_insect_plague", /* 153 */
202	"spell_call_holy_servant", /* 154 */	201	"spell_call_holy_servant", /* 154 */
203	"spell_wall_of_thorns", /* 155 */	202	"spell_wall_of_thorns", /* 155 */
204	"spell_staff_to_snake", /* 156 */	203	"spell_staff_to_snake", /* 156 */
205	"spell_light", /* 157 */	204	"spell_light", /* 157 */
206	"spell_darkness", /* 158 */	205	"spell_darkness", /* 158 */
207	"spell_nightfall", /* 159 */	206	"spell_nightfall", /* 159 */
208	"spell_daylight", /* 160 */	207	"spell_daylight", /* 160 */
209	"spell_sunspear", /* 161 */	208	"spell_sunspear", /* 161 */
210	"spell_faery_fire", /* 162 */	209	"spell_faery_fire", /* 162 */
211	"spell_cure_blindness", /* 163 */	210	"spell_cure_blindness", /* 163 */
212	"spell_dark_vision", /* 164 */	211	"spell_dark_vision", /* 164 */
213	"spell_bullet_swarm", /* 165 */	212	"spell_bullet_swarm", /* 165 */
214	"spell_bullet_storm", /* 166 */	213	"spell_bullet_storm", /* 166 */
215	"spell_cause_many_wounds", /* 167 */	214	"spell_cause_many_wounds", /* 167 */
216	"spell_small_snowstorm", /* 168 */	215	"spell_small_snowstorm", /* 168 */
217	"spell_medium_snowstorm", /* 169 */	216	"spell_medium_snowstorm", /* 169 */
218	"spell_large_snowstorm", /* 170 */	217	"spell_large_snowstorm", /* 170 */
219	"spell_cure_disease", /* 171 */	218	"spell_cure_disease", /* 171 */
220	"spell_cause_red_death", /* 172 */	219	"spell_cause_red_death", /* 172 */
221	"spell_cause_flu", /* 173 */	220	"spell_cause_flu", /* 173 */
222	"spell_cause_black_death", /* 174 */	221	"spell_cause_black_death", /* 174 */
223	"spell_cause_leprosy", /* 175 */	222	"spell_cause_leprosy", /* 175 */
224	"spell_cause_smallpox", /* 176 */	223	"spell_cause_smallpox", /* 176 */
225	"spell_cause_white_death", /* 177 */	224	"spell_cause_white_death", /* 177 */
226	"spell_cause_anthrax", /* 178 */	225	"spell_cause_anthrax", /* 178 */
227	"spell_cause_typhoid", /* 179 */	226	"spell_cause_typhoid", /* 179 */
228	"spell_mana_blast", /* 180 */	227	"spell_mana_blast", /* 180 */
229	"spell_small_manaball", /* 181 */	228	"spell_small_manaball", /* 181 */
230	"spell_medium_manaball", /* 182 */	229	"spell_medium_manaball", /* 182 */
231	"spell_large_manaball", /* 183 */	230	"spell_large_manaball", /* 183 */
232	"spell_manabolt", /* 184 */	231	"spell_manabolt", /* 184 */
233	"spell_dancing_sword", /* 185 */	232	"spell_dancing_sword", /* 185 */
234	"spell_animate_weapon", /* 186 */	233	"spell_animate_weapon", /* 186 */
235	"spell_cause_cold", /* 187 */	234	"spell_cause_cold", /* 187 */
236	"spell_divine_shock", /* 188 */	235	"spell_divine_shock", /* 188 */
237	"spell_windstorm", /* 189 */	236	"spell_windstorm", /* 189 */
238	"spell_sanctuary", /* 190 */	237	"spell_sanctuary", /* 190 */
239	"spell_peace", /* 191 */	238	"spell_peace", /* 191 */
240	"spell_spiderweb", /* 192 */	239	"spell_spiderweb", /* 192 */
241	"spell_conflict", /* 193 */	240	"spell_conflict", /* 193 */
242	"spell_rage", /* 194 */	241	"spell_rage", /* 194 */
243	"spell_forked_lightning", /* 195 */	242	"spell_forked_lightning", /* 195 */
244	"spell_poison_fog", /* 196 */	243	"spell_poison_fog", /* 196 */
245	"spell_flaming_aura", /* 197 */	244	"spell_flaming_aura", /* 197 */
246	"spell_vitriol", /* 198 */	245	"spell_vitriol", /* 198 */
247	"spell_vitriol_splash", /* 199 */	246	"spell_vitriol_splash", /* 199 */
248	"spell_iron_skin", /* 200 */	247	"spell_iron_skin", /* 200 */
249	"spell_wrathful_eye", /* 201 */	248	"spell_wrathful_eye", /* 201 */
250	"spell_town_portal", /* 202 */	249	"spell_town_portal", /* 202 */
251	"spell_missile_swarm", /* 203 */	250	"spell_missile_swarm", /* 203 */
252	"spell_cause_rabies", /* 204 */	251	"spell_cause_rabies", /* 204 */
253	"spell_glyph", /* 205 */	252	"spell_glyph", /* 205 */
254	NULL	253	NULL
255	};	254	};
256		255
257	extern int arch_init;	256	extern int arch_init;
258
259	// return a suitable strign describign an objetc in enough detail to find it
260	// used only in check_loaded_object: TODO remove static, move it elsewhere and
261	// use it in more log messages.
262	static char op_debug_info_ (object op, char *info)
263	{
264	char info2[256 * 3];
265	char *p = info;
266
267	p += snprintf (p, 256, "%d=\"%s%s%s\"",
268	op->count,
269	op->name ? (const char *)op->name : "(anon)",
270	op->title ? " " : "",
271	op->title ? (const char *)op->title : "");
272
273	if (op->env)
274	p += snprintf (p, 256, "(in %s)", op_debug_info_ (op->env, info2));
275
276	if (op->map)
277	p += snprintf (p, 256, "(on %s@%d+%d)", op->map->path, op->x, op->y);
278
279	return info;
280	}
281
282	static char op_debug_info (object op)
283	{
284	static char info[256 * 3];
285
286	return op_debug_info_ (op, info);
287	}
288		257
289	/* This function checks the object after it has been loaded (when we	258	/* This function checks the object after it has been loaded (when we
290	* get the 'end' in the input stream). This function can be used to	259	* get the 'end' in the input stream). This function can be used to
291	* deal with legacy objects where fields may have changed. It can also be used	260	* deal with legacy objects where fields may have changed. It can also be used
292	* to check for objects to make sure there are no common errors.	261	* to check for objects to make sure there are no common errors.
293	*/	262	*/
		263	static void
294	static void check_loaded_object(object *op) {	264	check_loaded_object (object *op)
		265	{
295	int ip;	266	int ip;
296		267
297	/* We do some specialized handling to handle legacy cases of name_pl.	268	/* We do some specialised handling to handle legacy cases of name_pl.
298	* If the object doesn't have a name_pl, we just use the object name -	269	* If the object doesn't have a name_pl, we just use the object name -
299	* this isn't perfect (things won't be properly pluralized), but works to	270	* this isn't perfect (things won't be properly pluralised), but works to
300	* that degree (5 heart is still quite understandable). But the case we	271	* that degree (5 heart is still quite understandable). But the case we
301	* also have to catch is if this object is not using the normal name for	272	* also have to catch is if this object is not using the normal name for
302	* the object. In that case, we also want to use the loaded name.	273	* the object. In that case, we also want to use the loaded name.
303	* Otherwise, what happens is that the the plural name will lose	274	* Otherwise, what happens is that the the plural name will lose
304	* information (appear as just 'hearts' and not 'goblins heart')	275	* information (appear as just 'hearts' and not 'goblins heart')
305	*/	276	*/
306	if (op->arch && op->name != op->arch->clone.name && op->name_pl == op->arch->clone.name_pl)	277	if (op->arch && op->name != op->arch->clone.name && op->name_pl == op->arch->clone.name_pl)
307	op->name_pl = NULL;	278	op->name_pl = NULL;
308		279
		280	if (!op->name_pl)
309	if (!op->name_pl) op->name_pl = op->name;	281	op->name_pl = op->name;
310		282
311	/* objects now have a materialname. try to patch it in */	283	/* objects now have a materialname. try to patch it in */
312	if (!(IS_WEAPON(op) && op->level > 0)) {	284	if (!(op->is_weapon () && op->level > 0))
		285	{
313	if (op->map != NULL)	286	if (op->map != NULL)
314	set_materialname(op, op->map->difficulty, NULL);	287	set_materialname (op, op->map->difficulty, NULL);
315	else	288	else
316	set_materialname(op, 5, NULL);	289	set_materialname (op, 5, NULL);
317	}	290	}
318	/* only do these when program is first run - a bit	291	/* only do these when program is first run - a bit
319	* excessive to do this at every run - most of this is	292	* excessive to do this at every run - most of this is
320	* really just to catch any errors - program will still run, but	293	* really just to catch any errors - program will still run, but
321	* not in the ideal fashion.	294	* not in the ideal fashion.
322	*/	295	*/
323	if ((op->type == WEAPON \|\| op->type==BOW) && arch_init) {	296	if ((op->type == WEAPON \|\| op->type == BOW) && arch_init)
		297	{
324	if (!op->skill) {	298	if (!op->skill)
		299	{
325	LOG(llevError,"Weapon %s lacks a skill.\n", op_debug_info (op));	300	LOG (llevError, "Weapon %s lacks a skill.\n", op->debug_desc ());
		301	}
326	} else if ((!strcmp(op->skill,"one handed weapons") && op->body_info[1] != -1) \|\|	302	else if ((!strcmp (op->skill, "one handed weapons") && op->body_info[1] != -1) \|\|
327	(!strcmp(op->skill,"two handed weapons") && op->body_info[1] != -2)) {	303	(!strcmp (op->skill, "two handed weapons") && op->body_info[1] != -2))
328	LOG(llevError,"weapon %s arm usage does not match skill: %d, %s\n",	304	{
329	op_debug_info (op), op->body_info[1], &op->skill);	305	LOG (llevError, "weapon %s arm usage does not match skill: %d, %s\n", op->debug_desc (), op->body_info[1], &op->skill);
330	}	306	}
331	}	307	}
332		308
333	/* We changed last_heal to gen_sp_armour, which is what it	309	/* We changed last_heal to gen_sp_armour, which is what it
334	* really does for many objects. Need to catch any in maps	310	* really does for many objects. Need to catch any in maps
335	* that may have an old value.	311	* that may have an old value.
336	*/	312	*/
337	if ((op->type == WEAPON) \|\|	313	if ((op->type == WEAPON) \|\|
338	(op->type == ARMOUR) \|\| (op->type == HELMET) \|\|	314	(op->type == ARMOUR) \|\| (op->type == HELMET) \|\|
339	(op->type == SHIELD) \|\| (op->type == RING) \|\|	315	(op->type == SHIELD) \|\| (op->type == RING) \|\|
340	(op->type == BOOTS) \|\| (op->type == GLOVES) \|\|	316	(op->type == BOOTS) \|\| (op->type == GLOVES) \|\|
341	(op->type == AMULET ) \|\| (op->type == GIRDLE) \|\|	317	(op->type == AMULET) \|\| (op->type == GIRDLE) \|\| (op->type == BRACERS) \|\| (op->type == CLOAK))
342	(op->type == BRACERS ) \|\| (op->type == CLOAK)) {	318	{
343	if (op->last_heal) {	319	if (op->last_heal)
		320	{
344	LOG(llevDebug,"Object %s still has last_heal set, not gen_sp_armour\n", op_debug_info (op));	321	LOG (llevDebug, "Object %s still has last_heal set, not gen_sp_armour\n", op->debug_desc ());
345	op->gen_sp_armour = op->last_heal;	322	op->gen_sp_armour = op->last_heal;
346	op->last_heal = 0;	323	op->last_heal = 0;
347	}	324	}
348	if (editor) ip =0;	325
349	else ip = calc_item_power(op, 0);	326	ip = calc_item_power (op, 0);
350	/* Legacy objects from before item power was in the game */	327	/* Legacy objects from before item power was in the game */
351	if (!op->item_power && ip) {	328	if (!op->item_power && ip)
		329	{
352	if (ip > 3) {	330	if (ip > 3)
		331	{
353	LOG(llevDebug,"Object %s had no item power, using %d\n", op_debug_info (op), ip);	332	LOG (llevDebug, "Object %s had no item power, using %d\n", op->debug_desc (), ip);
354	}	333	}
355	op->item_power = ip;	334	op->item_power = ip;
356	}	335	}
357	/* Check for possibly bogus values. Has to meet both these criteria -	336	/* Check for possibly bogus values. Has to meet both these criteria -
358	* something that has item_power 1 is probably just fine if our calculated	337	* something that has item_power 1 is probably just fine if our calculated
359	* value is 1 or 2 - these values are small enough that hard to be precise.	338	* value is 1 or 2 - these values are small enough that hard to be precise.
360	* similarly, it item_power is 0, the first check will always pass,	339	* similarly, it item_power is 0, the first check will always pass,
361	* but not the second one.	340	* but not the second one.
362	*/	341	*/
363	if (ip > 2 *op->item_power && ip > (op->item_power + 3)) {	342	if (ip > 2 * op->item_power && ip > (op->item_power + 3))
		343	{
364	LOG(llevDebug,"Object %s seems to have too low item power? %d > %d\n",	344	LOG (llevDebug, "Object %s seems to have too low item power? %d > %d\n", op->debug_desc (), ip, op->item_power);
365	op_debug_info (op), ip, op->item_power);
366	}	345	}
367		346
368	}	347	}
369	/* Old spellcasting object - need to load in the appropiate object */	348	/* Old spellcasting object - need to load in the appropiate object */
370	if ((op->type == ROD \|\| op->type == WAND \|\| op->type == SCROLL \|\| op->type == HORN	349	if ((op->type == ROD \|\| op->type == WAND \|\| op->type == SCROLL \|\| op->type == HORN \|\| op->type == FIREWALL \|\|
371	\|\| op->type == FIREWALL \|\|
372	/* POTIONS and ALTARS don't always cast spells, but if they do, update them */	350	/* POTIONS and ALTARS don't always cast spells, but if they do, update them */
373	((op->type == POTION \|\| op->type == ALTAR) && op->stats.sp)) && !op->inv && !arch_init) {	351	((op->type == POTION \|\| op->type == ALTAR) && op->stats.sp)) && !op->inv && !arch_init)
		352	{
374	object *tmp;	353	object *tmp;
375		354
376	/* Fireall is bizarre in that spell type was stored in dam. Rest are 'normal'	355	/* Fireall is bizarre in that spell type was stored in dam. Rest are 'normal'
377	* in that spell was stored in sp.	356	* in that spell was stored in sp.
378	*/	357	*/
379	tmp = get_archetype(spell_mapping[op->type == FIREWALL?op->stats.dam:op->stats.sp]);	358	tmp = get_archetype (spell_mapping[op->type == FIREWALL ? op->stats.dam : op->stats.sp]);
380	insert_ob_in_ob(tmp, op);	359	insert_ob_in_ob (tmp, op);
381	op->randomitems = NULL; /* So another spell isn't created for this object */	360	op->randomitems = NULL; /* So another spell isn't created for this object */
382	}	361	}
383	/* spellbooks & runes use slaying. But not to arch name, but to spell name */	362	/* spellbooks & runes use slaying. But not to arch name, but to spell name */
384		363
385	if ((op->type == SPELLBOOK \|\| op->type == RUNE) && op->slaying && !op->inv && !arch_init) {	364	if ((op->type == SPELLBOOK \|\| op->type == RUNE) && op->slaying && !op->inv && !arch_init)
		365	{
386	object *tmp;	366	object *tmp;
387		367
388	tmp = get_archetype_by_object_name(op->slaying);	368	tmp = get_archetype_by_object_name (op->slaying);
389	insert_ob_in_ob(tmp, op);	369	insert_ob_in_ob (tmp, op);
390	op->randomitems = NULL; /* So another spell isn't created for this object */	370	op->randomitems = NULL; /* So another spell isn't created for this object */
391	/* without this, value is all screwed up */	371	/* without this, value is all screwed up */
392	op->value = op->arch->clone.value * op->inv->value;	372	op->value = op->arch->clone.value * op->inv->value;
393	}	373	}
394		374
395	if (QUERY_FLAG(op, FLAG_MONSTER)) {	375	if (QUERY_FLAG (op, FLAG_MONSTER))
		376	{
396	if (op->stats.hp > op->stats.maxhp)	377	if (op->stats.hp > op->stats.maxhp)
397	LOG(llevDebug,"Monster %s has hp set higher than maxhp (%d>%d)\n",	378	LOG (llevDebug, "Monster %s has hp set higher than maxhp (%d>%d)\n", op->debug_desc (), op->stats.hp, op->stats.maxhp);
398	op_debug_info (op),
399	op->stats.hp, op->stats.maxhp);
400		379
401	/* The archs just need to be updated for this */	380	/* The archs just need to be updated for this */
402	if (op->move_type ==0) op->move_type = MOVE_WALK;	381	if (op->move_type == 0)
		382	op->move_type = MOVE_WALK;
403	}	383	}
404	if ((QUERY_FLAG(op,FLAG_GENERATOR) && QUERY_FLAG(op,FLAG_CONTENT_ON_GEN))	384
405	\|\| op->type == CREATOR	385	if ((QUERY_FLAG (op, FLAG_GENERATOR) && QUERY_FLAG (op, FLAG_CONTENT_ON_GEN)) \|\| op->type == CREATOR \|\| op->type == CONVERTER)
406	\|\| op->type == CONVERTER) {	386	{
407	/* Object will duplicate it's content as part of the	387	/* Object will duplicate it's content as part of the
408	* generation process. To do this, we must flag inventory	388	* generation process. To do this, we must flag inventory
409	* so it remains unevaluated concerning the randomitems and	389	* so it remains unevaluated concerning the randomitems and
410	* the living (a demonlord shouldn't cast from inside generator!)	390	* the living (a demonlord shouldn't cast from inside generator!)
411	*/	391	*/
412	flag_inv(op,FLAG_IS_A_TEMPLATE);	392	flag_inv (op, FLAG_IS_A_TEMPLATE);
413	}	393	}
414		394
415	/* Handle player movers. We use move_type for player movers	395	/* Handle player movers. We use move_type for player movers
416	* because they operate on their own time (move_on	396	* because they operate on their own time (move_on
417	* would potentially cause them to be triggered when someone steps	397	* would potentially cause them to be triggered when someone steps
418	* on them). If move_type is set, presume person knows what they	398	* on them). If move_type is set, presume person knows what they
419	* are doing, otherwise, set move_type based on maxhp value.	399	* are doing, otherwise, set move_type based on maxhp value.
420	*/	400	*/
421	if (op->type == PLAYERMOVER) {	401	if (op->type == PLAYERMOVER)
		402	{
422	if (!op->move_type) {	403	if (!op->move_type)
		404	{
423	if (op->stats.maxhp) {	405	if (op->stats.maxhp)
		406	{
424	op->move_type = MOVE_ALL;	407	op->move_type = MOVE_ALL;
425	op->stats.maxhp=0;	408	op->stats.maxhp = 0;
		409	}
426	} else {	410	else
		411	{
427	op->move_type = MOVE_WALK;	412	op->move_type = MOVE_WALK;
428	}	413	}
429	}	414	}
430	}	415	}
431		416
432	}	417	}
433		418
434	static void	419	static void
435	set_move (MoveType &mt, const char *str)	420	set_move (MoveType & mt, const char *str)
436	{	421	{
437	if (!str)	422	if (!str)
438	{	423	{
439	mt = 0;	424	mt = 0;
440	return;	425	return;
…		…
446	return;	431	return;
447	}	432	}
448		433
449	mt = 0;	434	mt = 0;
450		435
451	for (str = strtok ((char *)str, " "); str; str = strtok (0, " "))	436	for (str = strtok ((char *) str, " "); str; str = strtok (0, " "))
452	{	437	{
453	if (!strcasecmp (str, "all"))	438	if (!strcasecmp (str, "all"))
454	mt \|= MOVE_ALL;	439	mt \|= MOVE_ALL;
455	else	440	else
456	{	441	{
…		…
460	{	445	{
461	negate = 1;	446	negate = 1;
462	str++;	447	str++;
463	}	448	}
464		449
465	for (i = 0; move_name [i]; i++)	450	for (i = 0; move_name[i]; i++)
466	{	451	{
467	if (!strcasecmp (move_name [i], str))	452	if (!strcasecmp (move_name[i], str))
468	{	453	{
469	if (negate)	454	if (negate)
470	mt &= ~(1 << i);	455	mt &= ~(1 << i);
471	else	456	else
472	mt \|= (1 << i);	457	mt \|= (1 << i);
473		458
474	break;	459	break;
475	}	460	}
476	}	461	}
477		462
478	if (!move_name [i])	463	if (!move_name[i])
479	{	464	{
480	/* fly is a special case - covers both fly_low and	465	/* fly is a special case - covers both fly_low and
481	* fly_high - since it doesn't match to a specific	466	* fly_high - since it doesn't match to a specific
482	* single bit, have to special case it.	467	* single bit, have to special case it.
483	*/	468	*/
…		…
499	if (thawer.get_sint32 ()) \	484	if (thawer.get_sint32 ()) \
500	SET_FLAG (op, flag); \	485	SET_FLAG (op, flag); \
501	else \	486	else \
502	CLEAR_FLAG (op, flag) \	487	CLEAR_FLAG (op, flag) \
503		488
		489	int
504	int parse_object (object * op, object_thawer & thawer, int map_flags)	490	parse_object (object *op, object_thawer &thawer, int map_flags)
505	{	491	{
506	bool ismore = 0;	492	bool ismore = 0;
		493	object *op_inv = op->inv;
507		494
508	for (;;)	495	for (;;)
509	{	496	{
510	keyword kw = thawer.get_kv ();	497	keyword kw = thawer.get_kv ();
511		498
512	switch (kw)	499	switch (kw)
513	{	500	{
		501	case KW_Object: // uppercase alias
514	case KW_object:	502	case KW_object:
515	thawer.get (op->name);	503	thawer.get (op->name);
516		504
517	if (op->arch != NULL)	505	if (op->arch)
518	op->arch->name = op->name;	506	op->arch->name = op->name;
519		507
520	break;	508	break;
521		509
		510	case KW_uuid:
		511	if (const char *s = thawer.get_str ())
		512	{
		513	unsigned int version;
		514	unsigned long long seq;
		515
		516	if (2 == sscanf (s, "<%d.%llx>", &version, &seq) && version == 1)
		517	{
		518	op->uuid.seq = seq;
		519	break;
		520	}
		521	}
		522
		523	op->uuid = gen_uuid ();
		524	break;
		525
		526	case KW_oid:
522	case KW_oid: thawer.get (op, thawer.get_sint32 ()); break;	527	thawer.get (op, thawer.get_sint32 ());
		528	break;
523		529
524	case KW_name: thawer.get (op->name); break;	530	case KW_name: thawer.get (op->name); break;
525	case KW_name_pl: thawer.get (op->name_pl); break;	531	case KW_name_pl: thawer.get (op->name_pl); break;
526	case KW_title: thawer.get (op->title); break;	532	case KW_title: thawer.get (op->title); break;
527	case KW_custom_name: thawer.get (op->custom_name); break;	533	case KW_custom_name: thawer.get (op->custom_name); break;
		534
528	case KW_attach: thawer.get_ornull (op->attach); break;	535	case KW_attach: thawer.get_ornull (op->attach); break;
529	case KW_skill: thawer.get_ornull (op->skill); break;	536	case KW_skill: thawer.get_ornull (op->skill); break;
530	case KW_race: thawer.get_ornull (op->race); break;	537	case KW_race: thawer.get_ornull (op->race); break;
531	case KW_slaying: thawer.get_ornull (op->slaying); break;	538	case KW_slaying: thawer.get_ornull (op->slaying); break;
532		539
533	case KW_arch:	540	case KW_arch:
534	{	541	{
535	const char *str = thawer.get_str ();	542	const char *str = thawer.get_str ();
536		543
…		…
538	{	545	{
539	/* If op->arch has been set, then this new object	546	/* If op->arch has been set, then this new object
540	* must be part of the inventory. So process	547	* must be part of the inventory. So process
541	* appropriately.	548	* appropriately.
542	*/	549	*/
543	archetype *arch = find_archetype (str);	550	archetype *arch = archetype::find (str);
544		551
545	object *tmp;	552	object *tmp;
546		553
547	if (arch != NULL)	554	if (arch)
548	tmp = arch_to_object (arch);	555	tmp = arch_to_object (arch);
549	else	556	else
550	{	557	{
551	tmp = get_object ();	558	tmp = object::create ();
552	/* record the name of the broken object */	559	/* record the name of the broken object */
553	tmp->name = str;	560	tmp->name = str;
554	}	561	}
555		562
		563	// decativate the object we, as we are still going
		564	// to read the speed value. Objects should be activated
		565	// when the map, object or player is completly loaded.
		566	tmp->deactivate ();
		567
556	parse_object (tmp, thawer, map_flags);	568	parse_object (tmp, thawer, map_flags);
557		569
558	if (tmp->arch)	570	if (tmp->arch)
		571	{
559	insert_ob_in_ob (tmp, op);	572	// was: insert_ob_in_ob (tmp, op);
		573	// but manually adding it can improve map loading times a lot
		574	// also, appending instead of prepending keeps the
		575	// save ordering the same between repeated load/saves.
		576	CLEAR_FLAG (tmp, FLAG_OBJ_ORIGINAL);
		577	CLEAR_FLAG (tmp, FLAG_REMOVED);
		578
		579	if (!op_inv)
		580	{
		581	op->inv = tmp;
		582	tmp->above = 0;
		583	}
		584	else
		585	{
		586	while (op_inv->below)
		587	op_inv = op_inv->below;
		588
		589	op_inv->below = tmp;
		590	tmp->above = op_inv;
		591	}
		592
		593	tmp->below = 0;
		594	tmp->env = op;
		595	op_inv = tmp;
		596	}
560	else	597	else
561	{	598	{
562	LOG (llevDebug, "Discarding object without arch: %s\n",	599	LOG (llevDebug, "Discarding object without arch: %s\n", tmp->name ? (const char *) tmp->name : "(null)");
563	tmp->name ? (const char *) tmp->name : "(null)");	600	tmp->destroy ();
564	free_object (tmp);
565	}	601	}
566	}	602	}
567	else	603	else
568	{	604	{
569	/* This is the actual archetype definition then */	605	/* This is the actual archetype definition then */
570	op->arch = find_archetype (str);	606	op->arch = archetype::find (str);
571		607
572	if (op->arch != NULL)	608	if (op->arch)
573	copy_object (&op->arch->clone, op);	609	{
		610	op->arch->clone.copy_to (op);
		611	// copy_to activates, this should be fixed properly
		612	op->deactivate ();
		613	}
574	else if (!arch_init)	614	else if (!arch_init)
575	/* record the name of the broken object */	615	/* record the name of the broken object */
576	op->name = str;	616	op->name = str;
577	}	617	}
578	}	618	}
579	break;	619	break;
580		620
581	case KW_other_arch:	621	case KW_other_arch:
582	op->other_arch = find_archetype (thawer.get_str ());	622	op->other_arch = archetype::find (thawer.get_str ());
583	break;	623	break;
584		624
585	case KW_animation:	625	case KW_animation:
586	{	626	{
587	const char *str = thawer.get_str ();	627	const char *str = thawer.get_str ();
588		628
589	if (!str)	629	if (!str)
590	{	630	{
591	op->animation_id = 0;	631	op->animation_id = 0;
592	CLEAR_FLAG (op, FLAG_ANIMATE);	632	CLEAR_FLAG (op, FLAG_ANIMATE);
593	}	633	}
594	else	634	else
595	{	635	{
596	op->animation_id = find_animation (str);	636	op->animation_id = find_animation (str);
597	SET_FLAG (op, FLAG_ANIMATE);	637	SET_FLAG (op, FLAG_ANIMATE);
598	}	638	}
599	}	639	}
600		640
601	break;	641	break;
602		642
603	case KW_last_heal: thawer.get (op->last_heal); break;	643	case KW_last_heal: thawer.get (op->last_heal); break;
604	case KW_last_sp: thawer.get (op->last_sp); break;	644	case KW_last_sp: thawer.get (op->last_sp); break;
605	case KW_last_grace: thawer.get (op->last_grace); break;	645	case KW_last_grace: thawer.get (op->last_grace); break;
606	case KW_last_eat: thawer.get (op->last_eat); break;	646	case KW_last_eat: thawer.get (op->last_eat); break;
607	case KW_speed_left: thawer.get (op->speed_left); break;	647	case KW_speed_left: thawer.get (op->speed_left); break;
608		648
609	case KW_speed:	649	case KW_speed:
610	thawer.get (op->speed);	650	thawer.get (op->speed);
611		651
612	//TODO: maybe do in check_object	652	//TODO: maybe do in check_object
613	if (!(map_flags & MAP_STYLE))	653	// removed check for style maps
614	{
615	if (op->speed < 0)	654	if (op->speed < 0)
616	op->speed_left = op->speed_left - RANDOM () % 100 / 100.0;	655	op->speed_left = op->speed_left - RANDOM () % 100 / 100.0;
617
618	update_ob_speed (op);
619	}
620		656
621	break;	657	break;
622		658
623	case KW_slow_move:	659	case KW_slow_move:
624	op->move_slow \|= MOVE_WALK;	660	op->move_slow \|= MOVE_WALK;
625	thawer.get (op->move_slow_penalty);	661	thawer.get (op->move_slow_penalty);
626	break;	662	break;
627		663
628	case KW_face:	664	case KW_face:
629	if (const char *str = thawer.get_str ())
630	op->face = &new_faces[FindFace (str, 0)];	665	op->face = &new_faces[FindFace (thawer.get_str (), 0)];
631	else	666	break;
632	op->face = 0;
633	break;
634		667
635	case KW_x: thawer.get (op->x); break;	668	case KW_x: thawer.get (op->x); break;
636	case KW_y: thawer.get (op->y); break;	669	case KW_y: thawer.get (op->y); break;
		670
		671	case KW_Str: // uppercase alias
637	case KW_str: thawer.get (op->stats.Str); break;	672	case KW_str: thawer.get (op->stats.Str); break;
		673	case KW_Dex: // uppercase alias
638	case KW_dex: thawer.get (op->stats.Dex); break;	674	case KW_dex: thawer.get (op->stats.Dex); break;
		675	case KW_Con: // uppercase alias
639	case KW_con: thawer.get (op->stats.Con); break;	676	case KW_con: thawer.get (op->stats.Con); break;
		677	case KW_Wis: // uppercase alias
640	case KW_wis: thawer.get (op->stats.Wis); break;	678	case KW_wis: thawer.get (op->stats.Wis); break;
		679	case KW_Cha: // uppercase alias
641	case KW_cha: thawer.get (op->stats.Cha); break;	680	case KW_cha: thawer.get (op->stats.Cha); break;
		681	case KW_Int: // uppercase alias
642	case KW_int: thawer.get (op->stats.Int); break;	682	case KW_int: thawer.get (op->stats.Int); break;
		683	case KW_Pow: // uppercase alias
643	case KW_pow: thawer.get (op->stats.Pow); break;	684	case KW_pow: thawer.get (op->stats.Pow); break;
		685
644	case KW_hp: thawer.get (op->stats.hp); break;	686	case KW_hp: thawer.get (op->stats.hp); break;
645	case KW_maxhp: thawer.get (op->stats.maxhp); break;	687	case KW_maxhp: thawer.get (op->stats.maxhp); break;
646	case KW_sp: thawer.get (op->stats.sp); break;	688	case KW_sp: thawer.get (op->stats.sp); break;
647	case KW_maxsp: thawer.get (op->stats.maxsp); break;	689	case KW_maxsp: thawer.get (op->stats.maxsp); break;
648	case KW_grace: thawer.get (op->stats.grace); break;	690	case KW_grace: thawer.get (op->stats.grace); break;
649	case KW_maxgrace: thawer.get (op->stats.maxgrace); break;	691	case KW_maxgrace: thawer.get (op->stats.maxgrace); break;
650		692
651	case KW_exp: thawer.get (op->stats.exp); break;	693	case KW_exp: thawer.get (op->stats.exp); break;
652	case KW_perm_exp: thawer.get (op->perm_exp); break;	694	case KW_perm_exp: thawer.get (op->perm_exp); break;
653	case KW_food: thawer.get (op->stats.food); break;	695	case KW_food: thawer.get (op->stats.food); break;
654	case KW_dam: thawer.get (op->stats.dam); break;	696	case KW_dam: thawer.get (op->stats.dam); break;
655	case KW_wc: thawer.get (op->stats.wc); break;	697	case KW_wc: thawer.get (op->stats.wc); break;
656	case KW_ac: thawer.get (op->stats.ac); break;	698	case KW_ac: thawer.get (op->stats.ac); break;
657	case KW_nrof: thawer.get (op->nrof); break;	699	case KW_nrof: thawer.get (op->nrof); break;
658	case KW_level: thawer.get (op->level); break;	700	case KW_level: thawer.get (op->level); break;
659	case KW_direction: thawer.get (op->direction); break;	701	case KW_direction: thawer.get (op->direction); break;
660	case KW_type: thawer.get (op->type); break;	702	case KW_type: thawer.get (op->type); break;
661	case KW_subtype: thawer.get (op->subtype); break;	703	case KW_subtype: thawer.get (op->subtype); break;
662	case KW_value: thawer.get (op->value); break;	704	case KW_value: thawer.get (op->value); break;
663	case KW_weight: thawer.get (op->weight); break;	705	case KW_weight: thawer.get (op->weight); break;
664	case KW_carrying: thawer.get (op->carrying); break;	706	case KW_carrying: thawer.get (op->carrying); break;
665	case KW_attacktype: thawer.get (op->attacktype); break;	707	case KW_attacktype: thawer.get (op->attacktype); break;
666	case KW_path_attuned: thawer.get (op->path_attuned); break;	708	case KW_path_attuned: thawer.get (op->path_attuned); break;
667	case KW_path_repelled: thawer.get (op->path_repelled); break;	709	case KW_path_repelled: thawer.get (op->path_repelled); break;
668	case KW_path_denied: thawer.get (op->path_denied); break;	710	case KW_path_denied: thawer.get (op->path_denied); break;
669	case KW_invisible: thawer.get (op->invisible); break;	711	case KW_invisible: thawer.get (op->invisible); break;
670	case KW_magic: thawer.get (op->magic); break;	712	case KW_magic: thawer.get (op->magic); break;
671	case KW_state: thawer.get (op->state); break;	713	case KW_state: thawer.get (op->state); break;
672	case KW_move_slow_penalty:thawer.get (op->move_slow_penalty); break;	714	case KW_move_slow_penalty: thawer.get (op->move_slow_penalty); break;
673	case KW_material: thawer.get (op->material); break;	715	case KW_material: thawer.get (op->material); break;
674	case KW_materialname: thawer.get (op->materialname); break;	716	case KW_materialname: thawer.get (op->materialname); break;
675		717
676	/* These are the new values */	718	/* These are the new values */
677	case KW_move_block: set_move (op->move_block, thawer.get_str ()); break;	719	case KW_move_block: set_move (op->move_block, thawer.get_str ()); break;
678	case KW_move_allow: set_move (op->move_allow, thawer.get_str ()); break;	720	case KW_move_allow: set_move (op->move_allow, thawer.get_str ()); break;
679	case KW_move_type: set_move (op->move_type, thawer.get_str ()); break;	721	case KW_move_type: set_move (op->move_type, thawer.get_str ()); break;
680	case KW_move_on: set_move (op->move_on, thawer.get_str ()); break;	722	case KW_move_on: set_move (op->move_on, thawer.get_str ()); break;
681	case KW_move_off: set_move (op->move_off, thawer.get_str ()); break;	723	case KW_move_off: set_move (op->move_off, thawer.get_str ()); break;
682	case KW_move_slow: set_move (op->move_slow, thawer.get_str ()); break;	724	case KW_move_slow: set_move (op->move_slow, thawer.get_str ()); break;
683		725
684	/* These are all legacy - any new objects should use the move_ .. values */	726	/* These are all legacy - any new objects should use the move_ .. values */
685	case KW_no_pass:	727	case KW_no_pass:
686	{	728	{
687	if (thawer.get_sint32 ())	729	if (thawer.get_sint32 ())
688	op->move_block = MOVE_ALL;	730	op->move_block = MOVE_ALL;
689	else	731	else
690	op->move_block = 0;	732	op->move_block = 0;
691	}	733	}
692		734
693	break;	735	break;
694		736
695	/* These are all legacy - any new objects should use the move_ .. values */	737	/* These are all legacy - any new objects should use the move_ .. values */
696	case KW_walk_on:	738	case KW_walk_on:
697	{	739	{
698	if (thawer.get_sint32 ())	740	if (thawer.get_sint32 ())
699	op->move_on \|= MOVE_WALK;	741	op->move_on \|= MOVE_WALK;
700	else	742	else
701	op->move_on &= ~MOVE_WALK;	743	op->move_on &= ~MOVE_WALK;
702	}	744	}
703		745
704	break;	746	break;
705		747
706	/* These are all legacy - any new objects should use the move_ .. values */	748	/* These are all legacy - any new objects should use the move_ .. values */
707	case KW_walk_off:	749	case KW_walk_off:
708	{	750	{
709	if (thawer.get_sint32 ())	751	if (thawer.get_sint32 ())
710	op->move_off \|= MOVE_WALK;	752	op->move_off \|= MOVE_WALK;
711	else	753	else
712	op->move_off &= ~MOVE_WALK;	754	op->move_off &= ~MOVE_WALK;
713	}	755	}
714	break;	756	break;
715		757
716	/* These are all legacy - any new objects should use the move_ .. values */	758	/* These are all legacy - any new objects should use the move_ .. values */
717	case KW_fly_on:	759	case KW_fly_on:
718	{	760	{
719	if (thawer.get_sint32 ())	761	if (thawer.get_sint32 ())
720	op->move_on \|= MOVE_FLY_LOW;	762	op->move_on \|= MOVE_FLY_LOW;
721	else	763	else
722	op->move_on &= ~MOVE_FLY_LOW;	764	op->move_on &= ~MOVE_FLY_LOW;
723	}	765	}
724	break;	766	break;
725		767
726	/* These are all legacy - any new objects should use the move_ .. values */	768	/* These are all legacy - any new objects should use the move_ .. values */
727	case KW_fly_off:	769	case KW_fly_off:
728	{	770	{
729	if (thawer.get_sint32 ())	771	if (thawer.get_sint32 ())
730	op->move_off \|= MOVE_FLY_LOW;	772	op->move_off \|= MOVE_FLY_LOW;
731	else	773	else
732	op->move_off &= ~MOVE_FLY_LOW;	774	op->move_off &= ~MOVE_FLY_LOW;
733	}	775	}
734	break;	776	break;
735		777
736	//TODO: remove these after convertign archetypes	778	//TODO: remove these after converting archetypes
737	case KW_can_use_wand: GET_FLAG (op, FLAG_USE_RANGE); break;	779	case KW_can_use_wand:
		780	GET_FLAG (op, FLAG_USE_RANGE);
		781	break;
738		782
739	/* These are all legacy - any new objects should use the move_ .. values */	783	/* These are all legacy - any new objects should use the move_ .. values */
740	case KW_flying:	784	case KW_flying:
741	{	785	{
742	if (thawer.get_sint32 ())	786	if (thawer.get_sint32 ())
743	op->move_type \|= MOVE_FLY_LOW;	787	op->move_type \|= MOVE_FLY_LOW;
744	else	788	else
…		…
776	//TODO: move to check_object or so	820	//TODO: move to check_object or so
777	if (op->type != PLAYER && QUERY_FLAG (op, FLAG_FRIENDLY))	821	if (op->type != PLAYER && QUERY_FLAG (op, FLAG_FRIENDLY))
778	add_friendly_object (op);	822	add_friendly_object (op);
779	break;	823	break;
780		824
781	case KW_monster: GET_FLAG (op, FLAG_MONSTER); break;	825	case KW_monster: GET_FLAG (op, FLAG_MONSTER); break;
782	case KW_neutral: GET_FLAG (op, FLAG_NEUTRAL); break;	826	case KW_neutral: GET_FLAG (op, FLAG_NEUTRAL); break;
783	case KW_no_attack: GET_FLAG (op, FLAG_NO_ATTACK); break;	827	case KW_no_attack: GET_FLAG (op, FLAG_NO_ATTACK); break;
784	case KW_no_damage: GET_FLAG (op, FLAG_NO_DAMAGE); break;	828	case KW_no_damage: GET_FLAG (op, FLAG_NO_DAMAGE); break;
785	case KW_generator: GET_FLAG (op, FLAG_GENERATOR); break;	829	case KW_generator: GET_FLAG (op, FLAG_GENERATOR); break;
786	case KW_use_content_on_gen: GET_FLAG (op, FLAG_CONTENT_ON_GEN); break;	830	case KW_use_content_on_gen: GET_FLAG (op, FLAG_CONTENT_ON_GEN); break;
787	case KW_is_thrown: GET_FLAG (op, FLAG_IS_THROWN); break;	831	case KW_is_thrown: GET_FLAG (op, FLAG_IS_THROWN); break;
788	case KW_auto_apply: GET_FLAG (op, FLAG_AUTO_APPLY); break;	832	case KW_auto_apply: GET_FLAG (op, FLAG_AUTO_APPLY); break;
789	case KW_treasure: GET_FLAG (op, FLAG_TREASURE); break;
790	case KW_see_invisible: GET_FLAG (op, FLAG_SEE_INVISIBLE); break;	833	case KW_see_invisible: GET_FLAG (op, FLAG_SEE_INVISIBLE); break;
791	case KW_can_roll: GET_FLAG (op, FLAG_CAN_ROLL); break;	834	case KW_can_roll: GET_FLAG (op, FLAG_CAN_ROLL); break;
792	case KW_overlay_floor: GET_FLAG (op, FLAG_OVERLAY_FLOOR); break;	835	case KW_overlay_floor: GET_FLAG (op, FLAG_OVERLAY_FLOOR); break;
793	case KW_is_turnable: GET_FLAG (op, FLAG_IS_TURNABLE); break;	836	case KW_is_turnable: GET_FLAG (op, FLAG_IS_TURNABLE); break;
794	case KW_is_used_up: GET_FLAG (op, FLAG_IS_USED_UP); break;	837	case KW_is_used_up: GET_FLAG (op, FLAG_IS_USED_UP); break;
795	case KW_alive: GET_FLAG (op, FLAG_ALIVE); break;	838	case KW_alive: GET_FLAG (op, FLAG_ALIVE); break;
796	case KW_applied: GET_FLAG (op, FLAG_APPLIED); break;	839	case KW_applied: GET_FLAG (op, FLAG_APPLIED); break;
797	case KW_unpaid: GET_FLAG (op, FLAG_UNPAID); break;	840	case KW_unpaid: GET_FLAG (op, FLAG_UNPAID); break;
798	case KW_is_animated: GET_FLAG (op, FLAG_ANIMATE); break;	841	case KW_is_animated: GET_FLAG (op, FLAG_ANIMATE); break;
799	case KW_no_pick: GET_FLAG (op, FLAG_NO_PICK); break;	842	case KW_no_pick: GET_FLAG (op, FLAG_NO_PICK); break;
800	case KW_reflecting: GET_FLAG (op, FLAG_REFLECTING); break;	843	case KW_reflecting: GET_FLAG (op, FLAG_REFLECTING); break;
801	case KW_changing: GET_FLAG (op, FLAG_CHANGING); break;	844	case KW_changing: GET_FLAG (op, FLAG_CHANGING); break;
802	case KW_splitting: GET_FLAG (op, FLAG_SPLITTING); break;	845	case KW_splitting: GET_FLAG (op, FLAG_SPLITTING); break;
803	case KW_hitback: GET_FLAG (op, FLAG_HITBACK); break;	846	case KW_hitback: GET_FLAG (op, FLAG_HITBACK); break;
804	case KW_startequip: GET_FLAG (op, FLAG_STARTEQUIP); break;	847	case KW_startequip: GET_FLAG (op, FLAG_STARTEQUIP); break;
805	case KW_blocksview: GET_FLAG (op, FLAG_BLOCKSVIEW); break;	848	case KW_blocksview: GET_FLAG (op, FLAG_BLOCKSVIEW); break;
806	case KW_undead: GET_FLAG (op, FLAG_UNDEAD); break;	849	case KW_undead: GET_FLAG (op, FLAG_UNDEAD); break;
807	case KW_scared: GET_FLAG (op, FLAG_SCARED); break;	850	case KW_scared: GET_FLAG (op, FLAG_SCARED); break;
808	case KW_unaggressive: GET_FLAG (op, FLAG_UNAGGRESSIVE); break;	851	case KW_unaggressive: GET_FLAG (op, FLAG_UNAGGRESSIVE); break;
809	case KW_reflect_missile: GET_FLAG (op, FLAG_REFL_MISSILE); break;	852	case KW_reflect_missile: GET_FLAG (op, FLAG_REFL_MISSILE); break;
810	case KW_reflect_spell: GET_FLAG (op, FLAG_REFL_SPELL); break;	853	case KW_reflect_spell: GET_FLAG (op, FLAG_REFL_SPELL); break;
811	case KW_no_magic: GET_FLAG (op, FLAG_NO_MAGIC); break;	854	case KW_no_magic: GET_FLAG (op, FLAG_NO_MAGIC); break;
812	case KW_no_drop: GET_FLAG (op, FLAG_NO_DROP); break;	855	case KW_no_drop: GET_FLAG (op, FLAG_NO_DROP); break;
813	case KW_random_movement: GET_FLAG (op, FLAG_RANDOM_MOVE); break;	856	case KW_random_movement: GET_FLAG (op, FLAG_RANDOM_MOVE); break;
814	case KW_was_wiz: GET_FLAG (op, FLAG_WAS_WIZ); break;	857	case KW_was_wiz: GET_FLAG (op, FLAG_WAS_WIZ); break;
815	case KW_no_fix_player: GET_FLAG (op, FLAG_NO_FIX_PLAYER); break;	858	case KW_no_fix_player: GET_FLAG (op, FLAG_NO_FIX_PLAYER); break;
816	case KW_is_lightable: GET_FLAG (op, FLAG_IS_LIGHTABLE); break;	859	case KW_is_lightable: GET_FLAG (op, FLAG_IS_LIGHTABLE); break;
817	case KW_tear_down: GET_FLAG (op, FLAG_TEAR_DOWN); break;	860	case KW_tear_down: GET_FLAG (op, FLAG_TEAR_DOWN); break;
818	case KW_can_use_shield: GET_FLAG (op, FLAG_USE_SHIELD); break;	861	case KW_can_use_shield: GET_FLAG (op, FLAG_USE_SHIELD); break;
819	case KW_can_cast_spell: GET_FLAG (op, FLAG_CAST_SPELL); break;	862	case KW_can_cast_spell: GET_FLAG (op, FLAG_CAST_SPELL); break;
820	case KW_can_use_scroll: GET_FLAG (op, FLAG_USE_SCROLL); break;	863	case KW_can_use_scroll: GET_FLAG (op, FLAG_USE_SCROLL); break;
821	case KW_can_use_range: GET_FLAG (op, FLAG_USE_RANGE); break;	864	case KW_can_use_range: GET_FLAG (op, FLAG_USE_RANGE); break;
822	case KW_can_use_bow: GET_FLAG (op, FLAG_USE_BOW); break;	865	case KW_can_use_bow: GET_FLAG (op, FLAG_USE_BOW); break;
823	case KW_can_use_armour: GET_FLAG (op, FLAG_USE_ARMOUR); break;	866	case KW_can_use_armour: GET_FLAG (op, FLAG_USE_ARMOUR); break;
824	case KW_can_use_weapon: GET_FLAG (op, FLAG_USE_WEAPON); break;	867	case KW_can_use_weapon: GET_FLAG (op, FLAG_USE_WEAPON); break;
825	case KW_can_use_ring: GET_FLAG (op, FLAG_USE_RING); break;	868	case KW_can_use_ring: GET_FLAG (op, FLAG_USE_RING); break;
826	case KW_has_ready_bow: GET_FLAG (op, FLAG_READY_BOW); break;	869	case KW_has_ready_bow: GET_FLAG (op, FLAG_READY_BOW); break;
		870	case KW_has_ready_range: GET_FLAG (op, FLAG_READY_RANGE); break;
827	case KW_xrays: GET_FLAG (op, FLAG_XRAYS); break;	871	case KW_xrays: GET_FLAG (op, FLAG_XRAYS); break;
828	case KW_is_floor: GET_FLAG (op, FLAG_IS_FLOOR); break;	872	case KW_is_floor: GET_FLAG (op, FLAG_IS_FLOOR); break;
829	case KW_lifesave: GET_FLAG (op, FLAG_LIFESAVE); break;	873	case KW_lifesave: GET_FLAG (op, FLAG_LIFESAVE); break;
830	case KW_no_strength: GET_FLAG (op, FLAG_NO_STRENGTH); break;	874	case KW_no_strength: GET_FLAG (op, FLAG_NO_STRENGTH); break;
831	case KW_sleep: GET_FLAG (op, FLAG_SLEEP); break;	875	case KW_sleep: GET_FLAG (op, FLAG_SLEEP); break;
832	case KW_stand_still: GET_FLAG (op, FLAG_STAND_STILL); break;	876	case KW_stand_still: GET_FLAG (op, FLAG_STAND_STILL); break;
833	case KW_random_move: GET_FLAG (op, FLAG_RANDOM_MOVE); break;	877	case KW_random_move: GET_FLAG (op, FLAG_RANDOM_MOVE); break;
834	case KW_only_attack: GET_FLAG (op, FLAG_ONLY_ATTACK); break;	878	case KW_only_attack: GET_FLAG (op, FLAG_ONLY_ATTACK); break;
835	case KW_activate_on_push: GET_FLAG (op, FLAG_ACTIVATE_ON_PUSH); break;	879	case KW_activate_on_push: GET_FLAG (op, FLAG_ACTIVATE_ON_PUSH); break;
836	case KW_activate_on_release: GET_FLAG (op, FLAG_ACTIVATE_ON_RELEASE); break;	880	case KW_activate_on_release: GET_FLAG (op, FLAG_ACTIVATE_ON_RELEASE); break;
837	case KW_confused: GET_FLAG (op, FLAG_CONFUSED); break;	881	case KW_confused: GET_FLAG (op, FLAG_CONFUSED); break;
838	case KW_stealth: GET_FLAG (op, FLAG_STEALTH); break;	882	case KW_stealth: GET_FLAG (op, FLAG_STEALTH); break;
839	case KW_cursed: GET_FLAG (op, FLAG_CURSED); break;	883	case KW_cursed: GET_FLAG (op, FLAG_CURSED); break;
840	case KW_damned: GET_FLAG (op, FLAG_DAMNED); break;	884	case KW_damned: GET_FLAG (op, FLAG_DAMNED); break;
841	case KW_see_anywhere: GET_FLAG (op, FLAG_SEE_ANYWHERE); break;	885	case KW_see_anywhere: GET_FLAG (op, FLAG_SEE_ANYWHERE); break;
842	case KW_known_magical: GET_FLAG (op, FLAG_KNOWN_MAGICAL); break;	886	case KW_known_magical: GET_FLAG (op, FLAG_KNOWN_MAGICAL); break;
843	case KW_known_cursed: GET_FLAG (op, FLAG_KNOWN_CURSED); break;	887	case KW_known_cursed: GET_FLAG (op, FLAG_KNOWN_CURSED); break;
844	case KW_can_use_skill: GET_FLAG (op, FLAG_CAN_USE_SKILL); break;	888	case KW_can_use_skill: GET_FLAG (op, FLAG_CAN_USE_SKILL); break;
845	case KW_been_applied: GET_FLAG (op, FLAG_BEEN_APPLIED); break;	889	case KW_been_applied: GET_FLAG (op, FLAG_BEEN_APPLIED); break;
846	case KW_has_ready_scroll: GET_FLAG (op, FLAG_READY_SCROLL); break;	890	case KW_has_ready_scroll: GET_FLAG (op, FLAG_READY_SCROLL); break;
847	case KW_can_use_rod: GET_FLAG (op, FLAG_USE_ROD); break;	891	case KW_can_use_rod: GET_FLAG (op, FLAG_USE_ROD); break;
848	case KW_can_use_horn: GET_FLAG (op, FLAG_USE_HORN); break;	892	case KW_can_use_horn: GET_FLAG (op, FLAG_USE_HORN); break;
849	case KW_unique: GET_FLAG (op, FLAG_UNIQUE); break;	893	case KW_unique: GET_FLAG (op, FLAG_UNIQUE); break;
850	case KW_make_invisible: GET_FLAG (op, FLAG_MAKE_INVIS); break;	894	case KW_make_invisible: GET_FLAG (op, FLAG_MAKE_INVIS); break;
851	case KW_inv_locked: GET_FLAG (op, FLAG_INV_LOCKED); break;	895	case KW_inv_locked: GET_FLAG (op, FLAG_INV_LOCKED); break;
852	case KW_is_wooded: GET_FLAG (op, FLAG_IS_WOODED); break;	896	case KW_is_wooded: GET_FLAG (op, FLAG_IS_WOODED); break;
853	case KW_is_hilly: GET_FLAG (op, FLAG_IS_HILLY); break;	897	case KW_is_hilly: GET_FLAG (op, FLAG_IS_HILLY); break;
854	case KW_is_water: GET_FLAG (op, FLAG_IS_WATER); break;	898	case KW_is_water: GET_FLAG (op, FLAG_IS_WATER); break;
855	case KW_has_ready_skill: GET_FLAG (op, FLAG_READY_SKILL); break;	899	case KW_has_ready_skill: GET_FLAG (op, FLAG_READY_SKILL); break;
856	case KW_has_ready_weapon: GET_FLAG (op, FLAG_READY_WEAPON); break;	900	case KW_has_ready_weapon: GET_FLAG (op, FLAG_READY_WEAPON); break;
857	case KW_no_skill_ident: GET_FLAG (op, FLAG_NO_SKILL_IDENT); break;	901	case KW_no_skill_ident: GET_FLAG (op, FLAG_NO_SKILL_IDENT); break;
858	case KW_is_blind: GET_FLAG (op, FLAG_BLIND); break;	902	case KW_is_blind: GET_FLAG (op, FLAG_BLIND); break;
859	case KW_can_see_in_dark: GET_FLAG (op, FLAG_SEE_IN_DARK); break;	903	case KW_can_see_in_dark: GET_FLAG (op, FLAG_SEE_IN_DARK); break;
860	case KW_is_cauldron: GET_FLAG (op, FLAG_IS_CAULDRON); break;	904	case KW_is_cauldron: GET_FLAG (op, FLAG_IS_CAULDRON); break;
861	case KW_no_steal: GET_FLAG (op, FLAG_NO_STEAL); break;	905	case KW_no_steal: GET_FLAG (op, FLAG_NO_STEAL); break;
862	case KW_one_hit: GET_FLAG (op, FLAG_ONE_HIT); break;	906	case KW_one_hit: GET_FLAG (op, FLAG_ONE_HIT); break;
863	case KW_berserk: GET_FLAG (op, FLAG_BERSERK); break;	907	case KW_berserk: GET_FLAG (op, FLAG_BERSERK); break;
864	case KW_is_buildable: GET_FLAG (op, FLAG_IS_BUILDABLE); break;	908	case KW_is_buildable: GET_FLAG (op, FLAG_IS_BUILDABLE); break;
865		909
866	case KW_armour: thawer.get (op->resist [ATNR_PHYSICAL]); break;	910	case KW_armour: thawer.get (op->resist[ATNR_PHYSICAL]); break;
867	case KW_resist_physical: thawer.get (op->resist [ATNR_PHYSICAL]); break;	911	case KW_resist_physical: thawer.get (op->resist[ATNR_PHYSICAL]); break;
868	case KW_resist_magic: thawer.get (op->resist [ATNR_MAGIC]); break;	912	case KW_resist_magic: thawer.get (op->resist[ATNR_MAGIC]); break;
869	case KW_resist_fire: thawer.get (op->resist [ATNR_FIRE]); break;	913	case KW_resist_fire: thawer.get (op->resist[ATNR_FIRE]); break;
870	case KW_resist_electricity: thawer.get (op->resist [ATNR_ELECTRICITY]); break;	914	case KW_resist_electricity: thawer.get (op->resist[ATNR_ELECTRICITY]); break;
871	case KW_resist_cold: thawer.get (op->resist [ATNR_COLD]); break;	915	case KW_resist_cold: thawer.get (op->resist[ATNR_COLD]); break;
872	case KW_resist_confusion: thawer.get (op->resist [ATNR_CONFUSION]); break;	916	case KW_resist_confusion: thawer.get (op->resist[ATNR_CONFUSION]); break;
873	case KW_resist_acid: thawer.get (op->resist [ATNR_ACID]); break;	917	case KW_resist_acid: thawer.get (op->resist[ATNR_ACID]); break;
874	case KW_resist_drain: thawer.get (op->resist [ATNR_DRAIN]); break;	918	case KW_resist_drain: thawer.get (op->resist[ATNR_DRAIN]); break;
875	case KW_resist_weaponmagic: thawer.get (op->resist [ATNR_WEAPONMAGIC]); break;	919	case KW_resist_weaponmagic: thawer.get (op->resist[ATNR_WEAPONMAGIC]); break;
876	case KW_resist_ghosthit: thawer.get (op->resist [ATNR_GHOSTHIT]); break;	920	case KW_resist_ghosthit: thawer.get (op->resist[ATNR_GHOSTHIT]); break;
877	case KW_resist_poison: thawer.get (op->resist [ATNR_POISON]); break;	921	case KW_resist_poison: thawer.get (op->resist[ATNR_POISON]); break;
878	case KW_resist_slow: thawer.get (op->resist [ATNR_SLOW]); break;	922	case KW_resist_slow: thawer.get (op->resist[ATNR_SLOW]); break;
879	case KW_resist_paralyze: thawer.get (op->resist [ATNR_PARALYZE]); break;	923	case KW_resist_paralyze: thawer.get (op->resist[ATNR_PARALYZE]); break;
880	case KW_resist_turn_undead: thawer.get (op->resist [ATNR_TURN_UNDEAD]); break;	924	case KW_resist_turn_undead: thawer.get (op->resist[ATNR_TURN_UNDEAD]); break;
881	case KW_resist_fear: thawer.get (op->resist [ATNR_FEAR]); break;	925	case KW_resist_fear: thawer.get (op->resist[ATNR_FEAR]); break;
882	case KW_resist_cancellation: thawer.get (op->resist [ATNR_CANCELLATION]); break;	926	case KW_resist_cancellation: thawer.get (op->resist[ATNR_CANCELLATION]); break;
883	case KW_resist_deplete: thawer.get (op->resist [ATNR_DEPLETE]); break;	927	case KW_resist_deplete: thawer.get (op->resist[ATNR_DEPLETE]); break;
884	case KW_resist_death: thawer.get (op->resist [ATNR_DEATH]); break;	928	case KW_resist_death: thawer.get (op->resist[ATNR_DEATH]); break;
885	case KW_resist_chaos: thawer.get (op->resist [ATNR_CHAOS]); break;	929	case KW_resist_chaos: thawer.get (op->resist[ATNR_CHAOS]); break;
886	case KW_resist_counterspell: thawer.get (op->resist [ATNR_COUNTERSPELL]); break;	930	case KW_resist_counterspell: thawer.get (op->resist[ATNR_COUNTERSPELL]); break;
887	case KW_resist_godpower: thawer.get (op->resist [ATNR_GODPOWER]); break;	931	case KW_resist_godpower: thawer.get (op->resist[ATNR_GODPOWER]); break;
888	case KW_resist_holyword: thawer.get (op->resist [ATNR_HOLYWORD]); break;	932	case KW_resist_holyword: thawer.get (op->resist[ATNR_HOLYWORD]); break;
889	case KW_resist_blind: thawer.get (op->resist [ATNR_BLIND]); break;	933	case KW_resist_blind: thawer.get (op->resist[ATNR_BLIND]); break;
890	case KW_resist_internal: thawer.get (op->resist [ATNR_INTERNAL]); break;	934	case KW_resist_internal: thawer.get (op->resist[ATNR_INTERNAL]); break;
891	case KW_resist_life_stealing: thawer.get (op->resist [ATNR_LIFE_STEALING]); break;	935	case KW_resist_life_stealing: thawer.get (op->resist[ATNR_LIFE_STEALING]); break;
892	case KW_resist_disease: thawer.get (op->resist [ATNR_DISEASE]); break;	936	case KW_resist_disease: thawer.get (op->resist[ATNR_DISEASE]); break;
893		937
894	case KW_luck: thawer.get (op->stats.luck); break;	938	case KW_luck: thawer.get (op->stats.luck); break;
895	case KW_run_away: thawer.get (op->run_away); break;	939	case KW_run_away: thawer.get (op->run_away); break;
896	case KW_pick_up: thawer.get (op->pick_up); break;	940	case KW_pick_up: thawer.get (op->pick_up); break;
897	case KW_item_power: thawer.get (op->item_power); break;	941	case KW_item_power: thawer.get (op->item_power); break;
898	case KW_gen_sp_armour: thawer.get (op->gen_sp_armour); break;	942	case KW_gen_sp_armour: thawer.get (op->gen_sp_armour); break;
899	case KW_anim_speed: thawer.get (op->anim_speed); break;	943	case KW_anim_speed: thawer.get (op->anim_speed); break;
900	case KW_container: thawer.get (op->weight_limit); break;	944	case KW_container: thawer.get (op->weight_limit); break;
901	case KW_will_apply: thawer.get (op->will_apply); break;	945	case KW_will_apply: thawer.get (op->will_apply); break;
902	case KW_attack_movement: thawer.get (op->attack_movement); break;	946	case KW_attack_movement: thawer.get (op->attack_movement); break;
903	case KW_move_state: thawer.get (op->move_status); break;	947	case KW_move_state: thawer.get (op->move_status); break;
904	case KW_expmul: thawer.get (op->expmul); break;	948	case KW_expmul: thawer.get (op->expmul); break;
905	case KW_glow_radius: thawer.get (op->glow_radius); break;	949	case KW_glow_radius: thawer.get (op->glow_radius); break;
906	case KW_weapontype: thawer.get (op->weapontype); break;	950	case KW_weapontype: thawer.get (op->weapontype); break;
907	case KW_tooltype: thawer.get (op->tooltype); break;	951	case KW_tooltype: thawer.get (op->tooltype); break;
908	case KW_casting_time: thawer.get (op->casting_time); break;	952	case KW_casting_time: thawer.get (op->casting_time); break;
909	case KW_elevation: thawer.get (op->elevation); break;	953	case KW_elevation: thawer.get (op->elevation); break;
910	case KW_smoothlevel: thawer.get (op->smoothlevel); break;	954	case KW_smoothlevel: thawer.get (op->smoothlevel); break;
911	case KW_client_type: thawer.get (op->client_type); break;	955	case KW_client_type: thawer.get (op->client_type); break;
912	case KW_duration: thawer.get (op->duration); break;	956	case KW_duration: thawer.get (op->duration); break;
913	case KW_range: thawer.get (op->range); break;	957	case KW_range: thawer.get (op->range); break;
914	case KW_range_modifier: thawer.get (op->range_modifier); break;	958	case KW_range_modifier: thawer.get (op->range_modifier); break;
915	case KW_dam_modifier: thawer.get (op->dam_modifier); break;	959	case KW_dam_modifier: thawer.get (op->dam_modifier); break;
916	case KW_duration_modifier: thawer.get (op->duration_modifier); break;	960	case KW_duration_modifier: thawer.get (op->duration_modifier); break;
917		961
918	//TODO: mechanism to ensure that KW_xxx is consecutive needed from include/preprocess	962	//TODO: mechanism to ensure that KW_xxx is consecutive needed from include/preprocess
919	//TODO: parse from other include files	963	//TODO: parse from other include files
920	case KW_body_range: thawer.get (op->body_info [ 0]); break;	964	case KW_body_range: thawer.get (op->body_info[0]); break;
921	case KW_body_arm: thawer.get (op->body_info [ 1]); break;	965	case KW_body_arm: thawer.get (op->body_info[1]); break;
922	case KW_body_torso: thawer.get (op->body_info [ 2]); break;	966	case KW_body_torso: thawer.get (op->body_info[2]); break;
923	case KW_body_head: thawer.get (op->body_info [ 3]); break;	967	case KW_body_head: thawer.get (op->body_info[3]); break;
924	case KW_body_neck: thawer.get (op->body_info [ 4]); break;	968	case KW_body_neck: thawer.get (op->body_info[4]); break;
925	case KW_body_skill: thawer.get (op->body_info [ 5]); break;	969	case KW_body_skill: thawer.get (op->body_info[5]); break;
926	case KW_body_finger: thawer.get (op->body_info [ 6]); break;	970	case KW_body_finger: thawer.get (op->body_info[6]); break;
927	case KW_body_shoulder: thawer.get (op->body_info [ 7]); break;	971	case KW_body_shoulder: thawer.get (op->body_info[7]); break;
928	case KW_body_foot: thawer.get (op->body_info [ 8]); break;	972	case KW_body_foot: thawer.get (op->body_info[8]); break;
929	case KW_body_hand: thawer.get (op->body_info [ 9]); break;	973	case KW_body_hand: thawer.get (op->body_info[9]); break;
930	case KW_body_wrist: thawer.get (op->body_info [10]); break;	974	case KW_body_wrist: thawer.get (op->body_info[10]); break;
931	case KW_body_waist: thawer.get (op->body_info [11]); break;	975	case KW_body_waist: thawer.get (op->body_info[11]); break;
932	case KW_can_apply:	976	case KW_can_apply:
933	break;	977	break;
934		978
935	case KW_connected:	979	case KW_connected:
936	add_button_link (op, op->map, thawer.get_sint32 ());	980	add_button_link (op, op->map, thawer.get_sint32 ());
…		…
939	case KW_randomitems:	983	case KW_randomitems:
940	op->randomitems = find_treasurelist (thawer.get_str ());	984	op->randomitems = find_treasurelist (thawer.get_str ());
941	break;	985	break;
942		986
943	case KW_msg:	987	case KW_msg:
944	{
945	thawer.get_ml (KW_endmsg, op->msg);	988	thawer.get_ml (KW_endmsg, op->msg);
946	//TODO: allow longer messages	989	//TODO: allow longer messages
947	if (strlen (op->msg) >= HUGE_BUF)	990	if (strlen (op->msg) >= HUGE_BUF)
948	{	991	{
949	LOG (llevDebug, "\n\tError message length >= %d: %d\n>%.80s<\n", HUGE_BUF, strlen (op->msg), &op->msg);	992	LOG (llevDebug, "\tError message length >= %d: %d\n>%.80s<\n", HUGE_BUF, strlen (op->msg), &op->msg);
950	op->msg = "ERROR, please report: string too long, winged.\n";	993	op->msg = "ERROR, please report: string too long, winged.\n";
951	}	994	}
952	}
953	break;	995	break;
954		996
955	case KW_lore:	997	case KW_lore:
956	{
957	shstr msgbuf;
958	thawer.get_ml (KW_endlore, op->lore);	998	thawer.get_ml (KW_endlore, op->lore);
959	//TODO: allow longer messages	999	//TODO: allow longer messages
960	/* Just print a warning so we can be reasonably safe	1000	/* Just print a warning so we can be reasonably safe
961	* about not overflowing the buffer.	1001	* about not overflowing the buffer.
962	*/	1002	*/
963	if (strlen (op->lore) > (HUGE_BUF / 2))	1003	if (strlen (op->lore) > (HUGE_BUF / 2))
964	LOG (llevDebug, "\n\tWarning lore length > %d (max allowed=%d): %d\n>%.80s<\n",	1004	LOG (llevDebug, "\tWarning lore length > %d (max allowed=%d): %d\n>%.80s<\n",
965	HUGE_BUF / 2, HUGE_BUF, strlen (op->lore), &op->lore);	1005	HUGE_BUF / 2, HUGE_BUF, strlen (op->lore), &op->lore);
966	}
967	break;	1006	break;
968		1007
969	case KW_editable:	1008	case KW_editable:
970	case KW_editor_folder:	1009	case KW_editor_folder:
971	break;	1010	break;
972		1011
		1012	case KW_More: // uppercase alias
973	case KW_more:	1013	case KW_more:
974	/* We need to record that this is a multipart object,	1014	/* We need to record that this is a multipart object,
975	* so the calling function can glue things back together	1015	* so the calling function can glue things back together
976	*/	1016	*/
977	ismore = 1;	1017	ismore = 1;
…		…
987		1027
988	case KW_EOF:	1028	case KW_EOF:
989	return LL_EOF;	1029	return LL_EOF;
990		1030
991	case KW_ERROR:	1031	case KW_ERROR:
992	set_ob_key_value (op, thawer.line, thawer.last_value, true);	1032	set_ob_key_value (op, thawer.last_keyword, thawer.last_value, true);
993	//printf ("addkv(%s,%s)\n", thawer.line, thawer.get_str());//D	1033	//fprintf (stderr, "addkv(%s,%s)\n", thawer.last_keyword, thawer.last_value);//D
994
995	//TODO: skip line, ugly, factor parsing better
996	if (thawer.last_value)
997	thawer.line = thawer.last_value;
998
999	thawer.line += strlen (thawer.line) + 1;
1000
1001	break;	1034	break;
1002		1035
1003	default:	1036	default:
1004	printf ("kw abort %s\n", keyword_str [kw]);//D	1037	LOG (llevError, "UNSUPPORTED KEYWORD IN MAP: \"%s\", bug in normaliser. skipping.\n", keyword_str[kw]);
1005	abort ();	1038	break;
1006	}	1039	}
1007	}	1040	}
1008	}	1041	}
1009		1042
1010	/*	1043	/*
…		…
1019	* LO_NEWFILE (2): This is the first read from a particular file, so the buffers should	1052	* LO_NEWFILE (2): This is the first read from a particular file, so the buffers should
1020	* be reset.	1053	* be reset.
1021	* LO_NOREAD (3): Reset the buffers, but don't read from it. (op can be null)	1054	* LO_NOREAD (3): Reset the buffers, but don't read from it. (op can be null)
1022	*	1055	*
1023	*/	1056	*/
1024		1057	int
1025	int load_object(object_thawer &fp, object *op, int map_flags) {	1058	load_object (object_thawer &fp, object *op, int map_flags)
		1059	{
		1060	coroapi::cede_every (1000); // cede once in a while
		1061
1026	return parse_object(op, fp, map_flags);	1062	return parse_object (op, fp, map_flags);
1027	}	1063	}
1028
1029		1064
1030	/* This takes a buffer, scans it for variables, and sets those variables	1065	/* This takes a buffer, scans it for variables, and sets those variables
1031	* as appropriate in op.	1066	* as appropriate in op.
1032	*	1067	*
1033	* This function appears to be used in only 2 places - in crossedit to	1068	* This function appears to be used in only 2 places - in crossedit to
1034	* override values and in c_wiz to mutate values.	1069	* override values and in c_wiz to mutate values.
1035	*/	1070	*/
		1071	int
1036	int set_variable(object op,char buf) {	1072	set_variable (object op, char buf)
1037	#if 0	1073	{
1038	int retval;
1039	object_thawer thawer (0);	1074	object_thawer thawer (buf, (AV *)0);
1040		1075
1041	strcpy(msgbuf, "");
1042	strcpy(lorebuf, "");
1043	retval=parse_object(op,thawer,0);	1076	return parse_object (op, thawer, 0);
1044	yy_switch_to_buffer(yycurbuf);
1045	yy_delete_buffer(yybufstate);
1046	yy_pop_state();
1047	return retval;
1048	#endif
1049	}	1077	}
1050
1051	/* This array equates the FLAG_ values with the V_ values. Use -1 to
1052	* put gaps in the array that should not be processed.
1053	* The order matches the order of the define values in 'define.h'.
1054	*/
1055	/* This is a list of pointers that correspond to the FLAG_.. values.
1056	* This is a simple 1:1 mapping - if FLAG_FRIENDLY is 15, then
1057	* the 15'th element of this array should match that name.
1058	* If an entry is NULL, that is a flag not to loaded/saved.
1059	*/
1060	static const char *const flag_names[NUM_FLAGS+1] = {
1061	"alive", "wiz", NULL, NULL, "was_wiz", "applied", "unpaid",
1062	"can_use_shield", "no_pick", NULL /* walk_on/, NULL / no_pass /, / 10 */
1063	"is_animated", NULL /* slow_move */,
1064	NULL /* flying */, "monster", "friendly", "generator",
1065	"is_thrown", "auto_apply", "treasure", "player sold", /* 20 */
1066	"see_invisible", "can_roll", "overlay_floor",
1067	"is_turnable", NULL /* walk_off /, NULL / fly_on */,
1068	NULL /fly_off/, "is_used_up", "identified", "reflecting", /* 30 */
1069	"changing", "splitting", "hitback", "startequip",
1070	"blocksview", "undead", "scared", "unaggressive",
1071	"reflect_missile", "reflect_spell", /* 40 */
1072	"no_magic", "no_fix_player", "is_lightable", "tear_down",
1073	"run_away", NULL /pass_thru /, NULL /can_pass_thru/,
1074	"pick_up", "unique", "no_drop", /* 50 */
1075	NULL /* wizcast*/, "can_cast_spell", "can_use_scroll", "can_use_range",
1076	"can_use_bow", "can_use_armour", "can_use_weapon",
1077	"can_use_ring", "has_ready_range", "has_ready_bow", /* 60 */
1078	"xrays", NULL, "is_floor", "lifesave", "no_strength", "sleep",
1079	"stand_still", "random_move", "only_attack", "confused", /* 70 */
1080	"stealth", NULL, NULL, "cursed", "damned",
1081	"see_anywhere", "known_magical", "known_cursed",
1082	"can_use_skill", "been_applied", /* 80 */
1083	"has_ready_scroll", "can_use_rod", NULL,
1084	"can_use_horn", "make_invisible", "inv_locked", "is_wooded",
1085	"is_hilly", "has_ready_skill", "has_ready_weapon", /* 90 */
1086	"no_skill_ident", "is_blind", "can_see_in_dark", "is_cauldron",
1087	"is_dust", "no_steal", "one_hit", NULL, "berserk", "neutral", /* 100 */
1088	"no_attack", "no_damage", NULL, NULL, "activate_on_push",
1089	"activate_on_release", "is_water", "use_content_on_gen", NULL, "is_buildable", /* 110 */
1090	NULL
1091	};
1092
1093		1078
1094	/*	1079	/*
1095	* Initialises the array of variable-names. Needed before any	1080	* Initialises the array of variable-names. Needed before any
1096	* objects can be loaded. Called by init_library().	1081	* objects can be loaded. Called by init_library().
1097	*/	1082	*/
1098		1083
1099	void init_vars() {	1084	void
		1085	init_vars ()
		1086	{
1100	}	1087	}
1101		1088
1102	/* This returns a string of the integer movement type */	1089	/* This returns a string of the integer movement type */
		1090	#if 0
		1091	// unused function
		1092	static char *
1103	static char* get_string_move_type(MoveType mt)	1093	get_string_move_type (MoveType mt)
1104	{	1094	{
1105	static char retbuf[MAX_BUF], retbuf_all[MAX_BUF];	1095	static char retbuf[MAX_BUF], retbuf_all[MAX_BUF];
1106	int i, all_count=0, count;	1096	int i, all_count = 0, count;
1107		1097
1108	strcpy(retbuf,"");	1098	strcpy (retbuf, "");
1109	strcpy(retbuf_all," all");	1099	strcpy (retbuf_all, " all");
1110		1100
1111	/* Quick check, and probably fairly common */	1101	/* Quick check, and probably fairly common */
1112	if (mt == MOVE_ALL) return retbuf_all+1;	1102	if (mt == MOVE_ALL)
		1103	return retbuf_all + 1;
1113	if (mt == 0) {	1104	if (mt == 0)
		1105	{
1114	strcpy(retbuf,"0");	1106	strcpy (retbuf, "0");
1115	return retbuf;	1107	return retbuf;
1116	}	1108	}
1117		1109
1118	/* We basically slide the bits down. Why look at MOVE_ALL?	1110	/* We basically slide the bits down. Why look at MOVE_ALL?
1119	* because we may want to return a string like 'all -swim',	1111	* because we may want to return a string like 'all -swim',
1120	* and if we just looked at mt, we couldn't get that.	1112	* and if we just looked at mt, we couldn't get that.
1121	*/	1113	*/
1122	for (i=MOVE_ALL, count=0; i!=0; i >>= 1, count++) {	1114	for (i = MOVE_ALL, count = 0; i != 0; i >>= 1, count++)
		1115	{
1123	if (mt & (1<<count)) {	1116	if (mt & (1 << count))
		1117	{
1124	strcat(retbuf, " ");	1118	strcat (retbuf, " ");
1125	strcat(retbuf, move_name[count]);	1119	strcat (retbuf, move_name[count]);
		1120	}
1126	} else {	1121	else
		1122	{
1127	strcat(retbuf_all, " -");	1123	strcat (retbuf_all, " -");
1128	strcat(retbuf_all, move_name[count]);	1124	strcat (retbuf_all, move_name[count]);
1129	all_count++;	1125	all_count++;
1130	}	1126	}
1131	}	1127	}
1132	/* Basically, if there is a single negation, return it, eg	1128	/* Basically, if there is a single negation, return it, eg
1133	* 'all -swim'. But more than that, just return the	1129	* 'all -swim'. But more than that, just return the
1134	* enumerated values. It doesn't make sense to return	1130	* enumerated values. It doesn't make sense to return
1135	* 'all -walk -fly_low' - it is shorter to return 'fly_high swim'	1131	* 'all -walk -fly_low' - it is shorter to return 'fly_high swim'
1136	*/	1132	*/
1137	if (all_count <=1) return retbuf_all+1;	1133	if (all_count <= 1)
		1134	return retbuf_all + 1;
		1135	else
1138	else return retbuf+1;	1136	return retbuf + 1;
1139	}	1137	}
1140		1138	#endif
		1139
1141	// compare op against tmp and output differences	1140	// compare op against tmp and output differences
1142	void	1141	void
1143	put (object_freezer &f, object op, object tmp)	1142	put (object_freezer &f, object op, object tmp)
1144	{	1143	{
		1144	static const keyword resist_save[NROFATTACKS] = {
		1145	# define def(uc, lc, name, plus, change) KW_resist_ ## lc,
		1146	# include "attackinc.h"
		1147	# undef def
		1148	};
		1149
		1150	/* This is a list of keywords that correspond to the FLAG_.. values.
		1151	* This is a simple 1:1 mapping - if FLAG_FRIENDLY is 15, then
		1152	* the 15'th element of this array should match that name.
		1153	* If an entry is NULL, that is a flag not to loaded/saved.
		1154	*/
		1155	static const keyword flag_names [NUM_FLAGS] = {
		1156	KW_alive,
		1157	KW_wiz,
		1158	KW_NULL,
		1159	KW_NULL,
		1160	KW_was_wiz,
		1161	KW_applied,
		1162	KW_unpaid,
		1163	KW_can_use_shield,
		1164	KW_no_pick,
		1165	KW_NULL, // walk_on
		1166	KW_NULL, // no_pass
		1167	/* 10 */
		1168	KW_is_animated,
		1169	KW_NULL, // slow_move
		1170	KW_NULL, // flying
		1171	KW_monster,
		1172	KW_friendly,
		1173	KW_generator,
		1174	KW_is_thrown,
		1175	KW_auto_apply,
		1176	KW_NULL, // was KW_treasure
		1177	KW_player_sold,
		1178	/* 20 */
		1179	KW_see_invisible,
		1180	KW_can_roll,
		1181	KW_overlay_floor,
		1182	KW_is_turnable,
		1183	KW_NULL, // walk_off
		1184	KW_NULL, // fly_on
		1185	KW_NULL, // fly_off
		1186	KW_is_used_up,
		1187	KW_identified,
		1188	KW_reflecting,
		1189	/* 30 */
		1190	KW_changing,
		1191	KW_splitting,
		1192	KW_hitback,
		1193	KW_startequip,
		1194	KW_blocksview,
		1195	KW_undead,
		1196	KW_scared,
		1197	KW_unaggressive,
		1198	KW_reflect_missile,
		1199	KW_reflect_spell,
		1200	/* 40 */
		1201	KW_no_magic,
		1202	KW_no_fix_player,
		1203	KW_is_lightable,
		1204	KW_tear_down,
		1205	KW_run_away,
		1206	KW_NULL, // pass_thru
		1207	KW_NULL, // an_pass_thru
		1208	KW_pick_up,
		1209	KW_unique,
		1210	KW_no_drop,
		1211	/* 50 */
		1212	KW_NULL, // wizcast
		1213	KW_can_cast_spell,
		1214	KW_can_use_scroll,
		1215	KW_can_use_range,
		1216	KW_can_use_bow,
		1217	KW_can_use_armour,
		1218	KW_can_use_weapon,
		1219	KW_can_use_ring,
		1220	KW_has_ready_range,
		1221	KW_has_ready_bow,
		1222	/* 60 */
		1223	KW_xrays,
		1224	KW_NULL,
		1225	KW_is_floor,
		1226	KW_lifesave,
		1227	KW_no_strength,
		1228	KW_sleep,
		1229	KW_stand_still,
		1230	KW_random_move,
		1231	KW_only_attack,
		1232	KW_confused,
		1233	/* 70 */
		1234	KW_stealth,
		1235	KW_NULL,
		1236	KW_NULL,
		1237	KW_cursed,
		1238	KW_damned,
		1239	KW_see_anywhere,
		1240	KW_known_magical,
		1241	KW_known_cursed,
		1242	KW_can_use_skill,
		1243	KW_been_applied,
		1244	/* 80 */
		1245	KW_has_ready_scroll,
		1246	KW_can_use_rod,
		1247	KW_NULL,
		1248	KW_can_use_horn,
		1249	KW_make_invisible,
		1250	KW_inv_locked,
		1251	KW_is_wooded,
		1252	KW_is_hilly,
		1253	KW_has_ready_skill,
		1254	KW_has_ready_weapon,
		1255	/* 90 */
		1256	KW_no_skill_ident,
		1257	KW_is_blind,
		1258	KW_can_see_in_dark,
		1259	KW_is_cauldron,
		1260	KW_NULL,
		1261	KW_no_steal,
		1262	KW_one_hit,
		1263	KW_NULL,
		1264	KW_berserk,
		1265	KW_neutral,
		1266	/* 100 */
		1267	KW_no_attack,
		1268	KW_no_damage,
		1269	KW_NULL,
		1270	KW_NULL,
		1271	KW_activate_on_push,
		1272	KW_activate_on_release,
		1273	KW_is_water,
		1274	KW_use_content_on_gen,
		1275	KW_NULL,
		1276	KW_is_buildable,
		1277	/* 110 */
		1278	};
		1279
1145	int i;	1280	int i;
1146		1281
1147	/* This saves the key/value lists. We do it first so that any	1282	/* This saves the key/value lists. We do it first so that any
1148	* keys that match field names will be overwritten by the loader.	1283	* keys that match field names will be overwritten by the loader.
1149	*/	1284	*/
…		…
1151	{	1286	{
1152	/* Find the field in the opposing member. */	1287	/* Find the field in the opposing member. */
1153	key_value *arch_field = get_ob_key_link (tmp, my_field->key);	1288	key_value *arch_field = get_ob_key_link (tmp, my_field->key);
1154		1289
1155	/* If there's no partnering field, or it's got a different value, save our field. */	1290	/* If there's no partnering field, or it's got a different value, save our field. */
1156	if (arch_field == NULL \|\| my_field->value != arch_field->value)	1291	if (!arch_field \|\| my_field->value != arch_field->value)
1157	f.put (my_field->key, my_field->value);	1292	f.put (my_field->key, my_field->value);
1158	}	1293	}
1159		1294
1160	/* We don't need to worry about the arch's extra fields - they	1295	/* We don't need to worry about the arch's extra fields - they
1161	* will get taken care of the copy_object function.	1296	* will get taken care of the copy_to method.
1162	*/	1297	*/
1163		1298
		1299	{
		1300	char uids[64];
		1301	snprintf (uids, sizeof (uids), "<1.%llx>", (unsigned long long)op->uuid.seq);
		1302	f.put (KW_uuid, (const char *)uids);
		1303	}
		1304
1164	# define CMP_OUT(v) if (op->v != tmp->v) f.put (KW_ ## v, op->v)	1305	#define CMP_OUT(v) if (op->v != tmp->v) f.put (KW_ ## v, op->v)
1165	# define CMP_OUT2(k,v) if (op->v != tmp->v) f.put (KW_ ## k, op->v)	1306	#define CMP_OUT2(k,v) if (op->v != tmp->v) f.put (KW_ ## k, op->v)
1166		1307
1167	CMP_OUT (name);	1308	CMP_OUT (name);
1168	CMP_OUT (name_pl);	1309	CMP_OUT (name_pl);
1169	CMP_OUT (custom_name);	1310	CMP_OUT (custom_name);
1170	CMP_OUT (title);	1311	CMP_OUT (title);
1171	CMP_OUT (race);	1312	CMP_OUT (race);
1172	CMP_OUT (slaying);	1313	CMP_OUT (slaying);
1173		1314
1174	if (op->msg != tmp->msg ) f.put (KW_msg , KW_endmsg , op->msg);	1315	if (op->msg != tmp->msg)
		1316	f.put (KW_msg, KW_endmsg, op->msg);
		1317	if (op->lore != tmp->lore)
1175	if (op->lore != tmp->lore) f.put (KW_lore, KW_endlore, op->lore);	1318	f.put (KW_lore, KW_endlore, op->lore);
1176		1319
1177	CMP_OUT (other_arch);	1320	CMP_OUT (other_arch);
1178	CMP_OUT (face);	1321	CMP_OUT (face);
1179
1180	if (!op->face \|\| !op->face->name)
1181	printf ("ERRFACE<%s,%s, face %p,%p, fname%s>\n", &tmp->name, &op->name, tmp->face, op->face, op->face ? &op->face->name : "<noface>");//D
1182		1322
1183	if (op->animation_id != tmp->animation_id)	1323	if (op->animation_id != tmp->animation_id)
1184	if (op->animation_id)	1324	if (op->animation_id)
1185	{	1325	{
1186	f.put (KW_animation, animations[GET_ANIM_ID (op)].name);	1326	f.put (KW_animation, animations[GET_ANIM_ID (op)].name);
1187		1327
1188	if (!QUERY_FLAG (op, FLAG_ANIMATE))	1328	if (!QUERY_FLAG (op, FLAG_ANIMATE))
1189	f.put (KW_is_animated, (sint32)0);	1329	f.put (KW_is_animated, (sint32) 0);
1190	}	1330	}
1191	else	1331	else
1192	f.put (KW_animation, (const char *)0);	1332	f.put (KW_animation, (const char *) 0);
1193		1333
1194	CMP_OUT2 (str , stats.Str);	1334	CMP_OUT2 (str, stats.Str);
1195	CMP_OUT2 (dex , stats.Dex);	1335	CMP_OUT2 (dex, stats.Dex);
1196	CMP_OUT2 (con , stats.Con);	1336	CMP_OUT2 (con, stats.Con);
1197	CMP_OUT2 (wis , stats.Wis);	1337	CMP_OUT2 (wis, stats.Wis);
1198	CMP_OUT2 (pow , stats.Pow);	1338	CMP_OUT2 (pow, stats.Pow);
1199	CMP_OUT2 (cha , stats.Cha);	1339	CMP_OUT2 (cha, stats.Cha);
1200	CMP_OUT2 (int , stats.Int);	1340	CMP_OUT2 (int, stats.Int);
		1341
1201	CMP_OUT2 (hp , stats.hp);	1342	CMP_OUT2 (hp, stats.hp);
1202	CMP_OUT2 (maxhp , stats.maxhp);	1343	CMP_OUT2 (maxhp, stats.maxhp);
1203	CMP_OUT2 (sp , stats.sp);	1344	CMP_OUT2 (sp, stats.sp);
1204	CMP_OUT2 (maxsp , stats.maxsp);	1345	CMP_OUT2 (maxsp, stats.maxsp);
1205	CMP_OUT2 (grace , stats.grace);	1346	CMP_OUT2 (grace, stats.grace);
1206	CMP_OUT2 (maxgrace, stats.maxgrace);	1347	CMP_OUT2 (maxgrace, stats.maxgrace);
1207	CMP_OUT2 (exp , stats.exp);	1348	CMP_OUT2 (exp, stats.exp);
1208		1349
1209	CMP_OUT (perm_exp);	1350	CMP_OUT (perm_exp);
1210	CMP_OUT (expmul);	1351	CMP_OUT (expmul);
1211		1352
1212	CMP_OUT2 (food , stats.food);	1353	CMP_OUT2 (food, stats.food);
1213	CMP_OUT2 (dam , stats.dam);	1354	CMP_OUT2 (dam, stats.dam);
1214	CMP_OUT2 (luck , stats.luck);	1355	CMP_OUT2 (luck, stats.luck);
1215	CMP_OUT2 (wc , stats.wc);	1356	CMP_OUT2 (wc, stats.wc);
1216	CMP_OUT2 (ac , stats.ac);	1357	CMP_OUT2 (ac, stats.ac);
1217		1358
1218	CMP_OUT (x);	1359	CMP_OUT (x);
1219	CMP_OUT (y);	1360	CMP_OUT (y);
1220	CMP_OUT (speed);	1361	CMP_OUT (speed);
1221	CMP_OUT (speed_left);	1362	CMP_OUT (speed_left);
…		…
1227	CMP_OUT (type);	1368	CMP_OUT (type);
1228	CMP_OUT (subtype);	1369	CMP_OUT (subtype);
1229	CMP_OUT (attacktype);	1370	CMP_OUT (attacktype);
1230		1371
1231	for (i = 0; i < NROFATTACKS; i++)	1372	for (i = 0; i < NROFATTACKS; i++)
1232	if (op->resist [i] != tmp->resist [i])	1373	if (op->resist[i] != tmp->resist[i])
1233	f.put (resist_save [i], op->resist [i]);	1374	f.put (resist_save[i], op->resist[i]);
1234		1375
1235	CMP_OUT (path_attuned);	1376	CMP_OUT (path_attuned);
1236	CMP_OUT (path_repelled);	1377	CMP_OUT (path_repelled);
1237	CMP_OUT (path_denied);	1378	CMP_OUT (path_denied);
1238	CMP_OUT (material);	1379	CMP_OUT (material);
…		…
1277	CMP_OUT (move_on);	1418	CMP_OUT (move_on);
1278	CMP_OUT (move_off);	1419	CMP_OUT (move_off);
1279	CMP_OUT (move_slow);	1420	CMP_OUT (move_slow);
1280	CMP_OUT (move_slow_penalty);	1421	CMP_OUT (move_slow_penalty);
1281		1422
1282	if (!COMPARE_FLAGS (op, tmp))	1423	if (op->flag != tmp->flag)
1283	for (i = 0; i <= NUM_FLAGS; i++)	1424	for (i = 0; i <= NUM_FLAGS; i++)
1284	if (flag_names [i]	1425	if (flag_names [i] && op->flag [i] != tmp->flag [i])
1285	&& (QUERY_FLAG (op, i) != QUERY_FLAG (tmp, i)))
1286	f.put (flag_names [i], QUERY_FLAG (op, i) ? "1" : "0");	1426	f.put (flag_names [i], op->flag [i] ? "1" : "0");
1287		1427
1288	/* Save body locations */	1428	/* Save body locations */
1289	for (i = 0; i < NUM_BODY_LOCATIONS; i++)	1429	for (i = 0; i < NUM_BODY_LOCATIONS; i++)
1290	if (op->body_info[i] != tmp->body_info[i])	1430	if (op->body_info[i] != tmp->body_info[i])
1291	f.put (body_locations[i].save_name, op->body_info[i]);	1431	f.put (body_locations[i].save_name, op->body_info[i]);
…		…
1293		1433
1294	/*	1434	/*
1295	* Dumps all variables in an object to a file.	1435	* Dumps all variables in an object to a file.
1296	* If bit 0 of flag is set, unpaid objects will be saved. As of now,	1436	* If bit 0 of flag is set, unpaid objects will be saved. As of now,
1297	* the only place this is not set is when saving the player.	1437	* the only place this is not set is when saving the player.
1298	* If bit 1 of flag is set, don't remove the object after save. As of now,
1299	* all of the callers are setting this.
1300	*/	1438	*/
1301
1302	void	1439	void
1303	save_object (object_freezer &fp, object *op, int flag)	1440	save_object (object_freezer &fp, object *op, int flag)
1304	{	1441	{
1305	archetype *at;
1306	object tmp, old;
1307
1308	/* Even if the object does have an owner, it would seem that we should	1442	/* Even if the object does have an owner, it would seem that we should
1309	* still save it.	1443	* still save it.
1310	*/	1444	*/
1311	if (op->owner != NULL)	1445	if (op->owner)
1312	return;	1446	return;
1313		1447
1314	/* If it is unpaid and we don't want to save those, just return. */	1448	/* If it is unpaid and we don't want to save those, just return. */
1315	if (!(flag & 1) && (QUERY_FLAG (op, FLAG_UNPAID)))	1449	if (!(flag & 1) && op->flag [FLAG_UNPAID])
1316	return;	1450	return;
1317		1451
1318	if ((at = op->arch) == NULL)	1452	archetype at = op->arch ? (archetype )op->arch : empty_archetype;
1319	at = empty_archetype;
1320		1453
1321	fp.put (KW_arch, at->name);	1454	fp.put (KW_arch, at->name);
1322
1323	put (fp, op, &at->clone);	1455	put (fp, op, &at->clone);
1324		1456
1325	/* Eneq(@csd.uu.se): Added this to allow containers being saved with contents */	1457	/* Eneq(@csd.uu.se): Added this to allow containers being saved with contents */
1326		1458
1327	old = NULL;
1328
1329	if (flag & 2)
1330	for (tmp = op->inv; tmp != NULL; tmp = tmp->below)	1459	for (object *tmp = op->inv; tmp; tmp = tmp->below)
1331	save_object (fp, tmp, flag);	1460	save_object (fp, tmp, flag);
1332	else
1333	/* Slightly different logic because tmp/op will be removed by
1334	* the save_object we call. So we just keep looking at op->inv
1335	* until there is nothing left. In theory, the variable old
1336	* should not be needed, as recursive loops shouldn't happen.
1337	*/
1338	while ((tmp = op->inv) != NULL)
1339	{
1340	if (old == tmp)
1341	{
1342	LOG (llevError, " Recursive loop in inventory\n");
1343	break;
1344	}
1345
1346	save_object (fp, tmp, flag);
1347	old = tmp;
1348	}
1349
1350	if (!(flag & 2))
1351	{
1352	remove_ob (op);
1353	free_object (op);
1354	}
1355		1461
1356	fp.put (op);	1462	fp.put (op);
1357	fprintf (fp, "end\n");	1463	fp.put (KW_end);
1358	}	1464	}
1359		1465

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing deliantra/server/common/loader.C (file contents): Revision 1.3 by root, Mon Sep 4 13:55:54 2006 UTC vs. Revision 1.39 by elmex, Wed Jan 3 02:51:09 2007 UTC

Diff Legend

Comparing deliantra/server/common/loader.C (file contents):
Revision 1.3 by root, Mon Sep 4 13:55:54 2006 UTC vs.
Revision 1.39 by elmex, Wed Jan 3 02:51:09 2007 UTC