program MissionScript;

begin
   if Time = 400 then
     ShowMessage(0, 1); //Show message to player_0

   if HouseBuilt(0, 5) then //player_0 has built Tannery
     GiveWares(0, 8, 100); //Give player_0 100 Coal

   if ((Time = 100) and UnitCount(0) >=30) or (WareCount(0,8) < 100) then //If player 0 has more than 30 units after 10sec or has less than 100 Coal
     Defeat(0); //Proclaim player_0 defeated
end;

var  
   NextMsg: Integer;
   NextTime: Integer;
   MsgShown: array [0..29] of Boolean;

   procedure Show(aMsg, aMsg2: Byte);
   begin
     if MsgShown[aMsg] then Exit; //Show messages only once

     Actions.ShowMsg(0, aMsg);
     if aMsg2 <> 0 then
     begin
       NextMsg := aMsg2;
       NextTime := States.GameTime + 100;
     end;
     MsgShown[aMsg] := True;
   end;

procedure OnHouseBuilt(aIndex: Integer; aHouseType: Integer);
begin
   if aIndex = 0 then //Make sure we process only human player
   case aHouseType of
     13: Show(4,5);
     27: Show(6,0);
     14: Show(7,0);
      9: Show(8,0);
      0: Show(9,0);
      6: Show(10,0);
      8: Show(11,0);
     22: Show(12,0);
      7: Show(13,0);
     28: Show(14,0);
     16: Show(15,0);
     24: Show(16,0);
     21: Show(17,18);
     19: Show(19,20);
     25: Show(21,0);
     20: Show(22,23);
   end;
end;

procedure OnPlayerDefeated(aIndex: Integer);
begin
   if aIndex = 1 then Actions.ShowMsg(0, 24);
   if aIndex = 2 then Actions.ShowMsg(0, 25);
end;

begin
   if States.GameTime = 30 then Actions.ShowMsg(0,1);
   if States.GameTime = 160 then Actions.ShowMsg(0,2);
   if States.GameTime = 340 then Actions.ShowMsg(0,3);

   if States.GameTime = NextTime then Actions.ShowMsg(0,NextMsg);
end.

Теоретически можнобылобы уже делать миссии с заданиями не просто "Убить всех врагов", а например "переманить врага на свою сторону", "ограбить чужой город" в прямом смысле, или допустим союзник бот сможет при определенных условиях отдать вам свое войско. Но это всё детали.