glife/locations/gdkbibl

# gdkbibl
$metka = $ARGS[0]
$loc = $CURLOC
$location_type = 'public_indoors'
frost = 0
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'<center><b><font color="maroon">community center</font></b></center>'
'<center><img src="images/qwest/alter/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 science book (1:00)':
		cls
		if blizoruk = 100 or glassqw = 1:
		glassqw = 1
		msg'The text on the page spreads, It seems you are spoiled vision. You will need to go to the optometrist.'&gt $curloc
		end
		if Astat_nerd[pc] > 0:
			lastread = totminut
			lastreadday = daystart
			Astat_nerd[pc] += 1
		end
		minut += 60
		if pcs_intel >= 50:
			pcs_intel += RAND(0,1) + (mentats_dose - rand(0,mentats_dose))
		elseif pcs_intel >= 25:
			pcs_intel += RAND(1,2) + (mentats_dose - rand(0,mentats_dose))
		else
			pcs_intel += RAND(1,3) + (mentats_dose - rand(0,mentats_dose))
		end

		blizoruk += 1
		gs'stat'

		'You are reading a book for an hour trying to figure out all sorts of clever frazochki and understand the subject description.'

		act 'Put the book':gt $curloc
	end

	act 'Read entertaining book (1:00)':
		cls
		if blizoruk = 100 or glassqw = 1:
		glassqw = 1
		msg'The text on the page spreads, It seems you are spoiled vision. You will need to go to the optometrist.'&gt $curloc
		end
		if Astat_nerd[pc] > 0:
			lastread = totminut
			lastreadday = daystart
			Astat_nerd[pc] += 1
		end
		minut += 60
		manna += 100
		willpower += 100
		blizoruk += 1
		gs'stat'

		'You are within an hour reading a book about the adventures.'

		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 on the page spreads, It seems you are spoiled vision. You will need to go to the optometrist.'&gt $curloc
		end
		if Astat_nerd[pc] > 0:
			lastread = totminut
			lastreadday = daystart
			Astat_nerd[pc] += 1
		end
		minut += 60
		if will >= 50:
			will += RAND(0,1)
		elseif will >= 25:
			will += RAND(1,2)
		else
			will += RAND(1,3)
		end

		blizoruk += 1
		gs'stat'

		'You are within an hour reading a book. Tolstoy classic course, no one denies, but he wrote a rare tyagomotinu.'

		act 'Put the book':gt $curloc
	end
else
	'The library is closed.'
end

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