--[[
    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(3,3,3)
TrainMesh.MeshId = "rbxassetid://439124838"
TrainMesh.TextureId = "rbxassetid://439124850"


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://185414427"

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

p.Humanoid.WalkSpeed = 60;


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 function SFX(id) local s=Instance.new("Sound",p.Torso); s.SoundId = "rbxassetid://"..id; s.Volume = 1; return s; end
train.Touched:connect(function(p)
    if p.Parent then
        if p.Parent:IsA("Model") then
            if game.Players:FindFirstChild(p.Parent.Name) then
                if p.Parent.Name ~= game.Players.LocalPlayer.Name then
                    game.Players:FindFirstChild(p.Parent.Name).Character:BreakJoints()
                    local Whistle = SFX(130767645)
                    Whistle:Play()
                end
            end
        end
    end
end)

local Music = SFX(552455038)
Music.Looped = true;
wait(1)
Music:Play();

-- Objects

local ScreenGui = Instance.new("ScreenGui")
local TextButton = Instance.new("TextButton")

-- Properties

ScreenGui.Parent = game.Players.LocalPlayer.PlayerGui

TextButton.Parent = ScreenGui
TextButton.BackgroundColor3 = Color3.new(1, 1, 1)
TextButton.Size = UDim2.new(0, 200, 0, 50)
TextButton.Font = Enum.Font.SourceSans
TextButton.FontSize = Enum.FontSize.Size14
TextButton.Text = "shrek roar"
TextButton.TextSize = 14

--[[Function/s being made!]]
function PlayMusic(ID)
    for i, v in pairs (game.Workspace:GetChildren()) do
    if v:IsA("Sound") then
    end
    end
    local music = Instance.new("Sound")
    local asset = "rbxassetid://"
    music.SoundId = asset .. ID
    music.Parent = workspace
    music.Volume = 10
    music.Looped = false
    music:Play()
end
--[[Connecting functions!]]
TextButton.MouseButton1Down:connect(function()
PlayMusic(449830565)
end)

print("thx for use dis m8, k bye")