fix for dogmeat's ai packet, ref BGforgeNet/Fallout2_Restoration_Proj…

…ect#154

data/data/party.txt

@@ -267,7 +267,7 @@ best_weapon=unarmed
 chem_use=clean
 distance=stay_close, charge, on_your_own, stay
 run_away_mode=none, not_feeling_good, tourniquet, never
-disposition=none, custom, aggressive, berserk
+disposition=none, custom, aggressive
 level_minimum=6
 level_up_every=3
 level_pids=16777559,16777560,16777561,16777562,16777563,16777564

scripts_src/global/gl_k_dogmeat_fix.ssl

@@ -0,0 +1,20 @@
+// temp fix for Dogmeat floats, see https://github.com/BGforgeNet/Fallout2_Restoration_Project/issues/154
+
+#define SCRIPT_REALNAME "gl_k_dogmeat_fix"
+#include "../headers/define.h"
+#include "../headers/command.h"
+
+procedure map_enter_p_proc begin
+    if Dogmeat_Ptr then begin
+        variable aiPacket := get_ai(Dogmeat_Ptr);
+        if (aiPacket != AI_PARTY_DOGMEAT_AGRESSIVE) and (aiPacket != AI_PARTY_DOGMEAT_CUSTOM) then begin
+            set_ai(Dogmeat_Ptr, AI_PARTY_DOGMEAT_CUSTOM); // reset
+        end
+    end
+end
+
+procedure start begin
+    if game_loaded then begin
+        call map_enter_p_proc;
+    end
+end