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.