city_library.qsrc 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120
  1. # city_library
  2. $loc_arg = $ARGS[0]
  3. $loc = 'city_library'
  4. $menu_loc = 'city_library'
  5. $menu_arg = ''
  6. menu_off = 0
  7. $location_type = 'public_indoors'
  8. frost = 0
  9. gs 'stat'
  10. gs 'themes', 'indoors'
  11. ! Stuff to do on Studying a Book
  12. ! $ARGS[0] = Skill to Check
  13. $downlibrary['BookStudy'] = {
  14. $downlibrary['Skill'] = $ARGS[0]
  15. *clr & cla
  16. menu_off = 1
  17. if blizoruk = 500 or glassqw = 1:
  18. glassqw = 1
  19. msg' The text blurs across the page, it seems you have poor eyesight. Maybe you should visit an ophthalmologists.'&gt $curloc
  20. end
  21. if pcs_nerd > 0:
  22. lastread = totminut
  23. lastreadday = daystart
  24. pcs_nerd += 1
  25. end
  26. minut += 60
  27. if $downlibrary['Skill'] ! '':
  28. dynamic "
  29. if pcs_<<$downlibrary['Skill']>> >= 50:
  30. <<$downlibrary['Skill']>>_exp += rand(0,1)
  31. elseif pcs_<<$downlibrary['Skill']>> >= 25:
  32. <<$downlibrary['Skill']>>_exp += rand(1,2)
  33. else
  34. <<$downlibrary['Skill']>>_exp += rand(1,3)
  35. end"
  36. end
  37. blizoruk += 1
  38. gs'stat'
  39. }
  40. '<center><b><font color="maroon">National Library of Russia</font></b></center>'
  41. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/library/downlibint.jpg"></center>'
  42. '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.'
  43. act 'Leave the library': minut += 5 & gt 'city_center'
  44. if hour >= 8 and hour <= 18:
  45. act 'Read a science book (1:00)':
  46. intel_exp += 4 + (mentats_dose - rand(0,mentats_dose))
  47. dynamic $downlibrary['BookStudy'], ''
  48. ' You read the book for an hour trying to make sense of all clever propositions and understand the subject of the description.'
  49. act 'Put the book down':gt $curloc
  50. end
  51. act 'Read an entertaining book (1:00)':
  52. pcs_mood = 100
  53. dynamic $downlibrary['BookStudy'], ''
  54. ' You read an adventure fiction for an hour.'
  55. act 'Put the book down':gt $curloc
  56. end
  57. act 'Read the collected works of Leo Tolstoy (1:00)':
  58. dynamic $downlibrary['BookStudy'], 'sprt'
  59. ' You read the book for an hour. Tolstoy is certainly a classic writer, no one denies this, but he wrote exceptionally wordily.'
  60. act 'Put the book down':gt $curloc
  61. end
  62. if MagicLibrary = 1:
  63. act 'Read in magic books':
  64. dynamic $downlibrary['BookStudy'], 'splcstng'
  65. ' You pick out one of the magic books you can actually read and sit down with it.'
  66. '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.'
  67. '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.'
  68. ! Find Researchable Spells
  69. if arrsize('$ResearchingSP') < arrsize('$librarySpells'):
  70. if rand(1,10) = 10:
  71. NumResearching = arrsize('$ResearchingSP') + 1
  72. if spellKnown[$librarySpells[NumResearching]] = 0:
  73. *nl
  74. *pl 'You have come across a lead on a new spell.'
  75. end
  76. i=0
  77. :FindNewSpell1
  78. if i < NumResearching:
  79. $ResearchingSP[i] = $librarySpells[i]
  80. i += 1
  81. jump 'FindNewSpell1'
  82. end
  83. killvar 'i'
  84. killvar 'NumResearching'
  85. end
  86. end
  87. if arrsize('$ResearchingSP') > 0:
  88. gs 'spellList', 'teacherActions', '$ResearchingSP', 'city_library', ''
  89. end
  90. act 'Put the book down':gt $curloc
  91. end
  92. end
  93. else
  94. 'The library is closed.'
  95. end
  96. --- city_library ---------------------------------