glife/locations/downlibrary.qsrc

# 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': minut += 5 & 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 ---------------------------------