mod_wlife_hotelroom.qsrc 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514
  1. # mod_wlife_hotelroom
  2. CLOSE ALL
  3. if $ARGS[0] = 'start':
  4. *clr & cla
  5. $location_type = 'private'
  6. $locM_arg = 'start'
  7. $locM = 'mod_wlife_hotelroom'
  8. $loc_arg = 'start'
  9. $loc = 'mod_wlife_hotelroom'
  10. $prevloc = 'HotelRoom'
  11. $menu_loc = 'mod_wlife_hotelroom'
  12. $menu_arg = 'start'
  13. menu_off = 0
  14. gs 'themes', 'indoors'
  15. gs 'stat'
  16. '<center><b><font color = maroon>Your hotel room</font></b></center>'
  17. '<center><img <<$set_imgh>> src="mod/wlife/images/locations/hotelroom/room.jpg"></center>'
  18. 'Your hotel room is not very large, but it has everything you need and is quite stylish. The large <a href="exec:gt ''bed2''">double bed</a> takes up most of the room. Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> stands on the bedside table. A <a href="exec:gt ''mod_wlife_hotelroom'',''safe''">safe</a> is at the bottom of a modern <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> which stands near the entrance of the room where you can <a href="exec: $wloc = iif($wloc!'''',$wloc,''default1'') & gt ''wardrobe'',$wloc ">choose outfits</a> and organize your clothes.'
  19. *nl
  20. 'Next to the wardrobe is a small <a href="exec:gt ''mod_wlife_hotelroom'', ''desk''">desk</a> and a huge <a href="exec:gt ''mirror'',''start''">mirror</a> mirror hangs in the small hallway. The door to the <a href="exec: minut += 1 & gt ''mod_wlife_hotelroom'',''bathroom''">bathroom</a> is to the right.'
  21. *nl
  22. 'Your hotel room also has <a href="exec:gt ''mod_wlife_hotelroom'',''beverage_tray''">tray</a> with beverages and a <a href="exec:gt ''mod_wlife_hotelroom'',''tv''">TV</a> is mounted on the wall.'+iif(komp = 1, ' Your <a href="exec: gt ''Komp'',''start''">laptop</a> is on the desk. The hotel offers all guests free Wi-Fi.', '')
  23. if wl_status['hotel_bill'] > 0:
  24. *nl
  25. 'This week your bill amounts to <<wl_status[''hotel_bill'']>> <b>₽</b>. It will be debited from your bank account on Monday. If you don''t have enough money in your account it will be added to your debt.'
  26. end
  27. act 'Leave the hotel':
  28. if $clothingworntype ! 'nude':
  29. minut += 2
  30. gt 'pav_market'
  31. else
  32. msg '<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
  33. gt 'mod_wlife_hotelroom', 'start'
  34. end
  35. end
  36. act'Go to the hotel lobby':
  37. if $clothingworntype ! 'nude':
  38. gt 'pav_hotel'
  39. else
  40. msg '<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
  41. gt 'mod_wlife_hotelroom', 'start'
  42. end
  43. end
  44. act 'Order room service':
  45. *clr & cla
  46. killvar '$_drink'
  47. killvar '$_eat'
  48. menu_off = 1
  49. gs 'stat'
  50. '<center><img <<$set_imgh>> src="mod/wlife/images/locations/hotelroom/roomservice.jpg"></center>'
  51. gs 'mod_wlife_hotelroom', 'roomservice_items'
  52. gs 'food_menu', 'mod'
  53. end
  54. gs 'mod_wlife_functions', 'cocaine'
  55. if joint > 0 and wl_drugs['timer_hotelroom'] ! daystart:
  56. act 'Smoke a joint (0:15)':
  57. *clr & cla
  58. menu_off = 1
  59. minut += 15
  60. wl_drugs['timer_hotelroom'] = daystart
  61. '<center><img <<$set_imgh>> src="mod/wlife/images/player/joint_smoking_inside.jpg"></center>'
  62. 'You lie down on your bed, prepare a joint and light it up. Not before long you''re starting to feel the relaxing effects'+iif(wl_stats['acceptance'] < 20, ' wash away the anxiety about your job.', ' as you''re getting high.')
  63. gs 'mod_wlife_functions', 'weed_check'
  64. gs 'stat'
  65. act 'Continue': gt 'mod_wlife_hotelroom', 'start'
  66. end
  67. end
  68. *nl
  69. gs 'exercise', 'start'
  70. gs 'mod_wlife_hotelroom', 'music'
  71. end
  72. if $ARGS[0] = 'roomservice_items':
  73. $_eat['0,name'] = 'Vegetarian Piroshki'
  74. $_eat['0,type'] = 'pirosh'
  75. $_eat['0,price'] = 100
  76. $_eat['1,name'] = 'Herring Blini'
  77. $_eat['1,type'] = 'bliny'
  78. $_eat['1,price'] = 190
  79. $_eat['2,name'] = 'Golubtsy'
  80. $_eat['2,type'] = 'golub'
  81. $_eat['2,price'] = 210
  82. $_eat['3,name'] = 'Pozharsky Cutlets'
  83. $_eat['3,type'] = 'pozhar'
  84. $_eat['3,price'] = 290
  85. $_eat['4,name'] = 'Rueben Sandwich'
  86. $_eat['4,type'] = 'reuben'
  87. $_eat['4,price'] = 340
  88. $_drink['0,name'] = 'Beer on tap'
  89. $_drink['0,type'] = 'bev_bee'
  90. $_drink['0,price'] = 60
  91. $_drink['1,name'] = 'Vodka'
  92. $_drink['1,type'] = 'bev_vod'
  93. $_drink['1,price'] = 120
  94. $_drink['2,name'] = 'Scotch'
  95. $_drink['2,type'] = 'bev_sco'
  96. $_drink['2,price'] = 140
  97. $_drink['3,name'] = 'Glass of Wine'
  98. $_drink['3,type'] = 'bev_win'
  99. $_drink['3,price'] = 160
  100. $_drink['4,name'] = 'Black Russian'
  101. $_drink['4,type'] = 'bev_bla'
  102. $_drink['4,price'] = 250
  103. end
  104. if $ARGS[0] = 'safe':
  105. *clr & cla
  106. $loc_arg = 'safe'
  107. $menu_arg = 'safe'
  108. menu_off = 0
  109. gs 'stat'
  110. '<center><img <<$set_imgh>> src="mod/wlife/images/locations/hotelroom/safe.jpg"></center>'
  111. 'You can store money in the hotel safe.'+iif(wl_status['money_safe'] > 0, ' There are <<wl_status[''money_safe'']>> <b>₽</b> inside the safe.', '')
  112. act 'Close the safe': gt 'mod_wlife_hotelroom', 'start'
  113. if money > 0:
  114. act 'Put some money in the safe':
  115. cla
  116. minut += 1
  117. menu_off = 1
  118. gs 'stat'
  119. wl_temp = input ("How much money do you want to put into the safe? (Your purse contains <<money>> <b>₽</b>.)")
  120. if wl_temp <= 0 or wl_temp > money:
  121. 'You can''t put this amount into the drawer.'
  122. else
  123. wl_status['money_safe'] += wl_temp
  124. money -= wl_temp
  125. end
  126. killvar 'wl_temp'
  127. gt 'mod_wlife_hotelroom', 'safe'
  128. end
  129. end
  130. if wl_status['money_safe']> 0:
  131. act 'Take some money from the safe':
  132. cla
  133. minut += 1
  134. menu_off = 1
  135. gs 'stat'
  136. wl_temp = input ("How much money do you want to take from the safe? (There is <<wl_status['money_safe']>> <b>₽</b> in the safe.)")
  137. if wl_temp <= 0 or wl_temp > wl_status['money_safe']:
  138. 'You can''t take this amount from your drawer.'
  139. else
  140. wl_status['money_safe'] -= wl_temp
  141. money += wl_temp
  142. end
  143. killvar 'wl_temp'
  144. gt 'mod_wlife_hotelroom', 'safe'
  145. end
  146. end
  147. end
  148. if $ARGS[0] = 'desk':
  149. *clr & cla
  150. $loc_arg = 'desk'
  151. $menu_arg = 'desk'
  152. menu_off = 0
  153. gs'stat'
  154. '<center><h1>Desk</h1></center>'
  155. '<center><img <<$set_imgh>> src="mod/wlife/images/locations/hotelroom/room.jpg"></center>'
  156. 'You sit down at the desk.'
  157. if mentats_have > 0: '<a href="exec:dynamic $use_mentats & gt ''mod_wlife_hotelroom'', ''desk''"><b>Take neurobooster pill.</b></a> Uses left: <<mentats_have>>. Warning on the box says not to take more than one per day.'
  158. if steroid_have > 0: '<a href="exec:dynamic $use_steroids & gt ''mod_wlife_hotelroom'', ''desk''"><b>Take steroids.</b></a> Uses left: <<steroid_have>>.'
  159. if aphrodisiac_have > 0: '<a href="exec:dynamic $use_aphrodisiac & gt ''mod_wlife_hotelroom'', ''desk''"><b>Chew aphrodisiac gum.</b></a> Uses left: <<aphrodisiac_have>>.'
  160. act 'Get up': gt 'mod_wlife_hotelroom', 'start'
  161. act 'Check your birth control': gt 'mod_wlife_hotelroom', 'birth_control'
  162. if strapon = 1:
  163. if dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo > 0:
  164. act 'Check out your strapon harness': gt 'mod_wlife_hotelroom', 'strapon'
  165. else
  166. act 'Check out your strapon harness': '<br>You don''t have any dildos to attach to your strapon harness'
  167. end
  168. end
  169. if SchoolAtestat = 0 and SchoolBlock = 0:
  170. gs 'willpower', 'misc', 'self', iif(grupTipe = 4 and traits['nerd_status'] = 0, 'hard', iif(traits['nerd_status'] > 0, 'easy', 'medium'))
  171. if traits['nerd_status'] = 2: will_cost = will_cost / 2
  172. if lernHome > 0 and (will_cost <= pcs_willpwr or traits['nerd_status'] = 3):
  173. '<br>You have to your homework. Finishing everything will take <<lernHome>> hours.'
  174. act 'Do your homework (1:00'+iif(traits['nerd_status'] = 3, '', ' and <<will_cost>> Willpower')+')':
  175. cla & *clr
  176. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/homework.jpg"></center>'
  177. minut += 60
  178. pcs_mood += 5 * traits['nerd_status']
  179. lernHome -= 1
  180. lern += 1
  181. gs 'willpower', 'misc', 'self', iif(grupTipe = 4, 'hard', iif(traits['nerd_status'] > 0, 'easy', 'medium'))
  182. if traits['nerd_status'] = 2: will_cost = will_cost / 2
  183. if traits['nerd_status'] < 3: gs 'willpower', 'pay', 'self'
  184. gs'stat'
  185. 'It took you one hour to '+iif(lernHome = 0, 'complete', 'do a part of')+' your homework.'
  186. act 'Continue': gt 'mod_wlife_hotelroom', 'desk'
  187. end
  188. elseif lernHome > 0 and will_cost > pcs_willpwr:
  189. act 'Do your homework (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  190. end
  191. will_cost = will_cost * lernHome
  192. if lernHome > 1 and (will_cost <= pcs_willpwr or traits['nerd_status'] = 3):
  193. act 'Finish all of your homework (<<lernHome>>:00'+iif(traits['nerd_status'] = 3, '', ' and <<will_cost>> Willpower')+')':
  194. cla & *clr
  195. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/homework.jpg"></center>'
  196. 'It took you <<lernHome>> hours to complete your homework.'
  197. minut += 60 * lernHome
  198. pcs_mood += 5 * traits['nerd_status'] *lernHome
  199. lern += 1 + lernHome/2
  200. lernHome = 0
  201. if traits['nerd_status'] < 3: gs 'willpower', 'pay', 'self'
  202. gs'stat'
  203. act 'Continue': gt 'mod_wlife_hotelroom', 'desk'
  204. end
  205. elseif lernHome > 1 and will_cost > pcs_willpwr:
  206. act 'Finish all of your homework (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  207. end
  208. end
  209. end
  210. if $ARGS[0] = 'strapon':
  211. *clr & cla
  212. $loc_arg = 'strapon'
  213. $menu_arg = 'strapon'
  214. menu_off = 0
  215. gs'stat'
  216. '<center><h1>Desk</h1></center>'
  217. '<center><img <<$set_imgh>> src="mod/wlife/images/locations/hotelroom/room.jpg"></center>'
  218. if strapnumber = 0: 'Your strapon harness doesn''t have a dildo attached to it.'
  219. *nl
  220. if dildo = 1: iif(strapnumber = 1, 'Your 10cm dildo is attached to your strapon harness.', '<a href="exec:strapnumber = 1 & gt ''mod_wlife_hotelroom'', ''strapon''">Attach</a> your 10cm long dildo.')
  221. if middildo = 1: iif(strapnumber = 2, 'Your 15cm dildo is attached to your strapon harness.','<a href="exec:strapnumber = 2 & gt ''mod_wlife_hotelroom'', ''strapon''">Attach</a> your 15cm long dildo.')
  222. if largedildo = 1: iif(strapnumber = 3, 'Your 20cm dildo is attached to your strapon harness.','<a href="exec:strapnumber = 3 & gt ''mod_wlife_hotelroom'', ''strapon''">Attach</a> your 20cm long dildo.')
  223. if bigdildo = 1: iif(strapnumber = 4, 'Your 25cm dildo is attached to your strapon harness.','<a href="exec:strapnumber = 4 & gt ''mod_wlife_hotelroom'', ''strapon''">Attach</a> your 25cm long dildo.')
  224. if extradildo = 1: iif(strapnumber = 5, 'Your 30cm dildo is attached to your strapon harness.','<a href="exec:strapnumber = 5 & gt ''mod_wlife_hotelroom'', ''strapon''">Attach</a> your 30cm long dildo.')
  225. if superdildo = 1: iif(strapnumber = 6, 'Your 35cm dildo is attached to your strapon harness.','<a href="exec:strapnumber = 6 & gt ''mod_wlife_hotelroom'', ''strapon''">Attach</a> your 35cm long dildo.')
  226. if maddildo = 1: iif(strapnumber = 7, 'Your 40cm dildo is attached to your strapon harness.','<a href="exec:strapnumber = 7 & gt ''mod_wlife_hotelroom'', ''strapon''">Attach</a> your 40cm long dildo.')
  227. act 'Put your strapon harness away': gt 'mod_wlife_hotelroom', 'desk'
  228. end
  229. if $ARGS[0] = 'birth_control':
  230. *clr & cla
  231. $loc_arg = 'birth_control'
  232. $menu_arg = 'birth_control'
  233. menu_off = 0
  234. gs'stat'
  235. gs 'din_bad'
  236. '<center><h1>Desk</h1></center>'
  237. '<center><img <<$set_imgh>> src="mod/wlife/images/locations/hotelroom/room.jpg"></center>'
  238. 'You store your birth control in one of the drawers of your desk.'
  239. act 'Close the drawer':gt 'mod_wlife_hotelroom', 'desk'
  240. if prezik + prezikcount + preziksabo > 0:
  241. if preziktype = 2 or preziksabo > 0:
  242. 'You have <<iif(preziktype = 2, prezikcount, prezikcount+prezik)>> normal, and <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged <a href="exec:dynamic $din_Table_Condom_Menu"><b>condoms.</b></a>'
  243. elseif preziktype < 2 and preziksabo = 0:
  244. 'You have <<prezik+prezikcount>> <a href="exec:dynamic $din_Table_Condom_Menu"><b>condoms.</b></a>'
  245. end
  246. *nl
  247. else
  248. 'You are out of condoms.'
  249. end
  250. if tabletki > 0 and pillsleft[ptype] > 0:
  251. 'You have <<tabletki>> unopened packages of <a href="exec:dynamic $d_tabletkiedt">birth control pills</a> and <<pillsleft[ptype]>> pills left in your opened package.</b>'
  252. elseif tabletki = 0 and pillsleft[ptype] > 0:
  253. 'You have <<pillsleft[ptype]>> <a href="exec:dynamic $d_tabletkiedt">birth control pills</a> left.</b>'
  254. elseif tabletki > 0 and pillsleft[ptype] = 0:
  255. 'You have <<tabletki>> unopened packages of <a href="exec:dynamic $d_tabletkiedt">birth control pills</a>.'
  256. else
  257. 'You are out of birth control pills.'
  258. end
  259. end
  260. if $ARGS[0] = 'beverage_tray':
  261. *clr & cla
  262. $loc_arg = 'beverage_tray'
  263. $menu_arg = 'beverage_tray'
  264. menu_off = 0
  265. gs'stat'
  266. '<center><img <<$set_imgh>> src="mod/wlife/images/locations/hotelroom/beverage_tray_'+iif(wl_status['coffee_maker'] < 2, 0, 1)+'.jpg"></center>'
  267. 'On the tray is is a small selection of different types of tea and an electric kettle to boil water.'+iif(wl_status['coffee_maker'] < 2, '', ' Your coffee maker stands next to it. You have '+iif(wl_status['coffee'] = 0, 'no pods left.', 'pods for <<wl_status[''coffee'']>> cups of coffee.'))
  268. if wl_status['coffee_maker'] = 0:
  269. wl_status['coffee_maker'] = 1
  270. msg 'There is enough space next to the tray for a coffee maker. The shop sells coffee makers and pods if you like coffee.'
  271. end
  272. act 'Step back from the tray': gt 'mod_wlife_hotelroom', 'start'
  273. dynamic $driwater
  274. if wl_status['coffee'] > 0: act 'Have a coffee (0:10)': gt 'mod_wlife_hotelroom', 'coffee'
  275. dynamic $dritea
  276. dynamic $fill_bottle
  277. dynamic $fatdel
  278. dynamic $lekarstvo
  279. dynamic $vitamin
  280. end
  281. if $ARGS[0] = 'coffee':
  282. *clr & cla
  283. frost = 0
  284. if alko > 0: alko -= 1
  285. minut += 10
  286. wl_status['coffee'] -= 1
  287. pcs_health += 5
  288. pcs_mood += 20
  289. pcs_energy += 20
  290. if pcs_hydra >= 100:
  291. pcs_hydra += 20
  292. else
  293. pcs_hydra += 40
  294. end
  295. cumspclnt = 2
  296. gs 'cum_cleanup'
  297. pcs_breath = 0
  298. gs 'beverage', 'afterdrink'
  299. '<center><img <<$set_imgh>> src="mod/wlife/images/locations/hotelroom/coffee.jpg"></center>'
  300. 'You enjoy a hot coffee, and<<$mtxt>>'
  301. gs 'stat'
  302. killvar '$_drink'
  303. act 'Finish': gt 'mod_wlife_hotelroom', 'beverage_tray'
  304. end
  305. if $ARGS[0] = 'bathroom':
  306. *clr & cla
  307. $locM_arg = 'bathroom'
  308. $locM = 'mod_wlife_hotelroom'
  309. $loc_arg = 'bathroom'
  310. $loc = 'mod_wlife_hotelroom'
  311. $menu_arg = 'bathroom'
  312. $location_type = 'bathroom'
  313. hotelShampoo = 10
  314. gs 'themes', 'indoors'
  315. gs'stat'
  316. '<center><b><font color = maroon>Bathroom</font></b></center>'
  317. '<center><img <<$set_imgh>> src="mod/wlife/images/locations/hotelroom/bathroom.jpg"></center>'
  318. 'A small and unpretentious bathroom, that is nevertheless quite stylish and has everything you need.'
  319. act 'Leave the bathroom': hotelShampoo = 0 & gt 'mod_wlife_hotelroom', 'start'
  320. gs 'din_van', 'private', 'hotelroom', 'bath'
  321. end
  322. if $ARGS[0] = 'tv':
  323. *clr & cla
  324. menu_off = 1
  325. gs'stat'
  326. '<center><img <<$set_imgh>> src="mod/wlife/images/player/watch_tv.jpg"></center>'
  327. 'You turn on the TV and make yourself comfortable on the bed.'
  328. act 'Get up from the bed': gt 'mod_wlife_hotelroom', 'start'
  329. act 'Watch TV (1:00)': gt 'mod_wlife_hotelroom', 'watch_tv'
  330. end
  331. if $ARGS[0] = 'watch_tv':
  332. *clr & cla
  333. minut += 60
  334. pcs_mood += rand(10,20)
  335. gs'stat'
  336. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv0,'+rand(0,4)+'.jpg"></center>'
  337. 'You are watching the country''s main television channel. None of their programs are really worth watching, but the distraction is welcome anyway.'
  338. act 'Get up from the bed': gt 'mod_wlife_hotelroom', 'start'
  339. act 'Watch TV (1:00)': gt 'mod_wlife_hotelroom', 'watch_tv'
  340. end
  341. if $ARGS[0] = 'music':
  342. if ml_guitar['carried'] = 1:
  343. act 'Place the guitar next to your desk':
  344. ml_guitar['carried'] = 0
  345. gt 'mod_wlife_hotelroom', 'start'
  346. end
  347. elseif ml_guitar['hasguitar'] and ml_guitar['carried'] = 0:
  348. act 'Pick up the guitar':
  349. ml_guitar['carried'] = 1
  350. gt 'mod_wlife_hotelroom', 'start'
  351. end
  352. end
  353. if ml_online['account'] = 0 and internet > 0: act 'Set up an online music account (0:30)': gt 'music_onlinemusic', 'setupAccount'
  354. !!Uploading recorded music if there are any not uploaded yet
  355. if ml_uploadablemusic > 0 and internet > 0 and ml_online['account'] = 1:
  356. if pcs_inhib < 30:
  357. if pcs_inhib < 10:
  358. $diff = 'hard'
  359. elseif pcs_inhib < 20:
  360. $diff = 'medium'
  361. else
  362. $diff = 'easy'
  363. end
  364. gs 'willpower', 'skill', 'self', $diff
  365. will_cost = (will_cost * 2) - (pcs_perform)
  366. if will_cost <= pcs_willpwr:
  367. act 'Upload music (<<will_cost>> Willpower)': gt 'music_onlinemusic', 'uploadmusic'
  368. else
  369. 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>'
  370. end
  371. end
  372. act 'Upload music': gt 'music_onlinemusic', 'uploadallmusic'
  373. end
  374. if ml_uploadablemusic > 0:
  375. act 'Delete old recordings': gt 'music_onlinemusic', 'deleteoldmusic'
  376. end
  377. if hour > 8 and hour < 22:
  378. if ml_guitar['hasguitar'] = 1:
  379. act 'Play something on the guitar (10 minutes)':
  380. mood += 10
  381. 'You pick up your guitar and start to play some songs you know, just for your own entertainment.'
  382. '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.'
  383. end
  384. end
  385. 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'] and alko < 5: act 'Practice guitar (0:30)': gt 'music_bedroomPractice', 'guitar'
  386. !! Streaming music
  387. if ml_guitar['hasguitar'] = 1 and ml_online['account'] = 1 and internet > 0 and ml_performance['performed_minutes'] < ml_performance['max_perform_minutes'] and ml_performance['max_perform_minutes'] >= 15 and alko < 5 and ml_streaming['lastday'] ! daystart:
  388. ml_streamtime = min((ml_performance['max_perform_minutes']-ml_performance['performed_minutes']), 60)
  389. if pcs_inhib < 30:
  390. if pcs_inhib < 10:
  391. $diff = 'hard'
  392. elseif pcs_inhib < 20:
  393. $diff = 'medium'
  394. else
  395. $diff = 'easy'
  396. end
  397. gs 'willpower', 'skill', 'self', $diff
  398. will_cost = (will_cost * 3) - (pcs_perform)
  399. if will_cost <= pcs_willpwr:
  400. act 'Live stream (<<ml_streamtime>> minutes) (<<will_cost>> Willpower)':
  401. inhib_exp += rand(1,3)
  402. gs 'willpower', 'pay', 'self'
  403. gt 'music_onlinemusic', 'liveStream'
  404. end
  405. else
  406. act 'Live stream (<<ml_streamtime>> minutes) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  407. end
  408. else
  409. act 'Live stream (<<ml_streamtime>> minutes)': gt 'music_onlinemusic', 'liveStream'
  410. end
  411. end
  412. !! Recording music
  413. if ml_guitar['hasguitar'] = 1 and ml_performance['performed_minutes'] < ml_performance['max_perform_minutes'] and alko < 5:
  414. if pcs_inhib < 20:
  415. if pcs_inhib < 10:
  416. $diff = 'medium'
  417. elseif pcs_inhib < 20:
  418. $diff = 'easy'
  419. end
  420. gs 'willpower', 'skill', 'self', $diff
  421. if will_cost <= pcs_willpwr:
  422. act 'Record a song with your phone (0:30) (<<will_cost>> Willpower)':
  423. inhib_exp += rand(1,2)
  424. gs 'willpower', 'pay', 'self'
  425. gt 'music_onlinemusic', 'recordSong'
  426. end
  427. if komp = 1 and webcamera = 1 and ml_studio['scarlet-3rd-gen'] = 1:
  428. act 'Record and edit a song (2:00) (<<will_cost>> Willpower)':
  429. inhib_exp += rand(1,2)
  430. gs 'willpower', 'pay', 'self'
  431. gt 'music_onlinemusic', 'recordAndEditSong'
  432. end
  433. end
  434. else
  435. 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>'
  436. 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>'
  437. end
  438. else
  439. act 'Record a song with your phone (0:30)': gt 'music_onlinemusic', 'recordSong'
  440. if komp = 1 and webcamera = 1 and ml_studio['scarlet-3rd-gen'] = 1:
  441. act 'Record and edit a song (2:00)': gt 'music_onlinemusic', 'recordAndEditSong'
  442. end
  443. end
  444. end
  445. end
  446. end
  447. --- mod_wlife_hotelroom ---------------------------------