alimutrinh80
10-08-10, 11:50 AM
Chào mọi người, hôm nay mình chia sẻ cho mọi người một một thuật toán nho nhỏ để ghi các dòng trong file UnpakcFiles.txt khi ta unpack từng tọa độ
Mình không dám múa rìu qua mắt thợ, mình chỉ chia sẻ thêm cách của mình để làm phong phú box JX thêm thôi
Đầu tiên các bạn down file này về ( 100kb thui ^^, kèm HD) Pass là quoctruong
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
Mình chia sẻ đoạn code của file JX.exe lun
var
tep:text;
i,j,x1,x2,y1,y2:byte;
begin
assign(tep,'D:\UnpackFiles.txt');
rewrite(tep);
writeln('Nhap gia tri x1,x2');
readln(x1,x2);
writeln('Nhap gia tri y1,y2');
readln(y1,y2);
for i:=y1 to y2 do
for j:=x1 to x2 do
writeln(tep,'\Maps\asd\v_',i:3,'\',j:3,'_Region_C. dat');
close(tep);
readln
end.
Mình chỉ cần bỏ đoạn code này vào Pascal chạy 1 lần là nó tự cho ra file *.exe, từ đó mình chạy file exe thui
Đây là hướng dẫn, rất dễ hiểu
Chạy JX.exe
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
AI DOWN THANKS CÁI NGHEN
Mình không dám múa rìu qua mắt thợ, mình chỉ chia sẻ thêm cách của mình để làm phong phú box JX thêm thôi
Đầu tiên các bạn down file này về ( 100kb thui ^^, kèm HD) Pass là quoctruong
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
Mình chia sẻ đoạn code của file JX.exe lun
var
tep:text;
i,j,x1,x2,y1,y2:byte;
begin
assign(tep,'D:\UnpackFiles.txt');
rewrite(tep);
writeln('Nhap gia tri x1,x2');
readln(x1,x2);
writeln('Nhap gia tri y1,y2');
readln(y1,y2);
for i:=y1 to y2 do
for j:=x1 to x2 do
writeln(tep,'\Maps\asd\v_',i:3,'\',j:3,'_Region_C. dat');
close(tep);
readln
end.
Mình chỉ cần bỏ đoạn code này vào Pascal chạy 1 lần là nó tự cho ra file *.exe, từ đó mình chạy file exe thui
Đây là hướng dẫn, rất dễ hiểu
Chạy JX.exe
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
AI DOWN THANKS CÁI NGHEN