Ночной Дозор КВЕСТ!, А давайте попробуем. Опции

[Костян]

Народ, всем салют. Совсем недавно я уже поднимал тему создания текстового квеста. И вот я почти созрел. Но поскака одному мне не справится и веселей работа вместе, то приглашаю вас к сотрудничеству.

Вот что уже есть: (Показать/Скрыть)

program qest;
uses crt;
var
  fiile : text;
  s: string;
  rubl, deistv, sila : integer;
{                             Џа®жҐ¤гал ЁЈал                   }
{--------------------------------------------------------------------------}
procedure zad1;
 begin
 clrscr;
 writeln('‚л б⮨⥠Є Є ЁбвгЄ ­ Ї®б।Ё г«Ёжл Ё ў¤агЈ а §¤ Ґвбп §ў®­®Є(Ї® ¬®ЎЁ«м­ЁЄг)');
 writeln('Љ Є ўл Ё ¤г¬ «Ё нв® Ѓ®аЁб €Ј­ вмЁз, ў б Ї®бл« ов ­  ­®ў®Ґ § ¤ ­ЁҐ');
 writeln('Ђў аЁ©Є  ¤®ў®«м­® Ўлбва® ¤®¬з «  ў б ¤® ¬а з­®Ј® ¤®¬  ­ ¬Ўн 13, ў и  § ¤ з  ®ЎҐ§ўаҐ¤Ёвм ­Ґ«ЁжҐ­§Ёа®ў ­­®Ј® ў ¬ЇЁа ');
 writeln('‚л гбва Ёў ҐвҐбм ў § б ¤Ґ ў Ў«Ё§ «Ґ¦ йЁе Єгбв е, Ї®Їгв­® ®Ў­ аг¦Ёў п, зв® ў нв® ¬Ґбв® ­Ґ бв®Ё«® ўбвгЇ вм ­®Ј®©');
 writeln('€ ў нв® ўаҐ¬п ў Ї®¤мҐ§¤Ґ Ї®пў«пҐвбп ¤®«Ј®¦¤ ­­л© ў ¬ЇЁа, зв® ¤Ґ« вм?');
 writeln('1. Ђв Є®ў вм');
 writeln('2. ЃҐ¦ вм');
 readln(deistv);
 if deistv=1 then
 begin if sila=1 then
      begin
      writeln('‚л б®ЎЁа ҐвҐ ўбо бЁ«г Є®в®а п г ў б Ґбвм Ё  в ЄгҐвҐ ў ¬ЇЁа ...ҐйҐ ᥪ㭤  Ё ®­ 㦥 ў®бЇ®¬Ё­ ­ЁҐ ў ўҐЄ е..');
      readkey;
      end
      else begin
     writeln('Љ ᮦ «Ґ­Ёо г ў б Ўл«® б«ЁиЄ®¬ ¬ «® бЁ«л Ё зҐаҐ§ ᥪ㭤㠢л 㦥 а бвў®апҐвҐбм ў бг¬а ЄҐ');
      readkey
      end;
      end;

 if deistv=2 then
    begin
    writeln('‚л ў бва еҐ ЇҐаҐ¤ ЇҐаҐў®Ї«®вЁўиЁ¬бп ў ¬ЇЁа®¬ ЇгбЄ ҐвҐбм ­  г⥪, нв® Їа®ў « ®ЇҐа жЁЁ!');
    readkey;
    halt;
    end;
 end;





{---------------------------------------------------------------------------}


 procedure ylisa;
      begin
clrscr;
writeln('‚л ўл室ЁвҐ ­  г«Ёжг. ‚ «Ёж® ў ¬ ¤гҐв ᢥ¦Ё© ўҐвҐа®Є. ‘Їа ў  ®в ў б ў и ¤®¬.');
writeln('‘«Ґў  ¬ Ј §Ё­. € ў¤агЈ ўл § ¬Ґз ҐвҐ, зв® ­ ўбваҐзг ў ¬ ¤ўЁЈ Ґвбп ў ¬ЇЁа');
writeln('‚ иЁ ¤Ґ©бвўЁп?');
writeln('1. Ћв¤ вм ўбҐ ¤Ґ­мЈЁ.');
writeln('2. ЏаЁЄЁ­гвмбп ¬ҐббЁҐ©.');
writeln('3. Ќ Ї бвм.');
readln(deistv);
if deistv=1 then
 begin
 writeln('‚л ®в¤ ҐвҐ ў ¬ЇЁаг ',rubl,' агЎ«Ґ©.');
 writeln('Ќ  ҐЈ® «ЁжҐ зЁв Ґвбп пў­ п а ¤®бвм Ё ў§ ¬Ґ­ ®­ ¤ аЁв ў ¬ з бвм бў®Ґ© бЁ«л.');
 sila:=+1;
 readkey;
 zad1;
 end;
if deistv=2 then
 begin
 writeln('‚л Ј®ў®аЁвҐ ¤®бв®Ї®з⥭­®¬г ў ¬ЇЁаг, зв® ўл ­®ўл© ¬ҐббЁп ­ҐбгйЁ© ᢥв, ў ®вўҐв ®­ Ї«оҐв ў ¬ ў «Ёж®!');
 readkey;
 zad1;
 end;
if deistv=3 then
 begin
 Writeln('‚л ў ®вз п­мҐ Ї®б«Ґ Їмп­ЄЁ ­ Ўа блў ҐвҐбм ­  ў ¬ЇЁа , ­® г ў б ­Ґв бЁ«л...ў и  ¤ги  а бвў®апҐвбп ў бг¬а ЄҐ...');
 halt;
 end;
      end;

{--------------------------------------------------------------------------}
      procedure magaz;
	 begin
clrscr;
writeln('‚л ­ 室ЁвҐбм ў «гз襬 ¬ Ј §Ё­Ґ Ї «Ґ­®© ў®¤ЄЁ, ў Є а¬ ­Ґ г ў б ',rubl,' агЎ«Ґ©');
writeln('—в® Ўг¤ҐвҐ ¤Ґ« вм?');
writeln('1.Ќ Ї бвм ­  Їа®¤ ўж .');
writeln('2.ЏаЁЄЁ­гвбп б®ж. Ўге. Ё­бЇҐЄв®а®¬.');
writeln('3.‚л©вЁ Ё§ ¬ Ј § .');
readln(deistv);
if deistv=1 then begin
writeln('Џа®¤ ўҐж ®Є § «бп Ё­л¬ ўлбиЁ¬ ў ¬ЇЁа®¬ Ё ЎҐ§ ваг¤  ®ЎЈ« ¤ « ў иЁ Є®бв®зЄЁ');
  readkey;
  halt;
end;
if deistv=2 then begin
writeln('Џа®¤ ўҐж Ўлбва® ў б а бЄгбЁ« Ё ®вЇа Ё« Є Їа ®вж ¬');
  readkey;
  halt;
end;
if deistv=3 then ylisa;
	 end;



{--------------------------------------------------------------------------}
begin
clrscr;
 { assign(fiile,'file.txt');  reset(fiile);
  while not eof(fiile) do begin
    readln(fiile, s);}
    textcolor(green);{  writeln(s); }



	     {ќв® ­ з «® Їа®ЈЁ}
writeln('Ђ­в®­ ѓ®а®¤ҐжЄЁ© ў­®ўм Ї®Ї ¤ Ґв ­  ®Ї б­лҐ ­®з­лҐ г«Ёжл Њ®бЄўл.');
writeln('Ќ® ­  нв®в а § г ­ҐЈ® ᮢᥬ ¤агЈ®Ґ § ¤ ­ЁҐ.…¬г ЇаҐ¤бв®Ёв ўбвгЇЁвм');
writeln('‚ ®вЄалвго ЎЁвўг ¤®Ўа  б® §«®¬! ‚л Ј®в®ўл?');
  readkey;
  clrscr;
  writeln('€в Є ўл Їа®блЇ ҐвҐбм г бҐЎп ¤®¬ .');
  writeln('Ѓлбвал¬ ў§Ј«п¤®¬ ®ЄЁ¤лў ҐвҐ бЄг¤­го ®Ўбв ­®ўЄг бў®Ґ© е вЄЁ.');
  writeln('Ћ¤Ґў ҐвҐ Ї®в९ ­­лҐ ¤¦Ё­бл Ё агЎ иЄг, ў®в ў®в б⥬­ҐҐв.');
  writeln('‚ Є а¬ ­Ґ ®Ў­ аг¦Ёў ҐвҐ 10 агЎ«Ґ©, зв® Ўг¤ҐвҐ ¤Ґ« вм?');
  writeln('1.‘Ј®­пвм ў ¬ Ј §Ё­.'); writeln('2.Џ®Їа®Ў®ў вм зҐаҐ§ бг¬а Є Ї®ЁбЄ вм ­ҐзЁбвм.');
  writeln('3.‹Ґзм бЇ вм ¤ «миҐ.'); writeln('4.Џ®ўҐбЁвмбп.');
  rubl:=10;
  readln(deistv);
  if deistv=1 then  magaz;
  if deistv=2 then
  begin
  writeln('‘в®Ё«® ў ¬ в®Є  ў®©вЁ ў бг¬а Є, Є Є ®­ ўлЇЁ« ўбҐ ў иЁ бЁ«л Ё ўл 㬥૨. ЊҐ­миҐ ЇЁвм ­ ¤® Ўл«®!');
  readkey;
  halt;
  end;
  if deistv=3 then
  begin
  writeln('‚л б« ¤Є® Ї®б Їлў п § блЇ ҐвҐ, ­® Їа®б­гвмбп ў ¬ 㦥 ­Ґ б㦤Ґ­®. Ќ®змо § 襫 ‡ ўг«®­');
  readkey;
  halt;
  end;
  if deistv=4 then begin
  writeln('‚л Ї®ЈЁЎ«Ё,   в®з­ҐҐ Ј­гб­® ­ «®¦Ё«Ё ­  ᥡп агЄЁ-­Ґв ў ¬ Їа®йҐ­Ёп...');
  readkey;
  halt;
  end;

end.

Не обращайте внимания на каракули в Паскале все должно отображатся нормально!

[APAL]

Только я думаю не стоит перегружать сам код текстами.
Запихнуть бы их файл/файлы... и считывать по мере необходимости... к тому же исправления будет проще делать.

[Костян]

Только я думаю не стоит перегружать сам код текстами.
Запихнуть бы их файл/файлы... и считывать по мере необходимости... к тому же исправления будет проще делать.

Пытался , ток вот русский текст из файла не выводится, и чаво ток не делал и кодировки менял и еще кучу всего делал, но казус остался

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

Хотелось бы поподробней узнать об этой функции, я что то не очень понял

ну и тему не "Ночной Дозор" ибо достал он уже

Тогда может Дневной дозор или Инквизиция? Не судите меня строго(фанат-это судьба), тем более я пытаюс сделать нечто похожее на пародию

[volvo]

Хотелось бы поподробней узнать об этой функции, я что то не очень понял

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