kuhrPar 4.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241
  1. # kuhrPar
  2. act 'Leave the room':gt 'korrPar'
  3. $metkaM = $ARGS[0]
  4. $locM = $CURLOC
  5. $metka = $ARGS[0]
  6. $loc = $CURLOC
  7. '<center><b><font color="maroon">Kitchen</font></b></center>'
  8. '<center><img src="images/qwest/alter/<<$loc>>.jpg"></center>'
  9. clr
  10. set minut += 1
  11. gs 'stat'
  12. fcolor = rgb(0, 0, 0)
  13. bcolor = rgb(255, 255, 255)
  14. lcolor = rgb(106, 90, 205)
  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. '<center><img src="images/pics/food.jpg"></center>'
  23. set minut += 30
  24. set health += 10
  25. set manna += 20
  26. if energy >= 30:
  27. set fat += 5
  28. 'You can no longer have.'
  29. end
  30. if energy >= 20 and energy < 30:
  31. set fat += 3
  32. set energy += 10
  33. 'You pushed through the power of a meal.'
  34. end
  35. if energy < 20:
  36. set energy += 20
  37. !!set fat += 1
  38. 'You gladly ate cooked food.'
  39. end
  40. if water >= 20:'Tea in you no longer climbs.'
  41. if water < 20:
  42. 'You gladly drank a mug of tea.'
  43. set water += 20
  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. '<center><img src="images/pics/food.jpg"></center>'
  54. set minut += 15
  55. set health += 10
  56. set manna += 20
  57. if energy >= 30:
  58. set fat += 3
  59. 'You can no longer have.'
  60. end
  61. if energy >= 20 and energy < 30:
  62. set fat += 1
  63. set energy += 5
  64. 'You pushed through the power of a meal.'
  65. end
  66. if energy < 20:
  67. set energy += 10
  68. !!set fat += 1
  69. 'You gladly ate cooked food.'
  70. end
  71. if water >= 20:'Tea in you no longer climbs.'
  72. if water < 20:
  73. 'You gladly drank a mug of tea.'
  74. set water += 20
  75. end
  76. gs 'stat'
  77. act 'Get up from the table':gt $locM, $metkaM
  78. end
  79. act 'Drink':
  80. cls
  81. if water >= 20:'Tea in you no longer climbs.'
  82. if water < 20:
  83. 'You gladly drank a mug of tea.'
  84. set water += 20
  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. set health += 30
  97. set 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. '<center><img src="images/pics/food.jpg"></center>'
  114. set minut += 30
  115. set health += 10
  116. set manna += 20
  117. set edaD -= 1
  118. if energy >= 30:'You can no longer have.'
  119. if energy >= 20 and energy < 30:
  120. set energy += 10
  121. 'You pushed through the power of a meal.'
  122. end
  123. if energy < 20:
  124. set energy += 20
  125. 'You gladly ate cooked food.'
  126. end
  127. if water >= 20:'Tea in you no longer climbs.'
  128. if water < 20:
  129. 'You gladly drank a cup of tea.'
  130. set water += 20
  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. set fatdel -= 1
  141. set 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. set minut += 5
  154. lekarday = day
  155. lekarstvo -= 1
  156. sick -= sick * 20 / 100
  157. set lekrand = rand(0, 8)
  158. if lekrand = 0:'<center><img src="images/inBed/lekr1.jpg"></center>'
  159. if lekrand = 1:'<center><img src="images/inBed/lekr2.jpg"></center>'
  160. if lekrand = 2:'<center><img src="images/inBed/lekr3.jpg"></center>'
  161. if lekrand = 3:'<center><img src="images/inBed/lekr4.jpg"></center>'
  162. if lekrand = 4:'<center><img src="images/inBed/lekr5.jpg"></center>'
  163. if lekrand = 5:'<center><img src="images/inBed/lekr6.jpg"></center>'
  164. if lekrand = 6:'<center><img src="images/inBed/lekr7.jpg"></center>'
  165. if lekrand = 7:'<center><img src="images/inBed/lekr8.jpg"></center>'
  166. if lekrand = 8:'<center><img src="images/inBed/lekr9.jpg"></center>'
  167. 'You swallowed the pill'
  168. act 'move away':gt $curloc
  169. end
  170. end
  171. end
  172. if vitamin > 0:
  173. 'you <<vitamin>> vitaminok.'
  174. if vitaminday ! day:
  175. act 'Drink Vitamins (0:05)':
  176. cla
  177. *clr
  178. if fat > salo:fat = salo
  179. set minut += 5
  180. vitaminday = day
  181. vitamin -= 1
  182. frost = 0
  183. if KandidozOnce = 1:Kandidoz -= 2
  184. if GerpesOnce = 1:Gerpes -= 2
  185. if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)
  186. set skinvan += 1
  187. if skinvan = 20:set skinvan = 0 & set skin += 1
  188. 'You drank Vitams'
  189. act 'Move away':gt $curloc
  190. end
  191. end
  192. end
  193. --- kuhrPar ---------------------------------