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
|
// TMW2/LoF scripts.
// Authors:
// TMW BR Team
// Jesusalva
// Description:
// Exchanges Mountain Snake Plate (TBD) for a Nymph Necklace (TBD)
// Grand Hunter Quest
018-5-2,33,36,0 script Leona NPC_FAIRY_B,{
function leona_exchange;
mesn;
mesq l("Hello, @@!", get_race());
next;
mesn;
mesq l("Do you have something to exchange with me? Or perhaps you want a Grand Hunter Quest?");
next;
select
l("I've brought something to exchange."),
l("I'm interested in Grand Hunter Quest."),
l("Ops, sorry. I was going to the Soul Menhir and entered your house by accident.");
mes "";
switch (@menu) {
case 3:
mesn;
mesq l("It happens.");
close;
case 2:
GHQ_Assign(MountainSnake, "Lilit");
close;
case 1:
mesn;
mesq l("The most famous nymphs, are those who wear stuff made of Snake Skin.");
next;
mesn;
mesq l("Perhaps you have something like that?");
next;
do
{
mesc l("What to exchange with Leona?");
mes "##B" + l("Drag and drop an item from your inventory.") + "##b";
.@id = requestitem();
// If ID is invalid, there's not enough items or if it is bound
if (.@id < 1) close;
if (countitem(.@id) < 1) close;
if (checkbound(.@id))
{
mesc l("You cannot part with this item!");
continue;
}
// TODO: Check if item is OK
switch (.@id) {
// Generic Exchange
case LeatherShirt:
case LeatherBoots:
case LeatherGloves:
case JeansChaps:
case LeatherTrousers:
case SnakeSkin:
case MountainSnakeSkin:
case CaveSnakeSkin:
case BlackMambaSkin:
leona_exchange(.@id, 0);
default:
mesn;
mesq l("I have no interest on this item.");
next;
break;
}
} while (true);
}
close;
// leona_exchange ( give, receive )
// Receive should be item ID. If it is 0, you will get 1.2× the sell price
function leona_exchange {
.@what=getarg(0);
.@reward=getarg(1);
if (!.@reward)
.@gp=getiteminfo(.@what, ITEMINFO_SELLPRICE)*12/10;
mesn;
if (.@reward)
mesq l("For this @@, I offer you a(n) @@.", getitemlink(.@what), getitemlink(.@reward));
else
mesq l("For this @@, I offer you @@ GP.", getitemlink(.@what), format_number(.@gp));
next;
mesc l("Exchange the item with Leona?");
if (askyesno() == ASK_YES)
{
delitem .@what, 1;
if (.@reward)
getitem .@reward, 1;
else
Zeny+=.@gp;
mesn;
mesq l("Many thanks! I'll be sooooo fashionable now!");
next;
}
return;
}
}
|
