Code:
Macro Name: Spam
/run local p = IsSpellInRange("Plague Strike", "target") if (p == 0) then CastSpellByName("Icy Touch") else RunMacro("BP") end
/click StaticPopup1Button1
Macro Name: BP
/run if (not UnitDebuff("target", "Blood Plague")) then RunMacro("DUR1") else RunMacro("FF") end
/click StaticPopup1Button1
Macro Name: FF
/run if (not UnitDebuff("target", "Frost Fever")) then RunMacro("DFR1") else RunMacro("UR1") end
/click StaticPopup1Button1
Macro Name: BPleft
/run if (not UnitDebuff("target", "Blood Plague")) then CastSpellByName("Blood Strike") else RunMacro("FFleft") end
/click StaticPopup1Button1
Macro Name: FFleft
/run if (not UnitDebuff("target", "Frost Fever")) then RunMacro("UR1") else CastSpellByName("Blood Strike") end
/click StaticPopup1Button1
Macro Name: BPright
/run if (not UnitDebuff("target", "Blood Plague")) then RunMacro("FR1") else RunMacro("FFright") end
/click StaticPopup1Button1
Macro Name: FFright
/run if (not UnitDebuff("target", "Frost Fever")) then CastSpellByName("Blood Strike") else RunMacro("DFR1") end
/click StaticPopup1Button1
Macro Name: DFR1
/run local _,_,c = GetRuneCooldown("1") if (GetRuneType("1") == 4) and (c == true) then CastSpellByName("Icy Touch") else RunMacro("DFR2") end
/click StaticPopup1Button1
Macro Name: DFR2
/run local _,_,d = GetRuneCooldown("2") if (GetRuneType("2") == 4) and (d == true) then CastSpellByName("Icy Touch") else RunMacro("FR1") end
/click StaticPopup1Button1
Macro Name: FR1
/run local _,_,a = GetRuneCooldown("5") if (a == true) then CastSpellByName("Icy Touch") else RunMacro("FR2") end
/click StaticPopup1Button1
Macro Name: FR2
/run local _,_,b = GetRuneCooldown("6") if (b == true) then CastSpellByName("Icy Touch") else RunMacro("BPleft") end
/click StaticPopup1Button1
Macro Name: DUR1
/run local _,_,i = GetRuneCooldown("1") if (GetRuneType("1") == 4) and (i == true) then CastSpellByName("Plague Strike") else RunMacro("DUR2") end
/click StaticPopup1Button1
Macro Name: DUR2
/run local _,_,j = GetRuneCooldown("2") if (GetRuneType("2") == 4) and (j == true) then CastSpellByName("Plague Strike") else RunMacro("UR1") end
/click StaticPopup1Button1
Macro Name: UR1
/run local _,_,g = GetRuneCooldown("3") if (g == true) then CastSpellByName("Plague Strike") else RunMacro("UR2") end
/click StaticPopup1Button1
Macro Name: UR2
/run local _,_,h = GetRuneCooldown("4") if (h == true) then CastSpellByName("Plague Strike") else RunMacro("BPright") end
/click StaticPopup1Button1