Eyes Fixes and Chem Tweaks

code/modules/reagents/newchem/medicine.dm

@@ -513,16 +513,25 @@ datum/reagent/morphine/addiction_act_stage4(var/mob/living/M as mob)
 
 datum/reagent/oculine/on_mob_life(var/mob/living/M as mob)
 	if(!M) M = holder.my_atom
-	M.eye_blurry = max(M.eye_blurry-5 , 0)
-	M.eye_blind = max(M.eye_blind-5 , 0)
-	if(ishuman(M))
-		var/mob/living/carbon/human/H = M
-		var/obj/item/organ/eyes/E = H.internal_organs_by_name["eyes"]
-		if(istype(E))
-			if(E.damage > 0)
-				E.damage -= 1
+	if(prob(80))
+		if(ishuman(M))
+			var/mob/living/carbon/human/H = M
+			var/obj/item/organ/eyes/E = H.internal_organs_by_name["eyes"]
+			if(istype(E))
+				E.damage = max(E.damage-1, 0)
+		M.eye_blurry = max(M.eye_blurry-1 , 0)
+		M.ear_damage = max(M.ear_damage-1, 0)
+	if(prob(50))
+		M.disabilities &= ~NEARSIGHTED
+	if(prob(30))
+		M.sdisabilities &= ~BLIND
+		M.eye_blind = 0
+	if(M.ear_damage <= 25)
+		if(prob(30))
+			M.ear_deaf = 0
 	..()
 	return
+
 /datum/chemical_reaction/oculine
 	name = "Oculine"
 	id = "oculine"

code/modules/reagents/oldchem/chemical_reaction/chemical_reaction_med.dm

@@ -30,13 +30,6 @@
 		result_amount = 2
 		mix_message = "The solvent extracts an antibiotic compound from the fungus."
 
-	audioline
-		name = "Audioline"
-		id = "audioline"
-		result = "audioline"
-		required_reagents = list("spaceacillin" = 1, "salglu_solution" = 1, "epinephrine" = 1)
-		result_amount = 3
-
 	rezadone
 		name = "Rezadone"
 		id = "rezadone"

code/modules/reagents/oldchem/reagents/reagents_med.dm

@@ -61,20 +61,6 @@
 	..()
 	return
 
-/datum/reagent/audioline
-	name = "Audioline"
-	id = "audioline"
-	description = "Heals ear damage."
-	reagent_state = LIQUID
-	color = "#6600FF" // rgb: 100, 165, 255
-
-/datum/reagent/audioline/on_mob_life(var/mob/living/M as mob)
-	if(!M) M = holder.my_atom
-	M.ear_damage = 0
-	M.ear_deaf = 0
-	..()
-	return
-
 /datum/reagent/mitocholide
 	name = "Mitocholide"
 	id = "mitocholide"
@@ -91,7 +77,7 @@
 		for(var/name in H.internal_organs_by_name)
 			var/obj/item/organ/I = H.internal_organs_by_name[name]
 			if(I.damage > 0)
-				I.damage -= 0.20
+				I.damage = max(I.damage-0.2, 0)
 	..()
 	return