Code game rắn săn mồi pascal

Chương trình rắn săn mồi này được viết lại dựa trên trò chơi rắn săn mồi đã xây dựng bằng Pascal tuy nhiên có lược bỏ phần map (loại bỏ phần chướng ngại vật).

Để có thể cài đặt và chạy được chương trình. Trước tiên các bạn download TurboC giải nén và cài đặt bình thường. Tiếp theo download file ran.cpp về lưu vào C:\DOSBox\TC\BIN. Mở TurboC ra, tìm file ran.cpp và chạy thôi. ^^.

Khi vào màn hình sẽ hiện tên chương trình:

Bạn ấn enter sẽ hiện lên màn hình cho phép bạn chọn mức chơi từ 1 đến 5. Mức càng cao thì rắn đi càng nhanh.

Chọn mức chơi xong, màn hình hướng dẫn sẽ hiện ra:

Bạn nhấn enter để load game:

Bây giờ thì chơi thôi. Bạn dùng các phím A, S, D, W để điều khiển rắn. Ấn phím p để tạm dừng, enter để tiếp tục

Khi bạn ăn đủ 15 con mồi thì sẽ thắng màn đó và đến màn tiếp theo.

Chẳng may bạn bị đâm vào biên hoặc vào chính thân của mình thì sẽ thua ngay lập tức. Bạn chọn “y” nếu muốn chơi tiếp, “n” để dừng.

Pascal đã đc đưa vào chương trình học phổ thông với mục đích phát triển tư duy. Tuy nhiên nhiều người đã rất vất vã để vượt qua nó. Bởi vì các bạn không thích thú thôi. Suốt ngày cứ bắt giải phương trình bậc nhất, phương trình bậc hai, sắp xếp dãy số tăng dần, tìm ra phần tử lớn nhất hay nhỏ nhất chẳng hạn, bla.bla.. Và có 1 thực tế là, ai cũng chỉ biết đây là 1 môn bắt buộc và học thôi mà chẳng biết học như vậy thì ứng dụng vào thực tế đc gì nữa .?.?.?…

Hôm nay, mình sẽ cho các bạn thấy, chỉ với vài câu lệnh đơn giản mà các bạn đã đc học, nếu biết sáng tạo sử dụng nó sẽ tạo ra 1 trò chơi đơn giản như thế nào… Và còn nhiều hơn thế nữa…

Game này có ý tưởng từ game rắn săn mồi trên mấy cái điện thoại trắng đen ấy ^^. Chế biến lại trên Pascal như sau: mình sẽ dùng vòng lặp vô tận repeat…until để chạy, các vòng lặp cách nhau bằng một khoảng thời gian delay (100-300 miliseconds), kết hợp với sự điều khiển của người chơi bằng cách ấn các phím W A S D để điều khiển con rắn di chuyển lên, xuống, qua trái, qua phải; và tăng 1 điểm, tăng chiều dài rắn khi ăn đc 1 viên thức ăn. Chỉ đơn giản vậy thôi

... tính kiếm mồi và săn mồi ở động vậtCác tác nhân kích thích như: hình ảnh, âm thanh con mồi phát ra, nhiệt độ cơ thể con mồi, mùi máu tanh…hình thành nên tập tính rình mồi, rượt đuổi mồi để tấn ... tấn công và vồ mồi. Tập tính kiếm mồi và săn mồi ở các động vật khác nhau là khác nhau:1. Đối với động vật có tổ chức thần kinh chưa phát triển thì là tập tính kiếm mồi và săn mồi là tập tính ... dàng săn mồi hơn. 8 Cá sấu. Không gì đe dọa bằng một kẻ săn mồi luôn ẩn mình dưới nước, ngụy trang lẫn trong môi trường, im lìm quan sát con mồi để lên kế hoạch giết gọn. Cá sấu, một kẻ săn mồi...

1. 
   Registered User

   Trò này mình lấy trong sách đó, bà con chơi thử nha !

   program ransanmoi;
   uses crt,dos;
   var ran:array[1..100] of record x,y:byte; end;
   x,y,x1,y1,L,huong:byte;
   tocdo,diem:integer;
   kt:char;
   die:boolean;

   procedure setcusor(bot,top:byte);
   var regs:registers;
   begin
   regs.ah:=1;
   regs.ch:=bot;
   regs.cl:=top;
   end;

   procedure ngaunhien;
   begin
   x1:=random(30)+5;
   y1:=random(20)+2;
   kt:=chr(random(25)+65);
   gotoxy(x1,y1);
   write(kt);
   end;

   procedure vekhung;
   var j:byte;
   begin
   clrscr;
   textcolor(white);
   gotoxy(1,1);
   for j:=1 to 40 do write(#177);
   gotoxy(1,24);
   for j:=1 to 40 do write(#177);
   for j:=2 to 23 do
   begin
   gotoxy(1,j);
   writeln(#177);
   gotoxy(40,j);
   write(#177);
   end;
   gotoxy(8,24);
   textcolor(lightred);
   writeln('Nhan ESC de thoat');
   end;

   procedure ranchay;
   var rk:char;
   begin
   if keypressed then
   begin
   rk:=readkey;
   if rk=#27 then halt(1);
   if rk=#0 then rk:=readkey;
   huong:=ord(rk);
   end;
   case huong of
   80:inc(y); {di xuong}
   72:dec(y); {di len}
   77:inc(x); {qua phai}
   75:dec(x); {qua trai}
   end;
   if (y=1)or(y=24)or(x=40)or(x=1) then die:=true;
   end;

   procedure init;
   var j:byte;
   begin
   randomize;
   textmode(co40);
   tocdo:=200;
   diem:=0;
   vekhung;
   l:=3;
   x:=10;
   y:=10;
   for j:=1 to l+1 do
   begin
   ran[j].x:=30+j;
   ran[j].y:=10;
   end;
   ngaunhien;
   setcusor(32,3);
   die:=false;
   end;

   procedure thuchien;
   var i:byte;
   begin
   init;
   i:=4;
   repeat
   ranchay;
   dec(i);
   gotoxy(ran[i].x,ran[i].y);
   write(' ');
   ran[i].x:=x;
   ran[i].y:=y;
   textcolor(lightred);
   gotoxy(4,1);
   write(' DIEM ',diem);
   if (diem>0) and (diem mod 200=0) then
   begin
   diem:=diem+50;
   gotoxy(6,12);
   textcolor(white);
   textbackground(red);
   writeln(' MOI BAN TIEP TUC ');
   repeat until keypressed;
   textbackground(0);
   clrscr;
   vekhung;
   if tocdo>=100 then tocdo:=tocdo-50;
   if diem>=400 then l:=3;
   i:=l;
   end;
   if (x=x1)and(y=y1) then
   begin
   l:=l+1;
   ngaunhien;
   diem:=diem+10;
   end;
   gotoxy(x1,y1);
   write(kt);
   textcolor(lightcyan);
   gotoxy(ran[i].x,ran[i].y);
   write({#219}'o');
   if i=1 then i:=l+1;
   delay(tocdo);
   until die;
   gotoxy(15,11);
   write(' BAN DA THUA ');
   gotoxy(5,12);
   write(' Nhan phim bat ki de choi tiep ');
   end;

   BEGIN
   repeat
   clrscr;
   thuchien;
   kt:=readkey;
   until kt=#27;
   clrscr
   END.

   ---

2. Registered User

   cám ơn bạn nhiều lắm. mà sách gì vậy bạn?

   ---

3. Registered User

   ---

4. Registered User

   chưa làm thử, cảm ơn bạn trước

   ---

Quy định

• Bạn không thể tạo chủ đề mới
• Bạn không thể trả lời bài viết
• Bạn không thể gửi file đính kèm
• Bạn không thể sửa bài viết của mình

Quy định DDTH.com