gdkbibl 2.2 KB

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