drakedog吧 关注:4,987贴子:276,037

【不用插件者福利】教你用宏做出插件效果

只看楼主收藏回复

转自NGA


IP属地:陕西来自手机贴吧1楼2011-11-10 08:37回复
    声明:所有宏的版权归Diziet/Kollektiv.
    使用方法:
    1.初级:每一行/run 做成一个宏,拖出来一个个点一遍...或者一条条复制到聊天栏里吧...
    2.进阶: 使用以下宏绑定各个宏的快捷键,然后按快捷键...NUMPAD1 是小键盘数字键1,以此类推, A,B,C..为你做的宏的名字)


    IP属地:陕西来自掌上百度2楼2011-11-10 08:38
    回复
      /run sbc=SetBindingMacro;sbc("NUMPAD1","A");sbc("NUMPAD2","B");sbc("NUMPAD3","C");sbc("NUMPAD4","D");sbc("NUMPAD5","E");sbc("NUMPAD6","F");sbc("NUMPAD7","G");sbc("NUMPAD8","H");sbc("NUMPAD9","I");sbc("ALT-NUMPAD1","J");sbc("ALT-NUMPAD2","K"
      /run sbc("SHIFT-F3","SF3");sbc("SHIFT-F4","SF4");sbc("SHIFT-F5","SF5");sbc("SHIFT-F6","SF6");sbc("SHIFT-F7","SF7");sbc("SHIFT-F8","SF8");sbc("SHIFT-F9","SF9");sbc("SHIFT-F10","SF10");SaveBindings(1)
      反制类法术监视(自动秒表监视)


      IP属地:陕西来自掌上百度3楼2011-11-10 08:40
      回复
        /run AID={};for i=1,5 do AID["arena"..i]=1;AID["arenapet"..i]=1 end;GSI=GetSpellInfo;INTIDS={[GSI(2139)]=24,[GSI(19647)]=24,[GSI(691)]=1};StopwatchFrame:Show()
        /run local f=CreateFrame("Frame");f:RegisterEvent("UNIT_SPELLCAST_SUCCEEDED");f:SetScript("OnEvent",function(f,e,u,s,_)if((AID[u]) and INTIDS[s])then Stopwatch_StartCountdown(0,0,INTIDS[s]);Stopwatch_Play();end end)
        Class icon (职业头像)


        IP属地:陕西来自掌上百度4楼2011-11-10 08:41
        回复
          /run zf = CreateFrame("FRAME") zf:RegisterEvent("PLAYER_ENTERING_WORLD") zf:RegisterEvent("PARTY_MEMBERS_CHANGED") zf:RegisterEvent("PLAYER_TARGET_CHANGED") zf:RegisterEvent(S.C)
          /run function zz(self, event, td) if (event == S.C and td ~= "target") then return end; if UnitIsPlayer("target") then _, class = UnitClass("target"); c = RAID_CLASS_COLORS[class]; _G[S.A]:SetVertexColor(c.r, c.g, c.B); _G[S.A]:SetAlpha(1); end end
          /run zf:SetScript("OnEvent", zz);ff = CreateFrame("FRAME") ff:RegisterEvent("PLAYER_ENTERING_WORLD") ff:RegisterEvent("PARTY_MEMBERS_CHANGED") ff:RegisterEvent("PLAYER_FOCUS_CHANGED") ff:RegisterEvent(S.C)
          /run function ft(self, event, td) if (event == S.C and td ~= "focus") then return end; if UnitIsPlayer("focus") then _, class = UnitClass("focus"); c = RAID_CLASS_COLORS[class]; _G[S.B]:SetVertexColor(c.r, c.g, c.B); _G[S.B]:SetAlpha(1) end end
          /run ff:SetScript("OnEvent", ft)
          POWER AURAS (宏做出POWER AURAS插件的效果, 在我以前一个帖子有提到过, 改变spell id(法术ID)监视你需要的技能,下面例子监视自身触发的4个AURAS. 基本原理就是利用游戏内置的法术触发监视)


          IP属地:陕西来自掌上百度5楼2011-11-10 08:42
          收起回复
            先收藏一下


            IP属地:海南6楼2011-11-10 08:43
            回复
              /run SAF=SpellActivationOverlayFrame SAS=SpellActivationOverlay_ShowOverlay SAH=SpellActivationOverlay_HideOverlays
              /run FO1="TEXTURES\\SPELLACTIVATIONOVERLAYS\\ART_OF_WAR.BLP";FO2="TEXTURES\\SPELLACTIVATIONOVERLAYS\\FROZEN_FINGERS.BLP";FO3="TEXTURES\\SPELLACTIVATIONOVERLAYS\\BRAIN_FREEZE.BLP";FO4="TEXTURES\\SPELLACTIVATIONOVERLAYS\\LOCK_AND_LOAD.BLP"
              /run PS1=CreateFrame("FRAME");PS2=CreateFrame("FRAME");PS3=CreateFrame("FRAME");PS4=CreateFrame("FRAME")
              /run PS1:RegisterEvent("UNIT_AURA");PS1:SetScript('OnEvent',function() o=0 for i=1,40 do _,_,_,_,_,_,_,_,_,_,id=UnitAura("Player",i) if id==64343 then SAS(SAF,64343,FO1,"RIGHT",.5,255,50,50,false,true) o=1 end end if o==0 then SAH(SAF,64343) end end)
              /run PS2:RegisterEvent("UNIT_AURA");PS2:SetScript('OnEvent',function() o=0 for i=1,40 do _,_,_,_,_,_,_,_,_,_,id=UnitAura("Player",i) if id==44544 then SAS(SAF,44544,FO2,"TOP",.5,255,255,255,false,true) o=1 end end if o==0 then SAH(SAF,44544) end end)
              /run PS3:RegisterEvent("UNIT_AURA");PS3:SetScript('OnEvent',function() o=0 for i=1,40 do _,_,_,_,_,_,_,_,_,_,id=UnitAura("Player",i) if id==57761 then SAS(SAF,57761,FO3,"LEFT",.5,255,255,255,true,false) o=1 end end if o==0 then SAH(SAF,57761) end end)
              /run PS4:RegisterEvent("UNIT_AURA");PS4:SetScript('OnEvent',function() o=0 for i=1,40 do _,_,_,_,_,_,_,_,_,_,id=UnitAura("Player",i) if id==91024 then SAS(SAF,91024,FO4,"BOTTOM",.8,255,255,255,true,true) o=1 end end if o==0then SAH(SAF,91024) end end)
              arena123 pvp trinkets (默认竞技场目标徽章监视)


              IP属地:陕西来自掌上百度7楼2011-11-10 08:43
              回复
                /run USS="UNIT_SPELLCAST_SUCCEEDED";OE="OnEvent";PvP="Interface\\Icons\\inv_jewelry_trinketpvp_01";F="Frame";CF=CreateFrame;BO="Border";PvPT="PvP Trinket";EMFH="Every ManFor Himself";CTFS=COMBAT_TEXT_SCROLL_FUNCTION
                /run function TrS(f,x,y,cd) f:SetPoint("CENTER",TargetFrame,"CENTER",x,y)f:SetSize(20,20)f.c=CF("Cooldown",cd)f.c:SetAllPoints(f)f.t=f:CreateTexture(nil,BO)f.t:SetAllPoints()f.t:SetTexture(PvP);f:Hide();f:RegisterEvent(USS) end
                /run t1=CF(F);TrS(t1,200,76,"cd1");t2=CF(F);TrS(t2,200,135,"cd2");t3=CF(F)TrS(t3,200,191,"cd3")
                /run function Tr(f,cd,U,N,T)if(U==T and N==PvPT or N==EMFH)then f:Show();CooldownFrame_SetTimer(cd,GetTime(),10,1)end end
                /run t1:SetScript(OE,function(_,_,U,N)Tr(t1,cd1,U,N,"arena3")end);t2:SetScript(OE,function(_,_,U,N)Tr(t2,cd2,U,N,"arena2")end);t3:SetScript(OE,function(_,_,U,N)Tr(t3,cd3,U,N,"arena1")end);
                Arena123 Lose control (宏实现 losecontrol插件的功能,在竞技场框体右边显示控制技能)


                IP属地:陕西来自掌上百度8楼2011-11-10 08:44
                回复
                  哇。好高端~~


                  9楼2011-11-10 08:56
                  回复
                    吧主求精啊……


                    IP属地:陕西来自手机贴吧10楼2011-11-10 09:20
                    回复
                      难道是传说中的技术宅


                      12楼2011-11-10 10:04
                      回复
                        这些都是暴雪嘉年华上不许用插件,欧美那些职业队伍制作的


                        IP属地:陕西来自手机贴吧13楼2011-11-10 10:08
                        回复
                          如果是原创我就给你精了


                          IP属地:福建14楼2011-11-10 10:22
                          回复
                            mark一下


                            IP属地:陕西15楼2011-11-10 10:56
                            回复