PDA

View Full Version : [JX] [LINUX] Share Script Cải Lão Hoàn Đồng sau khi trùng sinh 5



trilap2004
14-06-19, 11:08 PM
Như tiêu đề, do giới hạn sv trùng sinh 5, mình add thêm cái script cải lão hoàn đồng, tương tự như trùng sinh. Với script này, bác nào muốn dev lên có thể cải lão nhiều lần được.

Tìm 1 con npc nào đó add vô bằng cách vô addspreadernpc.lua thêm vào:

{1456,80,4,54,1572,3181,0,"Thiªn S¬n §ång L·o",0,"\\script\\global\\cailaohoandong.lua"},

* Map 54 là Nam Nhạc Trấn, tọa độ điểm 1572,3181. Mình thích map này nên add vào. Các bác thích map nào thì add vô map đó nha. Nhớ chỉnh lại tọa độ điểm. Lưu ý: tọa độ điểm khác với tọa độ bản đồ của game nha. Dùng Thần hành phù để xác định tọa độ. Nếu 0 có, thì add code sau vô Thần Hành Phù:
Bước 1: Tìm tới dòng local tbOpt = {"...."}, thêm dòng: tinsert(tbOpt, "Th«ng tin b¶n ®å vµ täa ®é vÞ trÝ ®ang ®øng/timtoado")
Bước 2: Tạo function:
function timtoado()
local w,x,y = GetWorldPos()
local nIdPlay = PlayerIndex
Say("B¶n ®å sè <color=Green>"..w.."<color>, täa ®é <color=Yellow>"..x..", "..y.."<color>.");
end;

*****Code Cải Lão, lưu vào 1 file nào đó, đặt tên tùy ý, vd: cailaohoandong.lua:
Include("\\script\\global\\fuyuan.lua")
Include("\\script\\global\\translife.lua")
Include("\\script\\dailogsys\\dailogsay.lua")
Include("\\script\\missions\\leaguematch\\npc\\officer.lua")

function main()
local szTitle ="<npc>\n<color=yellow>Giíi h¹n C¶i L·o hiÖn t¹i:<color><bclr=blue> 30 lÇn<bclr><color=yellow>\nYªu CÇu:<color><color=yellow>\n + Trïng Sinh 5 trë lªn: <color=red>CÊp 200<color> <color> \n + TiÒn ®ång : <color=red> 300 xu <color>\n + TiÒn v¹n : <color=red> 10k v¹n <color>"
local tbOpt =
{
{"Ta Muèn C¶i L·o Hoµn §ång( kh«ng cÇn cëi bá trang bÞ) ", checkdkien},
{"T¹m biÖt!",jxlinux},
}
CreateNewSayEx(szTitle, tbOpt)
end

function myplayersex()
if GetSex() == 1 then
return "N÷ hiÖp";
else
return "§¹i hiÖp";
end
end

function checkdkien()
local n_solan = GetTask(900);
if n_solan >= 30 then
Talk(1,"","Server hiÖn t¹i ®ang giíi h¹n c¶i l·o lµ 30 lÇn..!\n<bclr=fire>"..myplayersex().."h·y kiªn nhÉn chê ®îi ®ît c¶i l·o tiÕp theo!")
return end
if ST_GetTransLifeCount() < 5 then --trung sinh 5 moi duoc cai lao
Talk(1, "", "<color=yellow>"..myplayersex().." ch­a Trïng Sinh 5 <color=red> kh«ng thÓ C¶i L·o!")
return end
if GetLevel() < 200 then --cap 200 moi duoc cai lao
Talk(1, "", "<color=yellow>"..myplayersex().." ch­a ®ñ 200 CÊp <color=red> kh«ng thÓ C¶i L·o!")
return end
if (GetCash() <= 100000000) then --gia tien 10k van 1 lan cai lao
Talk(1, "", "<color=yellow>"..myplayersex().." ch­a cã ®ñ 10k v¹n...!")
return end
local nSilverCount = CalcEquiproomItemCount(4, 417, 1, 1) ;
if(nSilverCount < 300) then -- gia xu 300 1 lan cai lao
Talk(1,"","Trªn ng­êi "..myplayersex().." kh«ng cã ®ñ<color=red> 300 TiÒn ®ång.") -- go
return end
Cai_lao_tt()
end
function Cai_lao_tt()
Pay(100000000) --- moi lan Cai Lao ton 10k van
ConsumeEquiproomItem(300,4,417,1,1) --- ton 300 xu 1 lan cai lao
str = "<color=green>Chóc mõng ®¹i cao thñ <color=yellow>"..GetName().." ®· c·i l·o hoµn ®ång thµnh c«ng!"
AddGlobalCountNews(str, 2)
local nCurLevel = GetLevel() ---kiem tra cap do nhan vat
local nLevel = 90 ---cai lao ve lai lv 90, neu 0 thich thi chinh lv khac
local nAddLevel = nLevel - nCurLevel
ST_LevelUp(nAddLevel)
AddMagicPoint(50) -- diem ky nang them cho 1 lan Cai Lao
AddProp(1000) --diem tiem nang them cho 1 lan Cai Lao
PARTNER_CallOutCurPartner(0)
SetTask(900,GetTask(900)+1)
AddSkillState(966,10,1,3600*60*18) --- Hieu ung mat trang tren dau
AddSkillState(980,1,1,3600*60*18) --- Hieu ung mat trang tren dau
local n_solan = GetTask(900);
Msg2SubWorld("<color=green>Chóc mõng ®¹i cao thñ <color=yellow>"..GetName().."<color=pink> ®· c·i l·o lÇn <color=yellow><bclr=blue>"..n_solan.."<bclr><color> thµnh c«ng!<color=white><bclr=blue>\nTõ n·y Vâ L©m l¹i mét lÇn n÷a dËy sãng!")
KickOutSelf()
Msg2Player("B¹n §· C¶i L·o Thµnh C«ng..!")
end

----------------------------

***Lưu ý đoạn:
if n_solan >= 30 then
Talk(1,"","Server hiÖn t¹i ®ang giíi h¹n c¶i l·o lµ 30 lÇn..!\n<bclr=fire>"..myplayersex().."h·y kiªn nhÉn chê ®îi ®ît c¶i l·o tiÕp theo!")
return end

tăng n_solan lên hơn 30 nếu bác nào thích cải lão hơn 30 lần. Chinh lại cái chỗ Talk() và local szTitle ở function main() để cho trùng khớp khi đối thoại nhé!

Mình có ghi chú thích ở từng hàm để các bác dễ hiểu hơn trong khi dev nhé. ACE nào thích thì thêm vụ nhận thưởng khi Cải Lão nhé. Mình thấy sv nhiều việc cần làm rồi + thêm cày cuốc, 0 cần nhận thưởng thêm.

Như vậy là ngoài 5 lần trùng sinh ra, chúng ta có thể cải lão hoàn đồng nữa. Chỉ cần chỉnh số lần lên là có thể có cắm máy liên tục kkkkk. Nhân vật cũng trâu bò trâu chó lên kkkkk!

Chúc ACE thành công nhé!

Hình Demo:
<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>


Link file cailaohoandong.lua của mình: <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>

f-fantasy
16-06-19, 10:45 PM
Theo kinh nghiệm của mình, nên viết hẳn 1 hệ thống chuyển sinh mới. Không chơi với chuyển sinh gốc của game.
Cơ bản mỗi lần cs cũng là tăng thêm điểm Tiềm Năng, Kỹ Năng, Skill Max.
Như mình thì tạo thêm 1 cái skill chuyển sinh. 10 lần chuyển sinh được 1 cấp kỹ năng kiểu kiểu vậy.
Vì vậy việc tạo hệ thống cs mới là đơn giản, chơi 1 mình mà mỗi ngày cs được 10 20 lần =)))) 1 tuần solo boss được rồi.

trilap2004
16-06-19, 11:40 PM
Theo kinh nghiệm của mình, nên viết hẳn 1 hệ thống chuyển sinh mới. Không chơi với chuyển sinh gốc của game.
Cơ bản mỗi lần cs cũng là tăng thêm điểm Tiềm Năng, Kỹ Năng, Skill Max.
Như mình thì tạo thêm 1 cái skill chuyển sinh. 10 lần chuyển sinh được 1 cấp kỹ năng kiểu kiểu vậy.
Vì vậy việc tạo hệ thống cs mới là đơn giản, chơi 1 mình mà mỗi ngày cs được 10 20 lần =)))) 1 tuần solo boss được rồi.

Bác chỉ cần chỉnh tỷ lệ cày exp lên (file gamesetting.ini trong setting) là cày lên lẹ thôi. Chuyển sinh xong ra cải lão...rảnh thì viết thêm script nhận thưởng thêm đồ, skill, exp, etc...
Script trên tăng n_solan >999 là coi như trùng sinh 999 lần nữa rồi kkk ;)

p13cks03
17-06-19, 07:59 AM
Theo kinh nghiệm của mình, nên viết hẳn 1 hệ thống chuyển sinh mới. Không chơi với chuyển sinh gốc của game.
Cơ bản mỗi lần cs cũng là tăng thêm điểm Tiềm Năng, Kỹ Năng, Skill Max.
Như mình thì tạo thêm 1 cái skill chuyển sinh. 10 lần chuyển sinh được 1 cấp kỹ năng kiểu kiểu vậy.
Vì vậy việc tạo hệ thống cs mới là đơn giản, chơi 1 mình mà mỗi ngày cs được 10 20 lần =)))) 1 tuần solo boss được rồi.

chuyển sinh nhiu nhưng ko làm sao trùng sinh theo số lần chuyển sinh đó được

f-fantasy
17-06-19, 05:31 PM
chuyển sinh nhiu nhưng ko làm sao trùng sinh theo số lần chuyển sinh đó được

Ý là cái con số lúc soi thông tin nhân vật ấy hả? Chơi off thôi mà quan trọng vậy đâu

duongto
14-07-19, 06:06 PM
ad cho xin lại file đi, fshare die rồi. thank

do mình không hiểu lắm nên xin file add vào cho luôn:

thank you

thuong10c8
20-07-19, 06:21 PM
Cho mình xin lại file cailaohoandong.lua với link trên file bị xóa mất rồi
tks bác

duongto
04-08-19, 03:18 PM
1. ai chưa biết cách add npc cãi lão hoàn đồng thì mình hướng dẫn tý chơi off cho vui, cho các bạn không biết gì vê hàm.v.v. còn pro thì thôi ạ :v

bước 1: vào script\global\addspreadernpc.lua ( mình chơi bản của bạn pgaming trên youtube nên mình đổi tên con NPC gifcode thành cãi lão hoàn đồng) còn ai chơi bản khác thì tự add 1 npc vào cái này dễ mà chỉ copy 1 dòng trong đó rồi thay đổi tên, đường dẫn, tọa độ, map.v.v.

bước 2: vào đường dẫn con npc đó /server1/script/global/pgaming/npc/npcgifcode.lua( mình chơi bản của pgaming có sẵn nha ) còn ai chơi bản khác thì copy của 1 file khác rồi đổi tên lại cho giống thôi) sau đó thay toàn bộ code mà chủ topic share ở trên vào là ok, nhớ xóa các dòng chú thích của chủ topic

2. mình chắp vá 1 code của bạn share trên web thành 1 code đổi bảo thạch thành tiền đồng và tiền vạn ( vì mình thấy chơi off tinh hồng bảo thạch chả để làm gì :v )

bước 1: vào script\global\addspreadernpc.lua ( mình chơi bản của bạn pgaming trên youtube nên mình đổi tên con NPCCongFullSkill thànhNPC Đổi Bảo thạch hay tên gì tùy ) còn ai chơi bản khác thì tự add 1 npc vào

bước 2: vào đường dẫn con npc đó /server1/script/global/pgaming/npc/NPCCongfullskill.lua( mình chơi bản của pgaming có sẵn nha ) còn ai chơi bản khác thì copy của 1 file khác rồi đổi tên lại cho giống thôi) sau đó chép thay toàn bộ code dưới vào là ok ( nói chung mấy các dòng Include("\\script\\lib\\alonelib.lua" mình chả biết gì cứ để đại vậy thôi :v) chú ý chỉ áp dụng cho các item queskey thôi, còn item khác mình chịu ))


IncludeLib("SETTING")
Include("\\script\\lib\\alonelib.lua");
Include("\\script\\activitysys\\g_activity.lua")
--Include("\\script\\activitysys\\playerfunlib.lua")
--Include("\\script\\activitysys\\npcfunlib.lua")
Include("\\script\\dailogsys\\g_dialog.lua")

function main()

suadohong()
end;
function suadohong()
Say("Muèn §æi TiÒn ®ång + B¶o Th¹ch + Ng©n l­îng kh«ng",2,"§æi/co","kh«ng/ko");
end;
function ko()
end;
function co()
Say("§æi TiÒn ®ång cÇn 2 Tinh Hång B¶o Th¹ch + §æi Tö Thñy Tinh cÇn 2 Tinh Hång B¶o Th¹ch + §æi 50000 l­îng cÇn 2 Tö Thñy Tinh + §æi 100000 l­îng cÇn 2 Lam Thñy Tinh + §æi 200000 l­îng cÇn 3 Lôc Thñy Tinh",5,"§æi TiÒn ®ång/TD","§æi Tö Thñy Tinh/TTT","§æi 50000 l­îng/TUNL","§æi 100000 l­îng/LANL","§æi 200000 l­îng/LUNL");
end;

function TD()
if (GetItemCount(353) >= 2) then
DelItem(353)
DelItem(353)
AddItem(4,417,1,1,0,0) --<color=pink>TiÒn ®ång
Msg2Player("nhËn ®­îc TiÒn ®ång.")
else
Msg2Player("VËt phÈm ng­¬i cã kh«ng ®óng.")
end
end;

function TTT()
if (GetItemCount(353) >= 2) then
DelItem(353)
DelItem(353)
AddItem(4,239,1,1,0,0) --<color=pink>Tö Thñy Tinh
Msg2Player("nhËn ®­îc Tö Thñy Tinh.")
else
Msg2Player("VËt phÈm ng­¬i cã kh«ng ®óng.")
end
end;



function TUNL()
if (GetItemCount(239) >= 2) then
DelItem(239)
DelItem(239)
Earn(50000) --<color=pink>50000 l­îng
Msg2Player("nhËn ®­îc 50000 l­îng.")
else
Msg2Player("VËt phÈm ng­¬i cã kh«ng ®óng.")
end
end;

function LANL()
if (GetItemCount(238) >= 2) then
DelItem(238)
DelItem(238)
Earn(100000) --<color=pink>100000 l­îng
Msg2Player("nhËn ®­îc 100000 l­îng.")
else
Msg2Player("VËt phÈm ng­¬i cã kh«ng ®óng.")
end
end;

function LUNL()
if (GetItemCount(240) >= 3) then
DelItem(240)
DelItem(240)
DelItem(240)
Earn(200000) --<color=pink>200000 l­îng
Msg2Player("nhËn ®­îc 200000 l­îng.")
else
Msg2Player("VËt phÈm ng­¬i cã kh«ng ®óng.")
end
end;

xong chơi off tự kỷ )))))