kemdenny
08-10-10, 10:08 PM
Cho hỏi tui kiếm đc mấy cái Script này ko rõ của VNG hay của Lậu...?
--Script l蕐 + l鋍 H錸g bao
--Chia s?b雐 LeQuanVLTK
nHongBao = 0 -- S? H錸g Bao c莕 l蕐
bLocHongBao = 1 -- C?l鋍 H錸g Bao kh玭g?
-- Danh s竎h c竎 item s?s?d鬾g (C?th?th猰 ho芻 b韙 c竎 item kh竎)
tbUseList = {
"Bang H閕 th莕 m藅 h錸g bao",
"Ph骳 Duy猲 L?(Trung) ",
"Ph骳 Duy猲 L?(Ti觰) ",
-- "Thi猲 s琻 B秓 L?",
-- "B竎h Qu?L?",
-- "Ti猲 Th秓 L?",
-- "Ph骳 Duy猲 L?(Чi) "
}
-- Danh s竎h c竎 item s?頲 b竛 sau khi m?ra (C?th?th猰 ho芻 b韙 c竎 item kh竎)
tbSellListHB = {
"Phi Phong",
"Kim Phong Thanh Dng Kh玦", -- B竛 trang b?Kim Phong
"Kim Phong K?L﹏ Huy誸",
"Kim Phong 箃 H錸 Ng鋍 i",
"Kim Phong Thi猲 L?Th秓 Thng Phi",
"Kim Phong H藆 Ngh?d蒼 cung",
"Kim Phong Tr筩 Li猲 Quang",
"Kim Phong Lan ёnh Ng鋍",
"Kim Phong уng Tc Xu﹏ Th﹎",
"Kim Phong C玭g C萵 Tam Th竛",
"Thi猲 Ho祅g Long Long Уi", -- B竛 trang b?Thi猲 Ho祅g
"Thi猲 Ho祅g Long B筩h Long T鴆",
"Thi猲 Ho祅g Long Ng鋍 Ti猽 Di猽",
"Thi猲 Ho祅g Thi猲 Ho祅g Long Long Kh鑓 Thi猲 L?,
"Thi猲 Ho祅g Long Ho祅g Kim L﹏",
"Thi猲 Ho祅g Long Tr蕁 Minh Li猲",
"Thi猲 Ho祅g Long B祅 Long c玦",
"Thi猲 Ho祅g Long N?Long уng",
"Thi猲 Ho祅g Long C鰑 Hi謓 ch?,
-- "мnh Qu鑓 ?Sa Ph竧 Qu竛", -- B竛 1 s?trang b?мnh Qu鑓
-- "мnh Qu鑓 Thanh Sa Trng Sam",
"мnh Qu鑓 T?Щng H?uy觧",
"мnh Qu鑓 X輈h Quy猲 Nhuy詎 Ngoa",
"мnh Qu鑓 Ng﹏ T祄 Y猽 i"
}
-- H祄 i tho筰 v韎 NPC c?t猲 l?szNpcName
TalkToNpc = function(szNpcName, nType)
local nNpcIndex = 0
repeat
nNpcIndex = npc.GetNearest(3, 200)
until npc.GetName(nNpcIndex) == szNpcName
player.DialogNpc(nNpcIndex)
while menu.IsVisible(nType) == 0 do timer.Sleep(10) end
return 1
end
-- H祄 l鋍 H錸g Bao
lqSellItemHB = function()
local nItemIndex, nPlace, nX, nY = item.GetFirst()
while nItemIndex ~= 0 do
if nPlace == 3 then
-- Ki觤 tra xem item n祔 c?thu閏 danh s竎h c竎 item s?s?d鬾g kh玭g (Л頲 thi誸 l藀 ?table tbUseList)
for i, v in pairs(tbUseList) do
if item.GetName(nItemIndex) == v then
item.Use(nItemIndex, nPlace, nX, nY)
break
end
end
-- Ki觤 tra xem item n祔 c?thu閏 danh s竎h c竎 item s?b竛 shop haykh玭g (Л頲 thi誸 l藀 ?table tbSellListHB)
for i, v in pairs(tbSellListHB) do
if item.GetName(nItemIndex) == v then
local nBuyItem = 0
while nBuyItem <= 0 do
timer.Sleep(500)
nBuyItem = shop.Buy(nItemIndex)
end
break
end
end
end
nItemIndex, nPlace, nX, nY = item.GetNext()
timer.Sleep(10)
end
end
-- H祄 l蕐 + l鋍 H錸g Bao
LayHongBao = function()
-- N誹 ng xa NPC "T鎛g qu秐 L?ph萴 phng" th?s?di chuy觧 t韎
player.PathMoveTo(0, 0, "T鎛g qu秐 L?ph萴 phng")
-- N誹 thi誸 l藀 s?H錸g Bao kh竎 0 th?s?l蕐 ng s? thi誸 l藀
if nHongBao > 0 then
for i = 1, nHongBao do
TalkToNpc("T鎛g qu秐 L?ph萴 phng",0)
menu.ClickIndex(1,0)
while menu.IsVisible(0) == 0 do timer.Sleep(10) end
menu.ClickIndex(1,0)
timer.Sleep(10)
if math.fmod(i, 20) == 0 and bLocHongBao == 1 then
lqSellItemHB()
end
end
-- N誹 thi誸 l藀 nHongBao = 0 th?s?l蕐 n khi y h祅h trang ho芻 bang h閕 h誸 H錸g Bao)
else
local nCount = 0
while true do
nCount = nCount + 1
TalkToNpc("T鎛g qu秐 L?ph萴 phng",0)
menu.ClickIndex(1,0)
while menu.IsVisible(0) == 0 do timer.Sleep(10) end
menu.ClickIndex(1,0)
timer.Sleep(10)
if math.fmod(nCount, 20) == 0 and bLocHongBao == 1 then
lqSellItemHB()
end
end
end
end
function StopTimer()
end
function main()
LayHongBao() -- L蕐 + l鋍 H錸g Bao
end
Đó...Script này có hàm gì ko hỉu gì hết...Cấu trúc cũng rất lạ...
Ai giải đáp thử....!!
*Sẵn tiện cho hỏi cách đóng khung code hoặc trích trong bài viết của mình dc ko...?? 8-}
--Script l蕐 + l鋍 H錸g bao
--Chia s?b雐 LeQuanVLTK
nHongBao = 0 -- S? H錸g Bao c莕 l蕐
bLocHongBao = 1 -- C?l鋍 H錸g Bao kh玭g?
-- Danh s竎h c竎 item s?s?d鬾g (C?th?th猰 ho芻 b韙 c竎 item kh竎)
tbUseList = {
"Bang H閕 th莕 m藅 h錸g bao",
"Ph骳 Duy猲 L?(Trung) ",
"Ph骳 Duy猲 L?(Ti觰) ",
-- "Thi猲 s琻 B秓 L?",
-- "B竎h Qu?L?",
-- "Ti猲 Th秓 L?",
-- "Ph骳 Duy猲 L?(Чi) "
}
-- Danh s竎h c竎 item s?頲 b竛 sau khi m?ra (C?th?th猰 ho芻 b韙 c竎 item kh竎)
tbSellListHB = {
"Phi Phong",
"Kim Phong Thanh Dng Kh玦", -- B竛 trang b?Kim Phong
"Kim Phong K?L﹏ Huy誸",
"Kim Phong 箃 H錸 Ng鋍 i",
"Kim Phong Thi猲 L?Th秓 Thng Phi",
"Kim Phong H藆 Ngh?d蒼 cung",
"Kim Phong Tr筩 Li猲 Quang",
"Kim Phong Lan ёnh Ng鋍",
"Kim Phong уng Tc Xu﹏ Th﹎",
"Kim Phong C玭g C萵 Tam Th竛",
"Thi猲 Ho祅g Long Long Уi", -- B竛 trang b?Thi猲 Ho祅g
"Thi猲 Ho祅g Long B筩h Long T鴆",
"Thi猲 Ho祅g Long Ng鋍 Ti猽 Di猽",
"Thi猲 Ho祅g Thi猲 Ho祅g Long Long Kh鑓 Thi猲 L?,
"Thi猲 Ho祅g Long Ho祅g Kim L﹏",
"Thi猲 Ho祅g Long Tr蕁 Minh Li猲",
"Thi猲 Ho祅g Long B祅 Long c玦",
"Thi猲 Ho祅g Long N?Long уng",
"Thi猲 Ho祅g Long C鰑 Hi謓 ch?,
-- "мnh Qu鑓 ?Sa Ph竧 Qu竛", -- B竛 1 s?trang b?мnh Qu鑓
-- "мnh Qu鑓 Thanh Sa Trng Sam",
"мnh Qu鑓 T?Щng H?uy觧",
"мnh Qu鑓 X輈h Quy猲 Nhuy詎 Ngoa",
"мnh Qu鑓 Ng﹏ T祄 Y猽 i"
}
-- H祄 i tho筰 v韎 NPC c?t猲 l?szNpcName
TalkToNpc = function(szNpcName, nType)
local nNpcIndex = 0
repeat
nNpcIndex = npc.GetNearest(3, 200)
until npc.GetName(nNpcIndex) == szNpcName
player.DialogNpc(nNpcIndex)
while menu.IsVisible(nType) == 0 do timer.Sleep(10) end
return 1
end
-- H祄 l鋍 H錸g Bao
lqSellItemHB = function()
local nItemIndex, nPlace, nX, nY = item.GetFirst()
while nItemIndex ~= 0 do
if nPlace == 3 then
-- Ki觤 tra xem item n祔 c?thu閏 danh s竎h c竎 item s?s?d鬾g kh玭g (Л頲 thi誸 l藀 ?table tbUseList)
for i, v in pairs(tbUseList) do
if item.GetName(nItemIndex) == v then
item.Use(nItemIndex, nPlace, nX, nY)
break
end
end
-- Ki觤 tra xem item n祔 c?thu閏 danh s竎h c竎 item s?b竛 shop haykh玭g (Л頲 thi誸 l藀 ?table tbSellListHB)
for i, v in pairs(tbSellListHB) do
if item.GetName(nItemIndex) == v then
local nBuyItem = 0
while nBuyItem <= 0 do
timer.Sleep(500)
nBuyItem = shop.Buy(nItemIndex)
end
break
end
end
end
nItemIndex, nPlace, nX, nY = item.GetNext()
timer.Sleep(10)
end
end
-- H祄 l蕐 + l鋍 H錸g Bao
LayHongBao = function()
-- N誹 ng xa NPC "T鎛g qu秐 L?ph萴 phng" th?s?di chuy觧 t韎
player.PathMoveTo(0, 0, "T鎛g qu秐 L?ph萴 phng")
-- N誹 thi誸 l藀 s?H錸g Bao kh竎 0 th?s?l蕐 ng s? thi誸 l藀
if nHongBao > 0 then
for i = 1, nHongBao do
TalkToNpc("T鎛g qu秐 L?ph萴 phng",0)
menu.ClickIndex(1,0)
while menu.IsVisible(0) == 0 do timer.Sleep(10) end
menu.ClickIndex(1,0)
timer.Sleep(10)
if math.fmod(i, 20) == 0 and bLocHongBao == 1 then
lqSellItemHB()
end
end
-- N誹 thi誸 l藀 nHongBao = 0 th?s?l蕐 n khi y h祅h trang ho芻 bang h閕 h誸 H錸g Bao)
else
local nCount = 0
while true do
nCount = nCount + 1
TalkToNpc("T鎛g qu秐 L?ph萴 phng",0)
menu.ClickIndex(1,0)
while menu.IsVisible(0) == 0 do timer.Sleep(10) end
menu.ClickIndex(1,0)
timer.Sleep(10)
if math.fmod(nCount, 20) == 0 and bLocHongBao == 1 then
lqSellItemHB()
end
end
end
end
function StopTimer()
end
function main()
LayHongBao() -- L蕐 + l鋍 H錸g Bao
end
Đó...Script này có hàm gì ko hỉu gì hết...Cấu trúc cũng rất lạ...
Ai giải đáp thử....!!
*Sẵn tiện cho hỏi cách đóng khung code hoặc trích trong bài viết của mình dc ko...?? 8-}