.:: VALENTINE 2020 ::. (#542)

Adds three new commands:
@givelvlplz and @valentine2020 are the same command - They are for users
@moubootaurs is for staff.

User command: Allows them to insert the needed credentials on ML. It is
already authenticated inside the game, so they only need to inform ML data.

Staff command: Obtain the listing of users which used the previous command
to **manually** insert on Moubootaur Legends special merge page.

As soon as the staff inserts the command, if there are no errors, the user
will be able to claim their levels from TMW at Moubootaur Legends. Temporaly.
If this was rEvolt, we could just try a SQL-transaction...

The tables are never cleared. I'm also saving at Account Register to don't
pollute char database. (We might want a clear vars later).
This also allows us to track down the responsible for each register in case
of issues.

2 files changed, 121 insertions, 0 deletions

diff --git a/world/map/npc/commands/_import.txt b/world/map/npc/commands/_import.txt
index 47aa978f..74fd8a1e 100644
--- a/world/map/npc/commands/_import.txt
+++ b/world/map/npc/commands/_import.txt
@@ -16,3 +16,4 @@ npc: npc/commands/music.txt
 npc: npc/commands/python.txt
 npc: npc/commands/gm.txt
 npc: npc/commands/automod.txt
+npc: npc/commands/valentine.txt
diff --git a/world/map/npc/commands/valentine.txt b/world/map/npc/commands/valentine.txt
new file mode 100644
index 00000000..b78056ae
--- /dev/null
+++ b/world/map/npc/commands/valentine.txt
@@ -0,0 +1,120 @@
+-|script|@givelvlplz|32767
+{
+    end;
+
+OnValentine:
+    if (#VALENTINE20_INDEX > 0)
+        goto L_AlreadyDone;
+    goto L_Register;
+
+L_AlreadyDone:
+    message strcharinfo(0), "You are already registered for Valentine Event.";
+    end;
+
+L_Register:
+    set @ml_login$, "";
+    set @ml_char$, "";
+    mes "##1You can only port one char level per person!##0";
+    mes "##1Are you sure you want to port level "+BaseLevel+" for Valentine?##0";
+    next;
+    mes ".:: MOUBOOTAUR LEGENDS DATA ::.";
+    mes "What is your login name?";
+    mes "(Please leave the field blank to cancel. Case-sensitive.)";
+    input @ml_login$;
+    if (@ml_login$ == "")
+        goto L_Abort;
+    mes "";
+    mes ".:: MOUBOOTAUR LEGENDS DATA ::.";
+    mes "What is your char name?";
+    mes "(The char name must be on the account login you've provided earlier. Case-sensitive.)";
+    input @ml_char$;
+    if (@ml_char$ == "")
+        goto L_Abort;
+    next;
+    if (strcharinfo(0) == @ml_char$)
+        goto L_Warning;
+    goto L_Review;
+
+L_Warning:
+    mes "##1##BWARNING##b##0";
+    mes "Make sure you are inserting your data ##BOn Moubootaur Legends Server##b.";
+    mes "";
+    mes "##BIf you provide invalid data, you will need to contact a GM.##0";
+    next;
+    goto L_Review;
+
+L_Review:
+    mes "";
+    mes ".:: Data Review ::.";
+    mes "ML Login: "+@ml_login$;
+    mes "ML Char: "+@ml_char$;
+    mes "Level: "+BaseLevel;
+    mes "";
+    mes "Is the data correct?";
+    mes "##1##BThis cannot be changed later.##0";
+    next;
+    menu
+        "Actually, can I start over?", L_Register,
+        "Yes, this is how I login on ML and my char name", L_Save,
+        "I'm not sure. Sorry.", L_Abort;
+
+L_Save:
+    set @rank, 0;
+    set @loop, 0;
+    goto L_Search;
+
+L_Search:
+    if ($VALENTINE20_LVL[@loop] == 0)
+        goto L_Finished;
+    set @loop, @loop + 1;
+    goto L_Search;
+
+L_Finished:
+    mes "";
+    set #VALENTINE20_INDEX, @loop+1; // 0 is a valid index
+    set $VALENTINE20_LOGIN$[@loop], @ml_login$;
+    set $VALENTINE20_NAME$[@loop], @ml_char$;
+    set $VALENTINE20_LVL[@loop], BaseLevel;
+    goto L_Abort;
+
+L_Abort:
+    mes "";
+    set @ml_login$, "";
+    set @ml_char$, "";
+    set @loop, 0;
+    set @rank, 0;
+    close;
+
+OnReport:
+    if (GM < 60 && GM < G_SYSOP) end;
+    goto L_Report;
+
+L_Report:
+    set @rank, 0;
+    set @loop, 0;
+    mes "ID - Login / Char - Level";
+    mes "-------------------------";
+    goto L_ShowNextRecord;
+
+L_ShowNextRecord:
+    if ($VALENTINE20_LVL[@loop] == 0)
+        goto L_Close;
+    mes (@loop + 1) + " - " + $VALENTINE20_LOGIN$[@loop] + " / " + $VALENTINE20_NAME$[@loop] + " - Lv. " + $VALENTINE20_LVL[@loop];
+    set @loop, @loop + 1;
+    if ((@loop % 10) == 0 && $VALENTINE20_LVL[@loop] > 0)
+        goto L_NextShowNextRecord;
+    goto L_ShowNextRecord;
+
+L_NextShowNextRecord:
+    next;
+    goto L_ShowNextRecord;
+
+L_Close:
+    close;
+
+OnInit:
+    registercmd chr(ATCMD_SYMBOL) + "givelvlplz", strnpcinfo(0) + "::OnValentine";
+    registercmd chr(ATCMD_SYMBOL) + "valentine2020", strnpcinfo(0) + "::OnValentine";
+    registercmd chr(ATCMD_SYMBOL) + "moubootaurs", strnpcinfo(0) + "::OnReport";
+    end;
+}