ykuh.qsrc 4.0 KB

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