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
|
// TMW2 Scripts.
// Author:
// Jesusalva
004-2,29,23,0 script BGMaster NPC_FEMALE,{
mesn;
if ($@BattleOn) goto L_Busy;
mesq l("Hello, lets bg masterize this.");
mes "";
menu
l("Init!"), L_Init,
l("Join team 1."), L_T1,
l("Join team 2."), L_T2;
L_T1:
mesn;
if (bg_join_team($@FK_Team1))
goto L_SuccessJoin;
mes "An error happened.";
goto L_Close;
L_T2:
mesn;
if (bg_join_team($@FK_Team1))
goto L_SuccessJoin;
mes "An error happened.";
goto L_Close;
L_SuccessJoin:
mesq l("Done!");
close;
L_Init:
$@BattleOn=1;
mesn;
next;
//for
bg_warp $@FK_Team1, "testbg", 13, 4;
bg_warp $@FK_Team2, "testbg", 13, 26;
mesn;
next;
//setbgteam $@FK_Team1, 1;
//setbgteam $@FK_Team2, 2;
//mesn;
//next;
mapannounce("testbg", "May the fight begin!", bc_map);
mesn;
next;
$@FKing_T1 = bg_monster($@FK_Team1, "testbg", 1, 1, "OldFallen", 1079, "BGMaster::OnVictor2");
$@FKing_T2 = bg_monster($@FK_Team2, "testbg", 13, 28, "OldFallen2", 1080, "BGMaster::OnVictor1");
mesn;
next;
initnpctimer();
close;
L_Close:
close;
L_Busy:
mesq l("Sorry, registration period is over.");
close;
OnPcQuit:
warp "002-4", 0, 0;
bg_leave();
end;
OnPcDeath:
warp "002-4", 0, 0;
bg_leave();
end;
OnTimer30000:
mapannounce("testbg", "Reinforcements raise!", bc_map);
$@FKing_T1 = bg_monster($@FK_Team1, "testbg", 1, 1, "FallenGuard1", 1081, "BGMaster::OnSkip");
$@FKing_T2 = bg_monster($@FK_Team2, "testbg", 13, 28, "FallenGuard2", 1082, "BGMaster::OnSkip");
stopnpctimer();
initnpctimer();
end;
OnSkip:
end;
OnVictor1:
stopnpctimer();
announce "Team 1 raises victorious!", bc_all;
bg_warp $@FK_Team1, "004-2", 29, 23;
bg_warp $@FK_Team2, "004-2", 29, 23;
bg_destroy($@FK_Team1);
bg_destroy($@FK_Team2);
$@BattleOn=0;
end;
OnVictor2:
stopnpctimer();
announce "Team 2 raises victorious!", bc_all;
bg_warp $@FK_Team1, "004-2", 29, 23;
bg_warp $@FK_Team2, "004-2", 29, 23;
bg_destroy($@FK_Team1);
bg_destroy($@FK_Team2);
$@BattleOn=0;
end;
OnInit:
.@npcId = getnpcid(0, .name$);
setunitdata(.@npcId, UDT_HEADTOP, 1322); // Dress
setunitdata(.@npcId, UDT_HEADMIDDLE, 2204); // Not needed
setunitdata(.@npcId, UDT_HEADBOTTOM, 1800); // Shoes
setunitdata(.@npcId, UDT_WEAPON, 3501);
setunitdata(.@npcId, UDT_HAIRSTYLE, 12);
setunitdata(.@npcId, UDT_HAIRCOLOR, 5);
npcsit;
$@FK_Team1=waitingroom2bg("testbg", 13, 4, "BGMaster::OnPcQuit", "BGMaster::OnPcDeath");
$@FK_Team2=waitingroom2bg("testbg", 13, 26, "BGMaster::OnPcQuit", "BGMaster::OnPcDeath");
.sex = G_FEMALE;
.distance = 5;
end;
}
|
