dachain.qsrc 9.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271
  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. $loc_arg = ''
  10. $locM_arg = ''
  11. $menu_arg = ''
  12. menu_off = 0
  13. internetS = internet
  14. killvar '$locclass'
  15. *clr & cla
  16. gs 'stat'
  17. '<center><b><font color="maroon">Cottage</font></b></center>'
  18. if home_owned[3] = 2:
  19. '<center><img <<$set_imgh>> src="images/locations/suburban/cottage/dacharoom2.jpg"></center>'
  20. else
  21. '<center><img <<$set_imgh>> src="images/locations/suburban/cottage/dacharoom1.jpg"></center>'
  22. end
  23. 'Your favorite summer residence.'
  24. *nl
  25. '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>'
  26. *nl
  27. gs 'wardrobe', 'quickdress'
  28. *nl
  29. 'There is a sofa in front of the fireplace, a kitchen alcove opposite the bed and the door to the bathroom next to that.'
  30. *nl
  31. if stol = 0:$stol = 'an old wooden <a href="exec:gt ''stol'', ''start''">table</a>'
  32. if stol = 1:$stol = 'a new <a href="exec:gt ''stol'', ''start''">table</a>'
  33. 'In front of the window there is <<$stol>>.'
  34. *nl
  35. if komp = 1:'Your <a href="exec: gt ''Komp'',''start''">laptop</a> is on the table.'
  36. *nl
  37. 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.'
  38. if hour >= 6 and hour <= 20 and etoexhib = 12:'Leave in <a href="exec:gt ''etoexhib'', ''pos11''">garden in lingerie and robe.</a>'
  39. if hour >= 6 and hour <= 20 and etoexhib = 13 and temp ! daystart:'I wonder how to <a href="exec:gt ''etoexhib'', ''pos12''">garden</a>'
  40. !!-------------------------------------------------------------------------------------------------------------------------------------
  41. !!------------------------------------------------------- Music related actions come here ---------------------------------------------
  42. !!-------------------------------------------------------------------------------------------------------------------------------------
  43. !!Storing and picking up the guitar
  44. if ml_guitar['carried'] = 1:
  45. act 'Place the guitar next to your desk':
  46. ml_guitar['carried'] = 0
  47. $ml_guitar['location'] = $curloc
  48. gt 'dachain', ''
  49. end
  50. elseif ml_guitar['hasguitar'] and ml_guitar['carried'] = 0:
  51. act 'Pick up the guitar':
  52. ml_guitar['carried'] = 1
  53. $ml_guitar['location'] = ''
  54. gt 'dachain', ''
  55. end
  56. end
  57. if ml_guitar['hasguitar'] = 1:
  58. act 'Play something on the guitar (10 minutes)':
  59. pcs_mood += 10
  60. minut += 10
  61. gs 'stat'
  62. 'You pick up your guitar and start to play some songs you know, just for your own entertainment.'
  63. 'You hum along the tune, relaxing into the music, just enjoying it. When you look up a quarter of an hour passed and you are in a much better mood.'
  64. end
  65. end
  66. !!Guitar practice
  67. if ml_guitar['hasguitar'] = 1 and (ml_guitar['chordbook'] = 1 or ml_guitarlesson['lessoncount'] > 0) and ml_performance['performed_minutes'] <= ml_performance['max_perform_minutes']:
  68. act 'Practice guitar (0:30)': gt 'music_bedroomPractice', 'guitar'
  69. end
  70. if ml_online['account'] = 0 and internet > 0:
  71. act 'Set up an online music account (0:30)': gt 'music_onlinemusic', 'setupAccount'
  72. end
  73. !! Streaming music
  74. if ml_online['account'] = 1 and internet > 0 and ml_performance['performed_minutes'] <= ml_performance['max_perform_minutes']:
  75. if pcs_inhib < 30:
  76. if pcs_inhib < 10:
  77. $diff = 'hard'
  78. elseif pcs_inhib < 20:
  79. $diff = 'medium'
  80. else
  81. $diff = 'easy'
  82. end
  83. gs 'willpower', 'skill', 'self', $diff
  84. will_cost = (will_cost * 3) - (pcs_perform)
  85. if will_cost <= pcs_willpwr:
  86. act 'Live stream (1:00) (<<will_cost>> Willpower)':
  87. inhib_exp += rand(1,3)
  88. gs 'willpower', 'pay', 'self'
  89. gs 'stat'
  90. gt 'music_onlinemusic', 'liveStream'
  91. end
  92. else
  93. act 'Live stream (1:00) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  94. end
  95. else
  96. act 'Live stream (1:00)': gt 'music_onlinemusic', 'liveStream'
  97. end
  98. end
  99. !! Recording music
  100. if ml_performance['performed_minutes'] <= ml_performance['max_perform_minutes']:
  101. if pcs_inhib < 20:
  102. if pcs_inhib < 10:
  103. $diff = 'medium'
  104. elseif pcs_inhib < 20:
  105. $diff = 'easy'
  106. end
  107. gs 'willpower', 'skill', 'self', $diff
  108. if will_cost <= pcs_willpwr:
  109. act 'Record a song with your phone (0:30) (<<will_cost>> Willpower)':
  110. inhib_exp += rand(1,2)
  111. gs 'willpower', 'pay', 'self'
  112. gs 'stat'
  113. gt 'music_onlinemusic', 'recordSong'
  114. end
  115. if komp = 1 and webcamera = 1 and ml_studio['scarlet-3rd-gen'] = 1:
  116. act 'Record and edit a song (2:00) (<<will_cost>> Willpower)':
  117. inhib_exp += rand(1,2)
  118. gs 'willpower', 'pay', 'self'
  119. gs 'stat'
  120. gt 'music_onlinemusic', 'recordAndEditSong'
  121. end
  122. end
  123. else
  124. act 'Record a song (0:30) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  125. act 'Record and edit a song (1:30) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  126. end
  127. else
  128. act 'Record a song with your phone (0:30)': gt 'music_onlinemusic', 'recordSong'
  129. if komp = 1 and webcamera = 1 and ml_studio['scarlet-3rd-gen'] = 1:
  130. act 'Record and edit a song (2:00)': gt 'music_onlinemusic', 'recordAndEditSong'
  131. end
  132. end
  133. end
  134. !!Uploading recorded music if there are any not uploaded yet
  135. if ml_uploadablemusic > 0 and internet > 0 and ml_online['account'] = 1:
  136. if pcs_inhib < 30:
  137. if pcs_inhib < 10:
  138. $diff = 'hard'
  139. elseif pcs_inhib < 20:
  140. $diff = 'medium'
  141. else
  142. $diff = 'easy'
  143. end
  144. gs 'willpower', 'skill', 'self', $diff
  145. will_cost = (will_cost * 2) - (pcs_perform)
  146. if will_cost <= pcs_willpwr:
  147. act 'Upload music (<<will_cost>> Willpower)': gt 'music_onlinemusic', 'uploadmusic'
  148. else
  149. act 'Upload music (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  150. end
  151. end
  152. act 'Upload music': gt 'music_onlinemusic', 'uploadallmusic'
  153. end
  154. act 'Lie on the couch': gt 'divan', 'start'
  155. act 'Go to the kitchen alcove': gt 'dachain', 'dachakit'
  156. act 'Go to the Bathroom': gt 'dachain', 'dachavann'
  157. act 'Get in the bed': gt 'bed', 'start'
  158. act 'Go outside':
  159. if $clothingworntype ! 'nude':
  160. minut += 5 & gt 'dachamy'
  161. else
  162. msg'<b><font color = red>You can''t leave the house naked! You need to get dressed first.</font></b>'
  163. gt 'dachain'
  164. end
  165. end
  166. end
  167. if $args[0] = 'dachakit':
  168. $location_type = 'private'
  169. $loc_arg = 'dachakit'
  170. $locM_arg = 'dachakit'
  171. $menu_arg = 'dachakit'
  172. menu_off = 0
  173. $locclass = 'kitr'
  174. *clr & cla
  175. gs 'stat'
  176. '<center><b><font color="maroon">Cottage Kitchen</font></b></center>'
  177. if home_owned[3] = 2:
  178. '<center><img <<$set_imgh>> src="images/locations/suburban/cottage/dachakit2.jpg"></center>'
  179. else
  180. '<center><img <<$set_imgh>> src="images/locations/suburban/cottage/dachakit1.jpg"></center>'
  181. end
  182. if cltarelka > 0:
  183. '<b><<cltarelka>></b> clean plates are stored in the cupboard.'
  184. else
  185. '<b><font color="red">You have no clean dishes left.</font></b>'
  186. end
  187. if dirttarelka > 0:'<b><<dirttarelka>></b> dirty dishes are lying in the sink. <a href="exec:dynamic $dirtarm">Wash the dishes</a>.'
  188. if fairy > 0:
  189. 'Next to the sink is dishwashing liquid, enough for <b><<fairy>></b> uses.'
  190. else
  191. '<b><font color="red">You have nothing to wash dishes with, you need to buy dishwashing liquid.</font></b>'
  192. end
  193. if eda > 0:
  194. if cltarelka = 0 or edahot > 0:$edagot = ''
  195. if cltarelka > 0 and edahot = 0:$edagot = '<a href="exec:dynamic $edagotd">Cook meal (0:30)</a>'
  196. 'In the refrigerator there''s food, enough for <b><<eda>></b> servings. <<$edagot>>'
  197. end
  198. if edaD = 0 and eda = 0:'<b><font color="red">The refrigerator is empty, you have nothing to eat.</font></b>'
  199. if husband > 0 and husbandrink ! 10:
  200. if hour = 7 or hour = 17:'<a href="exec:gt ''husb'', ''start''">Your husband is eating at the table.</a>'
  201. end
  202. if pranik > 0:
  203. if pranik = 1:
  204. 'You only have one more portion of tea biscuits.'
  205. else
  206. 'You have enough tea biscuits for <b><<pranik>></b> more snacks.'
  207. end
  208. end
  209. act 'Go into the main room': gt 'dachain', ''
  210. if edahot > 0: act 'A cooked meal is on the table (0:30).': dynamic $edahotd
  211. act 'Have a snack (0:15)':gs 'food', 'snack'
  212. dynamic $sandwich
  213. dynamic $driwater
  214. dynamic $dritea
  215. dynamic $fill_bottle
  216. dynamic $edaD
  217. dynamic $pranik
  218. dynamic $fatdel
  219. dynamic $lekarstvo
  220. dynamic $vitamin
  221. end
  222. if $args[0] = 'dachavann':
  223. $loc_arg = 'dachavann'
  224. $locM_arg = 'dachavann'
  225. $menu_arg = 'dachavann'
  226. menu_off = 0
  227. $location_type = 'bathroom'
  228. killvar '$locclass'
  229. *clr & cla
  230. gs 'stat'
  231. '<center><b><font color="maroon">Cottage Bathroom</font></b></center>'
  232. if home_owned[3] = 2:
  233. '<center><img <<$set_imgh>> src="images/locations/suburban/cottage/dachavan2.jpg"></center>'
  234. else
  235. '<center><img <<$set_imgh>> src="images/locations/suburban/cottage/dachavan1.jpg"></center>'
  236. end
  237. gs 'din_van', 'private'
  238. act 'Go into the main room': gt 'dachain', ''
  239. end
  240. --- dachain ---------------------------------