censored/newspaper.lua

newspaper_1 = news{
 nam = 'Передовица газеты «Чеканный час», номер 56',
 news = {
  'Дворники осваивают новую технику',
  'Новый вид двигателя изобретён здесь',
  'ДТП на улице Кириллова: мальчик попал под карету «Скорой помощи»',
  'Неизвестный хулиган разбил окно НИИ Мягких Игрушек',
  'На самом деле небо -- зелёное',
  'О чём думают ангелы. Интервью с епископом Фомой.'
 },
 walk = 'newspaper_2'
};

sign_newspaper_1 = obj{
 nam = "УТВЕРДИТЬ СТАТЬИ",
 dsc = txtc("{УТВЕРДИТЬ ВЫДЕЛЕННЫЕ СТАТЬИ, ОТЛОЖИТЬ ОСТАЛЬНЫЕ}"),
 act = function()
  local Julia = 0
  for i,headline in ipairs(newspaper_1.obj) do
   if(headline._enabled) then Julia = Julia + 1 end
  end
  if (Julia==0) then return true end
  if (is_printed('Дворники осваивают новую технику',newspaper_1)) then
   table.insert(newspaper_2.obj, table.maxn(newspaper_2.obj), headline('Старая метла лучше новой метёт'))
  end
  return walk(newspaper_1.walk)
 end
}

newspaper_2 = news{
 nam = 'Передовица газеты «Чеканный час», номер 57',
 news = {
  'Кукурузное посмешище',
  'Хулиган вышел из клиники: куда денется истребитель врачей?',
  'В НИИ Мягких Игрушек обнаружены серьёзные утечки радиации',
  'Белое небо нашего города',
  'Мы -- атеисты! Мэр города выступил с речью в поддержку атеистической молодёжи'
 },
 walk = 'newspaper_2'
};