summaryrefslogtreecommitdiff
path: root/world/map/npc/009-2/peter.txt
blob: 818f09cf70bb7692f2eb40900ec62fe99902ba7e (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
// Nicholas' Apprentice and Armorsmith
009-2,183,57,0|shop|#PeterShop|127,Knife:*1,SharpKnife:*1,Dagger:*1

009-2,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,
        "Do you have anything else for sale?", L_Shop,
        "Nevermind.", 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.", L_Close;

L_Shop:
    close2;
    shop "#PeterShop";

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;

}