spotRunDistanceValue :: PlayerInfo -> Vector3 -> Float
spotRunDistanceValue p v = let l = location (plentity p)
                           in max 0 ((maxRunDistance - vectorLength (diffVector3 v l)) / maxRunDistance)
spotRunDistanceValue :: PlayerInfo -> Vector3 -> Float
spotRunDistanceValue p v = let l = location (plentity p)
                           in max 0 ((maxRunDistance - vectorLength (diffVector3 v l)) / maxRunDistance)
spotRunDistanceValue p v = let l = location (plentity p)
                           in max 0 ((maxRunDistance - vectorLength (diffVector3 v l)) / maxRunDistance)