1
0

dachain.qsrc 4.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134
  1. # dachain
  2. $loc = 'dachain'
  3. $locM = 'dachain'
  4. $menu_loc = 'dachain'
  5. gs 'stat'
  6. gs 'themes', 'indoors'
  7. if $args[0] = '':
  8. $location_type = 'private'
  9. $metka = ''
  10. $metkaM = ''
  11. $menu_arg = ''
  12. menu_off = 0
  13. killvar '$locclass'
  14. *clr & cla
  15. gs 'stat'
  16. '<center><b><font color="maroon">Cottage</font></b></center>'
  17. if home_owned[3] = 2:
  18. '<center><img <<$set_imgh>> src="images/locations/suburban/cottage/dacharoom2.jpg"></center>'
  19. else
  20. '<center><img <<$set_imgh>> src="images/locations/suburban/cottage/dacharoom1.jpg"></center>'
  21. end
  22. 'Your favorite summer residence.'
  23. *nl
  24. 'There is a <a href="exec:gt ''bed'', ''start''">bed</a> against one wall. Next to it is a <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing). On the other side of the bed is a table and a <a href="exec:gt ''mirror'', ''start''">mirror</a>'
  25. *nl
  26. 'You can access your <a href="exec: quick_dress = 1 & gt ''wardrobe'', ''default''">default clothing</a> options directly.'
  27. *nl
  28. 'There is a sofa in front of the fireplace, a kitchen alcove opposite the bed and the door to the bathroom next to that.'
  29. *nl
  30. if hour >= 6 and hour <= 20 and etoexhib = 11:'Kopashatsya working in the garden, hmm ... maybe sometime <a href="exec:gt ''etoexhib'', ''pos10''">motivate</a> for them to work quicker and smarter.'
  31. if hour >= 6 and hour <= 20 and etoexhib = 12:'Leave in <a href="exec:gt ''etoexhib'', ''pos11''">garden in lingerie and robe.</a>'
  32. if hour >= 6 and hour <= 20 and etoexhib = 13 and temp ! daystart:'I wonder how to <a href="exec:gt ''etoexhib'', ''pos12''">garden</a>'
  33. act 'Lie on the couch': gt 'divan', 'start'
  34. act 'Go to the kitchen alcove': gt 'dachain', 'dachakit'
  35. act 'Go to the Bathroom': gt 'dachain', 'dachavann'
  36. act 'Get in the bed': gt 'bed', 'start'
  37. act 'Go outside':
  38. if $clothingworntype ! 'nude':
  39. minut += 5 & gt 'dachamy'
  40. else
  41. msg'<b><font color = red>You can''t leave the house naked! You need to get dressed first.</font></b>'
  42. gt 'dachain'
  43. end
  44. end
  45. end
  46. if $args[0] = 'dachakit':
  47. $location_type = 'private'
  48. $metka = 'dachakit'
  49. $metkaM = 'dachakit'
  50. $menu_arg = 'dachakit'
  51. menu_off = 0
  52. $locclass = 'kitr'
  53. *clr & cla
  54. gs 'stat'
  55. '<center><b><font color="maroon">Cottage Kitchen</font></b></center>'
  56. if home_owned[3] = 2:
  57. '<center><img <<$set_imgh>> src="images/locations/suburban/cottage/dachakit2.jpg"></center>'
  58. else
  59. '<center><img <<$set_imgh>> src="images/locations/suburban/cottage/dachakit1.jpg"></center>'
  60. end
  61. if cltarelka > 0:
  62. '<b><<cltarelka>></b> clean plates are stored in the cupboard.'
  63. else
  64. '<b><font color="red">You have no clean dishes left.</font></b>'
  65. end
  66. if dirttarelka > 0:'<b><<dirttarelka>></b> dirty dishes are lying in the sink. <a href="exec:dynamic $dirtarm">Wash the dishes</a>.'
  67. if fairy > 0:
  68. 'Next to the sink is dishwashing liquid, enough for <b><<fairy>></b> uses.'
  69. else
  70. '<b><font color="red">You have nothing to wash dishes with, you need to buy dishwashing liquid.</font></b>'
  71. end
  72. if eda > 0:
  73. if cltarelka = 0 or edahot > 0:$edagot = ''
  74. if cltarelka > 0 and edahot = 0:$edagot = '<a href="exec:dynamic $edagotd">Cook meal (0:30)</a>'
  75. 'In the refrigerator there''s food, enough for <b><<eda>></b> servings. <<$edagot>>'
  76. end
  77. if edaD = 0 and eda = 0:'<b><font color="red">The refrigerator is empty, you have nothing to eat.</font></b>'
  78. if edahot > 0: act 'A cooked meal is on the table (0:30).': dynamic $edahotd
  79. if husband > 0 and husbandrink ! 10:
  80. if hour = 7 or hour = 17:'<a href="exec:gt ''husb'', ''start''">Your husband is eating at the table.</a>'
  81. end
  82. if pranik > 0:
  83. if pranik = 1:
  84. 'You only have one more portion of tea biscuits.'
  85. else
  86. 'You have enough tea biscuits for <b><<pranik>></b> more snacks.'
  87. end
  88. dynamic $pranik
  89. end
  90. dynamic $edaD
  91. dynamic $fatdel
  92. dynamic $driwater
  93. dynamic $lekarstvo
  94. dynamic $vitamin
  95. act 'Go into the main room': gt 'dachain', ''
  96. act 'Go to the Bathroom': gt 'dachain', 'dachavann'
  97. end
  98. if $args[0] = 'dachavann':
  99. $metka = 'dachavann'
  100. $metkaM = 'dachavann'
  101. $menu_arg = 'dachavann'
  102. menu_off = 0
  103. $location_type = 'bathroom'
  104. killvar '$locclass'
  105. *clr & cla
  106. gs 'stat'
  107. '<center><b><font color="maroon">Cottage Bathroom</font></b></center>'
  108. if home_owned[3] = 2:
  109. '<center><img <<$set_imgh>> src="images/locations/suburban/cottage/dachavan2.jpg"></center>'
  110. else
  111. '<center><img <<$set_imgh>> src="images/locations/suburban/cottage/dachavan1.jpg"></center>'
  112. end
  113. gs 'din_van', 'private'
  114. act 'Go to the kitchen alcove': gt 'dachain', 'dachakit'
  115. act 'Go into the main room': gt 'dachain', ''
  116. end
  117. --- dachain ---------------------------------