当前位置：>>&&
魔兽5.4盗贼实用代码分享：技能打断、喊话、宏等
21:01:36 作者：百川 来源： 浏览次数：0
摘要：魔兽5.4盗贼实用代码分享：技能打断、喊话、宏等。分享代码整合在一起，不能用代码修改后都能使用。
--[分享代码整合在一起，不能用代码修改后都能使用，独乐不如众乐]
-[默认的目标和焦点头像背景职业染色]
local frame = CreateFrame(&FRAME&)&
frame:RegisterEvent(&GROUP_ROSTER_UPDATE&)&
frame:RegisterEvent(&PLAYER_TARGET_CHANGED&)&
frame:RegisterEvent(&PLAYER_FOCUS_CHANGED&)&
frame:RegisterEvent(&UNIT_FACTION&)&
local function eventHandler(self, event, ...)&
if UnitIsPlayer(&target&) then&
c = RAID_CLASS_COLORS[select(2, UnitClass(&target&))]&
TargetFrameNameBackground:SetVertexColor(c.r, c.g, c.b)&
if UnitIsPlayer(&focus&) then&
c = RAID_CLASS_COLORS[select(2, UnitClass(&focus&))]&
FocusFrameNameBackground:SetVertexColor(c.r, c.g, c.b)&
frame:SetScript(&OnEvent&, eventHandler)&
for _, BarTextures in pairs({TargetFrameNameBackground, FocusFrameNameBackground}) do&
BarTextures:SetTexture(&Interface\\TargetingFrame\\UI-StatusBar&)&
--[技能按下带闪光效果]
local bars = {&ActionButton&,&MultiBarBottomLeftButton&,&MultiBarBottomRightButton&}&
for _,bar in ipairs(bars) do&
for i = 1,12 do&
local btn = getglobal(bar..i)&
local name = getglobal(bar..i..&Name&)&
local hotkey = getglobal(bar..i..&HotKey&)&
local border = getglobal(bar..i..&Border&)&
btn:SetPushedTexture([[Interface\Cooldown\star4]])&
btn:GetPushedTexture():SetBlendMode(&ADD&)&
btn:GetPushedTexture():SetTexCoord(0.2,0.8,0.2,0.8)&
btn:GetPushedTexture():SetVertexColor(1.5,1.5,1)&
--[隐藏玩家头像伤害治疗量]
PlayerHitIndicator:SetText(nil)&
PlayerHitIndicator.SetText = function() end
PetHitIndicator:SetText(nil)&
PetHitIndicator.SetText = function() end
--[血量多少万为单位] ---------------------------------------------------------------
local function HealthBarText(statusFrame, textString, value, valueMin, valueMax)&
if string.find(textString:GetName(), &Health&) or string.find then&
if valueMax ~= 0 then&
local percent = tostring(math.ceil((value / valueMax) * 100))&
value = HealthBarText_CapDisplayOfNumericValue(value)&
valueMax = HealthBarText_CapDisplayOfNumericValue(valueMax)&
textString:SetText(value..&&)&
hooksecurefunc(&TextStatusBar_UpdateTextStringWithValues&, HealthBarText)&
function HealthBarText_CapDisplayOfNumericValue(value)&
local strLen = strlen(value);&
local retString =&
if ( strLen & 8 ) then&
retString = string.sub(value, 1, -9)..&.&..string.sub(value,-8,-8)..SECOND_NUMBER_CAP;&
elseif ( strLen & 4 ) then&
retString = string.sub(value, 1, -5)..&.&..string.sub(value,-4,-4)..FIRST_NUMBER_CAP;&
return retS&
--[焦点框架大小和移动施法条.大小]
FocusFrame:SetScale(1.1)&
FocusFrameSpellBar:SetScale(1.3)
FocusFrameSpellBar:ClearAllPoints()&
FocusFrameSpellBar:SetPoint(&TOPLEFT&,FocusFrame,&TOPLEFT&,15,6)&
FocusFrameSpellBar.SetPoint = function() end
--聊天输入框置顶的
-- Editbox&
for i= 1,10 do&
local editbox = _G['ChatFrame'..i..'EditBox']&
local a, b, c = select(6, editbox:GetRegions())&
a:SetAlpha(0)&
b:SetAlpha(0)&
c:SetAlpha(0)&
editbox:ClearAllPoints()&
editbox:SetPoint('BOTTOMLEFT', _G.ChatFrame1, 'TOPLEFT', 0, 20)&
editbox:SetPoint('BOTTOMRIGHT', _G.ChatFrame1, 'TOPRIGHT', 0, 20)&
editbox:SetAltArrowKeyMode(false)&
--[隐藏玩家头像伤害治疗量]
PlayerHitIndicator:SetText(nil)&
PlayerHitIndicator.SetText = function() end
--[敌对，焦点，目标阵营战斗PVP图标清除]
PlayerPVPIcon:SetAlpha(0)&
TargetFrameTextureFramePVPIcon:SetAlpha(0)&
FocusFrameTextureFramePVPIcon:SetAlpha(0)
--[隐藏宏名称]
local r={&MultiBarBottomLeft&, &MultiBarBottomRight&, &Action&, &MultiBarLeft&, &MultiBarRight&} for b=1,#r do for i=1,12 do _G[r[b]..&Button&..i..&Name&]:SetAlpha(0) end end
--[隐藏快捷键名称]
local r={&MultiBarBottomLeft&, &MultiBarBottomRight&, &Action&, &MultiBarLeft&, &MultiBarRight&} for b=1,#r do for i=1,12 do _G[r[b]..&Button&..i..&HotKey&]:SetAlpha(0) end end
--[敌对，焦点，目标阵营战斗PVP图标清除]
PlayerPVPIcon:SetAlpha(0)&
TargetFrameTextureFramePVPIcon:SetAlpha(0)&
FocusFrameTextureFramePVPIcon:SetAlpha(0)
--[左右鹰隐藏，屏蔽红字错误]
MainMenuBarLeftEndCap:Hide()&
MainMenuBarRightEndCap:Hide()&
UIErrorsFrame:Hide()
--[[ 被闷棍喊话 ]]&
local SaySapped = CreateFrame(&Frame&)&
SaySapped:SetScript(&OnEvent&,function(_, _, _, eventType, _, _, _, _, _, _, destName, _, _, spellID)&
if ((eventType == &SPELL_AURA_APPLIED& or eventType == &SPELL_AURA_REFRESH&)&
and (spellID == 51724 or spellID == 11297 or spellID == 2070 or spellID == 6770)&
and (destName == UnitName(&player&)))&
SendChatMessage(&&&&有贼!&&&&, &YELL&)&
SaySapped:RegisterEvent(&COMBAT_LOG_EVENT_UNFILTERED&)&
--[框架团队变小队]------------------------
/run local f=CreateFrame(&Frame&) f:RegisterEvent(&LOSS_OF_CO***OL_ADDED&) f:RegisterEvent(&LOSS_OF_CO***OL_UPDATE&) f:SetScript(&OnEvent&,function() for b in pairs(ActionBarActionEventsFrame.frames) do&
-[目标的目标移动]--------------------------
/run local f = GetMouseFocus(); f:SetUserPlaced(true) f:SetMovable(true) f:EnableMouse(true) f:RegisterForDrag(&LeftButton&) f:SetScript(&OnDragStart&,f.StartMoving) f:SetScript(&OnDragStop&,f.StopMovingOrSizing)&
b.cooldown:SetLossOfControlCooldown(0,0) end end
--[界面缩放大小]
UIErrorsFrame:SetScale(0.8)
MainMenuBar:SetScale(0.85)
BuffFrame:SetScale(0.85)
MultiBarRight:SetScale(0.8)
MinimapCluster:SetScale(0.9)
WatchFrame:SetScale(0.9)
WorldStateAlwaysUpFrame:SetScale(0.7)
--[技能打断喊话]
local AfterInterrupt = CreateFrame(&Frame&, nil, UIParent)
AfterInterrupt:RegisterEvent(&COMBAT_LOG_EVENT_UNFILTERED&)
local function InterruptUpdate(self, event, ...)
& &if event == &COMBAT_LOG_EVENT_UNFILTERED& then & & &
& & & local timestamp, eventType, _, sourceGUID, sourceName, sourceFlags, sourceRaidFlags, destGUID, destName, destFlags, _, spellID, spellName, _, extraskillID, extraSkillName = ...
& & & if eventType == &SPELL_INTERRUPT& and sourceName == UnitName(&player&) then
& & & & &SendChatMessage(&Interrupted %t's &..GetSpellLink(extraskillID), &SAY&) --这里频道喊话
AfterInterrupt:SetScript(&OnEvent&, InterruptUpdate)
--[自动修理]&
local AutoRepair = true&
local g = CreateFrame(&Frame&)&
g:RegisterEvent(&MERCHANT_SHOW&)&
g:SetScript(&OnEvent&, function()&
if(AutoRepair==true and CanMerchantRepair()) then&
local cost = GetRepairAllCost()&
if cost & 0 then&
local money = GetMoney()&
if IsInGuild() then&
local guildMoney = GetGuildBankWithdrawMoney()&
if guildMoney & GetGuildBankMoney() then&
guildMoney = GetGuildBankMoney()&
if guildMoney & cost and CanGuildBankRepair() then&
RepairAllItems(1)&
print(format(&|cfff07100-/+ %.1fg|r&, cost * 0.0001)) --print(L[& 公会银行自动修理费用: &].. GetCoinTextureString(cost) )
if money & cost then&
RepairAllItems()&
print(format(&|cffead000- %.1fg|r&, cost * 0.0001))&
print(&Go farm newbie.&)&
--[自动出售灰色物品]&
local f = CreateFrame(&Frame&)&
f:SetScript(&OnEvent&, function()&
local c = 0&
for b=0,4 do&
for s=1,GetContainerNumSlots(b) do&
local l = GetContainerItemLink(b, s)&
if l then&
local p = select(11, GetItemInfo(l))*select(2, GetContainerItemInfo(b, s))&
if select(3, GetItemInfo(l))==0 and p&0 then&
UseContainerItem(b, s)&
PickupMerchantItem()&
if c&0 then&
local g, s, c = math.floor(c/10000) or 0, math.floor((c%1) or 0, c%100&
DEFAULT_CHAT_FRAME:AddMessage(&+&..& |cffffffff&..g..&|cffffc125g|r&..& |cffffffff&..s..&|cffc7c7cfs|r&..& |cffffffff&..c..&|cffeda55fc|r&..&.&,255,255,255)&
f:RegisterEvent(&MERCHANT_SHOW&)
--[低血量报警]---------------------------------------------------------------------------------------------
function RunicPercent_OnLoad()
frame = CreateFrame(&Frame&,&Frame&, WorldFrame)
frame:SetPoint(&CENTER&)
frame:SetWidth(50)
frame:SetHeight(50)
frame:Hide()
frame:SetScale(1) -- this does not effect the text size.
FrameText = frame:CreateFontString(nil,&ARTWORK&);
FrameText:SetFontObject(GameFontNormal);
FrameText:SetFont(STANDARD_TEXT_FONT, 20,&outline&)
FrameText:SetTextColor(0.8,0,0,1) -- change this to change color
FrameText:SetPoint(&CENTER&,UIParent,&CENTER&,0,50)
frame:SetScript(&OnEvent&, function(self, event, arg1,arg2, ...)&
& &if event == &UNIT_HEALTH& then
& & & FrameText:SetText(format(&%d&,UnitHealth(&player&)/UnitHealthMax(&player&)*100)..&%&)
& &local hp = UnitHealth(&player&) / UnitHealthMax(&player&)
& &if hp & 0.60 then
& & & & &frame:Hide()
& & & & &else
& & & & &frame:Show()
& & & & &end
frame:RegisterEvent(&UNIT_HEALTH&)
frame:RegisterEvent(&PLAYER_ENTERING_WORLD&)
RunicPercent_OnLoad()
--[动作条背景祛除]
MainMenuBarTexture0:Hide()&
MainMenuBarTexture1:Hide()&
MainMenuBarTexture2:Hide()&
MainMenuBarTexture3:Hide()&
MainMenuMaxLevelBar0:Hide()&
MainMenuMaxLevelBar1:Hide()&
MainMenuMaxLevelBar3:Hide()&
MainMenuMaxLevelBar2:Hide()
--[祛除背景和生命为K单位]
local f=function(v)if(v&=1e4) then return ('%.1fk'):format(v/1e3):gsub('%.?0+([km])$','%1') else return v end end&
hooksecurefunc(&TextStatusBar_UpdateTextString&,function(s)&
if not GetCVarBool(&statusTextPercentage&) then&
if s.TextString and s.currValue then&
s.TextString:SetText(f(s.currValue))&
local frame = CreateFrame(&FRAME&)&
frame:RegisterEvent(&PLAYER_ENTERING_WORLD&)&
frame:RegisterEvent(&PARTY_MEMBERS_CHANGED&)&
frame:RegisterEvent(&PLAYER_TARGET_CHANGED&)&
frame:RegisterEvent(&PLAYER_FOCUS_CHANGED&)&
frame:RegisterEvent(&UNIT_FACTION&)&
frame:RegisterEvent(&ARENA_OPPONENT_UPDATE&)&
frame:RegisterEvent(&PLAYER_CO***OL_GAINED&)&
frame:RegisterEvent(&PLAYER_CO***OL_LOST&)&
frame:RegisterEvent(&ADDON_LOADED&);&
local function eventHandler(self, event, arg, ...)&
if (event == &UNIT_FACTION& and arg ~= &target& and arg ~= &focus&) then return end&
if UnitExists(&target&) then&
TargetFrameNameBackground:SetVertexColor(0.0, 0.0, 0.0, 0.5)&
if UnitExists(&focus&) then&
FocusFrameNameBackground:SetVertexColor(0.0, 0.0, 0.0, 0.5)&
--[脱战回收内存]&
local F = CreateFrame(&Frame&)&
F:RegisterEvent(&PLAYER_REGEN_ENABLED&)&
F:SetScript(&OnEvent&, function() _G.collectgarbage(&collect&) end)
frame:SetScript(&OnEvent&, eventHandler)
--[最大视角]-------------------------------------------------------
local f = CreateFrame(&Frame&)
f:SetScript(&OnEvent&, function()
& &SetCVar(&cameraDistanceMax&, 50)
& &SetCVar(&CameraDistanceMaxFactor&, 3.4)
f:RegisterEvent(&PLAYER_ENTERING_WORLD&)&
--[敌对技能监视]&
InterruptBarDB = InterruptBarDB or { scale = 1.1, columns = 8, hidden = false, lock = false, }--尺寸 隐藏 解锁&
local abilities = {}&
local order&
local band = bit.band&
local spellids = {&
[44572] = 30, -- 深度冻结&
[2139] = 20, -- 法术反制&
[31224] = 60, -- 暗影斗篷
[6552] = 15, -- 拳击&
[1766] = 15, -- 脚踢&
[8122] = 27, -- 心灵尖啸&
[15487] = 45, -- 沉默&
[96231] = 15, -- 责难&
[8177] = 15, -- 根基图腾
[51713] = 60, -- 暗影之舞&
[47528] = 15, -- 心灵冰冻&
[19503] = 30, -- 驱散射击&
[34490] = 24, -- 沉默射击&
[116705] = 15, -- 切吼手&
[80965] = 15, -- 迎头痛击&
[19647] = 24, -- 法术封锁&
[5484] = 40, -- 恐惧嚎叫&
[57994] = 12, -- 风剪&
[107570] = 30, -- 风暴之锤
[23920] = 25, -- 法术反射
[108194] = 30, -- 窒息&
for spellid,time in pairs(spellids) do&
local name,_,spellicon = GetSpellInfo(spellid)&
abilities[name] = { icon = spellicon, duration = time }&
-----------------------------------------------------&
-- Edit this table to change the order&
-----------------------------------------------------&
local order = {&
2139, -- 法术反制&
51713, -- 暗影之舞&
19647, -- 法术封锁&
15487, -- 沉默&
31224, -- 暗影斗篷
34490, -- 沉默射击&
44572, -- 深度冻结&
5484, -- 恐惧嚎叫&
8177, -- 根基图腾
8122, -- 心灵尖啸&
19503, -- 驱散射击&
57994, -- 风剪&
23920, -- 法术反射
107570, -- 风暴之锤
47528, -- 心灵冰冻&
1766, -- 脚踢&
108194, -- 窒息&
6552, -- 拳击&
96231, -- 责难&
116705, -- 切吼手&
80965, -- 迎头痛击&
-----------------------------------------------------&
for k,v in ipairs(order) do order[k] = GetSpellInfo(v) end&
local frame&
local bar&
local GetTime = GetTime&
local ipairs = ipairs&
local pairs = pairs&
local select = select&
local floor = floor&
local band = bit.band&
local GetSpellInfo = GetSpellInfo&
local GROUP_UNITS = bit.bor(0xx)&
local activetimers = {}&
local size = 0&
local function getsize()&
for k in pairs(activetimers) do&
size = size + 1&
local function InterruptBar_AddIcons()&
local x = -45&
local y = 0&
local r = 0&
for _,ability in ipairs(order) do&
local btn = CreateFrame(&Frame&,nil,bar)&
btn:SetWidth(30)&
btn:SetHeight(30)&
if x & (InterruptBarDB.columns * 30 - 45) then&
btn:SetPoint(&CENTER&,bar,&CENTER&,x,y)&
x = x-(InterruptBarDB.columns * 30)&
btn:SetPoint(&Center&,bar,&Center&,x,y)&
btn:SetFrameStrata(&LOW&)&
local cd = CreateFrame(&Cooldown&,nil,btn)&
cd.noomnicc = true&
cd.noCooldownCount = true&
cd:SetAllPoints(true)&
cd:SetFrameStrata(&MEDIUM&)&
cd:Hide()&
local texture = btn:CreateTexture(nil,&BACKGROUND&)&
texture:SetAllPoints(true)&
texture:SetTexture(abilities[ability].icon)&
texture:SetTexCoord(0.07,0.9,0.07,0.90)&
local text = cd:CreateFontString(nil,&ARTWORK&)&
text:SetFont(STANDARD_TEXT_FONT,18,&OUTLINE&)&
text:SetTextColor(1,1,0,1)&
text:SetPoint(&LEFT&,btn,&LEFT&,2,0)&
btn.texture = texture&
btn.text = text&
btn.duration = abilities[ability].duration&
btn.cd = cd&
bar[ability] = btn&
x = x + 30&
local function InterruptBar_SavePosition()&
local point, _, relativePoint, xOfs, yOfs = bar:GetPoint()&
if not InterruptBarDB.Position then&
InterruptBarDB.Position = {}&
InterruptBarDB.Position.point = point&
InterruptBarDB.Position.relativePoint = relativePoint&
InterruptBarDB.Position.xOfs = xOfs&
InterruptBarDB.Position.yOfs = yOfs&
local function InterruptBar_LoadPosition()&
if InterruptBarDB.Position then&
bar:SetPoint(InterruptBarDB.Position.point,UIParent,InterruptBarDB.Position.relativePoint,InterruptBarDB.Position.xOfs,InterruptBarDB.Position.yOfs)&
bar:SetPoint(&BOTTOM&, CastingBarFrame, &TOP&, 0, 100)&
local function InterruptBar_UpdateBar()&
bar:SetScale(InterruptBarDB.scale)&
if InterruptBarDB.hidden then&
for _,v in ipairs(order) do bar[v]:Hide() end&
for _,v in ipairs(order) do bar[v]:Show() end&
if InterruptBarDB.lock then&
bar:EnableMouse(false)&
bar:EnableMouse(true)&
local function InterruptBar_CreateBar()&
bar = CreateFrame(&Frame&, nil, UIParent)&
bar:SetMovable(true)&
bar:SetWidth(120)&
bar:SetHeight(30)&
bar:SetClampedToScreen(true)&
bar:SetScript(&OnMouseDown&,function(self,button) if button == &LeftButton& then self:StartMoving() end end)&
bar:SetScript(&OnMouseUp&,function(self,button) if button == &LeftButton& then self:StopMovingOrSizing() InterruptBar_SavePosition() end end)&
bar:Show()&
InterruptBar_AddIcons()&
InterruptBar_UpdateBar()&
InterruptBar_LoadPosition()&
local function InterruptBar_UpdateText(text,cooldown)&
if cooldown & 10 then&
if cooldown &= 0.5 then&
text:SetText(&&)&
text:SetFormattedText(& %d&,cooldown)&
text:SetFormattedText(&%d&,cooldown)&
if cooldown & 6 then&
text:SetTextColor(1,0,0,1)&
text:SetTextColor(1,1,0,1)&
if cooldown & 60 then&
text:SetFont(STANDARD_TEXT_FONT,14,&OUTLINE&)&
text:SetFont(STANDARD_TEXT_FONT,18,&OUTLINE&)&
local function InterruptBar_StopAbility(ref,ability)&
if InterruptBarDB.hidden then ref:Hide() end&
if activetimers[ability] then activetimers[ability] = nil end&
ref.text:SetText(&&)&
ref.cd:Hide()&
local time = 0&
local function InterruptBar_OnUpdate(self, elapsed)&
time = time + elapsed&
if time & 0.25 then&
getsize()&
for ability,ref in pairs(activetimers) do&
ref.cooldown = ref.start + ref.duration - GetTime()&
if ref.cooldown &= 0 then&
InterruptBar_StopAbility(ref,ability)&
InterruptBar_UpdateText(ref.text,floor(ref.cooldown+0.5))&
if size == 0 then frame:SetScript(&OnUpdate&,nil) end&
time = time - 0.25&
local function InterruptBar_StartTimer(ref,ability)&
if not ref then return end&
if InterruptBarDB.hidden then&
ref:Show()&
if not activetimers[ability] then&
local duration&
activetimers[ability] = ref&
ref.cd:Show()&
ref.cd:SetCooldown(GetTime()-0.40,ref.duration)&
ref.start = GetTime()&
InterruptBar_UpdateText(ref.text,ref.duration)&
frame:SetScript(&OnUpdate&,InterruptBar_OnUpdate)&
local function InterruptBar_COMBAT_LOG_EVENT_UNFILTERED(...)&
local spellID, ability, useSecondDuration&
return function(_, eventtype, _, _, srcName, srcFlags, _, _, dstName, dstFlags, _, id)&
if (band(srcFlags, 0x) == 0x and eventtype == &SPELL_CAST_SUCCESS&) then&
spellID = id&
useSecondDuration = false&
ability = GetSpellInfo(spellID)&
if abilities[ability] then&
InterruptBar_StartTimer(bar[ability],ability)&
InterruptBar_COMBAT_LOG_EVENT_UNFILTERED = InterruptBar_COMBAT_LOG_EVENT_UNFILTERED()&
local function InterruptBar_ResetAllTimers()&
for _,ability in ipairs(order) do&
InterruptBar_StopAbility(bar[ability])&
active = 0&
local function InterruptBar_PLAYER_ENTERING_WORLD(self)&
InterruptBar_ResetAllTimers()&
local function InterruptBar_Reset()&
InterruptBarDB = { scale = 1, hidden = false, lock = false }&
InterruptBar_UpdateBar()&
InterruptBar_LoadPosition()&
local function InterruptBar_Test()&
for _,ability in ipairs(order) do&
InterruptBar_StartTimer(bar[ability],ability)&
local cmdfuncs = {&
scale = function(v) InterruptBarDB.scale = InterruptBar_UpdateBar() end,&
hidden = function() InterruptBarDB.hidden = not InterruptBarDB. InterruptBar_UpdateBar() end,&
lock = function() InterruptBarDB.lock = not InterruptBarDB. InterruptBar_UpdateBar() end,&
reset = function() InterruptBar_Reset() end,&
test = function() InterruptBar_Test() end,&
columns = function(v) InterruptBarDB.columns = v&
ChatFrame1:AddMessage(&Type '/console reloadui' Or reload Wow to update the interface of InterruptBar.&,0,1,0)&
local cmdtbl = {}&
function InterruptBar_Command(cmd)&
for k in ipairs(cmdtbl) do&
cmdtbl[k] = nil&
for v in gmatch(cmd, &[^ ]+&) do&
tinsert(cmdtbl, v)&
local cb = cmdfuncs[cmdtbl[1]]&
if cb then&
local s = tonumber(cmdtbl[2])&
ChatFrame1:AddMessage(&InterruptBar Options | /ib &option&&,0,1,0)&
ChatFrame1:AddMessage(&-- scale &number& | value: & .. InterruptBarDB.scale,0,1,0)&
ChatFrame1:AddMessage(&-- hidden (toggle) | value: & .. tostring(InterruptBarDB.hidden),0,1,0)&
ChatFrame1:AddMessage(&-- lock (toggle) | value: & .. tostring(InterruptBarDB.lock),0,1,0)&
ChatFrame1:AddMessage(&-- test (execute)&,0,1,0)&
ChatFrame1:AddMessage(&-- reset (execute)&,0,1,0)&
ChatFrame1:AddMessage(&-- columns &number& | value: & .. InterruptBarDB.columns,0,1,0)&
local function InterruptBar_OnLoad(self)&
self:RegisterEvent(&PLAYER_ENTERING_WORLD&)&
self:RegisterEvent(&COMBAT_LOG_EVENT_UNFILTERED&)&
if not InterruptBarDB.scale then InterruptBarDB.scale = 1 end&
if not InterruptBarDB.columns then InterruptBarDB.columns = 4 end&
if not InterruptBarDB.hidden then InterruptBarDB.hidden = false end&
if not InterruptBarDB.lock then InterruptBarDB.lock = false end&
InterruptBar_CreateBar()&
SlashCmdList[&InterruptBar&] = InterruptBar_Command&
SLASH_InterruptBar1 = &/ib&&
ChatFrame1:AddMessage(&Interrupt Bar by Kollektiv. Type /ib for options.&,0,1,0)&
local eventhandler = {&
[&VARIABLES_LOADED&] = function(self) InterruptBar_OnLoad(self) end,&
[&PLAYER_ENTERING_WORLD&] = function(self) InterruptBar_PLAYER_ENTERING_WORLD(self) end,&
[&COMBAT_LOG_EVENT_UNFILTERED&] = function(self,...) InterruptBar_COMBAT_LOG_EVENT_UNFILTERED(...) end,&
local function InterruptBar_OnEvent(self,event,...)&
eventhandler[event](self,...)&
frame = CreateFrame(&Frame&,nil,UIParent)&
frame:SetScript(&OnEvent&,InterruptBar_OnEvent)&
frame:RegisterEvent(&VARIABLES_LOADED&)
--[命令/ib lock 锁定框架 /ib hidden 隐藏 /ib scale 大小设置]
--[网格界面校正]
SLASH_EA1 = &/align&
SlashCmdList[&EA&] = function()
& &if f then
& & & f:Hide()
& & & f = nil & & &
& & & f = CreateFrame('Frame', nil, UIParent)&
& & & f:SetAllPoints(UIParent)
& & & local w = GetScreenWidth() / 64
& & & local h = GetScreenHeight() / 36
& & & for i = 0, 64 do
& & & & &local t = f:CreateTexture(nil, 'BACKGROUND')
& & & & &if i == 32 then
& & & & & & t:SetTexture(1, 0, 0, 0.5)
& & & & &else
& & & & & & t:SetTexture(0, 0, 0, 0.5)
& & & & &end
& & & & &t:SetPoint('TOPLEFT', f, 'TOPLEFT', i * w - 1, 0)
& & & & &t:SetPoint('BOTTOMRIGHT', f, 'BOTTOMLEFT', i * w + 1, 0)
& & & for i = 0, 36 do
& & & & &local t = f:CreateTexture(nil, 'BACKGROUND')
& & & & &if i == 18 then
& & & & & & t:SetTexture(1, 0, 0, 0.5)
& & & & &else
& & & & & & t:SetTexture(0, 0, 0, 0.5)
& & & & &end
& & & & &t:SetPoint('TOPLEFT', f, 'TOPLEFT', 0, -i * h + 1)
& & & & &t:SetPoint('BOTTOMRIGHT', f, 'TOPRIGHT', 0, -i * h - 1)
& & & end &&
--[换天赋自动换装备] -----------------------------------------
local F = CreateFrame(&Frame&)&
F:RegisterEvent(&UNIT_SPELLCAST_STOP&)&
F:SetScript(&OnEvent&, function(_,_,unit,_,_,_,spell)&
if unit == &player& then&
if spell == 63645 then&
EquipmentManager_EquipSet(&战场军装&) -- 主天赋装备名称zhu
elseif spell == 63644 then&
EquipmentManager_EquipSet(&副本装备&) -- 副天赋装备名称fu
--[重载命令]
SlashCmdList[&RELOADUI&] = function() ReloadUI() end
SLASH_RELOADUI1 = &/rl&&
--[错误框体位置及透明度]&
UIErrorsFrame:ClearAllPoints()&
UIErrorsFrame:SetPoint(&TOP&, UIParent, &TOP&, 0, 0)
--[头像位置大小及施法条修改]---------------------------------------------------------------------------------------------------
TargetFrame:ClearAllPoints()&
TargetFrame:SetPoint(&CENTER&, UIParent, &CENTER&,-210, 180)--目标头像位置&
FocusFrame:ClearAllPoints()&
FocusFrame:SetPoint(&CENTER&, UIParent, &CENTER&, 240, 180)--焦点头像位置&
TargetFrameSpellBar:ClearAllPoints()&
TargetFrameSpellBar:SetPoint(&BOTTOM&, TargetFrame, &TOP&)--目标施法条位置&
TargetFrameSpellBar.SetPoint = function() end
--[竞技场框体测试]
ArenaEnemyFrame1:Show();ArenaEnemyFrame2:Show();ArenaEnemyFrame3:Show()
LoadAddOn(&Blizzard_ArenaUI&);ArenaEnemyFrames:Show();ArenaEnemyFrame1:Show();ArenaEnemyFrame2:Show();ArenaEnemyFrame3:Show();ArenaEnemyFrame1CastingBar:Show()&
--[战场灵魂自动释放]----------------
local R = CreateFrame(&Frame&)
R:RegisterEvent(&PLAYER_DEAD&)
R:SetScript(&OnEvent&,function()
if UnitInBattleground(&player&) then
--[玩家法术监视图标，监视自身buff] ----------------------------------------------------------------
bl={,,72,,,,843,}
bs=26;xb=-1;yb=-60;br=6;bdr=&BORDER&be=&UNIT_AURA&cbf=CreateFgi=GetSpellIbm=math.fm=math.st=STANDARD_TEXT_FONT;function cu(s) return UnitBuff(&Player&,gi(s))end
function Cb(i,s)local _,_,t3=gi(s)local f=cbf(&Frame&)f:SetSize(bs,bs)f.t=f:CreateTexture(nil,bdr)f.t:SetAllPoints(true)f.t:SetTexture(t3)f.f=f:CreateFontString(nil,bdr)f.f:SetFont(st,12,&OUTLINE&)f.f:SetPoint(&BOTTOMRIGHT&,0,0)end
function vb(s,i,row)local b1,_,_,b4=cu(s)local f=_G[&B&..i]if b1 then f:Show()f:SetPoint(&CENTER&,xb-(bs+5)*bm((row-1)%br),yb-(bs+10)*bm(row/br))if(b4&1)then f.f:SetText(b4)end row=row+1;end
function ub()for i,s in ipairs(bl)do local b,_,_,_,_,_,k=cu(s)if b then local vt=fm(k-GetTime())if (vt&=60)then vt=bm(vt/60)_G[&B&..i].c:SetText(vt..&m&)elseif vt &= 0 then _G[&B&..i].c:SetText(vt..&s&)end end end end
function Cc(f)f.c=f:CreateFontString(nil,bdr)f.c:SetFont(st,12,&OUTLINE&)f.c:SetPoint(&CENTER&,0,-20)end function db()for i in ipairs(bl)do _G[&B&..i]:Hide()end end
for i,s in ipairs(bl)do _G[&B&..i]=Cb(i,s)Cc(_G[&B&..i])_G[&B&..i]:Hide()end function bb()db()local bw=1;for i,s in ipairs(bl)do bw=vb(s,i,bw)end end bk=cbf(&Frame&)bk:SetScript(&OnEvent&,bb)bk:SetScript(&OnUpdate&,ub)bk:RegisterEvent(be)
--[Omicc冷却计时] --------------------------------------------------------------
cs=20;ps=1;ctp=&CENTER&ptp=&BOTTOMRIGHT&cp=5;ct=UNIT_NAME_FONT;crt=2;cDB={}action={}ccf=CreateFgac=GetActionCol=&OUTLINE&cpe=&PLAYER_ENTERING_WORLD&cau=&ACTIONBAR_UPDATE_COOLDOWN&co=&OnUpdate&
function rt(f)f.e=nil f.t:SetText(&&)f:SetScript(co,nil)end function sf(f,v)f.t:SetFont(ct,f.s*v,ol)end function acv(b)local x=b.cooldown x.a=b.action action[x]=x end function scv(p,f,po,s)if(s&1)then f.t:SetPoint(po,p)end f.s=s;end
function sr(f,e)if(e&60)then sf(f,0.7)if(f.s==cs)then return&%d:%02d&,e,e else return&%dm&,e+60,e end elseif(e&=cp)then sf(f,1)f.t:SetTextColor(1,1,0,1)return&%d&,e elseif(e&0)then sf(f,0.9)f.t:SetTextColor(1,0,0,1)return&%d&,e else return end end
function suc(f)if not f.e then f.e=1;f:SetScript(co,function(s,e)f.c=f.c+e;local fo,v1,v2=sr(f,f.r-f.c)if not fo then rt(f)elseif not v2 then f.t:SetFormattedText(fo,v1)else f.t:SetTextColor(1,1,1,1)f.t:SetFormattedText(fo,v1/60,v2%60)end end)end end
function scs(p,f)if(p:GetSize()&35)then scv(p,f,ptp,ps)else scv(p,f,ctp,cs)end end function gict(f)local c=ccf(&Frame&,nil,f)c:SetFrameLevel(f:GetFrameLevel()+5)c.t=c:CreateFontString(nil,&OVERLAY&)c.t:SetAllPoints(c)scs(f:GetParent(),c)end
function gct(f)if not cDB[f]then local c=gict(f)c:SetSize(c.s*crt,c.s*crt)sf(c,1)cDB[f]=c;end return cDB[f]end function cvf(f,s,d)local c=gct(f)if(s and d)then c.b=s;c.d=d;if(s&0 and d&1.5)then c.c=0;c.r=d-(GetTime()-s);suc(c)else rt(c)end end end
function cvc(DB)for c in pairs(DB)do if c.a then local s,d=gac(c.a)cvf(c,s,d)end end end function pcv(_,e)if e==cau then cvc(action)else cvc(cDB)end end for _,b in pairs(ActionBarButtonEventsFrame.frames)do acv(b)end
vc=ccf(&Frame&)vc:SetScript(&OnEvent&,pcv)vc:RegisterEvent(cpe)vc:RegisterEvent(cau)hooksecurefunc(getmetatable(ActionButton1Cooldown).__index,&SetCooldown&,cvf)hooksecurefunc(&SetActionUIButton&,acv)
--[移动宝宝并隐藏姓名]
PetFrame:SetScript(&OnShow&, nil)&
PetFrame:SetParent(UIParent)&
PetFrame:ClearAllPoints()&
PetFrame:SetPoint(&TOP&, PlayerFrame, &BOTTOM&,)&
PetName:Hide()
--[目标及焦点战斗状态指示]-----------------------------------------------------------------------------------------------------------
local t = CreateFrame(&Frame&, UIParent)&
t.t = t:CreateTexture()&
t.t:SetTexture(&Interface\\CHARACTERFRAME\\UI-StateIcon.blp&)&
t.t:SetTexCoord(0.5,1,0,0.49);&
t.t:SetAllPoints(t)&
t:SetWidth(25)&
t:SetHeight(25)&
t:SetPoint(&CENTER&, TargetFrame, &RIGHT&, -25, 25) -----目标位置&
local function FrameOnUpdate(self)&
if UnitAffectingCombat(&target&) then&
self:Show()&
self:Hide()&
local g = CreateFrame(&Frame&)&
g:SetScript(&OnUpdate&, function(self) FrameOnUpdate(t) end)&
local f = CreateFrame(&Frame&, UIParent)&
f.t = f:CreateTexture()&
f.t:SetTexture(&Interface\\CHARACTERFRAME\\UI-StateIcon.blp&)&
f.t:SetTexCoord(0.5,1,0,0.49);&
f.t:SetAllPoints(f)&
f:SetWidth(25)&
f:SetHeight(25)&
f:SetPoint(&CENTER&, FocusFrame, &RIGHT&, -25, -15) ---焦点位置&
local function FrameOnUpdateFocus(self)&
if UnitAffectingCombat(&focus&) then&
self:Show()&
self:Hide()&
local g = CreateFrame(&Frame&)&
g:SetScript(&OnUpdate&, function(self) FrameOnUpdateFocus(f) end)
--[技能远距离指示红]
hooksecurefunc(&ActionButton_OnEvent&,function(self, event, ...)&
if ( event == &PLAYER_TARGET_CHANGED& ) then&
self.newTimer = self.rangeTimer&
hooksecurefunc(&ActionButton_UpdateUsable&,function(self)&
local icon = _G[self:GetName()..&Icon&]&
local valid = IsActionInRange(self.action)&
if ( valid == 0 ) then&
icon:SetVertexColor(1.0, 0.1, 0.1)&
hooksecurefunc(&ActionButton_OnUpdate&,function(self, elapsed)&
local rangeTimer = self.newTimer&
if ( rangeTimer ) then&
rangeTimer = rangeTimer - elapsed&
if ( rangeTimer &= 0 ) then&
ActionButton_UpdateUsable(self)&
rangeTimer = TOOLTIP_UPDATE_TIME&
self.newTimer = rangeTimer&
--[脱离战斗头像渐隐]
local Event = CreateFrame(&Frame&)&
Event:RegisterEvent(&PLAYER_ENTERING_WORLD&,Update)&
Event:RegisterEvent(&PLAYER_REGEN_DISABLED&,Update)&
Event:RegisterEvent(&PLAYER_REGEN_ENABLED&,Update)&
Event:RegisterEvent(&UNIT_TARGET&,Update)&
Event:RegisterEvent(&UNIT_HEALTH&,Update)&
Event:RegisterEvent(&UNIT_POWER&,Update)&
Event:SetScript(&OnEvent&,function(self, event, ...)&
local FrameFadeOut, FrameFadeIn = UIFrameFadeOut, UIFrameFadeIn&
local InCombat, Target, IsDead = InCombatLockdown(), UnitExists(&target&), UnitIsDeadOrGhost(&player&)&
local PlayerMaxHp, PlayerMaxMp = UnitHealth(&player&) == UnitHealthMax(&player&), UnitPower(&player&) == UnitPowerMax(&player&)&
local PlayerNoMaxHp, PlayerNoMaxMp = UnitHealth(&player&) ~= UnitHealthMax(&player&), {}&
local _, powerTypeString = UnitPowerType(&player&)&
if powerTypeString == &RAGE& or powerTypeString == &RUNIC_POWER& then&
PlayerNoMaxMp = UnitPower(&player&) == UnitPowerMax(&player&)&
PlayerNoMaxMp = UnitPower(&player&) ~= UnitPowerMax(&player&)&
if event == &PLAYER_REGEN_ENABLED& or not Target or not IsDead and PlayerMaxHp or not IsDead and PlayerMaxMp then&
FrameFadeOut(PlayerFrame, 2.0, PlayerFrame:GetAlpha(), 0)&
if event == &PLAYER_REGEN_DISABLED& or Target or not IsDead and PlayerNoMaxHp or not IsDead and PlayerNoMaxMp then&
FrameFadeIn(PlayerFrame, 0.1, PlayerFrame:GetAlpha(), 1)&
if (InCombat and not Target) or (not InCombat and Target) then&
FrameFadeIn(PlayerFrame, 0.1, PlayerFrame:GetAlpha(), 1)&
--[目标debuff和buff大小]
local function UpdateTargetAuraPositions(self, auraName, numAuras, numOppositeAuras, largeAuraList, updateFunc, maxRowWidth, offsetX)&
local AURA_OFFSET_Y = 3;&
local LARGE_AURA_SIZE = 30; ---目标debuff大小
local SMALL_AURA_SIZE = 18; ---buff 大小
local offsetY = AURA_OFFSET_Y;&
local rowWidth = 0;&
local firstBuffOnRow = 1;&
for i=1, numAuras do&
if ( largeAuraList[i] ) then&
size = LARGE_AURA_SIZE;&
offsetY = AURA_OFFSET_Y + AURA_OFFSET_Y;&
size = SMALL_AURA_SIZE;&
if ( i == 1 ) then&
rowWidth =&
self.auraRows = self.auraRows + 1;&
rowWidth = rowWidth + size + offsetX;&
if ( rowWidth & maxRowWidth ) then&
updateFunc(self, auraName, i, numOppositeAuras, firstBuffOnRow, size, offsetX, offsetY);&
rowWidth =&
self.auraRows = self.auraRows + 1;&
firstBuffOnRow =&
offsetY = AURA_OFFSET_Y;&
updateFunc(self, auraName, i, numOppositeAuras, i - 1, size, offsetX, offsetY);&
hooksecurefunc(&TargetFrame_UpdateAuraPositions&, UpdateTargetAuraPositions)&
--[[crapcleaner]]&
local f = CreateFrame(&Frame&)&
f:SetScript(&OnEvent&, function()&
local c = 0&
for b=0,4 do&
for s=1,GetContainerNumSlots(b) do&
local l = GetContainerItemLink(b, s)&
if l then&
local p = select(11, GetItemInfo(l))*select(2, GetContainerItemInfo(b, s))&
if select(3, GetItemInfo(l))==0 and p&0 then&
UseContainerItem(b, s)&
PickupMerchantItem()&
if c&0 then&
local g, s, c = math.floor(c/10000) or 0, math.floor((c%1) or 0, c%100&
DEFAULT_CHAT_FRAME:AddMessage(&Your vendor trash has been sold and you earned&..& |cffffffff&..g..&|cffffc125g|r&..& |cffffffff&..s..&|cffc7c7cfs|r&..& |cffffffff&..c..&|cffeda55fc|r&..&.&,255,255,255) --&Your vendor trash has been sold and you earned&&
f:RegisterEvent(&MERCHANT_SHOW&)
--[竞技场徽章和移动框架]
rc=30;rfc=CooldownFrame_SetTaef=&ArenaEnemyFrame&;hb=&HealthBar&;trt=GetItemIcon(37864)ctf = CreateFoe=&ARENA_OPPONENT_UPDATE&ve=&PLAYER_ENTERING_WORLD&tr=&RIGHT&LoadAddOn(&Blizzard_ArenaUI&)
function Cr(i)local f=ctf(&Frame&,nil,UIParent)f:SetPoint(tr,_G[aef..i..hb],tr,80,0)f:SetSize(rc,rc)f.t=f:CreateTexture(nil,&BORDER&)f.t:SetAllPoints(true)f.t:SetTexture(trt)f.c=CreateFrame(&Cooldown&,nil,f)f.c:SetAllPoints(f)end
function ur(f,i)f:SetScript(&OnEvent&,function(_,e,u,_,_,_,s)if(u==&arena&..i)then if(s==42292 or s==59752)then rfc(f.c,GetTime(),120,1)elseif(s==7744)then rfc(f.c,GetTime(),30,1)end end end)f:RegisterEvent(&UNIT_SPELLCAST_SUCCEEDED&)end
for i=1,5 do _G[&rf&..i]=Cr(i)local f=_G[&rf&..i]ur(f,i)f:Hide()end function str(o,m)for i=1, m do local f=_G[&rf&..i]if o then f:Show()else f:Hide()f.c:Hide()end end end
tk=ctf(&Frame&)tk:SetScript(&OnEvent&,function(_,e)if e==oe then str(1,GetNumArenaOpponents())else str(nil,5)end end)tk:RegisterEvent(oe)tk:RegisterEvent(ve)
LoadAddOn(&Blizzard_ArenaUI&)&
ArenaEnemyFrames:SetScale(1.47)
ArenaEnemyFrame1:ClearAllPoints()
ArenaEnemyFrame1:SetPoint(&TOPRIGHT&, -760, -180)
ArenaEnemyFrame2:ClearAllPoints()&
ArenaEnemyFrame2:SetPoint(&TOPRIGHT&, -760, -245)
ArenaEnemyFrame3:ClearAllPoints()&
ArenaEnemyFrame3:SetPoint(&TOPRIGHT&, -760, -305)
--[职业头像 ] -----------------------------------------------------------------------
hooksecurefunc(&UnitFramePortrait_Update&,function(self)&
if self.portrait then&
if UnitIsPlayer(self.unit) then&
local t = CLASS_ICON_TCOORDS[select(2, UnitClass(self.unit))]&
if t then&
self.portrait:SetTexture(&Interface\\TargetingFrame\\UI-Classes-Circles&)&
self.portrait:SetTexCoord(unpack(t))&
self.portrait:SetTexCoord(0,1,0,1)&
--[框体大小]
BuffFrame:SetScale(1.1)&
ConsolidatedBuffs:SetScale(1.1)&
TemporaryEnchantFrame:SetScale(1)
FocusFrame:SetScale(1.1)&
PlayerFrame:SetScale(1.12)&
TargetFrame:SetScale(1.12)&
TargetFrameNameBackground:Hide()
FocusFrameNameBackground:Hide()
TargetFrameSpellBar:SetScale(1.1)
MainMenuBar:SetScale(1.05)
--[登录自动载入以上插件]
local frame = CreateFrame(&Frame&)&
frame:RegisterEvent(&PLAYER_LOGIN&)&
frame:RegisterEvent(&ADDON_LOADED&)&
frame:RegisterEvent(&PLAYER_ENTERING_WORLD&)&
SLASH_AF1 = &/af&&
local function eventHandler(self,event,arg1)&
if event == &PLAYER_LOGIN& then&
UIErrorsFrame:UnregisterEvent(&UI_ERROR_MESSAGE&)&
frame:SetScript(&OnEvent&,eventHandler)
---[自带LoseControl去转圈、调大小、位置、去阴影]------------------------
local f=CreateFrame(&Frame&) f:RegisterEvent(&LOSS_OF_CO***OL_ADDED&) f:RegisterEvent(&LOSS_OF_CO***OL_UPDATE&) f:SetScript(&OnEvent&,function() for b in pairs(ActionBarActionEventsFrame.frames) do b.cooldown:SetLossOfControlCooldown(0,0) end end)
LossOfControlFrame:SetScale(1.0)
LossOfControlFrame:ClearAllPoints() LossOfControlFrame:SetPoint(&CENTER&,UIParent,&CENTER&,8,-35)
select(1,LossOfControlFrame:GetRegions()):SetAlpha(0)
select(2,LossOfControlFrame:GetRegions()):SetAlpha(0) select(3,LossOfControlFrame:GetRegions()):SetAlpha(0)
--[本身移动施法条]---------------------------------------
CastingBarFrame:ClearAllPoints()
CastingBarFrame:SetPoint(&CENTER&,UIParent,&CENTER&,0,-200)
CastingBarFrame.SetPoint = function() end&
相关报道：
Copyright (C) 2011 - 2014 Corporation, All Rights Reserved
10C魔兽世界私服