From e5190f9ddff51a2e246a7af5538909ec212e00db Mon Sep 17 00:00:00 2001
From: mekolat <mekolat@gmail.com>
Date: Sun, 7 Sep 2014 15:44:33 -0400
Subject: add fight club

---
 world/map/npc/009-7/debug.txt | 151 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 151 insertions(+)
 create mode 100644 world/map/npc/009-7/debug.txt

(limited to 'world/map/npc/009-7/debug.txt')

diff --git a/world/map/npc/009-7/debug.txt b/world/map/npc/009-7/debug.txt
new file mode 100644
index 00000000..a06d25ec
--- /dev/null
+++ b/world/map/npc/009-7/debug.txt
@@ -0,0 +1,151 @@
+function|script|fightclub_Debug|,
+{
+  goto L_Menu;
+  L_Menu:
+    next;
+    set @bme,0; if(($fightclub_enabled % 6) == 3) set @bme,1;
+    set @due,0; if(($fightclub_enabled % 5) == 3) set @due,1;
+    mes "[Global]";
+    mes "$Duel_Enabled: " + @due;
+    mes "$fightclub_bm_enabled: " + @bme;
+    mes "$@fightclub_password$: " + $fightclub_password$;
+    mes "$@Duel_TimeBeforeNext: " + $@Duel_TimeBeforeNext;
+    mes "$@Duel_TimeBeforeWarp: " + $@Duel_TimeBeforeWarp;
+    mes "$@Duel_TimeBeforeStart: " + $@Duel_TimeBeforeStart;
+    mes "$@Duel_TimeLimit: " + $@Duel_TimeLimit;
+    mes "$@Duel_QueueLimit: " + $@Duel_QueueLimit;
+    mes "$@Duel_PlayerQueueLimit: " + $@Duel_PlayerQueueLimit;
+    mes "$Duel_LastDuel: " + $Duel_LastDuel;
+    mes "";
+    mes "[User]";
+    mes "@Duel_Fighter: " + @Duel_Fighter;
+    next;
+    menu
+      "[G] Toggle $Duel_Enabled", L_DuelEnabled,
+      "[G] Toggle $fightclub_bm_enabled", L_BmEnabled,
+      "[G] Set $@fightclub_password$", L_FightclubPassword,
+      "[G] Set $@Duel_TimeBeforeNext", L_TimeBeforeNext,
+      "[G] Set $@Duel_TimeBeforeWarp", L_TimeBeforeWarp,
+      "[G] Set $@Duel_TimeBeforeStart", L_TimeBeforeStart,
+      "[G] Set $@Duel_TimeLimit", L_TimeLimit,
+      "[G] Set $@Duel_QueueLimit", L_QueueLimit,
+      "[G] Set $@Duel_PlayerQueueLimit", L_PlayerQueueLimit,
+      "[G] Set $Duel_LastDuel", L_LastDuel,
+      "[U] Toggle @Duel_Fighter", L_DuelFighter,
+      "Restart fightclub.", L_Restart,
+      "Nevermind.", L_End;
+
+  L_DuelEnabled:
+    if(@due < 1) goto L_DuelEnabled2;
+    set $fightclub_enabled, 9;
+    if(@bme < 1) set $fightclub_enabled, 1;
+    goto L_Menu;
+  L_DuelEnabled2:
+    set $fightclub_enabled, 8;
+    if(@bme == 1) set $fightclub_enabled, 3;
+    goto L_Menu;
+
+  L_BmEnabled:
+    if(@bme < 1) goto L_BmEnabled2;
+    set $fightclub_enabled, 8;
+    if(@due < 1) set $fightclub_enabled, 1;
+    goto L_Menu;
+  L_BmEnabled2:
+    set $fightclub_enabled, 9;
+    if(@due == 1) set $fightclub_enabled, 3;
+    goto L_Menu;
+
+  L_DuelFighter:
+    if(@Duel_Fighter < 1) goto L_DuelFighter2;
+    set @Duel_Fighter, 0;
+    goto L_Menu;
+  L_DuelFighter2:
+    set @Duel_Fighter, 1;
+    goto L_Menu;
+
+  L_TimeBeforeNext:
+    mes "range: 1~500";
+    input @time;
+    if((@time < 1) || (@time > 500)) goto L_OutOfRange;
+    set $@Duel_TimeBeforeNext, @time;
+    goto L_Menu;
+
+  L_TimeBeforeWarp:
+    mes "range: 1~500";
+    input @time;
+    if((@time < 1) || (@time > 500)) goto L_OutOfRange;
+    set $@Duel_TimeBeforeWarp, @time;
+    goto L_Menu;
+
+  L_TimeBeforeStart:
+    mes "range: 1~500";
+    input @time;
+    if((@time < 1) || (@time > 500)) goto L_OutOfRange;
+    set $@Duel_TimeBeforeStart, @time;
+    goto L_Menu;
+
+  L_TimeLimit:
+    mes "range: 1~900";
+    input @time;
+    if((@time < 1) || (@time > 900)) goto L_OutOfRange;
+    set $@Duel_TimeLimit, @time;
+    goto L_Menu;
+
+  L_QueueLimit:
+    mes "range: 1~20";
+    input @limit;
+    if((@limit < 1) || (@limit > 20)) goto L_OutOfRange;
+    set $@Duel_QueueLimit, @limit;
+    goto L_Menu;
+
+  L_PlayerQueueLimit:
+    mes "range: 1~5";
+    input @limit;
+    if((@limit < 1) || (@limit > 5)) goto L_OutOfRange;
+    set $@Duel_PlayerQueueLimit, @limit;
+    goto L_Menu;
+
+  L_LastDuel:
+    mes "range: 1+";
+    mes "[R] This will trigger a reboot";
+    input @last;
+    if(@last < 1) goto L_OutOfRange;
+    set $Duel_LastDuel, @last;
+    next;
+    goto L_Restart;
+
+  L_FightclubPassword:
+    input @pass$;
+    if(@pass$ == "") goto L_OutOfRange;
+    set $@fightclub_password$, @pass$;
+    goto L_Menu;
+
+  L_OutOfRange:
+    mes "Value out of range or empty.";
+    goto L_Menu;
+
+  L_Restart:
+    callfunc "fightclub_EmergencyWipe";
+    mes "The temporary variables have been reset.";
+    goto L_Menu;
+
+  L_End:
+    return;
+}
+
+009-7.gat,41,45,0|script|Debug#Duels|181,
+{
+  mes "The debug menu can also be accessed by wearing a dev cap while talking to Rouge.";
+  mes "For the documentation, @@https://wiki.themanaworld.org/index.php/User:Meko/FightClub/debug|click here@@##0";
+  callfunc "fightclub_Debug";
+  end;
+
+  OnInit:
+    if(!debug) disablenpc "Debug#Duels";
+    end;
+
+  // debug messages below
+  OnKillerNotInDuel: npctalk "WARNING: The victim was not killed by its adversary. Aborting duel..."; end;
+  OnVictimNotInDuel: npctalk "WARNING: The victim is not part of the duel"; end;
+  OnVictimInDuelNoDuel: npctalk "WARNING: The victim is part of the duel but no duel is ongoing at the moment."; end;
+}
-- 
cgit v1.2.3-60-g2f50