# downlibrary
$metka = $ARGS[0]
$loc = $CURLOC
$menu_loc = 'downlibrary'
$menu_arg = ''
menu_off = 0
$location_type = 'public_indoors'
frost = 0
gs 'stat'
gs 'themes', 'indoors'
'
National Library of Russia'
'> src="images/locations/city/citycenter/library/downlibint.jpg">'
'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)':
*clr & cla
menu_off = 1
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.'> $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)':
*clr & cla
menu_off = 1
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.'> $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)':
*clr & cla
menu_off = 1
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.'> $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':
*clr & cla
menu_off = 1
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.'> $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 ---------------------------------