From 1bd4cc9901acbab05f36402bfdbb96c2578cf2d3 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Tue, 12 Mar 2019 18:26:32 -0300
Subject: Remove unused NPC variable .time, and merge estate2 on main estate
 files They're not THAT huge anymore to justify their own file

---
 npc/009-1/estate.txt | 77 +++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 76 insertions(+), 1 deletion(-)

(limited to 'npc/009-1/estate.txt')

diff --git a/npc/009-1/estate.txt b/npc/009-1/estate.txt
index 5f13e1114..5782f9f45 100644
--- a/npc/009-1/estate.txt
+++ b/npc/009-1/estate.txt
@@ -53,7 +53,6 @@ OnInit:
     // Estate Settings
     .id=4; // Estate ID
     .price=40000; // Monthly rent price
-    .time=60*60*24*30; // How long last default rent time. In future could consider month.
     end;
 
 }
@@ -94,3 +93,79 @@ OnInit:
 
 }
 
+//////////////////////////////////////////////////////////////////////////////
+// ID: 5
+
+// The sign is the main controller
+009-1,108,46,0	script	Sign#RES_0097	NPC_SWORDS_SIGN,{
+    if ($ESTATE_RENTTIME[.id] < gettimetick(2))
+        goto L_RentAvailable;
+
+    if ($ESTATE_OWNER[.id] == getcharid(3))
+        goto L_Manage;
+
+    if (is_admin() && $@GM_OVERRIDE)
+        goto L_Manage;
+
+    mesc l("This estate currently belongs to @@.", $ESTATE_OWNERNAME$[.id]);
+    mesc l("Press the doorbell?");
+    next;
+    if (askyesno() == ASK_YES)
+        doevent "Doorbell#RES_0097::OnDoorbell";
+    close;
+
+L_RentAvailable:
+    realestate_rent(.id, .price);
+    close;
+
+L_Manage:
+    realestate_manage(.id, (.price*7/10));
+    close;
+
+OnInit:
+    .sex = G_OTHER;
+    .distance = 3;
+
+    // Estate Settings
+    .id=5; // Estate ID
+    .price=40000; // Monthly rent price
+    end;
+
+}
+
+// Door entrance
+009-1,109,45,0	script	#RES_0097	NPC_HIDDEN,0,0,{
+    end;
+OnTouch:
+    if ($ESTATE_RENTTIME[.id] < gettimetick(2))
+        goto L_RentAvailable;
+
+    if ($ESTATE_OWNER[.id] == getcharid(3) || $ESTATE_PASSWORD$[.id] == "")
+        goto L_Warp;
+
+    mesc l("The door is locked");
+    next;
+    mesc l("However, it can be unlocked if you know the password:");
+    if (is_gm()) mesc l("You can use super password \"mouboo\" to unlock the door."), 1;
+    input .@password$;
+    // GMs can use super password "mouboo"
+    if (.@password$ == $ESTATE_PASSWORD$[.id] || (is_gm() && .@password$ == "mouboo"))
+        goto L_Warp;
+    close;
+
+L_Warp:
+    warp "009-7", 33, 33;
+    closeclientdialog;
+    close;
+
+L_RentAvailable:
+    dispbottom l("This estate is available for rent, talk to the sign to rent it.");
+    close;
+
+OnInit:
+    // Estate Settings
+    .id=5; // Estate ID
+    end;
+
+}
+
-- 
cgit v1.2.3-70-g09d2