From d285317364685bcb07eccfec3bafd2e0e56aab33 Mon Sep 17 00:00:00 2001
From: "E. Almqvist" <h1g.server@gmail.com>
Date: Sat, 22 Feb 2020 00:31:38 +0100
Subject: [PATCH] Added door locking & owner functions

---
 entities/weapons/quantum_hands/shared.lua  | 12 ++++++-
 gamemode/engine/lib/server/sv_property.lua | 40 ++++++++++++++++++++--
 gamemode/engine/lib/server/sv_zone.lua     |  9 ++++-
 gamemode/engine/vars/sh_vars.lua           |  7 +++-
 4 files changed, 62 insertions(+), 6 deletions(-)

diff --git a/entities/weapons/quantum_hands/shared.lua b/entities/weapons/quantum_hands/shared.lua
index 041b9de..adbd4d5 100644
--- a/entities/weapons/quantum_hands/shared.lua
+++ b/entities/weapons/quantum_hands/shared.lua
@@ -63,7 +63,7 @@ SWEP.Secondary.ClipSize = -1
 SWEP.Secondary.DefaultClip = 0
 SWEP.Secondary.Automatic = false
 SWEP.Secondary.Ammo = ""
-SWEP.Secondary.Delay = 0.25
+SWEP.Secondary.Delay = 0.75
 
 function SWEP:Initialize()
 	self:SetHoldType( "normal" )
@@ -106,6 +106,16 @@ function SWEP:PrimaryAttack()
 end
 
 function SWEP:SecondaryAttack() 
+
+	if SERVER then
+		local hitposEnt = self:GetOwner():GetEyeTraceNoCursor().Entity
+		if( Quantum.Server.DoorClasses[hitposEnt:GetClass()] && IsValid(hitposEnt) ) then -- if it is a door
+			if( hitposEnt:GetPos():Distance(self:GetOwner():GetPos()) <= 90 ) then
+				Quantum.Server.Property.PlayerSwitchLock( self:GetOwner(), hitposEnt ) -- then try to unlock/lock it
+			end
+		end
+	end
+
 	if CLIENT then
 		local devmode = GetConVar( "developer" )
 		if( devmode:GetBool() == true ) then
diff --git a/gamemode/engine/lib/server/sv_property.lua b/gamemode/engine/lib/server/sv_property.lua
index 1540f6d..5d0dea8 100644
--- a/gamemode/engine/lib/server/sv_property.lua
+++ b/gamemode/engine/lib/server/sv_property.lua
@@ -19,10 +19,12 @@ function Quantum.Server.Property.Register( propid, tbl )
 			vec2 = tbl.vec2,
 			price = tbl.price || Quantum.Server.DefualtPropertyPrice
 		}
-		prop.zone = Quantum.Server.Zone.Register( propid .. "_zone", { -- register the zone for the property
+
+		prop.zone = Quantum.Server.Zone.Register( propid .. "_property", { -- register the zone for the property
 			name = prop.name, 
 			vec1 = prop.vec1, 
-			vec2 = prop.vec2
+			vec2 = prop.vec2,
+			property = propid
 		} )
 
 		Quantum.Server.Property.Properties[propid] = prop
@@ -54,7 +56,39 @@ end)
 -- Door functions --
 
 function Quantum.Server.Property.LockDoor( ent )
-	if( ent:GetClass() ) then -- doors/door_locked2.wav
+	if( Quantum.Server.DoorClasses[ent:GetClass()] && IsValid( ent ) ) then -- 
+		ent:Fire( "lock", "", 0 )
+		ent:EmitSound( Quantum.DoorSounds.Lock )
+		ent.islocked = true
+	end
+end
+
+function Quantum.Server.Property.UnlockDoor( ent )
+	if( Quantum.Server.DoorClasses[ent:GetClass()] && IsValid( ent ) ) then -- 
+		ent:Fire( "unlock", "", 0 )
+		ent:EmitSound( Quantum.DoorSounds.Unlock )
+		ent.islocked = false
+	end
+end
 
+function Quantum.Server.Property.SwitchLockDoor( ent )
+	if( Quantum.Server.DoorClasses[ent:GetClass()] && IsValid( ent ) ) then -- 
+		if( ent.islocked ) then
+			Quantum.Server.Property.UnlockDoor( ent )
+		else
+			Quantum.Server.Property.LockDoor( ent )
+		end
+	end
+end
+
+function Quantum.Server.Property.PlayerSwitchLock( pl, doorent )
+	local zone = Quantum.Server.Zone.GetCurrentZone( pl:GetPos() )
+	if( Quantum.Server.Zone.DoorIsInZone(doorent, zone.id) ) then
+		local prop = Quantum.Server.Property.Get( zone.property )
+		if( prop.owner == pl || pl:IsSuperAdmin() ) then
+			Quantum.Server.Property.SwitchLockDoor( doorent )
+		else
+			return
+		end
 	end
 end
\ No newline at end of file
diff --git a/gamemode/engine/lib/server/sv_zone.lua b/gamemode/engine/lib/server/sv_zone.lua
index 0bea5af..483a745 100644
--- a/gamemode/engine/lib/server/sv_zone.lua
+++ b/gamemode/engine/lib/server/sv_zone.lua
@@ -15,7 +15,9 @@ function Quantum.Server.Zone.Register( zoneid, tbl )
 			name = tbl.name || "Unknown Zone",
 			id = zoneid,
 			vec1 = tbl.vec1,
-			vec2 = tbl.vec2
+			vec2 = tbl.vec2,
+			property = tbl.property -- not used for normal zones
+			-- why cant lua just have classes :(
 		}
 
 		Quantum.Server.Zone.Zones[zoneid] = zone
@@ -52,4 +54,9 @@ function Quantum.Server.Zone.GetDoors( zoneid )
 	end
 
 	return entInZone
+end
+
+function Quantum.Server.Zone.DoorIsInZone( doorent, zoneid )
+	local doors = Quantum.Server.Zone.GetDoors( zoneid )
+	return table.HasValue( doors, doorent )
 end
\ No newline at end of file
diff --git a/gamemode/engine/vars/sh_vars.lua b/gamemode/engine/vars/sh_vars.lua
index 3f403a2..74e3943 100644
--- a/gamemode/engine/vars/sh_vars.lua
+++ b/gamemode/engine/vars/sh_vars.lua
@@ -56,4 +56,9 @@ end
 
 function Quantum.PrintPlayer( pl )
 	return "[" .. pl:Nick() .. "|" .. pl:SteamID() .. "]"
-end
\ No newline at end of file
+end
+
+Quantum.DoorSounds = {
+	Lock = "doors/default_locked.wav",
+	Unlock = "doors/default_locked.wav"
+}
\ No newline at end of file