Code Chuyển Sinh Mất Hết Đồ

[bachvanphi]

--Author lzlsky301
--Date 21/01/13
--Script Npc Le Quan
Include("\\script\\global\\sourceatn.lua")
Include("\\script\\global\\tasklist.lua")
Include("\\script\\global\\npc\\faction\\main_faction.lua")

function ReBornOK()
local TAB_REBORNOK = {
"<color=green>B¾c §Èu L·o Nh©n:<color> ChuyÓn sinh lÇn tiÕp theo sÏ ®­îc t¨ng <color=fire>30<color> Kü n¨ng vµ <color=fire>150<color> TiÒm n¨ng.\nNgoµi ra ®¹i hiÖp cßn cã thÓ chän møc kh¸ng tèi ®a.\nMøc kh¸ng tèi ®a ®­îc chän t¨ng thªm <color=fire>5%<color>.",
"Ng­¬i h·y chän møc kh¸ng nµo/ChonKhang",
"§Ó t¹i h¹ suy nghÜ l¹i/no",
}
if (GetReBorn() == 0) then
ReBornOK1()
return
elseif (GetReBorn() >= 1 and GetReBorn() <= 4) then
SayImg(TAB_REBORNOK[1],
2,0,
TAB_REBORNOK[2],
TAB_REBORNOK[3])
end
end

function ChonKhang()
local TAB_CHONKHANG = {
"<color=green>B¾c §Èu L·o Nh©n:<color> ChØ ®­îc chän mét lo¹i kh¸ng tÝnh. H·y suy nghÜ cho kü. ",
"Ta chän kh¸ng Háa/ChonKhangOk",
"Ta chän kh¸ng B¨ng/ChonKhangOk",
"Ta chän kh¸ng §éc/ChonKhangOk",
"Ta chän kh¸ng L«i/ChonKhangOk",
"Ta chän Phßng Thñ VËt Lý/ChonKhangOk",
"§Ó ta suy nghÜ l¹i/no",
}
SayImg(TAB_CHONKHANG[1],
6,0,
TAB_CHONKHANG[2],
TAB_CHONKHANG[3],
TAB_CHONKHANG[4],
TAB_CHONKHANG[5],
TAB_CHONKHANG[6],
TAB_CHONKHANG[7])
end

function ChonKhangOk(sel)
local aHeo = sel + 1
--local a = GetReborn() + 1
AddMaxR(GetMaxAddR(aheo) + 5,aHeo)
ReBornOK2()
end

function ReBornOK2()
Msg2SubWorld("<color=green>Chóc mõng "..GetName().." ®· <color=green>chuyÓn sinh thµnh c«ng ®¹t ®­îc thµnh qu¶ tèt. ")
SetTask(T_TayTuyMienPhi,0)
SetTask(T_ChuyenSinh1,0)
--SetTask(T_NhanLaiSkill,1)
taykynang()
AddReBorn(1)
SetLevel(81)
taytiemnang()
taykynang()
KickOutSelf()
for i=0,11 do DelItem(GetIndexEqiupItem(i)) end
NewWorld(53,51904/32,101888/32)
Msg2Player(" ChuyÓn sinh thµnh c«ng. Chóc mõng ng­¬i.")
end

function ReBornOK1()
Msg2SubWorld("Chóc mõng "..GetName().." ®· chuyÓn sinh thµnh c«ng ®¹t ®­îc thµnh qu¶ tèt. ")
for i=1,5 do AddMaxR(5,i) end
--for a=1,5 do AddR(10,a) end
SetTask(T_TayTuyMienPhi,0)
SetTask(T_ChuyenSinh1,0)
--SetTask(T_NhanLaiSkill,1)
taykynang()
AddReBorn(1)
SetLevel(81)
taytiemnang()
taykynang()
KickOutSelf()
for i=0,11 do DelItem(GetIndexEqiupItem(i)) end
NewWorld(53,51904/32,101888/32)
Msg2Player(" ChuyÓn sinh thµnh c«ng. Chóc mõng ng­¬i.")
end
--function khangtatca()

[bachvanphi]

<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>

[minhduc_aa]

<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>
Là mất hết trang bị trên người hay mất hết trang bị trong hành trang vậy bạn?

[HoangTVT]

bỏ dòng này


for i=0,11 do DelItem(GetIndexEqiupItem(i)) end