How to make this Fire Script Last Longer?

I want this Fire Script That was in the Tool to last at least 10 Minutes longer But also i want it to go out with an Fire Extinguisher.. I dont know if this is the right script of the other one..

Boost = script.Parent 
p = math.random(1,10)

if Boost.Anchored == false then 
f = Instance.new("Fire") 
f.Parent = Boost
f.Size = math.random(10,20)
wait(math.random(2,4))
if p ~= 1 then
Boost:BreakJoints()
end  
vl = 500-1000
Boost.Material = "CorrodedMetal"
wait(math.random(2,4))
hs = Boost:findFirstChild("AfterSmoke")
if hs == nil then
x = math.random(1,20)
if x == 3 then
as = Instance.new("Smoke")
as.Name = "AfterSmoke"
as.Color = Color3.new(0, 0, 0)
as.Parent = Boost
as.Size = math.random(5,15)
as.RiseVelocity = math.random(25,100) / 10
as.Opacity = math.random(1,5) / 10
Boost.BrickColor = BrickColor.new("Really black")
Boost:BreakJoints()
else
ps = Instance.new("IntValue")
ps.Name = "AfterSmoke"
ps.Parent = Boost
end
end
wait(math.random(2,4))
f:remove()
script.Touchy:remove()
wait(math.random(30,60))
v = Boost:findFirstChild("AfterSmoke")
if v ~= nil then
v:remove()
end
end
script:remove()

Or

function t(hit) 
if hit.Name ~= "Effect" then 
f = hit:findFirstChild("ForceField")
if f == nil then
ff = hit.Parent:findFirstChild("ForceField")
if ff == nil then
if hit.Anchored == false then 
if hit:findFirstChild("AfterSmoke") == nil then
d = hit:findFirstChild("Heat") 
if d == nil then
script.Heat:Clone().Parent = hit
end end end


hit.Material = "CorrodedMetal"
e = Instance.new("Explosion") 
e.Parent = game.Workspace 
e.Position = script.Parent.Position 
e.BlastPressure = 0
e.BlastRadius = 3
script.Boom.Parent = script.Parent
script.Parent.Boom:play()
e.Hit:connect(
function (hit) 
if hit.Anchored == false then 
if hit:findFirstChild("AfterSmoke") == nil then
d = hit:findFirstChild("Heat") 
if d == nil then
script.Heat:Clone().Parent = hit
end end end end) 
else
e = Instance.new("Explosion") 
e.Parent = game.Workspace 
e.Position = script.Parent.Position 
e.BlastPressure = 0
e.BlastRadius = 3
script.Boom.Parent = script.Parent
script.Parent.Boom:play()

end 
else
e = Instance.new("Explosion") 
e.Parent = game.Workspace 
e.Position = script.Parent.Position 
e.BlastPressure = 0
e.BlastRadius = 3
script.Boom.Parent = script.Parent
script.Parent.Boom:play()
end 
wait()
script.Parent:remove()
end
end 
script.Parent.Touched:connect(t)



while true do 
wait() 
p = Instance.new("Part") 
p.Name = "Effect" 
p.Size = Vector3.new(1,1,1) 
p.BrickColor = BrickColor.new("White") 
p.Reflectance = 1 
p.Transparency = 0 
p.CFrame = script.Parent.CFrame 
p.Anchored = true 
p.CanCollide = false 
p.Locked = true 
script.Mesh:Clone().Parent = p 
script.Clean:Clone().Parent = p 
p.Parent = game.Workspace 
end