ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/socket/item.C
Revision: 1.30
Committed: Sat Jan 6 14:42:31 2007 UTC (17 years, 4 months ago) by pippijn
Content type: text/plain
Branch: MAIN
Changes since 1.29: +1 -0 lines
Log Message:
added some copyrights

File Contents

# User Rev Content
1 elmex 1.1 /*
2     CrossFire, A Multiplayer game for X-windows
3    
4 pippijn 1.30 Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team
5 elmex 1.1 Copyright (C) 2002 Mark Wedel & Crossfire Development Team
6     Copyright (C) 1992 Frank Tore Johansen
7    
8     This program is free software; you can redistribute it and/or modify
9     it under the terms of the GNU General Public License as published by
10     the Free Software Foundation; either version 2 of the License, or
11     (at your option) any later version.
12    
13     This program is distributed in the hope that it will be useful,
14     but WITHOUT ANY WARRANTY; without even the implied warranty of
15     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16     GNU General Public License for more details.
17    
18     You should have received a copy of the GNU General Public License
19     along with this program; if not, write to the Free Software
20     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21    
22 root 1.7 The author can be reached via e-mail to <crossfire@schmorp.de>
23 elmex 1.1 */
24    
25     /**
26     * \file
27     * Client/server logic.
28     *
29     * \date 2003-12-02
30     *
31     * This containes item logic for client/server. It doesn't contain
32     * 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.5 #include <object.h> /* LOOK_OBJ */
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.13 if (!(ns.faces_sent[head->face->number] & NS_FACESENT_FACE))
270     esrv_send_face (&ns, head->face->number, 0);
271 root 1.5
272 root 1.13 if (QUERY_FLAG (head, FLAG_ANIMATE) && !ns.anims_sent[head->animation_id])
273     esrv_send_animation (&ns, 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     << uint32 (head->face->number);
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     if (FABS (head->speed) < 0.001)
310     anim_speed = 255;
311     else if (FABS (head->speed) >= 1.0)
312     anim_speed = 1;
313     else
314     anim_speed = (int) (1.0 / FABS (head->speed));
315     }
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     /**
332 root 1.24 * Send the look window. Don't need to do animations here
333     * This sends all the faces to the client, not just updates. This is
334     * because object ordering would otherwise be inconsistent.
335 elmex 1.1 */
336 root 1.5 void
337     esrv_draw_look (object *pl)
338 elmex 1.1 {
339 root 1.5 object *tmp, *last;
340     int got_one = 0, start_look = 0, end_look = 0;
341     char buf[MAX_BUF];
342    
343 root 1.29 if (!pl->contr->ns->update_look)
344 root 1.5 {
345     LOG (llevDebug, "esrv_draw_look called when update_look was not set\n");
346     return;
347     }
348     else
349 root 1.29 pl->contr->ns->update_look = 0;
350 root 1.5
351 root 1.13 if (QUERY_FLAG (pl, FLAG_REMOVED)
352     || !pl->map
353     || pl->map->in_memory != MAP_IN_MEMORY
354     || out_of_map (pl->map, pl->x, pl->y))
355 root 1.5 return;
356    
357 root 1.28 for (tmp = GET_MAP_OB (pl->map, pl->x, pl->y); tmp && tmp->above; tmp = tmp->above)
358 root 1.14 ;
359 root 1.5
360 root 1.29 pl->contr->ns->send_packet ("delinv 0");
361 root 1.5
362 root 1.27 packet sl;
363 root 1.29 sl.printf ("item%d ", pl->contr->ns->itemcmd);
364 root 1.5
365 root 1.13 sl << uint32 (0);
366 root 1.5
367 root 1.29 if (!(pl->contr->ns->faces_sent[empty_face->number] & NS_FACESENT_FACE))
368     esrv_send_face (pl->contr->ns, empty_face->number, 0);
369 root 1.5
370 root 1.29 if (pl->contr->ns->look_position)
371 root 1.5 {
372 root 1.21 char buf[80];
373 root 1.26 snprintf (buf, 80, "Apply this to see %d previous items", FLOORBOX_PAGESIZE);
374 root 1.21
375 root 1.29 sl << uint32 (0x80000000 | (pl->contr->ns->look_position - FLOORBOX_PAGESIZE))
376 root 1.13 << uint32 (0)
377     << sint32 (-1)
378 root 1.21 << uint32 (empty_face->number)
379     << data8 (buf)
380     << uint16 (0)
381 root 1.13 << uint8 (0)
382     << uint32 (0);
383    
384 root 1.29 if (pl->contr->ns->itemcmd == 2)
385 root 1.13 sl << uint16 (0);
386 root 1.5 }
387    
388     for (last = NULL; tmp != last; tmp = tmp->below)
389     {
390     object *head;
391    
392     if (QUERY_FLAG (tmp, FLAG_IS_FLOOR) && !last)
393     {
394     last = tmp->below; /* assumes double floor mode */
395     if (last && QUERY_FLAG (last, FLAG_IS_FLOOR))
396     last = last->below;
397     }
398 root 1.13
399 root 1.5 if (LOOK_OBJ (tmp))
400     {
401 root 1.29 if (++start_look < pl->contr->ns->look_position)
402 root 1.5 continue;
403 root 1.13
404 root 1.5 end_look++;
405 root 1.13
406 root 1.26 if (end_look > FLOORBOX_PAGESIZE)
407 root 1.5 {
408     /* What we basically do is make a 'fake' object - when the user applies it,
409     * we notice the special tag the object has, and act accordingly.
410     */
411 root 1.29 sl << uint32 (0x80000000 | (pl->contr->ns->look_position + FLOORBOX_PAGESIZE))
412 root 1.14 << uint32 (0)
413     << uint32 ((uint32) - 1)
414 root 1.21 << uint32 (empty_face->number)
415     << data8 ("Apply this to see next group of items")
416     << uint16 (0)
417 root 1.14 << uint8 (0)
418     << uint32 (0);
419    
420 root 1.29 if (pl->contr->ns->itemcmd == 2)
421 root 1.14 sl << uint16 (0);
422    
423 root 1.5 break;
424 root 1.3 }
425 root 1.14
426 root 1.5 if (tmp->head)
427     head = tmp->head;
428     else
429     head = tmp;
430    
431 root 1.29 add_object_to_socklist (*pl->contr->ns, sl, head);
432 root 1.5 got_one++;
433    
434 root 1.17 if (sl.length () >= (MAXSOCKBUF - MAXITEMLEN))
435 root 1.5 {
436 root 1.29 pl->contr->ns->send_packet (sl);
437 root 1.14
438     sl.reset ();
439 root 1.29 sl.printf ("item%d ", pl->contr->ns->itemcmd);
440 root 1.14 sl << uint32 (0);
441 root 1.5 got_one = 0;
442 root 1.3 }
443 root 1.24 }
444 elmex 1.1 }
445 root 1.13
446 root 1.5 if (got_one)
447 root 1.29 pl->contr->ns->send_packet (sl);
448 elmex 1.1
449     }
450    
451     /**
452     * Sends whole inventory.
453     */
454 root 1.5 void
455     esrv_send_inventory (object *pl, object *op)
456 elmex 1.1 {
457 root 1.5 object *tmp;
458     int got_one = 0;
459    
460    
461 root 1.29 pl->contr->ns->send_packet_printf ("delinv %d", op->count);
462 root 1.5
463 root 1.27 packet sl;
464 root 1.29 sl.printf ("item%d ", pl->contr->ns->itemcmd);
465 root 1.5
466 root 1.14 sl << uint32 (op->count);
467 root 1.5
468     for (tmp = op->inv; tmp; tmp = tmp->below)
469     {
470     object *head;
471    
472     if (tmp->head)
473     head = tmp->head;
474     else
475     head = tmp;
476    
477     if (LOOK_OBJ (head))
478     {
479 root 1.29 add_object_to_socklist (*pl->contr->ns, sl, head);
480 root 1.5
481     got_one++;
482    
483     /* IT is possible for players to accumulate a huge amount of
484     * items (especially with some of the bags out there) to
485     * overflow the buffer. IF so, send multiple item commands.
486     */
487 root 1.17 if (sl.length () >= (MAXSOCKBUF - MAXITEMLEN))
488 root 1.5 {
489 root 1.29 pl->contr->ns->send_packet (sl);
490 root 1.17
491     sl.reset ();
492 root 1.29 sl.printf ("item%d ", pl->contr->ns->itemcmd);
493 root 1.14 sl << uint32 (op->count);
494 root 1.5 got_one = 0;
495 root 1.3 }
496 root 1.5 } /* If LOOK_OBJ() */
497 elmex 1.1 }
498 root 1.14
499 root 1.5 if (got_one)
500 root 1.29 pl->contr->ns->send_packet (sl);
501 elmex 1.1 }
502    
503     /**
504     * Updates object *op for player *pl.
505     *
506     * flags is a list of values to update
507     * to the client (as defined in newclient.h - might as well use the
508     * same value both places.
509     */
510    
511 root 1.5 void
512     esrv_update_item (int flags, object *pl, object *op)
513 elmex 1.1 {
514 root 1.5 /* If we have a request to send the player item, skip a few checks. */
515     if (op != pl)
516     {
517     if (!LOOK_OBJ (op))
518     return;
519     /* we remove the check for op->env, because in theory, the object
520     * is hopefully in the same place, so the client should preserve
521     * order.
522     */
523     }
524 root 1.11
525 root 1.5 if (!QUERY_FLAG (op, FLAG_CLIENT_SENT))
526     {
527     /* FLAG_CLIENT_SENT is debug only. We are using it to see where
528     * this is happening - we can set a breakpoint here in the debugger
529     * and track back the call.
530     */
531     LOG (llevDebug, "We have not sent item %s (%d)\n", &op->name, op->count);
532     }
533 root 1.11
534 root 1.27 packet sl ("upditem");
535 root 1.5
536 root 1.27 sl << uint8 (flags);
537 root 1.5
538     if (op->head)
539     op = op->head;
540    
541 root 1.14 sl << uint32 (op->count);
542 root 1.5
543     if (flags & UPD_LOCATION)
544 root 1.14 sl << uint32 (op->env ? op->env->count : 0);
545 root 1.5
546     if (flags & UPD_FLAGS)
547 root 1.14 sl << uint32 (query_flags (op));
548 root 1.5
549     if (flags & UPD_WEIGHT)
550     {
551     sint32 weight = WEIGHT (op);
552    
553 root 1.14 sl << uint32 (QUERY_FLAG (op, FLAG_NO_PICK) ? -1 : weight);
554    
555 root 1.5 if (pl == op)
556 root 1.14 op->contr->last_weight = weight;
557 root 1.5 }
558    
559     if (flags & UPD_FACE)
560     {
561 root 1.29 if (!(pl->contr->ns->faces_sent[op->face->number] & NS_FACESENT_FACE))
562     esrv_send_face (pl->contr->ns, op->face->number, 0);
563 root 1.14
564     sl << uint32 (op->face->number);
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     if (FABS (op->speed) < 0.001)
609     anim_speed = 255;
610     else if (FABS (op->speed) >= 1.0)
611     anim_speed = 1;
612     else
613     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.5 /* If this is not the player object, do some more checks */
636     if (op != pl)
637     {
638     /* We only send 'visibile' objects to the client */
639     if (!LOOK_OBJ (op))
640     return;
641     /* if the item is on the ground, mark that the look needs to
642     * be updated.
643     */
644     if (!op->env)
645     {
646 root 1.29 pl->contr->ns->floorbox_update ();
647 root 1.5 return;
648 root 1.3 }
649 elmex 1.1 }
650    
651 root 1.16 packet sl;
652 elmex 1.1
653 root 1.29 sl.printf ("item%d ", pl->contr->ns->itemcmd);
654 elmex 1.1
655 root 1.5 if (op->head)
656     op = op->head;
657 elmex 1.1
658 root 1.14 sl << uint32 (op->env ? op->env->count : 0);
659 elmex 1.1
660 root 1.29 add_object_to_socklist (*pl->contr->ns, sl, op);
661 elmex 1.1
662 root 1.29 pl->contr->ns->send_packet (sl);
663 root 1.5 SET_FLAG (op, FLAG_CLIENT_SENT);
664 elmex 1.1 }
665    
666     /**
667     * Tells the client to delete an item. Uses the item
668     * command with a -1 location.
669     */
670    
671 root 1.5 void
672     esrv_del_item (player *pl, int tag)
673 elmex 1.1 {
674 root 1.27 packet sl ("delitem");
675 elmex 1.1
676 root 1.27 sl << uint32 (tag);
677 elmex 1.1
678 root 1.29 pl->ns->send_packet (sl);
679 elmex 1.1 }
680    
681    
682     /*******************************************************************************
683     *
684     * Client has requested us to do something with an object.
685     *
686     ******************************************************************************/
687    
688     /**
689     * Takes a player and object count (tag) and returns the actual object
690     * pointer, or null if it can't be found.
691     */
692    
693 root 1.5 object *
694     esrv_get_ob_from_count (object *pl, tag_t count)
695 elmex 1.1 {
696 root 1.5 object *op, *tmp;
697 elmex 1.1
698 root 1.5 if (pl->count == count)
699     return pl;
700 elmex 1.1
701 root 1.5 for (op = pl->inv; op; op = op->below)
702     if (op->count == count)
703     return op;
704     else if (op->type == CONTAINER && pl->container == op)
705     for (tmp = op->inv; tmp; tmp = tmp->below)
706     if (tmp->count == count)
707     return tmp;
708    
709 root 1.28 for (op = GET_MAP_OB (pl->map, pl->x, pl->y); op; op = op->above)
710 root 1.24 if (op->head && op->head->count == count)
711 root 1.5 return op;
712     else if (op->count == count)
713     return op;
714     else if (op->type == CONTAINER && pl->container == op)
715     for (tmp = op->inv; tmp; tmp = tmp->below)
716     if (tmp->count == count)
717     return tmp;
718 elmex 1.1
719 root 1.24 return 0;
720 elmex 1.1 }
721    
722    
723     /** Client wants to examine some object. So lets do so. */
724 root 1.5 void
725     ExamineCmd (char *buf, int len, player *pl)
726 elmex 1.1 {
727 root 1.10 tag_t tag = atoi (buf);
728    
729     /* If the high bit is set, player examined a pseudo object. */
730     if (tag & 0x80000000)
731     return;
732    
733 root 1.5 object *op = esrv_get_ob_from_count (pl->ob, tag);
734 elmex 1.1
735 root 1.5 if (!op)
736     {
737     LOG (llevDebug, "Player '%s' tried to examine the unknown object (%ld)\n", &pl->ob->name, tag);
738     return;
739 elmex 1.1 }
740 root 1.10
741 root 1.5 examine (pl->ob, op);
742 elmex 1.1 }
743    
744 root 1.24 /** Client wants to apply some object. Lets do so. */
745 root 1.5 void
746     ApplyCmd (char *buf, int len, player *pl)
747 elmex 1.1 {
748 root 1.10 tag_t tag = atoi (buf);
749 elmex 1.1
750 root 1.5 /* sort of a hack, but if the player saves and the player then manually
751     * applies a savebed (or otherwise tries to do stuff), we run into trouble.
752     */
753     if (QUERY_FLAG (pl->ob, FLAG_REMOVED))
754     return;
755    
756     /* If the high bit is set, player applied a pseudo object. */
757     if (tag & 0x80000000)
758     {
759 root 1.29 pl->ns->look_position = tag & 0x7fffffff;
760     pl->ns->floorbox_update ();
761 root 1.5 return;
762     }
763    
764 root 1.10 object *op = esrv_get_ob_from_count (pl->ob, tag);
765    
766 root 1.5 if (!op)
767     {
768     LOG (llevDebug, "Player '%s' tried to apply the unknown object (%d)\n", &pl->ob->name, tag);
769     return;
770 elmex 1.1 }
771 root 1.10
772 root 1.5 player_apply (pl->ob, op, 0, 0);
773 elmex 1.1 }
774    
775 root 1.26 /** Client wants to lock some object. Lets do so. */
776 root 1.5 void
777 root 1.22 LockItem (char *data, int len, player *pl)
778 elmex 1.1 {
779 root 1.12 int flag = data[0];
780 root 1.22 tag_t tag = net_uint32 ((uint8 *)data + 1);
781 root 1.12 object *op = esrv_get_ob_from_count (pl->ob, tag);
782 root 1.5
783     if (!op)
784     {
785     new_draw_info (NDI_UNIQUE, 0, pl->ob, "Could not find object to lock/unlock");
786     return;
787     }
788 root 1.12
789 root 1.5 if (!flag)
790     CLEAR_FLAG (op, FLAG_INV_LOCKED);
791     else
792     SET_FLAG (op, FLAG_INV_LOCKED);
793 root 1.12
794 root 1.5 esrv_update_item (UPD_FLAGS, pl->ob, op);
795 elmex 1.1 }
796    
797 root 1.26 /** Client wants to mark some object. Lets do so. */
798 root 1.5 void
799 root 1.22 MarkItem (char *data, int len, player *pl)
800 elmex 1.1 {
801 root 1.22 tag_t tag = net_uint32 ((uint8 *)data);
802 root 1.12 object *op = esrv_get_ob_from_count (pl->ob, tag);
803 root 1.9
804 root 1.5 if (!op)
805     {
806     new_draw_info (NDI_UNIQUE, 0, pl->ob, "Could not find object to mark");
807     return;
808     }
809 root 1.9
810 root 1.5 pl->mark = op;
811     new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "Marked item %s", query_name (op));
812 elmex 1.1 }
813    
814     /**
815     * look_at prints items on the specified square.
816     *
817     * [ removed EARTHWALL check and added check for containers inventory.
818     * Tero.Haatanen@lut.fi ]
819     */
820 root 1.5 void
821     look_at (object *op, int dx, int dy)
822     {
823     object *tmp;
824     int flag = 0;
825     sint16 x, y;
826 root 1.8 maptile *m;
827 root 1.5
828     x = op->x + dx;
829     y = op->y + dy;
830    
831     if (out_of_map (op->map, x, y))
832     return;
833    
834     m = get_map_from_coord (op->map, &x, &y);
835     if (!m)
836     return;
837    
838 root 1.28 for (tmp = GET_MAP_OB (m, x, y); tmp != NULL && tmp->above != NULL; tmp = tmp->above);
839 root 1.5
840     for (; tmp != NULL; tmp = tmp->below)
841     {
842     if (tmp->invisible && !QUERY_FLAG (op, FLAG_WIZ))
843     continue;
844    
845     if (!flag)
846     {
847     if (dx || dy)
848     new_draw_info (NDI_UNIQUE, 0, op, "There you see:");
849     else
850     {
851     clear_win_info (op);
852     new_draw_info (NDI_UNIQUE, 0, op, "You see:");
853 root 1.3 }
854 root 1.5 flag = 1;
855     }
856 root 1.3
857 root 1.5 if (QUERY_FLAG (op, FLAG_WIZ))
858     new_draw_info_format (NDI_UNIQUE, 0, op, "- %s (%d).", query_name (tmp), tmp->count);
859     else
860     new_draw_info_format (NDI_UNIQUE, 0, op, "- %s.", query_name (tmp));
861    
862     if (((tmp->inv != NULL || (tmp->head && tmp->head->inv)) &&
863     (tmp->type != CONTAINER && tmp->type != FLESH)) || QUERY_FLAG (op, FLAG_WIZ))
864     inventory (op, tmp->head == NULL ? tmp : tmp->head);
865    
866     if (QUERY_FLAG (tmp, FLAG_IS_FLOOR) && !QUERY_FLAG (op, FLAG_WIZ)) /* don't continue under the floor */
867     break;
868     }
869    
870     if (!flag)
871     {
872     if (dx || dy)
873     new_draw_info (NDI_UNIQUE, 0, op, "You see nothing there.");
874     else
875     new_draw_info (NDI_UNIQUE, 0, op, "You see nothing.");
876 elmex 1.1 }
877     }
878    
879    
880    
881     /** Client wants to look at some object. Lets do so. */
882 root 1.5 void
883     LookAt (char *buf, int len, player *pl)
884 elmex 1.1 {
885 root 1.5 int dx, dy;
886     char *cp;
887 elmex 1.1
888 root 1.5 dx = atoi (buf);
889     if (!(cp = strchr (buf, ' ')))
890     {
891     return;
892 elmex 1.1 }
893 root 1.5 dy = atoi (cp);
894 elmex 1.1
895 root 1.29 if (FABS (dx) > pl->ns->mapx / 2 || FABS (dy) > pl->ns->mapy / 2)
896 root 1.5 return;
897 elmex 1.1
898 root 1.29 if (pl->blocked_los[dx + pl->ns->mapx / 2][dy + pl->ns->mapy / 2])
899 root 1.5 return;
900 elmex 1.1
901 root 1.5 look_at (pl->ob, dx, dy);
902 elmex 1.1 }
903    
904     /** Move an object to a new location */
905 root 1.5 void
906     esrv_move_object (object *pl, tag_t to, tag_t tag, long nrof)
907 elmex 1.1 {
908 root 1.5 object *op, *env;
909 elmex 1.1
910 root 1.5 op = esrv_get_ob_from_count (pl, tag);
911     if (!op)
912     {
913     LOG (llevDebug, "Player '%s' tried to move an unknown object (%ld)\n", &pl->name, tag);
914     return;
915 elmex 1.1 }
916    
917 root 1.5 if (!to)
918     { /* drop it to the ground */
919     if (op->map && !op->env)
920 root 1.14 return;
921 root 1.5
922     /* If it is an active container, then we should drop all objects
923     * in the container and not the container itself.
924     */
925     if (op->inv && QUERY_FLAG (op, FLAG_APPLIED))
926     {
927     object *current, *next;
928    
929     for (current = op->inv; current != NULL; current = next)
930     {
931     next = current->below;
932     drop_object (pl, current, 0);
933 root 1.3 }
934 root 1.14
935 root 1.5 esrv_update_item (UPD_WEIGHT, pl, op);
936 root 1.3 }
937 root 1.5 else
938 root 1.24 drop_object (pl, op, nrof);
939    
940 root 1.5 return;
941     }
942     else if (to == pl->count)
943     { /* pick it up to the inventory */
944     /* return if player has already picked it up */
945     if (op->env == pl)
946 root 1.3 return;
947 root 1.5
948     pl->contr->count = nrof;
949     pick_up (pl, op);
950     return;
951     }
952 root 1.14
953 root 1.5 env = esrv_get_ob_from_count (pl, to);
954     if (!env)
955     {
956     LOG (llevDebug, "Player '%s' tried to move object to the unknown location (%d)\n", &pl->name, to);
957     return;
958     }
959 root 1.14
960 root 1.5 /* put_object_in_sack presumes that necessary sanity checking
961     * has already been done (eg, it can be picked up and fits in
962     * in a sack, so check for those things. We should also check
963     * an make sure env is in fact a container for that matter.
964     */
965     if (env->type == CONTAINER && can_pick (pl, op) && sack_can_hold (pl, env, op, nrof))
966 root 1.24 put_object_in_sack (pl, env, op, nrof);
967 elmex 1.1 }
968 root 1.14