flamethrower

if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
local Player,Mouse,mouse,UserInputService,ContextActionService = owner
local RealPlayer = Player
do print("FE Compatibility code by Mokiros")local a=RealPlayer;script.Parent=a.Character;local b=Instance.new("RemoteEvent")b.Name="UserInput_Event"local function c()local d={_fakeEvent=true,Functions={},Connect=function(self,e)table.insert(self.Functions,e)end}d.connect=d.Connect;return d end;local f={Target=nil,Hit=CFrame.new(),KeyUp=c(),KeyDown=c(),Button1Up=c(),Button1Down=c(),Button2Up=c(),Button2Down=c()}local g={InputBegan=c(),InputEnded=c()}local CAS={Actions={},BindAction=function(self,h,i,j,...)CAS.Actions[h]=i and{Name=h,Function=i,Keys={...}}or nil end}CAS.UnbindAction=CAS.BindAction;local function k(self,l,...)local d=f[l]if d and d._fakeEvent then for m,e in pairs(d.Functions)do e(...)end end end;f.TrigEvent=k;g.TrigEvent=k;b.OnServerEvent:Connect(function(n,o)if n~=a then return end;f.Target=o.Target;f.Hit=o.Hit;if not o.isMouse then local p=o.UserInputState==Enum.UserInputState.Begin;if o.UserInputType==Enum.UserInputType.MouseButton1 then return f:TrigEvent(p and"Button1Down"or"Button1Up")end;if o.UserInputType==Enum.UserInputType.MouseButton2 then return f:TrigEvent(p and"Button2Down"or"Button2Up")end;for m,d in pairs(CAS.Actions)do for m,q in pairs(d.Keys)do if q==o.KeyCode then d.Function(d.Name,o.UserInputState,o)end end end;f:TrigEvent(p and"KeyDown"or"KeyUp",o.KeyCode.Name:lower())g:TrigEvent(p and"InputBegan"or"InputEnded",o,false)end end)b.Parent=NLS([==[local a=game:GetService("Players").LocalPlayer;local b=script:WaitForChild("UserInput_Event")local c=a:GetMouse()local d=game:GetService("UserInputService")local e=function(f,g)if g then return end;b:FireServer({KeyCode=f.KeyCode,UserInputType=f.UserInputType,UserInputState=f.UserInputState,Hit=c.Hit,Target=c.Target})end;d.InputBegan:Connect(e)d.InputEnded:Connect(e)local h,i;while wait(1/30)do if h~=c.Hit or i~=c.Target then h,i=c.Hit,c.Target;b:FireServer({isMouse=true,Target=i,Hit=h})end end]==],Player.Character)local r=game;local s={__index=function(self,q)local t=rawget(self,"_RealService")if t then return typeof(t[q])=="function"and function(m,...)return t[q](t,...)end or t[q]end end,__newindex=function(self,q,u)local t=rawget(self,"_RealService")if t then t[q]=u end end}local function v(d,w)d._RealService=typeof(w)=="string"and r:GetService(w)or w;return setmetatable(d,s)end;local x={GetService=function(self,t)return rawget(self,t)or r:GetService(t)end,Players=v({LocalPlayer=v({GetMouse=function(self)return f end},Player)},"Players"),UserInputService=v(g,"UserInputService"),ContextActionService=v(CAS,"ContextActionService"),RunService=v({_btrs={},RenderStepped=r:GetService("RunService").Heartbeat,BindToRenderStep=function(self,h,m,i)self._btrs[h]=self.Heartbeat:Connect(i)end,UnbindFromRenderStep=function(self,h)self._btrs[h]:Disconnect()end},"RunService")}rawset(x.Players,"localPlayer",x.Players.LocalPlayer)x.service=x.GetService;v(x,game)game,owner=x,x.Players.LocalPlayer end

function Smooth(part)
	part.TopSurface = "Smooth"
	part.BottomSurface = "Smooth"
	part.RightSurface = "Smooth"
	part.LeftSurface = "Smooth"
end

plr = owner
char = plr.Character
ra = char["Right Arm"]
root = char.HumanoidRootPart
hum = char.Humanoid

clerp = function(toclerp, cf, number)
    local joint = toclerp
    joint.C0 = joint.C0:Lerp(cf, number)
end

clerp2 = function(toclerp, cf)
    local joint = toclerp
    joint.C0 = cf
end

clerp3 = function(toclerp, cf, number)
    local joint = toclerp
    joint.C1 = joint.C1:Lerp(cf, number)
end

Swait,swait = function(number)
    if number == 0 or number == nil then
        game:GetService("RunService").Heartbeat:Wait()
    else
        for i = 1,number do
            game:GetService("RunService").Heartbeat:Wait()
        end
    end
end

ezweld = function(p, a, b, cf)
    local weld = Instance.new("Weld",p)
    weld.Part0 = a
    weld.Part1 = b
    weld.C0 = cf
    return weld
end

IT = Instance.new
Rad = math.rad
Cos = math.cos
Sin = math.sin
BrickC = BrickColor.new
C3 = Color3.new
VT = Vector3.new

local fakera = Instance.new("Model",char)
fakera.Name = "FakeArm"
local part1 = Instance.new("Part",fakera)
part1.Shape = "Cylinder"
part1.Size = VT(2.5, 1.5, 1.5)
part1.BrickColor = BrickC("Black")
part1.CanCollide = false
part1.Name = "BottomFatPart"
Smooth(part1)
local part2 = IT("Part",fakera)
part2.Shape = "Cylinder"
part2.Size = VT(6, 0.75, 0.5)
part2.BrickColor = BrickC("Black")
part2.CanCollide = false
part2.Name = "TopSlimPart"
Smooth(part2)
local part3 = IT("Part",fakera)
part3.Size = VT(0.1, 0.1, 0.1)
part3.BrickColor = BrickC("Black")
part3.Transparency = 1
part3.CanCollide = false
part3.Name = "ParticleHolder"
Smooth(part3)
local particle1 = Instance.new("ParticleEmitter",part3)
particle1.Texture = "http://www.roblox.com/asset/?id=20121664"
particle1.LockedToPart = false
particle1.Name = "Fire"
particle1.Enabled = false
particle1.Size = NumberSequence.new(0.23, 0.15)
particle1.Lifetime = NumberRange.new(5)
particle1.LightEmission = NumberSequence.new(1)
particle1.EmissionDirection = "Left"
particle1.VelocityInheritance = NumberSequence.new(1)
particle1.Rotation = NumberRange.new(155)
particle1.RotSpeed = NumberRange.new(50)
particle1.Speed = NumberRange.new(7)
particle1.SpreadAngle = Vector2.new(8.5, 5)
particle1.Rate = 35
particle1.LightEmission = 0.2
particle1.Color = ColorSequence.new({ColorSequenceKeypoint.new(0,Color3.fromRGB(255,0,0)),ColorSequenceKeypoint.new(0.5,BrickColor.new("Neon orange").Color),ColorSequenceKeypoint.new(1,BrickColor.new("New Yeller").Color)})
local particle2 = Instance.new("ParticleEmitter",part3)
particle2.Texture = "http://www.roblox.com/asset/?id=20121664"
particle2.LockedToPart = false
particle2.Name = "Fire"
particle2.Enabled = true
particle2.Size = NumberSequence.new(0.23 / 2, 0.15 / 2)
particle2.Lifetime = NumberRange.new(0.5)
particle2.LightEmission = NumberSequence.new(1)
particle2.EmissionDirection = "Left"
particle2.VelocityInheritance = NumberSequence.new(1)
particle2.Rotation = NumberRange.new(155)
particle2.RotSpeed = NumberRange.new(50)
particle2.Speed = NumberRange.new(2.5)
particle2.SpreadAngle = Vector2.new(8.5, 5)
particle2.Rate = 35
particle2.LightEmission = 0.2
particle2.Color = ColorSequence.new({ColorSequenceKeypoint.new(0,Color3.fromRGB(255,0,0)),ColorSequenceKeypoint.new(0.25,BrickColor.new("Neon orange").Color),ColorSequenceKeypoint.new(0.5,BrickColor.new("New Yeller").Color),ColorSequenceKeypoint.new(1,BrickColor.new("New Yeller").Color)})
conparticle = particle1:Clone()
conparticle.Parent = part3
conparticle.Rate = 45
conparticle.Size = NumberSequence.new(0.345 / 2, 0.345 / 2)
conparticle.RotSpeed = NumberRange.new(70)
conparticle.Speed = NumberRange.new(3.5)
conparticle.SpreadAngle = Vector2.new(100, 1000)
conparticle.Acceleration = Vector3.new(0, -5, 0)
conparticle.Color = ColorSequence.new({ColorSequenceKeypoint.new(0,BrickColor.new("Royal purple").Color),ColorSequenceKeypoint.new(0.15,BrickColor.new("Navy blue").Color),ColorSequenceKeypoint.new(0.35,BrickColor.new("Cyan").Color),ColorSequenceKeypoint.new(1,BrickColor.new("Cyan").Color)})
local weld1 = ezweld( fakera, part1, ra, CFrame.new(0, 0, 0) * CFrame.Angles(Rad(0), Rad(0), Rad(-90)) )
local weld2 = ezweld( fakera, part2, part1, CFrame.new(2, 0, 0) * CFrame.Angles(Rad(0), Rad(0), Rad(0)) )
local weld3 = ezweld( fakera, part3, part2, CFrame.new(3, 0, 0) * CFrame.Angles(Rad(0), Rad(0), Rad(0)) )

--more stuff--

anim = "Idle"
attack = false
local RS = char.Torso["Right Shoulder"]
local LS = char.Torso["Left Shoulder"]
local RH = char.Torso["Right Hip"]
local LH = char.Torso["Left Hip"]
local neck = char.Torso["Neck"]
local anim = "Idle"
local rootj = char.HumanoidRootPart.RootJoint
local timepos = 0
local sine = 0
local RSnor = RS.C0
local LSnor = LS.C0
local RHnor = RH.C0
local LHnor = LH.C0
local RSnor2 = RS.C1
local LSnor2 = LS.C1
local RHnor2 = RH.C1
local LHnor2 = LH.C1
local rootjnor = rootj.C0
local necknor = neck.C0
hum.Animator:Destroy()
hold = false
mouse = plr:GetMouse()
hold = false
Debris = game:GetService("Debris")

--------------

local sound = Instance.new("Sound",ra)
sound.SoundId = "rbxassetid://239443642"
sound.Volume = 1000000000
sound.Looped = true
local sound2 = Instance.new("Sound",ra)
sound2.SoundId = "rbxassetid://239443642"
sound2.Volume = 1000000000
sound2.Looped = true
local light = Instance.new("PointLight",part3)
light.Range = 3

function burn()
	attack = true
	particle2.Enabled = false
	particle1.Enabled = true
	sound:Play()
	sound2:Play()
	light.Range = 8
	local hitbox = Instance.new("Part",fakera)
	hitbox.Transparency = 1
	hitbox.CanCollide = false
	hitbox.CFrame = ra.CFrame
	hitbox.Size = Vector3.new(3.5, 4.75, 8)
	hitbox.Name = "Fire"
	local weld4 = ezweld( fakera, hitbox, ra, CFrame.new(0, 0, 8 / 2.5) * CFrame.Angles(Rad(90), Rad(0), Rad(0)) )
	local hitter = hitbox.Touched:connect(function(hit)
		if hit.Parent ~= char then
			local particle = particle2:Clone()
			particle.Parent = hit
			particle.EmissionDirection = "Top"
			particle.Name = "Fire"
			particle.Enabled = true
			local nub = hit.Parent
			Debris:AddItem(particle, 0.5)
			for _,v in pairs (nub:GetChildren()) do
				if v:IsA("Humanoid") then
					v.Health = v.Health - 0.35
				end
			end
		end
	end)
	repeat
		Swait()
		clerp(rootj, rootjnor * CFrame.new(0, 0, 0 + 0.1 * Cos(sine / 4)), 0.15)
		clerp(RH, RHnor * CFrame.new(0, 0 - 0.1 * Cos(sine / 4), 0) * CFrame.Angles(0, 0, 0), 0.15)
		clerp(LH, LHnor * CFrame.new(0, 0 - 0.1 * Cos(sine / 4), 0) * CFrame.Angles(0, 0, 0), 0.15)
		clerp(RS, RSnor * CFrame.new(0, 0, 0) * CFrame.Angles(0, 0, Rad(90)), 0.15)
		clerp(LS, LSnor * CFrame.Angles(0, 0, 0), 0.15)
	until hold == false
	hitbox:Destroy()
	light.Range = 3
	sound2:Stop()
	sound:Stop()
	particle2.Enabled = true
	particle1.Enabled = false
	attack = false
end

function confetti()
	attack = true
	particle2.Enabled = false
	particle1.Enabled = false
	conparticle.Enabled = true
	for i = 1,55 do
		Swait()
		clerp(rootj, rootjnor * CFrame.new(0, 0, 0 + 0.1 * Cos(sine / 4)), 0.15)
		clerp(RH, RHnor * CFrame.new(0, 0 - 0.1 * Cos(sine / 4), 0) * CFrame.Angles(0, 0, 0), 0.15)
		clerp(LH, LHnor * CFrame.new(0, 0 - 0.1 * Cos(sine / 4), 0) * CFrame.Angles(0, 0, 0), 0.15)
		clerp(RS, RSnor * CFrame.new(0, 0, 0) * CFrame.Angles(0, 0, Rad(90) + Rad(45)), 0.15)
		clerp(LS, LSnor * CFrame.Angles(0, 0, 0), 0.15)
	end
	particle2.Enabled = true
	particle1.Enabled = false
	conparticle.Enabled = false
	attack = false
end

mouse.Button1Down:connect(function()
	hold = true
	if attack == false then
		burn()
	end
end)

mouse.Button1Up:connect(function()
	hold = false
end)

mouse.KeyDown:connect(function(key)
	if key == "e" and attack == false then
		confetti()
	end
end)

while true do
	Swait()
	ra.Transparency = 1
	sine = sine + 1
	local TORSOVELOCITY = (root.Velocity * VT(1, 0, 1)).magnitude
	if TORSOVELOCITY < 1 then
		anim = "Idle"
		if attack == false then
			clerp(rootj, rootjnor * CFrame.new(0, 0, 0 + 0.1 * Cos(sine / 12)), 0.15)
			clerp(RH, RHnor * CFrame.new(0, 0 - 0.1 * Cos(sine / 12), 0) * CFrame.Angles(0, Rad(-10), 0), 0.15)
			clerp(LH, LHnor * CFrame.new(0, 0 - 0.1 * Cos(sine / 12), 0) * CFrame.Angles(0, Rad(10), 0), 0.15)
			clerp(RS, RSnor * CFrame.new(0, 0, 0) * CFrame.Angles(0, 0, Rad(180)), 0.15)
			clerp(LS, LSnor * CFrame.Angles(Rad(5 + 15 * Cos(sine / 12)), 0, 0), 0.15)
		end
		clerp3(RH, RHnor2 * CFrame.new(0, 0, 0) * CFrame.Angles(0, 0, 0), 0.15)
		clerp3(LH, LHnor2 * CFrame.new(0, 0, 0) * CFrame.Angles(0, 0, 0), 0.15)
		clerp3(LS, LSnor2 * CFrame.new(0, 0, 0) * CFrame.Angles(0, 0, 0), 0.15)
	else
		anim = "Walk"
		if attack == false then
			clerp(rootj, rootjnor * CFrame.new(0, 0, 0 + 0.2 * Cos(sine / 4)), 0.15)
			clerp(RH, RHnor * CFrame.new(0.25, 0 - 0.2 * Cos(sine / 4), 0) * CFrame.Angles(0, Rad(0), 0), 0.15)
			clerp(LH, LHnor * CFrame.new(-0.25, 0 - 0.2 * Cos(sine / 4), 0) * CFrame.Angles(0, Rad(0), 0), 0.15)
			clerp(RS, RSnor * CFrame.new(0, 0, 0) * CFrame.Angles(0, 0, Rad(180)), 0.15)
			clerp(LS, LSnor * CFrame.Angles(0, 0, 0), 0.15)
		end
		clerp3(RH, RHnor2 * CFrame.new(0, 0, 0) * CFrame.Angles(0, 0, 0.5 + 1.25 * Cos(sine / 8)), 0.15)
		clerp3(LH, LHnor2 * CFrame.new(0, 0, 0) * CFrame.Angles(0, 0, -0.5 + 1.25 * Cos(sine / 8)), 0.15)
		clerp3(LS, LSnor2 * CFrame.Angles(0, 0, 0 - 1 * Cos(sine / 8)), 0.15)
	end
end