How to fix move script?

Hello, I want to make a script, when player touch part then he can't stop. I mean he will still moving forward.

Here is my code, maybe will help something:

local m = game.Players:GetPlayerFromCharacter(script.Parent):GetMouse()
local p = 0
local r = false

function onTouch()
	coroutine.resume(coroutine.create(function()
m.KeyDown:connect(function(key)
if key:lower() == "w" then p = p + 0
delay(0.5,function()
if p ~= 0 then p = 0 end
end)
if p == 0 then p = 0
r = true
m.KeyUp:connect(function(key)
if key:lower() == "w" then r = false end
end) end end end) end ))

end

script.Parent.Touched:connect(onTouch)

I'm beginner scripter, so i still don't understand a lot...

A better solution would be to remove PlayerScripts.ControlScript, this will make them keep walking and they will not be able to stop.

Here's an easier-to-read version of your code:

local m = game.Players:GetPlayerFromCharacter(script.Parent):GetMouse()
local p = 0
local r = false

function onTouch()
	coroutine.resume(coroutine.create(function()
		m.KeyDown:connect(function(key)
			if key:lower() == "w" then
				p = p + 0
				delay(0.5, function()
					if p ~= 0 then
						p = 0
					end
				end)
				if p == 0 then
					p = 0
					r = true
					m.KeyUp:connect(function(key)
						if key:lower() == "w" then
							r = false
						end
					end)
				end
			end
		end)
	end ))

end

script.Parent.Touched:connect(onTouch)