Programalama > PASCAL

uses crt;
var
a,b,c,d:integer;
tus:char;
begin
a:=0;
b:=0;
c:=100;
d:=100;
textcolor(white);
gotoxy(1,1);
write(c);
gotoxy(77,1);
write(d);
textbackground(lightblue);
clrscr;
textcolor(yellow);
 gotoxy(31,14);
 write(#2);
 gotoxy(30,15);
 write('/',#179,'\');
 gotoxy(30,16);
 write('/ \');

  gotoxy(35,14);
 write(#2);
 gotoxy(34,15);
 write('/',#179,'\');
 gotoxy(34,16);
 write('/ \');
 while tus<>#27 do
begin
repeat
tus:=upcase(readkey);
until tus in['5','6',#77,#80,#27];
 if tus=#27 then
 exit;
if tus='6' then
begin
  b:=1;
  gotoxy(35,14);
 write(' ');
 gotoxy(34,15);
 write(' ',' ',' ');
 gotoxy(34,16);
 write('   ');

  gotoxy(36,14);
 write(#2);
 gotoxy(35,15);
 write('/',#179,'\');
 gotoxy(35,16);
 write('/ \');
end;
if tus=#80 then
begin
a:=1;
gotoxy(31,14);
 write(' ');
 gotoxy(30,15);
 write(' ',' ',' ');
 gotoxy(30,16);
 write('   ');
gotoxy(30,14);
 write(#2);
 gotoxy(29,15);
 write('/',#179,'\');
 gotoxy(29,16);
 write('/ \');
end;
if (tus=#77) and (a=1) then
begin
a:=0;
gotoxy(30,14);
 write(' ');
 gotoxy(29,15);
 write(' ',' ',' ');
 gotoxy(29,16);
 write('  ');
  gotoxy(31,14);
 write(#2);
 gotoxy(30,15);
 write('/',#179,'\');
 gotoxy(30,16);
 write('/ \');
end;
if (tus='5') and (b=1) then
begin
  b:=0;
   gotoxy(36,14);
 write(' ');
 gotoxy(35,15);
 write(' ',' ',' ');
 gotoxy(35,16);
 write('   ');
   gotoxy(35,14);
 write(#2);
 gotoxy(34,15);
 write('/',#179,'\');
 gotoxy(34,16);
 write('/ \');
end;
if (tus=#77) and (a=0) and (b=0) then
begin
c:=c-10;
gotoxy(77,1);
write(' ',c);
textbackground(red);
 gotoxy(33,15);
 write(#11);
textbackground(lightblue);
 delay(80);
 gotoxy(33,15);
 write(' ');
 delay(80);
 if c=0 then
 begin
 clrscr;
 gotoxy(25,15);
 write('1.OYUNCU K A Z A N D I');
 readln();
 readln();
 exit
 end;
end;
 if (tus='5') and (a=0) and (b=0) then
begin
d:=d-10;
gotoxy(1,1);
write(' ',d);
 gotoxy(33,15);
 write(#12);
 delay(80);
 gotoxy(33,15);
 write(' ');
 delay(80);
 if d=0 then
 begin
 clrscr;
 gotoxy(25,15);
 write('2.OYUNCU K A Z A N D I');
 readln();
 readln();
 exit
 end;
end;
end;
 readln();
end.

ziya ahmedsoy
sonata@nakhchivan.az