glife/locations/gdkbibl

# gdkbibl
$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">community center</font></b></center>'
'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/library/gdkbibl.jpg"></center>'
'A small library with lots of interesting books.'

act 'Leave':gt 'gdk'

act 'Go to the toilets': gt 'gdktoilet', 'start'

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':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':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':gt $curloc
	end
else
	'	The library is closed.'
end

--- gdkbibl ---------------------------------