uses
SysUtils;
var
p1, p2: Pointer;
Match, Win, Loss, Points: Cardinal;
begin
while true do
begin
if Engine.WaitAction([laSysMsg], p1, p2) = laSysMsg then
begin
if Cardinal(p1) = 1673 then
begin
Match := PCardinal(Cardinal(p2) + 12)^;
Win := PCardinal(Cardinal(p2) + 20)^;
Loss := PCardinal(Cardinal(p2) + 28)^;
Points := PCardinal(Cardinal(p2) + 36)^;
print(format('Match: %d; Win: %d; Loss: %d; Points: %d', [Match, Win, Loss,
@n3str1xIt would be a little tricky to do that because I don't know the exact release date for all of them. Celestine MxC for example, you can't find any link on the internet except mine with it. I downloaded and saved it on my PC for years.
Recommended Posts