gdkbibl 2.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101
  1. # gdkbibl
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. $location_type = 'public_indoors'
  5. frost = 0
  6. gs 'stat'
  7. fcolor = rgb(0, 0, 0)
  8. bcolor = rgb(255, 255, 255)
  9. lcolor = rgb(106, 90, 205)
  10. '<center><b><font color="maroon">community center</font></b></center>'
  11. '<center><img src="images/qwest/alter/gdkbibl.jpg"></center>'
  12. 'A small library with lots of interesting books.'
  13. act 'Leave':gt 'gdk'
  14. act 'Go to the toilets': gt 'gdktoilet', 'start'
  15. if hour >= 8 and hour <= 18:
  16. act 'Read science book (1:00)':
  17. cls
  18. if blizoruk = 100 or glassqw = 1:
  19. glassqw = 1
  20. msg'The text on the page spreads, It seems you are spoiled vision. You will need to go to the optometrist.'&gt $curloc
  21. end
  22. if Astat_nerd[pc] > 0:
  23. lastread = totminut
  24. lastreadday = daystart
  25. Astat_nerd[pc] += 1
  26. end
  27. minut += 60
  28. if pcs_intel >= 50:
  29. pcs_intel += RAND(0,1) + (mentats_dose - rand(0,mentats_dose))
  30. elseif pcs_intel >= 25:
  31. pcs_intel += RAND(1,2) + (mentats_dose - rand(0,mentats_dose))
  32. else
  33. pcs_intel += RAND(1,3) + (mentats_dose - rand(0,mentats_dose))
  34. end
  35. blizoruk += 1
  36. gs'stat'
  37. 'You are reading a book for an hour trying to figure out all sorts of clever frazochki and understand the subject description.'
  38. act 'Put the book':gt $curloc
  39. end
  40. act 'Read entertaining book (1:00)':
  41. cls
  42. if blizoruk = 100 or glassqw = 1:
  43. glassqw = 1
  44. msg'The text on the page spreads, It seems you are spoiled vision. You will need to go to the optometrist.'&gt $curloc
  45. end
  46. if Astat_nerd[pc] > 0:
  47. lastread = totminut
  48. lastreadday = daystart
  49. Astat_nerd[pc] += 1
  50. end
  51. minut += 60
  52. manna += 100
  53. willpower += 100
  54. blizoruk += 1
  55. gs'stat'
  56. 'You are within an hour reading a book about the adventures.'
  57. act 'Put the book':gt $curloc
  58. end
  59. act 'Read the collected works of Leo Tolstoy (1:00)':
  60. cls
  61. if blizoruk = 100 or glassqw = 1:
  62. glassqw = 1
  63. msg'The text on the page spreads, It seems you are spoiled vision. You will need to go to the optometrist.'&gt $curloc
  64. end
  65. if Astat_nerd[pc] > 0:
  66. lastread = totminut
  67. lastreadday = daystart
  68. Astat_nerd[pc] += 1
  69. end
  70. minut += 60
  71. if will >= 50:
  72. will += RAND(0,1)
  73. elseif will >= 25:
  74. will += RAND(1,2)
  75. else
  76. will += RAND(1,3)
  77. end
  78. blizoruk += 1
  79. gs'stat'
  80. 'You are within an hour reading a book. Tolstoy classic course, no one denies, but he wrote a rare tyagomotinu.'
  81. act 'Put the book':gt $curloc
  82. end
  83. else
  84. 'The library is closed.'
  85. end
  86. --- gdkbibl ---------------------------------