   | |
| Модератор форума: staford11 |
| Форум Хитрости Пиратских серверов Читы для WoW Использование Lua скриптов. |
| Использование Lua скриптов. |
Всем привет. не могу адаптировать автокик на шамана для таргета и фокуса через один скрипт. отдельно они работают но нужно засунуть все в один скрипт, а то, если врубить все по отдельности то игра начинает просаживаться по фпс очень сильно ниже пример рабочего скрипта:
Код function Reflect1(self, elapsed) local spell, _, _, _, _, endTime, _, _, interrupt = UnitCastingInfo("target") local CD = GetSpellCooldown("Пронизывающий ветер") if spell == "Превращение" or "Выброс лавы" or "Стрела хаоса" or "Огненный шар" or "Смерч" or "Сглаз" or "Прикосновение вампира" or "Звездный огонь" or "Гнев деревьев" or "Цепная молния" or "Быстрое исцеление" or "Великое исцеление" or "Вспышка света" or "Свет небес" or "Волна исцеления" or "Покровительство Природы" then r=math.random(3,7) x=r*0.1 if (endTime/1000 - GetTime())<x then RunMacro("kick1") end end end CreateFrame("Frame", "Reflect1Frame") Reflect1Frame:SetScript("OnUpdate", Reflect1) Вот еще то как я пытался сделать все через один скрипт: Код function Reflect1(self, elapsed) local spell, _, _, _, _, endTime, _, _, interrupt = UnitCastingInfo("target") local spell1, _, _, _, _, endTime1, _, _, interrupt = UnitCastingInfo("focus") local CD = GetSpellCooldown("Пронизывающий ветер") if spell == "cпел" then local finish = endTime/1000 - GetTime() if spell1 == "спел" then local finish1 = endTime1/1000 - GetTime() if (finish <= 0.6) then RunMacro("kick1") if (finish1 <= 0.6) then RunMacro("kick2") end end end CreateFrame("Frame", "Reflect1Frame") Reflect1Frame:SetScript("OnUpdate", Reflect1) подскажите как это реализовать. буду очень благодарен
Сообщение # 2581 написано 02.08.2019 в 18:42
|
Цитата Nicebroo (  ) Подскажите есть скрипты абсолютно одинаковые, на одном сервере работают, на другом нет, луа анлокнут, почему так? Кто может помочь напишите в пм, скрипт на рефлект, автокик и ещё один Разные сервера разные обходы warden Добавлено (09.10.2019, 19:20) Цитата Aleksandrzi123 ( ) Поделитесь пожалуйста скриптами на Шп В пм договоримся, смотря какой сервер так далее
Обитаю тут https://vk.com/headik или тут https://vk.com/pqrwowlk
Имеется множество PQR Профилей, или займусь написанием профиля именно под вас
Сообщение # 2584 написано 09.10.2019 в 19:19
|
Цитата Kieg ( ) Ребят, есть ли Lua unlock для 4,3,4 ? Не могу найти в теме. он платный. типо приватка и это не EWT Добавлено (26.02.2020, 22:33)
Обитаю тут https://vk.com/headik или тут https://vk.com/pqrwowlk
Имеется множество PQR Профилей, или займусь написанием профиля именно под вас
Сообщение # 2588 написано 04.02.2020 в 15:21
|
привет, а может кто то переделать под pqr?
Код /run for r=1,40 doGetNumRaidMembers(); if (UnitHealth("raid"..r)/UnitHealthMax("raid"..r)) <=1 and IsSpellInRange("Слово силы: Щит", "raid"..r) and (not UnitBuff("raid"..r, "Слово силы: Щит")) and (not UnitDebuff("raid"..r, "Ослабленная душа")) then CastSpellByName("Слово силы: Щит","raid"..r) else r=r+1 end end Или подскажите где тут и как вписать условие and (not UnitBuff("raid"..r, "Слово силы: Щит")) Код local group = "party" local members = GetNumPartyMembers() if UnitDebuffID("player", 6788) == nil then CastSpellByID(48066, "player") end if GetNumRaidMembers() > 0 then group = "raid" members = GetNumRaidMembers() end for i = 1, members, 1 do local member = group..tostring(i) if UnitDebuffID(member, 6788) == nil and UnitInRange(member) and UnitIsFriend("player", member) and UnitIsDeadOrGhost(member) == nil and UnitHasVehicleUI(member) == false then CastSpellByID(48066, member) end end |
привет, столкнулся с проблемой на личе с диспелом чумы по рейду
можно ли слепить что-то типа? local name, _, _, _, _, duration, expires = UnitDebuff("player", "Озноб") local SpellTimeLeft = expires - GetTime() if SpellTimeLeft <=11 then RunMacroText озноб дк взял для теста тоже 15 сек висит как чума. в общем пока стоял на дкшке в дуэли тестил, и с бафами прочими понял что верхняя строчка проблемная типа я могу туда написать raid1 и он будет следить за raid1, если я делаю аналогичную функцию под рейд2 он уже не пашет for r=1,GetNumRaidMembers() do в формате "raid"..r подставить вместо игрока не получается. тоесть одна функция может следить за конкретной целью, несколько функций уже не работают, сделать что-то по типу "raid"..r тоже не получается. может кто подсказать как проблему обойти?
Сообщение # 2595 написано 11.10.2021 в 17:37
|
Цитата Natani ( ) Дайте пожалуйста AHK на спам кнопок, сам найти не могу. #ifWinActive World of Warcraft ;Checks if the World of Warcraft window is opened #MaxThreadsPerHotkey 2 ;Used to control how many "instances" of a given hotkey or hotstring subroutine are allowed to exist simultaneously SendTime:= 20 ; Time in milliseconds to repeat key press $0:: ; Number 0 $^0:: ; Ctrl + 0 $+0:: ; Shift + 0 $!0:: ; Alt + 0 Loop ;Begins the code for looping/repeats { ;Begging code structure if not GetKeyState("0", "P") ;Checks to see if a key is pressed down break ; Terminates the Loop if GetKeyState("Ctrl", "P") ;Checks if Ctrl is pressed Send ^0 ;Sends Ctrl + 0 else if GetKeyState("Shift", "P") ;Checks if Shift is pressed Send +0 ;Sends Shift + 0 else if GetKeyState("Alt", "P") ;Checks if Alt is pressed Send !1 ;Sends Alt + 0 else ;Checks if Number 1 is pressed Send 1 ;Sends Number 1 sleep %SendTime% ;Sends whatever sendTime value is set as } ;Ending code structure return $1:: $^1:: $+1:: $!1:: Loop{ if not GetKeyState("1", "P") break if GetKeyState("Ctrl", "P") Send ^1 else if GetKeyState("Shift", "P") Send +1 else if GetKeyState("Alt", "P") Send !1 else Send 1 sleep %SendTime% } return $2:: $^2:: $+2:: $!2:: Loop{ if not GetKeyState("2", "P") break if GetKeyState("Ctrl", "P") Send ^2 else if GetKeyState("Shift", "P") Send +2 else if GetKeyState("Alt", "P") Send !2 else Send 2 sleep %SendTime% } return $3:: $^3:: $+3:: $!3:: Loop{ if not GetKeyState("3", "P") break if GetKeyState("Ctrl", "P") Send ^3 else if GetKeyState("Shift", "P") Send +3 else if GetKeyState("Alt", "P") Send !3 else Send 3 sleep %SendTime% } return $4:: $^4:: $+4:: $!4:: Loop{ if not GetKeyState("4", "P") break if GetKeyState("Ctrl", "P") Send ^4 else if GetKeyState("Shift", "P") Send +4 else if GetKeyState("Alt", "P") Send !4 else Send 4 sleep %SendTime% } return $5:: $^5:: $+5:: $!5:: Loop{ if not GetKeyState("5", "P") break if GetKeyState("Ctrl", "P") Send ^5 else if GetKeyState("Shift", "P") Send +5 else if GetKeyState("Alt", "P") Send !5 else Send 5 sleep %SendTime% } return $6:: $^6:: $+6:: $!6:: Loop{ if not GetKeyState("6", "P") break if GetKeyState("Ctrl", "P") Send ^6 else if GetKeyState("Shift", "P") Send +6 else if GetKeyState("Alt", "P") Send !6 else Send 6 sleep %SendTime% } return $7:: $^7:: $+7:: $!7:: Loop{ if not GetKeyState("7", "P") break if GetKeyState("Ctrl", "P") Send ^7 else if GetKeyState("Shift", "P") Send +7 else if GetKeyState("Alt", "P") Send !7 else Send 7 sleep %SendTime% } return $8:: $^8:: $+8:: $!8:: Loop{ if not GetKeyState("8", "P") break if GetKeyState("Ctrl", "P") Send ^8 else if GetKeyState("Shift", "P") Send +8 else if GetKeyState("Alt", "P") Send !8 else Send 8 sleep %SendTime% } return $9:: $^9:: $+9:: $!9:: Loop{ if not GetKeyState("9", "P") break if GetKeyState("Ctrl", "P") Send ^9 else if GetKeyState("Shift", "P") Send +9 else if GetKeyState("Alt", "P") Send !9 else Send 9 sleep %SendTime% } return $q:: $^q:: $+q:: $!q:: Loop{ if not GetKeyState("q", "P") break if GetKeyState("Ctrl", "P") Send ^q else if GetKeyState("Shift", "P") Send +q else if GetKeyState("Alt", "P") Send !q else Send q sleep %SendTime% } return $e:: $^e:: $+e:: $!e:: Loop{ if not GetKeyState("e", "P") break if GetKeyState("Ctrl", "P") Send ^e else if GetKeyState("Shift", "P") Send +e else if GetKeyState("Alt", "P") Send !e else Send e sleep %SendTime% } return $r:: $^r:: $+r:: $!r:: Loop{ if not GetKeyState("r", "P") break if GetKeyState("Ctrl", "P") Send ^r else if GetKeyState("Shift", "P") Send +r else if GetKeyState("Alt", "P") Send !r else Send r sleep %SendTime% } return $t:: $^t:: $+t:: $!t:: Loop{ if not GetKeyState("t", "P") break if GetKeyState("Ctrl", "P") Send ^t else if GetKeyState("Shift", "P") Send +t else if GetKeyState("Alt", "P") Send !t else Send t sleep %SendTime% } return $f:: $^f:: $+f:: $!f:: Loop{ if not GetKeyState("f", "P") break if GetKeyState("Ctrl", "P") Send ^f else if GetKeyState("Shift", "P") Send +f else if GetKeyState("Alt", "P") Send !f else Send f sleep %SendTime% } return $g:: $^g:: $+g:: $!g:: Loop{ if not GetKeyState("g", "P") break if GetKeyState("Ctrl", "P") Send ^g else if GetKeyState("Shift", "P") Send +g else if GetKeyState("Alt", "P") Send !g else Send g sleep %SendTime% } return $z:: $^z:: $+z:: $!z:: Loop{ if not GetKeyState("z", "P") break if GetKeyState("Ctrl", "P") Send ^z else if GetKeyState("Shift", "P") Send +z else if GetKeyState("Alt", "P") Send !z else Send z sleep %SendTime% } return $x:: $^x:: $+x:: $!x:: Loop{ if not GetKeyState("x", "P") break if GetKeyState("Ctrl", "P") Send ^x else if GetKeyState("Shift", "P") Send +x else if GetKeyState("Alt", "P") Send !x else Send x sleep %SendTime% } return $c:: $^c:: $+c:: $!c:: Loop{ if not GetKeyState("c", "P") break if GetKeyState("Ctrl", "P") Send ^c else if GetKeyState("Shift", "P") Send +c else if GetKeyState("Alt", "P") Send !c else Send c sleep %SendTime% } return $v:: $^v:: $+v:: $!v:: Loop{ if not GetKeyState("v", "P") break if GetKeyState("vtrl", "P") Send ^v else if GetKeyState("Shift", "P") Send +v else if GetKeyState("Alt", "P") Send !v else Send v sleep %SendTime% } return f12::Suspend ^f12::Reload End::ExitApp Добавлено (26.04.2022, 10:02) -------------------------------------------- #showtooltip Wind Shear /run if UnitCastingInfo("target") or UnitChannelInfo("target") or UnitAura("target", "Grounding Totem Effect") or UnitAura("target", "Spell reflection") or UnitAura("target", "Burning Determination") then RunMacroText("/cast [@target] Wind Shear") end /stopcasting #showtooltip Wind Shear /run if UnitCastingInfo("focus") or UnitChannelInfo("focus") or UnitAura("focus", "Grounding Totem Effect") or UnitAura("focus", "Spell reflection") or UnitAura("focus", "Burning Determination") then RunMacroText("/cast [@focus] Wind Shear") end /stopcasting #showtooltip Wind Shear /run if UnitCastingInfo("arena1") or UnitChannelInfo("arena1") or UnitAura("arena1", "Grounding Totem Effect") or UnitAura("arena1", "Spell reflection") or UnitAura("arena1", "Burning Determination") then RunMacroText("/cast [@arena1] Wind Shear") end /stopcasting #showtooltip Wind Shear /run if UnitCastingInfo("arena2") or UnitChannelInfo("arena2") or UnitAura("arena2", "Grounding Totem Effect") or UnitAura("arena2", "Spell reflection") or UnitAura("arena2", "Burning Determination") then RunMacroText("/cast [@arena2] Wind Shear") end /stopcasting #showtooltip Wind Shear /run if UnitCastingInfo("arena3") or UnitChannelInfo("arena3") or UnitAura("arena3", "Grounding Totem Effect") or UnitAura("arena3", "Spell reflection") or UnitAura("arena3", "Burning Determination") then RunMacroText("/cast [@arena3] Wind Shear") end /stopcasting |
Добрый день. Может кто сделать скрипт/макрос на фарм рарника? Надо что бы условно 1 раз в 5 минут брало его в цель, убивало (точечным скилом, лвл позволяет его шотать) и забирало лут или вручную или по мышки или с помощью собирателя трофеев, рарник статичный но с разным временем по респауну
Сообщение # 2597 написано 01.05.2022 в 11:15
|
Цитата pro100maks93 ( ) Добрый день. Может кто сделать скрипт/макрос на фарм рарника? Надо что бы условно 1 раз в 5 минут брало его в цель, убивало (точечным скилом, лвл позволяет его шотать) и забирало лут или вручную или по мышки или с помощью собирателя трофеев, рарник статичный но с разным временем по респаунумо обращайся...  • Wowjp: Моя темка • Yt: youtube.com/@LuaNaZakaz • Discord: discord.gg/Jgmf7AJ • Vk: vk.com/luanazakaz • Telegram: t.me/LuaNaZakaz • Boosty: boosty.to/luanazakaz
Сообщение # 2598 написано 05.05.2022 в 18:14
|
Может кто подправить? Скрипт не работает. Нонстопом кастит Гнев и все.
/run ('RegisterCVar("Затмение","Гнев")') /run ('if not UnitDebuff('target','Волшебный огонь') and UnitHealth('target')>150000 and not UnitDebuff('target','Волшебный огонь (Зверь)') then CastSpellByName('Волшебный огонь') end') /run ('if UnitBuff("Player", "Солнечное затмение") and not UnitDebuff("target", "Рой насекомых", nil, "PLAYER") then CastSpellByName('Рой насекомых') end') /run ('if UnitBuff("Player", "Лунное затмение") and not UnitDebuff("target", "Лунный огонь", nil, "PLAYER") then CastSpellByName('Лунный огонь') end') /run ('if UnitBuff("player","Лунное затмение") then SetCVar("Затмение","Звездный огонь") else if UnitBuff("player","Солнечное затмение") then SetCVar("Затмение","Гнев") end end') /run ('CastSpellByName(GetCVar("Затмение"))')
Сообщение # 2600 написано 02.04.2025 в 02:18
|
| |||