Президент

Архив.

Я попробовал глянуть Министра, там внутри файла есть два интересных места:

1) "[[[[ BASLIB #890065 5.2 - OWNED BY MICROSOFT, 1979 "
и дальше список бейсиковских ошибок (строки). Так что это, возможно, не ассемблер, а какой-то байт-код бейсика + сам интерпретатор. В этом случае, теоретически, прогу можно конвертнуть обратно, если знать байт-код.

2)
"Вы так хорошо справились с заданием, что можете ^Y=^Pлетний избирательный срок^UY^PВы успешно закончили ^Uq^P*** поздравляем!! ***3Й^Pподали в отставку или покончили жизнь самоубийством2┐^Pголода. Общественность в ярости, требует, чтобы Вы6^Ppotratili. в результате  некоторые крестьяне умерли ри&-^Qденьги остались в казне, которую Вы не^QV^Qзахватили страну./j^Qместных жителей. Как большинство они восстали i)Ь^Qчисло иностранных рабочих превысило число^\╚^QВы были предательски убиты!!^Oч^Qненавидят Вас!!#∙^Qкак Вы вступили на пост. Остальные )^_^Rболее половины населения умерло с тех пор'K^RВы объявлены национальным преступником.+u^RВы также заработали очень плохую репутацию.^]г^Rтакже Вам выбили левый глаз!!^X├^Rбыли изгнаны с поста, но,▐^Rиз-зи крайне плохого управления Вы не только^_^M^Sкрестьян погибло в один год!!!!#/^SВы находитесь в тюрьме...мужайтесь.^\U^SВас выгнали с поста и сейчас^Gt^SБурлей!^Y~^Sу Вас осталось всего лишь"Ъ^SБурлей с налогов от промышленности^K┐^SВы получили+═^Sгостиницы выглядят неприглядно из-за смога)$√^Sнеприятный смог отпугивает туристов)7"^Tзалежи полезных ископаемых разрушены загрязнённой водой(\^Tпернатых связало с загрязнением воздуха),З^Tобитателей моря связано с загрязнением воды)^X╢^T(уменьшение численности ^F╤^TБурлей^X┌^Tот туризма Вы заработали   ^T  прибыль^S^A^Uуровня загрязнения)"

Как видно, сама лексика мало похожа на Президента.
У Президента уровень проблем другой (яхты, автомобили, кредиты, акции компаний, ссуды...).

Наверное, средний по сложности, но более-менее быстрый, путь: взять уникальные версии, пробежать глазами отличия исходников, выкинуть те, которые явно хакнутые (ну вот как в примере первого сообщения подкручена процентная ставка в 0), выкинуть те, которые отличаются только цветами, скоростями и уже оставшуюся выжимку тестировать играя.

---

PS В целом, игра была вполне рабочая, какое-то время я ей увлекался и наиграл не один час.
В итоге я сделал свой вариант, он есть в архиве выше, но, к сожалению, у меня нет пометок что послужило исходной игрой для моей версии. Возможно, у меня остался исходный диск, я гляну как нибудь на выходных.

---

PPS Там ещё в некоторых играх авторы не указаны, а в некоторых они встречаются. Но в разных файлах авторы разные :))

Поиграл вчера в Векторовскую версию, а потом в одну из Агатовских.
Да, кажется я поторопился назвать эту игру экономическим симулятором :)

Не знаю, как на нее реагировали игроки в 90-е, но сейчас она выглядит просто как стёб.
Наверное, разработчики пытались постебаться над капитализмом, но похоже, что игра стебётся в основном над игроком.
Прям с первых же вопросов. Вот спрашивается, нафига эти приколы над возрастом игрока?

Еще как-то можно понять нижнюю границу - информатику преподавали в 10-11 классах и возраст школьников обычно был не меньше 16 лет. То есть, в игре, типа, защита чтобы младшеклассники не играли (ну да, там проститутки упоминаются, игра 16+). Но почему после 60 нельзя играть?

В исходной игре (да, я нашел очень похожую игру, на основе которой скорее всего сделали эту) вопрос с возрастом решается гораздо проще - игра сама случайно назначает игроку возраст. И ничего при этом не спрашивает.

Дальше прикол с начальной суммой денег. Понятно, что с большой начальной суммой игра легко проходится, поэтому нельзя разрешать игроку иметь много денег. Но зачем вообще давать ему выбирать начальную сумму? Видимо затем, чтобы сразу урезать сумму и постебаться :) В исходной игре сумма назначается случайно, без вопросов.

Не сразу до меня дошло, что игрок начинает игру бездомным. Я все никак не мог понять, почему меня все время штрафуют за бродяжничество и сажают в тюрьму :) Заодно отнимая акции, вклады и бизнес. Что за фигня? Может, я живу в том баре, который купил :)

Интересно, что начальной суммы денег тупо не хватает на то, чтобы завести бизнес, который позволил бы сводить концы с концами. Акции и вклады денег приносят еще меньше. А главному герою еще и жить на что-то надо.

Короче, стандартный сценарий игры, видимо, состоит в том, что не на первом, так на втором году, не за бродяжничество, так за долги всё отнимут, и игра закончена :)
Усекли, граждане, желающие стать миллионерами?
(Если что, "усекли" - это цитата из игры.)

***

Теперь понятно, почему модификаций много - играть-то иначе невозможно :(
Помучившись с Векторовской версией взял из архива версию Voldemar0. В этой версии добрый дядя периодически отваливает  деньжат, поэтому пройти ее можно. Я на первом же году получил от него миллиард, поэтому скупил все бизнесы, все акции, нанял всех наемных работников и вышел в плюс.

Но такой вариант тоже не идеальный. Во-первых, он читерский, а во-вторых, игра, кажется, вообще не рассчитана на оптимистичный сценарий. Например, каждый вид бизнеса можно купить только по одной штуке. С миллиардом-то можно было бы создать корпорацию, купить десяток заводов и получать прибыль миллиардами. Но нет. Не предусмотрено.

Короче.

Игра всеми способами намекает, что успех зависит в основном от генератора случайных чисел, а не от игрока.
Кроме того, сомневаюсь, что разработчики хорошо разбирались в капитализме, поэтому в экономике игры много спорных моментов.
Ясно же, что машина должна стоить намного дешевле, чем квартира. И нельзя покупать акции не имея счета в банке. И прибыльные акции не могут стоить дешево (тут у них курс от прибыльности вообще никак не зависит). Непонятно, почему тупо нельзя устроиться на работу :)
То, что игрока сразу сажают в тюрьму за долги - это вообще какой-то 19 век. В мире давно придумана процедура банкротства. В общем, экономический симулятор из игры так себе.

А раз экономика тут не главное, то что главное? Стёб? Надо искать версию, которую труднее всего пройти?

***

А что же с исходной игрой?

Где-то в середине 1970-х выходил журнал Creative Computing и там была опубликована игра Millionaire. В 1979 году журнальные статьи переиздали отдельной книжкой https://archive.org/details/More_BASIC_Computer_Games. Текст игры начинается на странице 104.

Игра более простая. Тут нет меню и все события выбираются случайно, но сами события во многом совпадают. Тут можно попасть в казино и выиграть или проиграть деньги. Можно получить наследство от дедушки. Можно покупать и продавать акции. Кроме того, могут происходить разные неприятности, типа ограбления дома, падения на него самолета или прохождения торнадо. Можно попасть в больницу с неведомой болезнью. Цель игры - набрать миллион. Важное отличие - игрок получает деньги за счет того, что работает. Но в общем все очень похоже, включая многие фразы. Кстати, похож и общий подход - упор на юмор и генератор случайных чисел :)

В общем, я думаю, "Президент" получился переделкой этой игры. Да, переделка капитальная, вполне могли быть и какие-то промежуточные варианты на других машинах, но сходство очень заметное. У книги мог существовать и русский перевод, так что стоит поискать.

P.S.: Кстати, страна в которой происходит действие оказалась вовсе не Америка, а Франция :) Название тюрьмы (Фор-Левек) взяли из "Трёх мушкетёров".

Агфу наверное только любители фотографии знали. И вроде магнитную пленку она тоже выпускала.
Но, между прочим, в других версиях набор фирм отличается. В 72 секторной такой список: "STANDARD OIL", "STEEL COMPANY", "I B M", "SUZUKI" и какая-то неведомая "ZOO ZOO CO".

В 1980 году вышло отдельное переиздание этой книги для компьютера TRS-80. Там вроде меньше опечаток.
https://archive.org/details/More_BASIC_ … _Computing

Вот и я про то же. Миллиард есть, а как его тратить - непонятно.

Кредит в исходной игре есть, но логика выдачи отличается. Если у игрока кончаются наличные и он уходит в долг, то кредит выдается автоматом. Выдается ровно столько, чтобы обнулить долг. Код находится в строках 640-680 (в версии TRS-80). "LOAN INTEREST" - это размер ежегодной выплаты (проценты по кредиту).

Президентом страны. В меню пункт 2 - общественное положение. При его выборе предлагается поучаствовать в выборах. Игрок начинает как бизнесмен, он может стать лидером профсоюза (при этом не имея работы и не состоя в профсоюзе :), потом шерифом, сенатором и наконец президентом.

Потому что это слово так переводилось в советских словарях. Вот у меня англо-русский словарь Мюллера 1977 года, и там broker = маклер. Можно еще вспомнить рассказы про Шерлока Холмса - там тоже брокеры переводились как маклеры.

Игра по сути довольно хулиганская - игрок должен непонятно как получать деньги (работать нельзя!), а потом тратить на предметы роскоши (яхту, самолет, виллу) и развлечения (азартные игры, любовниц, круизы).
При этом кажется, что игра написана в конце 1980-х. Что-то у меня сомнения, что в таком виде ее могли напечатать в книге или журнале в те годы. Редактору влетело бы :)

Насчет года соображения такие: во-первых, некоторые версии написаны под Бейсик-60 (там есть вызовы его Монитора через CALL). Во-вторых, некоторые версии вывод текущего года делают как PRINT "   ЗАКОНЧИЛСЯ "1987 + N" ГОД.". Можно предположить, что эти версии относятся к 1987 году.

***

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

Самый интересный вопрос, на какой машине была написана самая первая версия Президента?

Я тут узнал, что кроме Агата и Вектора были еще версии для Корвета, Yamaha MSX и ZX Spectrum. На Спектрум игру перенесли позже всего, в 1994 году. Что там было на Ямахе - непонятно.
Интересный вариант - Корвет. Корвет разработали в МГУ. Плюс, в МГУ большая научная библиотека, где конечно были и иностранные книги. То есть, там вполне могла быть книжка с текстом миллионера. Если эта книжка действительно использовалась, то наибольший шанс ее увидеть был там. Ну и для школьников переделка кода игры была тяжеловата. Скорее всего, ее делали студенты. Они же могли похулиганить с сюжетом.

Исходники Корветовской версии можно посмотреть тут https://github.com/UncleJey/prezident в папке Original.

Но все-таки есть сомнения, что это оригинал. У Корвета есть прописные и строчные буквы. А тут все капсом набрано.

А я откопал версию 1986 года. Но она не для Агата. И не на Бейсике.
Это версия Президента для БК-0010 на языке Фокал: https://r-games.net/bk001x/games/871-pr … focal.html

Кажется, это и есть общий предок. Интересно, что тут используются заглавные и строчные буквы. Также более удобно сделан интерфейс (в версиях на Бейсике иногда текст пропадает до того, как я успеваю его прочитать). И опечаток меньше всего.
Тут предлагается стать главой профсоюза мусорщиков, а в списке акций "Standart Oil", "Steel Company", "IBM", "Suzuki" и "Kruft & Co".

К сожалению, как перевести токенизированный формат Фокала в исходный текст я не понял, хотя поглядеть исходник было бы интересно.

Да, очень может быть, что на Агат Президента переносили несколько раз с разных машин. Версии игры были почти для всех компов того времени, а средств узнать, что версия под Агат уже существует - не было.

***

Вообще, проблема в том, что хочется совместить возможности разных версий. Например, везде использовать GET $, чтобы текст не уползал, но при этом оставить названия компаний из самой ранней версии. К тому же, несколько раз ловил ситуации, когда что-то не удавалось купить с сообщением "недостаточно средств", хотя средств точно было достаточно. Видимо, где-то есть ошибки в вычислениях. Как их выловить, не зная точный алгоритм, - непонятно.

Вот текст программы с БК-0010 на Фокале, товарищ прислал:

Прикольно. Сравнивал БК-шную версию и Агатовскую 1987 года и вот что нашёл.

БК-шная версия в начале игры спрашивает класс игрока:

45.03 A "Ваш класс [1-3]"L;I(3-L)45.03

Как я понял, это уровень сложности: 1 - самый сложный, 3 - самый простой. Класс запоминается в переменной L.
Эта переменная используется дальше, когда программа определяет начальную сумму денег X у игрока.

45.18 D 2;S N3=60+20*Y;D 2;S X=1500*L*(1+Y)

Переменная Y определяет разброс суммы и устанавливается в блоке строк 2.

2.10 S Y=.01*FITR(5+47.5*(1+FRAN()))

Функция FRAN возвращает значение от -1 до 1, а переменная Y получает значение от 0.05 до 1.

Что получается в итоге? У каждого класса будет своя начальная сумма денег.

 Класс | Сумма
-------+------------------
 1     | от 1575 до 3000
 2     | от 3150 до 6000
 3     | от 4725 до 9000

А что в Агатовской версии?

Уровней сложности нет. Начальная сумма считается в строке 109.

  109 X = 1000 + 750 * Y: RIBBON= 1

Переменная Y устанавливается в подпрограмме 3000.

 3000 Y =  INT (100 *  RND (1)) / 100: IF Y < 0.05 THEN Y = 0.05
 3005  RETURN 

Можно было написать без IF, но результат тот же: Y получает значение от 0.05 до 1.

Но главный момент, это то что начальная сумма денег существенно меньше, чем на максимальном уровне сложности в БК-шной версии: от 1038 до 1750! Цены при этом вроде бы те же самые.

То есть, если в БК есть выбор сложности легко/средне/хард, то тут всегда мегахард :)
И все играли в заведомо непроходимую игру.

Интересно, что код очень похож на Корветовскую версию. Там уровень сложности запрашивается, но не используется. В подпрограмме вычисления Y такой же оператор IF. Отличия только в номерах строк и одной константе. Начальная сумма еще ниже: 1025 - 1500.

Подозреваю, что на этом расхождения с БК-шной версией не заканчиваются.

Ну я так и подозревал, что на БК игровой баланс другой и пройти игру там реально.

Но мне было интересно найти какие-то доказательства, что на Агате пройти игру почти невозможно. Для этого я попробовал ответить на вопрос, а какие шансы, что начальной суммы хватит, чтобы купить квартиру и прожить один год не уходя в долги?

Тут ведь как получается? Если не покупать квартиру, то в конце года игрока ждет штраф за бродяжничество, который может быть выше цены квартиры. А если денег не хватит на жизнь, то все имущество и акции пойдут с молотка.

И если начальной суммы не хватает, то игрок уходит в минус и попадает в тюрьму за долги. А после тюрьмы денег дают меньше, чем при старте игры. То есть по сути - это проигрыш.

Так что я пошел искать места, где вычисляются расходы игрока и цены на жилье :)

I. Расходы на жизнь.
--------------------
Они есть всегда и тратятся ежегодно.
Версия БК:

50.20 F I=1,5;S U=U+.05*G2(I);S V=V+P1(I)*P(I);I(-G(I))50.21;S G2(I)=0

51.01 I(N4-N1)51.1,51.1;S N1=N1+J;I(N1-N4)51.02;S J=J+N4-N1
51.02 S J=J/N4;D 52;S u=500*(2+B^2+FRAN());S v=0
51.03 F i=1,5;S u=u+.45*C(3,i)*C2(3,i)+D(i)*E(i);S v=v+C(5,i)*C1(i)
51.05 S U=U+J*u;S V=V+J*v;S v=FLOG(1+.02*B);S H=H*FEXP(J*v)
51.10 R

Нужное место находится в строке 51.02: S u=500*(2+B^2+FRAN()).
На БК расходы U зависят от социального положения B (1 - бизнесмен, 5 - президент).

 Положение | Расходы на жизнь
-----------+-------------------
 Бизнесмен | от  1000 до  2000
 Лидер     |
 профсоюза | от  2500 до  3500
 Шериф     | от  5000 до  6000
 Сенатор   | от  8500 до  9500
 Президент | от 13000 до 14000

Агатовская версия 1987 года:

 7000 A(1) = 0:A(2) = 0:A(3) = 0:A(4) = 0
 7002  FOR I = 0 TO 4
 7004 A(1) = F(I) * F1(I) + A(1)
 7010 A(2) = C(I) * C3(I) + E(I) * E3(I) + A(2)
 7015 A(3) = E(I) * E1(I) + F(I) * F2(I) * 0.5 + A(3)
 7020 A(4) = D(I) * D1(I) + C(I) * C2(I) * 0.45 + G3(I) * G(I) * 0.05 + A(4): NEXT I
 7027  GOSUB 3000
 7028 A(4) = A(4) + 1000 + 500 * Y
 7030  RETURN 

Нужное место в строке 7028. Сразу видно два отличия:
1) расходы ниже, от 1025 до 1500
2) расходы не зависят от социального положения - и бизнесмен и президент платят одинаково.
Кажется, это единственное место, которое делает Агатовскую версию проще.

II. Стоимость собственности.
----------------------------
Версия БК:

102.10 D 2;S X=FITR((2+5*Y)*20*5^I);S Z=FITR(.7*X*(Y+.3))

Цены получаются такие:

 Собственность | Цена
---------------+--------------------
 Квартира      | от    55 до    637
 Машина        | от   275 до   3185
 Вилла         | от  1378 до  15925
 Яхта          | от  6890 до  79625
 Самолет       | от 34453 до 398125

Агатовская версия:

 3200  GOSUB 3000:X = (200 + 500 * Y) * (5 ^ I):Z = X * Y: RETURN 

Видно, что формула другая и цены отличаются:

 Собственность | Цена
---------------+---------------------
 Квартира      | от    56 до    3500
 Машина        | от   281 до   17500
 Вилла         | от  1406 до   87500
 Яхта          | от  7031 до  437500
 Самолет       | от 35156 до 2187500

Неплохо так. Верхняя граница цен в 5 раз выше.

III. Расчет шансов
------------------
В общем, и так понятно: в Агатовской версии денег дают меньше, все стоит дороже, значит играть сложнее.
Но с цифрами интереснее. У нас есть три случайных переменных: начальная сумма A, цена квартиры B и расходы на жизнь C.
Спрашивается, чему равна вероятность, что A >= B * 1.45 + C?
(Не забываем, что 45% от цены квартиры - это расходы на ее содержание.)

На уровнях сложности 2 и 3 в БК-шной версии денег дают столько, что прожить год и купить квартиру можно всегда. То есть, вероятность прожить первый год без долгов 100%.

На уровне 1 в БК-шной версии дают денег от 1575 до 3000. Расходы на жизнь от 1000 до 2000. Стоимость квартиры от 55 до 637. Вероятность прожить первый год без долгов 68.4%.

В Агатовской версии дают денег от от 1038 до 1750. Расходы на жизнь от 1025 до 1500. Стоимость квартиры от 56 до 3500.
Вероятность прожить первый год без долгов 2.6%.

Ну блин! Нечестно же! С вероятностью 97.4% игрок уходит в минус уже на первом году. Можно выиграть не больше 1 игры из 38.

Это я к чему. Может, стоит искать Агатовские версии, где все эти расчеты делаются ближе к БК-шной версии? Или вообще заново эту игру перенести? Просто непонятно, кто захочет играть в игру с таким балансом?

Так может тогда стоит Володину версию (подправленную) выложить?