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

[Костян]

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

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

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

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





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


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

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



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

end.

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