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/functions/mounts.txt | 101 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 101 insertions(+)
 create mode 100644 npc/functions/mounts.txt

(limited to 'npc/functions')

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;
+}
+
+
-- 
cgit v1.2.3-60-g2f50