Godofadmin1337

wr aimbot

Oct 14th, 2017
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.70 KB | None | 0 0
  1. local a=false local b=false local e=game:GetService'Players'.LocalPlayer.PlayerGui:FindFirstChild'PCUI'.TopFrame.TextLabel local d=e.Text game:GetService'Players'.LocalPlayer:GetMouse().KeyDown:connect(function(c)c=c:lower()if c==";"then if game:GetService'Players'.LocalPlayer.Character:FindFirstChild'Revolver'then if a then a=false e.Text="[AIMBOT]: Disabled"wait(1.5)e.Text=d else a=true e.Text="[AIMBOT]: Enabled"wait(1.5)e.Text=d end end elseif c=="'"then if game:GetService'Players'.LocalPlayer.Character:FindFirstChild'Revolver'then if b then b=false e.Text="[AIMBOT]: OPK Disabled"wait(1.5)e.Text=d else b=true e.Text="[AIMBOT]: OPK Enabled"wait(1.5)e.Text=d end end end end)PlayerInView=function(c)if b then return true end if game:GetService'Players'.LocalPlayer.Character:FindFirstChild'Revolver'then local b=Ray.new(game:GetService'Players'.LocalPlayer.Character:FindFirstChild'Revolver'.ShotOrigin.CFrame.p,(game:GetService'Players'[c].Character.Head.CFrame.p-game:GetService'Players'.LocalPlayer.Character:FindFirstChild'Revolver'.ShotOrigin.CFrame.p).unit*500)local a={game:GetService'Players'.LocalPlayer.Character}local b,a,a=workspace:FindPartOnRayWithIgnoreList(b,a)if not b then return false end if b:IsDescendantOf(game:GetService'Players'[c].Character)then return true end return false else return false end end PlayerInClientTeam=function(b)local a=game:GetService'Players'.LocalPlayer.PlayerGui:FindFirstChild'PCUI'.TDMLeaderboardFrame local c for a,b in pairs(a:GetChildren())do if b.Name=="Cowboys"or b.Name=="Sherrifs"then for a,a in pairs(b:GetChildren())do if a:IsA'TextLabel'then if a.Text==game:GetService'Players'.LocalPlayer.Name then c=b.Name end end end end end for a,a in pairs(a:GetChildren())do if a.Name==c then for a,a in pairs(a:GetChildren())do if a:IsA'TextLabel'then if a.Text==b then return true end end end end end return false end CreateGunEffects=function(b,a)local c=(b-a).magnitude local a=CFrame.new(b,a)local b=Instance.new("Part",workspace)b.Anchored=true b.FormFactor="Custom"b.Size=Vector3.new(.2,.2,c)b.CFrame=a*CFrame.new(0,0,-c/2)b.CanCollide=false b.BrickColor=BrickColor.new("Pastel yellow")b.Transparency=0.4 b.TopSurface=Enum.SurfaceType.Smooth b.BottomSurface=Enum.SurfaceType.Smooth wait(0.1)b:Destroy()end while true do wait()if a then if game:GetService'Players'.LocalPlayer.Character.Humanoid.Health~=0 then if game:GetService'Players'.LocalPlayer.Character:FindFirstChild'Revolver'then local b local d local c for a,e in pairs(game:GetService'Players':GetPlayers())do if e.Character and game:GetService'Players'.LocalPlayer.Character:FindFirstChild'Revolver'then if not PlayerInClientTeam(e.Name)then if e.Name~=game:GetService'Players'.LocalPlayer.Name then if e.Character.Humanoid.Health~=0 then if not e.Character:FindFirstChild'ForceField'then if PlayerInView(e.Name)then local b=(game:GetService'Players'.LocalPlayer.Character:FindFirstChild'Revolver'.ShotOrigin.Position-game:GetService'Players'.LocalPlayer.Character:FindFirstChild'Revolver'.ShotOrigin.Position).magnitude local a=(c or 1000)if b<=a then d=e.Character.Head c=b end end end end end end end end if d then b=d.Parent.Name else b=nil end if b then local a=game:GetService'Players':FindFirstChild(b).Character:FindFirstChild'Head'local c=game:GetService'Players'.LocalPlayer.Character.Revolver.ShotOrigin local b=game:GetService'Players':FindFirstChild(b).Character:FindFirstChild'Head'.Position local a={HitPart=a;Start=c;HitPosition=b}CreateGunEffects(c.Position,b)game:GetService'ReplicatedStorage':FindFirstChild'Events':FindFirstChild'GunFired':FireServer(a)spawn(function()local a=c:FindFirstChild'FireSound'if not a then warn'Fire sound not located'return end local a=a:Clone()a.Parent=c a:Play()wait(5)a:Destroy()end)wait(1.5)end end end end end
Add Comment
Please, Sign In to add comment