CHARACTER_FACING_INCREMENT = 2;
MAX_RACES = 10;
MAX_CLASSES_PER_RACE = 10;
NUM_CHAR_CUSTOMIZATIONS = 5;
MIN_CHAR_NAME_LENGTH = 2;
CHARACTER_CREATE_ROTATION_START_X = nil;
CHARACTER_CREATE_INITIAL_FACING = nil;

PAID_CHARACTER_CUSTOMIZATION = nil;
PAID_FACTION_CHANGE = nil;

FACTION_BACKDROP_COLOR_TABLE = {
    ["Alliance"] = {0.5, 0.5, 0.5, 0.09, 0.09, 0.19},
    ["Horde"] = {0.5, 0.2, 0.2, 0.19, 0.05, 0.05},
};
FRAMES_TO_BACKDROP_COLOR = {
    "CharacterCreateCharacterRace",
    "CharacterCreateCharacterClass",
    "CharacterCreateCharacterFaction",
};
RACE_ICON_TCOORDS = {
    ["HUMAN_MALE"]      = {0, 0.125, 0, 0.25},
    ["DWARF_MALE"]      = {0.125, 0.25, 0, 0.25},
    ["GNOME_MALE"]      = {0.25, 0.375, 0, 0.25},
    ["NIGHTELF_MALE"]   = {0.375, 0.5, 0, 0.25},

    ["TAUREN_MALE"]     = {0, 0.125, 0.25, 0.5},
    ["SCOURGE_MALE"]    = {0.125, 0.25, 0.25, 0.5},
    ["TROLL_MALE"]      = {0.25, 0.375, 0.25, 0.5},
    ["ORC_MALE"]        = {0.375, 0.5, 0.25, 0.5},

    ["HUMAN_FEMALE"]    = {0, 0.125, 0.5, 0.75},
    ["DWARF_FEMALE"]    = {0.125, 0.25, 0.5, 0.75},
    ["GNOME_FEMALE"]    = {0.25, 0.375, 0.5, 0.75},
    ["NIGHTELF_FEMALE"] = {0.375, 0.5, 0.5, 0.75},

    ["TAUREN_FEMALE"]   = {0, 0.125, 0.75, 1.0},
    ["SCOURGE_FEMALE"]  = {0.125, 0.25, 0.75, 1.0},
    ["TROLL_FEMALE"]    = {0.25, 0.375, 0.75, 1.0},
    ["ORC_FEMALE"]      = {0.375, 0.5, 0.75, 1.0},

    ["BLOODELF_MALE"]   = {0.5, 0.625, 0.25, 0.5},
    ["BLOODELF_FEMALE"] = {0.5, 0.625, 0.75, 1.0},

    ["DRAENEI_MALE"]    = {0.5, 0.625, 0, 0.25},
    ["DRAENEI_FEMALE"]  = {0.5, 0.625, 0.5, 0.75},
};
CLASS_ICON_TCOORDS = {
    ["WARRIOR"] = {0, 0.25, 0, 0.25},
    ["MAGE"]    = {0.25, 0.49609375, 0, 0.25},
    ["ROGUE"]   = {0.49609375, 0.7421875, 0, 0.25},
    ["DRUID"]   = {0.7421875, 0.98828125, 0, 0.25},
    ["HUNTER"]  = {0, 0.25, 0.25, 0.5},
    ["SHAMAN"]  = {0.25, 0.49609375, 0.25, 0.5},
    ["PRIEST"]  = {0.49609375, 0.7421875, 0.25, 0.5},
    ["WARLOCK"] = {0.7421875, 0.98828125, 0.25, 0.5},
    ["PALADIN"] = {0, 0.25, 0.5, 0.75},
    ["DEATHKNIGHT"] = {0.25, 0.49609375, 0.5, 0.75},
    ["BloodMage"]   = {0.25, 0.49609375, 0.5, 0.75},
};

function CharacterCreate_OnLoad(self)
    self:SetSequence(0);
    self:SetCamera(0);

    CharacterCreate.numRaces = 0;
    CharacterCreate.selectedRace = 0;
    CharacterCreate.numClasses = 0;
    CharacterCreate.selectedClass = 0;
    CharacterCreate.selectedGender = 0;

    SetCharCustomizeFrame("CharacterCreate");
    --CharCreateModel:SetLight(1, 0, 0, -0.707, -0.707, 0.7, 1.0, 1.0, 1.0, 0.8, 1.0, 1.0, 0.8);

    for i=1, NUM_CHAR_CUSTOMIZATIONS, 1 do
        _G["CharacterCustomizationButtonFrame"..i.."Text"]:SetText(_G["CHAR_CUSTOMIZATION"..i.."_DESC"]);
    end

    -- Color edit box backdrop
    local backdropColor = FACTION_BACKDROP_COLOR_TABLE["Alliance"];
    CharacterCreateNameEdit:SetBackdropBorderColor(backdropColor[1], backdropColor[2], backdropColor[3]);
    CharacterCreateNameEdit:SetBackdropColor(backdropColor[4], backdropColor[5], backdropColor[6]);
end

function CharacterCreate_OnShow()
    for i=1, MAX_CLASSES_PER_RACE, 1 do
        local button = _G["CharacterCreateClassButton"..i];
        button:Enable();
        SetButtonDesaturated(button, false)
    end
    for i=1, MAX_RACES, 1 do
        local button = _G["CharacterCreateRaceButton"..i];
        button:Enable();
        SetButtonDesaturated(button, false)
    end

    if ( PAID_FACTION_CHANGE ) then
        CustomizeExistingCharacter( PAID_FACTION_CHANGE );
        CharacterCreateNameEdit:SetText( PaidChange_GetName() );
    elseif ( PAID_CHARACTER_CUSTOMIZATION ) then
        CustomizeExistingCharacter( PAID_CHARACTER_CUSTOMIZATION );
        CharacterCreateNameEdit:SetText( PaidChange_GetName() );
    else
        --randomly selects a combination
        ResetCharCustomize();
        CharacterCreateNameEdit:SetText("");
        CharCreateRandomizeButton:Show();
    end

    CharacterCreateEnumerateRaces(GetAvailableRaces());
    SetCharacterRace(GetSelectedRace());

    CharacterCreateEnumerateClasses(GetClassesForRace());
    if ( PAID_FACTION_CHANGE or PAID_CHARACTER_CUSTOMIZATION ) then
        _,_,index = GetSelectedClass();
        SetCharacterClass(index);
    else
        SetCharacterClass(1);
    end

    SetCharacterGender(GetSelectedSex())

    -- Hair customization stuff
    CharacterCreate_UpdateFacialHairCustomization();
    CharacterCreate_UpdateHairCustomization();

    SetCharacterCreateFacing(-15);

    if ( ALLOW_RANDOM_NAME_BUTTON ) then
        CharacterCreateRandomName:Show();
    end

    -- setup customization
    CharacterChangeFixup();
end

function CharacterCreate_OnHide()
    PAID_FACTION_CHANGE = nil;
    PAID_CHARACTER_CUSTOMIZATION = nil;
end

function CharacterCreateFrame_OnMouseDown(button)
    if ( button == "LeftButton" ) then
        CHARACTER_CREATE_ROTATION_START_X = GetCursorPosition();
        CHARACTER_CREATE_INITIAL_FACING = GetCharacterCreateFacing();
    end
end

function CharacterCreateFrame_OnMouseUp(button)
    if ( button == "LeftButton" ) then
        CHARACTER_CREATE_ROTATION_START_X = nil
    end
end

function CharacterCreateFrame_OnUpdate()
    if ( CHARACTER_CREATE_ROTATION_START_X ) then
        local x = GetCursorPosition();
        local diff = (x - CHARACTER_CREATE_ROTATION_START_X) * CHARACTER_ROTATION_CONSTANT;
        CHARACTER_CREATE_ROTATION_START_X = GetCursorPosition();
        SetCharacterCreateFacing(GetCharacterCreateFacing() + diff);
    end
end

function CharacterCreateEnumerateRaces(...)
    CharacterCreate.numRaces = select("#", ...)/3;
    if ( CharacterCreate.numRaces > MAX_RACES ) then
        message("Too many races!  Update MAX_RACES");
        return;
    end
    local coords;
    local index = 1;
    local button;
    local gender;
    local selectedSex = GetSelectedSex();
    if ( selectedSex == SEX_MALE ) then
        gender = "MALE";
    elseif ( selectedSex == SEX_FEMALE ) then
        gender = "FEMALE";
    end
    for i=1, select("#", ...), 3 do
        coords = RACE_ICON_TCOORDS[strupper(select(i+1, ...).."_"..gender)];
        _G["CharacterCreateRaceButton"..index.."NormalTexture"]:SetTexCoord(coords[1], coords[2], coords[3], coords[4]);
        button = _G["CharacterCreateRaceButton"..index];
        button:Show();
        if ( select(i+2, ...) == 1 ) then
            button.enable = true;
            SetButtonDesaturated(button);
            button.tooltip = select(i, ...);
        else
            button.enable = false;
            SetButtonDesaturated(button, 1);
            button.tooltip = _G[strupper(select(i+1, ...).."_".."DISABLED")];
        end
        index = index + 1;
    end
    for i=CharacterCreate.numRaces + 1, MAX_RACES, 1 do
        _G["CharacterCreateRaceButton"..i]:Hide();
    end
end

function CharacterCreateEnumerateClasses(...)
    CharacterCreate.numClasses = select("#", ...)/3;
    if ( CharacterCreate.numClasses > MAX_CLASSES_PER_RACE ) then
        message("Too many classes!  Update MAX_CLASSES_PER_RACE");
        return;
    end
    local coords;
    local index = 1;
    local button;
    for i=1, select("#", ...), 3 do
        coords = CLASS_ICON_TCOORDS[strupper(select(i+1, ...))];
        _G["CharacterCreateClassButton"..index.."NormalTexture"]:SetTexCoord(coords[1], coords[2], coords[3], coords[4]);
        button = _G["CharacterCreateClassButton"..index];
        button:Show();
        if ( select(i+2, ...) == 1 ) then
            button.enable = true;
            SetButtonDesaturated(button);
            button.tooltip = select(i, ...);
        else
            button.enable = false;
            SetButtonDesaturated(button, 1);
            button.tooltip = _G[strupper(select(i+1, ...).."_".."DISABLED")];
        end
        index = index + 1;
    end
    for i=CharacterCreate.numClasses + 1, MAX_CLASSES_PER_RACE, 1 do
        _G["CharacterCreateClassButton"..i]:Hide();
    end
end

function SetCharacterRace(id)
    CharacterCreate.selectedRace = id;
    for i=1, CharacterCreate.numRaces, 1 do
        local button = _G["CharacterCreateRaceButton"..i];
        if ( i == id ) then
            _G["CharacterCreateRaceButton"..i.."HighlightText"]:SetText(button.tooltip);
            button:SetChecked(1);
            button:LockHighlight();
        else
            _G["CharacterCreateRaceButton"..i.."HighlightText"]:SetText("");
            button:SetChecked(0);
            button:UnlockHighlight();
        end
    end

    -- Set Faction
    local name, faction = GetFactionForRace(CharacterCreate.selectedRace);
    if ( faction == "Alliance" ) then
        CharacterCreateFactionIcon:SetTexCoord(0, 0.5, 0, 1.0);
    else
        CharacterCreateFactionIcon:SetTexCoord(0.5, 1.0, 0, 1.0);
    end
    CharacterCreateFactionScrollFrameScrollBar:SetValue(0);
    CharacterCreateFactionLabel:SetText(name);
    CharacterCreateFactionText:SetText(_G["FACTION_INFO_"..strupper(faction)]);

    -- Set Race
    local race, fileString = GetNameForRace();
    CharacterCreateRaceLabel:SetText(race);
    fileString = strupper(fileString);
    if ( GetSelectedSex() == 1 ) then
        gender = "MALE";
    else
        gender = "FEMALE";
    end
    local coords = RACE_ICON_TCOORDS[fileString.."_"..gender];
    CharacterCreateRaceIcon:SetTexCoord(coords[1], coords[2], coords[3], coords[4]);
    local raceText = _G["RACE_INFO_"..fileString];
    local abilityIndex = 1;
    local tempText = _G["ABILITY_INFO_"..fileString..abilityIndex];
    abilityText = "";
    while ( tempText ) do
        abilityText = abilityText..tempText..
        "\n\n";
        abilityIndex = abilityIndex + 1;
        tempText = _G["ABILITY_INFO_"..fileString..abilityIndex];
    end

    CharacterCreateRaceScrollFrameScrollBar:SetValue(0);
    CharacterCreateRaceText:SetText(GetFlavorText("RACE_INFO_"..strupper(fileString), GetSelectedSex()));
    if ( abilityText and abilityText ~= "" ) then
        CharacterCreateRaceAbilityText:SetText(abilityText);
    else
        CharacterCreateRaceAbilityText:SetText("");
    end

    -- Set backdrop colors based on faction
    local backdropColor = FACTION_BACKDROP_COLOR_TABLE[faction];
    local frame;
    for index, value in pairs(FRAMES_TO_BACKDROP_COLOR) do
        frame = _G[value];
        frame:SetBackdropColor(backdropColor[4], backdropColor[5], backdropColor[6]);
    end

    local _, classFilename = GetSelectedClass();
    if (classFilename == "DEATHKNIGHT" ) then
        fileString = classFilename;
    end
    SetBackgroundModel(CharacterCreate, fileString);
end

function SetCharacterClass(id)
    CharacterCreate.selectedClass = id;
    for i=1, CharacterCreate.numClasses, 1 do
        local button = _G["CharacterCreateClassButton"..i];
        if ( i == id ) then
--          _G["CharacterCreateClassButton"..i.."HighlightText"]:SetText(button.tooltip);
            CharacterCreateClassName:SetText(button.tooltip);
            button:SetChecked(1);
            button:LockHighlight();
        else
--          _G["CharacterCreateClassButton"..i.."HighlightText"]:SetText("");
            button:UnlockHighlight();
            button:SetChecked(0);
        end
    end

    local className, classFileName = GetSelectedClass();
    local coords = CLASS_ICON_TCOORDS[classFileName];
    CharacterCreateClassIcon:SetTexCoord(coords[1], coords[2], coords[3], coords[4]);
    CharacterCreateClassLabel:SetText(className);
    CharacterCreateClassScrollFrameScrollBar:SetValue(0);
    CharacterCreateClassText:SetText(GetFlavorText("CLASS_"..strupper(classFileName), GetSelectedSex()));
end

function CharacterCreate_OnChar()
end

function CharacterCreate_OnKeyDown(key)
    if ( key == "ESCAPE" ) then
        CharacterCreate_Back();
    elseif ( key == "ENTER" ) then
        CharacterCreate_Okay();
    elseif ( key == "PRINTSCREEN" ) then
        Screenshot();
    end
end

function CharacterCreate_UpdateModel(self)
    UpdateCustomizationScene();
    self:AdvanceTime();
end

function CharacterCreate_Okay()
    if ( PAID_FACTION_CHANGE ) then
        GlueDialog_Show("CONFIRM_PFC");
    elseif ( PAID_CHARACTER_CUSTOMIZATION ) then
        GlueDialog_Show("CONFIRM_PCC");
    else
        CreateCharacter(CharacterCreateNameEdit:GetText());
    end
    PlaySound("gsCharacterCreationCreateChar");
end

function CharacterCreate_Back()
    PlaySound("gsCharacterCreationCancel");
    SetGlueScreen("charselect");
end

function CharacterClass_OnClick(id)
    PlaySound("gsCharacterCreationClass");
    local _,_,currClass = GetSelectedClass();
    if ( currClass ~= id ) then
        SetSelectedClass(id);
        SetCharacterClass(id);
        SetCharacterRace(GetSelectedRace());
        CharacterChangeFixup();
    end
end

function CharacterRace_OnClick(self, id)
    PlaySound("gsCharacterCreationClass");
    if ( not self:GetChecked() ) then
        self:SetChecked(1);
        return;
    end
    if ( GetSelectedRace() ~= id ) then
        SetSelectedRace(id);
        SetCharacterRace(id);
        SetSelectedSex(GetSelectedSex());
        SetCharacterCreateFacing(-15);
        CharacterCreateEnumerateClasses(GetClassesForRace());
        if ( PAID_FACTION_CHANGE or PAID_CHARACTER_CUSTOMIZATION ) then
            local classIndex = PFC_GetCurrentClassIndex();
            SetSelectedClass(classIndex);
            SetCharacterClass(classIndex);
            SetCharacterGender( GetSelectedSex() );
        else
            SetCharacterClass(1);
        end
        -- Hair customization stuff
        CharacterCreate_UpdateFacialHairCustomization();
        CharacterCreate_UpdateHairCustomization();

        CharacterChangeFixup();
    end
end

function SetCharacterGender(sex)
    local gender;
    SetSelectedSex(sex);
    if ( sex == SEX_MALE ) then
        gender = "MALE";
        CharacterCreateGenderButtonMaleHighlightText:SetText(MALE);
        CharacterCreateGenderButtonMale:SetChecked(1);
        CharacterCreateGenderButtonMale:LockHighlight();
        CharacterCreateGenderButtonFemaleHighlightText:SetText("");
        CharacterCreateGenderButtonFemale:SetChecked(nil);
        CharacterCreateGenderButtonFemale:UnlockHighlight();
    elseif ( sex == SEX_FEMALE ) then
        gender = "FEMALE";
        CharacterCreateGenderButtonMaleHighlightText:SetText("");
        CharacterCreateGenderButtonMale:SetChecked(nil);
        CharacterCreateGenderButtonMale:UnlockHighlight();
        CharacterCreateGenderButtonFemaleHighlightText:SetText(FEMALE);
        CharacterCreateGenderButtonFemale:SetChecked(1);
        CharacterCreateGenderButtonFemale:LockHighlight();
    end

    -- Update race images to reflect gender
    CharacterCreateEnumerateRaces(GetAvailableRaces());
    CharacterCreateEnumerateClasses(GetClassesForRace());
    SetCharacterRace(GetSelectedRace());
    if ( PAID_FACTION_CHANGE or PAID_CHARACTER_CUSTOMIZATION ) then
        local classIndex = PFC_GetCurrentClassIndex();
        SetSelectedClass(classIndex);
        SetCharacterClass(classIndex);
    else
        SetCharacterClass(CharacterCreate.selectedClass);
    end

    -- Update facial hair customization since gender can affect this
    CharacterCreate_UpdateFacialHairCustomization();
    CharacterCreate_UpdateHairCustomization();

    -- Update right hand race portrait to reflect gender change
    -- Set Race
    local race, fileString = GetNameForRace();
    CharacterCreateRaceLabel:SetText(race);
    fileString = strupper(fileString);
    local coords = RACE_ICON_TCOORDS[fileString.."_"..gender];
    CharacterCreateRaceIcon:SetTexCoord(coords[1], coords[2], coords[3], coords[4]);

    CharacterChangeFixup();
end

function CharacterCustomization_Left(id)
    PlaySound("gsCharacterCreationLook");
    CycleCharCustomization(id, -1);
end

function CharacterCustomization_Right(id)
    PlaySound("gsCharacterCreationLook");
    CycleCharCustomization(id, 1);
end

function CharacterCreate_Randomize()
    PlaySound("gsCharacterCreationLook");
    RandomizeCharCustomization();
end

function CharacterCreateRotateRight_OnUpdate(self)
    if ( self:GetButtonState() == "PUSHED" ) then
        SetCharacterCreateFacing(GetCharacterCreateFacing() + CHARACTER_FACING_INCREMENT);
    end
end

function CharacterCreateRotateLeft_OnUpdate(self)
    if ( self:GetButtonState() == "PUSHED" ) then
        SetCharacterCreateFacing(GetCharacterCreateFacing() - CHARACTER_FACING_INCREMENT);
    end
end

function CharacterCreate_UpdateFacialHairCustomization()
    if ( GetFacialHairCustomization() == "NONE" ) then
        CharacterCustomizationButtonFrame5:Hide();
        CharCreateRandomizeButton:SetPoint("TOP", "CharacterCustomizationButtonFrame5", "BOTTOM", 0, -5);
    else
        CharacterCustomizationButtonFrame5Text:SetText(_G["FACIAL_HAIR_"..GetFacialHairCustomization()]);
        CharacterCustomizationButtonFrame5:Show();
        CharCreateRandomizeButton:SetPoint("TOP", "CharacterCustomizationButtonFrame5", "BOTTOM", 0, -5);
    end
end

function CharacterCreate_UpdateHairCustomization()
    CharacterCustomizationButtonFrame3Text:SetText(_G["HAIR_"..GetHairCustomization().."_STYLE"]);
    CharacterCustomizationButtonFrame4Text:SetText(_G["HAIR_"..GetHairCustomization().."_COLOR"]);
end

function SetButtonDesaturated(button, desaturated, r, g, b)
    if ( not button ) then
        return;
    end
    local icon = button:GetNormalTexture();
    if ( not icon ) then
        return;
    end
    local shaderSupported = icon:SetDesaturated(desaturated);

    if ( not desaturated ) then
        r = 1.0;
        g = 1.0;
        b = 1.0;
    elseif ( not r or not shaderSupported ) then
        r = 0.5;
        g = 0.5;
        b = 0.5;
    end

    icon:SetVertexColor(r, g, b);
end

function GetFlavorText(tagname, sex)
    local primary, secondary;
    if ( sex == 1 ) then
        primary = "";
        secondary = "_FEMALE";
    else
        primary = "_FEMALE";
        secondary = "";
    end
    local text = _G[tagname..primary];
    if ( (text == nil) or (text == "") ) then
        text = _G[tagname..secondary];
    end
    return text;
end

function CharacterCreate_DeathKnightSwap(self)
    local _, classFilename = GetSelectedClass();
    if ( classFilename == "DEATHKNIGHT" ) then
        if (self.currentModel ~= "DEATHKNIGHT") then
            self.currentModel = "DEATHKNIGHT";
            self:SetNormalTexture("Interface\\Glues\\Common\\Glue-Panel-Button-Up-Blue");
            self:SetPushedTexture("Interface\\Glues\\Common\\Glue-Panel-Button-Down-Blue");
            self:SetHighlightTexture("Interface\\Glues\\Common\\Glue-Panel-Button-Highlight-Blue");
        end
    else
        if (self.currentModel == "DEATHKNIGHT") then
            self.currentModel = nil;
            self:SetNormalTexture("Interface\\Glues\\Common\\Glue-Panel-Button-Up");
            self:SetPushedTexture("Interface\\Glues\\Common\\Glue-Panel-Button-Down");
            self:SetHighlightTexture("Interface\\Glues\\Common\\Glue-Panel-Button-Highlight");
        end
    end
end

function CharacterChangeFixup()
    if ( PAID_FACTION_CHANGE or PAID_CHARACTER_CUSTOMIZATION ) then
        for i=1, MAX_CLASSES_PER_RACE, 1 do
            if (CharacterCreate.selectedClass ~= i) then
                local button = _G["CharacterCreateClassButton"..i];
                button:Disable();
                SetButtonDesaturated(button, true)
            end
        end

        for i=1, MAX_RACES, 1 do
            local allow = false;
            if ( PAID_FACTION_CHANGE ) then
                local faction = GetFactionForRace(PFC_GetCurrentRaceIndex());
                if ( (i == PFC_GetCurrentRaceIndex()) or (i == PFC_GetPreviousRaceIndex()) or ((PFC_GetPreviousRaceIndex() == 0 and GetFactionForRace(i) ~= faction) and (IsRaceClassValid(i,CharacterCreate.selectedClass))) ) then
                    allow = true;
                end
            elseif ( PAID_CHARACTER_CUSTOMIZATION ) then
                if ( i == CharacterCreate.selectedRace ) then
                    allow = true
                end
            end
            if (not allow) then
                local button = _G["CharacterCreateRaceButton"..i];
                button:Disable();
                SetButtonDesaturated(button, true)
            end
        end
    end
end