Thomas The Dank Engine

--[[
	Thomas The Dank Engine:
							By: KrystalTeam
							Features: Being a dank engine that kill people
							Version: 1.0.0.2
--]]

local p = game.Players.LocalPlayer.Character
local weld = Instance.new("Weld",p.Torso)
weld.Part0 = p.Torso

local train = Instance.new("Part",p.Torso)
train.Anchored = true
train.CanCollide = false
train.Size = Vector3.new(3,2,6)
train.CustomPhysicalProperties = PhysicalProperties.new(0,0,0,0,0)
weld.Part1 = train
weld.C1 = CFrame.new(0,0,0) * CFrame.Angles(0,math.rad(180),0)
train.Anchored = false
local TrainMesh = Instance.new("SpecialMesh",train)
TrainMesh.MeshType = Enum.MeshType.FileMesh
TrainMesh.Scale = Vector3.new(0.020,0.020,0.015)
TrainMesh.MeshId = "rbxassetid://431017802"
TrainMesh.TextureId = "rbxassetid://431017809"


local weld2 = Instance.new("Weld",p.Torso)
weld2.Part0 = p.Torso
local Smoke = Instance.new("Part",p.Torso)
Smoke.Anchored = true
Smoke.CanCollide = false
Smoke.Size = Vector3.new(1,1,1)
Smoke.CustomPhysicalProperties = PhysicalProperties.new(0,0,0,0,0)
weld2.Part1 = Smoke
weld2.C1 = CFrame.new(0,-4,3.5)-- * CFrame.Angles(0,math.rad(180),0)
Smoke.Anchored = false
Smoke.Transparency = 1;

local Particle = Instance.new("ParticleEmitter",Smoke)
Particle.Rate = 50;
Particle.Speed = NumberRange.new(30,60);
Particle.VelocitySpread = 4;
Particle.Texture = "rbxassetid://133619974"

local Light = Instance.new("SpotLight",train)
Light.Angle = 45;
Light.Brightness = 100;
Light.Face = Enum.NormalId.Back;
Light.Range = 30;

spawn(function()
while p.Humanoid.Health ~= 0 do
p.Humanoid.WalkSpeed = 60;
wait();
end
end)


for i,v in pairs(p:GetChildren()) do
	if v:IsA("Part") then
		v.Transparency = 1;
	elseif v:IsA("Hat") then
		v:Destroy()
	elseif v:IsA("Model") then
		v:Destroy()
	end
end

local sounds = {}
for i = 1, 5 do
    local sound = Instance.new("Sound", game.SoundService)
    for _ = 1, 3 do
        Instance.new("DistortionSoundEffect", sound)
    end
    sounds[i] = sound
end

sounds[1].SoundId = "rbxassetid://79788632076386"
sounds[2].SoundId = "rbxassetid://107660749733264"
sounds[3].SoundId = "rbxassetid://98802358376046"
sounds[4].SoundId = "rbxassetid://89302871319708"
sounds[5].SoundId = "rbxassetid://130995785939526"

for _, sound in ipairs(sounds) do
    sound.Volume = 4
    sound.PlaybackSpeed = 0.25
end

local currentSoundIndex = 1

local function playNextSound()
    if sounds[currentSoundIndex] then
        sounds[currentSoundIndex]:Play()
        currentSoundIndex = currentSoundIndex + 1
        if currentSoundIndex > #sounds then
            currentSoundIndex = 1
        end
    end
end

for i = 1, #sounds - 1 do
    sounds[i].Ended:Connect(playNextSound)
end

sounds[#sounds].Ended:Connect(function()
    currentSoundIndex = 1
    playNextSound()
end)

playNextSound()