1
0

mirror 16 KB

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