# portmirror $portmirror = { cla *clr !!! Maruda Hair Mod !!if hcol = 0 and curly <= 0:'

' !!if hcol = 1 and curly <= 0:'

' !!if hcol = 2 and curly <= 0:'

' !!if hcol = 3 and curly <= 0:'

' !!if hcol = 0 and curly > 0:'

' !!if hcol = 1 and curly > 0:'

' !!if hcol = 2 and curly > 0:'

' !!if hcol = 3 and curly > 0:'

' if curly <= 0 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0: if hcol = 0 and hairlength <= 30:'

' if hcol = 1 and hairlength <= 30:'

' if hcol = 2 and hairlength <= 30:'

' if hcol = 3 and hairlength <= 30:'

' if hcol = 0 and hairlength > 30 and hairlength <= 80:'

' if hcol = 1 and hairlength > 30 and hairlength <= 80:'

' if hcol = 2 and hairlength > 30 and hairlength <= 80:'

' if hcol = 3 and hairlength > 30 and hairlength <= 80:'

' if hcol = 0 and hairlength > 80 and hairlength <= 160:'

' if hcol = 1 and hairlength > 80 and hairlength <= 160:'

' if hcol = 2 and hairlength > 80 and hairlength <= 160:'

' if hcol = 3 and hairlength > 80 and hairlength <= 160:'

' if hcol = 0 and hairlength > 160 and hairlength <= 260:'

' if hcol = 1 and hairlength > 160 and hairlength <= 260:'

' if hcol = 2 and hairlength > 160 and hairlength <= 260:'

' if hcol = 3 and hairlength > 160 and hairlength <= 260:'

' if hcol = 0 and hairlength > 260 and hairlength <= 400:'

' if hcol = 1 and hairlength > 260 and hairlength <= 400:'

' if hcol = 2 and hairlength > 260 and hairlength <= 400:'

' if hcol = 3 and hairlength > 260 and hairlength <= 400:'

' if hcol = 0 and hairlength > 400:'

' if hcol = 1 and hairlength > 400:'

' if hcol = 2 and hairlength > 400:'

' if hcol = 3 and hairlength > 400:'

' end if curly >= 1 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0: if hcol = 0 and hairlength > 80 and hairlength <= 160:'

' if hcol = 1 and hairlength > 80 and hairlength <= 160:'

' if hcol = 2 and hairlength > 80 and hairlength <= 160:'

' if hcol = 3 and hairlength > 80 and hairlength <= 160:'

' if hcol = 0 and hairlength > 160 and hairlength <= 260:'

' if hcol = 1 and hairlength > 160 and hairlength <= 260:'

' if hcol = 2 and hairlength > 160 and hairlength <= 260:'

' if hcol = 3 and hairlength > 160 and hairlength <= 260:'

' if hcol = 0 and hairlength > 260 and hairlength <= 400:'

' if hcol = 1 and hairlength > 260 and hairlength <= 400:'

' if hcol = 2 and hairlength > 260 and hairlength <= 400:'

' if hcol = 3 and hairlength > 260 and hairlength <= 400:'

' if hcol = 0 and hairlength > 400:'

' if hcol = 1 and hairlength > 400:'

' if hcol = 2 and hairlength > 400:'

' if hcol = 3 and hairlength > 400:'

' end if hbangs >= 1 and curly <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0: if hcol = 0 and hairlength > 30 and hairlength <= 80:'

' if hcol = 1 and hairlength > 30 and hairlength <= 80:'

' if hcol = 2 and hairlength > 30 and hairlength <= 80:'

' if hcol = 3 and hairlength > 30 and hairlength <= 80:'

' if hcol = 0 and hairlength > 80 and hairlength <= 160:'

' if hcol = 1 and hairlength > 80 and hairlength <= 160:'

' if hcol = 2 and hairlength > 80 and hairlength <= 160:'

' if hcol = 3 and hairlength > 80 and hairlength <= 160:'

' if hcol = 0 and hairlength > 160 and hairlength <= 260:'

' if hcol = 1 and hairlength > 160 and hairlength <= 260:'

' if hcol = 2 and hairlength > 160 and hairlength <= 260:'

' if hcol = 3 and hairlength > 160 and hairlength <= 260:'

' if hcol = 0 and hairlength > 260 and hairlength <= 400:'

' if hcol = 1 and hairlength > 260 and hairlength <= 400:'

' if hcol = 2 and hairlength > 260 and hairlength <= 400:'

' if hcol = 3 and hairlength > 260 and hairlength <= 400:'

' if hcol = 0 and hairlength > 400:'

' if hcol = 1 and hairlength > 400:'

' if hcol = 2 and hairlength > 400:'

' if hcol = 3 and hairlength > 400:'

' end if curly >= 1 and hbangs >= 1 and hpingripw = 0 and hscrunchw <= 0 and hpigtail <= 0 and hbraids <= 0: if hcol = 0 and hairlength > 80 and hairlength <= 160:'

' if hcol = 1 and hairlength > 80 and hairlength <= 160:'

' if hcol = 2 and hairlength > 80 and hairlength <= 160:'

' if hcol = 3 and hairlength > 80 and hairlength <= 160:'

' if hcol = 0 and hairlength > 160 and hairlength <= 260:'

' if hcol = 1 and hairlength > 160 and hairlength <= 260:'

' if hcol = 2 and hairlength > 160 and hairlength <= 260:'

' if hcol = 3 and hairlength > 160 and hairlength <= 260:'

' if hcol = 0 and hairlength > 260 and hairlength <= 400:'

' if hcol = 1 and hairlength > 260 and hairlength <= 400:'

' if hcol = 2 and hairlength > 260 and hairlength <= 400:'

' if hcol = 3 and hairlength > 260 and hairlength <= 400:'

' if hcol = 0 and hairlength > 400:'

' if hcol = 1 and hairlength > 400:'

' if hcol = 2 and hairlength > 400:'

' if hcol = 3 and hairlength > 400:'

' end if curly >= 1 and hscrunchw = 1 and hbangs >= 1 and hpingripw <= 0 and hpigtail <= 0 and hbraids <= 0: if hcol = 0 and hairlength > 80 and hairlength <= 160:'

' if hcol = 1 and hairlength > 80 and hairlength <= 160:'

' if hcol = 2 and hairlength > 80 and hairlength <= 160:'

' if hcol = 3 and hairlength > 80 and hairlength <= 160:'

' if hcol = 0 and hairlength > 160 and hairlength <= 260:'

' if hcol = 1 and hairlength > 160 and hairlength <= 260:'

' if hcol = 2 and hairlength > 160 and hairlength <= 260:'

' if hcol = 3 and hairlength > 160 and hairlength <= 260:'

' if hcol = 0 and hairlength > 260 and hairlength <= 400:'

' if hcol = 1 and hairlength > 260 and hairlength <= 400:'

' if hcol = 2 and hairlength > 260 and hairlength <= 400:'

' if hcol = 3 and hairlength > 260 and hairlength <= 400:'

' if hcol = 0 and hairlength > 400:'

' if hcol = 1 and hairlength > 400:'

' if hcol = 2 and hairlength > 400:'

' if hcol = 3 and hairlength > 400:'

' end if curly >= 1 and hpingripw = 1 and hbangs <= 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0: if hcol = 0 and hairlength > 80 and hairlength <= 160:'

' if hcol = 1 and hairlength > 80 and hairlength <= 160:'

' if hcol = 2 and hairlength > 80 and hairlength <= 160:'

' if hcol = 3 and hairlength > 80 and hairlength <= 160:'

' if hcol = 0 and hairlength > 160 and hairlength <= 260:'

' if hcol = 1 and hairlength > 160 and hairlength <= 260:'

' if hcol = 2 and hairlength > 160 and hairlength <= 260:'

' if hcol = 3 and hairlength > 160 and hairlength <= 260:'

' if hcol = 0 and hairlength > 260 and hairlength <= 400:'

' if hcol = 1 and hairlength > 260 and hairlength <= 400:'

' if hcol = 2 and hairlength > 260 and hairlength <= 400:'

' if hcol = 3 and hairlength > 260 and hairlength <= 400:'

' if hcol = 0 and hairlength > 400:'

' if hcol = 1 and hairlength > 400:'

' if hcol = 2 and hairlength > 400:'

' if hcol = 3 and hairlength > 400:'

' end if curly >= 1 and hpingripw = 1 and hbangs >= 1 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0: if hcol = 0 and hairlength > 80 and hairlength <= 160:'

' if hcol = 1 and hairlength > 80 and hairlength <= 160:'

' if hcol = 2 and hairlength > 80 and hairlength <= 160:'

' if hcol = 3 and hairlength > 80 and hairlength <= 160:'

' if hcol = 0 and hairlength > 160 and hairlength <= 260:'

' if hcol = 1 and hairlength > 160 and hairlength <= 260:'

' if hcol = 2 and hairlength > 160 and hairlength <= 260:'

' if hcol = 3 and hairlength > 160 and hairlength <= 260:'

' if hcol = 0 and hairlength > 260 and hairlength <= 400:'

' if hcol = 1 and hairlength > 260 and hairlength <= 400:'

' if hcol = 2 and hairlength > 260 and hairlength <= 400:'

' if hcol = 3 and hairlength > 260 and hairlength <= 400:'

' if hcol = 0 and hairlength > 400:'

' if hcol = 1 and hairlength > 400:'

' if hcol = 2 and hairlength > 400:'

' if hcol = 3 and hairlength > 400:'

' end if hpingripw = 1 and hbangs = 0 and curly <= 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0: if hcol = 0 and hairlength > 80 and hairlength <= 160:'

' if hcol = 1 and hairlength > 80 and hairlength <= 160:'

' if hcol = 2 and hairlength > 80 and hairlength <= 160:'

' if hcol = 3 and hairlength > 80 and hairlength <= 160:'

' if hcol = 0 and hairlength > 160 and hairlength <= 260:'

' if hcol = 1 and hairlength > 160 and hairlength <= 260:'

' if hcol = 2 and hairlength > 160 and hairlength <= 260:'

' if hcol = 3 and hairlength > 160 and hairlength <= 260:'

' if hcol = 0 and hairlength > 260 and hairlength <= 400:'

' if hcol = 1 and hairlength > 260 and hairlength <= 400:'

' if hcol = 2 and hairlength > 260 and hairlength <= 400:'

' if hcol = 3 and hairlength > 260 and hairlength <= 400:'

' end if hpingripw >= 1 and hbangs >= 1 and curly <= 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0: if hcol = 0 and hairlength > 80 and hairlength <= 160:'

' if hcol = 1 and hairlength > 80 and hairlength <= 160:'

' if hcol = 2 and hairlength > 80 and hairlength <= 160:'

' if hcol = 3 and hairlength > 80 and hairlength <= 160:'

' if hcol = 0 and hairlength > 160 and hairlength <= 260:'

' if hcol = 1 and hairlength > 160 and hairlength <= 260:'

' if hcol = 2 and hairlength > 160 and hairlength <= 260:'

' if hcol = 3 and hairlength > 160 and hairlength <= 260:'

' if hcol = 0 and hairlength > 260 and hairlength <= 400:'

' if hcol = 1 and hairlength > 260 and hairlength <= 400:'

' if hcol = 2 and hairlength > 260 and hairlength <= 400:'

' if hcol = 3 and hairlength > 260 and hairlength <= 400:'

' end if hscrunchw = 1 and hbangs = 0 and curly <= 0 and hpingripw = 0 and hpigtail <= 0 and hbraids <= 0: if hcol = 0 and hairlength > 80 and hairlength <= 160:'

' if hcol = 1 and hairlength > 80 and hairlength <= 160:'

' if hcol = 2 and hairlength > 80 and hairlength <= 160:'

' if hcol = 3 and hairlength > 80 and hairlength <= 160:'

' if hcol = 0 and hairlength > 160 and hairlength <= 260:'

' if hcol = 1 and hairlength > 160 and hairlength <= 260:'

' if hcol = 2 and hairlength > 160 and hairlength <= 260:'

' if hcol = 3 and hairlength > 160 and hairlength <= 260:'

' if hcol = 0 and hairlength > 260 and hairlength <= 400:'

' if hcol = 1 and hairlength > 260 and hairlength <= 400:'

' if hcol = 2 and hairlength > 260 and hairlength <= 400:'

' if hcol = 3 and hairlength > 260 and hairlength <= 400:'

' if hcol = 0 and hairlength > 400:'

' if hcol = 1 and hairlength > 400:'

' if hcol = 2 and hairlength > 400:'

' if hcol = 3 and hairlength > 400:'

' end if hscrunchw = 1 and hbangs = 0 and curly >= 1 and hpingripw = 0 and hpigtail <= 0 and hbraids <= 0: if hcol = 0 and hairlength > 80 and hairlength <= 160:'

' if hcol = 1 and hairlength > 80 and hairlength <= 160:'

' if hcol = 2 and hairlength > 80 and hairlength <= 160:'

' if hcol = 3 and hairlength > 80 and hairlength <= 160:'

' if hcol = 0 and hairlength > 160 and hairlength <= 260:'

' if hcol = 1 and hairlength > 160 and hairlength <= 260:'

' if hcol = 2 and hairlength > 160 and hairlength <= 260:'

' if hcol = 3 and hairlength > 160 and hairlength <= 260:'

' if hcol = 0 and hairlength > 260 and hairlength <= 400:'

' if hcol = 1 and hairlength > 260 and hairlength <= 400:'

' if hcol = 2 and hairlength > 260 and hairlength <= 400:'

' if hcol = 3 and hairlength > 260 and hairlength <= 400:'

' if hcol = 0 and hairlength > 400:'

' if hcol = 1 and hairlength > 400:'

' if hcol = 2 and hairlength > 400:'

' if hcol = 3 and hairlength > 400:'

' end if hscrunchw = 1 and hbangs >= 1 and curly <= 0 and hpingripw = 0 and hpigtail <= 0 and hbraids <= 0: if hcol = 0 and hairlength > 80 and hairlength <= 160:'

' if hcol = 1 and hairlength > 80 and hairlength <= 160:'

' if hcol = 2 and hairlength > 80 and hairlength <= 160:'

' if hcol = 3 and hairlength > 80 and hairlength <= 160:'

' if hcol = 0 and hairlength > 160 and hairlength <= 260:'

' if hcol = 1 and hairlength > 160 and hairlength <= 260:'

' if hcol = 2 and hairlength > 160 and hairlength <= 260:'

' if hcol = 3 and hairlength > 160 and hairlength <= 260:'

' if hcol = 0 and hairlength > 260 and hairlength <= 400:'

' if hcol = 1 and hairlength > 260 and hairlength <= 400:'

' if hcol = 2 and hairlength > 260 and hairlength <= 400:'

' if hcol = 3 and hairlength > 260 and hairlength <= 400:'

' if hcol = 0 and hairlength > 400:'

' if hcol = 1 and hairlength > 400:'

' if hcol = 2 and hairlength > 400:'

' if hcol = 3 and hairlength > 400:'

' end if hscrunchw = 1 and hbangs >= 1 and curly >= 1 and hpingripw = 0 and hpigtail <= 0 and hbraids <= 0: if hcol = 0 and hairlength > 80 and hairlength <= 160:'

' if hcol = 1 and hairlength > 80 and hairlength <= 160:'

' if hcol = 2 and hairlength > 80 and hairlength <= 160:'

' if hcol = 3 and hairlength > 80 and hairlength <= 160:'

' if hcol = 0 and hairlength > 160 and hairlength <= 260:'

' if hcol = 1 and hairlength > 160 and hairlength <= 260:'

' if hcol = 2 and hairlength > 160 and hairlength <= 260:'

' if hcol = 3 and hairlength > 160 and hairlength <= 260:'

' if hcol = 0 and hairlength > 260 and hairlength <= 400:'

' if hcol = 1 and hairlength > 260 and hairlength <= 400:'

' if hcol = 2 and hairlength > 260 and hairlength <= 400:'

' if hcol = 3 and hairlength > 260 and hairlength <= 400:'

' if hcol = 0 and hairlength > 400:'

' if hcol = 1 and hairlength > 400:'

' if hcol = 2 and hairlength > 400:'

' if hcol = 3 and hairlength > 400:'

' end if hpigtail = 1 and hscrunchw = 2 and hpingripw = 0 and hbraids <= 0 and curly <= 0 and hbraids <= 0: if hcol = 0 and hairlength > 80 and hairlength <= 160:'

' if hcol = 1 and hairlength > 80 and hairlength <= 160:'

' if hcol = 2 and hairlength > 80 and hairlength <= 160:'

' if hcol = 3 and hairlength > 80 and hairlength <= 160:'

' if hcol = 0 and hairlength > 160 and hairlength <= 260:'

' if hcol = 1 and hairlength > 160 and hairlength <= 260:'

' if hcol = 2 and hairlength > 160 and hairlength <= 260:'

' if hcol = 3 and hairlength > 160 and hairlength <= 260:'

' if hcol = 0 and hairlength > 260 and hairlength <= 400:'

' if hcol = 1 and hairlength > 260 and hairlength <= 400:'

' if hcol = 2 and hairlength > 260 and hairlength <= 400:'

' if hcol = 3 and hairlength > 260 and hairlength <= 400:'

' end if hbraids >= 1 and curly <= 0 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail = 0: if hcol = 0 and hairlength > 80 and hairlength <= 160:'

' if hcol = 1 and hairlength > 80 and hairlength <= 160:'

' if hcol = 2 and hairlength > 80 and hairlength <= 160:'

' if hcol = 3 and hairlength > 80 and hairlength <= 160:'

' if hcol = 0 and hairlength > 160 and hairlength <= 260:'

' if hcol = 1 and hairlength > 160 and hairlength <= 260:'

' if hcol = 2 and hairlength > 160 and hairlength <= 260:'

' if hcol = 3 and hairlength > 160 and hairlength <= 260:'

' if hcol = 0 and hairlength > 260 and hairlength <= 400:'

' if hcol = 1 and hairlength > 260 and hairlength <= 400:'

' if hcol = 2 and hairlength > 260 and hairlength <= 400:'

' if hcol = 3 and hairlength > 260 and hairlength <= 400:'

' end '<<$hair>> <<$mop>> <<$skin>> <<$vnesh>>' if daystart < 10 and StoryLine = 0:'In the mirror, you looked quite strange woman´s face which is exactly copied all your actions. You hardly get to accept the idea that it is now is you.' if daystart >= 10 and daystart < 30 and StoryLine = 0:'From the mirror looks at you a woman´s face, to which you have become accustomed to, but sometimes, no, no and yes flash the idea that it is not your face.' if kosmetica > 0:'Cosmetics <>' if kosmetica = 0:'You have no makeup.' if lipbalm > 0:'Lip Balm <>' if lipbalm = 0:'You have no lip balm left.' if hapri = 0 and AutoHapri = 1: set minut += 3 set hapri = 1 'You brush your hair' end if mop = 1 and kosmetica > 0 and AutoMakeup = 1: set mop = AutoMakeupType if kosmetica < 3 and mop = 4:set mop = 3 if kosmetica < 2 and mop = 3:set mop = 2 if kosmetica < 1 and mop ! 1: set mop = 1 'You have no make-up left' else if mop = 2: 'Applied light make-up' set minut -= 3 set kosmetica -= 1 end if mop = 3: 'Applied natural make-up' set minut -= 5 set kosmetica -= 2 end if mop = 4: 'Applied heavy make-up' set minut -= 10 set vidageday -= 1 set kosmetica -= 3 end end end if lipbalm > 0 and lipbalmstat <= 0 and AutoLipBalm = 1: set minut -= 10 set lipbalm -= 1 set lipkoef += rand(5, 15) if lipkoef > 50: set lipkoef = 0 set lip += 1 end set lipbalmstat += 8 'You smeared lip moisturizing balm' end if hapri = 0: act 'Brush your hair': cla set minut += 3 set hapri = 1 act 'View results':dynamic $portmirror end end if mop = 1 and kosmetica > 0: act 'Apply makeup': cla *clr '

' act 'Light make-up': cla set minut += 3 set kosmetica -= 1 set mop = 2 set recmop = mop 'You legonechko summed eyes and lips a little tint.' act 'View results':dynamic $portmirror end if kosmetica >= 2: act 'Natural makeup': cla set minut += 5 set kosmetica -= 2 set mop = 3 set recmop = mop 'You lipstick, summed up his eyes and eyelids.' act 'View results':dynamic $portmirror end end if kosmetica >= 3: act 'Heavy makeup': cla set minut += 10 set kosmetica -= 3 set vidageday -= 1 set mop = 4 set recmop = mop 'You densely nakrasili eyes, eyelids and mascara, lip contour nakrasili pencil and lipstick.' act 'View results':dynamic $portmirror end end end end if lipbalm > 0 and lipbalmstat <= 0: act 'Smear lip balm moisturizing': cla set minut += 10 set lipbalm -= 1 set lipkoef += rand(5, 15) if lipkoef > 50: set lipkoef = 0 set lip += 1 end set lipbalmstat += 8 'You smeared lip moisturizing balm.' act 'View results':dynamic $portmirror end end act 'Move away from the mirror': cla if $gt2 = '': if $gt1 = 'stwork':dynamic $striptoilet if $gt1 = 'kafedinamic':dynamic $kafetualet if $gt1 = 'vokzalGin': if vokzalToilet = 1:dynamic $din_vokzalg_toilet_f if vokzalToilet = 2:dynamic $din_vokzalg_toilet_m end if $gt1 ! 'stwork' and $gt1 ! 'kafedinamic' and $gt1 ! 'vokzalGin':gt '<<$gt1>>' else gt '<<$gt1>>', '<<$gt2>>' end end } --- portmirror ---------------------------------