[QUOTE=bangduongca;643200]
Post code chuyển sinh lên xem :P.Hoặc đọc code xem có chổ nào có dòng IF thì kiểm tra chổ nào xét KNB thì del cái KNB đi.
Cái này là Getcs
--Author:Ohishu
----BIG BANG SCRIPT TAY TUY CHUYEN PHAI !
Include("\\script\\source\\sourcejx49.lua")
Include("\\script\\GetFaction.lua")
Include("\\dulieu\\chuyensinhdata.lua")
Include("\\script\\global\\khuvucskill.lua")
TT1 = 28
TT2 = 29
TT3 = 30
THBT = 31
function main()
if GetTask(52) == 1 or GetTask(52) == 4 then
SayEx({"<color=cyan>Ph¶n T¨ng<color> : Ng¬i muèn g× ë ta ?","TÈy kü n¨ng/taykinang","TÈy tiÒm n¨ng/taytiemnang","Rêi khái ®¶o tÈy tñy/roikhoi","Tho¸t/Exit"})
elseif GetTask(52) == 2 then
SayEx({"<color=cyan>Ph¶n T¨ng<color> : Ng¬i muèn g× ë ta ?","TÈy kü n¨ng/taykinang","Rêi khái ®¶o tÈy tñy/roikhoi","Tho¸t/Exit"})
elseif GetTask(52) == 3 then
SayEx({"<color=cyan>Ph¶n T¨ng<color> : Ng¬i muèn g× ë ta ?","TÈy tiÒm n¨ng/taytiemnang","Rêi khái ®¶o tÈy tñy/roikhoi","Tho¸t/Exit"})
else
SayEx({"<color=cyan>Ph¶n T¨ng<color> : Ng¬i muèn g× ë ta ?","Rêi khái ®¶o tÈy tñy/roikhoi","Tho¸t/Exit"})
end
end
function roikhoi()
Say("Ng¬i ch¾c ch¾c muèn rêi khái ®©y chø ?",2,"Ta rêi khái/roikhoi1","Tho¸t/Exit")
end
function roikhoi1()
Msg2Player("B¹n ®· rêi khái ®¶o tÈy tñy !");
NewWorld(53,200*8,200*16);
SetRevPos(19);
SetFightState(0)
SetTask(52,1)
end
function taykinang()
RollbackSkill()
AddMagicPoint(-GetMagicPoint())
ResetAP()
AddAll(diemtn,diemkn)
if (HaveMagic(344)>=0 ) then
AddMagic(344,1)
end
Talk(1,"KickOutSelf","TÈy tñy kü n¨ng thµnh c«ng !")
end
function updateskill()
SetTask(46,0)
SetTask(47,0)
SetTask(48,0)
end
as={
{35,25,25,15}, -- kim
{20,35,20,25}, -- moc
{25,25,25,25}, -- thuy
{30,20,30,20}, -- hoa
{20,15,25,40}, -- tho
}
function ResetAP()
player_series = GetSeries() + 1;
SetBasePoint(as[player_series][1],as[player_series][2],as[player_series][3],as[player_series][4]); --tiem nang mac dinh
end;
function taytiemnang()
tnlevel = (GetLevel() - 1) * 5
--if GetTask(197) >= 1 then
--tncs = CSTABLE[GetTask(197)][4]
--else
--tncs = 0
--end
ttk = GetTask(15) * 5
--AddProp(- GetProp())
ResetAP()
--sum = tnlevel+ttk+tncs
sum = tnlevel+ttk
--AddProp(sum)
Talk(1,"KickOutSelf","TÈy tñy tiÒm n¨ng thµnh c«ng !")
end
Còn cái này là chuýeninh.lua
Include("\\DataFiles\\chuyensinhdata.lua")
Include("\\Script\\global\\sourcejx49.lua");
Include("\\script\\GetFaction.lua")
Include("\\DataFiles\\Getcs.lua")
<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>
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
Heo xem giùm nha^^.
30 charrrrrrrrrrrrrrrrrrr