1
0

downlibrary 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139
  1. # downlibrary
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. $location_type = 'public_indoors'
  5. frost = 0
  6. gs 'stat'
  7. if night_mode = 1:
  8. fcolor = rgb(255, 255, 255)
  9. bcolor = rgb(0, 0, 0)
  10. lcolor = rgb(106, 90, 205)
  11. else
  12. fcolor = rgb(0, 0, 0)
  13. bcolor = rgb(255, 255, 255)
  14. lcolor = rgb(106, 90, 205)
  15. end
  16. '<center><b><font color="maroon">National Library of Russia</font></b></center>'
  17. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/library/downlibint.jpg"></center>'
  18. '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.'
  19. act 'Leave the library':gt 'down'
  20. if hour >= 8 and hour <= 18:
  21. act 'Read a science book (1:00)':
  22. cls
  23. if blizoruk = 100 or glassqw = 1:
  24. glassqw = 1
  25. msg'The text blurs across the page, it looks like you have got poor eyesight. It would be suitable to visit an ophthalmologists.'&gt $curloc
  26. end
  27. if pcs_nerd > 0:
  28. lastread = totminut
  29. lastreadday = daystart
  30. pcs_nerd += 1
  31. end
  32. minut += 60
  33. if pcs_intel >= 50:
  34. intel_exp += RAND(0,1) + (mentats_dose - rand(0,mentats_dose))
  35. elseif pcs_intel >= 25:
  36. intel_exp += RAND(1,2) + (mentats_dose - rand(0,mentats_dose))
  37. else
  38. intel_exp += RAND(1,3) + (mentats_dose - rand(0,mentats_dose))
  39. end
  40. blizoruk += 1
  41. gs'stat'
  42. ' You read the book for an hour trying to make sense of all clever propositions and understand the subject of the description.'
  43. act 'Put the book down':gt $curloc
  44. end
  45. act 'Read an entertaining book (1:00)':
  46. cls
  47. if blizoruk = 100 or glassqw = 1:
  48. glassqw = 1
  49. msg'The text blurs across the page, it looks like you have got poor eyesight. It would be suitable to visit an ophthalmologists.'&gt $curloc
  50. end
  51. if pcs_nerd > 0:
  52. lastread = totminut
  53. lastreadday = daystart
  54. pcs_nerd += 1
  55. end
  56. minut += 60
  57. pcs_mood = 100
  58. pcs_willpwr += 100
  59. blizoruk += 1
  60. gs'stat'
  61. ' You read an adventure fiction for an hour.'
  62. act 'Put the book down':gt $curloc
  63. end
  64. act 'Read the collected works of Leo Tolstoy (1:00)':
  65. cls
  66. if blizoruk = 100 or glassqw = 1:
  67. glassqw = 1
  68. msg' The text blurs across the page, it looks like you have got poor eyesight. It would be suitable to visit an ophthalmologists.'&gt $curloc
  69. end
  70. if pcs_nerd > 0:
  71. lastread = totminut
  72. lastreadday = daystart
  73. pcs_nerd += 1
  74. end
  75. minut += 60
  76. if pcs_sprt >= 50:
  77. sprt_exp += RAND(0,1)
  78. elseif pcs_sprt >= 25:
  79. sprt_exp += RAND(1,2)
  80. else
  81. sprt_exp += RAND(1,3)
  82. end
  83. blizoruk += 1
  84. gs'stat'
  85. ' You read the book for an hour. Tolstoy is certainly a classic writer, no one denies this, but he wrote exceptionally wordily.'
  86. act 'Put the book down':gt $curloc
  87. end
  88. if MagicLibrary = 1:
  89. act 'Read in magic books':
  90. cls
  91. if blizoruk = 100 or glassqw = 1:
  92. glassqw = 1
  93. msg' The text blurs across the page, it looks like you have got poor eyesight. It would be suitable to visit an ophthalmologists.'&gt $curloc
  94. end
  95. if pcs_nerd > 0:
  96. lastread = totminut
  97. lastreadday = daystart
  98. pcs_nerd += 1
  99. end
  100. minut += 60
  101. if pcs_splcstng >= 50:
  102. splcstng_exp += RAND(0,1)
  103. elseif pcs_splcstng >= 25:
  104. splcstng_exp += RAND(1,2)
  105. else
  106. splcstng_exp += RAND(1,3)
  107. end
  108. blizoruk += 1
  109. gs'stat'
  110. ' 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.'
  111. '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.'
  112. act 'Put the book down':gt $curloc
  113. end
  114. end
  115. else
  116. ' The library is closed.'
  117. end
  118. --- downlibrary ---------------------------------