Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- surface.CreateFont( "police 1", {
- font = "Trebuchet24",
- extended = false,
- size = 20,
- weight = 500,
- blursize = 0,
- })
- function AdminPanel:OpenMenu()
- if RestrictStaffgroup.Restrict[ply():GetUserGroup()] then
- --Variables
- local frame = vgui.Create("DFrame")
- local staff = vgui.Create("DButton", frame)
- local unstaff = vgui.Create("DButton", frame)
- local Ulxmenu = vgui.Create("DButton", frame)
- local Warn = vgui.Create("DButton", frame)
- local Logs = vgui.Create("DButton", frame)
- local Adminsalle = vgui.Create("DButton", frame)
- local btnClose = vgui.Create( "DButton", frame)
- local ply = LocalPlayer()
- frame:SetSize(400, 380)
- frame:Center()
- frame:SetTitle("")
- frame:MakePopup()
- frame:SetDraggable(true)
- frame:ShowCloseButton(false)
- frame.Paint = function(s,w,h)
- draw.RoundedBox(5,2,2,w-4,h-4, AdminPanelConfigColorframe)
- draw.SimpleText( AdminPanelConfigServeurname, "Trebuchet24", w / 2, 10, color_white, 1 )
- end
- btnClose:SetSize( 32, 32 )
- btnClose:SetPos( frame:GetWide() - btnClose:GetWide() - 5, 40 / 2 - btnClose:GetTall() / 2 )
- btnClose:SetText( "X" )
- btnClose:SetTextColor( color_white )
- btnClose.Paint = nil
- function btnClose:DoClick()
- frame:Remove()
- end
- staff:SetText(AdminPanelConfigAdminOn)
- staff:SetSize(350, 40)
- staff:SetPos(20, 50)
- staff:SetTextColor( color_white )
- staff.Paint = function(s,w,h)
- draw.RoundedBox(5,2,2,w-4,h-4, AdminPanelConfigColorbtn)
- end
- staff.DoClick = function()
- net.Start("AdminPanel_Reflex_StaffOn")
- net.SendToServer()
- frame:Remove()
- end
- unstaff:SetText(AdminPanelConfigAdminOff)
- unstaff:SetSize(350, 40)
- unstaff:SetPos(20, 100)
- unstaff:SetTextColor( color_white )
- unstaff.Paint = function(s,w,h)
- draw.RoundedBox(5,2,2,w-4,h-4, AdminPanelConfigColorbtn)
- end
- unstaff.DoClick = function()
- net.Start("AdminPanel_Reflex_StaffOff")
- net.SendToServer()
- frame:Remove()
- end
- Ulxmenu:SetText(AdminPanelConfigUlxmenu)
- Ulxmenu:SetSize(350, 40)
- Ulxmenu:SetPos(20, 150)
- Ulxmenu:SetTextColor( color_white )
- Ulxmenu.Paint = function(s,w,h)
- draw.RoundedBox(5,2,2,w-4,h-4, AdminPanelConfigColorbtn)
- end
- Ulxmenu.DoClick = function()
- RunConsoleCommand("say", AdminPanelConfigUlxcmd)
- frame:Remove()
- end
- Warn:SetText(AdminPanelConfigWarn)
- Warn:SetSize(350, 40)
- Warn:SetPos(20, 200)
- Warn:SetTextColor( color_white )
- Warn.Paint = function(s,w,h)
- draw.RoundedBox(5,2,2,w-4,h-4,AdminPanelConfigColorbtn)
- end
- Warn.DoClick = function()
- RunConsoleCommand("say", AdminPanelConfigWarncmd )
- frame:Remove()
- end
- Logs:SetText(AdminPanelConfigLogs)
- Logs:SetSize(350, 40)
- Logs:SetPos(20, 250)
- Logs:SetTextColor( color_white )
- Logs.Paint = function(s,w,h)
- draw.RoundedBox(5,2,2,w-4,h-4,AdminPanelConfigColorbtn)
- end
- Logs.DoClick = function()
- RunConsoleCommand("say", AdminPanelConfigLogscmd)
- frame:Remove()
- end
- Adminsalle:SetText(AdminPanelConfigAdminsalle)
- Adminsalle:SetSize(350, 40)
- Adminsalle:SetPos(20, 300)
- Adminsalle:SetTextColor( color_white )
- Adminsalle.Paint = function(s,w,h)
- draw.RoundedBox(5,2,2,w-4,h-4,AdminPanelConfigColorbtn)
- end
- Adminsalle.DoClick = function()
- net.Start("AdminPanel_Reflex_SalleAdmin")
- net.SendToServer()
- frame:Remove()
- end
- end
- end
- AdminPanelFrame = frame
- function AdminPanel:CloseMenu()
- if AdminPanelFrame && IsValid( AdminPanelFrame ) then
- AdminPanelFrame:Remove()
- end
- end
- local intBtnLast = 0
- hook.Add( "Think", "AdminPanel:Key", function()
- if input.IsKeyDown( AdminPanelConfigOpenKey ) && ( !intBtnLast || CurTime() > intBtnLast ) then
- if !AdminPanelFrame || !IsValid( AdminPanelFrame ) then
- AdminPanel:OpenMenu()
- else
- AdminPanel:CloseMenu()
- end
- intBtnLast = CurTime() + 1
- end
- end)
- hook.Add("HUDPaint", "AdminPanel:DrawPlayerInfo", function()
- if RestrictStaffgroup.Restrict[ply():GetUserGroup()] then
- if ply():GetNWInt("ModeStaff") == 1 then
- for k , v in pairs(player.GetAll()) do
- local pos = v:GetShootPos()
- pos.z = pos.z+5
- pos = pos:ToScreen()
- if not pos.visible then continue end
- local x, y = pos.x, pos.y
- draw.DrawText("▼", "police 1", x-2 , y-30, AdminPanelConfigPlayerColor, TEXT_ALIGN_CENTER)
- if v:GetPos():Distance(ply():GetPos()) < AdminPanelConfigDistance then
- draw.DrawText("Métier : "..v:getDarkRPVar("job"), "police 1", x , y-130, AdminPanelConfigJobColor, TEXT_ALIGN_CENTER)
- draw.DrawText(v:GetName(), "police 1", x , y-50, AdminPanelConfigNameColor, TEXT_ALIGN_CENTER)
- draw.DrawText("Argent : "..v:getDarkRPVar("money").."$", "police 1", x , y-70, AdminPanelConfigMoneyColor, TEXT_ALIGN_CENTER)
- draw.DrawText("Vie : "..v:Health(), "police 1", x , y-90, AdminPanelConfigHealthColor, TEXT_ALIGN_CENTER)
- draw.DrawText("Grade : "..v:GetUserGroup(), "police 1", x , y-110, AdminPanelConfigRankColor, TEXT_ALIGN_CENTER)
- end
- end
- end
- end
- end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement