From 36fe54e3e72928b87e2b89b47222a61cf5f56b7b Mon Sep 17 00:00:00 2001
From: Mike Brashler <mike.brashler@gmail.com>
Date: Sun, 9 Jun 2024 16:20:25 -0700
Subject: [PATCH] Fix #320 - QRM Station now has 2 to 6 second timeout delay

- Previous code was creating QRM stations with ~0.1 second timeout.
- This timeout is the time between transmissions.
- timeout delay is now 2 to 6 seconds using a limited gaussian distribution
---
 QrmStn.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/QrmStn.pas b/QrmStn.pas
index 1530406..6b6d1de 100644
--- a/QrmStn.pas
+++ b/QrmStn.pas
@@ -58,7 +58,7 @@ procedure TQrmStation.ProcessEvent(AEvent: TStationEvent);
       Dec(Patience);
       if Patience = 0
         then Free
-        else Timeout := Round(RndGaussLim(SecondsToBlocks(4), 2));
+        else Timeout := Round(RndGaussLim(SecondsToBlocks(4), SecondsToBlocks(2)));
       end;
     evTimeout:
       SendMsg(msgLongCQ);