anchor.diff:  	if (supply_shuttle_moving) return
   
   	if (!supply_can_move())
  -		usr << "\red The supply shuttle can not transport station employees."
  +		usr << "\red The supply shuttle can not transport station employees or homing beacons."
   		return
   
   	var/shuttleat = supply_shuttle_at_station ? SUPPLY_STATION_AREATYPE : SUPPLY_DOCK_AREATYPE
  
positive.code: 		if(!supply_shuttle_at_station || supply_shuttle_moving) return
  
  		if (!supply_can_move())
  			usr << "\red The supply shuttle can not transport station employees."
  			return
  
  		src.temp = "Shuttle sent.<BR><BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
  
negative.code: 
  	for(var/turf/T in get_area_turfs(shuttleat) )
  		if((locate(/mob/living) in T) && (!locate(/mob/living/carbon/monkey) in T)) return 0
  		if((locate(/obj/item/device/radio/beacon) in T)) return 0
  		for(var/atom/ATM in T)
  			if((locate(/mob/living) in ATM) && (!locate(/mob/living/carbon/monkey) in ATM)) return 0
  			if((locate(/obj/item/device/radio/beacon) in ATM)) return 0
  
  	return 1
  
  