mirror.qsrc 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545
  1. # mirror
  2. if $ARGS[0] = 'start':
  3. *clr & cla
  4. $mirrorloc = 'mirror'
  5. gs 'stat' &! It should be here, because some of the strigs have to be initialized
  6. if player_avatar = 1:
  7. '<center><img <<$set_imgh>> src="images/avatar.jpg"></center>'
  8. else
  9. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  10. end
  11. if autohairbrush = 1 and pcs_hairbsh = 0 : xgt 'mirror', 'brush'
  12. if mirror_steam ! hour: mirror_steam = 100
  13. if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan'and mirror_steam = hour: gt'mirror','steam'
  14. if pcs_hairbsh = 0:
  15. act 'Brush your hair': xgt 'mirror', 'brush'
  16. end
  17. *nl
  18. 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.'
  19. 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.'
  20. '<<$hair>>'
  21. '<<$pcs_makeup>>. Your<<$pcdesc_eyesizeinsertive>> eyes are <<$pcdesc_eyecolour>> <<$pcs_lashes>>, and you have <<$pcdesc_fulllipswordy>>.'
  22. '<<$skin>>'
  23. '<<$pcs_apprnc>>'
  24. if curly > 0 and defcurly = 0: '<br>Your curly hair will last for another <<curly>> days.'
  25. if straight > 0 and defcurly = 1: '<br>Your straightened hair will last for another <<straight>> days.'
  26. if hbraids > 0: '<br>Your braided hair will last for another <<hbraids>> days.'
  27. if pcs_haircol ! nathcol:
  28. if dyefade > 0 and dyefade < 7: '<br>Your hair dye is beginning to fade and your roots are showing.'
  29. if dyefade = 0: '<br>Your hair dye has faded and looks terrible.'
  30. end
  31. if kosmetica > 0: *nl 'Cosmetics: <<kosmetica>>' else *nl 'You have no makeup.'
  32. if lipbalm > 0: *pl ' | Lip gloss: <<lipbalm>>' else *pl ' You have no lip gloss left.'
  33. if falselashesplain > 0: *nl 'False lashes: <<falselashesplain>>' else *nl 'You have no false lashes left.'
  34. if falselashesmink > 0: *pl ' | Mink lashes: <<falselashesmink>>' else *pl ' You have no mink lashes left.'
  35. *nl
  36. $makeupLight = 'You subtly apply some neutral tones, with a light application of makeup to bring out your natural beauty.'
  37. $makeupNatural = 'You apply some mildly vibrant tones and colors of makeup to cover your minor imperfections and enhance your best features.'
  38. $makeupHeavy = 'You apply some deeper, richer shades of makeup, thick enough to cover most imperfections, while drawing attention to your eyes and lips.'
  39. ! WD: Cheat Unused ~ 'AutoHapri'
  40. if pcs_hairbsh = 0 and AutoHapri = 1:
  41. minut += 3
  42. pcs_hairbsh = 1
  43. 'You brush your hair.'
  44. end
  45. !! WD: Cheat Unused ~ 'AutoMakeup'
  46. if pcs_makeup = 1 and kosmetica > 0 and AutoMakeup = 1:
  47. pcs_makeup = AutoMakeupType
  48. makupskl_exp += rand(1,3)
  49. if kosmetica < 3 and pcs_makeup = 4:pcs_makeup = 3
  50. if kosmetica < 2 and pcs_makeup = 3:pcs_makeup = 2
  51. if kosmetica < 1 and pcs_makeup ! 1:
  52. pcs_makeup = 1
  53. 'You have no make-up left.'
  54. else
  55. if pcs_makeup = 2:
  56. *pl $makeupLight
  57. minut -= 3
  58. kosmetica -= 1
  59. end
  60. if pcs_makeup = 3:
  61. *pl $makeupNatural
  62. minut -= 5
  63. kosmetica -= 2
  64. end
  65. if pcs_makeup = 4:
  66. *pl $makeupHeavy
  67. minut -= 10
  68. vidageday -= 1
  69. kosmetica -= 3
  70. end
  71. end
  72. end
  73. act 'Move away from the mirror':gt 'mirror','fin'
  74. ! WD: Cheat Unused ~ 'AutoLipBalm'
  75. !! Added the makeup setting.
  76. if pcs_makeup = 1 and kosmetica >= makeupSetting:
  77. act 'Apply makeup':
  78. *clr & cla
  79. '<center><img <<$set_imgh>> src="images/pc/mop.jpg"></center>'
  80. *nl
  81. 'You consider for a moment which look you want to go for.'
  82. *nl
  83. if makeupSetting = 1:
  84. cla
  85. 'Without thinking, you instantly apply a subtle amount of makeup to your face.'
  86. minut += 3
  87. makupskl_exp += rand(1,3)
  88. kosmetica -= 1
  89. pcs_makeup = 2
  90. '<<$makeupLight>>'
  91. act 'View results':gt 'mirror', 'start'
  92. elseif makeupSetting = 2:
  93. cla
  94. 'Without thinking, you instantly apply a moderate amount of makeup to your face.'
  95. minut += 5
  96. makupskl_exp += rand(1,3)
  97. kosmetica -= 2
  98. pcs_makeup = 3
  99. '<<$makeupNatural>>'
  100. act 'View results':gt 'mirror', 'start'
  101. elseif makeupSetting = 3:
  102. cla
  103. 'Without thinking, you instantly apply a heavy amount of makeup to your face.'
  104. minut += 10
  105. makupskl_exp += rand(1,3)
  106. kosmetica -= 3
  107. vidageday -= 1
  108. pcs_makeup = 4
  109. '<<$makeupHeavy>>'
  110. act 'View results':gt 'mirror', 'start'
  111. else
  112. if kosmetica > 0:
  113. act 'Light make-up':
  114. cla
  115. minut += 3
  116. makupskl_exp += rand(1,3)
  117. kosmetica -= 1
  118. pcs_makeup = 2
  119. '<<$makeupLight>>'
  120. act 'View results':gt 'mirror', 'start'
  121. end
  122. end
  123. if kosmetica > 1:
  124. act 'Natural makeup':
  125. cla
  126. minut += 5
  127. makupskl_exp += rand(1,3)
  128. kosmetica -= 2
  129. pcs_makeup = 3
  130. '<<$makeupNatural>>'
  131. act 'View results':gt 'mirror', 'start'
  132. end
  133. end
  134. if kosmetica > 2:
  135. act 'Heavy makeup':
  136. cla
  137. minut += 10
  138. makupskl_exp += rand(1,3)
  139. kosmetica -= 3
  140. vidageday -= 1
  141. pcs_makeup = 4
  142. '<<$makeupHeavy>>'
  143. act 'View results':gt 'mirror', 'start'
  144. end
  145. end
  146. act 'No makeup':
  147. cla
  148. minut += 2
  149. '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.'
  150. act 'View results':gt 'mirror', 'start'
  151. end
  152. end
  153. end
  154. elseif kosmetica < makeupSetting:
  155. 'You don''t have enough makeup to apply your chosen option.'
  156. end
  157. if AutoLipBalm = 1: gs 'mirror','applyLipbalm'
  158. if lipbalm > 0 and pcs_lipbalm <= 0:
  159. act 'Apply lip balm':
  160. cla
  161. gs 'mirror','applyLipbalm'
  162. act 'View results':gt 'mirror', 'start'
  163. end
  164. end
  165. if falselashesplain > 0 and pcs_lashes < 3 and lashextensionstyle <= 0:
  166. act 'Apply false lashes':
  167. cla
  168. gs 'mirror','applyLashesplain'
  169. act 'View results':gt 'mirror', 'start'
  170. end
  171. end
  172. if falselashesmink > 0 and pcs_lashes < 4 and lashextensionstyle <= 0:
  173. act 'Apply mink lashes':
  174. cla
  175. gs 'mirror','applyLashesmink'
  176. act 'View results':gt 'mirror', 'start'
  177. end
  178. end
  179. ! if (pcs_makeup <= 1 and kosmetica > 0) or (lipbalm > 0 and pcs_lipbalm <= 0 and pcs_hairbsh = 0):
  180. ! act 'Do the works': gt 'mirror', 'works'
  181. ! end
  182. act 'Create a custom make-up routine': dynamic $createcustroutine
  183. !!New makeup setting
  184. !!This imforms the person what makeup they have pre selected
  185. !! 0 - none, 1 - light, 2 - moderate, 3 - heavy
  186. ! '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>.'
  187. !
  188. ! if makeupSetting = 0:
  189. ! 'Currently you have no make-up set.'
  190. ! elseif makeupSetting = 1:
  191. ! 'Currently the level you have set is for light make-up.'
  192. ! elseif makeupSetting = 2:
  193. ! 'Currently the level you have set is for vibrant make-up.'
  194. ! elseif makeupSetting = 3:
  195. ! 'Currently the level you have set is for thick make-up.'
  196. ! end
  197. if $routine1 ! '':
  198. 'Make-up routine 1 is called ''<<$routine1custname>> ''and consists of : '
  199. if mid($routine1,1,1) = 0:'No make-up'
  200. if mid($routine1,1,1) = 1:'Light make-up'
  201. if mid($routine1,1,1) = 2:'Vibrant make-up'
  202. if mid($routine1,1,1) = 3:'Thick make-up'
  203. if mid($routine1,2,1) = 0:'No Lipbalm'
  204. if mid($routine1,2,1) = 1:'Lipbalm'
  205. if mid($routine1,3,1) = 0:'No fake lashes'
  206. if mid($routine1,3,1) = 1:'Normal fake lashes'
  207. if mid($routine1,3,1) = 2:'Mink fake lashes'
  208. ''
  209. end
  210. if $routine2 ! '':
  211. 'Make-up routine 2 is called ''<<$routine2custname>>'' and consists of : '
  212. if mid($routine2,1,1) = 0:'No make-up'
  213. if mid($routine2,1,1) = 1:'Light make-up'
  214. if mid($routine2,1,1) = 2:'Vibrant make-up'
  215. if mid($routine2,1,1) = 3:'Thick make-up'
  216. if mid($routine2,2,1) = 0:'No Lipbalm'
  217. if mid($routine2,2,1) = 1:'Lipbalm'
  218. if mid($routine2,3,1) = 0:'No fake lashes'
  219. if mid($routine2,3,1) = 1:'Normal fake lashes'
  220. if mid($routine2,3,1) = 2:'Mink fake lashes'
  221. ''
  222. end
  223. if $routine3 ! '':
  224. 'Make-up routine 3 is called ''<<$routine3custname>>'' and consists of : '
  225. if mid($routine3,1,1) = 0:'No make-up'
  226. if mid($routine3,1,1) = 1:'Light make-up'
  227. if mid($routine3,1,1) = 2:'Vibrant make-up'
  228. if mid($routine3,1,1) = 3:'Thick make-up'
  229. if mid($routine3,2,1) = 0:'No Lipbalm'
  230. if mid($routine3,2,1) = 1:'Lipbalm'
  231. if mid($routine3,3,1) = 0:'No fake lashes'
  232. if mid($routine3,3,1) = 1:'Normal fake lashes'
  233. if mid($routine3,3,1) = 2:'Mink fake lashes'
  234. ''
  235. end
  236. if $routine4 ! '':
  237. 'Make-up routine 4 is called ''<<$routine4custname>>'' and consists of : '
  238. if mid($routine4,1,1) = 0:'No make-up'
  239. if mid($routine4,1,1) = 1:'Light make-up'
  240. if mid($routine4,1,1) = 2:'Vibrant make-up'
  241. if mid($routine4,1,1) = 3:'Thick make-up'
  242. if mid($routine4,2,1) = 0:'No Lipbalm'
  243. if mid($routine4,2,1) = 1:'Lipbalm'
  244. if mid($routine4,3,1) = 0:'No fake lashes'
  245. if mid($routine4,3,1) = 1:'Normal fake lashes'
  246. if mid($routine4,3,1) = 2:'Mink fake lashes'
  247. ''
  248. end
  249. gs 'stat'
  250. end &! --- start ---
  251. $createcustroutine = {
  252. cls & cla
  253. 'Select make-up level'
  254. '<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>.'
  255. if makeupSetting = 0:
  256. 'Currently you have no make-up set.'
  257. elseif makeupSetting = 1:
  258. 'Currently the level you have set is for light make-up.'
  259. elseif makeupSetting = 2:
  260. 'Currently the level you have set is for vibrant make-up.'
  261. elseif makeupSetting = 3:
  262. 'Currently the level you have set is for thick make-up.'
  263. end
  264. 'Select other improvements :'
  265. if custlipbalm = 0:
  266. '<a href="exec:custlipbalm = 1 & dynamic $createcustroutine">No Lipbalm</a>'
  267. else
  268. '<a href="exec:custlipbalm = 0 & dynamic $createcustroutine">Lipbalm</a>'
  269. end
  270. if custlashes = 0:
  271. '<a href="exec:custlashes = 1 & dynamic $createcustroutine">No fake lashes</a>'
  272. elseif custlashes = 1:
  273. '<a href="exec:custlashes = 2 & dynamic $createcustroutine">Normal fake lashes</a>'
  274. else
  275. '<a href="exec:custlashes = 0 & dynamic $createcustroutine">Mink fake lashes</a>'
  276. end
  277. $routine = str(makeupSetting) + str(custlipbalm) + str(custlashes)
  278. act 'Exit':gt 'mirror','start'
  279. if $routine1 ! '':
  280. act 'Remove <<$routine1custname>>':
  281. killvar '$routine1'
  282. killvar '$routine1custname'
  283. dynamic $createcustroutine
  284. end
  285. act 'Rename <<$routine1custname>>':
  286. $routine1custname = input ("Name the routine")
  287. dynamic $createcustroutine
  288. end
  289. end
  290. if $routine2 ! '':
  291. act 'Remove <<$routine2custname>>':
  292. killvar '$routine2'
  293. killvar '$routine2custname'
  294. dynamic $createcustroutine
  295. end
  296. act 'Rename <<$routine2custname>>':
  297. $routine2custname = input ("Name the routine")
  298. dynamic $createcustroutine
  299. end
  300. end
  301. if $routine3 ! '':
  302. act 'Remove <<$routine3custname>>':
  303. killvar '$routine3'
  304. killvar '$routine3custname'
  305. dynamic $createcustroutine
  306. end
  307. act 'Rename <<$routine3custname>>':
  308. $routine3custname = input ("Name the routine")
  309. dynamic $createcustroutine
  310. end
  311. end
  312. if $routine4 ! '':
  313. act 'Remove <<$routine4custname>>':
  314. killvar '$routine4'
  315. killvar '$routine4custname'
  316. dynamic $createcustroutine
  317. end
  318. act 'Rename <<$routine4custname>>':
  319. $routine4custname = input ("Name the routine")
  320. dynamic $createcustroutine
  321. end
  322. end
  323. act 'Save routine':
  324. if $routine1 = '':
  325. $routine1 = $routine
  326. $routine1custname = 'routine 1'
  327. dynamic $createcustroutine
  328. elseif $routine2 = '':
  329. $routine2 = $routine
  330. $routine2custname = 'routine 2'
  331. dynamic $createcustroutine
  332. elseif $routine3 = '':
  333. $routine3 = $routine
  334. $routine3custname = 'routine 3'
  335. dynamic $createcustroutine
  336. elseif $routine4 = '':
  337. $routine4 = $routine
  338. $routine4custname = 'routine 4'
  339. dynamic $createcustroutine
  340. else
  341. 'max 4 routines allowed, please remove one before adding a new one'
  342. end
  343. end
  344. }
  345. if $ARGS[0] = 'steam':
  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. *clr & cla
  362. minut += 3
  363. pcs_hairbsh = 1
  364. if player_avatar = 1:
  365. '<center><img <<$set_imgh>> src="images/avatar.jpg"></center>'
  366. else
  367. '<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
  368. end
  369. 'You brush your hair.'
  370. wait 1000
  371. if $mirrorloc = 'mirror':
  372. gt 'mirror', 'start'
  373. else
  374. gt 'mirror', 'fin'
  375. end
  376. end &! --- brush ----
  377. if $routine1 ! '' and pcs_makeup < 2:
  378. if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan'and mirror_steam = hour:
  379. else
  380. act 'Apply <<$routine1custname>>':gt 'mirror','works',mid($routine1,1,1),mid($routine1,2,1),mid($routine1,3,1)
  381. end
  382. end
  383. if $routine2 ! '' and pcs_makeup < 2:
  384. if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan'and mirror_steam = hour:
  385. else
  386. act 'Apply <<$routine2custname>>':gt 'mirror','works',mid($routine2,1,1),mid($routine2,2,1),mid($routine2,3,1)
  387. end
  388. end
  389. if $routine3 ! '' and pcs_makeup < 2:
  390. if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan'and mirror_steam = hour:
  391. else
  392. act 'Apply <<$routine3custname>>':gt 'mirror','works',mid($routine3,1,1),mid($routine3,2,1),mid($routine3,3,1)
  393. end
  394. end
  395. if $routine4 ! '' and pcs_makeup < 2:
  396. if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan'and mirror_steam = hour:
  397. else
  398. act 'Apply <<$routine4custname>>':gt 'mirror','works',mid($routine4,1,1),mid($routine4,2,1),mid($routine4,3,1)
  399. end
  400. end
  401. if $ARGS[0] = 'works':
  402. cla
  403. if kosmetica <= 0:
  404. 'You don''t have any makeup.'
  405. elseif pcs_makeup = 1 and kosmetica >= $ARGS[1]:
  406. *clr
  407. '<center><img <<$set_imgh>> src="images/pc/mop.jpg"></center>'
  408. *nl
  409. 'You consider for a moment which look you want to go for.'
  410. *nl
  411. if $ARGS[1] = 1:
  412. 'Without thinking, you instantly apply a subtle amount of makeup to your face.'
  413. minut += 3
  414. makupskl_exp += rand(1,3)
  415. kosmetica -= 1
  416. pcs_makeup = 2
  417. '<<$makeupLight>>'
  418. elseif $ARGS[1]= 2:
  419. 'Without thinking, you instantly apply a moderate amount of makeup to your face.'
  420. minut += 5
  421. makupskl_exp += rand(1,3)
  422. kosmetica -= 2
  423. pcs_makeup = 3
  424. '<<$makeupNatural>>'
  425. elseif $ARGS[1] = 3:
  426. 'Without thinking, you instantly apply a heavy amount of makeup to your face.'
  427. minut += 10
  428. makupskl_exp += rand(1,3)
  429. kosmetica -= 3
  430. vidageday -= 1
  431. pcs_makeup = 4
  432. '<<$makeupHeavy>>'
  433. end
  434. elseif kosmetica < $ARGS[1]:
  435. 'You don''t have enough makeup to apply your chosen option.'
  436. end
  437. if pcs_hairbsh = 0:
  438. minut += 3
  439. pcs_hairbsh = 1
  440. 'You brush your hair.'
  441. end
  442. if $ARGS[2] = 1:gs 'mirror','applyLipbalm'
  443. if $ARGS[3] = 2 and falselashesmink >= 1 and pcs_lashes < 4 and lashextensionstyle <= 0:gs 'mirror','applyLashesmink'
  444. if $ARGS[3] = 1 and falselashesplain >= 1 and pcs_lashes < 3 and lashextensionstyle <= 0:gs 'mirror','applyLashesplain'
  445. cla
  446. act 'View results':gt 'mirror', 'start'
  447. end &! --- works ----
  448. if $ARGS[0] = 'applyLipbalm':
  449. if lipbalm > 0 and pcs_lipbalm <= 0:
  450. minut += 1
  451. lipbalm -= 1
  452. lipkoef += rand(0, 1)
  453. if lipkoef > 50:
  454. lipkoef = 0
  455. pcs_lip += 1
  456. end
  457. pcs_lipbalm += 8
  458. 'You apply some moisturizing balm on your lips.'
  459. end
  460. end &! --- applyLipbalm ---
  461. if $ARGS[0] = 'applyLashesmink':
  462. if falselashesmink > 0 and pcs_lashes < 4:
  463. minut += 15
  464. falselashesmink -= 1
  465. if false_lashes >= 1 and pcs_lashes = 3:'You remove your old, plain lashes first.'
  466. false_lashes = 1
  467. pcs_lashes = 4
  468. 'You spend a good bit of time affixing your lavish, mink lash strips.'
  469. end
  470. end &! --- applyLashesmink ---
  471. if $ARGS[0] = 'applyLashesplain':
  472. if falselashesplain > 0 and pcs_lashes < 3:
  473. minut += 15
  474. falselashesplain -= 1
  475. false_lashes = 1
  476. pcs_lashes = 3
  477. 'You spend a fair bit of time carefully trimming and affixing your flirtatious false lashes.'
  478. end
  479. end &! --- applyLashesplain ---
  480. if $ARGS[0] = 'fin':
  481. killvar '$makeupLight'
  482. killvar '$makeupNatural'
  483. killvar '$makeupHeavy'
  484. killvar '$routine'
  485. killvar '$mirrorloc'
  486. menu_off = 0
  487. gt $locM, $metkaM
  488. end &! --- fin ----
  489. --- mirror ---------------------------------