max scores

2 files changed, 109 insertions, 6 deletions

diff --git a/world/map/db/const-quest.txt b/world/map/db/const-quest.txt
index 11745416..aa8512ba 100644
--- a/world/map/db/const-quest.txt
+++ b/world/map/db/const-quest.txt
@@ -159,3 +159,5 @@ OPT_BANK_GOTSHADE 4
 // Currently used by the fluffy hunt (033-1).
 // starts counting with 0
 MAX_HIGH_SCORES 14
+MAX_HIGH_SCORES_CRC 29
+MAX_HIGH_SCORES_EVENT 29
diff --git a/world/map/npc/033-1/kimarr.txt b/world/map/npc/033-1/kimarr.txt
index 8a16ab93..f6de63bd 100644
--- a/world/map/npc/033-1/kimarr.txt
+++ b/world/map/npc/033-1/kimarr.txt
@@ -477,7 +477,7 @@ L_CRC_MaybeInsertNext:
     if (strcharinfo(0) == $Record_CRC_Fluffy_Name$[@rank])
         goto L_CRC_MaybeRecordScore;
     set @rank, @rank + 1;
-    if (@rank == MAX_HIGH_SCORES)
+    if (@rank == MAX_HIGH_SCORES_CRC)
         goto L_CRC_MaybeRecordScore;
     goto L_CRC_MaybeInsertNext;
 
@@ -492,7 +492,7 @@ L_CRC_FindLastScore:
         goto L_CRC_MoveStuff;
 
     set @loop, @loop + 1;
-    if (@loop == MAX_HIGH_SCORES)
+    if (@loop == MAX_HIGH_SCORES_CRC)
         goto L_CRC_MoveStuff;
     goto L_CRC_FindLastScore;
 
@@ -524,7 +524,7 @@ L_CRC_ShowNextRecord:
         goto L_Close;
     mes (@loop + 1) + " - " + $Record_CRC_Fluffy_Name$[@loop] + " - " + $Record_CRC_Fluffy_Kills[@loop] + " Fluffies killed at " + $Record_CRC_Fluffy_Date$[@loop];
     set @loop, @loop + 1;
-    if (MAX_HIGH_SCORES > 4 && (@loop % 5) == 0 && $Record_CRC_Fluffy_Kills[@loop] > 0)
+    if (MAX_HIGH_SCORES_CRC > 4 && (@loop % 5) == 0 && $Record_CRC_Fluffy_Kills[@loop] > 0)
         goto L_CRC_NextShowNextRecord;
     goto L_CRC_ShowNextRecord;
 
@@ -554,19 +554,120 @@ function|script|FluffyDebug
 {
     mes "[Numa]";
     mes "Please select an action.";
+    goto L_Menu;
+
+L_Menu:
     menu
         "Enable/Disable Event Scoreboards", L_Enable,
+        "Show Event Scoreboards",L_CRC_ShowRecord,
+        "Erase Player from Scoreboard", L_Erase,
         "Reset event scoreboards", L_Reset;
 
+// If you want to erase a player and you are not sure if all will went good maybe backup the tmwa-server-data/world/map/save/mapreg.txt first
+
 L_Enable:
+    if (GM < G_EVENT) goto L_Decline;
     set $@KIMARR_EVENT, !$@KIMARR_EVENT;
     return;
 
+L_CRC_ShowRecord:
+    set @rank, 0;
+    set @loop, 0;
+    goto L_CRC_ShowNextRecord;
+
+L_CRC_ShowNextRecord:
+    if ($Record_CRC_Fluffy_Kills[@loop] == 0)
+        goto L_Close;
+    mes (@loop + 1) + " - " + $Record_CRC_Fluffy_Name$[@loop] + " - " + $Record_CRC_Fluffy_Kills[@loop] + " Fluffies killed at " + $Record_CRC_Fluffy_Date$[@loop];
+    set @loop, @loop + 1;
+    //if (MAX_HIGH_SCORES_CRC > 4 && (@loop % 5) == 0 && $Record_CRC_Fluffy_Kills[@loop] > 0)
+    //    goto L_CRC_NextShowNextRecord;
+    goto L_CRC_ShowNextRecord;
+
+//L_CRC_NextShowNextRecord:
+//    next;
+//    goto L_CRC_ShowNextRecord;
+
+// I let this here commented out in case someone wants to enable pause after 5 players.
+
+L_Erase:
+    if (GM < G_EVENT) goto L_Decline;
+    if ($@Fluffy_Hunting) goto L_HuntRunning;
+    if ($Record_CRC_Fluffy_Kills[0] == 0) goto L_NothingToErase;
+    set @max_rank, getarraysize($Record_CRC_Fluffy_Kills);
+    //if (@max_rank < 1) goto L_NothingToErase; // does not work getarraysize returns 1 even on an empty array
+    mes "\"Input the rank of the player that should be erased.\"";
+    mes "\"1 - " + @max_rank + "\"";
+    input @player_rank;
+    if (@player_rank < 1 || @player_rank > @max_rank) goto L_WrongRank;
+    set @tmp_rank$, @player_rank + " - " + $Record_CRC_Fluffy_Name$[@player_rank-1] + " - " + $Record_CRC_Fluffy_Kills[@player_rank-1] + " Fluffies killed at " + $Record_CRC_Fluffy_Date$[@player_rank-1];
+    mes "\"You selected:\"";
+    mes @tmp_rank$;
+    mes "Are you sure to erase this rank?";
+    menu
+        "No.",L_Close,
+        "Yes, do it!",L_EraseRank;
+
+L_EraseRank:
+    if ($@Fluffy_Hunting) goto L_HuntRunning;
+    if (@player_rank-1 == MAX_HIGH_SCORES_CRC || @player_rank == @max_rank) goto L_EraseLast;
+    set @loop, @player_rank-1;
+    goto L_EraseRankLoop;
+
+L_EraseRankLoop:
+    set $Record_CRC_Fluffy_Name$[@loop], $Record_CRC_Fluffy_Name$[@loop+1];
+    set $Record_CRC_Fluffy_Kills[@loop], $Record_CRC_Fluffy_Kills[@loop+1];
+    set $Record_CRC_Fluffy_Date$[@loop], $Record_CRC_Fluffy_Date$[@loop+1];
+    set @loop, @loop + 1;
+    if (@loop < @max_rank-1) goto L_EraseRankLoop;
+    goto L_EraseLast;
+
+L_EraseLast:
+    set $Record_CRC_Fluffy_Name$[@max_rank-1], "";
+    set $Record_CRC_Fluffy_Kills[@max_rank-1], 0;
+    set $Record_CRC_Fluffy_Date$[@max_rank-1], "";
+    mes "\"Rank erased!\"";
+    gmlog strcharinfo(0) + " wiped a rank from the Fluffy Hunt Event Scoreboards: " + @tmp_rank$;
+    next;
+    goto L_Close;
+
+L_WrongRank:
+    mes "\"You entered a wrong rank please try again.\"";
+    next;
+    goto L_Close;
+
+L_HuntRunning:
+    mes "\"There is a hunt running at the moment please try again later.\"";
+    // if you have the dialog open and someone finishes meanwhile he is maybe on the spot you wanted to erase or someone else moved there.
+    next;
+    goto L_Close;
+
+L_NothingToErase:
+    mes "\"There is nothing to erase.\"";
+    next;
+    goto L_Close;
+
+L_Close:
+    // clear all temporary player variables that are not otherwise cleared
+
+    set @loop, 0;
+    set @player_rank, 0;
+    set @max_rank, 0;
+    set @tmp_rank$, "";
+
+    goto L_Menu;
+
 L_Reset:
     if (GM < G_EVENT) goto L_Decline;
-    cleararray $Record_CRC_Fluffy_Kills, 0, MAX_HIGH_SCORES;
-    cleararray $Record_CRC_Fluffy_Name$, "", MAX_HIGH_SCORES;
-    cleararray $Record_CRC_Fluffy_Date$, "", MAX_HIGH_SCORES;
+    mes "Really reset the event scoreboards?";
+    menu
+        "No.",L_Menu,
+        "Yes, do it!",L_ResetYes;
+
+L_ResetYes:
+    cleararray $Record_CRC_Fluffy_Kills, 0, MAX_HIGH_SCORES_CRC;
+    cleararray $Record_CRC_Fluffy_Name$, "", MAX_HIGH_SCORES_CRC;
+    cleararray $Record_CRC_Fluffy_Date$, "", MAX_HIGH_SCORES_CRC;
     gmlog strcharinfo(0) + " wiped Fluffy Hunt Event Scoreboards.";
     return;