Mudlet - Forum

function speedwalk (path, reverse, delay, start_delay)
	local direction_table = {}
	local reverse_table = {
		n 	= "s",
		e 	= "w",
		s 	= "n",
		w 	= "e",
		nw 	= "se",
		ne 	= "sw",
		se 	= "nw",
		sw 	= "ne",
		u 	= "d",
		d 	= "u"
	}

   for count, direction in rex.gmatch( path, [[([1-9]+)?([newsdu]|\[[\w\W]+?\])]] ) do
		count = (type(tonumber(count)) == "number" and count) or 1
		direction = direction:gsub( "[%[%]]", "" )

      for i=1, count do 
			direction_table[#direction_table+1] = direction
		end
   end

	local current_delay = start_delay or delay
	if not reverse then
		for _, direction in ipairs( direction_table ) do
			if not delay then
				send( direction )
			else
				tempTimer( current_delay, function () send( direction ) end )
				current_delay = current_delay + delay
			end
		end
	else
		for i = #direction_table, 1, -1 do
			local reversed = reverse_table[direction_table[i]] or direction_table[i]

			if not delay then
				send( reversed )
			else
				tempTimer( current_delay, function () send( reversed ) end )
				current_delay = current_delay + delay
			end
		end
	end	
end