on.mouse_wheel_move = function(dx,dy)
	local v = Viewport
	if love.keyboard.isDown('lctrl') or love.keyboard.isDown('rctrl') then
		local oldzoom = v.zoom
		if dy < 0 and v.zoom > 0.2 then
			v.zoom = v.zoom - 0.1
		elseif dy > 0 then
			v.zoom = v.zoom + 0.1
		end
		local mx, my = love.mouse.getPosition()
		v.x = v.x + mx/oldzoom - mx/v.zoom
		v.y = v.y + my/oldzoom - my/v.zoom
	else
		v.y = v.y - dy * scale(200)
	end
	B()
end

		end
	end
	if dy > 0 then
		for i = 1,math.floor(dy) do
			Viewport.y = Viewport.y - scale(200)
		end
		B()
	elseif dy < 0 then
		for i = 1,math.floor(-dy) do
			Viewport.y = Viewport.y + scale(200)

		B()

	if dx > 0 then
		for i = 1,math.floor(dx) do
			Viewport.x = Viewport.x - scale(500)
		end
		B()
	elseif dx < 0 then
		for i = 1,math.floor(-dx) do
			Viewport.x = Viewport.x + scale(500)

	local v = Viewport
	if love.keyboard.isDown('lctrl') or love.keyboard.isDown('rctrl') then
		local oldzoom = v.zoom
		if dy < 0 and v.zoom > 0.2 then
			v.zoom = v.zoom - 0.1
		elseif dy > 0 then
			v.zoom = v.zoom + 0.1

		B()

		local mx, my = love.mouse.getPosition()
		v.x = v.x + mx/oldzoom - mx/v.zoom
		v.y = v.y + my/oldzoom - my/v.zoom
	else
		v.x = v.x - dx * scale(500)
		v.y = v.y - dy * scale(200)

end

	B()
end