meh

--Made by: KYLETHORNTON
function sandbox(var,func)
	local env = getfenv(func)
	local newenv = setmetatable({},{
		__index = function(self,k)
			if k=="script" then
				return var
			else
				return env[k]
			end
		end,
	})
	setfenv(func,newenv)
	return func
end
cors = {}
mas = Instance.new("Model",game:GetService("Lighting"))
Tool0 = Instance.new("Tool")
Part1 = Instance.new("Part")
SpecialMesh2 = Instance.new("SpecialMesh")
Decal3 = Instance.new("Decal")
Sound4 = Instance.new("Sound")
Sound5 = Instance.new("Sound")
BoolValue6 = Instance.new("BoolValue")
Animation7 = Instance.new("Animation")
Animation8 = Instance.new("Animation")
LocalScript9 = Instance.new("LocalScript")
LocalScript10 = Instance.new("LocalScript")
Script11 = Instance.new("Script")
LocalScript12 = Instance.new("LocalScript")
Script13 = Instance.new("Script")
Animation14 = Instance.new("Animation")
Part15 = Instance.new("Part")
Script16 = Instance.new("Script")
Tool0.Name = "Kyle's BanHammer V1.2"
Tool0.Parent = mas
Tool0.TextureId = "http://www.roblox.com/asset/?id=10684453"
Tool0.GripPos = Vector3.new(0, -1, 0)
Tool0.CanBeDropped = false
Part1.Name = "Handle"
Part1.Parent = Tool0
Part1.Rotation = Vector3.new(87.8300018, -47.3499985, 90.0199966)
Part1.Locked = true
Part1.Size = Vector3.new(1, 6, 1)
Part1.CFrame = CFrame.new(15.2521076, 147.151108, 220.42746, -0.000203687698, -0.677491486, -0.735530555, 0.0381333232, 0.734990358, -0.677004457, 0.999272704, -0.0281861257, 0.0256852917)
Part1.Position = Vector3.new(15.2521076, 147.151108, 220.42746)
Part1.Orientation = Vector3.new(42.6100006, -88, 2.97000003)
SpecialMesh2.Parent = Part1
SpecialMesh2.MeshId = "http://www.roblox.com/asset/?id=10604848"
SpecialMesh2.Scale = Vector3.new(0.5, 0.5, 0.5)
SpecialMesh2.TextureId = "http://www.roblox.com/asset/?id=10605252"
SpecialMesh2.MeshType = Enum.MeshType.FileMesh
SpecialMesh2.Scale = Vector3.new(0.5, 0.5, 0.5)
Decal3.Parent = Part1
Decal3.Texture = "http://www.roblox.com/asset/?id=10605252"
Decal3.Face = Enum.NormalId.Back
Sound4.Name = "Homerun"
Sound4.Parent = Part1
Sound4.SoundId = "http://www.roblox.com/asset/?id=21343225"
Sound4.Volume = 0
Sound5.Name = "Whack"
Sound5.Parent = Part1
Sound5.SoundId = "http://www.roblox.com/asset/?id=10730819"
Sound5.Volume = 1
BoolValue6.Name = "MouseClick"
BoolValue6.Parent = Tool0
Animation7.Name = "TwoHandAnim"
Animation7.Parent = Tool0
Animation7.AnimationId = "http://www.roblox.com/Asset?ID=48138189"
Animation8.Name = "Whack"
Animation8.Parent = Tool0
Animation8.AnimationId = "http://www.roblox.com/Asset?ID=32659706"
LocalScript9.Name = "_CamShake"
LocalScript9.Parent = Tool0
LocalScript9.Disabled = true
table.insert(cors,sandbox(LocalScript9,function()
local cam = game.Workspace.CurrentCamera
for i = 1, 5 do
wait()
local cam_rot = cam.CoordinateFrame - cam.CoordinateFrame.p --* CFrame.fromEulerAnglesXYZ(math.random(-10, 10)/10, math.random(-10, 10)/10, 0)
local cam_scroll = (cam.CoordinateFrame.p - cam.Focus.p).magnitude
local ncf = CFrame.new(cam.Focus.p)*cam_rot*CFrame.fromEulerAnglesXYZ(math.random(-10, 10)/40, math.random(-10, 10)/40, 0)
cam.CoordinateFrame = ncf*CFrame.new(0, 0, cam_scroll)
end
script:remove()

end))
LocalScript10.Name = "_EVT"
LocalScript10.Parent = Tool0
table.insert(cors,sandbox(LocalScript10,function()
script.Parent.Equipped:connect(function(mouse)
	mouse.Button1Down:connect(function()
		script.Parent.MouseClick.Value = not script.Parent.MouseClick.Value
	end)
end)
end))
Script11.Name = "_SoundDetection"
Script11.Parent = Tool0
table.insert(cors,sandbox(Script11,function()
hammer = script.Parent.Handle
local HomerunSound = Instance.new("Sound")
HomerunSound.SoundId = "http://www.roblox.com/asset/?id=21343225"
HomerunSound.Parent = hammer
HomerunSound.Volume = 0.5
HomerunSound.Name = "Homerun"
local WhackSound = Instance.new("Sound")
WhackSound.SoundId = "http://www.roblox.com/asset/?id=10730819"
WhackSound.Parent = hammer
WhackSound.Volume = 1
WhackSound.Name = "Whack"
hammer.ChildAdded:connect(function(Child)
	wait()
	if Child.className == "StringValue" then
		if Child.Name == "HomerunSound" then
			HomerunSound:Play()
		elseif Child.Name == "WhackSound" then
			WhackSound:Play()
		end
		Child:Remove()
	end
end)
end))
LocalScript12.Name = "_Main"
LocalScript12.Parent = Tool0
table.insert(cors,sandbox(LocalScript12,function()
--Credits: xLEGOx for the first creation of the hammer, Luckymaxer for fixing it, BLOX31 for the ideas and animation, gkku for visual design, sounds, and various fixes
--player
player = nil
--selected
selected = false
homerunning = false
whacking = false
--save shoulders
RSH, LSH = nil, nil
anim = "none"
--grip
--welds
--what anim
local TwoHandAnim
local HomeRunner
local Whacker
--create the dustcloud object
--set variables
hammer = script.Parent.Handle
--[[local msh = Instance.new("SpecialMesh")
msh.MeshId = "http://www.roblox.com/asset/?id=1095708"
msh.MeshType = 5
msh.Parent = prt]]

----- show version ----------
script.Parent.Name = "BanHammer V1.1"
---------------------------------

function GetFigures(Parent, Part)
	for i, v in pairs(Parent:GetChildren()) do
		GetFigures(v, Part)
		if v.className == "Humanoid" then
			if v == script.Parent.Parent:findFirstChild("Humanoid") == false then
				if v.Parent:findFirstChild("Torso") then
					if v.Parent:findFirstChild("Torso"):IsA("BasePart") then
						if v.Parent:findFirstChild("Torso").Position.x < Part.Position.x + Part.Size.x / 2
						and v.Parent:findFirstChild("Torso").Position.x > Part.Position.x - Part.Size.x / 2
						and v.Parent:findFirstChild("Torso").Position.y < Part.Position.y + Part.Size.y / 2
						and v.Parent:findFirstChild("Torso").Position.y > Part.Position.y - Part.Size.y / 2
						and v.Parent:findFirstChild("Torso").Position.z < Part.Position.z + Part.Size.z / 2
						and v.Parent:findFirstChild("Torso").Position.z > Part.Position.z - Part.Size.z / 2 then
							v.Sit = true
						end
						if (Part.Position - v.Parent:findFirstChild("Torso").Position).magnitude < 10 then
							v.Sit = true
						end
					end
				end
			end
		end
	end
end
function Raycast(Pos, Dir, Max, Ignore)
return game:GetService("Workspace"):FindPartOnRay(Ray.new(Pos, Dir.unit * (Max or 999.999)), Ignore)
end
function WaitForChild(obj, ch_n)
	local t = time()
	while not obj:FindFirstChild(ch_n) and time() - t < 10 do wait(0.1) end
	return obj:FindFirstChild(ch_n)
end

--onselected, save shoulders and get player
script.Parent.Equipped:connect(function()
	TwoHandAnim = script.Parent.Parent:findFirstChild("Humanoid"):LoadAnimation(script.Parent.TwoHandAnim)
	HomeRunner = script.Parent.Parent:findFirstChild("Humanoid"):LoadAnimation(script.Parent.HomeRun)
	Whacker = script.Parent.Parent:findFirstChild("Humanoid"):LoadAnimation(script.Parent.Whack)
	repeat wait() until TwoHandAnim ~= nil and HomeRunner ~= nil and Whacker ~= nil
	if selected then return end
	selected = true
	TwoHandAnim:Play()
end)

--griptcf = CFrame.new(0, -1, 0) * CFrame.fromEulerAnglesXYZ(-math.pi/2+0.5, 0, 0)

script.Parent.Unequipped:connect(function()
	selected = false
	if TwoHandAnim ~= nil then
		TwoHandAnim:Stop()
	end
	if HomeRunner ~= nil then
		HomeRunner:Stop()
	end
	if Whacker ~= nil then
		Whacker:Stop()
	end
end)

function HomeRunHit(part)
	if part == nil then return end
	if part.Parent == nil then return end
	local h = (part.Parent or game):FindFirstChild("Humanoid") --or findfirstchild optimization
	if h then
		if h == script.Parent.Parent:findFirstChild("Humanoid") == false then
			--game.SoundService.Bomb:Play()
	--		hammer.Homerun:Play()
			hrs = Instance.new("StringValue")
			hrs.Name = "HomerunSound"
			hrs.Parent = hammer
			h.Sit = true
			h.Parent.Torso.Velocity = (CFrame.new(hammer.Position, h.Parent.Torso.Position).lookVector * 200) + Vector3.new(0, 100, 0)
			h.Parent.Torso.RotVelocity = Vector3.new(math.random(-100, 100), math.random(-100, 100), math.random(-100, 100))
		end
	end
end

function HomeRun()
	if homerunning == false then
		homerunning = true
		anim = "homerun"
		TwoHandAnim:Stop()
		HomeRunner:Play()
		--start HomeRunhit connection--
		local con = hammer.Touched:connect(HomeRunHit)
		----------------------------------------
		wait(.6)
		HomeRunner:Stop()
		if selected == true then
			TwoHandAnim:Play()
		end
		----end HomeRun connection---
		con:disconnect()
	--	wait(0.15)
		homerunning = false
	end
end
function Whack()
	if homerunning == false then
	anim = "norm"
	TwoHandAnim:Stop()
	Whacker:Play()
--	hammer.Whack:Play()
		--insert camshake and hit nearby people
		for _, p in pairs(game.Players:GetChildren()) do
			if p.Character == script.Parent.Parent == false then
				if p.Character:FindFirstChild("Torso") then
					if (p.Character.Torso.Position - (hammer.CFrame*CFrame.new(0, 3, 0)).p).magnitude < 15 then
						local s = script.Parent._CamShake:clone()
						s.Disabled = false
						s.Parent = p.Backpack
						if p ~= player then
		--					p.Character.Humanoid.Sit = true
		--					delay(0.1, function() p.Character.Humanoid.Jump = true end)
							p.Character.Torso.RotVelocity = Vector3.new(math.random(-10, 10), math.random(-10, 10), math.random(-10, 10))
						end
					end
				end
			end
		end
		--add dust cloud
		delay(0.25, function()
			if anim == "norm" then
				if selected == true then
					whacking = true
					p=Instance.new("Part")
					p.CanCollide = false
					p.Transparency = 1
					p.Parent = script.Parent.Parent
					p.formFactor = "Custom"
					p.Size = Vector3.new(0.2, 0.2, 0.2)
					p.Anchored = true
					p.CFrame = hammer.CFrame - Vector3.new(0, script.Parent.Parent:findFirstChild("Torso").Size.y/2, 0) + script.Parent.Parent:findFirstChild("Torso").CFrame.lookVector * ((hammer.Size.y / 2) - p.Size.z)
					p.CFrame = CFrame.new(p.CFrame.p) * CFrame.Angles(math.rad(0),math.rad(0),math.rad(0))
					p.CFrame = p.CFrame * CFrame.fromEulerAnglesXYZ(-math.pi/2, 0,  -math.pi/2)
					Hit, Pos = Raycast(p.Position, p.CFrame.lookVector, 4, script.Parent.Parent)
					if Hit ~= nil then
						if homerunning == false then
							delay(0.35, function()
								w = Instance.new("StringValue")
								w.Name = "WhackSound"
								w.Parent = hammer
							end)
							local pt = prt:clone()
							pt.Parent = script.Parent.Parent
							pt.CFrame = CFrame.new(hammer.CFrame.x, Pos.y + 0.75, hammer.CFrame.z) + script.Parent.Parent:findFirstChild("Torso").CFrame.lookVector * 1.75
							GetFigures(pt.Parent.Parent, pt)
							game.Debris:addItem(pt, 1.3)
						end
					end
					p:Remove()
				end
			end
		end)
		wait(0.75)
		Whacker:Stop()
		whacking = false
		------
		if selected == true then
			TwoHandAnim:Play()
		end
	end
end
local a = false
local co = nil
--OMGHAX mouseclick
local last_click = 0
script.Parent.MouseClick.Changed:connect(function()
	if homerunning == false and whacking == false then
		if time() - last_click < 0.3 then
			anim = "homerun"
			last_click = time()
			HomeRun()
		else
			anim = "norm"
			last_click = time()
			Whack()
		end
	end
end)
end))
Script13.Name = "qPerfectionWeld"
Script13.Parent = Tool0
table.insert(cors,sandbox(Script13,function()
-- Created by Quenty (@Quenty, follow me on twitter).
-- Should work with only ONE copy, seamlessly with weapons, trains, et cetera.
-- Parts should be ANCHORED before use. It will, however, store relatives values and so when tools are reparented, it'll fix them.

--[[ INSTRUCTIONS
- Place in the model
- Make sure model is anchored
- That's it. It will weld the model and all children.

THIS SCRIPT SHOULD BE USED ONLY BY ITSELF. THE MODEL SHOULD BE ANCHORED.
THIS SCRIPT SHOULD BE USED ONLY BY ITSELF. THE MODEL SHOULD BE ANCHORED.
THIS SCRIPT SHOULD BE USED ONLY BY ITSELF. THE MODEL SHOULD BE ANCHORED.
THIS SCRIPT SHOULD BE USED ONLY BY ITSELF. THE MODEL SHOULD BE ANCHORED.
THIS SCRIPT SHOULD BE USED ONLY BY ITSELF. THE MODEL SHOULD BE ANCHORED.
THIS SCRIPT SHOULD BE USED ONLY BY ITSELF. THE MODEL SHOULD BE ANCHORED.
THIS SCRIPT SHOULD BE USED ONLY BY ITSELF. THE MODEL SHOULD BE ANCHORED.
THIS SCRIPT SHOULD BE USED ONLY BY ITSELF. THE MODEL SHOULD BE ANCHORED.

This script is designed to be used is a regular script. In a local script it will weld, but it will not attempt to handle ancestory changes.
]]

--[[ DOCUMENTATION
- Will work in tools. If ran more than once it will not create more than one weld.  This is especially useful for tools that are dropped and then picked up again.
- Will work in PBS servers
- Will work as long as it starts out with the part anchored
- Stores the relative CFrame as a CFrame value
- Takes careful measure to reduce lag by not having a joint set off or affected by the parts offset from origin
- Utilizes a recursive algorith to find all parts in the model
- Will reweld on script reparent if the script is initially parented to a tool.
- Welds as fast as possible
]]

-- qPerfectionWeld.lua
-- Created 10/6/2014
-- Author: Quenty
-- Version 1.0.3

-- Updated 10/14/2014 - Updated to 1.0.1
--- Bug fix with existing ROBLOX welds ? Repro by asimo3089

-- Updated 10/14/2014 - Updated to 1.0.2
--- Fixed bug fix.

-- Updated 10/14/2014 - Updated to 1.0.3
--- Now handles joints semi-acceptably. May be rather hacky with some joints. :/

local NEVER_BREAK_JOINTS = false -- If you set this to true it will never break joints (this can create some welding issues, but can save stuff like hinges).


local function CallOnChildren(Instance, FunctionToCall)
	-- Calls a function on each of the children of a certain object, using recursion.

	FunctionToCall(Instance)

	for _, Child in next, Instance:GetChildren() do
		CallOnChildren(Child, FunctionToCall)
	end
end

local function GetNearestParent(Instance, ClassName)
	-- Returns the nearest parent of a certain class, or returns nil

	local Ancestor = Instance
	repeat
		Ancestor = Ancestor.Parent
		if Ancestor == nil then
			return nil
		end
	until Ancestor:IsA(ClassName)

	return Ancestor
end

local function GetBricks(StartInstance)
	local List = {}

	-- if StartInstance:IsA("BasePart") then
	-- 	List[#List+1] = StartInstance
	-- end

	CallOnChildren(StartInstance, function(Item)
		if Item:IsA("BasePart") then
			List[#List+1] = Item;
		end
	end)

	return List
end

local function Modify(Instance, Values)
	-- Modifies an Instance by using a table.

	assert(type(Values) == "table", "Values is not a table");

	for Index, Value in next, Values do
		if type(Index) == "number" then
			Value.Parent = Instance
		else
			Instance[Index] = Value
		end
	end
	return Instance
end

local function Make(ClassType, Properties)
	-- Using a syntax hack to create a nice way to Make new items.

	return Modify(Instance.new(ClassType), Properties)
end

local Surfaces = {"TopSurface", "BottomSurface", "LeftSurface", "RightSurface", "FrontSurface", "BackSurface"}
local HingSurfaces = {"Hinge", "Motor", "SteppingMotor"}

local function HasWheelJoint(Part)
	for _, SurfaceName in pairs(Surfaces) do
		for _, HingSurfaceName in pairs(HingSurfaces) do
			if Part[SurfaceName].Name == HingSurfaceName then
				return true
			end
		end
	end

	return false
end

local function ShouldBreakJoints(Part)
	--- We do not want to break joints of wheels/hinges. This takes the utmost care to not do this. There are
	--  definitely some edge cases.

	if NEVER_BREAK_JOINTS then
		return false
	end

	if HasWheelJoint(Part) then
		return false
	end

	local Connected = Part:GetConnectedParts()

	if #Connected == 1 then
		return false
	end

	for _, Item in pairs(Connected) do
		if HasWheelJoint(Item) then
			return false
		elseif not Item:IsDescendantOf(script.Parent) then
			return false
		end
	end

	return true
end

local function WeldTogether(Part0, Part1, JointType, WeldParent)
	--- Weld's 2 parts together
	-- @param Part0 The first part
	-- @param Part1 The second part (Dependent part most of the time).
	-- @param [JointType] The type of joint. Defaults to weld.
	-- @param [WeldParent] Parent of the weld, Defaults to Part0 (so GC is better).
	-- @return The weld created.

	JointType = JointType or "Weld"
	local RelativeValue = Part1:FindFirstChild("qRelativeCFrameWeldValue")

	local NewWeld = Part1:FindFirstChild("qCFrameWeldThingy") or Instance.new(JointType)
	Modify(NewWeld, {
		Name = "qCFrameWeldThingy";
		Part0  = Part0;
		Part1  = Part1;
		C0     = CFrame.new();--Part0.CFrame:inverse();
		C1     = RelativeValue and RelativeValue.Value or Part1.CFrame:toObjectSpace(Part0.CFrame); --Part1.CFrame:inverse() * Part0.CFrame;-- Part1.CFrame:inverse();
		Parent = Part1;
	})

	if not RelativeValue then
		RelativeValue = Make("CFrameValue", {
			Parent     = Part1;
			Name       = "qRelativeCFrameWeldValue";
			Archivable = true;
			Value      = NewWeld.C1;
		})
	end

	return NewWeld
end

local function WeldParts(Parts, MainPart, JointType, DoNotUnanchor)
	-- @param Parts The Parts to weld. Should be anchored to prevent really horrible results.
	-- @param MainPart The part to weld the model to (can be in the model).
	-- @param [JointType] The type of joint. Defaults to weld.
	-- @parm DoNotUnanchor Boolean, if true, will not unachor the model after cmopletion.

	for _, Part in pairs(Parts) do
		if ShouldBreakJoints(Part) then
			Part:BreakJoints()
		end
	end

	for _, Part in pairs(Parts) do
		if Part ~= MainPart then
			WeldTogether(MainPart, Part, JointType, MainPart)
		end
	end

	if not DoNotUnanchor then
		for _, Part in pairs(Parts) do
			Part.Anchored = false
		end
		MainPart.Anchored = false
	end
end

local function PerfectionWeld()
	local Tool = GetNearestParent(script, "Tool")

	local Parts = GetBricks(script.Parent)
	local PrimaryPart = Tool and Tool:FindFirstChild("Handle") and Tool.Handle:IsA("BasePart") and Tool.Handle or script.Parent:IsA("Model") and script.Parent.PrimaryPart or Parts[1]

	if PrimaryPart then
		WeldParts(Parts, PrimaryPart, "Weld", false)
	else
		warn("qWeld - Unable to weld part")
	end

	return Tool
end

local Tool = PerfectionWeld()


if Tool and script.ClassName == "Script" then
	--- Don't bother with local scripts

	script.Parent.AncestryChanged:connect(function()
		PerfectionWeld()
	end)
end

-- Created by Quenty (@Quenty, follow me on twitter).

end))
Animation14.Name = "HomeRun"
Animation14.Parent = Tool0
Animation14.AnimationId = "rbxassetid://54673790"
Part15.Name = "ban part"
Part15.Parent = Tool0
Part15.BrickColor = BrickColor.new("Dark stone grey")
Part15.Transparency = 1
Part15.Rotation = Vector3.new(87.8199997, -47.3499985, 90.0099945)
Part15.CanCollide = false
Part15.FormFactor = Enum.FormFactor.Plate
Part15.Size = Vector3.new(0.329999834, 0.340000093, 2.76999855)
Part15.CFrame = CFrame.new(14.0344563, 148.472382, 220.398148, -9.28728914e-05, -0.677499533, -0.735523343, 0.0380967073, 0.734986424, -0.677010179, 0.999273837, -0.0280841347, 0.0257421304)
Part15.BottomSurface = Enum.SurfaceType.Smooth
Part15.TopSurface = Enum.SurfaceType.Smooth
Part15.Color = Color3.new(0.388235, 0.372549, 0.384314)
Part15.Position = Vector3.new(14.0344563, 148.472382, 220.398148)
Part15.Orientation = Vector3.new(42.6100006, -88, 2.97000003)
Part15.Color = Color3.new(0.388235, 0.372549, 0.384314)
Script16.Parent = Part15
table.insert(cors,sandbox(Script16,function()
function onTouched(part)
	if part.Parent ~= nil then
		local h = part.Parent:findFirstChild("Humanoid")
			if h~=nil then
					if touch~=1 then
						touch=1
						wait(0.1)
						local place=game.Players:findFirstChild(part.Parent.Name)
						if place~=nil then
							place:Kick()
						end
						touch=0
					end

			end
	end
end

script.Parent.Touched:connect(onTouched)
end))
for i,v in pairs(mas:GetChildren()) do
	v.Parent = game:GetService("Players").LocalPlayer.Backpack
	pcall(function() v:MakeJoints() end)
end
mas:Destroy()
for i,v in pairs(cors) do
	spawn(function()
		pcall(v)
	end)
end