dachain.qsrc 9.2 KB

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