ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/socket/item.C
Revision: 1.41
Committed: Sun Mar 11 02:12:45 2007 UTC (17 years, 3 months ago) by root
Content type: text/plain
Branch: MAIN
Changes since 1.40: +10 -10 lines
Log Message:
- MAJOR CHANGE
- you now need to use cfutil to install arches.
- former bigfaces are broken in the server
- bigfaces are no longer supported. at all.
- use face numbers instead of pointers
  * saves lotsa space
  * saves lotsa indirections
  * saves lots(?) cpu cycles
- completely rewrote face handling
- faces can now be added at runtime
- reload will add new faces
- this does not apply to animations
- use a hastable instead of binary search (faster) for faces
- face caching is broken
- facesets are gone
- server always reports MAX_FACES to any client who asks

File Contents

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