CWT Contest - 'R' is now sent only 10% of the time

Usual contest behavior is to send NAME/NR without a leading acknowledgement.
w7sst · Feb 8, 2023 · d53260d · d53260d
1 parent 8229bcd
commit d53260d
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/Station.pas b/Station.pas
@@ -166,15 +166,21 @@ procedure TStation.SendMsg(AMsg: TStationMessage);
     msgR_NR: begin
       // Adding a contest: TStation.SendMsg(msgR_NR): send 'R <#>' message, where # is exch (e.g. 3A OR)
       case SimContest of
-        scCwt: SendText('R <#>');
+        scCwt:
+          if (random < 0.9)
+            then SendText('<#>')
+            else SendText('R <#>');
       else
         SendText('R <#>');
       end;
     end;
     msgR_NR2: begin
       // Adding a contest: TStation.SendMsg(msgR_NR2): send 'R <#> <#>' message, where # is exch (e.g. 3A OR)
       case SimContest of
-        scCwt: SendText('R <#> <#>');
+        scCwt:
+          if (random < 0.9)
+            then SendText('<#> <#>')
+            else SendText('R <#> <#>');
       else
         SendText('R <#> <#>');
       end;