while (true) do
begin
Engine.WaitAction([laSysMsg], p1, p2);
print(p1);
case p1 of
2088: begin print('10 минут до осады'); Engine.BlinkWindow(true); PlaySound('Sounds/hp.wav'); end;
2090: begin print('Осада началась'); Engine.BlinkWindow(true); PlaySound('Sounds/hp.wav'); end;
end;
end;
пример куска кода из скрипта Krickt
Идем в наш systemmsg-e.dat
1153 1 u,$s2 было куплено $s1 по цене $s3 аден.\0 0 79 9B B0 FF a, a, 0 0 0 0 0 a, a,none\0
1154 1 u,$s2 $s3 были куплены у $s1 за $s4 аден.\0 0 79 9B B0 FF a, a, 0 0 0 0 0 a, a,none\0
1155 1 u,+$s2$s3 было продано $s1 по цене $s4 аден.\0 0 79 9B B0 FF a, a, 0 0 0 0 0 a, a,none\0
1156 1 u,+$s2$s3 был куплен у $s1 за $s4 аден.\0 0 79 9B B0 FF a, a, 0 0 0 0 0 a, a,none\0
Думаю дальше вы сами =)