Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

172 simplify SST exchanges #198

Merged
merged 2 commits into from
Mar 11, 2023
Merged

172 simplify SST exchanges #198

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
ef6246a
172 simplify SST exchanges
w7sst Mar 10, 2023
ee41048
172 drop dual exchange variant; fix spelling error
w7sst Mar 10, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
46 changes: 26 additions & 20 deletions CWSST.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -183,6 +183,8 @@ procedure TCWSST.GetExchange(id : integer; out station : TDxStation);
Adding a contest: TContest.SendMsg(AMsg): send contest-specfic messages
}
procedure TCWSST.SendMsg(const AStn: TStation; const AMsg: TStationMessage);
var
prefix : String;
begin
case AMsg of
msgCQ: SendText(AStn, 'CQ SST <my>'); // sent by MyStation
Expand All @@ -193,27 +195,31 @@ procedure TCWSST.SendMsg(const AStn: TStation; const AMsg: TStationMessage);
3: SendText(AStn, 'ST?');
4: SendText(AStn, 'AGN?');
end;
msgTU: // sent by MyStation
case Random(20) of
0..9: SendText(AStn, '73 E E'); // 50%
10..13: SendText(AStn, 'GL <HisName> TU'); // 20%
14: SendText(AStn, 'GL OM 73 E E'); // 5%
15: SendText(AStn, 'FB 73 E E'); // 5%
16: SendText(AStn, 'OK FB TU 73'); // 5%
17: SendText(AStn, 'GL <HisName> TU <my> SST'); // 5%
18: SendText(AStn, 'TU E E'); // 5%
19: SendText(AStn, '73 DE <my> SST'); // 5%
end;
msgR_NR: // sent by calling station (DxStation)
msgTU: // TU message sent by MyStation
if Random < 0.9
then SendText(AStn, '<greeting> <#>')
else SendText(AStn, 'R <greeting> <#>');
msgR_NR2: // sent by calling station (DxStation)
case Random(20) of
0..8: SendText(AStn, '<greeting> <#> <#>');
9..17: SendText(AStn, '<greeting> <exch1> <exch1> <exch2> <exch2>');
18: SendText(AStn, 'R <greeting> <#> <#>');
19: SendText(AStn, 'R <greeting> <exch1> <exch1> <exch2> <exch2>');
then SendText(AStn, 'TU')
else SendText(AStn, 'TU <my>');
msgR_NR: // exchange msg sent by remote station in response to my exchange
begin
// leading 'R ' 10% of the time
prefix := '';
if Random < 0.10 then prefix := 'R ';

// include a presentry greeting 20% of the time
if Random < 0.20 then prefix := prefix + '<greeting> ';

SendText(AStn, prefix + '<#>');
end;
msgR_NR2: // repeated exchange sent by remote station (DxStation)
begin
// leading 'R ' 10% of the time
prefix := '';
if Random < 0.10 then prefix := 'R ';

// include a pleasantry greeting 20% of the time
if Random < 0.20 then prefix := prefix + '<greeting> ';

SendText(AStn, prefix + '<#> <#>');
end;
msgLongCQ: SendText(AStn, 'CQ CQ SST <my> <my>'); // QrmStation only
else
Expand Down