Tin học code game hứng trứng viết bằng pascal v2.0 (loại 2)

program Hung_trung;
uses crt;
var st,d,ht,x,y,x2,i:integer;
k,r:char;
c:byte;
BEGIN
clrscr;
writeln('Nhan a de sang trai,d de sang phai');
delay(2000);
writeln('Bat dau choi, nhan b va ENTER');
readln(r);
clrscr;
ht:=1;
x2:=17;
REPEAT
if r='b' then
begin
randomize;
x:=random(6)+1;
clrscr;
gotoxy(2,2);textcolor(lightred);
write('Diem: ');write(d);
case x of
1: x:=5;
2: x:=10;
3: x:=15;
4: x:=20;
5: x:=25;
6: x:=30;
end;
for y:=3 to 22 do
begin
gotoxy(x,y);
case ht of
1: begin textcolor(white); write('0');end;
end;
gotoxy(x2-1,22);textcolor(red);
write('___'); delay(175);
delline;
if keypressed then
begin
k:=' ';
k:=readkey;
if (x2>1)and(x2<75) then
begin
if k='a' then x2:=x2-2;
if k='d' then x2:=x2+2;
end;
end;
if (y=22) then
if (x2=x) or (x2=x-1) or (x2=x+1) then
if (ht=1) then d:=d+1;
gotoxy(x,y);
write(' ');
delline;
end;
end;
UNTIL (x2<>x) and (x2<>x-1) and (x2<>x+1);
clrscr;
gotoxy(13,5);
textcolor(11);
write('Tong cong: ');write(d);write(' diem');
readln;
END.

Bấm để xem đầy đủ nội dung ...

trà nguyễn hữu nghĩa said:

Sau khi chơi thử thì mình có vài góp ý nè
+ Game hơi lag...mình bấm phím a 3 lần mà nó mới đi có 2 ô, nên mình không thể kiểm soát được cái thanh
+ Khi mà mình bấm a quá nhiều thì nó sẽ ra ngoài màn hình, lúc này nó hiện lỗi cái đùng...thoát game luôn
Về có bản thì hai lỗi đó....nhưng mà mình có thể làm cho đồ họa đẹp hơn xíu, có chế độ chơi lại...
Đợi bản update sau nha

Bấm để xem đầy đủ nội dung ...