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
|
// TMW2 scripts.
// Authors:
// Jesusalva
// Description:
// Questmaker Handbook 14.0 (F = Favorable)
031-5,97,41,0 script Beatrice NPC_SAVIOR_F,{
mesn;
mesq l("Hey there, %s. I deal with ultra rare items. If the Powers That Be decided you're out of luck, well, I am here to help you to bypass it.", get_race());
next;
mesn;
mesq l("For that, I use a special currency - Aethyr points. You can trade rare items for points. I also sell one point for %d GP. So, what will it me?", .price);
next;
L_Loop:
clear;
mesc l("Aethyr Points: %s", fnum(AETHYR_PTS)), 2;
select
l("Nothing right now."),
l("Buying rares"),
l("Selling rares"),
l("Purchasing points");
mes "";
switch (@menu) {
case 1:
closeclientdialog;
close;
case 4:
mesc l("How many points? (0-%d)", Zeny/.price);
input .@points, 0, Zeny/.price;
if (.@points * .price > Zeny)
.@points = 0;
Zeny-=.price*.@points;
AETHYR_PTS+=.@points;
mesc l("Done!"), 2;
break;
}
goto L_Loop;
OnInit:
.@npcId = getnpcid(.name$);
setunitdata(.@npcId, UDT_HEADBOTTOM, CottonSkirt);
setunitdata(.@npcId, UDT_HEADMIDDLE, SaviorArmor);
setunitdata(.@npcId, UDT_HEADTOP, TrapperHat);
setunitdata(.@npcId, UDT_HAIRSTYLE, 9);
setunitdata(.@npcId, UDT_HAIRCOLOR, 18);
.sex = G_FEMALE;
.distance = 5;
.price = 570;
end;
}
|
