Kết quả 1 đến 4 của 4
-
13-10-14, 04:19 PM #1
- Ngày tham gia
- May 2014
- Bài viết
- 19
- Thanks
- 2
- Thanked 2 Times in 2 Posts
Cần Xin Chuyển Sinh Giống sever Tranh Bá AWJX
Cần Xin Chuyển Sinh Giống sever Tranh Bá AWJX
mình có lấy file cs của sever tranh bá
nhưng thiếu file \\DataFiles\\chuyensinhdata.lua"
bác nào có cho e xin or code hộ em cái file đó với
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Include("\\DataFiles\\chuyensinhdata.lua")
Include("\\script\\source\\sourcejx49.lua");
Include("\\script\\GetFaction.lua")
--================== [Only registered and activated users can see links. ] ===================
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
Khách viếng thăm hãy cùng 66sac66 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
14-10-14, 02:17 PM #2
-
14-10-14, 02:31 PM #3
Ðề: Cần Xin Chuyển Sinh Giống sever Tranh Bá AWJX
Khách viếng thăm hãy cùng vuila9 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
14-10-14, 10:11 PM #4
Các Chủ đề tương tự
-
[JX] Share sever AWJX Thiện Ác phân tranh.
Bởi DuongDaiCaJX trong diễn đàn Võ Lâm Truyền Kỳ (Jx Server)Trả lời: 66Bài viết cuối: 12-08-13, 02:41 PM -
[JX] Hỏi đáp chức năng chuyển sinh về sv awjx
Bởi hupchao trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 0Bài viết cuối: 26-05-13, 01:18 PM -
[JX] Chuyển Sinh Sever BFF
Bởi tinhyeuhoagio trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 0Bài viết cuối: 11-04-13, 11:48 AM -
[JX] Anh Em Nào Biết Fix Lỗi Tự Chuyển Phái Cũa Sever nền awjx Chỉ Mình Với
Bởi boykho trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 1Bài viết cuối: 30-11-12, 07:24 PM -
[JX] Vấn đề chuyển sinh cho awjx (hút hít)
Bởi sky.light9530 trong diễn đàn Võ Lâm Truyền Kỳ (Jx Server)Trả lời: 18Bài viết cuối: 31-08-12, 03:21 AM