From 781fc3259fcaecf8d3b8368e17d9e213b3203a0d Mon Sep 17 00:00:00 2001
From: NovaRain <novarain@gmail.com>
Date: Wed, 1 May 2024 08:26:29 +0800
Subject: [PATCH] - Fixed: possible crash when talking to Katja when escaping
 the military base

(incorrect talk_p_proc setup, closes #235)
---
 .../Mapper/source/scripts/MAIN/KATJA.ssl      | 39 ++++++++-----------
 1 file changed, 17 insertions(+), 22 deletions(-)

diff --git a/Fallout2/Fallout1in2/Mapper/source/scripts/MAIN/KATJA.ssl b/Fallout2/Fallout1in2/Mapper/source/scripts/MAIN/KATJA.ssl
index 98692c4a0..1300cb6aa 100644
--- a/Fallout2/Fallout1in2/Mapper/source/scripts/MAIN/KATJA.ssl
+++ b/Fallout2/Fallout1in2/Mapper/source/scripts/MAIN/KATJA.ssl
@@ -226,29 +226,24 @@ procedure talk_p_proc begin
       self_look_at_dude;
    dude_look_at_self;
 
-   start_gdialog(623, self_obj, 4, -1, -1);
-   gsay_start;
-      if (Katja_In_Party or party_is_waiting) then begin
-         gdialog_set_barter_mod(255);
-      end
+   if (Katja_In_Party or party_is_waiting) then begin
+      gdialog_set_barter_mod(255);
+   end
 
-      if katja_is_prisoner then begin
-         float_katja(3503);
-         set_katja_prisoner(false);
-         katja_joins_party;
-      end
-      else if (Katja_In_Party or party_is_waiting) then begin
-         //call Katja24;
-         call Node1000;
-      end
-      else if (global_var(GVAR_KATJA_HIRELING_STATUS) == 1) then begin
-         call Katja25;
-      end
-      else begin
-         call Katja01;
-      end
-   gsay_end;
-   end_dialogue;
+   if katja_is_prisoner then begin
+      float_katja(3503);
+      set_katja_prisoner(false);
+      katja_joins_party;
+   end
+   else if (Katja_In_Party or party_is_waiting) then begin
+      start_dialog_at_node(Node1000);
+   end
+   else if (global_var(GVAR_KATJA_HIRELING_STATUS) == 1) then begin
+      start_dialog_at_node(Katja25);
+   end
+   else begin
+      start_dialog_at_node(Katja01);
+   end
 
    if (lock) then begin
       call pick_lock;