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

// Nicholas' Apprentice and Armorsmith

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

    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 (10 coal, 5 ingots and 20000 GP).", L_Peter_Chain_Mail,
        "Light Plate (20 coal, 10 ingots and 50000 GP).", L_Peter_Light_Plate,
        "Warlord Plate (30 coal, 15 ingots and 100000 GP).", L_Peter_Warlord_Plate,
        "Nevermind.", -;
    close;

L_Peter_Chain_Mail:
    if (Zeny < 20000)
        goto L_Peter_NotEnough_Zeny;
    if (countitem("IronIngot") < 5)
        goto L_Peter_NotEnough_Ingot;
    if (countitem("Coal") < 10)
        goto L_Peter_NotEnough_Coal;
    getinventorylist;
    if (@inventorylist_count == 100)
        goto L_Peter_TooMany;
    set Zeny, Zeny - 20000;
    delitem "IronIngot", 5;
    getitem "ChainmailShirt", 1;
    mes "[Peter]";
    mes "\"Here you go!\"";
    close;

L_Peter_Light_Plate:
    if (Zeny < 50000)
        goto L_Peter_NotEnough_Zeny;
    if (countitem("IronIngot") < 10)
        goto L_Peter_NotEnough_Ingot;
    if (countitem("Coal") < 20)
        goto L_Peter_NotEnough_Coal;
    getinventorylist;
    if (@inventorylist_count == 100)
        goto L_Peter_TooMany;
    set Zeny, Zeny - 50000;
    delitem "IronIngot", 10;
    delitem "Coal", 20;
    getitem "LightPlatemail", 1;
    mes "[Peter]";
    mes "\"Here you go!\"";
    close;

L_Peter_Warlord_Plate:
    if (Zeny < 100000)
        goto L_Peter_NotEnough_Zeny;
    if (countitem("IronIngot") < 15)
        goto L_Peter_NotEnough_Ingot;
    if (countitem("Coal") < 30)
        goto L_Peter_NotEnough_Coal;
    getinventorylist;
    if (@inventorylist_count == 100)
        goto L_Peter_TooMany;
    set Zeny, Zeny - 100000;
    delitem "IronIngot", 15;
    delitem "Coal", 30;
    getitem "WarlordPlate", 1;
    mes "[Peter]";
    mes "\"Here you go!\"";
    close;

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

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

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

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