game from 80x

program dangeon_leper;
uses CRT;
var map:array[1..10,1..10] of string;
var inv:array[1..5] of integer;
var q,w,e,r,t,x,y,hp:integer;
var cont:string;
begin
for q:=1 to 5 do
 inv[q]:=1;
for q:=1 to 10 do
 for w:=1 to 10 do
  map[q,w]:=' ';
writeln('Welcome in dangeon leper v1.5(work inv) by Vadim');
writeln('Controls:up,down,left,right,inventory,clean,cleanmap,exit,use');
sleep(5000);
hp:=100;
x:=1;
y:=1;
while hp>0 do
 begin
 clrscr;
 writeln('hp:',hp);//отрисовка хп
 writeln('location,y:',y,'x:',x);//отрисовка лакации
  map[x,y]:='P';
   for q:=1 to 10 do//Начало цикла отрисовки карты
    begin
      for w:=1 to 10 do
       write(' ',map[w,q],'  ');
       writeln(' ');
       writeln(' ');
    end;//Конец цикла отрисовки карты
    for q:=1 to 5 do//Начало цикла отрисовки инвенторя
      case inv[q] of
       0:writeln('Empyt');
       1:writeln('botel of heal');
      end;//Конец цикла отрисовки инвенторя
 readln(cont);//Управление
 case cont of//Система отметок на карте
 'down':map[x,y]:='R';
 'up':map[x,y]:='R';
 'left':map[x,y]:='R';
 'right':map[x,y]:='R';
 end;
 case cont of//Управление
  'down':y:=y+1;
  'up':y:=y-1;
  'left':x:=x-1;
  'right':x:=x+1;
  'exit':hp:=-10;
  'clean':ClrScr;
  'cleanmap':begin//Начало очистки карты
  for q:=1 to 10 do
 for w:=1 to 10 do
  map[q,w]:='1';
  end;//Конец очистки карты
  'use':begin
  writeln('enter inv slot');
  read(e);
  if e>5 then
  begin
  e:=5;
  writeln('number >5 used 5 slot');
  end;
  if e<1 then
  begin
  e:=1;
  writeln('number <1 used 1 slot');
  end;
   case inv[e] of
   0:writeln('empyt');
   1:
    begin
     hp:=hp+50;
     inv[e]:=0;
     writeln('bottel of heal has used');
     sleep(2000);
    end;
   end;
   end;
  end;//Конец управления
  case x of//Зашита от выхода за карту по x(в случии выхода за карту происходит выход за массив)
   11:x:=10;
   0:x:=1;
  end;
  case y of//Зашита от выхода за карту по y(в случии выхода за карту происходит выход за массив)
   11:y:=10;
   0:y:=1;
  end;
end;
clrscr;
writeln('                                     Stoooping');
end.