PDA

View Full Version : [JX] Share Script nhận trang bị xanh với Option tuỳ chọn 1 dòng.



f-fantasy
06-06-19, 07:49 PM
Với nhu cầu chơi offline tự sướng việc kiếm đồ xanh với dòng mong muốn làm phôi ép trang bị tím oải quá nên mình làm cái script này để nhận trang bị xanh mong muốn
Ví dụ : Muốn Vũ Khí có dòng 1 là Tốc độ đánh, hay dòng 4 là Kháng Băng chẳng hạn.
Vì là để làm phôi cho nên chỉ cần 1 dòng thôi.
Cách thức script hoạt động : Nó sẽ lặp với vòng While. Đầu tiên là add 1 item xanh 1 cách thông thường rồi check xem nó có cái option ta đã chọn không. Nếu không có nó sẽ xóa item đi và lặp lại. Cứ thế đến khi nào có option ta cần thì thôi. Tất nhiên với 1 dòng lựa chọn sẽ lặp rất nhanh, khoảng 10 hay 20 vòng lặp là xong rồi.
Clip Demo : <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>
Đây là script. Mình nghĩ là mình chú thích khá rõ và đầy đủ trong script rồi.
Chúc các thím tự sướng zui ze


Include("\\script\\dailogsys\\dailogsay.lua");
Include("\\script\\global\\jingli.lua")

tbBuyMagic = {
[1] = { --ṿ khƯ
--Tªn option, Op hiÖn lµ 1 Èn lµ 0, ng̣ hµnh 99 lµ kh«ng că v× option hiÖn, 126 lµ ID option, sè 10 ë cuèi lµ MAGATTRLVL_END trong magicattriblevel_index. Dïng cho ®å tƯm, option max
{"S¸t th­¬ng vËt lư ngo¹i c«ng (%)",1,99,126,10},
{"Tû lÖ c«ng kƯch chƯnh x¸c",1,99,166,20},
{"Tèc ®é ®¸nh ngo¹i c«ng",1,99,115,30},
{"Bá qua nĐ tr¸nh",1,99,58,40},
{"Hót sinh lùc",1,99,136,130},
{"Hót néi lùc",1,99,137,140},
{"Sinh lùc",1,99,85,150},
{"Néi lùc",1,99,89,160},
--Tªn option. Option Èn lµ 0, ng̣ hµnh 0 lµ Kim, ID option 121
{"STVL ngo¹i c«ng ®iÓm (Kim)",0,0,121,220},
{"§éc s¸t ngo¹i c«ng (Méc)",0,1,125,230},
{"B¨ng s¸t ngo¹i c«ng(Thñy)",0,2,123,240},
--{"Háa s¸t ngo¹i c«ng(Háa)",0,3,122},
--{"L«i s¸t ngo¹i c«ng(Thæ)",0,4,124},
{"Kh¸ng ®éc (Kim)",0,0,101,290},
{"Kh¸ng b¨ng (Thæ)",0,4,105,300},
{"Kh¸ng háa (Thñy)",0,2,102,310},
{"Kh¸ng l«i (Méc)",0,1,103,320},
{"Thêi gian cho¸ng (Thñy)",0,2,110,340},
{"Thêi gian lµm chËm (Háa)",0,3,106,360},
{"Thêi gian tróng ®éc (Thæ)",0,4,108,380},
{"STVL néi c«ng (Kim)",0,0,168,440},
{"B¨ng s¸t néi c«ng (Thñy)",0,2,169,450},
{"Háa s¸t néi c«ng (Háa)",0,3,170,460},
{"L«i s¸t néi c«ng (Thæ)",0,4,171,470},
{"§éc s¸t néi c«ng (Méc)",0,1,172,480},
},
[2] = { --trang b̃ kh¸c
--{"OptionName",a,b,c,d,e},
--OptionName : Tªn option, tªn nµo c̣ng ®­îc chØ ®Ó hiÓn th̃ th«i
--a : 0 - Option Èn 1-Option hiÖn
--b : Ng̣ hµnh, 0-Kim 1-Méc 2-Thñy 3-Háa 4-Thæ 99-Kh«ng ng̣ hµnh
--c : ID Option trong magicattriblevel hoÆc magicattriblevel_index
--d : Lµ MAGATTRLVL_END trong magicattriblevel_index
--f : 5-Option chØ că giÇy 2-ChØ că ¸o 99-Lo¹i g× c̣ng că
{"Tèc ®é di chuyÓn (GiÇy)",1,99,111,70,{5}}, --ChØ giÇy míi că
{"Ph¶n ®ßn vËt lư (¸o)",1,99,117,80,{2}}, --¸o
{"Thêi gian phôc håi (¸o)",1,99,113,90,{2}}, --chØ ¸o
{"Sinh lùc",1,99,85,150,{2,5,6,7,8}},
{"Néi lùc",1,99,89,160,{2,5,6,7,8}},
{"Phôc håi sinh lùc",1,99,88,180,{2,5,6,7,8}},
{"ChuyÓn hăa s¸t th­¬ng thµnh néi lùc (Kim)",0,0,134,270,{2,5,6,7,8}},
{"Phßng thñ vËt lư (Háa)",0,3,104,280,{2,5,6,7,8}},
{"Kh¸ng ®éc (Kim)",0,0,101,290,{2,5,6,7,8}},
{"Kh¸ng b¨ng (Thæ)",0,4,105,300,{2,5,6,7,8}},
{"Kh¸ng háa (Thñy)",0,2,102,310,{2,5,6,7,8}},
{"Kh¸ng l«i (Méc)",0,1,103,320,{2,5,6,7,8}},
{"Thêi gian cho¸ng (Thñy)",0,2,110,340,{2,5,6,7,8}},
{"Thêi gian lµm chËm (Háa)",0,3,106,360,{2,5,6,7,8}},
{"Th©n ph¸p (Háa)",0,3,98,370,{2,5,6,7,8}},
{"Thêi gian tróng ®éc (Thæ)",0,4,108,380,{2,5,6,7,8}},
},
}
function main()
dofile("script/00ff/npc/thuongnhantayvuc.lua")
local tab_Content = {
"Mua ph«i trang b̃ tƯm./BuyMagicType", --Vơa lµ ph«i vơa lµ vËt phÈm cho Q D· TÈu
"Mua trang b̃ tƯm./dotim", --Mua ®å xong lµ kh¶m n¹m xong råi
"KƠt thóc ®èi tho¹i./Quit"
}
Say("<enter>C¸c trang b̃ xanh, ta ph©n ph¸t miÔn phƯ.<enter>Ṽ ®¹i hiÖp nµy muèn mua g× ? ", getn(tab_Content), tab_Content);
end
function BuyMagicType()
local tb = {
"<dec><npc>Ta că mét Ưt trang b̃ xanh víi c¸c tƯnh n¨ng că s½n, ch¼ng hay ng­¬i că muèn mua hay kh«ng? Ta b¸n 500 v¹n l­îng 1 măn mµ th«i.",
"Cho ta mua ph«i ṿ khƯ./#BuyMagicType1(1)", --1 lµ ṿ khƯ
"Cho ta mua ph«i trang b̃ kh¸c./#BuyMagicType1(2)", --2 lµ quÇn ¸o giÇy ṃ ®ai l­ng g¨ng tay
"Quay l¹i.",
"Tho¸t./Quit",
}
CreateTaskSay(tb)
end
function BuyMagicType1(ID)
local tb = {
"<dec><npc>Ta că mét Ưt trang b̃ xanh, c¸c tƯnh n¨ng că s½n . Ng­¬i că muèn mua kh«ng?.",
"Mua ph«i dßng 1./#BuyMagicType2("..ID..",1)",
"Mua ph«i dßng 2./#BuyMagicType2("..ID..",2)",
"Mua ph«i dßng 3./#BuyMagicType2("..ID..",3)",
"Mua ph«i dßng 4./#BuyMagicType2("..ID..",4)",
"Mua ph«i dßng 5./#BuyMagicType2("..ID..",5)",
"Mua ph«i dßng 6./#BuyMagicType2("..ID..",6)",
"Quay l¹i./main",
"Tho¸t./Quit",
}
CreateTaskSay(tb)
end
function BuyMagicType2(ID1,ID2)
--ID1 lµ 1 lµ ṿ khƯ, 2 lµ thø cßn l¹i nh­ ¸o m? giÇy.....
--ID2 lµ sè dßng tơ 1 ®Ơn 6. 1 item tèi ®a 6 dßng
if ID2 == 1 or ID2 == 3 or ID2 == 5 then --§©y lµ nh÷ng dßng hiÖn, kh«ng yªu cÇu ng̣ hµnh
local tb = {
"<dec><npc>H·y lùa chän tƯnh n¨ng mµ ng­¬i muèn.",
}
for i=1,getn(tbBuyMagic[ID1]) do
if tbBuyMagic[ID1][i][2] == 1 then
tinsert(tb,tbBuyMagic[ID1][i][1].."/#BuyMagicType3("..ID2..","..tbBuyMagic[ID1][i][4]..","..ID1..","..tbBuyMagic[ID1][i][3]..")")
end
end
tinsert(tb,"Tho¸t./Quit")
CreateTaskSay(tb)
else --B©y giê tøc lµ ID2 = 2 4 6 c¸c dßng Èn, c¸c dßng nµy sÏ cÇn că ng̣ hµnh.
local tb = {
"<dec><npc>H·y lùa chän tƯnh n¨ng mµ ng­¬i muèn."
}
for i=1,getn(tbBuyMagic[ID1]) do
if tbBuyMagic[ID1][i][2] == 0 then
tinsert(tb,tbBuyMagic[ID1][i][1].."/#BuyMagicType3("..ID2..","..tbBuyMagic[ID1][i][4]..","..ID1..","..tbBuyMagic[ID1][i][3]..")")
end
end
tinsert(tb,"Tho¸t./Quit")
CreateTaskSay(tb)
end
end
function BuyMagicType3(Op1,Op2,Op3,Op4)
--Op1 lµ lùa chän dßng mÊy
--Op 2 lµ ID option
--Op3 lµ lùa chän ṿ khƯ hay quÇn ¸o tơ BuyMagicType()
--Op4 lµ ng̣ hµnh, nƠu lµ 99 th× ko că ng̣ hµnh
if Op3 == 1 then --Lùa chän ṿ khƯ
if Op4 == 99 then --Kh«ng că ng̣ hµnh tøc c¸c dßng hiÖn
local magictype1, p1
while magictype1~=Op2 do
local Item = AddItem(0,1,0,10,0,100,10)
magictype1, p1 = GetItemMagicAttrib(Item,Op1)
if magictype1 ~= Op2 then
RemoveItemByIndex(Item)
end
end
else --Lóc nµy Op4 kh¸c 99 tøc c¸c option Èn
local magictype2, p2
while magictype2~=Op2 do
local Item = AddItem(0,1,0,10,Op4,100,10)
magictype2, p2 = GetItemMagicAttrib(Item,Op1)
if magictype2 ~= Op2 then
RemoveItemByIndex(Item)
end
end
end
else --NƠu lùa chän quÇn ¸o
if Op2 == 111 then --Tèc ch¹y chØ giÇy míi că
a,b,c = 0,5,0
elseif Op2 == 117 or Op2 == 113 then --ChØ că ë ¸o, phôc håi vµ ph¶n ®ßn
a,b,c = 0,2,1
else
a,b,c = 0,6,0
end
if Op4 == 99 then --kh«ng că ng̣ hµnh
local magictype, p
while magictype~=Op2 do
local Item = AddItem(a,b,c,10,0,100,10)
magictype, p = GetItemMagicAttrib(Item,Op1)
if magictype ~= Op2 then
RemoveItemByIndex(Item)
end
end
else
local magictype, p
while magictype~=Op2 do
local Item = AddItem(a,b,c,10,Op4,100,10)
magictype, p = GetItemMagicAttrib(Item,Op1)
if magictype ~= Op2 then
RemoveItemByIndex(Item)
end
end
end
end
end

tamdaugiay
07-06-19, 02:20 PM
Cám ơn những người tâm huyết như bác, cho e xin địa chỉ facebook bác với.
Thú thật e chưa biết add ạ :(

f-fantasy
07-06-19, 05:56 PM
Cám ơn những người tâm huyết như bác, cho e xin địa chỉ facebook bác với.
Thú thật e chưa biết add ạ :(

Ủa bạn add thêm 1 con NPC nào đó rồi add cái script này vào thôi. Hoặc giả thêm nó vào 1 con npc có sẵn ý.

tamdaugiay
08-06-19, 06:01 AM
Ủa bạn add thêm 1 con NPC nào đó rồi add cái script này vào thôi. Hoặc giả thêm nó vào 1 con npc có sẵn ý.

Em hỏi vấn đề khác bác ơi
charrrrrrrrrrrrrrrrrr

vikingnguyen
10-10-19, 10:00 PM
Với nhu cầu chơi offline tự sướng việc kiếm đồ xanh với dòng mong muốn làm phôi ép trang bị tím oải quá nên mình làm cái script này để nhận trang bị xanh mong muốn
Ví dụ : Muốn Vũ Khí có dòng 1 là Tốc độ đánh, hay dòng 4 là Kháng Băng chẳng hạn.
Vì là để làm phôi cho nên chỉ cần 1 dòng thôi.
Cách thức script hoạt động : Nó sẽ lặp với vòng While. Đầu tiên là add 1 item xanh 1 cách thông thường rồi check xem nó có cái option ta đã chọn không. Nếu không có nó sẽ xóa item đi và lặp lại. Cứ thế đến khi nào có option ta cần thì thôi. Tất nhiên với 1 dòng lựa chọn sẽ lặp rất nhanh, khoảng 10 hay 20 vòng lặp là xong rồi.
Clip Demo : <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>
Đây là script. Mình nghĩ là mình chú thích khá rõ và đầy đủ trong script rồi.
Chúc các thím tự sướng zui ze


Include("\\script\\dailogsys\\dailogsay.lua");
Include("\\script\\global\\jingli.lua")

tbBuyMagic = {
[1] = { --ṿ khƯ
--Tªn option, Op hiÖn lµ 1 Èn lµ 0, ng̣ hµnh 99 lµ kh«ng că v× option hiÖn, 126 lµ ID option, sè 10 ë cuèi lµ MAGATTRLVL_END trong magicattriblevel_index. Dïng cho ®å tƯm, option max
{"S¸t th­¬ng vËt lư ngo¹i c«ng (%)",1,99,126,10},
{"Tû lÖ c«ng kƯch chƯnh x¸c",1,99,166,20},
{"Tèc ®é ®¸nh ngo¹i c«ng",1,99,115,30},
{"Bá qua nĐ tr¸nh",1,99,58,40},
{"Hót sinh lùc",1,99,136,130},
{"Hót néi lùc",1,99,137,140},
{"Sinh lùc",1,99,85,150},
{"Néi lùc",1,99,89,160},
--Tªn option. Option Èn lµ 0, ng̣ hµnh 0 lµ Kim, ID option 121
{"STVL ngo¹i c«ng ®iÓm (Kim)",0,0,121,220},
{"§éc s¸t ngo¹i c«ng (Méc)",0,1,125,230},
{"B¨ng s¸t ngo¹i c«ng(Thñy)",0,2,123,240},
--{"Háa s¸t ngo¹i c«ng(Háa)",0,3,122},
--{"L«i s¸t ngo¹i c«ng(Thæ)",0,4,124},
{"Kh¸ng ®éc (Kim)",0,0,101,290},
{"Kh¸ng b¨ng (Thæ)",0,4,105,300},
{"Kh¸ng háa (Thñy)",0,2,102,310},
{"Kh¸ng l«i (Méc)",0,1,103,320},
{"Thêi gian cho¸ng (Thñy)",0,2,110,340},
{"Thêi gian lµm chËm (Háa)",0,3,106,360},
{"Thêi gian tróng ®éc (Thæ)",0,4,108,380},
{"STVL néi c«ng (Kim)",0,0,168,440},
{"B¨ng s¸t néi c«ng (Thñy)",0,2,169,450},
{"Háa s¸t néi c«ng (Háa)",0,3,170,460},
{"L«i s¸t néi c«ng (Thæ)",0,4,171,470},
{"§éc s¸t néi c«ng (Méc)",0,1,172,480},
},
[2] = { --trang b̃ kh¸c
--{"OptionName",a,b,c,d,e},
--OptionName : Tªn option, tªn nµo c̣ng ®­îc chØ ®Ó hiÓn th̃ th«i
--a : 0 - Option Èn 1-Option hiÖn
--b : Ng̣ hµnh, 0-Kim 1-Méc 2-Thñy 3-Háa 4-Thæ 99-Kh«ng ng̣ hµnh
--c : ID Option trong magicattriblevel hoÆc magicattriblevel_index
--d : Lµ MAGATTRLVL_END trong magicattriblevel_index
--f : 5-Option chØ că giÇy 2-ChØ că ¸o 99-Lo¹i g× c̣ng că
{"Tèc ®é di chuyÓn (GiÇy)",1,99,111,70,{5}}, --ChØ giÇy míi că
{"Ph¶n ®ßn vËt lư (¸o)",1,99,117,80,{2}}, --¸o
{"Thêi gian phôc håi (¸o)",1,99,113,90,{2}}, --chØ ¸o
{"Sinh lùc",1,99,85,150,{2,5,6,7,8}},
{"Néi lùc",1,99,89,160,{2,5,6,7,8}},
{"Phôc håi sinh lùc",1,99,88,180,{2,5,6,7,8}},
{"ChuyÓn hăa s¸t th­¬ng thµnh néi lùc (Kim)",0,0,134,270,{2,5,6,7,8}},
{"Phßng thñ vËt lư (Háa)",0,3,104,280,{2,5,6,7,8}},
{"Kh¸ng ®éc (Kim)",0,0,101,290,{2,5,6,7,8}},
{"Kh¸ng b¨ng (Thæ)",0,4,105,300,{2,5,6,7,8}},
{"Kh¸ng háa (Thñy)",0,2,102,310,{2,5,6,7,8}},
{"Kh¸ng l«i (Méc)",0,1,103,320,{2,5,6,7,8}},
{"Thêi gian cho¸ng (Thñy)",0,2,110,340,{2,5,6,7,8}},
{"Thêi gian lµm chËm (Háa)",0,3,106,360,{2,5,6,7,8}},
{"Th©n ph¸p (Háa)",0,3,98,370,{2,5,6,7,8}},
{"Thêi gian tróng ®éc (Thæ)",0,4,108,380,{2,5,6,7,8}},
},
}
function main()
dofile("script/00ff/npc/thuongnhantayvuc.lua")
local tab_Content = {
"Mua ph«i trang b̃ tƯm./BuyMagicType", --Vơa lµ ph«i vơa lµ vËt phÈm cho Q D· TÈu
"Mua trang b̃ tƯm./dotim", --Mua ®å xong lµ kh¶m n¹m xong råi
"KƠt thóc ®èi tho¹i./Quit"
}
Say("<enter>C¸c trang b̃ xanh, ta ph©n ph¸t miÔn phƯ.<enter>Ṽ ®¹i hiÖp nµy muèn mua g× ? ", getn(tab_Content), tab_Content);
end
function BuyMagicType()
local tb = {
"<dec><npc>Ta că mét Ưt trang b̃ xanh víi c¸c tƯnh n¨ng că s½n, ch¼ng hay ng­¬i că muèn mua hay kh«ng? Ta b¸n 500 v¹n l­îng 1 măn mµ th«i.",
"Cho ta mua ph«i ṿ khƯ./#BuyMagicType1(1)", --1 lµ ṿ khƯ
"Cho ta mua ph«i trang b̃ kh¸c./#BuyMagicType1(2)", --2 lµ quÇn ¸o giÇy ṃ ®ai l­ng g¨ng tay
"Quay l¹i.",
"Tho¸t./Quit",
}
CreateTaskSay(tb)
end
function BuyMagicType1(ID)
local tb = {
"<dec><npc>Ta că mét Ưt trang b̃ xanh, c¸c tƯnh n¨ng că s½n . Ng­¬i că muèn mua kh«ng?.",
"Mua ph«i dßng 1./#BuyMagicType2("..ID..",1)",
"Mua ph«i dßng 2./#BuyMagicType2("..ID..",2)",
"Mua ph«i dßng 3./#BuyMagicType2("..ID..",3)",
"Mua ph«i dßng 4./#BuyMagicType2("..ID..",4)",
"Mua ph«i dßng 5./#BuyMagicType2("..ID..",5)",
"Mua ph«i dßng 6./#BuyMagicType2("..ID..",6)",
"Quay l¹i./main",
"Tho¸t./Quit",
}
CreateTaskSay(tb)
end
function BuyMagicType2(ID1,ID2)
--ID1 lµ 1 lµ ṿ khƯ, 2 lµ thø cßn l¹i nh­ ¸o m? giÇy.....
--ID2 lµ sè dßng tơ 1 ®Ơn 6. 1 item tèi ®a 6 dßng
if ID2 == 1 or ID2 == 3 or ID2 == 5 then --§©y lµ nh÷ng dßng hiÖn, kh«ng yªu cÇu ng̣ hµnh
local tb = {
"<dec><npc>H·y lùa chän tƯnh n¨ng mµ ng­¬i muèn.",
}
for i=1,getn(tbBuyMagic[ID1]) do
if tbBuyMagic[ID1][i][2] == 1 then
tinsert(tb,tbBuyMagic[ID1][i][1].."/#BuyMagicType3("..ID2..","..tbBuyMagic[ID1][i][4]..","..ID1..","..tbBuyMagic[ID1][i][3]..")")
end
end
tinsert(tb,"Tho¸t./Quit")
CreateTaskSay(tb)
else --B©y giê tøc lµ ID2 = 2 4 6 c¸c dßng Èn, c¸c dßng nµy sÏ cÇn că ng̣ hµnh.
local tb = {
"<dec><npc>H·y lùa chän tƯnh n¨ng mµ ng­¬i muèn."
}
for i=1,getn(tbBuyMagic[ID1]) do
if tbBuyMagic[ID1][i][2] == 0 then
tinsert(tb,tbBuyMagic[ID1][i][1].."/#BuyMagicType3("..ID2..","..tbBuyMagic[ID1][i][4]..","..ID1..","..tbBuyMagic[ID1][i][3]..")")
end
end
tinsert(tb,"Tho¸t./Quit")
CreateTaskSay(tb)
end
end
function BuyMagicType3(Op1,Op2,Op3,Op4)
--Op1 lµ lùa chän dßng mÊy
--Op 2 lµ ID option
--Op3 lµ lùa chän ṿ khƯ hay quÇn ¸o tơ BuyMagicType()
--Op4 lµ ng̣ hµnh, nƠu lµ 99 th× ko că ng̣ hµnh
if Op3 == 1 then --Lùa chän ṿ khƯ
if Op4 == 99 then --Kh«ng că ng̣ hµnh tøc c¸c dßng hiÖn
local magictype1, p1
while magictype1~=Op2 do
local Item = AddItem(0,1,0,10,0,100,10)
magictype1, p1 = GetItemMagicAttrib(Item,Op1)
if magictype1 ~= Op2 then
RemoveItemByIndex(Item)
end
end
else --Lóc nµy Op4 kh¸c 99 tøc c¸c option Èn
local magictype2, p2
while magictype2~=Op2 do
local Item = AddItem(0,1,0,10,Op4,100,10)
magictype2, p2 = GetItemMagicAttrib(Item,Op1)
if magictype2 ~= Op2 then
RemoveItemByIndex(Item)
end
end
end
else --NƠu lùa chän quÇn ¸o
if Op2 == 111 then --Tèc ch¹y chØ giÇy míi că
a,b,c = 0,5,0
elseif Op2 == 117 or Op2 == 113 then --ChØ că ë ¸o, phôc håi vµ ph¶n ®ßn
a,b,c = 0,2,1
else
a,b,c = 0,6,0
end
if Op4 == 99 then --kh«ng că ng̣ hµnh
local magictype, p
while magictype~=Op2 do
local Item = AddItem(a,b,c,10,0,100,10)
magictype, p = GetItemMagicAttrib(Item,Op1)
if magictype ~= Op2 then
RemoveItemByIndex(Item)
end
end
else
local magictype, p
while magictype~=Op2 do
local Item = AddItem(a,b,c,10,Op4,100,10)
magictype, p = GetItemMagicAttrib(Item,Op1)
if magictype ~= Op2 then
RemoveItemByIndex(Item)
end
end
end
end
end

Mình add code vào Tân Thủ Lệnh xong mở lên đươc 1 lần lấy phôi xong nó mất cái lệnh bài luôn là sao vậy ạ ?

f-fantasy
10-11-19, 12:01 AM
Mình add code vào Tân Thủ Lệnh xong mở lên đươc 1 lần lấy phôi xong nó mất cái lệnh bài luôn là sao vậy ạ ?

Code này mình để add cho 1 npc ở server mình chơi. Còn nếu bạn add vào 1 item thì trong function main() thêm cái return 1 vào sẽ ko mất item

vikingnguyen
10-11-19, 12:07 PM
Với nhu cầu chơi offline tự sướng việc kiếm đồ xanh với dòng mong muốn làm phôi ép trang bị tím oải quá nên mình làm cái script này để nhận trang bị xanh mong muốn
Ví dụ : Muốn Vũ Khí có dòng 1 là Tốc độ đánh, hay dòng 4 là Kháng Băng chẳng hạn.
Vì là để làm phôi cho nên chỉ cần 1 dòng thôi.
Cách thức script hoạt động : Nó sẽ lặp với vòng While. Đầu tiên là add 1 item xanh 1 cách thông thường rồi check xem nó có cái option ta đã chọn không. Nếu không có nó sẽ xóa item đi và lặp lại. Cứ thế đến khi nào có option ta cần thì thôi. Tất nhiên với 1 dòng lựa chọn sẽ lặp rất nhanh, khoảng 10 hay 20 vòng lặp là xong rồi.
Clip Demo : <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>
Đây là script. Mình nghĩ là mình chú thích khá rõ và đầy đủ trong script rồi.
Chúc các thím tự sướng zui ze


Include("\\script\\dailogsys\\dailogsay.lua");
Include("\\script\\global\\jingli.lua")

tbBuyMagic = {
[1] = { --ṿ khƯ
--Tªn option, Op hiÖn lµ 1 Èn lµ 0, ng̣ hµnh 99 lµ kh«ng că v× option hiÖn, 126 lµ ID option, sè 10 ë cuèi lµ MAGATTRLVL_END trong magicattriblevel_index. Dïng cho ®å tƯm, option max
{"S¸t th­¬ng vËt lư ngo¹i c«ng (%)",1,99,126,10},
{"Tû lÖ c«ng kƯch chƯnh x¸c",1,99,166,20},
{"Tèc ®é ®¸nh ngo¹i c«ng",1,99,115,30},
{"Bá qua nĐ tr¸nh",1,99,58,40},
{"Hót sinh lùc",1,99,136,130},
{"Hót néi lùc",1,99,137,140},
{"Sinh lùc",1,99,85,150},
{"Néi lùc",1,99,89,160},
--Tªn option. Option Èn lµ 0, ng̣ hµnh 0 lµ Kim, ID option 121
{"STVL ngo¹i c«ng ®iÓm (Kim)",0,0,121,220},
{"§éc s¸t ngo¹i c«ng (Méc)",0,1,125,230},
{"B¨ng s¸t ngo¹i c«ng(Thñy)",0,2,123,240},
--{"Háa s¸t ngo¹i c«ng(Háa)",0,3,122},
--{"L«i s¸t ngo¹i c«ng(Thæ)",0,4,124},
{"Kh¸ng ®éc (Kim)",0,0,101,290},
{"Kh¸ng b¨ng (Thæ)",0,4,105,300},
{"Kh¸ng háa (Thñy)",0,2,102,310},
{"Kh¸ng l«i (Méc)",0,1,103,320},
{"Thêi gian cho¸ng (Thñy)",0,2,110,340},
{"Thêi gian lµm chËm (Háa)",0,3,106,360},
{"Thêi gian tróng ®éc (Thæ)",0,4,108,380},
{"STVL néi c«ng (Kim)",0,0,168,440},
{"B¨ng s¸t néi c«ng (Thñy)",0,2,169,450},
{"Háa s¸t néi c«ng (Háa)",0,3,170,460},
{"L«i s¸t néi c«ng (Thæ)",0,4,171,470},
{"§éc s¸t néi c«ng (Méc)",0,1,172,480},
},
[2] = { --trang b̃ kh¸c
--{"OptionName",a,b,c,d,e},
--OptionName : Tªn option, tªn nµo c̣ng ®­îc chØ ®Ó hiÓn th̃ th«i
--a : 0 - Option Èn 1-Option hiÖn
--b : Ng̣ hµnh, 0-Kim 1-Méc 2-Thñy 3-Háa 4-Thæ 99-Kh«ng ng̣ hµnh
--c : ID Option trong magicattriblevel hoÆc magicattriblevel_index
--d : Lµ MAGATTRLVL_END trong magicattriblevel_index
--f : 5-Option chØ că giÇy 2-ChØ că ¸o 99-Lo¹i g× c̣ng că
{"Tèc ®é di chuyÓn (GiÇy)",1,99,111,70,{5}}, --ChØ giÇy míi că
{"Ph¶n ®ßn vËt lư (¸o)",1,99,117,80,{2}}, --¸o
{"Thêi gian phôc håi (¸o)",1,99,113,90,{2}}, --chØ ¸o
{"Sinh lùc",1,99,85,150,{2,5,6,7,8}},
{"Néi lùc",1,99,89,160,{2,5,6,7,8}},
{"Phôc håi sinh lùc",1,99,88,180,{2,5,6,7,8}},
{"ChuyÓn hăa s¸t th­¬ng thµnh néi lùc (Kim)",0,0,134,270,{2,5,6,7,8}},
{"Phßng thñ vËt lư (Háa)",0,3,104,280,{2,5,6,7,8}},
{"Kh¸ng ®éc (Kim)",0,0,101,290,{2,5,6,7,8}},
{"Kh¸ng b¨ng (Thæ)",0,4,105,300,{2,5,6,7,8}},
{"Kh¸ng háa (Thñy)",0,2,102,310,{2,5,6,7,8}},
{"Kh¸ng l«i (Méc)",0,1,103,320,{2,5,6,7,8}},
{"Thêi gian cho¸ng (Thñy)",0,2,110,340,{2,5,6,7,8}},
{"Thêi gian lµm chËm (Háa)",0,3,106,360,{2,5,6,7,8}},
{"Th©n ph¸p (Háa)",0,3,98,370,{2,5,6,7,8}},
{"Thêi gian tróng ®éc (Thæ)",0,4,108,380,{2,5,6,7,8}},
},
}
function main()
dofile("script/00ff/npc/thuongnhantayvuc.lua")
local tab_Content = {
"Mua ph«i trang b̃ tƯm./BuyMagicType", --Vơa lµ ph«i vơa lµ vËt phÈm cho Q D· TÈu
"Mua trang b̃ tƯm./dotim", --Mua ®å xong lµ kh¶m n¹m xong råi
"KƠt thóc ®èi tho¹i./Quit"
}
Say("<enter>C¸c trang b̃ xanh, ta ph©n ph¸t miÔn phƯ.<enter>Ṽ ®¹i hiÖp nµy muèn mua g× ? ", getn(tab_Content), tab_Content);
end
function BuyMagicType()
local tb = {
"<dec><npc>Ta că mét Ưt trang b̃ xanh víi c¸c tƯnh n¨ng că s½n, ch¼ng hay ng­¬i că muèn mua hay kh«ng? Ta b¸n 500 v¹n l­îng 1 măn mµ th«i.",
"Cho ta mua ph«i ṿ khƯ./#BuyMagicType1(1)", --1 lµ ṿ khƯ
"Cho ta mua ph«i trang b̃ kh¸c./#BuyMagicType1(2)", --2 lµ quÇn ¸o giÇy ṃ ®ai l­ng g¨ng tay
"Quay l¹i.",
"Tho¸t./Quit",
}
CreateTaskSay(tb)
end
function BuyMagicType1(ID)
local tb = {
"<dec><npc>Ta că mét Ưt trang b̃ xanh, c¸c tƯnh n¨ng că s½n . Ng­¬i că muèn mua kh«ng?.",
"Mua ph«i dßng 1./#BuyMagicType2("..ID..",1)",
"Mua ph«i dßng 2./#BuyMagicType2("..ID..",2)",
"Mua ph«i dßng 3./#BuyMagicType2("..ID..",3)",
"Mua ph«i dßng 4./#BuyMagicType2("..ID..",4)",
"Mua ph«i dßng 5./#BuyMagicType2("..ID..",5)",
"Mua ph«i dßng 6./#BuyMagicType2("..ID..",6)",
"Quay l¹i./main",
"Tho¸t./Quit",
}
CreateTaskSay(tb)
end
function BuyMagicType2(ID1,ID2)
--ID1 lµ 1 lµ ṿ khƯ, 2 lµ thø cßn l¹i nh­ ¸o m? giÇy.....
--ID2 lµ sè dßng tơ 1 ®Ơn 6. 1 item tèi ®a 6 dßng
if ID2 == 1 or ID2 == 3 or ID2 == 5 then --§©y lµ nh÷ng dßng hiÖn, kh«ng yªu cÇu ng̣ hµnh
local tb = {
"<dec><npc>H·y lùa chän tƯnh n¨ng mµ ng­¬i muèn.",
}
for i=1,getn(tbBuyMagic[ID1]) do
if tbBuyMagic[ID1][i][2] == 1 then
tinsert(tb,tbBuyMagic[ID1][i][1].."/#BuyMagicType3("..ID2..","..tbBuyMagic[ID1][i][4]..","..ID1..","..tbBuyMagic[ID1][i][3]..")")
end
end
tinsert(tb,"Tho¸t./Quit")
CreateTaskSay(tb)
else --B©y giê tøc lµ ID2 = 2 4 6 c¸c dßng Èn, c¸c dßng nµy sÏ cÇn că ng̣ hµnh.
local tb = {
"<dec><npc>H·y lùa chän tƯnh n¨ng mµ ng­¬i muèn."
}
for i=1,getn(tbBuyMagic[ID1]) do
if tbBuyMagic[ID1][i][2] == 0 then
tinsert(tb,tbBuyMagic[ID1][i][1].."/#BuyMagicType3("..ID2..","..tbBuyMagic[ID1][i][4]..","..ID1..","..tbBuyMagic[ID1][i][3]..")")
end
end
tinsert(tb,"Tho¸t./Quit")
CreateTaskSay(tb)
end
end
function BuyMagicType3(Op1,Op2,Op3,Op4)
--Op1 lµ lùa chän dßng mÊy
--Op 2 lµ ID option
--Op3 lµ lùa chän ṿ khƯ hay quÇn ¸o tơ BuyMagicType()
--Op4 lµ ng̣ hµnh, nƠu lµ 99 th× ko că ng̣ hµnh
if Op3 == 1 then --Lùa chän ṿ khƯ
if Op4 == 99 then --Kh«ng că ng̣ hµnh tøc c¸c dßng hiÖn
local magictype1, p1
while magictype1~=Op2 do
local Item = AddItem(0,1,0,10,0,100,10)
magictype1, p1 = GetItemMagicAttrib(Item,Op1)
if magictype1 ~= Op2 then
RemoveItemByIndex(Item)
end
end
else --Lóc nµy Op4 kh¸c 99 tøc c¸c option Èn
local magictype2, p2
while magictype2~=Op2 do
local Item = AddItem(0,1,0,10,Op4,100,10)
magictype2, p2 = GetItemMagicAttrib(Item,Op1)
if magictype2 ~= Op2 then
RemoveItemByIndex(Item)
end
end
end
else --NƠu lùa chän quÇn ¸o
if Op2 == 111 then --Tèc ch¹y chØ giÇy míi că
a,b,c = 0,5,0
elseif Op2 == 117 or Op2 == 113 then --ChØ că ë ¸o, phôc håi vµ ph¶n ®ßn
a,b,c = 0,2,1
else
a,b,c = 0,6,0
end
if Op4 == 99 then --kh«ng că ng̣ hµnh
local magictype, p
while magictype~=Op2 do
local Item = AddItem(a,b,c,10,0,100,10)
magictype, p = GetItemMagicAttrib(Item,Op1)
if magictype ~= Op2 then
RemoveItemByIndex(Item)
end
end
else
local magictype, p
while magictype~=Op2 do
local Item = AddItem(a,b,c,10,Op4,100,10)
magictype, p = GetItemMagicAttrib(Item,Op1)
if magictype ~= Op2 then
RemoveItemByIndex(Item)
end
end
end
end
end

Mình muốn add thêm dòng kỹ năng vốn có thì sao ạ ? Thanks chủ topic

f-fantasy
11-11-19, 06:37 PM
Mình muốn add thêm dòng kỹ năng vốn có thì sao ạ ? Thanks chủ topic

Viết thêm Option cho nó thôi. Tìm ID của option đó, option chỉ xuất hiện trên loại item nào. Rồi viết hàm xử lý thôi. Nhưng mình ko chỉ tận tình cho bạn hay viết sẵn được vì hiện tại mình lại ngưng nghịch võ lâm rùi :v.