kuhrPar 4.0 KB

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