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
|
// TMW2 Scripts
// Author:
// 4144
// Jesusalva
// Description:
// Arena for Duels and PVP (003-13,31,31)
003-10,26,60,0 script Arnea NPC_ELF_F,{
npctalk3 l("Hello!");
L_Menu:
mes "";
mesn;
mesq l("Welcome to the Arena. Select your action");
menu
l("Create new arena"), L_NewArena,
l("Join existing arena"), L_JoinArena,
rif(is_staff(), l("Debug Information")), L_Debug,
l("Information"), L_Info,
l("Leave"), L_Quit;
L_NewArena:
mes "";
mesn;
if (Zeny < .price) {
mesq l("You need @@ GP to use this arena.", .price);
} else {
mesq l("Okay, which arena will you rent? Cost is @@ GP.", .price);
menu
rif(Zeny > 1000, l("Rent arena")), -,
l("Give Up"), L_Quit;
// Register to HTTable $@ARENAS (or override existing entry) your ID and a password
.@PASSWORD=getcharid(0)**1.137;
htput($@ARENAS, .@PASSWORD, getcharid(0));
// XXX - Important Note - XXX
// map name MUST be only 4 chars long (eg. "abcd") on char instances
.@ID=getcharid(0);
.@MAP$="AREN@"+str(.@ID);
// Check if arena was already created
if(has_instance2("003-10@"+.@ID)) {
mesn;
mesq l("You already purchased an arena, and password is @@", .@PASSWORD);
next;
goto L_Menu;
}
// Create the arena
.@INSTID = instance_create("003-10@"+(.@ID), getcharid(3), IOT_CHAR);
.@instanceMapName$ = instance_attachmap("003-13", .@INSTID, 0, .@MAP$);
instance_set_timeout(1800, 1800, .@INSTID);
instance_init(.@INSTID);
dispbottom l("Arena created, it can be used for 10 minutes.");
dispbottom l("Room password: @@", .@PASSWORD);
goto L_Menu;
L_JoinArena:
mes "";
mesn;
mesq l("Okay, to join an arena, you need the unique password. Leave blank if you don't know.");
input .@user_password;
.@m = htget($@ARENAS, .@user_password, -1);
if (.@m > 0) {
if(has_instance2("003-10@"+.@m)) {
warp "AREN@"+str(.@m), 31,31;
} else {
mes "";
mesn;
mesq l("Sorry, that arena is already closed.");
next;
mesn;
mesq l("All arenas stay open for only 30 minutes after being purchased.");
}
}
close;
L_Debug:
mes "npc name: " + .name$;
mes "npc ext name: " + .extname$;
mes "npc id: " + .id;
mes "npc parent id: " + .parent;
mes "npc src id: " + .srcId;
mes "char id 3: " + getcharid(3);
if (instance_id() >= 0)
mes "instance id: " + instance_id();
goto L_Menu;
L_Info:
mesn;
mesq lg("Hello darling.");
next;
mesq l("I am @@, and I take care of the Arena.", .name$);
next;
mesq l("Guards use it to spar against each other on friendly matches, to see who is stronger.");
next;
mesq l("We arranged a small underground room for that, while the Colliseum doesn't get done.");
next;
goto L_Menu;
L_Quit:
close;
OnInit:
.@npcId = getnpcid(0, .name$);
setunitdata(.@npcId, UDT_HEADTOP, Darkelm);
setunitdata(.@npcId, UDT_HEADMIDDLE, LegionCopperArmor);
setunitdata(.@npcId, UDT_HEADBOTTOM, JeansChaps);
setunitdata(.@npcId, UDT_WEAPON, RockKnife);
setunitdata(.@npcId, UDT_HAIRSTYLE, 14);
setunitdata(.@npcId, UDT_HAIRCOLOR, 18);
.sex = G_FEMALE;
.distance = 5;
//.alwaysVisible = true; // This is dumb, why Jesusalva put it here?
.price=1000;
// create hashtable
$@ARENAS = htnew();
end;
}
|
