additional seahorse/Li spirit form/riding fix.

This patch enables movement after going into spirit form while hugged,
and fixes getting off a seahorse if returning near an actual spirit crystal.

game_scripts/scripts/entities/li.lua

@@ -631,6 +631,13 @@ function shiftWorlds(me, old, new)
 		entity_setPosition(me, x+1, y+1)
 		]]--
 	end
+
+	-- resuming the hug after spirit return is not easily possible,
+	-- as the game has additional code that repositions Li then.
+	-- so we just end the hug; this allows moving in spirit form. -- FG
+	if entity_isState(me, STATE_HUG) then
+		endHug(me)
+	end
 end
 
 function song(me, song)

game_scripts/scripts/entities/seahorsecommon.lua

@@ -571,8 +571,17 @@ function shiftWorlds(me, old, new)
 			entity_setRiding(v.n, 0)
 			cam_toEntity(v.n)
 		elseif new == WT_NORMAL then
-			entity_setRiding(v.n, me)
+			if entity_isEntityInRange(me, v.n, 64) then
-			cam_toEntity(me)
+				entity_setRiding(v.n, me)
+				cam_toEntity(me)
+			else
+				overrideZoom(0)
+				v.riding = false
+				entity_stopAllAnimations(v.n)
+				entity_idle(v.n)
+				entity_setRiding(v.n, 0)
+				entity_setMaxSpeedLerp(me, 1, 1)
+			end
 		end
 	end
 end