Неудачно сходил в ОП (2-я версия)

-- ---------------------------------------------
-- TEXT вверху экрана 3 координаты
-- ---------------------------------------------
f = CreateFrame("Frame", nil, UIParent)
f:SetSize(UIParent:GetWidth(), 30)
f:SetPoint("TOP", 0, -40)
local text = f:CreateFontString("x_coord", "OVERLAY", "MovieSubtitleFont")
text:SetPoint("CENTER", 0, 0)
text:SetText("любой текст")

f = CreateFrame("Frame", nil, UIParent)
f:SetSize(UIParent:GetWidth(), 30)
f:SetPoint("TOP", 0, -80)
local text = f:CreateFontString("y_coord", "OVERLAY", "MovieSubtitleFont")
text:SetPoint("CENTER", 0, 0)
text:SetText("любой текст")

f = CreateFrame("Frame", nil, UIParent)
f:SetSize(UIParent:GetWidth(), 30)
f:SetPoint("TOP", 0, -120)
local text = f:CreateFontString("z_coord", "OVERLAY", "MovieSubtitleFont")
text:SetPoint("CENTER", 0, 0)
text:SetText("любой текст")



-- ---------------------------------------------
-- ahk для старта
-- ---------------------------------------------
local f = CreateFrame("Frame", "start")
f:SetPoint("CENTER", 0, 0)
f:SetSize(100, 100)
f:SetParent(UIParent)

local art_f = f:CreateTexture()
art_f:SetAllPoints()
-- art_f:SetTexture(255, 255, 255, 1)
art_f:SetAlpha(1)


-- ---------------------------------------------
-- ahk для конца
-- ---------------------------------------------
local t = CreateFrame("Frame", "stop")
t:SetPoint("CENTER", 0, 300)
t:SetSize(100, 100)
t:SetParent(UIParent)

local art_t = t:CreateTexture()
art_t:SetAllPoints()
-- art_t:SetTexture(255, 255, 255, 1)
art_t:SetAlpha(1)





-- дк анхоли это ОП бот
local function onUpdatee()

-- ObjectInteract("Corpse") --???????????? ==false как включить
-- /run print(ObjectInteract("Corpse"))

-- /run print(abc())

-- /run print(ObjectPosition('Player'))
-- /run print(ObjectPosition("Player"))

-- /run print(select(1, ObjectPosition("Player")))

local a = select(1, ObjectPosition("Player"))
local b = select(2, ObjectPosition("Player"))
local c = select(3, ObjectPosition("Player"))
-- print(a)
-- print(b)
-- print(c)
-- print("---")

c1 = floor(a); --x 1
c2 = floor(b); --y 2
c3 = floor(c); --z 3

x_coord:SetText(c1)
y_coord:SetText(c2)
z_coord:SetText(c3)

--хотел добавить проверку на слоты в сумках. если не успеюю продать
local freeSlots4, bagType = GetContainerNumFreeSlots(4) -- 16 слотов 1-я
local freeSlots3, bagType = GetContainerNumFreeSlots(3) -- 16 слотов 1-я
local freeSlots2, bagType = GetContainerNumFreeSlots(2) -- 16 слотов 1-я
local freeSlots1, bagType = GetContainerNumFreeSlots(1) -- 16 слотов 1-я
local freeSlots0, bagType = GetContainerNumFreeSlots(0) -- 16 слотов 1-я
local totalbag = (freeSlots0+freeSlots1+freeSlots2+freeSlots3+freeSlots4)
-- print(totalbag)


if not UnitAffectingCombat("player") then
UseItemByName("Странный вздувшийся живот")
UseItemByName("Сундучок с сокровищами")
end

--ток ток зашел в инст. стою
-- .go -552, 320, 115
-- /run MoveTo(-552, 320, 115, 1)
if c1 == -552
and c2 == 320
and c3 == 115
then
MoveTo(-532, 329, 115, 1) --иду всё продавать к вендору

-- как сдлтьа InteractUnit(unit)
	-- MoveTo(-562, 315, 115, 1)
end



-- дошел до вендора. интеракт чтоб всё продать
if c1 == -533
and c2 == 328
and c3 == 115
then

-- RunMacroText("/target Наресир Штормовая Ярость")
TargetUnit("Наресир Штормовая Ярость")
InteractUnit("target")
ClearTarget()

-- if UnitName("target") == "Наресир Штормовая Ярость" then

-- local isPlaying = Stopwatch_IsPlaying()
-- RunMacroText("/sw reset")
-- RunMacroText("/sw 3")

-- RunMacroText("/run Stopwatch_Play()")
-- end



-- print(isPlaying)
-- if isPlaying == false then
-- not ( CheckInteractDistance("target", 3) ) then
-- ClearTarget()
-- end

-- InteractUnit("target")

--продажа происходит в (автопочинка у вендора и продажа.lua)

MoveTo(-516, 318, 115, 1) --идти к 1-му мобу
end

--Старт бота с безопасного места
if c1 == -517
and c2 == 318
and c3 == 115
then
art_f:SetTexture(255, 255, 255, 1)
else
art_f:SetTexture(0, 255, 255, 1)
end





--КОНЕЦ 1
if c1 == -539
and c2 == 302
and c3 == 115
then
SpellStopCasting()
if IsMounted() == true then Dismount(); end
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

--КОНЕЦ 2
if c1 == -536
and c2 == 304
and c3 == 115
then
SpellStopCasting()
if IsMounted() == true then Dismount(); end
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

--КОНЕЦ 3
if c1 == -537
and c2 == 301
and c3 == 115
then
SpellStopCasting()
if IsMounted() == true then Dismount(); end
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

--КОНЕЦ 4
if c1 == -537
and c2 == 303
and c3 == 115
then
SpellStopCasting()
if IsMounted() == true then Dismount(); end
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

--КОНЕЦ 5
if c1 == -539
and c2 == 304
and c3 == 115
then
SpellStopCasting()
if IsMounted() == true then Dismount(); end
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

--КОНЕЦ 6
if c1 == -538
and c2 == 301
and c3 == 115
then
SpellStopCasting()
if IsMounted() == true then Dismount(); end
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

--КОНЕЦ 7
if c1 == -540
and c2 == 301
and c3 == 115
then
SpellStopCasting()
if IsMounted() == true then Dismount(); end
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

--КОНЕЦ 8
if c1 == -534
and c2 == 304
and c3 == 115
then
SpellStopCasting()
if IsMounted() == true then Dismount(); end
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

--КОНЕЦ 9
if c1 == -535
and c2 == 304
and c3 == 115
then
SpellStopCasting()
if IsMounted() == true then Dismount(); end
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

--КОНЕЦ 10
if c1 == -537
and c2 == 302
and c3 == 115
then
SpellStopCasting()
if IsMounted() == true then Dismount(); end
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

--КОНЕЦ 11
if c1 == -536
and c2 == 305
and c3 == 115
then
SpellStopCasting()
if IsMounted() == true then Dismount(); end
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end



--КОНЕЦ 12
if c1 == -530
and c2 == 304
and c3 == 114
then
SpellStopCasting()
if IsMounted() == true then Dismount(); end
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end


--КОНЕЦ 13
if c1 == -531
and c2 == 304
and c3 == 114
then
SpellStopCasting()
if IsMounted() == true then Dismount(); end
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

--КОНЕЦ 14
if c1 == -540
and c2 == 304
and c3 == 115
then
SpellStopCasting()
if IsMounted() == true then Dismount(); end
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

--КОНЕЦ 15
if c1 == -533
and c2 == 305
and c3 == 115
then
SpellStopCasting()
if IsMounted() == true then Dismount(); end
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

--КОНЕЦ 16
if c1 == -535
and c2 == 305
and c3 == 115
then
SpellStopCasting()
if IsMounted() == true then Dismount(); end
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

--КОНЕЦ 17
if c1 == -537
and c2 == 305
and c3 == 115
then
if IsMounted() == true then Dismount(); end
SpellStopCasting()
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

--КОНЕЦ 18
if c1 == -532
and c2 == 305
and c3 == 114
then
if IsMounted() == true then Dismount(); end
SpellStopCasting()
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

--КОНЕЦ 18
if c1 == -545
and c2 == 310
and c3 == 115
then
if IsMounted() == true then Dismount(); end
SpellStopCasting()
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end

-- /run ToggleRun(3)
-- /run print(GetUnitSpeed("player"))

--КОНЕЦ 19
if c1 == -541
and c2 == 301
and c3 == 115
then
if IsMounted() == true then Dismount(); end
SpellStopCasting()
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
art_t:SetTexture(255, 255, 255, 1)
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
MoveTo(-562, 317, 115, 1) --идти к 1-му мобу
else
art_t:SetTexture(0, 255, 255, 1)
end






if rm == 1 then
--Я вне инста
-- стою в 3987.919922 -2945.830078 1002.547913
if TomTomBlock.Text:GetText() == "47.50, 77.98"
or TomTomBlock.Text:GetText() == "47.50, 78.00"
then
	ChatFrame3:AddMessage("Я вышел из инста")

--обновить сложность
PlayerFrame:Click("RightButton", down)
DropDownList1Button11ExpandArrow:Click("LeftButton", down)
DropDownList2Button6:Click("LeftButton", down) --10 Сложность
DropDownList2Button7:Click("LeftButton", down) --25 Сложность

	MoveTo(3579.238525, 5951.546875, 261.530212, 1)
end




-- if GetZoneText() == "Гора Хиджал"
-- and GetSubZoneText() == "Шпиль Сульфурона"
-- then
-- JumpOrAscendStart();
-- MoveTo(3980.459473, -2925.410645, 1002.546875, 1)
-- end
if IsMoving() == false then
if UnitAffectingCombat("player") then
TargetNearestEnemy()
-- Cast(196770, "target", 49020)
-- Cast(49184, "target", 49184) --vv
end
Cast(196770, "target", 49020)
Cast(49184, "target", 49184) --vv
end


end -- rm1
end; --end эндовый
local f = CreateFrame("Frame")
f:SetScript("OnUpdate", onUpdatee)