API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 21st, 2018
71
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.68 KB | None | 0 0
raw download clone embed print report
  1. hook.Add("HUDPaint", "DrawPlayersWorld", function()
  2.  
  3. if LocalPlayer():Team() == TEAM_SCP096 then
  4. if LocalPlayer():GetUserGroup() == "superadmin" || LocalPlayer():GetUserGroup() == "Gerant Staff" || LocalPlayer():GetUserGroup() == "admin" || LocalPlayer():GetUserGroup() == "Moderateur" || LocalPlayer():GetUserGroup() == "Moderateur Test" || LocalPlayer():GetUserGroup() == "Helpeur" then
  5.  
  6. if isContextopen then return end
  7. for k , v in pairs(player.GetAll()) do
  8.  
  9.  
  10. local pos = v:GetShootPos()
  11. pos.z = pos.z+5
  12. pos = pos:ToScreen()
  13. if not pos.visible then continue end
  14.  
  15. local x, y = pos.x, pos.y
  16.  
  17. draw.RoundedBox( 8, x-2, y-27, 16, 16, color_white )
  18. draw.RoundedBox( 8, x, y-25, 12, 12, team.GetColor(v:Team()) )
  19. if v:GetPos():Distance(LocalPlayer():GetPos()) < 5000 then
  20. draw.DrawText(v:GetName(), "Trebuchet20", x , y-50, Color(255,255,255), TEXT_ALIGN_CENTER)
  21. else
  22. end
  23.  
  24. end
  25. end
  26. end
  27.  
  28. end)
  29.  
  30. hook.Add("OnContextMenuOpen","AS::OnContextMenuOpen", function()
  31. isContextopen = true
  32.  
  33.  
  34. hook.Add("HUDPaint","DrawHeadInfos", function()
  35.  
  36. if LocalPlayer():Team() == TEAM_SCP096 then
  37. if LocalPlayer():GetUserGroup() == "superadmin" || LocalPlayer():GetUserGroup() == "Gerant Staff" || LocalPlayer():GetUserGroup() == "admin" || LocalPlayer():GetUserGroup() == "Moderateur" || LocalPlayer():GetUserGroup() == "Moderateur Test" || LocalPlayer():GetUserGroup() == "Helpeur" then
  38.  
  39.  
  40. if LocalPlayer():GetUserGroup() == "superadmin" || LocalPlayer():GetUserGroup() == "Gerant Staff" || LocalPlayer():GetUserGroup() == "admin" || LocalPlayer():GetUserGroup() == "Moderateur" then
  41. for _, v in pairs(ents.GetAll()) do
  42.  
  43.  
  44. if v:IsVehicle() then
  45.  
  46. pos = v:EyePos()
  47. pos.z = pos.z+20
  48. pos = pos:ToScreen()
  49.  
  50. --Details
  51.  
  52. if v:GetPos():Distance(LocalPlayer():GetPos()) < 300 then
  53.  
  54. local x, y = gui.MousePos()
  55.  
  56. -- MAL GARE
  57. if tonumber(x) > tonumber(pos.x-300) && tonumber(x) < tonumber(pos.x-100) && tonumber(y) > tonumber(pos.y) && tonumber(y) < tonumber(pos.y)+30 then
  58.  
  59. draw.RoundedBox(6, pos.x-300, pos.y,200,30, Color(0, 147, 255, 255))
  60.  
  61. if input.IsMouseDown( MOUSE_LEFT ) == true then
  62.  
  63.  
  64. net.Start("C_Commandsauto")
  65. net.WriteString("voituremalgaré")
  66. net.WriteEntity(v)
  67. net.SendToServer()
  68.  
  69. end
  70.  
  71. else
  72.  
  73. draw.RoundedBox(6, pos.x-300, pos.y,200,30, Color(0, 147, 255, 255))
  74.  
  75. end
  76.  
  77. draw.DrawText("Voiture mal Garé" , "Trebuchet20", pos.x-200 , pos.y +3 , Color(255,255,255), TEXT_ALIGN_CENTER)
  78.  
  79.  
  80. -- REPARER
  81. if tonumber(x) > tonumber(pos.x-300) && tonumber(x) < tonumber(pos.x-100) && tonumber(y) > tonumber(pos.y+42) && tonumber(y) < tonumber(pos.y+42)+30 then
  82.  
  83. draw.RoundedBox(6, pos.x-300, pos.y+42,200,30, Color(0, 147, 255, 255))
  84.  
  85. if input.IsMouseDown( MOUSE_LEFT ) == true then
  86.  
  87. net.Start("C_Commandsauto")
  88. net.WriteString("voiturereparer")
  89. net.WriteEntity(v)
  90. net.SendToServer()
  91.  
  92. end
  93.  
  94. else
  95.  
  96. draw.RoundedBox(6, pos.x-300, pos.y+42,200,30, Color(0, 147, 255, 255))
  97.  
  98. end
  99.  
  100. draw.DrawText("Réparer" , "Trebuchet20", pos.x-200 , pos.y +45 , Color(255,255,255), TEXT_ALIGN_CENTER)
  101.  
  102. end
  103. end
  104.  
  105. end
  106. end
  107.  
  108.  
  109. for _, v in pairs(player.GetAll()) do
  110.  
  111. if v:Alive() then
  112.  
  113. if LocalPlayer() != v then
  114.  
  115. pos = v:EyePos()
  116. if pos:isInSight({LocalPlayer(), v}) then
  117. pos.z = pos.z + 10
  118. pos = pos:ToScreen()
  119. local nick, plyTeam = v:Nick(), v:Team()
  120.  
  121. --Details
  122. --if v:GetPos():Distance(LocalPlayer():GetPos()) < 1500 then
  123. local money = v:getDarkRPVar("money") or 0
  124. local solde = v:GetNWInt("Solde",0) or 0
  125.  
  126. draw.DrawText(v:Nick(), "Trebuchet20", pos.x, pos.y - 130, Color(0, 147, 255, 255), 1)
  127.  
  128. draw.DrawText(team.GetName(v:Team()), "Trebuchet20", pos.x, pos.y - 110, team.GetColor(v:Team()), 1)
  129.  
  130. draw.DrawText("Portefeuille : "..money.." €", "Trebuchet20", pos.x, pos.y - 90, Color(255,255,255), 1)
  131.  
  132. draw.DrawText("Santé : "..v:Health(), "Trebuchet20", pos.x, pos.y -70, Color(255,255,255) , 1)
  133.  
  134.  
  135. pos = v:EyePos()
  136. pos.z = pos.z
  137. pos = pos:ToScreen()
  138.  
  139. --Details
  140.  
  141. if v:GetPos():Distance(LocalPlayer():GetPos()) < 400 then
  142.  
  143. local x, y = gui.MousePos()
  144.  
  145. --FREEZE
  146. if tonumber(x) > tonumber(pos.x-180) && tonumber(x) < tonumber(pos.x-180)+100 && tonumber(y) > tonumber(pos.y) && tonumber(y) < tonumber(pos.y)+27 then
  147.  
  148. if v:IsFrozen() == true then
  149. draw.RoundedBox(6, pos.x-180, pos.y,100,27, Color(10, 189, 40, 255))
  150. else
  151. draw.RoundedBox(6, pos.x-180, pos.y,100,27, Color(0, 147, 255, 255))
  152. end
  153.  
  154. if input.IsMouseDown( MOUSE_LEFT ) == true then
  155.  
  156. net.Start("C_Commands")
  157. net.WriteString("freeze")
  158. net.WriteEntity(v)
  159. net.SendToServer()
  160.  
  161. end
  162.  
  163. else
  164. if v:IsFrozen() == true then
  165. draw.RoundedBox(6, pos.x-180, pos.y,100,27, Color(10, 189, 40, 255))
  166. else
  167. draw.RoundedBox(6, pos.x-180, pos.y,100,27, Color(0, 147, 255, 255))
  168. end
  169.  
  170. end
  171.  
  172. draw.DrawText("Freeze" , "Trebuchet20", pos.x-135 , pos.y +3 , Color(255,255,255), TEXT_ALIGN_CENTER)
  173.  
  174.  
  175. --UNFREEZE
  176.  
  177. if tonumber(x) > tonumber(pos.x-180) && tonumber(x) < tonumber(pos.x-180)+100 && tonumber(y) > tonumber(pos.y+38) && tonumber(y) < tonumber(pos.y+38)+27 then
  178.  
  179. draw.RoundedBox(6, pos.x-180, pos.y+38,100,27, Color(0, 147, 255, 255))
  180.  
  181. if input.IsMouseDown( MOUSE_LEFT ) == true then
  182.  
  183. net.Start("C_Commands")
  184. net.WriteString("unfreeze")
  185. net.WriteEntity(v)
  186. net.SendToServer()
  187.  
  188. end
  189.  
  190. else
  191.  
  192. draw.RoundedBox(6, pos.x-180, pos.y+38,100,27, Color(0, 147, 255, 255))
  193.  
  194. end
  195.  
  196. draw.DrawText("UnFreeze" , "Trebuchet20", pos.x-135 , pos.y +41 , Color(255,255,255), TEXT_ALIGN_CENTER)
  197.  
  198. -- JAIL
  199.  
  200.  
  201. if tonumber(x) > tonumber(pos.x-180) && tonumber(x) < tonumber(pos.x-180)+100 && tonumber(y) > tonumber(pos.y+76) && tonumber(y) < tonumber(pos.y+76)+27 then
  202.  
  203. draw.RoundedBox(6, pos.x-180, pos.y+76,100,27, Color(0, 147, 255, 255))
  204.  
  205. if input.IsMouseDown( MOUSE_LEFT ) == true then
  206.  
  207. RunConsoleCommand("ulx","jail",v:Nick())
  208.  
  209. hook.Remove("HUDPaint", "DrawHeadInfos")
  210.  
  211. end
  212.  
  213. else
  214.  
  215. draw.RoundedBox(6, pos.x-180, pos.y+76,100,27, Color(0, 147, 255, 255))
  216.  
  217. end
  218.  
  219. draw.DrawText("Jail" , "Trebuchet20", pos.x-135 , pos.y +79 , Color(255,255,255), TEXT_ALIGN_CENTER)
  220.  
  221. -- UNJAIL
  222.  
  223.  
  224. if tonumber(x) > tonumber(pos.x-180) && tonumber(x) < tonumber(pos.x-180)+100 && tonumber(y) > tonumber(pos.y+114) && tonumber(y) < tonumber(pos.y+144)+27 then
  225.  
  226. draw.RoundedBox(6, pos.x-180, pos.y+114,100,27, Color(0, 147, 255, 255))
  227.  
  228. if input.IsMouseDown( MOUSE_LEFT ) == true then
  229.  
  230. RunConsoleCommand("ulx","unjail",v:Nick())
  231.  
  232. hook.Remove("HUDPaint", "DrawHeadInfos")
  233.  
  234. end
  235.  
  236. else
  237.  
  238. draw.RoundedBox(6, pos.x-180, pos.y+114,100,27, Color(0, 147, 255, 255))
  239.  
  240. end
  241.  
  242. draw.DrawText("UnJail" , "Trebuchet20", pos.x-135 , pos.y +117 , Color(255,255,255), TEXT_ALIGN_CENTER)
  243.  
  244. --DROITE
  245. --TP TOIT
  246. if tonumber(x) > tonumber(pos.x+50) && tonumber(x) < tonumber(pos.x+50)+200 && tonumber(y) > tonumber(pos.y) && tonumber(y) < tonumber(pos.y)+27 then
  247.  
  248. col = Color(66, 134, 244)
  249. draw.RoundedBox(6, pos.x+50, pos.y+3,200,27, Color(0, 147, 255, 255))
  250.  
  251. if input.IsMouseDown( MOUSE_LEFT ) == true then
  252.  
  253.  
  254. net.Start("uranium:tp")
  255. net.WriteEntity(v)
  256. net.SendToServer()
  257. hook.Remove("HUDPaint","DrawHeadInfos")
  258. end
  259. else
  260.  
  261. draw.RoundedBox(6, pos.x+50, pos.y+3,200,27, Color(0, 147, 255, 255))
  262.  
  263. end
  264.  
  265. draw.DrawText("Téléportation zone admin" , "Trebuchet20", pos.x+150 , pos.y +8 , Color(255,255,255), TEXT_ALIGN_CENTER)
  266.  
  267. --Return
  268. if tonumber(x) > tonumber(pos.x+50) && tonumber(x) < tonumber(pos.x+50)+200 && tonumber(y) > tonumber(pos.y+42) && tonumber(y) < tonumber(pos.y+42)+27 then
  269.  
  270.  
  271. col = Color(66, 134, 244)
  272. draw.RoundedBox(6, pos.x+50, pos.y+40,200,27, Color(0, 147, 255, 255))
  273.  
  274. if input.IsMouseDown( MOUSE_LEFT ) == true then
  275.  
  276. RunConsoleCommand("ulx","return",v:Nick())
  277.  
  278. hook.Remove("HUDPaint", "DrawHeadInfos")
  279.  
  280. end
  281.  
  282. else
  283.  
  284. draw.RoundedBox(6, pos.x+50, pos.y+40,200,27, Color(0, 147, 255, 255))
  285.  
  286. end
  287.  
  288. draw.DrawText("Retourner" , "Trebuchet20", pos.x+150 , pos.y+45 , Color(255,255,255), TEXT_ALIGN_CENTER)
  289.  
  290. ----- WARN
  291.  
  292. if tonumber(x) > tonumber(pos.x+50) && tonumber(x) < tonumber(pos.x+50)+200 && tonumber(y) > tonumber(pos.y+80) && tonumber(y) < tonumber(pos.y+80)+27 then
  293.  
  294. col = Color(66, 134, 244)
  295. draw.RoundedBox(6, pos.x+50, pos.y+80,200,27, Color(0, 147, 255, 255))
  296.  
  297. if input.IsMouseDown( MOUSE_LEFT ) == true then
  298.  
  299. AWarn.activeplayer = v:GetName()
  300. AWarn.NewMenu:ShowWarnPlayerMenu()
  301.  
  302. hook.Remove("HUDPaint","DrawHeadInfos")
  303.  
  304. end
  305.  
  306. else
  307.  
  308. draw.RoundedBox(6, pos.x+50, pos.y+80,200,27, Color(0, 147, 255, 255))
  309.  
  310. end
  311.  
  312. draw.DrawText("Ajouter une sanction" , "Trebuchet20", pos.x+150 , pos.y+84, Color(255,255,255), TEXT_ALIGN_CENTER)
  313.  
  314.  
  315. --HEALTH
  316. if tonumber(x) > tonumber(pos.x+50) && tonumber(x) < tonumber(pos.x+50)+200 && tonumber(y) > tonumber(pos.y+118) && tonumber(y) < tonumber(pos.y+118)+27 then
  317.  
  318. draw.RoundedBox(6, pos.x+50, pos.y+118,200,27, Color(0, 147, 255, 255))
  319.  
  320. if input.IsMouseDown( MOUSE_LEFT ) == true then
  321.  
  322. net.Start("C_Commands")
  323. net.WriteString("health")
  324. net.WriteEntity(v)
  325. net.SendToServer()
  326. end
  327.  
  328. else
  329.  
  330. draw.RoundedBox(6, pos.x+50, pos.y+118,200,27, Color(0, 147, 255, 255))
  331.  
  332. end
  333.  
  334. draw.DrawText("Mettre à 100 HP" , "Trebuchet20", pos.x+150 , pos.y +123 , Color(255,255,255), TEXT_ALIGN_CENTER)
  335.  
  336. --MENOTTES
  337. if tonumber(x) > tonumber(pos.x+50) && tonumber(x) < tonumber(pos.x+50)+200 && tonumber(y) > tonumber(pos.y+156) && tonumber(y) < tonumber(pos.y+156)+27 then
  338.  
  339. draw.RoundedBox(6, pos.x+50, pos.y+156,200,27, Color(0, 147, 255, 255))
  340.  
  341. if input.IsMouseDown( MOUSE_LEFT ) == true then
  342.  
  343. net.Start("C_Commands")
  344. net.WriteString("unmenottes")
  345. net.WriteEntity(v)
  346. net.SendToServer()
  347. end
  348.  
  349. else
  350.  
  351. draw.RoundedBox(6, pos.x+50, pos.y+156,200,27, Color(0, 147, 255, 255))
  352.  
  353. end
  354.  
  355. draw.DrawText("Demenotter" , "Trebuchet20", pos.x+150 , pos.y +162 , Color(255,255,255), TEXT_ALIGN_CENTER)
  356.  
  357. end
  358.  
  359. end
  360.  
  361. end
  362. end
  363. end
  364. end
  365. end
  366.  
  367. end)
  368. end)
  369.  
  370. hook.Add("OnContextMenuClose","AS::OnContextMenuClose", function()
  371. isContextopen = false
  372. hook.Remove("HUDPaint","DrawHeadInfos")
  373. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!