1
0

ykuh.qsrc 3.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156
  1. # ykuh
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. clr
  5. gs 'stat'
  6. '<center><b><font color="maroon">Kitchen</font></b></center>'
  7. '<center>A well stacked kitchen containing all the necessities to make whatever meal you please.</center>'
  8. if ymanrem[6] = 0:'<center><img <<$set_imgh>> src="images/locations/city/suburb/mansion/ynill.jpg"></center>'
  9. if ymanrem[6] = 1:'<center><img <<$set_imgh>> src="images/locations/city/suburb/mansion/yrem.jpg"></center>'
  10. if ymanrem[6] = 2:'<center><img <<$set_imgh>> src="images/locations/city/suburb/mansion/ykun.jpg"></center>'
  11. if ymanrem[6] = 2:''
  12. if dirttarelka > 0 and fairy >= dirttarelka:
  13. cltarelka += dirttarelka
  14. fairy -= dirttarelka
  15. dirttarelka = 0
  16. 'You washed the dirty dishes in the dishwasher.'
  17. elseif fairy < dirttarelka:
  18. 'You can''t use the dishwasher. You have no detergent.'
  19. end
  20. if cltarelka > 0:
  21. 'You have <b><<cltarelka>></b> clean plates left.'
  22. else
  23. '<b><font color="red">You don''t have any clean plates left.</font></b>'
  24. end
  25. if dirttarelka > 0:'There are <b><<dirttarelka>></b> dirty dishes in the sink. <a href="exec:dynamic $dirtarm">Wash the dishes</a>.'
  26. if fairy > 0:
  27. 'Under the sink is some dishwashing detergent, which is enough for <b><<fairy>></b> times.'
  28. else
  29. '<b><font color="red">You have nothing to wash dishes with. You should buy some detergent.</font></b>'
  30. end
  31. if eda > 0:
  32. if cltarelka = 0 or edahot > 0:$edagot = ''
  33. if cltarelka > 0 and edahot = 0:$edagot = '<a href="exec:dynamic $edagotd">Cook a meal (0:30)</a>'
  34. 'There''s enough food for <b><<eda>></b> servings. <<$edagot>>'
  35. elseif edaD = 0 and eda = 0:
  36. '<b><font color="red">The fridge is empty, you have nothing to eat.</font></b>'
  37. end
  38. act 'Leave the room':minut += 1 & gt 'ymans'
  39. if edahot > 0:'<a href="exec:dynamic $edahotd">There''s a warm meal on the table.</a>'
  40. if pranik > 0:
  41. 'You have <<pranik>> tea biscuits.'
  42. act 'Drink tea with biscuits (0:05)':
  43. cla
  44. *clr
  45. minut += 5
  46. pranik -= 1
  47. pcs_health += 30
  48. pcs_mood += 20
  49. pcs_energy += 20
  50. pcs_hydra += 60
  51. cumspclnt = 2
  52. gs 'cum_cleanup'
  53. pcs_breath = 0
  54. fat += 4
  55. frost = 0
  56. gs 'stat'
  57. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  58. 'You drank tea with tea biscuits, it''s sweet and very bad for your figure, but they''re so good you can''t resist.'
  59. act 'Get up from the table':gt $curloc
  60. end
  61. end
  62. dynamic $edaD
  63. dynamic $fatdel
  64. act 'Drink':
  65. cla
  66. minut += 5
  67. if pcs_hydra >= 100:
  68. 'You are not thirsty.'
  69. elseif pcs_hydra < 80:
  70. pcs_hydra += 30
  71. cumspclnt = 2
  72. gs 'cum_cleanup'
  73. pcs_breath = 0
  74. 'You gladly drink a glass of water.'
  75. end
  76. act 'Get up from the table':gt $curloc
  77. end
  78. if husband > 0 and husbanday > 0 and huseatday ! daystart and eda >= 2:
  79. act 'Cook a meal for your husband, 2 servings (1:00)':
  80. cla
  81. *clr
  82. husband += 5
  83. eda -= 2
  84. minut += 60
  85. huseatday = daystart
  86. pcs_mood -= 15
  87. '<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
  88. 'You made some delicious food for your husband.'
  89. act 'Put the food on the table':gt $curloc
  90. end
  91. end
  92. if lekarstvo > 0:
  93. if lekarstvo > 1:'You have <<lekarstvo>> pills left.' else 'You have one pill left.'
  94. if sick > 0 and lekarday ! daystart:
  95. act 'Take a pill':
  96. cla
  97. *clr
  98. minut += 5
  99. lekarday = daystart
  100. lekarstvo -= 1
  101. sick -= sick * 20 / 100
  102. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/lekr1.jpg"></center>'
  103. 'You took a pill.'
  104. act 'Move away':gt $curloc
  105. end
  106. end
  107. end
  108. if vitamin > 0:
  109. if vitamin > 1:'You have <<vitamin>> vitamin pills left.' else 'You have one vitamin pill left.'
  110. if vitaminday ! daystart:
  111. act 'Take a vitamin pill':
  112. cla
  113. *clr
  114. minut += 5
  115. vitaminday = daystart
  116. vitamin -= 1
  117. frost = 0
  118. if KandidozOnce = 1:Kandidoz -= 2
  119. if GerpesOnce = 1:Gerpes -= 2
  120. if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)
  121. pcs_skin += 1
  122. 'You took a vitamin pill.'
  123. act 'Move away':gt $curloc
  124. end
  125. end
  126. end
  127. --- ykuh ---------------------------------