EPA holograms: fixed duplicating timer events

phobos2077 · May 2, 2024 · d73cb7c · d73cb7c
1 parent 33ef266
commit d73cb7c
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 4 deletions.
diff --git 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
@@ -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
@@ -55,7 +55,6 @@ variable Only_Once := 0;
 
 procedure start
 begin
-  add_timer_event(self_obj, game_ticks(random(5, 8)), 3);
 end
 
 procedure combat_p_proc
@@ -218,6 +217,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
@@ -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