12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758 |
- # 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)
- '<center><b><font color="maroon">House of Culture</font></b></center>'
- '<center><img src="images/qwest/alter/gdkbibl.jpg"></center>'
- 'A small library with lots of interesting books.'
- act 'Leave':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 ---------------------------------
|