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
144
145
146
147
148
149
150
151
152
153
|
009-2,183,57,0 script #PeterShop NPC32767,{
shop .name$;
goodbye;
close;
OnInit:
tradertype(NST_ZENY);
sellitem Knife;
sellitem SharpKnife;
sellitem Dagger;
.distance = 5;
end;
}
009-2,183,57,0 script Peter NPC157,{
@peter_chain_mail_coal = 10;
@peter_chain_mail_ingot = 5;
@peter_chain_mail_money = 20000;
@peter_light_plate_coal = 20;
@peter_light_plate_ingot = 10;
@peter_light_plate_money = 50000;
@peter_warlord_plate_coal = 30;
@peter_warlord_plate_ingot = 15;
@peter_warlord_plate_money = 100000;
@peter_warlord_boots_coal = 16;
@peter_warlord_boots_ingot = 8;
@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:
@peter_crafting_coal = @peter_chain_mail_coal;
@peter_crafting_iron_ingot = @peter_chain_mail_ingot;
@peter_crafting_money = @peter_chain_mail_money;
@peter_crafting_item$ = "ChainmailShirt";
callsub S_Smithery_Item;
goto L_close;
L_Peter_Light_Plate:
@peter_crafting_coal = @peter_light_plate_coal;
@peter_crafting_iron_ingot = @peter_light_plate_ingot;
@peter_crafting_money = @peter_light_plate_money;
@peter_crafting_item$ = "LightPlatemail";
callsub S_Smithery_Item;
goto L_close;
L_Peter_Warlord_Plate:
@peter_crafting_coal = @peter_warlord_plate_coal;
@peter_crafting_iron_ingot = @peter_warlord_plate_ingot;
@peter_crafting_money = @peter_warlord_plate_money;
@peter_crafting_item$ = "WarlordPlate";
callsub S_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:
@peter_crafting_coal = @peter_warlord_boots_coal;
@peter_crafting_iron_ingot = @peter_warlord_boots_ingot;
@peter_crafting_money = @peter_warlord_boots_money;
@peter_crafting_item$ = "WarlordBoots";
callsub S_Smithery_Item;
goto L_close;
S_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;
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
@peter_chain_mail_coal = 0;
@peter_chain_mail_ingot = 0;
@peter_chain_mail_money = 0;
@peter_light_plate_coal = 0;
@peter_light_plate_ingot = 0;
@peter_light_plate_money = 0;
@peter_warlord_plate_coal = 0;
@peter_warlord_plate_ingot = 0;
@peter_warlord_plate_money = 0;
@peter_warlord_boots_coal = 0;
@peter_warlord_boots_ingot = 0;
@peter_warlord_boots_money = 0;
@peter_crafting_coal = 0;
@peter_crafting_iron_ingot = 0;
@peter_crafting_money = 0;
@peter_crafting_item$ = "";
close;
}
|
