1
0

ykuh 5.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213
  1. # ykuh
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. '<center><b><font color="maroon">House</font></b></center>'
  7. '<center>Kitchen</center>'
  8. if ymanrem[6] = 0:'<center><img src="images/etogame/ynill.jpg"></center>'
  9. if ymanrem[6] = 1:'<center><img src="images/etogame/yrem.jpg"></center>'
  10. if ymanrem[6] = 2:'<center><img src="images/etogame/ykun.jpg"></center>'
  11. if ymanrem[6] = 2:''
  12. clr
  13. gs 'stat'
  14. if dirttarelka > 0 and fairy >= dirttarelka:
  15. cltarelka += dirttarelka
  16. fairy -= dirttarelka
  17. dirttarelka = 0
  18. 'Dishwasher washed your dirty dishes.'
  19. elseif fairy < dirttarelka:
  20. 'Tou have no more dishwashing detergent.'
  21. end
  22. if cltarelka > 0:
  23. 'In the cabinet you have <b><<cltarelka>></b> clean plates'
  24. else
  25. '<b><font color="red">You don´t have any clean plates left.</font></b>'
  26. end
  27. if dirttarelka > 0:'In the sink are <b><<dirttarelka>></b> dirty dishes. <a href="exec:dynamic $dirtarm">Wash the dishes</a>.'
  28. if fairy > 0:
  29. 'Under the sink is some dishwashing detergent, which is enough for <b><<fairy>></b> times.'
  30. else
  31. '<b><font color="red">You have nothing to wash dishes with. You should buy some dishwashing detergent.</font></b>'
  32. end
  33. if eda > 0:
  34. if cltarelka = 0 or edahot > 0:$edagot = ''
  35. if cltarelka > 0 and edahot = 0:$edagot = '<a href="exec:dynamic $edagotd">Cook meal (0:30)</a>'
  36. 'In the refrigerator is enough food for <b><<eda>></b> servings. <<$edagot>>'
  37. elseif edaD = 0 and eda = 0:
  38. '<b><font color="red">The fridge is empty, you have nothing to eat.</font></b>'
  39. end
  40. if edaD > 0:
  41. 'In the refrigerator is some healthy meals that´s good for <b><<edaD>></b> servings.'
  42. end
  43. act 'Leave the room':minut += 1 & gt 'ymans'
  44. if edahot > 0:'<a href="exec:dynamic $edahotd">On the table is a cooked meal (0:30).</a>'
  45. if pranik > 0:
  46. 'You have <<pranik>> cookies.'
  47. act 'Drink tea with cookies (0:15)':
  48. cla
  49. *clr
  50. minut += 15
  51. pranik -= 1
  52. set health += 30
  53. set manna += 100
  54. energy += 20
  55. water += 20
  56. fat += 50
  57. frost = 0
  58. gs 'stat'
  59. '<center><img src="images/pics/food.jpg"></center>'
  60. 'You drank tea with cookies, sweet and very bad for your figure, but so good.'
  61. act 'Get up from the table':gt $curloc
  62. end
  63. end
  64. if edaD > 0:
  65. act 'Cook some dietary food (0:30)':
  66. cla
  67. *clr
  68. frost = 0
  69. '<center><img src="images/pics/food.jpg"></center>'
  70. set minut += 30
  71. set health += 10
  72. set manna += 20
  73. set edaD -= 1
  74. if energy >= 30:'You are full.'
  75. if energy >= 20 and energy < 30:
  76. set energy += 10
  77. 'You are not hungry but you ate it anyway.'
  78. end
  79. if energy < 20:
  80. set energy += 20
  81. 'You gladly ate some cooked food.'
  82. end
  83. if water >= 20:'You don´t want to drink anymore.'
  84. if water < 20:
  85. 'You gladly drank a mug of tea.'
  86. set water += 20
  87. end
  88. act 'Get up from the table':gt $curloc
  89. end
  90. end
  91. if fatdel > 0:
  92. act 'Consume fat burners':
  93. cla
  94. *clr
  95. set fatdel -= 1
  96. set fat -= 25
  97. if fat < 0:fat = 0
  98. 'You drank fat burning capsule. These capsules operate gradually and results will not be seen immediately.'
  99. act 'Get up from the table':gt $curloc
  100. end
  101. end
  102. act 'Drink':
  103. cla
  104. set minut += 5
  105. if water >= 20:'You are not thirsty.'
  106. if water < 20:
  107. 'You gladly drank a glass of water.'
  108. set water += 20
  109. end
  110. act 'Get up from the table':gt $curloc
  111. end
  112. if husband > 0 and husbanday > 0 and huseatday ! day and eda >= 2:
  113. act 'Cook a meal for your husband, 2 servings (1:00)':
  114. cla
  115. *clr
  116. husband += 5
  117. set eda -= 2
  118. set minut += 60
  119. huseatday = day
  120. manna -= 25
  121. '<center><img src="images/pics/cook.jpg"></center>'
  122. 'You cooked some food for your husband.'
  123. act 'Put the food on the table':gt $curloc
  124. end
  125. end
  126. if lekarstvo > 0:
  127. 'You have <<lekarstvo>> tablets.'
  128. if sick > 0 and lekarday ! day:
  129. act 'Take a pill':
  130. cla
  131. *clr
  132. set minut += 5
  133. lekarday = day
  134. lekarstvo -= 1
  135. sick -= sick * 20/100
  136. set lekrand = rand(0, 8)
  137. if lekrand = 0:'<center><img src="images/inBed/lekr1.jpg"></center>'
  138. if lekrand = 1:'<center><img src="images/inBed/lekr2.jpg"></center>'
  139. if lekrand = 2:'<center><img src="images/inBed/lekr3.jpg"></center>'
  140. if lekrand = 3:'<center><img src="images/inBed/lekr4.jpg"></center>'
  141. if lekrand = 4:'<center><img src="images/inBed/lekr5.jpg"></center>'
  142. if lekrand = 5:'<center><img src="images/inBed/lekr6.jpg"></center>'
  143. if lekrand = 6:'<center><img src="images/inBed/lekr7.jpg"></center>'
  144. if lekrand = 7:'<center><img src="images/inBed/lekr8.jpg"></center>'
  145. if lekrand = 8:'<center><img src="images/inBed/lekr9.jpg"></center>'
  146. 'You took the pill'
  147. act 'Move away':gt $curloc
  148. end
  149. end
  150. end
  151. if vitamin > 0:
  152. 'You have <<vitamin>> vitamins.'
  153. if vitaminday ! day:
  154. act 'Take some vitamins':
  155. cla
  156. *clr
  157. set minut += 5
  158. vitaminday = day
  159. vitamin -= 1
  160. frost = 0
  161. if KandidozOnce = 1:Kandidoz -= 2
  162. if GerpesOnce = 1:Gerpes -= 2
  163. if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)
  164. set skinvan += 1
  165. if skinvan = 20:set skinvan = 0 & set skin += 1
  166. 'You took vitamins'
  167. act 'Move away':gt $curloc
  168. end
  169. end
  170. end
  171. --- ykuh ---------------------------------