Ai mã hóa dùm bài Pascal này sang .Lua để làm NPC chức năng

[Sói Đẹp Trai]

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]

Cái này script npc tổng hợp trước kia đã có rồi viết lại chi cho mệt, copy ->paste, edit lại thôi.

[Sói Đẹp Trai]

Cái này script npc tổng hợp trước kia đã có rồi 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]

Pascal có liên quan gì tới tới Lua ta? @@

[Sói Đẹp Trai]

Pascal có liên quan gì tới tới Lua ta? @@

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

[DNTmaster]

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]

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]

Cái này script npc tổng hợp trước kia đã có rồi 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]

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]

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

Cá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 ?