12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697 |
- # 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 ---------------------------------
|