Merge pull request #114 from BGforgeNet/dev/autoclose

Dev/autoclose

Author: burner1024

mods/fo2tweaks.ini

@@ -13,9 +13,10 @@ improved_grenades=1
 molotov_fire=1
 ; Limit max knockback distance in hexes. -1 is vanilla (unlimited). 0 is no knockback at all. 1 is "up to 1 hex". Etc.
 max_knockback=-1
-; enable bottomless trunk
+; Enable bottomless trunk
 trunk_space=0
-; automatically open/walk through unlocked doors when not in combat
+; Automatically open/walk through unlocked doors when not in combat
+; Set to 2 to automatically close the doors then not in combat, too.
 autodoors=1
 ; (virtually) unlimited carry weight
 carry_weight=0

source/gl_g_autodoors.ssl

@@ -6,17 +6,25 @@ procedure start;
 procedure map_enter_p_proc;
 procedure set_door_flag(variable state);
 procedure gamemode_handler;
+procedure autoclose;
+procedure close_door(variable door);
 
 #define PORTAL      (0)
 #define DOOR_FLAGS  (0x24)
+
+/**
+ * If there's any party member within this distance, door won't autoclose.
+ */
+#define DOOR_CLOSE_DIST  5
+
 #define set_autodoors "autodoors"
 variable only_once = 0;
 variable enabled = 0;
 
 procedure start begin
   if game_loaded then begin
     enabled = fo2tweaks_setting(sec_main, set_autodoors);
-    if enabled == 1 then begin
+    if enabled > 0 then begin
       register_hook_proc(HOOK_GAMEMODECHANGE, gamemode_handler);
       call map_enter_p_proc;
       ndebug("initialized");
@@ -25,7 +33,12 @@ procedure start begin
 end
 
 procedure map_enter_p_proc begin
-  if enabled == 1 then call set_door_flag(FLAG_WALKTHRU);
+  if enabled > 0 then call set_door_flag(FLAG_WALKTHRU);
+end
+
+procedure map_update_p_proc begin
+  if combat_is_initialized then return;
+  if enabled > 1 then call autoclose;
 end
 
 procedure set_door_flag(variable flag) begin
@@ -47,3 +60,26 @@ procedure gamemode_handler begin
     ndebug("combat started, disabled walking through doors");
   end
 end
+
+/**
+ * Iterate over scenery, call close_door on each door.
+ */
+procedure autoclose() begin
+  variable obj;
+  foreach (obj in list_as_array(LIST_SCENERY)) begin
+    if is_door(obj) then call close_door(obj);
+  end
+end
+
+/**
+ * Closes the door, if there are no nearby party members.
+ */
+procedure close_door(variable door) begin
+  variable who;
+  if not (obj_is_open(door)) then return;
+  if (tile_distance_objs(dude_obj, door) <= DOOR_CLOSE_DIST) then return;
+  foreach who in party_member_list_critters begin
+    if (tile_distance_objs(who, door) <= DOOR_CLOSE_DIST) then return;
+  end
+  obj_close(door);
+end