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

Comparing deliantra/server/common/object.C (file contents):
Revision 1.300 by root, Mon Nov 9 03:08:23 2009 UTC vs.
Revision 1.313 by root, Fri Mar 26 00:05:45 2010 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 Marc Alexander Lehmann / Robin Redeker / the Deliantra team 4 * Copyright (©) 2005,2006,2007,2008,2009,2010 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5 * Copyright (©) 2001,2007 Mark Wedel & Crossfire Development Team 5 * Copyright (©) 2001,2007 Mark Wedel & Crossfire Development Team
6 * Copyright (©) 1992,2007 Frank Tore Johansen 6 * Copyright (©) 1992,2007 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
26#include <stdio.h> 26#include <stdio.h>
27#include <sys/types.h> 27#include <sys/types.h>
28#include <sys/uio.h> 28#include <sys/uio.h>
29#include <object.h> 29#include <object.h>
30#include <sproto.h> 30#include <sproto.h>
31#include <loader.h>
32 31
33#include <bitset> 32#include <bitset>
34 33
35UUID UUID::cur; 34UUID UUID::cur;
36static uint64_t seq_next_save; 35static uint64_t seq_next_save;
77 CALL_CALL ("cf::write_uuid", G_DISCARD); 76 CALL_CALL ("cf::write_uuid", G_DISCARD);
78 CALL_END; 77 CALL_END;
79} 78}
80 79
81static void 80static void
82read_uuid (void) 81read_uuid ()
83{ 82{
84 char filename[MAX_BUF]; 83 char filename[MAX_BUF];
85 84
86 sprintf (filename, "%s/uuid", settings.localdir); 85 sprintf (filename, "%s/uuid", settings.localdir);
87 86
248 * Improvements made with merge: Better checking on potion, and also 247 * Improvements made with merge: Better checking on potion, and also
249 * check weight 248 * check weight
250 */ 249 */
251bool object::can_merge_slow (object *ob1, object *ob2) 250bool object::can_merge_slow (object *ob1, object *ob2)
252{ 251{
253 /* A couple quicksanity checks */ 252 /* A couple quick sanity checks */
254 if (ob1 == ob2 253 if (ob1 == ob2
255 || ob1->type != ob2->type 254 || ob1->type != ob2->type
256 || fabs (ob1->speed - ob2->speed) >= MIN_ACTIVE_SPEED
257 || ob1->value != ob2->value 255 || ob1->value != ob2->value
258 || ob1->name != ob2->name) 256 || ob1->name != ob2->name
257 || fabs (ob1->speed - ob2->speed) >= MIN_ACTIVE_SPEED)
259 return 0; 258 return 0;
260 259
261 /* Do not merge objects if nrof would overflow, assume nrof 260 /* Do not merge objects if nrof would overflow, assume nrof
262 * is always 0 .. 2**31-1 */ 261 * is always 0 .. 2**31-1 */
263 if (ob1->nrof > 0x7fffffff - ob2->nrof) 262 if (ob1->nrof > 0x7fffffff - ob2->nrof)
284 || ob1->magic != ob2->magic 283 || ob1->magic != ob2->magic
285 || ob1->slaying != ob2->slaying 284 || ob1->slaying != ob2->slaying
286 || ob1->skill != ob2->skill 285 || ob1->skill != ob2->skill
287 || ob1->value != ob2->value 286 || ob1->value != ob2->value
288 || ob1->animation_id != ob2->animation_id 287 || ob1->animation_id != ob2->animation_id
289 || (ob1->face != ob2->face && !ob1->animation_id) // face and animation are dependent on each other 288 || (ob1->face != ob2->face && !ob1->animation_id) // face and animation are dependend on each other
290 || ob1->client_type != ob2->client_type 289 || ob1->client_type != ob2->client_type
291 || ob1->materialname != ob2->materialname 290 || ob1->material != ob2->material
292 || ob1->lore != ob2->lore 291 || ob1->lore != ob2->lore
293 || ob1->subtype != ob2->subtype 292 || ob1->subtype != ob2->subtype
294 || ob1->move_type != ob2->move_type 293 || ob1->move_type != ob2->move_type
295 || ob1->move_block != ob2->move_block 294 || ob1->move_block != ob2->move_block
296 || ob1->move_allow != ob2->move_allow 295 || ob1->move_allow != ob2->move_allow
521 520
522 return 0; 521 return 0;
523} 522}
524 523
525/* 524/*
525 * Returns the object which has the uuid equal to the argument.
526 * MOAR VERRRY slow.
527 */
528
529object *
530find_object_uuid (UUID i)
531{
532 for_all_objects (op)
533 if (op->uuid == i)
534 return op;
535
536 return 0;
537}
538
539/*
526 * Returns the first object which has a name equal to the argument. 540 * Returns the first object which has a name equal to the argument.
527 * Used only by the patch command, but not all that useful. 541 * Used only by the patch command, but not all that useful.
528 * Enables features like "patch <name-of-other-player> food 999" 542 * Enables features like "patch <name-of-other-player> food 999"
529 */ 543 */
530object * 544object *
687 tail = new_link; 701 tail = new_link;
688 } 702 }
689 } 703 }
690 } 704 }
691 705
692 if (speed < 0)
693 dst->speed_left -= rndm ();
694
695 dst->activate (); 706 dst->activate ();
696} 707}
697 708
698void 709void
699object::instantiate () 710object::instantiate ()
700{ 711{
701 if (!uuid.seq) // HACK 712 if (!uuid.seq) // HACK
702 uuid = UUID::gen (); 713 uuid = UUID::gen ();
703 714
715 // TODO: unclean state changes, should nt be done in copy_to AND instantiate
716 if (flag [FLAG_RANDOM_SPEED] && speed)
717 speed_left = - speed - rndm (); // TODO animation
718 else
704 speed_left = -0.1f; 719 speed_left = -1.;
720
705 /* copy the body_info to the body_used - this is only really 721 /* copy the body_info to the body_used - this is only really
706 * need for monsters, but doesn't hurt to do it for everything. 722 * need for monsters, but doesn't hurt to do it for everything.
707 * by doing so, when a monster is created, it has good starting 723 * by doing so, when a monster is created, it has good starting
708 * values for the body_used info, so when items are created 724 * values for the body_used info, so when items are created
709 * for it, they can be properly equipped. 725 * for it, they can be properly equipped.
717object * 733object *
718object::clone () 734object::clone ()
719{ 735{
720 object *neu = create (); 736 object *neu = create ();
721 copy_to (neu); 737 copy_to (neu);
738
739 // TODO: unclean state changes, should not be done in clone AND instantiate
740 if (neu->flag [FLAG_RANDOM_SPEED] && neu->speed)
741 neu->speed_left = - neu->speed - rndm (); // TODO animation
742
722 neu->map = map; // not copied by copy_to 743 neu->map = map; // not copied by copy_to
723 return neu; 744 return neu;
724} 745}
725 746
726/* 747/*
844object::object () 865object::object ()
845{ 866{
846 SET_FLAG (this, FLAG_REMOVED); 867 SET_FLAG (this, FLAG_REMOVED);
847 868
848 //expmul = 1.0; declared const for the time being 869 //expmul = 1.0; declared const for the time being
849 face = blank_face; 870 face = blank_face;
871 material = MATERIAL_NULL;
850} 872}
851 873
852object::~object () 874object::~object ()
853{ 875{
854 unlink (); 876 unlink ();
1125 1147
1126 above = 0; 1148 above = 0;
1127 below = 0; 1149 below = 0;
1128 env = 0; 1150 env = 0;
1129 1151
1130 /* NO_FIX_PLAYER is set when a great many changes are being 1152 if (pl && pl->is_player ())
1131 * made to players inventory. If set, avoiding the call
1132 * to save cpu time.
1133 */
1134 if (pl)
1135 if (pl->is_player () && (glow_radius || !QUERY_FLAG (pl, FLAG_NO_FIX_PLAYER)))
1136 { 1153 {
1137 pl->update_stats (); 1154 pl->contr->queue_stats_update ();
1138 1155
1139 if (glow_radius && pl->is_on_map ()) 1156 if (glow_radius && pl->is_on_map ())
1140 update_all_los (pl->map, pl->x, pl->y); 1157 update_all_los (pl->map, pl->x, pl->y);
1141 } 1158 }
1142 } 1159 }
1143 else if (map) 1160 else if (map)
1144 { 1161 {
1145 map->dirty = true; 1162 map->dirty = true;
1146 mapspace &ms = this->ms (); 1163 mapspace &ms = this->ms ();
1266 1283
1267 object *prev = this; 1284 object *prev = this;
1268 1285
1269 for (archetype *at = (archetype *)arch->more; at; at = (archetype *)at->more) 1286 for (archetype *at = (archetype *)arch->more; at; at = (archetype *)at->more)
1270 { 1287 {
1271 object *op = arch_to_object (at); 1288 object *op = at->instance ();
1272 1289
1273 op->name = name; 1290 op->name = name;
1274 op->name_pl = name_pl; 1291 op->name_pl = name_pl;
1275 op->title = title; 1292 op->title = title;
1276 1293
1314 * Passing 0 for flag gives proper default values, so flag really only needs 1331 * Passing 0 for flag gives proper default values, so flag really only needs
1315 * to be set if special handling is needed. 1332 * to be set if special handling is needed.
1316 * 1333 *
1317 * Return value: 1334 * Return value:
1318 * new object if 'op' was merged with other object 1335 * new object if 'op' was merged with other object
1319 * NULL if 'op' was destroyed 1336 * NULL if there was an error (destroyed, blocked etc.)
1320 * just 'op' otherwise 1337 * just 'op' otherwise
1321 */ 1338 */
1322object * 1339object *
1323insert_ob_in_map (object *op, maptile *m, object *originator, int flag) 1340insert_ob_in_map (object *op, maptile *m, object *originator, int flag)
1324{ 1341{
1551 1568
1552 for (object *tmp = op->ms ().bot; tmp; tmp = tmp->above) 1569 for (object *tmp = op->ms ().bot; tmp; tmp = tmp->above)
1553 if (tmp->arch->archname == archname) /* same archetype */ 1570 if (tmp->arch->archname == archname) /* same archetype */
1554 tmp->destroy (); 1571 tmp->destroy ();
1555 1572
1556 object *tmp = arch_to_object (archetype::find (archname)); 1573 object *tmp = archetype::find (archname)->instance ();
1557 1574
1558 tmp->x = op->x; 1575 tmp->x = op->x;
1559 tmp->y = op->y; 1576 tmp->y = op->y;
1560 1577
1561 insert_ob_in_map (tmp, op->map, op, 0); 1578 insert_ob_in_map (tmp, op->map, op, 0);
1568 return where->env->insert (this); 1585 return where->env->insert (this);
1569 else 1586 else
1570 return where->map->insert (this, where->x, where->y, originator, flags); 1587 return where->map->insert (this, where->x, where->y, originator, flags);
1571} 1588}
1572 1589
1573// check whether we can put this into the map, respect max_nrof, max_volume, max_items 1590// check whether we can put this into the map, respect max_volume, max_items
1574bool 1591bool
1575object::can_drop_at (maptile *m, int x, int y, object *originator) 1592object::can_drop_at (maptile *m, int x, int y, object *originator)
1576{ 1593{
1577 mapspace &ms = m->at (x, y); 1594 mapspace &ms = m->at (x, y);
1578 1595
1579 int items = ms.items (); 1596 int items = ms.items ();
1580 1597
1581 if (!items // testing !items ensures we can drop at least one item 1598 if (!items // testing !items ensures we can drop at least one item
1582 || (items < m->max_items 1599 || (items < m->max_items
1583 && ms.volume () < m->max_volume 1600 && ms.volume () < m->max_volume))
1584 && nrof <= m->max_nrof))
1585 return true; 1601 return true;
1586 1602
1587 if (originator && originator->is_player ()) 1603 if (originator && originator->is_player ())
1588 originator->contr->failmsg (format ( 1604 originator->contr->failmsg (format (
1589 "No matter how hard you try, you just cannot put the %s here H<Try to remove some items from the floor first.>", 1605 "No matter how hard you try, you just cannot put the %s here H<Try to remove some items from the floor first.>",
1738 if (op->glow_radius && is_on_map ()) 1754 if (op->glow_radius && is_on_map ())
1739 { 1755 {
1740 update_stats (); 1756 update_stats ();
1741 update_all_los (map, x, y); 1757 update_all_los (map, x, y);
1742 } 1758 }
1743 else if (is_player () && !flag [FLAG_NO_FIX_PLAYER]) 1759 else if (is_player ())
1744 // if this is a player's inventory, update stats 1760 // if this is a player's inventory, update stats
1745 update_stats (); 1761 contr->queue_stats_update ();
1746 1762
1747 INVOKE_OBJECT (INSERT, this); 1763 INVOKE_OBJECT (INSERT, this);
1748 1764
1749 return op; 1765 return op;
1750} 1766}
2518{ 2534{
2519 return map ? map->region (x, y) 2535 return map ? map->region (x, y)
2520 : region::default_region (); 2536 : region::default_region ();
2521} 2537}
2522 2538
2523const materialtype_t *
2524object::dominant_material () const
2525{
2526 if (materialtype_t *mt = name_to_material (materialname))
2527 return mt;
2528
2529 return name_to_material (shstr_unknown);
2530}
2531
2532void 2539void
2533object::open_container (object *new_container) 2540object::open_container (object *new_container)
2534{ 2541{
2535 if (container == new_container) 2542 if (container == new_container)
2536 return; 2543 return;
2570 // TODO: this does not seem to serve any purpose anymore? 2577 // TODO: this does not seem to serve any purpose anymore?
2571#if 0 2578#if 0
2572 // insert the "Close Container" object. 2579 // insert the "Close Container" object.
2573 if (archetype *closer = new_container->other_arch) 2580 if (archetype *closer = new_container->other_arch)
2574 { 2581 {
2575 object *closer = arch_to_object (new_container->other_arch); 2582 object *closer = new_container->other_arch->instance ();
2576 closer->flag [FLAG_NO_MAP_SAVE] = 1; 2583 closer->flag [FLAG_NO_MAP_SAVE] = 1;
2577 new_container->insert (closer); 2584 new_container->insert (closer);
2578 } 2585 }
2579#endif 2586#endif
2580 2587
2686 2693
2687 insert (force); 2694 insert (force);
2688 } 2695 }
2689} 2696}
2690 2697
2698void object::change_move_type (MoveType mt)
2699{
2700 if (move_type == mt)
2701 return;
2702
2703 if (is_on_map ())
2704 {
2705 // we are on the map, so handle move_on/off effects
2706 remove ();
2707 move_type = mt;
2708 map->insert (this, x, y, this);
2709 }
2710 else
2711 move_type = mt;
2712}
2713

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines