Guest User

Untitled

a guest
May 23rd, 2018
107
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.68 KB | None | 0 0
  1. hook.Add("HUDPaint", "TestESP", function()
  2. for k,v in pairs(player.GetAll()) do
  3. local pos=v:GetPos():ToScreen()
  4. draw.DrawText(v:Nick(), "TargetID", pos.x, pos.y, Color(0, 0, 255, 255), 1)
  5. end
  6. for k,v in pairs(ents.FindByClass("drug_plant")) do
  7. local pos=v:GetPos():ToScreen()
  8. draw.DrawText("DRUGS", "TargetID", pos.x, pos.y, Color(0, 255, 0, 255), 1)
  9. end
  10. for k,v in pairs(ents.FindByClass("spawned_money")) do
  11. local pos=v:GetPos():ToScreen()
  12. draw.DrawText("MONEY", "TargetID", pos.x, pos.y, Color(0, 255, 0, 255), 1)
  13. end
  14. for k,v in pairs(ents.FindByClass("money_printer")) do
  15. local pos=v:GetPos():ToScreen()
  16. draw.DrawText("PRINTER", "TargetID", pos.x, pos.y, Color(0, 255, 0, 255), 1)
  17. end
  18. end)
  19.  
  20. hook.Add("CreateMove", "TestBot", function(cmd)
  21. if not cmd:KeyDown(IN_ATTACK) then return end
  22. local bet = 0
  23. local targ = nil
  24. for k,v in pairs(player.GetAll()) do
  25. if v ~= LocalPlayer() and v:GetName() ~= "daervikus" and v:GetName() ~= "Poop on me hard" and v:GetName() ~= "Ass" then
  26. local trace = {}
  27. trace.start = v:GetShootPos()
  28. trace.endpos = LocalPlayer():GetShootPos()
  29. trace.filter = {v, LocalPlayer()}
  30. local tr = util.TraceLine(trace)
  31. if not tr.Hit then
  32. local between = (v:GetShootPos() - LocalPlayer():GetShootPos()):Normalize()
  33. if math.abs(LocalPlayer():GetAimVector():DotProduct(between)) > bet then
  34. bet = math.abs(LocalPlayer():GetAimVector():DotProduct(between))
  35. targ = v
  36. end
  37. end
  38. end
  39. end
  40. if not targ then return end
  41. local indx = targ:LookupBone("ValveBiped.Bip01_Head1")
  42. local pos, ang = targ:GetBonePosition(indx)
  43. cmd:SetViewAngles((pos - LocalPlayer():GetShootPos()):Normalize():Angle())
  44. end)
Add Comment
Please, Sign In to add comment