mirror.qsrc 21 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607
  1. # mirror
  2. if $ARGS[0] = 'start':
  3. menu_off = 1
  4. *clr & cla
  5. $mirrorloc = 'mirror'
  6. gs 'stat' &! It should be here, because some of the strigs have to be initialized
  7. if player_avatar = 1:
  8. '<center><img <<$set_imgh>> src="images/avatar.jpg"></center>'
  9. else
  10. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  11. end
  12. if autohairbrush = 1 and pcs_hairbsh = 0 : xgt 'mirror', 'brush'
  13. if mirror_steam ! hour: mirror_steam = 100
  14. if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan'and mirror_steam = hour: gt'mirror','steam'
  15. *nl
  16. if daystart < 10 and (StoryLine = 0 or (StoryLine = 1 and csb_start = 1)) and ntstart = 0:'In the mirror, you see a strange woman''s face looking back at you that exactly copies all your actions. You can hardly accept the idea that this is now you.'
  17. if daystart >= 10 and daystart < 30 and (StoryLine = 0 or (StoryLine = 1 and csb_start = 1)) and ntstart = 0:'In the mirror you see a woman''s face to which you have become accustomed to. But sometimes, you get the feel that this is not your face.'
  18. '<<$hair>>'
  19. '<<$pcs_makeup>>. Your<<$pcdesc_eyesizeinsertive>> eyes are <<$pcdesc_eyecolour>> <<$pcs_lashes>>, and you have <<$pcdesc_fulllipswordy>>.'
  20. '<<$skin>>'
  21. '<<$pcs_apprnc>>'
  22. if curly > 0 and defcurly = 0: '<br>Your curly hair will last for another <<curly>> days.'
  23. if straight > 0 and defcurly = 1: '<br>Your straightened hair will last for another <<straight>> days.'
  24. if hbraids > 0: '<br>Your braided hair will last for another <<hbraids>> days.'
  25. if pcs_haircol ! nathcol:
  26. if dyefade > 0 and dyefade < 7: '<br>Your hair dye is beginning to fade and your roots are showing.'
  27. if dyefade = 0: '<br>Your hair dye has faded and looks terrible.'
  28. end
  29. !!!!!!!! Maruda Hair Mod
  30. if hscrunch < 1:hscrunchw = 0
  31. if hpingrip < 1:hpingripw = 0
  32. if hscrunch < 2:hpigtail = 0
  33. if pcs_hairlng > 41 and hscrunch >= 1 and hbraids = 0:
  34. *nl
  35. if hscrunchw = 0 and hpingripw = 0: 'As you have a scrunchy, you can arrange your hair into a <a href="exec:hscrunchw = 1 & gs ''mirror'', ''start''">ponytail</a>. You have <<hscrunch>> scrunchies left.'
  36. if hscrunchw = 1: 'Remove the <a href="exec:hscrunchw = 0 & gs ''mirror'', ''start''">scrunchie</a> to get rid of the ponytail.'
  37. end
  38. if pcs_hairlng > 41 and hpingrip >= 1 and hbraids = 0:
  39. if hscrunchw = 0 and hpingripw = 0: 'You have several clips, pins and grips for you hair. Hence, you can <a href="exec:hpingripw = 1 & gs ''mirror'', ''start''">updo your hair</a>. You have <<hpingrip>> hair accessories at your disposal.'
  40. if hpingripw = 1: 'Let your hair <a href="exec:hpingripw = 0 & gs ''mirror'', ''start''">flow free</a>.'
  41. end
  42. if pcs_hairlng > 80 and hscrunch >= 2 and hbraids = 0:
  43. if hscrunchw = 0 and hpingripw = 0: 'You can use two hair ties to make yourself some <a href="exec:hpigtail = 1 & hscrunchw = 2 & gs ''mirror'', ''start''">pigtails</a>.'
  44. if hscrunchw = 2: '<a href="exec:hpigtail = 0 & hscrunchw = 0 & gs ''mirror'', ''start''">Remove</a> your scrunchies and let your hair flow free again.'
  45. end
  46. if canBraidHair = 1 and hscrunch >= 1 and hBraids = 0 and (pcs_hairlng > 80 and pcs_hairlng <= 800) and hscrunchw = 0 and hpingripw = 0 and hscrunchw = 0:
  47. 'You can spend half an hour <a href="exec:hbraids = 15 & minut += 30 & gs ''mirror'', ''start''">braiding</a> your hair, just the way your sister taught you.'
  48. end
  49. if hbraids > 0:
  50. 'Take half an hour removing your <a href="exec:hbraids = 0 & minut += 30 & gs ''mirror'', ''start''">braid</a>.'
  51. end
  52. !!!!!!!! Maruda Hair Mod
  53. if kosmetica > 0: *nl 'Cosmetics: <<kosmetica>>' else *nl 'You have no makeup.'
  54. if lipbalm > 0: *pl ' | Lip gloss: <<lipbalm>>' else *pl ' You have no lip gloss left.'
  55. if falselashesplain > 0: *nl 'False lashes: <<falselashesplain>>' else *nl 'You have no false lashes left.'
  56. if falselashesmink > 0: *pl ' | Mink lashes: <<falselashesmink>>' else *pl ' You have no mink lashes left.'
  57. *nl
  58. $makeupLight = 'You subtly apply some neutral tones, with a light application of makeup to bring out your natural beauty.'
  59. $makeupNatural = 'You apply some mildly vibrant tones and colors of makeup to cover your minor imperfections and enhance your best features.'
  60. $makeupHeavy = 'You apply some deeper, richer shades of makeup, thick enough to cover most imperfections, while drawing attention to your eyes and lips.'
  61. ! WD: Cheat Unused ~ 'AutoHapri'
  62. if pcs_hairbsh = 0 and AutoHapri = 1:
  63. minut += 3
  64. pcs_hairbsh = 1
  65. 'You brush your hair.'
  66. end
  67. !! WD: Cheat Unused ~ 'AutoMakeup'
  68. if pcs_makeup = 1 and kosmetica > 0 and AutoMakeup = 1:
  69. pcs_makeup = AutoMakeupType
  70. makupskl_exp += rand(1,3)
  71. if kosmetica < 3 and pcs_makeup = 4:pcs_makeup = 3
  72. if kosmetica < 2 and pcs_makeup = 3:pcs_makeup = 2
  73. if kosmetica < 1 and pcs_makeup ! 1:
  74. pcs_makeup = 1
  75. 'You have no make-up left.'
  76. else
  77. if pcs_makeup = 2:
  78. *pl $makeupLight
  79. minut -= 3
  80. kosmetica -= 1
  81. end
  82. if pcs_makeup = 3:
  83. *pl $makeupNatural
  84. minut -= 5
  85. kosmetica -= 2
  86. end
  87. if pcs_makeup = 4:
  88. *pl $makeupHeavy
  89. minut -= 10
  90. vidageday -= 1
  91. kosmetica -= 3
  92. end
  93. end
  94. end
  95. *nl
  96. if umbrella = 0: 'WARNING: Makeup will run in the rain unless you buy an umbrella.'
  97. act 'Move away from the mirror':gt 'mirror','fin'
  98. if pcs_hairbsh = 0: act 'Brush your hair': xgt 'mirror', 'brush'
  99. ! WD: Cheat Unused ~ 'AutoLipBalm'
  100. !! Added the makeup setting.
  101. if pcs_makeup = 1 and kosmetica > 0:
  102. act 'Apply makeup':
  103. *clr & cla
  104. '<center><img <<$set_imgh>> src="images/pc/mop.jpg"></center>'
  105. 'You consider for a moment which look you want to go for.'
  106. *nl
  107. act 'Change your mind': gt 'mirror', 'start'
  108. if kosmetica > 0:
  109. act 'Light make-up':
  110. cla
  111. minut += 3
  112. makupskl_exp += rand(1,3)
  113. kosmetica -= 1
  114. pcs_makeup = 2
  115. '<<$makeupLight>>'
  116. act 'Continue': gt 'mirror', 'start'
  117. end
  118. end
  119. if kosmetica > 1:
  120. act 'Vibrant make-up':
  121. cla
  122. minut += 5
  123. makupskl_exp += rand(1,3)
  124. kosmetica -= 2
  125. pcs_makeup = 3
  126. '<<$makeupNatural>>'
  127. act 'Continue': gt 'mirror', 'start'
  128. end
  129. end
  130. if kosmetica > 2:
  131. act 'Thick make-up':
  132. cla
  133. minut += 10
  134. makupskl_exp += rand(1,3)
  135. kosmetica -= 3
  136. vidageday -= 1
  137. pcs_makeup = 4
  138. '<<$makeupHeavy>>'
  139. act 'Continue': gt 'mirror', 'start'
  140. end
  141. end
  142. end
  143. elseif kosmetica <= 0:
  144. 'You don''t have any makeup to apply.'
  145. end
  146. if AutoLipBalm = 1: gs 'mirror','applyLipbalm'
  147. if lipbalm > 0 and pcs_lipbalm <= 0:
  148. act 'Apply lip balm':
  149. cla
  150. gs 'mirror','applyLipbalm'
  151. act 'View results':gt 'mirror', 'start'
  152. end
  153. end
  154. if falselashesplain > 0 and pcs_lashes < 3 and lashextensionstyle <= 0:
  155. act 'Apply false lashes':
  156. cla
  157. gs 'mirror','applyLashesplain'
  158. act 'View results':gt 'mirror', 'start'
  159. end
  160. end
  161. if falselashesmink > 0 and pcs_lashes < 4 and lashextensionstyle <= 0:
  162. act 'Apply mink lashes':
  163. cla
  164. gs 'mirror','applyLashesmink'
  165. act 'View results':gt 'mirror', 'start'
  166. end
  167. end
  168. ! if (pcs_makeup <= 1 and kosmetica > 0) or (lipbalm > 0 and pcs_lipbalm <= 0 and pcs_hairbsh = 0):
  169. ! act 'Do the works': gt 'mirror', 'works'
  170. ! end
  171. act 'Manage your custom make-up routines': dynamic $createcustroutine
  172. !!New makeup setting
  173. !!This imforms the person what makeup they have pre selected
  174. !! 0 - none, 1 - light, 2 - moderate, 3 - heavy
  175. ! 'Select level for auto make-up: <a href="exec:makeupSetting = 0 & gt ''mirror'', ''start''">none</a>, <a href="exec:makeupSetting = 1 & gt ''mirror'', ''start''">light</a>, <a href="exec:makeupSetting = 2 & gt ''mirror'', ''start''">vibrant</a>, <a href="exec:makeupSetting = 3 & gt ''mirror'', ''start''">thick</a>.'
  176. !
  177. ! if makeupSetting = 0:
  178. ! 'Currently you have no make-up set.'
  179. ! elseif makeupSetting = 1:
  180. ! 'Currently the level you have set is for light make-up.'
  181. ! elseif makeupSetting = 2:
  182. ! 'Currently the level you have set is for vibrant make-up.'
  183. ! elseif makeupSetting = 3:
  184. ! 'Currently the level you have set is for thick make-up.'
  185. ! end
  186. if $routine1 ! '':
  187. 'Make-up routine 1 is called ''<<$routine1custname>>'' and consists of : '
  188. if mid($routine1,1,1) = 0:'No make-up'
  189. if mid($routine1,1,1) = 1:'Light make-up'
  190. if mid($routine1,1,1) = 2:'Vibrant make-up'
  191. if mid($routine1,1,1) = 3:'Thick make-up'
  192. if mid($routine1,2,1) = 0:'No Lipbalm'
  193. if mid($routine1,2,1) = 1:'Lipbalm'
  194. if mid($routine1,3,1) = 0:'No fake lashes'
  195. if mid($routine1,3,1) = 1:'Normal fake lashes'
  196. if mid($routine1,3,1) = 2:'Mink fake lashes'
  197. ''
  198. end
  199. if $routine2 ! '':
  200. 'Make-up routine 2 is called ''<<$routine2custname>>'' and consists of : '
  201. if mid($routine2,1,1) = 0:'No make-up'
  202. if mid($routine2,1,1) = 1:'Light make-up'
  203. if mid($routine2,1,1) = 2:'Vibrant make-up'
  204. if mid($routine2,1,1) = 3:'Thick make-up'
  205. if mid($routine2,2,1) = 0:'No Lipbalm'
  206. if mid($routine2,2,1) = 1:'Lipbalm'
  207. if mid($routine2,3,1) = 0:'No fake lashes'
  208. if mid($routine2,3,1) = 1:'Normal fake lashes'
  209. if mid($routine2,3,1) = 2:'Mink fake lashes'
  210. ''
  211. end
  212. if $routine3 ! '':
  213. 'Make-up routine 3 is called ''<<$routine3custname>>'' and consists of : '
  214. if mid($routine3,1,1) = 0:'No make-up'
  215. if mid($routine3,1,1) = 1:'Light make-up'
  216. if mid($routine3,1,1) = 2:'Vibrant make-up'
  217. if mid($routine3,1,1) = 3:'Thick make-up'
  218. if mid($routine3,2,1) = 0:'No Lipbalm'
  219. if mid($routine3,2,1) = 1:'Lipbalm'
  220. if mid($routine3,3,1) = 0:'No fake lashes'
  221. if mid($routine3,3,1) = 1:'Normal fake lashes'
  222. if mid($routine3,3,1) = 2:'Mink fake lashes'
  223. ''
  224. end
  225. if $routine4 ! '':
  226. 'Make-up routine 4 is called ''<<$routine4custname>>'' and consists of : '
  227. if mid($routine4,1,1) = 0:'No make-up'
  228. if mid($routine4,1,1) = 1:'Light make-up'
  229. if mid($routine4,1,1) = 2:'Vibrant make-up'
  230. if mid($routine4,1,1) = 3:'Thick make-up'
  231. if mid($routine4,2,1) = 0:'No Lipbalm'
  232. if mid($routine4,2,1) = 1:'Lipbalm'
  233. if mid($routine4,3,1) = 0:'No fake lashes'
  234. if mid($routine4,3,1) = 1:'Normal fake lashes'
  235. if mid($routine4,3,1) = 2:'Mink fake lashes'
  236. ''
  237. end
  238. gs 'stat'
  239. end &! --- start ---
  240. $createcustroutine = {
  241. cls & cla
  242. 'Select make-up level'
  243. '<a href="exec:makeupSetting = 0 & dynamic $createcustroutine">none</a>, <a href="exec:makeupSetting = 1 & dynamic $createcustroutine">light</a>, <a href="exec:makeupSetting = 2 & dynamic $createcustroutine">vibrant</a>, <a href="exec:makeupSetting = 3 & dynamic $createcustroutine">thick</a>.'
  244. if makeupSetting = 0:
  245. 'Currently you have no make-up set.'
  246. elseif makeupSetting = 1:
  247. 'Currently the level you have set is for light make-up.'
  248. elseif makeupSetting = 2:
  249. 'Currently the level you have set is for vibrant make-up.'
  250. elseif makeupSetting = 3:
  251. 'Currently the level you have set is for thick make-up.'
  252. end
  253. 'Select other improvements :'
  254. if custlipbalm = 0:
  255. '<a href="exec:custlipbalm = 1 & dynamic $createcustroutine">No Lipbalm</a>'
  256. else
  257. '<a href="exec:custlipbalm = 0 & dynamic $createcustroutine">Lipbalm</a>'
  258. end
  259. if custlashes = 0:
  260. '<a href="exec:custlashes = 1 & dynamic $createcustroutine">No fake lashes</a>'
  261. elseif custlashes = 1:
  262. '<a href="exec:custlashes = 2 & dynamic $createcustroutine">Normal fake lashes</a>'
  263. else
  264. '<a href="exec:custlashes = 0 & dynamic $createcustroutine">Mink fake lashes</a>'
  265. end
  266. $routine = str(makeupSetting) + str(custlipbalm) + str(custlashes)
  267. act 'Exit':gt 'mirror','start'
  268. if $routine1 ! '':
  269. act 'Remove <<$routine1custname>>':
  270. killvar '$routine1'
  271. killvar '$routine1custname'
  272. dynamic $createcustroutine
  273. end
  274. act 'Rename <<$routine1custname>>':
  275. $routine1custname = input ("Name the routine")
  276. dynamic $createcustroutine
  277. end
  278. end
  279. if $routine2 ! '':
  280. act 'Remove <<$routine2custname>>':
  281. killvar '$routine2'
  282. killvar '$routine2custname'
  283. dynamic $createcustroutine
  284. end
  285. act 'Rename <<$routine2custname>>':
  286. $routine2custname = input ("Name the routine")
  287. dynamic $createcustroutine
  288. end
  289. end
  290. if $routine3 ! '':
  291. act 'Remove <<$routine3custname>>':
  292. killvar '$routine3'
  293. killvar '$routine3custname'
  294. dynamic $createcustroutine
  295. end
  296. act 'Rename <<$routine3custname>>':
  297. $routine3custname = input ("Name the routine")
  298. dynamic $createcustroutine
  299. end
  300. end
  301. if $routine4 ! '':
  302. act 'Remove <<$routine4custname>>':
  303. killvar '$routine4'
  304. killvar '$routine4custname'
  305. dynamic $createcustroutine
  306. end
  307. act 'Rename <<$routine4custname>>':
  308. $routine4custname = input ("Name the routine")
  309. dynamic $createcustroutine
  310. end
  311. end
  312. act 'Save routine':
  313. if $routine1 = '':
  314. $routine1 = $routine
  315. $routine1custname = 'routine 1'
  316. dynamic $createcustroutine
  317. elseif $routine2 = '':
  318. $routine2 = $routine
  319. $routine2custname = 'routine 2'
  320. dynamic $createcustroutine
  321. elseif $routine3 = '':
  322. $routine3 = $routine
  323. $routine3custname = 'routine 3'
  324. dynamic $createcustroutine
  325. elseif $routine4 = '':
  326. $routine4 = $routine
  327. $routine4custname = 'routine 4'
  328. dynamic $createcustroutine
  329. else
  330. 'max 4 routines allowed, please remove one before adding a new one'
  331. end
  332. end
  333. }
  334. if $ARGS[0] = 'steam':
  335. menu_off = 1
  336. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/mirror1.jpg"></center>'
  337. '<center>The mirror is heavily misted. It must be wiped or left to cool.</center>'
  338. gs 'stat'
  339. act 'Wipe the mirror':
  340. *clr & cla
  341. minut += 1
  342. mirror_steam = 100
  343. gs 'stat'
  344. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/mirror2.jpg"></center>'
  345. '<center>You wipe the mirror with a towel.</center>'
  346. act 'Look in the mirror':gt 'mirror','start'
  347. end
  348. act 'Move away from the mirror':gt 'mirror','fin'
  349. end
  350. if $routine1 ! '' and pcs_makeup < 2:
  351. if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan'and mirror_steam = hour:
  352. else
  353. act 'Apply <<$routine1custname>>':gt 'mirror','works',mid($routine1,1,1),mid($routine1,2,1),mid($routine1,3,1)
  354. end
  355. end
  356. if $routine2 ! '' and pcs_makeup < 2:
  357. if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan'and mirror_steam = hour:
  358. else
  359. act 'Apply <<$routine2custname>>':gt 'mirror','works',mid($routine2,1,1),mid($routine2,2,1),mid($routine2,3,1)
  360. end
  361. end
  362. if $routine3 ! '' and pcs_makeup < 2:
  363. if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan'and mirror_steam = hour:
  364. else
  365. act 'Apply <<$routine3custname>>':gt 'mirror','works',mid($routine3,1,1),mid($routine3,2,1),mid($routine3,3,1)
  366. end
  367. end
  368. if $routine4 ! '' and pcs_makeup < 2:
  369. if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan'and mirror_steam = hour:
  370. else
  371. act 'Apply <<$routine4custname>>':gt 'mirror','works',mid($routine4,1,1),mid($routine4,2,1),mid($routine4,3,1)
  372. end
  373. end
  374. if $ARGS[0] = 'brush':
  375. menu_off = 1
  376. *clr & cla
  377. minut += 3
  378. pcs_hairbsh = 1
  379. if player_avatar = 1:
  380. '<center><img <<$set_imgh>> src="images/avatar.jpg"></center>'
  381. else
  382. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  383. end
  384. 'You brush your hair.'
  385. if $mirrorloc = 'mirror':
  386. act 'Finish': gt 'mirror', 'start'
  387. else
  388. act 'Finish': gt 'mirror', 'fin'
  389. end
  390. end
  391. if $ARGS[0] = 'works':
  392. cla
  393. if kosmetica <= 0:
  394. 'You don''t have any makeup.'
  395. elseif pcs_makeup = 1 and kosmetica >= $ARGS[1]:
  396. *clr
  397. '<center><img <<$set_imgh>> src="images/pc/mop.jpg"></center>'
  398. *nl
  399. 'You consider for a moment which look you want to go for.'
  400. *nl
  401. if $ARGS[1] = 1:
  402. 'Without thinking, you instantly apply a subtle amount of makeup to your face.'
  403. minut += 3
  404. makupskl_exp += rand(1,3)
  405. kosmetica -= 1
  406. pcs_makeup = 2
  407. '<<$makeupLight>>'
  408. elseif $ARGS[1]= 2:
  409. 'Without thinking, you instantly apply a moderate amount of makeup to your face.'
  410. minut += 5
  411. makupskl_exp += rand(1,3)
  412. kosmetica -= 2
  413. pcs_makeup = 3
  414. '<<$makeupNatural>>'
  415. elseif $ARGS[1] = 3:
  416. 'Without thinking, you instantly apply a heavy amount of makeup to your face.'
  417. minut += 10
  418. makupskl_exp += rand(1,3)
  419. kosmetica -= 3
  420. vidageday -= 1
  421. pcs_makeup = 4
  422. '<<$makeupHeavy>>'
  423. end
  424. elseif kosmetica < $ARGS[1]:
  425. 'You don''t have enough makeup to apply your chosen option.'
  426. end
  427. if pcs_hairbsh = 0:
  428. minut += 3
  429. pcs_hairbsh = 1
  430. 'You brush your hair.'
  431. end
  432. if $ARGS[2] = 1:gs 'mirror','applyLipbalm'
  433. if $ARGS[3] = 2 and falselashesmink >= 1 and pcs_lashes < 4 and lashextensionstyle <= 0:gs 'mirror','applyLashesmink'
  434. if $ARGS[3] = 1 and falselashesplain >= 1 and pcs_lashes < 3 and lashextensionstyle <= 0:gs 'mirror','applyLashesplain'
  435. cla
  436. act 'View results':gt 'mirror', 'start'
  437. end &! --- works ----
  438. if $ARGS[0] = 'applyLipbalm':
  439. if lipbalm > 0 and pcs_lipbalm <= 0:
  440. minut += 1
  441. lipbalm -= 1
  442. lipkoef += rand(0, 1)
  443. if lipkoef > 50:
  444. lipkoef = 0
  445. pcs_lip += 1
  446. end
  447. pcs_lipbalm += 8
  448. 'You apply some moisturizing balm on your lips.'
  449. end
  450. end &! --- applyLipbalm ---
  451. if $ARGS[0] = 'applyLashesmink':
  452. if falselashesmink > 0 and pcs_lashes < 4:
  453. minut += 15
  454. falselashesmink -= 1
  455. if false_lashes >= 1 and pcs_lashes = 3:'You remove your old, plain lashes first.'
  456. false_lashes = 1
  457. pcs_lashes = 4
  458. 'You spend a good bit of time affixing your lavish, mink lash strips.'
  459. end
  460. end &! --- applyLashesmink ---
  461. if $ARGS[0] = 'applyLashesplain':
  462. if falselashesplain > 0 and pcs_lashes < 3:
  463. minut += 15
  464. falselashesplain -= 1
  465. false_lashes = 1
  466. pcs_lashes = 3
  467. 'You spend a fair bit of time carefully trimming and affixing your flirtatious false lashes.'
  468. end
  469. end &! --- applyLashesplain ---
  470. if $ARGS[0] = 'fin':
  471. killvar '$makeupLight'
  472. killvar '$makeupNatural'
  473. killvar '$makeupHeavy'
  474. killvar '$routine'
  475. killvar '$mirrorloc'
  476. menu_off = 0
  477. gt $locM, $metkaM
  478. end &! --- fin ----
  479. if $ARGS[0] = 'd_bag_mirror':
  480. *clr & cla
  481. gs 'stat'
  482. '<center><h1>Compact Mirror</h1></center>'
  483. '<center><img <<$set_imgh>> src="/images/pc/items/compact_mirror.jpg"></center>'
  484. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  485. '<td cellspacing="0" cellpadding="0" valign="top">'
  486. 'You have '+iif(kosmetitka > 0, '<b><<kosmetitka>></b>', 'no')+' cosmetic applications and '+iif(salfetka > 0, '<b><<salfetka>></b>', 'no')+' tissues left in your purse.'
  487. *nl
  488. if pcs_hairbsh = 0: '<a href="exec: pcs_hairbsh = 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''">Brush your hair</a>'
  489. if salfetka > 0 and pcs_makeup ! 1: '<center><a href="exec: salfetka -= 1 & pcs_makeup = 1 & gt ''mirror'', ''d_bag_mirror''"><b>Remove your makeup</b></a>'
  490. if kosmetitka > 0 and pcs_makeup = 1:
  491. '<a href="exec: minut += 3 & makupskl_exp += rand(1,3) & pcs_makeup = 2 & kosmetitka -= 1 & gt ''mirror'', ''d_bag_mirror''"><b>Put on light makeup</b></a>'
  492. !!Remove this coment and uncomment the next line to restore the ability to put on any typ of makeup
  493. !!'<center><a href="exec: gt ''mirror'', ''kosmetitka_apply'' "><b>Put on makeup</b></a></center>'
  494. elseif salfetka > 0 and pcs_makeup = 0 and ((makeupSetting = 1 and kosmetitka >= 1) or (makeupSetting = 2 and kosmetitka >= 2) or (makeupSetting = 3 and kosmetitka >= 3)):
  495. 'a href="exec: gt ''mirror'', ''kosmetitka_fix'' "><b>Fix your makeup</b></a>'
  496. elseif (kosmetitka = 0 or salfetka = 0) and pcs_makeup = 0:
  497. 'You need portable makeup and tissues to fix your makeup.'
  498. end
  499. '</td></tr></table></center>'
  500. act 'Finish': gt 'din_bad', 'd_bag'
  501. end
  502. if $ARGS[0] = 'kosmetitka_apply':
  503. *clr & cla
  504. '<center><h1>Compact Mirror</h1></center>'
  505. '<center><img <<$set_imgh>> src="/images/pc/items/mirrorcompact.jpg"></center>'
  506. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  507. '<td cellspacing="0" cellpadding="0" valign="top">'
  508. gs 'stat'
  509. if kosmetitka >= 1: '<a href="exec: minut += 3 & makupskl_exp += rand(1,3) & pcs_makeup = 2 & kosmetitka -= 1 & gt ''mirror'', ''d_bag_mirror''"><b>Light make-up</b></a>'
  510. if kosmetitka >= 2: '<a href="exec: minut += 5 & makupskl_exp += rand(1,3) & pcs_makeup = 3 & kosmetitka -= 2 & gt ''mirror'', ''d_bag_mirror''"><b>Natural make-up</b></a>'
  511. if kosmetitka >= 3: '<a href="exec: minut += 10 & makupskl_exp += rand(1,3) & pcs_makeup = 4 & kosmetitka -= 3 & gt ''mirror'', ''d_bag_mirror''"><b>Heavy make-up</b></a>'
  512. '</td></tr></table></center>'
  513. act 'Finish': gt 'mirror', 'd_bag_mirror'
  514. end
  515. if $ARGS[0] = 'kosmetitka_fix':
  516. *clr & cla
  517. '<center><h1>Compact Mirror</h1></center>'
  518. '<center><img <<$set_imgh>> src="/images/pc/items/mirrorcompact.jpg"></center>'
  519. salfetka -= 1
  520. makupskl_exp += rand(1,3)
  521. if makeupSetting = 1:
  522. minut += 3
  523. kosmetitka -= 1
  524. pcs_makeup = 2
  525. '<center>You carefully fix your makeup and restore the neutral and light tones that bring out your natural beauty.</center>'
  526. elseif makeupSetting = 2:
  527. minut += 5
  528. kosmetitka -= 2
  529. pcs_makeup = 3
  530. '<center>You carefully fix your makeup and restore the mildly vibrant tones and colors that cover your minor imperfections and enhance your best features.</center>'
  531. elseif makeupSetting = 3:
  532. minut += 10
  533. kosmetitka -= 3
  534. vidageday -= 1
  535. pcs_makeup = 4
  536. '<center>You carefully fix your makeup and restore the deeper, richer shades, thick enough to cover most imperfections, while drawing attention to your eyes and lips.</center>'
  537. end
  538. gs 'stat'
  539. act 'Continue': gt 'mirror', 'd_bag_mirror'
  540. end
  541. --- mirror ---------------------------------