city_library.qsrc 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114
  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 in here and probably still wouldn''t be able to read it all.'
  43. act 'Leave': minut += 5 & gt 'city_center'
  44. if hour >= 8 and hour <= 18:
  45. act 'Read a science book':
  46. gs 'exp_gain', 'intel', 4 + (mentats_dose - rand(0,mentats_dose))
  47. dynamic $downlibrary['BookStudy'], ''
  48. 'You read a science book for an hour, trying to make sense of and understand the subject matter.'
  49. act 'Put the book down':gt $curloc
  50. end
  51. act 'Read an entertaining book':
  52. pcs_mood = 100
  53. dynamic $downlibrary['BookStudy'], ''
  54. 'You read an adventure book for an hour.'
  55. act 'Put the book down':gt $curloc
  56. end
  57. act 'Read the collected works of Leo Tolstoy':
  58. dynamic $downlibrary['BookStudy'], 'sprt'
  59. 'You read the book for an hour. Tolstoy is certainly a classic writer, but his works are certainly exhaustive.'
  60. act 'Put the book down':gt $curloc
  61. end
  62. if MagicLibrary = 1:
  63. act 'Read 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 little better than before.'
  68. ! Find Researchable Spells
  69. if func('spellList','numAvailableSpells','librarySpells') > 0:
  70. if rand(1,10) = 10:
  71. gs 'spellList','addAvailableSpells','librarySpells'
  72. *nl
  73. *pl 'You have come across a lead on a new spell.'
  74. end
  75. else
  76. 'There doesn''t seem to be any more spells to learn here, but you can still improve your skills in the ones that you''ve already found.'
  77. end
  78. !!Adding to the Actions opportunity to practice spells MC found
  79. gs 'spellList', 'teacherActions', '$librarySpells', 'city_library', ''
  80. act 'Put the book down':gt $curloc
  81. end
  82. !!Adding to the Actions opportunity to practice spells MC found
  83. gs 'spellList', 'teacherActions', '$librarySpells', 'city_library', ''
  84. end
  85. else
  86. 'The library is closed.'
  87. end
  88. gs 'camera', 'check_location'
  89. --- city_library ---------------------------------