User:Morian

 OneClickWarrior 

DE: Das Macro für faule Krieger! DE: Es prüft ob der Kampfschrei aktiviert ist, denn ob das Ziel Debufft ist, DE: wenn nicht wird der Zauber gewirkt, oder es wird der Heldenhafte Stoß gewirkt.

function OneClickWarrior local sTarget = "player"; --- Ist der Spieler im Kampf? --- 	if (UnitAffectingCombat(sTarget)) == 1 then --- Selfbuffprüfung --- local iCounter = 1; local iBattleShout = 0; while (UnitBuff(sTarget, iCounter)) do 			sBuff = UnitBuff(sTarget, iCounter); if sBuff == "Interface\\Icons\\Ability_Warrior_BattleShout" then ---				ChatFrame2:AddMessage("BattleShout gefunden!", 0.5, 0.5, 0.5); iBattleShout = 1; else --- ChatFrame2:AddMessage((UnitBuff(sTarget, iCounter)).." <> BattleShout!", 0.5, 0.5, 0.5); end; iCounter = iCounter + 1 end; if iBattleShout == 0 then CastSpellByName('Schlachtruf(Rang 3)'); ---			ChatFrame2:AddMessage("Schlachtruf wird gewirkt!", 0.5, 0.5, 0.5); else --- Zieldebuffprüfung --- local sTarget = "target"; local iWarCry = 0; local iGouge = 0; local iShockWave = 0; if(UnitExists("target")) then local iCounter = 1; ---				ChatFrame2:AddMessage("Debuffs des Ziels:", 0.5, 0.5, 0.5); while (UnitDebuff(sTarget, iCounter)) do ---					ChatFrame2:AddMessage("Debuff Nr."..iCounter.." ist: "..(UnitDebuff(sTarget, iCounter)), 0.5, 0.5, 0.5); sBuff = UnitDebuff(sTarget, iCounter); --- WarCry --- if sBuff == "Interface\\Icons\\Ability_Warrior_WarCry" then ---						ChatFrame2:AddMessage("WarCry gefunden!", 0.5, 0.5, 0.5); iWarCry = 1; else --- ChatFrame2:AddMessage((UnitDebuff(sTarget, iCounter)).." <> Warcry!", 0.5, 0.5, 0.5); end; --- Gouge --- if sBuff == "Interface\\Icons\\Ability_Gouge" then ---						ChatFrame2:AddMessage("Gouge gefunden!", 0.5, 0.5, 0.5); iGouge = 1; else --- ChatFrame2:AddMessage((UnitDebuff(sTarget, iCounter)).." <> Gouge!", 0.5, 0.5, 0.5); end; --- ShockWave --- if sBuff == "Interface\\Icons\\Ability_ShockWave" then ---						ChatFrame2:AddMessage("ShockWave gefunden!", 0.5, 0.5, 0.5); iShockWave = 1; else --- ChatFrame2:AddMessage((UnitDebuff(sTarget, iCounter)).." <> ShockWave!", 0.5, 0.5, 0.5); end; iCounter = iCounter + 1; end; ---  		 	 	ChatFrame2:AddMessage("- - -", 0.5, 0.5, 0.5); --- DeBuffsCasten --- if iWarCry == 0 then CastSpellByName('Demoralisierungsruf(Rang 2)'); ChatFrame2:AddMessage("Demoralisierungsruf wird gewirkt!", 0.5, 0.5, 0.5); else if iGouge == 0 then CastSpellByName('Verwunden(Rang 4)'); ChatFrame2:AddMessage("Verwunden wird gewirkt!", 0.5, 0.5, 0.5); else if iShockWave == 0 then CastSpellByName('Kniesehne(Rang 1)'); ChatFrame2:AddMessage("Kniesehne wird gewirkt!", 0.5, 0.5, 0.5); else --- WennVollDebuffedDannGibtsWasVorDieMütze! --- 							CastSpellByName('Heldenhafter Sto\195\159(Rang 4)'); ChatFrame2:AddMessage("Heldenhafter Sto\195\159 wird gewirkt!", 0.5, 0.5, 0.5); end; end; end; else DEFAULT_CHAT_FRAME:AddMessage("WarriorAddOn: Kein Ziel!", 1, 0, 0); end; end; else ---ChatFrame2:AddMessage("OneClickWarriorStatusmeldung:", 0.5, 0.5, 0.5); DEFAULT_CHAT_FRAME:AddMessage("WarriorAddOn: Spieler befindet sich nicht im Kampf!", 0.5, 0.5, 0.5); end; end;

--Morian 16:16, 20 Aug 2005 (EDT)

EN: One of my first functions. DE: Eine meiner ersten Funktionen.

 ShowAllUnitBuffsAndDebuffs 

EN: It will show you all buffs and debuffs of you and your target. DE: Diese Funktion zeigt alle Buffs und Debuffs von dir und deinem Ziel an.

function ShowAllUnitBuffsAndDebuffs --- TARGET --- local sTarget = "target"; if(UnitExists("target")) then --- BUFFS --- local iCounter = 1; DEFAULT_CHAT_FRAME:AddMessage("Buffs des Ziels:", 1, 0, 0); while (UnitBuff(sTarget, iCounter)) do DEFAULT_CHAT_FRAME:AddMessage("Buff Nr."..iCounter.." ist: "..(UnitBuff(sTarget, iCounter)), 1, 0, 0); iCounter = iCounter + 1; end; DEFAULT_CHAT_FRAME:AddMessage("- - -", 1, 0, 0); --- DEBUFFS --- local iCounter = 1; DEFAULT_CHAT_FRAME:AddMessage("Debuffs des Ziels:", 1, 0, 0); while (UnitDebuff(sTarget, iCounter)) do DEFAULT_CHAT_FRAME:AddMessage("Debuff Nr."..iCounter.." ist: "..(UnitDebuff(sTarget, iCounter)), 1, 0, 0); iCounter = iCounter + 1; end; DEFAULT_CHAT_FRAME:AddMessage("- - -", 1, 0, 0); else DEFAULT_CHAT_FRAME:AddMessage("Kein Ziel!", 1, 0, 0); end; --- PLAYER --- local sTarget = "player"; --- BUFFS --- local iCounter = 1; DEFAULT_CHAT_FRAME:AddMessage("Eigene Buffs:", 1, 1, 0); while (UnitBuff(sTarget, iCounter)) do DEFAULT_CHAT_FRAME:AddMessage("Buff Nr."..iCounter.." ist: "..(UnitBuff(sTarget, iCounter)), 1, 1, 0); iCounter = iCounter + 1 end; DEFAULT_CHAT_FRAME:AddMessage("- - -", 1, 1, 0) --- DEBUFFS --- local iCounter = 1; DEFAULT_CHAT_FRAME:AddMessage("Eigene Debuffs:", 1, 1, 0); while (UnitDebuff(sTarget, iCounter)) do DEFAULT_CHAT_FRAME:AddMessage("Debuff Nr."..iCounter.." ist: "..(UnitDebuff(sTarget, iCounter)), 1, 1, 0); iCounter = iCounter + 1 end; DEFAULT_CHAT_FRAME:AddMessage("- - -", 1, 1, 0) end;
 * Morian 12:27, 20 Aug 2005 (EDT)