Initial commit

41 files changed, 4617 insertions, 0 deletions

diff --git a/npc/001-1/_import.txt b/npc/001-1/_import.txt
new file mode 100644
index 000000000..08a4104c4
--- /dev/null
+++ b/npc/001-1/_import.txt
@@ -0,0 +1,42 @@
+// Map 001-1: Artis
+// This file is generated automatically. All manually added changes will be removed when running the Converter.
+"npc/001-1/_mobs.txt",
+"npc/001-1/_warps.txt",
+"npc/001-1/apana.txt",
+"npc/001-1/artaxe.txt",
+"npc/001-1/beuss.txt",
+"npc/001-1/calypsan.txt",
+"npc/001-1/carmie.txt",
+"npc/001-1/chelios.txt",
+"npc/001-1/cookiemaster.txt",
+"npc/001-1/devis.txt",
+"npc/001-1/doors.txt",
+"npc/001-1/elmo.txt",
+"npc/001-1/enora.txt",
+"npc/001-1/eugene.txt",
+"npc/001-1/fexil.txt",
+"npc/001-1/flyingpiou.txt",
+"npc/001-1/harbours.txt",
+"npc/001-1/juscare.txt",
+"npc/001-1/katja.txt",
+"npc/001-1/lucas.txt",
+"npc/001-1/manhole.txt",
+"npc/001-1/mapflags.txt",
+"npc/001-1/merlin.txt",
+"npc/001-1/mouboo.txt",
+"npc/001-1/nalkri.txt",
+"npc/001-1/panels.txt",
+"npc/001-1/pious.txt",
+"npc/001-1/qonan.txt",
+"npc/001-1/qpid.txt",
+"npc/001-1/rumly.txt",
+"npc/001-1/salem.txt",
+"npc/001-1/shop.txt",
+"npc/001-1/sign.txt",
+"npc/001-1/taree.txt",
+"npc/001-1/treeleaf.txt",
+"npc/001-1/trees.txt",
+"npc/001-1/wateranimation.txt",
+"npc/001-1/xilaxa.txt",
+"npc/001-1/karim.txt",
+"npc/001-1/hinnack.txt",
\ No newline at end of file
diff --git a/npc/001-1/_mobs.txt b/npc/001-1/_mobs.txt
new file mode 100644
index 000000000..a2b6e5f1a
--- /dev/null
+++ b/npc/001-1/_mobs.txt
@@ -0,0 +1,32 @@
+// This file is generated automatically. All manually added changes will be removed when running the Converter.
+// Map 001-1: Artis mobs
+001-1,0,0,0,0	monster	Piou	1002,2,15000,60000
+001-1,0,0,0,0	monster	Piousse	1003,1,15000,150000
+001-1,174,34,11,15	monster	Fluffy	1022,6,18000,100000
+001-1,199,48,2,5	monster	Fluffy	1022,4,18000,100000
+001-1,174,34,11,15	monster	Piou	1002,1,12000,60000
+001-1,35,62,1,4	monster	Pikpik	1013,3,40000,20000
+001-1,26,96,3,2	monster	Pikpik	1013,1,40000,20000
+001-1,42,137,4,1	monster	Pikpik	1013,2,40000,20000
+001-1,45,136,0,0	monster	Crocotree	1010,1,420000,240000
+001-1,70,136,0,0	monster	Crocotree	1010,1,420000,240000
+001-1,37,126,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,34,130,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,41,129,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,36,77,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,37,79,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,39,73,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,43,70,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,48,71,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,40,67,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,46,65,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,152,26,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,152,32,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,155,37,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,158,29,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,203,51,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,198,50,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,199,55,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,185,65,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,191,63,0,0	monster	Manana Tree	1017,1,420000,240000
+001-1,200,66,0,0	monster	Manana Tree	1017,1,420000,240000
diff --git a/npc/001-1/_warps.txt b/npc/001-1/_warps.txt
new file mode 100644
index 000000000..90a7dc1f8
--- /dev/null
+++ b/npc/001-1/_warps.txt
@@ -0,0 +1,445 @@
+// This file is generated automatically. All manually added changes will be removed when running the Converter.
+// Map 001-1: Artis warps
+001-1,51,80,0	script	#001-1_51_80_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-4", 48, 40;
+close;
+
+OnUnTouch:
+    doevent "#001-1_51_80::OnUnTouch";
+}
+001-1,51,80,0	script	#001-1_51_80	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,70,77,0	script	#001-1_70_77_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-2", 38, 38;
+close;
+
+OnUnTouch:
+    doevent "#001-1_70_77::OnUnTouch";
+}
+001-1,70,77,0	script	#001-1_70_77	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,51,65,0	script	#001-1_51_65_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-0", 30, 34;
+close;
+
+OnUnTouch:
+    doevent "#001-1_51_65::OnUnTouch";
+}
+001-1,51,65,0	script	#001-1_51_65	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,55,71,0	script	#001-1_55_71_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-0", 37, 45;
+close;
+
+OnUnTouch:
+    doevent "#001-1_55_71::OnUnTouch";
+}
+001-1,55,71,0	script	#001-1_55_71	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,168,98,0	script	#001-1_168_98_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-16", 32, 35;
+close;
+
+OnUnTouch:
+    doevent "#001-1_168_98::OnUnTouch";
+}
+001-1,168,98,0	script	#001-1_168_98	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,194,109,0	warp	#001-1_194_109	0,0,001-2-21,20,28
+001-1,100,37,0	warp	#001-1_100_37	0,0,001-2-19,32,39
+001-1,104,43,0	warp	#001-1_104_43	0,0,001-2-19,41,49
+001-1,134,83,0	warp	#001-1_134_83	0,0,001-2-28,60,31
+001-1,118,88,0	script	#001-1_118_88_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-28", 29, 42;
+close;
+
+OnUnTouch:
+    doevent "#001-1_118_88::OnUnTouch";
+}
+001-1,118,88,0	script	#001-1_118_88	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,182,74,0	script	#001-1_182_74_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-18", 39, 35;
+close;
+
+OnUnTouch:
+    doevent "#001-1_182_74::OnUnTouch";
+}
+001-1,182,74,0	script	#001-1_182_74	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,163,70,0	script	#001-1_163_70_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-26", 28, 42;
+close;
+
+OnUnTouch:
+    doevent "#001-1_163_70::OnUnTouch";
+}
+001-1,163,70,0	script	#001-1_163_70	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,132,67,0	script	#001-1_132_67_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-15", 34, 45;
+close;
+
+OnUnTouch:
+    doevent "#001-1_132_67::OnUnTouch";
+}
+001-1,132,67,0	script	#001-1_132_67	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,101,107,0	script	#001-1_101_107_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-27", 35, 34;
+close;
+
+OnUnTouch:
+    doevent "#001-1_101_107::OnUnTouch";
+}
+001-1,101,107,0	script	#001-1_101_107	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,89,65,0	script	#001-1_89_65_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-7", 36, 45;
+close;
+
+OnUnTouch:
+    doevent "#001-1_89_65::OnUnTouch";
+}
+001-1,89,65,0	script	#001-1_89_65	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,57,41,0	warp	#001-1_57_41	0,0,001-2-33,34,45
+001-1,142,30,0	script	#001-1_142_30_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-12", 34, 35;
+close;
+
+OnUnTouch:
+    doevent "#001-1_142_30::OnUnTouch";
+}
+001-1,142,30,0	script	#001-1_142_30	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,128,30,0	script	#001-1_128_30_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-1", 37, 40;
+close;
+
+OnUnTouch:
+    doevent "#001-1_128_30::OnUnTouch";
+}
+001-1,128,30,0	script	#001-1_128_30	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,104,32,0	script	#001-1_104_32_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-19", 41, 30;
+close;
+
+OnUnTouch:
+    doevent "#001-1_104_32::OnUnTouch";
+}
+001-1,104,32,0	script	#001-1_104_32	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,107,49,0	script	#001-1_107_49_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-20", 33, 34;
+close;
+
+OnUnTouch:
+    doevent "#001-1_107_49::OnUnTouch";
+}
+001-1,107,49,0	script	#001-1_107_49	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,148,54,0	script	#001-1_148_54_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-11", 46, 45;
+close;
+
+OnUnTouch:
+    doevent "#001-1_148_54::OnUnTouch";
+}
+001-1,148,54,0	script	#001-1_148_54	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,135,49,0	script	#001-1_135_49_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-10", 51, 44;
+close;
+
+OnUnTouch:
+    doevent "#001-1_135_49::OnUnTouch";
+}
+001-1,135,49,0	script	#001-1_135_49	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,118,49,0	script	#001-1_118_49_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-10", 27, 44;
+close;
+
+OnUnTouch:
+    doevent "#001-1_118_49::OnUnTouch";
+}
+001-1,118,49,0	script	#001-1_118_49	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,49,96,0	script	#001-1_49_96_h	NPC_HIDDEN,0,0,{
+OnTouch:
+    warp "001-2-31", 32, 39;
+close;
+
+OnUnTouch:
+    doevent "#001-1_49_96::OnUnTouch";
+}
+001-1,49,96,0	script	#001-1_49_96	NPC_ARTIS_DOOR,2,3,{
+    close;
+OnTouch:
+    doorTouch;
+
+OnUnTouch:
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
+001-1,198,61,0	warp	#001-1_198_61	0,0,001-3-0,198,59
diff --git a/npc/001-1/apana.txt b/npc/001-1/apana.txt
new file mode 100644
index 000000000..812ddfbea
--- /dev/null
+++ b/npc/001-1/apana.txt
@@ -0,0 +1,76 @@
+// Evol scripts.
+// Authors:
+//    Saulc
+// Description:
+//   NPC test fork from moon
+// Variables:
+//    ArtisQuests_Apana  - quest var
+// Quest stages:
+//    0  - not started
+//    1  - started, searching for Bug Leg
+//    2  - quest finished
+
+001-1,86,110,0	script	apana	NPC_PLAYER,{
+
+    .BaitID = BugLeg;
+    .BaitCount = 12;
+
+    .@q = getq(ArtisQuests_Apana);
+    if (.@q == 1) goto L_CheckItems;
+    if (.@q == 2) goto L_QuestDone;
+
+    speech S_LAST_BLANK_LINE,
+        l("I made a figurin with Bug legs."),
+        lg("Be a friend and bring me @@ @@.", "Be a friend and bring me @@ @@.", .BaitCount, getitemlink(.BaitID));
+
+    switch (select(l("I'll be back in no time."),
+                   l("Sorry, I'm doing other things at the moment.")))
+    {
+        case 1:
+            setq ArtisQuests_Apana, 1;
+            speech S_FIRST_BLANK_LINE,
+                l("Thank you. I'll wait here.");
+            close;
+        case 2:
+            speech S_FIRST_BLANK_LINE,
+                l("But I'm almost out of @@...", getitemlink(.BaitID));
+            close;
+    }
+
+L_CheckItems:
+    if (countitem(.BaitID) < .BaitCount)
+    {
+        speech
+            l("Sorry, but you don't have what I need."),
+            l("I need @@ @@.", .BaitCount, getitemlink(.BaitID));
+        close;
+    }
+
+    speech
+        l("That's exactly what I needed!"),
+        l("To thank you, accept my old fishing rod."),
+        l("It's not as good as my new one, but still very useful."),
+        l("Just look at that water! There's a whole bunch of fish down there."),
+        l("Oh, and you will need this book too, it will help you learn the basics of fishing."),
+        lg("You might even get lucky, and get a @@.",
+           "You might even get lucky, and get a @@.", getitemlink(GrassCarp)),
+        l("Have a good time fishing!");
+
+    delitem .BaitID, .BaitCount;
+    Zeny = Zeny + 1000;
+    message strcharinfo(0), l("You receive @@ E!", 1000);
+    setq ArtisQuests_Apana, 2;
+    close;
+
+L_QuestDone:
+    // Idea for future: Eugene telling fishman jokes.
+    speech
+        l("Ahoy, @@!", strcharinfo(0)),
+        l("Are the fish biting today?");
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 3;
+    end;
+}
\ No newline at end of file
diff --git a/npc/001-1/artaxe.txt b/npc/001-1/artaxe.txt
new file mode 100644
index 000000000..9f8e02f25
--- /dev/null
+++ b/npc/001-1/artaxe.txt
@@ -0,0 +1,19 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Legion NPC blocking the north road of Artis.
+
+001-1,90,31,0	script	Artaxe	NPC_ARTAXE,{
+    speech S_LAST_NEXT,
+        l("Sorry buddy, you can't pass by this way, we're moving some furniture."),
+        l("Come back later!");
+
+    closedialog;
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 2;
+    end;
+}
diff --git a/npc/001-1/beuss.txt b/npc/001-1/beuss.txt
new file mode 100644
index 000000000..9040f64e8
--- /dev/null
+++ b/npc/001-1/beuss.txt
@@ -0,0 +1,28 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Angry member of the Legion of Aemil.
+
+001-1,45,48,0	script	Beuss	NPC_BEUSS,{
+    stopnpctimer;
+    initnpctimer;
+    .dir = 4;
+    mesn;
+    mesq l("You seem pathetically weak. What is such boneless jelly like you doing around here?");
+
+    goto L_Close;
+
+L_Close:
+    close;
+
+OnTimer10000:
+    .dir = 2;
+    stopnpctimer;
+    end;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 2;
+    end;
+}
diff --git a/npc/001-1/calypsan.txt b/npc/001-1/calypsan.txt
new file mode 100644
index 000000000..7f3d6a0ae
--- /dev/null
+++ b/npc/001-1/calypsan.txt
@@ -0,0 +1,105 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Dye seller, she sells and explain how works dye cards.
+// Version:
+//    2016.019 "Under Construction".
+// Variables:
+//    ArtisQuests_Fexil
+// Quest states:
+//    0  -- not started
+//    1  -- Lloyd warned about the quest
+//    2  -- Fexil explain what he needs
+//    3  -- Fexil buy every fur that the pc bring to him
+
+001-1,47,126,0	script	Calypsan#001-1	NPC_CALYPSAN,{
+
+    function explain_dyes {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Look at your equipment, can you guess what material it is made from?"),
+            l("Seek a colorant for that material:"),
+            l("Cotton, cashmere, leather, ..."),
+            l("Zinc-Titanium Oxide, Phthalocyanides, Cadmiums, Lazulite..."),
+            l("Colorant is not the yeying color. Some wear out from light, others look great but inflict itai-itai, and others become spotty or wash-away."),
+            l("What yoiis should know:"),
+            l("1: The type of item yoiis want to dye."),
+            l("2: What material it is made from."),
+            l("3: Which colorants can dye it."),
+            l("4: How many cards your item can contain."),
+            l("Exemple for yoiis:"),
+            l("Take an @@ and a @@, yeye obtains a @@.", getitemlink(ArtisTankTop), getitemlink(RedCottonDye), getitemlink(ArtisTankTop, RedCottonDye)),
+            l("If yoiis wants to see a different use for the cards he can yeye for Resa at the light armor shop for a description of the styling cards.");
+    }
+
+    function sell_dye {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT, l("For what kind of tissue?");
+        .@tissue_type = select(l("Cotton"), l("Cashmere"));
+
+        closedialog;
+        switch (.@tissue_type)
+        {
+            case 1:
+                shop "Cotton#Dye001-1";
+                break;
+            case 2:
+                shop "Cashmere#Dye001-1";
+                break;
+            default:
+                debugmes "Calypsan script error, tissue_type is incorrect";
+                break;
+        }
+        close;
+    }
+
+    speech S_LAST_NEXT,
+        l("Yoiis envies a rainbow in the sky?"),
+        l("It is possible to yeye your cloth with my beautiful dyes."),
+        l("What does yoiis want today?");
+
+    .@fexil = getq(ArtisQuests_Fexil);
+
+    do
+    {
+        select
+            rif(.@fexil == 1, l("Have you seen Fexil?")),
+            menuaction(l("Trade")),
+            l("How do these dyes work?"),
+            l("I want to make my own dyes."),
+            menuaction(l("Quit"));
+
+        switch (@menu)
+        {
+            case 1:
+                setcamnpc "Fexil#001-1";
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Oh yeye did, his store is just beside me!"),
+                    l("Yoiis should look there.");
+                restorecam;
+
+                break;
+            case 2:
+                sell_dye;
+                close;
+
+            case 3:
+                explain_dyes;
+                break;
+            case 4:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Yoiis is not yet ready to make his own dyes."),
+                    l("But in the future I might be able to help you create some of your own.");
+                break;
+        }
+    } while (@menu != 5);
+
+    closedialog;
+    goodbye;
+    close;
+
+OnInit:
+    .sex = G_FEMALE;
+    .distance = 3;
+    end;
+}
+
diff --git a/npc/001-1/carmie.txt b/npc/001-1/carmie.txt
new file mode 100644
index 000000000..e87e7fe67
--- /dev/null
+++ b/npc/001-1/carmie.txt
@@ -0,0 +1,68 @@
+// Evol scripts.
+// Authors:
+//    Alige
+//    Reid
+// Description:
+//    Carmie, walking NPC of the legion of Aemil on the center part of Artis.
+// Variables:
+//    .@rand = Random number of sentences.
+
+001-1,86,66,0	script	Carmie#001-1	NPC_RAIJIN_FEMALE_LEGION_ARTIS,{
+
+    legiontalk;
+
+    close;
+
+OnTimer1000:
+    domovestep;
+
+OnInit:
+    initpath "move", 89, 68,
+             "move", 89, 77,
+             "move", 84, 81,
+             "dir", LEFT, 0,
+             "wait", 2, 0,
+             "dir", DOWN, 0,
+             "wait", 1, 0,
+             "dir", RIGHT, 0,
+             "wait", 1, 0,
+             "move", 89, 85,
+             "dir", LEFT, 0,
+             "wait", 1, 0,
+             "dir", DOWN, 0,
+             "dir", RIGHT, 0,
+             "wait", 1, 0,
+             "move", 94, 81,
+             "dir", RIGHT, 0,
+             "wait", 2, 0,
+             "dir", DOWN, 0,
+             "wait", 1, 0,
+             "dir", LEFT, 0,
+             "wait", 1, 0,
+             "move", 89, 76,
+             "move", 89, 68,
+             "dir", LEFT, 0,
+             "wait", 2, 0,
+             "dir", DOWN, 0,
+             "wait", 4, 0,
+             "dir", RIGHT, 0,
+             "wait", 2, 0,
+             "move", 92, 66,
+             "dir", RIGHT, 0,
+             "wait", 2, 0,
+             "dir", DOWN, 0,
+             "wait", 1, 0,
+             "dir", LEFT, 0,
+             "wait", 1, 0,
+             "move", 86, 66,
+             "dir", LEFT, 0,
+             "wait", 2, 0,
+             "dir", DOWN, 0,
+             "wait", 1, 0,
+             "dir", RIGHT, 0,
+             "wait", 1, 0;
+
+    initialmove;
+    initnpctimer;
+    .distance = 5;
+}
diff --git a/npc/001-1/chelios.txt b/npc/001-1/chelios.txt
new file mode 100644
index 000000000..2846f8641
--- /dev/null
+++ b/npc/001-1/chelios.txt
@@ -0,0 +1,117 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Blacksmith's assistant of Artis
+// Variables:
+//    ArtisQuests_Enora
+// Values:
+//    0    Default.
+//    1    BlackSmith quest delivered.
+//    2    Chelios Quest given.
+//    3    Chelios Quest done.
+//    4    BlackSmith gave the sword.
+
+001-1,95,109,0	script	Chelios	NPC_CHELIOS,{
+
+    function give_small_quest {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Her sword... I'm having some trouble finishing it."),
+            l("You see, Enora asked me to do a black iron sword, unfortunately I ran out of the material needed, and..."),
+            l("Only Don and the Merchant Guild have that kind of material in stock. It's called black iron."),
+            l("It's better to deal with the Merchant Guild than the old man, Don has this ability to hammer down your enthusiasm in sparkling fury!"),
+            l("If Enora wants her sword now, I need to ask for your help.");
+
+        switch (select(l("Let's not keep her waiting."),
+                        l("Not now.")))
+        {
+            case 1:
+                break;
+            case 2:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    lg("I'll be here, come back when you'll be ready.");
+
+                return;
+        }
+
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Thank you very much!"),
+            l("Talk with Lloyd the Banker in the Merchant Guild, it's a big building in the northern side of Artis, at the top of the small hill.");
+
+        setq ArtisQuests_Enora, 2;
+
+        return;
+    }
+
+    function more_info {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("It's the big building in northern Artis, at the top of a small hill."),
+            l("Take the east road that goes to the north and follow it until you are on top of the cliff."),
+            l("That part of the town is called the Gilded Hill, it's also where the Merchant Guild has its headquarters."), //rich hill
+            l("Lloyd still owes me, but beware of those money-grabbers, or they might sell your own teeth to you!");
+
+        return;
+    }
+
+    function quest_completed {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Oh... Awesome!"),
+            l("You were gone so I thought you let me down."),
+            l("Don gave me some black iron... after I asked him nearly ten times."),
+            l("But thank you anyway! I can refund him now!"),
+            l("Take the sword, and say hi to Enora for me!");
+
+        setq ArtisQuests_Enora, 4;
+
+        return;
+    }
+
+    function blacksmith_house{
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Behind me? It's the Blacksmith House, the most renowned throughout Aemil."),
+            l("There are two shops inside, they are independent from the Merchant Guild of Artis."),
+            l("Now that I think about it, they are the only shops that are independent in Artis..."),
+            l("...it might be because of Don... he is the master blacksmith of this place and a model to me!");
+
+        return;
+    }
+
+    speech S_LAST_NEXT, l("Can I be of any help?");
+
+    do
+    {
+        .@enora = getq(ArtisQuests_Enora);
+        select
+            rif(.@enora == 1, lg("I came to retrieve a package for Enora.")),
+            rif(.@enora == 3, l("I have your black iron.")),
+            rif(.@enora >= 2, l("Where is the Merchant Guild?")),
+            l("What is this building?"),
+            menuaction(l("Quit"));
+
+        switch (@menu)
+        {
+            case 1:
+                give_small_quest;
+                break;
+            case 2:
+                quest_completed;
+                break;
+            case 3:
+                more_info;
+                break;
+            case 4:
+                blacksmith_house;
+                break;
+        }
+    } while (@menu != 5);
+
+    closedialog;
+    goodbye;
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 3;
+    end;
+}
+
diff --git a/npc/001-1/cookiemaster.txt b/npc/001-1/cookiemaster.txt
new file mode 100644
index 000000000..77f95baa1
--- /dev/null
+++ b/npc/001-1/cookiemaster.txt
@@ -0,0 +1,258 @@
+// Evol scripts.
+// Authors:
+//    Alige
+//    Reid
+// Description:
+//    Cookie NPC, beware, if you don't take your cookie, she'll keep it!
+// Variables:
+//    General_Cookies
+// Values:
+//    0   Default, didn't get a cookie.
+//    1   Get a cookie.
+
+001-1,39,38,0	script	Cookie Master	NPC_COOKIE_MASTER,{
+    if ((countitem(517) == 0) && (getq(General_Cookies) == 1))
+        goto L_LostCookie;
+    if (getq(General_Cookies) == 1)
+        goto L_GetCookie;
+
+    mesn;
+    mesq lg("Hey! Adventurer! Are you enjoying your life on Aemil?");
+    next;
+
+    select
+        l("Well in fact...");
+
+    mes "";
+    mesn;
+    mesq l("Shht shht!");
+    next;
+    mesq l("Don't tell me more, I know what you want...");
+    next;
+    mesq l("A cookie!");
+    next;
+
+    menu
+        l("I'd love one!"), -,
+        l("No thank you, I'm fine. I'll come back later."), L_Bye;
+
+    mes "";
+    mesn;
+    mesq lg("Of course you do! Just listen carefully to these words my sweet.");
+    next;
+    mesq l("Cookies are a source of life.");
+    next;
+    mesq l("Cookies provide you strength, health and cuteness.");
+    next;
+    mesq l("Cookies are awesome, so am I.");
+
+    menu
+        l("Uhm... Your story seems..."), L_StorySeems,
+        l("Wait... That's not a proper place for a chef, what are you doing there?"), L_Presentation,
+        l("Exactly! Can I have one now?"), -;
+
+L_Check:
+    mes "";
+    mesn;
+    mesq l("Let me check my cookie list...");
+    next;
+
+// Beta3 Contributors.
+    if (strcharinfo(0) == "4144") goto L_Reward;
+    if (strcharinfo(0) == "Alige") goto L_Reward;
+    if (strcharinfo(0) == "enchilado") goto L_Reward;
+    if (strcharinfo(0) == "hal9000") goto L_Reward;
+    if (strcharinfo(0) == "Reid") goto L_Reward;
+    if (strcharinfo(0) == "Socapex") goto L_Reward;
+    if (strcharinfo(0) == "Kenny690") goto L_Reward;
+    if (strcharinfo(0) == "Nelson6e65") goto L_Reward;
+    if (strcharinfo(0) == "Steel Zenn") goto L_Reward;
+// Aurora1 Contributors.
+
+    mesq l("I'm sorry but I can't see your name anywhere.");
+    next;
+    mesq l("You see, folks around here that get my cookies have the distinction of being...");
+    next;
+
+    menu
+        l("Seriously? It's just a cookie you know... Tell me what I should do to get one."), L_BTaskExpanation,
+        l("Yes, yes I know... Too bad then. See you soon!"), L_Bye;
+
+L_StorySeems:
+    mes "";
+    mesn;
+    mesq l("What about my story?");
+    next;
+
+    menu
+        l("It's interesting and exciting at the same time!"), -,
+        l("Honestly, it's quite far-fetched according to me."), L_Kick;
+
+    mes "";
+    menu
+        l("Too bad. I'm not hungry enough for these cookies of yours. Maybe I'll come back later."), L_Bye,
+        l("How can I get one of these cookies?"), -;
+
+    mes "";
+    mesn;
+    mesq g(l("It looks like the sweet lady is curious, am I right?"),
+           l("It seems the gentleman is curious, am I right sweetie?"));
+    next; 
+    mesq lg("Well, if you ever do want to join: 'Ye Merry Club Of Thee Bequeathed With Cookies'...");
+    next;
+
+L_BTaskExpanation:
+    mes "";
+    mesn;
+L_TaskExpanation:
+    mesq l("You'll first need to help my friends.");
+    next;
+    mesq l("It is them, after all, who have the ultimate decision as to those I can give my cookies to.");
+    next;
+
+    menu
+        l("So you're under the control of a dictatorship? That's... reassuring!"), L_Control,
+        l("Who are these friends?"), L_Friends;
+
+L_Friends:
+    mes "";
+    mesn;
+    mesq l("Shht shht!");
+    next;
+    mesq l("Don't say it so loudly, other people could hear us.");
+    next;
+    mesq l("My friends are... Well, you know... The creators.");
+    next;
+    mesq l("I can't give you a cookie for free. But I can give you this hint for how you may be added to my list.");
+    next;
+    mesq l("Now listen to and ponder my words...");
+    next;
+    mesq l("If you see weird things here and there, or things that just shouldn't be, or even in your minds eye, things that you would like to see...");
+    next;
+    mesq l("Simply contact them, by forum or wispers or irc. When you are helpful and kind, they respond in kind. And in time they may surely add you to my cookie list!");
+    next;
+
+    mesn "Narrator";
+    mes col(l("This Cookie Master rewards people who contribute and develop this world."), 9);
+    next;
+    mes col(lg("If you want to be rewarded, help us in making this world a better place."), 9);
+    next;
+    mes col(l("When you see something that looks more like a bug than a feature, report it on http://bugs.evolonline.org or try to contact a game contributor."), 9);
+    next;
+    mes col(l("Any contribution to the game (translations, graphics creation/edition, concepts, coding/scripting, etc...) is rewarded!"), 9);
+
+    mes "";
+    mesn;
+    mesq l("So, do you still want a cookie?");
+    next;
+
+    menu
+        l("I wish I helped your friends, because I'd really, really like a cookie."), -,
+        l("You tell me. Do I deserve a cookie?"), L_Check;
+
+    mes "";
+    mesn;
+    mesq l("Don't worry, I'm sure you will help them soon enough!");
+    next;
+
+    goto L_Bye;
+
+L_Presentation:
+    mes "";
+    mesn;
+    mesq l("For a chef? Who said I was a... Oh right, I am.");
+    next;
+    mesq l("I was sent here with a task. I can give you a perfect, wonderful, magnificent, superbly well shaped... Cookie!");
+    next;
+    mesq l("But...");
+    next;
+
+    goto L_TaskExpanation;
+
+L_Reward:
+    mesq l("Yes! @@ is written on my cookie list.", strcharinfo(0));
+    next;
+    mesq lg("That's quite surprising... You don't look very helpful.");
+    next;
+    mesq l("Anyway, here, have a cookie!");
+
+    inventoryplace DeliciousCookie, 1;
+
+    setq General_Cookies, 1;
+    getnameditem DeliciousCookie, strcharinfo(0);
+    npctalk3 l("You receive a @@!", getitemlink(DeliciousCookie));
+
+    next;
+    mesq lg("I'm sure you'll appreciate its effect, but be careful, these cookies are rare, and you'll need to help the community again before being able to receive another one.");
+    next;
+
+    goto L_Bye;
+
+L_Control:
+    mes "";
+    mesn;
+    mesq l("C'mon, don't be like that and loosen up! Don't you want to know who's behind all of this?!");
+    next;
+
+    menu
+        l("Why not, this might get interesting."), L_Friends,
+        l("Fine, tell me, who are these all important friends of yours?"), -,
+        l("No, and I gotta go, see you."), L_Kick;
+
+    mes "";
+    mesn;
+    mesq l("Don't belittle me, my work is deserving of the highest esteem.");
+    next;
+
+L_Kick:
+    closedialog;
+
+    npctalk3 l("No cookie for you!");
+    warp "001-1", 39, 41;
+
+    close;
+
+L_GetCookie:
+    mesq l("Hey, I'm not a Keebler Elvis! You won't have another one by stalking me like that!");
+    next;
+    mesq l("If you want another cookie, you know what to do!");
+    next;
+    mesq l("Now, move!");
+    next;
+
+    goto L_Bye;
+
+L_LostCookie:
+    mesq l("Hey, how was the...");
+    next;
+    mesq l("Wait a minute, where's the cookie I gave you?");
+    next;
+    mesq l("I'm talking about the cookie inside which I put all my love!");
+    next;
+    mesq l("The best, the wonderful, the most choice cookie among all others, the...");
+    next;
+    // Angry emote
+    mesq l("Grr...");
+    next;
+    mesq l("You're lucky that I'm a generous person, here's another one.");
+    next;
+    mesq l("This is the last one. If you use it again out of clumsiness, I will use your soft moist parts in the concoction of my next cookie batch.");
+    next;
+
+    inventoryplace DeliciousCookie, 1;
+    getnameditem DeliciousCookie, strcharinfo(0);
+
+    npctalk3 l("You receive a @@!", getitemlink(DeliciousCookie));
+
+L_Bye:
+    closedialog;
+
+    npctalk3 l("See you later!");
+
+    close;
+
+OnInit:
+    .sex = G_FEMALE;
+    .distance = 2;
+    end;
+}
diff --git a/npc/001-1/devis.txt b/npc/001-1/devis.txt
new file mode 100644
index 000000000..5f0d4868b
--- /dev/null
+++ b/npc/001-1/devis.txt
@@ -0,0 +1,100 @@
+// Evol scripts.
+// Authors:
+//    Reid
+//    Travolta
+// Description:
+//    La Johanne crew member.
+
+001-1,193,109,0	script	Devis#001-1	NPC_DEVIS_ARTIS,{
+
+    function say_random_greeting {
+        .@enora = getq(ArtisQuests_Enora);
+        if (.@enora == 0)
+        {
+            speech
+                l("Enora, from the Legion of Aemil, has been warned that you were aboard."),
+                l("She is waiting for you on the dock.");
+
+            return;
+        }
+
+        .@rand = rand(5);
+        if (.@rand == 0) goodbye;
+        else if (.@rand == 1)
+        {
+            speech S_LAST_NEXT,
+                l("A sunny and hot day,"),
+                l("a quiet place,"),
+                l("a ground!"),
+                l("What else do you need?");
+        }
+        else if (.@rand == 2) npctalk3 l("A-hoy matey!");
+        else if (.@rand == 3) npctalk3 l("We are glad captain Nard has let you join the crew!");
+        else if (.@rand == 4) npctalk3 l("Howdy?");
+
+        return;
+    }
+
+    function face_to_PC {
+        getmapxy(.@map$, .@cx, .@cy, 0);
+        @Devis_old_dir = .dir;
+        npc_turntoxy(.@cx, .@cy);
+
+        return;
+    }
+
+    function local_close {
+        if (@Devis_old_dir > 0)
+        {
+            .dir = @Devis_old_dir;
+        }
+        npc_resumemove;
+
+        close;
+    }
+
+    @Devis_old_dir = -1;
+
+    npc_pausemove;
+    face_to_PC;
+    say_random_greeting;
+    local_close;
+
+OnTimer1000:
+    dographmovestep;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 5;
+    initmovegraph   "start_pos",    193, 109,
+                    "dock_ent",     194, 109,
+                    "dock_right",   192, 114,   195, 115,
+                    "dock_left",    151, 103,   160, 106,
+                    "dock_bot",     161, 119,   163, 127,
+                    "dock_top",     184, 91,    195, 92,
+                    "ship_ent",     19,  28,
+                    "ship_sit",     28,  26,
+                    "dock_mid",     174, 105;
+
+    setmovegraphcmd "start_pos",    "dock_mid",     1,  "dir 0; wait 2",
+                    "dock_ent",     "dock_right",   1,  "dir 0; wait 1; dir 2; wait 1; dir 0; wait 1; dir 6; wait 5",
+                    "dock_ent",     "dock_mid",     2,  "moveon",
+                    "dock_bot",     "dock_left",    1,  "dir 6; wait 8",
+                    "dock_bot",     "dock_mid",     2,  "moveon",
+                    "dock_left",    "dock_bot",     1,  "dir 0; wait 1; dir 2; wait 1; dir 0; wait 1; dir 6; wait 5",
+                    "dock_left",    "dock_mid",     2,  "moveon",
+                    "dock_right",   "dock_ent",     1,  "warp 001-2-21 ship_ent",
+                    "dock_right",   "dock_mid",     2,  "moveon",
+                    "dock_top",     "dock_mid",     1,  "moveon",
+                    "dock_mid",     "dock_bot",     1,  "dir 0; wait 1; dir 2; wait 1; dir 0; wait 1; dir 6; wait 5",
+                    "dock_mid",     "dock_right",   1,  "dir 0; wait 1; dir 2; wait 1; dir 0; wait 1; dir 6; wait 5",
+                    "dock_mid",     "dock_left",    1,  "dir 0; wait 1; dir 2; wait 1; dir 0; wait 1; dir 6; wait 5",
+                    "dock_mid",     "dock_top",     1,  "dir 0; wait 1; dir 2; wait 1; dir 0; wait 1; dir 6; wait 5",
+                    "dock_mid",     "dock_ent",     2,  "warp 001-2-21 ship_ent",
+                    "ship_ent",     "ship_sit",     1,  "dir 4; sit; wait 14; stand; wait 1",
+                    "ship_sit",     "ship_ent",     1,  "warp 001-1 dock_ent";
+
+    firstmove "wait 8", "start_pos";
+    initnpctimer;
+}
+
diff --git a/npc/001-1/doors.txt b/npc/001-1/doors.txt
new file mode 100644
index 000000000..31ca2b7df
--- /dev/null
+++ b/npc/001-1/doors.txt
@@ -0,0 +1,57 @@
+// Evol scripts.
+// Authors:
+//    4144
+//    Reid
+// Description:
+//    Doors warp and animations in map 001-1
+//
+
+001-1,57,41,0	script	#Warp20	NPC_HIDDEN,0,0,{
+OnTouch:
+    .@enora = getq(ArtisQuests_Enora);
+
+    if (.@enora < 11)
+    {
+        narrator S_LAST_NEXT,
+            l("The door to the legion building is temporarily closed.");
+    }
+    else
+    {
+        warp "001-2-33", 34, 46;
+    }
+
+    closedialog;
+    close;
+
+OnUnTouch:
+    doevent "#Door20::OnUnTouch";
+}
+
+001-1,57,41,0	script	#Door20	NPC_ARTIS_DOOR,2,3,{
+    close;
+
+OnTouch:
+    .@enora = getq(ArtisQuests_Enora);
+    if (.@enora < 11)
+    {
+        setfakecells 57, 41, 1;
+        end;
+    }
+    setfakecells 57, 41, 0;
+    doorTouch;
+
+OnUnTouch:
+    .@enora = getq(ArtisQuests_Enora);
+    if (.@enora < 11)
+    {
+        end;
+    }
+    doorUnTouch;
+
+OnTimer340:
+    doorTimer;
+
+OnInit:
+    doorInit;
+}
+
diff --git a/npc/001-1/elmo.txt b/npc/001-1/elmo.txt
new file mode 100644
index 000000000..170d397a0
--- /dev/null
+++ b/npc/001-1/elmo.txt
@@ -0,0 +1,20 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Sailor of Nard's La Johanne ship.
+
+001-1,185,107,0	script	Elmo#001-1	NPC_ELMO_ARTIS,{
+    speech
+        l("Oh hey!"),
+        lg("If you feel bored or anxious, you can always ask some of the people around Artis if they need your help.");
+        l("It's better than running around in circles doing nothing.");
+
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 2;
+    end;
+}
+
diff --git a/npc/001-1/enora.txt b/npc/001-1/enora.txt
new file mode 100644
index 000000000..fea6d6e7e
--- /dev/null
+++ b/npc/001-1/enora.txt
@@ -0,0 +1,455 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Newbie guide for Artis.
+// Variables:
+//    ArtisQuests_Enora
+// Values:
+//    0    Default.
+//    1    BlackSmith quest delivered.
+//    2    Chelios Quest given.
+//    3    Chelios Quest done.
+//    4    BlackSmith gave the sword.
+//    5    Light Armor Shop quest delivered.
+//    6    Light Armor Shop gave the cloths.
+//    7    Market quest delivered.
+//    8    Q'Pid merchant.
+//    9    Market gave the potion.
+//    10   Hill quest delivered.
+//    11   Fluffy killed.
+
+001-1,176,113,0	script	Enora#001-1	NPC_HUMAN_FEMALE_NOOB,{
+
+    function enora_don {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Don is renowned throughout the entire land of Aemil for his blacksmithing skills, and he is here, in Artis."),
+            l("It's a great honor for us, at the Legion, to hold the security of his business!"),
+            l("If you search for him you should look in the west of the city, it's the first house just after the left bridge, you can't miss it!"),
+            l("Chelios, his apprentice, practices outside, mostly.");
+
+        return;
+    }
+
+    function enora_legion {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("The Legion of Gasaron are a group of warriors who vowed to protect and serve their neighbours."),
+            l("We hold various training sessions, and also have a task board with a heap of things to do for the city and its surroundings."),
+            l("It's a good place to earn money, it can also help you to travel throughout the land!"),
+            l("Each big city hosts a Legion building, Artis' building is located in the north-west.");
+
+        return;
+    }
+
+    function enora_light_armor {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("The light armor shop is ran by Resa, she is part of the Merchant Guild of Artis."),
+            l("She is very skilled when it comes to weaving an ordinary piece of cloth into a wonderful work of art!"),
+            l("Her shop is on the west side of the city, between the Legion building and the library.");
+
+        return;
+    }
+
+    function enora_market {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("The market is located in the south-east of Artis, it is known as Merchant Guild's exhibit."),
+            l("You need to be a member of the Merchant Guild to have a chance there."),
+            l("And I bet you don't know who is in charge of monitoring the security of this place?");
+
+        switch (select(l("The Legion?"), l("I don't know.")))
+        {
+            case 1:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("You hit the nail on the head, it's the Legion of Gasaron!"),
+                    l("Our main responsibility in the city is to protect the Merchant Guild.");
+                break;
+            case 2:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Cat got your tongue?"),
+                    l("..."),
+                    l("Your brain liquified to match the level of a piou! It's the Legion of Gasaron.");
+                break;
+        }
+        return;
+    }
+
+    function enora_hill {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Go north from here until you find the dock warehouse, cross the bridge to the west side of the canal, continue north until you reach another bridge then cross it to the east side of the canal."),
+            l("You should arrive at a park with a hill nearby.");
+
+        return;
+    }
+
+    function enora_memories {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("It's so exciting to meet somebody with amnesia!"),
+            l("Can't you remember anything at all? Or do you have some memories of your past?"),
+            l("What happens when you try to think about it?"),
+            l("Does your mind go all fuzzy or does it feel like your head is going to explode??"),
+            l("Try doing that now!");
+
+        switch (select(l("Okay, but there won't be any explosions."),
+                        lg("Don't get too excited about it...")))
+        {
+            case 1:
+                narrator S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("You concentrate and try to summon old memories from within your mind."),
+                    l("You feel numb and everything around you looks foggy, but you can recall the feeling of the cold hard wood of your raft on a stormy night."),
+                    l("A headache hits you and you lose your concentration.");
+
+                speech S_LAST_NEXT,
+                    l("So? You haven't exploded yet! Are you getting anything?");
+
+                select(l("Not really. All I got was a headache..."));
+
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("It's like your memories are locked away in your head! Cool!");
+
+                break;
+            case 2:
+                mes "";
+                break;
+        }
+
+        speech S_LAST_NEXT,
+            l("Ok, sorry. Back to our fluffies.");
+
+        return;
+    }
+
+    function enora_reward {
+        .@exp_reward = getarg(0);
+        .@zeny_reward = getarg(1);
+
+        getexp .@exp_reward, 0;
+        Zeny = Zeny + .@zeny_reward;
+
+        narrator S_LAST_NEXT,
+            l("You received @@ EXP and @@ E.", .@exp_reward, .@zeny_reward);
+
+        return;
+    }
+
+    function enora_first_quest {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("You probably don't have much business in this city as you don't remember who you are."),
+            lg("So I was going to ask if maybe you would be interested in giving me a hand with a few errands.");
+
+        switch (select(l("I guess so. What's in it for me?"),
+                        l("Of course! What do you need?")))
+        {
+            case 1:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Some tasks will help you become aquainted with Artis. Trust me.");
+                break;
+            case 2:
+                mes "";
+                break;
+        }
+
+        speech S_LAST_NEXT,
+            l("I asked Don our blacksmith to prepare a black iron sword for morning, he should be done by now."),
+            l("Go meet him, and take the package to me, it's an easy task."),
+            l("You will be able to find Don's house in the west of the city, it's the first house just after the bridge on the left, you can't miss it!"),
+            l("A young apprentice called Chelios might be waiting outside, speak to him, and return the package to me.");
+            emotion E_HAPPY;
+
+        setq ArtisQuests_Enora, 1;
+
+        closedialog;
+        goodbye;
+        close;
+    }
+
+    function enora_second_quest {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Thank you for this commission, Chelios is as good as Don when it comes to forging metal."),
+            l("By the way, did you ever talk with Don?"),
+            l("If so, I hope that he didn't give you any hard time, sometimes he can get up on the wrong side of the bed he becomes an embittered and grumpy old man..."),
+            l("Poor Chelios, I don't envy him..."),
+            l("So, everything went fine?");
+
+        switch (select(l("Chelios managed to do excellent work."),
+                        l("The old man seemed to be senile.")))
+        {
+            case 1:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT, l("Fine, let's see his work...");
+                narrator S_LAST_NEXT, l("Enora is carefully inspecting the sword.");
+                speech S_LAST_NEXT,
+                    l("Excellent!"),
+                    l("The detail and craftsmanship that went into this sword can only be accomplished by the most practiced of blacksmiths.");
+
+                break;
+            case 2:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("He may not have all of his wits but keep in mind one thing:"),
+                    l("Don is renowned throughout the entire land for his blacksmith skills, and he is here, in Artis."),
+                    l("It's a great honor for us, at the Legion, to hold the security of his business!");
+
+                break;
+        }
+
+        speech S_LAST_NEXT,
+            l("After this small overview of Artis, what do you think of our city?"),
+            l("The Legion of Gasaron is in charge of the security of the intramural part of our cities."),
+            l("The control and administration of the cities passes hands sometimes. You may find the Mana Order or the Brotherhood in charge instead of us at some point!"),
+            l("But we are quite lucky here, outside of some tipsy travelers there are no big problems around here, it's not like the capital, Esperia."),
+            l("Now that I think about it, I have another task for you. I asked Resa from the light armor shop to craft me some new clothes, she is a bit far from here, I can't go there because I need to watch the dock."),
+            l("Her shop is on the west side of the city, between the Legion building and the library.");
+
+        setq ArtisQuests_Enora, 5;
+        enora_reward(60, 100);
+
+        closedialog;
+        npctalk3 l("Thank you very much!");
+        close;
+    }
+
+    function enora_third_quest {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Look how splendid this @@ is!", getitemlink(ArtisTankTop, CamelCottonDye)),
+            l("It's nearly as good as one from Esperia, have you ever been there?"),
+            l("Ah... Sorry, I forgot, again."),
+            l("I mean, you forgot... Well."),
+            l("If you ever find the time, pass by Esperia, it's the greatest city in all of Gasaron!"),
+            l("You can find the building of the Legion of Gasaron there, like in any other city, but Esperia is important for us as our headquarters are there.");
+
+        do
+        {
+            .@q = select(l("Do you still need help?"),
+                          l("What is this \"legion\"?"));
+            switch (.@q)
+            {
+                case 1:
+                    break;
+                case 2:
+                    enora_legion;
+                    break;
+            }
+        } while (.@q == 2);
+
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Oh yes, I have one last errand for you, Q'Pid in the market sells potions."),
+            l("It has been some days now since I asked her for a box of @@s, but she hasn't delivered anything yet.", getitemlink(PiberriesInfusion)),
+            l("Please try to figure out what went wrong with this order and bring me those potions."),
+            l("You will be able to find her in the market in the south-west of Artis.");
+
+        setq ArtisQuests_Enora, 7;
+        enora_reward(40, 125);
+
+        closedialog;
+        npctalk3 l("Thank you very much!");
+        close;
+    }
+
+    function enora_fourth_quest {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Awesome!");
+
+        speech S_LAST_NEXT,
+            l("I have one more task for you. Trozz, another member of the Legion, sent me a letter earlier today."),
+            l("Some citizens are worried about the growing number of Fluffies on the hill of Artis."),
+            l("Children play there and can be badly hurt if they get too close to a Fluffy's nest."),
+            l("It would have been easy for me to handle it but if you do it, you can earn some respect by killing Fluffies instead of their natural predators!"),
+            l("Besides, I need to be here to watch out for thieves while La Johanne is docked."),
+            l("You look confident. I will give you my old gear as reward and acknowledgment for your time... and take these potions as well!");
+
+        set ArtisFluffyKilled, 0;
+
+        inventoryplace TrainingGladius, 3;
+        getitem TrainingGladius, 1;
+        getitem2 ArtisTankTop, 1, 1, 0, 0, 5005, 0, 0, 0;
+        getitem PiberriesInfusion, 5;
+        setq ArtisQuests_Enora, 10;
+        enora_reward(80, 175);
+
+        speech S_LAST_NEXT,
+            l("Do you know where the hill is?");
+
+        switch (select(l("Yes I do."),
+                        l("Please guide me.")))
+        {
+            case 1:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Perfect! I will wait for you here.");
+                break;
+            case 2:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Follow the up-stream and cross the canal twice using the two bridges north from here."),
+                    l("The hill is located on the north-east of Artis.");
+                break;
+        }
+
+        closedialog;
+        npctalk3 l("Thank you very much!");
+        close;
+    }
+
+    function enora_hill_cleaned {
+        if (getq2(ArtisQuests_Enora) < 9)
+        {
+            speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                l("Oh no, you still have @@ Fluffies to kill.", 10 - getq2(ArtisQuests_Enora));
+
+            return;
+        }
+        else if (getq2(ArtisQuests_Enora) < 10)
+        {
+            speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                l("Only one more Fluffy to kill and it's done!");
+
+            return;
+        }
+
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("I cannot find the words to express my gratitude for your hard work."),
+            l("Keep the sword and the jacket, you deserved them!"),
+            l("You now also have access to the Legion building. Good job, you earned it."),
+            l("We hold various training sessions, and also have a task board with a heap of things to do for the city and its surroundings."),
+            l("It's a very good place if you want to make some more money.");
+            emotion E_WINK;
+
+        if (getq(ArtisQuests_Enora) == 10)
+        {
+            setq ArtisQuests_Enora, 11;
+            enora_reward(140, 500);
+        }
+
+        return;
+    }
+
+    function enora_quest_complete {
+        switch (getq(ArtisQuests_Enora))
+        {
+            case 4:
+                enora_second_quest;
+                break;
+            case 6:
+                enora_third_quest;
+                break;
+            case 9:
+                enora_fourth_quest;
+                break;
+            default:
+                break;
+        }
+
+        return;
+    }
+
+    function enora_paid_potions {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            lg("Are you sure that these are my potions?");
+
+        if (askyesno() == ASK_YES)
+        {
+            delitem PiberriesInfusion, 5;
+            enora_fourth_quest;
+        }
+
+        return;
+    }
+
+    if (getq(ArtisQuests_Enora) == 0)
+    {
+        speech S_LAST_NEXT,
+            l("Hey! You must be @@.", strcharinfo(0)),
+            lg("Julia told me how they found you in the sea, on a raft with a logo of..."),
+            l("...I mean log! Made of log!"),
+            l("I also heard you lost all your memories? That's a shame."),
+            l("I'm sure you would have some interesting stories to tell!");
+    }
+    else
+    {
+        speech S_LAST_NEXT,
+            l("Hey @@!", strcharinfo(0)),
+            l("What brings you here today?");
+    }
+
+    do
+    {
+        .@q = getq(ArtisQuests_Enora);
+        select
+            rif(.@q == 0, l("She told me that you had some tasks for me.")),
+            rif(.@q == 4 || .@q == 6 || .@q == 9, l("I have your package.")),
+            rif(.@q == 8 && countitem(PiberriesInfusion) >= 5, l("I have your package.")),
+            rif(.@q >= 10, l("I cleaned up the hill.")),
+            rif(.@q >= 10, l("How many Fluffies did I kill on the hill?")),
+            rif(.@q >= 1, l("Who is Don?")),
+            rif(.@q >= 5, l("Where is the light armor shop?")),
+            rif(.@q >= 7, l("Where is the market?")),
+            rif(.@q >= 10, l("Where is the hill?")),
+            rif(.@q >= 1, l("What is this \"legion\"?")),
+            l("I wish I could remember something..."),
+            rif(.@q != 0, l("Nothing."));
+
+        switch (@menu)
+        {
+            case 1:
+                enora_first_quest;
+                break;
+            case 2:
+                enora_quest_complete;
+                break;
+            case 3:
+                enora_paid_potions;
+                break;
+            case 4:
+                enora_hill_cleaned;
+                break;
+            case 5:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("You killed @@ Fluffies.", getq2(ArtisQuests_Enora));
+                if (getq2(ArtisQuests_Enora) > 8)
+                {
+                    mesq l("If you continue there will be none left!");
+                    next;
+                }
+                break;
+            case 6:
+                enora_don;
+            case 7:
+                enora_light_armor;
+                break;
+            case 8:
+                enora_market;
+                break;
+            case 9:
+                enora_hill;
+                break;
+            case 10:
+                enora_legion;
+                break;
+            case 11:
+                enora_memories;
+                break;
+            case 12:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Please come back anytime!");
+        }
+    } while (@menu != 12);
+
+    closedialog;
+    goodbye;
+    close;
+
+OnInit:
+    .sex = G_FEMALE;
+    .distance = 5;
+    end;
+}
+
+001-1,0,0,0	script	Mobs#001-1	NPC_HIDDEN,{
+    end;
+
+OnNPCKillEvent:
+    if (getq(ArtisQuests_Enora) == 10
+             && killedrid == Fluffy
+             && strcharinfo(PC_MAP) == "001-1"
+             && getq2(ArtisQuests_Enora) < 10)
+    {
+        setq(ArtisQuests_Enora, 10, getq2(ArtisQuests_Enora) + 1);
+    }
+    end;
+}
diff --git a/npc/001-1/eugene.txt b/npc/001-1/eugene.txt
new file mode 100644
index 000000000..442b950d8
--- /dev/null
+++ b/npc/001-1/eugene.txt
@@ -0,0 +1,84 @@
+// Evol scripts.
+// Authors:
+//    Reid
+//    Travolta
+// Description:
+//    Fishman NPC
+// Quest variable:
+//    ArtisQuests_Fishman
+// Quest stages:
+//    0 - not started
+//    1 - Eugene asked for items
+//    2 - completed
+
+001-1,113,120,0	script	Eugene	NPC_EUGENE,{
+
+    .BaitID = SmallTentacles;
+    .BaitCount = 10;
+
+    narrator S_LAST_NEXT,
+        l("You see a raijin boy, sitting on the edge of the dock."),
+        l("He's holding a fishing rod, while gazing out at the sea.");
+
+    .@q = getq(ArtisQuests_Fishman);
+    if (.@q == 1) goto L_CheckItems;
+    if (.@q == 2) goto L_QuestDone;
+
+    speech S_LAST_BLANK_LINE,
+        l("Ahoi."),
+        l("Hey, check out my brand new fishing rod. I bought it just today."),
+        l("I was so excited, I wanted to try it as soon as possible."),
+        l("So in a hurry, I forgot to take enough bait for fishing."),
+        lg("Be a friend and bring me @@ @@.", "Be a friend and bring me @@ @@.", .BaitCount, getitemlink(.BaitID));
+
+    switch (select(l("I'll be back in no time."),
+                   l("Sorry, I'm doing other things at the moment.")))
+    {
+        case 1:
+            setq ArtisQuests_Fishman, 1;
+            speech S_FIRST_BLANK_LINE,
+                l("Thank you. I'll wait here.");
+            close;
+        case 2:
+            speech S_FIRST_BLANK_LINE,
+                l("But I'm almost out of @@...", getitemlink(.BaitID));
+            close;
+    }
+
+L_CheckItems:
+    if (countitem(.BaitID) < .BaitCount)
+    {
+        speech
+            l("Sorry, but you don't have what I need."),
+            l("I need @@ @@.", .BaitCount, getitemlink(.BaitID));
+        close;
+    }
+
+    speech
+        l("That's exactly what I needed!"),
+        l("To thank you, accept my old fishing rod."),
+        l("It's not as good as my new one, but still very useful."),
+        l("Just look at that water! There's a whole bunch of fish down there."),
+        l("Oh, and you will need this book too, it will help you learn the basics of fishing."),
+        lg("You might even get lucky, and get a @@.",
+           "You might even get lucky, and get a @@.", getitemlink(GrassCarp)),
+        l("Have a good time fishing!");
+
+    delitem .BaitID, .BaitCount;
+    getitem FishingRod, 1;
+    getitem FishingGuideVolI, 1;
+    setq ArtisQuests_Fishman, 2;
+    close;
+
+L_QuestDone:
+    // Idea for future: Eugene telling fishman jokes.
+    speech
+        l("Ahoy, @@!", strcharinfo(0)),
+        l("Are the fish biting today?");
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 2;
+    end;
+}
diff --git a/npc/001-1/fexil.txt b/npc/001-1/fexil.txt
new file mode 100644
index 000000000..55d87bc4e
--- /dev/null
+++ b/npc/001-1/fexil.txt
@@ -0,0 +1,144 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Newbie merchant.
+// Variables:
+//    ArtisQuests_Fexil
+// Quest states:
+//    0  -- not started
+//    1  -- Lloyd warned about the quest
+//    2  -- Fexil explain what he needs
+//    3  -- Fexil buy every fur that the pc bring to him
+
+001-1,47,134,0	script	Fexil#001-1	NPC_ELVEN_MAN_TRADER,{
+
+    function fexil_quest {
+        speech S_LAST_NEXT,
+            l("You know, the life of the merchant is hard. I really hope that Artis and the Merchant Guild will help me to succeed."),
+            l("Maybe you too you could help me?"),
+            l("I want to be the first merchant of this square to sell clothes made from @@s!", getitemlink(FluffyFur)),
+            l("I will buy all of the fur that you will bring me at a good price, let's say, 15 E piece."),
+            l("Do we have a deal?");
+
+        switch (select(l("Ok."), l("I don't want to be part of this joke.")))
+        {
+            case 1:
+                setq ArtisQuests_Fexil, 3;
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Awesome! I will wait for you here.");
+                break;
+            case 2:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Oh... Ok, I will be around here if you change your mind.");
+                break;
+        }
+        return;
+    }
+
+    mesn;
+    mesq lg("Greetings traveler.");
+    next;
+    mesq l("I have some clothes and other things for you at a fine price!");
+    next;
+    mesq l("What I sell comes from every corner of Gasaron.");
+    next;
+    mesq lg("Interested?");
+    next;
+
+    if (getq(ArtisQuests_Fexil) == 1)
+    {
+        select(l("I have your pass from the Merchant Guild."));
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Oh! You saved me, I was too afraid to unpack my stuff without this pass."),
+            l("Hey, I remember you, we were on the same boat, you are the castaway.");
+
+        switch (select(l("Yes I am."),
+                        l("You're confusing me with someone else.")))
+        {
+            case 1:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Oh sure I remember you."),
+                    l("The travel was fine for you? It was terrible for me, I was sea-sick.");
+                break;
+            case 2:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Ah, I didn't have much sleep, it's possible.");
+                break;
+        }
+        setq ArtisQuests_Fexil, 2;
+        fexil_quest;
+
+        closedialog;
+        goodbye;
+        close;
+    }
+
+    .@fexil = getq(ArtisQuests_Fexil);
+
+    select
+        l("OK, let's trade."),
+        rif(.@fexil == 2, l("Do you still need help?")),
+        rif(.@fexil > 2 && countitem(FluffyFur) > 0, l("I have some fur for you.")),
+        l("No. Sorry.");
+
+    switch (@menu)
+    {
+        case 1:
+            closedialog;
+            shop "Bag#001-1";
+            close;
+
+        case 2:
+            mes "";
+            fexil_quest;
+            break;
+
+        case 3:
+            speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                l("Awesome. How many of those do you want to give me?");
+
+            do
+            {
+                input .@amount;
+                if (.@amount < 1)
+                {
+                    speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                        l("Please enter a valid amount.");
+                    continue;
+                }
+                if (.@amount > countitem(FluffyFur))
+                {
+                    speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                        l("You don't have enough @@s on you.", getitemlink(FluffyFur));
+                    continue;
+                }
+
+                break;
+            } while (1);
+
+            .@price = 15 * .@amount;
+            speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                l("Deal, I offer you @@ E!", .@price);
+
+            delitem FluffyFur, .@amount;
+            Zeny = Zeny + .@price;
+
+            break;
+
+        case 4:
+            speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                l("Oh... Well, I just started to trade... Thus my technique may not be the best."),
+                lg("Anyway, if you ever feel interested, just check my bag!");
+            break;
+    }
+
+    closedialog;
+    goodbye;
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 2;
+    end;
+}
diff --git a/npc/001-1/flyingpiou.txt b/npc/001-1/flyingpiou.txt
new file mode 100644
index 000000000..f6132f6b9
--- /dev/null
+++ b/npc/001-1/flyingpiou.txt
@@ -0,0 +1,161 @@
+// Evol scripts.
+// Author:
+//    Travolta
+// Description:
+//    Pious flying around town
+// Variables:
+//    none
+
+function	script	ArtisFlyingPiouLogic	{
+    .@tick = gettimetick(1);
+    .@LastTimeTouched = getvariableofnpc(.LastTimeTouched, strnpcinfo(3));
+    if (.@tick > .@LastTimeTouched + 300)
+    {
+        .speed = 200;
+        set getvariableofnpc(.LastPlayerTouched, strnpcinfo(3)), -1;
+    }
+    .@rnd = rand(5) - 3;
+    if (.@rnd > 0)
+        return execmovecmd("wait " + .@rnd);
+    return 0;
+}
+
+001-1,53,117,0	script	#FlyingPiou1	NPC_FLYING_PIOU,{
+
+    function  TryCatchPiou {
+        .@agi = readparam(bAgi);
+        @ArtisQuests_CatchPiouTries += 1;
+        getmapxy(.@map$, .@x1, .@y1, 1);
+        getmapxy(.@map$, .@x2, .@y2, 0);
+        .@distance = distance(.@x1, .@y1, .@x2, .@y2);
+        .@chance = max(ArtisQuests_CatchPiou_Difficulcy,
+                       20 + .@distance * 5 - .@agi/10 -
+                       @ArtisQuests_CatchPiouTries);
+        return rand(.@chance);
+    }
+
+    .@charid = getcharid(0);
+    if (.LastPlayerTouched <= 0)
+    {
+        .LastPlayerTouched = .@charid;
+        @ArtisQuests_CatchPiouTries = 0;
+    }
+    else if (.LastPlayerTouched != .@charid)
+    {
+        message strcharinfo(0), l("Hm, it seems another player is trying to catch the piou, I shouldn't interfere.");
+        end;
+    }
+
+    .@q = getq(ArtisQuests_CatchPiou);
+    if (.@q != 1)
+    {
+        mesn "Narrator";
+        mes col(l("You scare the piou, but let it go."), 9);
+        close;
+    }
+
+    .@tick = gettimetick(1);
+    if (.@tick < .LastTimeTouched + min(4, ArtisQuests_CatchPiou_Difficulcy
+                                        + @ArtisQuests_CatchPiouTries / 3))
+    {
+        message strcharinfo(0), l("Dang, I scared it! More patience, @@, more patience.", strcharinfo(0));
+        .LastTimeTouched = .@tick;
+        specialeffect(33, SELF);
+        end;
+    }
+
+    .LastTimeTouched = .@tick;
+
+    .@rnd = TryCatchPiou();
+    if (!.@rnd)
+    {
+        npcstop;
+        stopnpctimer;
+        getmapxy(.@map$, .@x, .@y, 1);
+        npcwalkto .@x, .@y;
+        .@trader$ = "Salem#001-1";
+        mesn "Narrator";
+        mes col(l("You caught the piou, but it's trying to escape from you. You'd better hurry back to Salem."), 9);
+        set getvariableofnpc(.LastPiouHunter$, .@trader$), strcharinfo(0);
+        set getvariableofnpc(.PiouEscapedMessage$, .@trader$), l("Oh no, the piou escaped!");
+        set getvariableofnpc(.LastPiouHunterID, .@trader$), .@charid;
+        set getvariableofnpc(.PiouCaught, .@trader$), 1;
+        donpcevent .@trader$ + "::OnPiouFlee";
+        specialeffect(26, SELF);
+        close2;
+        disablenpc strnpcinfo(3);
+        close;
+    }
+    else
+    {
+        setarray .RandomFailureMessages$[0], l("So close!"), l("It escaped!"), l("Almost got it!"), l("Oh, the little...");
+        .@r = rand(getarraysize(.RandomFailureMessages$));
+        message strcharinfo(0), .RandomFailureMessages$[.@r];
+        .speed = max(140, 200 - 10 * (@ArtisQuests_CatchPiouTries +
+                     ArtisQuests_CatchPiou_Difficulcy));
+        specialeffect(33, SELF);
+    }
+    end;
+
+OnHour00:
+    .LastTimeTouched = 0;
+    end;
+
+OnTimer1000:
+    dographmovestep;
+
+OnInit:
+    .sex = G_OTHER;
+    .distance = 5;
+    .walkmask = WALK_WATER;
+    // .debug = 1;
+
+    initmovegraph "market_start",    53,  117,
+                  "fountain",        79,  75,  102, 91,
+                  "river_bank_1",    107, 94,  117, 102,
+                  "river_bank_2",    117, 110,
+                  "chelios_right",   100, 112, 113, 118,
+                  "chelios_left",    80,  95,  93,  111,
+                  "market_right",    74,  114, 83,  121,
+                  "market_center",   50,  113, 66,  121,
+                  "market_left",     36,  120, 42,  128,
+                  "batiment_inside", 48,  138, 65,  106,
+                  "batiment_behind", 33,  90,  41,  103,
+                  "library_front",   42,  82,  63,  90,
+                  "taree_yard",      69,  82,
+                  "taree_behind",    61,  62,  76,  71,
+                  "townhall_behind", 73,  40,  93,  55,
+                  "townhall_right",  99,  55,  106, 60,
+                  "inn_behind",      107, 63,  123, 76
+                  ;
+
+    setmovegraphcmd "fountain",       "river_bank_1",   1, "call ArtisFlyingPiouLogic",
+                    "river_bank_1",   "river_bank_2",   1, "call ArtisFlyingPiouLogic",
+                    "river_bank_2",   "chelios_right",  2, "call ArtisFlyingPiouLogic",
+                    "chelios_right",  "chelios_left",   1, "call ArtisFlyingPiouLogic",
+                    "chelios_left",   "fountain",       1, "wait 1; call ArtisFlyingPiouLogic",
+                    "chelios_left",   "market_right",   1, "call ArtisFlyingPiouLogic",
+                    "chelios_right",  "market_right",   1, "call ArtisFlyingPiouLogic",
+                    "market_right",   "market_center",  1, "call ArtisFlyingPiouLogic",
+                    "market_center",  "batiment_inside",1, "call ArtisFlyingPiouLogic",
+                    "batiment_inside","library_front",  1, "call ArtisFlyingPiouLogic",
+                    "library_front",  "taree_yard",     1, "call ArtisFlyingPiouLogic",
+                    "library_front",  "taree_behind",   1, "call ArtisFlyingPiouLogic",
+                    "library_front",  "batiment_behind",1, "call ArtisFlyingPiouLogic",
+                    "batiment_behind","market_left",    1, "wait 3; call ArtisFlyingPiouLogic",
+                    "market_left",    "market_center",  1, "call ArtisFlyingPiouLogic",
+                    "taree_yard",     "fountain",       1, "call ArtisFlyingPiouLogic",
+                    "taree_behind",   "townhall_behind",1, "call ArtisFlyingPiouLogic",
+                    "townhall_behind","townhall_right", 1, "call ArtisFlyingPiouLogic",
+                    "townhall_right", "inn_behind",     1, "call ArtisFlyingPiouLogic",
+                    "inn_behind",     "fountain",       1, "wait 2; call ArtisFlyingPiouLogic",
+                    "inn_behind",     "river_bank_1",   1, "call ArtisFlyingPiouLogic",
+                    "market_start",   "batiment_inside",1, "call ArtisFlyingPiouLogic"
+                    ;
+
+    firstmove "speed 200", "market_start";
+    initnpctimer;
+
+    .LastPlayerTouched = -1;
+    end;
+}
diff --git a/npc/001-1/harbours.txt b/npc/001-1/harbours.txt
new file mode 100644
index 000000000..f1db3fceb
--- /dev/null
+++ b/npc/001-1/harbours.txt
@@ -0,0 +1,84 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Harbour animated tiles.
+// Animation:
+//    Length: 1680
+// Values:
+//    2   Hook moving down.
+//    4   Hook moving up.
+//    6   Hook down.
+//    8   Hook up.
+
+001-1,183,85,0	script	#Harbour1	NPC_HARBOUR_WHEEL_BOX,{
+    harbourClic;
+
+OnTimer1670:
+    harbourTimer;
+
+OnInit:
+    .distance = 1;
+    .alwaysVisible = true;
+    end;
+}
+
+001-1,183,89,0	script	#Harbour2	NPC_HARBOUR_WHEEL,{
+    harbourClic;
+
+OnTimer1670:
+    harbourTimer;
+
+OnInit:
+    .distance = 1;
+    .alwaysVisible = true;
+    end;
+}
+
+001-1,198,115,0	script	#Harbour3	NPC_HARBOUR_WHEEL_BOX,{
+    harbourClic;
+
+OnTimer1670:
+    harbourTimer;
+
+OnInit:
+    .distance = 1;
+    .alwaysVisible = true;
+    end;
+}
+
+001-1,175,119,0	script	#Harbour4	NPC_HARBOUR_WHEEL_BOX,{
+    harbourClic;
+
+OnTimer1670:
+    harbourTimer;
+
+OnInit:
+    .distance = 1;
+    .alwaysVisible = true;
+    end;
+}
+
+001-1,198,92,0	script	#Harbour5	NPC_HARBOUR_WHEEL_BOX,{
+    harbourClic;
+
+OnTimer1670:
+    harbourTimer;
+
+OnInit:
+    .distance = 1;
+    .alwaysVisible = true;
+    end;
+}
+
+001-1,151,117,0	script	#Harbour6	NPC_HARBOUR_WHEEL,{
+    harbourClic;
+
+OnTimer1670:
+    harbourTimer;
+
+OnInit:
+    .distance = 1;
+    .alwaysVisible = true;
+    end;
+}
diff --git a/npc/001-1/hinnack.txt b/npc/001-1/hinnack.txt
new file mode 100644
index 000000000..5cd7b87a4
--- /dev/null
+++ b/npc/001-1/hinnack.txt
@@ -0,0 +1,76 @@
+// Evol scripts.
+// Authors:
+//    Saulc
+// Description:
+//   NPC test fork from moon
+// Variables:
+//    ArtisQuests_Apana  - quest var
+// Quest stages:
+//    0  - not started
+//    1  - started, searching for Bug Leg
+//    2  - quest finished
+
+001-1,85,110,0	script	hinnack	NPC_PLAYER,{
+
+    .BaitID = BugLeg;
+    .BaitCount = 12;
+
+    .@q = getq(ArtisQuests_Apana);
+    if (.@q == 1) goto L_CheckItems;
+    if (.@q == 2) goto L_QuestDone;
+
+    speech S_LAST_BLANK_LINE,
+        l("I made a figurin with Bug legs."),
+        lg("Be a friend and bring me @@ @@.", "Be a friend and bring me @@ @@.", .BaitCount, getitemlink(.BaitID));
+
+    switch (select(l("I'll be back in no time."),
+                   l("Sorry, I'm doing other things at the moment.")))
+    {
+        case 1:
+            setq ArtisQuests_Apana, 1;
+            speech S_FIRST_BLANK_LINE,
+                l("Thank you. I'll wait here.");
+            close;
+        case 2:
+            speech S_FIRST_BLANK_LINE,
+                l("But I'm almost out of @@...", getitemlink(.BaitID));
+            close;
+    }
+
+L_CheckItems:
+    if (countitem(.BaitID) < .BaitCount)
+    {
+        speech
+            l("Sorry, but you don't have what I need."),
+            l("I need @@ @@.", .BaitCount, getitemlink(.BaitID));
+        close;
+    }
+
+    speech
+        l("That's exactly what I needed!"),
+        l("To thank you, accept my old fishing rod."),
+        l("It's not as good as my new one, but still very useful."),
+        l("Just look at that water! There's a whole bunch of fish down there."),
+        l("Oh, and you will need this book too, it will help you learn the basics of fishing."),
+        lg("You might even get lucky, and get a @@.",
+           "You might even get lucky, and get a @@.", getitemlink(GrassCarp)),
+        l("Have a good time fishing!");
+
+    delitem .BaitID, .BaitCount;
+    Zeny = Zeny + 1000;
+    message strcharinfo(0), l("You receive @@ E!", 1000);
+    setq ArtisQuests_Apana, 2;
+    close;
+
+L_QuestDone:
+    // Idea for future: Eugene telling fishman jokes.
+    speech
+        l("Ahoy, @@!", strcharinfo(0)),
+        l("Are the fish biting today?");
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 3;
+    end;
+}
\ No newline at end of file
diff --git a/npc/001-1/juscare.txt b/npc/001-1/juscare.txt
new file mode 100644
index 000000000..393186fa3
--- /dev/null
+++ b/npc/001-1/juscare.txt
@@ -0,0 +1,93 @@
+// Evol scripts.
+// Authors:
+//    Reid
+//    Travolta
+// Description:
+//    Juscare, walking NPC of the Legion of Aemil on the right part of the Agora of Artis.
+
+001-1,118,92,0	script	Juscare#001-1	NPC_HUMAN_MALE_LEGION_ARTIS,{
+
+    function shouldTurn {
+        .@tree = findmovegraphlabel("inn_tree");
+        .@table = findmovegraphlabel("inter_inn_fav_table");
+        if (.movepos == .@tree || .movepos == .@table)
+            return 0;
+        return 1;
+    }
+
+    function localClose {
+        if (@Juscar_old_dir > 0)
+            .dir = @Juscar_old_dir;
+        npc_resumemove;
+        close;
+    }
+
+    npc_pausemove;
+    @Juscar_old_dir = -1;
+    if (shouldTurn())
+    {
+        getmapxy(.@map$, .@cx, .@cy, 0);
+        @Juscar_old_dir = .dir;
+        npc_turntoxy(.@cx, .@cy);
+    }
+
+    villagertalk();
+
+    localClose;
+
+OnTimer1000:
+    dographmovestep;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 4;
+    // .debug = 1;
+    initmovegraph
+        "inn_front",    112,  90,  119, 93,
+        "inn_tree",     108,  82,
+        "fountain",     87,   85,  91,  86,
+        "chelios",      93,   109,
+        "chelios_road", 89,   107,
+        "chelios",      93,   109,
+        "to_market",    76,   119,
+        "market",       60,   115, 65,  121,
+        "fishing_spot", 109,  127,
+        "river_bank",   113,  105,
+        "eugene",       112,  115,
+        "inn_door",     118,  89,
+        "inn_doorstep", 118,  88,
+        "inter_inn_doorstep",  29, 43,
+        "inter_inn_2tables",   38, 31,
+        "inter_inn_fav_table", 51, 33;
+
+    // this is not very obvious stuff
+    setmovegraphcmd
+        "inn_front",    "inn_door",  1, 0x1,    "flags_0 2; dir 4; call open_door #001-1_118_88",
+        "inn_front",    "inn_tree",  2,         "dir 2; wait 1; sit; wait 1; emote 106; wait 20; stand; wait 1",
+        "inn_front",    "river_bank",1,         "flags_0 8; flags_1 4",
+        "river_bank",   "eugene",    1, 0x4,    "moveon",
+        "eugene",       "fishing_spot", 1, 0x4, "wait 7",
+        "fishing_spot", "chelios",   1, 0x4,    "dir 6; wait 1; emote 103; wait 10",
+        "inn_tree",     "inn_door",  1,         "flags_1 1; flags_0 2; dir 4; call open_door #001-1_118_88",
+        "inn_tree",     "fountain",  2,         "dir 4; wait 1; emote 122; wait 10; dir 0; wait 1",
+        "fountain",     "chelios_road",         "moveon",
+        "chelios_road", "chelios",              "dir 6; wait 1; emote 103; wait 7",
+        "chelios",      "eugene",               "flags_1 28; flags_0 4",
+        "chelios",      "to_market", 2, 0x20,   "flags_1 20; flags_0 10",
+        "to_market",    "market",    1, 0x20,   "flags_1 10; flags_0 20; wait 20",
+        "market",       "to_market",            "moveon",
+        "to_market",    "chelios",   1, 0x10,   "flags_0 10; dir 6; wait 3",
+        "fishing_spot", "eugene",    1, 0x8,    "moveon",
+        "eugene",       "river_bank",1, 0x8,    "moveon",
+        "river_bank",   "inn_front", 1, 0x8,    "dir 0; wait 5",
+        "inn_door",     "inn_doorstep",1, 0x1,  "warp 001-2-28 inter_inn_doorstep; call close_door #001-1_118_88",
+        "inter_inn_doorstep",  "inter_inn_2tables",   1, 0x1, "moveon",
+        "inter_inn_2tables",   "inter_inn_fav_table", 1, 0x1, "flags_1 2; flags_0 1; dir 6; wait 1; sit; wait 15; stand; wait 1",
+        "inter_inn_fav_table", "inter_inn_2tables",   1, 0x2, "moveon",
+        "inter_inn_2tables",   "inter_inn_doorstep",  1, 0x2, "call open_door #001-1_118_88; warp 001-1 inn_doorstep",
+        "inn_doorstep",        "inn_door",            1, 0x2, "call close_door #001-1_118_88",
+        "inn_door",            "inn_front",           1, 0x2, "flags_1 1; flags_0 2; wait 10";
+
+    firstmove "wait 4", "inn_front";
+    initnpctimer;
+}
diff --git a/npc/001-1/karim.txt b/npc/001-1/karim.txt
new file mode 100644
index 000000000..f20c1bad5
--- /dev/null
+++ b/npc/001-1/karim.txt
@@ -0,0 +1,117 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Blacksmith's assistant of Artis
+// Variables:
+//    ArtisQuests_Enora
+// Values:
+//    0    Default.
+//    1    BlackSmith quest delivered.
+//    2    Chelios Quest given.
+//    3    Chelios Quest done.
+//    4    BlackSmith gave the sword.
+
+001-1,87,114,0	script	karim	NPC_PLAYER,{
+
+    function give_small_quest {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Her sword... I'm having some trouble finishing it."),
+            l("You see, Enora asked me to do a black iron sword, unfortunately I ran out of the material needed, and..."),
+            l("Only Don and the Merchant Guild have that kind of material in stock. It's called black iron."),
+            l("It's better to deal with the Merchant Guild than the old man, Don has this ability to hammer down your enthusiasm in sparkling fury!"),
+            l("If Enora wants her sword now, I need to ask for your help.");
+
+        switch (select(l("Let's not keep her waiting."),
+                        l("Not now.")))
+        {
+            case 1:
+                break;
+            case 2:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    lg("I'll be here, come back when you'll be ready.");
+
+                return;
+        }
+
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Thank you very much!"),
+            l("Talk with Lloyd the Banker in the Merchant Guild, it's a big building in the northern side of Artis, at the top of the small hill.");
+
+        setq ArtisQuests_Enora, 2;
+
+        return;
+    }
+
+    function more_info {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("It's the big building in northern Artis, at the top of a small hill."),
+            l("Take the east road that goes to the north and follow it until you are on top of the cliff."),
+            l("That part of the town is called the Gilded Hill, it's also where the Merchant Guild has its headquarters."), //rich hill
+            l("Lloyd still owes me, but beware of those money-grabbers, or they might sell your own teeth to you!");
+
+        return;
+    }
+
+    function quest_completed {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Oh... Awesome!"),
+            l("You were gone so I thought you let me down."),
+            l("Don gave me some black iron... after I asked him nearly ten times."),
+            l("But thank you anyway! I can refund him now!"),
+            l("Take the sword, and say hi to Enora for me!");
+
+        setq ArtisQuests_Enora, 4;
+
+        return;
+    }
+
+    function blacksmith_house{
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Behind me? It's the Blacksmith House, the most renowned throughout Aemil."),
+            l("There are two shops inside, they are independent from the Merchant Guild of Artis."),
+            l("Now that I think about it, they are the only shops that are independent in Artis..."),
+            l("...it might be because of Don... he is the master blacksmith of this place and a model to me!");
+
+        return;
+    }
+
+    speech S_LAST_NEXT, l("Can I be of any help?");
+
+    do
+    {
+        .@enora = getq(ArtisQuests_Enora);
+        select
+            rif(.@enora == 1, lg("I came to retrieve a package for Enora.")),
+            rif(.@enora == 3, l("I have your black iron.")),
+            rif(.@enora >= 2, l("Where is the Merchant Guild?")),
+            l("What is this building?"),
+            menuaction(l("Quit"));
+
+        switch (@menu)
+        {
+            case 1:
+                give_small_quest;
+                break;
+            case 2:
+                quest_completed;
+                break;
+            case 3:
+                more_info;
+                break;
+            case 4:
+                blacksmith_house;
+                break;
+        }
+    } while (@menu != 5);
+
+    closedialog;
+    goodbye;
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 3;
+    end;
+}
+
diff --git a/npc/001-1/katja.txt b/npc/001-1/katja.txt
new file mode 100644
index 000000000..2d79a7306
--- /dev/null
+++ b/npc/001-1/katja.txt
@@ -0,0 +1,129 @@
+// Evol scripts.
+// Authors:
+//    Reid
+//    Travolta
+// Description:
+//    Little girl playing around the hill on top of the port.
+//    She wants you to find her brother.
+// Variables:
+//    AtrilQuests_LazyBrother = 19  -- quest var
+//    LazyBrother_TreesLeft = 15    -- how many trees left to search
+//    LazyBrother_TreeSearched[15]  -- whether given tree was searched
+//    LazyBrother_TreeWithBrother   -- the number of tree where he's hiding
+// Quest states:
+//    0  - quest not started
+//    1  - Katja asked help, searching the trees
+//    2  - Bobo is found, "bad" ending
+//    3  - player decided to tell Katja where her brother is
+//    4  - "good" ending, player helped Katja
+
+001-1,164,44,0	script	Katja#001-1	NPC_RAIJIN_GIRL,{
+
+    function QuestReminder {
+        setcam 5920, 960;
+        mesq l("Remember, you have to find my brother on the hill east of here.");
+        next;
+        mesq l("He is probably hiding up one of the trees. Go close to each tree and look up, otherwise you won't notice him.");
+        next;
+        restorecam;
+    }
+
+    .@q = getq(ArtisQuests_LazyBrother);
+    mesn;
+    mesq l("Hey");
+    next;
+    switch(.@q)
+    {
+        case 0:
+            mesq l("You look nice, do you want to help me?");
+            break;
+        case 1:
+            mesq l("Hi, how is it going?");
+            next;
+            select l("Remind me, what should I do?");
+            mes "";
+            mesn;
+            QuestReminder;
+            close;
+        case 2:
+            mesq l("I still didn't find my brother...");
+            close;
+        case 3:
+            mesq l("Did you find my brother?");
+            next;
+            select(l("Yes, and he promised to be home soon."));
+            mes "";
+            mesn;
+            mesq l("Oh thank you so much!");
+            next;
+            mesq l("Please take this @@ for your help.", getitemlink(Aquada)); // Need a different reward.
+            setq ArtisQuests_LazyBrother, 4;
+            getitem Aquada, 1;
+            getexp 500, 0;
+            close;
+        case 4:
+            mesq l("Thank you again for your help!");
+            close;
+    }
+    next;
+
+    switch (select(l("Of course!"),
+                   l("What kind of help do you need?"),
+                   l("I don't have much time right now.")))
+    {
+        case 1:
+            mes "";
+            mesn;
+            mesq l("Great!");
+            emotion E_JOY;
+            next;
+            break;
+        case 2:
+            mes "";
+            mesn;
+            break;
+        case 3:
+            mes "";
+            mesn;
+            mesq l("Okay, I'll be here, if you change your mind.");
+            emotion E_SAD;
+            close;
+    }
+
+L_Story:
+    mesq l("Mommy sent me to find my brother Bobo.");
+    next;
+    mesq l("He said he is going to climb the highest hill in Artis, which is not far from here.");
+    next;
+    mesq l("Our mommy doesn't allow us to go there, because it's dangerous. But he doesn't listen!");
+    next;
+    mesq l("Can you please go there and find him? He is probably hiding in one of those trees, like always.");
+    next;
+    mesq l("Because of the dense foliage, you need to go up close to the trees so you don't miss him.");
+    next;
+
+    switch (select(l("I will find him, don't worry!"),
+                   l("Highest hill in Artis you say? Sounds dangerous, I might fall off.")))
+    {
+        case 1:
+            mes "";
+            mesn;
+            mesq l("Thank you!");
+            mes "";
+            QuestReminder;
+            setq ArtisQuests_LazyBrother, 1;
+            LazyBrother_TreesLeft = 15;
+            close;
+        case 2:
+            mes "";
+            mesn;
+            mesq l("Aw, what will I do now?");
+            close;
+    }
+
+OnInit:
+    .sex = G_FEMALE;
+    .distance = 4;
+    end;
+}
+
diff --git a/npc/001-1/lucas.txt b/npc/001-1/lucas.txt
new file mode 100644
index 000000000..4058d72e3
--- /dev/null
+++ b/npc/001-1/lucas.txt
@@ -0,0 +1,19 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Legion member.
+
+001-1,59,44,0	script	Lucas#001-1	NPC_LUCAS,{
+
+    villagertalk();
+
+    closedialog;
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 3;
+    end;
+}
+
diff --git a/npc/001-1/manhole.txt b/npc/001-1/manhole.txt
new file mode 100644
index 000000000..f2bae5f09
--- /dev/null
+++ b/npc/001-1/manhole.txt
@@ -0,0 +1,56 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    A manhole near Mona's house.
+// Variable:
+//    ArtisQuests_MonaDad
+// Quest states:
+//    0  - Quest not started
+//    1  - Mona explained that her dad was missing
+
+001-1,152,52,0	script	#manhole1-001-1	NPC_NO_SPRITE,{
+
+    if (getq(ArtisQuests_MonaDad) < 1) {
+        end;
+    }
+
+    narrator(S_LAST_BLANK_LINE | S_LAST_NEXT,
+        l("You hear some creeping and crawling sounds from the murkiness below."),
+        l("..."),
+        l("Do you want to enter in sewer?"));
+
+    if (askyesno() == 1) {
+        cwarp("001-3-0", 152, 56);
+    }
+
+    bye;
+
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
+001-1,196,35,0	script	#manhole2-001-1	NPC_NO_SPRITE,{
+
+    if (getq(ArtisQuests_MonaDad) < 1) {
+        end;
+    }
+
+    narrator(S_LAST_BLANK_LINE | S_LAST_NEXT,
+        l("You hear some creeping and crawling sounds from the murkiness below."),
+        l("..."),
+        l("Do you want to enter in sewer?"));
+
+    if (askyesno() == 1) {
+        cwarp("001-3-0", 196, 36);
+    }
+
+    bye;
+
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
diff --git a/npc/001-1/mapflags.txt b/npc/001-1/mapflags.txt
new file mode 100644
index 000000000..3e5295014
--- /dev/null
+++ b/npc/001-1/mapflags.txt
@@ -0,0 +1 @@
+001-1	mapflag	town
diff --git a/npc/001-1/merlin.txt b/npc/001-1/merlin.txt
new file mode 100644
index 000000000..7a7c15906
--- /dev/null
+++ b/npc/001-1/merlin.txt
@@ -0,0 +1,25 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Fishmonger NPC
+
+001-1,73,128,0	script	Merlin	NPC_MERLIN,2,2,{
+
+OnTouch:
+    switch(rand(6))
+    {
+        case 0: npctalkonce(l("Fish, come and see my fish!")); break;
+        case 1: npctalkonce(l("They are fresh, they are good!")); break;
+        case 2: npctalkonce(l("Fresh from the sea and cheap!")); break;
+        case 3: npctalkonce(l("Come, come and see!")); break;
+        case 4: npctalkonce(l("They are fresh!")); break;
+        default: npctalkonce(l("Fish is good for the brain!"));
+    }
+    end;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 2;
+    end;
+}
diff --git a/npc/001-1/mouboo.txt b/npc/001-1/mouboo.txt
new file mode 100644
index 000000000..bee13d1e7
--- /dev/null
+++ b/npc/001-1/mouboo.txt
@@ -0,0 +1,65 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Mouboo on Taree's fence.
+
+001-1,67,79,4	script	Mouboo#Artis0	NPC_MOUBOO,{
+
+    moubootalk();
+    close;
+
+OnTimer2000:
+    moubootimer;
+
+OnInit:
+    .distance = 2;
+    .sex = G_OTHER;
+    .speed = 600;
+    mouboograph;
+}
+
+001-1,67,80,4	script	Mouboo#Artis1	NPC_MOUBOO,{
+
+    moubootalk();
+    close;
+
+OnTimer2000:
+    moubootimer;
+
+OnInit:
+    .distance = 2;
+    .sex = G_OTHER;
+    .speed = 600;
+    mouboograph;
+}
+
+001-1,67,81,4	script	Mouboo#Artis2	NPC_MOUBOO,{
+
+    moubootalk();
+    close;
+
+OnTimer2000:
+    moubootimer;
+
+OnInit:
+    .distance = 2;
+    .sex = G_OTHER;
+    .speed = 600;
+    mouboograph;
+}
+
+001-1,67,82,4	script	Mouboo#Artis3	NPC_MOUBOO,{
+
+    moubootalk();
+    close;
+
+OnTimer2000:
+    moubootimer;
+
+OnInit:
+    .distance = 2;
+    .sex = G_OTHER;
+    .speed = 600;
+    mouboograph;
+}
diff --git a/npc/001-1/nalkri.txt b/npc/001-1/nalkri.txt
new file mode 100644
index 000000000..e155a8a87
--- /dev/null
+++ b/npc/001-1/nalkri.txt
@@ -0,0 +1,59 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Nalkri, walking NPC of the Legion of Aemil on the west part of Artis.
+
+001-1,35,84,0	script	Nalkri#001-1	NPC_DEMON_MALE_LEGION_ARTIS,{
+    npctalk3 l("Stay clear.");
+    close;
+
+OnTimer1000:
+    domovestep;
+
+OnInit:
+    initpath "move", 56, 84,
+             "move", 60, 93,
+             "move", 68, 98,
+             "dir", DOWN, 0,
+             "wait", 1, 0,
+             "move", 68, 100,
+             "dir", RIGHT, 0,
+             "wait", 1, 0,
+             "dir", DOWN, 0,
+             "wait", 1, 0,
+             "dir", LEFT, 0,
+             "wait", 1, 0,
+             "dir", UP, 0,
+             "move", 67, 98,
+             "dir", RIGHT, 0,
+             "wait", 2, 0,
+             "move", 51, 101,
+             "dir", LEFT, 0,
+             "wait", 1, 0,
+             "dir", DOWN, 0,
+             "wait", 1, 0,
+             "dir", RIGHT, 0,
+             "wait", 1, 0,
+             "dir", UP, 0,
+             "move", 48, 100,
+             "dir", RIGHT, 0,
+             "wait", 1, 0,
+             "dir", DOWN, 0,
+             "wait", 1, 0,
+             "dir", LEFT, 0,
+             "wait", 1, 0,
+             "dir", RIGHT, 0,
+             "move", 55, 96,
+             "move", 43, 88,
+             "move", 35, 84,
+             "dir", LEFT, 0,
+             "wait", 1, 0,
+             "dir", DOWN, 0,
+             "wait", 4, 0,
+             "dir", RIGHT, 0,
+             "wait", 1, 0;
+
+    initialmove;
+    initnpctimer;
+}
diff --git a/npc/001-1/panels.txt b/npc/001-1/panels.txt
new file mode 100644
index 000000000..a82fbabd1
--- /dev/null
+++ b/npc/001-1/panels.txt
@@ -0,0 +1,57 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Panels to give advice and some random information to players.
+
+001-1,180,25,0	script	#ArtisPanel1	NPC_NO_SPRITE,{
+    narrator S_LAST_NEXT,
+        l("You step on something, a panel half overgrown by moss, it has writing on it...");
+
+    mesq l("Don't fall!");
+    next;
+    mesq l("You've reached the highest natural place of Artis, enjoy the view.");
+    next;
+
+    closedialog;
+    close;
+
+OnInit:
+    .distance = 2;
+    end;
+}
+
+001-1,95,51,0	script	#ArtisPanel2	NPC_NO_SPRITE,{
+    narrator S_LAST_NEXT,
+        l("You step on something, a shaky and fragile panel with barely visible inscriptions on it...");
+
+    mesq l("Beware of falling stones from the cliff!");
+    next;
+    mesq l("The other part of this sign has been crushed by a rock.");
+    next;
+
+    closedialog;
+    close;
+
+OnInit:
+    .distance = 2;
+    end;
+}
+
+001-1,103,66,0	script	#ArtisPanel3	NPC_NO_SPRITE,{
+    narrator S_LAST_NEXT,
+        l("You step on something, a panel with a bitten corner and clear inscriptions on it...");
+
+    mesq l("Warning! Dangerous fish, do not fall into the lake!");
+    next;
+    narrator S_LAST_NEXT,
+        l("Somebody tried to stroke the word \"fish\" and tried to replace it with \"sharkes\".");
+
+    closedialog;
+    close;
+
+OnInit:
+    .distance = 2;
+    end;
+}
+
diff --git a/npc/001-1/pious.txt b/npc/001-1/pious.txt
new file mode 100644
index 000000000..10f9d8e45
--- /dev/null
+++ b/npc/001-1/pious.txt
@@ -0,0 +1,16 @@
+// Evol scripts.
+// Author:
+//    Travolta
+// Description:
+//    Pious on Market
+// Variables:
+//    none
+
+001-1,55,119,0	script	#MarketPiou1	NPC_MARKET_PIOU,{
+    end;
+
+OnInit:
+    .sex = G_OTHER;
+    .distance = 2;
+    end;
+}
diff --git a/npc/001-1/qonan.txt b/npc/001-1/qonan.txt
new file mode 100644
index 000000000..fe255799f
--- /dev/null
+++ b/npc/001-1/qonan.txt
@@ -0,0 +1,111 @@
+// Evol scripts.
+// Authors:
+//    Reid
+//    Travolta
+// Description:
+//    Sailor of Nard's La Johanne ship.
+// ArtisQuests_QOnan -- quest variable:
+//    0  - not started
+//    1  - Q'Onan asked to find Chest
+//    2  - Chest found, heading back to Q'Onan
+//    3  - Quest completed
+
+001-1,186,107,0	script	Q'Onan#001-1	NPC_QONAN,{
+
+    .@q = getq(ArtisQuests_QOnan);
+    if (.@q == 1) goto L_QuestGiven;
+    if (.@q == 2) goto L_ItemFound;
+    if (.@q == 3) goto L_QuestDone;
+
+    speech S_LAST_BLANK_LINE,
+        l("We haven't met, right?"),
+        l("My name is Q'Onan, I'm a member of Nard's crew."),
+        l("I have a lot of work here, so I don't even have time to go to the town."),
+        l("Could you do a small favor for me?");
+
+    switch (select(l("Go on."), l("I don't have the time sorry.")))
+    {
+        case 2:
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("No problem, see you next time.");
+        closedialog;
+        close;
+    }
+
+    speech S_FIRST_BLANK_LINE | S_LAST_BLANK_LINE,
+        l("Before I joined Nard, I used to be a thief."),
+        l("I'm not proud of it, but I had to steal money from others to keep on living."),
+        l("Anyway, the last time I stole something I was almost caught."),
+        l("I robbed a nobleman, took a chest full of coins."),
+        l("But my luck left me, because as soon as I left his house, the guards started chasing me."),
+        l("It was at night, so I could barely escape. I ran to Artis hill."),
+        l("I was afraid to get busted, so I decided to get rid of the evidence."),
+        l("I buried the chest somewhere on that hill. It was dark, so I don't remember where to dig exactly."),
+        l("I'm afraid to go there myself, but if you take the risk, you can have half of the loot."),
+        l("So, what do you say?");
+
+    select
+        l("I like money! Consider it done."),
+        l("Too risky, I might end up in jail. Do it yourself.");
+
+    switch(@menu)
+    {
+        case 1:
+            setq ArtisQuests_QOnan, 1;
+            getrandompoint(178,26,182,29);
+            npcdebug "Chest buriad at (" + .move__rand_x + "," + .move__rand_y + ")";
+            shovel_addquest("001-1", .move__rand_x, .move__rand_y, "QOnanFoundItem");
+            speech S_FIRST_BLANK_LINE | S_LAST_BLANK_LINE,
+                l("Alright, you will need this shovel."),
+                l("You should check on the highest part of the cliff, I was hiding there."),
+                l("I hope to see you soon.");
+            getitem IronShovel, 1;
+            close;
+        case 2:
+            speech S_FIRST_BLANK_LINE | S_LAST_BLANK_LINE,
+                l("Come on, don't be a coward!"),
+                l("Anyway, let me know if you change your mind.");
+            close;
+    }
+
+L_QuestGiven:
+    speech S_LAST_NEXT, lg("I asked you to do me a favor, did you forget?");
+    select l("What should I do, again?");
+    speech S_FIRST_BLANK_LINE,
+        l("Please find the small chest, buried somewhere on Artis hill."),
+        l("You should check on the highest part of the cliff, I was hiding there."),
+        l("Bring it to me, and you will get your reward.");
+    close;
+
+L_ItemFound:
+    speech
+        l("After all this time, it was still there!"),
+        lg("We are very lucky, my friend."),
+        l("Let me open it with my key."),
+        l("Like I promised, here is your share."),
+        l("I can finally pay off my debts.");
+
+    Zeny += 1800;
+    setq ArtisQuests_QOnan, 3;
+    close;
+
+L_QuestDone:
+    speech l("Howdy, partner in crime?");
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 2;
+    .debug = 1;
+    end;
+}
+
+function	script	QOnanFoundItem	{
+    setq ArtisQuests_QOnan, 2;
+    // getitem SmallChest, 1;
+    narrator S_FIRST_BLANK_LINE,
+       l("You found a small chest, surprisingly heavy for it's size."),
+       l("It's probably full of coins, but no matter how hard you try to open it, you can't."),
+       l("Better take it back to Q'Onan.");
+    return;
+}
diff --git a/npc/001-1/qpid.txt b/npc/001-1/qpid.txt
new file mode 100644
index 000000000..d4194ddd5
--- /dev/null
+++ b/npc/001-1/qpid.txt
@@ -0,0 +1,170 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Potion seller, she is part of the Enora's noob quests.
+
+001-1,65,116,0	script	Q'Pid#001-1	NPC_QPID,{
+
+    function riddle_enigma {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Ok fine, you have up to 3 tries, here is the riddle:"),
+            l("What is growing and shrinking at the same time?");
+        narrator S_LAST_NEXT,
+            l("You need to type the answer of this riddle in the NPC window."),
+            l("The answer is a single word, without conjugation."),
+            l("You can also answer in your native language or in English.");
+
+        do
+        {
+            input .@answer$;
+            .@i++;
+
+            if (riddlevalidation(.@answer$, "life", l("life")))
+            {
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Oh..."),
+                    l("You seem more cultivated than you look.");
+
+                if (getq(ArtisQuests_Enora) == 7)
+                {
+                    setq(ArtisQuests_Enora, 9);
+                    speech S_LAST_NEXT | S_NO_NPC_NAME,
+                        l("Fine, take these potions, I will replenish them in the next couple hours anyway.");
+                }
+
+                break;
+            }
+            else if (.@i < 3)
+            {
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Too bad, try again.");
+            }
+            else
+            {
+                if (getq(ArtisQuests_Enora) == 7)
+                {
+                    setq(ArtisQuests_Enora, 8);
+                    speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                        l("You failed!"),
+                        l("Ivan is the one you should look for now."),
+                        l("He is in a small house between the dock's warehouse and the dojo."),
+                        l("Follow the canal to the north-east and you will find it."),
+                        l("And get out of here, I'm not a map!");
+                }
+                else
+                {
+                    speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                        l("You failed!");
+                }
+
+                break;
+            }
+        } while (true);
+
+        return;
+    }
+
+    function enora_quest {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("She wants? What if I don't want?"),
+            l("I'm not a pawn of the Legion, I don't have to obey you!"),
+            l("Oh and guess what! I'm almost out of potions anyway.");
+
+        switch (select(l("And where can I find these potions?"),
+                        l("You bored me, see you later.")))
+        {
+            case 1:
+                break;
+            case 2:
+                return;
+        }
+
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("You don't seem to be from the Legion, let's do a game."),
+            l("If you find the correct answer, I will give you these potions..."),
+            l("But if you fail, you will have to get them from the alchemist."),
+            l("Deal?");
+
+        if (askyesno() == ASK_YES)
+        {
+            riddle_enigma;
+        }
+        return;
+    }
+
+    function alchemist_information {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Do? I don't do them."),
+            l("I'm sure that you already knew the answer, didn't you?"),
+            l("You tried to embarrass me, am I right?!"),
+            lg("It's Ivan... I'm sure that he sent you to annoy me..."),
+            l("I'm just a merchant, I trade and make deals, yes \"excuse\" me if I'm not as skilled as that stupid alchemist."),
+            l("But rare are those that receive grants from the Legion itself. For anybody else only a hard work can pay your bills!");
+        emotion E_UPSET;
+
+        switch (select(l("Sorry I didn't mean to bother you."),
+                        l("You are just sitting on the shadow of your store.")))
+        {
+            case 1:
+                mes "";
+                mesn;
+                break;
+            case 2:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT, l("You are honest, I like it.");
+                break;
+        }
+        mesq l("Is that all you had to say?");
+        next;
+
+        return;
+    }
+
+    speech S_LAST_NEXT,
+        l("What?");
+
+    do
+    {
+        .@enora = getq(ArtisQuests_Enora);
+
+        select
+            rif(.@enora == 7, l("Enora wants her potions.")),
+            menuaction(l("Trade")),
+            rif(.@enora > 7, l("What was your riddle?")),
+            l("How do you do your potions?"),
+            l("What are you reading?"),
+            menuaction(l("Quit"));
+
+        switch (@menu)
+        {
+            case 1:
+                enora_quest;
+                break;
+            case 2:
+                closedialog;
+                shop "Store#Potion001-1";
+                close;
+            case 3:
+                riddle_enigma;
+                break;
+            case 4:
+                alchemist_information;
+                break;
+            case 5:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("It's a poem, about poems... Why are you asking that?"),
+                    l("Because I am a Kralog I can't read such things? That's rubbish."),
+                    l("I borrowed it from the library, you should try to cultivate yourself more instead of insinuate things about people you don't know!");
+                break;
+        }
+    } while (@menu != 6);
+
+    closedialog;
+    goodbye;
+    close;
+
+OnInit:
+    .sex = G_FEMALE;
+    .distance = 3;
+    end;
+}
diff --git a/npc/001-1/rumly.txt b/npc/001-1/rumly.txt
new file mode 100644
index 000000000..4a1103fbb
--- /dev/null
+++ b/npc/001-1/rumly.txt
@@ -0,0 +1,226 @@
+// Evol scripts.
+// Author:
+//    Vasily_Makarov
+// Description:
+//    Stat resetter.
+// Variables:
+//    General_Rumly
+// Values:
+//    0  Player hasn't met Rumly
+//    1  Last time player has told that he will never come back
+//    2  Last time player has told that he will come back later
+//    3  Player has already reset his stat
+// Others:
+// .@visited - Rumly actual variable
+// .@wasSP - free status points before reset
+
+001-1,35,125,0	script	Rumly#001-1	NPC_RUMLY,{
+
+    setnpcdir "Rumly#001-1", 2;
+    stopnpctimer;
+    initnpctimer;
+
+    speech S_LAST_NEXT,
+        l("Hey you, do you have any @@s?", getitemlink(Plushroom));
+
+L_Menu:
+    .@visited = getq(General_Rumly);
+    .@plush_count = lognbaselvl(1, 10);
+
+    select
+        l("Plushrooms you say?"),
+        l("Who are you?"),
+        rif(.@visited >  0, l("Can you reset my stats please?")),
+        lg("You are weird, I have to go sorry.");
+
+    switch (@menu)
+    {
+        case 1:
+            speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                l("Wind and grass is nice and cool, so juicy sweet..."),
+                l("Our only wish to eat a plush, so juicy sweet...");
+            goto L_Menu;
+        case 2:
+            speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                lg("Why are you asking? And who are you too? I've never seen you around before..."),
+                lg("Wait, are you one of those from the Legion of Gasaron? I didn't do anything wrong, I promise!"),
+                l("I... I just like to eat the purple and delightful... And natural, and...");
+
+            switch (select(l("Chill out I won't say anything."),
+                           l("Yes I am and you are going to face justice!")))
+            {
+                case 1: break;
+                case 2:
+                    speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                        l("No! No, no, my precious plushrooms! Don’t take me to them, they wants my precious.");
+                    goto L_Quit;
+            }
+
+            speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                l("I won't forget it, I swear on my precious plushrooms!"),
+                l("There is an unknown side effect to these plushrooms, they can free you from your past mistakes."),
+                l("You can use it to clear your stats, to start freshly if you see what I mean..."),
+                l("Bring me some of these plushrooms and I will show you how it works!"),
+                l("Although the more powerful you are, the more plushrooms you will need.");
+
+            select
+                l("Sounds good!"),
+                rif(countitem(Plushroom) >= .@plush_count, lg("I think I have enough plushrooms on me.")),
+                l("We will talk about it later."),
+                l("My stats are too good, I won't need it.");
+
+            switch (@menu)
+            {
+                case 1:
+                    if (.@visited < 2)
+                    {
+                        setq General_Rumly, 2;
+                    }
+
+                    speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                        l("Great! Can't wait for some tasty mushrooms!");
+
+                    goto L_Menu;
+                case 2:
+                    goto L_ResetStats;
+                case 3:
+                    goto L_Later;
+                case 4:
+                    goto L_Never;
+            }
+
+        case 3:
+            goto L_ResetStats;
+        case 4:
+            if (.@visited < 2) goto L_Quit;
+
+            .@rand = rand(2);
+
+            if (.@rand)
+            {
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("See you! And come back with the plushrooms!");
+            }
+            else
+            {
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Oh noes!"),
+                    l("A rabbit!"),
+                    l("He has a guns!"),
+                    l("*Bang bang*");
+                narrator S_LAST_NEXT,
+                    l("Rumly is hiding behind the tree.");
+            }
+
+            goto L_Quit;
+    }
+
+L_ResetStats:
+    if (.@visited == 1)
+    {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            lg("Changed your mind, uh?"),
+            l("Very good."),
+            l("Status point reset can't be undone. Do you really want this?"),
+            lg("Are you sure about this?");
+    }
+    else
+    {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            lg("Are you sure about this?");
+    }
+
+L_ConfirmReset:
+    switch (select(lg("Yes, I am sure."),
+                   lg("I need to think about it..."),
+                   lg("I won't need it, thank you.")))
+    {
+        case 1:
+            speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                l("Let me just have a quick look at you. Hm... I will need @@ @@s to reset your stats.", .@plush_count, getitemlink(Plushroom));
+
+            select
+                rif(countitem(Plushroom) >= .@plush_count, lg("Here, take as many as you need, I have plenty!")),
+                rif(countitem(Plushroom) > 0 && countitem(Plushroom) < .@plush_count, lg("I don't have enough plushrooms...")),
+                rif(countitem(Plushroom) == 0, lg("Oh no, I don't have any plushroom on me right now.")),
+                lg("I have to go, sorry.");
+
+            if (@menu > 1)
+            {
+                goto L_Later;
+            }
+
+            delitem Plushroom, .@plush_count;
+
+            speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                l("Thank you."),
+                l("Now stand still... It should not take much time...");
+
+            .@wasSP = StatusPoint;
+            resetstatus;
+            if (.@visited < 3)
+            {
+                setq General_Rumly, 3;
+            }
+            if (StatusPoint == .@wasSP)
+            {
+                speech S_LAST_NEXT,
+                    l("It seems that you have no status points to reset!"),
+                    lg("But the plushroom you brought was really awesome you know."),
+                    lg("Come back when you will really need me. And bring more plushrooms with you!");
+            }
+            else
+            {
+                speech S_LAST_NEXT,
+                    l("Let's see... @@ of your status points have just been reset!", StatusPoint - .@wasSP),
+                    l("Spend it wisely this time."),
+                    lg("But you are welcome to reset your stats again if you bring me some more plushrooms!");
+            }
+            goto L_Quit;
+
+        case 2:
+            goto L_Later;
+        case 3:
+            goto L_Never;
+    }
+
+L_Later:
+    if (.@visited < 2)
+    {
+        setq General_Rumly, 2;
+    }
+    speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+        l("Come back soon, and bring @@s!", getitemlink(Plushroom));
+
+    goto L_Quit;
+
+L_Never:
+    if (.@visited < 2)
+    {
+        setq General_Rumly, 1;
+    }
+
+    speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+        lg("I am sure that you will change your mind.");
+
+    goto L_Quit;
+
+L_Quit:
+    setnpcdir "Rumly#001-1", 4;
+    stopnpctimer;
+    initnpctimer;
+
+    goodbye;
+
+OnTimer1800:
+    stopnpctimer;
+
+    if (getnpcdir("Rumly#001-1") == 2) setnpcdir "Rumly#001-1", 6;
+    if (getnpcdir("Rumly#001-1") == 4) setnpcdir "Rumly#001-1", 8;
+
+    end;
+
+OnInit:
+    .sex = G_MALE;
+    end;
+}
diff --git a/npc/001-1/salem.txt b/npc/001-1/salem.txt
new file mode 100644
index 000000000..b80cb76e4
--- /dev/null
+++ b/npc/001-1/salem.txt
@@ -0,0 +1,220 @@
+// Evol scripts.
+// Author:
+//    Travolta
+// Description:
+//    Trader on the market. One of his pious escaped and
+//    flies around the town.
+// Variables:
+//    ArtisQuests_CatchPiou   -- quest variable
+// Quest states:
+//    0  -- not started
+//    1  -- trader asked to catch piou
+//    2  -- quest finished
+// Note: this script is ugly like hell
+
+001-1,57,118,0	script	Salem#001-1	NPC_SALEM,{
+
+    function BuyPiou {
+        .@price = getarg(0);
+        mesq l("The piou costs @@ E.", .@price);
+        next;
+        select
+            l("Alright, I'll take one."),
+            l("I changed my mind.");
+
+        mes "";
+        mesn;
+        if (@menu == 2)
+            return 4;
+        if (Zeny < .@price)
+        {
+            mesq l("Don't you try to cheat an old merchant! You don't have enough money, you need @@ E.", .@price);
+            next;
+
+            return 1;
+        }
+        if (!checkweight(PiouEgg, 1))
+        {
+            mesq l("You can't carry another @@? What a shame.", PiouEgg);
+            next;
+
+            return 2;
+        }
+        getinventorylist;
+        if (.@inventorylist_count >= 100)
+        {
+            mesq l("You don't have enough room in your backpack for a @@. Go stow some of your junk and come back.", PiouEgg);
+            next;
+
+            return 3;
+        }
+        Zeny = Zeny - .@price;
+        getitem PiouEgg, 1;
+        ArtisQuests_PiousBought += 1;
+        mesq l("You take good care of your piou. Remember to feed it every day.");
+
+        return 0;
+    }
+
+//    if (2 == select("[debug]continue quest:[debug] start over"))
+//    {
+//        debugmes "Starting quest CatchPiou over";
+//        setq ArtisQuests_CatchPiou, 0;
+//    }
+
+    .@q = getq(ArtisQuests_CatchPiou);
+    @ArtisQuests_PiouPrice = 30000;
+
+    if (.@q == 1)
+    {
+        if (.PiouCaught)
+        {
+        speech
+            l("Look who is back..."),
+            l("And with my piou. That's wonderful. I can only imagine how hard that little bugger was to catch!"),
+            l("Great, and as I promised, I give you a 90% discount on the @@ of your choice.", getitemlink(PiouEgg));
+            next;
+
+            @ArtisQuests_PiouPrice = 3000;
+            ArtisQuests_PiouDiscount = 1;
+            donpcevent strnpcinfo(3) + "::OnPiouFlee";
+            setq ArtisQuests_CatchPiou, 2;
+            .@q = getq(ArtisQuests_CatchPiou);
+
+            .LastPiouHunter$ = "";
+            ArtisQuests_CatchPiou_Difficulcy = 0;
+            .@BoughtPiou = BuyPiou(@ArtisQuests_PiouPrice);
+            if (.@BoughtPiou == 0)
+                ArtisQuests_PiouDiscount = 0;
+            else if (.@BoughtPiou == 4)
+                speech S_FIRST_BLANK_LINE, l("See you next time!");
+
+            close;
+        }
+        else
+        {
+            speech
+                l("Look who is back..."),
+                l("So, where is my piou? You should not keep an old man waiting. Go and catch it like you said you would.");
+                next;
+            goto L_SalemMenuShop;
+        }
+    }
+
+    speech S_LAST_NEXT,
+        l("Good day, my friend, come closer, come closer!");
+        l("Just look at my goods for sale! Fresh fruits and vegetables were shipped only this morning. And for reasonable price, of course.");
+
+L_SalemMenuShop:
+    .@fexil = getq(ArtisQuests_Fexil);
+
+    select
+        l("What about those pious? They look so cute."),
+        l("Let's trade."),
+        rif(.@q != 0, l("I'd like to buy a piou.")),
+        rif(.@fexil == 1, l("I'm looking for somebody named Fexil.")),
+        menuaction(l("Quit"));
+
+    switch (@menu)
+    {
+        case 1:
+            goto L_AboutPious;
+            break;
+        case 2:
+            closedialog;
+            shop "Store#General001-1";
+            close;
+        case 3:
+            if (.@q == 2 && ArtisQuests_PiouDiscount)
+            {
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("You still have a 90% discount on one piou.");
+                @ArtisQuests_PiouPrice = 3000;
+            }
+            if (!BuyPiou(@ArtisQuests_PiouPrice))
+                ArtisQuests_PiouDiscount = 0;
+            break;
+        case 4:
+            speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                l("I think that I've seen this weakling wandering around the beach south from here this morning.");
+            break;
+    }
+
+    closedialog;
+    goodbye;
+    close;
+
+L_AboutPious:
+    speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+        l("Ah, the locals like keeping them as pets.");
+        l("With proper training, a piou can become a good friend and faithful companion in your adventures.");
+
+    if (getq(ArtisQuests_CatchPiou) >= 2)
+    {
+        goto L_SalemMenuShop;
+    }
+
+    mesq l("Their price is usually high, but you know what? I have a bargain offer for you.");
+    next;
+    mesq l("These little pious here can't fly. At least that's what I thought.");
+    next;
+    mesq l("One of these little boogers started flying early, and escaped from me.");
+    next;
+    mesq l("It's still too young to fly too far away, so it just circles nearby.");
+    next;
+    mesq l("But I can't leave to catch it, so I'm asking you.");
+    next;
+    mesq l("If you catch the escaped piou and bring it back, I will give you a 90% discount on a piou.");
+    next;
+
+    select
+        rif(.@q == 0, l("Sounds like a good deal to me. I'll do it.")),
+        rif(.@q == 1, l("I'm on my way! I will bring it back to you.")),
+        l("I don't really have time to go chasing pious, let me just buy one at the regular price (30000 E)."),
+        l("I don't want to buy a piou right now.");
+
+    mes "";
+    mesn;
+
+    switch (@menu)
+    {
+        case 1:
+            goto L_QuestInfo;
+        case 3:
+            BuyPiou @ArtisQuests_PiouPrice;
+    }
+    closedialog;
+    goodbye;
+    close;
+
+L_QuestInfo:
+    mesq l("The little piou is flying nearby, all you need is to catch it and bring back to me.");
+    next;
+    setq ArtisQuests_CatchPiou, 1;
+    ArtisQuests_CatchPiou_Difficulcy = 2;
+    mesq l("Good luck!");
+    close;
+
+OnPiouFlee:
+    sleep 120000;
+    if (!.PiouCaught)
+        end;
+    .PiouCaught = 0;
+    .@piou$ = "#FlyingPiou1";
+    if (getstrlen(.LastPiouHunter$) > 0)
+    {
+        message .LastPiouHunter$, .PiouEscapedMessage$;
+        .LastPiouHunter$ = "";
+    }
+    // debugmes "The piou escaped from " + .LastPiouHunter$;
+    sleep 60000;
+    enablenpc .@piou$;
+    movenpc .@piou$, 53, 117;
+    donpcevent .@piou$ + "::OnInit";
+    end;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 5;
+    end;
+}
diff --git a/npc/001-1/shop.txt b/npc/001-1/shop.txt
new file mode 100644
index 000000000..e3894b8d3
--- /dev/null
+++ b/npc/001-1/shop.txt
@@ -0,0 +1,318 @@
+// Evol scripts.
+// Authors:
+//    4144
+//    Reid
+// Description:
+//    Market shops.
+
+001-1,46,135,0	trader	Bag#001-1	NPC_SHOP_BAG,{
+
+OnInit:
+    tradertype(NST_MARKET);
+
+    sellitem PiouLegs, -1, 15;
+    sellitem Bread, -1, 15;
+    sellitem Croconut, -1, 50;
+    sellitem Aquada, -1, 50;
+    sellitem Armbands, -1, 20;
+    sellitem LousyMoccasins, -1, 20;
+    sellitem PiouSlayer, -1, 15;
+
+    .sex = G_OTHER;
+    .distance = 3;
+    end;
+
+OnClock0000:
+    restoreshopitem PiouLegs, 15;
+    restoreshopitem Bread, 15;
+    restoreshopitem Croconut, 50;
+    restoreshopitem Aquada, 50;
+    restoreshopitem Armbands, 20;
+    restoreshopitem LousyMoccasins, 20;
+    restoreshopitem PiouSlayer, 15;
+}
+
+001-1,49,136,0	trader	Warrior Shop#001-1-1	NPC_SHOP_BAG,{
+
+OnInit:
+    tradertype(NST_MARKET);
+
+    sellitem WarlordHelmet, -1, 15;
+    sellitem WarlordPlate, -1, 15;
+    sellitem GoldenRubyRing, -1, 50;
+    sellitem RawTalisman, -1, 50;
+    sellitem OldTowel, -1, 20;
+    sellitem TerranitePants, -1, 20;
+    sellitem TerraniteArmor, -1, 15;
+    sellitem GoldenDiamondRing, -1, 15;
+    sellitem Ruby, -1, 15;
+    sellitem BromenalShield, -1, 15;
+
+    .sex = G_OTHER;
+    .distance = 3;
+    end;
+
+OnClock0000:
+    restoreshopitem PiouLegs, 15;
+    restoreshopitem Bread, 15;
+    restoreshopitem Croconut, 50;
+    restoreshopitem Aquada, 50;
+    restoreshopitem Armbands, 20;
+    restoreshopitem LousyMoccasins, 20;
+    restoreshopitem PiouSlayer, 15;
+}
+
+001-1,46,125,0	trader	Cotton#Dye001-1	NPC_NO_SPRITE,{
+
+OnInit:
+    tradertype(NST_MARKET);
+
+    sellitem BlackCottonDye, -1, 10;
+    sellitem SilverCottonDye, -1, 10;
+    sellitem CamelCottonDye, -1, 10;
+    sellitem BrownCottonDye, -1, 10;
+    sellitem OrangeCottonDye, -1, 10;
+    sellitem DarkRedCottonDye, -1, 10;
+    sellitem RedCottonDye, -1, 10;
+    sellitem FuschiaCottonDye, -1, 10;
+    sellitem PinkCottonDye, -1, 10;
+    sellitem MauveCottonDye, -1, 10;
+    sellitem PurpleCottonDye, -1, 10;
+    sellitem NavyBlueCottonDye, -1, 10;
+    sellitem BlueGrayCottonDye, -1, 10;
+    sellitem BlueCottonDye, -1, 10;
+    sellitem TealCottonDye, -1, 10;
+    sellitem GreenCottonDye, -1, 10;
+    sellitem LimeCottonDye, -1, 10;
+    sellitem KhakiCottonDye, -1, 10;
+    sellitem YellowCottonDye, -1, 10;
+
+    .sex = G_OTHER;
+    .distance = 4;
+    end;
+
+OnClock0000:
+    restoreshopitem BlackCottonDye, 10;
+    restoreshopitem SilverCottonDye, 10;
+    restoreshopitem CamelCottonDye, 10;
+    restoreshopitem BrownCottonDye, 10;
+    restoreshopitem OrangeCottonDye, 10;
+    restoreshopitem DarkRedCottonDye, 10;
+    restoreshopitem RedCottonDye, 10;
+    restoreshopitem FuschiaCottonDye, 10;
+    restoreshopitem PinkCottonDye, 10;
+    restoreshopitem MauveCottonDye, 10;
+    restoreshopitem PurpleCottonDye, 10;
+    restoreshopitem NavyBlueCottonDye, 10;
+    restoreshopitem BlueGrayCottonDye, 10;
+    restoreshopitem BlueCottonDye, 10;
+    restoreshopitem TealCottonDye, 10;
+    restoreshopitem GreenCottonDye, 10;
+    restoreshopitem LimeCottonDye, 10;
+    restoreshopitem KhakiCottonDye, 10;
+    restoreshopitem YellowCottonDye, 10;
+}
+
+001-1,48,125,0	trader	Cashmere#Dye001-1	NPC_NO_SPRITE,{
+
+OnInit:
+    tradertype(NST_MARKET);
+
+    sellitem CrimsonCashmereDye, -1, 7;
+    sellitem ChocolateCashmereDye, -1, 7;
+    sellitem MintCashmereDye, -1, 7;
+
+    .sex = G_OTHER;
+    .distance = 4;
+    end;
+
+OnClock0000:
+    restoreshopitem CrimsonCashmereDye, 7;
+    restoreshopitem ChocolateCashmereDye, 7;
+    restoreshopitem MintCashmereDye, 7;
+}
+
+001-1,64,114,0	trader	Store#Aquada001-1	NPC_NO_SPRITE,{
+
+OnInit:
+    tradertype(NST_MARKET);
+
+    sellitem Aquada, -1, 50;
+
+    .sex = G_OTHER;
+    .distance = 4;
+    end;
+
+OnClock0000:
+    restoreshopitem Aquada, 20;
+OnClock0800:
+    restoreshopitem Aquada, 20;
+OnClock1600:
+    restoreshopitem Aquada, 20;
+}
+
+001-1,72,126,0	trader	Store#SeaStore001-1	NPC_NO_SPRITE,{
+
+OnInit:
+    tradertype(NST_MARKET);
+
+    sellitem Aquada, -1, 10;
+    sellitem UrchinMeat, -1, 20;
+    sellitem SmallTentacles, -1, 30;
+    sellitem Tentacles, -1, 15;
+
+    .sex = G_OTHER;
+    .distance = 4;
+    end;
+
+OnClock0000:
+    restoreshopitem Aquada, 3;
+    restoreshopitem UrchinMeat, 12;
+    restoreshopitem SmallTentacles, 4;
+OnClock0800:
+    restoreshopitem Aquada, 6;
+    restoreshopitem UrchinMeat, 8;
+    restoreshopitem Tentacles, 8;
+    restoreshopitem SmallTentacles, 2;
+OnClock1600:
+    restoreshopitem Aquada, 5;
+    restoreshopitem UrchinMeat, 10;
+    restoreshopitem SmallTentacles, 7;
+}
+
+001-1,72,129,0	trader	Store#FishStore001-1	NPC_NO_SPRITE,{
+
+OnInit:
+    tradertype(NST_MARKET);
+
+    sellitem CommonCarp, -1, 8;
+    sellitem GrassCarp, -1, 7;
+
+    .sex = G_OTHER;
+    .distance = 4;
+    end;
+
+OnClock0000:
+    restoreshopitem CommonCarp, 3;
+    restoreshopitem GrassCarp, 2;
+OnClock0800:
+    restoreshopitem CommonCarp, 2;
+    restoreshopitem GrassCarp, 3;
+OnClock1600:
+    restoreshopitem CommonCarp, 3;
+    restoreshopitem GrassCarp, 4;
+}
+
+001-1,48,116,0	trader	Store#Manana001-1	NPC_NO_SPRITE,{
+
+OnInit:
+    tradertype(NST_MARKET);
+
+    sellitem Manana, -1, 60;
+
+    .sex = G_OTHER;
+    .distance = 4;
+    end;
+
+OnClock0000:
+    restoreshopitem Manana, 20;
+OnClock0800:
+    restoreshopitem Manana, 15;
+OnClock1600:
+    restoreshopitem Manana, 20;
+}
+
+001-1,53,123,0	trader	Store#Various001-1	NPC_NO_SPRITE,{
+
+OnInit:
+    tradertype(NST_MARKET);
+
+    sellitem Manana, -1, 30;
+// Add soft drinks.
+
+    .sex = G_OTHER;
+    .distance = 4;
+    end;
+
+OnClock0000:
+    restoreshopitem Manana, 10;
+OnClock0800:
+    restoreshopitem Manana, 15;
+OnClock1600:
+    restoreshopitem Manana, 6;
+}
+
+001-1,67,116,0	trader	Store#Potion001-1	NPC_NO_SPRITE,{
+
+OnInit:
+    tradertype(NST_MARKET);
+
+    sellitem PiberriesInfusion, -1, 200;
+    sellitem FatesPotion, -1, 100;
+    sellitem ClothoLiquor, -1, 50;
+    sellitem LachesisBrew, -1, 30;
+    sellitem AtroposMixture, -1, 10;
+    sellitem ElixirOfLife, -1, 2;
+
+    .sex = G_OTHER;
+    .distance = 4;
+    end;
+
+OnClock0000:
+    restoreshopitem PiberriesInfusion, 150;
+    restoreshopitem FatesPotion, 80;
+    restoreshopitem ClothoLiquor, 40;
+    restoreshopitem LachesisBrew, 20;
+    restoreshopitem AtroposMixture, 7;
+    restoreshopitem ElixirOfLife, 1;
+OnClock1200:
+    restoreshopitem PiberriesInfusion, 80;
+    restoreshopitem FatesPotion, 40;
+    restoreshopitem ClothoLiquor, 20;
+    restoreshopitem LachesisBrew, 10;
+    restoreshopitem AtroposMixture, 4;
+}
+
+001-1,58,119,0	trader	Store#General001-1	NPC_NO_SPRITE,{
+
+OnInit:
+    tradertype(NST_MARKET);
+
+    sellitem Manana, -1, 100;
+    sellitem Carrot, -1, 80;
+    sellitem Aquada, -1, 50;
+    sellitem Plushroom, -1, 100;
+    sellitem Curshroom, -1, 80;
+    sellitem Piberries, -1, 150;
+    sellitem PiouEgg, -1, 25;
+// Add soft drinks.
+
+    .sex = G_OTHER;
+    .distance = 4;
+    end;
+
+OnClock0000:
+    restoreshopitem Manana, 50;
+    restoreshopitem Carrot, 40;
+    restoreshopitem Aquada, 30;
+    restoreshopitem Plushroom, 40;
+    restoreshopitem Curshroom, 30;
+    restoreshopitem Piberries, 40;
+    restoreshopitem PiouEgg, 10;
+OnClock0800:
+    restoreshopitem Manana, 30;
+    restoreshopitem Carrot, 30;
+    restoreshopitem Aquada, 30;
+    restoreshopitem Plushroom, 40;
+    restoreshopitem Curshroom, 30;
+    restoreshopitem Piberries, 70;
+    restoreshopitem PiouEgg, 10;
+OnClock1600:
+    restoreshopitem Manana, 40;
+    restoreshopitem Carrot, 40;
+    restoreshopitem Aquada, 20;
+    restoreshopitem Plushroom, 20;
+    restoreshopitem Curshroom, 20;
+    restoreshopitem Piberries, 30;
+    restoreshopitem PiouEgg, 5;
+}
diff --git a/npc/001-1/sign.txt b/npc/001-1/sign.txt
new file mode 100644
index 000000000..d489cc19f
--- /dev/null
+++ b/npc/001-1/sign.txt
@@ -0,0 +1,186 @@
+// Evol scripts.
+// Authors:
+//    Ablu
+//    Reid
+// Description:
+//    Sign pillars aside Artis houses.
+
+001-1,73,119,0	script	Sign#001-1-s-market	NPC_NO_SPRITE,{
+    npctalkonce l("Market Place");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,48,122,0	script	Sign#001-1-s-marketright	NPC_NO_SPRITE,{
+    npctalkonce l("Market Place");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,57,88,0	script	Sign#001-1-s-marketdir	NPC_NO_SPRITE,{
+    npctalkonce l("↓ Market Place");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,55,86,0	script	Sign#001-1-s-exit-l-dir	NPC_NO_SPRITE,{
+    npctalkonce l("← Exit");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,59,85,0	script	Sign#001-1-s-legiondir	NPC_NO_SPRITE,{
+    npctalkonce l("↑ Legion");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,57,80,0	script	Sign#001-1-s-library	NPC_NO_SPRITE,{
+    npctalkonce l("Library");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,57,71,0	script	Sign#001-1-s-lightarmor	NPC_NO_SPRITE,{
+    npctalkonce l("Light Armor Shop");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,53,56,0	script	Sign#001-1-s-legion	NPC_OFFSET_NO_SPRITE,{
+    npctalkonce l("Legion of Aemil");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,60,56,0	script	Sign#001-1-s-legionright	NPC_OFFSET_NO_SPRITE,{
+    npctalkonce l("Legion of Aemil");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,91,66,0	script	Sign#001-1-s-cityhall	NPC_NO_SPRITE,{
+    npctalkonce l("City Hall");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,95,111,0	script	Sign#001-1-s-blacksmith	NPC_NO_SPRITE,{
+    npctalkonce l("Blacksmith");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,115,88,0	script	Sign#001-1-s-inn	NPC_NO_SPRITE,{
+    npctalkonce l("Inn");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,134,85,0	script	Sign#001-1-s-innright	NPC_OFFSET_NO_SPRITE,{
+    npctalkonce l("Inn");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,118,36,0	script	Sign#001-1-s-merchantg	NPC_NO_SPRITE,{
+    npctalkonce l("Merchant Guild");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,171,48,0	script	Sign#001-1-s-hill	NPC_OFFSET_NO_SPRITE,{
+    npctalkonce l("Hill & Cliff");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,161,72,0	script	Sign#001-1-s-alchemist	NPC_NO_SPRITE,{
+    npctalkonce l("Alchemist's Laboratory");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,175,76,0	script	Sign#001-1-s-warehouse	NPC_NO_SPRITE,{
+    npctalkonce l("Docks Warehouse");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
+
+001-1,47,97,0	script	Sign#001-1-s-barber	NPC_NO_SPRITE,{
+    npctalkonce l("Barber");
+    close;
+
+OnInit:
+    .distance = 1;
+    .sex = G_OTHER;
+    end;
+}
diff --git a/npc/001-1/taree.txt b/npc/001-1/taree.txt
new file mode 100644
index 000000000..5af18b0e2
--- /dev/null
+++ b/npc/001-1/taree.txt
@@ -0,0 +1,21 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Mouboo farmer.
+
+001-1,68,79,0	script	Taree	NPC_ELVEN_MAN_MOUBOO_SHOP,{
+    mesn;
+    mesq l("Moo!");
+
+    goto L_Close;
+
+L_Close:
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 3;
+    end;
+}
+
diff --git a/npc/001-1/treeleaf.txt b/npc/001-1/treeleaf.txt
new file mode 100644
index 000000000..dd1280a69
--- /dev/null
+++ b/npc/001-1/treeleaf.txt
@@ -0,0 +1,22 @@
+// Evol scripts.
+// Authors:
+//    Ablu
+//    Reid
+// Description:
+//    Falling tree leaf
+
+001-1,39,54,4	script	#treeleaf0	NPC_TREE_LEAF,{
+    .dir = 2;
+    stopnpctimer;
+    initnpctimer;
+    close;
+
+OnTimer2800:
+    .dir = 4;
+    stopnpctimer;
+    end;
+
+OnInit:
+    .distance = 1;
+    end;
+}
diff --git a/npc/001-1/trees.txt b/npc/001-1/trees.txt
new file mode 100644
index 000000000..cba42f8ff
--- /dev/null
+++ b/npc/001-1/trees.txt
@@ -0,0 +1,235 @@
+// Evol scripts.
+// Author:
+//    Travolta
+// Description:
+//    Invisible tree NPCs for "Lazy Brother" quest
+// Variables:
+//    AtrilQuests_LazyBrother = 19  -- quest var
+//    LazyBrother_TreesLeft = 15    -- how many trees left to search
+//    LazyBrother_TreeSearched[15]  -- whether given tree was searched
+//    LazyBrother_TreeWithBrother   -- the number of tree where he's hiding
+// Quest states:
+//    0  - quest not started
+//    1  - Katja asked help, searching the trees
+//    2  - Bobo is found, "bad" ending
+//    3  - player decided to tell Katja where her brother is
+//    4  - "good" ending, player helped Katja
+
+function	script	LazyBrotherTreeFunc	{
+    .@q = getq(ArtisQuests_LazyBrother);
+    if (.@q == 0 || .@q >= 2)
+        return;
+    .@TreeNum = getarg(0);
+    if (LazyBrother_TreeWithBrother == .@TreeNum)
+        goto L_FoundHim;
+    if (LazyBrother_TreeWithBrother > 0)
+    {
+        mes l("You search the tree but don't find anybody.");
+        close2;
+        return;
+    }
+    if (LazyBrother_TreeSearched[.@TreeNum] == 1)
+    {
+        mes l("You already looked here.");
+        close2;
+        return;
+    }
+    else
+    {
+        LazyBrother_TreeSearched[.@TreeNum] = 1;
+    }
+    .@found = rand(1, LazyBrother_TreesLeft--);
+    if (.@found == 1)
+    {
+        mes l("You found him!");
+        LazyBrother_TreeWithBrother = .@TreeNum;
+        next;
+    }
+    else
+    {
+        mes l("You search the tree but don't find anybody.");
+        close2;
+        return;
+    }
+
+L_FoundHim:
+    mes l("You notice a young boy sitting on one of the highest branches of the tree.");
+    next;
+    mes l("He is eating an apple, thoroughly enjoying it.");
+    next;
+    select(l("Hey there, are you Bobo, Katja's brother?"));
+    mes "";
+    mesn "Bobo";
+    mesq l("Yes, it's me. It's such a fine view from here!");
+    next;
+    select(lg("Your sister sent me to find you. Your mother is worried."));
+    mes "";
+    mesn "Bobo";
+    mesq l("Oh, nooooo... If I go home now, my mum will give me chores.");
+    next;
+    mesq l("But if you tell my sister, that you didn't find me, I can stay here all day, eating apples and enjoying the view.");
+    next;
+    mesq l("I will give you my pocket money if you do.");
+    next;
+    switch (select(l("A small lie is really just a fib, and I could really use some cash..."),
+                   l("I will not lie to a little girl! And your mother needs your help.")))
+    {
+        case 1:
+            mes "";
+            mesn "Bobo";
+            mesq l("Here you go.");
+            next;
+            mesn "Narrator";
+            mes l("Somehow you don't feel good about your deed.");
+            // Karma -= 2;
+            setq ArtisQuests_LazyBrother, 2;
+            Zeny += 100;
+            getexp 500, 0;
+            break;
+        case 2:
+            mes "";
+            mesn "Bobo";
+            mesq l("Okay... Tell my sister I'll go home soon.");
+            setq ArtisQuests_LazyBrother, 3;
+            break;
+    }
+    LazyBrother_TreesLeft = 0;
+    LazyBrother_TreeWithBrother = 0;
+    cleararray LazyBrother_TreeSearched,0,15;
+    close;
+}
+
+001-1,179,30,0	script	#AtrilTree1	NPC_KATJA_TREE,{
+    LazyBrotherTreeFunc(1);
+    end;
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
+001-1,177,29,0	script	#AtrilTree2	NPC_KATJA_TREE,{
+    LazyBrotherTreeFunc(2);
+    end;
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
+001-1,183,28,0	script	#AtrilTree3	NPC_KATJA_TREE,{
+    LazyBrotherTreeFunc(3);
+    end;
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
+001-1,182,25,0	script	#AtrilTree4	NPC_KATJA_TREE,{
+    LazyBrotherTreeFunc(4);
+    end;
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
+001-1,187,26,0	script	#AtrilTree5	NPC_KATJA_TREE,{
+    LazyBrotherTreeFunc(5);
+    end;
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
+001-1,189,28,0	script	#AtrilTree6	NPC_KATJA_TREE,{
+    LazyBrotherTreeFunc(6);
+    end;
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
+001-1,184,30,0	script	#AtrilTree7	NPC_KATJA_TREE,{
+    LazyBrotherTreeFunc(7);
+    end;
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
+001-1,189,31,0	script	#AtrilTree8	NPC_KATJA_TREE,{
+    LazyBrotherTreeFunc(8);
+    end;
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
+001-1,191,30,0	script	#AtrilTree9	NPC_KATJA_TREE,{
+    LazyBrotherTreeFunc(9);
+    end;
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
+001-1,191,33,0	script	#AtrilTree10	NPC_KATJA_TREE,{
+    LazyBrotherTreeFunc(10);
+    end;
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
+001-1,187,34,0	script	#AtrilTree11	NPC_KATJA_TREE,{
+    LazyBrotherTreeFunc(11);
+    end;
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
+001-1,185,35,0	script	#AtrilTree12	NPC_KATJA_TREE,{
+    LazyBrotherTreeFunc(12);
+    end;
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
+001-1,182,34,0	script	#AtrilTree13	NPC_KATJA_TREE,{
+    LazyBrotherTreeFunc(13);
+    end;
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
+001-1,180,33,0	script	#AtrilTree14	NPC_KATJA_TREE,{
+    LazyBrotherTreeFunc(14);
+    end;
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
+001-1,181,32,0	script	#AtrilTree15	NPC_KATJA_TREE,{
+    LazyBrotherTreeFunc(15);
+    end;
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
diff --git a/npc/001-1/wateranimation.txt b/npc/001-1/wateranimation.txt
new file mode 100644
index 000000000..285a7788f
--- /dev/null
+++ b/npc/001-1/wateranimation.txt
@@ -0,0 +1,33 @@
+// Evol scripts.
+// Author:
+//    gumi
+//    Reid
+// Description:
+//    Water animations, splash, fishes, etc...
+
+001-1,116,123,0	script	#water_animation0	NPC_WATER_SPLASH,{
+
+    fishing; // begin or continue fishing
+    close;
+
+OnInit:
+    .sex = G_OTHER;
+    .distance = 5;
+    end;
+}
+
+001-1,119,102,0	duplicate(#water_animation0)	#water_animation1	NPC_WATER_SPLASH
+001-1,167,82,0	duplicate(#water_animation0)	#water_animation2	NPC_WATER_SPLASH
+001-1,167,40,0	duplicate(#water_animation0)	#water_animation3	NPC_WATER_SPLASH
+001-1,104,127,0	duplicate(#water_animation0)	#water_animation4	NPC_WATER_SPLASH
+001-1,166,123,0	duplicate(#water_animation0)	#water_animation5	NPC_WATER_SPLASH
+001-1,181,119,0	duplicate(#water_animation0)	#water_animation6	NPC_WATER_SPLASH
+001-1,202,114,0	duplicate(#water_animation0)	#water_animation7	NPC_WATER_SPLASH
+001-1,187,86,0	duplicate(#water_animation0)	#water_animation8	NPC_WATER_SPLASH
+001-1,32,57,0	duplicate(#water_animation0)	#water_animation9	NPC_WATER_SPLASH
+001-1,40,144,0	duplicate(#water_animation0)	#water_animation10	NPC_WATER_SPLASH
+001-1,58,131,0	duplicate(#water_animation0)	#water_animation11	NPC_WATER_SPLASH
+001-1,76,137,0	duplicate(#water_animation0)	#water_animation12	NPC_WATER_SPLASH
+001-1,109,132,0	duplicate(#water_animation0)	#water_animation13	NPC_WATER_SPLASH
+001-1,141,93,0	duplicate(#water_animation0)	#water_animation14	NPC_WATER_SPLASH
+001-1,168,57,0	duplicate(#water_animation0)	#water_animation15	NPC_WATER_SPLASH
diff --git a/npc/001-1/xilaxa.txt b/npc/001-1/xilaxa.txt
new file mode 100644
index 000000000..5b7ec398a
--- /dev/null
+++ b/npc/001-1/xilaxa.txt
@@ -0,0 +1,67 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Moon, main NPC for the urchin quest.
+
+001-1,52,44,0	script	Xilaxa#001-1	NPC_UKAR_MALE_LEGION_ARTIS,{
+
+    function face_to_PC {
+        getmapxy(.@map$, .@cx, .@cy, 0);
+        @Devis_old_dir = .dir;
+        npc_turntoxy(.@cx, .@cy);
+
+        return;
+    }
+
+    function local_close {
+        if (@Devis_old_dir != .dir)
+        {
+            .dir = @Devis_old_dir;
+        }
+        npc_resumemove;
+
+        close;
+    }
+
+    npc_pausemove;
+    face_to_PC;
+    npctalkonce goodbye_msg();
+    local_close;
+
+OnTimer1000:
+    dographmovestep;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 5;
+    initmovegraph   "mid",          54,  43,  60,  46,
+                    "left",         47,  50,  52,  55,
+                    "right",        62,  50,  67,  55;
+
+    setmovegraphcmd "mid",          "left",         1,  "dir 0; wait 4",
+                    "mid",          "left",         4,  "dir 2; wait 3; dir 0; wait 2; dir 6; wait 1; dir 0",
+                    "mid",          "left",         2,  "dir 4; wait 5; dir 0; wait 2",
+                    "mid",          "left",         3,  "dir 6; wait 1; dir 0; wait 3; dir 2; wait 3; dir 0",
+                    "mid",          "left",         1,  "dir 0; wait 1; dir 2; wait 1; dir 0; wait 1; dir 6; wait 5",
+                    "mid",          "right",        3,  "dir 0; wait 4",
+                    "mid",          "right",        4,  "dir 2; wait 3; dir 0; wait 2; dir 6; wait 1; dir 0",
+                    "mid",          "right",        2,  "dir 4; wait 5; dir 0; wait 2",
+                    "mid",          "right",        1,  "dir 6; wait 1; dir 0; wait 3; dir 2; wait 3; dir 0",
+                    "mid",          "right",        2,  "dir 0; wait 1; dir 2; wait 1; dir 0; wait 1; dir 6; wait 5",
+
+                    "left",         "mid",          2,  "dir 0; wait 4",
+                    "left",         "mid",          1,  "dir 2; wait 3; dir 0; wait 2; dir 6; wait 1; dir 0",
+                    "left",         "mid",          3,  "dir 4; wait 5; dir 0; wait 2",
+                    "left",         "mid",          2,  "dir 6; wait 1; dir 0; wait 3; dir 2; wait 3; dir 0",
+                    "left",         "mid",          3,  "dir 0; wait 1; dir 2; wait 1; dir 0; wait 1; dir 6; wait 5",
+
+                    "right",        "mid",          3,  "dir 0; wait 4",
+                    "right",        "mid",          2,  "dir 2; wait 3; dir 0; wait 2; dir 6; wait 1; dir 0",
+                    "right",        "mid",          1,  "dir 4; wait 5; dir 0; wait 2",
+                    "right",        "mid",          1,  "dir 6; wait 1; dir 0; wait 3; dir 2; wait 3; dir 0",
+                    "right",        "mid",          2,  "dir 0; wait 1; dir 2; wait 1; dir 0; wait 1; dir 6; wait 5";
+
+    firstmove "wait 5", "mid";
+    initnpctimer;
+}