mirror.qsrc 30 KB

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