[JX] Xem giùm em đoạn code này lổi sao vậy ạ [Lưu trữ]

66sac66

23-10-14, 07:00 PM

xem giùm em lổi này là sao vậy ạ

Game Sever báo thế này đây ạ
[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>]

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

--------------------------------------------------
Include("\\dulieu\\chuyensinhdata.lua")
Include("\\script\\source\\sourcejx49.lua");
Include("\\script\\GetFaction.lua")

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

iditemcantrongcs = 110
vlmt = 16
ttk = 15
gioihancs = 5
capsaukhics = 10
TENVP = "Trïng Sinh KiÕp"

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

function main()
if NPC3S(2) == 1 then return end
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",4,
"ChuyÓn sinh lÇn ["..ktcss.."]./chuyensinh",
"Mua Bé T©m Ph¸p Thiªn (5,000 v¹n)./MuaTamPhapThien",
--"NhËn skill hç trî/nhanskill",
"T×m hiÓu vÒ chuyÓn sinh./TimHieuTrungSinh",
"Tho¸t./Exit");
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 MuaTamPhapThien()
tongcash = GetCash()
if GetCash() >= 50000000 then
Pay(50000000)
if GetCash() ~= tongcash - 50000000 then
Talk(1,"","Hack h¶!")
logWrite(""..GetIP().." ---- "..GetName().." --- chuyen sinh "..GetTask(197).." --- Lever "..GetLevel().."")
return
end

AddEventItem(110)
MsgEx("<color=green>B¾c §Èu L·o Nh©n:<color> B¹n ®· mua <color=yellow><B¾c §Èu Trêng Sinh ThuËt - T©m Ph¸p Thiªn><color>.",1);
else
MsgEx("<color=green>B¾c §Èu L·o Nh©n:<color> B¹n kh«ng cã ®ñ <color=yellow>5,000 v¹n lîng<color>.",1);
end
end;

function TimHieuTrungSinh()
SayEx({"<color=green>B¾c §Èu L·o Nh©n:<color> Khi ®· Tu luyÖn B¾c §Èu Trêng Sinh ThuËt xong, cÊp bËc cña ®¹i hiÖp sÏ thµnh cÊp 10, tÊt c¶ c¸c kü n¨ng vâ c«ng sÏ bÞ phÕ, ®¹t ®Õn cÊp bËc t¬ng øng míi cã thÓ håi phôc. Ngoµi ra sÏ b¶o lu tÊt c¶ c¸c ®iÓm kü n¨ng vµ tiÒm n¨ng cña ®¹i hiÖp.",
"TiÕp theo./TimHieuTrungSinhTiepTheo",
"Tho¸t./Exit"});
end;

function TimHieuTrungSinhTiepTheo()
SayEx({"<color=green>B¾c §Èu L·o Nh©n:<color> ViÖc tu luyÖn còng gióp ®¹i hiÖp ®¶ th«ng kinh m¹ch, t¨ng cêng tiÒm n¨ng (100 ®iÓm) vµ kü n¨ng (20 ®iÓm), kh¸ng tÊt c¶ cña nh©n vËt t¨ng thªm 5%, c¸c kü n¨ng cÊp 90 vµ 120 còng ®îc th¨ng cÊp bËc.",
"Tho¸t./Exit"});
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
if GetTask(200) == 1 then
if GetTask(60) == 1 then
SetTask(200,0)
SetTask(60,0)
Pay(CSTABLE[cs][2])
SetLevel(capsaukhics)
SetTask(197,GetTask(197)+1)
log = logWrite(""..GetName().." chuyen sinh "..GetTask(197).." lever "..GetLevel().."")
diemtn = CSTABLE[cs][4] + (GetTask(ttk) * 5) + (CSTABLE[150][4]*GetTask(198))
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
AddProp(-GetProp())
if diemtn == nil then diemtn = 0 end
if GetFaction() == "Vâ §ang Ph¸i" then
AddProp(diemtn)
else
AddProp(diemtn)
end
themskillcs()
MsgEx("<color=green>B¾c §Èu L·o Nh©n:<color> B¹n ®· ®¨ng ký chuyÓn sinh nh©n vËt thµnh c«ng.",1)
Talk(1,"","§©y lµ lÇn chuyÓn sinh thø: <color=metal>"..GetTask(197).."<color>!")
else
MsgEx("<color=green>B¾c §Èu L·o Nh©n:<color> Ng¬i cha l·nh ngé <color=yellow><B¾c §Èu Trêng Sinh ThuËt - T©m Ph¸p Thiªn><color>, kh«ng thÓ tiÕn hµnh chuyÓn sinh.",1);
end
else
MsgEx("<color=green>B¾c §Èu L·o Nh©n:<color> Ng¬i cha l·nh ngé <color=yellow><B¾c §Èu Trêng Sinh ThuËt - C¬ Së Thiªn><color>, kh«ng thÓ tiÕn hµnh chuyÓn sinh.",1);
end
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
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 themskillcs()
for i=459,468 do DelMagic(i) end
id = GetTask(197)
if id >= 8 then
AddMagic(466,20)
else
AddMagic(458+id,20)
end
end

function LuuTrungSinhThanhCong()
file_IP = "dulieu/trungsinh.txt"
local IPData = openfile(file_IP, "a");
write(IPData, date("%y-%m-%d_%H:%M:%S").."\tNhan vat: "..GetName().." chuyen sinh lan ... thanh cong.\n");
closefile(IPData);
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

--================================================
function nhanskill()
SayEx({"Chän ngùa",
"Vßng s¸ng 1 ./v1",
"Vßng s¸ng 2./v2",
"Vßng s¸ng 3./v3",
"Vßng s¸ng 4./v4",
"Vßng s¸ng 5./v5",
"Vßng s¸ng 6./v6",
"Vßng s¸ng 7./v7",
"Vßng s¸ng 8./v8",
"Vßng s¸ng 9./v9",
"Vßng s¸ng 10./v10",
"Vßng s¸ng 11./v11",
"Vßng s¸ng 12./v12",
"Del vßng s¸ng./dvs",
"Tho¸t./Exit"});
end;

function dvs()
if GetTask(197) >=2 then
for i=459,472 do
DelMagic(i)
end
else
Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 2")
end
end;

function v1()
if GetTask(197) >=1 then
AddMagic(463,1)
else
Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 1")
end
end;

function v2()
if GetTask(197) >=2 then
AddMagic(464,1)
else
Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 2")
end
end;

function v3()
if GetTask(197) >= 3 then
AddMagic(465,1)
else
Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 3")
end
end;

function v4()
if GetTask(197) >= 4 then
AddMagic(466,1)
else
Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 4")
end
end;

function v5()
if GetTask(197) >=5 then
AddMagic(467,1)
else
Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 5")
end
end;

function v6()
if GetTask(197) >=6 then
AddMagic(468,1)
else
Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 6")
end
end;

function v7()
if GetTask(197) >=7 then
AddMagic(469,1)
else
Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 7")
end
end;

function v8()
if GetTask(197) >=8 then
AddMagic(470,1)
else
Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 8")
end
end;

function v9()
if GetTask(197) >=9 then
AddMagic(471,1)
else
Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 9")
end
end;

function v10()
if GetTask(197) >= 10 then
AddMagic(472,1)
else
Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 10")
end
end;

function v11()
if GetTask(197) >=11 then
AddMagic(459,1)
else
Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 11")
end
end;

function v12()
if GetTask(197) >=12 then
AddMagic(460,1)
else
Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 12")
end
end;

function logWrite(str)
local gm_Log = "dulieu/trungsinh.txt"
local fs_log = openfile(gm_Log, "a+");
write(fs_log, "\t"..str.."\n");
closefile(fs_log);
end