LẬP TRÌNH GAME CƠ BẢN BẰNG PASCAL cùng An Remmy

uses crt;
var key : char;
x,y,i,j,k,diem,tocdo : integer;
begin
textbackground(3);
clrscr;
randomize;
x:=1;
y:=1;
diem:=0;
j:=10;
k:=10;
key := chr(100);
tocdo := 60;
while i <> 1 do
begin
textcolor(2);
gotoxy(x,y);
write('X');
if keypressed then key := readkey;
if (key = chr(97)) or (key = chr(65)) then begin x:=x-1; {phim a} sound(131);delay(20);nosound;end;
if (key = chr(100)) or (key = chr(68)) then begin x:=x+1; {phim d} sound(131);delay(20);nosound;end;
if (key = chr(115)) or (key = chr(83)) then begin y:=y+1; {phim s} sound(131);delay(20);nosound;end;
if (key = chr(119)) or (key = chr(87)) then begin y:=y-1; {phim w} sound(131);delay(20);nosound;end;
textcolor(14 + blink);
gotoxy(j,k);
write('*');
if (x = j) and (y = k) then
begin
diem:=diem + 1;
j := random(39);
k := random(24);
if j<0 then j:= 79+j;
if k<0 then k:= 25+k;
tocdo := tocdo – 10;
end;
gotoxy(69,3);
write('diem : ', diem);
delay(tocdo);
if (x = 0) or (x = 80) or (y = 0) or (y = 25) then i:=1;
if diem = 6 then break;
clrscr;
end;
if i=1 then
begin
gotoxy(40,13);
write('ban thua roi ');
write('diem cua ban la:',diem);
end;
if diem = 6 then
begin
gotoxy(40,13);
write('thang roi ');
write('diem cua ban la:',diem);
end;
readln;
end.

Tuyệt vời. Cảm ơn ad

if (key = chr(97)) or (key = chr(65)) then begin x:=x-1; {phim a} sound(131);delay(20);nosound;end;
đoạn này cứ bị lỗi

Phầm mềm free Pascal này tui ghét ở chổ nó rất khó để làm game có đồ họa ( nhìn được ) thời gian làm 1 đoạn mã đơn giản cũng phải mất rất nhiều thời gian
Ít nơi để vận dụng

…

game mugen dc ko ad

tui ghi xong nhung no chi dc co 1 diem ak

nos baor ket thuc tep tin bat nngo

ad copy kiểu j

Giống game hên xui thề bạn:(v

Mình lập trình thử trờ minecraft ai ngờ mình làm dc phần túi đồ và skin

mình bị lỗi unknown identifier ở chỗ textbackground là sao vậy bạn ??

359 sub rồi, chúc bạn sớm đc 1000 sub nha ><

Cái chỗ (key = chr(97))
Nó để là vì nó có dạng Boolean nên ko thể chuyển đổi thành Char xử lí sao giờ ad

dau me oc cho toan ghi sai

Ad cho biết câu lệnh để con rắn chuyển động là gì?

sửa dùm e lỗi 122 Invalid variable reference ở đoạn
(x=j) and (y=k) then

Ad giải thích full câu lệnh cho mình đc k ?

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

wow

0

cho code

sup chéo đi

banj oiw lamf s ddeer coppy trong pascal