--[[
    Aimworks 3.1 (Edit for Gun Simulator)
   I feel sorry for who ever made this game
 Just another trash simulator down the drain
--]]

local accuracy = 80
local aimkey = "f"
local toggle_teamcheck = "h"
local headshot = 35
local ignoreFOV    =  true
local ignoreWalls  =  true
local perfect_aim  =  true
local perfect_aim_firstperson_distance = 28
local rage_triggers = false
local RenderLassos =  true
local ShootingTeam =  false
local SpreadControlRadius = Vector3.new(25, 25, 15)
local trigger_speed = 0.1
local triggers  =  false
local Chams = false

local Whitelist = {"ROBLOX"}
for i,v in pairs(game.Players:GetChildren()) do
  if game.Players.LocalPlayer:IsFriendsWith(v.userId) then
      table.insert(Whitelist, v.Name)
  end
end

game.Players.PlayerAdded:connect(function(player)
  if game.Players.LocalPlayer:IsFriendsWith(player.userId) then
      table.insert(Whitelist, player.Name)
  end
end)

local aim_through_list = {nil, nil, nil}
local bone_name
local camera = workspace.CurrentCamera
local closest_distance
local deathBlock
local distance
local FilteringEnabled = workspace.FilteringEnabled
local huge = math.huge
local in_fov
local lasso
local localplayer = game:GetService("Players").LocalPlayer
local most_viable_player
local mouse = localplayer:GetMouse()
local CreatorId = game.CreatorId
local players_service = game:GetService("Players")
local position
local random = math.random
local ray = Ray.new
local ray_start
local running = true
local sleeping
local target
local tele_bone
local targ_bone
local ticksslept = 0
local trigger_debounce
local vector
local viableplayers = {}

local function FindInstance(instance_className, search_directory)

  if not search_directory then return end

  for i, v in pairs(search_directory:GetChildren()) do
      if v.className == instance_className then
          return(v)
      end
  end

end

local function CreateBlockOfDeath()

  if deathBlock then deathBlock:Destroy() end

  deathBlock = Instance.new("Part", workspace)
  deathBlock.CanCollide = false
  deathBlock.Size = SpreadControlRadius
  deathBlock.Locked = true
  mouse.TargetFilter = deathBlock
  return deathBlock

end

local function ReturnsScreenCoordinatesAsVectorAndFOVChecksAsBool(player, bone)

  if not bone then
      return {_, false}
  end

  return camera:WorldToScreenPoint(player.Character[bone].Position)

end

local function ReturnsPlayerCheckResults(player)

  if not ShootingTeam then
      if player.TeamColor == localplayer.TeamColor then
          if not (player.Neutral and localplayer.Neutral) then
              return false
          end
      end
  end

  for i,v in pairs(Whitelist) do
      if player.Name == v then
          return false
      end
  end

  if player == localplayer then
      return false
  end

  if FindInstance("ForceField", player.Character) or FindInstance("Humanoid", player.Character, true).MaxHealth == huge then
      return false
  end

  if FindInstance("Humanoid", player.Character, true).Health == 0 then
      return false
  end

  local screen_position, in_fov = ReturnsScreenCoordinatesAsVectorAndFOVChecksAsBool(player, "UpperTorso")
  if not (in_fov or ignoreFOV) then
      return false
  else
      return player, screen_position
  end

end

local function ReturnsBoneOrFalse(player)

  if perfect_aim then
      return (FilteringEnabled and "Head" or "Left Arm")
  end

  if not (random(1, 100) <= accuracy) then
      return false
  end

  if (random(1, 100) <= headshot) and FilteringEnabled then
      return "Head"
  end

  return "Left Arm"

end


local function ReturnsViablePlayerOrNil()
  aim_through_list[1], aim_through_list[2] = deathBlock, localplayer.Character
  local distance = 1000
  local closest_distance = 1000
  local most_viable_player = nil

  local your_character = localplayer.Character
  local your_head = your_character and your_character:FindFirstChild "Head"

  for i, player_being_checked in pairs(players_service:GetPlayers()) do

      local player_or_false, targets_coordinates = ReturnsPlayerCheckResults(player_being_checked)

      if player_or_false then

          local char = player_being_checked.Character
          local target_UpperTorso = char and char:FindFirstChild "UpperTorso"

          if target_UpperTorso then

              if (camera.Focus.p - camera.CoordinateFrame.p).magnitude <= 1 then
                  ray_start = your_head.Position + your_head.CFrame.lookVector * 10 + Vector3.new(0, 3, 0)
              else
                  ray_start = your_head.Position + Vector3.new(0, 2, 0)
              end


              if not targets_coordinates then
                  distance = (Vector2.new(targets_coordinates.X, targets_coordinates.Y) - Vector2.new(mouse.X, mouse.Y)).magnitude
              else
                  distance = (Vector2.new(targets_coordinates.X, targets_coordinates.Y) - Vector2.new(mouse.X, mouse.Y)).magnitude
              end
              vector = (target_UpperTorso.Position - ray_start)


              if (not targets_coordinates) or (distance <= closest_distance) then

                  local new_ray = ray(ray_start, vector.unit * 1000)
                  local hit, position = workspace:FindPartOnRayWithIgnoreList(new_ray, aim_through_list)

                  if (hit and hit:isDescendantOf(char)) or ignoreWalls then
                      closest_distance = distance
                      most_viable_player = player_being_checked
                  end

              end

          end

      end
  end

  blockName = ReturnsBoneOrFalse(most_viable_player)
  sleeping = true
  return most_viable_player

end


function CreateChams()
if Chams then
  for i,v in pairs(camera:GetChildren()) do
      v:Destroy()
  end
       for q,player in pairs(game.Players:GetPlayers()) do
          if player.Character.Head:FindFirstChild("face") then
              player.Character.Head.face:Destroy()
          end
          if player.Character.Head:FindFirstChild("BoxHandleAdornment") then
             local ESP = false
         else
              if player.Name ~= localplayer.Name then
              for i,v in pairs(player.Character:GetChildren()) do
                  if v:IsA("BasePart") then
                      if v.Name ~= "Head" then
                      local fakeChams = Instance.new("BoxHandleAdornment", v)
                      local esp = Instance.new("BoxHandleAdornment", camera)
                      for c,w in pairs(Whitelist) do
                          if player.Name == w then
                          esp.Color3 = Color3.new(0,0,255)
                          esp.Adornee = v
                          esp.AlwaysOnTop = true
                      else
                          if player.TeamColor == localplayer.TeamColor then
                           esp.Color3 = Color3.new(0,255,0)
                           esp.Adornee = v
                           esp.AlwaysOnTop = true
                       else
                           if player.TeamColor ~= localplayer.TeamColor then
                                  esp.Color3 = Color3.new(255,0,0)
                                  esp.Adornee = v
                                  esp.AlwaysOnTop = true
                                          end
                                      end
                                  end
                              end
                          end
                      end
                  end
              end
          end
      end
  end
end

CreateChams()

game.Workspace.ChildAdded:connect(function(child)
  if child:IsA("Model") or child:IsA("Folder") then
      CreateChams()
  end
end)

game.Workspace.ChildRemoved:connect(function(child)
  if child:IsA("Model") or child:IsA("Folder") then
      CreateChams()
  end
end)

game.Players.LocalPlayer.Changed:connect(function()
  CreateChams()
end)

local function TargetPlayer(player)

  if aim_through_list[3] then
      aim_through_list[3].Position = aim_through_list[3].Position + Vector3.new(0,200,0)
      table.remove(aim_through_list, 3)
  end

  if not player then
      if lasso then lasso:Destroy() lasso = nil end
      target = nil
      lasso = Instance.new("SelectionPointLasso", camera)
      lasso.Humanoid, lasso.Point = FindInstance("Humanoid", localplayer.Character, true), mouse.Hit.p
      lasso.Color3 = Color3.new(0,255,0)
      return
  end

  if RenderLassos then
      if lasso then lasso:Destroy() lasso = nil end
      lasso = Instance.new("SelectionPartLasso", camera)
      lasso.Humanoid, lasso.Part = FindInstance("Humanoid", player.Character, true), game.Players.LocalPlayer.Character.UpperTorso
      lasso.Color3 = Color3.new(0,255,0)
  end

  bone_name = ReturnsBoneOrFalse(player)

  if player.Character.Head and bone_name then
      tele_bone = player.Character[bone_name]
      tele_bone.Parent = player.Character
      tele_bone.Size = SpreadControlRadius
      tele_bone.CanCollide = false
      tele_bone.CFrame = CFrame.new(workspace.CurrentCamera.CoordinateFrame.p + workspace.CurrentCamera.CoordinateFrame.lookVector * perfect_aim_firstperson_distance, workspace.CurrentCamera.CoordinateFrame.p)
      tele_bone.Transparency=1
      tele_bone:ClearAllChildren()
      table.insert(aim_through_list, 3, tele_bone)
      target = player
      return player

  end

  if bone_name then
      deathBlock.Parent = player.Character
      deathBlock.CanCollide = false
      deathBlock.Name = bone_name
  else
      return
  end

  target = player
  return player

end


CreateBlockOfDeath()
workspace.DescendantRemoving:connect(function(instance)
  if instance == deathBlock then CreateBlockOfDeath() end
end)

local function shoot()

  if not mouse1press then return end

  if trigger_debounce then return end

  trigger_debounce = true

  if rage_triggers and mouse1press() then

      mouse1press()
      wait(0.1)
      mouse1release()

  elseif mouse1press then

      mouse1press()
      wait(0)
      mouse1release()
      wait(trigger_speed)

  end

  trigger_debounce = false

end

game:GetService("RunService"):BindToRenderStep("First", Enum.RenderPriority.First.Value, function() -- another clusterfuck

  if running then
      if localplayer.Character then
          TargetPlayer(ReturnsViablePlayerOrNil())
          if target and target.Character then
              if localplayer:GetMouse().Target == deathBlock then return end
              if triggers then shoot() end
          else
              deathBlock.Parent = workspace
          end
      end
  end

end)

local keydown = mouse.KeyDown:connect(function(keys)
  if (keys == aimkey) then
      running = not running
      if (running) then
          print("[SILENTAIM] activated.")
      else
          print("[SILENTAIM] deactivated.")
      end
  end
end)

local keydowns = mouse.KeyDown:connect(function(keys)
  if (keys == toggle_teamcheck) then
      if (ShootingTeam) then
          print("[SILENTAIM] Team Shooting deactivated")
          ShootingTeam = false
      else
          print("[SILENTAIM] Team Shooting activated")
          ShootingTeam = true
      end
  end
end)