TbBool setup_person_move_to_position_f(struct Thing *thing, MapSubtlCoord stl_x, MapSubtlCoord stl_y, NaviRouteFlags flags, const char *func_name)
{
struct CreatureControl *cctrl;
struct Coord3d locpos;
SYNCDBG(18,"%s: Moving %s index %d to (%d,%d)",func_name,thing_model_name(thing),(int)thing->index,(int)stl_x,(int)stl_y);
TRACE_THING(thing);
locpos.x.val = subtile_coord_center(stl_x);
locpos.y.val = subtile_coord_center(stl_y);
locpos.z.val = thing->mappos.z.val;
locpos.z.val = get_thing_height_at(thing, &locpos);
cctrl = creature_control_get_from_thing(thing);
if (creature_control_invalid(cctrl))
{
WARNLOG("%s: Tried to move invalid creature to (%d,%d)",func_name,(int)stl_x,(int)stl_y);
return false;
}
if (thing_in_wall_at(thing, &locpos))
{
SYNCDBG(16,"%s: The %s would be trapped in wall at (%d,%d)",func_name,thing_model_name(thing),(int)stl_x,(int)stl_y);
return false;
}
if (!creature_can_navigate_to_with_storage_f(thing, &locpos, flags, func_name))
{
SYNCDBG(19,"%s: The %s cannot reach subtile (%d,%d)",func_name,thing_model_name(thing),(int)stl_x,(int)stl_y);
return false;
}
cctrl->move_flags = flags;
internal_set_thing_state(thing, CrSt_MoveToPosition);
cctrl->moveto_pos.x.val = locpos.x.val;
cctrl->moveto_pos.y.val = locpos.y.val;
cctrl->moveto_pos.z.val = locpos.z.val;
SYNCDBG(19,"%s: Done",func_name);
return true;
}
long creature_add_lair_to_room(struct Thing *creatng, struct Room *room)
{
struct Thing *lairtng;
if (!room_has_enough_free_capacity_for_creature(room, creatng))
return 0;
//return _DK_creature_add_lair_to_room(thing, room);
// Make sure we don't already have a lair on that position
lairtng = find_creature_lair_at_subtile(creatng->mappos.x.stl.num, creatng->mappos.y.stl.num, 0);
if (!thing_is_invalid(lairtng))
return 0;
struct CreatureStats *crstat;
struct CreatureControl *cctrl;
crstat = creature_stats_get_from_thing(creatng);
cctrl = creature_control_get_from_thing(creatng);
room->content_per_model[creatng->model]++;
room->used_capacity += crstat->lair_size;
if ((cctrl->lair_room_id > 0) && (cctrl->lairtng_idx > 0))
{
struct Room *room;
room = room_get(cctrl->lair_room_id);
creature_remove_lair_from_room(creatng, room);
}
cctrl->lair_room_id = room->index;
// Create the lair thing
struct CreatureData *crdata;
struct Coord3d pos;
pos.x.val = creatng->mappos.x.val;
pos.y.val = creatng->mappos.y.val;
pos.z.val = creatng->mappos.z.val;
crdata = creature_data_get_from_thing(creatng);
lairtng = create_object(&pos, crdata->field_1, creatng->owner, -1);
if (thing_is_invalid(lairtng))
{
ERRORLOG("Could not create lair totem");
remove_thing_from_mapwho(creatng);
place_thing_in_mapwho(creatng);
return 1; // Return that so we won't try to redo the action over and over
}
lairtng->mappos.z.val = get_thing_height_at(lairtng, &lairtng->mappos);
// Associate creature with the lair
cctrl->lairtng_idx = lairtng->index;
lairtng->word_13 = creatng->index;
lairtng->word_15 = 1;
// Lair size depends on creature level
lairtng->word_17 = 300 * cctrl->explevel / 20 + 300;
lairtng->field_52 = ACTION_RANDOM(0x800);
struct Objects *objdat;
unsigned long i;
objdat = get_objects_data_for_thing(lairtng);
i = convert_td_iso(objdat->field_5);
set_thing_draw(lairtng, i, objdat->field_7, lairtng->word_15, 0, -1, objdat->field_11);
thing_play_sample(creatng, 158, NORMAL_PITCH, 0, 3, 1, 2, FULL_LOUDNESS);
create_effect(&pos, imp_spangle_effects[creatng->owner], creatng->owner);
anger_set_creature_anger(creatng, 0, AngR_NoLair);
remove_thing_from_mapwho(creatng);
place_thing_in_mapwho(creatng);
return 1;
}
short setup_person_tunnel_to_position(struct Thing *creatng, MapSubtlCoord stl_x, MapSubtlCoord stl_y, unsigned char a4)
{
struct CreatureControl *cctrl;
if ( internal_set_thing_state(creatng, CrSt_Tunnelling) )
{
cctrl = creature_control_get_from_thing(creatng);
cctrl->moveto_pos.x.val = subtile_coord_center(stl_x);
cctrl->moveto_pos.y.val = subtile_coord_center(stl_y);
cctrl->moveto_pos.z.val = get_thing_height_at(creatng, &cctrl->moveto_pos);
}
return 0;
}
void setup_training_move(struct Thing *creatng, SubtlCodedCoords stl_num)
{
struct CreatureControl *cctrl;
cctrl = creature_control_get_from_thing(creatng);
cctrl->moveto_pos.x.val = subtile_coord_center(stl_num_decode_x(stl_num));
cctrl->moveto_pos.y.val = subtile_coord_center(stl_num_decode_y(stl_num));
cctrl->moveto_pos.z.val = get_thing_height_at(creatng, &cctrl->moveto_pos);
if (thing_in_wall_at(creatng, &cctrl->moveto_pos))
{
ERRORLOG("Illegal setup to wall at (%d,%d)",
(int)cctrl->moveto_pos.x.stl.num, (int)cctrl->moveto_pos.y.stl.num);
set_start_state(creatng);
}
SYNCDBG(18,"The %s is moving to (%d,%d)", thing_model_name(creatng),
(int)cctrl->moveto_pos.x.stl.num, (int)cctrl->moveto_pos.y.stl.num);
}
TbBool setup_workshop_move(struct Thing *thing, SubtlCodedCoords stl_num)
{
struct CreatureControl *cctrl;
cctrl = creature_control_get_from_thing(thing);
cctrl->moveto_pos.x.stl.num = stl_num_decode_x(stl_num);
cctrl->moveto_pos.x.stl.pos = 128;
cctrl->moveto_pos.y.stl.num = stl_num_decode_y(stl_num);
cctrl->moveto_pos.y.stl.pos = 128;
cctrl->moveto_pos.z.val = get_thing_height_at(thing, &cctrl->moveto_pos);
if (thing_in_wall_at(thing, &cctrl->moveto_pos))
{
ERRORLOG("Illegal setup to subtile (%d,%d)", (int)cctrl->moveto_pos.x.stl.num, (int)cctrl->moveto_pos.y.stl.num);
set_start_state(thing);
return false;
}
return true;
}
void get_nearest_navigable_point_for_thing(struct Thing *thing, struct Coord3d *pos1, struct Coord3d *pos2, NaviRouteFlags flags)
{
long nav_sizexy;
long px, py;
nav_thing_can_travel_over_lava = creature_can_travel_over_lava(thing);
if ((flags & AridRtF_NoOwner) != 0)
owner_player_navigating = -1;
else
owner_player_navigating = thing->owner;
nav_sizexy = thing_nav_block_sizexy(thing);
if (nav_sizexy > 0) nav_sizexy--;
nearest_search(nav_sizexy, thing->mappos.x.val, thing->mappos.y.val,
pos1->x.val, pos1->y.val, &px, &py);
pos2->x.val = px;
pos2->y.val = py;
pos2->z.val = get_thing_height_at(thing, pos2);
if (thing_in_wall_at(thing, pos2))
get_nearest_valid_position_for_creature_at(thing, pos2);
nav_thing_can_travel_over_lava = 0;
}
void move_thing_in_map_f(struct Thing *thing, const struct Coord3d *pos, const char *func_name)
{
SYNCDBG(18,"%s: Starting for %s index %d",func_name,thing_model_name(thing),(int)thing->index);
TRACE_THING(thing);
if ((thing->mappos.x.stl.num == pos->x.stl.num) && (thing->mappos.y.stl.num == pos->y.stl.num))
{
SYNCDBG(19,"Moving %s index %d from (%d,%d) to (%d,%d)",thing_model_name(thing),
(int)thing->index,(int)thing->mappos.x.val,(int)thing->mappos.y.val,(int)pos->x.val,(int)pos->y.val);
thing->mappos.x.val = pos->x.val;
thing->mappos.y.val = pos->y.val;
thing->mappos.z.val = pos->z.val;
} else
{
SYNCDBG(19,"Moving %s index %d from (%d,%d) to (%d,%d), subtile changed",thing_model_name(thing),
(int)thing->index,(int)thing->mappos.x.val,(int)thing->mappos.y.val,(int)pos->x.val,(int)pos->y.val);
remove_thing_from_mapwho(thing);
thing->mappos.x.val = pos->x.val;
thing->mappos.y.val = pos->y.val;
thing->mappos.z.val = pos->z.val;
place_thing_in_mapwho(thing);
}
thing->field_60 = get_thing_height_at(thing, &thing->mappos);
}
void process_creature_in_training_room(struct Thing *thing, struct Room *room)
{
static const struct Around corners[] = {
{1, 2},
{0, 1},
{1, 0},
{2, 1},
};
struct CreatureControl *cctrl;
struct CreatureStats *crstat;
struct Thing *traintng;
struct Thing *crtng;
struct CreatureControl *cctrl2;
struct Coord3d pos;
long speed,dist;
long i;
cctrl = creature_control_get_from_thing(thing);
SYNCDBG(8,"Starting %s mode %d",thing_model_name(thing),(int)cctrl->training.mode);
//_DK_process_creature_in_training_room(thing, room); return;
cctrl->field_4A = 0;
switch (cctrl->training.mode)
{
case CrTrMd_SearchForTrainPost:
// While we're in an instance, just wait
if (cctrl->instance_id != CrInst_NULL)
break;
// On timeout, search for nearby training posts to start training ASAP
if (cctrl->training.search_timeout < 1)
{
SYNCDBG(6,"Search timeout - selecting post nearest to (%d,%d)",(int)thing->mappos.x.stl.num, (int)thing->mappos.y.stl.num);
setup_training_search_for_post(thing);
cctrl->training.search_timeout = 100;
break;
}
// Do a moving step
cctrl->training.search_timeout--;
speed = get_creature_speed(thing);
i = creature_move_to(thing, &cctrl->moveto_pos, speed, 0, 0);
if (i == 1)
{
// Move target is reached - find a training post which is supposed to be around here
traintng = find_training_post_just_next_to_creature(thing);
if (thing_is_invalid(traintng))
{
SYNCDBG(6,"Reached (%d,%d) but there's no training post there",(int)thing->mappos.x.stl.num, (int)thing->mappos.y.stl.num);
setup_move_to_new_training_position(thing, room, false);
break;
}
// Found - go to next mode
cctrl->training.mode = CrTrMd_SelectPositionNearTrainPost;
cctrl->training.search_timeout = 50;
} else
if (i == -1)
{
ERRORLOG("Cannot get to (%d,%d) in the training room",(int)cctrl->moveto_pos.x.stl.num,(int)cctrl->moveto_pos.y.stl.num);
set_start_state(thing);
}
break;
case CrTrMd_SelectPositionNearTrainPost:
for (i=0; i < 4; i++)
{
long slb_x,slb_y;
long stl_x,stl_y;
struct SlabMap *slb;
slb_x = subtile_slab_fast(thing->mappos.x.stl.num) + (long)small_around[i].delta_x;
slb_y = subtile_slab_fast(thing->mappos.y.stl.num) + (long)small_around[i].delta_y;
slb = get_slabmap_block(slb_x,slb_y);
if ((slb->kind != SlbT_TRAINING) || (slabmap_owner(slb) != thing->owner))
continue;
stl_x = slab_subtile(slb_x,corners[i].delta_x);
stl_y = slab_subtile(slb_y,corners[i].delta_y);
traintng = INVALID_THING;
// Check if any other creature is using that post; allow only unused posts
crtng = get_creature_of_model_training_at_subtile_and_owned_by(stl_x, stl_y, -1, thing->owner, thing->index);
if (thing_is_invalid(crtng))
{
traintng = get_object_at_subtile_of_model_and_owned_by(slab_subtile_center(slb_x), slab_subtile_center(slb_y), 31, thing->owner);
}
if (!thing_is_invalid(traintng))
{
cctrl->training.pole_stl_x = slab_subtile_center(subtile_slab_fast(thing->mappos.x.stl.num));
cctrl->training.pole_stl_y = slab_subtile_center(subtile_slab_fast(thing->mappos.y.stl.num));
cctrl->moveto_pos.x.stl.num = stl_x;
cctrl->moveto_pos.y.stl.num = stl_y;
cctrl->moveto_pos.x.stl.pos = 128;
cctrl->moveto_pos.y.stl.pos = 128;
cctrl->moveto_pos.z.val = get_thing_height_at(thing, &cctrl->moveto_pos);
if (thing_in_wall_at(thing, &cctrl->moveto_pos))
{
ERRORLOG("Illegal setup to (%d,%d)", (int)cctrl->moveto_pos.x.stl.num, (int)cctrl->moveto_pos.y.stl.num);
break;
}
cctrl->training.mode = CrTrMd_MoveToTrainPost;
break;
}
}
if (cctrl->training.mode == CrTrMd_SelectPositionNearTrainPost)
setup_move_to_new_training_position(thing, room, 1);
break;
case CrTrMd_MoveToTrainPost:
speed = get_creature_speed(thing);
i = creature_move_to(thing, &cctrl->moveto_pos, speed, 0, 0);
if (i == 1)
{
// If there's already someone training at that position, go somewhere else
crtng = get_creature_of_model_training_at_subtile_and_owned_by(thing->mappos.x.stl.num, thing->mappos.y.stl.num, -1, thing->owner, thing->index);
if (!thing_is_invalid(crtng))
{
setup_move_to_new_training_position(thing, room, 1);
break;
}
// Otherwise, train at this position
cctrl->training.mode = CrTrMd_TurnToTrainPost;
} else
if (i == -1)
{
ERRORLOG("Cannot get where we're going in the training room.");
set_start_state(thing);
}
break;
case CrTrMd_TurnToTrainPost:
pos.x.val = subtile_coord_center(cctrl->training.pole_stl_x);
pos.y.val = subtile_coord_center(cctrl->training.pole_stl_y);
if (creature_turn_to_face(thing, &pos) < 56)
{
cctrl->training.mode = CrTrMd_DoTrainWithTrainPost;
cctrl->training.train_timeout = 75;
}
break;
case CrTrMd_PartnerTraining:
if (cctrl->training.partner_idx == 0)
{
setup_move_to_new_training_position(thing, room, false);
return;
}
crtng = thing_get(cctrl->training.partner_idx);
TRACE_THING(crtng);
if (!thing_exists(crtng) || (get_creature_state_besides_move(crtng) != CrSt_Training) || (crtng->creation_turn != cctrl->training.partner_creation))
{
SYNCDBG(8,"The %s cannot start partner training - creature to train with is gone.",thing_model_name(thing));
setup_move_to_new_training_position(thing, room, false);
return;
}
cctrl2 = creature_control_get_from_thing(crtng);
if (cctrl2->training.partner_idx != thing->index)
{
SYNCDBG(6,"The %s cannot start partner training - %s changed the partner.",thing_model_name(thing),thing_model_name(crtng));
cctrl->training.partner_idx = 0;
setup_move_to_new_training_position(thing, room, false);
break;
}
if (get_room_thing_is_on(crtng) != room)
{
SYNCDBG(8,"The %s cannot start partner training - partner has left the room.",thing_model_name(thing));
cctrl->training.partner_idx = 0;
cctrl2->training.partner_idx = 0;
setup_move_to_new_training_position(thing, room, false);
break;
}
crstat = creature_stats_get_from_thing(thing);
dist = get_combat_distance(thing, crtng);
if (dist > 284)
{
if (creature_move_to(thing, &crtng->mappos, get_creature_speed(thing), 0, 0) == -1)
{
WARNLOG("The %s cannot navigate to training partner",thing_model_name(thing));
setup_move_to_new_training_position(thing, room, false);
cctrl->training.partner_idx = 0;
}
} else
if (dist >= 156)
{
if (creature_turn_to_face(thing, &crtng->mappos) < 56)
{
cctrl->training.train_timeout--;
if (cctrl->training.train_timeout > 0)
{
if ((cctrl->instance_id == CrInst_NULL) && ((cctrl->training.train_timeout % 8) == 0))
{
set_creature_instance(thing, CrInst_SWING_WEAPON_SWORD, 1, 0, 0);
}
} else
{
if (cctrl->instance_id == CrInst_NULL)
{
setup_move_to_new_training_position(thing, room, false);
cctrl->training.partner_idx = 0;
} else
{
cctrl->training.train_timeout = 1;
}
cctrl->exp_points += (room->efficiency * crstat->training_value);
}
}
} else
{
creature_retreat_from_combat(thing, crtng, 33, 0);
}
break;
case CrTrMd_DoTrainWithTrainPost:
if (cctrl->training.train_timeout > 0)
{
// While training timeout is positive, continue initiating the train instances
cctrl->training.train_timeout--;
if ((cctrl->instance_id == CrInst_NULL) && ((cctrl->training.train_timeout % 8) == 0))
{
set_creature_instance(thing, CrInst_SWING_WEAPON_SWORD, 1, 0, 0);
}
} else
{
// Wait for the instance to end, then select new move position
if (cctrl->instance_id != CrInst_NULL)
{
cctrl->training.train_timeout = 0;
} else
{
cctrl->training.train_timeout = 0;
setup_move_to_new_training_position(thing, room, true);
}
}
break;
default:
WARNLOG("Invalid %s training mode %d; reset",thing_model_name(thing),(int)cctrl->training.mode);
cctrl->training.mode = CrTrMd_SearchForTrainPost;
cctrl->training.search_timeout = 0;
break;
}
SYNCDBG(18,"End");
}
TbBool create_workshop_object_in_workshop_room(PlayerNumber plyr_idx, ThingClass tngclass, ThingModel tngmodel)
{
struct Coord3d pos;
struct Thing *cratetng;
struct Room *room;
struct Dungeon *dungeon;
SYNCDBG(7,"Making player %d new %s",(int)plyr_idx,thing_class_code_name(tngclass));
pos.x.val = 0;
pos.y.val = 0;
pos.z.val = 0;
switch (tngclass)
{
case TCls_Trap:
cratetng = create_object(&pos, trap_crate_object_model(tngmodel), plyr_idx, -1);
break;
case TCls_Door:
cratetng = create_object(&pos, door_crate_object_model(tngmodel), plyr_idx, -1);
break;
default:
cratetng = INVALID_THING;
ERRORLOG("No known workshop crate can represent %s model %d",thing_class_code_name(tngclass),(int)tngmodel);
break;
}
if (thing_is_invalid(cratetng))
{
ERRORLOG("Could not create workshop crate thing for %s",thing_class_code_name(tngclass));
return false;
}
room = find_random_room_for_thing_with_spare_room_item_capacity(cratetng, plyr_idx, RoK_WORKSHOP, 0);
if (room_is_invalid(room))
{
ERRORLOG("No %s room found which would accept %s crate",room_code_name(RoK_WORKSHOP),thing_class_code_name(tngclass));
destroy_object(cratetng);
return false;
}
if (!find_random_valid_position_for_thing_in_room_avoiding_object(cratetng, room, &pos))
{
ERRORLOG("Could not find a place in %s index %d for the new %s crate",
room_code_name(room->kind),(int)room->index,thing_class_code_name(tngclass));
destroy_object(cratetng);
return false;
}
pos.z.val = get_thing_height_at(cratetng, &pos);
move_thing_in_map(cratetng, &pos);
if (!add_workshop_object_to_workshop(room, cratetng)) {
ERRORLOG("Could not fit %s crate in %s index %d",
thing_class_code_name(tngclass),room_code_name(room->kind),(int)room->index);
destroy_object(cratetng);
return false;
}
dungeon = get_players_num_dungeon(plyr_idx);
switch (tngclass)
{
case TCls_Trap:
if ((dungeon->trap_build_flags[tngmodel] & MnfBldF_Built) == 0) {
event_create_event(cratetng->mappos.x.val, cratetng->mappos.y.val, EvKind_NewTrap, plyr_idx, tngmodel);
}
break;
case TCls_Door:
if ((dungeon->door_build_flags[tngmodel] & MnfBldF_Built) == 0) {
event_create_event(cratetng->mappos.x.val, cratetng->mappos.y.val, EvKind_NewDoor, plyr_idx, tngmodel);
}
break;
default:
break;
}
create_effect(&pos, TngEff_Unknown56, cratetng->owner);
thing_play_sample(cratetng, 89, NORMAL_PITCH, 0, 3, 0, 2, FULL_LOUDNESS);
return true;
}
long creature_tunnel_to(struct Thing *creatng, struct Coord3d *pos, short speed)
{
struct CreatureControl *cctrl;
cctrl = creature_control_get_from_thing(creatng);
SYNCDBG(6,"Move %s from (%d,%d) to (%d,%d) with speed %d",thing_model_name(creatng),(int)creatng->mappos.x.stl.num,(int)creatng->mappos.y.stl.num,(int)pos->x.stl.num,(int)pos->y.stl.num,(int)speed);
//return _DK_creature_tunnel_to(creatng, pos, a3);
long i;
cctrl->navi.field_19[0] = 0;
if (get_2d_box_distance(&creatng->mappos, pos) <= 32)
{
// We've reached the destination
creature_set_speed(creatng, 0);
return 1;
}
i = cctrl->party.long_8B;
if ((i > 0) && (i < LONG_MAX))
{
cctrl->party.long_8B++;
}
if ((pos->x.val != cctrl->navi.pos_final.x.val)
|| (pos->y.val != cctrl->navi.pos_final.y.val)
|| (pos->z.val != cctrl->navi.pos_final.z.val))
{
pos->z.val = get_thing_height_at(creatng, pos);
initialise_wallhugging_path_from_to(&cctrl->navi, &creatng->mappos, pos);
}
long tnlret;
tnlret = get_next_position_and_angle_required_to_tunnel_creature_to(creatng, pos, cctrl->party.byte_8F);
if (tnlret == 2)
{
i = cctrl->navi.field_15;
if (cctrl->navi.field_17 != i)
{
cctrl->navi.field_17 = i;
} else
if (cctrl->instance_id == CrInst_NULL)
{
set_creature_instance(creatng, CrInst_TUNNEL, 0, 0, 0);
}
}
MapCoordDelta dist;
dist = get_2d_distance(&creatng->mappos, &cctrl->navi.pos_next);
if (dist <= 16)
{
creature_turn_to_face_angle(creatng, cctrl->navi.field_D);
creature_set_speed(creatng, 0);
return 0;
}
if (dist > 768)
{
ERRORLOG("Move %s index %d to (%d,%d) reset - wallhug distance %d too large",thing_model_name(creatng),(int)creatng->index,(int)pos->x.stl.num,(int)pos->y.stl.num,(int)dist);
clear_wallhugging_path(&cctrl->navi);
creature_set_speed(creatng, speed);
return 0;
}
if (creature_turn_to_face(creatng, &cctrl->navi.pos_next))
{
creature_set_speed(creatng, 0);
return 0;
}
cctrl->moveaccel.x.val = cctrl->navi.pos_next.x.val - (MapCoordDelta)creatng->mappos.x.val;
cctrl->moveaccel.y.val = cctrl->navi.pos_next.y.val - (MapCoordDelta)creatng->mappos.y.val;
cctrl->moveaccel.z.val = 0;
cctrl->flgfield_2 |= 0x01;
creature_set_speed(creatng, min(speed,dist));
return 0;
}
