|
|
Source code |
1 2 3 4 5 |
/run TakeInboxItem(1) /wait .3 /run DeleteInboxItem(1) /wait .3 /run InboxFrame_Update() |
|
|
Source code |
1 2 |
/run for i=1,10 do TargetNearestFriend() if UnitIsPlayer("target") then break else TargetUnit("") end end
/run if (UnitHealth("target")/UnitMaxHealth("target")<=.97) then CastSpellByName("Urgent Heal") else TargetUnit("") end
|
|
|
Source code |
1 2 3 |
/run SwapEquipmentItem(-1) /wait .5 /run ReturnPet(1) |
|
|
Source code |
1 |
/run for i = 0 , 16, 1 do local dV, dM, iN, dVF, dMF = GetInventoryItemDurable("player",i) if(dV < dM and dV < 101 and dM >= 102) then UseItemByName("Simple Repair Hammer"); PickupEquipmentItem(i); SendSystemChat("Hammered " .. iN); break; end end
|

|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
/script EquipItem(11) /script EquipItem(10) /use One-Kill-A-Day /cast Throw /wait .1 /cast Throw /wait .1 /cast Throw /wait .1 /cast Combo Throw /wait .1 /cast Combo Throw /use Runic Thorn /use Terrible Omen |
|
|
Source code |
1 |
/run ToggleTimeFlagPopupMenu() |
|
|
Source code |
1 2 3 |
/run OpenBank() /run OpenAuction() /run OpenMail() |
|
|
Source code |
1 2 3 4 |
/run for i=1,10 do TargetNearestEnemy(IsShiftKeyDown()) if UnitIsPlayer("target") then break end end
/run if not UnitIsPlayer("target") then TargetUnit("") end
/run primary,secondary = UnitClass("target")
/run SendWarningMsg(primary.."/"..secondary)
|
|
|
Source code |
1 |
/script FramerateText:ClearAllAnchors(); FramerateText:SetAnchor("TOPLEFT", "TOPLEFT", WorldFrame, 1110, 655); FramerateText:Show();
|
|
|
Source code |
1 2 3 4 5 6 7 8 |
/script UseItemByName("Gloves of Assassination");
/wait .1
/script UseEquipmentItem(1)
/wait .1
/script UseItemByName("Leather Gloves of Vigilance");
/wait 60
/wait 60
/w Bleedingblak PVPGLOVS
|
|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 |
/run SetTitleRequest(530538); /wait .2 /cast Soldiers, Attack! /wait 20 /s ReCast Soldiers' Attack /s ReCast Soldiers' Attack /p ReCast Soldiers' Attack /p ReCast Soldiers' Attack /wait 40 /wait 60 /wait 60 /wait 60 /w Bleedingblak SA ready |
|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 |
/run SetTitleRequest(530467); /wait .2 /cast Fire Training /wait 20 /s ReCast Fire Training /s ReCast Fire Training /p ReCast Fire Training /p ReCast Fire Training /wait 40 /wait 60 /wait 60 /wait 60 /w Bleedingblak FT ready |
|
|
Source code |
1 2 3 4 5 6 7 8 9 10 |
/script UseItemByName("Aoth Strike Cape");
/wait .1
/script UseEquipmentItem(5)
/wait .3
/script UseEquipmentItem(5)
/wait .4
/script UseItemByName("Outside Codex");
/wait 60
/wait 60
/w Bleedingblak Ultimate Shot (cape) ready
|
|
|
Source code |
1 2 3 4 5 6 7 8 9 10 |
/script UseItemByName("Aoth Blade Cape");
/wait .3
/script UseEquipmentItem(5)
/wait .1
/script UseEquipmentItem(5)
/wait .8
/script UseItemByName("Outside Codex");
/wait 60
/wait 60
/w Bleedingblak Dodge Cape Ready
|
|
|
Source code |
1 2 |
/run for i=1,10 do TargetNearestEnemy(IsShiftKeyDown()) if UnitIsPlayer("target") then break end end
/run if not UnitIsPlayer("target") then TargetUnit("") end
|
|
|
Source code |
1 |
/run SP = false; for i=1,40 do if UnitDebuff("target", i) == "Shadow Prison" then SP = true break end end if (not SP) then CastSpellByName("Shadow Prison") end
|
|
|
Source code |
1 2 3 4 |
/script CastSpellByName("AoE Name")
/wait 0.025
/script CastSpellByName("AoE Name")
/script SpellTargetUnit()
|
|
|
Source code |
1 |
/script JOBINDEX=X SKILLINDEX=Y SkillSuitFrame_GetSkill_OnClick() |

This post has been edited 1 times, last edit by "Cike" (Oct 26th 2013, 12:27am)
|
|
Source code |
1 2 3 4 |
/run EquipItem(16) EquipItem(17) mh,offh = nil,nil /wait .5 /run _,_,ts=GetBagCount() for i=1,ts do ii,_,n=GetBagItemInfo(i) if n=="offhand" then offh=ii elseif n=="Mainhand" then mh = ii end end /run EquipItem(16, mh) EquipItem(17, offh) |
|
|
Source code |
1 |
/script while GetFriendCount("HateFriend") > 0 do DelFriend("HateFriend", GetFriendInfo("HateFriend", 1)); end
|
|
|
Source code |
1 |
/run MT = false; for i=1,40 do if UnitBuff("player", i) == "Magic Tricks" then MT = true break end end if (MT) then UseExtraAction(1) else CastSpellByName("Magic Tricks") end
|
|
|
Source code |
1 2 3 4 5 |
/Use Aoth Mysticism Ring /wait .2 /Run UseEquipmentItem(12) /wait .2 /Use Ifur Ring |
|
|
Source code |
1 |
/script for i = 1, 99, 1 do FeedPet(1) end |
|
|
Source code |
1 2 3 4 5 6 7 |
/unbuff Grace of Life
/unbuff Enhanced Grace of Life
/script UseItemByName("Touch of the Unicorn")
/wait 60
/wait 60
/wait 45
/w Cammo 15s on Uni
|
This post has been edited 6 times, last edit by "CammoXD" (Oct 26th 2013, 1:42am)
|
|
Source code |
1 2 |
/run NUM_ICON_ROWS = 20
/run DEFAULT_CHAT_FRAME:AddMessage("Extra Icons Enabled")
|
|
|
Source code |
1 |
/run SwapEquipmentItem(0) |
|
|
Source code |
1 |
/run SwapEquipmentItem(1) |
|
|
Source code |
1 |
/run SwapEquipmentItem(2) |
|
|
Source code |
1 |
/run InspectUnit("target")
|
|
|
Source code |
1 |
/run DEFAULT_CHAT_FRAME:AddMessage("Title Number = "..GetCurrentTitle())
|
|
|
Source code |
1 |
/run SetTitleRequest(number) |
|
|
Source code |
1 |
/run DEFAULT_CHAT_FRAME:AddMessage("Total Titles = "..GetTitleCount())
|
|
|
Source code |
1 |
/run DEFAULT_CHAT_FRAME:AddMessage("Zone ID = "..GetZoneID())
|
|
|
Source code |
1 |
/run DEFAULT_CHAT_FRAME:AddMessage("Zone Name = "..GetZoneName(GetZoneID()))
|
This post has been edited 1 times, last edit by "karmakarma" (Oct 26th 2013, 5:50pm)
|
|
Source code |
1 2 |
/run for i=1,10 do TargetNearestEnemy(IsShiftKeyDown()) if UnitIsPlayer("target") then break end end
/run if not UnitIsPlayer("target") then TargetUnit("") end
|
|
|
Source code |
1 |
/run if not UnitCanAttack("player","target") or UnitIsDeadOrGhost("target")==true or UnitIsDeadOrGhost("target")==nil then for i=1,10 do TargetNearestEnemy() if not UnitMaster("target") then break end end else CastSpellByName("Low Blow") end
|
|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 |
/run MyCurrentTitle = GetCurrentTitle() /cast Sprint /wait 1 /use Spellweaver Potion /wait 1 /run SetTitleRequest(530459) /wait 1 /cast Mad Rush /wait 1 /run SetTitleRequest(530427) /wait 25 /run SetTitleRequest(MyCurrentTitle) |
|
|
Source code |
1 2 3 |
/run TargetNearestFriend()
/use Energy Drink
/run if UnitName("target") == "Lankor Forgia" then CastSpellByName("Attack") end
|
This post has been edited 3 times, last edit by "Darwec" (Oct 26th 2013, 8:50pm)
This post has been edited 1 times, last edit by "Drakkarsdad" (Oct 27th 2013, 7:22pm)
Macro Name: Move Gears
Quoted
/run for i=1,20 do local name=UnitName("target") if name == X or name == Y or name== Z then break else TargetNearestFriend() end end if not (name == X or name == Y or name == Z) then TargetUnit("") end
Quoted
/run EquipItem(16) --slot of main hand weapon, this unequips it
/wait .2
/run EquipItem(X)
/wait .2
/run EquipItem(Y)
/wait .2
/run local c = GetEuipmentNumber() if c==1 then SwapEquipmentItem(0) elseif c==0 then SwapEquipmentItem(1) end -- replace swap #s with appropriate ones in use, swaps between gear sets
/wait .2
/run UseItemByName("Fayleod's Huge Axe") -- equip main hand on changed gear set
/wait .2
/run UseItemByName(X) --equipt item X
/wait .2
/run UseItemByName(Y) -- equip item Y into first available slot (left ring or left earing slots, main hand slot etc.)
Macro Name: Cast Skill
Quoted
/run for r=1,100 do local BN,_,ct,BID,par = UnitBuff("player", r) if BN == "name" then CancelPlayerBuff(r) elseif not BN then break end end
macro name: Count Debuff
Quoted
/run for r=1,100 do local BN,_,ct,BID,par = UnitBuff("player", r) if BN == "name" then local found = true elseif not BN then break end end if found == false then CastSpellByName("skillname") end
Macro name: Inquire
Quoted
/run local count = 0 for r=1,100 do local BN,_,ct,BID,par = UnitDebuff("target", r) if BN == "name" then count = count +1 elseif not BN then break end end SendChatMessage(tostring(count), "WHISPER",0,UnitName("player"))
Macro Name: Add nemesis
Quoted
/run AskPlayerInfo("name")
Macro NAme: reload user interface
Quoted
/run AddFriend("HateFriend,"name")
Quoted
/run ReloadUI()
This post has been edited 8 times, last edit by "BlankMinded" (Oct 6th 2015, 3:30am)
Added the part to original post of the macro -- if after trying to tab target 20 times, you find something that is NOT the intended target, then clear target.
Quoted
/run for i=1,20 do local name = UnitName("target") if name == "Plague Ball" then break else TargetNearestEnemy() end end if not name == "Plague Ball" then TargetUnit("") end
This post has been edited 5 times, last edit by "BlankMinded" (Nov 1st 2013, 6:30pm)
|
|
Source code |
1 |
/script GuildHouses_VisitHouseRequest("XXX")
|
|
|
Source code |
1 |
/script OnClick_QuestListButton(3, 1) |
|
|
Source code |
1 |
/run if GetActionUsable(80) then UseAction(80); elseif GetActionUsable(79) then UseAction(79); elseif GetActionUsable(78) then UseAction(78); elseif GetActionUsable(77) then UseAction(77); elseif GetActionUsable(76) then UseAction(76); end |
|
|
Source code |
1 2 |
/run UsePetAction(3) /run UsePetAction(5) |
|
|
Source code |
1 2 3 |
/run TargetUnit("Self")
/wait .1
/cast Hide Scent
|
Quoted
/Use Tempest Height Leather Leg Guards
/Use Tempest Height War Coat
/Use Tempest Height Beast Bone Boots
/Use Tempest Height Shoulder Armor
/Use Tempest Height Belt
/Use Tempest Height Clan's Tooth
/Use Tempest Height Bone Helmet
|
|
Source code |
1 2 3 |
/cast Charged Chop /cast Untamable /cast Cross Chop |
|
|
Source code |
1 |
/run for i=1,Z do StoreBuyItem(X,Y) end |
This post has been edited 2 times, last edit by "BlankMinded" (Nov 4th 2013, 10:29pm)