Advertisement
Guest User

Untitled

a guest
Jun 16th, 2019
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.33 KB | None | 0 0
  1. surface.CreateFont( "police 1", {
  2. font = "Trebuchet24",
  3. extended = false,
  4. size = 20,
  5. weight = 500,
  6. blursize = 0,
  7.  
  8. })
  9.  
  10.  
  11. function AdminPanel:OpenMenu()
  12.  
  13. if RestrictStaffgroup.Restrict[LocalPlayer():GetUserGroup()] then
  14. --Variables
  15. local frame = vgui.Create("DFrame")
  16. local staff = vgui.Create("DButton", frame)
  17. local unstaff = vgui.Create("DButton", frame)
  18. local Ulxmenu = vgui.Create("DButton", frame)
  19. local Warn = vgui.Create("DButton", frame)
  20. local Logs = vgui.Create("DButton", frame)
  21. local Adminsalle = vgui.Create("DButton", frame)
  22. local btnClose = vgui.Create( "DButton", frame)
  23. frame:SetSize(400, 380)
  24. frame:Center()
  25. frame:SetTitle("")
  26. frame:MakePopup()
  27. frame:SetDraggable(true)
  28. frame:ShowCloseButton(false)
  29. frame.Paint = function(s,w,h)
  30. draw.RoundedBox(5,2,2,w-4,h-4, AdminPanelConfigColorframe)
  31. draw.SimpleText( AdminPanelConfigServeurname, "Trebuchet24", w / 2, 10, color_white, 1 )
  32. end
  33.  
  34. btnClose:SetSize( 32, 32 )
  35. btnClose:SetPos( frame:GetWide() - btnClose:GetWide() - 5, 40 / 2 - btnClose:GetTall() / 2 )
  36. btnClose:SetText( "X" )
  37. btnClose:SetTextColor( color_white )
  38. btnClose.Paint = nil
  39. function btnClose:DoClick()
  40. frame:Remove()
  41. end
  42.  
  43. staff:SetText(AdminPanelConfigAdminOn)
  44. staff:SetSize(350, 40)
  45. staff:SetPos(20, 50)
  46. staff:SetTextColor( color_white )
  47. staff.Paint = function(s,w,h)
  48. draw.RoundedBox(5,2,2,w-4,h-4, AdminPanelConfigColorbtn)
  49. end
  50. staff.DoClick = function()
  51. net.Start("AdminPanel_Reflex_StaffOn")
  52. net.SendToServer()
  53. frame:Remove()
  54. end
  55.  
  56. unstaff:SetText(AdminPanelConfigAdminOff)
  57. unstaff:SetSize(350, 40)
  58. unstaff:SetPos(20, 100)
  59. unstaff:SetTextColor( color_white )
  60. unstaff.Paint = function(s,w,h)
  61. draw.RoundedBox(5,2,2,w-4,h-4, AdminPanelConfigColorbtn)
  62. end
  63. unstaff.DoClick = function()
  64. net.Start("AdminPanel_Reflex_StaffOff")
  65. net.SendToServer()
  66. frame:Remove()
  67. end
  68.  
  69. Ulxmenu:SetText(AdminPanelConfigUlxmenu)
  70. Ulxmenu:SetSize(350, 40)
  71. Ulxmenu:SetPos(20, 150)
  72. Ulxmenu:SetTextColor( color_white )
  73. Ulxmenu.Paint = function(s,w,h)
  74. draw.RoundedBox(5,2,2,w-4,h-4, AdminPanelConfigColorbtn)
  75. end
  76. Ulxmenu.DoClick = function()
  77. RunConsoleCommand("say", AdminPanelConfigUlxcmd)
  78. frame:Remove()
  79. end
  80.  
  81. Warn:SetText(AdminPanelConfigWarn)
  82. Warn:SetSize(350, 40)
  83. Warn:SetPos(20, 200)
  84. Warn:SetTextColor( color_white )
  85. Warn.Paint = function(s,w,h)
  86. draw.RoundedBox(5,2,2,w-4,h-4,AdminPanelConfigColorbtn)
  87. end
  88. Warn.DoClick = function()
  89. RunConsoleCommand("say", AdminPanelConfigWarncmd )
  90. frame:Remove()
  91. end
  92.  
  93. Logs:SetText(AdminPanelConfigLogs)
  94. Logs:SetSize(350, 40)
  95. Logs:SetPos(20, 250)
  96. Logs:SetTextColor( color_white )
  97. Logs.Paint = function(s,w,h)
  98. draw.RoundedBox(5,2,2,w-4,h-4,AdminPanelConfigColorbtn)
  99. end
  100. Logs.DoClick = function()
  101. RunConsoleCommand("say", AdminPanelConfigLogscmd)
  102. frame:Remove()
  103. end
  104.  
  105. Adminsalle:SetText(AdminPanelConfigAdminsalle)
  106. Adminsalle:SetSize(350, 40)
  107. Adminsalle:SetPos(20, 300)
  108. Adminsalle:SetTextColor( color_white )
  109. Adminsalle.Paint = function(s,w,h)
  110. draw.RoundedBox(5,2,2,w-4,h-4,AdminPanelConfigColorbtn)
  111. end
  112. Adminsalle.DoClick = function()
  113. net.Start("AdminPanel_Reflex_SalleAdmin")
  114. net.SendToServer()
  115. frame:Remove()
  116. end
  117. end
  118. end
  119.  
  120. AdminPanelFrame = frame
  121.  
  122. function AdminPanel:CloseMenu()
  123. if AdminPanelFrame && IsValid( AdminPanelFrame ) then
  124. AdminPanelFrame:Remove()
  125. end
  126. end
  127.  
  128. local intBtnLast = 0
  129. hook.Add( "Think", "AdminPanel:Key", function()
  130. if input.IsKeyDown( AdminPanelConfigOpenKey ) && ( !intBtnLast || CurTime() > intBtnLast ) then
  131. if !AdminPanelFrame || !IsValid( AdminPanelFrame ) then
  132. AdminPanel:OpenMenu()
  133. else
  134. AdminPanel:CloseMenu()
  135. end
  136.  
  137. intBtnLast = CurTime() + 1
  138. end
  139. end)
  140.  
  141. hook.Add("HUDPaint", "AdminPanel:DrawPlayerInfo", function()
  142. if RestrictStaffgroup.Restrict[LocalPlayer():GetUserGroup()] then
  143. if LocalPlayer():GetNWInt("ModeStaff") == 1 then
  144. for k , v in pairs(player.GetAll()) do
  145. local pos = v:GetShootPos()
  146. pos.z = pos.z+5
  147. pos = pos:ToScreen()
  148. if not pos.visible then continue end
  149.  
  150. local x, y = pos.x, pos.y
  151.  
  152. draw.DrawText("▼", "police 1", x-2 , y-30, AdminPanelConfigPlayerColor, TEXT_ALIGN_CENTER)
  153. if v:GetPos():Distance(LocalPlayer():GetPos()) < AdminPanelConfigDistance then
  154. draw.DrawText("Métier : "..v:getDarkRPVar("job"), "police 1", x , y-130, AdminPanelConfigJobColor, TEXT_ALIGN_CENTER)
  155. draw.DrawText(v:GetName(), "police 1", x , y-50, AdminPanelConfigNameColor, TEXT_ALIGN_CENTER)
  156. draw.DrawText("Argent : "..v:getDarkRPVar("money").."$", "police 1", x , y-70, AdminPanelConfigMoneyColor, TEXT_ALIGN_CENTER)
  157. draw.DrawText("Vie : "..v:Health(), "police 1", x , y-90, AdminPanelConfigHealthColor, TEXT_ALIGN_CENTER)
  158. draw.DrawText("Grade : "..v:GetUserGroup(), "police 1", x , y-110, AdminPanelConfigRankColor, TEXT_ALIGN_CENTER)
  159. end
  160. end
  161. end
  162. end
  163. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement