procedure OnTick;
begin 
      if States.GameTime = 1500 then
    Actions.ShowMsg(0,'<$0>');
      if States.GameTime = 1500 then
        begin
          Actions.GiveHouse(1,11,101,82);
          Actions.GiveRoad(1,101,83);
          Actions.GiveWares(1,1,200);
          Actions.GiveWares(1,2,20);
          Actions.GiveWares(1,10,1000);
          Actions.GiveWares(1,13,1000);
          Actions.GiveUnit(1,0,1,91,4);
          Actions.GiveUnit(1,0,1,90,4);
          Actions.GiveUnit(1,0,1,89,4);
          Actions.GiveUnit(1,0,1,88,4);
          Actions.GiveUnit(1,9,1,87,4);
          Actions.GiveUnit(1,9,1,86,4);
          Actions.GiveUnit(1,9,1,85,4);
          Actions.GiveUnit(1,9,2,85,4);
          Actions.GiveUnit(1,13,2,86,4);
          Actions.GiveUnit(1,13,2,87,4);
          Actions.GiveGroup(1,16,13,82,1,12,4);
          Actions.GiveGroup(1,18,8,84,1,12,4);
          Actions.PlanAddHouse(1,27,105,84);
          Actions.PlanAddHouse(1,17,98,73);
          Actions.PlanAddHouse(1,17,92,78);
          Actions.PlanAddRoad(1,99,80);
          Actions.PlanAddRoad(1,99,79);
          Actions.PlanAddRoad(1,99,78);
          Actions.PlanAddRoad(1,99,77);
          Actions.PlanAddRoad(1,99,76);
          Actions.PlanAddRoad(1,99,75);
          Actions.PlanAddRoad(1,98,75);
          Actions.PlanAddRoad(1,98,74);
          Actions.PlanAddRoad(1,98,81);
          Actions.PlanAddRoad(1,97,81);
          Actions.PlanAddRoad(1,96,81);
          Actions.PlanAddRoad(1,95,81);
          Actions.PlanAddRoad(1,94,81);
          Actions.PlanAddRoad(1,94,80);
          Actions.PlanAddRoad(1,94,79);
          Actions.PlanAddRoad(1,93,79);
          Actions.PlanAddRoad(1,92,79);
          Actions.PlanAddRoad(1,99,81);
          Actions.PlanAddRoad(1,99,82);
          Actions.PlanAddRoad(1,99,83);
          Actions.PlanAddRoad(1,100,83);
          Actions.PlanAddRoad(1,102,83);
          Actions.PlanAddRoad(1,102,84);
          Actions.PlanAddRoad(1,102,85);
          Actions.PlanAddRoad(1,103,85);
          Actions.PlanAddRoad(1,104,85);
          Actions.PlanAddRoad(1,105,85);
         end;

end;


