short creature_drop_body_in_prison(struct Thing *thing)
{
struct CreatureControl *cctrl;
cctrl = creature_control_get_from_thing(thing);
struct Thing *dragtng;
dragtng = thing_get(cctrl->dragtng_idx);
if (!thing_exists(dragtng) || !creature_is_being_unconscious(dragtng)) {
set_start_state(thing);
return 0;
}
if (!subtile_is_room(thing->mappos.x.stl.num, thing->mappos.y.stl.num)) {
set_start_state(thing);
return 0;
}
struct Room *room;
room = get_room_thing_is_on(thing);
if ((room->owner != thing->owner) || (room->kind != RoK_PRISON)) {
set_start_state(thing);
return 0;
}
make_creature_conscious(dragtng);
initialise_thing_state(dragtng, CrSt_CreatureArrivedAtPrison);
struct CreatureControl *dragctrl;
dragctrl = creature_control_get_from_thing(dragtng);
dragctrl->flgfield_1 |= CCFlg_NoCompControl;
set_start_state(thing);
return 1;
}
void creature_stop_affected_by_call_to_arms(struct Thing *thing)
{
struct CreatureControl *cctrl;
cctrl = creature_control_get_from_thing(thing);
cctrl->spell_flags &= ~CSAfF_CalledToArms;
if (!thing_is_picked_up(thing) && !creature_is_being_unconscious(thing))
{
if (creature_is_called_to_arms(thing)) {
set_start_state(thing);
}
}
}
TbBool find_combat_target_passing_by_subtile_but_having_unrelated_job(const struct Thing *creatng, CreatureJob job_kind, MapSubtlCoord stl_x, MapSubtlCoord stl_y, unsigned long *found_dist, struct Thing **found_thing)
{
struct Thing *thing;
struct Map *mapblk;
long i;
unsigned long k;
long dist;
mapblk = get_map_block_at(stl_x,stl_y);
k = 0;
i = get_mapwho_thing_index(mapblk);
while (i != 0)
{
thing = thing_get(i);
TRACE_THING(thing);
if (thing_is_invalid(thing))
{
ERRORLOG("Jump to invalid thing detected");
break;
}
i = thing->next_on_mapblk;
// Per thing code start
if (thing_is_creature(thing) && (thing->index != creatng->index) && !creature_has_job(thing, job_kind)
&& !creature_is_kept_in_custody(thing) && !creature_is_being_unconscious(thing)
&& !creature_is_dying(thing) && !creature_is_doing_anger_job(thing))
{
if (!creature_is_invisible(thing) || creature_can_see_invisible(creatng))
{
dist = get_combat_distance(creatng, thing);
// If we have combat sight - we want that target, don't search anymore
if (creature_can_see_combat_path(creatng, thing, dist) > AttckT_Unset)
{
*found_dist = dist;
*found_thing = thing;
return true;
}
// No combat sight - but maybe it's at least closer than previous one
if ( *found_dist > dist )
{
*found_dist = dist;
*found_thing = thing;
}
}
}
// Per thing code end
k++;
if (k > THINGS_COUNT)
{
ERRORLOG("Infinite loop detected when sweeping things list");
break;
}
}
return false;
}
TbBool find_pressure_trigger_trap_target_passing_by_subtile(const struct Thing *traptng, MapSubtlCoord stl_x, MapSubtlCoord stl_y, struct Thing **found_thing)
{
struct Thing *thing;
struct Map *mapblk;
long i;
unsigned long k;
mapblk = get_map_block_at(stl_x,stl_y);
k = 0;
i = get_mapwho_thing_index(mapblk);
while (i != 0)
{
thing = thing_get(i);
TRACE_THING(thing);
if (thing_is_invalid(thing))
{
ERRORLOG("Jump to invalid thing detected");
break;
}
i = thing->next_on_mapblk;
// Per thing code start
if (thing_is_creature(thing) && (thing->owner != traptng->owner))
{
if (!creature_is_being_unconscious(thing) && !thing_is_dragged_or_pulled(thing)
&& !creature_is_kept_in_custody_by_enemy(thing) && !creature_is_dying(thing)
&& ((get_creature_model_flags(thing) & CMF_IsSpectator) == 0))
{
if (!is_neutral_thing(thing) && !players_are_mutual_allies(traptng->owner,thing->owner))
{
*found_thing = thing;
return true;
}
}
}
// Per thing code end
k++;
if (k > THINGS_COUNT)
{
ERRORLOG("Infinite loop detected when sweeping things list");
break;
}
}
return false;
}
TbBool update_trap_trigger_line_of_sight_90_on_subtile(struct Thing *traptng, MapSubtlCoord stl_x, MapSubtlCoord stl_y)
{
struct Thing *thing;
struct Map *mapblk;
long i;
unsigned long k;
mapblk = get_map_block_at(stl_x,stl_y);
k = 0;
i = get_mapwho_thing_index(mapblk);
while (i != 0)
{
thing = thing_get(i);
TRACE_THING(thing);
if (thing_is_invalid(thing))
{
ERRORLOG("Jump to invalid thing detected");
break;
}
i = thing->next_on_mapblk;
// Per thing code start
if (thing_is_creature(thing) && (thing->owner != traptng->owner))
{
// Trigger for enemy player, or any player for neutral traps (otherwise neutral traps would be useless)
if (players_are_enemies(traptng->owner,thing->owner) || is_neutral_thing(traptng))
{
if (!creature_is_being_unconscious(thing) && !thing_is_dragged_or_pulled(thing)
&& !creature_is_kept_in_custody_by_enemy(thing) && !creature_is_dying(thing)
&& ((get_creature_model_flags(thing) & CMF_IsSpectator) == 0)) {
activate_trap(traptng, thing);
return true;
}
}
}
// Per thing code end
k++;
if (k > THINGS_COUNT)
{
ERRORLOG("Infinite loop detected when sweeping things list");
break;
}
}
return false;
}
void god_lightning_choose_next_creature(struct Thing *shotng)
{
SYNCDBG(16,"Starting for %s index %d owner %d",thing_model_name(shotng),(int)shotng->index,(int)shotng->owner);
//_DK_god_lightning_choose_next_creature(shotng); return;
long best_dist;
struct Thing *best_thing;
best_dist = LONG_MAX;
best_thing = INVALID_THING;
unsigned long k;
int i;
const struct StructureList *slist;
slist = get_list_for_thing_class(TCls_Creature);
k = 0;
i = slist->index;
while (i != 0)
{
struct Thing *thing;
thing = thing_get(i);
if (thing_is_invalid(thing))
{
ERRORLOG("Jump to invalid thing detected");
break;
}
i = thing->next_of_class;
// Per-thing code
//TODO use hit_type instead of hard coded conditions
if ((shotng->owner != thing->owner) && !thing_is_picked_up(thing)
&& !creature_is_being_unconscious(thing) && !creature_is_dying(thing))
{
long dist;
dist = get_2d_distance(&shotng->mappos, &thing->mappos);
if (dist < best_dist)
{
const struct MagicStats *pwrdynst;
pwrdynst = get_power_dynamic_stats(PwrK_LIGHTNING);
int spell_lev;
spell_lev = shotng->shot.byte_19;
if (spell_lev > SPELL_MAX_LEVEL)
spell_lev = SPELL_MAX_LEVEL;
if (subtile_coord(pwrdynst->strength[spell_lev],0) > dist)
{
if (line_of_sight_2d(&shotng->mappos, &thing->mappos)) {
best_dist = dist;
best_thing = thing;
}
}
}
}
// Per-thing code ends
k++;
if (k > slist->count)
{
ERRORLOG("Infinite loop detected when sweeping things list");
erstat_inc(ESE_InfChainTngPerClass);
break;
}
}
SYNCDBG(8,"The best target for %s index %d owner %d is %s index %d owner %d",
thing_model_name(shotng),(int)shotng->index,(int)shotng->owner,
thing_model_name(best_thing),(int)best_thing->index,(int)best_thing->owner);
if (!thing_is_invalid(best_thing)) {
shotng->shot.target_idx = best_thing->index;
} else {
shotng->shot.target_idx = 0;
}
}
struct Thing * find_imp_for_pickup(struct Computer2 *comp, MapSubtlCoord stl_x, MapSubtlCoord stl_y)
{
struct Dungeon *dungeon;
int pick1_dist;
struct Thing *pick1_tng;
int pick2_dist;
struct Thing *pick2_tng;
//return _DK_find_imp_for_pickup(comp, stl_x, stl_y);
dungeon = comp->dungeon;
pick1_dist = INT_MAX;
pick2_dist = INT_MAX;
pick2_tng = INVALID_THING;
pick1_tng = INVALID_THING;
long i;
unsigned long k;
k = 0;
i = dungeon->digger_list_start;
while (i != 0)
{
struct Thing *thing;
struct CreatureControl *cctrl;
thing = thing_get(i);
cctrl = creature_control_get_from_thing(thing);
if (thing_is_invalid(thing) || creature_control_invalid(cctrl))
{
ERRORLOG("Jump to invalid creature detected");
break;
}
i = cctrl->players_next_creature_idx;
// Thing list loop body
if (cctrl->combat_flags == 0)
{
if (!creature_is_being_unconscious(thing) && !creature_affected_by_spell(thing, SplK_Chicken))
{
if (!creature_is_being_dropped(thing) && can_thing_be_picked_up_by_player(thing, dungeon->owner))
{
MapSubtlDelta dist;
long state_type;
dist = abs(stl_x - (MapSubtlDelta)thing->mappos.x.stl.num) + abs(stl_y - (MapSubtlDelta)thing->mappos.y.stl.num);
state_type = get_creature_state_type(thing);
if (state_type == CrStTyp_Work)
{
if (dist < pick1_dist)
{
pick1_dist = dist;
pick1_tng = thing;
}
}
else
{
if (dist < pick2_dist)
{
pick2_dist = dist;
pick2_tng = thing;
}
}
}
}
}
// Thing list loop body ends
k++;
if (k > CREATURES_COUNT)
{
ERRORLOG("Infinite loop detected when sweeping creatures list");
break;
}
}
if (!thing_is_invalid(pick2_tng)) {
return pick2_tng;
} else {
return pick1_tng;
}
}