tudz113
24-03-16, 10:40 AM
em vừa dow script CS 500 lần của a lufrev (<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>) share mà h em muốn chuyển 2000 đồng tiền phí Trùng sinh thành 1 item nào đó thì phải sửa ở đâu ạ em mò từ hôm wa đến h mà k biết phải chỉnh lại chỗ nào :(
đây là script ạ
local tbChuyenSinh = Npc:GetClass("chuyensinh");
tbChuyenSinh.TaskGroup_CS = 8888;
tbChuyenSinh.TaskId_Count_CS = 1;
tbChuyenSinh.TaskId_Count_CLHD = 2;
tbChuyenSinh.Status = 1; --chuyển sinh 0: chưa mở 1: đang mở 2: bảo trì
tbChuyenSinh.Status_CLHD = 1; --Cải lão hoàn đồng 0: chưa mở 1: đang mở 2: bảo trì
tbChuyenSinh.JBCoin_CS = 2000;
tbChuyenSinh.JBCoin_CLHD = 500000;--nên để số chẵn
tbChuyenSinh.LevelOnCS = 100;
tbChuyenSinh.CLHD_LimitTime = 10;
tbChuyenSinh.TSK_LevelRS=150; -- cấp rs
tbChuyenSinh.TSK_SoLanCS=500;-- số la rs
tbChuyenSinh.CLHD_Level = 200; --Cấp cần để Cải lão
tbChuyenSinh.TSk_nPotential=10; -- điểm tiềm năng nhận được khi rs
tbChuyenSinh.RS_nLeve = 5; -- giảm cấp
tbChuyenSinh.DataItemCLHD =
{
[1]={1,13,20051,10},--Mặt nạ cải lão hoàn đồng
[2]={1,12,778,10},--Ngựa cải lão
[3]={1,16,159,5},--Ấn
[4]={1,18,17,8},--Quan ấn cải lão
[5]={5,19,1,5},--ht cap 6
[6]={5,19,1,6},--ht cap 7
[7]={5,19,1,7},--ht cap 8
[8]={5,19,1,8},--ht cap 9
[9]={5,19,1,9},--ht cap 10
[10]={5,19,1,10},--ht cap 11
};
function tbChuyenSinh:OnDialog()
local szMsg = "Ta sẽ giúp ngươi chuyển sinh. Sẵn sàng chưa?";
local tbOpt =
{
{"<color=yellow>Ta Muốn Chuyển Sinh.<color>", self.ChuyenSinh, self},--
{"<color=yellow>Tìm hiểu thêm Chuyển Sinh.<color>", self.OnDialog_3, self},--
{"Kết thúc đối thoại"},
}
Dialog:Say(szMsg, tbOpt);
end;
function tbChuyenSinh:OnDialog_3()
local tbOpt = {};
tbOpt = Lib:MergeTable( tbOpt,{
{"<color=red>Cấp Độ<color> Chuyển sinh", self.OnDialog_4, self},
{"Trở về", self.OnDialog, self},
{"Đóng"},
});
Dialog:Say(
" Tối đa nhà ngươi chỉ có thể chuyển sinh <color=yellow>500 <color>lần, được chia thành <color=yellow>10 <color>Cấp độ. Chuyển sinh lần thứ <color=yellow>500<color> có thể <color=red>Cải Lão Hoàn Đồng<color>, sẽ nhận được Trang bị và Danh hiệu <color=red>Cải Lão Hoàn Đồng<color>. \n"..
" Mỗi Cấp bao gồm <color=yellow>50<color> lần chuyển sinh.\n"..
" Mỗi lần chuyển sinh Cấp 1 được cộng <color=yellow>200<color> điểm Tiềm Năng. Từ Cấp 2, mỗi lần chuyển sinh số điểm tiềm năng được cộng sẽ là <color=yellow>[200-([Cấp độ]-1)*10]<color> điểm. Ví dụ: Cấp 2 được cộng [200-(2-1)*10]=190 điểm, Cấp 3 được cộng [200-(3-1)*10]=180 điểm.\n"..
" Phí mỗi lần chuyển sinh là <color=yellow>2000<color> đồng.\n"..
" Không giới hạn số lần <color=red>Cải Lão Hoàn Đồng<color>\n"
,tbOpt);
return 0;
end;
function tbChuyenSinh:OnDialog_4()
local tbOpt = {};
tbOpt = Lib:MergeTable( tbOpt,{
{"Trở về", self.OnDialog, self},
{"Đóng"},
});
Dialog:Say(
"Ngươi hãy cố gắng luyện tập chăm chỉ để có thể đứng trên đỉnh cao danh vọng!\n \n \n"..
"Cấp1[CS 1-50] :[<color=cyan>Thiếu Niên Hiệp Khách<color>]\n"..
"Cấp2[CS 51-100]:[<color=green>Võ Lâm Cao Thủ<color>]\n"..
"Cấp3[CS 101-150]:[<color=green>Nhất Đại Tôn Sư<color>]\n"..
"Cấp4[CS 151-200]:[<color=green>Độc Cô Cầu Bại<color>]\n"..
"Cấp5[CS 201-250]:[<color=pink>Siêu Phàm Nhập Thánh<color>\n"..
"Cấp6[CS 251-300]:[<color=pink>Tiên Nhân Hóa Cảnh<color>]\n"..
"Cấp7[CS 301-350]:[<color=pink>Tạo Cực Đăng Phong<color>]\n"..
"Cấp8[CS 351-400]:[<color=orange>Chí Tôn Truyền Thuyết<color>]\n"..
"Cấp9[CS 401-450]:[<color=orange>Tuyệt Thế Vô Song<color>]\n"..
"Cấp10[CS451-500]:[<color=yellow>Thiên Hạ Diệt Tuyệt<color>]\n"..
"Trùng sinh :[<color=red>Cải Lão Hoàn Đồng<color>]\n"
,tbOpt);
return 0;
end;
function tbChuyenSinh:ChuyenSinh()
local nBac = me.GetJbCoin();
local nLanCS = me.GetTask(self.TaskGroup_CS, self.TaskId_Count_CS) or 0;
local nLanCLHD = me.GetTask(self.TaskGroup_CS,self.TaskId_Count_CLH D) or 0;
local nCapdoCS = math.floor(nLanCS/50.1,1)+1;
local szMsg1 = string.format("Ngươi đã chuyển sinh %s lần. Có thể tiến hành Cải Lão Hoàn Đồng %s. Chi phí hết %s vạn đồng. \n Ngươi có muốn tiến hành không?", self.TSK_SoLanCS, nLanCLHD+1, self.JBCoin_CLHD/10000);
local tbOpt1 = {
{"Ta muốn Cải Lão Hoàn Đồng", self.CaiLaoHoanDong, self, me, nLanCLHD, nBac},
{"Để ta suy nghĩ kỹ!"},
}
local szMsg2 = string.format("Chuyển sinh lần thứ: %s. Được cộng %s điểm tiềm năng",nLanCS+1,200-(nCapdoCS-1)*self.TSk_nPotential);
local tbOpt2 = {
{"Chuyển sinh Cấp độ: "..nCapdoCS..".",self.ChuyenSinhNhanVat, self, me, nCapdoCS, nLanCS},
}
local szMsg3 = string.format("Chuyển sinh lần thứ %s yêu cầu cấp %s. Hãy về tu luyện thêm rồi quay lại.", nLanCS+1, (self.TSK_LevelRS)+self.RS_nLeve*nCapdoCS);
if (self.Status == 1) then
if nLanCS == self.TSK_SoLanCS then
Dialog:Say(szMsg1, tbOpt1);
else
if (nBac >= self.JBCoin_CS) then
if (me.nLevel >= (self.TSK_LevelRS)+self.RS_nLeve*nCapdoCS ) then
Dialog:Say(szMsg2, tbOpt2);
else
Dialog:Say(szMsg3, "Ta biết rồi");
end
else
Dialog:Say("Ngươi không mang đủ <color=yellow>"..self.JBCoin_CS.."<color> đồng. Hãy chuẩn bị đủ số lượng đồng rồi quay lại sau.", "Đóng");
end
end
elseif (self.Status == 2) then
Dialog:Say("Hệ Thống Đang Bảo Trì Nâng Cấp!", "Đóng");
elseif (self.Status == 0) then
Dialog:Say("Hệ Thống Chưa Mở", "Ta chỉ đi ngang qua!");
end
end;
function tbChuyenSinh:CaiLaoHoanDong(pPlayer, nLanCLHD, nBac)
if (self.Status_CLHD == 1) then
if nLanCLHD >= self.CLHD_LimitTime then
Dialog:Say("Lần Cải Lão Hoàn Đồng tiếp theo vẫn chưa mở. Nhà ngươi hãy quay lại sau!");
else
if pPlayer.nLevel < self.CLHD_Level then
Dialog:Say(string.format("Ngươi chưa đủ cấp %s, không thể tiến hành Cải Lão Hoàn Đồng được!", self.CLHD_Level));
elseif nBac < self.JBCoin_CLHD then
Dialog:Say(string.format("Ngươi chưa chuẩn bị đủ %s vạn đồng", self.JBCoin_CLHD/10000));
else
local szMsg = string.format("Cao thủ <color=green>%s<color>, Cải Lão Hoàn Đồng lần thứ %s.!!!", pPlayer.szName,nLanCLHD+1);
local szFriendMsg = string.format("Cải Lão Hoàn Đồng lần thứ %s.!!!",nLanCLHD+1);
pPlayer.ResetFightSkillPoint();
pPlayer.UnAssignPotential();
pPlayer.AddLevel(self.LevelOnCS - pPlayer.nLevel);
pPlayer.AddPotential(300+nLanCLHD*self.TSk_nPotent ial);
pPlayer.SetTask(self.TaskGroup_CS, self.TaskId_Count_CS, 0);
pPlayer.SetTask(self.TaskGroup_CS, self.TaskId_Count_CLHD, nLanCLHD + 1);
pPlayer.SendMsgToFriend("Hảo hữu của bạn ["..pPlayer.szName.."] Cải Lão Hoàn Đồng lần thứ "..(nLanCLHD+1)..".");
KDialog.NewsMsg(0, Env.NEWSMSG_COUNT, szMsg);
Player:SendMsgToKinOrTong(pPlayer, " ,"..szFriendMsg..".", 1);
pPlayer.AddTitle(67,2,nLanCLHD+1,nLanCLHD+1);
pPlayer.AddItem(unpack(self.DataItemCLHD[nLanCLHD+1])).Bind(1);
pPlayer.KickOut();
end
end
elseif (self.Status_CLHD == 2) then
Dialog:Say("Hệ Thống Đang Bảo Trì Nâng Cấp!", "Đóng");
elseif (self.Status_CLHD == 0) then
Dialog:Say("Hệ Thống Chưa Mở", "Ta chỉ đi ngang qua!");
end
end;
function tbChuyenSinh:ChuyenSinhNhanVat(pPlayer, nCapdoCS, nLanCS)
KDialog.MsgToGlobal("<color=Turquoise>Cao thủ<color> <color=yellow>"..pPlayer.szName.."<color><color=Turquoise>Chuyển sinh lần thứ<color> "..(nLanCS+1)..".");
local szFriendMsg = string.format("chuyển sinh lần thứ %s.!!!",nLanCS+1);
local nAddLevel = (self.LevelOnCS - pPlayer.nLevel);
pPlayer.AddJbCoin(-1*self.JBCoin_CS);
pPlayer.ResetFightSkillPoint(); -- Tẩy điểm kỹ năng
pPlayer.UnAssignPotential(); -- Tẩy điểm tiềm năng
pPlayer.AddLevel(nAddLevel);
pPlayer.AddPotential(200-(nCapdoCS-1)*self.TSk_nPotential);
pPlayer.SetTask(self.TaskGroup_CS, self.TaskId_Count_CS, nLanCS+1);
pPlayer.SendMsgToFriend("Hảo hữu của bạn ["..pPlayer.szName.."] Chuyển sinh lần thứ "..(nLanCS+1)..".");
Player:SendMsgToKinOrTong(pPlayer, " ,"..szFriendMsg..".", 1);
pPlayer.AddTitle(15,201,nCapdoCS,nCapdoCS);
pPlayer.KickOut();
return 0;
end
tks mấy a ạ :H
đây là script ạ
local tbChuyenSinh = Npc:GetClass("chuyensinh");
tbChuyenSinh.TaskGroup_CS = 8888;
tbChuyenSinh.TaskId_Count_CS = 1;
tbChuyenSinh.TaskId_Count_CLHD = 2;
tbChuyenSinh.Status = 1; --chuyển sinh 0: chưa mở 1: đang mở 2: bảo trì
tbChuyenSinh.Status_CLHD = 1; --Cải lão hoàn đồng 0: chưa mở 1: đang mở 2: bảo trì
tbChuyenSinh.JBCoin_CS = 2000;
tbChuyenSinh.JBCoin_CLHD = 500000;--nên để số chẵn
tbChuyenSinh.LevelOnCS = 100;
tbChuyenSinh.CLHD_LimitTime = 10;
tbChuyenSinh.TSK_LevelRS=150; -- cấp rs
tbChuyenSinh.TSK_SoLanCS=500;-- số la rs
tbChuyenSinh.CLHD_Level = 200; --Cấp cần để Cải lão
tbChuyenSinh.TSk_nPotential=10; -- điểm tiềm năng nhận được khi rs
tbChuyenSinh.RS_nLeve = 5; -- giảm cấp
tbChuyenSinh.DataItemCLHD =
{
[1]={1,13,20051,10},--Mặt nạ cải lão hoàn đồng
[2]={1,12,778,10},--Ngựa cải lão
[3]={1,16,159,5},--Ấn
[4]={1,18,17,8},--Quan ấn cải lão
[5]={5,19,1,5},--ht cap 6
[6]={5,19,1,6},--ht cap 7
[7]={5,19,1,7},--ht cap 8
[8]={5,19,1,8},--ht cap 9
[9]={5,19,1,9},--ht cap 10
[10]={5,19,1,10},--ht cap 11
};
function tbChuyenSinh:OnDialog()
local szMsg = "Ta sẽ giúp ngươi chuyển sinh. Sẵn sàng chưa?";
local tbOpt =
{
{"<color=yellow>Ta Muốn Chuyển Sinh.<color>", self.ChuyenSinh, self},--
{"<color=yellow>Tìm hiểu thêm Chuyển Sinh.<color>", self.OnDialog_3, self},--
{"Kết thúc đối thoại"},
}
Dialog:Say(szMsg, tbOpt);
end;
function tbChuyenSinh:OnDialog_3()
local tbOpt = {};
tbOpt = Lib:MergeTable( tbOpt,{
{"<color=red>Cấp Độ<color> Chuyển sinh", self.OnDialog_4, self},
{"Trở về", self.OnDialog, self},
{"Đóng"},
});
Dialog:Say(
" Tối đa nhà ngươi chỉ có thể chuyển sinh <color=yellow>500 <color>lần, được chia thành <color=yellow>10 <color>Cấp độ. Chuyển sinh lần thứ <color=yellow>500<color> có thể <color=red>Cải Lão Hoàn Đồng<color>, sẽ nhận được Trang bị và Danh hiệu <color=red>Cải Lão Hoàn Đồng<color>. \n"..
" Mỗi Cấp bao gồm <color=yellow>50<color> lần chuyển sinh.\n"..
" Mỗi lần chuyển sinh Cấp 1 được cộng <color=yellow>200<color> điểm Tiềm Năng. Từ Cấp 2, mỗi lần chuyển sinh số điểm tiềm năng được cộng sẽ là <color=yellow>[200-([Cấp độ]-1)*10]<color> điểm. Ví dụ: Cấp 2 được cộng [200-(2-1)*10]=190 điểm, Cấp 3 được cộng [200-(3-1)*10]=180 điểm.\n"..
" Phí mỗi lần chuyển sinh là <color=yellow>2000<color> đồng.\n"..
" Không giới hạn số lần <color=red>Cải Lão Hoàn Đồng<color>\n"
,tbOpt);
return 0;
end;
function tbChuyenSinh:OnDialog_4()
local tbOpt = {};
tbOpt = Lib:MergeTable( tbOpt,{
{"Trở về", self.OnDialog, self},
{"Đóng"},
});
Dialog:Say(
"Ngươi hãy cố gắng luyện tập chăm chỉ để có thể đứng trên đỉnh cao danh vọng!\n \n \n"..
"Cấp1[CS 1-50] :[<color=cyan>Thiếu Niên Hiệp Khách<color>]\n"..
"Cấp2[CS 51-100]:[<color=green>Võ Lâm Cao Thủ<color>]\n"..
"Cấp3[CS 101-150]:[<color=green>Nhất Đại Tôn Sư<color>]\n"..
"Cấp4[CS 151-200]:[<color=green>Độc Cô Cầu Bại<color>]\n"..
"Cấp5[CS 201-250]:[<color=pink>Siêu Phàm Nhập Thánh<color>\n"..
"Cấp6[CS 251-300]:[<color=pink>Tiên Nhân Hóa Cảnh<color>]\n"..
"Cấp7[CS 301-350]:[<color=pink>Tạo Cực Đăng Phong<color>]\n"..
"Cấp8[CS 351-400]:[<color=orange>Chí Tôn Truyền Thuyết<color>]\n"..
"Cấp9[CS 401-450]:[<color=orange>Tuyệt Thế Vô Song<color>]\n"..
"Cấp10[CS451-500]:[<color=yellow>Thiên Hạ Diệt Tuyệt<color>]\n"..
"Trùng sinh :[<color=red>Cải Lão Hoàn Đồng<color>]\n"
,tbOpt);
return 0;
end;
function tbChuyenSinh:ChuyenSinh()
local nBac = me.GetJbCoin();
local nLanCS = me.GetTask(self.TaskGroup_CS, self.TaskId_Count_CS) or 0;
local nLanCLHD = me.GetTask(self.TaskGroup_CS,self.TaskId_Count_CLH D) or 0;
local nCapdoCS = math.floor(nLanCS/50.1,1)+1;
local szMsg1 = string.format("Ngươi đã chuyển sinh %s lần. Có thể tiến hành Cải Lão Hoàn Đồng %s. Chi phí hết %s vạn đồng. \n Ngươi có muốn tiến hành không?", self.TSK_SoLanCS, nLanCLHD+1, self.JBCoin_CLHD/10000);
local tbOpt1 = {
{"Ta muốn Cải Lão Hoàn Đồng", self.CaiLaoHoanDong, self, me, nLanCLHD, nBac},
{"Để ta suy nghĩ kỹ!"},
}
local szMsg2 = string.format("Chuyển sinh lần thứ: %s. Được cộng %s điểm tiềm năng",nLanCS+1,200-(nCapdoCS-1)*self.TSk_nPotential);
local tbOpt2 = {
{"Chuyển sinh Cấp độ: "..nCapdoCS..".",self.ChuyenSinhNhanVat, self, me, nCapdoCS, nLanCS},
}
local szMsg3 = string.format("Chuyển sinh lần thứ %s yêu cầu cấp %s. Hãy về tu luyện thêm rồi quay lại.", nLanCS+1, (self.TSK_LevelRS)+self.RS_nLeve*nCapdoCS);
if (self.Status == 1) then
if nLanCS == self.TSK_SoLanCS then
Dialog:Say(szMsg1, tbOpt1);
else
if (nBac >= self.JBCoin_CS) then
if (me.nLevel >= (self.TSK_LevelRS)+self.RS_nLeve*nCapdoCS ) then
Dialog:Say(szMsg2, tbOpt2);
else
Dialog:Say(szMsg3, "Ta biết rồi");
end
else
Dialog:Say("Ngươi không mang đủ <color=yellow>"..self.JBCoin_CS.."<color> đồng. Hãy chuẩn bị đủ số lượng đồng rồi quay lại sau.", "Đóng");
end
end
elseif (self.Status == 2) then
Dialog:Say("Hệ Thống Đang Bảo Trì Nâng Cấp!", "Đóng");
elseif (self.Status == 0) then
Dialog:Say("Hệ Thống Chưa Mở", "Ta chỉ đi ngang qua!");
end
end;
function tbChuyenSinh:CaiLaoHoanDong(pPlayer, nLanCLHD, nBac)
if (self.Status_CLHD == 1) then
if nLanCLHD >= self.CLHD_LimitTime then
Dialog:Say("Lần Cải Lão Hoàn Đồng tiếp theo vẫn chưa mở. Nhà ngươi hãy quay lại sau!");
else
if pPlayer.nLevel < self.CLHD_Level then
Dialog:Say(string.format("Ngươi chưa đủ cấp %s, không thể tiến hành Cải Lão Hoàn Đồng được!", self.CLHD_Level));
elseif nBac < self.JBCoin_CLHD then
Dialog:Say(string.format("Ngươi chưa chuẩn bị đủ %s vạn đồng", self.JBCoin_CLHD/10000));
else
local szMsg = string.format("Cao thủ <color=green>%s<color>, Cải Lão Hoàn Đồng lần thứ %s.!!!", pPlayer.szName,nLanCLHD+1);
local szFriendMsg = string.format("Cải Lão Hoàn Đồng lần thứ %s.!!!",nLanCLHD+1);
pPlayer.ResetFightSkillPoint();
pPlayer.UnAssignPotential();
pPlayer.AddLevel(self.LevelOnCS - pPlayer.nLevel);
pPlayer.AddPotential(300+nLanCLHD*self.TSk_nPotent ial);
pPlayer.SetTask(self.TaskGroup_CS, self.TaskId_Count_CS, 0);
pPlayer.SetTask(self.TaskGroup_CS, self.TaskId_Count_CLHD, nLanCLHD + 1);
pPlayer.SendMsgToFriend("Hảo hữu của bạn ["..pPlayer.szName.."] Cải Lão Hoàn Đồng lần thứ "..(nLanCLHD+1)..".");
KDialog.NewsMsg(0, Env.NEWSMSG_COUNT, szMsg);
Player:SendMsgToKinOrTong(pPlayer, " ,"..szFriendMsg..".", 1);
pPlayer.AddTitle(67,2,nLanCLHD+1,nLanCLHD+1);
pPlayer.AddItem(unpack(self.DataItemCLHD[nLanCLHD+1])).Bind(1);
pPlayer.KickOut();
end
end
elseif (self.Status_CLHD == 2) then
Dialog:Say("Hệ Thống Đang Bảo Trì Nâng Cấp!", "Đóng");
elseif (self.Status_CLHD == 0) then
Dialog:Say("Hệ Thống Chưa Mở", "Ta chỉ đi ngang qua!");
end
end;
function tbChuyenSinh:ChuyenSinhNhanVat(pPlayer, nCapdoCS, nLanCS)
KDialog.MsgToGlobal("<color=Turquoise>Cao thủ<color> <color=yellow>"..pPlayer.szName.."<color><color=Turquoise>Chuyển sinh lần thứ<color> "..(nLanCS+1)..".");
local szFriendMsg = string.format("chuyển sinh lần thứ %s.!!!",nLanCS+1);
local nAddLevel = (self.LevelOnCS - pPlayer.nLevel);
pPlayer.AddJbCoin(-1*self.JBCoin_CS);
pPlayer.ResetFightSkillPoint(); -- Tẩy điểm kỹ năng
pPlayer.UnAssignPotential(); -- Tẩy điểm tiềm năng
pPlayer.AddLevel(nAddLevel);
pPlayer.AddPotential(200-(nCapdoCS-1)*self.TSk_nPotential);
pPlayer.SetTask(self.TaskGroup_CS, self.TaskId_Count_CS, nLanCS+1);
pPlayer.SendMsgToFriend("Hảo hữu của bạn ["..pPlayer.szName.."] Chuyển sinh lần thứ "..(nLanCS+1)..".");
Player:SendMsgToKinOrTong(pPlayer, " ,"..szFriendMsg..".", 1);
pPlayer.AddTitle(15,201,nCapdoCS,nCapdoCS);
pPlayer.KickOut();
return 0;
end
tks mấy a ạ :H