store_type *store_type_new()
{
store_type *store;
MAKE(store, store_type);
flag_init(&store->stock, 2);
flag_set(&store->stock, INVEN_LIMIT_KEY, 0);
return store;
}
/*
* Wipe an object clean.
*/
void object_wipe(object_type *o_ptr)
{
flags_type f = o_ptr->flags;
/* Wipe the structure */
(void) WIPE(o_ptr, object_type);
o_ptr->flags = f;
flag_free(&o_ptr->flags, FALSE);
flag_init(&o_ptr->flags, 2);
}
/*
* Allocate an object
* NOTE: this is the only allowed way to create an object
*/
object_type *new_object()
{
object_type *o_ptr;
MAKE(o_ptr, object_type);
flag_init(&o_ptr->flags, 2);
object_wipe(o_ptr);
return o_ptr;
}
void monster_type_copy(monster_type *dest, monster_type*src)
{
*dest = *src;
flag_init(&dest->blow, 2);
flag_copy(&dest->blow, &src->blow);
flag_init(&dest->inventory, 2);
flag_copy(&dest->inventory, &src->inventory);
flag_init(&dest->flags, 2);
flag_copy(&dest->flags, &src->flags);
flag_init(&dest->spells, 2);
flag_copy(&dest->spells, &src->spells);
flag_init(&dest->ai_states, 2);
flag_copy(&dest->ai_states, &src->ai_states);
if (dest->sr_ptr != NULL)
cmsg_print(TERM_VIOLET, "*ERROR*: monster_type_dup called with a sr_ptr! Contact the maintainer.");
if (dest->mind != NULL)
cmsg_print(TERM_VIOLET, "*ERROR*: monster_type_dup called with a mind! Contact the maintainer.");
}
int main(void)
{
flag_init();
set_flag(UP);
_delay_ms(1000);
while (1)
{
set_flag(RIGHT);
_delay_ms(2000);
set_flag(LEFT);
_delay_ms(2000);
}
return (0);
}
void prepare_inventory(flags_type *inventory)
{
s32b i;
flag_init(inventory, 2);
for (i = INVEN_INVEN; i < INVEN_TOTAL; i++)
{
flags_type *inven = flag_new(2);
/* Default size */
flag_set(inven, INVEN_LIMIT_KEY, 23);
/* Empty list */
flag_set_full(inventory, i, FLAG_FLAG_FLAGS, 0, 0, inven);
}
}
bson_t* scoped_bson_t::bson_for_init() {
flag_init();
return &_bson;
}
