[changed] The reqired total reading before needing glasses raised to 5 times value as it could be triggered too rapidly.

locations/city_library.qsrc

@@ -16,7 +16,7 @@ $downlibrary['BookStudy'] = {
 	$downlibrary['Skill'] = $ARGS[0]
 	*clr & cla
 	menu_off = 1
-	if blizoruk = 100 or glassqw = 1:
+	if blizoruk = 500 or glassqw = 1:
 		glassqw = 1
 		msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $curloc
 	end

locations/events.qsrc

@@ -38,6 +38,11 @@ if $ARGS[0] = 'read':
 
 				if fantasybook = 0:totalbook += 1
 
+				if blizoruk = 500 or glassqw = 1:
+					glassqw = 1
+					msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+				end
+
 				minut += 60
 
 				if pcs_nerd > 0:
@@ -73,10 +78,15 @@ if $ARGS[0] = 'read':
 
 		if womanbook > 0:
 			act 'Read Women''s Novel. There are <<womanbook * 100>> pages left (1:00)':
+				if blizoruk = 500 or glassqw = 1:
+					glassqw = 1
+					msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+				end
 				*clr & cla
 				womanbook -= 1
 
 				if womanbook = 0:totalbook += 1
+
 				minut += 60
 
 				if pcs_nerd > 0:
@@ -110,6 +120,11 @@ if $ARGS[0] = 'read':
 
 		if artembook > 0:
 			act 'Read the book your borrowed from Artem. There are <<artembook * 100>> pages left (1:00) ':
+				if blizoruk = 500 or glassqw = 1:
+					glassqw = 1
+					msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+				end
+
 				*clr & cla
 				artembook -= 1
 
@@ -156,6 +171,10 @@ if $ARGS[0] = 'read':
 
 			if cookmag = 1:
 				act 'Read your cooking magazine':
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+					end
 					cla
 					cookmag = 0
 					pcs_mood += 5
@@ -167,6 +186,10 @@ if $ARGS[0] = 'read':
 
 			if fashmag = 1:
 				act 'Read your fashion magazine':
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+					end
 					cla
 					fashmag = 0
 					pcs_mood += 5
@@ -179,6 +202,10 @@ if $ARGS[0] = 'read':
 
 			if compmag = 1:
 				act 'Read your computing magazine':
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+					end
 					cla
 					compmag = 0
 					pcs_mood += 5
@@ -191,6 +218,10 @@ if $ARGS[0] = 'read':
 
 			if biomag = 1:
 				act 'Read your biographical magazine':
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+					end
 					cla
 					biomag = 0
 					pcs_mood += 5
@@ -202,6 +233,10 @@ if $ARGS[0] = 'read':
 
 			if knitmag = 1:
 				act 'Read your knitting magazine':
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+					end
 					cla
 					knitmag = 0
 					pcs_mood += 5
@@ -214,6 +249,10 @@ if $ARGS[0] = 'read':
 
 			if fitmag = 1:
 				act 'Read your fitness magazine':
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+					end
 					cla
 					fitmag = 0
 					pcs_mood += 5
@@ -230,6 +269,10 @@ end
 
 if $ARGS[0] = 'read_porn':
 	act 'Read the porn magazine':
+		if blizoruk = 500 or glassqw = 1:
+			glassqw = 1
+			msg'	The text blurs across the page, it seems you have poor eyesight probably from all the porn. Maybe you should visit an ophthalmologists.'&gt $loc, $loc_arg
+		end
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/shared/accessories/magazines/porn.jpg"></center>'
 

locations/gadfield.qsrc

@@ -262,6 +262,10 @@ if $ARGS[0] = 'cow':
 					act 'Continue':gt'gadfield','cow'
 				end
 				act 'Read a book (1:00)':
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt 'gadfield','cow'
+					end
 					*clr & cla
 					menu_off = 1
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/graze_cow_book'+rand(1,2)+'.jpg"></center>'
@@ -412,6 +416,10 @@ if $ARGS[0] = 'cow2':
 					act 'Continue':gt'gadfield','cow2'
 				end
 				act 'Read a book (1:00)':
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt 'gadfield','cow2'
+					end
 					*clr & cla
 					menu_off = 1
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/graze_cow_book'+rand(1,2)+'.jpg"></center>'
@@ -586,6 +594,10 @@ if $ARGS[0] = 'cow3':
 					*clr & cla
 					menu_off = 1
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/graze_cow_book'+rand(1,2)+'.jpg"></center>'
+					if blizoruk = 500 or glassqw = 1:
+						glassqw = 1
+						msg'	The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt 'gadfield','cow3'
+					end
 					minut += 60
 					if temper >= 25 and sunWeather = 1:pcs_hydra -= 6
 					if pcs_nerd > 0:

locations/pav_library.qsrc

@@ -24,7 +24,7 @@ if hour >= 8 and hour < 18:
 	act 'Read a book on science (1:00)':
 		*clr & cla
 		menu_off = 1
-		if blizoruk = 100 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
 		if pcs_nerd > 0: lastread = totminut & lastreadday = daystart & pcs_nerd += 1
 		minut += 60
 		intel_exp += rand(3,6) + (mentats_dose - rand(0,mentats_dose))
@@ -38,7 +38,7 @@ if hour >= 8 and hour < 18:
 	act 'Read an adventure novel (1:00)':
 		*clr & cla
 		menu_off = 1
-		if blizoruk = 100 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
 		if pcs_nerd > 0: lastread = totminut & lastreadday = daystart & pcs_nerd += 1
 		minut += 60
 		pcs_mood = 100
@@ -52,7 +52,7 @@ if hour >= 8 and hour < 18:
 	act 'Read a fantasy novel (1:00)':
 		*clr & cla
 		menu_off = 1
-		if blizoruk = 100 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
 		if pcs_nerd > 0: lastread = totminut & lastreadday = daystart & pcs_nerd += 1
 		minut += 60
 		pcs_mood = 100
@@ -66,7 +66,7 @@ if hour >= 8 and hour < 18:
 	act 'Read a science fiction novel (1:00)':
 		*clr & cla
 		menu_off = 1
-		if blizoruk = 100 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
 		if pcs_nerd > 0: lastread = totminut & lastreadday = daystart & pcs_nerd += 1
 		minut += 60
 		pcs_mood = 100
@@ -80,7 +80,7 @@ if hour >= 8 and hour < 18:
 	act 'Read a romance novel (1:00)':
 		*clr & cla
 		menu_off = 1
-		if blizoruk = 100 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
 		if pcs_nerd > 0: lastread = totminut & lastreadday = daystart & pcs_nerd += 1
 		minut += 60
 		pcs_mood = 100
@@ -94,7 +94,7 @@ if hour >= 8 and hour < 18:
 	act 'Study for an hour':
 		*clr & cla
 		menu_off = 1
-		if blizoruk = 100 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
 		if pcs_nerd > 0: lastread = totminut & lastreadday = daystart & pcs_nerd += 1
 		minut += 60
 		lern += rand(1,3)
@@ -108,7 +108,7 @@ if hour >= 8 and hour < 18:
 	act 'Read from the collected works of Leo Tolstoy (1:00)':
 		*clr & cla
 		menu_off = 1
-		if blizoruk = 100 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt $curloc
 		if pcs_nerd > 0: lastread = totminut & lastreadday = daystart & pcs_nerd += 1
 		minut += 60
 		sprt_exp += rand(3,6)

locations/swamphouse.qsrc

@@ -601,6 +601,7 @@ if $ARGS[0] = 'stackmagazines':
 	'A stack of all kinds of magazines, there''s even one with "interesting" pictures.'
 
 	act 'Read the scientific journal (1:00)':
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt 'swamphouse', 'stackmagazines'
 		cla
 		*clr
 		if pcs_nerd > 0:
@@ -620,6 +621,7 @@ if $ARGS[0] = 'stackmagazines':
 		act 'Continue': gs 'swamphouse', 'stackmagazines'
 	end
 	act 'Read the literary magazine (1:00)':
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt 'swamphouse', 'stackmagazines'
 		cla
 		*clr
 		if pcs_nerd > 0:
@@ -640,6 +642,7 @@ if $ARGS[0] = 'stackmagazines':
 		act 'Continue': gs 'swamphouse', 'stackmagazines'
 	end
 	act 'Read the entertainment magazine (1:00)':
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt 'swamphouse', 'stackmagazines'
 		cla
 		*clr
 		if pcs_nerd > 0:
@@ -659,6 +662,7 @@ if $ARGS[0] = 'stackmagazines':
 		act 'Continue': gs 'swamphouse', 'stackmagazines'
 	end
 	act 'Read the porn magazine (1:00)':
+		if blizoruk = 500 or glassqw = 1: glassqw = 1 & msg 'The text blurs across the page, it seems that your eyesight is actually pretty poor. Maybe you should head to the city and visit an ophthalmologist.' & gt 'swamphouse', 'stackmagazines'
 		cla
 		*clr
 		blizoruk+=1