123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101 |
- # 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.'> $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.'> $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.'> $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 ---------------------------------
|