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
|
009-7.gat,32,45,0|script|Rouge#Duels|181
{
if (getgmlevel() >= 40 && getequipid(equip_head) == 647) goto L_CallDebug;
if (!debug && (strcharinfo(0) == "meko")) goto L_CallDebug; // allow meko to debug (has no dev cap)
goto L_Main;
L_CallDebug:
mes "You are wearing a dev cap: calling debug menu...";
mes "For the documentation, @@https://wiki.themanaworld.org/index.php/User:Meko/FightClub/debug|click here@@##0";
callfunc "fightclub_Debug";
goto L_Main;
L_Main:
set @requests, 0;
if(@Duel_Queue$[0] != "") goto L_Queue;
mes "[Rouge]";
mes "Welcome to the Sanguine Vault's duel arena.";
if($SANGUINE & $@SV_FCDBit != 0) goto L_Disabled;
mes "What do you want to do?";
menu
"See the commands.", L_Challenge,
"Set my rules.", L_Rules,
"Nevermind.", L_End;
L_Queue:
set @caster_name$, @Duel_Queue$[0];
set @target_name$, strcharinfo(0);
set @target, getcharid(3, @caster_name$);
set $@my_rid, getcharid(3);
set @Duel_Queue$[0], "";
if(attachrid(@target) != 1) goto L_Missing;
if(getmap() != "009-7") goto L_Missing;
if(attachrid($@my_rid) != 1) goto L_End;
set @requests, (@requests + 1);
set $@my_rid, 0; // clean this ASAP
mes @caster_name$ + " wishes to challenge you to a duel.";
mes "";
callfunc "fightclub_getrules";
mes "";
mes "Do you accept?";
next;
menu
"Yes, I do!", L_Accept,
"No.", L_Decline;
L_ShiftQueue: // here we shift the array to the left
if((@Duel_Queue$[@loop] == "" ) && (@requests < 1)) goto L_Main;
if(@Duel_Queue$[@loop] == "") goto L_End;
set @Duel_Queue$[(@loop - 1)], @Duel_Queue$[@loop];
set @Duel_Queue$[@loop], "";
set @loop, (@loop + 1);
if(@loop >= getarraysize(@Duel_Queue$)) goto L_Queue;
goto L_ShiftQueue;
L_Accept:
callfunc "fightclub_AddToQueue";
set @loop, 1;
goto L_ShiftQueue;
L_Decline:
set @loop, 1;
goto L_ShiftQueue;
L_Missing:
if(attachrid($@my_rid) != 1) goto L_End;
set $@my_rid, 0; // clean this ASAP
goto L_Decline;
L_Challenge:
if($SANGUINE & $@SV_FCDBit != 0) goto L_Disabled;
next;
mes "[Rouge]";
mes "To challenge a player to a duel, you need to write this command:";
mes "%%E ##a"+ getspellinvocation("duel") +" (name)##0";
next;
mes "Your opponent will have to talk to me to accept or decline your offer.";
next;
mes "Keep in mind that you can ignore incoming duel requests with this command:";
mes "%%E ##a"+ getspellinvocation("dueloff") +"##0";
next;
mes "To un-ignore, simply write the same command again.";
goto L_End;
L_Disabled:
mes "Sadly, the duel system is currently disabled. Please try again later.";
goto L_End;
L_Rules:
callfunc "fightclub_setrules";
goto L_End;
L_End:
close;
//announcements below
OnAnnounceNext:
npctalk "##0The next battle ("+ $@Duel_Queue_ID[0] +") is ##1" + $@Duel_Queue_Red$[0] + "##0 vs. ##3" + $@Duel_Queue_Blue$[0] + "##0.The battle will start in "+ $@Duel_TimeBeforeWarp +" seconds.";
end;
OnAnnounceIntrusion:
npctalk "Intrusion detected. Annihilation in progress... Done.";
end;
OnAnnounceTimeOut:
npctalk "Time limit reached! Both player lose!";
end;
OnAnnounceRedWins:
npctalk $@Duel_Queue_Red$[0] + " wins the duel against "+ $@Duel_Queue_Blue$[0] +"!";
end;
OnAnnounceRedForfeit:
npctalk $@Duel_Queue_Red$[0] + " wins by forfeit!";
end;
OnAnnounceBlueWins:
npctalk $@Duel_Queue_Blue$[0] + " wins the duel against "+ $@Duel_Queue_Red$[0] +"!";
end;
OnAnnounceBlueForfeit:
npctalk $@Duel_Queue_Blue$[0] + " wins by forfeit!";
end;
}
|
