// TMW Script.
// Author:
//    Jesusalva
// Notes:
//    Christmas 2021 - Extra NPCs & Code Injection

081-1,82,68,0	script	Nut Cracker	NPC330,{
    @npcname$ = "Nut Cracker";
    Banker();
    close;

OnInit:
    .distance=5;
    end;
}

081-1,69,82,0	script	Ol' Reset	NPC329,{
    @npcname$ = "Ol' Reset";
    StatReset();
    close;

OnInit:
    .distance=5;
    end;
}

081-1,57,49,0	script	Soul Menhir#Aethyr	NPC346,{
    @map$ = "081-1";
    setarray @Xs, 54, 54, 54, 55, 55, 55, 56;
    setarray @Ys, 52, 53, 54, 52, 53, 54, 54;
    @x = 0;
    @y = 0;
    callfunc "SoulMenhir";
    @map$ = "";
    cleararray @Xs[0], 0, 7;
    cleararray @Ys[0], 0, 7;
    @x = 0;
    @y = 0;
    close;
OnInit:
    .distance=5;
    end;
}

081-1,60,91,0	script	TMW Evolved Guide	NPC356,{
    mesn;
    mes "\""+l("Hello, and welcome to The Mana World: Evolved.");
    mes l("This is the server which will eventually take over TMW Legacy.")+"\"";
    next;
    mesn;
    mesq l("A few things are different here, you can read [@@https://wiki.themanaworld.org/index.php/Legacy:TMW_Evolved|on the wiki@@] some of the major differences.");
    select
        l("Thanks."),
        l("Learn more");
    mes "";
    if (@menu == 1) { closeclientdialog; close; }
    mesn;
    mesq l("For starters, magic skills are on F5 tab and no longer can be cast from chat. Drag'n'Drop them to the shortcut bars to use. You can also level them up if you have the points.");
    next;
    mesn;
    mesq l("To use magic, first select the target, and use the skill to unleash the magical attack. The next attack will only come when you use the skill again; unfortunately, it is NOT automatic.");
    next;
    mesn;
    mesq l("If you have unspent status points, you can level them up to 100. Focus skills work sightly different than on TMW Legacy. YOU NEED TO REFOCUS them!");
    next;
    mesn;
    mesq l("Your weight limit is a bit larger, but if it reaches 90% you will no longer be able to attack, so be careful.");
    next;
    mesn;
    mesq l("When you die, you'll be taken to the Soul Menhir you touched last. There is a Soul Menhir nearby, I advise touching it as soon as possible.");
    next;
    mesn;
    mesq l("Experience acquired here will be carried over to TMW Legacy once the event ends, as well as the event rewards. You can exchange the %s with GM Santa, the GM Team will be publishing the rules in turning these in level ups or ultra rare hats shortly.", getitemlink(Carrot));
    next;
    mesn;
    mesq l("The \"#world\" chat tab is bridged to #themanaworld-dev on IRC and Discord, you can quickly get in touch with the whole community and report bugs using it.");
    next;
    mesn;
    mesq l("Also, you may wish to use \"@resync\" or \"@resyncall\" if the monsters appear to vanish. That's mostly all, thanks for playing The Mana World. Contact staff if you need further assistance!");
    close;

OnInit:
    .distance=5;
    .sex = G_FEMALE;
    end;
}

081-1,47,74,0	script	Focus Master	NPC328,{
    while (true) {
        @pool = getskilllv(SKILL_POOL);
        @mallard = getskilllv(SKILL_MALLARDS_EYE);
        @brawling = getskilllv(SKILL_BRAWLING);
        @speed = getskilllv(SKILL_SPEED);
        @poison = getskilllv(SKILL_RESIST_POISON);
        @astralsoul = getskilllv(SKILL_ASTRAL_SOUL);
        @raging = getskilllv(SKILL_RAGING);

        mesn;
        mes "Your focusing skill level is " + @pool + ".";
        mes "Your mallard's eye skill level is " + @mallard + ".";
        mes "Your brawling skill level is " + @brawling + ".";
        mes "Your speed skill level is " + @speed + ".";
        mes "Your resist poison skill level is " + @poison + ".";
        mes "Your astral soul skill level is " + @astralsoul + ".";
        mes "Your raging skill level is " + @raging + ".";
        next;
        mes "";
        mes l("Focus list:");
        mesc l("%s : %s", l("Mallard's Eye"),
              (isfocused(SKILL_MALLARDS_EYE) ? l("Yes") : l("No")));
        mesc l("%s : %s", l("Brawling"),
              (isfocused(SKILL_BRAWLING) ? l("Yes") : l("No")));
        mesc l("%s : %s", l("Speed"),
              (isfocused(SKILL_SPEED) ? l("Yes") : l("No")));
        mesc l("%s : %s", l("Resist Ailment"),
              (isfocused(SKILL_RESIST_POISON) ? l("Yes") : l("No")));
        mesc l("%s : %s", l("Astral Soul"),
              (isfocused(SKILL_ASTRAL_SOUL) ? l("Yes") : l("No")));
        mesc l("%s : %s", l("Raging"),
              (isfocused(SKILL_RAGING) ? l("Yes") : l("No")));
        .@t=getactivatedpoolskilllist();
        menuint
            l("Back"), 0,
            ("Toggle Focus - Mallards Eye"), SKILL_MALLARDS_EYE,
            ("Toggle Focus - Brawling"), SKILL_BRAWLING,
            ("Toggle Focus - Speed"), SKILL_SPEED,
            ("Toggle Focus - Resist Ailment"), SKILL_RESIST_POISON,
            ("Toggle Focus - Astral Soul"), SKILL_ASTRAL_SOUL,
            ("Toggle Focus - Raging"), SKILL_RAGING;
        mes "";

        if (@menuret) {
            if (FOCUSING & getpoolskillFID(@menuret)) {
                unpoolskill(@menuret);
                mesc "Focus removed", 1;
            } else {
                .@s = poolskill(@menuret);
                if (.@s)
                    mesc "Focus added", 2;
                else
                    mesc sprintf("Impossible to focus. You can only focus %d skills at a time.", .@t), 1;
            }
        }
        else {
            break;
        }
    }
    mes "";
    mesn;
    mesq l("Come back again!");
    close;

OnInit:
    .distance=5;
    end;
}


081-2,90,288,0	script	#X21ADMIN	NPC_NO_SPRITE,{
    if (!is_admin()) end;
    if (instance_id() < 0) end;
    clear;
    do
    {
    mes "Dungeon config";
    mes "--------------------";
    mesf("Puzzle 01: %d", 'XMAS21CANDLE);
    mesf("Puzzle 02: %d", 'XMAS21TREE);
    mesf("Puzzle 03: %d", 'XMAS21AMBUSH);
    mes "";
    mesf("Boss Chamber Lock: %d", 'LOCKD);
    mes "";
    select
        "Close",
        "Toggle Candle",
        "Toggle Tree",
        "Toggle Ambush",
        "Unlock Boss Chamber";
    mes "";
    switch (@menu) {
    case 2: 'XMAS21CANDLE = !'XMAS21CANDLE; break;
    case 3: 'XMAS21TREE = !'XMAS21TREE; break;
    case 4: 'XMAS21AMBUSH = !'XMAS21AMBUSH; break;
    case 5: 'LOCKD = false; break;
    }
    } while (@menu != 1);
    closeclientdialog;
    close;
OnInit:
    .distance=1;
    end;
}