daily pastebin goal
63%
SHARE
TWEET

Gmod leak dump part 4: pware

Caliber_ Dec 31st, 2017 30 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. require("bsendpacket")
  2. require("dickwrap")
  3. //require("mega")
  4.  
  5. print ("Checking Server Data..")
  6. print ("Success!")
  7. chat.AddText( Color( 0, 255, 255 ), "[PWare] HVH Cheat ", Color( 0, 200, 255), str )
  8. chat.AddText( Color( 0, 255, 255 ), "[PWare] Private Ware ", Color( 0, 200, 255), str )
  9. chat.AddText( Color( 0, 255, 255 ), "[PWare] Made By Noone ", Color( 0, 200, 255), str )
  10. surface.PlaySound("HL1/fvox/bell.wav")
  11.  
  12. Watermark = vgui.Create( "HTML" )
  13. Watermark:SetPos( -20, -20)
  14. Watermark:SetSize( ScrW(), ScrH())
  15. Watermark:OpenURL( "http://gtalogo.com/img/4858.png" )
  16.  
  17. local Frame = vgui.Create( "DFrame" )
  18. Frame:Center()
  19. Frame:SetSize( 500, 200 )
  20. Frame:SetTitle( "PWare Menu" )
  21. Frame:SetDraggable( true )
  22. Frame:MakePopup()
  23. Frame.Paint = function()
  24.     draw.RoundedBox( 8, 0, 0, Frame:GetWide(), Frame:GetTall(), Color( 0, 0, 0, 150 ) )
  25. end
  26.  
  27. local DermaCheckbox = vgui.Create( "DCheckBoxLabel" )
  28. DermaCheckbox:SetParent( Frame )
  29. DermaCheckbox:SetPos( 45, 53 )                     
  30. DermaCheckbox:SetText( "Anti-Aim" )                
  31. DermaCheckbox:SetConVar( "sbox_godmode" )          
  32. DermaCheckbox:SetValue( 0 )          
  33. DermaCheckbox:SizeToContents() 
  34.  
  35. local DComboBox = vgui.Create( "DComboBox", Frame )
  36. DComboBox:SetPos( 40, 70 )
  37. DComboBox:SetSize( 100, 20 )
  38. DComboBox:SetValue( "Emotion" )
  39. DComboBox:AddChoice( "Jitter" )
  40. DComboBox:AddChoice( "Fake-Angle" )
  41. DComboBox:AddChoice( "Down" )
  42. DComboBox:AddChoice( "Up" )
  43. DComboBox.OnSelect = function( panel, index, value )
  44.     print( value .." was selected!" )
  45. end
  46.  
  47. local DermaNumSlider = vgui.Create( "DNumSlider", Frame )
  48. DermaNumSlider:SetPos( 70, 110 )           
  49. DermaNumSlider:SetSize( 300, 100 )     
  50. DermaNumSlider:SetText( "X" )  
  51. DermaNumSlider:SetMin( 0 )             
  52. DermaNumSlider:SetMax( 256 )               
  53. DermaNumSlider:SetDecimals( 0 )        
  54. DermaNumSlider:SetConVar( "sbox_maxprops" )
  55.  
  56. local DermaNumSlider1 = vgui.Create( "DNumSlider", Frame )
  57. DermaNumSlider1:SetPos( 70, 80 )           
  58. DermaNumSlider1:SetSize( 300, 100 )    
  59. DermaNumSlider1:SetText( "Y" ) 
  60. DermaNumSlider1:SetMin( 0 )            
  61. DermaNumSlider1:SetMax( 256 )              
  62. DermaNumSlider1:SetDecimals( 0 )           
  63. DermaNumSlider1:SetConVar( "sbox_maxprops" )
  64.  
  65.  
  66.  
  67. local bhop = { };
  68.                     bhop.MetaPlayer = FindMetaTable( "Player")
  69.                     bhop.oldKeyDown = bhop.MetaPlayer['KeyDown']
  70.                     local bhopOn = true;
  71.                     local bhopSOn = true;
  72.                     local bhopHooks = { hook = { }, name = { } };
  73.                     bhop.left = false
  74.                     bhop.right = false
  75.                     bhop.jump = false
  76.                     bhop.what = true
  77.                     function bhop.AddHook(hookname, name, func)
  78.                             table.insert( bhopHooks.hook, hookname );
  79.                             table.insert( bhopHooks.name, name );
  80.                             hook.Add( hookname, name, func );
  81.                     end
  82.                     bhop.MetaPlayer['KeyDown'] = function( self, key )
  83.                     if self != LocalPlayer() then return end
  84.                         if (key == IN_MOVELEFT) and bhop.left then
  85.                             return true
  86.                         elseif (key == IN_MOVERIGHT) and bhop.right then
  87.                             return true
  88.                         elseif (key == IN_JUMP) and bhop.jump then
  89.                             return true
  90.                         else
  91.                             return bhop.oldKeyDown( self, key )
  92.                         end
  93.                     end
  94.  
  95.                     function bhop.spamjump()
  96.                             bhop.what = false
  97.                             bhop.jump = true
  98.                             timer.Simple(.05, function()
  99.                                 bhop.jump = false
  100.                                 timer.Simple( .25, function()
  101.                                     bhop.what = true
  102.                                 end)
  103.                             end)
  104.                     end
  105.  
  106.      
  107.         local oldEyePos = LocalPlayer():EyeAngles()--This is to see where player is looking
  108.         function bhop.CreateMove( cmd )
  109.                         local JumpReleased = false;
  110.                 if (cmd:KeyDown( IN_JUMP )) then
  111.  
  112.                         if (!JumpReleased) then
  113.                                 if (bhopOn && !LocalPlayer():OnGround()) then --Bhop here
  114.                                         cmd:RemoveKey( IN_JUMP );
  115.                                         if bhop.what then
  116.                                             bhop.spamjump()
  117.                                         end
  118.                                 end
  119.                         else
  120.                                 JumpReleased = false
  121.                         end
  122.                                        
  123.                                 if(bhopSOn ) then--auto strafer
  124.                                         local traceRes = LocalPlayer():EyeAngles()
  125.                                
  126.                                         if( traceRes.y > oldEyePos.y ) then --If you move your mouse left, walk left, if you're jumping
  127.                                                 oldEyePos = traceRes;
  128.                                                 cmd:SetSideMove( -1000000 )
  129.                                                 bhop.left = true
  130.                                                 timer.Simple(1, function() bhop.left = false end)
  131.                                         end
  132.          
  133.                                         if( oldEyePos.y > traceRes.y )  then --If you move your mouse right, move right,  while jumping
  134.                                                 oldEyePos = traceRes;
  135.                                                 cmd:SetSideMove( 1000000 )
  136.                                                 bhop.right = true
  137.                                                 timer.Simple(1, function() bhop.right = false end)
  138.                                         end
  139.                                 end
  140.                 elseif (!JumpReleased) then
  141.                         JumpReleased = true;
  142.                 end
  143.          
  144.         end
  145.            
  146.         bhop.AddHook( "CreateMove", tostring(math.random(0, 133712837)), bhop.CreateMove )--add the hook
  147.             concommand.Add( "bhop", function () --Toggler
  148.                     if bhopOn then
  149.                             print("Bhop off")
  150.                             bhopOn = false;
  151.                     else
  152.                             print("Bhop on")
  153.                             bhopOn = true;
  154.                     end
  155.             end )
  156.             concommand.Add( "bhop_strafe",  function ()
  157.                     if bhopSOn then
  158.                             print("Strafe off")
  159.                             bhopSOn = false;
  160.                     else
  161.                             print("Strafe on")
  162.                             bhopSOn = true;
  163.                     end
  164.             end)
  165.             concommand.Add("bhop_unload", function()
  166.                 for i = 1, #bhopHooks.hook do
  167.                 hook.Remove( bhopHooks.hook[i], bhopHooks.name[i] );
  168.                 print( "Unhooked "..bhopHooks.hook[i].." using name "..bhopHooks.name[i] );
  169.             end
  170.                     concommand.Remove("bhop_strafe")
  171.                     concommand.Remove("bhop")
  172.                     bhopOn = false;
  173.                     bhopSOn = false;
  174.                     print("Bhop unloaded")
  175.                     table.Empty( bhopHooks )
  176.                     concommand.Remove( "bhop_unload" )
  177.             end)
  178.            
  179.            if CLIENT then
  180.     local thirdperson_enabled = true
  181.  
  182.  
  183.     hook.Add("CalcView","Thirdperson",function(ply,pos,ang,fov,nearz,farz)
  184.         if not thirdperson_enabled then return end
  185.  
  186.         local tr = util.TraceLine( {
  187.             start = pos,
  188.             endpos = pos-(ang:Forward()*100),
  189.             filter = nil
  190.         } )
  191.  
  192.         local view = {}
  193.  
  194.         view.origin = tr.HitPos
  195.         view.angles = angles
  196.         view.fov = fov
  197.  
  198.         return view
  199.  
  200.     end)
  201.    
  202.     hook.Add("ShouldDrawLocalPlayer","Thirdperson_ShouldDrawPlayer",function(ply)
  203.         return thirdperson_enabled
  204.     end)
  205.  
  206.     net.Receive("thirdperson_toggle",function(len)
  207.         thirdperson_enabled = not thirdperson_enabled
  208.     end)
  209.  
  210.  
  211. else
  212.    
  213.     util.AddNetworkString("thirdperson_toggle")
  214.  
  215.     concommand.Add("thirdperson_toggle",function(ply,cmd,args)
  216.  
  217.         net.Start("thirdperson_toggle")
  218.         net.Send(ply)
  219.     end)
  220.  
  221.    
  222. end
  223.  
  224. function SchoolShow( ply )
  225.     concommand.Run( ply, "thirdperson_toggle" )
  226. end
  227. hook.Add("ShowSpare2", "School", SchoolShow)
  228.  
  229.         RunConsoleCommand( "fov_desired", "110" )
  230.        
  231.        
  232. hook.Add( "HUDPaint", "Wallhack", function()
  233.  
  234.     for k,v in pairs ( player.GetAll() ) do
  235.  
  236.         local Position = ( v:GetPos() + Vector( 0,0,80 ) ):ToScreen()
  237.         local Name = ""
  238.  
  239.         if v == LocalPlayer() then Name = "" else Name = v:Name() end
  240.    
  241.         draw.DrawText( Name, "CloseCaption_Bold", Position.x, Position.y, Color( 255, 255, 255, 255 ), 1 )
  242.         CreateClientConVar( "wallhack_enabled", 0, true, false )
  243.  
  244.     end
  245.  
  246. end )
  247.  
  248. bools = true
  249.     if(bools) then
  250.       if(!bSendPacket) then
  251.              yawangle = yawangle + 2035
  252.       end
  253.       if(bSendPacket) then
  254.         yawangle = 1
  255.       end
  256.       bools = true
  257.       else
  258.       if(!bSendPacket) then
  259.              yawangle = yawangle - 2075
  260.       end
  261.       if(bSendPacket) then
  262.         yawangle = 1
  263.       end
  264.         bools = true
  265.     end
  266.    
  267.     function aimbot()
  268.     local ply = LocalPlayer()
  269.     local trace = util.GetPlayerTrace( ply )
  270.     local traceRes = util.TraceLine( trace )
  271.     if traceRes.HitNonWorld then
  272.         local target = traceRes.Entity
  273.         if target:IsPlayer() then
  274.             local targethead = target:LookupBone("ValveBiped.Bip01_Head1")
  275.             local targetheadpos,targetheadang = target:GetBonePosition(targethead)
  276.             ply:SetEyeAngles((targetheadpos - ply:GetShootPos()):Angle())
  277.         end
  278.     end
  279. end
  280. hook.Add("Think","aimbot",aimbot)
  281.  
  282. // pCircleStrafe BOI! GET YOU SOME!
  283.  
  284. local CSBOI = {}
  285. CSBOI.CircleStrafeVal = 0
  286. CSBOI._G = table.Copy(_G)
  287. CSBOI.localply = CSBOI._G.LocalPlayer()
  288. CSBOI.cl_forwardspeed_cvar = CSBOI._G.GetConVar("cl_forwardspeed")
  289. CSBOI.cl_forwardspeed_value = 10000
  290. if (CSBOI.cl_forwardspeed_cvar) then
  291.     CSBOI.cl_forwardspeed_value = CSBOI.cl_forwardspeed_cvar:GetFloat()
  292. end
  293. CSBOI.cl_sidespeed_cvar = CSBOI._G.GetConVar("cl_sidespeed")
  294. CSBOI.cl_sidespeed_value = 10000
  295. if (CSBOI.cl_sidespeed_cvar) then
  296.     CSBOI.cl_sidespeed_value = CSBOI.cl_sidespeed_cvar:GetFloat()
  297. end
  298.  
  299. function CSBOI.ClampMove(cmd)
  300.     if (cmd:GetForwardMove() > CSBOI.cl_forwardspeed_value) then
  301.         cmd:SetForwardMove(CSBOI.cl_forwardspeed_value)
  302.     end
  303.     if (cmd:GetSideMove() > CSBOI.cl_sidespeed_value) then
  304.         cmd:SetSideMove(CSBOI.cl_sidespeed_value)
  305.     end
  306. end
  307.  
  308. function CSBOI.FixMove(cmd, rotation)
  309.     local rot_cos = CSBOI._G.math.cos(rotation)
  310.     local rot_sin = CSBOI._G.math.sin(rotation)
  311.     local cur_forwardmove = cmd:GetForwardMove()
  312.     local cur_sidemove = cmd:GetSideMove()
  313.     cmd:SetForwardMove(((rot_cos * cur_forwardmove) - (rot_sin * cur_sidemove)))
  314.     cmd:SetSideMove(((rot_sin * cur_forwardmove) + (rot_cos * cur_sidemove)))
  315. end
  316.  
  317. CSBOI.CircleStrafeSpeed = 2
  318. function CSBOI.CircleStrafe(cmd)
  319.     if (CSBOI._G.input.IsKeyDown(KEY_E)) then
  320.         CSBOI.CircleStrafeVal = CSBOI.CircleStrafeVal + CSBOI.CircleStrafeSpeed
  321.         if ((CSBOI.CircleStrafeVal > 0) and ((CSBOI.CircleStrafeVal / CSBOI.CircleStrafeSpeed) > 361)) then
  322.             CSBOI.CircleStrafeVal = 0
  323.         end
  324.         CSBOI.FixMove(cmd, CSBOI._G.math.rad((CSBOI.CircleStrafeVal - CSBOI._G.engine.TickInterval())))
  325.         return false
  326.     else
  327.         CSBOI.CircleStrafeVal = 0
  328.     end
  329.     return true
  330. end
  331.  
  332. function CSBOI.RunIt(cmd)
  333.     if (CSBOI.localply) then
  334.         if (cmd:KeyDown(IN_JUMP)) then
  335.             local local_velocity = CSBOI.localply:GetVelocity()
  336.             if (local_velocity:Length2D() < 50) then
  337.                 cmd:SetForwardMove(CSBOI.cl_forwardspeed_value)
  338.             end
  339.             local shouldautostrafe = CSBOI.CircleStrafe(cmd)       
  340.             if (!CSBOI.localply:OnGround()) then
  341.                 if (shouldautostrafe) then
  342.                     // Do your AutoStrafe Here
  343.                 end
  344.                 cmd:SetButtons(cmd:GetButtons() - IN_JUMP)
  345.             end
  346.         else
  347.             CSBOI.CircleStrafeVal = 0
  348.         end
  349.     end
  350.     CSBOI.ClampMove(cmd)
  351. end
  352. CSBOI._G.hook.Add("CreateMove", "CSBOI", CSBOI.RunIt)
  353.  
  354. local storedColors = {};
  355. local storedMaterials = {};
  356. local storedRenderModes = {};
  357.  
  358. local function setIfNonExistant(ent)
  359.     if(!storedMaterials[ent] and !storedColors[ent]) then
  360.         storedMaterials[ent] = ent:GetMaterial();
  361.         storedColors[ent] = ent:GetColor();
  362.         storedRenderModes[ent] = ent:GetRenderMode();
  363.     end
  364. end
  365.  
  366. local function XRay()
  367.     for i,v in pairs(ents.GetAll()) do
  368.         if IsValid(v) then
  369.             setIfNonExistant(v);
  370.             if(v:IsPlayer()) then
  371.                 if(v:IsAdmin() || v:IsSuperAdmin()) then
  372.                     v:SetColor(Color(255, 255, 255, 255));
  373.                 elseif(v:GetFriendStatus() == "friend") then
  374.                     v:SetColor(Color(255, 155, 50, 255));
  375.                 else
  376.                     v:SetColor(Color(255, 255, 155, 100));
  377.                 end
  378.             elseif(v:IsNPC()) then
  379.                 v:SetColor(Color(155, 0, 0, 155));
  380.             elseif(v:IsVehicle()) then
  381.                 v:SetColor(Color(0, 155, 0, 155));
  382.             elseif(v:IsWeapon()) then
  383.                 v:SetColor(Color(255, 0, 155, 155));
  384.             else
  385.                 local class = string.lower(v:GetClass());
  386.                 if(string.find(class, "printer")) then
  387.                     v:SetColor(Color(255, 0, 155, 155));
  388.                 elseif(string.find(class, "func") || string.find(class, "prop_door")) then
  389.                     v:SetColor(Color(100, 100, 0, 40));
  390.                 elseif(string.find(class, "ghost")) then
  391.                     v:SetColor(Color(255, 255, 255, 100));
  392.                 else
  393.                     v:SetColor(Color(50, 50, 255, 40));
  394.                 end
  395.             end
  396.             v:SetMaterial("yay");
  397.             v:SetRenderMode(RENDERMODE_TRANSALPHA);
  398.         end
  399.     end
  400. end
  401.  
  402. local function TurnOffXRay()
  403.     for i,v in pairs(ents.GetAll()) do
  404.         if(IsValid(v)) then
  405.             if(storedMaterials[v]) then
  406.                 v:SetMaterial(storedMaterials[v]);
  407.             end
  408.             if(storedColors[v]) then
  409.                 v:SetColor(storedColors[v]);
  410.             end
  411.             if(storedRenderModes[v]) then
  412.                 v:SetRenderMode(storedRenderModes[v]);
  413.             end
  414.         end
  415.     end
  416.     storedColors = {};
  417.     storedMaterials = {};
  418.     storedRenderModes = {};
  419. end
  420.  
  421. local xRayOn = false
  422. concommand.Add("minge_toggle_xray", function(client, command, arguments)
  423.     if(xRayOn) then
  424.         hook.Remove("RenderScene", "XRay");
  425.         TurnOffXRay();
  426.         xRayOn = false;
  427.     else
  428.         hook.Add("RenderScene", "XRay", XRay);
  429.         xRayOn = true;
  430.     end
  431. end)
  432.  
  433.     RunConsoleCommand( "minge_toggle_xray", "" )
  434.    
  435.     hook.Add( "GetPreferredCarryAngles", "MyPreferredCarryAngles", function( ent )
  436.     return Angle( 0, 0, 0 )
  437. end )
  438.  
  439.  
  440. local TriggerBot = CreateClientConVar( "triggerbot_enabled", 1, true, false )
  441.  
  442. hook.Add( "Think", "Triggerbot", function()
  443.  
  444.     local Target = LocalPlayer():GetEyeTrace().Entity
  445.  
  446.     if TriggerBot:GetInt() == 1 and LocalPlayer():Alive() and LocalPlayer():GetActiveWeapon():IsValid() and ( Target:IsPlayer() or Target:IsNPC() ) then
  447.  
  448.         if !Firing then
  449.  
  450.             RunConsoleCommand( "+attack" )
  451.             LocalPlayer():GetActiveWeapon().SetNextPrimaryFire( LocalPlayer():GetActiveWeapon() )
  452.             Firing = true
  453.  
  454.         else
  455.  
  456.             RunConsoleCommand( "-attack" )
  457.             Firing = false
  458.  
  459.         end
  460.  
  461.     end
  462.  
  463. end )
  464.  
  465. local function Aimbot(cmd)
  466. local oView = cmd:GetViewAngles()
  467. if LocalPlayer():GetActiveWeapon() then
  468. local BulletTime = true
  469. if LocalPlayer():GetActiveWeapon():GetNextPrimaryFire() > SysTime() then
  470. BulletTime = false
  471. end
  472. if cmd:GetButtons() and IN_ATTACK and BulletTime then
  473. bSendPacket = false
  474. else
  475. bSendPacket = true
  476. cmd:SetViewAngles(oView)
  477. end
  478. end
  479. end
  480.  
  481. local Queue = 0
  482.  
  483. local function FakeLag(cmd)
  484. Queue = Queue + 1
  485.  
  486. if Queue >= 0 then
  487. if Queue < 5 then
  488. bSendPacket = false
  489. else
  490. bSendPacket = true
  491. end
  492. else
  493. bSendPacket = true
  494. end
  495.    
  496. if Queue >= 5 then
  497. Queue = 0
  498. end
  499. end
  500.  
  501. hook.Add("CreateMove", "FakeLag", FakeLag)
  502.  
  503. RunConsoleCommand( "say", "PWARE HVH REKING NOOBS LOADED!" )
RAW Paste Data
Top