1
0

ykuh 3.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171
  1. # ykuh
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. clr
  7. gs 'stat'
  8. '<center><b><font color="maroon">Mansion</font></b></center>'
  9. '<center>Kitchen</center>'
  10. if ymanrem[6] = 0:'<center><img src="images/etogame/ynill.jpg"></center>'
  11. if ymanrem[6] = 1:'<center><img src="images/etogame/yrem.jpg"></center>'
  12. if ymanrem[6] = 2:'<center><img src="images/etogame/ykun.jpg"></center>'
  13. if ymanrem[6] = 2:''
  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 there''s food, enough 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. act 'Leave the room':minut += 1 & gt 'ymans'
  41. if edahot > 0:'<a href="exec:dynamic $edahotd">On the table is a cooked meal.</a>'
  42. if pranik > 0:
  43. 'You have <<pranik>> cookies.'
  44. act 'Drink tea with cookies (0:05)':
  45. cla
  46. *clr
  47. minut += 5
  48. pranik -= 1
  49. health += 30
  50. manna += 100
  51. energy += 60
  52. water += 60
  53. cumspclnt = 2
  54. gs 'cum_cleanup'
  55. fbreath = 0
  56. fat += 4
  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. dynamic $edaD
  65. if fatdel > 0:
  66. act 'Consume fat burners':
  67. cla
  68. *clr
  69. fatdel -= 1
  70. fat -= 25
  71. if fat < 0:fat = 0
  72. 'You drank fat burning capsule. These capsules operate gradually and results will not be seen immediately.'
  73. act 'Get up from the table':gt $curloc
  74. end
  75. end
  76. act 'Drink':
  77. cla
  78. minut += 5
  79. if water >= 20:
  80. 'You are not thirsty.'
  81. elseif water < 20:
  82. water += 20
  83. cumspclnt = 2
  84. gs 'cum_cleanup'
  85. fbreath = 0
  86. 'You gladly drank a glass of water.'
  87. end
  88. act 'Get up from the table':gt $curloc
  89. end
  90. if husband > 0 and husbanday > 0 and huseatday ! daystart and eda >= 2:
  91. act 'Cook a meal for your husband, 2 servings (1:00)':
  92. cla
  93. *clr
  94. husband += 5
  95. eda -= 2
  96. minut += 60
  97. huseatday = daystart
  98. manna -= 25
  99. '<center><img src="images/pics/cook.jpg"></center>'
  100. 'You cooked some food for your husband.'
  101. act 'Put the food on the table':gt $curloc
  102. end
  103. end
  104. if lekarstvo > 0:
  105. 'You have <<lekarstvo>> tablets.'
  106. if sick > 0 and lekarday ! daystart:
  107. act 'Take a pill':
  108. cla
  109. *clr
  110. minut += 5
  111. lekarday = daystart
  112. lekarstvo -= 1
  113. sick -= sick * 20 / 100
  114. '<center><img src="images/inBed/lekr1.jpg"></center>'
  115. 'You took the pill'
  116. act 'Move away':gt $curloc
  117. end
  118. end
  119. end
  120. if vitamin > 0:
  121. 'You have <<vitamin>> vitamins.'
  122. if vitaminday ! daystart:
  123. act 'Take some vitamins':
  124. cla
  125. *clr
  126. minut += 5
  127. vitaminday = daystart
  128. vitamin -= 1
  129. frost = 0
  130. if KandidozOnce = 1:Kandidoz -= 2
  131. if GerpesOnce = 1:Gerpes -= 2
  132. if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)
  133. skinvan += 1
  134. 'You took vitamins'
  135. act 'Move away':gt $curloc
  136. end
  137. end
  138. end
  139. --- ykuh ---------------------------------