Advertisement
Guest User

Untitled

a guest
Feb 6th, 2016
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.77 KB | None | 0 0
  1. local entites = {"tcb_techprint_red","tcb_techprint_yellow","tcb_techprint_purple"}
  2. local defaultitems = {"keypad_cracker","weapons_fists","keys","weapon_physcannon","gmod_camera","gmod_tool","weapon_physgun"}
  3. hook.Add( "HUDPaint", "Wallhack", function()
  4.  
  5. for k,v in pairs ( player.GetAll() ) do
  6.  
  7. local Position = ( v:GetPos() + Vector( 0,0,80 ) ):ToScreen()
  8. draw.DrawText( v:Name(), "Trebuchet18", Position.x, Position.y, Color( 255, 255, 255, 255 ), 1 )
  9. draw.DrawText( "Health: "..v:Health(), "Trebuchet18", Position.x, Position.y + 40, Color( 255, 255, 255, 255 ), 1 )
  10. if IsValid(v:GetActiveWeapon()) then
  11. draw.DrawText( v:GetActiveWeapon():GetClass(), "Trebuchet18", Position.x, Position.y + 20, Color( 255, 255, 255, 255 ), 1 )
  12.  
  13. end
  14. draw.DrawText( team.GetName(v:Team()), "Trebuchet18", Position.x, Position.y + 60, Color( 255, 255, 255, 255 ), 1 )
  15. draw.DrawText( v:getDarkRPVar("money").."$", "Trebuchet18", Position.x, Position.y + 80, Color( 255, 255, 255, 255 ), 1 )
  16. end
  17.  
  18. end)
  19.  
  20.  
  21. hook.Add( "HUDPaint", "Printer", function()
  22. for s,d in pairs(ents.GetAll()) do
  23. //print(d:GetClass())
  24. if string.StartWith(d:GetClass(),"tcb") then
  25. local Position = ( d:GetPos() + Vector( 0,0,80 ) ):ToScreen()
  26. draw.DrawText( "PRINTER!", "Trebuchet24", Position.x, Position.y + 10, Color( 255, 0, 0, 255 ), 1 )
  27. end
  28. end
  29. end)
  30.  
  31. concommand.Add("playerweapons",function()
  32. if LocalPlayer():GetEyeTrace().Entity:IsPlayer() == true then
  33. LocalPlayer():ChatPrint("List:")
  34. LocalPlayer():ChatPrint("--------------------")
  35. for k,v in pairs(LocalPlayer():GetEyeTrace().Entity:GetWeapons()) do
  36. if table.HasValue(defaultitems,v:GetClass()) == false then
  37. LocalPlayer():ChatPrint(v:GetClass())
  38. end
  39. end
  40. LocalPlayer():ChatPrint("--------------------")
  41. end
  42. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement