*~°¤*(¯`*Diễn đàn của bang hội Thần Võ*´¯)*¤°~*
CÁM ƠN BẠN QUAY TRỞ LẠI DIỄN ĐÀN ,CHÚC CÁC BẠN VUI VẺ

*~°¤*(¯`*Diễn đàn của bang hội Thần Võ*´¯)*¤°~*

º-:¦:-° Welcome: Các Bạn đến với Thần Võ Bangº-:¦:-°
 
Trang chủIndexCalendarGalleryTrợ giúpTìm kiếmNhómĐăng kýĐăng Nhập

Chào Mừng Bạn Đã Đến Với Diễn Đàn Bang Thần Võ Của Chúng Tôi!

Diễn Đàn Thần Võ ra đời với mong muốn sẽ là nơi để mọi người quy tụ
cùng nhau học hỏi, thư giãn và chia sẻ mọi nỗi buồn vui trong cuộc sống,
là nơi tình bạn được vinh danh, cho dù đó chỉ là những con người ảo
nhưng ẩn bên trong là những trái tim đầy ấp chân tình và niềm tin yêu đáng quý.
Chúc các bạn luôn hạnh phúc và thành công trong cuộc sống
Ban Quản Trị Chúc Bạn Giải Trí Vui Vẻ!

Đầu trang
Giữa trang
Cuối trang

Share|

AUTO VUOT AI ( VAO PHAN talkandclick.lua SOA BO HET COPY PHAN DUOI BO VAO

Xem chủ đề cũ hơn
Xem chủ đề mới hơn
Go down
Tác giảThông điệp
Admin
Giọt Nắng Phù Sa@1
Giọt Nắng Phù Sa@1
Nam
Cancer
Snake
Tổng số bài gửi : 234
Điểm : 2786
Danh Vọng : 13
Birthday : 02/07/1977
Tuổi : 39
Join date : 01/12/2010
Đến từ : Bang thần võ
Humor : >*~°¤*(¯`*Tình một đêm*´¯)*¤°~*
Tài Sản của : Admin
Bài gửiTiêu đề: AUTO VUOT AI ( VAO PHAN talkandclick.lua SOA BO HET COPY PHAN DUOI BO VAO Mon May 16, 2011 7:47 am

.....................(¯°º•.¸?¯°•.¸_[Bạn]-[Bè]-[Tôi]_¸.•°¯?¸.•º°¯).....................
-- Script lay Moc Nhan
-- Chia se boi LeQuanVLTK

--------------------------------------------------------------------------------
szNpcName = "NhiÕp ThÝ TrÇn" -- Ten NPC can doi thoai
tbClickLine = {1, 1, 1} -- Dong can chon (Script se click theo thu tu dong 6 -> 2 -> 2 - >2)
nRepeat = 0 -- So lan lap ( 0 : lap khong gioi han)
--------------------------------------------------------------------------------
nDelay = 200

-- Hµm ®èi tho¹i víi NPC cã tªn lµ szNpcName
TalkToNpc = function(szNpcName)
local nPlrX, nPlrY = player.GetMapPos()
local nNpcX, nNpcY = 0, 0
local nIndex = 0
local nDistance = 10000
for i = 2, 255 do
if system.MatchString(npc.GetName(i), szNpcName) ~= 0 then
nNpcX, nNpcY = npc.GetMapPos(i)
if (nPlrX - nNpcX) * (nPlrX - nNpcX) + (nPlrY - nNpcY) * (nPlrY - nNpcY) < nDistance * nDistance then
nDistance = math.sqrt((nPlrX - nNpcX) * (nPlrX - nNpcX) + (nPlrY - nNpcY) * (nPlrY - nNpcY))
nIndex = i
end
end
end

nNpcX, nNpcY = npc.GetMapPos(nIndex)
if (nPlrX - nNpcX)*(nPlrX - nNpcX) + (nPlrY - nNpcY) * (nPlrY - nNpcY) > 65 * 65 then
player.MoveTo(nNpcX, nNpcY)
else
player.DialogNpc(nIndex)
end
end

IsMenuVisible = function()
if menu.IsVisible(0) ~= 0 or menu.IsVisible(1) ~= 0 then
return 1
end
return 0
end

GetMenuText = function(nIndex)
if menu.IsVisible(0) ~= 0 then
return menu.GetText(0, nIndex)
end

if menu.IsVisible(1) ~= 0 then
return menu.GetText(1, nIndex)
end
return ""
end

ClickMenuIndex = function(nIndex)
if menu.IsVisible(0) ~= 0 then
menu.ClickIndex(0, nIndex)
end

if menu.IsVisible(1) ~= 0 then
menu.ClickIndex(1, nIndex)
end
end


DoScript = function()
local szBuffer = ""
local nCount = 0

while true do
while dialog.IsVisible() ~= 0 do dialog.Close() timer.Sleep(nDelay) end

while IsMenuVisible() == 0 do TalkToNpc(szNpcName) timer.Sleep(nDelay) end

for i = 1, table.maxn(tbClickLine) do
szBuffer = GetMenuText(0)
ClickMenuIndex(tbClickLine[i] - 1)
if i < table.maxn(tbClickLine) then
while (szBuffer == GetMenuText(0) or IsMenuVisible() == 0) do timer.Sleep(nDelay) end
end
end
nCount = nCount + 1
if nRepeat > 0 and nCount >= nRepeat then break end
end
end

function StopTimer()
end

function main()
DoScript()
end

_________________
~°¤*(¯`*Tình một đêm*´¯)*¤°~*"
Khi vui nhậu chút thêm vui.Khi buồn nhậu chút cho vơi nỗi buồn.
lol!

Về Đầu Trang Go down
Xem lý lịch thành viên http://www.thanvo.forumvi.com

AUTO VUOT AI ( VAO PHAN talkandclick.lua SOA BO HET COPY PHAN DUOI BO VAO

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang
Trang 1 trong tổng số 1 trang

* Viết tiếng Việt có dấu, là tôn trọng người đọc.
* Chia sẻ bài sưu tầm có ghi rõ nguồn, là tôn trọng người viết.
* Thực hiện những điều trên, là tôn trọng chính mình.
...-Nếu chèn smilies có vấn đề thì bấm A/a trên phải khung viết bài-...
Permissions in this forum:Bạn không có quyền trả lời bài viết
*~°¤*(¯`*Diễn đàn của bang hội Thần Võ*´¯)*¤°~* :: TỔNG HỢP AUTO BANG HỘI-

 

Free forum | © phpBB | Free forum support | Liên hệ | Report an abuse | Create a free blog