delete evol maps

4 files changed, 405 insertions, 0 deletions

diff --git a/npc/test/_import.txt b/npc/test/_import.txt
index 6c7f7e713..cea2672a4 100644
--- a/npc/test/_import.txt
+++ b/npc/test/_import.txt
@@ -1,6 +1,8 @@
 // Map test: test
 // This file is generated automatically. All manually added changes will be removed when running the Converter.
 "npc/test/_mobs.txt",
+"npc/test/hinnack.txt",
+"npc/test/karim.txt",
 "npc/test/mapflags.txt",
 "npc/test/npc1.txt",
 "npc/test/npc2.txt",
@@ -9,5 +11,6 @@
 "npc/test/npc5.txt",
 "npc/test/npc6.txt",
 "npc/test/npcmarriage.txt",
+"npc/test/rock.txt",
 "npc/test/test1.txt",
 "npc/test/test2.txt",
diff --git a/npc/test/hinnack.txt b/npc/test/hinnack.txt
new file mode 100644
index 000000000..5cd7b87a4
--- /dev/null
+++ b/npc/test/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/test/karim.txt b/npc/test/karim.txt
new file mode 100644
index 000000000..743fdbc09
--- /dev/null
+++ b/npc/test/karim.txt
@@ -0,0 +1,153 @@
+// 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,{
+
+    .Item1 = RightCraftyWing;
+    .Item2 = LeftCraftyWing;
+    .ItemReward = FlightTalisman;
+    
+    function quest_beggining{
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("my name is karim can you help me?.");
+        
+        setq Karim_Quest, 1;
+        return;
+    }
+
+    function quest_left {
+        if (countitem(.Item2) > 0)
+        {
+            delitem .Item2, 1;
+            if (rand(10) == 1)
+            {
+                mesq l("Yay, it worked! You get a good wing.");
+                getitem .ItemReward, 1;
+                setq Karim_Quest, 2;
+                close;
+            }
+            else
+            {
+                mesq l("This one is useless! Give me another @@.", getitemlink(.Item2));
+                return;
+            }
+        }
+        else
+        {
+            mesq l("You don't have any @@, are you mocking me?", getitemlink(.Item2));
+            return ;
+        }
+    }
+
+    function quest_right {
+        if (countitem(.Item1) > 0)
+        {
+            delitem .Item1, 1;
+            if (rand(5) == 1)
+            {
+                mesq l("Yay, it worked! You get a good wing.");
+                getitem .ItemReward, 1;
+                setq Karim_Quest, 2;
+                close;
+            }
+            else
+            {
+                mesq l("This one is useless! Give me another @@.", getitemlink(.Item1));
+                next;
+                return;
+            }
+        }
+        else
+        {
+            mesq l("You don't have any @@, are you mocking me?", getitemlink(.Item1));
+            return ;
+        }
+    }
+
+    function quest_started {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+        l("Can you give me a @@ or a @@", getitemlink(.Item1), getitemlink(.Item2));
+
+        do
+        { 
+            select
+            l("a Right Crafty Wing"),
+            l("a Left Crafty Wing"),
+            menuaction(l("Quit"));
+        
+        switch (@menu)
+        {
+            case 1:
+                quest_right;
+                break;
+            case 2:
+                quest_left;
+                break;
+        }
+        } while (@menu != 3);
+        return;
+    }
+
+    function quest_completed {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Quest completed.");
+        return;
+    }
+
+    function quest_restart {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Quest restart.");
+        setq Karim_Quest, 0;
+        return;
+    }
+
+    speech S_LAST_NEXT, l("Can you help me?");
+
+    do
+    {
+        .@karim = getq(Karim_Quest);
+        select
+            rif(.@karim == 2, lg("quest completed.")),
+            rif(.@karim == 1, l("Hello again can you give you give me some tentacles.")),
+            rif(.@karim == 0, l("Hello")),
+            l("Debug"),
+            menuaction(l("Quit"));
+
+        switch (@menu)
+        {
+            case 1:
+                quest_completed;
+                break;
+            case 2:
+                quest_started;
+                break;
+            case 3:
+                quest_beggining;
+                break;
+            case 4:
+                quest_restart;
+                break;
+        }
+    } while (@menu != 5);
+
+    closedialog;
+    goodbye;
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 3;
+    end;
+}
+
diff --git a/npc/test/rock.txt b/npc/test/rock.txt
new file mode 100644
index 000000000..967e5b9e4
--- /dev/null
+++ b/npc/test/rock.txt
@@ -0,0 +1,173 @@
+// 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,88,114,0	script	rock	NPC_PLAYER,{
+
+    function quest_play {
+        mes l("Before start witch item do you want to play");        
+    mes "##B" + l("Drag and drop an item from your inventory.") + "##b";
+
+    .item = requestitem();
+    if (.item < 1)
+    {
+        mes l("You didn't add a item.");
+        close;
+    }
+
+    if (countitem(.item) < 1)
+    {
+        mes l("You don't have the item.");
+        close;
+    }
+    delitem .item, 1;
+    goto quest_choose;
+    }
+
+    function quest_game {
+        if (.choose == 1){
+            mes l("you choose rock.");
+            next;
+        }
+        else if (.choose == 2){
+            mes l("you choose scissors.");
+            next;
+        }
+        else  {
+            mes l("you choose paper.");
+            next;
+        }
+
+        .npcChoose = rand(3);
+        if (.npcChoose == 0)
+        {
+            mes l("the npc choose rock.");
+            next;
+            if (.choose == 1)
+            {
+                mes l("draw.");
+                goto quest_choose;
+            }
+            else if (.choose == 2)
+            {
+                mes l("you lose");
+                close;
+            }
+            else if (.choose == 3)
+            {
+                mes l("you win");
+                getitem .item, 2;
+                close;
+            }
+        }
+        else if (.npcChoose == 1)
+        {
+            mes l("the npc choose scissors.");
+            next;
+            if (.choose == 2)
+            {
+                mes l("draw.");
+                goto quest_choose;
+            }
+            else if (.choose == 3)
+            {
+                mes l("you lose");
+                close;
+            }
+            else if (.choose == 1)
+            {
+                mes l("you win @@",getitemlink(.item));
+                getitem .item, 2;
+                close;
+            }
+        }
+        else if (.npcChoose == 2)
+        {
+            mes l("the npc choose paper.");
+            next;
+            if (.choose == 3)
+            {
+                mes l("draw.");
+                goto quest_choose;
+            }
+            else if (.choose == 1)
+            {
+                mes l("you lose");
+                close;
+            }
+            else if (.choose == 2)
+            {
+                mes l("you win");
+                getitem .item, 2;
+                close;
+            }
+        }
+        close;
+    }
+
+
+    function quest_choose {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("What do you choose?");
+            next;
+        do
+        {
+            select
+                l("Rock"),
+                l("Scissors"),
+                l("Paper");
+
+            switch (@menu)
+            {
+                case 1:
+                    .choose = 1;
+                    quest_game;
+                    break;
+                case 2:
+                    .choose = 2;
+                    quest_game;
+                    break;
+                case 3:
+                    .choose = 3;
+                    quest_game;
+                    break;
+            }
+        } while (@menu != 4);
+        close;
+    }
+
+    speech S_LAST_NEXT, l("Hello do you want to play rock scissors paper?");
+    do
+    {
+        select
+            l("Hello"),
+            menuaction(l("Quit"));
+
+        switch (@menu)
+        {
+            case 1:
+                quest_play;
+                break;
+        }
+    } while (@menu != 2);
+
+    closedialog;
+    goodbye;
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 3;
+    end;
+}
+