Added discount for corrective glasses and contacts.

src/uncategorized/costsReport.tw

@@ -406,7 +406,7 @@ trainer fees: <<print cashFormat(_cost)>>
 	<<if !canSee($slaves[$i]) && ($slaves[$i].assignment != "work in the dairy" || $dairyRestraintsSetting < 2) && ($slaves[$i].assignment != "be confined in the arcade")>>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;Increased living expenses due to lack of sight: <<print cashFormat(50)>>
 		<<set $individualCosts += 50>>
-	<<elseif $slaves[$i].eyes <= -1>>
+	<<elseif $slaves[$i].eyes <= -1 && $slaves[$i].eyewear != "corrective glasses" && $slaves[$i].eyewear != "corrective contacts">>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;Increased living expenses due to poor vision: <<print cashFormat(25)>>
 		<<set $individualCosts += 25>>
 	<<elseif ($slaves[$i].eyewear == "blurring glasses") || ($slaves[$i].eyewear == "blurring contacts")>>