em vừa dow script CS 500 lần của a [Only registered and activated users can see links. ] 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 ạ

Code:
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_CLHD) 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_nPotential);
                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