--Made by FlooD
--Credits to NasH/N.B.K. for original idea and script.
--My version is just a lot simpler and shorter.
function initArray(m)
	local array = {}
	for i=1,m do
		array[i]=0
	end
	return array
end
px=initArray(32)
py=initArray(32)
addhook("spawn","s")
function s(p)
	px[p]=player(p,"x")
	py[p]=player(p,"y")
end
addhook("move","m")
function m(p)
	local x,y=player(p,"x"),player(p,"y")
	if (x-px[p])==0 or (y-py[p])==0 then
		parse("speedmod "..p.." -2")
	else
		parse("speedmod "..p.." 9")
	end
	px[p],py[p]=x,y
end