// TMW2 Script
// Author:
//  Jesusalva
// Description:
//  Alchemy System (oversimplified)

// Usage: AlchemySystem ()
// Returns true on success, false on failure
function	script	AlchemySystem	{
    .success=false;

    setskin "craft2";
    .@var$ = requestcraft(2);
    .@craft = initcraft(.@var$);
    .@entry = findcraftentry(.@craft, CRAFT_ALCHEMY);
    if (debug || $@GM_OVERRIDE) mes "found craft entry: " + .@entry;
    if (.@entry < 0) {
            .success=false;
    } else {
        // Determine how many units to make
        // This code comes from Moubootaur Legends
        // Where sponsors could make up to 25 units
        // And you could configure a fixed number to
        // avoid prompts...
        // ...
        // PS. This is not using freeloop()
        // Max amount is limited for performance.
        if (GSET_FIXED_ALCHEMY) {
            .@m=limit(1, GSET_FIXED_ALCHEMY, 25);
        } else {
            .@max=(is_trusted() ? 25 : 10);
            mesc l("How many to brew? (%d-%d)", 1, .@max);
            input(.@m, 1, .@max);
        }
        // Alchemy loop
        .@i=0;
        while (.@i < .@m) {
            .@s=validatecraft(.@craft);
            // Could not validate (not enough resources)
            if (!.@s) {
                mesc l("Insufficient materials to continue."), 1;
                if (.@i)
                    mesc l("Only %d/%d units were produced.", .@i, .@m), 1;
                break;
            }
            .@s=usecraft(.@craft);
            .@i++;
            // Exploiting?!
            if (!.@s)
                break;
        }
        .success=true;
    }
    deletecraft .@craft;
    setskin "";
    return .success;
}

////////////////////////////////////////////////////////////////////////////////
// Build the various crafting tables on the world
001-2,92,76,0	script	#AlchemyTable000	NPC_NO_SPRITE,{
    title l("Alchemy Lab");
    mes l("This is an alchemy lab.");
    mes l("With it, you can combine reagents together to create powerful potions.");
    next;
    mes b(l("Drag & drop 2 items from your inventory. All items used will be lost."));
    if (AlchemySystem())
        mesc l("Success!"), 3;
    else
        mesc l("That didn't work!"), 1;
    close;

OnInit:
    .distance=2;
    end;
}

// Tonori Region (0~99)
001-2,92,89,0	duplicate(#AlchemyTable000)	#AlchemyTable001	NPC_NO_SPRITE
001-2,98,76,0	duplicate(#AlchemyTable000)	#AlchemyTable002	NPC_NO_SPRITE
001-2,98,89,0	duplicate(#AlchemyTable000)	#AlchemyTable003	NPC_NO_SPRITE

// Argaes Region (100~199)
026-2,35,117,0	duplicate(#AlchemyTable000)	#AlchemyTable100	NPC_NO_SPRITE

// Candor Region (200~299)
029-2,113,57,0	duplicate(#AlchemyTable000)	#AlchemyTable200	NPC_NO_SPRITE