// Author: alastrim, Jenalya

function|script|Debug|{

L_Begin:
    set @debug_mask, 65535;
    set @debug_shift, 0;
    set @mexp, ((MAGIC_EXPERIENCE & @debug_mask) >> @debug_shift);
    mes "What do you want to do?";
    menu
        "Change base level", L_Level,
        "Reset status points", L_Status,
        "Change my skills", L_Skills,
        "Change my magic skills", L_Magic,
        "Close", -;
    close;

L_Level:
    mes "Which level do you want to be? (min: 1 - max: 255)";
    next;
    input @lvl;
    if (@lvl > 255) goto L_Leveltoohigh;
    if (@lvl < 1) goto L_Leveltoolow;
    if (Baselevel == @lvl) goto L_Samelvl;
    set BaseLevel, @lvl;
    resetstatus;
    message strcharinfo(0), "New level: " + Baselevel;
    goto L_Begin;

L_Samelvl:
    mes "You are already level " + @lvl;
    next;
    goto L_Level;

L_Leveltoolow:
    mes "Bad choice. Minimum level is 1.";
    next;
    goto L_Level;

L_Leveltoohigh:
    mes "Bad choice. Maximum level is 255.";
    next;
    goto L_Level;

L_Skills:
    set @mallard, getskilllv(SKILL_MALLARDS_EYE);
    set @brawling, getskilllv(SKILL_BRAWLING);
    set @speed, getskilllv(SKILL_SPEED);
    set @poison, getskilllv(SKILL_RESIST_POISON);
    set @astralsoul, getskilllv(SKILL_ASTRAL_SOUL);
    set @raging, getskilllv(SKILL_WARRIOR_RAGING);

    menu
        "Overview of my skills", L_Seeskills,
        "Focus/Unfocus", L_Unfocus,
        "Add skills", L_Changeskills,
        "Reset skills", L_Resetskills,
        "Back to main menu", L_Begin,
        "Close", -;
    close;

L_Unfocus:
    cleararray @skilllist_name$[0], "", 8;
    cleararray @skilllist_id[0], 0, 8;
    cleararray @skilllist_count[0], 0, 8;
    if (getskilllv(SKILL_POOL) == 0) setskill SKILL_POOL, 1;
    getactivatedpoolskilllist;
    if (@skilllist_count == 0) goto L_Focus;
    getactivatedpoolskilllist;
    if (@skilllist_count != 0) goto L_Askunfocus;
    mes "You aren't focused on a skill at the moment";
    goto L_Skills;

L_Askunfocus:
    mes "Unfocus " + @skilllist_name$[@skilllist_count-1] + "?";
    menu
        "Yes", -,
        "No", L_Skills;
    unpoolskill @skilllist_id[@skilllist_count-1];
    goto L_Skills;

L_Focus:
    cleararray @skilllist_name$[0], "", 8;
    cleararray @skilllist_id[0], 0, 8;
    cleararray @skilllist_count[0], 0, 8;
    getunactivatedpoolskilllist;
    if (@skilllist_count == 0) goto L_Noskills;
    set @skilllist_id[@skilllist_count], 0;
    set @skilllist_name$[@skilllist_count], "Back to skills menu";
    mes "You don't have any skill focused right now. Which one do you want to focus?";
    menu
        @skilllist_name$[0], -,
        @skilllist_name$[1], -,
        @skilllist_name$[2], -,
        @skilllist_name$[3], -,
        @skilllist_name$[4], -,
        @skilllist_name$[5], -,
        @skilllist_name$[6], -,
        @skilllist_name$[7], -;
    set @menu, @menu - 1;
    poolskill @skilllist_id[@menu];
    goto L_Skills;

L_Noskills:
    mes "You have no skills to focus/unfocus.";
    goto L_Skills;

L_Seeskills:
    cleararray @skilllist_name$[0], "", 8;
    cleararray @skilllist_id[0], 0, 8;
    cleararray @skilllist_count[0], 0, 8;
    getactivatedpoolskilllist;
    if (@skilllist_count == 0) goto L_Focusmessage;
    if (@skilllist_count != 0) mes "You are focused on " + @skilllist_name$[@skilllist_count-1] + " skill.";

L_Skillsoverview:
    mes "You level in mallards eye skill is " + @mallard;
    mes "You level in brawling skill is " + @brawling;
    mes "You level in speed skill is " + @speed;
    mes "You level in resist poison skill is " + @poison;
    mes "You level in astral soul skill is " + @astralsoul;
    mes "You level in raging skill is " + @raging;
    next;
    goto L_Skills;

L_Focusmessage:
    mes "You don't have any skill focused right now.";
    goto L_Skillsoverview;

L_Changeskills:
    menu
        "Mallards eye", L_Changemallard,
        "Brawling", L_Changebrawling,
        "Speed", L_Changespeed,
        "Resist Poison", L_Changepoison,
        "Astral Soul", L_Changeastralsoul,
        "Raging", LChangeraging,
        "All skills level 9", L_AllSkills,
        "Back to skills menu", L_Skills,
        "Close", -;
    close;

L_Badskilllvl:
    mes "Invalid skill lvl. Try again.";
    next;
    goto L_Changeskills;

L_Changemallard:
    mes "Enter the lvl you want to be in this skill(min: 1 - max: 9):";
    input @lvl;
    if (@lvl < 1 || @lvl > 9) goto L_Badskilllvl;
    setskill SKILL_MALLARDS_EYE, @lvl;
    goto L_Skills;

L_Changebrawling:
    mes "Enter the lvl you want to be in this skill(min: 1 - max: 9):";
    input @lvl;
    if (@lvl < 1 || @lvl > 9) goto L_Badskilllvl;
    setskill SKILL_BRAWLING, @lvl;
    goto L_Skills;

L_Changespeed:
    mes "Enter the lvl you want to be in this skill(min: 1 - max: 9):";
    input @lvl;
    if (@lvl < 1 || @lvl > 9) goto L_Badskilllvl;
    setskill SKILL_SPEED, @lvl;
    goto L_Skills;

L_Changepoison:
    mes "Enter the lvl you want to be in this skill(min: 1 - max: 9):";
    input @lvl;
    if (@lvl < 1 || @lvl > 9) goto L_Badskilllvl;
    setskill SKILL_RESIST_POISON, @lvl;
    goto L_Skills;

L_Changeastralsoul:
    mes "Enter the lvl you want to be in this skill(min: 1 - max: 9):";
    input @lvl;
    if (@lvl < 1 || @lvl > 9) goto L_Badskilllvl;
    setskill SKILL_ASTRAL_SOUL, @lvl;
    goto L_Skills;

L_Changeraging:
    mes "Enter the lvl you want to be in this skill(min: 1 - max: 9):";
    input @lvl;
    if (@lvl < 1 || @lvl > 9) goto L_Badskilllvl;
    setskill SKILL_WARRIOR_RAGING, @lvl;
    goto L_Skills;

L_AllSkills:
    setskill SKILL_MALLARDS_EYE, 9;
    setskill SKILL_BRAWLING, 9;
    setskill SKILL_SPEED, 9;
    setskill SKILL_RESIST_POISON, 9;
    setskill SKILL_ASTRAL_SOUL, 9;
    setskill SKILL_WARRIOR_RAGING, 9;
    goto L_Skills;

L_Resetskills:
    setskill SKILL_MALLARDS_EYE, 0;
    setskill SKILL_BRAWLING, 0;
    setskill SKILL_SPEED, 0;
    setskill SKILL_RESIST_POISON, 0;
    setskill SKILL_ASTRAL_SOUL, 0;
    setskill SKILL_WARRIOR_RAGING, 0;
    goto L_Skills;

L_Magic:
    set @general, getskilllv(SKILL_MAGIC);
    set @life, getskilllv(SKILL_MAGIC_LIFE);
    set @war, getskilllv(SKILL_MAGIC_WAR);
    set @trans, getskilllv(SKILL_MAGIC_TRANSMUTE);
    set @nature, getskilllv(SKILL_MAGIC_NATURE);
    set @astral, getskilllv(SKILL_MAGIC_ASTRAL);

    menu
        "Overview of my magical skills", L_Seemagic,
        "Get magic skills", L_Changemagic,
        "Get magic experience", L_Magicexp,
        "Get all magic skills lvl2 and max exp", L_GetAllMagic,
        "Reset magic", L_Resetmagic,
        "Back to main menu", L_Begin,
        "Close", -;
    close;

L_Nomagicskills:
    mes "You can't have magic experience, since you have no magic skills.";
   goto L_Magic;

L_GetAllMagic:
    setskill SKILL_MAGIC, 2;
    setskill SKILL_MAGIC_LIFE, 2;
    setskill SKILL_MAGIC_WAR, 2;
    setskill SKILL_MAGIC_TRANSMUTE, 2;
    setskill SKILL_MAGIC_NATURE, 2;
    setskill SKILL_MAGIC_ASTRAL, 2;
    set @mexp, 1200;
    callsub S_Update_Mask;
    goto L_Magic;

L_Resetmagic:
    setskill SKILL_MAGIC, 0;
    setskill SKILL_MAGIC_LIFE, 0;
    setskill SKILL_MAGIC_WAR, 0;
    setskill SKILL_MAGIC_TRANSMUTE, 0;
    setskill SKILL_MAGIC_NATURE, 0;
    setskill SKILL_MAGIC_ASTRAL, 0;
    set @mexp, 0;
    callsub S_Update_Mask;
    goto L_Magic;

L_Wrongexp:
    mes "Wrong value informed. Try again.";

L_Magicexp:
    mes "Your current magic experience is " + @mexp;
    if (@general == 0 && @life == 0 && @war == 0  && @trans == 0  && @nature == 0  && @astral == 0) goto L_Nomagicskills;
    if (@general == 2 || @life == 2 || @war == 2  || @trans == 2  || @nature == 2  || @astral == 2) goto L_Magicexp2;

L_Magicexp1:
    mes "Set the desired magic experience (min: 1 - max: 100)";
    input @value;
    if (@value < 1 || @value > 100) goto L_Wrongexp;
    set @mexp, @value;
    callsub S_Update_Mask;
    goto L_Magic;

L_Magicexp2:
    mes "Set the desired magic experience (min: 100 - max: 1200)";
    input @value;
    if (@value < 100 || @value > 1200) goto L_Wrongexp;
    set @mexp, @value;
    callsub S_Update_Mask;
    goto L_Magic;

L_Changemagic:
    menu
        "General Magic", L_Changegeneral,
        "Life Magic", L_Changelife,
        "War Magic", L_Changewar,
        "Transmutation Magic", L_Changetrans,
        "Nature Magic", L_Changenature,
        "Astral Magic", L_Changeastral,
        "Back to magic menu", L_Magic,
        "Close", -;
    close;

L_Seemagic:
    mes "Your current magic experience is " + @mexp;
    mes "You level in general magic is " + @general;
    mes "You level in life magic is " + @life;
    mes "You level in war magic is " + @war;
    mes "You level in transmutation magic is " + @trans;
    mes "You level in nature magic is " + @nature;
    mes "You level in astral magic is " + @astral;
    next;
    goto L_Magic;

L_Changegeneral:
    mes "You level in general magic is " + @general + ". What do you want to do?";
    menu
        "Get Level one", -,
        "Get Level two", L_Generallvl2,
        "Back to magic menu", L_Magic;
    if (@menu == 1) setskill SKILL_MAGIC, 1;
    goto L_Magic;

L_Generallvl2:
    setskill SKILL_MAGIC, 2;
    if (@mexp < 100) set @mexp, 100;
    callsub S_Update_Mask;
    goto L_Magic;

L_Changelife:
    mes "You level in life magic is " + @war + ". What do you want to do?";
    menu
        "Get Level one", -,
        "Get Level two", L_Lifelvl2,
        "Back to magic menu", L_Magic;
    if (@menu == 1) setskill SKILL_MAGIC_LIFE, 1;
    goto L_Magic;

L_Lifelvl2:
    setskill SKILL_MAGIC_LIFE, 2;
    if (@mexp < 100) set @mexp, 100;
    callsub S_Update_Mask;
    goto L_Magic;

L_Changewar:
    mes "You level in war magic is " + @war + ". What do you want to do?";
    menu
        "Get Level one", -,
        "Get Level two", L_Warlvl2,
        "Back to magic menu", L_Magic;
    if (@menu == 1) setskill SKILL_MAGIC_WAR, 1;
    goto L_Magic;

L_Warlvl2:
    setskill SKILL_MAGIC_WAR, 2;
    if (@mexp < 100) set @mexp, 100;
    callsub S_Update_Mask;
    goto L_Magic;

L_Changetrans:
    mes "You level in transmutation magic is " + @trans + ". What do you want to do?";
    menu
        "Get Level one", -,
        "Get Level two", L_Translvl2,
        "Back to magic menu", L_Magic;
    if (@menu == 1) setskill SKILL_MAGIC_TRANSMUTE, 1;
    goto L_Magic;

L_Translvl2:
    setskill SKILL_MAGIC_TRANSMUTE, 2;
    if (@mexp < 100) set @mexp, 100;
    callsub S_Update_Mask;
    goto L_Magic;

L_Changenature:
    mes "You level in nature magic is " + @nature + ". What do you want to do?";
    menu
        "Get Level one", -,
        "Get Level two", L_Naturelvl2,
        "Back to magic menu", L_Magic;
    if (@menu == 1) setskill SKILL_MAGIC_NATURE, 1;
    goto L_Magic;

L_Naturelvl2:
    setskill SKILL_MAGIC_NATURE, 2;
    if (@mexp < 100) set @mexp, 100;
    callsub S_Update_Mask;
    close;

L_Changeastral:
    mes "You level in astral magic is " + @astral + ". What do you want to do?";
    menu
        "Get Level one", -,
        "Get Level two", L_Astrallvl2,
        "Back to magic menu", L_Magic;
    if (@menu == 1) setskill SKILL_MAGIC_ASTAL, 1;
    goto L_Magic;

L_Astrallvl2:
    setskill SKILL_MAGIC_ASTRAL, 2;
    if (@mexp < 100) set @mexp, 100;
    callsub S_Update_Mask;
    goto L_Magic;

L_Status:
    resetstatus;
    goto L_Begin;

S_Update_Mask:
        set MAGIC_EXPERIENCE,
            (MAGIC_EXPERIENCE & ~(@debug_mask))
                | (@mexp << @debug_shift);
        return;
}