path: root/world/map/npc/009-2/peter.txt

// Nicholas' Apprentice and Armorsmith

009-2.gat,183,57,0|script|Peter|157,{

    set @peter_chain_mail_coal, 10;
    set @peter_chain_mail_ingot, 5;
    set @peter_chain_mail_money, 20000;

    set @peter_light_plate_coal, 20;
    set @peter_light_plate_ingot, 10;
    set @peter_light_plate_money, 50000;

    set @peter_warlord_plate_coal, 30;
    set @peter_warlord_plate_ingot, 15;
    set @peter_warlord_plate_money, 100000;

    set @peter_warlord_boots_coal, 16;
    set @peter_warlord_boots_ingot, 8;
    set @peter_warlord_boots_money, 35000;

    mes "[Peter]";
    mes "\"Hello, I am Peter, apprentice to Nicholas.\"";
    next;
    mes "\"I can make you some sturdy armor: you must give me Iron Ingots to craft with and some gold pieces for my efforts.\"";
    next;
    mes "[Peter]";
    mes "\"What would you like me to make?\"";
    menu
        "Chain Mail ("+@peter_chain_mail_coal+" coal, "+@peter_chain_mail_ingot+" ingots and "+@peter_chain_mail_money+" GP).", L_Peter_Chain_Mail,
        "Light Plate ("+@peter_light_plate_coal+" coal, "+@peter_light_plate_ingot+" ingots and "+@peter_light_plate_money+" GP).", L_Peter_Light_Plate,
        "Warlord Plate ("+@peter_warlord_plate_coal+" coal, "+@peter_warlord_plate_ingot+" ingots and "+@peter_warlord_plate_money+" GP).", L_Peter_Warlord_Plate,
        "Do you know anything else than armor crafting?", L_Peter_New_Skills,
        "Nevermind.", -;
    goto L_Close;

L_Peter_Chain_Mail:
    set @peter_crafting_coal, @peter_chain_mail_coal;
    set @peter_crafting_iron_ingot, @peter_chain_mail_ingot;
    set @peter_crafting_money, @peter_chain_mail_money;
    set @peter_crafting_item$, "ChainmailShirt";
    callsub S_Peter_Get_Smithery_Item;
    goto L_Close;

L_Peter_Light_Plate:
    set @peter_crafting_coal, @peter_light_plate_coal;
    set @peter_crafting_iron_ingot, @peter_light_plate_ingot;
    set @peter_crafting_money, @peter_light_plate_money;
    set @peter_crafting_item$, "LightPlatemail";
    callsub S_Peter_Get_Smithery_Item;
    goto L_Close;

L_Peter_Warlord_Plate:
    set @peter_crafting_coal, @peter_warlord_plate_coal;
    set @peter_crafting_iron_ingot, @peter_warlord_plate_ingot;
    set @peter_crafting_money, @peter_warlord_plate_money;
    set @peter_crafting_item$, "WarlordPlate";
    callsub S_Peter_Get_Smithery_Item;
    goto L_Close;

L_Peter_New_Skills:
    mes "[Peter]";
    mes "\"Actually, Nicholas, my master, taught me new smithery techniques.";
    mes "My very first creation are new kind of steel boots. Interested ? That would be "+@peter_warlord_boots_coal+" Coals, "+@peter_warlord_boots_ingot+" Iron Ingots and "+@peter_warlord_boots_money+" GP.\"";
    menu
        "Sure!", L_Peter_Warlord_Boots,
        "No thanks, that sounds too heavy for me.", -;
    goto L_Close;

L_Peter_Warlord_Boots:
    set @peter_crafting_coal, @peter_warlord_boots_coal;
    set @peter_crafting_iron_ingot, @peter_warlord_boots_ingot;
    set @peter_crafting_money, @peter_warlord_boots_money;
    set @peter_crafting_item$, "WarlordBoots";
    callsub S_Peter_Get_Smithery_Item;
    goto L_Close;

S_Peter_Get_Smithery_Item:
    if (Zeny < @peter_crafting_money)
        goto L_Peter_NotEnough_Zeny;
    if (countitem("IronIngot") < @peter_crafting_iron_ingot)
        goto L_Peter_NotEnough_Ingot;
    if (countitem("Coal") < @peter_crafting_coal)
        goto L_Peter_NotEnough_Coal;
    getinventorylist;
    if (@inventorylist_count == 100)
        goto L_Peter_TooMany;
    set Zeny, Zeny - @peter_crafting_money;
    delitem "IronIngot", @peter_crafting_iron_ingot;
    delitem "Coal", @peter_crafting_coal;
    getitem @peter_crafting_item$, 1;
    mes "[Peter]";
    mes "\"Here you go!\"";
    return;

L_Peter_NotEnough_Zeny:
    mes "[Peter]";
    mes "\"You don't have enough gold.\"";
    goto L_Close;

L_Peter_NotEnough_Ingot:
    mes "[Peter]";
    mes "\"You don't have enough ingots.\"";
    goto L_Close;

L_Peter_NotEnough_Coal:
    mes "[Peter]";
    mes "\"You don't have enough Coal.\"";
    goto L_Close;

L_Peter_TooMany:
    mes "[Peter]";
    mes "\"You have too much stuff.  Please get rid of something if you want some armor.\"";
    goto L_Close;

L_Close:
    // Clear all local variables
    set @peter_chain_mail_coal, 0;
    set @peter_chain_mail_ingot, 0;
    set @peter_chain_mail_money, 0;

    set @peter_light_plate_coal, 0;
    set @peter_light_plate_ingot, 0;
    set @peter_light_plate_money, 0;

    set @peter_warlord_plate_coal, 0;
    set @peter_warlord_plate_ingot, 0;
    set @peter_warlord_plate_money, 0;

    set @peter_warlord_boots_coal, 0;
    set @peter_warlord_boots_ingot, 0;
    set @peter_warlord_boots_money, 0;

    set @peter_crafting_coal, 0;
    set @peter_crafting_iron_ingot, 0;
    set @peter_crafting_money, 0;
    set @peter_crafting_item$, "";
    close;

}