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.159 by root, Thu May 6 22:57:48 2010 UTC vs.
Revision 1.169 by root, Sun May 1 16:58:15 2011 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 (©) 2005,2006,2007,2008,2009,2010 Marc Alexander Lehmann / Robin Redeker / the Deliantra team 4 * Copyright (©) 2005,2006,2007,2008,2009,2010,2011 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5 * Copyright (©) 2002 Mark Wedel & Crossfire Development Team 5 * Copyright (©) 2002 Mark Wedel & Crossfire Development Team
6 * Copyright (©) 1992 Frank Tore Johansen 6 * Copyright (©) 1992 Frank Tore Johansen
7 * 7 *
8 * Deliantra is free software: you can redistribute it and/or modify it under 8 * 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 9 * the terms of the Affero GNU General Public License as published by the
265 type = 0; 265 type = 0;
266 } 266 }
267 267
268 switch (type) 268 switch (type)
269 { 269 {
270 case RANGED:
270 case BOW: 271 case BOW:
271 case WAND: 272 case WAND:
272 case ROD: 273 case ROD:
273 case HORN: 274 case HORN:
274 if (slot [body_range].info != -1) 275 if (slot [body_range].info != -1)
413 // TODO: fix firewall object on map 414 // TODO: fix firewall object on map
414 /* Firewall is bizarre in that spell type was stored in dam. Rest are 'normal' 415 /* Firewall is bizarre in that spell type was stored in dam. Rest are 'normal'
415 * in that spell was stored in sp. 416 * in that spell was stored in sp.
416 */ 417 */
417 //LOG (llevError, "old spellcasting object found: %s", debug_desc ()); 418 //LOG (llevError, "old spellcasting object found: %s", debug_desc ());
418 object *tmp = get_archetype (spell_mapping[type == FIREWALL ? stats.dam : stats.sp]); 419 object *tmp = archetype::get (spell_mapping[type == FIREWALL ? stats.dam : stats.sp]);
419 insert_ob_in_ob (tmp, this); 420 insert_ob_in_ob (tmp, this);
420 randomitems = 0; 421 randomitems = 0;
421 } 422 }
422 423
423 /* spellbooks & runes use slaying. But not to arch name, but to spell name */ 424 /* spellbooks & runes use slaying. But not to arch name, but to spell name */
549 550
550bool 551bool
551object::parse_kv (object_thawer &f) 552object::parse_kv (object_thawer &f)
552{ 553{
553 object *op_inv = inv; 554 object *op_inv = inv;
554 key_value *last_kv = key_values; 555 key_value *last_kv = kv.first;
555 556
556 for (;;) 557 for (;;)
557 { 558 {
558 switch (f.kw) 559 switch (f.kw)
559 { 560 {
917 case KW_is_buildable: GET_FLAG (this, FLAG_IS_BUILDABLE); break; 918 case KW_is_buildable: GET_FLAG (this, FLAG_IS_BUILDABLE); break;
918 case KW_destroy_on_death: GET_FLAG (this, FLAG_DESTROY_ON_DEATH); break; 919 case KW_destroy_on_death: GET_FLAG (this, FLAG_DESTROY_ON_DEATH); break;
919 case KW_treasure_env: GET_FLAG (this, FLAG_TREASURE_ENV); break; 920 case KW_treasure_env: GET_FLAG (this, FLAG_TREASURE_ENV); break;
920 case KW_precious: GET_FLAG (this, FLAG_PRECIOUS); break; 921 case KW_precious: GET_FLAG (this, FLAG_PRECIOUS); break;
921 case KW_random_speed: GET_FLAG (this, FLAG_RANDOM_SPEED); break; 922 case KW_random_speed: GET_FLAG (this, FLAG_RANDOM_SPEED); break;
923 case KW_is_quad: GET_FLAG (this, FLAG_IS_QUAD); break;
922 924
923 case KW_armour: f.get (resist[ATNR_PHYSICAL]); break; 925 case KW_armour: f.get (resist[ATNR_PHYSICAL]); break;
924 case KW_resist_physical: f.get (resist[ATNR_PHYSICAL]); break; 926 case KW_resist_physical: f.get (resist[ATNR_PHYSICAL]); break;
925 case KW_resist_magic: f.get (resist[ATNR_MAGIC]); break; 927 case KW_resist_magic: f.get (resist[ATNR_MAGIC]); break;
926 case KW_resist_fire: f.get (resist[ATNR_FIRE]); break; 928 case KW_resist_fire: f.get (resist[ATNR_FIRE]); break;
1038 1040
1039 f.next (); 1041 f.next ();
1040 return true; 1042 return true;
1041 1043
1042 case KW_ERROR: 1044 case KW_ERROR:
1043 // append as key value pair (do not use kv_set as it prepends)
1044 // we also do not even try to find old values, duplicate keys stay duplicate 1045 // we do not even try to find old values, duplicate keys stay duplicate
1045 { 1046 // the list gets reversed after loading
1046 key_value *kv = new key_value; 1047 kv.add (shstr (f.kw_str), shstr (f.value));
1047
1048 kv->next = 0;
1049 kv->key = shstr (f.kw_str);
1050 kv->value = shstr (f.value);
1051
1052 if (!last_kv)
1053 key_values = last_kv = kv;
1054 else
1055 {
1056 while (last_kv->next)
1057 last_kv = last_kv->next;
1058
1059 last_kv->next = kv;
1060 last_kv = kv;
1061 }
1062 }
1063 //fprintf (stderr, "addkv(%s,%s)\n", f.kw_str, f.value);//D
1064 break; 1048 break;
1065 1049
1066 default: 1050 default:
1067 if (!f.parse_error ("object", name)) 1051 if (!f.parse_error ("object", name))
1068 return false; 1052 return false;
1080 1064
1081 archetype *arch = archetype::find (f.get_str ()); 1065 archetype *arch = archetype::find (f.get_str ());
1082 1066
1083 if (!arch) 1067 if (!arch)
1084 { 1068 {
1085 LOG (llevError, "object refering to nonexistant archetype '%s'.\n", f.get_str ()); 1069 LOG (llevError, "object referring to nonexistent archetype '%s'.\n", f.get_str ());
1086 arch = archetype::find (shstr_earthwall); 1070 arch = archetype::find (shstr_earthwall);
1087 } 1071 }
1088 1072
1089 assert (arch); //D maybe use exception handling of sorts? 1073 assert (arch); //D maybe use exception handling of sorts?
1090 1074
1098 if (!op->parse_kv (f)) 1082 if (!op->parse_kv (f))
1099 { 1083 {
1100 op->destroy (); 1084 op->destroy ();
1101 return 0; 1085 return 0;
1102 } 1086 }
1087
1088 // the loader reverses the ordering of kv-pairs, so we reverse it again after loading
1089 // that greatly simplifies the loading code.
1090 op->kv.reverse ();
1103 1091
1104 op->post_load_check (); 1092 op->post_load_check ();
1105 return op; 1093 return op;
1106} 1094}
1107 1095
1112 * override values and in c_wiz to mutate values. 1100 * override values and in c_wiz to mutate values.
1113 */ 1101 */
1114int 1102int
1115set_variable (object *op, char *buf) 1103set_variable (object *op, char *buf)
1116{ 1104{
1117 object_thawer f (buf, (AV *)0); 1105 object_thawer f (format ("%s\nend", buf), (AV *)0);
1118 1106
1119 return op->parse_kv (f); 1107 return op->parse_kv (f);
1120} 1108}
1121 1109
1122// compare *op against *arch and output differences 1110// compare *op against *arch and output differences
1274 } flagmask; 1262 } flagmask;
1275 1263
1276 /* This saves the key/value lists. We do it first so that any 1264 /* This saves the key/value lists. We do it first so that any
1277 * keys that match field names will be overwritten by the loader. 1265 * keys that match field names will be overwritten by the loader.
1278 */ 1266 */
1279 for (key_value *kv = op->key_values; kv; kv = kv->next) 1267 for (key_value *kv = op->kv.first; kv; kv = kv->next)
1280 if (!arch->key_values || arch->kv (kv->key) != kv->value) 1268 if (arch->kv.empty () || arch->kv [kv->key] != kv->value)
1281 f.put (kv->key, kv->value); 1269 f.put (kv->key, kv->value);
1282 1270
1283 if (op->uuid) 1271 if (op->uuid)
1284 { 1272 {
1285 // highly optimised - this is often 25% of all data written 1273 // highly optimised - this is often 25% of all data written
1464#endif 1452#endif
1465 1453
1466 // save body locations. gcc's memcmp does an abysmal job when used 1454 // save body locations. gcc's memcmp does an abysmal job when used
1467 for (int i = 0; i < NUM_BODY_LOCATIONS; i++) 1455 for (int i = 0; i < NUM_BODY_LOCATIONS; i++)
1468 if (expect_false (op->slot[i].info != arch->slot[i].info)) 1456 if (expect_false (op->slot[i].info != arch->slot[i].info))
1469 f.put (body_locations[i].save_name, op->slot[i].info); 1457 f.put (body_locations[i].kw, op->slot[i].info);
1470} 1458}
1471 1459
1472/* 1460/*
1473 * Dumps all variables in an object to a file. 1461 * Dumps all variables in an object to a file.
1474 * If bit 0 of flag is set, unpaid objects will be saved. As of now, 1462 * If bit 0 of flag is set, unpaid objects will be saved. As of now,
1506{ 1494{
1507 object_thawer f (filename); 1495 object_thawer f (filename);
1508 1496
1509 for (;;) 1497 for (;;)
1510 { 1498 {
1511 coroapi.cede_to_tick (); 1499 coroapi::cede_to_tick ();
1512 1500
1513 switch (f.kw) 1501 switch (f.kw)
1514 { 1502 {
1515 case KW_region: 1503 case KW_region:
1516 if (!region::read (f)) 1504 if (!region::read (f))

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines