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
|
// TMW-2 Scripts.
// Author:
// Jesusalva
// Description:
// Manages party and guild.
// Evol scripts.
// Author:
// Reid
003-2,32,34,0 script Estard NPC_PLAYER,{
function create_party {
.@party_price = 10000;
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("Creating a party has some advantages, it's a pretty good choice!"),
l("I remember when I created my first party, we were amazed to share some experience with a small group of adventurer..."),
l("Oh! And our party chat was really entertaining, I do highly recommend you to share this fun as well."),
lg("The cost to create a party is @@ GP, are you interested?",
"The cost to create a party is @@ GP, are you interested?", .@party_price);
if (askyesno() == 1)
{
if (Zeny < .@party_price)
{
speech S_FIRST_BLANK_LINE | S_LAST_NEXT, l("You don't have enough money, bring me @@ GP.", .@party_price);
}
else
{
Zeny = Zeny - .@party_price;
setq General_Janus, 2;
skill NV_BASIC, 7, 0;
speech S_FIRST_BLANK_LINE | S_LAST_NEXT, l("Awesome, come back if you ever want to create a larger group!");
}
}
}
function explain_service {
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("Welcome to the Town Hall. I am @@, officer in charge of public associations.", .name$),
l("We offer party and guild certifications.");
return;
}
mesn;
mesq lg("Welcome miss.", "Good day sir.");
if (getcharid(2) > 0)
mesq l("You are part of the \"@@\" guild.", getguildname(getcharid(2)));
next;
do
{
// Beta users by-pass check.
if (getskilllv(NV_BASIC) > 6 && getq(General_Janus) == 1)
{
setq General_Janus, 2;
}
select
rif(getq(General_Janus) == 1, l("I would like to create a party.")),
l("What service do you offer?"),
menuaction(l("Quit"));
switch (@menu)
{
case 1:
create_party;
break;
case 2:
explain_service;
break;
}
} while (@menu != 3);
closedialog;
goodbye;
close;
OnInit:
.@npcId = getnpcid(0, .name$);
setunitdata(.@npcId, UDT_HEADTOP, BowlerHat);
setunitdata(.@npcId, UDT_HEADMIDDLE, CreasedShirt);
setunitdata(.@npcId, UDT_HEADBOTTOM, JeansChaps);
setunitdata(.@npcId, UDT_WEAPON, 1800);
setunitdata(.@npcId, UDT_HAIRSTYLE, 26);
setunitdata(.@npcId, UDT_HAIRCOLOR, 0);
npcsit;
.sex = G_MALE;
.distance = 4;
end;
}
|
