# mirror
if $ARGS[0] = 'start':
menu_off = 1
*clr & cla
$mirrorloc = 'mirror'
gs 'stat' &! It should be here, because some of the strigs have to be initialized
if player_avatar = 1:
'
> src="images/avatar.jpg">'
else
'> src="<>">'
end
if autohairbrush = 1 and pcs_hairbsh = 0 : xgt 'mirror', 'brush'
if mirror_steam ! hour: mirror_steam = 100
if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan'and mirror_steam = hour: gt'mirror','steam'
if pcs_hairbsh = 0:
act 'Brush your hair': xgt 'mirror', 'brush'
end
*nl
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.'
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.'
'<<$hair>>'
'<<$pcs_makeup>>. Your<<$pcdesc_eyesizeinsertive>> eyes are <<$pcdesc_eyecolour>> <<$pcs_lashes>>, and you have <<$pcdesc_fulllipswordy>>.'
'<<$skin>>'
'<<$pcs_apprnc>>'
if curly > 0 and defcurly = 0: '
Your curly hair will last for another <> days.'
if straight > 0 and defcurly = 1: '
Your straightened hair will last for another <> days.'
if hbraids > 0: '
Your braided hair will last for another <> days.'
if pcs_haircol ! nathcol:
if dyefade > 0 and dyefade < 7: '
Your hair dye is beginning to fade and your roots are showing.'
if dyefade = 0: '
Your hair dye has faded and looks terrible.'
end
if kosmetica > 0: *nl 'Cosmetics: <>' else *nl 'You have no makeup.'
if lipbalm > 0: *pl ' | Lip gloss: <>' else *pl ' You have no lip gloss left.'
if falselashesplain > 0: *nl 'False lashes: <>' else *nl 'You have no false lashes left.'
if falselashesmink > 0: *pl ' | Mink lashes: <>' else *pl ' You have no mink lashes left.'
*nl
$makeupLight = 'You subtly apply some neutral tones, with a light application of makeup to bring out your natural beauty.'
$makeupNatural = 'You apply some mildly vibrant tones and colors of makeup to cover your minor imperfections and enhance your best features.'
$makeupHeavy = 'You apply some deeper, richer shades of makeup, thick enough to cover most imperfections, while drawing attention to your eyes and lips.'
! WD: Cheat Unused ~ 'AutoHapri'
if pcs_hairbsh = 0 and AutoHapri = 1:
minut += 3
pcs_hairbsh = 1
'You brush your hair.'
end
!! WD: Cheat Unused ~ 'AutoMakeup'
if pcs_makeup = 1 and kosmetica > 0 and AutoMakeup = 1:
pcs_makeup = AutoMakeupType
makupskl_exp += rand(1,3)
if kosmetica < 3 and pcs_makeup = 4:pcs_makeup = 3
if kosmetica < 2 and pcs_makeup = 3:pcs_makeup = 2
if kosmetica < 1 and pcs_makeup ! 1:
pcs_makeup = 1
'You have no make-up left.'
else
if pcs_makeup = 2:
*pl $makeupLight
minut -= 3
kosmetica -= 1
end
if pcs_makeup = 3:
*pl $makeupNatural
minut -= 5
kosmetica -= 2
end
if pcs_makeup = 4:
*pl $makeupHeavy
minut -= 10
vidageday -= 1
kosmetica -= 3
end
end
end
act 'Move away from the mirror':gt 'mirror','fin'
! WD: Cheat Unused ~ 'AutoLipBalm'
!! Added the makeup setting.
if pcs_makeup = 1 and kosmetica >= makeupSetting:
act 'Apply makeup':
*clr & cla
'> src="images/pc/mop.jpg">'
*nl
'You consider for a moment which look you want to go for.'
*nl
if makeupSetting = 1:
cla
'Without thinking, you instantly apply a subtle amount of makeup to your face.'
minut += 3
makupskl_exp += rand(1,3)
kosmetica -= 1
pcs_makeup = 2
'<<$makeupLight>>'
act 'View results':gt 'mirror', 'start'
elseif makeupSetting = 2:
cla
'Without thinking, you instantly apply a moderate amount of makeup to your face.'
minut += 5
makupskl_exp += rand(1,3)
kosmetica -= 2
pcs_makeup = 3
'<<$makeupNatural>>'
act 'View results':gt 'mirror', 'start'
elseif makeupSetting = 3:
cla
'Without thinking, you instantly apply a heavy amount of makeup to your face.'
minut += 10
makupskl_exp += rand(1,3)
kosmetica -= 3
vidageday -= 1
pcs_makeup = 4
'<<$makeupHeavy>>'
act 'View results':gt 'mirror', 'start'
else
if kosmetica > 0:
act 'Light make-up':
cla
minut += 3
makupskl_exp += rand(1,3)
kosmetica -= 1
pcs_makeup = 2
'<<$makeupLight>>'
act 'View results':gt 'mirror', 'start'
end
end
if kosmetica > 1:
act 'Natural makeup':
cla
minut += 5
makupskl_exp += rand(1,3)
kosmetica -= 2
pcs_makeup = 3
'<<$makeupNatural>>'
act 'View results':gt 'mirror', 'start'
end
end
if kosmetica > 2:
act 'Heavy makeup':
cla
minut += 10
makupskl_exp += rand(1,3)
kosmetica -= 3
vidageday -= 1
pcs_makeup = 4
'<<$makeupHeavy>>'
act 'View results':gt 'mirror', 'start'
end
end
act 'No makeup':
cla
minut += 2
'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.'
act 'View results':gt 'mirror', 'start'
end
end
end
elseif kosmetica < makeupSetting:
'You don''t have enough makeup to apply your chosen option.'
end
if AutoLipBalm = 1: gs 'mirror','applyLipbalm'
if lipbalm > 0 and pcs_lipbalm <= 0:
act 'Apply lip balm':
cla
gs 'mirror','applyLipbalm'
act 'View results':gt 'mirror', 'start'
end
end
if falselashesplain > 0 and pcs_lashes < 3 and lashextensionstyle <= 0:
act 'Apply false lashes':
cla
gs 'mirror','applyLashesplain'
act 'View results':gt 'mirror', 'start'
end
end
if falselashesmink > 0 and pcs_lashes < 4 and lashextensionstyle <= 0:
act 'Apply mink lashes':
cla
gs 'mirror','applyLashesmink'
act 'View results':gt 'mirror', 'start'
end
end
! if (pcs_makeup <= 1 and kosmetica > 0) or (lipbalm > 0 and pcs_lipbalm <= 0 and pcs_hairbsh = 0):
! act 'Do the works': gt 'mirror', 'works'
! end
act 'Create a custom make-up routine': dynamic $createcustroutine
!!New makeup setting
!!This imforms the person what makeup they have pre selected
!! 0 - none, 1 - light, 2 - moderate, 3 - heavy
! 'Select level for auto make-up: none, light, vibrant, thick.'
!
! if makeupSetting = 0:
! 'Currently you have no make-up set.'
! elseif makeupSetting = 1:
! 'Currently the level you have set is for light make-up.'
! elseif makeupSetting = 2:
! 'Currently the level you have set is for vibrant make-up.'
! elseif makeupSetting = 3:
! 'Currently the level you have set is for thick make-up.'
! end
if $routine1 ! '':
'Make-up routine 1 is called ''<<$routine1custname>> ''and consists of : '
if mid($routine1,1,1) = 0:'No make-up'
if mid($routine1,1,1) = 1:'Light make-up'
if mid($routine1,1,1) = 2:'Vibrant make-up'
if mid($routine1,1,1) = 3:'Thick make-up'
if mid($routine1,2,1) = 0:'No Lipbalm'
if mid($routine1,2,1) = 1:'Lipbalm'
if mid($routine1,3,1) = 0:'No fake lashes'
if mid($routine1,3,1) = 1:'Normal fake lashes'
if mid($routine1,3,1) = 2:'Mink fake lashes'
''
end
if $routine2 ! '':
'Make-up routine 2 is called ''<<$routine2custname>>'' and consists of : '
if mid($routine2,1,1) = 0:'No make-up'
if mid($routine2,1,1) = 1:'Light make-up'
if mid($routine2,1,1) = 2:'Vibrant make-up'
if mid($routine2,1,1) = 3:'Thick make-up'
if mid($routine2,2,1) = 0:'No Lipbalm'
if mid($routine2,2,1) = 1:'Lipbalm'
if mid($routine2,3,1) = 0:'No fake lashes'
if mid($routine2,3,1) = 1:'Normal fake lashes'
if mid($routine2,3,1) = 2:'Mink fake lashes'
''
end
if $routine3 ! '':
'Make-up routine 3 is called ''<<$routine3custname>>'' and consists of : '
if mid($routine3,1,1) = 0:'No make-up'
if mid($routine3,1,1) = 1:'Light make-up'
if mid($routine3,1,1) = 2:'Vibrant make-up'
if mid($routine3,1,1) = 3:'Thick make-up'
if mid($routine3,2,1) = 0:'No Lipbalm'
if mid($routine3,2,1) = 1:'Lipbalm'
if mid($routine3,3,1) = 0:'No fake lashes'
if mid($routine3,3,1) = 1:'Normal fake lashes'
if mid($routine3,3,1) = 2:'Mink fake lashes'
''
end
if $routine4 ! '':
'Make-up routine 4 is called ''<<$routine4custname>>'' and consists of : '
if mid($routine4,1,1) = 0:'No make-up'
if mid($routine4,1,1) = 1:'Light make-up'
if mid($routine4,1,1) = 2:'Vibrant make-up'
if mid($routine4,1,1) = 3:'Thick make-up'
if mid($routine4,2,1) = 0:'No Lipbalm'
if mid($routine4,2,1) = 1:'Lipbalm'
if mid($routine4,3,1) = 0:'No fake lashes'
if mid($routine4,3,1) = 1:'Normal fake lashes'
if mid($routine4,3,1) = 2:'Mink fake lashes'
''
end
gs 'stat'
end &! --- start ---
$createcustroutine = {
cls & cla
'Select make-up level'
'none, light, vibrant, thick.'
if makeupSetting = 0:
'Currently you have no make-up set.'
elseif makeupSetting = 1:
'Currently the level you have set is for light make-up.'
elseif makeupSetting = 2:
'Currently the level you have set is for vibrant make-up.'
elseif makeupSetting = 3:
'Currently the level you have set is for thick make-up.'
end
'Select other improvements :'
if custlipbalm = 0:
'No Lipbalm'
else
'Lipbalm'
end
if custlashes = 0:
'No fake lashes'
elseif custlashes = 1:
'Normal fake lashes'
else
'Mink fake lashes'
end
$routine = str(makeupSetting) + str(custlipbalm) + str(custlashes)
act 'Exit':gt 'mirror','start'
if $routine1 ! '':
act 'Remove <<$routine1custname>>':
killvar '$routine1'
killvar '$routine1custname'
dynamic $createcustroutine
end
act 'Rename <<$routine1custname>>':
$routine1custname = input ("Name the routine")
dynamic $createcustroutine
end
end
if $routine2 ! '':
act 'Remove <<$routine2custname>>':
killvar '$routine2'
killvar '$routine2custname'
dynamic $createcustroutine
end
act 'Rename <<$routine2custname>>':
$routine2custname = input ("Name the routine")
dynamic $createcustroutine
end
end
if $routine3 ! '':
act 'Remove <<$routine3custname>>':
killvar '$routine3'
killvar '$routine3custname'
dynamic $createcustroutine
end
act 'Rename <<$routine3custname>>':
$routine3custname = input ("Name the routine")
dynamic $createcustroutine
end
end
if $routine4 ! '':
act 'Remove <<$routine4custname>>':
killvar '$routine4'
killvar '$routine4custname'
dynamic $createcustroutine
end
act 'Rename <<$routine4custname>>':
$routine4custname = input ("Name the routine")
dynamic $createcustroutine
end
end
act 'Save routine':
if $routine1 = '':
$routine1 = $routine
$routine1custname = 'routine 1'
dynamic $createcustroutine
elseif $routine2 = '':
$routine2 = $routine
$routine2custname = 'routine 2'
dynamic $createcustroutine
elseif $routine3 = '':
$routine3 = $routine
$routine3custname = 'routine 3'
dynamic $createcustroutine
elseif $routine4 = '':
$routine4 = $routine
$routine4custname = 'routine 4'
dynamic $createcustroutine
else
'max 4 routines allowed, please remove one before adding a new one'
end
end
}
if $ARGS[0] = 'steam':
menu_off = 1
'> src="images/shared/home/bathroom/mirror1.jpg">'
'The mirror is heavily misted. It must wiped or left to cool.'
gs 'stat'
act 'Wipe the mirror':
*clr & cla
minut+=1
mirror_steam = 100
gs 'stat'
'> src="images/shared/home/bathroom/mirror2.jpg">'
'You wipe the mirror with a towel.'
act 'Look in the mirror':gt 'mirror','start'
end
act 'Move away from the mirror':gt 'mirror','fin'
end &! --- steam ----
if $ARGS[0] = 'brush':
menu_off = 1
*clr & cla
minut += 3
pcs_hairbsh = 1
if player_avatar = 1:
'> src="images/avatar.jpg">'
else
'> src="<>">'
end
'You brush your hair.'
wait 1000
if $mirrorloc = 'mirror':
gt 'mirror', 'start'
else
gt 'mirror', 'fin'
end
end &! --- brush ----
if $routine1 ! '' and pcs_makeup < 2:
if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan'and mirror_steam = hour:
else
act 'Apply <<$routine1custname>>':gt 'mirror','works',mid($routine1,1,1),mid($routine1,2,1),mid($routine1,3,1)
end
end
if $routine2 ! '' and pcs_makeup < 2:
if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan'and mirror_steam = hour:
else
act 'Apply <<$routine2custname>>':gt 'mirror','works',mid($routine2,1,1),mid($routine2,2,1),mid($routine2,3,1)
end
end
if $routine3 ! '' and pcs_makeup < 2:
if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan'and mirror_steam = hour:
else
act 'Apply <<$routine3custname>>':gt 'mirror','works',mid($routine3,1,1),mid($routine3,2,1),mid($routine3,3,1)
end
end
if $routine4 ! '' and pcs_makeup < 2:
if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan'and mirror_steam = hour:
else
act 'Apply <<$routine4custname>>':gt 'mirror','works',mid($routine4,1,1),mid($routine4,2,1),mid($routine4,3,1)
end
end
if $ARGS[0] = 'works':
cla
if kosmetica <= 0:
'You don''t have any makeup.'
elseif pcs_makeup = 1 and kosmetica >= $ARGS[1]:
*clr
'> src="images/pc/mop.jpg">'
*nl
'You consider for a moment which look you want to go for.'
*nl
if $ARGS[1] = 1:
'Without thinking, you instantly apply a subtle amount of makeup to your face.'
minut += 3
makupskl_exp += rand(1,3)
kosmetica -= 1
pcs_makeup = 2
'<<$makeupLight>>'
elseif $ARGS[1]= 2:
'Without thinking, you instantly apply a moderate amount of makeup to your face.'
minut += 5
makupskl_exp += rand(1,3)
kosmetica -= 2
pcs_makeup = 3
'<<$makeupNatural>>'
elseif $ARGS[1] = 3:
'Without thinking, you instantly apply a heavy amount of makeup to your face.'
minut += 10
makupskl_exp += rand(1,3)
kosmetica -= 3
vidageday -= 1
pcs_makeup = 4
'<<$makeupHeavy>>'
end
elseif kosmetica < $ARGS[1]:
'You don''t have enough makeup to apply your chosen option.'
end
if pcs_hairbsh = 0:
minut += 3
pcs_hairbsh = 1
'You brush your hair.'
end
if $ARGS[2] = 1:gs 'mirror','applyLipbalm'
if $ARGS[3] = 2 and falselashesmink >= 1 and pcs_lashes < 4 and lashextensionstyle <= 0:gs 'mirror','applyLashesmink'
if $ARGS[3] = 1 and falselashesplain >= 1 and pcs_lashes < 3 and lashextensionstyle <= 0:gs 'mirror','applyLashesplain'
cla
act 'View results':gt 'mirror', 'start'
end &! --- works ----
if $ARGS[0] = 'applyLipbalm':
if lipbalm > 0 and pcs_lipbalm <= 0:
minut += 1
lipbalm -= 1
lipkoef += rand(0, 1)
if lipkoef > 50:
lipkoef = 0
pcs_lip += 1
end
pcs_lipbalm += 8
'You apply some moisturizing balm on your lips.'
end
end &! --- applyLipbalm ---
if $ARGS[0] = 'applyLashesmink':
if falselashesmink > 0 and pcs_lashes < 4:
minut += 15
falselashesmink -= 1
if false_lashes >= 1 and pcs_lashes = 3:'You remove your old, plain lashes first.'
false_lashes = 1
pcs_lashes = 4
'You spend a good bit of time affixing your lavish, mink lash strips.'
end
end &! --- applyLashesmink ---
if $ARGS[0] = 'applyLashesplain':
if falselashesplain > 0 and pcs_lashes < 3:
minut += 15
falselashesplain -= 1
false_lashes = 1
pcs_lashes = 3
'You spend a fair bit of time carefully trimming and affixing your flirtatious false lashes.'
end
end &! --- applyLashesplain ---
if $ARGS[0] = 'fin':
killvar '$makeupLight'
killvar '$makeupNatural'
killvar '$makeupHeavy'
killvar '$routine'
killvar '$mirrorloc'
menu_off = 0
gt $locM, $metkaM
end &! --- fin ----
--- mirror ---------------------------------