Modified to hopefully work

local MAIN = {}
MAIN.TitleHeight = 64

function MAIN:Init()

    self:SetZPos(1)
    self:MakePopup()
    self:SetSize(300, 301)
    self:Center()

    self.CloseButton = vgui.Create("TheaterButton", self)
    self.CloseButton:SetPos(self:GetWide() - 28, 3)
    self.CloseButton:SetSize(25, 25)
    self.CloseButton:SetText("X")
    self.CloseButton.DoClick = function()
        self:Remove()
        GAMEMODE:HideMouse()
    end

    self.Title = Label("Player Menu", self)
    self.Title:SetFont("ScoreboardTitle")
    self.Title:SetColor(Color(93, 64, 55))

    self.Options = vgui.Create("DPanelList", self)
    self.Options:DockMargin(4, self.TitleHeight + 5, 4, 5)
    self.Options:SetDrawBackground(false)
    self.Options:SetPadding(4)
    self.Options:SetSpacing(4)

    local ShopButton = vgui.Create("TheaterButton")
    ShopButton:SetFont("ScoreboardMapName")
    ShopButton:SetText("Shop")
    ShopButton.DoClick = function()
        self:Remove()
        vgui.Create("ShopSelectMenu")
    end
    self.Options:AddItem(ShopButton)

    local InventoryButton = vgui.Create("TheaterButton")
    InventoryButton:SetFont("ScoreboardMapName")
    InventoryButton:SetText("Inventory")
    InventoryButton.DoClick = function()
        self:Remove()
        vgui.Create("InvSelectMenu")
    end
    self.Options:AddItem(InventoryButton)

    local Achievements = vgui.Create("TheaterButton")
    Achievements:SetFont("ScoreboardMapName")
    Achievements:SetText("Achievements")
    Achievements.DoClick = function()
        self:Remove()
        vgui.Create("AchievementsMenu")
    end
    self.Options:AddItem(Achievements)

    local SettingsButton = vgui.Create("TheaterButton")
    SettingsButton:SetFont("ScoreboardMapName")
    SettingsButton:SetText("Settings")
    SettingsButton.DoClick = function()
        self:Remove()
        vgui.Create("SettingsMenu")
    end
    self.Options:AddItem(SettingsButton)

    local YenTransferBtn = vgui.Create("TheaterButton")
    YenTransferBtn:SetFont("ScoreboardMapName")
    YenTransferBtn:SetText("Yen Transfer")
    YenTransferBtn.DoClick = function()
        self:Remove()
        vgui.Create("YenTransferMenu")
    end
    self.Options:AddItem(YenTransferBtn)

    local PlayerStatsBtn = vgui.Create("TheaterButton")
    PlayerStatsBtn:SetFont("ScoreboardMapName")
    PlayerStatsBtn:SetText("Player Statistics")
    PlayerStatsBtn.DoClick = function()
        self:Remove()
    local msg = {
        theater.ColDefault,
        "Your Current Statistics:\n",
        "¥: ",
        theater.ColHighlight,
        tostring(LocalPlayer():GetNWInt("yen")),
        theater.ColDefault,
        "\nLevel: ",
        theater.ColHighlight,
        tostring(LocalPlayer():CalculateLevel(LocalPlayer():GetNWInt("exp"))),
        theater.ColDefault,
        "\nPlay-Time: ",
        theater.ColHighlight,
        string.FormatSeconds(math.Round(LocalPlayer():GetNWInt("totalPlayTime"))),
        theater.ColDefault,
        "\nNon-AFK-Play-Time: ",
        theater.ColHighlight,
        string.FormatSeconds(math.Round(LocalPlayer():GetNWInt("totalNonAFKPlayTime"))),
        theater.ColDefault,
        "\nAchievement Progress: ",
        theater.ColHighlight,
        math.Round((table.Count(LocalPlayer().achievements) / table.Count(ACHIEVEMENTS)) * 100) .. "%"
    }
    local line = ""
    local color = nil
    function parseColorLine( color)
      local ret = {}
      ret.line = value
      if color ~= nil then
        ret.color = color
      end
      chat.AddText(color, line)
    end
    for _, m in pairs(msg) do
      if type(m) == "string" then
        local splt = string.Split(tostring(m), "\n")
        if #splt > 1 then
          local start, stop = string.find(m, "\n")
          if start ~= 1 then
            line = line..splt[1]
          end
          parseColorLine(line, color)
          for i, v in pairs(splt) do
            if i == 1 and start ~= 1 then
              continue
            end
            parseColorLine(v, color)
          end
          line = ""
        else
          line = line..m
        end
      elseif type(m) == "number" then
        line = line..m
      else
        if (IsColor(m)) then
          color = m
        end
      end
    end
    end
    self.Options:AddItem(PlayerStatsBtn)

    local SysInfo = vgui.Create("TheaterButton")
    SysInfo:SetFont("ScoreboardMapName")
    SysInfo:SetText("System Information")
    SysInfo.DoClick = function()
        self:Remove()
        vgui.Create("SysInfo")
    end
    self.Options:AddItem(SysInfo)

end

local Background = Material( "purin_banner.png" ) // theater/banner.png
function MAIN:Paint(w, h)

    // Background
    draw.BlurBackground(self, 8, 6)
    surface.SetDrawColor(240, 244, 195)
    surface.DrawOutlinedRect(0, 0, self:GetWide(), self:GetTall())

    // Title
    surface.SetDrawColor(141, 38, 33, 255)
    surface.DrawRect(0, 0, self:GetWide(), self.Title:GetTall())

    // Title Background
    surface.SetDrawColor(255, 255, 255, 255)
    surface.SetMaterial(Background)
    surface.DrawTexturedRect(0, -1, 512, self.Title:GetTall() + 1)

end

function MAIN:PerformLayout()

    self.Title:SizeToContents()
    self.Title:SetTall( self.TitleHeight )
    self.Title:CenterHorizontal()

    self.Options:Dock( FILL )
    self.Options:SizeToContents()

end
vgui.Register("MainMenu", MAIN)

hook.Add("OpenPlayerMenu", "OpenF4Menu", function()
    vgui.Create("MainMenu")
end)