Hàm Mở Rộng Cho Sourcejx49.lua

**ohishu** · 17-11-10, 05:15 PM

Cái Này Dành Cho Member Gà Lua Và Đang Develop Server Trên Nền JX49 Thôi Nhé

Vào Đề Nào:

Các Bạn Vào Foder Script\Global Mở File Sourcejx49.lua = Text Document Và Kéo Xuống Dưới Cùng Coppy Đoạn Code Sau Vào:

function ThemDanhVong(id)
AddRepute(id)
Msg2Player("Ban Nhan Duoc "..id.." Diem Danh Vong !")
end

function KyNang(id)
HaveMagic(id)
end

function ThemKyNang(id,lv)
AddMagic(id,lv)
Msg2Player("Xin Chuc Mung Ban Da Lanh Hoi Duoc Tuyet Ky !")
end

function ResetTask()
for i=1,500 do SetTask(i,0) end
end

function XoaTatCaSkill()
for i=1,500 do DelMagic(i) end
AddMagic(1,1)
AddMagic(2,1)
AddMagic(53,1)
Msg2Player("Da Xoa Bang Skill !")
KickOutSelf()
end

function KiemTraVatPham(id)
GetItemCount(id)
end

function ThemVatPham(id)
AddEventItem(id)
Msg2Player("Ban Nhan Duoc 1 Vat Pham !")
end

Thật Ra Nó Là Hàm Việt Hóa Từ English Sang Vietnamese Thôi Chứ Không Có Gì Cả Hỗ Trợ Cho Các Bạn Dễ Nhớ Khi Develop JX !

Cách Dùng: Đã Thể Hiện Qua Tên Function

Nếu Hay Thì Tks Phát Nào !

P/S: Nếu Các Bạn Có Ý Tưởng Hàm Việt Hóa Nào Cứ Post Ở Đây Tớ Sẽ Update Thêm Để Phong Phú !

**[S]ocola[S]an** · 17-11-10, 05:47 PM

Code:

function AddItemHK(monphai)
if monphai == "thieulam" then
AddItem(0,4,4,9,nh,0,10)
AddItem(0,2,31,9,nh,0,10)
AddItem(0,6,4,9,nh,0,10)
AddItem(0,5,6,9,nh,0,10)
AddItem(0,8,4,9,nh,0,10)
AddItem(0,7,16,9,nh,0,10)
AddItem(0,9,4,9,nh,0,10)
AddItem(0,3,5,9,nh,0,10)
AddItem(0,3,5,9,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Thieu Lam.")
elseif monphai == "thienvuong" then
AddItem(0,4,5,9,nh,0,10)
AddItem(0,2,32,9,nh,0,10)
AddItem(0,6,5,9,nh,0,10)
AddItem(0,5,7,9,nh,0,10)
AddItem(0,8,5,9,nh,0,10)
AddItem(0,7,17,9,nh,0,10)
AddItem(0,9,5,9,nh,0,10)
AddItem(0,3,6,9,nh,0,10)
AddItem(0,3,6,9,nh,0,10)
AddItem(0,10,7,10,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Thien Vuong.")
elseif monphai == "duongmon" then
AddItem(0,4,6,9,nh,0,10)
AddItem(0,2,33,9,nh,0,10)
AddItem(0,6,6,9,nh0,10)
AddItem(0,5,8,9,nh,0,10)
AddItem(0,8,6,9,nh,0,10)
AddItem(0,7,18,9,nh,0,10)
AddItem(0,9,6,9,nh,0,10)
AddItem(0,3,7,9,nh,0,10)
AddItem(0,3,7,9,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Duong Mon.")
elseif monphai == "ngudoc" then
AddItem(0,4,7,9,nh,0,10)
AddItem(0,2,34,9,nh,0,10)
AddItem(0,6,7,9,nh,0,10)
AddItem(0,5,9,9,nh,0,10)
AddItem(0,8,7,9,nh,0,10)
AddItem(0,7,19,9,nh,0,10)
AddItem(0,9,7,9,nh,0,10)
AddItem(0,3,8,9,nh,0,10)
AddItem(0,3,8,9,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Ngu Doc.")
elseif monphai == "ngami" then
AddItem(0,4,8,9,nh,0,10)
AddItem(0,2,35,9,nh,0,10)
AddItem(0,6,8,9,nh,0,10)
AddItem(0,5,10,9,nh,0,10)
AddItem(0,8,8,9,nh,0,10)
AddItem(0,7,20,9,nh,0,10)
AddItem(0,9,8,9,nh,0,10)
AddItem(0,3,9,9,nh,0,10)
AddItem(0,3,9,9,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Nga My.")
elseif monphai == "thuyyen" then
AddItem(0,4,9,9,nh,0,10)
AddItem(0,2,36,9,nh,0,10)
AddItem(0,6,9,9,nh,0,10)
AddItem(0,5,11,9,nh,0,10)
AddItem(0,8,9,9,nh,0,10)
AddItem(0,7,21,9,nh,0,10)
AddItem(0,9,9,9,nh,0,10)
AddItem(0,3,10,9,nh,0,10)
AddItem(0,3,10,9,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Thuy Yen.")
elseif monphai == "caibang" then
AddItem(0,4,10,9,nh,0,10)
AddItem(0,2,37,9,nh,0,10)
AddItem(0,6,10,9,nh,0,10)
AddItem(0,5,12,9,nh,0,10)
AddItem(0,8,10,9,nh,0,10)
AddItem(0,7,22,9,nh,0,10)
AddItem(0,9,10,9,nh,0,10)
AddItem(0,3,11,9,nh,0,10)
AddItem(0,3,11,9,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Cai Bang.")
elseif monphai == "thiennhan" then
AddItem(0,4,11,9,nh,0,10)
AddItem(0,2,38,9,nh,0,10)
AddItem(0,6,11,9,nh,0,10)
AddItem(0,5,13,9,nh,0,10)
AddItem(0,8,11,9,nh,0,10)
AddItem(0,7,23,9,nh,0,10)
AddItem(0,9,11,9,nh,0,10)
AddItem(0,3,12,9,nh,0,10)
AddItem(0,3,12,9,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Thien Nhan.")
elseif monphai == "vodang" then
AddItem(0,4,12,9,nh,0,10)
AddItem(0,2,39,9,nh,0,10)
AddItem(0,6,12,9,nh,0,10)
AddItem(0,5,14,9,nh,0,10)
AddItem(0,8,12,9,nh,0,10)
AddItem(0,7,24,9,nh,0,10)
AddItem(0,9,12,9,nh,0,10)
AddItem(0,3,13,9,nh,0,10)
AddItem(0,3,13,9,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Vo Dang.")
elseif monphai == "conlon" then
AddItem(0,4,13,9,nh,0,10)
AddItem(0,2,40,9,nh,0,10)
AddItem(0,6,13,9,nh,0,10)
AddItem(0,5,15,9,nh,0,10)
AddItem(0,8,13,9,nh,0,10)
AddItem(0,7,25,9,nh,0,10)
AddItem(0,9,13,9,nh,0,10)
AddItem(0,3,14,9,nh,0,10)
AddItem(0,3,14,9,nh,0,10)
AddItem(0,10,7,10,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Con Lon.")
elseif monphai == nil then
Msg2Player("Hay chon mon phai ma ban can additem")
end
end;

Hàm AddItemHK . Work Good in THD 2.0 Server

**jxvietnam** · 17-11-10, 07:06 PM

@sandaru : thiếu nh=random(0,4) nữa

**nguyentrunghbl** · 18-11-10, 11:28 PM

Gửi bởi sandaru [Only registered and activated users can see links. ]

Code:

function AddItemHK(monphai)
if monphai == "thieulam" then
AddItem(0,4,4,9,nh,0,10)
AddItem(0,2,31,9,nh,0,10)
AddItem(0,6,4,9,nh,0,10)
AddItem(0,5,6,9,nh,0,10)
AddItem(0,8,4,9,nh,0,10)
AddItem(0,7,16,9,nh,0,10)
AddItem(0,9,4,9,nh,0,10)
AddItem(0,3,5,9,nh,0,10)
AddItem(0,3,5,9,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Thieu Lam.")
elseif monphai == "thienvuong" then
AddItem(0,4,5,9,nh,0,10)
AddItem(0,2,32,9,nh,0,10)
AddItem(0,6,5,9,nh,0,10)
AddItem(0,5,7,9,nh,0,10)
AddItem(0,8,5,9,nh,0,10)
AddItem(0,7,17,9,nh,0,10)
AddItem(0,9,5,9,nh,0,10)
AddItem(0,3,6,9,nh,0,10)
AddItem(0,3,6,9,nh,0,10)
AddItem(0,10,7,10,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Thien Vuong.")
elseif monphai == "duongmon" then
AddItem(0,4,6,9,nh,0,10)
AddItem(0,2,33,9,nh,0,10)
AddItem(0,6,6,9,nh0,10)
AddItem(0,5,8,9,nh,0,10)
AddItem(0,8,6,9,nh,0,10)
AddItem(0,7,18,9,nh,0,10)
AddItem(0,9,6,9,nh,0,10)
AddItem(0,3,7,9,nh,0,10)
AddItem(0,3,7,9,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Duong Mon.")
elseif monphai == "ngudoc" then
AddItem(0,4,7,9,nh,0,10)
AddItem(0,2,34,9,nh,0,10)
AddItem(0,6,7,9,nh,0,10)
AddItem(0,5,9,9,nh,0,10)
AddItem(0,8,7,9,nh,0,10)
AddItem(0,7,19,9,nh,0,10)
AddItem(0,9,7,9,nh,0,10)
AddItem(0,3,8,9,nh,0,10)
AddItem(0,3,8,9,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Ngu Doc.")
elseif monphai == "ngami" then
AddItem(0,4,8,9,nh,0,10)
AddItem(0,2,35,9,nh,0,10)
AddItem(0,6,8,9,nh,0,10)
AddItem(0,5,10,9,nh,0,10)
AddItem(0,8,8,9,nh,0,10)
AddItem(0,7,20,9,nh,0,10)
AddItem(0,9,8,9,nh,0,10)
AddItem(0,3,9,9,nh,0,10)
AddItem(0,3,9,9,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Nga My.")
elseif monphai == "thuyyen" then
AddItem(0,4,9,9,nh,0,10)
AddItem(0,2,36,9,nh,0,10)
AddItem(0,6,9,9,nh,0,10)
AddItem(0,5,11,9,nh,0,10)
AddItem(0,8,9,9,nh,0,10)
AddItem(0,7,21,9,nh,0,10)
AddItem(0,9,9,9,nh,0,10)
AddItem(0,3,10,9,nh,0,10)
AddItem(0,3,10,9,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Thuy Yen.")
elseif monphai == "caibang" then
AddItem(0,4,10,9,nh,0,10)
AddItem(0,2,37,9,nh,0,10)
AddItem(0,6,10,9,nh,0,10)
AddItem(0,5,12,9,nh,0,10)
AddItem(0,8,10,9,nh,0,10)
AddItem(0,7,22,9,nh,0,10)
AddItem(0,9,10,9,nh,0,10)
AddItem(0,3,11,9,nh,0,10)
AddItem(0,3,11,9,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Cai Bang.")
elseif monphai == "thiennhan" then
AddItem(0,4,11,9,nh,0,10)
AddItem(0,2,38,9,nh,0,10)
AddItem(0,6,11,9,nh,0,10)
AddItem(0,5,13,9,nh,0,10)
AddItem(0,8,11,9,nh,0,10)
AddItem(0,7,23,9,nh,0,10)
AddItem(0,9,11,9,nh,0,10)
AddItem(0,3,12,9,nh,0,10)
AddItem(0,3,12,9,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Thien Nhan.")
elseif monphai == "vodang" then
AddItem(0,4,12,9,nh,0,10)
AddItem(0,2,39,9,nh,0,10)
AddItem(0,6,12,9,nh,0,10)
AddItem(0,5,14,9,nh,0,10)
AddItem(0,8,12,9,nh,0,10)
AddItem(0,7,24,9,nh,0,10)
AddItem(0,9,12,9,nh,0,10)
AddItem(0,3,13,9,nh,0,10)
AddItem(0,3,13,9,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Vo Dang.")
elseif monphai == "conlon" then
AddItem(0,4,13,9,nh,0,10)
AddItem(0,2,40,9,nh,0,10)
AddItem(0,6,13,9,nh,0,10)
AddItem(0,5,15,9,nh,0,10)
AddItem(0,8,13,9,nh,0,10)
AddItem(0,7,25,9,nh,0,10)
AddItem(0,9,13,9,nh,0,10)
AddItem(0,3,14,9,nh,0,10)
AddItem(0,3,14,9,nh,0,10)
AddItem(0,10,7,10,nh,0,10)
Msg2Player("Nhan duoc trang bi HKMP Con Lon.")
elseif monphai == nil then
Msg2Player("Hay chon mon phai ma ban can additem")
end
end;

Hàm AddItemHK . Work Nice in THD 2.0 Server

Dùng hàm của bác Thành hay hơn nhiều, lại ngắn gọn + theo ngũ hành, theo môn phái :
AddItem(0,4,3+nsel*5,GetTask(165),random(0,4),0,10 )

Hàm Add như San mà đồ phân ra Sơ Cấp, Trung Cấp, Cao Cấp hoặc cấp 1, cấp 2 ... đến cấp 10 thì mệt lắm + nhìn rối.

Thì tất nhiên mỗi SV mỗi khác, hàm thì SV nào chả giống nhau, ID đồ ngồi sửa lại tí là hợp với SV của mình thôi mà đâu nhất thiết cứ phải "Work Nice in THD 2.0 Server".

**~~**Mr.Rezo™**~~** · 19-11-10, 12:02 AM

Work Nice là cái gì vậy hả Sandaru

hết thằng batca2tay đến Mod cũng sai ngữ pháp tiếng Anh

học sõi tiếng mẹ đẻ đi rồi hẵng sính ngoại

**nguyentrunghbl** · 19-11-10, 12:27 PM

Gửi bởi Mr.Rezo™ [Only registered and activated users can see links. ]

Work Nice là cái gì vậy hả Sandaru

hết thằng batca2tay đến Mod cũng sai ngữ pháp tiếng Anh

học sõi tiếng mẹ đẻ đi rồi hẵng sính ngoại

Thích tính của bác Mr.Rezo thẳng thắn!

**[S]ocola[S]an** · 19-11-10, 05:57 PM

Gửi bởi nguyentrunghbl [Only registered and activated users can see links. ]

Dùng hàm của bác Thành hay hơn nhiều, lại ngắn gọn + theo ngũ hành, theo môn phái :
AddItem(0,4,3+nsel*5,GetTask(165),random(0,4),0,10 )

Hàm Add như San mà đồ phân ra Sơ Cấp, Trung Cấp, Cao Cấp hoặc cấp 1, cấp 2 ... đến cấp 10 thì mệt lắm + nhìn rối.

Thì tất nhiên mỗi SV mỗi khác, hàm thì SV nào chả giống nhau, ID đồ ngồi sửa lại tí là hợp với SV của mình thôi mà đâu nhất thiết cứ phải "Work Nice in THD 2.0 Server".

Tui làm đại làm cái kia chi cho rắc rối . Tui xài Settings THD 2.0 thì phải sử dụng tốt trên THD 2.0 chứ @@

@Mr.Rezo : Ghi đại ^^

**jxvietnam** · 20-11-10, 07:52 AM

Code:

function ThemTien(id)
Earn(id)
Msg2Player("Chuc mung !! Dai hiep nhan duoc "..id.." luong.")
end

Hàm đơn giản rất cần cho member

**Mr.Phát** · 20-11-10, 03:21 PM

Gửi bởi Mr.Rezo™ [Only registered and activated users can see links. ]

Work Nice là cái gì vậy hả Sandaru

hết thằng batca2tay đến Mod cũng sai ngữ pháp tiếng Anh

học sõi tiếng mẹ đẻ đi rồi hẵng sính ngoại

work nice là làm làm việc tốt ! ý sandaru là nó hoạt động tốt trên THD

**[S]ocola[S]an** · 20-11-10, 05:42 PM

Gửi bởi ntpdnp_2021 [Only registered and activated users can see links. ]

work nice là làm làm việc tốt ! ý sandaru là nó hoạt động tốt trên THD

À . Mấy hôm nay trốn đi đâu thế ku

. Định hứa lèo cái domain à

function NoiChuyen(loinoi,soluong,script)
if soluong==nil then soluong = 1 end
if script==nil then script = no end
Talk(soluong,script,"oinoi)
end
end;

Chủ đề: Hàm Mở Rộng Cho Sourcejx49.lua

Công cụ Chủ đề

Hàm Mở Rộng Cho Sourcejx49.lua

The Following 2 Users Say Thank You to ohishu For This Useful Post:

Ðề: Hàm Mở Rộng Cho Sourcejx49.lua

Ðề: Hàm Mở Rộng Cho Sourcejx49.lua

Ðề: Hàm Mở Rộng Cho Sourcejx49.lua

Ðề: Hàm Mở Rộng Cho Sourcejx49.lua

Các thành viên gởi lời cảm ơn đến Mr.Rezo™ vì bài viết này !

Ðề: Hàm Mở Rộng Cho Sourcejx49.lua

Ðề: Hàm Mở Rộng Cho Sourcejx49.lua

Ðề: Hàm Mở Rộng Cho Sourcejx49.lua

Ðề: Hàm Mở Rộng Cho Sourcejx49.lua

Ðề: Hàm Mở Rộng Cho Sourcejx49.lua

Quyền viết bài