ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/socket/item.C
Revision: 1.46
Committed: Sun Jun 3 17:05:36 2007 UTC (17 years ago) by root
Content type: text/plain
Branch: MAIN
Changes since 1.45: +25 -23 lines
Log Message:
- remove slow and unneeded cruft code from map1.
- decouple map display/stats update from ob (use pl->obsere instead)

File Contents

# User Rev Content
1 elmex 1.1 /*
2 root 1.45 * This file is part of Crossfire TRT, the Multiplayer Online Role Playing Game.
3     *
4     * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
5     * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
6     * Copyright (©) 1992,2007 Frank Tore Johansen
7     *
8     * Crossfire TRT is free software; you can redistribute it and/or modify it
9     * under the terms of the GNU General Public License as published by the Free
10     * Software Foundation; either version 2 of the License, or (at your option)
11     * any later version.
12     *
13     * This program is distributed in the hope that it will be useful, but
14     * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
15     * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
16     * for more details.
17     *
18     * You should have received a copy of the GNU General Public License along
19     * with Crossfire TRT; if not, write to the Free Software Foundation, Inc. 51
20     * Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
21     *
22     * The authors can be reached via e-mail to <crossfire@schmorp.de>
23 root 1.32 */
24 elmex 1.1
25     /**
26     * \file
27     * Client/server logic.
28     *
29     * \date 2003-12-02
30     *
31 root 1.32 * This contains item logic for client/server. It doesn't contain
32 elmex 1.1 * the actual commands that send the data, but does contain
33     * the logic for what items should be sent.
34     */
35    
36     #include <global.h>
37 root 1.32 #include <object.h>
38 elmex 1.1 #include <sproto.h>
39    
40     /** This is the maximum number of bytes we expect any one item to take up */
41     #define MAXITEMLEN 300
42    
43 root 1.28 #if 0
44     tag_t
45     client_container::tag () const
46     {
47     switch (type)
48     {
49     case CC_INVENTORY:
50     return ns->pl->count;
51     case CC_MAPSPACE:
52     return 0;
53     case CC_CONTAINER:
54     return env->count;
55     }
56    
57     abort ();
58     }
59    
60     void
61     client_container::clear ()
62     {
63     switch (type)
64     {
65     case CC_INVENTORY:
66     abort ();
67    
68     case CC_MAPSPACE:
69     case CC_CONTAINER:
70     ns->send_packet_printf ("delinv %d", tag ());
71     break;
72     }
73    
74     for (iterator i = begin (); i != end (); ++i)
75     i->op->seen_by = 0;
76    
77     vector< refitem, slice_allocator<refitem> >::clear ();
78     }
79    
80     inline iterator
81     client_container::merge_item (iterator i, object *op)
82     {
83     if (i != end () && i->op == op)
84     return ++i;
85    
86     if (op->seen_by)
87     return; // seen by another entity already
88    
89     op->seen_by = this;
90    
91     refitem ref;
92     ref.op = op;
93    
94     return insert (i, ref);
95     }
96    
97     void
98     client_container::update (int offset)
99     {
100     iterator i = begin ();
101    
102     switch (type)
103     {
104     case CC_INVENTORY:
105     case CC_CONTAINER:
106     {
107     object *env = type == CC_INVENTORY
108     ? ns->pl->ob
109     : this->env;
110    
111     // pass 1, erase all objects no longer in container
112     for (iterator j = begin (); j != end (); ++j)
113     if (j->op->env != env)
114     {
115     j->op->seen_by = 0;
116     erase (j);
117     }
118    
119     // pass 2 merge items
120     for (object *op = env->inv; op; op = op->below)
121     {
122     if (--offset < 0)
123     i = merge_item (i, op);
124     else if (offset < -FLOORBOX_PAGESIZE)
125     break;
126     }
127     }
128     break;
129    
130     case CC_MAPSPACE:
131     {
132     // pass 1, erase all objects no longer on space
133     for (iterator j = begin (); j != end (); ++j)
134     if (j->op->x != x || j->op->y != y || j->op->map != map)
135     {
136     j->op->seen_by = 0;
137     erase (j);
138     }
139    
140     // pass 2 merge items
141     for (object *op = GET_MAP_OB (map, x, y); op; op = op->above)
142     {
143     if (--offset < 0)
144     i = merge_item (i, op);
145     else if (offset < -FLOORBOX_PAGESIZE)
146     break;
147     }
148     }
149     break;
150     }
151    
152     // pass 3, erase all extra items
153     for (iterator j = i; j != end (); ++j)
154     j->op->seen_by = 0;
155    
156     if (i != end ())
157     erase (i, end ());
158     }
159    
160     void
161     client_container::set_mapspace (maptile *map, int x, int y)
162     {
163     if (type == CC_MAPSPACE
164     && this->map == map
165     && this->x == x
166     && this->y == y)
167     return;
168    
169     clear ();
170    
171     type = CC_MAPSPACE;
172     this->map = map;
173     this->x = x;
174     this->y = y;
175     }
176    
177     void
178     client_container::set_container (object *env)
179     {
180     }
181     #endif
182    
183 elmex 1.1 /*******************************************************************************
184     *
185     * Functions related to sending object data to the client.
186     *
187     ******************************************************************************/
188    
189     /**
190     * This is a similar to query_name, but returns flags
191 root 1.24 * to be sent to client.
192 elmex 1.1 */
193 root 1.5 unsigned int
194     query_flags (object *op)
195 elmex 1.1 {
196 root 1.5 unsigned int flags = 0;
197 elmex 1.1
198 root 1.5 if (QUERY_FLAG (op, FLAG_APPLIED))
199     {
200     switch (op->type)
201     {
202 root 1.24 case BOW:
203     case WAND:
204     case ROD:
205     case HORN:
206     flags = a_readied;
207     break;
208     case WEAPON:
209     flags = a_wielded;
210     break;
211     case SKILL:
212     case ARMOUR:
213     case HELMET:
214     case SHIELD:
215     case RING:
216     case BOOTS:
217     case GLOVES:
218     case AMULET:
219     case GIRDLE:
220     case BRACERS:
221     case CLOAK:
222     flags = a_worn;
223     break;
224     case CONTAINER:
225     flags = a_active;
226     break;
227     default:
228     flags = a_applied;
229     break;
230 root 1.5 }
231     }
232 root 1.24
233 root 1.5 if (op->type == CONTAINER && ((op->env && op->env->container == op) || (!op->env && QUERY_FLAG (op, FLAG_APPLIED))))
234     flags |= F_OPEN;
235    
236     if (QUERY_FLAG (op, FLAG_KNOWN_CURSED))
237     {
238     if (QUERY_FLAG (op, FLAG_DAMNED))
239     flags |= F_DAMNED;
240     else if (QUERY_FLAG (op, FLAG_CURSED))
241     flags |= F_CURSED;
242     }
243 root 1.24
244 root 1.5 if (QUERY_FLAG (op, FLAG_KNOWN_MAGICAL) && !QUERY_FLAG (op, FLAG_IDENTIFIED))
245     flags |= F_MAGIC;
246     if (QUERY_FLAG (op, FLAG_UNPAID))
247     flags |= F_UNPAID;
248     if (QUERY_FLAG (op, FLAG_INV_LOCKED))
249     flags |= F_LOCKED;
250 elmex 1.1
251 root 1.5 return flags;
252 elmex 1.1 }
253    
254 root 1.16 /* Used in the send_look to put object head into packet
255 elmex 1.1 * sl for socket ns. Need socket to know if we need to send
256     * animation of face to the client.
257     */
258 root 1.5 static void
259 root 1.23 add_object_to_socklist (client &ns, packet &sl, object *head)
260 elmex 1.1 {
261 root 1.5 int flags, len, anim_speed;
262     char item_n[MAX_BUF];
263     const char *item_p;
264    
265     flags = query_flags (head);
266     if (QUERY_FLAG (head, FLAG_NO_PICK))
267     flags |= F_NOPICK;
268    
269 root 1.42 ns.send_face (head->face);
270 root 1.43 ns.flush_fx ();
271 root 1.5
272 root 1.13 if (QUERY_FLAG (head, FLAG_ANIMATE) && !ns.anims_sent[head->animation_id])
273 root 1.42 ns.send_animation (head->animation_id);
274 root 1.5
275 root 1.13 sl << uint32 (head->count)
276     << uint32 (flags)
277     << uint32 (QUERY_FLAG (head, FLAG_NO_PICK) ? -1 : WEIGHT (head))
278 root 1.41 << uint32 (head->face);
279 root 1.5
280     if (!head->custom_name)
281     {
282     strncpy (item_n, query_base_name (head, 0), 127);
283     item_n[127] = 0;
284     len = strlen (item_n);
285     item_p = query_base_name (head, 1);
286     }
287     else
288     {
289     strncpy (item_n, head->custom_name, 127);
290     item_n[127] = 0;
291     len = strlen (item_n);
292     item_p = head->custom_name;
293     }
294 root 1.13
295 root 1.5 strncpy (item_n + len + 1, item_p, 127);
296     item_n[254] = 0;
297     len += strlen (item_n + 1 + len) + 1;
298    
299 root 1.13 sl << data8 (item_n, len)
300     << uint16 (head->animation_id);
301    
302 root 1.5 anim_speed = 0;
303     if (QUERY_FLAG (head, FLAG_ANIMATE))
304     {
305     if (head->anim_speed)
306     anim_speed = head->anim_speed;
307     else
308     {
309 root 1.35 if (fabs (head->speed) < 0.001)
310 root 1.5 anim_speed = 255;
311 root 1.35 else if (fabs (head->speed) >= 1.0)
312 root 1.5 anim_speed = 1;
313     else
314 root 1.35 anim_speed = (int) (1.0 / fabs (head->speed));
315 root 1.5 }
316 root 1.13
317 root 1.5 if (anim_speed > 255)
318     anim_speed = 255;
319 elmex 1.1 }
320    
321 root 1.13 sl << uint8 (anim_speed)
322     << uint32 (head->nrof);
323    
324     if (ns.itemcmd == 2)
325     sl << uint16 (head->client_type);
326 elmex 1.1
327 root 1.5 SET_FLAG (head, FLAG_CLIENT_SENT);
328 elmex 1.1 }
329    
330     /**
331 root 1.24 * Send the look window. Don't need to do animations here
332     * This sends all the faces to the client, not just updates. This is
333     * because object ordering would otherwise be inconsistent.
334 elmex 1.1 */
335 root 1.5 void
336 root 1.46 esrv_draw_look (player *pl)
337 elmex 1.1 {
338 root 1.5 int got_one = 0, start_look = 0, end_look = 0;
339    
340 root 1.46 object *ob = pl->ob;
341    
342     if (!pl->ns->update_look)
343 root 1.5 {
344 root 1.46 LOG (llevDebug, "esrv_draw_look called when update_look was not set (player %s)\n", &ob->name);
345 root 1.5 return;
346     }
347     else
348 root 1.46 pl->ns->update_look = 0;
349 root 1.5
350 root 1.46 if (QUERY_FLAG (ob, FLAG_REMOVED)
351     || !ob->map
352     || ob->map->in_memory != MAP_IN_MEMORY
353     || out_of_map (ob->map, ob->x, ob->y))
354 root 1.5 return;
355    
356 root 1.46 pl->ns->send_packet ("delinv 0");
357 root 1.5
358 root 1.27 packet sl;
359 root 1.46 sl.printf ("item%d ", pl->ns->itemcmd);
360 root 1.5
361 root 1.13 sl << uint32 (0);
362 root 1.5
363 root 1.46 pl->ns->send_face (empty_face);
364     pl->ns->flush_fx ();
365 root 1.5
366 root 1.46 if (pl->ns->look_position)
367 root 1.5 {
368 root 1.21 char buf[80];
369 root 1.26 snprintf (buf, 80, "Apply this to see %d previous items", FLOORBOX_PAGESIZE);
370 root 1.21
371 root 1.46 sl << uint32 (0x80000000 | (pl->ns->look_position - FLOORBOX_PAGESIZE))
372 root 1.13 << uint32 (0)
373     << sint32 (-1)
374 root 1.41 << uint32 (empty_face)
375 root 1.21 << data8 (buf)
376     << uint16 (0)
377 root 1.13 << uint8 (0)
378     << uint32 (0);
379    
380 root 1.46 if (pl->ns->itemcmd == 2)
381 root 1.13 sl << uint16 (0);
382 root 1.5 }
383    
384 root 1.46 object *tmp = ob->ms ().top;
385 root 1.32 for (object *last = 0; tmp != last; tmp = tmp->below)
386 root 1.5 {
387     object *head;
388    
389     if (QUERY_FLAG (tmp, FLAG_IS_FLOOR) && !last)
390     {
391     last = tmp->below; /* assumes double floor mode */
392     if (last && QUERY_FLAG (last, FLAG_IS_FLOOR))
393     last = last->below;
394     }
395 root 1.13
396 root 1.32 if (tmp->client_visible ())
397 root 1.5 {
398 root 1.46 if (++start_look < pl->ns->look_position)
399 root 1.5 continue;
400 root 1.13
401 root 1.5 end_look++;
402 root 1.13
403 root 1.26 if (end_look > FLOORBOX_PAGESIZE)
404 root 1.5 {
405     /* What we basically do is make a 'fake' object - when the user applies it,
406     * we notice the special tag the object has, and act accordingly.
407     */
408 root 1.46 sl << uint32 (0x80000000 | (pl->ns->look_position + FLOORBOX_PAGESIZE))
409 root 1.14 << uint32 (0)
410     << uint32 ((uint32) - 1)
411 root 1.41 << uint32 (empty_face)
412 root 1.21 << data8 ("Apply this to see next group of items")
413     << uint16 (0)
414 root 1.14 << uint8 (0)
415     << uint32 (0);
416    
417 root 1.46 if (pl->ns->itemcmd == 2)
418 root 1.14 sl << uint16 (0);
419    
420 root 1.5 break;
421 root 1.3 }
422 root 1.14
423 root 1.5 if (tmp->head)
424     head = tmp->head;
425     else
426     head = tmp;
427    
428 root 1.46 add_object_to_socklist (*pl->ns, sl, head);
429 root 1.5 got_one++;
430    
431 root 1.17 if (sl.length () >= (MAXSOCKBUF - MAXITEMLEN))
432 root 1.5 {
433 root 1.46 pl->ns->send_packet (sl);
434 root 1.14
435     sl.reset ();
436 root 1.46 sl.printf ("item%d ", pl->ns->itemcmd);
437 root 1.14 sl << uint32 (0);
438 root 1.5 got_one = 0;
439 root 1.3 }
440 root 1.24 }
441 elmex 1.1 }
442 root 1.13
443 root 1.5 if (got_one)
444 root 1.46 pl->ns->send_packet (sl);
445 elmex 1.1
446     }
447    
448     /**
449     * Sends whole inventory.
450     */
451 root 1.5 void
452     esrv_send_inventory (object *pl, object *op)
453 elmex 1.1 {
454 root 1.33 if (!pl->contr->ns)//D
455     return;
456    
457 root 1.5 int got_one = 0;
458    
459 root 1.29 pl->contr->ns->send_packet_printf ("delinv %d", op->count);
460 root 1.5
461 root 1.27 packet sl;
462 root 1.29 sl.printf ("item%d ", pl->contr->ns->itemcmd);
463 root 1.5
464 root 1.14 sl << uint32 (op->count);
465 root 1.5
466 root 1.32 for (object *tmp = op->inv; tmp; tmp = tmp->below)
467 root 1.5 {
468     object *head;
469    
470     if (tmp->head)
471     head = tmp->head;
472     else
473     head = tmp;
474    
475 root 1.32 if (head->client_visible ())
476 root 1.5 {
477 root 1.29 add_object_to_socklist (*pl->contr->ns, sl, head);
478 root 1.5
479     got_one++;
480    
481     /* IT is possible for players to accumulate a huge amount of
482     * items (especially with some of the bags out there) to
483     * overflow the buffer. IF so, send multiple item commands.
484     */
485 root 1.17 if (sl.length () >= (MAXSOCKBUF - MAXITEMLEN))
486 root 1.5 {
487 root 1.29 pl->contr->ns->send_packet (sl);
488 root 1.17
489     sl.reset ();
490 root 1.29 sl.printf ("item%d ", pl->contr->ns->itemcmd);
491 root 1.14 sl << uint32 (op->count);
492 root 1.5 got_one = 0;
493 root 1.3 }
494 root 1.32 }
495 elmex 1.1 }
496 root 1.14
497 root 1.5 if (got_one)
498 root 1.29 pl->contr->ns->send_packet (sl);
499 elmex 1.1 }
500    
501     /**
502     * Updates object *op for player *pl.
503     *
504     * flags is a list of values to update
505     * to the client (as defined in newclient.h - might as well use the
506     * same value both places.
507     */
508 root 1.5 void
509     esrv_update_item (int flags, object *pl, object *op)
510 elmex 1.1 {
511 root 1.5 /* If we have a request to send the player item, skip a few checks. */
512     if (op != pl)
513     {
514 root 1.32 if (!op->client_visible ())
515 root 1.5 return;
516     /* we remove the check for op->env, because in theory, the object
517     * is hopefully in the same place, so the client should preserve
518     * order.
519     */
520     }
521 root 1.11
522 root 1.31 client *ns = pl->contr->ns;
523     if (!ns)
524     return;
525    
526 root 1.5 if (!QUERY_FLAG (op, FLAG_CLIENT_SENT))
527     {
528     /* FLAG_CLIENT_SENT is debug only. We are using it to see where
529     * this is happening - we can set a breakpoint here in the debugger
530     * and track back the call.
531     */
532     LOG (llevDebug, "We have not sent item %s (%d)\n", &op->name, op->count);
533     }
534 root 1.11
535 root 1.27 packet sl ("upditem");
536 root 1.5
537 root 1.27 sl << uint8 (flags);
538 root 1.5
539     if (op->head)
540     op = op->head;
541    
542 root 1.14 sl << uint32 (op->count);
543 root 1.5
544     if (flags & UPD_LOCATION)
545 root 1.14 sl << uint32 (op->env ? op->env->count : 0);
546 root 1.5
547     if (flags & UPD_FLAGS)
548 root 1.14 sl << uint32 (query_flags (op));
549 root 1.5
550     if (flags & UPD_WEIGHT)
551     {
552     sint32 weight = WEIGHT (op);
553    
554 root 1.14 sl << uint32 (QUERY_FLAG (op, FLAG_NO_PICK) ? -1 : weight);
555    
556 root 1.5 if (pl == op)
557 root 1.31 ns->last_weight = weight;
558 root 1.5 }
559    
560     if (flags & UPD_FACE)
561     {
562 root 1.42 ns->send_face (op->face);
563 root 1.43 ns->flush_fx ();
564 root 1.41 sl << uint32 (op->face);
565 root 1.5 }
566 root 1.11
567 root 1.5 if (flags & UPD_NAME)
568     {
569     int len;
570     const char *item_p;
571     char item_n[MAX_BUF];
572    
573     if (!op->custom_name)
574     {
575     strncpy (item_n, query_base_name (op, 0), 127);
576     item_n[127] = 0;
577     len = strlen (item_n);
578     item_p = query_base_name (op, 1);
579     }
580     else
581     {
582     strncpy (item_n, op->custom_name, 127);
583     item_n[127] = 0;
584     len = strlen (item_n);
585     item_p = op->custom_name;
586     }
587    
588     strncpy (item_n + len + 1, item_p, 127);
589     item_n[254] = 0;
590     len += strlen (item_n + 1 + len) + 1;
591 root 1.14
592     sl << data8 (item_n, len);
593 root 1.5 }
594 root 1.11
595 root 1.5 if (flags & UPD_ANIM)
596 root 1.14 sl << uint16 (op->animation_id);
597 root 1.5
598     if (flags & UPD_ANIMSPEED)
599     {
600     int anim_speed = 0;
601    
602     if (QUERY_FLAG (op, FLAG_ANIMATE))
603     {
604     if (op->anim_speed)
605     anim_speed = op->anim_speed;
606     else
607     {
608 root 1.35 if (fabs (op->speed) < 0.001)
609 root 1.5 anim_speed = 255;
610 root 1.35 else if (fabs (op->speed) >= 1.0)
611 root 1.5 anim_speed = 1;
612     else
613 root 1.35 anim_speed = (int) (1.0 / fabs (op->speed));
614 root 1.3 }
615 root 1.14
616 root 1.5 if (anim_speed > 255)
617     anim_speed = 255;
618 root 1.3 }
619 root 1.14
620     sl << uint8 (anim_speed);
621 elmex 1.1 }
622 root 1.14
623 root 1.5 if (flags & UPD_NROF)
624 root 1.14 sl << uint32 (op->nrof);
625 elmex 1.1
626 root 1.29 pl->contr->ns->send_packet (sl);
627 elmex 1.1 }
628    
629     /**
630     * Sends item's info to player.
631     */
632 root 1.5 void
633     esrv_send_item (object *pl, object *op)
634 elmex 1.1 {
635 root 1.34 if (!pl->contr->ns)
636     return;
637    
638 root 1.5 /* If this is not the player object, do some more checks */
639     if (op != pl)
640     {
641     /* We only send 'visibile' objects to the client */
642 root 1.32 if (!op->client_visible ())
643 root 1.5 return;
644 root 1.32
645 root 1.5 /* if the item is on the ground, mark that the look needs to
646     * be updated.
647     */
648     if (!op->env)
649     {
650 root 1.29 pl->contr->ns->floorbox_update ();
651 root 1.5 return;
652 root 1.3 }
653 elmex 1.1 }
654    
655 root 1.16 packet sl;
656 elmex 1.1
657 root 1.29 sl.printf ("item%d ", pl->contr->ns->itemcmd);
658 elmex 1.1
659 root 1.5 if (op->head)
660     op = op->head;
661 elmex 1.1
662 root 1.14 sl << uint32 (op->env ? op->env->count : 0);
663 elmex 1.1
664 root 1.29 add_object_to_socklist (*pl->contr->ns, sl, op);
665 elmex 1.1
666 root 1.29 pl->contr->ns->send_packet (sl);
667 root 1.5 SET_FLAG (op, FLAG_CLIENT_SENT);
668 elmex 1.1 }
669    
670     /**
671     * Tells the client to delete an item. Uses the item
672     * command with a -1 location.
673     */
674 root 1.5 void
675     esrv_del_item (player *pl, int tag)
676 elmex 1.1 {
677 root 1.36 if (!pl->ns)
678     return;
679    
680 root 1.27 packet sl ("delitem");
681 elmex 1.1
682 root 1.27 sl << uint32 (tag);
683 elmex 1.1
684 root 1.29 pl->ns->send_packet (sl);
685 elmex 1.1 }
686    
687    
688     /*******************************************************************************
689     *
690     * Client has requested us to do something with an object.
691     *
692     ******************************************************************************/
693    
694     /**
695     * Takes a player and object count (tag) and returns the actual object
696     * pointer, or null if it can't be found.
697     */
698 root 1.5 object *
699     esrv_get_ob_from_count (object *pl, tag_t count)
700 elmex 1.1 {
701 root 1.5 if (pl->count == count)
702     return pl;
703 elmex 1.1
704 root 1.44 for (object *op = pl->inv; op; op = op->below)
705 root 1.5 if (op->count == count)
706     return op;
707     else if (op->type == CONTAINER && pl->container == op)
708 root 1.44 for (object *tmp = op->inv; tmp; tmp = tmp->below)
709 root 1.5 if (tmp->count == count)
710     return tmp;
711    
712 root 1.44 for (object *op = GET_MAP_OB (pl->map, pl->x, pl->y); op; op = op->above)
713 root 1.24 if (op->head && op->head->count == count)
714 root 1.5 return op;
715     else if (op->count == count)
716     return op;
717     else if (op->type == CONTAINER && pl->container == op)
718 root 1.44 for (object *tmp = op->inv; tmp; tmp = tmp->below)
719 root 1.5 if (tmp->count == count)
720     return tmp;
721 elmex 1.1
722 root 1.44 #if 0
723     /* If the high bit is set, player examined a pseudo object. */
724     if (count & 0x80000000)
725     return 0;
726     #endif
727    
728 root 1.24 return 0;
729 elmex 1.1 }
730    
731     /** Client wants to examine some object. So lets do so. */
732 root 1.5 void
733     ExamineCmd (char *buf, int len, player *pl)
734 elmex 1.1 {
735 root 1.10 tag_t tag = atoi (buf);
736    
737 root 1.5 object *op = esrv_get_ob_from_count (pl->ob, tag);
738 elmex 1.1
739 root 1.5 if (!op)
740     {
741     LOG (llevDebug, "Player '%s' tried to examine the unknown object (%ld)\n", &pl->ob->name, tag);
742     return;
743 elmex 1.1 }
744 root 1.10
745 root 1.5 examine (pl->ob, op);
746 elmex 1.1 }
747    
748 root 1.44 /** Client wants to examine some object. So lets do so. */
749     void
750     ExCmd (char *buf, int len, player *pl)
751     {
752     tag_t tag = atoi (buf);
753    
754     if (object *op = esrv_get_ob_from_count (pl->ob, tag))
755     {
756     std::string s = op->describe (pl->ob);
757    
758     packet sl ("ex");
759     sl << ber32 (tag) << s.c_str ();
760    
761     pl->ns->send_packet (sl);
762     }
763     }
764    
765 root 1.24 /** Client wants to apply some object. Lets do so. */
766 root 1.5 void
767     ApplyCmd (char *buf, int len, player *pl)
768 elmex 1.1 {
769 root 1.10 tag_t tag = atoi (buf);
770 elmex 1.1
771 root 1.5 /* sort of a hack, but if the player saves and the player then manually
772     * applies a savebed (or otherwise tries to do stuff), we run into trouble.
773     */
774     if (QUERY_FLAG (pl->ob, FLAG_REMOVED))
775     return;
776    
777     /* If the high bit is set, player applied a pseudo object. */
778     if (tag & 0x80000000)
779     {
780 root 1.29 pl->ns->look_position = tag & 0x7fffffff;
781     pl->ns->floorbox_update ();
782 root 1.5 return;
783     }
784    
785 root 1.10 object *op = esrv_get_ob_from_count (pl->ob, tag);
786    
787 root 1.5 if (!op)
788     {
789     LOG (llevDebug, "Player '%s' tried to apply the unknown object (%d)\n", &pl->ob->name, tag);
790     return;
791 elmex 1.1 }
792 root 1.10
793 root 1.5 player_apply (pl->ob, op, 0, 0);
794 elmex 1.1 }
795    
796 root 1.26 /** Client wants to lock some object. Lets do so. */
797 root 1.5 void
798 root 1.22 LockItem (char *data, int len, player *pl)
799 elmex 1.1 {
800 root 1.12 int flag = data[0];
801 root 1.22 tag_t tag = net_uint32 ((uint8 *)data + 1);
802 root 1.12 object *op = esrv_get_ob_from_count (pl->ob, tag);
803 root 1.5
804     if (!op)
805     {
806     new_draw_info (NDI_UNIQUE, 0, pl->ob, "Could not find object to lock/unlock");
807     return;
808     }
809 root 1.12
810 root 1.5 if (!flag)
811     CLEAR_FLAG (op, FLAG_INV_LOCKED);
812     else
813     SET_FLAG (op, FLAG_INV_LOCKED);
814 root 1.12
815 root 1.5 esrv_update_item (UPD_FLAGS, pl->ob, op);
816 elmex 1.1 }
817    
818 root 1.26 /** Client wants to mark some object. Lets do so. */
819 root 1.5 void
820 root 1.22 MarkItem (char *data, int len, player *pl)
821 elmex 1.1 {
822 root 1.22 tag_t tag = net_uint32 ((uint8 *)data);
823 root 1.12 object *op = esrv_get_ob_from_count (pl->ob, tag);
824 root 1.9
825 root 1.5 if (!op)
826     {
827     new_draw_info (NDI_UNIQUE, 0, pl->ob, "Could not find object to mark");
828     return;
829     }
830 root 1.9
831 root 1.5 pl->mark = op;
832     new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "Marked item %s", query_name (op));
833 elmex 1.1 }
834    
835     /**
836     * look_at prints items on the specified square.
837     *
838     * [ removed EARTHWALL check and added check for containers inventory.
839     * Tero.Haatanen@lut.fi ]
840     */
841 root 1.5 void
842     look_at (object *op, int dx, int dy)
843     {
844     object *tmp;
845     int flag = 0;
846     sint16 x, y;
847 root 1.8 maptile *m;
848 root 1.5
849     x = op->x + dx;
850     y = op->y + dy;
851    
852     if (out_of_map (op->map, x, y))
853     return;
854    
855     m = get_map_from_coord (op->map, &x, &y);
856     if (!m)
857     return;
858    
859 root 1.44 for (tmp = GET_MAP_OB (m, x, y); tmp && tmp->above; tmp = tmp->above)
860     ;
861 root 1.5
862 root 1.44 for (; tmp; tmp = tmp->below)
863 root 1.5 {
864     if (tmp->invisible && !QUERY_FLAG (op, FLAG_WIZ))
865     continue;
866    
867     if (!flag)
868     {
869     if (dx || dy)
870     new_draw_info (NDI_UNIQUE, 0, op, "There you see:");
871     else
872     {
873     clear_win_info (op);
874     new_draw_info (NDI_UNIQUE, 0, op, "You see:");
875 root 1.3 }
876 root 1.5 flag = 1;
877     }
878 root 1.3
879 root 1.5 if (QUERY_FLAG (op, FLAG_WIZ))
880     new_draw_info_format (NDI_UNIQUE, 0, op, "- %s (%d).", query_name (tmp), tmp->count);
881     else
882     new_draw_info_format (NDI_UNIQUE, 0, op, "- %s.", query_name (tmp));
883    
884     if (((tmp->inv != NULL || (tmp->head && tmp->head->inv)) &&
885     (tmp->type != CONTAINER && tmp->type != FLESH)) || QUERY_FLAG (op, FLAG_WIZ))
886     inventory (op, tmp->head == NULL ? tmp : tmp->head);
887    
888     if (QUERY_FLAG (tmp, FLAG_IS_FLOOR) && !QUERY_FLAG (op, FLAG_WIZ)) /* don't continue under the floor */
889     break;
890     }
891    
892     if (!flag)
893     {
894     if (dx || dy)
895     new_draw_info (NDI_UNIQUE, 0, op, "You see nothing there.");
896     else
897     new_draw_info (NDI_UNIQUE, 0, op, "You see nothing.");
898 elmex 1.1 }
899     }
900    
901     /** Client wants to look at some object. Lets do so. */
902 root 1.5 void
903     LookAt (char *buf, int len, player *pl)
904 elmex 1.1 {
905 root 1.5 int dx, dy;
906     char *cp;
907 elmex 1.1
908 root 1.5 dx = atoi (buf);
909     if (!(cp = strchr (buf, ' ')))
910 root 1.44 return;
911    
912 root 1.5 dy = atoi (cp);
913 root 1.35 if (fabs (dx) > pl->ns->mapx / 2 || fabs (dy) > pl->ns->mapy / 2)
914 root 1.5 return;
915 elmex 1.1
916 root 1.29 if (pl->blocked_los[dx + pl->ns->mapx / 2][dy + pl->ns->mapy / 2])
917 root 1.5 return;
918 elmex 1.1
919 root 1.5 look_at (pl->ob, dx, dy);
920 elmex 1.1 }
921    
922     /** Move an object to a new location */
923 root 1.5 void
924     esrv_move_object (object *pl, tag_t to, tag_t tag, long nrof)
925 elmex 1.1 {
926 root 1.5 object *op, *env;
927 elmex 1.1
928 root 1.5 op = esrv_get_ob_from_count (pl, tag);
929     if (!op)
930     {
931     LOG (llevDebug, "Player '%s' tried to move an unknown object (%ld)\n", &pl->name, tag);
932     return;
933 elmex 1.1 }
934    
935 root 1.5 if (!to)
936     { /* drop it to the ground */
937     if (op->map && !op->env)
938 root 1.14 return;
939 root 1.5
940     /* If it is an active container, then we should drop all objects
941     * in the container and not the container itself.
942     */
943     if (op->inv && QUERY_FLAG (op, FLAG_APPLIED))
944     {
945     object *current, *next;
946    
947     for (current = op->inv; current != NULL; current = next)
948     {
949     next = current->below;
950     drop_object (pl, current, 0);
951 root 1.3 }
952 root 1.14
953 root 1.5 esrv_update_item (UPD_WEIGHT, pl, op);
954 root 1.3 }
955 root 1.5 else
956 root 1.24 drop_object (pl, op, nrof);
957    
958 root 1.5 return;
959     }
960     else if (to == pl->count)
961     { /* pick it up to the inventory */
962     /* return if player has already picked it up */
963     if (op->env == pl)
964 root 1.3 return;
965 root 1.5
966     pl->contr->count = nrof;
967     pick_up (pl, op);
968     return;
969     }
970 root 1.14
971 root 1.5 env = esrv_get_ob_from_count (pl, to);
972     if (!env)
973     {
974     LOG (llevDebug, "Player '%s' tried to move object to the unknown location (%d)\n", &pl->name, to);
975     return;
976     }
977 root 1.14
978 root 1.5 /* put_object_in_sack presumes that necessary sanity checking
979     * has already been done (eg, it can be picked up and fits in
980     * in a sack, so check for those things. We should also check
981     * an make sure env is in fact a container for that matter.
982     */
983     if (env->type == CONTAINER && can_pick (pl, op) && sack_can_hold (pl, env, op, nrof))
984 root 1.24 put_object_in_sack (pl, env, op, nrof);
985 elmex 1.1 }
986 root 1.14