Add 001-2-21 map.

4 files changed, 160 insertions, 0 deletions

diff --git a/npc/001-2-21/_import.txt b/npc/001-2-21/_import.txt
new file mode 100644
index 00000000..f58b92d1
--- /dev/null
+++ b/npc/001-2-21/_import.txt
@@ -0,0 +1,4 @@
+// Map 001-2-21: La Johanne, First Deck
+npc: npc/001-2-21/_warps.txt
+npc: npc/001-2-21/julia.txt
+npc: npc/001-2-21/note.txt
diff --git a/npc/001-2-21/_warps.txt b/npc/001-2-21/_warps.txt
new file mode 100644
index 00000000..e115cf96
--- /dev/null
+++ b/npc/001-2-21/_warps.txt
@@ -0,0 +1,2 @@
+// Map 001-2-21: La Johanne, First Deck
+001-2-21,31,25,0	warp	ToLevel1	0,0,001-2-22,72,29
diff --git a/npc/001-2-21/julia.txt b/npc/001-2-21/julia.txt
new file mode 100644
index 00000000..5635f48d
--- /dev/null
+++ b/npc/001-2-21/julia.txt
@@ -0,0 +1,114 @@
+// Evol scripts.
+// Authors:
+//    4144
+//    Qwerty Dragon
+//    Reid
+//    Vasily_Makarov
+// Description:
+//    Allows to change language.
+
+001-2-21,27,24,0	script	Julia	404,2,10,{
+    mesn;
+    mesq lg("Hello dear!");
+    next;
+    mesq l("What do you want today?");
+    next;
+
+    .@s$ = l("I don't want to change my language, sorry.");
+
+L_Menu:
+    menu
+        lg("I made a mistake, I would like to change my language."), L_ChooseLang,
+        l("Could you explain to me where I am?"), L_WhereIam,
+        l("What happened to me?"), L_What,
+        l("Can I read these rules again?"), L_Rules,
+        l("Nothing, sorry."), L_Quit;
+
+L_YNMenu:
+    menu
+        l("Yes, I do."), L_Menu,
+        l("No, none."), L_Quit;
+
+L_NoChanges:
+    mes "";
+    mesn;
+    mesq l("No problem, do you have any other questions for me?");
+    next;
+
+    goto L_YNMenu;
+
+L_ChooseLang:
+    menu
+        menuimage("flags/en", l("I speak English.") + " (English)"), -,
+        menuimage("flags/fr", l("I speak French.") + " (Français)"), -,
+        menuimage("flags/ru", l("I speak Russian.") + " (Русский)"), -,
+        menuimage("flags/es", l("I speak Spanish.") + " (Español)"), -,
+        menuimage("flags/pt_BR", l("I speak Portuguese.") + " (Português)"), -,
+        menuimage("flags/de", l("I speak German.") + " (Deutsch)"), -,
+        menuimage("flags/vls", l("I speak Flemish.") + " (Vlaams)"), -,
+        menuimage("flags/pl", l("I speak Polish.") + " (Polski)"), -,
+        menuimage("flags/it", l("I speak Italian.") + " (Italiano)"), -,
+        menuimage("flags/nl_BE", l("I speak Dutch.") + " (Nederlands)"), -,
+        menuimage("flags/ca", l("I speak Catalan.") + " (Català)"), -,
+        .@s$, L_NoChanges;
+    .@lang = @menu-1;
+    if (.@lang < 0 || .@lang > 10) close;
+    Lang = .@lang;
+
+    mes "";
+    mesn;
+    mesq l("Ok, done.");
+    next;
+    mesq l("Do you have any other questions for me?");
+    next;
+
+    goto L_Menu;
+
+L_WhereIam:
+    mes "";
+    mesn;
+    mesq l("You're on La Johanne, a merchant ship.");
+    next;
+    mesq l("We arrived this morning at the port of Artis, I already warned the Legion of Aemil concerning your issue.");
+    next;
+    mesq l("Somebody is waiting for you outside!");
+    next;
+    mesq l("Like the rest of the crew, you are welcome to come and rest here at anytime during your journey on Artis.");
+    next;
+    mesq l("Do you have any other questions for me?");
+    next;
+
+    goto L_YNMenu;
+
+L_What:
+    mes "";
+    mesn;
+    mesq l("We thought that you could help us understand this, all we know is that we found you cast in the sea, adrift on your raft.");
+    next;
+    mesq lg("You were in bad shape, you should be happy we found you before the sea killed you.");
+    next;
+    mesq l("Oh, and there was this inscription on your raft. It represents the Legion of Aemil, the largest and biggest guild of the whole new world. Does that make you remember anything, anything at all?");
+    next;
+
+    menu
+        l("Sorry, but I can't tell you anything about that."), L_NoChanges,
+        l("Nothing, sorry."), L_NoChanges;
+
+L_Rules:
+    mes "";
+    mesn;
+    mesq l("Of course, they are on the left wall, go have a look at them.");
+    next;
+    mesq l("Do you have any other questions for me?");
+    next;
+
+    goto L_YNMenu;
+
+L_Quit:
+    goodbye;
+
+OnInit:
+    setnpcsex G_FEMALE;
+    setnpcdistance 10;
+    end;
+}
diff --git a/npc/001-2-21/note.txt b/npc/001-2-21/note.txt
new file mode 100644
index 00000000..29628d70
--- /dev/null
+++ b/npc/001-2-21/note.txt
@@ -0,0 +1,40 @@
+// Evol scripts.
+// Authors:
+//    Qwerty Dragon
+//    Reid
+//    WildX
+// Description:
+//    A small note presenting the 6 main rules of Evol Online.
+
+000-2-0,29,25,0	script	Note	116,{
+    mesn "Narrator";
+    mes col(l("There is a paper with some rules written on it."), 9);
+    next;
+    mesq col(l("1. ##BDo not bot##b, this means you are not allowed to perform any AFK (away from keyboard) activity, apart from standing idle."), 9);
+    next;
+    mesq col(l("2. ##BDo not use offensive/rude language##b in the chats or in your character(s) name(s)."), 9);
+    next;
+    mesq col(l("3. ##BDo not spam/flood other players.##b This includes chat spam and spam by trade requests."), 9);
+    next;
+    mesq col(l("4. ##BSpeak only English in public areas.##b You can speak whatever language you want through whispers or whenever everyone in the area can speak said language."), 9);
+    next;
+    mesq col(l("5. ##BDo not beg others##b for money, items or favours of any kind. If you want to ask for something, do it politely and only once. Try not to annoy other players."), 9);
+    next;
+    mesq col(l("6. ##BFollow the [@@http://wiki.evolonline.org/rules/esc|ESC@@]##b (Evol Social Convention)."), 9);
+    next;
+    mesq col(l("7. ##BDo not multibox.##b You are not allowed to engage in combat while controlling more than one character at a time."), 9);
+    next;
+    mes col(l("Following these lines are some other writings on this paper."), 9);
+    next;
+    mesq col(l("Do not give the password of your room to anybody! Keep it secret and try not to use the same one in any other room in the future. - Julia"), 9);
+    next;
+    mesq col(l("Does anyone know a good place to hang out in Esperia? - M. Arpan"), 9);
+    next;
+    mes col(l("Other things are written but are not legible anymore."), 9);
+
+    close;
+
+OnInit:
+    setnpcdistance 2;
+    end;
+}