… | |
… | |
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 */ |
… | |
… | |
333 | // privates / perl |
323 | // privates / perl |
334 | shstr_tmp kv_get (shstr_tmp key) const; |
324 | shstr_tmp kv_get (shstr_tmp key) const; |
335 | void kv_del (shstr_tmp key); |
325 | void kv_del (shstr_tmp key); |
336 | void kv_set (shstr_tmp key, shstr_tmp value); |
326 | void kv_set (shstr_tmp key, shstr_tmp value); |
337 | |
327 | |
|
|
328 | //-GPL |
|
|
329 | |
338 | // custom extra fields management |
330 | // custom extra fields management |
339 | struct key_value_access_proxy |
331 | struct key_value_access_proxy |
340 | { |
332 | { |
341 | object &ob; |
333 | object &ob; |
342 | shstr_tmp key; |
334 | shstr_tmp key; |
… | |
… | |
496 | } |
488 | } |
497 | |
489 | |
498 | MTH void update_weight (); |
490 | MTH void update_weight (); |
499 | |
491 | |
500 | // return the dominant material of this item, always return something |
492 | // return the dominant material of this item, always return something |
501 | const materialtype_t *dominant_material () const; |
493 | const materialtype_t *dominant_material () const |
|
|
494 | { |
|
|
495 | return material; |
|
|
496 | } |
502 | |
497 | |
503 | // return the volume of this object in cm³ |
498 | // return the volume of this object in cm³ |
504 | MTH uint64 volume () const |
499 | MTH uint64 volume () const |
505 | { |
500 | { |
506 | return (uint64)total_weight () |
501 | return (uint64)total_weight () |
507 | * 1000 |
502 | * 1024 // 1000 actually |
508 | * (type == CONTAINER ? 1000 : 1) |
503 | * (type == CONTAINER ? 128 : 1) |
509 | / dominant_material ()->density; |
504 | / dominant_material ()->density; // ugh, division |
510 | } |
505 | } |
511 | |
506 | |
512 | 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; } |
513 | |
508 | |
514 | MTH bool is_wiz () const { return flag [FLAG_WIZ]; } |
509 | MTH bool is_wiz () const { return flag [FLAG_WIZ]; } |
… | |
… | |
523 | MTH bool is_arrow () const { return type == ARROW |
518 | MTH bool is_arrow () const { return type == ARROW |
524 | || (type == SPELL_EFFECT |
519 | || (type == SPELL_EFFECT |
525 | && (subtype == SP_BULLET || subtype == SP_MAGIC_MISSILE)); } |
520 | && (subtype == SP_BULLET || subtype == SP_MAGIC_MISSILE)); } |
526 | 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; } |
527 | |
522 | |
528 | MTH bool has_active_speed () const { return FABS(speed) >= MIN_ACTIVE_SPEED; } |
523 | MTH bool has_active_speed () const { return speed >= MIN_ACTIVE_SPEED; } |
529 | |
524 | |
530 | // temporary: wether the object can be saved in a map file |
525 | // temporary: wether the object can be saved in a map file |
531 | // contr => is a player |
526 | // contr => is a player |
532 | // head => only save head of a multitile object |
527 | // head => only save head of a multitile object |
533 | // owner => can not reference owner yet |
528 | // owner => can not reference owner yet |
… | |
… | |
637 | MTH void create_treasure (treasurelist *tl, int flags = 0); |
632 | MTH void create_treasure (treasurelist *tl, int flags = 0); |
638 | |
633 | |
639 | // insert object at same map position as 'where' |
634 | // insert object at same map position as 'where' |
640 | // handles both inventory and map "positions" |
635 | // handles both inventory and map "positions" |
641 | 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); |
642 | MTH void drop_unpaid_items (); |
639 | MTH void drop_unpaid_items (); |
643 | |
640 | |
644 | MTH void activate (); |
641 | MTH void activate (); |
645 | MTH void deactivate (); |
642 | MTH void deactivate (); |
646 | MTH void activate_recursive (); |
643 | MTH void activate_recursive (); |
… | |
… | |
752 | object (const object &); |
749 | object (const object &); |
753 | }; |
750 | }; |
754 | |
751 | |
755 | // 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 |
756 | // searches for it. |
753 | // searches for it. |
757 | static object * |
754 | static inline object * |
758 | splay (object *ob) |
755 | splay (object *ob) |
759 | { |
756 | { |
760 | if (ob->above && ob->env) |
757 | if (ob->above && ob->env) |
761 | { |
758 | { |
762 | if (ob->above) ob->above->below = ob->below; |
759 | if (ob->above) ob->above->below = ob->below; |
… | |
… | |
768 | ob->env->inv = ob; |
765 | ob->env->inv = ob; |
769 | } |
766 | } |
770 | |
767 | |
771 | return ob; |
768 | return ob; |
772 | } |
769 | } |
|
|
770 | |
|
|
771 | //+GPL |
773 | |
772 | |
774 | object *find_skill_by_name_fuzzy (object *who, const char *name); |
773 | object *find_skill_by_name_fuzzy (object *who, const char *name); |
775 | object *find_skill_by_name (object *who, shstr_cmp sh); |
774 | object *find_skill_by_name (object *who, shstr_cmp sh); |
776 | object *find_skill_by_number (object *who, int skillno); |
775 | object *find_skill_by_number (object *who, int skillno); |
777 | |
776 | |
… | |
… | |
782 | * 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 |
783 | * object and pointers. This structure should get removed, and just replaced |
782 | * object and pointers. This structure should get removed, and just replaced |
784 | * by the object structure |
783 | * by the object structure |
785 | */ |
784 | */ |
786 | |
785 | |
|
|
786 | //-GPL |
|
|
787 | |
787 | INTERFACE_CLASS (archetype) |
788 | INTERFACE_CLASS (archetype) |
788 | struct archetype : object |
789 | struct archetype : object |
789 | { |
790 | { |
790 | static arch_ptr empty; // the empty_archetype |
791 | static arch_ptr empty; // the empty_archetype |
791 | MTH static void gc (); |
792 | MTH static void gc (); |
… | |
… | |
799 | MTH void link (); |
800 | MTH void link (); |
800 | MTH void unlink (); |
801 | MTH void unlink (); |
801 | |
802 | |
802 | MTH static object *get (const char *name); // (find() || singularity)->instance() |
803 | MTH static object *get (const char *name); // (find() || singularity)->instance() |
803 | MTH object *instance (); |
804 | MTH object *instance (); |
|
|
805 | |
|
|
806 | MTH void post_load_check (); // do some adjustments after parsing |
804 | |
807 | |
805 | object_vector_index ACC (RW, archid); // index in archvector |
808 | object_vector_index ACC (RW, archid); // index in archvector |
806 | shstr ACC (RW, archname); /* More definite name, like "generate_kobold" */ |
809 | shstr ACC (RW, archname); /* More definite name, like "generate_kobold" */ |
807 | |
810 | |
808 | 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...) */ |
… | |
… | |
812 | static archetype *read (object_thawer &f); |
815 | static archetype *read (object_thawer &f); |
813 | MTH static void commit_load (); // commit any objects loaded, resolves cyclic dependencies and more |
816 | MTH static void commit_load (); // commit any objects loaded, resolves cyclic dependencies and more |
814 | static void postpone_arch_ref (arch_ptr &ref, const_utf8_string other_arch); /* postpone other_arch reference */ |
817 | static void postpone_arch_ref (arch_ptr &ref, const_utf8_string other_arch); /* postpone other_arch reference */ |
815 | }; |
818 | }; |
816 | |
819 | |
817 | // compatbiility, remove once replaced by ->instance |
|
|
818 | inline object * |
|
|
819 | arch_to_object (archetype *at) |
|
|
820 | { |
|
|
821 | return at->instance (); |
|
|
822 | } |
|
|
823 | |
|
|
824 | inline void |
820 | inline void |
825 | object_freezer::put (keyword k, archetype *v) |
821 | object_freezer::put (const keyword_string k, archetype *v) |
826 | { |
822 | { |
827 | put (k, v ? &v->archname : (const char *)0); |
823 | if (expect_true (v)) |
|
|
824 | put (k, v->archname); |
|
|
825 | else |
|
|
826 | put (k); |
828 | } |
827 | } |
829 | |
828 | |
830 | typedef object_vector<object, &object::index > objectvec; |
829 | typedef object_vector<object, &object::index > objectvec; |
831 | typedef object_vector<object, &object::active> activevec; |
830 | typedef object_vector<object, &object::active> activevec; |
832 | typedef object_vector<archetype, &archetype::archid> archvec; |
831 | typedef object_vector<archetype, &archetype::archid> archvec; |
… | |
… | |
849 | statementvar (object *, var, actives [_i]) |
848 | statementvar (object *, var, actives [_i]) |
850 | |
849 | |
851 | #define for_all_archetypes(var) \ |
850 | #define for_all_archetypes(var) \ |
852 | for (unsigned _i = 0; _i < archetypes.size (); ++_i) \ |
851 | for (unsigned _i = 0; _i < archetypes.size (); ++_i) \ |
853 | statementvar (archetype *, var, archetypes [_i]) |
852 | statementvar (archetype *, var, archetypes [_i]) |
|
|
853 | |
|
|
854 | //+GPL |
854 | |
855 | |
855 | /* Used by update_object to know if the object being passed is |
856 | /* Used by update_object to know if the object being passed is |
856 | * being added or removed. |
857 | * being added or removed. |
857 | */ |
858 | */ |
858 | #define UP_OBJ_INSERT 1 |
859 | #define UP_OBJ_INSERT 1 |
… | |
… | |
888 | #define INS_ABOVE_FLOOR_ONLY 0x0002 |
889 | #define INS_ABOVE_FLOOR_ONLY 0x0002 |
889 | #define INS_NO_WALK_ON 0x0004 |
890 | #define INS_NO_WALK_ON 0x0004 |
890 | #define INS_ON_TOP 0x0008 |
891 | #define INS_ON_TOP 0x0008 |
891 | #define INS_BELOW_ORIGINATOR 0x0010 |
892 | #define INS_BELOW_ORIGINATOR 0x0010 |
892 | |
893 | |
893 | #define ARCH_DEPLETION "depletion" |
894 | //-GPL |
894 | |
895 | |
895 | #endif |
896 | #endif |
896 | |
897 | |