… | |
… | |
28 | #include <bitset> |
28 | #include <bitset> |
29 | |
29 | |
30 | #include "cfperl.h" |
30 | #include "cfperl.h" |
31 | #include "shstr.h" |
31 | #include "shstr.h" |
32 | |
32 | |
|
|
33 | //+GPL |
|
|
34 | |
33 | typedef int tag_t; |
35 | typedef int tag_t; |
34 | |
36 | |
35 | enum { |
37 | enum { |
36 | body_skill, |
38 | body_skill, |
37 | body_combat, |
39 | body_combat, |
… | |
… | |
85 | { |
87 | { |
86 | key_value *next; |
88 | key_value *next; |
87 | shstr key, value; |
89 | shstr key, value; |
88 | }; |
90 | }; |
89 | |
91 | |
|
|
92 | //-GPL |
|
|
93 | |
90 | struct UUID |
94 | struct UUID |
91 | { |
95 | { |
92 | uint64 seq; |
96 | uint64 seq; |
|
|
97 | |
|
|
98 | enum { MAX_LEN = 3 + 16 + 1 + 1 }; // <1. + hex + > + \0 |
93 | |
99 | |
94 | static UUID cur; // last uuid generated |
100 | static UUID cur; // last uuid generated |
95 | static void init (); |
101 | static void init (); |
96 | static UUID gen (); |
102 | static UUID gen (); |
97 | |
103 | |
98 | UUID () { } |
104 | UUID () { } |
99 | UUID (uint64 seq) : seq(seq) { } |
105 | UUID (uint64 seq) : seq(seq) { } |
100 | operator uint64() { return seq; } |
106 | operator uint64() { return seq; } |
101 | void operator =(uint64 seq) { this->seq = seq; } |
107 | void operator =(uint64 seq) { this->seq = seq; } |
102 | |
108 | |
103 | typedef char BUF [32]; |
|
|
104 | |
|
|
105 | bool parse (const char *s) |
109 | bool parse (const char *s); |
106 | { |
110 | char *append (char *buf) const; |
107 | return sscanf (s, "<1.%" SCNx64 ">", &seq) == 1; |
|
|
108 | } |
|
|
109 | |
|
|
110 | const char *c_str (char *buf, int len) const |
|
|
111 | { |
|
|
112 | snprintf (buf, len, "<1.%" PRIx64 ">", seq); |
|
|
113 | |
|
|
114 | return buf; |
|
|
115 | } |
|
|
116 | |
|
|
117 | const char *c_str () const |
111 | char *c_str () const; |
118 | { |
|
|
119 | static BUF buf; |
|
|
120 | |
|
|
121 | return c_str (buf, sizeof (buf)); |
|
|
122 | } |
|
|
123 | }; |
112 | }; |
|
|
113 | |
|
|
114 | //+GPL |
124 | |
115 | |
125 | /* Definition for WILL_APPLY values. Replaces having harcoded values |
116 | /* Definition for WILL_APPLY values. Replaces having harcoded values |
126 | * sprinkled in the code. Note that some of these also replace fields |
117 | * sprinkled in the code. Note that some of these also replace fields |
127 | * that were in the can_apply area. What is the point of having both |
118 | * that were in the can_apply area. What is the point of having both |
128 | * can_apply and will_apply? |
119 | * can_apply and will_apply? |
… | |
… | |
133 | #define WILL_APPLY_DOOR 0x08 |
124 | #define WILL_APPLY_DOOR 0x08 |
134 | #define WILL_APPLY_FOOD 0x10 |
125 | #define WILL_APPLY_FOOD 0x10 |
135 | |
126 | |
136 | struct body_slot |
127 | struct body_slot |
137 | { |
128 | { |
|
|
129 | signed char used:4; /* Calculated value based on items equipped */ |
138 | signed char info:4; /* body info as loaded from the file */ |
130 | signed char info:4; /* body info as loaded from the file */ |
139 | signed char used:4; /* Calculated value based on items equipped */ |
|
|
140 | }; |
131 | }; |
141 | |
132 | |
142 | typedef struct oblnk |
133 | typedef struct oblnk |
143 | { /* Used to link together several objects */ |
134 | { /* Used to link together several objects */ |
144 | object_ptr ob; |
135 | object_ptr ob; |
… | |
… | |
174 | flags_t flag; /* various flags */ |
165 | flags_t flag; /* various flags */ |
175 | #if FOR_PERL |
166 | #if FOR_PERL |
176 | bool ACC (RW, flag[NUM_FLAGS]); |
167 | bool ACC (RW, flag[NUM_FLAGS]); |
177 | #endif |
168 | #endif |
178 | |
169 | |
179 | shstr ACC (RW, materialname); /* specific material name */ |
170 | materialtype_t *material; // What material this object consists of //TODO, make perl-accessible |
180 | shstr ACC (RW, skill); /* Name of the skill this object uses/grants */ |
171 | shstr ACC (RW, skill); /* Name of the skill this object uses/grants */ |
181 | // materialtype_t *ACC (RW, material); /* What material this object consists of */ |
|
|
182 | object_ptr ACC (RW, owner); /* Pointer to the object which controls this one */ |
172 | object_ptr ACC (RW, owner); /* Pointer to the object which controls this one */ |
183 | object_ptr ACC (RW, enemy); /* Monster/player to follow even if not closest */ |
173 | object_ptr ACC (RW, enemy); /* Monster/player to follow even if not closest */ |
184 | object_ptr ACC (RW, attacked_by); /* This object start to attack us! only player & monster */ |
174 | object_ptr ACC (RW, attacked_by); /* This object start to attack us! only player & monster */ |
185 | object_ptr ACC (RW, chosen_skill); /* the skill chosen to use */ |
175 | object_ptr ACC (RW, chosen_skill); /* the skill chosen to use */ |
186 | object_ptr ACC (RW, spellitem); /* Spell ability monster is choosing to use */ |
176 | object_ptr ACC (RW, spellitem); /* Spell ability monster is choosing to use */ |
… | |
… | |
221 | uint8 ACC (RW, pick_up); /* See crossfire.doc */ |
211 | uint8 ACC (RW, pick_up); /* See crossfire.doc */ |
222 | sint8 ACC (RW, gen_sp_armour);/* sp regen penalty this object has (was last_heal) */ |
212 | sint8 ACC (RW, gen_sp_armour);/* sp regen penalty this object has (was last_heal) */ |
223 | sint8 ACC (RW, glow_radius); /* indicates the glow radius of the object */ |
213 | sint8 ACC (RW, glow_radius); /* indicates the glow radius of the object */ |
224 | uint8 ACC (RW, weapontype); /* type of weapon */ |
214 | uint8 ACC (RW, weapontype); /* type of weapon */ |
225 | |
215 | |
|
|
216 | body_slot slot [NUM_BODY_LOCATIONS]; |
|
|
217 | |
226 | faceidx ACC (RW, face); /* the graphical face */ |
218 | faceidx ACC (RW, face); /* the graphical face */ |
227 | |
219 | |
228 | faceidx ACC (RW, sound); /* the sound face */ |
220 | faceidx ACC (RW, sound); /* the sound face */ |
229 | faceidx ACC (RW, sound_destroy); /* played on destroy */ |
221 | faceidx ACC (RW, sound_destroy); /* played on destroy */ |
230 | |
|
|
231 | body_slot slot [NUM_BODY_LOCATIONS]; |
|
|
232 | |
222 | |
233 | sint32 ACC (RW, weight); /* Attributes of the object */ |
223 | sint32 ACC (RW, weight); /* Attributes of the object */ |
234 | sint32 ACC (RW, weight_limit);/* Weight-limit of object */ |
224 | sint32 ACC (RW, weight_limit);/* Weight-limit of object */ |
235 | |
225 | |
236 | sint32 ACC (RW, carrying); /* How much weight this object contains, must be 0 if nrof == 0 */ |
226 | sint32 ACC (RW, carrying); /* How much weight this object contains, must be 0 if nrof == 0 */ |
… | |
… | |
318 | object *ACC (RW, above); /* Pointer to the object stacked above this one */ |
308 | object *ACC (RW, above); /* Pointer to the object stacked above this one */ |
319 | /* Note: stacked in the *same* environment */ |
309 | /* Note: stacked in the *same* environment */ |
320 | object *inv; /* Pointer to the first object in the inventory */ |
310 | object *inv; /* Pointer to the first object in the inventory */ |
321 | |
311 | |
322 | //TODO: container must move into client |
312 | //TODO: container must move into client |
323 | object_ptr ACC (RW, container); /* Current container being used. I think this |
313 | object_ptr ACC (RW, container);/* Currently opened container. I think this |
324 | * is only used by the player right now. |
314 | * is only used by the player right now. |
325 | */ |
315 | */ |
326 | object *ACC (RW, env); /* Pointer to the object which is the environment. |
316 | object *ACC (RW, env); /* Pointer to the object which is the environment. |
327 | * This is typically the container that the object is in. |
317 | * This is typically the container that the object is in. |
328 | */ |
318 | */ |
329 | object *ACC (RW, more); /* Pointer to the rest of a large body of objects */ |
319 | object *ACC (RW, more); /* Pointer to the rest of a large body of objects */ |
330 | object *head; /* Points to the main object of a large body */ // NO ACC, perl semantics are different |
320 | object *head; /* Points to the main object of a large body */ // NO ACC, perl semantics are different |
331 | client_container *seen_by; // seen by which player/container currently? |
|
|
332 | key_value *key_values; /* Fields not explictly known by the loader. */ |
321 | key_value *key_values; /* Fields not explictly known by the loader. */ |
333 | |
322 | |
334 | // privates / perl |
323 | // privates / perl |
335 | shstr_tmp kv_get (shstr_tmp key) const; |
324 | shstr_tmp kv_get (shstr_tmp key) const; |
336 | void kv_del (shstr_tmp key); |
325 | void kv_del (shstr_tmp key); |
337 | void kv_set (shstr_tmp key, shstr_tmp value); |
326 | void kv_set (shstr_tmp key, shstr_tmp value); |
|
|
327 | |
|
|
328 | //-GPL |
338 | |
329 | |
339 | // custom extra fields management |
330 | // custom extra fields management |
340 | struct key_value_access_proxy |
331 | struct key_value_access_proxy |
341 | { |
332 | { |
342 | object &ob; |
333 | object &ob; |
… | |
… | |
436 | MTH void close_container () |
427 | MTH void close_container () |
437 | { |
428 | { |
438 | open_container (0); |
429 | open_container (0); |
439 | } |
430 | } |
440 | |
431 | |
|
|
432 | // potential future accessor for "container" |
|
|
433 | MTH object *container_ () const |
|
|
434 | { |
|
|
435 | return container; |
|
|
436 | } |
|
|
437 | |
|
|
438 | MTH bool is_open_container () const |
|
|
439 | { |
|
|
440 | // strangely enough, using ?: here causes code to inflate |
|
|
441 | return type == CONTAINER |
|
|
442 | && ((env && env->container_ () == this) |
|
|
443 | || (!env && flag [FLAG_APPLIED])); |
|
|
444 | } |
|
|
445 | |
441 | MTH object *force_find (shstr_tmp name); |
446 | MTH object *force_find (shstr_tmp name); |
442 | MTH void force_set_timer (int duration); |
447 | MTH void force_set_timer (int duration); |
443 | MTH object *force_add (shstr_tmp name, int duration = 0); |
448 | MTH object *force_add (shstr_tmp name, int duration = 0); |
444 | |
449 | |
445 | oblinkpt *find_link () const; |
450 | oblinkpt *find_link () const; |
… | |
… | |
483 | } |
488 | } |
484 | |
489 | |
485 | MTH void update_weight (); |
490 | MTH void update_weight (); |
486 | |
491 | |
487 | // return the dominant material of this item, always return something |
492 | // return the dominant material of this item, always return something |
488 | const materialtype_t *dominant_material () const; |
493 | const materialtype_t *dominant_material () const |
|
|
494 | { |
|
|
495 | return material; |
|
|
496 | } |
489 | |
497 | |
490 | // return the volume of this object in cm³ |
498 | // return the volume of this object in cm³ |
491 | MTH uint64 volume () const |
499 | MTH uint64 volume () const |
492 | { |
500 | { |
493 | return (uint64)total_weight () |
501 | return (uint64)total_weight () |
494 | * 1000 |
502 | * 1024 // 1000 actually |
495 | * (type == CONTAINER ? 1000 : 1) |
503 | * (type == CONTAINER ? 128 : 1) |
496 | / dominant_material ()->density; |
504 | / dominant_material ()->density; // ugh, division |
497 | } |
505 | } |
498 | |
506 | |
499 | MTH bool is_arch () const { return this == (const object *)(const archetype *)arch; } |
507 | MTH bool is_arch () const { return this == (const object *)(const archetype *)arch; } |
500 | |
508 | |
501 | MTH bool is_wiz () const { return flag [FLAG_WIZ]; } |
509 | MTH bool is_wiz () const { return flag [FLAG_WIZ]; } |
… | |
… | |
510 | MTH bool is_arrow () const { return type == ARROW |
518 | MTH bool is_arrow () const { return type == ARROW |
511 | || (type == SPELL_EFFECT |
519 | || (type == SPELL_EFFECT |
512 | && (subtype == SP_BULLET || subtype == SP_MAGIC_MISSILE)); } |
520 | && (subtype == SP_BULLET || subtype == SP_MAGIC_MISSILE)); } |
513 | MTH bool is_range () const { return type == BOW || type == ROD || type == WAND || type == HORN; } |
521 | MTH bool is_range () const { return type == BOW || type == ROD || type == WAND || type == HORN; } |
514 | |
522 | |
515 | MTH bool has_active_speed () const { return FABS(speed) >= MIN_ACTIVE_SPEED; } |
523 | MTH bool has_active_speed () const { return fabs (speed) >= MIN_ACTIVE_SPEED; } |
516 | |
524 | |
517 | // temporary: wether the object can be saved in a map file |
525 | // temporary: wether the object can be saved in a map file |
518 | // contr => is a player |
526 | // contr => is a player |
519 | // head => only save head of a multitile object |
527 | // head => only save head of a multitile object |
520 | // owner => can not reference owner yet |
528 | // owner => can not reference owner yet |
… | |
… | |
624 | MTH void create_treasure (treasurelist *tl, int flags = 0); |
632 | MTH void create_treasure (treasurelist *tl, int flags = 0); |
625 | |
633 | |
626 | // insert object at same map position as 'where' |
634 | // insert object at same map position as 'where' |
627 | // handles both inventory and map "positions" |
635 | // handles both inventory and map "positions" |
628 | MTH object *insert_at (object *where, object *originator = 0, int flags = 0); |
636 | MTH object *insert_at (object *where, object *originator = 0, int flags = 0); |
|
|
637 | // check whether we can put this into the map, respect max_nrof, max_volume, max_items |
|
|
638 | MTH bool can_drop_at (maptile *m, int x, int y, object *originator = 0); |
629 | MTH void drop_unpaid_items (); |
639 | MTH void drop_unpaid_items (); |
630 | |
640 | |
631 | MTH void activate (); |
641 | MTH void activate (); |
632 | MTH void deactivate (); |
642 | MTH void deactivate (); |
633 | MTH void activate_recursive (); |
643 | MTH void activate_recursive (); |
… | |
… | |
739 | object (const object &); |
749 | object (const object &); |
740 | }; |
750 | }; |
741 | |
751 | |
742 | // move this object to the top of its env's inventory to speed up |
752 | // move this object to the top of its env's inventory to speed up |
743 | // searches for it. |
753 | // searches for it. |
744 | static object * |
754 | static inline object * |
745 | splay (object *ob) |
755 | splay (object *ob) |
746 | { |
756 | { |
747 | if (ob->above && ob->env) |
757 | if (ob->above && ob->env) |
748 | { |
758 | { |
749 | if (ob->above) ob->above->below = ob->below; |
759 | if (ob->above) ob->above->below = ob->below; |
… | |
… | |
755 | ob->env->inv = ob; |
765 | ob->env->inv = ob; |
756 | } |
766 | } |
757 | |
767 | |
758 | return ob; |
768 | return ob; |
759 | } |
769 | } |
|
|
770 | |
|
|
771 | //+GPL |
760 | |
772 | |
761 | object *find_skill_by_name_fuzzy (object *who, const char *name); |
773 | object *find_skill_by_name_fuzzy (object *who, const char *name); |
762 | object *find_skill_by_name (object *who, shstr_cmp sh); |
774 | object *find_skill_by_name (object *who, shstr_cmp sh); |
763 | object *find_skill_by_number (object *who, int skillno); |
775 | object *find_skill_by_number (object *who, int skillno); |
764 | |
776 | |
… | |
… | |
769 | * be much left in the archetype - all it really is is a holder for the |
781 | * be much left in the archetype - all it really is is a holder for the |
770 | * object and pointers. This structure should get removed, and just replaced |
782 | * object and pointers. This structure should get removed, and just replaced |
771 | * by the object structure |
783 | * by the object structure |
772 | */ |
784 | */ |
773 | |
785 | |
|
|
786 | //-GPL |
|
|
787 | |
774 | INTERFACE_CLASS (archetype) |
788 | INTERFACE_CLASS (archetype) |
775 | struct archetype : object |
789 | struct archetype : object |
776 | { |
790 | { |
777 | static arch_ptr empty; // the empty_archetype |
791 | static arch_ptr empty; // the empty_archetype |
778 | MTH static void gc (); |
792 | MTH static void gc (); |
… | |
… | |
786 | MTH void link (); |
800 | MTH void link (); |
787 | MTH void unlink (); |
801 | MTH void unlink (); |
788 | |
802 | |
789 | MTH static object *get (const char *name); // (find() || singularity)->instance() |
803 | MTH static object *get (const char *name); // (find() || singularity)->instance() |
790 | MTH object *instance (); |
804 | MTH object *instance (); |
|
|
805 | |
|
|
806 | MTH void post_load_check (); // do some adjustments after parsing |
791 | |
807 | |
792 | object_vector_index ACC (RW, archid); // index in archvector |
808 | object_vector_index ACC (RW, archid); // index in archvector |
793 | shstr ACC (RW, archname); /* More definite name, like "generate_kobold" */ |
809 | shstr ACC (RW, archname); /* More definite name, like "generate_kobold" */ |
794 | |
810 | |
795 | sint8 ACC (RW, min_x), ACC (RW, min_y); /* extents, compared to the head (min_x, min_y should be zero, but aren't...) */ |
811 | sint8 ACC (RW, min_x), ACC (RW, min_y); /* extents, compared to the head (min_x, min_y should be zero, but aren't...) */ |
… | |
… | |
807 | { |
823 | { |
808 | return at->instance (); |
824 | return at->instance (); |
809 | } |
825 | } |
810 | |
826 | |
811 | inline void |
827 | inline void |
812 | object_freezer::put (keyword k, archetype *v) |
828 | object_freezer::put (const keyword_string k, archetype *v) |
813 | { |
829 | { |
814 | put (k, v ? &v->archname : (const char *)0); |
830 | if (expect_true (v)) |
|
|
831 | put (k, v->archname); |
|
|
832 | else |
|
|
833 | put (k); |
815 | } |
834 | } |
816 | |
835 | |
817 | typedef object_vector<object, &object::index > objectvec; |
836 | typedef object_vector<object, &object::index > objectvec; |
818 | typedef object_vector<object, &object::active> activevec; |
837 | typedef object_vector<object, &object::active> activevec; |
819 | typedef object_vector<archetype, &archetype::archid> archvec; |
838 | typedef object_vector<archetype, &archetype::archid> archvec; |
… | |
… | |
836 | statementvar (object *, var, actives [_i]) |
855 | statementvar (object *, var, actives [_i]) |
837 | |
856 | |
838 | #define for_all_archetypes(var) \ |
857 | #define for_all_archetypes(var) \ |
839 | for (unsigned _i = 0; _i < archetypes.size (); ++_i) \ |
858 | for (unsigned _i = 0; _i < archetypes.size (); ++_i) \ |
840 | statementvar (archetype *, var, archetypes [_i]) |
859 | statementvar (archetype *, var, archetypes [_i]) |
|
|
860 | |
|
|
861 | //+GPL |
841 | |
862 | |
842 | /* Used by update_object to know if the object being passed is |
863 | /* Used by update_object to know if the object being passed is |
843 | * being added or removed. |
864 | * being added or removed. |
844 | */ |
865 | */ |
845 | #define UP_OBJ_INSERT 1 |
866 | #define UP_OBJ_INSERT 1 |
… | |
… | |
875 | #define INS_ABOVE_FLOOR_ONLY 0x0002 |
896 | #define INS_ABOVE_FLOOR_ONLY 0x0002 |
876 | #define INS_NO_WALK_ON 0x0004 |
897 | #define INS_NO_WALK_ON 0x0004 |
877 | #define INS_ON_TOP 0x0008 |
898 | #define INS_ON_TOP 0x0008 |
878 | #define INS_BELOW_ORIGINATOR 0x0010 |
899 | #define INS_BELOW_ORIGINATOR 0x0010 |
879 | |
900 | |
880 | #define ARCH_DEPLETION "depletion" |
901 | //-GPL |
881 | |
902 | |
882 | #endif |
903 | #endif |
883 | |
904 | |