--    if not ShowBuyLandDialog then ShowSellLandDialog;
--    ShowEatDialog;
--    if isSow then ShowSowDialog;
--    if isScience then ShowScienceDialog;
--    if isPort then
--    begin
--      ShowShipBuildDialog;
--      ShowPortDialog;
--    end;
--    ShowNews; // => ShowNewInventions
--    if CheckForWar>0 then
--      if not ShowPeaceTalkDialog then
--        begin
--          ShowWarDeclareDialog;
--          GoWar;
--        end;
--    BuildSomething;
--  until False;
