Ico = instance_position(x, y, oPlayerIcon);

if Ico
{
    SelectedID = Ico.Parent;
    oGameMaster.SelectedID = Ico.Parent;
    with oPlayerIcon
    {
        Selected = false;
        image_xscale = 1;
        image_yscale = 1;
    }
    Ico.Selected = true;
    HPMax = SelectedID.HPMax;
    HP = SelectedID.HP;


    if HPMax mod 8 == 0
    {
        HPLines = HPMax div 8;
    }
    else
    {
        HPLines = HPMax div 8 + 1;
        HPExtree = (HPMax mod 8 ) ;
    }
    if HPMax > 16
    {
        HPScale = (32 / HPLines) / 16;
    }
    else
    {
        HPScale = 1;
    }

    XP = SelectedID.XP;
    XPNext = SelectedID.XPNext;
    XPScale = XP / XPNext;
}