variable ProtoOfItemGiven;
variable ValueOfRollCheck := 1;
variable Scenery_Creation;
variable Scenery_Creation_Hex;
variable Scenery_Creation_Count;
variable Temp_Scenery_Creation_Hex;
variable Scenery_Creation_Ptr;
variable How_Many_Party_Members_Are_Injured;
variable How_Many_Party_Members_Armed;
variable PartyHealingItem;
procedure checkPartyMembersNearDoor;
variable global_temp;
variable dest_tile;
variable step_tile;
variable in_dialog;
variable forced_node;
variable restock_amt;
variable restock_obj;
variable restock_trash;
variable removed_qty;
procedure checkPartyMembersNearDoor
begin
if (party_member_obj(16777278) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777278)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777376) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777376)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777377) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777377)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777305) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777305)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777313) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777313)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777323) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777323)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777352) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777352)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777378) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777378)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777368) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777368)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777379) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777379)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777380) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777380)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777295) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777295)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777381) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777381)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777407) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777407)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777411) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777411)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777412) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777412)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777413) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777413)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777481) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777481)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777558) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777558)) <= 5) then begin
return 1;
end
end
if (party_member_obj(16777600) != 0) then begin
if (tile_distance_objs(self_obj, party_member_obj(16777600)) <= 5) then begin
return 1;
end
end
return 0;
end