Игра угадай число Опции

[Zeon]

Как мою игру можно "украсить"?

Код

Program Ygadaika;
var i,n,d:byte;
Begin
    Randomize;
    d:= random (9);
   for i:= 1 to 3 do
   begin
     Write ('Угадай число '); Readln (n);
     if n = d then  break;
      if n < d then
      Writeln ('Загаданное больше!!!')
     else
     if n > d then
      Writeln ('Загаданное меньше!!!')
   end;
  if n<>d then
      Write ('Не угадали число',d,'!') else
      Writeln ('Вы угадали с ',i,'-й попытки');
  readln;
  end.

Сообщение отредактировано: volvo - 5.01.2005 1:04

[APAL]

Украсить:
Например, организовать "окошки", в которые выводятся сообщения и результат (GoToXY + Write + символы псевдографики)
Добавить озвучку событий (Sound + Delay + NoSound)
Раскрасить все в "симпатичные" цвета (TextColor + TextBackGround)
Можно добавить вывод на экран афоризмов/анекдотов ( www.anekdot.ru )

P.S.: Фрагменты программ заключайте в соответствующие теги при создании сообщения!

Сообщение отредактировано: APAL - 19.05.2004 10:38

[Zeon]

а можно по точнее как-нибудь???

[APAL]

Так ведь я в скобках указал что надо использовать.
Не знаешь формата процедуры/функции - набери в TP название, выдели и нажми Ctrl+F1 - появится подсказка с форматом задания параметров и даже с примером.

Сообщение отредактировано: APAL - 19.05.2004 11:19

[FreeMan]

Забацать файл рекордов, менюху, поддержку грызуна
Делать в графицеском режиме, рисуя разные рожи. Или кружок определённого цвета. Например, пользователь ввел 15, а загадано 16, тогда кружок должен быть зелёным. :D

[Atos]

В общем, для начала - юзай crt http://www.borlpasc.narod.ru/docym/Faronov.../menu_gl13.html

[-Андрей-]

Народ, кто нибудь может эту игру чем нибудь приукрасить? добавить какие нибудь фишки ..левелы, там заставки или еще что нибудь.. очень нужно так как нам задали как раз сделать такую. Очень надеюсь что поможете

Спасибо. Андрей.

[klem4]

Ты придумай ЧЕМ приукрасить, а мы поможем реализовать.

[Archon]

Добавь комментарии после каждой попытки, получится забавно.

[Archon]

Вот мой вариант ;):

Исходный код

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 Вот скажите, писать такое извращение с моей стороны - это нормально?

[-Андрей-]

Archon

ой эт ты конечно замудрил серьозно ))))) мне не поверят что эт я сделал ))

мне бы вот хотелось чтобы там было меню типа графическое и уровни сложности типа ))) ну нам так препод посоветовал )) Сможете помочь? ну только чтобы было не очень сложно написано так как он мне не поверит если будет слишком серьозно сделано )))

Спасибо. Андрей.

[Archon]

Андрей, дак ведь ни чего серьёзного, просто текста много.

Так, с чем то уже определились, тебе нужно меню. Поищи по форуму. Например здесь.