summaryrefslogtreecommitdiff
path: root/npc/003-5/arnea.txt
blob: bec00ba4d70652c6f1b821e959570acc4250417b (plain) (blame)
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
// TMW2 Scripts
// Author:
//    4144
//    Jesusalva
// Description:
//    Arena for Duels and PVP (003-13,31,31)

003-5,33,37,0	script	Arnea	NPC_ELF_F,{
    mesn;
    mesq l("Welcome to the Arena. Select your action");
    menu
        l("Create new arena"), L_NewArena,
        l("Join existing arena"), L_JoinArena,
        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($@ARENA_INSTANCES[0] < 0, l("Arena 1")), -,
            rif($@ARENA_INSTANCES[1] < 0, l("Arena 2")), -,
            rif($@ARENA_INSTANCES[2] < 0, l("Arena 3")), -,
            rif($@ARENA_INSTANCES[3] < 0, l("Arena 4")), -,
            rif($@ARENA_INSTANCES[4] < 0, l("Arena 5")), -,
            l("Give Up"), L_Quit;

        mes (@menu-1);
        .@ARENA_INSTID = instance_create("003-13@arenax"+(@menu), 0, IOT_NONE);
        if (.@ARENA_INSTID >= 0)
        {
            mes "new instance id: " + str(.@ARENA_INSTID);
            .@instanceMapName$ = instance_attachmap("003-13", .@ARENA_INSTID, 0, "003-13@a" + (@menu-1));
            if (.@instanceMapName$ == "")
            {
                mes "Error: instance attach map error";
            } else {
                mes "Attached instance map name: " + .@instanceMapName$;
                instance_set_timeout(1000000, 1000000, .@ARENA_INSTID);
                instance_init(.@ARENA_INSTID);
                set Zeny, Zeny-1000;
                $@ARENA_INSTANCES[@menu-1]=getcharid(3);
            }
        } else {
            mes l("An error happened.");
        }
    }
    goto L_Quit;


L_Info:
    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();
    close;

L_JoinArena:
    mes "";
    mesn;
    if (Zeny < .price) {
        mesq l("You need @@ GP to use this arena.", .price);
    } else {
        mesq l("Okay, which arena will you join? Cost is @@ GP.", .price);
        //menu
        //    rif(has_instance2("003-5@0") >= 0, l("Arena 1")), -,
        //    rif(has_instance2("003-5@1") >= 0, l("Arena 2")), -,
        //    rif(has_instance2("003-5@2") >= 0, l("Arena 3")), -,
        //    rif(has_instance2("003-5@3") >= 0, l("Arena 4")), -,
        //    rif(has_instance2("003-5@4") >= 0, l("Arena 5")), -,
        //    l("Give Up"), L_Quit;
        menu
            rif($@ARENA_INSTANCES[0] > 0, l("Arena 1")), -,
            rif($@ARENA_INSTANCES[1] > 0, l("Arena 2")), -,
            rif($@ARENA_INSTANCES[2] > 0, l("Arena 3")), -,
            rif($@ARENA_INSTANCES[3] > 0, l("Arena 4")), -,
            rif($@ARENA_INSTANCES[4] > 0, l("Arena 5")), -,
            l("Give Up"), L_Quit;
        warp "003-13@a"+(@menu-1), 31,31;
        set Zeny, Zeny-.price;
        //instance_warpall("003-13@a"+@menu, 30, 31); // Only use while in instance
    }
    close;


L_Quit:
    close;

OnInit:
    .@npcId = getnpcid(0, "Arnea");
    setunitdata(.@npcId, UDT_HEADTOP, 2907);
    setunitdata(.@npcId, UDT_HEADMIDDLE, 1305);
    setunitdata(.@npcId, UDT_HEADBOTTOM, 2204);
    setunitdata(.@npcId, UDT_WEAPON, 3509);
    setunitdata(.@npcId, UDT_HAIRSTYLE, 14);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 18);

    .sex = G_FEMALE;
    .distance = 5;
    .alwaysVisible = true;
    .price=1000;
    // test instance id
    setarray $@ARENA_INSTANCES, -1,-1,-1,-1,-1; // Controls Owners
    setarray $@ARENA_INFOS$, "","","","",""; // Controls Owners
    end;

OnInstanceInit:
    .@npcId = getnpcid(0, instance_npcname(.name$));
    setunitdata(.@npcId, UDT_HEADTOP, 2907);
    setunitdata(.@npcId, UDT_HEADMIDDLE, 1305);
    setunitdata(.@npcId, UDT_HEADBOTTOM, 2204);
    setunitdata(.@npcId, UDT_WEAPON, 3509);
    setunitdata(.@npcId, UDT_HAIRSTYLE, 14);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 18);
    end;

}