New location - Downtown library

locations/downlibrary

@@ -0,0 +1,139 @@
+# downlibrary
+
+$metka = $ARGS[0]
+$loc = $CURLOC
+$location_type = 'public_indoors'
+frost = 0
+gs 'stat'
+	if night_mode = 1:
+		fcolor = rgb(255, 255, 255)
+		bcolor = rgb(0, 0, 0)
+		lcolor = rgb(106, 90, 205)
+	else
+		fcolor = rgb(0, 0, 0)
+		bcolor = rgb(255, 255, 255)
+		lcolor = rgb(106, 90, 205)
+	end
+'<center><b><font color="maroon">National Library of Russia</font></b></center>'
+'<center><img <<$set_imgh>> src="images/locations/city/citycenter/library/downlibint.jpg"></center>'
+'A huge library with thousands upon thousands of books. You could spend years here and you probably still wouldn''t be able to read it all.'
+
+act 'Leave the library':gt 'down'
+
+if hour >= 8 and hour <= 18:
+	act 'Read a science book (1:00)':
+		cls
+		if blizoruk = 100 or glassqw = 1:
+		glassqw = 1
+		msg'The text blurs across the page, it looks like you have got poor eyesight. It would be suitable to visit an ophthalmologists.'&gt $curloc
+		end
+		if pcs_nerd > 0:
+			lastread = totminut
+			lastreadday = daystart
+			pcs_nerd += 1
+		end
+		minut += 60
+		if pcs_intel >= 50:
+			intel_exp += RAND(0,1) + (mentats_dose - rand(0,mentats_dose))
+		elseif pcs_intel >= 25:
+			intel_exp += RAND(1,2) + (mentats_dose - rand(0,mentats_dose))
+		else
+			intel_exp += RAND(1,3) + (mentats_dose - rand(0,mentats_dose))
+		end
+
+		blizoruk += 1
+		gs'stat'
+
+		'	You read the book for an hour trying to make sense of all clever propositions and understand the subject of the description.'
+
+		act 'Put the book down':gt $curloc
+	end
+
+	act 'Read an entertaining book (1:00)':
+		cls
+		if blizoruk = 100 or glassqw = 1:
+		glassqw = 1
+		msg'The text blurs across the page, it looks like you have got poor eyesight. It would be suitable to visit an ophthalmologists.'&gt $curloc
+		end
+		if pcs_nerd > 0:
+			lastread = totminut
+			lastreadday = daystart
+			pcs_nerd += 1
+		end
+		minut += 60
+		pcs_mood = 100
+		pcs_willpwr += 100
+		blizoruk += 1
+		gs'stat'
+
+		'	You read an adventure fiction for an hour.'
+
+		act 'Put the book down':gt $curloc
+	end
+
+	act 'Read the collected works of Leo Tolstoy (1:00)':
+		cls
+		if blizoruk = 100 or glassqw = 1:
+		glassqw = 1
+		msg'	The text blurs across the page, it looks like you have got poor eyesight. It would be suitable to visit an ophthalmologists.'&gt $curloc
+		end
+		if pcs_nerd > 0:
+			lastread = totminut
+			lastreadday = daystart
+			pcs_nerd += 1
+		end
+		minut += 60
+		if pcs_sprt >= 50:
+			sprt_exp += RAND(0,1)
+		elseif pcs_sprt >= 25:
+			sprt_exp += RAND(1,2)
+		else
+			sprt_exp += RAND(1,3)
+		end
+
+		blizoruk += 1
+		gs'stat'
+
+		'	You read the book for an hour. Tolstoy is certainly a classic writer, no one denies this, but he wrote exceptionally wordily.'
+
+		act 'Put the book down':gt $curloc
+	end
+	if MagicLibrary = 1:
+		act 'Read in magic books':
+			cls
+			if blizoruk = 100 or glassqw = 1:
+			glassqw = 1
+			msg'	The text blurs across the page, it looks like you have got poor eyesight. It would be suitable to visit an ophthalmologists.'&gt $curloc
+			end
+			if pcs_nerd > 0:
+				lastread = totminut
+				lastreadday = daystart
+				pcs_nerd += 1
+			end
+			minut += 60
+			if pcs_splcstng >= 50:
+				splcstng_exp += RAND(0,1)
+			elseif pcs_splcstng >= 25:
+				splcstng_exp += RAND(1,2)
+			else
+				splcstng_exp += RAND(1,3)
+			end
+			
+			blizoruk += 1
+			gs'stat'
+
+			'	You pick out one of the magic books you can actually read and sit down with it. Not only is the subject matter complex and mostly a mystery to you, but the descriptions and explanations are unnecessarily wordy, as if the writer had something to prove.'
+			'After about an hour, you decide to take a break from it and, instead, test your memory. You don''t remember much, but you understand magic a tiny bit better than before nonetheless.'
+
+			act 'Put the book down':gt $curloc
+		end
+	end
+	
+else
+	'	The library is closed.'
+end
+
+
+
+--- downlibrary ---------------------------------
+