anchor.diff:  		receiver_antigen = copytext(receiver,1,lentext(receiver))
   		donor_rh = (findtext(donor,"+")>0)
   		receiver_rh = (findtext(receiver,"+")>0)
  -	if(donor_rh!=receiver_rh) return 1
  +	if(donor_rh && !receiver_rh) return 1
   	switch(receiver_antigen)
   		if("A")
   			if(donor_antigen != "A" && donor_antigen != "O") return 1
  
positive.code: 	var/transfer_blood = 0
  	var/mob/living/carbon/human/bloody_hands_mob
  
  
  
  proc/blood_incompatible(donor,receiver)
  	if(!donor || !receiver) return 0
  	var
  
negative.code: /mob
  
  	var/bloody_hands = 0
  