glife/locations/011_cikl

# cikl
!циклы
if curly > 0: set curly -= 1
set sweat += 1
if tan > 0: set tan -= 1
if tabletki > 0: set tabletki -= 1
set leghair += 1
set lobok += 1
if suhbelo > 0: set suhbelo2 = suhbelo & set suhbelo = 0
set manna -= 10

!{
if salo>fat:
salo -= 1
fat += 1
end
if salo < fat:
salo += 1
fat -= 1
end
if strenbuf > stren: set strenbuf -= 1
if strenbuf < stren: set strenbuf += 1
if vitalbuf > vital: set vitalbuf -= 1
if vitalbuf < vital: set vitalbuf += 1
if agilbuf > agil: set agilbuf -= 1
if agilbuf < agil: set agilbuf += 1
}

if anus > 1 and anusK < 0: set anusK = 0
if anus > 1 and anusK < 3: set anusK += 1
if anus > 1 and anusK >= 3: set anus -= 1 & set anusK = 0
if vagina > 10 and vaginaK < 0: set vaginaK = 0
if vagina > 10 and vaginaK < 6: set vaginaK += 1
if vagina > 10 and vaginaK >= 6: set vaginaK = 0 & set vagina -= 1

set lipkoef -= 1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!Работы
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!ВЫБРОС ПРОКЛАДКИ
if isprok = 1: Set isprok = 0 & 'You threw used tampon.'

!ЦИКЛ 28 дней 4 дней ментсруация
if preg = 0:
if mesec > 0: Set mesec -= 1
if mesec = 0: Set cikl += 1
if cikl >= 23 and preg ! 1: Set mesec = 4 & Set cikl = 0
end
if preg = 1 and pregtime < 280:
set pregtime += 1
end

if preg = 1 and pregtime = 280 and hourpreg ! hour:
hourpreg = hour
'<center><B>A sharp pain ran through your stomach, and something flows down your legs. Snap, you water broke! You have to get to the clinic fast!</B></center>'
end

if preg = 1 and pregtime > 280:
cla
*clr
set over = 4
'<center><B>A horrible pain shots through your body.</B></center>'
xgt 'gameover'
exit
end

if horny < 100: set horny += vagina
if horny < 0: set horny = 0

if musle >= salo and stren >= 10 and vital >= 10 and dounspell = 0:
!Падение мускулистости
	if downmusl >= 5:
		downmusl   = 0
		set stren -= 1
		set vital -= 1
		set fat   += 4
		salo      += 4
	else
		downmusl  += 1
	end
end

!!! Maruda Hair Mod
!!! Max. Hair length 600mm, or 60cm, which should be somewhere in the lower back area. 
!!! Hair grows 1mm each day, it takes 20 months (1 month = 30 days) to regrow the hair from 0.
if hairlength < 601: set hairlength += 1

if hscrunch > 0:
	set hscrunchRAND = RAND (1,100)
		if hscrunchRAND <= 8: set hscrunch -= 1
end
!!! Maruda Hair Mod

gs 'starenie'
--- cikl ---------------------------------