1
0

kuhrPar 3.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224
  1. # kuhrPar
  2. act 'Leave the room':gt 'korrPar'
  3. $metkaM = $ARGS[0]
  4. $locM = $CURLOC
  5. $metka = $ARGS[0]
  6. $loc = $CURLOC
  7. clr
  8. minut += 1
  9. gs 'stat'
  10. fcolor = rgb(0, 0, 0)
  11. bcolor = rgb(255, 255, 255)
  12. lcolor = rgb(106, 90, 205)
  13. '<center><b><font color="maroon">Kitchen</font></b></center>'
  14. '<center><img src="images/qwest/alter/<<$loc>>.jpg"></center>'
  15. 'The kitchen is next to the stove sink. Large refrigerator in the corner and kitchen table with chairs is against the wall.'
  16. gs 'family'
  17. act 'Eat (0:30)':
  18. cla
  19. *clr
  20. gs 'stat'
  21. frost = 0
  22. minut += 30
  23. health += 10
  24. manna += 20
  25. '<center><img src="images/pics/food.jpg"></center>'
  26. if energy >= 30:
  27. fat += 5
  28. 'You can no longer eat.'
  29. elseif energy >= 20 and energy < 30:
  30. fat += 3
  31. energy += 10
  32. 'You pushed through the power of a meal.'
  33. elseif energy < 20:
  34. energy += 20
  35. !!fat += 1
  36. 'You gladly ate cooked food.'
  37. end
  38. if water >= 20:
  39. 'You don''t need any more tea.'
  40. else
  41. water += 20
  42. 'You gladly drank a mug of tea.'
  43. end
  44. gs 'stat'
  45. act 'Get up from the table':gt $locM, $metkaM
  46. end
  47. act 'Have a snack (0:15)':
  48. cla
  49. *clr
  50. gs 'stat'
  51. frost = 0
  52. minut += 15
  53. health += 10
  54. manna += 20
  55. '<center><img src="images/pics/food.jpg"></center>'
  56. if energy >= 30:
  57. fat += 3
  58. 'You can no longer eat.'
  59. elseif energy >= 20 and energy < 30:
  60. fat += 1
  61. energy += 5
  62. 'You pushed through the power of a meal.'
  63. elseif energy < 20:
  64. energy += 10
  65. !!fat += 1
  66. 'You gladly ate cooked food.'
  67. end
  68. if water >= 20:
  69. 'You don''t need any more tea.'
  70. else
  71. water += 20
  72. 'You gladly drank a mug of tea.'
  73. end
  74. gs 'stat'
  75. act 'Get up from the table':gt $locM, $metkaM
  76. end
  77. act 'Drink':
  78. cls
  79. if water >= 20:
  80. 'You don''t need any more tea.'
  81. else
  82. water += 20
  83. 'You gladly drank a mug of tea.'
  84. end
  85. gs 'stat'
  86. act 'Get up from the table':gt $locM, $metkaM
  87. end
  88. if pranik > 0:
  89. 'Cookies will suffice for <<pranik>> time.'
  90. act 'Drink tea with cookies (0:05)':
  91. cla
  92. *clr
  93. minut += 5
  94. pranik -= 1
  95. health += 30
  96. manna += 100
  97. energy += 20
  98. water += 20
  99. fat += 50
  100. frost = 0
  101. gs 'stat'
  102. '<center><img src="images/pics/food.jpg"></center>'
  103. 'You drank tea with cookies, sweet and very bad for the figure, but so nice.'
  104. act 'Get up from the table':gt $curloc
  105. end
  106. end
  107. if edaD > 0:
  108. act 'Eat diet food (0:30)':
  109. cla
  110. *clr
  111. frost = 0
  112. minut += 30
  113. health += 10
  114. manna += 20
  115. edaD -= 1
  116. '<center><img src="images/pics/food.jpg"></center>'
  117. if energy >= 30:
  118. 'You can no longer eat.'
  119. elseif energy >= 20 and energy < 30:
  120. energy += 10
  121. 'You pushed through the power of a meal.'
  122. elseif energy < 20:
  123. energy += 20
  124. 'You gladly ate cooked food.'
  125. end
  126. if water >= 20:
  127. 'You don''t need any more tea.'
  128. else
  129. water += 20
  130. 'You gladly drank a cup of tea.'
  131. end
  132. act 'Get up from the table':gt $curloc
  133. end
  134. end
  135. if fatdel > 0:
  136. act 'Consume fat burners':
  137. cla
  138. *clr
  139. if fat > salo:fat = salo
  140. fatdel -= 1
  141. fat -= 25
  142. if fat < 0:fat = 0
  143. 'You drank fat burning capsule. These capsules are gradually and results will be seen at once.'
  144. act 'Get up from the table':gt $curloc
  145. end
  146. end
  147. if lekarstvo > 0:
  148. 'you <<lekarstvo>> tablets.'
  149. if sick > 0 and lekarday ! day:
  150. act 'Take a pill (0:05)':
  151. cla
  152. *clr
  153. minut += 5
  154. lekarday = day
  155. lekarstvo -= 1
  156. sick -= sick * 20 / 100
  157. lekrand = rand(1, 9)
  158. '<center><img src="images/inBed/lekr<<picrand>>.jpg"></center>'
  159. 'You swallowed the pill'
  160. act 'move away':gt $curloc
  161. end
  162. end
  163. end
  164. if vitamin > 0:
  165. 'you <<vitamin>> vitaminok.'
  166. if vitaminday ! day:
  167. act 'Take vitamins (0:05)':
  168. cla
  169. *clr
  170. if fat > salo:fat = salo
  171. minut += 5
  172. vitaminday = day
  173. vitamin -= 1
  174. frost = 0
  175. if KandidozOnce = 1:Kandidoz -= 2
  176. if GerpesOnce = 1:Gerpes -= 2
  177. if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)
  178. skinvan += 1
  179. if skinvan = 20:skinvan = 0 & skin += 1
  180. 'You took some vitamins'
  181. act 'Move away':gt $curloc
  182. end
  183. end
  184. end
  185. --- kuhrPar ---------------------------------