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
|
//===== Hercules Script ======================================
//= Milk Trader
//===== By: ==================================================
//= kobra_k88; L0ne_W0lf
//===== Current Version: =====================================
//= 1.5
//===== Description: =========================================
//= [Aegis Conversion]
//= Trades bottles for milk
//===== Additional Comments: =================================
//= Fully working
//= 1.1 Negative input bug fixed [Lupus]
//= 1.2 Raised the price to close zeny exploit [Lupus]
//= 1.2a Switched to Lupus's "loopless" technique.[kobra_k88]
//= 1.3 Rescripted to Aegis 10.3 standards. [L0ne_W0lf]
//= 1.4 Implemented checkweight. [L0ne_W0lf]
//= 1.5 Fixed missed variable. (bugreport:1523) [L0ne_W0lf]
//============================================================
prontera,73,140,0 script Milk Vendor 86,{
if (checkweight(1201,1) == 0) {
mes "^3355FFJust a minute!";
mes "I can't offer any of my";
mes "services to you because";
mes "you're carrying too much";
mes "stuff. Put your extra items in";
mes "Kafra Storage and come again~";
close;
}
mes "[Milk Vendor]";
mes "Hey, hey...";
mes "If you bring me";
mes "1 Empty Bottle and";
mes "15 Zeny, I'll exchange";
mes "them for 1 Milk. How";
mes "does that sound?";
next;
if (select("Exchange all empty bottles.:Cancel") == 1) {
if (countitem(713) <= 0) {
mes "[Milk Vendor]";
mes "Hey...";
mes "You don't have";
mes "any Empty Bottles.";
mes "I can't really give you";
mes "this milk any other";
mes "way, you know...";
close;
}
set .@bottles,countitem(713);
set .@total_weight,.@bottles * 50;
set .@total_cost,.@bottles * 15;
if (zeny < .@Total_cost) {
mes "[Milk Vendor]";
mes "Oh, whoa~!";
mes "You don't have enough";
mes "zeny to exchange all";
mes "these Empty Bottles for";
mes "Milk. You need to have";
mes "at least " + .@total_cost + " zeny.";
close;
}
if ((maxweight-weight) < .@total_weight) {
mes "[Milk Vendor]";
mes "Hmm...";
mes "Would you make";
mes "a little more room";
mes "in your inventory";
mes "before I give you";
mes "all of this milk?";
close;
}
set zeny,zeny-.@total_cost;
delitem 713,.@bottles; //Empty Bottles
getitem 519,.@bottles; //Milk
close;
}
close;
}
|
