Add savepoint NPC function,

Add some change in mob_db.

2 files changed, 58 insertions, 1 deletions

diff --git a/db/mob_db.txt b/db/mob_db.txt
index 71a46941..176f08f5 100644
--- a/db/mob_db.txt
+++ b/db/mob_db.txt
@@ -1,5 +1,5 @@
 # ID,	Name,		Jname,		LV,	HP,	SP,	EXP,	JEXP,	Range1,	ATK1,	ATK2,	DEF,	MDEF,	STR,	AGI,	VIT,	INT,	DEX,	LUK,	Range2,	Range3,	Scale,	Race,	Element,Mode,	Speed,	Adelay,	Amotion,Dmotion,Drop1id,Drop1per,	Drop2id,Drop2per,	Drop3id,Drop3per,	Drop4id,Drop4per,	Drop5id,Drop5per,	Drop6id,Drop6per,	Drop7id,Drop7per,	Drop8id,Drop8per,	MEXP,	ExpPer,	MVP1id,	MVP1per,	MVP2id,	MVP2per,MVP3id,	MVP3per,mutation count,	mutation strength
-1002,	Pious,		Pious,		1,	12,	0,	1,	0,	1,	1,	4,	0,	1,	1,	1,	1,	0,	6,	0,	1,	1,	1,	1,	21,	129,	800,	1872,	672,	480,	701,	2300,		505,	1000,		703,	500,		0,	0,		0,	0,		0,	0,		0,	0,		0,	0,		0,	0,	,	,		,	,	,	,	2,		5
+1002,	Piou,		Piou,		1,	12,	0,	1,	0,	1,	1,	4,	0,	1,	1,	1,	1,	0,	6,	0,	1,	1,	1,	1,	21,	129,	800,	1872,	672,	480,	701,	2300,		505,	1000,		703,	500,		0,	0,		0,	0,		0,	0,		0,	0,		0,	0,		0,	0,	,	,		,	,	,	,	2,		5
 1003,	Piousse,	Piousse,	3,	40,	0,	2,	0,	1,	5,	8,	0,	1,	2,	1,	1,	0,	6,	0,	1,	1,	1,	1,	21,	129,	800,	1872,	672,	480,	703,	4000,		505,	2000,		701,	2000,		0,	0,		0,	0,		0,	0,		0,	0,		0,	0,		0,	0,	,	,		,	,	,	,	2,		5
 1004,	Tortugas,	Tortugas,	5,	50,	0,	5,	0,	1,	5,	10,	2,	5,	4,	0,	1,	0,	8,	5,	1,	1,	1,	1,	21,	1048705,900,	1872,	672,	480,	0,	0,		0,	0,		0,	0,		0,	0,		0,	0,		0,	0,		0,	0,		0,	0,		0,	0,	,	,		,	,	,	,	3,		5
 1005,	Ratto,		Ratto,		5,	70,	0,	3,	0,	1,	6,	12,	1,	5,	2,	2,	1,	0,	6,	5,	1,	1,	1,	1,	21,	129,	600,	1872,	672,	480,	705,	1000,		704,	850,		502,	550,		504,	300,		0,	0,		0,	0,		0,	0,		0,	0,		0,	0,	,	,		,	,	,	,	3,		5
diff --git a/npc/functions/savepoint.txt b/npc/functions/savepoint.txt
new file mode 100644
index 00000000..95aee41f
--- /dev/null
+++ b/npc/functions/savepoint.txt
@@ -0,0 +1,57 @@
+// Evol scripts.
+// Authors:
+//    Reid
+// Description:
+//    Add new save point localisation
+
+function	script	SavePoint	{
+  mesn "Narrator";
+  mes col(l("There is a nice place to stay beside you."), 9);
+  next;
+  mes col(l("What do you wish to do?"), 9);
+  next;
+
+  menu
+      l("Take a nap"), -,
+      l("Nothing"), L_Return;
+
+  if (PlayerInformations_SavePoint == 1)
+  goto L_Shortversion;
+
+  mesn "Narrator";
+  mes col(l("You close your eyes some seconds..."), 9);
+  next;
+  mes col(l("..."), 9);
+  next;
+  mes col(l("..."), 9);
+  next;
+  mes col(l("..."), 9);
+  next;
+  mes col(l("Your position get saved."), 9);
+  next;
+
+  set PlayerInformations_SavePoint, 1;
+  goto L_Save;
+
+L_Shortversion:
+  mesn "Narrator";
+  mes col(l("Your position get saved."), 9);
+  next;
+
+L_Save:
+    if (@x == 0 && @y == 0)
+        goto L_FindPoint;
+
+L_Do_Save:
+    savepoint @map$, @x, @y;
+    goto L_Return;
+
+L_FindPoint:
+    set @n, rand(getarraysize(@Xs));
+    set @x, @Xs[@n];
+    set @y, @Ys[@n];
+    goto L_Do_Save;
+
+L_Return:
+    return;
+}