Change alige's dialog style,

Correct dan script,
Correct savepoint script.

3 files changed, 21 insertions, 10 deletions

diff --git a/npc/000-2-1/alige.txt b/npc/000-2-1/alige.txt
index 5b97aecf..79446f90 100644
--- a/npc/000-2-1/alige.txt
+++ b/npc/000-2-1/alige.txt
@@ -51,39 +51,48 @@
   l_Talk:
     mesn "Hidden person";
     mesq l("Hey, psst! You're not a sailor, right?");
+    next;
 
     menu
-        l("I am, who are you?"), -,
-        l("I'm not."), l_NeedHelp;
+        lg("I am, who are you?"), -,
+        lg("I'm not."), l_NeedHelp;
 
+    mes " ";
     mesq "Hidden person doesn't answer";
     close;
 
   l_NeedHelp:
+    mes " ";
     mesn "Hidden person";
     mesq l("Good, good! ") + " " + l("Could you help me please? ") + " " + l("I beg you, please, pleeeease...");
+    next;
 
     menu
         l("Why not... but, who are you?") + " " + l("And what kind of help do you need?"), l_CanHelp;
         l("Sorry but I have no time for this."), -;
 
+    mes " ";
     mesn "Hidden person";
     mesq lg("Damn you! You better not tell anyone that you've seen me!");
     close;
 
   l_CanHelp:
+    mes " ";
     mesn;
     mesq l("I'm called Alige, and I've been hiding here for few weeks.") + l("All that I had to eat were these berries... Berries... Berries...") + l("I'm losing my mind, I need something else to eat!");
     next;
 
     mesn;
     mesq l("Can you bring me something which isn't a vegetable?") + l("And please, no berries. No more!");
+    next;
 
     menu
       l("Okay, but what can you offer me?"), l_AboutReward,
       l("Why don't you go outside?"), -;
 
+
   l_ExplainHiding:
+    mes " ";
     mesn;
     mesq l("No, I can't, I just wanted to travel across the seas for fun.") + " " + l("In this cave, you see, I have lots of fun.");
     next;
@@ -101,6 +110,7 @@
     goto l_Accept;
 
   l_AboutReward:
+    mes " ";
     mesn;
     mesq l("I'll share my berries with you, if you help me.");
     next;
@@ -109,10 +119,10 @@
     menu
       l("Ok, I'll help you."), l_Accepted,
       l("What is Artis?"), l_Artis,
-      l("I think I should report you to the crew members."), -;
-    goto l_DamnYou;
+      l("I think I should report you to the crew members."), l_DamnYou;
 
   l_Artis:
+    mes " ";
     mesn;
     mesq l("It's a commercial port of Andorra, it's weird that you don't know about it, it's one of the most famous cities throughout the world... But hey oh, returning to the topic! I'm hungry!");
     next;
@@ -121,6 +131,7 @@
 
   l_Accepted:
     seta2 ShipQuests, ShipQuests_Alige, 2;
+    mes " ";
     mesn;
     mesq lg("Perfect, which food did you get for me today?");
     next;
@@ -146,10 +157,10 @@
     goto l_GiveFood;
 
   l_GiveReward:
-
     if (countitem(@id) < 1) close;
     delitem @id, 1;
 
+    mes " ";
     mesn;
     mesq l("Thank you so much! Here, have some berries...");
 
@@ -157,6 +168,7 @@
     close;
 
   l_NoMore:
+    mes " ";
     mesn;
     mesq l("Arrr, don't give me more berries! I don't want them, stupid berries, stupid ... stupid ... stupid!");
     next;
@@ -175,6 +187,7 @@
       l("I think I should report you to the crew members."), l_DamnYou;
 
   l_Food:
+    mes " ";
     mesn;
     mesq l("There is some flying yellow plush around you, they're called pious. Getting a roasted leg of one of them would be perfect.");
     next;
@@ -184,6 +197,7 @@
     close;
 
   l_DamnYou:
+    mes " ";
     mesn;
     mesq lg("Damn you! You better not tell anyone that you've seen me!");
     close;
diff --git a/npc/000-2-1/dan.txt b/npc/000-2-1/dan.txt
index 84e955d9..cec209d3 100644
--- a/npc/000-2-1/dan.txt
+++ b/npc/000-2-1/dan.txt
@@ -7,7 +7,7 @@
 000-2-1.gat, 22,31,0,1	script	Dan	101,{
 
     mesn;
-    mesq lg("Sorry, but I'm busy right now.");
+    mesq l("Sorry, but I'm busy right now.");
 
     close;
 
diff --git a/npc/000-2-1/savepoint.txt b/npc/000-2-1/savepoint.txt
index 35c88fb3..b6b00c3a 100644
--- a/npc/000-2-1/savepoint.txt
+++ b/npc/000-2-1/savepoint.txt
@@ -6,10 +6,7 @@
 
 000-2-1.gat,30,37,0,2	script	#name	999,{
 
-    callfunc "SavePoint";
-    set @map$, "000-2-1.gat";
-    set @x, 30;
-    set @y, 37;
+    callfunc "SavePoint", "000-2-1.gat", 30, 37
     close;
 
 }