From e5cf7e062d36983a2718bb33e0dcbae5fbae322c Mon Sep 17 00:00:00 2001
From: phobos2077 <phobos2077@gmail.com>
Date: Thu, 2 May 2024 12:03:24 +0200
Subject: [PATCH] EPA holograms: fixed duplicating timer events

---
 scripts_src/epa/epac4.ssl | 4 +++-
 scripts_src/epa/epac5.ssl | 4 +++-
 scripts_src/epa/epac6.ssl | 4 +++-
 scripts_src/epa/epac7.ssl | 4 +++-
 4 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/scripts_src/epa/epac4.ssl b/scripts_src/epa/epac4.ssl
index 48f10fde6d..532a785a06 100644
--- a/scripts_src/epa/epac4.ssl
+++ b/scripts_src/epa/epac4.ssl
@@ -51,7 +51,6 @@ variable Only_Once := 0;
 
 procedure start
 begin
-  add_timer_event(self_obj, game_ticks(random(4, 7)), 3);
 end
 
 procedure combat_p_proc
@@ -222,6 +221,9 @@ end
 procedure map_enter_p_proc
 begin
   Only_Once := 0;
+  if (not is_loading_game) then begin
+    add_timer_event(self_obj, game_ticks(random(4, 7)), 3);
+  end
 end
 
 procedure timed_event_p_proc
diff --git a/scripts_src/epa/epac5.ssl b/scripts_src/epa/epac5.ssl
index c55ff594bc..d62b51e057 100644
--- a/scripts_src/epa/epac5.ssl
+++ b/scripts_src/epa/epac5.ssl
@@ -42,7 +42,6 @@ variable Only_Once := 0;
 
 procedure start
 begin
-  add_timer_event(self_obj, game_ticks(random(5, 8)), 3);
 end
 
 procedure combat_p_proc
@@ -205,6 +204,9 @@ end
 procedure map_enter_p_proc
 begin
   Only_Once := 0;
+  if (not is_loading_game) then begin
+    add_timer_event(self_obj, game_ticks(random(5, 8)), 3);
+  end
 end
 
 procedure timed_event_p_proc
diff --git a/scripts_src/epa/epac6.ssl b/scripts_src/epa/epac6.ssl
index ce1232f80a..8148f1067a 100644
--- a/scripts_src/epa/epac6.ssl
+++ b/scripts_src/epa/epac6.ssl
@@ -56,7 +56,6 @@ variable Only_Once := 0;
 
 procedure start
 begin
-  add_timer_event(self_obj, game_ticks(random(5, 8)), 3);
 end
 
 procedure combat_p_proc
@@ -219,6 +218,9 @@ end
 procedure map_enter_p_proc
 begin
   Only_Once := 0;
+  if (not is_loading_game) then begin
+    add_timer_event(self_obj, game_ticks(random(5, 8)), 3);
+  end
 end
 
 procedure timed_event_p_proc
diff --git a/scripts_src/epa/epac7.ssl b/scripts_src/epa/epac7.ssl
index 7499f820ad..a6b5eea653 100644
--- a/scripts_src/epa/epac7.ssl
+++ b/scripts_src/epa/epac7.ssl
@@ -54,7 +54,6 @@ variable Only_Once := 0;
 
 procedure start
 begin
-   add_timer_event(self_obj, game_ticks(random(5, 8)), 3);
 end
 
 procedure combat_p_proc
@@ -217,6 +216,9 @@ end
 procedure map_enter_p_proc
 begin
   Only_Once := 0;
+  if (not is_loading_game) then begin
+    add_timer_event(self_obj, game_ticks(random(5, 8)), 3);
+  end
 end
 
 procedure timed_event_p_proc