summaryrefslogtreecommitdiff
path: root/world/map/npc/commands/valentine.txt
diff options
context:
space:
mode:
Diffstat (limited to 'world/map/npc/commands/valentine.txt')
-rw-r--r--world/map/npc/commands/valentine.txt120
1 files changed, 120 insertions, 0 deletions
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;
+}