API tools faq
paste
Caliber_

Gmod leak dump part 4: pware

Caliber_
Dec 31st, 2017
205
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 15.61 KB | None | 0 0
raw download clone embed print report
  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!" )
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!