Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -- ---------------------------------------------
- -- 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("любой текст")
- -- дк анхоли это ОП бот
- 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)
- --ток ток зашел в инст. стою
- -- .go -552, 320, 115
- if c1 == -552
- and c2 == 320
- and c3 == 115
- then
- MoveTo(-532, 329, 115, 1) --иду всё продавать к вендору
- end
- --дошел до вендора. интеракт чтоб всё продать
- if c1 == -533
- and c2 == 328
- and c3 == 115
- then
- -- RunMacroText("/target Наресир Штормовая Ярость")
- TargetUnit("Наресир Штормовая Ярость")
- InteractUnit("target")
- --продажа происходит в (автопочинка у вендора и продажа.lua)
- MoveTo(-433, 272, 77, 1) --идти к 1-му мобу
- end
- --стою у 1-го моба. наверно убил.
- if totalbag > 120 then
- if c1 == -433 or c1 == -434
- and c2 == 272
- and c3 == 77 --баг баг!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- then
- MoveTo(-329, 132, 44, 1) --идти к собакам
- end
- end
- -- DEAD DOGS
- if c1 == -329 or c1 == -330
- and c2 == 132
- and c3 == 44
- then
- MoveTo(-417, 0, 46, 1) --идти к скорбионам
- end
- --убил скорпионов
- -- идти домой
- if c1 == -417
- and c2 == 0
- and c3 == 46 or c3 == 45
- then
- MoveTo(-379, 143, 49, 1) --идти домой точка 1.около 1 моба
- end
- -- добрался !идти на колено.чтоб выйти из инста
- -- колено2
- if c1 == -380
- and c2 == 142
- and c3 == 49
- then
- MoveTo(-406, 236, 59, 1)
- end
- --тут рядом точка старта)) поэтому
- if c1 == -406
- and c2 == 236 or c2 == 235
- and c3 == 59 or c3 == 58
- then
- MoveTo(-430, 283, 78, 1)
- end
- --ВЫХОДИ ИЗ ИНСТА
- if c1 == -430
- and c2 == 282 --??
- and c3 == 78
- then
- MoveTo(-562, 315, 115, 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
- Cast(49184, "target", 49020)
- Cast(196770, "target", 49020)
- Cast(49184, "target", 49020)
- end
- end -- rm1
- end; --end эндовый
- local f = CreateFrame("Frame")
- f:SetScript("OnUpdate", onUpdatee)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement