vanilla-wow-addons – Rev 1

Subversion Repositories:
Rev:
DiabloMod_Combat = false;
function DiabloMod_OnLoad()
        this:RegisterEvent("UNIT_HEALTH");
        this:RegisterEvent("UNIT_MAXHEALTH");
        this:RegisterEvent("UNIT_RAGE");
        this:RegisterEvent("UNIT_ENERGY");
        this:RegisterEvent("UNIT_MANA");
        this:RegisterEvent("UNIT_RUNIC_POWER");
        this:RegisterEvent("UNIT_DISPLAYPOWER");
        this:RegisterEvent("PLAYER_ENTERING_WORLD");
        this:RegisterEvent("PLAYER_REGEN_DISABLED");
        this:RegisterEvent("PLAYER_REGEN_ENABLED");
        MainMenuBarArtFrame:RegisterEvent('KNOWN_CURRENCY_TYPES_UPDATE')
        MainMenuBarArtFrame:RegisterEvent('CURRENCY_DISPLAY_UPDATE') 
end  
function DiabloMod_AdjustOrbs()
        local healthPercent = (UnitHealth("player")/UnitHealthMax("player"));
        DiabloMod_HealthText:SetText(UnitHealth("player").." / ".. UnitHealthMax("player"));
        DiabloMod_RedOrb:SetHeight(healthPercent*86);
        DiabloMod_RedOrb:SetTexCoord(0, 1, 1-healthPercent, 1);
        local manaPercent = (UnitMana("player")/UnitManaMax("player"));
        DiabloMod_ManaText:SetText(UnitMana("player").." / ".. UnitManaMax("player"));
        DiabloMod_BlueOrb:SetHeight(manaPercent*86);
        DiabloMod_BlueOrb:SetTexCoord(0, 1, 1-manaPercent, 1);
end        
function DiabloMod_OnEvent(event)
        if (event=="PLAYER_ENTERING_WORLD") then 
                DiabloMod_InitialiseOrbs();
                DiabloMod_AdjustOrbs();
                return;
        end 
        if (event=="PLAYER_REGEN_DISABLED") then 
                DiabloMod_Combat = true;
        end 
        if (event=="PLAYER_REGEN_ENABLED") then 
                DiabloMod_Combat = false;
        end 
        if (event=="UNIT_DISPLAYPOWER") then 
                DiabloMod_InitialiseOrbs();
                DiabloMod_AdjustOrbs();
                return;
        end
        if (event=="UNIT_HEALTH") then 
                local healthPercent = (UnitHealth("player")/UnitHealthMax("player"));
                DiabloMod_HealthText:SetText(UnitHealth("player").." / ".. UnitHealthMax("player"));
                DiabloMod_RedOrb:SetHeight(healthPercent*86);
                DiabloMod_RedOrb:SetTexCoord(0, 1, 1-healthPercent, 1);
                return;
        end
        if (event=="UNIT_MANA" or event=="UNIT_RAGE" or event=="UNIT_ENERGY" or event=="UNIT_RUNIC_POWER" ) then    
                local manaPercent = (UnitMana("player")/UnitManaMax("player"));
                DiabloMod_ManaText:SetText(UnitMana("player").." / ".. UnitManaMax("player"));
                DiabloMod_BlueOrb:SetHeight(manaPercent*86);
                DiabloMod_BlueOrb:SetTexCoord(0, 1, 1-manaPercent, 1);
                return;
        end
end
function DiabloMod_InitialiseOrbs()
        DiabloMod_HealthText:SetText(UnitHealth("player").." / ".. UnitHealthMax("player")); 
        --DiabloMod_RedOrb:SetVertexColor(0.85,0.2,0.2);
        DiabloMod_RedOrb:SetVertexColor(1.0,0.2,0.2);        
        --DiabloMod_RedOrb:SetAlpha(0.95);
        DiabloMod_RedOrb:SetTexCoord(0, 1, 0, 1);
        local powerType = UnitPowerType("player");
        DiabloMod_ManaText:SetText(UnitMana("player").." / ".. UnitManaMax("player"));
        if (powerType == 0) then -- Mana
                DiabloMod_BlueOrb:SetVertexColor(0.2,0.2,1.0);
                --DiabloMod_BlueOrb:SetAlpha(0.95);
                DiabloMod_BlueOrb:SetTexCoord(0, 1, 0, 1); 
        end
        if (powerType == 1) then -- Rage
                DiabloMod_BlueOrb:SetVertexColor(0.75,0.15,0.15);
                --DiabloMod_BlueOrb:SetAlpha(0.95);
                DiabloMod_BlueOrb:SetTexCoord(0, 1, 0, 1); 
        end
        if (powerType == 3) then -- Energy
                DiabloMod_BlueOrb:SetVertexColor(1.0,0.75,0);
                --DiabloMod_BlueOrb:SetAlpha(0.95);
                DiabloMod_BlueOrb:SetTexCoord(0, 1, 0, 1); 
        end
        if (powerType == 6) then -- Runic_Power
                DiabloMod_BlueOrb:SetVertexColor(0.2,0.75,1.0);
                --DiabloMod_BlueOrb:SetAlpha(0.95);
                DiabloMod_BlueOrb:SetTexCoord(0, 1, 0, 1); 
        end
end

Generated by GNU Enscript 1.6.5.90.