┬юЄ ьющ трЁшрэЄ ;):
╚ёїюфэ√щ ъюф
program Super_Ugadayka;
uses crt;
const
welcome : array [0..1, 1..5] of string =
(('‡др ствуйте, ув ж емый €грок! Я, ведущий В силий Пупкинович Фг д йкин,',
'р д приветствов ть в с н игре _[чит ть торжественно]_ SUPER UGADAYKA ! ! !',
'Я н деюсь вы хорошо подготовились иб ... ибо сейч с в м предстоит',
'подн прячься к к следует! Я говорю об умственном н пряжении. €т к вы готовы',
'испыт ть себя??? Тогд ...'),
('Добро пож лов ть н игру Super Ugadayka и я в ш ведущий - В силий Фг д йкин.',
' Перед тем к к мы н чнём спросите себя:',
'Готовы ли вы испыт ть свой интелект, или вы н ходитесь во вл сти сомнения?',
'Готовы ли вы окунутся в лучи сл вы или испыт ть горечь пор жения?',
'Сейч с мы узн ем н сколько д леко вы отошли от обезьяны в своём р звитии.'));
tutor : array [0..1, 1..5] of string =
((' Но сперв кр ткое введение в пр вил игры:',
'Три р унд в к ждом из которых в м предстоит з три попытки отг д ть',
'случ йное число от 0 до 8. Почему от 0 до 8? Одному созд телю известно',
'почему... Но в с это волнов ть не должно. Ведь в ш цель - побед , не',
'т к ли?'),
('В с ждут три р унд в к ждом из которых в м предстоит отг дыв ть случ йное',
'число от 0 до 8. Н отг дыв ние к ждого из них у в с есть ровно три попытки.',
'Почему от 0 до 8 - спросите вы? Предст вте себе решение теоремы ”ерм ,',
'з пис нное н п р болойде вр щения сивол ми к ндзи и повторите вслух т блицу',
'умножения. …сли после этого вы не постигли Д о, с в ми неочем р згов рив ть.'));
roundtext : array [0..4] of string =
('Р унд ',
'€ сейч с р унд ',
'Приготовтесь... Р унд ',
'Н чнём р унд №',
'Н очереди р унд ');
readytext : array [0..4] of string =
('Прогр мм уже з дум л число.',
'Всё уже з г д но и ждёт своего ч с быть р зг д нным. Ась?',
'—исло н ходится в п мяти компьютер . Ост лось только его уг д ть.',
'Фв ж емый компьютер уже з дум л дв неверных ответ ...ой!...в смысле число!',
'Ох к кое к верзное число з дум л н ш компьютер...');
question : array [1..3, 0..4] of string =
(('€т к, в ш перв я попытк .',
'Может у в с получится отг д ть с первой попытки? Кто зн ет...',
'Д в йте же, уг дыв йте!',
'В ш версия.',
'В ш выход!'),
('Попытк номер дв !',
'Попытк - не пытк ! ...к чему это я?',
'Ну, побед с двух попыток - это тоже не плохо. Может теперь повезёт?',
'Д в йте! Попробуйте ещё р з.',
'Ничего, с первой попытки м ло кто уг дыв ет. Попробуйте ещё.'),
('Третья попытк .',
'Ну же! Последний ш нс!!!',
'Сосредоточтесь. Ф в с есть ещё один ш нс.',
'Последняя попытк .',
'Вы сд ётесь? …щё нет? Тогд уг дыв йте.'));
more : array [0..4] of string =
('БОЛЬ�…!',
'—исло, з дум нное компьютером, БОЛЬ�….',
'Нет, компьютер з дум л явно БОЛЬ�….',
'А вот и не уг д л! —исло БОЛЬ�…!',
'Д нет! БОЛЬ�….');
less : array [0..4] of string =
('М…НЬ�…!',
'М…НЬ�… будет.',
'М…НЬ�…, это же очевидно!',
'—то з глупость, М…НЬ�…!',
'Много взял. М…НЬ�… н до бы.');
yesss : array [0..4] of string =
('Д ! Д ! Это то число!',
'Вы уг д ли.',
'Это пр вильное число.',
'Совершенно верно!',
'Невероятно, но вы уг д ли.');
victory : array [0..1, 1..5] of string =
(('Вы пр вильно уг д ли все числ , з дум нные компьютером. Вы док з ли, что',
'достойны н зыв ться мыслящим существом. В ш ум безгр ничен, в ш воля',
'достойн восхищения, уд ч - з висти. Вы являетесь победителем н шей',
'сегодняшней игры. В ш приз - один милион поздр влений!',
'До скорых встреч!!!'),
('Д ! Д ! Д ! Вы сдел ли это! Нет, я не могу поверить, но вы победили!',
'В ш приз... Секундочку, у меня н бум жке з пис но... Т…Л…В€‡ОР, КФ•ОННЫ‰',
'КОМБА€Н, 2 Д…СЯтк яиц, бух нк хлеб , сервел т К рельский,... О‰! Прошу',
'прощения, это жен ост вил список покупок... вот!... В ш приз -',
'•ОРО�…… НАСТРО…Н€… НА –…ЛЫ‰ Д…НЬ. Поздр вляю!!!'));
ad : array [0..2] of string =
('Корпор ция MilkoSoft, любезно предост вивш я лгоритм з думыв ния числ .',
'Комп ния NukeTrade - пост вщик высокотоксичного сырья для производств н питк ColaLoca.',
'”ирм FinalPath - производитель высокок чественных гробов с подогревом.');
defeat : array [0..1, 1..3] of string =
(('Фвы! Но сегодняшняя игр окончил сь в шим пор жением. Не р стр ив йтесь,',
'Ф в с всё ещё в переди. Я уверен, что в следующий р з в м повезёт больше.',
'А сегодня - прощ йте!'),
('Нет. Это непр вильный ответ. €т к... Кто не опр вд л ожид ний? Кто не',
'ответил н пост вленный вопрос? Кто сидел н моём стуле? €грок, вы - с мое',
'глупое звено. До свид ния!'));
procedure Start;
var
i : integer;
begin
TextMode(C80 + Font8x8);
TextColor(2);
for i := 2 to 79 do
begin
GoToXY(i, 1);
Write('═');
GoToXY(i, 49);
Write('═');
GoToXY(i, 5);
Write('═');
end;
for i := 2 to 48 do
begin
GoToXY(1, i);
Write('║');
GoToXY(80, i);
Write('║');
end;
GoToXY(1, 1);
Write('╔');
GoToXY(80, 1);
Write('╗');
GoToXY(1, 49);
Write('╚');
GoToXY(80, 49);
Write('╝');
GoToXY(1, 5);
Write('╠');
GoToXY(80, 5);
Write('╣');
TextColor(5);
GoToXY(15,2);
Write('**********************************************');
GoToXY(15,3);
Write('* Welcome to the Super Ugadayka Game ! ! ! *');
GoToXY(15,4);
Write('**********************************************');
end;
var
i, j, ans, num, vict : integer;
begin
Randomize;
Start;
Window(2, 6, 79, 48);
TextColor(15);
j := random(2);
for i := 1 to 5 do
WriteLn(welcome[j, i]);
WriteLn;
WriteLn(' Мы н чин ем!');
WriteLn;
j := random(2);
for i := 1 to 5 do
WriteLn(tutor[j, i]);
WriteLn;
WriteLn(' Вот теперь мы действительно н чин ем!');
WriteLn;
vict := 0;
for i := 1 to 3 do
begin
WriteLn;
WriteLn(roundtext[Random(5)], i);
num := Random(9);
WriteLn(readytext[Random(5)]);
WriteLn;
for j := 1 to 3 do
begin
WriteLn(question[j, Random(5)]);
TextColor(10);
Write('=> ');
TextColor(4);
Read(ans);
TextColor(15);
WriteLn;
if ans = num then
begin
WriteLn(yesss[Random(5)]);
Inc(vict);
break;
end;
if ans < num then
WriteLn(more[Random(5)])
else
WriteLn(less[Random(5)]);
end;
if vict < i then break;
end;
WriteLn;
j := Random(2);
if vict = 3 then
for i := 1 to 5 do
WriteLn(victory[j, i])
else
for i := 1 to 3 do
WriteLn(defeat[j, i]);
WriteLn;
WriteLn('Спонсор н шей сегодняшней игры:');
WriteLn(ad[Random(3)]);
ReadKey;
end.
PS ┬юЄ ёърцшЄх, яшёрЄ№ Єръюх шчтЁр∙хэшх ё ьюхщ ёЄюЁюэ√ - ¤Єю эюЁьры№эю?