globals
boolean array                   confirm 
boolean array bug             

constant integer array          RACE
constant integer array          SKILL
integer array                   Position_Race
integer array                   SKILL_POINT [11][11]

unit array                      Show_Menu_Unit
unit array                      Show_Menu_Stat [11][11]

texttag array                   Show_Menu_Race [11][11]
texttag array                   Show_Menu_Statistic [11][11]
texttag array                   Show_Menu_Talent [11][11]
texttag array                   Show_Menu_RaceInfo //[10][11]

string array                    RaceInfo

destructable array              Show_Menu_Skill [10][2]
endglobals

function TexTag takes  real x,real y,string s,integer p,real size, integer r,integer g,integer b returns texttag
set bj_lastCreatedTextTag = CreateTextTag()

call SetTextTagVisibility(bj_lastCreatedTextTag,false)
    if GetLocalPlayer() == Player(p) and bug[p] == false then
        call SetTextTagVisibility(bj_lastCreatedTextTag,true)
    endif
    
    call SetTextTagColor(bj_lastCreatedTextTag,r,g,b,100)
    call SetTextTagText(bj_lastCreatedTextTag,s,size)
    call SetTextTagPos(bj_lastCreatedTextTag,x,y,60.)
return bj_lastCreatedTextTag
endfunction

function Trig_CreateHeroMenu_Actions takes nothing returns nothing
local real x = GetRectCenterX(gg_rct_1)
local real y = GetRectCenterY(gg_rct_1)
local real InfoX = GetRectCenterX(gg_rct_2)
local real InfoY = GetRectCenterY(gg_rct_2)
local real StatX = GetRectCenterX(gg_rct_3)
local real StatY = GetRectCenterY(gg_rct_3)
local real SkillX = GetRectCenterX(gg_rct_4)
local real SkillY = GetRectCenterY(gg_rct_4)
local integer ip = 0
    
    loop
        set Show_Menu_Race[ip][0] = TexTag(x,y,"Выбор расы",ip,.028,255,151,0)
        set Show_Menu_Race[ip][1] = TexTag(x,y - 50.,"1",ip,.027,0,192,255)
        set Show_Menu_Race[ip][2] = TexTag(x,y - 100.,"2",ip,.027,255,255,255)
        set Show_Menu_Race[ip][3] = TexTag(x,y - 150.,"3",ip,.027,255,255,255)
        set Show_Menu_Race[ip][4] = TexTag(x,y - 200.,"4",ip,.027,255,255,255)
        set Show_Menu_Race[ip][5] = TexTag(x,y - 250.,"5",ip,.027,255,255,255)
        set Show_Menu_Race[ip][6] = TexTag(x,y - 300.,"6",ip,.027,255,255,255)
        set Show_Menu_Race[ip][7] = TexTag(x,y - 350.,"7",ip,.027,255,255,255)
        set Show_Menu_Race[ip][8] = TexTag(x,y - 400.,"8",ip,.027,255,255,255)
        set Show_Menu_Race[ip][9] = TexTag(x,y - 450.,"9",ip,.027,255,255,255)
        set Show_Menu_Race[ip][10] = TexTag(x,y - 500.,"10",ip,.027,255,255,255)
        
        set Show_Menu_RaceInfo[ip] = TexTag(InfoX - 30.,InfoY,RaceInfo[ip + 1],ip,.025,255,255,255)
        
        set Show_Menu_Statistic[ip][1] = TexTag(StatX,StatY,"1 ",ip,.027,255,255,255)
        set Show_Menu_Statistic[ip][2] = TexTag(StatX,StatY - 50.,"2 ",ip,.027,255,255,255)
        set Show_Menu_Statistic[ip][3] = TexTag(StatX,StatY - 100.,"3 ",ip,.027,255,255,255)
        set Show_Menu_Statistic[ip][4] = TexTag(StatX,StatY - 150.,"4 ",ip,.027,255,255,255)
        
        set Show_Menu_Talent[ip][1] = TexTag(StatX + 400.,StatY,I2S(SKILL_POINT[1][1]),ip,.027,255,255,255)
        set Show_Menu_Talent[ip][2] = TexTag(StatX + 400.,StatY - 50.,I2S(SKILL_POINT[1][2]),ip,.027,255,255,255)
        set Show_Menu_Talent[ip][3] = TexTag(StatX + 400.,StatY - 100.,I2S(SKILL_POINT[1][3]),ip,.027,255,255,255)
        set Show_Menu_Talent[ip][4] = TexTag(StatX + 400.,StatY - 150.,I2S(SKILL_POINT[1][4]),ip,.027,255,255,255)
        
        set Show_Menu_Skill[ip][1] = CreateDestructableZ('B00W',SkillX,SkillY,GetLocZ(SkillX,SkillY),0.,1.,0)
        set Show_Menu_Skill[ip][2] = CreateDestructableZ('B00Y',SkillX,SkillY - 150.,GetLocZ(SkillX,SkillY),0.,1.,0)

        set Show_Menu_Unit[ip] = CreateUnit(Player(15),'n000',GetRectCenterX(gg_rct_IFhero),GetRectCenterY(gg_rct_IFhero),-90.)
        if GetLocalPlayer() != Player(ip) then
            call SetUnitVertexColor(Show_Menu_Unit[ip],255,255,255,0)
        endif
        call HideDestructable(Show_Menu_Skill[ip][1],ip)
        call HideDestructable(Show_Menu_Skill[ip][2],ip)
        
        set ip = ip + 1
        exitwhen ip == 10
    endloop
    
endfunction