Initial commit

This commit is contained in:
pavetr
2026-03-15 14:54:49 +03:00
commit 64f8029c06
4027 changed files with 254888 additions and 0 deletions

View File

@@ -0,0 +1,210 @@
local function AddButtonToFrame(Frame)
Frame:SetTall(Frame:GetTall() + 110)
local button = vgui.Create("DButton", Frame)
button:SetPos(10, Frame:GetTall() - 110)
button:SetSize(180, 100)
Frame.buttonCount = (Frame.buttonCount or 0) + 1
Frame.lastButton = button
return button
end
DarkRP.stub{
name = "openKeysMenu",
description = "Open the keys/F2 menu.",
parameters = {},
realm = "Client",
returns = {},
metatable = DarkRP
}
DarkRP.hookStub{
name = "onKeysMenuOpened",
description = "Called when the keys menu is opened.",
parameters = {
{
name = "ent",
description = "The door entity.",
type = "Entity"
},
{
name = "Frame",
description = "The keys menu frame.",
type = "Panel"
}
},
returns = {
},
realm = "Client"
}
local KeyFrameVisible = false
local function openMenu(setDoorOwnerAccess, doorSettingsAccess)
if KeyFrameVisible then return end
local trace = LocalPlayer():GetEyeTrace()
local ent = trace.Entity
-- Don't open the menu if the entity is not ownable, the entity is too far away or the door settings are not loaded yet
if not IsValid(ent) or not ent:isKeysOwnable() or trace.HitPos:DistToSqr(LocalPlayer():EyePos()) > 40000 then return end
KeyFrameVisible = true
local Frame = vgui.Create("DFrame")
Frame:SetSize(200, 30) -- Base size
Frame.btnMaxim:SetVisible(false)
Frame.btnMinim:SetVisible(false)
Frame:SetVisible(true)
Frame:MakePopup()
Frame:ParentToHUD()
function Frame:Think()
local tr = LocalPlayer():GetEyeTrace()
local LAEnt = tr.Entity
if not IsValid(LAEnt) or not LAEnt:isKeysOwnable() or tr.HitPos:DistToSqr(LocalPlayer():EyePos()) > 40000 then
self:Close()
end
if not self.Dragging then return end
local x = gui.MouseX() - self.Dragging[1]
local y = gui.MouseY() - self.Dragging[2]
x = math.Clamp(x, 0, ScrW() - self:GetWide())
y = math.Clamp(y, 0, ScrH() - self:GetTall())
self:SetPos(x, y)
end
local entType = DarkRP.getPhrase(ent:IsVehicle() and "vehicle" or "door")
Frame:SetTitle(DarkRP.getPhrase("x_options", entType:gsub("^%a", string.upper)))
function Frame:Close()
KeyFrameVisible = false
self:SetVisible(false)
self:Remove()
end
-- All the buttons
if ent:isKeysOwnedBy(LocalPlayer()) then
local Owndoor = AddButtonToFrame(Frame)
Owndoor:SetText(DarkRP.getPhrase("sell_x", entType))
Owndoor.DoClick = function() RunConsoleCommand("darkrp", "toggleown") Frame:Close() end
local AddOwner = AddButtonToFrame(Frame)
AddOwner:SetText(DarkRP.getPhrase("add_owner"))
AddOwner.DoClick = function()
local menu = DermaMenu()
menu.found = false
for _, v in ipairs(DarkRP.nickSortedPlayers()) do
if not ent:isKeysOwnedBy(v) and not ent:isKeysAllowedToOwn(v) then
local steamID = v:SteamID()
menu.found = true
menu:AddOption(v:Nick(), function() RunConsoleCommand("darkrp", "ao", steamID) end)
end
end
if not menu.found then
menu:AddOption(DarkRP.getPhrase("noone_available"), function() end)
end
menu:Open()
end
local RemoveOwner = AddButtonToFrame(Frame)
RemoveOwner:SetText(DarkRP.getPhrase("remove_owner"))
RemoveOwner.DoClick = function()
local menu = DermaMenu()
for _, v in ipairs(DarkRP.nickSortedPlayers()) do
if (ent:isKeysOwnedBy(v) and not ent:isMasterOwner(v)) or ent:isKeysAllowedToOwn(v) then
local steamID = v:SteamID()
menu.found = true
menu:AddOption(v:Nick(), function() RunConsoleCommand("darkrp", "ro", steamID) end)
end
end
if not menu.found then
menu:AddOption(DarkRP.getPhrase("noone_available"), function() end)
end
menu:Open()
end
if not ent:isMasterOwner(LocalPlayer()) then
RemoveOwner:SetDisabled(true)
end
end
if doorSettingsAccess then
local DisableOwnage = AddButtonToFrame(Frame)
DisableOwnage:SetText(DarkRP.getPhrase(ent:getKeysNonOwnable() and "allow_ownership" or "disallow_ownership"))
DisableOwnage.DoClick = function() Frame:Close() RunConsoleCommand("darkrp", "toggleownable") end
end
if doorSettingsAccess and (ent:isKeysOwned() or ent:getKeysNonOwnable() or ent:getKeysDoorGroup() or hasTeams) or ent:isKeysOwnedBy(LocalPlayer()) then
local DoorTitle = AddButtonToFrame(Frame)
DoorTitle:SetText(DarkRP.getPhrase("set_x_title", entType))
DoorTitle.DoClick = function()
Derma_StringRequest(DarkRP.getPhrase("set_x_title", entType), DarkRP.getPhrase("set_x_title_long", entType), "", function(text)
RunConsoleCommand("darkrp", "title", text)
if IsValid(Frame) then
Frame:Close()
end
end,
function() end, DarkRP.getPhrase("ok"), DarkRP.getPhrase("cancel"))
end
end
if not ent:isKeysOwned() and not ent:getKeysNonOwnable() and not ent:getKeysDoorGroup() and not ent:getKeysDoorTeams() or not ent:isKeysOwnedBy(LocalPlayer()) and ent:isKeysAllowedToOwn(LocalPlayer()) then
local Owndoor = AddButtonToFrame(Frame)
Owndoor:SetText(DarkRP.getPhrase("buy_x", entType))
Owndoor.DoClick = function() RunConsoleCommand("darkrp", "toggleown") Frame:Close() end
end
if doorSettingsAccess then
local EditDoorGroups = AddButtonToFrame(Frame)
EditDoorGroups:SetText(DarkRP.getPhrase("edit_door_group"))
EditDoorGroups.DoClick = function()
local menu = DermaMenu()
local groups = menu:AddSubMenu(DarkRP.getPhrase("door_groups"))
local teams = menu:AddSubMenu(DarkRP.getPhrase("jobs"))
local add = teams:AddSubMenu(DarkRP.getPhrase("add"))
local remove = teams:AddSubMenu(DarkRP.getPhrase("remove"))
menu:AddOption(DarkRP.getPhrase("none"), function()
RunConsoleCommand("darkrp", "togglegroupownable")
if IsValid(Frame) then Frame:Close() end
end)
for k in pairs(RPExtraTeamDoors) do
groups:AddOption(k, function()
RunConsoleCommand("darkrp", "togglegroupownable", k)
if IsValid(Frame) then Frame:Close() end
end)
end
local doorTeams = ent:getKeysDoorTeams()
for k, v in pairs(RPExtraTeams) do
local which = (not doorTeams or not doorTeams[k]) and add or remove
which:AddOption(v.name, function()
RunConsoleCommand("darkrp", "toggleteamownable", k)
if IsValid(Frame) then Frame:Close() end
end)
end
menu:Open()
end
end
if Frame.buttonCount == 1 then
Frame.lastButton:DoClick()
elseif Frame.buttonCount == 0 or not Frame.buttonCount then
Frame:Close()
KeyFrameVisible = true
timer.Simple(0.3, function() KeyFrameVisible = false end)
end
hook.Call("onKeysMenuOpened", nil, ent, Frame)
Frame:Center()
Frame:SetSkin(GAMEMODE.Config.DarkRPSkin)
end
function DarkRP.openKeysMenu(um)
CAMI.PlayerHasAccess(LocalPlayer(), "DarkRP_SetDoorOwner", function(setDoorOwnerAccess)
CAMI.PlayerHasAccess(LocalPlayer(), "DarkRP_ChangeDoorSettings", fp{openMenu, setDoorOwnerAccess})
end)
end
usermessage.Hook("KeysMenu", DarkRP.openKeysMenu)

View File

@@ -0,0 +1,163 @@
AddCSLuaFile()
if SERVER then
AddCSLuaFile("cl_menu.lua")
end
if CLIENT then
SWEP.Slot = 1
SWEP.SlotPos = 1
SWEP.DrawAmmo = false
SWEP.DrawCrosshair = false
include("cl_menu.lua")
end
SWEP.PrintName = "Keys"
SWEP.Author = "DarkRP Developers"
SWEP.Instructions = "Left click to lock\nRight click to unlock\nReload for door settings or animation menu"
SWEP.Contact = ""
SWEP.Purpose = ""
SWEP.IsDarkRPKeys = true
SWEP.WorldModel = ""
SWEP.ViewModelFOV = 62
SWEP.ViewModelFlip = false
SWEP.AnimPrefix = "rpg"
SWEP.UseHands = true
SWEP.Spawnable = true
SWEP.AdminOnly = true
SWEP.Category = "DarkRP (Utility)"
SWEP.Sound = "doors/door_latch3.wav"
SWEP.Primary.Delay = 0.3
SWEP.Primary.ClipSize = -1
SWEP.Primary.DefaultClip = 0
SWEP.Primary.Automatic = false
SWEP.Primary.Ammo = ""
SWEP.Secondary.Delay = 0.3
SWEP.Secondary.ClipSize = -1
SWEP.Secondary.DefaultClip = 0
SWEP.Secondary.Automatic = false
SWEP.Secondary.Ammo = ""
function SWEP:Initialize()
self:SetHoldType("normal")
end
function SWEP:Deploy()
if CLIENT or not IsValid(self:GetOwner()) then return true end
self:GetOwner():DrawWorldModel(false)
return true
end
function SWEP:Holster()
return true
end
function SWEP:PreDrawViewModel()
return true
end
local function lookingAtLockable(ply, ent, hitpos)
local eyepos = ply:EyePos()
return IsValid(ent)
and ent:isKeysOwnable()
and (
ent:isDoor() and eyepos:DistToSqr(hitpos) < 2000
or
ent:IsVehicle() and eyepos:DistToSqr(hitpos) < 4000
)
end
local function lockUnlockAnimation(ply, snd)
ply:EmitSound("npc/metropolice/gear" .. math.random(1, 6) .. ".wav")
timer.Simple(0.9, function() if IsValid(ply) then ply:EmitSound(snd) end end)
umsg.Start("anim_keys")
umsg.Entity(ply)
umsg.String("usekeys")
umsg.End()
ply:AnimRestartGesture(GESTURE_SLOT_ATTACK_AND_RELOAD, ACT_GMOD_GESTURE_ITEM_PLACE, true)
end
local function doKnock(ply, sound)
ply:EmitSound(sound, 100, math.random(90, 110))
umsg.Start("anim_keys")
umsg.Entity(ply)
umsg.String("knocking")
umsg.End()
ply:AnimRestartGesture(GESTURE_SLOT_ATTACK_AND_RELOAD, ACT_HL2MP_GESTURE_RANGE_ATTACK_FIST, true)
end
function SWEP:PrimaryAttack()
local Owner = self:GetOwner()
if not IsValid(Owner) then return end
local trace = Owner:GetEyeTrace()
local ent = trace.Entity
if not lookingAtLockable(Owner, ent, trace.HitPos) then return end
self:SetNextPrimaryFire(CurTime() + self.Primary.Delay)
if CLIENT then return end
if Owner:canKeysLock(ent) then
ent:keysLock() -- Lock the door immediately so it won't annoy people
lockUnlockAnimation(Owner, self.Sound)
elseif ent:IsVehicle() then
DarkRP.notify(Owner, 1, 3, DarkRP.getPhrase("do_not_own_ent"))
else
doKnock(Owner, "physics/wood/wood_crate_impact_hard2.wav")
end
end
function SWEP:SecondaryAttack()
local Owner = self:GetOwner()
if not IsValid(Owner) then return end
local trace = Owner:GetEyeTrace()
local ent = trace.Entity
if not lookingAtLockable(Owner, ent, trace.HitPos) then return end
self:SetNextSecondaryFire(CurTime() + self.Secondary.Delay)
if CLIENT then return end
if Owner:canKeysUnlock(ent) then
ent:keysUnLock() -- Unlock the door immediately so it won't annoy people
lockUnlockAnimation(Owner, self.Sound)
elseif ent:IsVehicle() then
DarkRP.notify(Owner, 1, 3, DarkRP.getPhrase("do_not_own_ent"))
else
doKnock(Owner, "physics/wood/wood_crate_impact_hard3.wav")
end
end
function SWEP:Reload()
local trace = self:GetOwner():GetEyeTrace()
local ent = trace.Entity
if not IsValid(ent) or ((not ent:isDoor() and not ent:IsVehicle()) or self:GetOwner():EyePos():DistToSqr(trace.HitPos) > 40000) then
if CLIENT and not DarkRP.disabledDefaults["modules"]["animations"] then RunConsoleCommand("_DarkRP_AnimationMenu") end
return
end
if SERVER then
umsg.Start("KeysMenu", self:GetOwner())
umsg.End()
end
end