gdkbibl 2.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107
  1. # gdkbibl
  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">community center</font></b></center>'
  17. '<center><img src="images/locations/pavlovsk/community/library/gdkbibl.jpg"></center>'
  18. 'A small library with lots of interesting books.'
  19. act 'Leave':gt 'gdk'
  20. act 'Go to the toilets': gt 'gdktoilet', 'start'
  21. if hour >= 8 and hour <= 18:
  22. act 'Read science book (1:00)':
  23. cls
  24. if blizoruk = 100 or glassqw = 1:
  25. glassqw = 1
  26. msg'The text on the page spreads, It seems you are spoiled vision. You will need to go to the optometrist.'&gt $curloc
  27. end
  28. if pcs_nerd > 0:
  29. lastread = totminut
  30. lastreadday = daystart
  31. pcs_nerd += 1
  32. end
  33. minut += 60
  34. if pcs_intel >= 50:
  35. intel_exp += RAND(0,1) + (mentats_dose - rand(0,mentats_dose))
  36. elseif pcs_intel >= 25:
  37. intel_exp += RAND(1,2) + (mentats_dose - rand(0,mentats_dose))
  38. else
  39. intel_exp += RAND(1,3) + (mentats_dose - rand(0,mentats_dose))
  40. end
  41. blizoruk += 1
  42. gs'stat'
  43. 'You are reading a book for an hour trying to figure out all sorts of clever frazochki and understand the subject description.'
  44. act 'Put the book':gt $curloc
  45. end
  46. act 'Read entertaining book (1:00)':
  47. cls
  48. if blizoruk = 100 or glassqw = 1:
  49. glassqw = 1
  50. msg'The text on the page spreads, It seems you are spoiled vision. You will need to go to the optometrist.'&gt $curloc
  51. end
  52. if pcs_nerd > 0:
  53. lastread = totminut
  54. lastreadday = daystart
  55. pcs_nerd += 1
  56. end
  57. minut += 60
  58. pcs_mood = 100
  59. pcs_willpwr += 100
  60. blizoruk += 1
  61. gs'stat'
  62. 'You are within an hour reading a book about the adventures.'
  63. act 'Put the book':gt $curloc
  64. end
  65. act 'Read the collected works of Leo Tolstoy (1:00)':
  66. cls
  67. if blizoruk = 100 or glassqw = 1:
  68. glassqw = 1
  69. msg'The text on the page spreads, It seems you are spoiled vision. You will need to go to the optometrist.'&gt $curloc
  70. end
  71. if pcs_nerd > 0:
  72. lastread = totminut
  73. lastreadday = daystart
  74. pcs_nerd += 1
  75. end
  76. minut += 60
  77. if pcs_sprt >= 50:
  78. sprt_exp += RAND(0,1)
  79. elseif pcs_sprt >= 25:
  80. sprt_exp += RAND(1,2)
  81. else
  82. sprt_exp += RAND(1,3)
  83. end
  84. blizoruk += 1
  85. gs'stat'
  86. 'You are within an hour reading a book. Tolstoy classic course, no one denies, but he wrote a rare tyagomotinu.'
  87. act 'Put the book':gt $curloc
  88. end
  89. else
  90. 'The library is closed.'
  91. end
  92. --- gdkbibl ---------------------------------