-- Localscript, JUST RUN IT
-- Say size/NUMBERHERE to change the size of the fire
-- Say pressure/NUMBERHERE to change the power of the explosion, default is 5,000,000 pressure

Player = game.Players.LocalPlayer
Mouse = Player:GetMouse()
Character = Player.Character
Prt = Instance.new("Part", Character)
Prt.FormFactor = "Custom"
Prt.Size = Vector3.new(2,2,2)
PrtM = Instance.new("SpecialMesh", Prt)
PrtM.MeshType = "Cylinder"
Prt.TopSurface = "Smooth"
Prt.BottomSurface = "Smooth"
Prt:breakJoints()
PrtW = Instance.new("ManualWeld", Character)
PrtW.Part0 = Prt
PrtW.Part1 = Character.Head
PrtW.C0 = CFrame.new(0,-6,0)
Prt.BrickColor = BrickColor.new("Bright red")
wait(0.1)
Prt.BrickColor = BrickColor.new("Navy blue")
Prt.Transparency = 1
LaserOn = false
ExpSize = 2
Pressure = 500000
function Laserr()
		MousePos = Mouse.Hit.p
		PrtPos = Prt.Position
		Dis = (MousePos-PrtPos).magnitude
		Laser = Instance.new("Part", Workspace)
		Laser.BrickColor = BrickColor.new("Magenta")
		Laser.Anchored = true
		Laser.TopSurface = "Smooth"
		Laser.FormFactor = "Custom"
		Laser.Size = Vector3.new(0,0,Dis)
		Laser.CFrame = CFrame.new(MousePos,PrtPos)*CFrame.new(0.4,0.4,-Dis/2)
		Laser.BottomSurface = "Smooth"
		Laser.CanCollide = false
		while LaserOn == true do
			wait()
			if Mouse.Target ~= nil then
				if Mouse.Target ~= Laser and Mouse.Target.Name ~= "Base" then
					Mouse.Target.Anchored = false
				end
			end
			if Prt:findFirstChild("Weld") == false then
				PrtW = Instance.new("ManualWeld", Character)
				PrtW.Part0 = Prt
				PrtW.Part1 = Character.Head
				PrtW.C0 = CFrame.new(0,-6,0)
			end
		Prt.BrickColor = BrickColor.new("Bright red")
                wait(0.1)
                Prt.BrickColor = BrickColor.new("Navy blue")
		Prt.Transparency = 0
		MousePos = Mouse.Hit.p
		PrtPos = Prt.Position
		Dis = (MousePos-PrtPos).magnitude
		Laser.Size = Vector3.new(0,0,Dis)
		Laser.CFrame = CFrame.new(MousePos,PrtPos)*CFrame.new(0,0,-Dis/2)
		Blst = Instance.new("Explosion", Workspace)
		Blst.BlastRadius = ExpSize
		Blst.BlastPressure = Pressure
		Blst.Position = MousePos
	end
	Laser:Destroy()
end
Mouse.Button1Down:connect(function()
	LaserOn = true
	print("Laser on")
	Laserr()
end)
Mouse.Button1Up:connect(function()
	print("Laser off")
	LaserOn = false
	wait()
	Prt.Transparency = 1
end)
Player.Chatted:connect(function(chat)
	if (string.sub(chat,1,5) == "size/") then
		ExpSize = (string.sub(chat,6))
	end
	if (string.sub(chat,1,9) == "pressure/") then
		Pressure = (string.sub(chat,10))
	end
end)