summaryrefslogtreecommitdiff
path: root/world/map/npc
diff options
context:
space:
mode:
Diffstat (limited to 'world/map/npc')
-rw-r--r--world/map/npc/commands/_import.txt1
-rw-r--r--world/map/npc/commands/valentine.txt143
2 files changed, 0 insertions, 144 deletions
diff --git a/world/map/npc/commands/_import.txt b/world/map/npc/commands/_import.txt
index 8655f774..e9e64b95 100644
--- a/world/map/npc/commands/_import.txt
+++ b/world/map/npc/commands/_import.txt
@@ -16,7 +16,6 @@ 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
npc: npc/commands/bosspoints.txt
npc: npc/commands/deaths.txt
npc: npc/commands/divorce.txt
diff --git a/world/map/npc/commands/valentine.txt b/world/map/npc/commands/valentine.txt
deleted file mode 100644
index 426847c6..00000000
--- a/world/map/npc/commands/valentine.txt
+++ /dev/null
@@ -1,143 +0,0 @@
--|script|@givelvlplz|32767
-{
- end;
-
-OnValentine:
- if (#VALENTINE20_INDEX > 0)
- goto L_AlreadyDone;
- message strcharinfo(0), "Valentine Event is already over.";
- end;
- //goto L_Register;
-
-L_AlreadyDone:
- message strcharinfo(0), "You are already registered for Valentine Event.";
- // Handle exp ports
- if (strcharinfo(0) == "dangerDuck")
- getexp 818051, 0;
- if (strcharinfo(0) == "Rill")
- getexp 488725, 0;
- if (strcharinfo(0) == "Blue Sky")
- getexp 518399, 0;
- if (strcharinfo(0) == "+seeds")
- getexp 373416, 0;
- if (strcharinfo(0) == "karen123")
- getexp 627846, 0;
- if (strcharinfo(0) == "luanaf")
- getexp 540955, 0;
- if (strcharinfo(0) == "Cirno9")
- getexp 3241, 0;
- if (strcharinfo(0) == "mifritscher")
- getexp 19723, 0;
- if (strcharinfo(0) == "Jesusalva")
- getexp 79880, 0;
- message strcharinfo(0), "Rewards have already been claimed.";
- set #VALENTINE20_INDEX, 0;
- 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;
-}