hack258147's Content
There have been 15 items by hack258147 (Search limited from 06-06-2020)
#536673 [Pascal] game đua xe đường phố đồ họa
Posted by hack258147 on 08-12-2014 - 12:59 in Góc Tin học
#532462 [lập trình] fappy bird 2
Posted by hack258147 on 09-11-2014 - 00:26 in Góc Tin học
Đầu tiên xin nói rằng đây là game do mình lập trình mà ko có ai chơi nên share chứ không phải quảng cáo
FAPPY BIRD II
hướng dẫn : nhấn space để nảy lên
> hệ thống shop nạp coin và mua chim offline
> đang phát triển hệ thống đăng nhập bằng tài khoản
> các mã để nạp thêm coin (hình túi tiền)
mã 1500 coin :
AZT124
LCB3I9
ZOPV42
6G4F53
CJ29DB
mã 1000 coin
CAF35H
CEF424
MNRE2
JVD34H
LOVNE2
> lưu ý rằng mỗi khi sử dụng thì mã đó sẽ không dùng được nữa
> phải viết hoa khi nạp
Attached Files
- fb2.rar 4.48MB 117 downloads
#527135 [Pascal] game đua xe đường phố đồ họa
Posted by hack258147 on 04-10-2014 - 17:23 in Góc Tin học
ko thấy ai Cmt nhỉ
#527069 [Pascal] game đua xe đường phố đồ họa
Posted by hack258147 on 03-10-2014 - 22:43 in Góc Tin học
Attached Files
- dua_xe.rar 2.51MB 588 downloads
#523387 game Flapry Bird và BBall có đồ họa nè mọi người xem thử
Posted by hack258147 on 07-09-2014 - 22:06 in Góc giao lưu
hay không nghe thuat
#523382 game Flapry Bird và BBall có đồ họa nè mọi người xem thử
Posted by hack258147 on 07-09-2014 - 21:54 in Góc giao lưu
ầu E.Galois sao em spam 1 lần mà lại bị trừ hai điểm vậy
#523376 game Flapry Bird và BBall có đồ họa nè mọi người xem thử
Posted by hack258147 on 07-09-2014 - 21:43 in Góc giao lưu
nói đơn giản nhưng đến đoạn code với 3D thì khó hơn cả pascal ấy chứ
#523267 game Flapry Bird và BBall có đồ họa nè mọi người xem thử
Posted by hack258147 on 07-09-2014 - 13:07 in Góc giao lưu
tui lấy con chim trên mạng nó có mỗi con chin với nền trắng mà không hiểu sao làm lại bị như vậy
#523262 game Flapry Bird và BBall có đồ họa nè mọi người xem thử
Posted by hack258147 on 07-09-2014 - 13:00 in Góc giao lưu
chuẩn bị trừ 2 điểm do spam rồi
mà có chơi được không
#523260 game Flapry Bird và BBall có đồ họa nè mọi người xem thử
Posted by hack258147 on 07-09-2014 - 12:40 in Góc giao lưu
Demo Flapry Bird
hack cheat :
home : 99999 score
}
dùng phím : space để điều khiển chim nảy lên
esc : thoát
có gì góp ý nha
ảnh :
http://www.upsieutoc...09/07/bird2.png
____________________________________________
BOUNCING BALL II
FIX LAG , ĐỒ HỌA
Cheat code:
insert : hack điểm
home : 4 mạng;
ẢNH:
http://www.upsieutoc...itmapImage4.png
Attached Files
- Flapry Bird.rar 2.98MB 42 downloads
- BOUNCING_BALL_II .rar 1.01MB 35 downloads
#522963 [Pascal] Game: Banh nảy
Posted by hack258147 on 05-09-2014 - 18:40 in Góc Tin học
#522552 [Pascal] Game: Banh nảy
Posted by hack258147 on 03-09-2014 - 13:48 in Góc Tin học
vậy làm sao để Banh và tấm có thể chạy một lúc vậy
#522544 [Pascal] Game: Banh nảy
Posted by hack258147 on 03-09-2014 - 13:14 in Góc Tin học
chưa đâu bởi vì em mới học lớp 9 và chưa hiểu rõ fuction vs boolean lắm
mấy game này gõ muốn rụng tay mà nhanh nhàm ghê
Nghệ thuật 102 , ông nghĩ tôi nên đặt cái Intime ở đâu ,chưa làm ra cứ bị lỗi gì ấy
ai thích màu thì down cái BOUNCING_BAL_MÀU.rar nha
HAIZ không chạy song song, được chơi thì ấn từng nút một để khỏi bị lag nha
#522543 [Pascal] Game: Banh nảy
Posted by hack258147 on 03-09-2014 - 13:06 in Góc Tin học
ai thích màu thì down cái BOUNCING_BAL_MÀU.rar ở dưới nhé
mọi người test thử cái game em mới làm này
tên game : banh nảy;
Đây là bản Demo nên có thể sẽ còn lỗi ,thông cảm gõ vậy là rụng tay rồi .
dùng phím <- và -> để di chuyển thanh tưng bóng ;
ESC : để thoát khỏi game ;có 3 mức độ khó
Chế độ banh nảy dùng hàm random dở hơi của pascal nên nhiều lúc banh cứ nảy một chỗ
mỗi lần tưng bóng để bóng không rớt sẽ được cộng điểm ;ban đầu có 3 mạng;
(phải đi kèm với key.tpu nhé);(có ở dưới đó);lưu ý: game hơi lag , di chuyển từng nút một nha
{ BÁ ĐẠO PASCAL
HACK CHEAT : Insert : hack mạng;
Home : hack điểm
}
Có lỗi gì báo để em cải thiện tiếp
Code : (hơi bị dài);program gameball;
uses crt,KEY;
var h1,h2,h3,h4,banh1,banh2,can1,can2,chay1,chay2,i : integer;
diem,mang,gach1,gach2,phim,chon,dokho,muiten:integer;
chondokho : integer;
label thoat;
procedure banh;
begin
CLRSCR;
for i:=20 to 62 do begin
gotoxy(i,7);
write('__');
end;
for i:=8 to 20 do begin
gotoxy(20,i);
write('|');
end;
for i:=20 to 62 do begin
gotoxy(i,20);
write('__'); {IN giao dien game}
end;
for i:=8 to 20 do begin
gotoxy(62,i);
write('|');
end;
gotoxy(30,8);
Write('BOUNCING BALL I');
GOTOXY(25,11);
write('CHAO MUNG DEN VOI GAME BOUNCING BALL');
GOTOXY(25,13);
WRITE('DUNG PHIM "<-" DE DI CHUYEN SANG TRAI');
GOTOXY(25,14);
WRITE('DUNG PHIM "->" DE DI CHUYEN SANG PHAI');
gotoxy(25,15);
write('DUNG PHIM "ESC" DE THOAT [ QUIT ] ');
GOTOXY(25,17);
WRITE('NHAN ENTER DE BAT DAU CHOI !');
GOTOXY(25,19);
WRITE('--> ENTER !');
GOTOXY(25,23);
write('WRITE BY HACK258147');
READLN;
clrscr;
diem:=0;
banh1:=40 ; banh2:=18; {toa do cua banh}
gotoxy(banh1,banh2);
write('o'); {in banh}
{ Phan Choi game }
h2:=7;
for h1:=3 to 19 do begin
gotoxy(h2,h1);
write('//');
end;
h4:=67;
for h3:=3 to 19 do begin
gotoxy(h4,h3);
write('//');
end;
for h2:=7 to 67 do begin
gotoxy(h2,2);
write('//');
end;
for h2:=7 to 67 do begin
gotoxy(h2,20);
write('//');
end;
gotoxy(70,3);
write('BOUNCING');
GOTOXY(70,4);
WRITE('BALL I');
FOR i:=5 to 20 do begin
gotoxy(70,i);
write('/////////'); end;
{phan tao gach}
for i:=12 to 62 do begin
gotoxy(i,3);
write('');
end;
for i:=12 to 62 do begin
gotoxy(i,4);
write('');
end;
for i:=12 to 62 do begin
gotoxy(i,5);
write('');
end;
for i:=12 to 62 do begin
gotoxy(i,6);
write('');
end;
end;
procedure chaybanh;
label top,thoat,tiep,tiep2,chinhdokho,dieukhien;
begin
can1:=39;
can2:=19; {39,19}
gotoxy(30,24);
write('ESC : Thoat game');
gotoxy(50,24);
write('Write By hack258147');
gotoxy(50,25);
write('diendantoanhoc.net');
mang:=3;
top:
chay1:=0;
chay2:=-1;
gotoxy(5,25);
write('Mang : ',mang);
gotoxy(banh1,banh2);
write(' ');
banh1:=40;
banh2:=18;
gotoxy(5,24);
write('Diem : ',diem);
if chondokho=enterkey then goto tiep;
muiten:=13;
chinhdokho:
gotoxy(10,12);
write('Chon do kho');
gotoxy(14,13);
write('De');
gotoxy(14,14);
write('Binh thuong');
gotoxy(14,15);
write('Kho');
gotoxy(10,muiten);
write('-->');
dokho:=getkey;
keypressed;
repeat
if (dokho=upkey) and (muiten=13) then goto chinhdokho;
if (dokho=upkey) then begin
gotoxy(10,muiten);
write(' ');
muiten:=muiten-1;
gotoxy(10,muiten);
write('-->');
end;
if (dokho=dnkey) and (muiten=15) then goto chinhdokho;
if (dokho=dnkey) then begin
gotoxy(10,muiten);
write(' ');
muiten:=muiten+1;
gotoxy(10,muiten);write('-->'); end;
chondokho:=getkey;
if chondokho=enterkey then begin
gotoxy(10,12);
write(' ');
gotoxy(14,13);
write(' ');
gotoxy(14,14);
write(' ');
gotoxy(14,15);
write(' ');
gotoxy(10,muiten);
write(' ');
end;
until (chondokho=enterkey);
tiep:
repeat
if muiten=13 then delay(50000);
if muiten=14 then delay(40000);
if muiten=15 then delay(30000);
gotoxy(banh1,banh2); {CT chay Banh}
write(' ');
banh1:=banh1+chay1;
banh2:=banh2+chay2;
gotoxy(banh1,banh2);
write('o');
gotoxy(can1,can2);
write('MMMM');
if keypressed then begin
dieukhien:
phim:=Getkey;
tiep2: {39:19 toa do cua can}
if phim=leftkey then begin
gotoxy(can1,can2);
write(' '); {dieu khien can qua trai}
can1:=can1-3;
if (can1=9) and (can2=19) then can1:=can1+3;
gotoxy(can1,can2);
write('MMMM');
end;
if phim=rightkey then begin
gotoxy(can1,can2);
write(' '); {dieu khien can qua phai}
can1:=can1+3;
if (can1=66) and (can2=19) then can1:=can1-3;
gotoxy(can1,can2);
write('MMMM');
end;
end;
if phim=inskey then begin
mang:=9999;
gotoxy(5,25);
write(' '); {hack mang}
gotoxy(5,25);
write('Mang : ',mang);
end;
if phim=homekey then begin
diem:=9999;
gotoxy(5,24);
write(' '); {hack diem}
gotoxy(5,24);
write('Diem : ',diem);
end;
if (can1=banh1) and (can2=banh2) then begin
diem:=diem+1;
gotoxy(5,24);
write(' ');
gotoxy(5,24);
write('Diem : ',diem);
gotoxy(can1,can2);
write('M');
chay1:=random(3);
if chay1 = 1 then chay1:=+1;
if chay1 = 2 then chay1:=-1;
if chay1 = 3 then chay1:=+1;
if chay1 = 0 then chay1:=-1; {banh trung can_1}
chay2:=-1;
gotoxy(can1,can2);
write('M');
end;
if (can1+1=banh1) and (can2=banh2) then begin
diem:=diem+1;
gotoxy(5,24);
write(' ');
gotoxy(5,24);
write('Diem : ',diem);
gotoxy(can1+1,can2);
write('M');
chay1:=random(3);
if chay1 = 1 then chay1:=+1;
if chay1 = 2 then chay1:=-1;
if chay1 = 3 then chay1:=+1;
if chay1 = 0 then chay1:=-1;
{banh trung can 2}
chay2:=-1;
gotoxy(can1+1,can2);
write('M');
end;
if (can1+2=banh1) and (can2=banh2) then begin
diem:=diem+1;
gotoxy(5,24);
write(' ');
gotoxy(5,24);
write('Diem : ',diem);
gotoxy(can1,can2);
write('M');
chay1:=random(3);
if chay1 = 1 then chay1:=+1;
if chay1 = 2 then chay1:=-1;
if chay1 = 3 then chay1:=+1;
if chay1 = 0 then chay1:=-1; {banh trung can 3}
chay2:=-1;
gotoxy(can1+2,can2);
write('M');
end;
if (can1+3=banh1) and (can2=banh2) then begin
diem:=diem+1;
gotoxy(5,24);
write(' ');
gotoxy(5,24);
write('Diem : ',diem);
gotoxy(can1+3,can2);
write('M');
chay1:=random(3);
if chay1 = 1 then chay1:=+1;
if chay1 = 2 then chay1:=-1;
if chay1 = 3 then chay1:=+1;
if chay1 = 0 then chay1:=-1;
{banh trung can 4}
chay2:=-1;
gotoxy(can1+3,can2);
write('M');
end;
{ 9:2/ toa do ban dau cua banh }
for i:=8 to 66 do begin
if (banh1=i) and (banh2=3) then begin {neu banh dung tuong tren}
chay1:=random(3) ;
if chay1 = 1 then chay1:=+1;
if chay1 = 2 then chay1:=-1;
if chay1 = 3 then chay1:=+1;
if chay1 = 0 then chay1:=-1;
chay2:=+1; end; {66:3}
end;
for i:=4 to 20 do begin
if (banh2=i) and (banh1=10) then begin {neu banh dung tuong trai}
chay1:=+1;
randomize;
chay2:=random(3);
if chay2 = 1 then chay2:=+1;
if chay2 = 2 then chay2:=-1;
if chay2 = 3 then chay2:=+1;
if chay2 = 0 then chay2:=-1; end;
end; {9:3:19}
for i:=4 to 19 do begin
if (banh2=i) and (banh1=66) then begin
chay1:=-1;
randomize;
chay2:=random(3); {neu banh dung tuong phai}
if chay2 = 1 then chay2:=+1;
if chay2 = 2 then chay2:=-1;
if chay2 = 3 then chay2:=+1;
if chay2 = 0 then chay2:=-1;end;
end;
for i:=9 to 66 do begin
if (banh1<>can1) and (banh1<>can1+1) and (banh1<>can1+2) and (banh1<>can1+3) then begin
if (banh2=19) and (banh1=i) then begin
delay(60000);
delay(60000);
mang:=mang-1; {neu banh dung day}
gotoxy(10,12);
write('Ban bi mat mot mang/ bam ENTER de choi tiep ');
gotoxy(10,13);
write('Nhan ESC de thoat ');
chon:=Getkey;
gotoxy(10,12);
write(' ');
gotoxy(10,13);
write(' ');
gotoxy(5,25);
write(' ');
gotoxy(5,25);
write('Mang : ',mang);
gotoxy(5,24);
write(' ');
gotoxy(5,24);
write('Diem : ',diem);
if chon=enterkey then goto top;
if chon=Esckey then exit;
if chon=rightkey then goto top;
if chon=leftkey then goto top;
if chon=upkey then goto top;
if chon=dnkey then goto top;
end;
end;
end;
if mang = -1 then begin
gotoxy(10,12);
write('GAME OVER/Nhan Esc de thoat , nhan Space de choi tiep');
gotoxy(10,13);
write('Diem cua ban : ',diem);
chon:=getkey;
gotoxy(10,12);
write(' ');
gotoxy(10,13);
write(' ');
if chon=esckey then exit;
if chon=spacekey then begin
mang:=3;
diem:=0;
gotoxy(5,25);
write(' '); {diem :24,5 / mang:25,5}
gotoxy(5,25);
write('Mang : ',mang);
gotoxy(5,24);
write('Diem : ',diem);
goto top;
end;
end;
until (phim=esckey);
end;
begin
banh;
can1:=39; { CT chinh }
can2:=19;
gotoxy(can1,can2); {in can}
write('MMMM');
chaybanh;
clrscr;
gotoxy(20,5);
write('GAME OVER /nhan Enter de thoat');
gotoxy(20,6);
write('Diem cua ban : ',diem);
readln;
end.
Attached Files
- BOUNCING_BALL.rar 75.42KB 1256 downloads
- KEY.rar 736bytes 764 downloads
- BOUNCING_BAL_MÀU.rar 64.75KB 983 downloads
#522440 Lập trình Pascal
Posted by hack258147 on 02-09-2014 - 19:04 in Góc Tin học
Mình nghĩ vì số 153 là một số đặc biệt, mà 1^3+3^3+5^3=153.và 153 chia hết cho 3.
Chọn 1 số chia hết cho 3 bất kỳ, rồi tổng lập phương của các chữ số thì sẻ cho số mới chia hết cho 3 (vd:ab lập phương = a^3+b^3=(a+b)(a^2-ab+b^2)
nhưng vẫn có 1 số cái chưa giải thích đc !!
bạn nghethuat102 với hxthanh cho mình vào nhóm để giúp nhau về pascal được không
mình mới học lớp 9 chưa hiểu rõ các hàm ... lắm ,có gì hai bạn chỉ giùm mình
nếu được gửi mail cho mình là [email protected] nha
- Diễn đàn Toán học
- → hack258147's Content