procedure AppOnIdle(Ticks: integer);
begin
        if Ticks mod (3600 * 3) = 0 then begin
              SpawnObject(GetPlayerStat(1,'x'),GetPlayerStat(1,'y'),21);
end;
end;