Kết quả tìm kiếm

Game này tốn mình 1 tuần để hoàn thành

Đây là game xe tăng hoàn chỉnh do chính tay mình làm ra (Hau_Crush), mình khuyên các bạn nên chạy game trên PascalXE thì sẽ tốt hơn "một chút"!

Program CarGame; Uses Crt; Const U = #72; D = #80; R = #77; L = #75; Space = #32; Type rCar = Record Army: Record x,y: Byte; End; Enemy: Record x,y: Byte; End; End; TCar = Object Procedure DrawArmyCar(x,y: Byte)...

Program The_Tank_Game; Uses Crt; Type Location = Record x,y: Byte; End; Var Tank,Enemy,Bullet,Arrow,Present: Location; i,j,Spawm_Enemy,z,ExtraBullet: Byte; KEY,m,w,SavedKey: Char; Score,NumberOfBullet,Target: Integer; Function CheckEnemy(x,y: Byte): Boolean; Begin If ((bullet.x = enemy.x+1) And...

Nguồn: https://diendan.hocmai.vn/threads/day-la-game-xe-tang-hoan-chinh-duoc-lap-trinh-bang-pascal.873073/ Cái đó của mình đấy, xem ủng hộ nhé

Được nhỉ, cái nà hữu ích nhé =)))

Hihi cảm ơn em, à mà cái này trên Free pascal chạy đôi khi bị lỗi nhen, còn trên Pascal XE thì trơn tru hông một vết lỗi khi chạy :))))

Lưu ý là cái game này có thể chạy hoàn chỉnh, trơn tru trên Pascal XE thoi nhé. FREE Pascal, Turbo Pascal chạy có đôi chút bị lỗi!!

Program The_Tank_Game; Uses Crt; Type Location = Record x,y: Byte; End; Var Tank,Enemy,Bullet,Arrow,Present: Location; i,j,Spawm_Enemy,z,ExtraBullet: Byte; KEY,m,w,SavedKey: Char; Score,NumberOfBullet,Target: Integer; Function CheckEnemy(x,y: Byte): Boolean; Begin If...

Bạn điều khiển bằng các phím mũi tên trái và phải để di chuyển , phím space để bắn

Do game này mik làm gấp nên chưa có add vào kẻ địch làm thú vui cho xe tăng :))

Ngôn ngữ mik dùng là ngôn ngữ Pascal

Hoàn toàn chạy được nha bạn :)

hihi, mình cũng nghĩ z

Nhưng mà phiên bản của mik ko có mới đau =))

Program NO_NAME; Uses Crt; Const WallRight = 80; WallLeft = 1; Type Position = Record x,y: Integer; End; TBullet = Record x,y: Byte; ShootingStatus: Boolean; End; Var Tank: Position; Bullet: TBullet; CheckDirection: Boolean; Procedure...

Các pháp sư giúp mình làm sao để nhân vật đang trong trạng thái nhảy mà vẫn nhấn các phím mũi tên sang trái hoặc sang phải để điều khiển được, mik xin cảm ơn rất nhiều =))

Program NO_NAME; Uses Crt; Const HeightJumping = 6; Type Position = Record x,y: Integer; JumpingStatus: Boolean; End; Var Character: Position; Height: Integer; Gravity: Integer; Procedure MapForGame; Var i,j : Byte; Begin For j := 21 To 29 Do For i := 1 To 80 Do...

Compile trên Free Pascal thì nó thoát rồi báo là exited with exitcode = 201 Có tiền bối nào không giúp mik khắc phục lỗi với ạ =))

Cái này mik chỉ compile được trên Pascal XE, trên Free Pascal compile thì nó bị thoát (hơi lạ =)))) ) =))