Code Trùng Sinh không giới hạn

[hoaitam1990]

Chào toàn thể Anh em!
Mình mới qua bõ Jx được thời gian cũng lò mò ngâm cứu chơi cho vui.
Nay cũng cóp nhặt được ít thứ nên đem lên đây cho Anh em xem

1. Ta vào file taskid.lua thêm vào :

TASK_TRUNGSINH = 300

300 là số lần trúng sinh - chỉnhbaao nhiêu cũng được.


2. Tạo 1 file lua. Ví dụ trungsinh.lua

Include("\\script\\header\\taskid.lua");

TRUNGSINH_BASE={
{16,204,100},
{77,103,100},
{77,153,100},
{41,213,100},
{163,76,100}
};

function trungsinh(lanthu)
for i=0,14 do
local nIndex,kind,genre,detail,parti,level,series,row = GetItemParam(2,i,0);
if(nIndex > 0) then
Talk(1,"","Ngươi hãy gỡ bỏ tất cả trang bị trên người trước đã.")
return end
end
local lv = GetLevel();
local sr = GetSeries()+1;
ResetProp(0);
ResetMagicPoint(0);
SetLevel(1,0);
SetMana(TRUNGSINH_BASE[sr][1]);
SetLife(TRUNGSINH_BASE[sr][2]);
SetStamina(TRUNGSINH_BASE[sr][3]);
local prop = (100*lanthu)-GetRestAP()+GetNumber2(GetTask(TASK_TAYTUYKINH),1) *5;
AddProp(prop);
prop = (20*lanthu)-GetRestSP()+GetNumber2(GetTask(TASK_TAYTUYKINH),2) ;
AddMagicPoint(prop);
SetLevel(10,0);
TransLife(lanthu);
SetTask(TASK_CHECKREBORN, 0);
KickOutSelf();
end;

Trong đó :

local prop = (100*lanthu)-GetRestAP()+GetNumber2(GetTask(TASK_TAYTUYKINH),1) *5;
AddProp(prop);

Là số điểm tiềm năng được cộng sau khi trùng sinh * số lần trùng sinh

prop = (20*lanthu)-GetRestSP()+GetNumber2(GetTask(TASK_TAYTUYKINH),2) ;
AddMagicPoint(prop);

Là số điểm kĩ năng được cộng sau khi trùng sinh * số lần trùng sinh

SetLevel(10,0);

Là Level nhận được sau khi trùng sinh




3. Kiếm 1 NPC add vào để test :

Include("\\Script\\library\\worldlibrary.lua");
Include("\\script\\header\\taskid.lua");
Include("\\script\\header\\trungsinh.lua");

TAB_COST = {30000000,3000}
TOIDATS = 1

function main()
local TrungSinh = GetTask(TASK_TRUNGSINH);
if TrungSinh < TOIDATS then
Say2("<color=red>NPC ADD VÀO<color>:
"Tại hạ muốn trùng Sinh/Checktrungsinh",
END_TALK)

else
Say2("<color=red>NPC ADD VÀO<color>: ABCDEF?",3,1,"",
"ABCDEF/no")
end
end

function Checktrungsinh()
local TrungSinh = GetTask(TASK_TRUNGSINH);
local nTask = GetTask(TASK_CHECKREBORN);
if GetLevel() < 200 then Talk(1,"","Đẳng cấp của ngươi chưa đủ, cần phải tu luyện thêm.") return end
trungsinh(TrungSinh+1)
end

function no()
end

Đây là hình ảnh đã test thành công

[Only registered and activated users can see links. ]

Cần anh em Góp ý thêm

[cuongvh93]

Win hay Linux vậy bác ơi :v...............

[Learning]

Win nhé. Nhìn vào hình thì thấy test ở server võ lâm thiên tuyệt 2015

[hoaitam1990]

Win nhé. Nhìn vào hình thì thấy test ở server võ lâm thiên tuyệt 2015

Ukm. Bản đó ông nào trong clb viết code thế ông.
Nhìn gọn gàng và có sự đầu tư.
Cần kiếm để thỉnh giáo mà không biết ai

[Learning]

Ukm. Bản đó ông nào trong clb viết code thế ông.
Nhìn gọn gàng và có sự đầu tư.
Cần kiếm để thỉnh giáo mà không biết ai

tui cũng không rõ. Hình như ông là admin muvoz phải ko nhỉ???

[emnhochi]

Đoạn code chuyển sinh này sao không chạy vậy mọi người

--Include("\\script\\header\\event_endtime.lua");Include("\\Script\\library\\worldlibrary.lua");
Include("\\script\\header\\taskid.lua");
Include("\\script\\header\\trungsinh.lua");


TAB_COST = {30000000,3000}
TOIDATS = 1


END_TALK = "KÕt thóc ®èi tho¹i/no";


function main()
	local TrungSinh = GetTask(TASK_CHUYENSINH);
	if TrungSinh < TOIDATS then
	Say2("<color=red>B¾c §Èu L·o Nh©n<color>: muèn chuyÓn sinh th× cÇn ph¶i häc bé t©m ph¸p <color=blue>B¾c §Èu Tr­êng Sinh ThuËt.<color>\nQuyÓn 1 <color=fire>C¬ Së Thiªn<color> cã b¸n t¹i Kú Tr©n C¸c\nQuyÓn 2 <color=fire>T©m Ph¸p Thiªn<color> cã thÓ häc ë ®©y víi <color=yellow>"..(TAB_COST[2]*(TrungSinh+1)).." v¹n<color>",5,1,"",
	"T¹i h¹ muèn ChuyÓn Sinh/CheckReBorn",
	"T¹i h¹ muèn häc Bé T©m Ph¸p Thiªn/TamPhapThien",
		END_TALK)
	else
	Say2("<color=red>B¾c §Èu L·o Nh©n<color>: ngän giã nµo ®· ®­a vÞ cao thñ vâ l©m nµy ®Õn t×m ta vËy?",3,1,"",
	"T¹i h¹ chØ ®Õn hái th¨m ngµi/no")
	end
end


function CheckReBorn()
	local TrungSinh = GetTask(TASK_CHUYENSINH);
	local nTask = GetTask(TASK_CHECKREBORN);
	if GetNumber(nTask,1) < 1 then Talk(1,"","Ng­¬i ch­a l·nh ngé <color=fire>C¬ Së Thiªn<color> kh«ng thÓ trïng sinh.") return end
	if GetNumber(nTask,2) < 1 then Talk(1,"","Ng­¬i ch­a l·nh ngé <color=fire>T©m Ph¸p Thiªn<color> kh«ng thÓ trïng sinh.") return end
	if GetLevel() < 200 then Talk(1,"","§¼ng cÊp cña ng­¬i ch­a ®ñ, cÇn ph¶i tu luyÖn thªm.") return end
	trungsinh(TrungSinh+1)
end


function TamPhapThien()
	local TrungSinh = GetTask(TASK_CHUYENSINH);
	local nTask = GetTask(TASK_CHECKREBORN);
	local TAB_MSG = {
		"<color=red>§¹i Sù L·o L·o<color>: ng­¬i ®ång ý bá ra <color=yellow>"..(TAB_COST[2]*(TrungSinh+1)).." v¹n<color> ®Ó häc Bé T©m Ph¸p Thiªn chø?",
		"<color=red>§¹i Sù L·o L·o<color>: ng­¬i ph¶i l·nh ngé <color=blue>C¬ Së Thiªn<color> tr­íc míi cã thÓ häc T©m Ph¸p Thiªn.",
		"Ta ®· ch¾c ch¾n, xin ngµi gióp ®ì/OKTamPhap",
		"Ta sÏ quay l¹i sau/no",
		}
	if GetNumber(nTask,1) == 1 then
	Say2(TAB_MSG[1],2,1,"",
		TAB_MSG[3],
		TAB_MSG[4])
	else
	Say2(TAB_MSG[2],1,1,"",
		TAB_MSG[4])
	end
end


function OKTamPhap()
	local TrungSinh = GetTask(TASK_CHUYENSINH);
	local nTask = GetTask(TASK_CHECKREBORN);
	if GetCash() < (TAB_COST[1]*(TrungSinh+1)) then Talk(1,"","Ng­¬i kh«ng mang theo "..(TAB_COST[1]*(TrungSinh+1)).." l­îng, ta kh«ng thÓ truyÒn bé t©m ph¸p nµy l¹i cho ng­¬i.") return end
	if GetNumber(nTask,1) < 1 then Talk(1,"","Ng­¬i ph¶i l·nh ngé <color=blue>C¬ Së Thiªn<color> tr­íc míi cã thÓ häc T©m Ph¸p Thiªn.") return end
	if GetNumber(nTask,2) > 0 then Talk(1,"","Ng­¬i ®· l·nh ngé <color=blue>T©m Ph¸p Thiªn<color> råi kh«ng cÇn häc n÷a.") return end
	SetTask(TASK_CHECKREBORN, SetNumber(nTask,2,1));
	Pay(TAB_COST[1]*(TrungSinh+1))
	Msg2Player("Xin chóc mõng ngµi ®· häc ®­îc <color=yellow>bé T©m Ph¸p Thiªn");
end




function no()
end