Randomize;
переменная := random(100); //выпадения случайного числа от 0 до 99

var R: Integer;

procedure OnMissionStart;
begin
R := States.KaMRandomI(28);
end;

procedure OnTick;
begin
if States.GameTime = 1000 then
Actions.GiveWares(0, R, 10);
end;

if TimeActivHouse > 0 then
     TimeActivHouse:=TimeActivHouse-1
   else begin
     RandomActivHouse:=States.KaMRandomI(40);
     TimeActivHouse:=10000;
   end;
   Case RandomActivHouse of
     0:Actions.HouseAllow(0,0,True);
  17:Actions.HouseAddWaresTo(States.HouseAt(84,49),2,7);
  15:Actions.HouseAddWaresTo(States.HouseAt(84,49),1,11);
  25:Actions.HouseAllow(0,7,True);
  10:Actions.HouseAllow(0,28,True);
   end;