1
0

243_gdkbibl 2.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104
  1. # gdkbibl
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. <<<<<<< 243_gdkbibl
  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>House of Culture</font></B></center>'
  11. '<center><img src="images\qwest\alter\gdkbibl.jpg"></center>'
  12. =======
  13. frost=0
  14. gs'stat'
  15. fcolor=rgb(0,0,0)
  16. bcolor=rgb(255,255,255)
  17. LCOLOR = rgb(106,90,205)
  18. '<center><B><font color=maroon>The House of Culture</font></B></center>'
  19. '<center><img src="qwest/alter/gdkbibl.jpg" ></center>'
  20. >>>>>>> 243_gdkbibl
  21. 'A small library with lots of interesting books.'
  22. <<<<<<< 243_gdkbibl
  23. act 'Exit': gt 'gdk'
  24. if hour >= 8 and hour <= 18:
  25. act 'Read science book (1:00)':
  26. cls
  27. minut += 60
  28. if intel >= 50: intel += RAND(0,1)
  29. if intel < 50 and intel >= 25: intel += RAND(1,2)
  30. if intel < 25: intel += RAND(1,3)
  31. gs 'stat'
  32. 'You are reading a book for an hour trying to figure out all sorts of clever frazochki and understand the subject description.'
  33. act 'Put the book': gt $curloc
  34. end
  35. act 'Read entertaining book (1:00)':
  36. cls
  37. minut += 60
  38. manna += 100
  39. willpower += 100
  40. gs 'stat'
  41. 'You are in for an hour reading a book about the adventures.'
  42. act 'Put the book': gt $curloc
  43. end
  44. act 'Read the collected works of Leo Tolstoy (1:00)':
  45. cls
  46. minut += 60
  47. if will >= 50: will += RAND(0,1)
  48. if will < 50 and will >= 25: will += RAND(1,2)
  49. if will < 25: will += RAND(1,3)
  50. gs 'stat'
  51. 'You are in for an hour reading a book. Tolstoy classic course, no one denies, but he wrote tyagomotinu rare.'
  52. act 'Put the book': gt $curloc
  53. end
  54. else
  55. 'Library closes.'
  56. =======
  57. act'Go_Out':gt'gdk'
  58. if hour>=8 and hour<=18:
  59. act'Read science book 1 h':
  60. cls
  61. minut+=60
  62. if intel>=50:intel+=RAND(0,1)
  63. if intel<50 and intel>=25:intel+=RAND(1,2)
  64. if intel<25:intel+=RAND(1,3)
  65. gs'stat'
  66. 'You are within an hour reading a book trying to figure out all sorts of clever frazochki and understand the subject description.'
  67. act'put the book':gt $curloc
  68. end
  69. act'Read an entertaining book 1 h':
  70. cls
  71. minut+=60
  72. manna+=100
  73. willpower+=100
  74. gs'stat'
  75. 'You are within an hour reading a book about the adventures of.'
  76. act'put the book':gt $curloc
  77. end
  78. act'Read the collected works of Leo Tolstoy 1 h':
  79. cls
  80. minut+=60
  81. if will>=50:will+=RAND(0,1)
  82. if will<50 and will>=25:will+=RAND(1,2)
  83. if will<25:will+=RAND(1,3)
  84. gs'stat'
  85. 'You are within an hour reading a book. Tolstoy classic course, no one denies, but he wrote a rare tyagomotinu.'
  86. act'put the book':gt $curloc
  87. end
  88. else
  89. 'The library is closed.'
  90. >>>>>>> 243_gdkbibl
  91. end
  92. --- gdkbibl ---------------------------------