xin Script hổ trợ tân thủ lv1 đến lv100

[dothieuxuyen]

Xin AE Script hổ trợ tân thủ từ lv10 đến lv100 . Cám ơn trước ....

[bosualongthanh]

muuốn hỗ trợ cái éo gì .... LV10 nhận dc nhui cái TTL . lv20 cho ngựa LV 90 tặng VK hút sinh nội lực hay sao . phải nêu ra yêu cầu mới bít đường mà viết , ko lại đem về sài than ko có cái này cái kia , sao ko giống với VNG =))

[JXDev]

Cho bác cái Script em đang xài edit lại phần thưởng mà sài thôi b-(


function phanthuongtheocap()
local tbOpt =
{
{"NhËn phÇn th­ëng cÊp 100", phanthuong10x},
{"NhËn phÇn th­ëng cÊp 120", phanthuong12x},
{"NhËn phÇn th­ëng cÊp 140", phanthuong14x},
{"NhËn phÇn th­ëng cÊp 160", phanthuong16x},
{"NhËn phÇn th­ëng cÊp 180", phanthuong18x},
{"Trë l¹i", dialog_main},
{"Tho¸t"},
}
CreateNewSayEx("<npc>Xin mêi ®¹i hiÖp chän phÇn th­ëng t­¬ng øng víi cÊp ®é ", tbOpt)
end


function phanthuong12x()
if CalcFreeItemCellCount() < 30 then
Say("H·y cÊt bít vËt phÈm ®Ó ®¶m b¶o cã 30 « trèng råi h·y më.",0);
return 1;
end
if GetLevel()>=120 then
if GetTask(120)==0 then
for i=3465,3475 do
end
index =AddGoldItem(0,3466) SetItemBindState(index,-2)
tbAwardTemplet:GiveAwardByList({tbProp = {0,10,6,1,0,0}, nBindState=-2}, "B«n Tiªu (Khãa vÜnh viÔn)", 1);
tbAwardTemplet:GiveAwardByList({tbProp = {6,1,1181,0,0,0}, nBindState=-2}, "5 b×nh Tiªn Th¶o Lé 8 tiÕng (Khãa vÜnh viÔn)", 5);
tbAwardTemplet:GiveAwardByList({tbProp = {4,353,1,1,0,0}, nBindState=-2}, "5 b×nh Tiªn Th¶o Lé 8 tiÕng (Khãa vÜnh viÔn)", 6);
tbAwardTemplet:GiveAwardByList({tbProp = {4, 240, 1, 1, 0, 0}, nBindState=-2}, "Lôc Thñy Tinh (Khãa vÜnh viÔn)", 1);
tbAwardTemplet:GiveAwardByList({tbProp = {4, 239, 1, 1, 0, 0}, nBindState=-2}, "Tö Thñy Tinh (Khãa vÜnh viÔn)", 1);
tbAwardTemplet:GiveAwardByList({tbProp = {4, 238, 1, 1, 0, 0}, nBindState=-2}, "Lam Thñy Tinh (Khãa vÜnh viÔn)", 1);
SetTask(120,GetTask(120)+1)
Msg2Player("§· nhËn thµnh c«ng phÇn th­ëng cÊp 120 tõ BQT.")
else
Talk(1, "", "§¹i hiÖp ®· nhËn råi kh«ng thÓ nhËn n÷a. ")
end
end
end

function phanthuong10x()
if CalcFreeItemCellCount() < 30 then
Say("H·y cÊt bít vËt phÈm ®Ó ®¶m b¶o cã 30 « trèng råi h·y më.",0);
return 1;
end
local tab_Content = {
"Rêi khái/no",
"ThiÕu L©m QuyÒn/#sethuonglang(1)",
"ThiÕu L©m Bçng/#sethuonglang(2)",
"ThiÕu L©m §ao/#sethuonglang(3)",
"Thiªn V­¬ng Chïy/#sethuonglang(4)",
"Thiªn V­¬ng Th­¬ng/#sethuonglang(5)",
"Thiªn V­¬ng §ao/#sethuonglang(6)",
"Nga Mi KiÕm/#sethuonglang(7)",
"Nga Mi Ch­ëng/#sethuonglang(8)",
"Thóy Yªn §ao/#sethuonglang(9)",
"Thóy Yªn Song §ao/#sethuonglang(10)",
"Ngò §éc Ch­ëng/#sethuonglang(11)",
"Ngò §éc §ao/#sethuonglang(12)",
"§­êng M«n Phi §ao/#sethuonglang(13)",
"§­êng M«n Ná/#sethuonglang(14)",
"Trang sau/thuonglang2",
}
Say("Xin chµo <color=yellow>"..GetName().."<color>, h·y lùa chon M«n Ph¸i", getn(tab_Content), tab_Content);
end
function thuonglang2()
local tab_Content = {
"§­êng M«n Phi Tiªu/#sethuonglang(15)",
"C¸i Bang Rång/#sethuonglang(16)",
"C¸i Bang Bçng/#sethuonglang(17)",
"Thiªn NhÉn KÝch/#sethuonglang(18)",
"Thiªn NhÉn §ao/#sethuonglang(19)",
"Vâ §ang KiÕm/#sethuonglang(21)",
"Vâ §ang QuyÒn/#sethuonglang(20)",
"C«n L«n §ao/#sethuonglang(22)",
"C«n L«n KiÕm/#sethuonglang(23)",
"Hoa S¬n KiÕm T«ng/#sethuonglanghsk(1)",
"Hoa S¬n KhÝ T«ng/#sethuonglanghsn(2)",
"Tho¸t./no",
"Trë l¹i"
}
Say("Xin chµo <color=yellow>"..GetName().."<color>, h·y lùa chon M«n Ph¸i", getn(tab_Content), tab_Content);
end
function sethuonglang(nId)
if GetLevel()>=100 then
if GetTask(100)==0 then
for i = 1365, 1374 do
AddGoldItem(0,10*nId+i-10)
end
SetTask(100,GetTask(100)+1)
Msg2Player("§· nhËn thµnh c«ng phÇn th­ëng cÊp 100 tõ BQT.")
else
Talk(1, "", "§¹i hiÖp ®· nhËn råi kh«ng thÓ nhËn n÷a. ")
end
else
Talk(1, "", "§¹t ®Õn cÊp 100 råi h·y ®Õn nhËn th­ëng")
end
end

function sethuonglanghsn(nId)
if GetLevel()>=100 then
if GetTask(100)==0 then
for i = 4673, 4682 do
AddGoldItem(0,10*nId+i-10)
end
SetTask(100,GetTask(100)+1)
Msg2Player("§· nhËn thµnh c«ng phÇn th­ëng cÊp 100 tõ BQT.")
else
Talk(1, "", "§¹i hiÖp ®· nhËn råi kh«ng thÓ nhËn n÷a. ")
end
else
Talk(1, "", "§¹t ®Õn cÊp 100 råi h·y ®Õn nhËn th­ëng")
end
end

function sethuonglanghsk(nId)
if GetLevel()>=100 then
if GetTask(100)==0 then
for i = 4683, 4692 do
AddGoldItem(0,10*nId+i-10)
end
SetTask(100,GetTask(100)+1)
Msg2Player("§· nhËn thµnh c«ng phÇn th­ëng cÊp 100 tõ BQT.")
else
Talk(1, "", "§¹i hiÖp ®· nhËn råi kh«ng thÓ nhËn n÷a. ")
end
else
Talk(1, "", "§¹t ®Õn cÊp 100 råi h·y ®Õn nhËn th­ëng")
end
end

function thuonglangmp()
if CalcFreeItemCellCount() < 30 then
Say("H·y cÊt bít vËt phÈm ®Ó ®¶m b¶o cã 30 « trèng råi h·y më.",0);
return 1;
end
if GetLevel()>=100 then
if GetTask(100)==0 then
for i=177,185 do
end
tbAwardTemplet:GiveAwardByList({tbProp = {6, 1, 30146, 1, 0, 0}, nBindState=-2}, "1 bé trang bÞ Th­¬ng Lang (Khãa vÜnh viÔn)", 1);
SetTask(100,GetTask(100)+1)
Msg2Player("§· nhËn thµnh c«ng phÇn th­ëng hç trî vËt phÈm tõ BQT.")
else
Talk(1, "", "§¹i hiÖp ®· nhËn råi kh«ng thÓ nhËn n÷a. ")
end
end
end

function phanthuong16x()
if CalcFreeItemCellCount() < 30 then
Say("H·y cÊt bít vËt phÈm ®Ó ®¶m b¶o cã 30 « trèng råi h·y më.",0);
return 1;
end
local tab_Content = {
"Rêi khái/no",
"ThiÕu L©m QuyÒn/#setumang(1)",
"ThiÕu L©m Bçng/#setumang(2)",
"ThiÕu L©m §ao/#setumang(3)",
"Thiªn V­¬ng Chïy/#setumang(4)",
"Thiªn V­¬ng Th­¬ng/#setumang(5)",
"Thiªn V­¬ng §ao/#setumang(6)",
"Nga Mi KiÕm/#setumang(7)",
"Nga Mi Ch­ëng/#setumang(8)",
"Thóy Yªn §ao/#setumang(9)",
"Thóy Yªn Song §ao/#setumang(10)",
"Ngò §éc Ch­ëng/#setumang(11)",
"Ngò §éc §ao/#setumang(12)",
"§­êng M«n Phi §ao/#setumang(13)",
"§­êng M«n Ná/#setumang(14)",
"Trang sau/tumang2",
}
Say("Xin chµo <color=yellow>"..GetName().."<color>, h·y lùa chon M«n Ph¸i", getn(tab_Content), tab_Content);
end
function tumang2()
local tab_Content = {
"§­êng M«n Phi Tiªu/#setumang(15)",
"C¸i Bang Rång/#setumang(16)",
"C¸i Bang Bçng/#setumang(17)",
"Thiªn NhÉn KÝch/#setumang(18)",
"Thiªn NhÉn §ao/#setumang(19)",
"Vâ §ang KiÕm/#setumang(21)",
"Vâ §ang QuyÒn/#setumang(20)",
"C«n L«n §ao/#setumang(22)",
"C«n L«n KiÕm/#setumang(23)",
"Hoa S¬n KiÕm T«ng/#setumanghsk(1)",
"Hoa S¬n KhÝ T«ng/#setumanghsn(2)",
"Tho¸t./no",
"Trë l¹i"
}
Say("Xin chµo <color=yellow>"..GetName().."<color>, h·y lùa chon M«n Ph¸i", getn(tab_Content), tab_Content);
end
function setumang(nId)
if GetLevel()>=160 then
if GetTask(160)==0 then
for i = 1825, 1834 do
AddGoldItem(0,10*nId+i-10)
end
SetTask(160,GetTask(160)+1)
Msg2Player("§· nhËn thµnh c«ng phÇn th­ëng cÊp 160 tõ BQT.")
else
Talk(1, "", "§¹i hiÖp ®· nhËn råi kh«ng thÓ nhËn n÷a. ")
end
else
Talk(1, "", "§¹t ®Õn cÊp 160 råi h·y ®Õn nhËn th­ëng")
end
end

function setumanghsn(nId)
if GetLevel()>=160 then
if GetTask(160)==0 then
for i = 4713, 4722 do
AddGoldItem(0,10*nId+i-10)
end
SetTask(160,GetTask(160)+1)
Msg2Player("§· nhËn thµnh c«ng phÇn th­ëng cÊp 160 tõ BQT.")
else
Talk(1, "", "§¹i hiÖp ®· nhËn råi kh«ng thÓ nhËn n÷a. ")
end
else
Talk(1, "", "§¹t ®Õn cÊp 160 råi h·y ®Õn nhËn th­ëng")
end
end

function setumanghsk(nId)
if GetLevel()>=160 then
if GetTask(160)==0 then
for i = 4723, 4732 do
AddGoldItem(0,10*nId+i-10)
end
SetTask(160,GetTask(160)+1)
Msg2Player("§· nhËn thµnh c«ng phÇn th­ëng cÊp 160 tõ BQT.")
else
Talk(1, "", "§¹i hiÖp ®· nhËn råi kh«ng thÓ nhËn n÷a. ")
end
else
Talk(1, "", "§¹t ®Õn cÊp 160 råi h·y ®Õn nhËn th­ëng")
end
end

function phanthuong14x()
if CalcFreeItemCellCount() < 30 then
Say("H·y cÊt bít vËt phÈm ®Ó ®¶m b¶o cã 30 « trèng råi h·y më.",0);
return 1;
end
local tab_Content = {
"Rêi khái/no",
"ThiÕu L©m QuyÒn/#sethuyenvien(1)",
"ThiÕu L©m Bçng/#sethuyenvien(2)",
"ThiÕu L©m §ao/#sethuyenvien(3)",
"Thiªn V­¬ng Chïy/#sethuyenvien(4)",
"Thiªn V­¬ng Th­¬ng/#sethuyenvien(5)",
"Thiªn V­¬ng §ao/#sethuyenvien(6)",
"Nga Mi KiÕm/#sethuyenvien(7)",
"Nga Mi Ch­ëng/#sethuyenvien(8)",
"Thóy Yªn §ao/#sethuyenvien(9)",
"Thóy Yªn Song §ao/#sethuyenvien(10)",
"Ngò §éc Ch­ëng/#sethuyenvien(11)",
"Ngò §éc §ao/#sethuyenvien(12)",
"§­êng M«n Phi §ao/#sethuyenvien(13)",
"§­êng M«n Ná/#sethuyenvien(14)",
"Trang sau/thuonglang2",
}
Say("Xin chµo <color=yellow>"..GetName().."<color>, h·y lùa chon M«n Ph¸i", getn(tab_Content), tab_Content);
end
function thuonglang2()
local tab_Content = {
"§­êng M«n Phi Tiªu/#sethuyenvien(15)",
"C¸i Bang Rång/#sethuyenvien(16)",
"C¸i Bang Bçng/#sethuyenvien(17)",
"Thiªn NhÉn KÝch/#sethuyenvien(18)",
"Thiªn NhÉn §ao/#sethuyenvien(19)",
"Vâ §ang KiÕm/#sethuyenvien(21)",
"Vâ §ang QuyÒn/#sethuyenvien(20)",
"C«n L«n §ao/#sethuyenvien(22)",
"C«n L«n KiÕm/#sethuyenvien(23)",
"Hoa S¬n KiÕm T«ng/#sethuyenvienhsk(1)",
"Hoa S¬n KhÝ T«ng/#sethuyenvienhsn(2)",
"Tho¸t./no",
"Trë l¹i"
}
Say("Xin chµo <color=yellow>"..GetName().."<color>, h·y lùa chon M«n Ph¸i", getn(tab_Content), tab_Content);
end
function sethuyenvien(nId)
if GetLevel()>=100 then
if GetTask(100)==0 then
for i = 1365, 1374 do
AddGoldItem(0,10*nId+i-10)
end
SetTask(100,GetTask(100)+1)
Msg2Player("§· nhËn thµnh c«ng phÇn th­ëng cÊp 140 tõ BQT.")
else
Talk(1, "", "§¹i hiÖp ®· nhËn råi kh«ng thÓ nhËn n÷a. ")
end
else
Talk(1, "", "§¹t ®Õn cÊp 140 råi h·y ®Õn nhËn th­ëng")
end
end

function sethuyenvienhsk(nId)
if GetLevel()>=100 then
if GetTask(100)==0 then
for i = 4703, 4712 do
AddGoldItem(0,10*nId+i-10)
end
SetTask(100,GetTask(100)+1)
Msg2Player("§· nhËn thµnh c«ng phÇn th­ëng cÊp 140 tõ BQT.")
else
Talk(1, "", "§¹i hiÖp ®· nhËn råi kh«ng thÓ nhËn n÷a. ")
end
else
Talk(1, "", "§¹t ®Õn cÊp 140 råi h·y ®Õn nhËn th­ëng")
end
end

function sethuyenvienhsn(nId)
if GetLevel()>=100 then
if GetTask(100)==0 then
for i = 4693, 4702 do
AddGoldItem(0,10*nId+i-10)
end
SetTask(100,GetTask(100)+1)
Msg2Player("§· nhËn thµnh c«ng phÇn th­ëng cÊp 140 tõ BQT.")
else
Talk(1, "", "§¹i hiÖp ®· nhËn råi kh«ng thÓ nhËn n÷a. ")
end
else
Talk(1, "", "§¹t ®Õn cÊp 140 råi h·y ®Õn nhËn th­ëng")
end
end


function phanthuong18x()
if CalcFreeItemCellCount() < 30 then
Say("H·y cÊt bít vËt phÈm ®Ó ®¶m b¶o cã 30 « trèng råi h·y më.",0);
return 1;
end
if GetLevel()>=180 then
if GetTask(180)==0 then
index =AddGoldItem(0,3469) SetItemBindState(index,-2)
index =AddGoldItem(0,3209) SetItemBindState(index,-2)
tbAwardTemplet:GiveAwardByList({tbProp = {6,1,2349,1,0,0}, nBindState=-2}, "Kim ¤ LÖnh (khãa vÜnh viÔn)", 2);
SetTask(180,GetTask(180)+1)
Msg2Player("§· nhËn thµnh c«ng phÇn th­ëng cÊp ®é 180.")
else
Talk(1, "", "Ng­¬i ®· nhËn råi kh«ng thÓ nhËn n÷a. ")
end
else
Talk(1, "", "Ng­¬i ch­a ®¹t ®Õn cÊp 180 mµ ®ßi phÇn th­ëng sao?. ")
end
end

[dothieuxuyen]

Cám ơn bạn . Có thể chỉ mình gán vào NPC hổ trợ tân thủ được ko ? hổ trợ tân thủ mình chỉ cần tiền và kinh nghiệm là được . Mình đang dùng sever này <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>

[JXDev]

Cám ơn bạn . Có thể chỉ mình gán vào NPC hổ trợ tân thủ được ko ? hổ trợ tân thủ mình chỉ cần tiền và kinh nghiệm là được .

ý bạn muốn cái Hỗ trợ tân thủ là chỉ nhận hỗ trợ cấp độ với tiền vạn thôi đó hả .
Còn muốn Add NPC thì bạn Add vào autoexec.lua - Chỉnh lại đường dẫn cho NPC đó và lấy tọa độ để add là xong lụm lúa :P

[dothieuxuyen]

Nói chung code jx1 khó hiểu quá . bên kiếm thế viết Script dể hiểu hơn , lớp server mình bị lỗi font nữa . nên dùng c++ xem ko hiểu gỉ hết .