1
0

mirror.qsrc 20 KB

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