Advertisement
Guest User

Untitled

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