program bird;
uses crt;
const m=20; n=60;
var bc:array[0..m+1,0..n+1] of char; // [y,x] //
a:array[0..m+1,0..n+1]of longint; // 0blank 1bird 2wall//
i,j,d,x,y,sc,sp:longint;
p:char;
t1:boolean;
function check:boolean;
begin
if (a[y,x+1]=2) or (y=0) or (y=m+1) then exit(false);
exit(true);
end;
procedure print;
var i,j:longint;
begin
gotoxy(1,1);
cursoroff;
for i:=1 to m do
for j:=1 to n do
begin
case bc[i,j] of
'*':begin textbackground(2); textcolor(2); end;
'o':textcolor(12);
end;
write(bc[i,j]);
if j=n then writeln;
textbackground(11);
end;
textcolor(0);
end;
procedure change;
var i,j:longint;
begin
for i:=1 to m do
for j:=1 to n do
case a[i,j] of
0:bc[i,j]:=' ';
1:bc[i,j]:='o';
2:bc[i,j]:='*';
end;
end;
procedure newwall(x:longint);
var i,r,dis:longint;
begin
randomize;
dis:=sc div 10;
if dis>3 then dis:=3;
r:=random(m-7)+2;
for i:=1 to m do
if (i<r) or (i>r+4-dis) then a[i,x]:=2;
end;
procedure jump(var y:longint);
begin
a[y,x]:=0;
dec(y);
a[y,x]:=1;
end;
procedure drop(var y:longint);
begin
a[y,x]:=0;
inc(y);
a[y,x]:=1;
end;
procedure move;
begin
if check=true then t1:=true
else begin t1:=false; exit; end;
for i:=1 to m do
for j:=1 to n do
if a[i,j]=2 then
if j=1 then a[i,j]:=0
else begin
a[i,j]:=0;
a[i,j-1]:=2;
end;
if a[1,20]=2 then begin
newwall(n);
inc(sc);
end;
end;
procedure act;
begin
if d>0 then jump(y)
else if d<0 then drop(y);
move;
change;
end;
begin
clrscr;
writeln('Welcome to the Flappy Bird Game editor JZH version 2.0');
writeln('press space to fly higher');
writeln('press p to pause');
writeln('press e to exit while playing');
writeln('You lose the game if the bird hit the green walls or fly out of the map');
writeln('press enter the continue');
readln;
writeln('loading');
sp:=200;
sc:=0;
d:=0;
t1:=true;
x:=2;
y:=m div 2;
fillchar(a,sizeof(a),0);
a[y,x]:=1;
for i:=1 to m do
for j:=1 to n do
bc[i,j]:=' ';
for i:=1 to n do
if i mod 20 =0 then newwall(i);
textbackground(11);
clrscr;
change;
print;
writeln('press enter to start the game when you are ready');
writeln('have fun!');
clrscr;
while t1=true do begin
sp:=sp-sc;
if sp<90 then sp:=90;
delay(sp);
if keypressed then begin
p:=readkey;
if p=' ' then begin if d<0 then d:=d+3 else d:=d+2; end
else if p='p' then begin writeln('press enter to continue'); readln; clrscr; end
else if p='e' then halt;
end;
act;
if t1=true then begin print; writeln('score:',sc); end;
if d>=0 then dec(d);
end;
writeln('Game over! Your final score is ',sc);
writeln('Thanks for playing');
writeln('press enter to exit');
readln;
end.
