API tools faq
paste
Advertisement
wit4er

autoscript 5.0.5

wit4er
Sep 12th, 2012
352
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 14.16 KB | None | 0 0
raw download clone embed print report
  1. --macro/binds
  2. local frame = CreateFrame("FRAME", "DefaultUIScrips")
  3. frame:RegisterEvent("PLAYER_ENTERING_WORLD")
  4.      local function eventHandler(self, event, ...)        
  5.         UIErrorsFrame:UnregisterEvent("UI_ERROR_MESSAGE")
  6.         COMBAT_TEXT_TYPE_INFO.PERIODIC_HEAL_ABSORB.show = nil
  7.         COMBAT_TEXT_TYPE_INFO.HEAL_CRIT_ABSORB.show = nil
  8.         COMBAT_TEXT_TYPE_INFO.HEAL_ABSORB.show = nil
  9.         COMBAT_TEXT_TYPE_INFO.ABSORB.show = nil
  10.         COMBAT_TEXT_TYPE_INFO.SPELL_ABSORB.show = nil      
  11. end
  12. frame:SetScript("OnEvent", eventHandler)
  13. hooksecurefunc('ActionButton_UpdateHotkeys', function(self)
  14.     local macro, hotkey = _G[self:GetName()..'Name'], _G[self:GetName()..'HotKey']
  15.     if macro and hotkey then macro:Hide() hotkey:Hide() end
  16. end)
  17. --combat text font
  18. local fontName = "Fonts\\font.ttf"
  19. local fontHeight = 40
  20. local fFlags = ""
  21. local function FS_SetFont()
  22.     DAMAGE_TEXT_FONT = fontName
  23.     COMBAT_TEXT_HEIGHT = fontHeight
  24.     COMBAT_TEXT_CRIT_MAXHEIGHT = fontHeight + 2
  25.     COMBAT_TEXT_CRIT_MINHEIGHT = fontHeight - 2
  26.     local fName, fHeight, fFlags = CombatTextFont:GetFont()
  27.     CombatTextFont:SetFont(fontName, fontHeight, fFlags)
  28. end
  29. FS_SetFont()
  30. --combat text location
  31. local f = CreateFrame("FRAME");
  32. f:SetScript("OnEvent", function(self,event,...)
  33.                         local arg1 =...;        
  34.                         if (arg1=="Blizzard_CombatText") then
  35.                           f:UnregisterEvent("ADDON_LOADED");
  36.                           hooksecurefunc("CombatText_UpdateDisplayedMessages",
  37.                           function ()
  38.                                 COMBAT_TEXT_LOCATIONS =
  39.                                 {startX  = 350,
  40.                                 startY = 500 * COMBAT_TEXT_Y_SCALE,
  41.                                 endX =350,
  42.                                 endY = 300 * COMBAT_TEXT_Y_SCALE};
  43.                           end)end end)
  44. f:RegisterEvent("ADDON_LOADED");
  45. --hp
  46. local f=function(v)if(v>=1e4) then return ('%.1fk'):format(v/1e3):gsub('%.?0+([km])$','%1') else return v end end
  47.         hooksecurefunc("TextStatusBar_UpdateTextString",function(s)
  48.         if not GetCVarBool("statusTextPercentage") then
  49.             if s.TextString and s.currValue then
  50.             s.TextString:SetText(f(s.currValue))           
  51.           end
  52.      end
  53. end)
  54. local frame = CreateFrame("FRAME")
  55. frame:RegisterEvent("PLAYER_ENTERING_WORLD")
  56. frame:RegisterEvent("PARTY_MEMBERS_CHANGED")
  57. frame:RegisterEvent("PLAYER_TARGET_CHANGED")
  58. frame:RegisterEvent("PLAYER_FOCUS_CHANGED")
  59. frame:RegisterEvent("UNIT_FACTION")
  60. frame:RegisterEvent("ARENA_OPPONENT_UPDATE")
  61. frame:RegisterEvent("PLAYER_CONTROL_GAINED")
  62. frame:RegisterEvent("PLAYER_CONTROL_LOST")
  63. frame:RegisterEvent("ADDON_LOADED");  
  64. local function eventHandler(self, event, arg, ...)
  65.         if (event == "UNIT_FACTION" and arg ~= "target" and arg ~= "focus") then return end            
  66.         if UnitExists("target") then                
  67.                 TargetFrameNameBackground:SetVertexColor(0.0, 0.0, 0.0, 0.5)
  68.         end
  69.         if UnitExists("focus") then                
  70.                 FocusFrameNameBackground:SetVertexColor(0.0, 0.0, 0.0, 0.5)
  71.         end        
  72. end
  73. frame:SetScript("OnEvent", eventHandler)
  74. --class colored hp bars
  75. local UnitIsPlayer,UnitIsConnected, UnitClass, RAID_CLASS_COLORS = UnitIsPlayer,UnitIsConnected,UnitClass, RAID_CLASS_COLORS
  76. local _, class, c
  77. local function colour(statusbar, unit, name)
  78.       if UnitIsPlayer(unit) and UnitIsConnected(unit) and unit == statusbar.unit and UnitClass(unit) then
  79.           _, class = UnitClass(unit) c = CUSTOM_CLASS_COLORS and CUSTOM_CLASS_COLORS[class] or RAID_CLASS_COLORS[class]
  80.           statusbar:SetStatusBarColor(c.r, c.g, c.b)         
  81.           statusbar = _G["PlayerFrame".."HealthBar"]:SetStatusBarColor(0.1, 1.0, 0.1)--playerframe fix   
  82.       end    
  83. end
  84. hooksecurefunc("UnitFrameHealthBar_Update", colour)
  85. hooksecurefunc("HealthBar_OnValueChanged", function(self)colour(self, self.unit)end)
  86. local sb = _G.GameTooltipStatusBar
  87. local addon = CreateFrame("Frame", "StatusColour")
  88. addon:RegisterEvent("UPDATE_MOUSEOVER_UNIT")
  89. addon:SetScript("OnEvent", function()
  90. colour(sb, "mouseover") end)
  91. hooksecurefunc("UnitFrame_Update", function(self)
  92.         if UnitClass(self.unit) then
  93.                 local c = (CUSTOM_CLASS_COLORS or RAID_CLASS_COLORS)[select(2,UnitClass(self.unit))]
  94.                 self.name:SetTextColor(c.r,c.g,c.b,1) end end)
  95. --arena trinkets
  96. local trinkets = {}
  97. local events = CreateFrame("Frame")
  98. function events:ADDON_LOADED(addonName)
  99.     if addonName ~= "Blizzard_ArenaUI" then
  100.         return
  101.     end
  102.         ArenaEnemyFrame1:ClearAllPoints()
  103.         ArenaEnemyFrame1:SetPoint("TOPRIGHT", UIParent, "TOPRIGHT", -100, -200)    
  104.         ArenaEnemyFrame1.SetPoint = function() end 
  105.         ArenaEnemyFrame2:ClearAllPoints()
  106.         ArenaEnemyFrame2:SetPoint("BOTTOMLEFT", ArenaEnemyFrame1, "BOTTOMLEFT", 0, -50)
  107.         ArenaEnemyFrame2.SetPoint = function() end
  108.         ArenaEnemyFrame3:ClearAllPoints()
  109.         ArenaEnemyFrame3:SetPoint("BOTTOMLEFT", ArenaEnemyFrame1, "BOTTOMLEFT", 0, -100)
  110.         ArenaEnemyFrame3.SetPoint = function() end     
  111.     local arenaFrame, trinket
  112.     for i = 1, MAX_ARENA_ENEMIES do
  113.         arenaFrame = "ArenaEnemyFrame"..i
  114.         trinket = CreateFrame("Cooldown", arenaFrame.."Trinket", ArenaEnemyFrames)
  115.         trinket:SetPoint("TOPRIGHT", arenaFrame, 30, -6)
  116.         trinket:SetSize(24, 24)
  117.         trinket.icon = trinket:CreateTexture(nil, "BACKGROUND")
  118.         trinket.icon:SetAllPoints()
  119.         trinket.icon:SetTexture("Interface\\Icons\\inv_jewelry_trinketpvp_01")
  120.         trinket:Hide()
  121.         trinkets["arena"..i] = trinket
  122.     end
  123.     self:UnregisterEvent("ADDON_LOADED")
  124. end
  125. function events:UNIT_SPELLCAST_SUCCEEDED(unitID, spell, rank, lineID, spellID)
  126.     if not trinkets[unitID] then
  127.         return
  128.     end
  129.     if spellID == 59752 or spellID == 42292 then
  130.         CooldownFrame_SetTimer(trinkets[unitID], GetTime(), 120, 1)
  131.         SendChatMessage("Trinket used by: "..GetUnitName(unitID, true), "PARTY")
  132.     elseif spellID == 7744 then
  133.         CooldownFrame_SetTimer(trinkets[unitID], GetTime(), 45, 1)
  134.         SendChatMessage("WotF used by: "..GetUnitName(unitID, true), "PARTY")
  135.     end
  136. end
  137. function events:PLAYER_ENTERING_WORLD()
  138.     local _, instanceType = IsInInstance()
  139.     if instanceType == "arena" then
  140.         self:RegisterEvent("UNIT_SPELLCAST_SUCCEEDED")
  141.     elseif self:IsEventRegistered("UNIT_SPELLCAST_SUCCEEDED") then
  142.         self:UnregisterEvent("UNIT_SPELLCAST_SUCCEEDED")
  143.         for _, trinket in pairs(trinkets) do
  144.             trinket:SetCooldown(0, 0)
  145.             trinket:Hide()
  146.         end
  147.     end
  148. end
  149. SLASH_TESTAEF1 = "/testaef"
  150. SlashCmdList["TESTAEF"] = function(msg, editBox)
  151.     if not IsAddOnLoaded("Blizzard_ArenaUI") then
  152.         LoadAddOn("Blizzard_ArenaUI")
  153.     end
  154.     ArenaEnemyFrames:Show()
  155.     local arenaFrame
  156.     for i = 1, 3 do
  157.         arenaFrame = _G["ArenaEnemyFrame"..i]      
  158.         arenaFrame.classPortrait:SetTexture("Interface\\TargetingFrame\\UI-Classes-Circles")
  159.         arenaFrame.classPortrait:SetTexCoord(unpack(CLASS_ICON_TCOORDS["WARRIOR"]))
  160.         arenaFrame.name:SetText("Dispelme")
  161.         arenaFrame:Show()              
  162.         CooldownFrame_SetTimer(trinkets["arena"..i], GetTime(), 120, 1)    
  163.     end
  164. end
  165. events:SetScript("OnEvent", function(self, event, ...) return self[event](self, ...) end)
  166. events:RegisterEvent("ADDON_LOADED")
  167. events:RegisterEvent("PLAYER_ENTERING_WORLD")
  168. _,Class=UnitClass("player");
  169. if Class == "ROGUE" then
  170. --rogue drtracker
  171. USD="UNIT_SPELLCAST_SUCCEEDED";OT="OnEvent";FR="Frame";RF=CreateFrame;RD="Border";UE=UnitName
  172. CS=RF(FR) CS.c=RF("Cooldown","CST",CS.t) CS:RegisterEvent(USD)
  173. CS.c:SetAllPoints(CS) CS:SetPoint("BOTTOMLEFT",438,437)CS:SetSize(26,26)CS:Hide()CS.t=CS:CreateTexture(nil,RD)CS.t:SetAllPoints()CS.t:SetTexture("Interface\\Icons\\ability_rogue_kidneyshot")
  174. CS:SetScript(OT,function(self,event,...)if UE(select(1,...))==UE("player")and select(5,...)==1833 then CST:SetCooldown(GetTime(),23)CS:Show()CS.elapsed = 0 CS:SetScript('OnUpdate', function(self, elapsed)if self.elapsed > 24 then self:SetScript('OnUpdate', nil) self:Hide() else self.elapsed = self.elapsed + elapsed end end)end if UE(select(1,...))==UE("player")and select(5,...)==408 then CST:SetCooldown(GetTime(),25)CS:Show() CS.elapsed = 0 CS:SetScript('OnUpdate', function(self, elapsed)if self.elapsed > 26 then self:SetScript('OnUpdate', nil) self:Hide()else self.elapsed = self.elapsed + elapsed end end)end end)
  175. SP=RF(FR) SP.c=RF("Cooldown","SAP",SP.t) SP:RegisterEvent(USD)
  176. SP.c:SetAllPoints(SP) SP:SetPoint("BOTTOMLEFT",438+26,437)SP:Hide()SP:SetSize(26,26)SP.t=SP:CreateTexture(nil,RD)SP.t:SetAllPoints()SP.t:SetTexture("Interface\\Icons\\ability_gouge")
  177. SP:SetScript(OT,function(self,event,...)if UE(select(1,...))==UE("player")and select(5,...)==6770 then SAP:SetCooldown(GetTime(),27)SP:Show()SP.elapsed = 0 SP:SetScript('OnUpdate', function(self, elapsed)if self.elapsed > 28 then self:SetScript('OnUpdate', nil) self:Hide()else self.elapsed = self.elapsed + elapsed end end)end if UE(select(1,...))==UE("player")and select(5,...)==1776 then SAP:SetCooldown(GetTime(),23)SP:Show()SP.elapsed = 0 SP:SetScript('OnUpdate', function(self, elapsed)if self.elapsed > 24 then self:SetScript('OnUpdate', nil) self:Hide()else self.elapsed = self.elapsed + elapsed end end)end end)
  178. GR=RF(FR) GR.c=RF("Cooldown","GAR",GR.t)  
  179. GR.c:SetAllPoints(GR) GR:SetPoint("BOTTOMLEFT",438+52,437)GR:Hide()GR:SetSize(26,26)GR.t=GR:CreateTexture(nil,RD)GR.t:SetAllPoints()GR.t:SetTexture("Interface\\Icons\\spell_shadow_mindrot")
  180. GR:SetScript(OT,function(self,event,...)if UE(select(1,...))==UE("player")and select(5,...)==703 then GAR:SetCooldown(GetTime(),23)GR:Show()GR.elapsed = 0 GR:SetScript('OnUpdate', function(self, elapsed)if self.elapsed > 24 then self:SetScript('OnUpdate', nil) self:Hide()else self.elapsed = self.elapsed + elapsed end end)end end) GR:RegisterEvent(USD)
  181. --combat script
  182. CTT=CreateFrame("Frame")CTT:SetParent(TargetFrame)CTT:SetPoint("Left",TargetFrame,-30,5)CTT:SetSize(25,25)CTT.t=CTT:CreateTexture(nil,BORDER)CTT.t:SetAllPoints()CTT.t:SetTexture("Interface\\Icons\\ABILITY_DUALWIELD")CTT:Hide()
  183. local function FrameOnUpdate(self) if UnitAffectingCombat("target") then self:Show() else self:Hide() end end local g = CreateFrame("Frame") g:SetScript("OnUpdate", function(self) FrameOnUpdate(CTT) end)
  184. CFT=CreateFrame("Frame")CFT:SetParent(FocusFrame)CFT:SetPoint("Left",FocusFrame,-30,5)CFT:SetSize(25,25)CFT.t=CFT:CreateTexture(nil,BORDER)CFT.t:SetAllPoints()CFT.t:SetTexture("Interface\\Icons\\ABILITY_DUALWIELD")CFT:Hide()
  185. local function FrameOnUpdate(self) if UnitAffectingCombat("focus") then self:Show() else self:Hide() end end local g = CreateFrame("Frame") g:SetScript("OnUpdate", function(self) FrameOnUpdate(CFT) end)
  186. CPT=CreateFrame("Frame")--[[CPT:SetParent(PlayerFrame)]]CPT:SetPoint("BOTTOMLEFT",PlayerFrame,35,18)CPT:SetSize(25,25)CPT.t=CPT:CreateTexture(nil,BORDER)CPT.t:SetAllPoints()CPT.t:SetTexture("Interface\\Icons\\ABILITY_DUALWIELD")CPT:Hide()
  187. local function FrameOnUpdate(self) if UnitAffectingCombat("player") then self:Show() else self:Hide() end end local g = CreateFrame("Frame") g:SetScript("OnUpdate", function(self) FrameOnUpdate(CPT) end)
  188. --tweaks
  189. for i, v in pairs({MainMenuBarTexture0,MainMenuBarTexture1,MainMenuBarTexture2,MainMenuBarTexture3,MainMenuBarLeftEndCap,MainMenuBarRightEndCap,MainMenuMaxLevelBar0,MainMenuMaxLevelBar1,MainMenuMaxLevelBar2,MainMenuMaxLevelBar3,BonusActionBarFrameTexture1,BonusActionBarFrameTexture2,BonusActionBarFrameTexture3,
  190. BonusActionBarFrameTexture4,ActionBarUpButton,ActionBarDownButton,MainMenuBarPageNumber,StanceBarFrame,CharacterBag0Slot,CharacterBag1Slot,CharacterBag2Slot,CharacterBag3Slot,TargetFrameTextureFramePVPIcon,FocusFrameTextureFramePVPIcon,PlayerPVPIcon,WatchFrameHeader,WatchFrameCollapseExpandButton}) do v:SetAlpha(0) end
  191.  
  192. MultiBarBottomLeft:ClearAllPoints()         MultiBarBottomLeft:SetPoint("BOTTOMLEFT",ActionButton1,"TOPLEFT",0,6)    MultiBarBottomLeft.SetPoint = function() end
  193. MainMenuBar:ClearAllPoints()                MainMenuBar:SetPoint("BOTTOMLEFT",nil,"BOTTOMLEFT",250,0)                MainMenuBar.SetPoint = function() end
  194. MainMenuBarBackpackButton:ClearAllPoints()  MainMenuBarBackpackButton:SetPoint("BOTTOMRIGHT",nil,"BOTTOMRIGHT",0,0)  MainMenuBarBackpackButton.SetPoint = function() end
  195. CharacterMicroButton:ClearAllPoints()       CharacterMicroButton:SetPoint("TOPRIGHT",UIParent,"TOPRIGHT",0,-170)     CharacterMicroButton.SetPoint = function() end
  196. SpellbookMicroButton:ClearAllPoints()       SpellbookMicroButton:SetPoint("LEFT",CharacterMicroButton,0,-34)         SpellbookMicroButton.SetPoint = function() end
  197. TalentMicroButton:ClearAllPoints()          TalentMicroButton:SetPoint("LEFT",CharacterMicroButton,0,-68)            TalentMicroButton.SetPoint = function() end
  198. AchievementMicroButton:ClearAllPoints()     AchievementMicroButton:SetPoint("LEFT",CharacterMicroButton,0,-102)      AchievementMicroButton.SetPoint = function() end
  199. QuestLogMicroButton:ClearAllPoints()        QuestLogMicroButton:SetPoint("LEFT",CharacterMicroButton,0,-136)         QuestLogMicroButton.SetPoint = function() end
  200. GuildMicroButton:ClearAllPoints()           GuildMicroButton:SetPoint("LEFT",CharacterMicroButton,0,-170)            GuildMicroButton.SetPoint = function() end
  201. PVPMicroButton:ClearAllPoints()             PVPMicroButton:SetPoint("LEFT",CharacterMicroButton,0,-204)              PVPMicroButton.SetPoint = function() end
  202. LFDMicroButton:ClearAllPoints()             LFDMicroButton:SetPoint("LEFT",CharacterMicroButton,0,-238)              LFDMicroButton.SetPoint = function() end
  203. CompanionsMicroButton:ClearAllPoints()      CompanionsMicroButton:SetPoint("LEFT",CharacterMicroButton,0,-272)       CompanionsMicroButton.SetPoint = function() end
  204. EJMicroButton:ClearAllPoints()              EJMicroButton:SetPoint("LEFT",CharacterMicroButton,0,-306)               EJMicroButton.SetPoint = function() end
  205. MainMenuMicroButton:ClearAllPoints()        MainMenuMicroButton:SetPoint("LEFT",CharacterMicroButton,0,-340)         MainMenuMicroButton.SetPoint = function() end
  206. HelpMicroButton:ClearAllPoints()            HelpMicroButton:SetPoint("LEFT",CharacterMicroButton,0,-374)             HelpMicroButton.SetPoint = function() end
  207. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!