1
0

mirror.qsrc 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550
  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. if pcs_hairbsh = 0:
  16. act 'Brush your hair': xgt 'mirror', 'brush'
  17. end
  18. *nl
  19. if daystart < 10 and StoryLine = 0 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.'
  20. if daystart >= 10 and daystart < 30 and StoryLine = 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.'
  21. '<<$hair>>'
  22. '<<$pcs_makeup>>. Your<<$pcdesc_eyesizeinsertive>> eyes are <<$pcdesc_eyecolour>> <<$pcs_lashes>>, and you have <<$pcdesc_fulllipswordy>>.'
  23. '<<$skin>>'
  24. '<<$pcs_apprnc>>'
  25. if curly > 0 and defcurly = 0: '<br>Your curly hair will last for another <<curly>> days.'
  26. if straight > 0 and defcurly = 1: '<br>Your straightened hair will last for another <<straight>> days.'
  27. if hbraids > 0: '<br>Your braided hair will last for another <<hbraids>> days.'
  28. if pcs_haircol ! nathcol:
  29. if dyefade > 0 and dyefade < 7: '<br>Your hair dye is beginning to fade and your roots are showing.'
  30. if dyefade = 0: '<br>Your hair dye has faded and looks terrible.'
  31. end
  32. if kosmetica > 0: *nl 'Cosmetics: <<kosmetica>>' else *nl 'You have no makeup.'
  33. if lipbalm > 0: *pl ' | Lip gloss: <<lipbalm>>' else *pl ' You have no lip gloss left.'
  34. if falselashesplain > 0: *nl 'False lashes: <<falselashesplain>>' else *nl 'You have no false lashes left.'
  35. if falselashesmink > 0: *pl ' | Mink lashes: <<falselashesmink>>' else *pl ' You have no mink lashes left.'
  36. *nl
  37. $makeupLight = 'You subtly apply some neutral tones, with a light application of makeup to bring out your natural beauty.'
  38. $makeupNatural = 'You apply some mildly vibrant tones and colors of makeup to cover your minor imperfections and enhance your best features.'
  39. $makeupHeavy = 'You apply some deeper, richer shades of makeup, thick enough to cover most imperfections, while drawing attention to your eyes and lips.'
  40. ! WD: Cheat Unused ~ 'AutoHapri'
  41. if pcs_hairbsh = 0 and AutoHapri = 1:
  42. minut += 3
  43. pcs_hairbsh = 1
  44. 'You brush your hair.'
  45. end
  46. !! WD: Cheat Unused ~ 'AutoMakeup'
  47. if pcs_makeup = 1 and kosmetica > 0 and AutoMakeup = 1:
  48. pcs_makeup = AutoMakeupType
  49. makupskl_exp += rand(1,3)
  50. if kosmetica < 3 and pcs_makeup = 4:pcs_makeup = 3
  51. if kosmetica < 2 and pcs_makeup = 3:pcs_makeup = 2
  52. if kosmetica < 1 and pcs_makeup ! 1:
  53. pcs_makeup = 1
  54. 'You have no make-up left.'
  55. else
  56. if pcs_makeup = 2:
  57. *pl $makeupLight
  58. minut -= 3
  59. kosmetica -= 1
  60. end
  61. if pcs_makeup = 3:
  62. *pl $makeupNatural
  63. minut -= 5
  64. kosmetica -= 2
  65. end
  66. if pcs_makeup = 4:
  67. *pl $makeupHeavy
  68. minut -= 10
  69. vidageday -= 1
  70. kosmetica -= 3
  71. end
  72. end
  73. end
  74. act 'Move away from the mirror':gt 'mirror','fin'
  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 'Create a custom make-up routine': 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. --- mirror ---------------------------------