Doremi_Harukaze

SethHeraMultiPlayerGameHack v1

May 10th, 2014
517
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 5.80 KB | None | 0 0
  1. -- prohack made by pro coder ok cool
  2. -- this is SethHeraMultiPlayerGameHack v1
  3.  
  4. local AimBot = CreateClientConVar( "aimbot_enabled", 0, true, false )
  5.  
  6. function aimbot() -- Starting the function
  7.     local ply = LocalPlayer() -- Getting ourselves
  8.     local trace = util.GetPlayerTrace( ply ) -- Player Trace part. 1
  9.     local traceRes = util.TraceLine( trace ) -- Player Trace part. 2
  10.     if traceRes.HitNonWorld then -- If the aimbot aims at something that isn't the map..
  11.         local target = traceRes.Entity -- It's obviously an entity.
  12.         if target:IsPlayer() then -- But it must be a player.
  13.             local targethead = target:LookupBone("ValveBiped.Bip01_Head1") -- In this aimbot we only aim for the head.
  14.             local targetheadpos,targetheadang = target:GetBonePosition(targethead) -- Get the position/angle of the head.
  15.             if AimBot:GetBool() then
  16.                 ply:SetEyeAngles((targetheadpos - ply:GetShootPos()):Angle()) -- And finally, we snap our aim to the head of the target.
  17.             end
  18.         end
  19.     end
  20. end
  21. hook.Add("Think","aimbot",aimbot) -- The hook will spam "aimbot" until it finds a target..
  22.  
  23. local WallHack = CreateClientConVar( "wallhack_enabled", 0, true, false )
  24.  
  25. hook.Add( "HUDPaint", "Wallhack", function()
  26.  
  27.     for k,v in pairs ( player.GetAll() ) do
  28.  
  29.         local Position = ( v:GetPos() + Vector( 0,0,80 ) ):ToScreen()
  30.         local Name = ""
  31.  
  32.         if v == LocalPlayer() then Name = "" else Name = v:Name() end
  33.  
  34.         if WallHack:GetBool() then
  35.  
  36.             draw.DrawText( Name, "Default", Position.x, Position.y, Color( 255, 255, 255, 255 ), 1 )
  37.        
  38.         end
  39.  
  40.     end
  41.  
  42. end )
  43.  
  44. local shouldDraw = true
  45.  
  46. local hzCross = CreateClientConVar("HZ_Crosshair","0",false)
  47.  
  48. function Crosshair1()
  49. if hzCross:GetBool() then
  50. surface.SetDrawColor(team.GetColor(LocalPlayer():Team()))
  51. surface.DrawLine(ScrW() / 2 - 10, ScrH() / 2, ScrW() / 2 + 11 , ScrH() / 2)
  52. surface.DrawLine(ScrW() / 2 - 0, ScrH() / 2 - 10, ScrW() / 2 - 0 , ScrH() / 2 + 11)
  53.     end
  54. end
  55. hook.Add("HUDPaint","CustomCross",Crosshair1)
  56.  
  57.  local NoRecoil = CreateClientConVar( "norecoil_enabled", 0, true, false )
  58.  local NoSpread = CreateClientConVar( "nospread_enabled", 0, true, false )
  59. local TriggerBot = CreateClientConVar( "triggerbot_enabled", 0, true, false )
  60.  
  61. hook.Add( "Think", "Triggerbot", function()
  62.  
  63.     local Target = LocalPlayer():GetEyeTrace().Entity
  64.  
  65.     if NoRecoil:GetBool() then
  66.     LocalPlayer():GetActiveWeapon().Primary.Recoil = 0
  67.     end
  68.     if NoSpread:GetBool() then
  69.     LocalPlayer():GetActiveWeapon().Primary.Spread = 0
  70.     LocalPlayer():GetActiveWeapon().Primary.Cone = 0
  71.     end
  72.  
  73.     if TriggerBot:GetInt() == 1 and LocalPlayer():Alive() and LocalPlayer():GetActiveWeapon():IsValid() and ( Target:IsPlayer() or Target:IsNPC() ) then
  74.  
  75.         if !Firing then
  76.  
  77.             RunConsoleCommand( "+attack" )
  78.             //LocalPlayer():GetActiveWeapon().SetNextPrimaryFire( LocalPlayer():GetActiveWeapon() )
  79.             Firing = true
  80.  
  81.         else
  82.  
  83.             RunConsoleCommand( "-attack" )
  84.             Firing = false
  85.  
  86.         end
  87.  
  88.     end
  89.  
  90. end )
  91.    
  92.  
  93. function fPrintSomething( player, command, arguments )
  94.    
  95.     local DermaPanel = vgui.Create( "DFrame" )
  96.     DermaPanel:SetPos( 50,50 )
  97.     DermaPanel:SetSize( 250, 300 )
  98.     DermaPanel:SetTitle( "Testing Derma Stuff" )
  99.     DermaPanel:SetVisible( true )
  100.     DermaPanel:SetDraggable( true )
  101.     DermaPanel:ShowCloseButton( true )
  102.     DermaPanel:MakePopup()
  103.      
  104.     local SomeCollapsibleCategory = vgui.Create("DCollapsibleCategory", DermaPanel)
  105.     SomeCollapsibleCategory:SetPos( 25,50 )
  106.     SomeCollapsibleCategory:SetSize( 200, 50 ) -- Keep the second number at 50
  107.     SomeCollapsibleCategory:SetExpanded( 0 ) -- Expanded when popped up
  108.     SomeCollapsibleCategory:SetLabel( "Pro Hax MultiPlayerGameHack" )
  109.      
  110.     CategoryList = vgui.Create( "DPanelList" )
  111.     CategoryList:SetAutoSize( true )
  112.     CategoryList:SetSpacing( 5 )
  113.     CategoryList:EnableHorizontal( false )
  114.     CategoryList:EnableVerticalScrollbar( true )
  115.      
  116.     SomeCollapsibleCategory:SetContents( CategoryList ) -- Add our list above us as the contents of the collapsible category
  117.      
  118.         local CategoryContentOne = vgui.Create( "DCheckBoxLabel" )
  119.         CategoryContentOne:SetText( "Aim Bot" )
  120.         CategoryContentOne:SetConVar( "aimbot_enabled" )
  121.         CategoryContentOne:SetValue( 1 )
  122.         CategoryContentOne:SizeToContents()
  123.     CategoryList:AddItem( CategoryContentOne ) -- Add the above item to our list
  124.      
  125.         local CategoryContentTwo = vgui.Create( "DCheckBoxLabel" )
  126.         CategoryContentTwo:SetText( "Wall Hack" )
  127.         CategoryContentTwo:SetConVar( "wallhack_enabled" )
  128.         CategoryContentTwo:SetValue( 1 )
  129.         CategoryContentTwo:SizeToContents()
  130.     CategoryList:AddItem( CategoryContentTwo )
  131.      
  132.         local CategoryContentThree = vgui.Create( "DCheckBoxLabel" )
  133.         CategoryContentThree:SetText( "Trigger Bot" )
  134.         CategoryContentThree:SetConVar( "triggerbot_enabled" )
  135.         CategoryContentThree:SetValue( 1 )
  136.         CategoryContentThree:SizeToContents()
  137.     CategoryList:AddItem( CategoryContentThree )
  138.      
  139.         local CategoryContentFour = vgui.Create( "DCheckBoxLabel" )
  140.         CategoryContentFour:SetText( "Cross Hair" )
  141.         CategoryContentFour:SetConVar( "HZ_Crosshair" )
  142.         CategoryContentFour:SetValue( 1 )
  143.         CategoryContentFour:SizeToContents()
  144.     CategoryList:AddItem( CategoryContentFour )
  145.    
  146.             local CategoryContentFour2 = vgui.Create( "DCheckBoxLabel" )
  147.         CategoryContentFour2:SetText( "No Recoil" )
  148.         CategoryContentFour2:SetConVar( "norecoil_enabled" )
  149.         CategoryContentFour2:SetValue( 1 )
  150.         CategoryContentFour2:SizeToContents()
  151.     CategoryList:AddItem( CategoryContentFour2 )
  152.    
  153.             local CategoryContentFour3 = vgui.Create( "DCheckBoxLabel" )
  154.         CategoryContentFour3:SetText( "No Spread" )
  155.         CategoryContentFour3:SetConVar( "nospread_enabled" )
  156.         CategoryContentFour3:SetValue( 1 )
  157.         CategoryContentFour3:SizeToContents()
  158.     CategoryList:AddItem( CategoryContentFour3 )
  159.    
  160.    
  161.    
  162.      
  163. end
  164.  
  165. concommand.Add( "prohax_menu", fPrintSomething )
Add Comment
Please, Sign In to add comment