Climbable range fix (tgstation#84763)

## About The Pull Request
Closes tgstation#84751

## Changelog
:cl:
fix: Fixed tables and racks being climbable from half a mile away
/:cl:

code/datums/elements/climbable.dm

@@ -35,6 +35,8 @@
 	examine_texts += span_notice("[source] looks climbable.")
 
 /datum/element/climbable/proc/can_climb(atom/source, mob/user)
+	if (!user.CanReach(source))
+		return FALSE
 	var/dir_step = get_dir(user, source.loc)
 	//To jump over a railing you have to be standing next to it, not far behind it.
 	if(source.flags_1 & ON_BORDER_1 && user.loc != source.loc && (dir_step & source.dir) == source.dir)