PROGRAM Fitpen;
uses crt;
label bas,ileri,saga,sola,son;
var
isim:string;
tus:char;
top,n,h,z,t,x,k,l,m,gol,kurt,u:integer;
begin
gol:=0;
clrscr;
kurt:=0;
gotoxy(26,24);
Writeln('PENALTI OYUNU');
delay(2000);
textcolor(yellow);
gotoxy(35,28);
writeln('FITPEN');
delay(1500);
gotoxy(26,32);
write('Isminizi giriniz=> ');
readln(isim);
bas:repeat;
clrscr;
top:=kurt+gol;
if top=50 then
begin
clrscr;
Gotoxy(10,30);
Write('Ulan ',isim,' ,50 penaltidan ',gol,' tanesini atabildin');
readln;
goto son;
end;
gotoxy(4,10);
writeln('Oyuncu=>',isim);
gotoxy(4,12);
writeln('Kaleci=>Abdlrezzak');
gotoxy(4,5);
writeln('Kurtaris Sayisi =>',kurt);
gotoxy(4,6);
writeln('Gol Sayisi =>',gol);
textcolor(yellow);
gotoxy(33,5);
writeln('FITPEN');
for t:=1 to 18 do
begin
gotoxy(6+t,17);
write(chr(205));
gotoxy(46+t,17);
write(chr(205));
end;
gotoxy(6,17);
write(chr(201));
gotoxy(65,17);
write(chr(187));
gotoxy(6,38);
write(chr(200));
gotoxy(65,38);
write(chr(188));
for z:=1 to 20 do
begin
gotoxy(6,17+z);
write(chr(186));
gotoxy(65,17+z);
write(chr(186));
end;
for h:=1 to 58 do
begin
gotoxy(6+h,38);
write(chr(205));
end;
for n:=1 to 7 do
begin
gotoxy(17,17+n);
write(chr(186));
gotoxy(54,17+n);
write(chr(186));
end;
for u:=1 to 36 do
begin
gotoxy(17+u,25);
write(chr(205));
end;
gotoxy(17,25);
write(chr(200));
gotoxy(54,25);
write(chr(188));
textcolor(9);
for k:=1 to 20 do
begin
gotoxy(25+k,10);
write(chr(205));
gotoxy(25,11+k div 3);
write(chr(186));
gotoxy(46,11+k div 3);
write(chr(186));
end;
textcolor(9);
gotoxy(25,10);
write(chr(201));
gotoxy(46,10);
write(chr(187));
gotoxy(36,13);
write(chr(1));
textcolor(brown);
for m:=1 to 7 do
begin
gotoxy(32+m,14);
write(chr(9));
end;
for l:=1 to 2 do
begin
gotoxy(36,14+l);
write(chr(9));
gotoxy(36-l,16+l);
write(chr(18));
gotoxy(36+l,16+l);
write(chr(18));
end;
textcolor(white);
gotoxy(36,35);
write(chr(48));
textcolor(10);
gotoxy(36,43);
write(chr(24));
gotoxy(35,44);
write(chr(27));
gotoxy(37,44);
write(chr(26));
tus:=readkey;
if tus=#56 then goto ileri;
if tus=#52 then goto sola;
if tus=#54 then goto saga;
if tus=#27 then goto son;
until 1=2;
readln;
ileri:
randomize;
x:=random(3);
if x=0 then
begin
textcolor(9);
gotoxy(25,10);
write(chr(201));
gotoxy(46,10);
write(chr(187));
gotoxy(36,13);
write(' ');
textcolor(brown);
for m:=1 to 7 do
begin
gotoxy(32+m,14);
write(' ');
end;
for l:=1 to 2 do
begin
gotoxy(36,14+l);
write(' ');
gotoxy(36-l,16+l);
write(' ');
gotoxy(36+l,16+l);
write(' ');
end;
textcolor(9);
gotoxy(25,10);
write(chr(201));
gotoxy(46,10);
write(chr(187));
gotoxy(40,13);
write(chr(1));
textcolor(brown);
for m:=1 to 7 do
begin
gotoxy(36+m,14);
write(chr(9));
end;
for l:=1 to 2 do
begin
gotoxy(40,14+l);
write(chr(9));
gotoxy(40-l,16+l);
write(chr(18));
gotoxy(40+l,16+l);
write(chr(18));
end;
gol:=gol+1;
end;
if x=1 then
begin
textcolor(9);
gotoxy(25,10);
write(chr(201));
gotoxy(46,10);
write(chr(187));
gotoxy(36,13);
write(' ');
textcolor(brown);
for m:=1 to 7 do
begin
gotoxy(32+m,14);
write(' ');
end;
for l:=1 to 2 do
begin
gotoxy(36,14+l);
write(' ');
gotoxy(36-l,16+l);
write(' ');
gotoxy(36+l,16+l);
write(' ');
end;
textcolor(9);
gotoxy(25,10);
write(chr(201));
gotoxy(46,10);
write(chr(187));
gotoxy(32,13);
write(chr(1));
textcolor(brown);
for m:=1 to 7 do
begin
gotoxy(28+m,14);
write(chr(9));
end;
for l:=1 to 2 do
begin
gotoxy(32,14+l);
write(chr(9));
gotoxy(32-l,16+l);
write(chr(18));
gotoxy(32+l,16+l);
write(chr(18));
end;
gol:=gol+1;
end;
if x=2 then
begin
textcolor(9);
gotoxy(25,10);
write(chr(201));
gotoxy(46,10);
write(chr(187));
gotoxy(36,13);
write(chr(1));
textcolor(brown);
for m:=1 to 7 do
begin
gotoxy(32+m,14);
write(chr(9));
end;
for l:=1 to 2 do
begin
gotoxy(36,14+l);
write(chr(9));
gotoxy(36-l,16+l);
write(chr(18));
gotoxy(36+l,16+l);
write(chr(18));
end;
textcolor(white);
gotoxy(36,35);
write(chr(48));
textcolor(10);
gotoxy(36,43);
write(chr(24));
gotoxy(35,44);
write(chr(27));
gotoxy(37,44);
write(chr(26));
kurt:=kurt+1;
end;
gotoxy(36,35);
writeln(' ');
gotoxy(36,33);
writeln(chr(48));
delay(100);
gotoxy(36,33);
writeln(' ');
gotoxy(36,30);
writeln(chr(48));
delay(100);
gotoxy(36,30);
writeln(' ');
gotoxy(36,27);
writeln(chr(48));
delay(100);
gotoxy(36,27);
writeln(' ');
gotoxy(36,24);
writeln(chr(48));
delay(100);
gotoxy(36,24);
writeln(' ');
gotoxy(36,21);
writeln(chr(48));
delay(100);
gotoxy(36,21);
writeln(' ');
gotoxy(36,18);
writeln(chr(48));
delay(100);
gotoxy(36,18);
writeln(' ');
goto bas;
sola:
randomize;
x:=random(3);
if x=0 then
begin
textcolor(9);
gotoxy(25,10);
write(chr(201));
gotoxy(46,10);
write(chr(187));
gotoxy(36,13);
write(' ');
textcolor(brown);
for m:=1 to 7 do
begin
gotoxy(32+m,14);
write(' ');
end;
for l:=1 to 2 do
begin
gotoxy(36,14+l);
write(' ');
gotoxy(36-l,16+l);
write(' ');
gotoxy(36+l,16+l);
write(' ');
end;
textcolor(9);
gotoxy(25,10);
write(chr(201));
gotoxy(46,10);
write(chr(187));
gotoxy(40,13);
write(chr(1));
textcolor(brown);
for m:=1 to 7 do
begin
gotoxy(36+m,14);
write(chr(9));
end;
for l:=1 to 2 do
begin
gotoxy(40,14+l);
write(chr(9));
gotoxy(40-l,16+l);
write(chr(18));
gotoxy(40+l,16+l);
write(chr(18));
end;
gol:=gol+1;
end;
if x=1 then
begin
textcolor(9);
gotoxy(25,10);
write(chr(201));
gotoxy(46,10);
write(chr(187));
gotoxy(36,13);
write(' ');
textcolor(brown);
for m:=1 to 7 do
begin
gotoxy(32+m,14);
write(' ');
end;
for l:=1 to 2 do
begin
gotoxy(36,14+l);
write(' ');
gotoxy(36-l,16+l);
write(' ');
gotoxy(36+l,16+l);
write(' ');
end;
textcolor(9);
gotoxy(25,10);
write(chr(201));
gotoxy(46,10);
write(chr(187));
gotoxy(32,13);
write(chr(1));
textcolor(brown);
for m:=1 to 7 do
begin
gotoxy(28+m,14);
write(chr(9));
end;
for l:=1 to 2 do
begin
gotoxy(32,14+l);
write(chr(9));
gotoxy(32-l,16+l);
write(chr(18));
gotoxy(32+l,16+l);
write(chr(18));
end;
kurt:=kurt+1;
end;
if x=2 then
begin
textcolor(9);
gotoxy(25,10);
write(chr(201));
gotoxy(46,10);
write(chr(187));
gotoxy(36,13);
write(chr(1));
textcolor(brown);
for m:=1 to 7 do
begin
gotoxy(32+m,14);
write(chr(9));
end;
for l:=1 to 2 do
begin
gotoxy(36,14+l);
write(chr(9));
gotoxy(36-l,16+l);
write(chr(18));
gotoxy(36+l,16+l);
write(chr(18));
end;
textcolor(white);
gotoxy(36,35);
write(chr(48));
textcolor(10);
gotoxy(36,43);
write(chr(24));
gotoxy(35,44);
write(chr(27));
gotoxy(37,44);
write(chr(26));
gol:=gol+1;
end;
gotoxy(36,35);
writeln(' ');
gotoxy(34,31);
writeln(chr(48));
delay(100);
gotoxy(34,31);
writeln(' ');
gotoxy(32,27);
writeln(chr(48));
delay(100);
gotoxy(32,27);
writeln(' ');
gotoxy(30,23);
writeln(chr(48));
delay(100);
gotoxy(30,23);
writeln(' ');
gotoxy(28,19);
writeln(chr(48));
delay(100);
gotoxy(28,19);
writeln(' ');
gotoxy(26,17);
writeln(chr(48));
delay(100);
gotoxy(26,17);
writeln(' ');
goto bas;
saga:
randomize;
x:=random(3);
if x=0 then
begin
textcolor(9);
gotoxy(25,10);
write(chr(201));
gotoxy(46,10);
write(chr(187));
gotoxy(36,13);
write(' ');
textcolor(brown);
for m:=1 to 7 do
begin
gotoxy(32+m,14);
write(' ');
end;
for l:=1 to 2 do
begin
gotoxy(36,14+l);
write(' ');
gotoxy(36-l,16+l);
write(' ');
gotoxy(36+l,16+l);
write(' ');
end;
textcolor(9);
gotoxy(25,10);
write(chr(201));
gotoxy(46,10);
write(chr(187));
gotoxy(40,13);
write(chr(1));
textcolor(brown);
for m:=1 to 7 do
begin
gotoxy(36+m,14);
write(chr(9));
end;
for l:=1 to 2 do
begin
gotoxy(40,14+l);
write(chr(9));
gotoxy(40-l,16+l);
write(chr(18));
gotoxy(40+l,16+l);
write(chr(18));
end;
kurt:=kurt+1;
end;
if x=1 then
begin
textcolor(9);
gotoxy(25,10);
write(chr(201));
gotoxy(46,10);
write(chr(187));
gotoxy(36,13);
write(' ');
textcolor(brown);
for m:=1 to 7 do
begin
gotoxy(32+m,14);
write(' ');
end;
for l:=1 to 2 do
begin
gotoxy(36,14+l);
write(' ');
gotoxy(36-l,16+l);
write(' ');
gotoxy(36+l,16+l);
write(' ');
end;
textcolor(9);
gotoxy(25,10);
write(chr(201));
gotoxy(46,10);
write(chr(187));
gotoxy(32,13);
write(chr(1));
textcolor(brown);
for m:=1 to 7 do
begin
gotoxy(28+m,14);
write(chr(9));
end;
for l:=1 to 2 do
begin
gotoxy(32,14+l);
write(chr(9));
gotoxy(32-l,16+l);
write(chr(18));
gotoxy(32+l,16+l);
write(chr(18));
end;
gol:=gol+1;
end;
if x=2 then
begin
textcolor(9);
gotoxy(25,10);
write(chr(201));
gotoxy(46,10);
write(chr(187));
gotoxy(36,13);
write(chr(1));
textcolor(brown);
for m:=1 to 7 do
begin
gotoxy(32+m,14);
write(chr(9));
end;
for l:=1 to 2 do
begin
gotoxy(36,14+l);
write(chr(9));
gotoxy(36-l,16+l);
write(chr(18));
gotoxy(36+l,16+l);
write(chr(18));
end;
textcolor(white);
gotoxy(36,35);
write(chr(48));
textcolor(10);
gotoxy(36,43);
write(chr(24));
gotoxy(35,44);
write(chr(27));
gotoxy(37,44);
write(chr(26));
gol:=gol+1;
end;
gotoxy(36,35);
writeln(' ');
gotoxy(38,31);
writeln(chr(48));
delay(100);
gotoxy(38,31);
writeln(' ');
gotoxy(40,27);
writeln(chr(48));
delay(100);
gotoxy(40,27);
writeln(' ');
gotoxy(42,23);
writeln(chr(48));
delay(100);
gotoxy(42,23);
writeln(' ');
gotoxy(44,19);
writeln(chr(48));
delay(100);
gotoxy(44,19);
writeln(' ');
gotoxy(46,16);
writeln(chr(48));
delay(100);
gotoxy(46,16);
writeln(' ');
goto bas;
son:
clrscr;
gotoxy(18,25);
Writeln('Oyunumu oynadiginiz icin tesekkurler');
delay(1500);
Gotoxy(18,35);
Writeln('HAZIRKOD www.hazirkod.com');
delay(2000);
end.