PDA

View Full Version : [TLBB] Ai mã hóa dùm bài Pascal này sang .Lua để làm NPC chức năng


Sói Đẹp Trai
10-01-12, 12:58 PM
PROGRAM Viết_NPC;
USES Crt;
VAR n,k,u:Integer;

Function CS(i,j:Integer):Integer;
Var
Begin
If i<130 then
Begin
Write(' Chưa đạt cấp 130 không thể chuyển sinh ');
CS:=n;
Exit;
End
Else
Begin
Writeln(' Chúc mừng bạn đã chuyển sinh thành công ');
CS:=j+1;
i:=30;
End;
End;
End;

Function DT(h):Integer;
Var
Begin
Writeln(‘ Xin chúc mừng bạn đã nhận điểm tặng thành công ‘);
DT:=h+999999;
End;

BEGIN
Clrscr;
Readln(n); { Đọc Level nhân vật }
Readln(k); { Đọc số lần chuyển sinh trước đó }
Readln(u); { Đọc số điểm tặng đang có }
Writeln(' Hãy chọn chức năng ');
Write(' 1_ Chuyển sinh : ');
Write(' 2_ Nhận điểm tặng : ');
Readln(f);
If f=1 then CS(n,k);
If f=2 then DT(u);
Readln;
END.

Ai rảnh mã hóa dùm mình nhé để nó làm NPC chức năng ... Ai không quan tâm xin đừng chém mà tội nghiệp
huuduyen_05
10-01-12, 01:13 PM
Cái này script npc tổng hợp trước kia đã có rồi :-s viết lại chi cho mệt, copy ->paste, edit lại thôi.
Sói Đẹp Trai
10-01-12, 01:19 PM
Cái này script npc tổng hợp trước kia đã có rồi :-s viết lại chi cho mệt, copy ->paste, edit lại thôi.Nhưng em nghĩ sẽ bị loạn biến:| Hjx viết cho cái Server 4 lỗ mà anh... Ai rảnh mã hóa dùm mình nhé... Thanks nhiệt tình
trong0981
10-01-12, 01:28 PM
<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>
Sói Đẹp Trai
10-01-12, 02:12 PM
<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>
DNTmaster
10-01-12, 02:23 PM
Mấy cái biến nhập vào là từ Console hay mình load từ cái nào cho ít chi tiết viết lại cho
huuduyen_05
10-01-12, 07:44 PM
Nhưng em nghĩ sẽ bị loạn biến:| Hjx viết cho cái Server 4 lỗ mà anh... Ai rảnh mã hóa dùm mình nhé... Thanks nhiệt tình

Khai báo lại biến để lưu số lần chuyển sinh, thế thôi.
Script ở bản cũ nó cũng mod như thế.
legend1250
10-01-12, 07:48 PM
Cái này script npc tổng hợp trước kia đã có rồi :-s viết lại chi cho mệt, copy ->paste, edit lại thôi.

Anh H.Duyên ơi, cho e xin cái script anh đã nói như trên được không? Tks anh trước :)
duchung145
12-01-12, 06:40 PM
Nó mắt xích với nhau bằng cái thuật toán:| Hiểu thuật toán tự khắc viết được thôi;))

Bó tay với mod

Đọc file lua là sẽ tự hiểu các hàm của nó thôi, cần gì mà lôi Pascal vào đây
Sói Đẹp Trai
12-01-12, 07:23 PM
Bó tay với mod

Đọc file lua là sẽ tự hiểu các hàm của nó thôi, cần gì mà lôi Pascal vào đâyCác anh học cao các anh thấy nó dễ chứ em còn nhỏ thế này còn chưa đụng tý nào với cái lý thuyết C++ nốt...
Chả lẽ lại đem so sánh một đứa trẻ con với một người lớn ?
rikudo
12-01-12, 08:32 PM
Cho nên nhỏ cũng học từ từ thôi, không nên thần đồng quá
hehe
legend1250
12-01-12, 08:50 PM
Cho nên nhỏ cũng học từ từ thôi, không nên thần đồng quá
hehe

pro Rikudo đã vào cũng nên giúp đàn em 1 tay với :D
<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>
Pro nào help với :((