 procedure OnTick;
begin
      if States.GameTime = 60 then
    Actions.ShowMsg(0, '<$0>');
      if States.GameTime = 750 then
    Actions.ShowMsg(0, '<$2>');
      if States.GameTime = 400 then
    Actions.ShowMsg(0, '<$1>');
      if States.GameTime = 400 then
        begin
          Actions.GiveHouse(0,11,23,105);
          Actions.HouseAddWaresTo(11,1,20);
          Actions.GiveRoad(0,23,106);
          Actions.GiveUnit(0,0,23,106,4);
          Actions.GiveUnit(0,9,23,107,4);
          Actions.GiveUnit(0,0,22,106,4);
          Actions.GiveUnit(0,0,24,106,4);
          Actions.GiveUnit(0,9,24,107,4);
          Actions.GiveWares(0,1,70);
          Actions.GiveWares(0,2,50);
          Actions.GiveWares(0,7,55);
          Actions.GiveWares(0,8,60);
          Actions.GiveWares(0,10,40);
          Actions.GiveWares(0,13,30);
        end;

end;