1
0

city_library.qsrc 3.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110
  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 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 don''t seem to be any more spells to learn here, but perhaps I can still improve my skills in the ones that I''ve already found.'
  77. end
  78. gs 'spellList', 'teacherActions', '$librarySpells', 'city_library', ''
  79. act 'Put the book down':gt $curloc
  80. end
  81. end
  82. else
  83. 'The library is closed.'
  84. end
  85. --- city_library ---------------------------------