ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/common/loader.C
(Generate patch)

Comparing deliantra/server/common/loader.C (file contents):
Revision 1.170 by root, Sat May 7 17:14:41 2011 UTC vs.
Revision 1.186 by root, Sun Jan 27 11:04:33 2019 UTC

1/* 1/*
2 * This file is part of Deliantra, the Roguelike Realtime MMORPG. 2 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
3 * 3 *
4 * Copyright (©) 2018 Marc Alexander Lehmann / the Deliantra team
4 * Copyright (©) 2005,2006,2007,2008,2009,2010,2011 Marc Alexander Lehmann / Robin Redeker / the Deliantra team 5 * Copyright (©) 2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5 * Copyright (©) 2002 Mark Wedel & Crossfire Development Team 6 * Copyright (©) 2002 Mark Wedel & Crossfire Development Team
6 * Copyright (©) 1992 Frank Tore Johansen 7 * Copyright (©) 1992 Frank Tore Johansen
7 * 8 *
8 * Deliantra is free software: you can redistribute it and/or modify it under 9 * Deliantra is free software: you can redistribute it and/or modify it under
9 * the terms of the Affero GNU General Public License as published by the 10 * the terms of the Affero GNU General Public License as published by the
10 * Free Software Foundation, either version 3 of the License, or (at your 11 * Free Software Foundation, either version 3 of the License, or (at your
11 * option) any later version. 12 * option) any later version.
12 * 13 *
13 * This program is distributed in the hope that it will be useful, 14 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of 15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details. 17 * GNU General Public License for more details.
17 * 18 *
18 * You should have received a copy of the Affero GNU General Public License 19 * You should have received a copy of the Affero GNU General Public License
19 * and the GNU General Public License along with this program. If not, see 20 * and the GNU General Public License along with this program. If not, see
20 * <http://www.gnu.org/licenses/>. 21 * <http://www.gnu.org/licenses/>.
21 * 22 *
22 * The authors can be reached via e-mail to <support@deliantra.net> 23 * The authors can be reached via e-mail to <support@deliantra.net>
23 */ 24 */
24 25
25#include <global.h> 26#include <global.h>
26#include <sproto.h> 27#include <sproto.h>
250 "spell_glyph", /* 205 */ 251 "spell_glyph", /* 205 */
251 NULL 252 NULL
252}; 253};
253 254
254/* This function checks the object after it has been loaded (when we 255/* This function checks the object after it has been loaded (when we
255 * get the 'end' in the input stream). This function can be used to 256 * get the 'end' in the input stream). This function can be used to
256 * deal with legacy objects where fields may have changed. It can also be used 257 * deal with legacy objects where fields may have changed. It can also be used
257 * to check for objects to make sure there are no common errors. 258 * to check for objects to make sure there are no common errors.
258 */ 259 */
259void 260void
260object::post_load_check () 261object::post_load_check ()
293 LOG (llevError, "ITEMBUG: %s: body_shield %d != -1\n", debug_desc (), slot [body_shield].info); 294 LOG (llevError, "ITEMBUG: %s: body_shield %d != -1\n", debug_desc (), slot [body_shield].info);
294 slot [body_shield].info = -1; 295 slot [body_shield].info = -1;
295 } 296 }
296 break; 297 break;
297 298
299 case CONTAINER:
300 if (nrof)
301 {
302 LOG (llevError, "ITEMBUG: %s: stackable container (nrof %d)\n", debug_desc (), (int)nrof);
303 nrof = 0;
304 }
305 break;
306
298 case PLAYER: 307 case PLAYER:
299 if (slot [body_shield].info != 1) 308 if (slot [body_shield].info != 1)
300 { 309 {
301 LOG (llevError, "ITEMBUG: %s: body_shield %d != 1\n", debug_desc (), slot [body_shield].info); 310 LOG (llevError, "ITEMBUG: %s: body_shield %d != 1\n", debug_desc (), slot [body_shield].info);
302 slot [body_shield].info = 1; 311 slot [body_shield].info = 1;
321 * this isn't perfect (things won't be properly pluralised), but works to 330 * this isn't perfect (things won't be properly pluralised), but works to
322 * that degree (5 heart is still quite understandable). But the case we 331 * that degree (5 heart is still quite understandable). But the case we
323 * also have to catch is if this object is not using the normal name for 332 * also have to catch is if this object is not using the normal name for
324 * the object. In that case, we also want to use the loaded name. 333 * the object. In that case, we also want to use the loaded name.
325 * Otherwise, what happens is that the the plural name will lose 334 * Otherwise, what happens is that the the plural name will lose
326 * information (appear as just 'hearts' and not 'goblins heart') 335 * information (appear as just 'hearts' and not 'goblins heart')
327 */ 336 */
328 if (arch && name != arch->object::name && name_pl == arch->object::name_pl) 337 if (arch && name != arch->object::name && name_pl == arch->object::name_pl)
329 name_pl = 0; 338 name_pl = 0;
330 339
331 if (!name_pl) 340 if (!name_pl)
475 } 484 }
476 485
477 // if the object has an animation, try to provide a default face 486 // if the object has an animation, try to provide a default face
478 if (has_anim ()) 487 if (has_anim ())
479 { 488 {
480 const animation &anim_ob = anim ();
481
482 if (anim_speed) 489 if (anim_speed)
483 // if this item is time-animated, force the last frame 490 // if this item is time-animated, force the last frame
484 animate_object (this, 0); 491 animate_object (this, 0);
485 else if (flag [FLAG_MONSTER]) 492 else if (flag [FLAG_MONSTER])
486 // if it is a monster, set appropriate facing 493 // if it is a monster, set appropriate facing
523 { 530 {
524 negate = 1; 531 negate = 1;
525 str++; 532 str++;
526 } 533 }
527 534
528 for (const flagstr *f = move_flags; f < move_flags + array_length (move_flags); ++f) 535 for (const flagstr *f = move_flags; f < move_flags + ecb_array_length (move_flags); ++f)
529 { 536 {
530 if (!strcmp (f->name, str)) 537 if (!strcmp (f->name, str))
531 { 538 {
532 if (negate) 539 if (negate)
533 mt &= ~f->flags; 540 mt &= ~f->flags;
550 557
551bool 558bool
552object::parse_kv (object_thawer &f) 559object::parse_kv (object_thawer &f)
553{ 560{
554 object *op_inv = inv; 561 object *op_inv = inv;
555 key_value *last_kv = kv.first;
556 562
557 for (;;) 563 for (;;)
558 { 564 {
559 switch (f.kw) 565 switch (f.kw)
560 { 566 {
633 f.delayed_deref (this, owner, f.get_str ()); 639 f.delayed_deref (this, owner, f.get_str ());
634 break; 640 break;
635 641
636 case KW_animation: 642 case KW_animation:
637 { 643 {
638 this->clr_flag (FLAG_ANIMATE); 644 clr_flag (FLAG_ANIMATE);
639 animation_id = 0; 645 animation_id = 0;
640 646
641 if (f.has_value () && (animation_id = find_animation (f.get_str ()))) 647 if (f.has_value () && (animation_id = animation::find (f.get_str ()).number))
642 this->set_flag (FLAG_ANIMATE); //TODO: should not be forced to true here 648 set_flag (FLAG_ANIMATE); //TODO: should not be forced to true here
643 } 649 }
644 break; 650 break;
645 651
646 case KW_last_heal: f.get (last_heal); break; 652 case KW_last_heal: f.get (last_heal); break;
647 case KW_last_sp: f.get (last_sp); break; 653 case KW_last_sp: f.get (last_sp); break;
793 case KW_changing: GET_FLAG (this, FLAG_CHANGING); break; 799 case KW_changing: GET_FLAG (this, FLAG_CHANGING); break;
794 case KW_splitting: GET_FLAG (this, FLAG_SPLITTING); break; 800 case KW_splitting: GET_FLAG (this, FLAG_SPLITTING); break;
795 case KW_hitback: GET_FLAG (this, FLAG_HITBACK); break; 801 case KW_hitback: GET_FLAG (this, FLAG_HITBACK); break;
796 case KW_startequip: GET_FLAG (this, FLAG_STARTEQUIP); break; 802 case KW_startequip: GET_FLAG (this, FLAG_STARTEQUIP); break;
797 case KW_blocksview: GET_FLAG (this, FLAG_BLOCKSVIEW); break; 803 case KW_blocksview: GET_FLAG (this, FLAG_BLOCKSVIEW); break;
804 case KW_is_transparent_floor: GET_FLAG (this, FLAG_IS_TRANSPARENT_FLOOR); break;
798 case KW_undead: GET_FLAG (this, FLAG_UNDEAD); break; 805 case KW_undead: GET_FLAG (this, FLAG_UNDEAD); break;
799 case KW_scared: GET_FLAG (this, FLAG_SCARED); break; 806 case KW_scared: GET_FLAG (this, FLAG_SCARED); break;
800 case KW_unaggressive: GET_FLAG (this, FLAG_UNAGGRESSIVE); break; 807 case KW_unaggressive: GET_FLAG (this, FLAG_UNAGGRESSIVE); break;
801 case KW_reflect_missile: GET_FLAG (this, FLAG_REFL_MISSILE); break; 808 case KW_reflect_missile: GET_FLAG (this, FLAG_REFL_MISSILE); break;
802 case KW_reflect_spell: GET_FLAG (this, FLAG_REFL_SPELL); break; 809 case KW_reflect_spell: GET_FLAG (this, FLAG_REFL_SPELL); break;
1020 { 1027 {
1021 op->destroy (); 1028 op->destroy ();
1022 return 0; 1029 return 0;
1023 } 1030 }
1024 1031
1025 // the loader reverses the ordering of kv-pairs, so we reverse it again after loading 1032 // The loader reverses the ordering of kv-pairs, so we reverse it again after loading.
1026 // that greatly simplifies the loading code. 1033 // This greatly simplifies the loading code.
1027 op->kv.reverse (); 1034 op->kv.reverse ();
1028 1035
1029 op->post_load_check (); 1036 op->post_load_check ();
1030 return op; 1037 return op;
1031} 1038}
1067 KW_NULL, 1074 KW_NULL,
1068 KW_applied, 1075 KW_applied,
1069 KW_unpaid, 1076 KW_unpaid,
1070 KW_can_use_shield, 1077 KW_can_use_shield,
1071 KW_no_pick, 1078 KW_no_pick,
1072 KW_NULL, // walk_on 1079 KW_is_transparent_floor,
1073 /* 10 */ 1080 /* 10 */
1074 KW_NULL, // no_pass 1081 KW_NULL, // no_pass
1075 KW_is_animated, 1082 KW_is_animated,
1076 KW_NULL, // slow_move 1083 KW_NULL, // slow_move
1077 KW_NULL, // flying 1084 KW_NULL, // flying
1217 *ptr++ = '\n'; 1224 *ptr++ = '\n';
1218 1225
1219 f.alloc (ptr - cur); 1226 f.alloc (ptr - cur);
1220 } 1227 }
1221 1228
1222#define CMP_OUT(v) if (expect_false (op->v != arch->v)) f.put (KW (v), op->v) 1229#define CMP_OUT(v) if (ecb_expect_false (op->v != arch->v)) f.put (KW (v), op->v)
1223#define CMP_OUT2(k,v) if (expect_false (op->v != arch->v)) f.put (KW (k), op->v) 1230#define CMP_OUT2(k,v) if (ecb_expect_false (op->v != arch->v)) f.put (KW (k), op->v)
1224 1231
1225 CMP_OUT (x); 1232 CMP_OUT (x);
1226 CMP_OUT (y); 1233 CMP_OUT (y);
1227 1234
1228 CMP_OUT (type); 1235 CMP_OUT (type);
1242 static int last_speed_left_len = sizeof ("sl 0\n") - 1; 1249 static int last_speed_left_len = sizeof ("sl 0\n") - 1;
1243 1250
1244 if (last_speed_left != op->speed_left) 1251 if (last_speed_left != op->speed_left)
1245 { 1252 {
1246 last_speed_left = op->speed_left; 1253 last_speed_left = op->speed_left;
1254 // .7g loses precision even for float, but gives nice round numbers and smaller files
1255 // maybe hex format or a raw binary dump of the float is good enough, more exact, and much faster?
1256 // (printf is typically very slow)
1247 last_speed_left_len = sizeof ("sl ") - 1 1257 last_speed_left_len = sizeof ("sl ") - 1
1248 + sprintf (last_speed_left_str + sizeof ("sl ") - 1, "%.7g\n", last_speed_left); 1258 + sprintf (last_speed_left_str + sizeof ("sl ") - 1, "%.7g\n", last_speed_left);
1249 } 1259 }
1250 1260
1251 f.add (last_speed_left_str, last_speed_left_len); 1261 f.add (last_speed_left_str, last_speed_left_len);
1314 CMP_OUT (level); 1324 CMP_OUT (level);
1315 CMP_OUT (attacktype); 1325 CMP_OUT (attacktype);
1316 1326
1317 // using memcmp here seems to be a loss - is gcc vectorising? 1327 // using memcmp here seems to be a loss - is gcc vectorising?
1318 for (int i = 0; i < NROFATTACKS; i++) 1328 for (int i = 0; i < NROFATTACKS; i++)
1319 if (expect_false (op->resist[i] != arch->resist[i])) 1329 if (ecb_expect_false (op->resist[i] != arch->resist[i]))
1320 f.put (resist_save[i], op->resist[i]); 1330 f.put (resist_save[i], op->resist[i]);
1321 1331
1322 CMP_OUT (path_attuned); 1332 CMP_OUT (path_attuned);
1323 CMP_OUT (path_repelled); 1333 CMP_OUT (path_repelled);
1324 CMP_OUT (path_denied); 1334 CMP_OUT (path_denied);
1338 CMP_OUT (last_grace); 1348 CMP_OUT (last_grace);
1339 CMP_OUT (last_eat); 1349 CMP_OUT (last_eat);
1340 CMP_OUT (glow_radius); 1350 CMP_OUT (glow_radius);
1341 1351
1342 if (op->flag [FLAG_IS_LINKED]) 1352 if (op->flag [FLAG_IS_LINKED])
1343 if (auto (ol, op->find_link ())) 1353 if (auto ol = op->find_link ())
1344 f.put (KW(connected), ol->id); 1354 f.put (KW(connected), ol->id);
1345 1355
1346 CMP_OUT (randomitems); 1356 CMP_OUT (randomitems);
1347 1357
1348 CMP_OUT2 (container, weight_limit); 1358 CMP_OUT2 (container, weight_limit);
1376 f.put (flag_names [FLAG_OBJ_ORIGINAL], op->flag [FLAG_OBJ_ORIGINAL] ? CS(1) : CS(0)); 1386 f.put (flag_names [FLAG_OBJ_ORIGINAL], op->flag [FLAG_OBJ_ORIGINAL] ? CS(1) : CS(0));
1377 1387
1378 diff.reset (FLAG_OBJ_ORIGINAL); 1388 diff.reset (FLAG_OBJ_ORIGINAL);
1379 1389
1380 // quickly test whether any other flags differ 1390 // quickly test whether any other flags differ
1381 if (expect_true (diff.any ())) 1391 if (ecb_expect_true (diff.any ()))
1382 for (int i = 0; i < NUM_FLAGS; i++) 1392 for (int i = 0; i < NUM_FLAGS; i++)
1383 if (expect_false (diff [i])) 1393 if (ecb_expect_false (diff [i]))
1384 f.put (flag_names [i], op->flag [i] ? CS(1) : CS(0)); 1394 f.put (flag_names [i], op->flag [i] ? CS(1) : CS(0));
1385#else 1395#else
1386 // use sgi extensions 1396 // use sgi extensions
1387 for (int i = diff._Find_first (); i < diff.size (); i = diff._Find_next (i)) 1397 for (int i = diff._Find_first (); i < diff.size (); i = diff._Find_next (i))
1388 f.put (flag_names [i], op->flag [i] ? CS(1) : CS(0)); 1398 f.put (flag_names [i], op->flag [i] ? CS(1) : CS(0));
1389#endif 1399#endif
1390 1400
1391 // save body locations. gcc's memcmp does an abysmal job when used 1401 // save body locations. gcc's memcmp does an abysmal job when used
1392 for (int i = 0; i < NUM_BODY_LOCATIONS; i++) 1402 for (int i = 0; i < NUM_BODY_LOCATIONS; ++i)
1393 if (expect_false (op->slot[i].info != arch->slot[i].info)) 1403 if (ecb_expect_false (op->slot[i].info != arch->slot[i].info))
1394 f.put (body_locations[i].kw, op->slot[i].info); 1404 f.put (body_locations[i].kw, op->slot[i].info);
1395} 1405}
1396 1406
1397/* 1407/*
1398 * Dumps all variables in an object to a file. 1408 * Dumps all variables in an object to a file.
1400 * the only place this is not set is when saving the player. 1410 * the only place this is not set is when saving the player.
1401 */ 1411 */
1402bool 1412bool
1403object::write (object_freezer &f) 1413object::write (object_freezer &f)
1404{ 1414{
1405 if (expect_false (is_arch ())) 1415 if (ecb_expect_false (is_arch ()))
1406 { 1416 {
1407 f.put (KW(object), arch->archname); 1417 f.put (KW(object), arch->archname);
1408 write_diff (f, this, archetype::empty); 1418 write_diff (f, this, archetype::empty);
1409 } 1419 }
1410 else 1420 else

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines