# gor_mirror
if $ARGS[0] = 'start':
cla
clr
!!! Maruda Hair Mod
gs 'stat'
!!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
!!! Maruda Hair Mod
'<<$hair>> <<$mop>> <<$skin>> <<$vnesh>>'
if kosmetica > 0:'Cosmetics <>'
if kosmetica = 0:'You have no makeup.'
if hapri = 0:
act 'coiffured':
cla
set minut += 3
set hapri = 1
act 'View results':gt 'gor_mirror', 'start'
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
'You legonechko summed eyes and lips a little tint.'
act 'View results':gt 'gor_mirror', 'start'
end
if kosmetica >= 2:
act 'normal makeup':
cla
set minut += 5
set kosmetica -= 2
set mop = 3
'You lipstick, summed up his eyes and eyelids.'
act 'View results':gt 'gor_mirror', 'start'
end
end
if kosmetica >= 3:
act 'calling makeup':
cla
set minut += 10
set kosmetica -= 3
set vidageday -= 1
set mop = 4
'You heavily nakrasili eyes, eyelids and mascara, lip contour nakrasili pencil and lipstick.'
act 'View results':gt 'gor_mirror', 'start'
end
end
end
end
if lipbalm > 0 and lipbalmstat <= 0:
act 'Smear lip balm moisturizing':
cla
set minut += 10
lipbalm -= 1
set lipkoef += rand(5, 15)
if lipkoef > 50:
set lipkoef = 0
set lip += 1
end
lipbalmstat += 8
'You smeared lip moisturizing balm.'
act 'View results':gt 'gor_mirror', 'start'
end
end
act 'Move away from the mirror':
cla
gt 'dom_gor'
end
end
--- gor_mirror ---------------------------------