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,
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.