ScriptyPastes

Arsneal Beta

Jun 14th, 2020
176
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.83 KB | None | 0 0
  1. local a=loadstring(game:HttpGet("https://pastebin.com/raw/0RjxeK79",true))()local b=game:GetService('Players')local c=b.LocalPlayer;local d=workspace.CurrentCamera;local e={x=d.ViewportSize.X/2,y=d.ViewportSize.y/2}local f=c:GetMouse()local g={}local h={Fov=5,Dist=9e9,Smoothness=1}local i={Aimbot=false,Silent_Aim=false,TeamCheck2=false,TeamCheck=false,box_esp=false,Tracers=false,ammo=false}local j={TeamCheck=false,CanLock=false}local k=getrawmetatable(game)local l=k.__namecall;local m=Drawing.new("Circle")m.Position=Vector2.new(d.ViewportSize.X/2,d.ViewportSize.Y/2)m.Radius=0;m.Color=Color3.new(1,1,1)m.Thickness=2.5;m.Filled=false;m.Transparency=1;m.NumSides=15;m.Visible=false;function UpdatefovSize(n)m.Radius=n*23;h.Fov=n end;UpdatefovSize(0)function g:SetRonly(...)local o={...}if o[1]and o[2]then setreadonly(o[1],o[2])end end;function g:wts(...)local o={...}local p,q=d:WorldToViewportPoint(o[1])if o[1]and d:WorldToViewportPoint(o[1]).z>-1 then return Vector2.new(d:WorldToViewportPoint(o[1]).X,d:WorldToViewportPoint(o[1]).Y),q else return nil end end;function g:GetPlayerFromFov(r)local s=math.huge;local t=false;pcall(function()for p,u in next,b:GetPlayers()do if u.Name~=c.Name and u.Character~=nil and u.Character:FindFirstChild("Head")then if j.TeamCheck==true and u.TeamColor~=c.TeamColor then local v=workspace.Camera:WorldToScreenPoint(u.Character["Head"].Position)local w=(Vector2.new(f.X,f.Y)-Vector2.new(v.X,v.Y)).magnitude;if v.Z>0 and w<=d.ViewportSize.X/(90/r)and w<s then s=w;t=u end elseif j.TeamCheck~=true then local v=workspace.Camera:WorldToScreenPoint(u.Character["Head"].Position)local w=(Vector2.new(f.X,f.Y)-Vector2.new(v.X,v.Y)).magnitude;if v.Z>0 and w<=d.ViewportSize.X/(90/r)and w<s then s=w;t=u end end end end end)return t end;setreadonly(k,false)k.__namecall=newcclosure(function(...)local x=getnamecallmethod()local o={...}if tostring(x)=="FireServer"and tostring(o[1])=="HitPart"and i.Silent_Aim==true and g:GetPlayerFromFov(h.Fov)then o[2]=g:GetPlayerFromFov(h.Fov).Character.Head;o[3]=g:GetPlayerFromFov(h.Fov).Character.Head.Position;return o[1].FireServer(unpack(o))end;return l(...)end)setreadonly(k,true)local y=a:Frame("Esp Shit")local z=a:Frame("Aimbot Shit")local A=a:Frame("Gun Shit")y:Toggle("Box Esp",function(B)i.box_esp=B end)y:Label("Settings")y:Toggle("Color Team Check",function(B)i.TeamCheck=B end)y:Toggle("Visible Team Check",function(B)i.TeamCheck2=B end)y:Slider("Max Distance",15,5000,function(B)h.Dist=B end)z:Toggle("Silent Aim",function(B)i.Silent_Aim=B end)z:Toggle("Aimbot",function(B)i.Silent_Aim=B end)z:Label("Settings")z:Toggle("Show Fov",function(B)m.Visible=B end)z:Toggle("Team Check",function(B)j.TeamCheck=B end)z:Slider("Field Of View",1,25,function(B)UpdatefovSize(B)end)z:Slider("Smoothness",0.5,5,function(B)h.Smoothness=B end)A:Toggle("Infinite Ammo",function(B)i.ammo=B end)f.Button2Down:Connect(function()j.CanLock=true end)f.Button2Up:Connect(function()j.CanLock=false end)spawn(function()for C,D in pairs(getgc(true))do if type(D)=="table"then if rawget(D,"getammo")then for E,F in pairs(D)do if tostring(E)=="autoreload"then for G,H in pairs(debug.getupvalues(F))do if G==3 then while wait()do if i.ammo==true then debug.setupvalue(F,G,1)end end end end end end end end end end)pcall(function()while game:GetService("RunService").Stepped:Wait()do spawn(function()if i.box_esp then for C,D in pairs(b:GetPlayers())do if D~=c and D.Character and D.Character:FindFirstChild('LeftUpperArm')and g:wts(D.Character.Head.Position)~=nil and D.Character:FindFirstChild('LeftFoot')and D.Character:FindFirstChild('RightUpperArm')and D.Character:FindFirstChild('RightFoot')and c.Character and c.Character:FindFirstChild("Head")and(c.Character.Head.Position-D.Character.Head.Position).magnitude<=h.Dist then local I=Drawing.new("Quad")local p,J=g:wts(D.Character.Head.Position)I.Thickness=2;I.PointA=Vector2.new(g:wts(D.Character.RightUpperArm.Position).X,g:wts(D.Character.Head.Position).Y)I.PointB=Vector2.new(g:wts(D.Character.LeftUpperArm.Position).X,g:wts(D.Character.Head.Position).Y)I.PointC=Vector2.new(g:wts(D.Character.LeftUpperArm.Position).X,g:wts(D.Character.LeftFoot.Position).Y)I.PointD=Vector2.new(g:wts(D.Character.RightUpperArm.Position).X,g:wts(D.Character.LeftFoot.Position).Y)I.Visible=false;I.Filled=false;if i.TeamCheck==true then if D.TeamColor==c.TeamColor then I.Color=Color3.fromRGB(70,255,70)else I.Color=Color3.fromRGB(255,70,70)end else I.Color=Color3.new(1,1,1)end;if i.TeamCheck2==true and D.TeamColor==c.TeamColor then I.Visible=false else I.Visible=J end;game:GetService("RunService").RenderStepped:Wait()game:GetService("RunService").RenderStepped:Wait()I:Remove()end end end;if g:GetPlayerFromFov(h.Fov)and j.CanLock==true then local K=d:WorldToScreenPoint(g:GetPlayerFromFov(h.Fov).Character["Head"].Position)local L=Vector2.new((K.X-f.X)*h.Smoothness*0.25,(K.Y-f.Y)*h.Smoothness*0.25)mousemoverel(L.X,L.Y)end end)end end)
Advertisement
Add Comment
Please, Sign In to add comment