1
0

downlibrary.qsrc 3.8 KB

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