Cần gán Scrip tẩy tủy vào chuyển sinh

[runkissbig]

Mình cần gán scrip tẩy tủy vào scrip chuyển sinh này. Bro nào giúp mình cái nhé thanks

Include("\\DataFiles\\chuyensinhdata.lua")
Include("\\Script\\global\\sourcejx49.lua");
Include("\\script\\GetFaction.lua")
Include("\\DataFiles\\Getcs.lua")


--================== [Only registered and activated users can see links. ] ===================

iditemcantrongcs = 40
vlmt = 16
ttk = 15
gioihancs = 59
capsaukhics = 10
TENVP = "Kim Nguyªn B¶o"

--==================== sky.light9530 =======================

function main()
SetGlbMissionV(50,gioihancs)
ktcss=GetTask(197)+1
Say("<color=cyan>Giíi h¹n chuyÓn sinh hiÖn t¹i:<color> "..GetGlbMissionV(50).."\n<color=yellow>Sè lÇn chuyÓn sinh: "..GetTask(197).."\n<color=water>CÊp chuyÓn sinh: "..CSTABLE[GetTask(197)+1][1].."\n<color=wood>TiÒn cÇn chuyÓn sinh: "..(CSTABLE[GetTask(197)+1][2]/10000).." V¹n\nKim Nguyªn B¶o: "..CSTABLE[GetTask(197)+1][3]..".",2,"ChuyÓn sinh lÇn ["..ktcss.."]./chuyensinh","Tho¸t./Exit")
end




function AddAll(Xdnt,Ydnt)
if Xdnt == nil then Xdnt = 0 end
if Ydnt == nil then Ydnt = 0 end
AddProp(Xdnt)
AddMagicPoint(Ydnt)
Msg2Player("B¹n nhËn ®­îc  "..Xdnt.." ®iÓm tiÒm n¨ng");
Msg2Player("B¹n nhËn ®­îc "..Ydnt.." ®iÓm kü n¨ng");
end;



function chuyensinh()
cs = GetTask(197)
if cs == nil then cs = 0 end
cs = cs +1
        if GetTask(197) < GetGlbMissionV(50) then
    if GetLevel() >= CSTABLE[cs][1] then
        if GetCash() >= CSTABLE[cs][2] then
            if GetItemCount(iditemcantrongcs) >= CSTABLE[cs][3] then         
                for i=1,CSTABLE[cs][3] do DelItem(iditemcantrongcs) end
                Pay(CSTABLE[cs][2])
                chuyensinhskylight()
                SetTask(197,GetTask(197)+1)
                diemtn = CSTABLE[cs][4] + (GetTask(ttk) * 5) + (CSTABLE[150][4]*GetTask(198))
                diemkn = CSTABLE[cs][5] + GetTask(vlmt) + (CSTABLE[150][5]*GetTask(198))
                RollPoint()
                Talk(1,"","§©y lµ lÇn chuyÓn sinh thø: <color=metal>"..GetTask(197).."<color>!")        
            else
            Talk(1,"","B¹n cÇn cã <color=red>"..CSTABLE[cs][3].."<color> "..TENVP.." ®Ó chuyÓn sinh !")    
            end
        else
        Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn cã "..(CSTABLE[cs][2]/10000).." v¹n l­îng")
        end
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn ®¹t "..CSTABLE[cs][1].." cÊp")
    end
cs = 0
diemtn = 0
diemkn = 0
        else
Talk(1,"","<color=cyan>Lçi:<color> B¹n ®· v­ît qu¸ giíi h¹n chuyÓn sinh lµ "..GetGlbMissionV(50).."lÇn !")    
        end
end



function RollPoint()
player_series = GetSeries() + 1;
SetBasePoint(as[player_series][1],as[player_series][2],as[player_series][3],as[player_series][4])
AddProp(-GetProp())
AddMagicPoint(-GetMagicPoint())
AddAll(diemtn,diemkn)
end




function chuyensinhskylight()
SetLevel(capsaukhics)
end
function SetLevel(nLevel)
if(nLevel<1 or nLevel >200) then
--error
return 0;
end
local a=GetNpcIdx ();
a=setx (a,nLevel);
ktcss=GetTask(197)+1
if(a==1) then
KickOutSelf()
Msg2SubWorld("Ng­êi ch¬i ["..GetName().."] ®· chuyÓn sinh lÇn thø ["..ktcss.."]")
print("|>> "..GetName().." Chuyen Sinh Thanh Cong Lan Thu "..ktcss.." ! <<|")
else
Msg2Player("<color=metal>Lçi khi chuyÓn sinh");
print("|>> "..GetName().." Chuyen Sinh Loi ??????????????? <<|")
end
end

[runkissbig]

Ai giúp mình cái đi