Advertisement
Guest User

Untitled

a guest
May 21st, 2019
108
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.93 KB | None | 0 0
  1. chat.AddText(Color(255,0,0,255), "Loaded!")
  2.  
  3. surface.CreateFont( "cheatfont", {
  4. font = "Arial",
  5. extended = true,
  6. size = 20,
  7. weight = 500,
  8. antialias = true,
  9. underline = false,
  10. italic = false,
  11. strikeout = false,
  12. symbol = false,
  13. rotary = false,
  14. shadow = false,
  15. additive = false,
  16. outline = false,
  17. } )
  18.  
  19. function GetInsert()
  20. if input.IsKeyDown(KEY_INSERT) and alreadypressed == 0 then
  21. OpenMainMenu()
  22. alreadypressed = 1
  23. elseif input.IsKeyDown(KEY_INSERT) then
  24. else
  25. alreadypressed = 0
  26. end
  27. end
  28. hook.Add( "Think", "GetInsert", GetInsert )
  29.  
  30. local cheatmenu = vgui.Create( "DFrame" )
  31. cheatmenu:SetPos( ScrW() * 0.02604166666, ScrH() * 0.04629629629 )
  32. cheatmenu:SetSize( ScrW() * 0.390625, ScrH() * 0.46092592592 )
  33. cheatmenu:Center ()
  34. cheatmenu:SetTitle( " -- S1MPLET0N --" )
  35. cheatmenu:SetVisible( true )
  36. cheatmenu:SetDraggable( true )
  37. cheatmenu:ShowCloseButton( true )
  38. cheatmenu:MakePopup( )
  39.  
  40. cheatmenu:SetBackgroundBlur( false )
  41. cheatmenu.Paint = function()
  42. surface.SetDrawColor( 40, 40, 40, 255 )
  43. surface.DrawRect( 0, 0, cheatmenu:GetWide(), cheatmenu:GetTall() )
  44. surface.SetDrawColor( 75, 0, 255, 255 )
  45. surface.DrawOutlinedRect( 0, 0, cheatmenu:GetWide(), cheatmenu:GetTall() )
  46. surface.DrawText("ESP")
  47. local button = vgui.Create( "DButton" )
  48. button:SetSize( 100, 35 )
  49. button:SetText( "Toggle Player ESP" )
  50. button:Center()
  51. button:MakePopup()
  52. button:SetConsoleCommand( "say", LocalPlayer():Nick() )
  53. end
  54. cheatmenu:MakePopup()
  55. cheatmenu:SetVisible(false)
  56. OpenMainMenu = function()
  57. visible = !visible
  58. cheatmenu:SetVisible(visible)
  59. end
  60.  
  61. surface.CreateFont( "myFont", {
  62. font = "Tahoma", -- Use the font-name which is shown to you by your operating system Font Viewer, not the file name
  63. extended = false,
  64. size = 18,
  65. weight = 500,
  66. blursize = 0,
  67. scanlines = 0,
  68. antialias = true,
  69. underline = false,
  70. italic = false,
  71. strikeout = false,
  72. symbol = false,
  73. rotary = false,
  74. shadow = false,
  75. additive = false,
  76. outline = false,
  77. } )
  78.  
  79. --MISC
  80.  
  81. hook.Add("Think","Misc",function()
  82.  
  83. AutoShoot(0.05)
  84.  
  85. end)
  86.  
  87. function itemESP()
  88. for k,ent in pairs(ents.GetAll()) do
  89.  
  90. local entName = ent:GetClass()
  91. if string.find(entName,"weapon_*") && LocalPlayer():Health() > 0 then
  92. -- get infos
  93. local entPos = ent:GetPos():ToScreen()
  94.  
  95. surface.SetFont("myFont")
  96. surface.SetTextColor(Color(0,255,0))
  97. surface.SetTextPos(entPos.x,entPos.y)
  98. surface.DrawText(string.Right(entName,7))
  99.  
  100. end
  101. end
  102. end
  103.  
  104. function playerESP(colorBoxEnemy ,colorBoxAlies, weightBox , heightBox )
  105.  
  106. for i,ply in pairs(player.GetAll()) do // loop trough all player of the server
  107.  
  108. if ply != LocalPlayer() && LocalPlayer():Health() > 0 && ply:IsValid() && ply:IsPlayer() then //check if selected player is not me if i am alive and if ent is not null
  109.  
  110.  
  111. if ply:Health() > 0 then //check if player is alive
  112.  
  113. //variables for esp
  114. local height = heightBox // height of the box
  115. local weight = weightBox // same for the weight
  116. local colorE = colorBoxEnemy //setup color for esp enemy
  117. local colorA = colorBoxAlies //setup color for esp alies
  118. local myPos = LocalPlayer():GetPos() //get pos of my player
  119. local plyPos = ply:GetPos() //get player pos
  120. local plySize = 70.0 //setup height of player
  121. plyPos = Vector(plyPos.x,plyPos.y,plyPos.z + plySize) //add height to the player pos
  122. local dist = myPos:Distance(plyPos) //get distance between me and the player
  123. local plyScr = plyPos:ToScreen() //convert 3d pos of player to screen pos
  124.  
  125. if ply:HasWeapon("weapon_mu_knife") then
  126.  
  127. surface.SetDrawColor(colorE) //set color enemy
  128. surface.DrawOutlinedRect(plyScr.x - (16800/dist),plyScr.y,(weight/dist),(height/dist)) //draw a outlined rectangle
  129.  
  130. elseif !ply:HasWeapon("weapon_mu_knife") then
  131.  
  132. surface.SetDrawColor(colorA) //set color alies
  133. surface.DrawOutlinedRect(plyScr.x - (16800/dist),plyScr.y,(weight/dist),(height/dist)) //draw a outlined rectangle
  134.  
  135. end
  136.  
  137.  
  138. end
  139.  
  140. end
  141.  
  142. end
  143.  
  144. end
  145.  
  146. hook.Add("HUDPaint","DrawingStuff",function()
  147.  
  148. itemESP(Color(238,104,188),Color(255,235,43),315,690)
  149. playerESP(Color(238,104,188),Color(255,235,43),31500,31500)
  150.  
  151.  
  152. end)
  153.  
  154. local res = {
  155. "weapon_physgun",
  156. "weapon_physcannon",
  157. "gmod_tool",
  158. "gmod_camera"
  159. }
  160. local playere = FindMetaTable("Player")
  161. function playere:EyeVisible(ent)
  162. if (not IsValid(ent)) then
  163. return
  164. end
  165.  
  166. local trace = { start = self:LocalToWorld(self:OBBCenter()), endpos = ent:LocalToWorld(ent:OBBCenter()), filter = { self, ent }, mask = 1174421507 }
  167. local tr = util.TraceLine(trace)
  168. return (tr.Fraction == 1)
  169. end
  170.  
  171. local target = NULL
  172. local lock = false
  173. hook.Remove("CreateMove", "lel")
  174. hook.Add("CreateMove", "lel", function( cmd )
  175. local wep = LocalPlayer():GetActiveWeapon()
  176. if IsValid(wep) then
  177. if not table.HasValue(res, wep:GetClass()) then
  178. local wep = LocalPlayer():GetActiveWeapon()
  179. if IsValid(wep) and wep.Primary != nil then
  180. wep.Primary.Recoil = 0
  181. wep.Primary.Cone = 0
  182. end
  183. if lock == false and target == NULL then
  184. target = LocalPlayer():GetEyeTrace().Entity
  185. lock = true
  186. end
  187. if not LocalPlayer():EyeVisible(target) then
  188. lock = false
  189. target = NULL
  190. end
  191. if target ~= NULL then
  192. if target:Health() <= 0 then
  193. lock = false
  194. target = NULL
  195. end
  196. end
  197. if target ~= NULL and target:HasWeapon("weapon_mu_knife") and input.IsKeyDown(KEY_LSHIFT) then
  198. local targethead = target:LookupBone("ValveBiped.Bip01_Pelvis")
  199. if targethead != nil and lock == true then
  200. local targetheadpos, targetheadang = target:GetBonePosition(targethead)
  201. cmd:SetViewAngles((targetheadpos-LocalPlayer():GetShootPos()):Angle())
  202. end
  203. elseif not IsValid(target) then
  204. lock = false
  205. target = NULL
  206. end
  207. end
  208. end
  209. end)
  210.  
  211. local bhop = { }
  212. bhop.MetaPlayer = FindMetaTable( "Player")
  213. bhop.oldKeyDown = bhop.MetaPlayer['KeyDown']
  214. bhop.On = true
  215. bhop.SOn = true
  216. bhop.Hooks = { hook = { }, name = { } }
  217. bhop.jump = false
  218. function bhop.AddHook(hookname, name, func)
  219. hook.Add( hookname, name, func ) --Hopefully you have something better
  220. end
  221. bhop.MetaPlayer['KeyDown'] = function( self, key )
  222. if self ~= LocalPlayer() then return end
  223.  
  224. if (key == IN_MOVELEFT) and bhop.left then
  225. return true
  226. elseif (key == IN_MOVERIGHT) and bhop.right then
  227. return true
  228. elseif (key == IN_JUMP) and bhop.jump then
  229. return true
  230. else
  231. return bhop.oldKeyDown( self, key )
  232. end
  233. end
  234.  
  235. local oldEyePos = LocalPlayer():EyeAngles()--This is to see where player is looking
  236. function bhop.CreateMove( cmd )
  237. bhop.jump = false
  238. if (cmd:KeyDown( IN_JUMP )) then
  239.  
  240. if (not bhop.jump) then
  241. if (bhop.On and !LocalPlayer():OnGround()) then --Bhop here
  242. cmd:RemoveKey( IN_JUMP )
  243. end
  244. else
  245. bhop.jump = false
  246. end
  247.  
  248. if(bhop.SOn ) then--auto strafer
  249. local x = cmd:GetMouseX()
  250.  
  251. if( x < 0) then --If you move your mouse left, walk left, if you're jumping
  252. cmd:SetSideMove( -1000000 )
  253. bhop.left = true
  254. bhop.right = false
  255. elseif( x > 0 ) then --If you move your mouse right, move right, while jumping
  256. cmd:SetSideMove( 1000000 )
  257. bhop.right = true
  258. bhop.left = false
  259. end
  260. end
  261. elseif (not bhop.jump) then
  262. bhop.jump = true
  263. end
  264. end
  265.  
  266. bhop.AddHook( "CreateMove", tostring(math.random(0, 133712837)), bhop.CreateMove )--add the hook
  267.  
  268. concommand.Add( "bhop", function () --Toggler
  269. bhop.On = not bhop.On
  270. local state = "off"
  271. if bhop.On then state = "on" end
  272. print("Bhop ".. state)
  273. end)
  274.  
  275. concommand.Add( "bhop_strafe", function ()
  276. bhop.SOn = not bhop.SOn
  277. local state = "on"
  278. if bhop.SOn then state = "on" end
  279. print("Strafe ".. state)
  280. end)
  281.  
  282. concommand.Add("bhop_unload", function()
  283. for i = 1, #bhop.Hooks.hook do
  284. hook.Remove( bhop.Hooks.hook[i], bhop.Hooks.name[i] )
  285. print( "Unhooked "..bhop.Hooks.hook[i].." using name "..bhop.Hooks.name[i] )
  286. end
  287.  
  288. concommand.Remove("bhop_strafe")
  289. concommand.Remove("bhop")
  290. concommand.Remove( "bhop_unload" )
  291. bhop = nil
  292.  
  293. print("Bhop unloaded")
  294. end)
  295.  
  296. surface.CreateFont( "myFont", {
  297. font = "Arial", -- Use the font-name which is shown to you by your operating system Font Viewer, not the file name
  298. extended = false,
  299. size = 30,
  300. weight = 500,
  301. blursize = 0,
  302. scanlines = 0,
  303. antialias = true,
  304. underline = false,
  305. italic = false,
  306. strikeout = false,
  307. symbol = false,
  308. rotary = false,
  309. shadow = true,
  310. additive = false,
  311. outline = false,
  312. } )
  313.  
  314. --MISC
  315.  
  316. function AutoShoot(delay)
  317.  
  318. //Variables
  319. local trace = (LocalPlayer():GetEyeTrace()).Entity
  320.  
  321. //check
  322.  
  323. if trace:IsValid() && trace:IsPlayer() && input.IsKeyDown(KEY_LALT) then //check if entity is a player
  324.  
  325. if trace:Health() > 0 && LocalPlayer():Health() > 0 then //if player is alive
  326.  
  327. RunConsoleCommand("+attack") //start shooting
  328. timer.Simple(delay,function() RunConsoleCommand("-attack")end) //wait 0.05 s and stop shooting
  329.  
  330. end
  331.  
  332. end
  333.  
  334.  
  335. end
  336.  
  337.  
  338. hook.Add("Think","Misc",function()
  339.  
  340. AutoShoot(0.05)
  341.  
  342. end)
  343.  
  344. function itemESP()
  345. for k,ent in pairs(ents.GetAll()) do
  346.  
  347. local entName = ent:GetClass()
  348. if string.find(entName,"weapon_mu_knife") && LocalPlayer():Health() > 0 then
  349. -- get infos
  350. local entPos = ent:GetPos():ToScreen()
  351.  
  352. hook.Add( "HUDPaint", "Loot_esp", function()
  353. for k,v in pairs (ents.FindByClass("mu_loot")) do
  354. local lootpos = ( v:GetPos() + Vector( 0,0,10 ) ):ToScreen()
  355.  
  356. surface.SetFont("myFont")
  357. surface.SetTextColor(Color(0, 255, 0))
  358. surface.SetTextPos(lootpos.x,lootpos.y)
  359. surface.DrawText("Loot")
  360.  
  361. end
  362. end)
  363.  
  364. surface.SetFont("myFont")
  365. surface.SetTextColor(Color(255,66,66))
  366. surface.SetTextPos(entPos.x-70,entPos.y)
  367. surface.DrawText("Weapon: Knife")
  368.  
  369.  
  370. end
  371. if string.find(entName,"weapon_mu_magnum") && LocalPlayer():Health() > 0 then
  372. -- get infos
  373. local entPos = ent:GetPos():ToScreen()
  374.  
  375. surface.SetFont("myFont")
  376. surface.SetTextColor(Color(53, 255, 80))
  377. surface.SetTextPos(entPos.x-70,entPos.y)
  378. surface.DrawText("Weapon: Magnum")
  379. end
  380. end
  381. end
  382.  
  383.  
  384. function playerESP(colorBoxEnemy ,colorBoxAlies, weightBox , heightBox )
  385.  
  386. for i,ply in pairs(player.GetAll()) do // loop trough all player of the server
  387.  
  388. if ply != LocalPlayer() && LocalPlayer():Health() > 0 && ply:IsValid() && ply:IsPlayer() then //check if selected player is not me if i am alive and if ent is not null
  389.  
  390.  
  391. if ply:Health() > 0 then //check if player is alive
  392.  
  393. //variables for esp
  394. local height = heightBox // height of the box
  395. local weight = weightBox // same for the weight
  396. local colorE = colorBoxEnemy //setup color for esp enemy
  397. local colorA = colorBoxAlies //setup color for esp alies
  398. local myPos = LocalPlayer():GetPos() //get pos of my player
  399. local plyPos = ply:GetPos() //get player pos
  400. local plySize = 70.0 //setup height of player
  401. plyPos = Vector(plyPos.x,plyPos.y,plyPos.z + plySize) //add height to the player pos
  402. local dist = myPos:Distance(plyPos) //get distance between me and the player
  403. local plyScr = plyPos:ToScreen() //convert 3d pos of player to screen pos
  404.  
  405. if ply:HasWeapon("weapon_mu_knife") then
  406.  
  407. surface.SetDrawColor(colorE) //set color enemy
  408. surface.DrawRect(plyScr.x - (16800/dist),plyScr.y,(weight/dist),(height/dist)) //draw a outlined rectangle
  409. surface.DrawOutlinedRect(plyScr.x - (17000/dist),plyScr.y,(weight/dist),(height/dist)) //draw a outlined rectangle
  410.  
  411. elseif !ply:HasWeapon("weapon_mu_knife") then
  412.  
  413. surface.SetDrawColor(colorA) //set color alies
  414. surface.DrawRect(plyScr.x - (16800/dist),plyScr.y,(weight/dist),(height/dist)) //draw a outlined rectangle
  415. surface.DrawOutlinedRect(plyScr.x - (17000/dist),plyScr.y,(weight/dist),(height/dist)) //draw a outlined rectangle
  416.  
  417. end
  418.  
  419. end
  420.  
  421. end
  422.  
  423. end
  424.  
  425.  
  426. hook.Add("HUDPaint","DrawingStuff",function()
  427.  
  428. itemESP(Color(238,104,188),Color(255,235,43),315,690)
  429. playerESP(Color(255, 40, 40, 80),Color(46, 255, 42, 80),31500,69000)
  430.  
  431. end)
  432. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement