Initial commit

gamemodes/darkrp/gamemode/modules/fpp/pp/client/buddies.lua

@@ -0,0 +1,93 @@
+FPP = FPP or {}
+
+--Make buddies if not there
+sql.Query("CREATE TABLE IF NOT EXISTS FPP_Buddies('steamid' TEXT NOT NULL, 'name' TEXT NOT NULL, 'physgun' INTEGER NOT NULL, 'gravgun' INTEGER NOT NULL, 'toolgun' INTEGER NOT NULL, 'playeruse' INTEGER NOT NULL, 'entitydamage' INTEGER NOT NULL, PRIMARY KEY('steamid'));")
+
+FPP.Buddies = {}
+function FPP.LoadBuddies()
+    local data = sql.Query("SELECT * FROM FPP_Buddies")
+    for _, v in ipairs(data or {}) do
+        FPP.Buddies[v.steamid] = {name = v.name, physgun = v.physgun, gravgun = v.gravgun, toolgun = v.toolgun, playeruse = v.playeruse, entitydamage = v.entitydamage} --Put all the buddies in the table
+        for _, ply in ipairs(player.GetAll()) do --If the buddies are in the server then add them serverside
+            if ply:SteamID() == v.steamid then
+                -- update the name
+                sql.Query("UPDATE FPP_Buddies SET name = " .. sql.SQLStr(ply:Nick()) .. " WHERE steamid = " .. sql.SQLStr(v.steamid) .. ";")
+                FPP.Buddies[v.steamid].name = ply:Nick()
+                RunConsoleCommand("FPP_SetBuddy", ply:UserID(), v.physgun, v.gravgun, v.toolgun, v.playeruse, v.entitydamage)
+            end
+        end
+    end
+end
+hook.Add("InitPostEntity", "FPP_Start", FPP.LoadBuddies)
+
+function FPP.SaveBuddy(SteamID, Name, Type, value)
+    if Type == "remove" then
+        FPP.Buddies[SteamID] = nil
+        sql.Query("DELETE FROM FPP_Buddies WHERE steamid = " .. sql.SQLStr(SteamID) .. ";")
+        for _, v in ipairs(player.GetAll()) do
+            if v:SteamID() == SteamID then
+                RunConsoleCommand("FPP_SetBuddy", v:UserID(), "0", "0", "0", "0", "0")
+            end
+        end
+        return
+    end
+
+    FPP.Buddies[SteamID] = FPP.Buddies[SteamID] or {name = Name, physgun = 0, gravgun = 0, toolgun = 0, playeruse = 0, entitydamage = 0} -- Create if not there
+    FPP.Buddies[SteamID][Type] = value
+
+    local data = sql.Query("SELECT * FROM FPP_Buddies WHERE steamid = " .. sql.SQLStr(SteamID) .. ";")
+    if data then
+        sql.Query("UPDATE FPP_Buddies SET " .. Type .. " = " .. value .. " WHERE steamid = " .. sql.SQLStr(SteamID) .. ";")
+        -- Oi! update the name!
+        sql.Query("UPDATE FPP_Buddies SET name = " .. sql.SQLStr(Name) .. " WHERE steamid = " .. sql.SQLStr(SteamID) .. ";")
+        FPP.Buddies[SteamID].name = Name
+    else
+        sql.Query("INSERT INTO FPP_Buddies VALUES(" .. sql.SQLStr(SteamID) .. ", " .. sql.SQLStr(Name) .. ", " .. FPP.Buddies[SteamID].physgun .. ", " .. FPP.Buddies[SteamID].gravgun .. ", " .. FPP.Buddies[SteamID].toolgun .. ", " .. FPP.Buddies[SteamID].playeruse .. ", " .. FPP.Buddies[SteamID].entitydamage .. ");")
+    end
+
+    --Let the server know of your changes
+    for _, v in ipairs(player.GetAll()) do
+        if v:SteamID() == SteamID then -- If the person you're adding is in the server then add him serverside
+            RunConsoleCommand("FPP_SetBuddy", v:UserID(), FPP.Buddies[SteamID].physgun, FPP.Buddies[SteamID].gravgun, FPP.Buddies[SteamID].toolgun, FPP.Buddies[SteamID].playeruse, FPP.Buddies[SteamID].entitydamage)
+            --Don't break because there can be people(bots actually) with the same steam ID
+        end
+    end
+
+    local ShouldRemove = true -- Remove the buddy if he isn't buddy in anything anymore
+    for _, v in pairs(FPP.Buddies[SteamID]) do
+        if v == 1 or v == "1" then
+            ShouldRemove = false
+            break
+        end
+    end
+
+    if ShouldRemove then -- If everything = 0 then he's not your friend anymore
+        FPP.Buddies[SteamID] = nil
+        sql.Query("DELETE FROM FPP_Buddies WHERE steamid = " .. sql.SQLStr(SteamID) .. ";")
+        for _, v in ipairs(player.GetAll()) do
+            if v:SteamID() == SteamID then
+                RunConsoleCommand("FPP_SetBuddy", v:UserID(), "0", "0", "0", "0", "0")
+            end
+        end
+    end
+end
+
+function FPP.NewBuddy(um)
+    local ply = um:ReadEntity()
+
+    if not IsValid(ply) or not ply:IsPlayer() then return end
+    local SteamID = ply:SteamID()
+
+    local data = sql.Query("SELECT * FROM FPP_Buddies")
+    for _, v in ipairs(data or {}) do
+        -- make the player buddy if they're in your buddies list
+        if v.steamid ~= SteamID then continue end
+
+        RunConsoleCommand("FPP_SetBuddy", ply:UserID(), v.physgun, v.gravgun, v.toolgun, v.playeruse, v.entitydamage)
+        -- update the name
+        sql.Query("UPDATE FPP_Buddies SET name = " .. sql.SQLStr(ply:Nick()) .. " WHERE steamid = " .. sql.SQLStr(SteamID) .. ";")
+        FPP.Buddies[SteamID] = FPP.Buddies[SteamID] or {}
+        FPP.Buddies[SteamID].name = ply:Nick()
+    end
+end
+usermessage.Hook("FPP_CheckBuddy", FPP.NewBuddy)

gamemodes/darkrp/gamemode/modules/fpp/pp/client/hud.lua

@@ -0,0 +1,221 @@
+FPP = FPP or {}
+
+surface.CreateFont("TabLarge", {
+    size = 17,
+    weight = 700,
+    antialias = true,
+    shadow = false,
+    font = "Trebuchet MS"})
+
+hook.Add("CanTool", "FPP_CL_CanTool", function(ply, trace, tool) -- Prevent client from SEEING his toolgun shoot while it doesn't shoot serverside.
+    if IsValid(trace.Entity) and not FPP.canTouchEnt(trace.Entity, "Toolgun") then
+        return false
+    end
+end)
+
+-- This looks weird, but whenever a client touches an ent he can't touch, without the code it'll look like he picked it up. WITH the code it really looks like he can't
+-- besides, when the client CAN pick up a prop, it also looks like he can.
+hook.Add("PhysgunPickup", "FPP_CL_PhysgunPickup", function(ply, ent)
+    if not FPP.canTouchEnt(ent, "Physgun") then
+        return false
+    end
+end)
+
+-- Makes sure the client doesn't think they can punt props
+hook.Add("GravGunPunt", "FPP_CL_GravGunPunt", function(ply, ent)
+    if tobool(FPP.Settings.FPP_GRAVGUN1.noshooting) then return false end
+    if IsValid(ent) and not FPP.canTouchEnt(ent, "Gravgun") then
+        return false
+    end
+end)
+
+local surface_SetFont = surface.SetFont
+local surface_GetTextSize = surface.GetTextSize
+local surface_SetDrawColor = surface.SetDrawColor
+
+local draw_SimpleText = draw.SimpleText
+local draw_DrawText = draw.DrawText
+local draw_RoundedBox = draw.RoundedBox
+
+local HUDNote_c = 0
+local HUDNote_i = 1
+local HUDNotes = {}
+
+-- Notify ripped off the Sandbox notify, changed to my likings
+function FPP.AddNotify(str, type, total_time)
+    local tab = {}
+    tab.text    = str
+    tab.recv    = SysTime()
+    tab.velx    = 0
+    tab.vely    = -5
+    tab.time_visible = total_time ~= 0 and total_time or 6
+    surface_SetFont( "TabLarge" )
+    local w = surface_GetTextSize( str )
+
+    tab.x       = ScrW() / 2 + w * 0.5 + (ScrW() / 20)
+    tab.y       = ScrH()
+    tab.a       = 255
+
+    if type then
+        tab.type = true
+    else
+        tab.type = false
+    end
+
+    table.insert( HUDNotes, tab )
+
+    HUDNote_c = HUDNote_c + 1
+    HUDNote_i = HUDNote_i + 1
+
+    local ply = LocalPlayer()
+
+    if not IsValid(ply) then return end -- I honestly got this error
+    ply:EmitSound("npc/turret_floor/click1.wav", 10, 100)
+end
+
+usermessage.Hook("FPP_Notify", function(u) FPP.AddNotify(u:ReadString(), u:ReadBool(), u:ReadFloat()) end)
+
+local function DrawNotice(k, v, i)
+
+    local H = ScrH() / 1024
+    local x = v.x - 75 * H
+    local y = v.y - 20 * H - 2
+
+    surface_SetFont( "TabLarge" )
+    local w, h = surface_GetTextSize( v.text )
+
+    w = w
+    h = h + 10
+
+    if v.type then
+        draw_RoundedBox(4, x - w - h + 16, y - 8, w + h, h, Color(30, 100, 30, v.a * 0.4))
+    else
+        draw_RoundedBox(4, x - w - h + 16, y - 8, w + h, h, Color(100, 30, 30, v.a * 0.4))
+    end
+
+    -- Draw Icon
+
+    surface_SetDrawColor( 255, 255, 255, v.a )
+
+    draw_SimpleText(v.text, "TabLarge", x + 1, y + 1, Color(0, 0, 0, v.a * 0.8), TEXT_ALIGN_RIGHT)
+    draw_SimpleText(v.text, "TabLarge", x - 1, y - 1, Color(0, 0, 0, v.a * 0.5), TEXT_ALIGN_RIGHT)
+    draw_SimpleText(v.text, "TabLarge", x + 1, y - 1, Color(0, 0, 0, v.a * 0.6), TEXT_ALIGN_RIGHT)
+    draw_SimpleText(v.text, "TabLarge", x - 1, y + 1, Color(0, 0, 0, v.a * 0.6), TEXT_ALIGN_RIGHT)
+    draw_SimpleText(v.text, "TabLarge", x, y, Color(255, 255, 255, v.a), TEXT_ALIGN_RIGHT)
+
+    local ideal_y = ScrH() - (HUDNote_c - i) * h
+    local ideal_x = ScrW() / 2 + w * 0.5 + (ScrW() / 20)
+    local timeleft = v.time_visible - (SysTime() - v.recv)
+
+    -- Cartoon style about to go thing
+    if (timeleft < 0.5) then
+        ideal_x = ScrW() / 2 + w * 0.5 + 200
+    end
+
+    -- Gone!
+    if (timeleft < 0.2) then
+        ideal_y = ScrH() + 50
+    end
+
+    local spd = RealFrameTime() * 15
+    v.y = v.y + v.vely * spd
+    v.x = v.x + v.velx * spd
+    local dist = ideal_y - v.y
+    v.vely = v.vely + dist * spd * 1
+
+    if (math.abs(dist) < 2 and math.abs(v.vely) < 0.1) then
+        v.vely = 0
+    end
+
+    dist = ideal_x - v.x
+    v.velx = v.velx + dist * spd * 1
+
+    if math.abs(dist) < 2 and math.abs(v.velx) < 0.1 then
+        v.velx = 0
+    end
+
+    -- Friction.. kind of FPS independant.
+    v.velx = v.velx * (0.95 - RealFrameTime() * 8)
+    v.vely = v.vely * (0.95 - RealFrameTime() * 8)
+end
+
+local weaponClassTouchTypes = {
+    ["weapon_physgun"] = "Physgun",
+    ["weapon_physcannon"] = "Gravgun",
+    ["gmod_tool"] = "Toolgun",
+}
+
+local function FilterEntityTable(eyepos, t)
+    local filtered = nil
+    local filteredDistance = nil
+
+    for i, ent in ipairs(t) do
+        local class = ent:GetClass()
+        if ent:IsWeapon() or ent:IsPlayer() or class == "viewmodel" then continue end
+
+        -- Get the entity that is closest by
+        local distance = ent:NearestPoint(eyepos):DistToSqr(eyepos)
+        if filtered == nil or distance < filteredDistance then
+            filtered = ent
+            filteredDistance = distance
+        end
+    end
+
+    return filtered
+end
+
+local boxBackground = Color(0, 0, 0, 110)
+local canTouchTextColor = Color(0, 255, 0, 255)
+local cannotTouchTextColor = Color(255, 0, 0, 255)
+local function HUDPaint()
+    local i = 0
+    for k, v in pairs(HUDNotes) do
+        if v ~= 0 then
+            i = i + 1
+            DrawNotice(k, v, i)
+        end
+    end
+
+    for k, v in pairs(HUDNotes) do
+        if v ~= 0 and v.recv + v.time_visible < SysTime() then
+            HUDNotes[ k ] = 0
+            HUDNote_c = HUDNote_c - 1
+            if (HUDNote_c == 0) then HUDNotes = {} end
+        end
+    end
+
+    if FPP.getPrivateSetting("HideOwner") then return end
+
+    --Show the owner:
+    local ply = LocalPlayer()
+    local eyepos = ply:EyePos()
+    local LAEnt2 = ents.FindAlongRay(eyepos, eyepos + EyeAngles():Forward() * 16384)
+
+    local LAEnt = FilterEntityTable(eyepos, LAEnt2)
+    if not IsValid(LAEnt) then return end
+    -- Prevent being able to see ownership through walls
+    local eyeTrace = ply:GetEyeTrace()
+    -- GetEyeTrace can return nil before InitPostEntity
+    if eyeTrace == nil then return end
+    if eyeTrace.HitPos:DistToSqr(eyeTrace.StartPos) < LAEnt:NearestPoint(eyeTrace.StartPos):DistToSqr(eyeTrace.StartPos) then return end
+
+    local weapon = ply:GetActiveWeapon()
+    local class = weapon:IsValid() and weapon:GetClass() or ""
+
+    local touchType = weaponClassTouchTypes[class] or "EntityDamage"
+    local reason = FPP.entGetTouchReason(LAEnt, touchType)
+    if not reason then return end
+    local originalOwner = LAEnt:GetNW2String("FPP_OriginalOwner")
+    originalOwner = originalOwner ~= "" and (" (previous owner: %s)"):format(originalOwner) or ""
+    reason = reason .. originalOwner
+
+    surface_SetFont("Default")
+    local w,h = surface_GetTextSize(reason)
+    local col = FPP.canTouchEnt(LAEnt, touchType) and canTouchTextColor or cannotTouchTextColor
+    local scrH = ScrH()
+
+    draw_RoundedBox(4, 0, scrH / 2 - h - 2, w + 10, 20, boxBackground)
+    draw_DrawText(reason, "Default", 5, scrH / 2 - h, col, 0)
+    surface_SetDrawColor(255, 255, 255, 255)
+end
+hook.Add("HUDPaint", "FPP_HUDPaint", HUDPaint)

gamemodes/darkrp/gamemode/modules/fpp/pp/client/ownability.lua

@@ -0,0 +1,93 @@
+FPP = FPP or {}
+
+FPP.entOwners       = FPP.entOwners or {}
+FPP.entTouchability = FPP.entTouchability or {}
+FPP.entTouchReasons = FPP.entTouchReasons or {}
+
+local touchTypes = {
+    Physgun = 1,
+    Gravgun = 2,
+    Toolgun = 4,
+    PlayerUse = 8,
+    EntityDamage = 16
+}
+
+local reasonSize = 4 -- bits
+local reasons = {
+    [1] = "owner", -- you can't touch other people's props
+    [2] = "world",
+    [3] = "disconnected",
+    [4] = "blocked",
+    [5] = "constrained",
+    [6] = "buddy",
+    [7] = "shared",
+    [8] = "player", -- you can't pick up players
+}
+
+local function receiveTouchData(len)
+    repeat
+        local entIndex = net.ReadUInt(13)
+        local ownerIndex = net.ReadUInt(8)
+        local touchability = net.ReadUInt(5)
+        local reason = net.ReadUInt(20)
+
+        if ownerIndex == 255 then
+            ownerIndex = -1
+        end
+
+        FPP.entOwners[entIndex] = ownerIndex
+        FPP.entTouchability[entIndex] = touchability
+        FPP.entTouchReasons[entIndex] = reason
+    until net.ReadBit() == 1
+end
+net.Receive("FPP_TouchabilityData", receiveTouchData)
+
+function FPP.entGetOwner(ent)
+    local idx = FPP.entOwners[ent:EntIndex()]
+    ent.FPPOwner = idx and Entity(idx) or nil
+
+    return ent.FPPOwner
+end
+
+function FPP.canTouchEnt(ent, touchType)
+    ent.FPPCanTouch = FPP.entTouchability[ent:EntIndex()]
+    if not touchType or not ent.FPPCanTouch then
+        return ent.FPPCanTouch
+    end
+
+    return bit.bor(ent.FPPCanTouch, touchTypes[touchType]) == ent.FPPCanTouch
+end
+
+local touchTypeMultiplier = {
+    ["Physgun"] = 0,
+    ["Gravgun"] = 1,
+    ["Toolgun"] = 2,
+    ["PlayerUse"] = 3,
+    ["EntityDamage"] = 4
+}
+
+function FPP.entGetTouchReason(ent, touchType)
+    local idx = FPP.entTouchReasons[ent:EntIndex()] or 0
+    ent.FPPCanTouchWhy = idx
+
+    if not touchType then return idx end
+
+    local maxReasonValue = 15
+    -- 1111 shifted to the right touch type
+    local touchTypeMask = bit.lshift(maxReasonValue, reasonSize * touchTypeMultiplier[touchType])
+    -- Extract reason for touch type from reason number
+    local touchTypeReason = bit.band(idx, touchTypeMask)
+    -- Shift it back to the right
+    local reasonNr = bit.rshift(touchTypeReason, reasonSize * touchTypeMultiplier[touchType])
+
+    local reason = reasons[reasonNr]
+    local owner = ent:CPPIGetOwner()
+
+    if reasonNr == 1 then -- convert owner to the actual player
+        return not isnumber(owner) and IsValid(owner) and owner:Nick() or "Unknown player"
+    elseif reasonNr == 6 then
+        return "Buddy (" .. (IsValid(owner) and owner:Nick() or "Unknown player") .. ")"
+    end
+
+    return reason
+end