paint the town red berserk mode

-- paint the town red beserk mode
-- basically this script gives you the ability of
-- smashing people into bloody organs and testicles
-- and stopping time
--i liked the idea of making this so i did
--it took me 2 hours because the gore thing didnt work right so
-- enjoy i guess
if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
local Player,game,owner = owner,game
local RealPlayer = Player
do
	print("FE Compatibility code by Mokiros")
	local rp = RealPlayer
	script.Parent = rp.Character

	--RemoteEvent for communicating
	local Event = Instance.new("RemoteEvent")
	Event.Name = "UserInput_Event"

	--Fake event to make stuff like Mouse.KeyDown work
	local function fakeEvent()
		local t = {_fakeEvent=true,Functions={},Connect=function(self,f)table.insert(self.Functions,f) end}
		t.connect = t.Connect
		return t
	end

	--Creating fake input objects with fake variables
	local m = {Target=nil,Hit=CFrame.new(),KeyUp=fakeEvent(),KeyDown=fakeEvent(),Button1Up=fakeEvent(),Button1Down=fakeEvent(),Button2Up=fakeEvent(),Button2Down=fakeEvent()}
	local UIS = {InputBegan=fakeEvent(),InputEnded=fakeEvent()}
	local CAS = {Actions={},BindAction=function(self,name,fun,touch,...)
			CAS.Actions[name] = fun and {Name=name,Function=fun,Keys={...}} or nil
		end}
	--Merged 2 functions into one by checking amount of arguments
	CAS.UnbindAction = CAS.BindAction

	--This function will trigger the events that have been :Connect()'ed
	local function te(self,ev,...)
		local t = m[ev]
		if t and t._fakeEvent then
			for _,f in pairs(t.Functions) do
				f(...)
			end
		end
	end
	m.TrigEvent = te
	UIS.TrigEvent = te

	Event.OnServerEvent:Connect(function(plr,io)
		if plr~=rp then return end
		m.Target = io.Target
		m.Hit = io.Hit
		if not io.isMouse then
			local b = io.UserInputState == Enum.UserInputState.Begin
			if io.UserInputType == Enum.UserInputType.MouseButton1 then
				return m:TrigEvent(b and "Button1Down" or "Button1Up")
			end
			if io.UserInputType == Enum.UserInputType.MouseButton2 then
				return m:TrigEvent(b and "Button2Down" or "Button2Up")
			end
			for _,t in pairs(CAS.Actions) do
				for _,k in pairs(t.Keys) do
					if k==io.KeyCode then
						t.Function(t.Name,io.UserInputState,io)
					end
				end
			end
			m:TrigEvent(b and "KeyDown" or "KeyUp",io.KeyCode.Name:lower())
			UIS:TrigEvent(b and "InputBegan" or "InputEnded",io,false)
		end
	end)
	Event.Parent = NLS([==[
	local Player = game:GetService("Players").LocalPlayer
	local Event = script:WaitForChild("UserInput_Event")
	local Mouse = Player:GetMouse()
	local UIS = game:GetService("UserInputService")
	local input = function(io,a)
		if a then return end
		--Since InputObject is a client-side instance, we create and pass table instead
		Event:FireServer({KeyCode=io.KeyCode,UserInputType=io.UserInputType,UserInputState=io.UserInputState,Hit=Mouse.Hit,Target=Mouse.Target})
	end
	UIS.InputBegan:Connect(input)
	UIS.InputEnded:Connect(input)
	local h,t
	--Give the server mouse data 30 times every second, but only if the values changed
	--If player is not moving their mouse, client won't fire events
	while wait(1/30) do
		if h~=Mouse.Hit or t~=Mouse.Target then
			h,t=Mouse.Hit,Mouse.Target
			Event:FireServer({isMouse=true,Target=t,Hit=h})
		end
	end]==],Player.Character)

	----Sandboxed game object that allows the usage of client-side methods and services
	--Real game object
	local _rg = game

	--Metatable for fake service
	local fsmt = {
		__index = function(self,k)
			local s = rawget(self,"_RealService")
			if s then
				return typeof(s[k])=="function"
				and function(_,...)return s[k](s,...)end or s[k]
			end
		end,
		__newindex = function(self,k,v)
			local s = rawget(self,"_RealService")
			if s then s[k]=v end
		end
	}
	local function FakeService(t,RealService)
		t._RealService = typeof(RealService)=="string" and _rg:GetService(RealService) or RealService
		return setmetatable(t,fsmt)
	end

	--Fake game object
	local g = {
		GetService = function(self,s)
			return rawget(self,s) or _rg:GetService(s)
		end,
		Players = FakeService({
			LocalPlayer = FakeService({GetMouse=function(self)return m end},Player)
		},"Players"),
		UserInputService = FakeService(UIS,"UserInputService"),
		ContextActionService = FakeService(CAS,"ContextActionService"),
		RunService = FakeService({
			_btrs = {},
			RenderStepped = _rg:GetService("RunService").Heartbeat,
			BindToRenderStep = function(self,name,_,fun)
				self._btrs[name] = self.Heartbeat:Connect(fun)
			end,
			UnbindFromRenderStep = function(self,name)
				self._btrs[name]:Disconnect()
			end,
		},"RunService")
	}
	rawset(g.Players,"localPlayer",g.Players.LocalPlayer)
	g.service = g.GetService
	FakeService(g,game)
	--Changing owner to fake player object to support owner:GetMouse()
	game,owner = g,g.Players.LocalPlayer
end
local list = {}
local minimumsize = Vector3.new(0.6,0.6,0.6)
local fragmentable = workspace
gey = game.Players.LocalPlayer.Character
for i,v in pairs(gey:GetDescendants()) do
	if v.ClassName == "Part" then
		a = Instance.new("IntValue",v)
		a.Name = "pleb"
	end
end
local surface_between_splitted_parts = 'SmoothNoOutlines'
function fragmentate(cframe,size,color,explosion_position,explosion_blastradius,backsurface,bottomsurface,frontsurface,leftsurface,rightsurface,topsurface,transparency,reflectance,material,anchored,heck,ree,same)
	local xi = size.X >= minimumsize.X*(1+explosion_blastradius/16) and 2 or 1
	local yi = size.Y >= minimumsize.Y*(1+explosion_blastradius/16) and 2 or 1
	local zi = size.Z >= minimumsize.Z*(1+explosion_blastradius/16) and 2 or 1
	if xi == 1 and yi == 1 and zi == 1 or (cframe.p-explosion_position).magnitude > size.magnitude/2 + explosion_blastradius then
		if xi == 1 and yi == 1 and zi == 1 then return end
		local p = Instance.new("Part",fragmentable)
		--p.BrickColor = BrickColor.new("Carnation pink")
		p.FormFactor = "Custom"
		if heck then
			p.Anchored = anchored
		else
			p.Anchored = false
		end
		p.Size = size
		if p.Size == Vector3.new(1,2,1) then
			p.BrickColor = color
		else
			p.BrickColor = BrickColor.new("Carnation pink")
		end
		p.BackSurface = backsurface
		p.BottomSurface = bottomsurface
		p.FrontSurface = frontsurface
		p.LeftSurface = leftsurface
		p.RightSurface = rightsurface
		if heck ~= true or ree == true then
			local int = Instance.new('IntValue',p)
			int.Name = 'already broken u pleb'
		end
		p.TopSurface = topsurface
		if redmode and ree and same ~= true then
			spawn(function()
				repeat
					p.Color = Color3.new(1,0,0)
					p.Material = Enum.Material.Neon
					wait()
				until p.Color == Color3.new(1,0,0) and p.Material == Enum.Material.Neon
			end)
		end
		p.Transparency = transparency
		p.Material = material
		if heck ~= true or ree then
			game:GetService('Debris'):AddItem(p,10)
		end
		p.CFrame = cframe
		p.Reflectance = reflectance
		p:BreakJoints()
		return
	end
	local mody = math.random(-125,125)/1000
	for y = 1,yi do
		if math.random()> 0.5 then
			local modx = math.random(-125,125)/1000
			for x = 1,xi do
				local modz = math.random(-125,125)/1000
				for z = 1,zi do --offset = x/xi-0.75+modx)
					fragmentate(cframe*CFrame.new(size.X*(xi==1 and 0 or x/xi-0.75+modx),size.Y*(yi==1 and 0 or y/yi-0.75+mody),size.Z*(zi==1 and 0 or z/zi-0.75+modz)),
						Vector3.new(xi == 2 and size.X*(1-2*math.abs(x/xi-0.75+modx)) or size.X,yi == 2 and size.Y*(1-2*math.abs(y/yi-0.75+mody)) or size.Y,
							zi == 2 and size.Z*(1-2*math.abs(z/zi-0.75+modz)) or size.Z),color,explosion_position,explosion_blastradius,
						z~=zi and surface_between_splitted_parts or backsurface,y==2 and surface_between_splitted_parts or bottomsurface,
						z==2 and surface_between_splitted_parts or frontsurface,x==2 and surface_between_splitted_parts or leftsurface,x~=xi and surface_between_splitted_parts or rightsurface,
						y~=yi and surface_between_splitted_parts or topsurface,transparency,reflectance,material,anchored,heck,ree,same)
				end

			end
		else
			local modz = math.random(-125,125)/1000
			for z = 1,zi do
				local modx = math.random(-125,125)/1000
				for x = 1,xi do
					fragmentate(cframe*CFrame.new(size.X*(xi==1 and 0 or x/xi-0.75+modx),size.Y*(yi==1 and 0 or y/yi-0.75+mody),size.Z*(zi==1 and 0 or z/zi-0.75+modz)),
						Vector3.new(xi == 2 and size.X*(1-2*math.abs(x/xi-0.75+modx)) or size.X,yi == 2 and size.Y*(1-2*math.abs(y/yi-0.75+mody)) or size.Y,
							zi == 2 and size.Z*(1-2*math.abs(z/zi-0.75+modz)) or size.Z),color,explosion_position,explosion_blastradius,
						z~=zi and surface_between_splitted_parts or backsurface,y==2 and surface_between_splitted_parts or bottomsurface,
						z==2 and surface_between_splitted_parts or frontsurface,x==2 and surface_between_splitted_parts or leftsurface,x~=xi and surface_between_splitted_parts or rightsurface,
						y~=yi and surface_between_splitted_parts or topsurface,transparency,reflectance,material,anchored,heck,ree,same)
				end
			end
		end
	end
end

function start_fragmentation(position,radius,bigoof,smoloof,samecolor)
	if bigoof then
		workspace:FindFirstChildOfClass('Terrain'):FillBall(position,radius*2,Enum.Material.Air)
	end
	local search = Region3.new(position-Vector3.new(radius,radius,radius)*1.1,position+Vector3.new(radius,radius,radius)*1.1)
	repeat
		local finish = false
		local parts = workspace:FindPartsInRegion3WithIgnoreList(search,list,100)
		for i = 1,#parts do
			table.insert(list,1,parts[i])
		end
		finish = true
	until #parts < 100 and finish
	local t = tick()
	for i = 1,#list do
		local po = list[i]
		if po.Parent:FindFirstChild("Head") ~= nil and po ~= nil then
			if po:FindFirstChild('pleb') == nil then
				for i,p in pairs(po.Parent:GetChildren()) do
					if p.ClassName == "MeshPart" or p.ClassName == "Part" then
						fragmentate(p.CFrame,p.Size,p.BrickColor,position,radius,p.BackSurface,p.BottomSurface,p.FrontSurface,p.LeftSurface,p.RightSurface,p.TopSurface,p.Transparency,p.Reflectance,p.Material,p.Anchored,bigoof,smoloof,samecolor)
					end
				end
		    end
		end
	end
	list = {}
end

function firer(pos)
		BOOMA = Instance.new("Sound",pos)
		BOOMA.SoundId = "rbxassetid://429400881"
		BOOMA.Volume = 10
		BOOMA.PlaybackSpeed = 0.5
		BOOMA:Play()
end
function zaphit(hitpos)
	local exp = Instance.new('Explosion',workspace)
	exp.Position = hitpos
	exp.DestroyJointRadiusPercent = 0
	exp.BlastRadius = 1
	firer(char["Right Arm"])
	start_fragmentation(hitpos,7.5,true)
	exp.Hit:connect(function(hit)
		if hit.Parent and hit.Parent:FindFirstChildOfClass('Humanoid') then
			if hit.Parent ~= game.Players.LocalPlayer.Character then
				for i,v in pairs(hit.Parent:GetDescendants()) do
					if v:IsA('BasePart')then
						pcall(function()
							v.Parent = nil
						end)
						local backpr = minimumsize
						minimumsize = Vector3.new(0.6,0.6,0.6)
						start_fragmentation(v.Position,0.05,true,true)
						minimumsize = backpr
					end
				end
			end
		end
	end)
end
char = game.Players.LocalPlayer.Character
RunService = game:GetService("RunService")
Character = char
VirtualBody = Character
function blast(charg,waittime)
	coroutine.resume(coroutine.create(function()
		--charg.HumanoidRootPart:Destroy()
		firer(char["Right Arm"])

		zaphit(charg.Head.Position)
	end))
end
char["Right Arm"].Touched:Connect(function(part)
	if part.Parent ~= workspace and part.Parent:FindFirstChildOfClass("Humanoid") then
		if aa == true then
			blast(part.Parent,0.3)
		end
	end
end)
player = game.Players.LocalPlayer
char = player.Character
b = CFrame.new(1.3,0.5,0) * CFrame.Angles(math.rad(70),math.rad(25),math.rad(25))
a = CFrame.new(1.5,0.6,-1) * CFrame.Angles(math.rad(90),math.rad(45),math.rad(-20))
swinging = false
weld = Instance.new("Weld",char)
weld.Part0 = char.Torso
weld.Part1 = char["Right Arm"]
weld.C0 = CFrame.new(1.5,0,0)
aa = false
bb = false
mouse = player:GetMouse()
mouse.Button1Down:Connect(function()
	if swinging == false then
		swinging = true
	    bb = true
		wait(2)
		bb = false
		aa = true
		wait(2)
		bb = false
		aa = false
		swinging = false
	end
end)
game:GetService("RunService").Stepped:Connect(function()
	if aa == true then
		weld.Part1 = char["Right Arm"]
		weld.C0 = weld.C0:lerp(a,0.1)
	else
		--weld.Part1 = nil
	end
	if bb == true then
		workspace.Gravity = 10
		for i,v in pairs(workspace:GetDescendants()) do
			if v.ClassName == "Humanoid" then
				v.UseJumpPower = false
				v.WalkSpeed = 4
			end
		end
		for i,v in pairs(workspace:GetDescendants()) do
			if v.ClassName == "Sound" then
				v.PlaybackSpeed = 0.5
			end
		end
		weld.Part1 = char["Right Arm"]
		weld.C0 = weld.C0:lerp(b,0.09)
	elseif bb == false and aa == false then
		weld.Part1 = nil
		for i,v in pairs(workspace:GetDescendants()) do
			if v.ClassName == "Humanoid" then
				v.UseJumpPower = true
				v.WalkSpeed = 16
			end
		end
		for i,v in pairs(workspace:GetDescendants()) do
			if v.ClassName == "Sound" then
			    v.PlaybackSpeed = 1
			end
		end
		workspace.Gravity = 196.2
	end
end)