runToBall :: PlayerInfo -> [PlayerInfo] -> Ball -> Lineup -> Formation -> Float
runToBall p ts b l f = let bl = (location (ballentity b))
                       in if spotInFormationArea p l f bl then 1 else if isNearestToBall p ts b then 1 else 0
runToBall :: PlayerInfo -> [PlayerInfo] -> Ball -> Lineup -> Formation -> Float
runToBall p ts b l f = let bl = (location (ballentity b))
                       in if spotInFormationArea p l f bl then 1 else if isNearestToBall p ts b then 1 else 0
runToBall p ts b l f = let bl = (location (ballentity b))
                       in if spotInFormationArea p l f bl then 1 else if isNearestToBall p ts b then 1 else 0