Hướng dẫn flappy bird pascal - chim Pascal flappy

mình mất cả buổi tối mới làm được game này...
code:
program flappy_bird;
uses crt;
var a,b,c,d:integer;
var e,f,g,h:integer;
var j,k,x,y:integer;
var z,u,i,o:integer;
var p,q,r,n,m:integer;
var v,w,t,l:integer;
var ketthuc,rd:integer;
var tttime,ttkey,diem:integer;
var ch :char;
begin
clrscr;
writeln['so 6 la ong tre;so 1 la noi trong;so 8 la nhan vat;'];
writeln['cach choi: nhan phim sang trai de di chuyen nhan vat'];
writeln['game duoc lap trinh boi phuc'];
writeln['nhan enter de tiep tuc'];
readln;
diem:=0;
tttime:=4;
ttkey:=0;
ketthuc:=0;
a:=1;
b:=1;
c:=1;
d:=1;
e:=1;
f:=1;
g:=1;
h:=1;
j:=1;
k:=1;
x:=1;
y:=1;
z:=1;
u:=1;
i:=1;
o:=1;
p:=1;
q:=1;
r:=1;
n:=1;
m:=1;
v:=1;
w:=1;
t:=1;
l:=1;
if KeyPressed then
begin
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
end;
if [ttkey=1] then begin
if [tttime=5] then else tttime:=tttime+1;
end else
if [tttime=1] then else tttime:=tttime-1;
ttkey:=0;
if [tttime=1] then begin
b:=1;
g:=1;
y:=1;
p:=1;
v:=8;
end;
if [tttime=2] then begin
b:=1;
g:=1;
y:=1;
p:=8;
v:=1;
end;
if [tttime=3] then begin
b:=1;
g:=1;
y:=8;
p:=1;
v:=1;
end;
if [tttime=4] then begin
b:=1;
g:=8;
y:=1;
p:=1;
v:=1;
end;
if [tttime=5] then begin
b:=8;
g:=1;
y:=1;
p:=1;
v:=1;
end;
delay[600];
clrscr;
write[a];
write[b];
write[c];
write[d];
writeln[e];
write[f];
write[g];
write[h];
write[j];
writeln[k];
write[x];
write[y];
write[z];
write[u];
writeln[i];
write[o];
write[p];
write[q];
write[r];
writeln[n];
write[m];
write[v];
write[w];
write[t];
writeln[l];
if KeyPressed then
begin
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
end;
if [ttkey=1] then begin
if [tttime=5] then else tttime:=tttime+1;
end else
if [tttime=1] then else tttime:=tttime-1;
ttkey:=0;
if [tttime=1] then begin
b:=1;
g:=1;
y:=1;
p:=1;
v:=8;
end;
if [tttime=2] then begin
b:=1;
g:=1;
y:=1;
p:=8;
v:=1;
end;
if [tttime=3] then begin
b:=1;
g:=1;
y:=8;
p:=1;
v:=1;
end;
if [tttime=4] then begin
b:=1;
g:=8;
y:=1;
p:=1;
v:=1;
end;
if [tttime=5] then begin
b:=8;
g:=1;
y:=1;
p:=1;
v:=1;
end;
delay[600];
clrscr;
writeln ['diem cua ban la:',diem];
write[a];
write[b];
write[c];
write[d];
writeln[e];
write[f];
write[g];
write[h];
write[j];
writeln[k];
write[x];
write[y];
write[z];
write[u];
writeln[i];
write[o];
write[p];
write[q];
write[r];
writeln[n];
write[m];
write[v];
write[w];
write[t];
writeln[l];
if KeyPressed then
begin
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
end;
if [ttkey=1] then begin
if [tttime=5] then else tttime:=tttime+1;
end else
if [tttime=1] then else tttime:=tttime-1;
ttkey:=0;
if [tttime=1] then begin
b:=1;
g:=1;
y:=1;
p:=1;
v:=8;
end;
if [tttime=2] then begin
b:=1;
if KeyPressed then
begin
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
end;
if [ttkey=1] then begin
if [tttime=5] then else tttime:=tttime+1;
end else
if [tttime=1] then else tttime:=tttime-1;
ttkey:=0;
if [tttime=1] then begin
b:=1;
g:=1;
y:=1;
p:=1;
v:=8;
end;
if [tttime=2] then begin
b:=1;
g:=1;
y:=1;
p:=8;
v:=1;
end;
if [tttime=3] then begin
b:=1;
g:=1;
y:=8;
p:=1;
v:=1;
end;
if [tttime=4] then begin
b:=1;
g:=8;
y:=1;
p:=1;
v:=1;
end;
if [tttime=5] then begin
b:=8;
g:=1;
y:=1;
p:=1;
v:=1;
end;
y:=1;
p:=8;
v:=1;
end;
if [tttime=3] then begin
b:=1;
g:=1;
y:=8;
p:=1;
v:=1;
end;
if [tttime=4] then begin
b:=1;
g:=8;
y:=1;
p:=1;
v:=1;
end;
if [tttime=5] then begin
b:=8;
g:=1;
y:=1;
p:=1;
v:=1;
end;
delay[600];
clrscr;
writeln ['diem cua ban la:',diem];
write[a];
write[b];
write[c];
write[d];
writeln[e];
write[f];
write[g];
write[h];
write[j];
writeln[k];
write[x];
write[y];
write[z];
write[u];
writeln[i];
write[o];
write[p];
write[q];
write[r];
writeln[n];
write[m];
write[v];
write[w];
write[t];
writeln[l];
if KeyPressed then
begin
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
end;
if [ttkey=1] then begin
if [tttime=5] then else tttime:=tttime+1;
end else
if [tttime=1] then else tttime:=tttime-1;
ttkey:=0;
if [tttime=1] then begin
b:=1;
g:=1;
y:=1;
p:=1;
v:=8;
end;
if [tttime=2] then begin
b:=1;
g:=1;
y:=1;
p:=8;
v:=1;
end;
if [tttime=3] then begin
b:=1;
g:=1;
y:=8;
p:=1;
v:=1;
end;
if [tttime=4] then begin
b:=1;
g:=8;
y:=1;
p:=1;
v:=1;
end;
if [tttime=5] then begin
b:=8;
g:=1;
y:=1;
p:=1;
v:=1;
end;
delay[600];
clrscr;
writeln ['diem cua ban la:',diem];
write[a];
write[b];
write[c];
write[d];
writeln[e];
write[f];
write[g];
write[h];
write[j];
writeln[k];
write[x];
write[y];
write[z];
write[u];
writeln[i];
write[o];
write[p];
write[q];
write[r];
writeln[n];
write[m];
write[v];
write[w];
write[t];
writeln[l];
repeat
rd:=random[4];
if [rd=0] then begin
e:=1;
k:=1;
i:=6;
n:=6;
l:=6;
end;
if [rd=1] then begin
e:=6;
k:=1;
i:=1;
n:=6;
l:=6;
end;
if [rd=2] then begin
e:=6;
k:=6;
i:=1;
n:=1;
l:=6;
end;
if [rd=3] then begin
e:=6;
k:=6;
i:=6;
n:=1;
l:=1;
end;
clrscr;
writeln ['diem cua ban la:',diem];
write[a];
write[b];
write[c];
write[d];
writeln[e];
write[f];
write[g];
write[h];
write[j];
writeln[k];
write[x];
write[y];
write[z];
write[u];
writeln[i];
write[o];
write[p];
write[q];
write[r];
writeln[n];
write[m];
write[v];
write[w];
write[t];
writeln[l];
delay[550-diem*10];
if KeyPressed then
begin
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
end;
if [ttkey=1] then begin
if [tttime=5] then else tttime:=tttime+1;
end else
if [tttime=1] then else tttime:=tttime-1;
ttkey:=0;
if [tttime=1] then begin
b:=1;
g:=1;
y:=1;
p:=1;
v:=8;
end;
if [tttime=2] then begin
b:=1;
g:=1;
y:=1;
p:=8;
v:=1;
end;
if [tttime=3] then begin
b:=1;
g:=1;
y:=8;
p:=1;
v:=1;
end;
if [tttime=4] then begin
b:=1;
g:=8;
y:=1;
p:=1;
v:=1;
end;
if [tttime=5] then begin
b:=8;
g:=1;
y:=1;
p:=1;
v:=1;
end;
e:=1;
k:=1;
i:=1;
n:=1;
l:=1;
if [rd=0] then begin
d:=1;
j:=1;
u:=6;
r:=6;
t:=6;
end;
if [rd=1] then begin
d:=6;
j:=1;
u:=1;
r:=6;
t:=6;
end;
if [rd=2] then begin
d:=6;
j:=6;
u:=1;
r:=1;
t:=6;
end;
if [rd=3] then begin
d:=6;
j:=6;
u:=6;
r:=1;
t:=1;
end;
clrscr;writeln ['diem cua ban la:',diem];
write[a];
write[b];
write[c];
write[d];
writeln[e];
write[f];
write[g];
write[h];
write[j];
writeln[k];
write[x];
write[y];
write[z];
write[u];
writeln[i];
write[o];
write[p];
write[q];
write[r];
writeln[n];
write[m];
write[v];
write[w];
write[t];
writeln[l];
delay[550-diem*10];
if KeyPressed then
begin
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
end;
if [ttkey=1] then begin
if [tttime=5] then else tttime:=tttime+1;
end else
if [tttime=1] then else tttime:=tttime-1;
ttkey:=0;
if [tttime=1] then begin
b:=1;
g:=1;
y:=1;
p:=1;
v:=8;
end;
if [tttime=2] then begin
b:=1;
g:=1;
y:=1;
p:=8;
v:=1;
end;
if [tttime=3] then begin
b:=1;
g:=1;
y:=8;
p:=1;
v:=1;
end;
if [tttime=4] then begin
b:=1;
g:=8;
y:=1;
p:=1;
v:=1;
end;
if [tttime=5] then begin
b:=8;
g:=1;
y:=1;
p:=1;
v:=1;
end;
d:=1;
j:=1;
u:=1;
r:=1;
t:=1;
if [rd=0] then begin
c:=1;
h:=1;
z:=6;
q:=6;
w:=6;
end;
if [rd=1] then begin
c:=6;
h:=1;
z:=1;
q:=6;
w:=6;
end;
if [rd=2] then begin
c:=6;
h:=6;
z:=1;
q:=1;
w:=6;
end;
if [rd=3] then begin
c:=6;
h:=6;
z:=6;
q:=1;
w:=1;
end;
clrscr;writeln ['diem cua ban la:',diem];
write[a];
write[b];
write[c];
write[d];
writeln[e];
write[f];
write[g];
write[h];
write[j];
writeln[k];
write[x];
write[y];
write[z];
write[u];
writeln[i];
write[o];
write[p];
write[q];
write[r];
writeln[n];
write[m];
write[v];
write[w];
write[t];
writeln[l];
delay[550-diem*10];
if KeyPressed then
begin
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
end;
if [ttkey=1] then begin
if [tttime=5] then else tttime:=tttime+1;
end else
if [tttime=1] then else tttime:=tttime-1;
ttkey:=0;
if [tttime=1] then begin
b:=1;
g:=1;
y:=1;
p:=1;
v:=8;
end;
if [tttime=2] then begin
b:=1;
g:=1;
y:=1;
p:=8;
v:=1;
end;
if [tttime=3] then begin
b:=1;
g:=1;
y:=8;
p:=1;
v:=1;
end;
if [tttime=4] then begin
b:=1;
g:=8;
y:=1;
p:=1;
v:=1;
end;
if [tttime=5] then begin
b:=8;
g:=1;
y:=1;
p:=1;
v:=1;
end;
c:=1;
h:=1;
z:=1;
q:=1;
w:=1;
if [rd=0] then begin
if [tttime=1] then begin
b:=1;
g:=1;
y:=6;
p:=6;
v:=8;
ketthuc:=1;
end;
if [tttime=2] then begin
b:=1;
g:=1;
y:=6;
p:=8;
v:=6;
ketthuc:=1;
end;
if [tttime=3] then begin
b:=1;
g:=1;
y:=8;
p:=6;
v:=6;
ketthuc:=1;
end;
if [tttime=4] then begin
b:=1;
g:=8;
y:=6;
p:=6;
v:=6;
end;
if [tttime=5] then begin
b:=8;
g:=1;
y:=6;
p:=6;
v:=6;
end;
end;
if [rd=1] then begin
if [tttime=1] then begin
b:=6;
g:=1;
y:=1;
p:=6;
v:=8;
ketthuc:=1;
end;
if [tttime=2] then begin
b:=6;
g:=1;
y:=1;
p:=8;
v:=6;
ketthuc:=1;
end;
if [tttime=3] then begin
b:=6;
g:=1;
y:=8;
p:=6;
v:=6;
end;
if [tttime=4] then begin
b:=6;
g:=8;
y:=1;
p:=6;
v:=6;
end;
if [tttime=5] then begin
b:=8;
g:=1;
y:=1;
p:=6;
v:=6;
ketthuc:=1;
end;
end;
if [rd=2] then begin
if [tttime=1] then begin
b:=6;
g:=6;
y:=1;
p:=1;
v:=8;
ketthuc:=1;
end;
if [tttime=2] then begin
b:=6;
g:=6;
y:=1;
p:=8;
v:=6;
end;
if [tttime=3] then begin
b:=6;
g:=6;
y:=8;
p:=1;
v:=6;
end;
if [tttime=4] then begin
b:=6;
g:=8;
y:=1;
p:=1;
v:=6;
ketthuc:=1;
end;
if [tttime=5] then begin
b:=8;
g:=6;
y:=1;
p:=1;
v:=6;
ketthuc:=1;
end;
end;
if [rd=3] then begin
if [tttime=1] then begin
b:=6;
g:=6;
y:=6;
p:=1;
v:=8;
end;
if [tttime=2] then begin
b:=6;
g:=6;
y:=6;
p:=8;
v:=1;
end;
if [tttime=3] then begin
b:=6;
g:=6;
y:=8;
p:=1;
v:=1;
ketthuc:=1;
end;
if [tttime=4] then begin
b:=6;
g:=8;
y:=6;
p:=1;
v:=1;
ketthuc:=1;
end;
if [tttime=5] then begin
b:=8;
g:=6;
y:=6;
p:=1;
v:=1;
ketthuc:=1;
end;
end;
clrscr;writeln ['diem cua ban la:',diem];
write[a];
write[b];
write[c];
write[d];
writeln[e];
write[f];
write[g];
write[h];
write[j];
writeln[k];
write[x];
write[y];
write[z];
write[u];
writeln[i];
write[o];
write[p];
write[q];
write[r];
writeln[n];
write[m];
write[v];
write[w];
write[t];
writeln[l];
delay[550-diem*10];
diem:=diem+1;
if [ketthuc=0] then begin
if KeyPressed then
begin
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
end;
if [ttkey=1] then begin
if [tttime=5] then else tttime:=tttime+1;
end else
if [tttime=1] then else tttime:=tttime-1;
ttkey:=0;
if [tttime=1] then begin
b:=1;
g:=1;
y:=1;
p:=1;
v:=8;
end;
if [tttime=2] then begin
b:=1;
g:=1;
y:=1;
p:=8;
v:=1;
end;
if [tttime=3] then begin
b:=1;
g:=1;
y:=8;
p:=1;
v:=1;
end;
if [tttime=4] then begin
b:=1;
g:=8;
y:=1;
p:=1;
v:=1;
end;
if [tttime=5] then begin
b:=8;
g:=1;
y:=1;
p:=1;
v:=1;
end;
if [rd=0] then begin
a:=1;
f:=1;
x:=6;
o:=6;
m:=6;
end;
if [rd=1] then begin
a:=6;
f:=1;
x:=1;
o:=6;
m:=6;
end;
if [rd=2] then begin
a:=6;
f:=6;
x:=1;
o:=1;
m:=6;
end;
if [rd=3] then begin
a:=6;
f:=6;
x:=6;
o:=1;
m:=1;
end;
clrscr;writeln ['diem cua ban la:',diem];
write[a];
write[b];
write[c];
write[d];
writeln[e];
write[f];
write[g];
write[h];
write[j];
writeln[k];
write[x];
write[y];
write[z];
write[u];
writeln[i];
write[o];
write[p];
write[q];
write[r];
writeln[n];
write[m];
write[v];
write[w];
write[t];
writeln[l];
delay[550-diem*10];
if KeyPressed then
begin
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
ch:=ReadKey;
case ch of
#75 : if [ketthuc=0] then
begin
ttkey:=1;
end;
end;
end;
if [ttkey=1] then begin
if [tttime=5] then else tttime:=tttime+1;
end else
if [tttime=1] then else tttime:=tttime-1;
ttkey:=0;
if [tttime=1] then begin
b:=1;
g:=1;
y:=1;
p:=1;
v:=8;
end;
if [tttime=2] then begin
b:=1;
g:=1;
y:=1;
p:=8;
v:=1;
end;
if [tttime=3] then begin
b:=1;
g:=1;
y:=8;
p:=1;
v:=1;
end;
if [tttime=4] then begin
b:=1;
g:=8;
y:=1;
p:=1;
v:=1;
end;
if [tttime=5] then begin
b:=8;
g:=1;
y:=1;
p:=1;
v:=1;
end;
a:=1;
f:=1;
x:=1;
o:=1;
m:=1;
clrscr;
writeln ['diem cua ban la:',diem];
write[a];
write[b];
write[c];
write[d];
writeln[e];
write[f];
write[g];
write[h];
write[j];
writeln[k];
write[x];
write[y];
write[z];
write[u];
writeln[i];
write[o];
write[p];
write[q];
write[r];
writeln[n];
write[m];
write[v];
write[w];
write[t];
writeln[l];
end;
until ketthuc=1;
writeln['game over'];
writeln['game duoc lap trinh boi phuc'];
readln;
end.