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
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.