From 09ef5a47ad703d5c9366c39c7557a54d9ed62f25 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Mon, 24 Jun 2019 09:34:28 -0300
Subject: Move Mount rent function to a new file. Provide Tortuga Rent function
 (half price).

---
 npc/003-1/taree.txt      |  47 ----------------------
 npc/functions/mounts.txt | 101 +++++++++++++++++++++++++++++++++++++++++++++++
 npc/scripts.conf         |   1 +
 3 files changed, 102 insertions(+), 47 deletions(-)
 create mode 100644 npc/functions/mounts.txt

diff --git a/npc/003-1/taree.txt b/npc/003-1/taree.txt
index f45e89481..1aa059368 100644
--- a/npc/003-1/taree.txt
+++ b/npc/003-1/taree.txt
@@ -4,53 +4,6 @@
 // Description:
 //    Mouboo Renting (var MOUBOO_RENTTIME )
 
-// MoubooRent( NPC Name )
-function	script	MoubooRent	{
-    .@n$=getarg(0, strnpcinfo(0));
-    if (MOUBOO_RENTTIME > gettimetick(2)) {
-        mesn .@n$;
-        mesq l("Moo!");
-        return;
-    }
-
-    mesn .@n$;
-    mesq l("Moo!");
-    next;
-    mesn .@n$;
-    mesq l("Do you want to rent a Mouboo? It allows quick traveling!");
-    next;
-    menuint
-        rif(Zeny > 100, l("Rent 1 day for 100 GP")), 100,
-        rif(Zeny > 270, l("Rent 3 days for 270 GP")), 270,
-        rif(Zeny > 600, l("Rent 7 days for 600 GP")), 600,
-        rif(Zeny > 1200, l("Rent 15 days for 1200 GP")), 1200,
-        rif(Zeny > 2000, l("Rent 30 days for 2000 GP")), 2000,
-        l("Don't rent a mouboo."), 0;
-    mes "";
-    switch (@menuret) {
-        case 0:
-            return;
-        case 100:
-            .@time=86400; break;
-        case 270:
-            .@time=259200; break;
-        case 600:
-            .@time=604800; break;
-        case 1200:
-            .@time=1296000; break;
-        case 2000:
-            .@time=2592000; break;
-        default:
-            Exception("Invalid price: "+@menuret, RB_DEFAULT|RB_SPEECH|RB_ISFATAL);
-            break;
-    }
-    inventoryplace RidingMouboo, 1;
-    MOUBOO_RENTTIME=gettimetick(2)+.@time;
-    Zeny-=@menuret;
-    rentitem RidingMouboo, .@time;
-    return;
-}
-
 003-1,63,31,0	script	Taree	NPC_ELVEN_MAN_MOUBOO_SHOP,{
     MoubooRent();
     closeclientdialog;
diff --git a/npc/functions/mounts.txt b/npc/functions/mounts.txt
new file mode 100644
index 000000000..af3303dfe
--- /dev/null
+++ b/npc/functions/mounts.txt
@@ -0,0 +1,101 @@
+// TMW2 scripts.
+// Authors:
+//    Jesusalva
+// Description:
+//    Mount Renting (var MOUBOO_RENTTIME )
+
+// MoubooRent( NPC Name )
+function	script	MoubooRent	{
+    .@n$=getarg(0, strnpcinfo(0));
+    if (MOUBOO_RENTTIME > gettimetick(2)) {
+        mesn .@n$;
+        mesq l("Moo!");
+        return;
+    }
+
+    mesn .@n$;
+    mesq l("Moo!");
+    next;
+    mesn .@n$;
+    mesq l("Do you want to rent a Mouboo? It allows quick traveling!");
+    next;
+    menuint
+        rif(Zeny > 100, l("Rent 1 day for 100 GP")), 100,
+        rif(Zeny > 270, l("Rent 3 days for 270 GP")), 270,
+        rif(Zeny > 600, l("Rent 7 days for 600 GP")), 600,
+        rif(Zeny > 1200, l("Rent 15 days for 1200 GP")), 1200,
+        rif(Zeny > 2000, l("Rent 30 days for 2000 GP")), 2000,
+        l("Don't rent a mouboo."), 0;
+    mes "";
+    switch (@menuret) {
+        case 0:
+            return;
+        case 100:
+            .@time=86400; break;
+        case 270:
+            .@time=259200; break;
+        case 600:
+            .@time=604800; break;
+        case 1200:
+            .@time=1296000; break;
+        case 2000:
+            .@time=2592000; break;
+        default:
+            Exception("Invalid price: "+@menuret, RB_DEFAULT|RB_SPEECH|RB_ISFATAL);
+            break;
+    }
+    inventoryplace RidingMouboo, 1;
+    MOUBOO_RENTTIME=gettimetick(2)+.@time;
+    Zeny-=@menuret;
+    rentitem RidingMouboo, .@time;
+    return;
+}
+
+// TortugaRent( NPC Name )
+function	script	TortugaRent	{
+    .@n$=getarg(0, strnpcinfo(0));
+    if (MOUBOO_RENTTIME > gettimetick(2)) {
+        mesn .@n$;
+        mesq l("Boo!");
+        return;
+    }
+
+    mesn .@n$;
+    mesq l("Boo!");
+    next;
+    mesn .@n$;
+    mesq l("Do you want to rent a Tortuga? It allows quick traveling!");
+    next;
+    menuint
+        rif(Zeny > 50, l("Rent 1 day for 50 GP")), 50,
+        rif(Zeny > 135, l("Rent 3 days for 135 GP")), 135,
+        rif(Zeny > 300, l("Rent 7 days for 300 GP")), 300,
+        rif(Zeny > 600, l("Rent 15 days for 600 GP")), 600,
+        rif(Zeny > 1000, l("Rent 30 days for 1000 GP")), 1000,
+        l("Don't rent a tortuga."), 0;
+    mes "";
+    switch (@menuret) {
+        case 0:
+            return;
+        case 50:
+            .@time=86400; break;
+        case 135:
+            .@time=259200; break;
+        case 300:
+            .@time=604800; break;
+        case 600:
+            .@time=1296000; break;
+        case 1000:
+            .@time=2592000; break;
+        default:
+            Exception("Invalid price: "+@menuret, RB_DEFAULT|RB_SPEECH|RB_ISFATAL);
+            break;
+    }
+    inventoryplace RidingTortuga, 1;
+    MOUBOO_RENTTIME=gettimetick(2)+.@time;
+    Zeny-=@menuret;
+    rentitem RidingTortuga, .@time;
+    return;
+}
+
+
diff --git a/npc/scripts.conf b/npc/scripts.conf
index c41d800d4..9226cd345 100644
--- a/npc/scripts.conf
+++ b/npc/scripts.conf
@@ -51,6 +51,7 @@
 "npc/functions/marriage.txt",
 "npc/functions/mobpoint.txt",
 "npc/functions/mobhunter.txt",
+"npc/functions/mounts.txt",
 "npc/functions/news.txt",
 "npc/functions/npcmove.txt",
 "npc/functions/npcmovegraph.txt",
-- 
cgit v1.2.3-60-g2f50