Можете протестировать игру?

program age1;
uses crt;
var
 
  j1: Integer;
 
  i1: Integer;
 
  code,f10,g5,g,i,k,j,l,m,n,o,p,q,y,x,f,cy,cx,w,r1,r2,s2,q2,w2,r4,r5,r6,r7,m1,x1,y1,g1,g2,w1,y2,x2,x3,y3:integer;
hotkey:Char
 ; save,cx2:String 
  ; f2:text
  ;  uN: array [-1..100, -1..100] of integer;
  uH: array [-1..100, -1..100] of integer;
  Hh: array [-1..100, -1..100] of integer;
  Hn: array [-2..100, -2..100] of integer;
  Ht: array [-1..100, -1..100] of integer;
  uT: array [-1..100, -1..100] of integer;
  Hg: array [-1..100, -1..100] of string;
  uG: array [-1..100, -1..100] of string;
  procedure progen
   ; begin
       writeln('загрузка:');
 ;  ; repeat
    repeat 
r1:=random(200)
 ; if r1=0 then begin hn[q,w]:=5; end
       ; q := q + 1
    until q = 100;
    q := -1;
    w := w + 1
  until w = 100;
   ;  ; q:=0;
  w:=0;
 ;  ; repeat
    repeat 
r1:=random(100)
 ; if r1=0 then begin hn[q,w]:=6; end
       ; q := q + 1
    until q = 100;
    q := -1;
    w := w + 1
  until w = 100;
  w:=0
   ; q:=0
    ; repeat
 ;  ;  ;  ;  ;  ; repeat
    repeat
 ;  ; if (hn[q,w+1]=5) or (hn[q,w]=5) or (hn[q+1,w]=5) or (hn[q-1,w]=5) or (hn[q,w-1]=5)  then
  begin
  r1:=random(3)
   ; if r1=0 then begin
   hn[q,w]:=5; end
    end
       ; q := q + 1
    until q = 100;
    q := -1;
    w := w + 1
  until w = 100;
  q:=0
   ; w:=0
        ; if r7=0 then writeln('0%');
            if r7=1 then writeln('20%');
                if r7=2 then writeln('40%');
                    if r7=3 then writeln('60%');
                       if r7=4 then writeln('80%');
    ;  ; r7:=r7+1;
   until r7=5
   ;  ;  ;  ;  ;  ;  ; repeat
    repeat
 ;  ; if (hn[q,w+1]=6) or (hn[q,w]=6) or (hn[q+1,w]=6) or (hn[q-1,w]=6) or (hn[q,w-1]=6)  then
  begin
  r1:=random(3)
   ; if r1=0 then begin
   hn[q,w]:=6; end
    end
       ; q := q + 1
    until q = 100;
    q := -1;
    w := w + 1
  until w = 100;
      if r7=5 then writeln('100%');
      delay(100);
      writeln('загрузка завершена, нажмите любую клавишу');
  r7:=0;
  end
   ; 
  procedure matrixI
   ; begin
   w:=-1
   ;  ;  ; q := -1;
  repeat
    repeat 
    if uh[q, w] < 1 then begin
        un[q, w] := 0 ;
        ut[q,w]:=0;
        uh[q,w]:=0; end
     ; if hh[q, w] < 0 then begin
        hn[q, w] := 0 ;
        ht[q,w]:=0; 
        hh[q,w]:=0; end
       ; if hn[q, w] = 6 then
        hg[q, w] := '$' ;
      if hn[q, w] = 5 then
        hg[q, w] := 'T' ;
      if hn[q, w] = 4 then
        hg[q, w] := 'P' ;
      if hn[q, w] = 0 then
        hg[q, w] := '▓' ;
      if hn[q,w] = 2 then
        hg[q, w] := 'Q' ;
        if hn[q, w] = 3 then
        hg[q, w] := '№' ;
        if hn[q, w] = 7 then
        hg[q, w] := 'ф' ;
        if hn[q, w] = 8 then
        hg[q, w] := '‡' ;
        if hn[q, w] = 1 then
        hg[q, w] := 'I' ;
              if un[q, w] = 0 then
        ug[q, w] := '▒' ;
      if un[q, w] = 1 then
        ug[q, w] := 'П' ;
      if un[q, w] = 2 then
        ug[q, w] := 'Л' ;
      if un[q,w] = 3 then
        ug[q, w] := '@' ;
        if un[q, w] = 4 then
        ug[q, w] := 'D' ;
        if un[q, w] = 5 then
        ug[q, w] := 'Г' ;
      ;
       ; q := q + 1
    until q = 100;
    q := -1;
    w := w + 1
  until w = 100;
  w := 0;
   ;  ;hotkey:=readkey
   ; if (hotkey ='w') and (f>0) then begin ;  ; f:=f-4 end
     ; if (hotkey ='s') and (f<76) then begin ;  ; f:=f+4 end
     ; if (hotkey ='a') and (x>0) then begin ;  ; x:=x-4 end
       ; if (hotkey ='d') and (x<76) then begin ;  ;x:=x+4 end
    ;  ;  ; clrscr
    ; cy:=f
     ; cx:=x;
     write(' ')
     ; repeat
     if cx<10 then  begin
     write('   ',cx) end else write('  ',cx);
 ;  ; cx:=cx+2
    until cx=x+24
     ; cx:=cx-23;
     writeln('     ')
      ; write('   ')
      ; repeat
     ;  ; if cx<10 then  begin
      ;  ; write('   ',cx) end else write('  ',cx);
          ;  ; cx:=cx+2
     ; until cx>x+24
      ; writeln()
       ; writeln('   ________________________________________________')
  ;     ;  ; repeat
  if cy<10 then begin
    write(' ',cy,'|',hg[x, g+f],Ug[x, g+f]); end else
    write(cy,'|',hg[x, g+f],Ug[x, g+f]);
    write(hg[x+1, g+f],Ug[x+1, g+f]);
    write(hg[x+2, g+f],Ug[x+2, g+f]);
    write(hg[x+3, g+f],Ug[x+3, g+f]);
    write(hg[x+4, g+f],Ug[x+4, g+f]);
    write(hg[x+5, g+f],Ug[x+5, g+f]);
    write(hg[x+6, g+f],Ug[x+6, g+f]);
    write(hg[x+7, g+f],Ug[x+7, g+f]);
    write(hg[x+8, g+f],Ug[x+8, g+f]);
write(hg[x+9, g+f],Ug[x+9, g+f]);
write(hg[x+10, g+f],Ug[x+10, g+f]);
write(hg[x+11, g+f],Ug[x+11, g+f]);
write(hg[x+12, g+f],Ug[x+12, g+f]);
write(hg[x+13, g+f],Ug[x+13, g+f]);
write(hg[x+14, g+f],Ug[x+14, g+f]);
write(hg[x+15, g+f],Ug[x+15, g+f]);
write(hg[x+16, g+f],Ug[x+16, g+f]);
write(hg[x+17, g+f],Ug[x+17, g+f]);
write(hg[x+18, g+f],Ug[x+18, g+f]);
write(hg[x+19, g+f],Ug[x+19, g+f]);
write(hg[x+20, g+f],Ug[x+20, g+f]);
write(hg[x+21, g+f],Ug[x+21, g+f]);
write(hg[x+22, g+f],Ug[x+22, g+f]);
    writeln(hg[x+23, g+f],ug[x+23, g+f], '|');
     ;  ; g:=g+1
     ; cy:=cy+1
  until g = 24;
  writeln('   """"""""""""""""""""""""""""""""""""""""""""""""');
   ;  ; writeln('r-ход')
    ; if g5=0 then begin
   ;  ; writeln('золото-',g1,';',' дерево-',w1,'; жизни ратуши:',hh[25,50]) end
     ; g:=0 
  end
   ; 
     procedure xod1
   ; begin
   writeln('next-пропуск хода')
     ; 
   ;  ; write('координата х:');
   repeat
  readln(cx2);
  Val(cx2, x1, Code);
  if cx2='next' then x1:=100
  until (x1>=-1) and (x1<101)
   ; write('координата y:');
  readln(y1);
  if x1=-1 then begin g1:=9999;w1:=9999 end;
  if x1<>100 then
  begin
   ;  ; if (hn[x1,y1]<>0) then  begin writeln('хотите управлять 1:человеком или 2:домом?')
    ; readln(r5)
     ; if r5=2 then begin
   ;  ; if ht[x1,y1]=1 then if hn[x1,y1]=4 then begin
   
  ;  ; writeln('создать крестьянина?');
 writeln('50 дерева, 100 золота');
 writeln('1-да            2-нет');
  readln(r5)
   ; if (r5=1) and (g1>99) and (w1>49) then begin
  un[x1,y1]:=1;
  ut[x1,y1]:=1;
  uh[x1,y1]:=4;
  g1:=g1-100;
  w1:=w1-50;
  r7:=1;
  end 
  end
   ;  ;  ; if ht[x1,y1]=1 then if hn[x1,y1]=2 then begin
 
  ;  ; writeln('создать конного война?');
 writeln('50 дерева, 200 золота');
 writeln('1-да            2-нет');
  readln(r5)
   ; if (r5=1) and (g1>199) and (w1>49) then begin
  un[x1,y1]:=2;
  ut[x1,y1]:=1;
  uh[x1,y1]:=10;
  g1:=g1-200;
  w1:=w1-50;
  r7:=1;
  end
  end
     ;  ;  ; if ht[x1,y1]=1 then if hn[x1,y1]=3 then begin
 
  ;  ; writeln('создать мечника?');
 writeln('150 дерева, 50 золота');
 writeln('1-да            2-нет');
  readln(r5)
   ; if (r5=1) and (g1>49) and (w1>149) then begin
  un[x1,y1]:=3;
  ut[x1,y1]:=1;
  uh[x1,y1]:=15;
  g1:=g1-50;
  w1:=w1-150;
  r7:=1;
  end
  end
     ;  ;  ; if ht[x1,y1]=1 then if hn[x1,y1]=7 then begin
 
  ;  ; writeln('создать лучника?');
 writeln('150 дерева, 100 золота');
 writeln('1-да            2-нет');
  readln(r5)
   ; if (r5=1) and (g1>99) and (w1>149) then begin
  un[x1,y1]:=4;
  ut[x1,y1]:=1;
  uh[x1,y1]:=8;
  g1:=g1-100;
  w1:=w1-150;
  r7:=1;
  end
  end
   ;  ;  ; if ht[x1,y1]=1 then if hn[x1,y1]=8 then begin
 
  ;  ; writeln('создать требушет?');
 writeln('400 дерева, 200 золота');
 writeln('1-да            2-нет');
  readln(r5)
   ; if (r5=1) and (g1>199) and (w1>400-1) then begin
  un[x1,y1]:=5;
  ut[x1,y1]:=1;
  uh[x1,y1]:=10;
  g1:=g1-200;
  w1:=w1-400;
  r7:=1;
  end
  end
  end
  end
   ; if r7=0 then begin
   ;  ; if (un[x1,y1]=1) and (ut[x1,y1]=1) then begin
writeln('5-добыча')
 ; writeln('9-строительство')
  ; readln(cx); 
  if (cx=8) and (uh[x1,y1-1]=0) and ((hn[x1,y1-1]<>1)) then begin
  uh[x1,y1-1]:=uh[x1,y1];
  un[x1,y1-1]:=un[x1,y1];
  ut[x1,y1-1]:=ut[x1,y1];
  uh[x1,y1]:=0;
  end
   ; if (cx=2) and (uh[x1,y1+1]=0) and ((hn[x1,y1+1]<>1) and (ht[x1,y1+1]<>1)) then begin
  uh[x1,y1+1]:=uh[x1,y1];
  un[x1,y1+1]:=un[x1,y1];
  ut[x1,y1+1]:=ut[x1,y1];
  uh[x1,y1]:=0;
  end
   ; if (cx=6) and (uh[x1+1,y1]=0) and ((hn[x1+1,y1]<>1) ) then begin
  uh[x1+1,y1]:=uh[x1,y1];
  un[x1+1,y1]:=un[x1,y1];
  ut[x1+1,y1]:=ut[x1,y1];
  uh[x1,y1]:=0;
  end
     ; if (cx=4) and (uh[x1-1,y1]=0) and ((hn[x1-1,y1]<>1) ) then begin
  uh[x1-1,y1]:=uh[x1,y1];
  un[x1-1,y1]:=un[x1,y1];
  ut[x1-1,y1]:=ut[x1,y1];
  uh[x1,y1]:=0;
  end
     ; if (cx=5) and (hn[x1,y1]=5) then begin
  w1:=w1+60;
    hn[x1,y1]:=0;
  end
       ; if (cx=5) and (hn[x1,y1]=6) then begin
  g1:=g1+120;
  hn[x1,y1]:=0;
;  end
 ; if (cx=9) and (hn[x1,y1]=0) then begin
writeln('что вы хотите построить?')
 ; writeln('1-стена:20 золота');
writeln('2-конюшня:450 золота,100 дерева');
writeln('3-казарма:300 дерево,20 золота');
writeln('7-стрельбище:600 дерева,100 золота');
writeln('8-палата инженера:1000 золота,500 дерева');
readln(cx);
if (cx=1) and (g1>19) then begin hn[x1,y1]:=1; hh[x1,y1]:=50;ht[x1,y1]:=1;
g1:=g1-20; end
 ; if (cx=2) and (g1>459) and (w1>99) then begin hn[x1,y1]:=2; hh[x1,y1]:=30;ht[x1,y1]:=1;
g1:=g1-450;w1:=w1-100; end
 ; if (cx=3) and (g1>19) and (w1>299) then begin writeln('lox')  ; hn[x1,y1]:=3; hh[x1,y1]:=15;ht[x1,y1]:=1;
g1:=g1-20;w1:=w1-300; end
 ; if (cx=7) and (g1>599) and (w1>99) then begin hn[x1,y1]:=7; hh[x1,y1]:=30;ht[x1,y1]:=1;
g1:=g1-600;w1:=w1-100; end
 ; if (cx=8) and (g1>999) and (w1>499) then begin hn[x1,y1]:=8; hh[x1,y1]:=30;ht[x1,y1]:=1;
g1:=g1-1000;w1:=w1-500; end
;  end
end
   ;  ;  ; if (un[x1,y1]=2) and (ut[x1,y1]=1) then begin
writeln('5-атака');
  ;  ; readln(cx); 
  if (cx=8) and (uh[x1,y1-1]=0) and ((hn[x1,y1-1]<>1)) then begin
  uh[x1,y1-1]:=uh[x1,y1];
  un[x1,y1-1]:=un[x1,y1];
  ut[x1,y1-1]:=ut[x1,y1];
  uh[x1,y1]:=0;
  y1:=y1-1;
  end
   ; if (cx=2) and (uh[x1,y1+1]=0) and ((hn[x1,y1+1]<>1) ) then begin
  uh[x1,y1+1]:=uh[x1,y1];
  un[x1,y1+1]:=un[x1,y1];
  ut[x1,y1+1]:=ut[x1,y1];
  uh[x1,y1]:=0;
  y1:=y1+1
  end
   ; if (cx=6) and (uh[x1+1,y1]=0) and ((hn[x1+1,y1]<>1) ) then begin
  uh[x1+1,y1]:=uh[x1,y1];
  un[x1+1,y1]:=un[x1,y1];
  ut[x1+1,y1]:=ut[x1,y1];
  uh[x1,y1]:=0;
  x1:=x1+1
  end
     ; if (cx=4) and (uh[x1-1,y1]=0) and ((hn[x1-1,y1]<>1) ) then begin
  uh[x1-1,y1]:=uh[x1,y1];
  un[x1-1,y1]:=un[x1,y1];
  ut[x1-1,y1]:=ut[x1,y1];
  uh[x1,y1]:=0;
  x1:=x1-1
  end
     ; if (cx=5) then begin
writeln('выбрать напрпавление атаки');
  ;  ; readln(cx); 
  if (cx=8) and ((ut[x1,y1-1]=2)or(ht[x1,y1-1]=2)) then begin
  uh[x1,y1-1]:=uh[x1,y1-1]-4;
  hh[x1,y1-1]:=hh[x1,y1-1]-2;
  end
   ; if (cx=2) and ((ut[x1,y1+1]=2)or(ht[x1,y1+1]=2)) then begin
  uh[x1,y1+1]:=uh[x1,y1+1]-4;
  hh[x1,y1+1]:=hh[x1,y1+1]-2;
  end
   ; if (cx=4) and ((ut[x1-1,y1]=2)or(ht[x1-1,y1]=2)) then begin
  uh[x1-1,y1]:=uh[x1,y1]-4;
  hh[x1-1,y1]:=hh[x1,y1]-2;
  end
   ; if (cx=6) and ((ut[x1+1,y1]=2)or(ht[x1+1,y1]=2)) then begin
  uh[x1+1,y1]:=uh[x1+1,y1]-4;
  hh[x1+1,y1]:=hh[x1+1,y1]-2;
  end
  end
 ; writeln('второе действие')
 ; writeln('5-атака');
  ;  ; readln(cx); 
  if (cx=8) and (uh[x1,y1-1]=0) and ((hn[x1,y1-1]<>1)) then begin
  uh[x1,y1-1]:=uh[x1,y1];
  un[x1,y1-1]:=un[x1,y1];
  ut[x1,y1-1]:=3
   ; uh[x1,y1]:=0;
  end
   ; if (cx=2) and (uh[x1,y1+1]=0) and ((hn[x1,y1+1]<>1) and (ht[x1,y1+1]<>1)) then begin
  uh[x1,y1+1]:=uh[x1,y1];
  un[x1,y1+1]:=un[x1,y1];
  ut[x1,y1+1]:=3
   ; uh[x1,y1]:=0;
  end
   ; if (cx=6) and (uh[x1+1,y1]=0) and ((hn[x1+1,y1]<>1) ) then begin
  uh[x1+1,y1]:=uh[x1,y1];
  un[x1+1,y1]:=un[x1,y1];
  ut[x1+1,y1]:=3
   ; uh[x1,y1]:=0;
  end
     ; if (cx=4) and (uh[x1-1,y1]=0) and ((hn[x1-1,y1]<>1) ) then begin
  uh[x1-1,y1]:=uh[x1,y1];
  un[x1-1,y1]:=un[x1,y1];
  ut[x1-1,y1]:=3
   ; uh[x1,y1]:=0;
  end
     ; if (cx=5) then begin
writeln('выбрать напрпавление атаки');
  ;  ; readln(cx); 
  if (cx=8) and ((ut[x1,y1-1]=2)or(ht[x1,y1-1]=2)) then begin
  uh[x1,y1-1]:=uh[x1,y1-1]-4;
  hh[x1,y1-1]:=hh[x1,y1-1]-2;
  end
   ; if (cx=2) and ((ut[x1,y1+1]=2)or(ht[x1,y1+1]=2)) then begin
  uh[x1,y1+1]:=uh[x1,y1+1]-4;
  hh[x1,y1+1]:=hh[x1,y1+1]-2;
  end
   ; if (cx=4) and ((ut[x1-1,y1]=2)or(ht[x1-1,y1]=2)) then begin
  uh[x1-1,y1]:=uh[x1,y1]-4;
  hh[x1-1,y1]:=hh[x1,y1]-2;
  end
   ; if (cx=6) and ((ut[x1+1,y1]=2)or(ht[x1+1,y1]=2)) then begin
  uh[x1+1,y1]:=uh[x1+1,y1]-4;
  hh[x1+1,y1]:=hh[x1+1,y1]-2;
  end
     ; ut[x1,y1]:=3;
  end
   ; ut[x1,y1]:=3;
  end
     ;  ;  ; if (un[x1,y1]=3) and (ut[x1,y1]=1) then begin
writeln('5-атака');
  ;  ; readln(cx); 
  if (cx=8) and (uh[x1,y1-1]=0) and ((hn[x1,y1-1]<>1)) then begin
  uh[x1,y1-1]:=uh[x1,y1];
  un[x1,y1-1]:=un[x1,y1];
  ut[x1,y1-1]:=3;
  uh[x1,y1]:=0;
  end
   ; if (cx=2) and (uh[x1,y1+1]=0) and ((hn[x1,y1+1]<>1) and (ht[x1,y1+1]<>1)) then begin
  uh[x1,y1+1]:=uh[x1,y1];
  un[x1,y1+1]:=un[x1,y1];
  ut[x1,y1+1]:=3;
  uh[x1,y1]:=0;
  end
   ; if (cx=6) and (uh[x1+1,y1]=0) and ((hn[x1+1,y1]<>1) ) then begin
  uh[x1+1,y1]:=uh[x1,y1];
  un[x1+1,y1]:=un[x1,y1];
  ut[x1+1,y1]:=3;
  uh[x1,y1]:=0;
  end
     ; if (cx=4) and (uh[x1-1,y1]=0) and ((hn[x1-1,y1]<>1) ) then begin
  uh[x1-1,y1]:=uh[x1,y1];
  un[x1-1,y1]:=un[x1,y1];
  ut[x1-1,y1]:=3;
  uh[x1,y1]:=0;
  end
     ; if (cx=5) then begin
writeln('выбрать напрпавление атаки');
  ;  ; readln(cx); 
  if (cx=8) and ((ut[x1,y1-1]=2)or(ht[x1,y1-1]=2)) then begin
  uh[x1,y1-1]:=uh[x1,y1-1]-4;
  hh[x1,y1-1]:=hh[x1,y1-1]-3;
  end
   ; if (cx=2) and ((ut[x1,y1+1]=2)or(ht[x1,y1+1]=2)) then begin
  uh[x1,y1+1]:=uh[x1,y1+1]-4;
  hh[x1,y1+1]:=hh[x1,y1+1]-3;
  end
   ; if (cx=4) and ((ut[x1-1,y1]=2)or(ht[x1-1,y1]=2)) then begin
  uh[x1-1,y1]:=uh[x1,y1]-4;
  hh[x1-1,y1]:=hh[x1,y1]-3;
  end
   ; if (cx=6) and ((ut[x1+1,y1]=2)or(ht[x1+1,y1]=2)) then begin
  uh[x1+1,y1]:=uh[x1+1,y1]-4;
  hh[x1+1,y1]:=hh[x1+1,y1]-3;
  end
   ; ut[x1,y1]:=3;
  end
  end
       ;  ;  ; if (un[x1,y1]=4) and (ut[x1,y1]=1) then begin
writeln('5-атака');
  ;  ; readln(cx); 
  if (cx=8) and (uh[x1,y1-1]=0) and ((hn[x1,y1-1]<>1)) then begin
  uh[x1,y1-1]:=uh[x1,y1];
  un[x1,y1-1]:=un[x1,y1];
  ut[x1,y1-1]:=3;
  uh[x1,y1]:=0;
  end
   ; if (cx=2) and (uh[x1,y1+1]=0) and ((hn[x1,y1+1]<>1) and (ht[x1,y1+1]<>1)) then begin
  uh[x1,y1+1]:=uh[x1,y1];
  un[x1,y1+1]:=un[x1,y1];
  ut[x1,y1+1]:=3;
  uh[x1,y1]:=0;
  end
   ; if (cx=6) and (uh[x1+1,y1]=0) and ((hn[x1+1,y1]<>1) ) then begin
  uh[x1+1,y1]:=uh[x1,y1];
  un[x1+1,y1]:=un[x1,y1];
  ut[x1+1,y1]:=3;
  uh[x1,y1]:=0;
  end
     ; if (cx=4) and (uh[x1-1,y1]=0) and ((hn[x1-1,y1]<>1) ) then begin
  uh[x1-1,y1]:=uh[x1,y1];
  un[x1-1,y1]:=un[x1,y1];
  ut[x1-1,y1]:=3;
  uh[x1,y1]:=0;
  end
     ; if (cx=5) then begin
writeln('введите координаты для обстрела')
 ; write('x:')
 ; readln(x3)
 ; write('y:')
 ; readln(y3)
 ; if ((x3>=x1-3) and (x3<=x1+3)) and ((y3>=y1-3) and (y3<=y1+3)) then
if (ut[x3,y3]=2) or (ht[x3,y3]=2) then begin hh[x3,y3]:=hh[x3,y3]-2; uh[x3,y3]:=uh[x3,y3]-5;ut[x1,y1]:=3  end
end
end
       ;  ;  ; if (un[x1,y1]=5) and (ut[x1,y1]=1) then begin
writeln('5-атака');
  ;  ; readln(cx); 
  if (cx=8) and (uh[x1,y1-1]=0) and ((hn[x1,y1-1]<>1)) then begin
  uh[x1,y1-1]:=uh[x1,y1];
  un[x1,y1-1]:=un[x1,y1];
  ut[x1,y1-1]:=3;
  uh[x1,y1]:=0;
  end
   ; if (cx=2) and (uh[x1,y1+1]=0) and ((hn[x1,y1+1]<>1)) then begin
  uh[x1,y1+1]:=uh[x1,y1];
  un[x1,y1+1]:=un[x1,y1];
  ut[x1,y1+1]:=3;
  uh[x1,y1]:=0;
  end
   ; if (cx=6) and (uh[x1+1,y1]=0) and ((hn[x1+1,y1]<>1)) then begin
  uh[x1+1,y1]:=uh[x1,y1];
  un[x1+1,y1]:=un[x1,y1];
  ut[x1+1,y1]:=3;
  uh[x1,y1]:=0;
  end
     ; if (cx=4) and (uh[x1-1,y1]=0) and ((hn[x1-1,y1]<>1)) then begin
  uh[x1-1,y1]:=uh[x1,y1];
  un[x1-1,y1]:=un[x1,y1];
  ut[x1-1,y1]:=3;
  uh[x1,y1]:=0;
  end
     ; if (cx=5) then begin
writeln('введите координаты для обстрела')
 ; write('x:')
 ; readln(x3)
 ; write('y:')
 ; readln(y3)
 ; if ((x3>=x1-6) and (x3<=x1+6)) and ((y3>=y1-6) and (y3<=y1+6)) then
if (ut[x3,y3]=2) or (ht[x3,y3]=2) then begin hh[x3,y3]:=hh[x3,y3]-10; uh[x3,y3]:=uh[x3,y3]-5;ut[x1,y1]:=3  end
end
end
 end 
  end
   ; r7:=0
  end
   ; begin
   ;  ; writeln('новая игра-1 продолжить-2')
   ; readln(o)
    ; if o=1 then begin
   progen
    ; f:=40;
   x:=16;
    ;  ; hn[25,50]:=4;
   ht[25,50]:=1;
   hh[25,50]:=50;
   hn[75,50]:=4;
   ht[75,50]:=2;
   hh[75,50]:=50;
    ;  ; g1:=300
    ; w1:=200
     ; writeln('введите имя комнаты');
readln(save);
save:=save+'.txt'
     ; assign(f2,'xod'+save);                                    
   rewrite(f2);                           
           write(f2,1);
           close(f2);
     ;  ; assign(f2,'g1'+save);                                    
   rewrite(f2);                           
           write(f2,g1);
           close(f2);
        assign(f2,'w1'+save);                                    
   rewrite(f2);                           
           write(f2,w1);
           close(f2);
         assign(f2,'pole'+save);                                  
   rewrite(f2);                           
   for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,hn[i1,j1]);
                      write(f2,' '); end end
                       ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,ht[i1,j1]);
                      write(f2,' '); end end
            ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,hh[i1,j1]);
                      write(f2,' '); end end           
         ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,un[i1,j1]);
                      write(f2,' '); end end              
             ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,uh[i1,j1]);
                      write(f2,' '); end end          
            ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,ut[i1,j1]);
                      write(f2,' '); end end ;
                                 write(f2,200);
           close(f2);
     ; assign(f2,'w2'+save);                                    
   rewrite(f2);                           
           write(f2,300);
           close(f2);
                ; assign(f2,'g2'+save);                                    
   rewrite(f2);                           
           write(f2,200);
           close(f2);
                           ; assign(f2,'g3'+save);                                    
   rewrite(f2);                           
           write(f2,200);
           close(f2);
                           ; assign(f2,'w3'+save);                                    
   rewrite(f2);                           
           write(f2,300);
           close(f2);
                           ; assign(f2,'g4'+save);                                    
   rewrite(f2);                           
           write(f2,200);
           close(f2);
                           ; assign(f2,'w4'+save);                                    
   rewrite(f2);                           
           write(f2,300);
           close(f2);
 end
        ;  ;  ; if o=2 then begin
         ;  ; writeln('введите имя комнаты');
readln(save);
save:=save+'.txt'
        ;  ;  ; assign(f2,'g1'+save);                                    
   reset(f2);                           
           read(f2,g1);
           close(f2);
        assign(f2,'w1'+save);                                    
   reset(f2);                           
           read(f2,w1);
           close(f2);
         assign(f2,'pole'+save);                                  
   reset(f2);                           
   for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,hn[i1,j1]); end end
                       ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,ht[i1,j1]); end end
            ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,hh[i1,j1]);    end end      
         ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,un[i1,j1]); end end           
             ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,uh[i1,j1]);  end end  
            ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,ut[i1,j1]);  end end                              
   end  ; repeat
      repeat
      delay(2000);
      assign(f2,'xod'+save);
      reset(f2);
     read(f2,f10);
     close(f2);
      until f10=1;
               assign(f2,'pole'+save);                                  
   reset(f2);                           
   for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,hn[i1,j1]); end end
                       ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,ht[i1,j1]); end end
            ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,hh[i1,j1]);    end end      
         ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,un[i1,j1]); end end           
             ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,uh[i1,j1]);  end end  
            ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,ut[i1,j1]);  end end 
       ; f10:=0
; g5:=0;
      ;  ; repeat
matrixI
until hotkey='r'
 ; j:=0
 ;  ;  ;  ;  ; if hotkey='r' then
repeat
xod1
 ; if x1=100 then break
 ; j:=j+1
  ; matrixI;
until j=11
 ; j:=0
     ; w:=-1
   ;  ;  ; q := -1;
  repeat
    repeat 
       ;  ; if ut[q, w] = 3 then
        ut[q, w] := 1 ;
       ;  ; q := q + 1
    until q = 100;
    q := -1;
    w := w + 1
  until w = 100;
  w := 0;
       ;  ; assign(f2,'g1'+save);                                    
   rewrite(f2);                           
           write(f2,g1);
           close(f2);
        assign(f2,'w1'+save);                                    
   rewrite(f2);                           
           write(f2,w1);
           close(f2);
         assign(f2,'pole'+save);                                  
   rewrite(f2);                           
   for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,hn[i1,j1]);
                      write(f2,' '); end end
                       ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,ht[i1,j1]);
                      write(f2,' '); end end
            ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,hh[i1,j1]);
                      write(f2,' '); end end           
         ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,un[i1,j1]);
                      write(f2,' '); end end              
             ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,uh[i1,j1]);
                      write(f2,' '); end end          
            ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,ut[i1,j1]);
                      write(f2,' '); end end           
     ; close(f2);
    assign(f2,'xod'+save)
     ; rewrite(f2)
     ; write(f2,2);
    close(f2);
    ;  ; clrscr 
     ; writeln('ожидание');
    delay(2000)
    until x=999
   end
 .

program age1;
uses crt;
var
 
  j1: Integer;
 
  i1: Integer;
 
  code,f10,g5,g,i,k,j,l,m,n,o,p,q,y,x,f,cy,cx,w,r1,r2,s2,q2,w2,r4,r5,r6,r7,m1,x1,y1,g1,g2,w1,y2,x2,x3,y3:integer;
hotkey,cx2:Char
 ; save:String 
  ; f2:text
  ;  uN: array [-1..100, -1..100] of integer;
  uH: array [-1..100, -1..100] of integer;
  Hh: array [-1..100, -1..100] of integer;
  Hn: array [-2..100, -2..100] of integer;
  Ht: array [-1..100, -1..100] of integer;
  uT: array [-1..100, -1..100] of integer;
  Hg: array [-1..100, -1..100] of string;
  uG: array [-1..100, -1..100] of string;
  procedure matrixI
   ; begin
   w:=-1
   ;  ;  ; q := -1;
  repeat
    repeat 
    if uh[q, w] < 1 then begin
        un[q, w] := 0 ;
        ut[q,w]:=0;
        uh[q,w]:=0; end
     ; if hh[q, w] < 0 then begin
        hn[q, w] := 0 ;
        ht[q,w]:=0; 
        hh[q,w]:=0; end
       ; if hn[q, w] = 6 then
        hg[q, w] := '$' ;
      if hn[q, w] = 5 then
        hg[q, w] := 'T' ;
      if hn[q, w] = 4 then
        hg[q, w] := 'P' ;
      if hn[q, w] = 0 then
        hg[q, w] := '▓' ;
      if hn[q,w] = 2 then
        hg[q, w] := 'Q' ;
        if hn[q, w] = 3 then
        hg[q, w] := '№' ;
        if hn[q, w] = 7 then
        hg[q, w] := 'ф' ;
        if hn[q, w] = 8 then
        hg[q, w] := '‡' ;
        if hn[q, w] = 1 then
        hg[q, w] := 'I' ;
              if un[q, w] = 0 then
        ug[q, w] := '▒' ;
      if un[q, w] = 1 then
        ug[q, w] := 'П' ;
      if un[q, w] = 2 then
        ug[q, w] := 'Л' ;
      if un[q,w] = 3 then
        ug[q, w] := '@' ;
        if un[q, w] = 4 then
        ug[q, w] := 'D' ;
        if un[q, w] = 5 then
        ug[q, w] := 'Г' ;
      ;
       ; q := q + 1
    until q = 100;
    q := -1;
    w := w + 1
  until w = 100;
  w := 0;
   ;  ;hotkey:=readkey
   ; if (hotkey ='w') and (f>0) then begin ;  ; f:=f-4 end
     ; if (hotkey ='s') and (f<76) then begin ;  ; f:=f+4 end
     ; if (hotkey ='a') and (x>0) then begin ;  ; x:=x-4 end
       ; if (hotkey ='d') and (x<76) then begin ;  ;x:=x+4 end
    ;  ;  ; clrscr
    ; cy:=f
     ; cx:=x;
     write(' ')
     ; repeat
     if cx<10 then  begin
     write('   ',cx) end else write('  ',cx);
 ;  ; cx:=cx+2
    until cx=x+24
     ; cx:=cx-23;
     writeln('     ')
      ; write('   ')
      ; repeat
     ;  ; if cx<10 then  begin
      ;  ; write('   ',cx) end else write('  ',cx);
          ;  ; cx:=cx+2
     ; until cx>x+24
      ; writeln()
       ; writeln('   ________________________________________________')
  ;     ;  ; repeat
  if cy<10 then begin
    write(' ',cy,'|',hg[x, g+f],Ug[x, g+f]); end else
    write(cy,'|',hg[x, g+f],Ug[x, g+f]);
    write(hg[x+1, g+f],Ug[x+1, g+f]);
    write(hg[x+2, g+f],Ug[x+2, g+f]);
    write(hg[x+3, g+f],Ug[x+3, g+f]);
    write(hg[x+4, g+f],Ug[x+4, g+f]);
    write(hg[x+5, g+f],Ug[x+5, g+f]);
    write(hg[x+6, g+f],Ug[x+6, g+f]);
    write(hg[x+7, g+f],Ug[x+7, g+f]);
    write(hg[x+8, g+f],Ug[x+8, g+f]);
write(hg[x+9, g+f],Ug[x+9, g+f]);
write(hg[x+10, g+f],Ug[x+10, g+f]);
write(hg[x+11, g+f],Ug[x+11, g+f]);
write(hg[x+12, g+f],Ug[x+12, g+f]);
write(hg[x+13, g+f],Ug[x+13, g+f]);
write(hg[x+14, g+f],Ug[x+14, g+f]);
write(hg[x+15, g+f],Ug[x+15, g+f]);
write(hg[x+16, g+f],Ug[x+16, g+f]);
write(hg[x+17, g+f],Ug[x+17, g+f]);
write(hg[x+18, g+f],Ug[x+18, g+f]);
write(hg[x+19, g+f],Ug[x+19, g+f]);
write(hg[x+20, g+f],Ug[x+20, g+f]);
write(hg[x+21, g+f],Ug[x+21, g+f]);
write(hg[x+22, g+f],Ug[x+22, g+f]);
    writeln(hg[x+23, g+f],ug[x+23, g+f], '|');
     ;  ; g:=g+1
     ; cy:=cy+1
  until g = 24;
  writeln('   """"""""""""""""""""""""""""""""""""""""""""""""');
   ;  ; writeln('r-ход')
    ; if g5=0 then begin
   ;  ; writeln('золото-',g2,';',' дерево-',w2,'; жизни ратуши:',hh[75,50]) end
     ; g:=0 
  end
   ;    procedure xod2;
    begin
   writeln('100,100-пропуск хода')
     ; 
   ;  ; write('координата х:');
   repeat
  readln(x1);
  until (x1>=-1) and (x1<101)
   ; write('координата y:');
  readln(y1);
  if x1=-1 then begin g2:=9999;w2:=9999 end;
  if x1<>100 then
  begin
   ;  ; if (hn[x1,y1]<>0) then  begin writeln('хотите управлять 1:человеком или 2:домом?')
    ; readln(r5)
     ; if r5=2 then begin
   ;  ; if ht[x1,y1]=2 then if hn[x1,y1]=4 then begin
   
  ;  ; writeln('создать крестьянина?');
 writeln('50 дерева, 100 золота');
 writeln('1-да            2-нет');
  readln(r5)
   ; if (r5=1) and (g2>99) and (w2>49) then begin
  un[x1,y1]:=1;
  ut[x1,y1]:=2;
  uh[x1,y1]:=4;
  g2:=g2-100;
  w2:=w2-50;
  r7:=1;
  end 
  end
   ;  ;  ; if ht[x1,y1]=2 then if hn[x1,y1]=2 then begin
 
  ;  ; writeln('создать конного война?');
 writeln('50 дерева, 200 золота');
 writeln('1-да            2-нет');
  readln(r5)
   ; if (r5=1) and (g2>199) and (w2>49) then begin
  un[x1,y1]:=2;
  ut[x1,y1]:=2;
  uh[x1,y1]:=10;
  g2:=g2-200;
  w2:=w2-50;
  r7:=1;
  end
  end
     ;  ;  ; if ht[x1,y1]=2 then if hn[x1,y1]=3 then begin
 
  ;  ; writeln('создать мечника?');
 writeln('150 дерева, 50 золота');
 writeln('1-да            2-нет');
  readln(r5)
   ; if (r5=1) and (g2>49) and (w2>149) then begin
  un[x1,y1]:=3;
  ut[x1,y1]:=2;
  uh[x1,y1]:=15;
  g2:=g2-50;
  w2:=w2-150;
  r7:=1;
  end
  end
     ;  ;  ; if ht[x1,y1]=2 then if hn[x1,y1]=7 then begin
  ;  ; writeln('создать лучника?');
 writeln('150 дерева, 100 золота');
 writeln('1-да            2-нет');
  readln(r5)
   ; if (r5=1) and (g2>99) and (w2>149) then begin
  un[x1,y1]:=4;
  ut[x1,y1]:=2;
  uh[x1,y1]:=8;
  g2:=g2-100;
  w2:=w2-150;
  r7:=1;
  end
  end
   ;  ;  ; if ht[x1,y1]=2 then if hn[x1,y1]=8 then begin
  ;  ; writeln('создать требушет?');
 writeln('400 дерева, 200 золота');
 writeln('1-да            2-нет');
  readln(r5)
   ; if (r5=1) and (g2>199) and (w2>400-1) then begin
  un[x1,y1]:=5;
  ut[x1,y1]:=2;
  uh[x1,y1]:=10;
  g2:=g2-200;
  w2:=w2-400;
  r7:=1;
  end
  end
  end
  end
   ; if r7=0 then begin
   ;  ; if (un[x1,y1]=1) and (ut[x1,y1]=2) then begin
writeln('5-добыча')
 ; writeln('9-строительство')
  ; readln(cx); 
  if (cx=8) and (uh[x1,y1-1]=0) and (hn[x1,y1-1]<>1) then begin
  uh[x1,y1-1]:=uh[x1,y1];
  un[x1,y1-1]:=un[x1,y1];
  ut[x1,y1-1]:=ut[x1,y1];
  uh[x1,y1]:=0;
  end
   ; if (cx=2) and (uh[x1,y1+1]=0) and (hn[x1,y1+1]<>1) then begin
  uh[x1,y1+1]:=uh[x1,y1];
  un[x1,y1+1]:=un[x1,y1];
  ut[x1,y1+1]:=ut[x1,y1];
  uh[x1,y1]:=0;
  end
   ; if (cx=6) and (uh[x1+1,y1]=0) and ((hn[x1+1,y1]<>1)) then begin
  uh[x1+1,y1]:=uh[x1,y1];
  un[x1+1,y1]:=un[x1,y1];
  ut[x1+1,y1]:=ut[x1,y1];
  uh[x1,y1]:=0;
  end
     ; if (cx=4) and (uh[x1-1,y1]=0) and ((hn[x1-1,y1]<>1)) then begin
  uh[x1-1,y1]:=uh[x1,y1];
  un[x1-1,y1]:=un[x1,y1];
  ut[x1-1,y1]:=ut[x1,y1];
  uh[x1,y1]:=0;
  end
     ; if (cx=5) and (hn[x1,y1]=5) then begin
  w2:=w2+60;
    hn[x1,y1]:=0;
  end
       ; if (cx=5) and (hn[x1,y1]=6) then begin
  g2:=g2+120;
  hn[x1,y1]:=0;
;  end
 ; if (cx=9) and (hn[x1,y1]=0) then begin
writeln('что вы хотите построить?')
 ; writeln('1-стена:20 золота');
writeln('2-конюшня:450 золота,100 дерева');
writeln('3-казарма:300 дерево,20 золота');
writeln('7-стрельбище:600 дерева,100 золота');
writeln('8-палата инженера:1000 золота,500 дерева');
readln(cx);
if (cx=1) and (g2>19) then begin hn[x1,y1]:=1; hh[x1,y1]:=50;ht[x1,y1]:=2;
g2:=g2-20; end
 ; if (cx=2) and (g2>459) and (w2>99) then begin hn[x1,y1]:=2; hh[x1,y1]:=30;ht[x1,y1]:=2;
g2:=g2-450;w2:=w2-100; end
 ; if (cx=3) and (g2>19) and (w2>299) then begin  ;  ; hn[x1,y1]:=3; hh[x1,y1]:=15;ht[x1,y1]:=2;
g2:=g2-20;w2:=w2-300; end
 ; if (cx=7) and (g2>599) and (w2>99) then begin hn[x1,y1]:=7; hh[x1,y1]:=30;ht[x1,y1]:=2;
g2:=g2-600;w2:=w2-100; end
 ; if (cx=8) and (g2>999) and (w2>499) then begin hn[x1,y1]:=8; hh[x1,y1]:=30;ht[x1,y1]:=2;
g2:=g2-1000;w2:=w2-500; end
;  end
end
   ;  ;  ; if (un[x1,y1]=2) and (ut[x1,y1]=2) then begin
writeln('5-атака');
  ;  ; readln(cx); 
  if (cx=8) and (uh[x1,y1-1]=0) and (hn[x1,y1-1]<>1) then begin
  uh[x1,y1-1]:=uh[x1,y1];
  un[x1,y1-1]:=un[x1,y1];
  ut[x1,y1-1]:=ut[x1,y1];
  uh[x1,y1]:=0;
  y1:=y1-1;
  end
   ; if (cx=2) and (uh[x1,y1+1]=0) and ((hn[x1,y1+1]<>1)) then begin
  uh[x1,y1+1]:=uh[x1,y1];
  un[x1,y1+1]:=un[x1,y1];
  ut[x1,y1+1]:=ut[x1,y1];
  uh[x1,y1]:=0;
  y1:=y1+1
  end
   ; if (cx=6) and (uh[x1+1,y1]=0) and ((hn[x1+1,y1]<>1)) then begin
  uh[x1+1,y1]:=uh[x1,y1];
  un[x1+1,y1]:=un[x1,y1];
  ut[x1+1,y1]:=ut[x1,y1];
  uh[x1,y1]:=0;
  x1:=x1+1
  end
     ; if (cx=4) and (uh[x1-1,y1]=0) and (hn[x1-1,y1]<>1) then begin
  uh[x1-1,y1]:=uh[x1,y1];
  un[x1-1,y1]:=un[x1,y1];
  ut[x1-1,y1]:=ut[x1,y1];
  uh[x1,y1]:=0;
  x1:=x1-1
  end
     ; if (cx=5) then begin
writeln('выбрать напрпавление атаки');
  ;  ; readln(cx); 
  if (cx=8) and ((ut[x1,y1-1]=1)or(ht[x1,y1-1]=1)) then begin
  uh[x1,y1-1]:=uh[x1,y1-1]-4;
  hh[x1,y1-1]:=hh[x1,y1-1]-2;
  end
   ; if (cx=2) and ((ut[x1,y1+1]=1)or(ht[x1,y1+1]=1)) then begin
  uh[x1,y1+1]:=uh[x1,y1+1]-4;
  hh[x1,y1+1]:=hh[x1,y1+1]-2;
  end
   ; if (cx=4) and ((ut[x1-1,y1]=1)or(ht[x1-1,y1]=1)) then begin
  uh[x1-1,y1]:=uh[x1,y1]-4;
  hh[x1-1,y1]:=hh[x1,y1]-2;
  end
   ; if (cx=6) and ((ut[x1+1,y1]=1)or(ht[x1+1,y1]=1)) then begin
  uh[x1+1,y1]:=uh[x1+1,y1]-4;
  hh[x1+1,y1]:=hh[x1+1,y1]-2;
  end
  end
 ; writeln('второе действие')
 ; writeln('5-атака');
  ;  ; readln(cx); 
  if (cx=8) and (uh[x1,y1-1]=0) and (hn[x1,y1-1]<>1) then begin
  uh[x1,y1-1]:=uh[x1,y1];
  un[x1,y1-1]:=un[x1,y1];
  ut[x1,y1-1]:=4
   ; uh[x1,y1]:=0;
  end
   ; if (cx=2) and (uh[x1,y1+1]=0) and (hn[x1,y1+1]<>1) then begin
  uh[x1,y1+1]:=uh[x1,y1];
  un[x1,y1+1]:=un[x1,y1];
  ut[x1,y1+1]:=4
   ; uh[x1,y1]:=0;
  end
   ; if (cx=6) and (uh[x1+1,y1]=0) and ((hn[x1+1,y1]<>1)) then begin
  uh[x1+1,y1]:=uh[x1,y1];
  un[x1+1,y1]:=un[x1,y1];
  ut[x1+1,y1]:=4
   ; uh[x1,y1]:=0;
  end
     ; if (cx=4) and (uh[x1-1,y1]=0) and ((hn[x1-1,y1]<>1)) then begin
  uh[x1-1,y1]:=uh[x1,y1];
  un[x1-1,y1]:=un[x1,y1];
  ut[x1-1,y1]:=4
   ; uh[x1,y1]:=0;
  end
     ; if (cx=5) then begin
writeln('выбрать напрпавление атаки');
  ;  ; readln(cx); 
  if (cx=8) and ((ut[x1,y1-1]=1)or(ht[x1,y1-1]=1)) then begin
  uh[x1,y1-1]:=uh[x1,y1-1]-4;
  hh[x1,y1-1]:=hh[x1,y1-1]-2;
  end
   ; if (cx=2) and ((ut[x1,y1+1]=1)or(ht[x1,y1+1]=1)) then begin
  uh[x1,y1+1]:=uh[x1,y1+1]-4;
  hh[x1,y1+1]:=hh[x1,y1+1]-2;
  end
   ; if (cx=4) and ((ut[x1-1,y1]=1)or(ht[x1-1,y1]=1)) then begin
  uh[x1-1,y1]:=uh[x1,y1]-4;
  hh[x1-1,y1]:=hh[x1,y1]-2;
  end
   ; if (cx=6) and ((ut[x1+1,y1]=1)or(ht[x1+1,y1]=1)) then begin
  uh[x1+1,y1]:=uh[x1+1,y1]-4;
  hh[x1+1,y1]:=hh[x1+1,y1]-2;
  end
     ; ut[x1,y1]:=4;
  end
   ; ut[x1,y1]:=4;
  end
     ;  ;  ; if (un[x1,y1]=3) and (ut[x1,y1]=2) then begin
writeln('5-атака');
  ;  ; readln(cx); 
  if (cx=8) and (uh[x1,y1-1]=0) and ((hn[x1,y1-1]<>1)) then begin
  uh[x1,y1-1]:=uh[x1,y1];
  un[x1,y1-1]:=un[x1,y1];
  ut[x1,y1-1]:=4;
  uh[x1,y1]:=0;
  end
   ; if (cx=2) and (uh[x1,y1+1]=0) and (hn[x1,y1+1]<>1) then begin
  uh[x1,y1+1]:=uh[x1,y1];
  un[x1,y1+1]:=un[x1,y1];
  ut[x1,y1+1]:=4;
  uh[x1,y1]:=0;
  end
   ; if (cx=6) and (uh[x1+1,y1]=0) and ((hn[x1+1,y1]<>1)) then begin
  uh[x1+1,y1]:=uh[x1,y1];
  un[x1+1,y1]:=un[x1,y1];
  ut[x1+1,y1]:=4;
  uh[x1,y1]:=0;
  end
     ; if (cx=4) and (uh[x1-1,y1]=0) and ((hn[x1-1,y1]<>1)) then begin
  uh[x1-1,y1]:=uh[x1,y1];
  un[x1-1,y1]:=un[x1,y1];
  ut[x1-1,y1]:=4;
  uh[x1,y1]:=0;
  end
     ; if (cx=5) then begin
writeln('выбрать напрпавление атаки');
  ;  ; readln(cx); 
  if (cx=8) and ((ut[x1,y1-1]=1)or(ht[x1,y1-1]=1)) then begin
  uh[x1,y1-1]:=uh[x1,y1-1]-4;
  hh[x1,y1-1]:=hh[x1,y1-1]-3;
  end
   ; if (cx=2) and ((ut[x1,y1+1]=1)or(ht[x1,y1+1]=1)) then begin
  uh[x1,y1+1]:=uh[x1,y1+1]-4;
  hh[x1,y1+1]:=hh[x1,y1+1]-3;
  end
   ; if (cx=4) and ((ut[x1-1,y1]=1)or(ht[x1-1,y1]=1)) then begin
  uh[x1-1,y1]:=uh[x1,y1]-4;
  hh[x1-1,y1]:=hh[x1,y1]-3;
  end
   ; if (cx=6) and ((ut[x1+1,y1]=1)or(ht[x1+1,y1]=1)) then begin
  uh[x1+1,y1]:=uh[x1+1,y1]-4;
  hh[x1+1,y1]:=hh[x1+1,y1]-3;
  end
   ; ut[x1,y1]:=4;
  end
  end
       ;  ;  ; if (un[x1,y1]=4) and (ut[x1,y1]=2) then begin
writeln('5-атака');
  ;  ; readln(cx); 
  if (cx=8) and (uh[x1,y1-1]=0) and ((hn[x1,y1-1]<>1)) then begin
  uh[x1,y1-1]:=uh[x1,y1];
  un[x1,y1-1]:=un[x1,y1];
  ut[x1,y1-1]:=4;
  uh[x1,y1]:=0;
  end
   ; if (cx=2) and (uh[x1,y1+1]=0) and ((hn[x1,y1+1]<>1)) then begin
  uh[x1,y1+1]:=uh[x1,y1];
  un[x1,y1+1]:=un[x1,y1];
  ut[x1,y1+1]:=4;
  uh[x1,y1]:=0;
  end
   ; if (cx=6) and (uh[x1+1,y1]=0) and ((hn[x1+1,y1]<>1)) then begin
  uh[x1+1,y1]:=uh[x1,y1];
  un[x1+1,y1]:=un[x1,y1];
  ut[x1+1,y1]:=4;
  uh[x1,y1]:=0;
  end
     ; if (cx=4) and (uh[x1-1,y1]=0) and ((hn[x1-1,y1]<>1)) then begin
  uh[x1-1,y1]:=uh[x1,y1];
  un[x1-1,y1]:=un[x1,y1];
  ut[x1-1,y1]:=4;
  uh[x1,y1]:=0;
  end
     ; if (cx=5) then begin
writeln('введите координаты для обстрела')
 ; write('x:')
 ; readln(x3)
 ; write('y:')
 ; readln(y3)
 ; if ((x3>=x1-3) and (x3<=x1+3)) and ((y3>=y1-3) and (y3<=y1+3)) then
if (ut[x3,y3]=1) or (ht[x3,y3]=1) then begin hh[x3,y3]:=hh[x3,y3]-2; uh[x3,y3]:=uh[x3,y3]-5;ut[x1,y1]:=4 end
end
end
       ;  ;  ; if (un[x1,y1]=5) and (ut[x1,y1]=2) then begin
writeln('5-атака');
  ;  ; readln(cx); 
  if (cx=8) and (uh[x1,y1-1]=0) and (hn[x1,y1-1]<>1) then begin
  uh[x1,y1-1]:=uh[x1,y1];
  un[x1,y1-1]:=un[x1,y1];
  ut[x1,y1-1]:=4;
  uh[x1,y1]:=0;
  end
   ; if (cx=2) and (uh[x1,y1+1]=0) and ((hn[x1,y1+1]<>1)) then begin
  uh[x1,y1+1]:=uh[x1,y1];
  un[x1,y1+1]:=un[x1,y1];
  ut[x1,y1+1]:=4;
  uh[x1,y1]:=0;
  end
   ; if (cx=6) and (uh[x1+1,y1]=0) and ((hn[x1+1,y1]<>1)) then begin
  uh[x1+1,y1]:=uh[x1,y1];
  un[x1+1,y1]:=un[x1,y1];
  ut[x1+1,y1]:=4;
  uh[x1,y1]:=0;
  end
     ; if (cx=5) and (uh[x1-1,y1]=0) and ((hn[x1-1,y1]<>1)) then begin
  uh[x1-1,y1]:=uh[x1,y1];
  un[x1-1,y1]:=un[x1,y1];
  ut[x1-1,y1]:=4;
  uh[x1,y1]:=0;
  end
     ; if (cx=5) then begin
writeln('введите координаты для обстрела')
 ; write('x:')
 ; readln(x3)
 ; write('y:')
 ; readln(y3)
 ; if ((x3>=x1-6) and (x3<=x1+6)) and ((y3>=y1-6) and (y3<=y1+6)) then
if (ut[x3,y3]=1) or (ht[x3,y3]=1) then begin hh[x3,y3]:=hh[x3,y3]-10; uh[x3,y3]:=uh[x3,y3]-5;ut[x1,y1]:=4  end
end
end
 end 
  end
   ; r7:=0
  end;
  begin
           ;  ; writeln('введите имя комнаты');
readln(save);
save:=save+'.txt'
        ;  ;  ; assign(f2,'g2'+save);                                    
   reset(f2);                           
           read(f2,g2);
           close(f2);
        assign(f2,'w2'+save);                                    
   reset(f2);                           
           read(f2,w2);
           close(f2);
         assign(f2,'pole'+save);                                  
   reset(f2); 
for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,hn[i1,j1]); end end
                       ; for i1:=1 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,ht[i1,j1]); end end
            ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,hh[i1,j1]);    end end      
         ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,un[i1,j1]); end end           
             ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,uh[i1,j1]);  end end  
            ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,ut[i1,j1]);  end end; 
 ; repeat
      repeat
      delay(2000);
      assign(f2,'xod'+save);
      reset(f2);
     read(f2,f10);
     close(f2);
      until f10=2
              ;  ;  ; assign(f2,'g2'+save);                                    
  reset(f2);                           
           read(f2,g2);
           close(f2);
        assign(f2,'w2'+save);                                    
   reset(f2);                           
           read(f2,w2);
           close(f2);
         assign(f2,'pole'+save);                                  
   reset(f2);                           
   for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,hn[i1,j1]); end end
                       ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,ht[i1,j1]); end end
            ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,hh[i1,j1]);    end end      
         ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,un[i1,j1]); end end           
             ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,uh[i1,j1]);  end end  
            ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           read(f2,ut[i1,j1]);  end end;
           close(f2);
       ; f10:=0
; g5:=0;
      ;  ; repeat
matrixI
until hotkey='r'
 ; j:=0
 ;  ;  ;  ;  ; if hotkey='r' then
repeat
xod2
 ; if x1=100 then break
 ; j:=j+1
  ; matrixI;
until j=11
 ; j:=0
     ; w:=-1
   ;  ;  ; q := -1;
  repeat
    repeat 
       ;  ; if ut[q, w] = 4 then
        ut[q, w] := 2 ;
       ;  ; q := q + 1
    until q = 100;
    q := -1;
    w := w + 1
  until w = 100;
  w := 0;
       ;  ; assign(f2,'g2'+save);                                    
   rewrite(f2);                           
           write(f2,g2);
           close(f2);
        assign(f2,'w2'+save);                                    
   rewrite(f2);                           
           write(f2,w2);
           close(f2);
         assign(f2,'pole'+save);                                  
   rewrite(f2);                           
   for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,hn[i1,j1]);
                      write(f2,' '); end end
                       ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,ht[i1,j1]);
                      write(f2,' '); end end
            ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,hh[i1,j1]);
                      write(f2,' '); end end           
         ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,un[i1,j1]);
                      write(f2,' '); end end              
             ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,uh[i1,j1]);
                      write(f2,' '); end end          
            ; for i1:=0 to 99 do
     begin
       for j1:=0 to 99 do
         begin
           write(f2,ut[i1,j1]);
                      write(f2,' '); end end           
     ; close(f2);
    assign(f2,'xod'+save)
     ; rewrite(f2)
     ; write(f2,1);
    close(f2);
    ;  ; clrscr 
     ; writeln('ожидание');
    delay(2000)
    until x=999
   end
 .