# gdkbibl
$metka = $ARGS[0]
$loc = $CURLOC
frost = 0
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'
House of Culture'
'
'
'A small library with lots of interesting books.'
act 'Exit': gt 'gdk'
if hour >= 8 and hour <= 18:
act 'Read science book (1:00)':
cls
minut += 60
if intel >= 50: intel += RAND(0,1)
if intel < 50 and intel >= 25: intel += RAND(1,2)
if intel < 25: intel += RAND(1,3)
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
minut += 60
manna += 100
willpower += 100
gs 'stat'
'You are in for 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
minut += 60
if will >= 50: will += RAND(0,1)
if will < 50 and will >= 25: will += RAND(1,2)
if will < 25: will += RAND(1,3)
gs 'stat'
'You are in for an hour reading a book. Tolstoy classic course, no one denies, but he wrote tyagomotinu rare.'
act 'Put the book': gt $curloc
end
else
'Library closes.'
end
--- gdkbibl ---------------------------------