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.138 by root, Sat Apr 21 16:56:29 2007 UTC vs.
Revision 1.156 by root, Fri May 18 01:01:01 2007 UTC

1/* 1/*
2 * CrossFire, A Multiplayer game for X-windows 2 * CrossFire, A Multiplayer game
3 * 3 *
4 * Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team 4 * Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team
5 * Copyright (C) 2001 Mark Wedel & Crossfire Development Team 5 * Copyright (C) 2001 Mark Wedel & Crossfire Development Team
6 * Copyright (C) 1992 Frank Tore Johansen 6 * Copyright (C) 1992 Frank Tore Johansen
7 * 7 *
29#include <stdio.h> 29#include <stdio.h>
30#include <sys/types.h> 30#include <sys/types.h>
31#include <sys/uio.h> 31#include <sys/uio.h>
32#include <object.h> 32#include <object.h>
33#include <funcpoint.h> 33#include <funcpoint.h>
34#include <sproto.h>
34#include <loader.h> 35#include <loader.h>
35 36
36#include <bitset> 37#include <bitset>
37 38
38int nrofallocobjects = 0; 39int nrofallocobjects = 0;
324sum_weight (object *op) 325sum_weight (object *op)
325{ 326{
326 long sum; 327 long sum;
327 object *inv; 328 object *inv;
328 329
329 for (sum = 0, inv = op->inv; inv != NULL; inv = inv->below) 330 for (sum = 0, inv = op->inv; inv; inv = inv->below)
330 { 331 {
331 if (inv->inv) 332 if (inv->inv)
332 sum_weight (inv); 333 sum_weight (inv);
334
333 sum += inv->carrying + inv->weight * (inv->nrof ? inv->nrof : 1); 335 sum += inv->carrying + inv->weight * (inv->nrof ? inv->nrof : 1);
334 } 336 }
335 337
336 if (op->type == CONTAINER && op->stats.Str) 338 if (op->type == CONTAINER && op->stats.Str)
337 sum = (sum * (100 - op->stats.Str)) / 100; 339 sum = (sum * (100 - op->stats.Str)) / 100;
446 */ 448 */
447 while (owner->owner) 449 while (owner->owner)
448 owner = owner->owner; 450 owner = owner->owner;
449 451
450 this->owner = owner; 452 this->owner = owner;
453}
454
455int
456object::slottype () const
457{
458 if (type == SKILL)
459 {
460 if (IS_COMBAT_SKILL (subtype)) return slot_combat;
461 if (IS_RANGED_SKILL (subtype)) return slot_ranged;
462 }
463 else
464 {
465 if (slot [body_combat].info) return slot_combat;
466 if (slot [body_range ].info) return slot_ranged;
467 }
468
469 return slot_none;
470}
471
472bool
473object::change_weapon (object *ob)
474{
475 if (current_weapon == ob)
476 return true;
477
478 if (chosen_skill)
479 chosen_skill->flag [FLAG_APPLIED] = false;
480
481 current_weapon = ob;
482 chosen_skill = !ob || ob->type == SKILL ? ob : find_skill_by_name (this, ob->skill);
483
484 if (chosen_skill)
485 chosen_skill->flag [FLAG_APPLIED] = true;
486
487 update_stats ();
488
489 if (ob)
490 {
491 // now check wether any body locations became invalid, in which case
492 // we cannot apply the weapon at the moment.
493 for (int i = 0; i < NUM_BODY_LOCATIONS; ++i)
494 if (slot[i].used < 0)
495 {
496 current_weapon = chosen_skill = 0;
497 update_stats ();
498
499 new_draw_info_format (NDI_UNIQUE, 0, this,
500 "You try to balance all your items at once, "
501 "but the %s is just too much for your body. "
502 "[You need to unapply some items first.]", &ob->name);
503 return false;
504 }
505
506 //new_draw_info_format (NDI_UNIQUE, 0, this, "You switch to your %s.", &ob->name);
507 }
508 else
509 ;//new_draw_info_format (NDI_UNIQUE, 0, this, "You unwield your weapons.");
510
511 if (ob && !ob->flag [FLAG_APPLIED] && ob->type != SPELL)
512 {
513 LOG (llevError | logBacktrace, "%s changed to unapplied weapon %s",
514 &name, ob->debug_desc ());
515 return false;
516 }
517
518 return true;
451} 519}
452 520
453/* Zero the key_values on op, decrementing the shared-string 521/* Zero the key_values on op, decrementing the shared-string
454 * refcounts and freeing the links. 522 * refcounts and freeing the links.
455 */ 523 */
537 * need for monsters, but doesn't hurt to do it for everything. 605 * need for monsters, but doesn't hurt to do it for everything.
538 * by doing so, when a monster is created, it has good starting 606 * by doing so, when a monster is created, it has good starting
539 * values for the body_used info, so when items are created 607 * values for the body_used info, so when items are created
540 * for it, they can be properly equipped. 608 * for it, they can be properly equipped.
541 */ 609 */
542 memcpy (body_used, body_info, sizeof (body_used)); 610 for (int i = NUM_BODY_LOCATIONS; i--; )
611 slot[i].used = slot[i].info;
543 612
544 attachable::instantiate (); 613 attachable::instantiate ();
545} 614}
546 615
547object * 616object *
835 904
836 if (flag [FLAG_IS_LINKED]) 905 if (flag [FLAG_IS_LINKED])
837 remove_button_link (this); 906 remove_button_link (this);
838 907
839 if (flag [FLAG_FRIENDLY]) 908 if (flag [FLAG_FRIENDLY])
840 {
841 remove_friendly_object (this); 909 remove_friendly_object (this);
842
843 if (type == GOLEM
844 && owner
845 && owner->type == PLAYER
846 && owner->contr->ranges[range_golem] == this)
847 owner->contr->ranges[range_golem] = 0;
848 }
849 910
850 if (!flag [FLAG_REMOVED]) 911 if (!flag [FLAG_REMOVED])
851 remove (); 912 remove ();
852 913
853 destroy_inv (true); 914 destroy_inv (true);
1176object * 1237object *
1177insert_ob_in_map (object *op, maptile *m, object *originator, int flag) 1238insert_ob_in_map (object *op, maptile *m, object *originator, int flag)
1178{ 1239{
1179 assert (!op->flag [FLAG_FREED]); 1240 assert (!op->flag [FLAG_FREED]);
1180 1241
1181 object *tmp, *top, *floor = NULL; 1242 object *top, *floor = NULL;
1182 1243
1183 op->remove (); 1244 op->remove ();
1184 1245
1246#if 0
1185 if (!m->active != !op->active) 1247 if (!m->active != !op->active)
1186 if (m->active) 1248 if (m->active)
1187 op->activate_recursive (); 1249 op->activate_recursive ();
1188 else 1250 else
1189 op->deactivate_recursive (); 1251 op->deactivate_recursive ();
1252#endif
1190 1253
1191 if (out_of_map (m, op->x, op->y)) 1254 if (out_of_map (m, op->x, op->y))
1192 { 1255 {
1193 LOG (llevError, "Trying to insert object outside the map.\n%s\n", op->debug_desc ()); 1256 LOG (llevError, "Trying to insert object outside the map.\n%s\n", op->debug_desc ());
1194#ifdef MANY_CORES 1257#ifdef MANY_CORES
1200#endif 1263#endif
1201 return op; 1264 return op;
1202 } 1265 }
1203 1266
1204 if (object *more = op->more) 1267 if (object *more = op->more)
1205 {
1206 if (!insert_ob_in_map (more, m, originator, flag)) 1268 if (!insert_ob_in_map (more, m, originator, flag))
1207 {
1208 if (!op->head)
1209 LOG (llevError, "BUG: insert_ob_in_map(): inserting op->more killed op\n");
1210
1211 return 0; 1269 return 0;
1212 }
1213 }
1214 1270
1215 CLEAR_FLAG (op, FLAG_REMOVED); 1271 CLEAR_FLAG (op, FLAG_REMOVED);
1216 1272
1217 /* Ideally, the caller figures this out. However, it complicates a lot 1273 /* Ideally, the caller figures this out. However, it complicates a lot
1218 * of areas of callers (eg, anything that uses find_free_spot would now 1274 * of areas of callers (eg, anything that uses find_free_spot would now
1225 mapspace &ms = op->ms (); 1281 mapspace &ms = op->ms ();
1226 1282
1227 /* this has to be done after we translate the coordinates. 1283 /* this has to be done after we translate the coordinates.
1228 */ 1284 */
1229 if (op->nrof && !(flag & INS_NO_MERGE)) 1285 if (op->nrof && !(flag & INS_NO_MERGE))
1230 for (tmp = ms.bot; tmp; tmp = tmp->above) 1286 for (object *tmp = ms.bot; tmp; tmp = tmp->above)
1231 if (object::can_merge (op, tmp)) 1287 if (object::can_merge (op, tmp))
1232 { 1288 {
1233 op->nrof += tmp->nrof; 1289 op->nrof += tmp->nrof;
1234 tmp->destroy (); 1290 tmp->destroy ();
1235 } 1291 }
1404 * blocked() and wall() work properly), and these flags are updated by 1460 * blocked() and wall() work properly), and these flags are updated by
1405 * update_object(). 1461 * update_object().
1406 */ 1462 */
1407 1463
1408 /* if this is not the head or flag has been passed, don't check walk on status */ 1464 /* if this is not the head or flag has been passed, don't check walk on status */
1409 if (!(flag & INS_NO_WALK_ON) && !op->head) 1465 if (!(flag & INS_NO_WALK_ON) && op->head_ () == op)
1410 { 1466 {
1411 if (check_move_on (op, originator)) 1467 if (check_move_on (op, originator))
1412 return 0; 1468 return 0;
1413 1469
1414 /* If we are a multi part object, lets work our way through the check 1470 /* If we are a multi part object, lets work our way through the check
1415 * walk on's. 1471 * walk on's.
1416 */ 1472 */
1417 for (tmp = op->more; tmp != NULL; tmp = tmp->more) 1473 for (object *tmp = op->more; tmp; tmp = tmp->more)
1418 if (check_move_on (tmp, originator)) 1474 if (check_move_on (tmp, originator))
1419 return 0; 1475 return 0;
1420 } 1476 }
1421 1477
1422 return op; 1478 return op;
1603 LOG (llevError, "Trying to put object in NULL.\n%s\n", dump); 1659 LOG (llevError, "Trying to put object in NULL.\n%s\n", dump);
1604 free (dump); 1660 free (dump);
1605 return op; 1661 return op;
1606 } 1662 }
1607 1663
1608 if (where->head) 1664 if (where->head_ () != where)
1609 { 1665 {
1610 LOG (llevDebug, "Warning: Tried to insert object into wrong part of multipart object.\n"); 1666 LOG (llevError | logBacktrace, "Warning: Tried to insert object into wrong part of multipart object.\n");
1611 where = where->head; 1667 where = where->head;
1612 } 1668 }
1613 1669
1614 return where->insert (op); 1670 return where->insert (op);
1615} 1671}
1943 for (object *tmp = op->inv; tmp != NULL; tmp = tmp->below) 1999 for (object *tmp = op->inv; tmp != NULL; tmp = tmp->below)
1944 { 2000 {
1945 CLEAR_FLAG (tmp, flag); 2001 CLEAR_FLAG (tmp, flag);
1946 unflag_inv (tmp, flag); 2002 unflag_inv (tmp, flag);
1947 } 2003 }
1948}
1949
1950/*
1951 * set_cheat(object) sets the cheat flag (WAS_WIZ) in the object and in
1952 * all it's inventory (recursively).
1953 * If checksums are used, a player will get set_cheat called for
1954 * him/her-self and all object carried by a call to this function.
1955 */
1956void
1957set_cheat (object *op)
1958{
1959 SET_FLAG (op, FLAG_WAS_WIZ);
1960 flag_inv (op, FLAG_WAS_WIZ);
1961} 2004}
1962 2005
1963/* 2006/*
1964 * find_free_spot(object, map, x, y, start, stop) will search for 2007 * find_free_spot(object, map, x, y, start, stop) will search for
1965 * a spot at the given map and coordinates which will be able to contain 2008 * a spot at the given map and coordinates which will be able to contain
2083 object *tmp; 2126 object *tmp;
2084 maptile *mp; 2127 maptile *mp;
2085 2128
2086 MoveType blocked, move_type; 2129 MoveType blocked, move_type;
2087 2130
2088 if (exclude && exclude->head) 2131 if (exclude && exclude->head_ () != exclude)
2089 { 2132 {
2090 exclude = exclude->head; 2133 exclude = exclude->head;
2091 move_type = exclude->move_type; 2134 move_type = exclude->move_type;
2092 } 2135 }
2093 else 2136 else
2116 max = maxfree[i]; 2159 max = maxfree[i];
2117 else if (mflags & P_IS_ALIVE) 2160 else if (mflags & P_IS_ALIVE)
2118 { 2161 {
2119 for (tmp = ms.bot; tmp; tmp = tmp->above) 2162 for (tmp = ms.bot; tmp; tmp = tmp->above)
2120 if ((tmp->flag [FLAG_MONSTER] || tmp->type == PLAYER) 2163 if ((tmp->flag [FLAG_MONSTER] || tmp->type == PLAYER)
2121 && (tmp != exclude || (tmp->head && tmp->head != exclude))) 2164 && (tmp != exclude || (tmp->head_ () != tmp && tmp->head_ () != exclude)))
2122 break; 2165 break;
2123 2166
2124 if (tmp) 2167 if (tmp)
2125 return freedir[i]; 2168 return freedir[i];
2126 } 2169 }
2321 * create clone from object to another 2364 * create clone from object to another
2322 */ 2365 */
2323object * 2366object *
2324object_create_clone (object *asrc) 2367object_create_clone (object *asrc)
2325{ 2368{
2326 object *dst = 0, *tmp, *src, *part, *prev, *item; 2369 object *dst = 0, *tmp, *src, *prev, *item;
2327 2370
2328 if (!asrc) 2371 if (!asrc)
2329 return 0; 2372 return 0;
2330 2373
2331 src = asrc;
2332 if (src->head)
2333 src = src->head; 2374 src = asrc->head_ ();
2334 2375
2335 prev = 0; 2376 prev = 0;
2336 for (part = src; part; part = part->more) 2377 for (object *part = src; part; part = part->more)
2337 { 2378 {
2338 tmp = part->clone (); 2379 tmp = part->clone ();
2339 tmp->x -= src->x; 2380 tmp->x -= src->x;
2340 tmp->y -= src->y; 2381 tmp->y -= src->y;
2341 2382
2589} 2630}
2590 2631
2591const char * 2632const char *
2592object::debug_desc () const 2633object::debug_desc () const
2593{ 2634{
2594 static char info[256 * 4]; 2635 static char info[3][256 * 4];
2636 static int info_idx;
2637
2595 return debug_desc (info); 2638 return debug_desc (info [++info_idx % 3]);
2596}
2597
2598const char *
2599object::debug_desc2 () const
2600{
2601 static char info[256 * 4];
2602 return debug_desc (info);
2603} 2639}
2604 2640
2605struct region * 2641struct region *
2606object::region () const 2642object::region () const
2607{ 2643{

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines