0 Members and 1 Guest are viewing this topic.
var numberID: byte;procedure AppOnIdle(Ticks: integer);begin for numberID:=1 to 32 do begin if GetObjectStat(numberID,'Active') and GetObjectStat(numberID,'Style') = 25 then // That WriteConsole is only to debug WriteConsole(0,'X: '+GetObjectStat(numberID,'X')+' / Y: '+GetObjectStat(numberID,'Y'),$EE81FAA1); end;end;