Role distribution inspection

CHANGELOG.md

@@ -12,6 +12,7 @@ All notable changes to TTT2 will be documented here. Inspired by [keep a changel
 - Added `GM:TTT2PlayDeathScream` hook to cancel or overwrite/change the deathscream sound that plays, when you die (by @NickCloudAT)
 - Added support for "toggle_zoom" binds to trigger the radio commands menu (by @TW1STaL1CKY)
 - Added option to use right click to enable/disable roles in the role layering menu (by @TimGoll)
+- Added a menu to allow admins to inspect, in detail, how and why roles are distributed as they are (by @nike4613)
 - Added option to enable team name next to role name on the HUD (by @milkwxter)
 
 ### Fixed

gamemodes/terrortown/gamemode/client/cl_main.lua

@@ -27,6 +27,7 @@ ttt_include("sh_sprint")
 ttt_include("sh_main")
 ttt_include("sh_shop")
 ttt_include("sh_shopeditor")
+ttt_include("sh_roleinspect")
 ttt_include("sh_rolelayering")
 ttt_include("sh_scoring")
 ttt_include("sh_corpse")
@@ -85,6 +86,8 @@ ttt_include("cl_vskin__vgui__dprofilepanel")
 ttt_include("cl_vskin__vgui__dinfoitem")
 ttt_include("cl_vskin__vgui__dsubmenulist")
 ttt_include("cl_vskin__vgui__dweaponpreview")
+ttt_include("cl_vskin__vgui__dpippanel")
+ttt_include("cl_vskin__vgui__dplayergraph")
 
 ttt_include("cl_changes")
 ttt_include("cl_network_sync")

gamemodes/terrortown/gamemode/client/cl_vskin/default_skin.lua

@@ -52,6 +52,7 @@ local drawFilteredShadowedTexture = draw.FilteredShadowedTexture
 local drawOutlinedBox = draw.OutlinedBox
 local drawFilteredTexture = draw.FilteredTexture
 local drawSimpleText = draw.SimpleText
+local drawDrawText = draw.DrawText
 local drawLine = draw.Line
 local drawGetWrappedText = draw.GetWrappedText
 local drawGetTextSize = draw.GetTextSize
@@ -1345,15 +1346,30 @@ function SKIN:PaintTooltipTTT2(panel, w, h)
     )
 
     if panel:HasText() then
-        drawSimpleText(
-            TryT(panel:GetText()),
-            panel:GetFont(),
-            0.5 * w,
-            0.5 * (h + sizeArrow),
-            utilGetDefaultColor(colors.background),
-            TEXT_ALIGN_CENTER,
-            TEXT_ALIGN_CENTER
-        )
+        local text = TryT(panel:GetText())
+
+        if string.find(text, "\n") then
+            -- has newlines, use drawDrawText
+            drawDrawText(
+                text,
+                panel:GetFont(),
+                10, --0.5 * w,
+                4 + sizeArrow,
+                utilGetDefaultColor(colors.background),
+                TEXT_ALIGN_LEFT
+            )
+        else
+            -- no newlines, can use drawSimpleText
+            drawSimpleText(
+                text,
+                panel:GetFont(),
+                0.5 * w,
+                0.5 * (h + sizeArrow),
+                utilGetDefaultColor(colors.background),
+                TEXT_ALIGN_CENTER,
+                TEXT_ALIGN_CENTER
+            )
+        end
     end
 end
 
@@ -1893,7 +1909,10 @@ function SKIN:PaintSearchbar(panel, w, h)
     )
 
     -- Draw small blue bar on the bottom
-    drawBox(leftPad, h - sizes.border - bottomPad, w - widthPad, sizes.border, colorBar)
+    --drawBox(leftPad, h - sizes.border - bottomPad, w - widthPad, sizes.border, colorBar)
+
+    -- Draw small blue bar across the top
+    drawBox(leftPad, topPad, w - widthPad, sizes.border, colorBar)
 
     -- If not focussed draw placeholder text
     if panel:GetIsOnFocus() then
@@ -2293,5 +2312,87 @@ function SKIN:PaintWeaponPreviewTTT2(panel, w, h)
     end
 end
 
+---
+-- @param Panel panel
+-- @param number w
+-- @param number h
+-- @realm client
+function SKIN:PaintPlayerGraphTTT2(panel, w, h)
+    local renderData = panel.renderData
+    local padding = panel:GetPadding()
+
+    if panel.title ~= "" then
+        -- title text
+        drawSimpleText(
+            panel.title,
+            panel:GetFont(),
+            renderData.titleX,
+            renderData.titleY,
+            colors.helpText,
+            TEXT_ALIGN_LEFT,
+            TEXT_ALIGN_TOP
+        )
+    end
+
+    local barColor = utilGetChangedColor(colors.background, 30)
+    local valueInsideColor = utilGetDefaultColor(barColor)
+    local valueOutsideColor = utilGetDefaultColor(colors.background)
+
+    if renderData.sepY then
+        -- title separator
+        drawBox(0, renderData.sepY, w, 1, barColor)
+    end
+
+    local hBarColor = colors.accent
+    local hValueInsideColor = colors.accentText
+
+    -- then the items
+    for i = 1, #renderData.order do
+        local item = renderData.order[i]
+        -- first, draw the bar
+        local thisBarColor
+        if item.data.highlight then
+            thisBarColor = hBarColor
+        else
+            thisBarColor = barColor
+        end
+        --print(item.x, item.y)
+        drawBox(item.x, item.y, item.w, item.h, thisBarColor)
+        -- then the value text
+        if item.valueWidth > w - item.x - item.w - padding then
+            -- the value would take up too much space outside, put it inside
+            local thisTextCol
+            if item.data.highlight then
+                thisTextCol = hValueInsideColor
+            else
+                thisTextCol = valueInsideColor
+            end
+            local x = item.x + item.w - item.valueWidth - padding
+            --print(x, item.y)
+            drawSimpleText(
+                tostring(item.data.value),
+                panel:GetFont(),
+                x,
+                item.y,
+                thisTextCol,
+                TEXT_ALIGN_LEFT,
+                TEXT_ALIGN_TOP
+            )
+        else
+            -- the value will fit outside the bar, draw it there
+            --print(item.x + item.w + padding, item.y)
+            drawSimpleText(
+                tostring(item.data.value),
+                panel:GetFont(),
+                item.x + item.w + padding,
+                item.y,
+                valueOutsideColor,
+                TEXT_ALIGN_LEFT,
+                TEXT_ALIGN_TOP
+            )
+        end
+    end
+end
+
 -- REGISTER DERMA SKIN
 derma.DefineSkin(SKIN.Name, "TTT2 default skin for all vgui elements", SKIN)