From aaf4181ba947d6bcdde88893f5ab9e023485eec1 Mon Sep 17 00:00:00 2001 From: LainLayer Date: Sun, 24 Mar 2024 23:21:58 +0300 Subject: test reducing turn duration relative to queue size --- eepers.adb | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'eepers.adb') diff --git a/eepers.adb b/eepers.adb index 4e80714..5fc9079 100644 --- a/eepers.adb +++ b/eepers.adb @@ -143,7 +143,8 @@ procedure Eepers is Put_Line("WARNING: could not load colors from file " & File_Name & ": " & Exception_Message(E)); end; - TURN_DURATION_SECS : constant Float := 0.125; + BASE_TURN_DURATION_SECS : constant Float := 0.125; + TURN_DURATION_SECS : Float := BASE_TURN_DURATION_SECS; GUARD_ATTACK_COOLDOWN : constant Integer := 10; EEPER_EXPLOSION_DAMAGE : constant Float := 0.45; GUARD_TURN_REGENERATION : constant Float := 0.01; @@ -1493,6 +1494,12 @@ begin Command_Enqueue(Command_Queue, (Kind => Command_Plant)); end if; end if; + if Command_Queue.Size /= 0 then + TURN_DURATION_SECS := BASE_TURN_DURATION_SECS * (1.0 / Float(Command_Queue.Size)); + else + TURN_DURATION_SECS := BASE_TURN_DURATION_SECS; + end if; + Any_Key_Pressed := False; while not Any_Key_Pressed and then Get_Key_Pressed /= KEY_NULL loop Any_Key_Pressed := True; -- cgit v1.2.3