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

Birthday : 02/07/1977


	-- 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