// TMW2 scripts.
// TMW2 Authors:
//      Saulc
//      Jesusalva
// Description:
//      Miner Pylon transforme gems into gem powder, he ask for 100gp + 1 gem and give 100 EXp (each time) + 1 to 3 gem powder's.
// Variable:
//      dont need variable
// Reference:
//     https://fr.wikipedia.org/wiki/Pilon#Objets not Epiphysis !

007-1,67,65,0	script	Pylon	NPC_PLAYER,{

    mesn;
    mesq lg("Hello I'm Pylon!");
    next;
    mesq lg("I work in this mine since 3 years, I'm an expert of gem's Ruby, Topaz, Sapphire, You know ! ");
    next;
    mesq lg("If you have some gem's i can transform them into gem's powder.");
    next;
    mesq lg("I only take a tax of 100 gp per gem.");
    next;
    mesq lg("Then would you like me to transform one of your gem?");
    next;
    goto L_Menu;

L_Menu:
    mesn strcharinfo(0); // Useless ?
    menu
        l("Hum, How much gem's powders can i get from one gem?."),             L_Question;
        rif(countitem(Ruby) >= 1, l("Yeah sure, take my Ruby!"),             L_Ruby;
        rif(countitem(Topaz) >= 1, l("Yeah sure, take my Topaz!"),             L_Topaz;
        rif(countitem(Emerald) >= 1, l("Yeah sure, take my Emerald!"),             L_Emerald;
        rif(countitem(Diamond) >= 1, l("Yeah sure, take my Diamond!"),             L_Diamond;
        rif(countitem(Amethyst) >= 1, l("Yeah sure, take my Amethyst!"),             L_Amethyst;
        rif(countitem(Sapphire) >= 1, l("Yeah sure, take my Sapphire!"),             L_Sapphire;
        l("No, thanks, I will keep my gem's."),             L_Close;

L_Question
    mesn;
    mesq lg("That depend of your luck!");
    next;
    mesq lg("With one gem you can espect get 1 to 3 powders! ");
    next;
    mesq lg("We must blame Saulc!"); // maybe anrrator could say that
    next;
    mesq lg("By the way would you like to transform your gem?");
    next;
    goto L_Menu;

L_EndMenu:     
    menu
        l("Yeah i need more powder!"),             L_PowderMenu,
        l("Nah i'm done with it, Thanks dude."),                   L_Close,

L_PowderMenu:
        l("I Change my mind, i will keep it?."),             L_Close;
        rif(countitem(Ruby) >= 1, l("Take my Ruby!"),             L_Ruby;
        rif(countitem(Topaz) >= 1, l("Take my Topaz!"),             L_Topaz;
        rif(countitem(Emerald) >= 1, l("Take my Emerald!"),             L_Emerald;
        rif(countitem(Diamond) >= 1, l("Take my Diamond!"),             L_Diamond;
        rif(countitem(Amethyst) >= 1, l("Take my Amethyst!"),             L_Amethyst;
        rif(countitem(Sapphire) >= 1, l("Take my Sapphire!"),             L_Sapphire;

L_Ruby: 
    delitem Ruby, 1;
    Zeny = Zeny - 100;
    getexp 100, 0;
    inventoryplace RubyPowder, 1; // @jesusalva how to set a random 1 to 3
    getitem RubyPowder, 1;
    mes "";
    mesn;
    mesq l("Here is your powder! I hope it will be useful");
    next;
    mesq l("Would you like to transform one more?");
    next;
    goto L_EndMenu;
    close;

L_Topaz: 
    delitem Topaz, 1;
    Zeny = Zeny - 100;
    getexp 100, 0;
    inventoryplace TopazPowder, 1; // @jesusalva how to set a random 1 to 3
    getitem TopazPowder, 1;
    mes "";
    mesn;
    mesq l("Here is your powder! I hope it will be useful");
    next;
    mesq l("Would you like to transform one more?");
    next;
    goto L_EndMenu;
    close;

L_Emerald: 
    delitem Emerald, 1;
    getexp 100, 0;
    Zeny = Zeny - 100;
    inventoryplace EmeraldPowder, 1; // @jesusalva how to set a random 1 to 3
    getitem EmeraldPowder, 1;
    mes "";
    mesn;
    mesq l("Here is your powder! I hope it will be useful");
    next;
    mesq l("Would you like to transform one more?");
    next;
    goto L_EndMenu;
    close; 

L_Diamond: 
    delitem Diamond, 1;
    getexp 100, 0;
    Zeny = Zeny - 100;
    inventoryplace DiamondPowder, 1; // @jesusalva how to set a random 1 to 3
    getitem DiamondPowder, 1;
    mes "";
    mesn;
    mesq l("Here is your powder! I hope it will be useful");
    next;
    mesq l("Would you like to transform one more?");
    next;
    goto L_EndMenu;
    close;  

L_Amethyst: 
    delitem Amethyst, 1;
    getexp 100, 0;
    Zeny = Zeny - 100;
    inventoryplace AmethystPowder, 1; // @jesusalva how to set a random 1 to 3
    getitem AmethystPowder, 1;
    mes "";
    mesn;
    mesq l("Here is your powder! I hope it will be useful");
    next;
    mesq l("Would you like to transform one more?");
    next;
    goto L_EndMenu;
    close;  

L_Sapphire: 
    delitem Sapphire, 1;
    getexp 100, 0;
    Zeny = Zeny - 100;
    inventoryplace SapphirePowder, 1; // @jesusalva how to set a random 1 to 3
    getitem SapphirePowder, 1;
    mes "";
    mesn;
    mesq l("Here is your powder! I hope it will be useful");
    next;
    mesq l("Would you like to transform one more?");
    next;
    goto L_EndMenu;
    close;  
 
L_Close:
    close;

OnInit:
    .@npcId = getnpcid(0, .name$);
    setunitdata(.@npcId, UDT_HEADTOP, MinerHat);
    setunitdata(.@npcId, UDT_HEADMIDDLE, ArtisTankTop);
    setunitdata(.@npcId, UDT_HEADBOTTOM, BromenalPants);
    setunitdata(.@npcId, UDT_WEAPON, DeepBlackBoots);
    setunitdata(.@npcId, UDT_HAIRSTYLE, 15);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 4);
    .sex = G_MALE;
    .distance = 4;
    end;
}