anchor.diff:  	var/allow_occupant_types = list(/mob/living/carbon/human, /mob/living/carbon/monkey)
   	var/disallow_occupant_types = list()
   
  -	var/mob/occupant = null       // Person waiting to be despawned.
  +	var/mob/living/occupant = null       // Person waiting to be despawned.
   	var/orient_right = null       // Flips the sprite.
  -	var/time_till_despawn = 18000 // 30 minutes-ish safe period before being despawned.
  +	var/time_till_despawn = 9000 // 15 minutes-ish safe period before being despawned.
   	var/time_entered = 0          // Used to keep track of the safe period.
   	var/obj/item/device/radio/intercom/announce //
   
  
positive.code: 	set name = "Eject Pod"
  	set category = "Object"
  	set src in oview(1)
  	if(usr.stat != 0)
  		return
  
  	if(usr != occupant)
  		usr << "The cryopod is in use and locked!"
  		return
  	if(orient_right)
  		icon_state = "[base_icon_state]-r"
  	else
  
negative.code: 			return
  
  		var/willing = null //We don't want to allow people to be forced into despawning.
  		var/mob/living/M = G:affecting
  		
  		if(!istype(M) || M.stat == DEAD)
  			user << "<span class='notice'>Dead people can not be put into cryo.</span>"
  			return
  
  		if(M.client)
  			if(alert(M,"Would you like to enter long-term storage?",,"Yes","No") == "Yes")
  