nguyen_van003
09-01-13, 04:53 PM
Ai cho em hỏi cái này xíu với ạ.
Cụ thể là em muốn sau khi chuyển sinh thì hàng kháng của mình cộng thêm 1% (nếu kháng max 75 thì vẫn + thêm được nhé), với thêm máu khoảng 200 điểm + dame thêm 200 thì mình thêm code như thế nào vậy mấy bác.
Cụ thể em đang xài bản của DuongdaicaJX ver 2.0.
Đây là Script chuyển sinh của anh ấy.
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 = 50
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]..".",3,
"ChuyÓn sinh lÇn ["..ktcss.."]./chuyensinh",
--"Vßng S¸ng ChuyÓn Sinh/vongsang",
"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 vongsang()
if GetTask(197) >= 2 then
if HaveMagic(370) <= 0 then
AddMagic(371,1)
Msg2Player("B¹n NhËn §îc Vßng S¸ng ChuyÓn Sinh")
KickOutSelf()
else
Talk(1,"addrank","Ng¬i ®· Nh©n <color=fire>Vßng S¸ng<color> kh«ng thÓ nhËn ®îc n÷a")
end
elseif GetTask(197) >= 10 then
if HaveMagic(371) >= 0 then
AddMagic(372,1)
Msg2Player("B¹n NhËn §îc Vßng S¸ng ChuyÓn Sinh")
KickOutSelf()
else
Talk(1,"addrank","Ng¬i ®· Nh©n <color=fire>Vßng S¸ng<color> kh«ng thÓ nhËn ®îc n÷a")
end
elseif GetTask(197) >= 20 then
if HaveMagic(372) >= 0 then
AddMagic(373,1)
Msg2Player("B¹n NhËn §îc Vßng S¸ng ChuyÓn Sinh")
KickOutSelf()
else
Talk(1,"addrank","Ng¬i ®· Nh©n <color=fire>Vßng S¸ng<color> kh«ng thÓ nhËn ®îc n÷a")
end
elseif GetTask(197) >= 30 then
if HaveMagic(373) >= 0 then
AddMagic(369,1)
Msg2Player("B¹n NhËn §îc Vßng S¸ng ChuyÓn Sinh")
KickOutSelf()
else
Talk(1,"addrank","Ng¬i ®· Nh©n <color=fire>Vßng S¸ng<color> kh«ng thÓ nhËn ®îc n÷a")
end
Msg2Player("Sè lÇn trïng sinh cña b¹n lµ : "..GetTask(197).." kh«ng thÓ nhËn thëng")
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
Bác nào giúp em code thêm với ạ.
Nếu được thank bác nhiệt tình. :):)
Cụ thể là em muốn sau khi chuyển sinh thì hàng kháng của mình cộng thêm 1% (nếu kháng max 75 thì vẫn + thêm được nhé), với thêm máu khoảng 200 điểm + dame thêm 200 thì mình thêm code như thế nào vậy mấy bác.
Cụ thể em đang xài bản của DuongdaicaJX ver 2.0.
Đây là Script chuyển sinh của anh ấy.
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 = 50
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]..".",3,
"ChuyÓn sinh lÇn ["..ktcss.."]./chuyensinh",
--"Vßng S¸ng ChuyÓn Sinh/vongsang",
"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 vongsang()
if GetTask(197) >= 2 then
if HaveMagic(370) <= 0 then
AddMagic(371,1)
Msg2Player("B¹n NhËn §îc Vßng S¸ng ChuyÓn Sinh")
KickOutSelf()
else
Talk(1,"addrank","Ng¬i ®· Nh©n <color=fire>Vßng S¸ng<color> kh«ng thÓ nhËn ®îc n÷a")
end
elseif GetTask(197) >= 10 then
if HaveMagic(371) >= 0 then
AddMagic(372,1)
Msg2Player("B¹n NhËn §îc Vßng S¸ng ChuyÓn Sinh")
KickOutSelf()
else
Talk(1,"addrank","Ng¬i ®· Nh©n <color=fire>Vßng S¸ng<color> kh«ng thÓ nhËn ®îc n÷a")
end
elseif GetTask(197) >= 20 then
if HaveMagic(372) >= 0 then
AddMagic(373,1)
Msg2Player("B¹n NhËn §îc Vßng S¸ng ChuyÓn Sinh")
KickOutSelf()
else
Talk(1,"addrank","Ng¬i ®· Nh©n <color=fire>Vßng S¸ng<color> kh«ng thÓ nhËn ®îc n÷a")
end
elseif GetTask(197) >= 30 then
if HaveMagic(373) >= 0 then
AddMagic(369,1)
Msg2Player("B¹n NhËn §îc Vßng S¸ng ChuyÓn Sinh")
KickOutSelf()
else
Talk(1,"addrank","Ng¬i ®· Nh©n <color=fire>Vßng S¸ng<color> kh«ng thÓ nhËn ®îc n÷a")
end
Msg2Player("Sè lÇn trïng sinh cña b¹n lµ : "..GetTask(197).." kh«ng thÓ nhËn thëng")
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
Bác nào giúp em code thêm với ạ.
Nếu được thank bác nhiệt tình. :):)