PDA

View Full Version : Chương trình Bắn Máy Bay đây



Eddy
29-04-2003, 16:02
Thành thật xin lỗi với các huynh các tỉ trong diễn đàn về trò chơi Caro lần trước bởi vì đệ gởi thiếu file nên không thể chạy đuợc và trò chơi đó lỡ bị format xoá mất rồi nên không thể gởi lên được.
Để cáo lối đệ có viết chương trình ""Bắn Máy Bay" để mọi người chơi bớt giận.
Chương trình này được viết cấp tốc bằng Delphi trong vòng 2 tuần (nói thiệt ngôn ngữ Delphi đệ cũng chỉ mới làm quen trong vòng 2 tuần thôi).Nên chỉ có thể làm mọi người chơi với nhau trên một máy đơn, có gì sơ xuất mong các huynh tỉ thông cảm và đóng góp ý kiến để đệ cải tiến cho những lần chơi tiếp theo.

Còn cách thức chơi được ghi trong file "giớithiệu.txt".

Mach2
29-04-2003, 16:08
File hư rồi hay sao đó bạn ơi, up lên lại được ko?

btkiet
07-05-2003, 15:42
Down về được nhưng không unzip được, chắc tại lúc up lên bị đứt giữa chừng... up lại dùm đi bạn ơi !!!

forever2039
29-10-2007, 20:31
không down được đâu up lại được không mình đang rất cần

trongduc219
29-10-2007, 23:29
tôi có trò bắn chim cũng tưong tự bắn máy bay thôi
khác mỗi đồ họa thôi cho vào chạy được dó

uses crt;

const
w=32; h=32; VGA = $A000;
Type
sprbuf=array[0..w*h-1] of byte;
ScrTyp=array[1..64000] of byte;
var
F:file of byte; {===== note ===========}
bckbuf,sprite:sprbuf;
px,py:word;
Icon:array[0..3] of sprbuf;
Screen:ScrTyp absolute $a000:0;

procedure Cls( col:byte);
begin
fillchar(mem[$a000:0],64000,col);
end;

procedure retrace; assembler; asm
mov dx,03dah; @l1: in al,dx; test al,8; jnz @l1
@l2: in al,dx; test al,8; jz @l2; end;

procedure ShowTitle;
var
F:file of ScrTyp;
begin
Assign(F,'mount.clt');
Reset(F);
Read(F,Screen);
Close(F);
end;

procedure putsprite(x,y:word; spr:sprbuf);
var i,j:byte;
begin
for i:=0 to w-1 do
for j:=0 to h-1 do
mem[vga:(py+j)*320+px+i]:=bckbuf[j*w+i];
for i:=0 to w-1 do
for j:=0 to h-1 do
bckbuf[j*w+i]:=mem[vga:(y+j)*320+x+i];
px:=x; py:=y;
for i:=0 to w-1 do
for j:=0 to h-1 do
if spr[j*w+i]<>0 then
mem[vga:(y+j)*320+x+i]:=spr[j*w+i];
end;

procedure get_pic(var pic:sprbuf);
var
a:Integer;
begin
For a:=0 To w*h-1 Do
read(f,pic[a]);
bckbuf:=pic;
end;

var a,i,j:word; t,k:integer;
begin
asm mov ax,13h; int 10h; end;
{ fillchar(bckbuf,sizeof(bckbuf),0);
ShowTitle;}
cls(9);
assign(f, 'chik.dat');
reset(f);
for k:= 0 to 3 do get_pic(Icon[k]);
close(f);
px:=0; py:=0;
for i:=0 to w-1 do
for j:=0 to h-1 do
bckbuf[j*w+i]:=mem[vga:j*320+i];
repeat
t:=random(3);
retrace;
putsprite(150+round(cos(pi*i/180)*100),
100+round(sin(pi*i/180)*50),Icon[t]);
i:=1+i mod 360;
Delay(100);
until keypressed;
textmode(lastmode);
end.

hutructiensinh
01-12-2008, 20:36
anh ơ ứng dụng mấy cái này vào đâu thì chạy được ạ..

[=========> Bổ sung bài viết <=========]

em muốn làm trên nền tảng powpoind thì làm như nào ạ...mong các anh chỉ giáo..hix..mới thực tập lần đầu...

huysun
01-12-2008, 22:14
Thành thật xin lỗi với các huynh các tỉ trong diễn đàn về trò chơi Caro lần trước bởi vì đệ gởi thiếu file nên không thể chạy đuợc và trò chơi đó lỡ bị format xoá mất rồi nên không thể gởi lên được.
Để cáo lối đệ có viết chương trình ""Bắn Máy Bay" để mọi người chơi bớt giận.
Chương trình này được viết cấp tốc bằng Delphi trong vòng 2 tuần (nói thiệt ngôn ngữ Delphi đệ cũng chỉ mới làm quen trong vòng 2 tuần thôi).Nên chỉ có thể làm mọi người chơi với nhau trên một máy đơn, có gì sơ xuất mong các huynh tỉ thông cảm và đóng góp ý kiến để đệ cải tiến cho những lần chơi tiếp theo.

Còn cách thức chơi được ghi trong file "giớithiệu.txt".

bạn kiếm trang nào đó upload lên đi, các file đính kèm thì tui chưa bao giờ down được