Kết quả 1 đến 6 của 6
Chủ đề: Cho hỏi Script lạ...!!
-
08-10-10, 10:08 PM #1
- Ngày tham gia
- Jul 2009
- Bài viết
- 285
- Thanks
- 115
- Thanked 25 Times in 13 Posts
Cho hỏi Script lạ...!!
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...??Khách viếng thăm hãy cùng kemdenny xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
08-10-10, 11:44 PM #2
- Ngày tham gia
- Apr 2008
- Bài viết
- 12,110
- Thanks
- 662
- Thanked 3,168 Times in 1,602 Posts
Ðề: Cho hỏi Script lạ...!!
Code đó của VNG ! Vì nó dùng bộ mã TCVN3 để viết có dấu !
Và đây là .lua trong auto nên ko dùng dc cho lậu đâu !Khách viếng thăm hãy cùng thaihoa91 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
09-10-10, 10:19 AM #3
- Ngày tham gia
- Jul 2009
- Bài viết
- 285
- Thanks
- 115
- Thanked 25 Times in 13 Posts
Ðề: Cho hỏi Script lạ...!!
Những những hàm đó có thích hợp đc cho lậu ko...??
Khách viếng thăm hãy cùng kemdenny xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
09-10-10, 10:59 AM #4
- Ngày tham gia
- Apr 2008
- Bài viết
- 12,110
- Thanks
- 662
- Thanked 3,168 Times in 1,602 Posts
Ðề: Cho hỏi Script lạ...!!
Khách viếng thăm hãy cùng thaihoa91 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
10-10-10, 06:30 PM #5
- Ngày tham gia
- Jul 2009
- Bài viết
- 285
- Thanks
- 115
- Thanked 25 Times in 13 Posts
Ðề: Cho hỏi Script lạ...!!
Zậy anh Hòa cho hỏi...Soure của VNG là gì mà nó viết đc tiếng việt và vòng sáng...?? Và source của mình là soure gì ?? Có người nói soure của mình xuất hiện từ bản CTC...nhưng ở bản CTC của VNG vẫn có tiếng việt...?? Nếu như thế mình có thể chế tiếng việt cho lậu = soure của CTC đc ko ?
Khách viếng thăm hãy cùng kemdenny xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
10-10-10, 08:02 PM #6
- Ngày tham gia
- Apr 2008
- Bài viết
- 12,110
- Thanks
- 662
- Thanked 3,168 Times in 1,602 Posts
Ðề: Cho hỏi Script lạ...!!
Khách viếng thăm hãy cùng thaihoa91 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
Các Chủ đề tương tự
-
Một số script trong thư mục script Vina (unpack)
Bởi sangpronhat trong diễn đàn ScriptsTrả lời: 19Bài viết cuối: 26-11-11, 08:12 AM -
Script ủy thác rời mạng.
Bởi thachlong78 trong diễn đàn ScriptsTrả lời: 21Bài viết cuối: 28-01-10, 06:10 PM