--pavetr.top/ds
local b_a=hook.Add;local c_a=pairs;local d_a=player.GetAll;local _aa=hook.Remove;local aaa=Color
local baa=IsValid;local caa=tostring;local daa=surface.CreateFont;local _ba=surface.DrawTexturedRect
local aba=surface.SetDrawColor;local bba=surface.GetTextSize;local cba=surface.SetFont;local dba=vgui.Create
local _ca=math.Rand;local aca=timer.Create;local bca=timer.Remove;local cca=timer.Exists
local dca,_da=ScrW(),ScrH()local ada={}ada.refreshDelay=1;ada.interval=1;ada.fontSize=16
ada.fontName="Arial"ada.outlined=true;ada.colorBG=aaa(29,29,29,255)
ada.colorPoloskaSverhu=aaa(39,39,39,255)ada.roflanListName='Пидоры в сети: '
daa("listMainFont",{font=ada.fontName,extended=true,size=ada.fontSize,weight=500,outline=ada.outlined})
local function bda(c_b,d_b,_ab,aab,bab)aba(bab.r,bab.g,bab.b,bab.a)_ba(c_b,d_b,_ab,aab)end
local function cda(c_b)cba('listMainFont')local d_b,_ab=bba(c_b)return d_b,_ab end;local dda=caa(_ca(10000000,99999999))
local __b=caa(_ca(10000000,99999999))local a_b={}
local function b_b()
if baa(listFrame)then listFrame:Close()bca(__b)return end;listFrame=dba("DFrame")listFrame:SetPos(10,10)
listFrame:SetSize(300,200)listFrame:SetTitle(ada.roflanListName)
listFrame:SetDraggable(true)listFrame:SetSizable(true)
listFrame:ShowCloseButton(false)
listFrame.lblTitle:SetFont("listMainFont")listFrame.lblTitle.kostil=true;function listFrame:Paint(c_b,d_b)
bda(0,0,c_b,d_b,ada.colorBG)
bda(0,0,c_b,listFrame.lblTitle:GetTall(),ada.colorPoloskaSverhu)end
aca(__b,ada.refreshDelay,0,function()if
not baa(listFrame)then bca(__b)return end;for c_b,d_b in c_a(a_b)do
d_b:Remove()if a_b~={}then a_b={}end end
for c_b,d_b in c_a(d_a())do
if
d_b:GetUserGroup()~="user"then local _ab=dba("DLabel",listFrame)
local aab=d_b:Nick().." ("..
d_b:GetUserGroup()..')'local bab,cab=cda(aab)
_ab:SetSize(bab,ada.interval+listFrame.lblTitle:GetTall())_ab:SetFont("listMainFont")_ab:SetText(aab)
_ab:SetPos(3,(
ada.interval+listFrame.lblTitle:GetTall())*c_b)a_b[#a_b+1]=_ab end end end)end;b_b()