1
0

mirror.qsrc 20 KB

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