012_cikl 3.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174
  1. # cikl
  2. !cycles
  3. if curly > 0:set curly -= 1
  4. set sweat += 1
  5. if tan > 0:set tan -= 1
  6. if tabletki > 0:set tabletki -= 1
  7. set leghair += 1
  8. set lobok += 1
  9. if suhbelo > 0:set suhbelo2 = suhbelo & set suhbelo = 0
  10. set manna -= 10
  11. !'if salo > fat:
  12. salo -= 1
  13. fat += 1
  14. else
  15. salo += 1
  16. fat -= 1
  17. end
  18. if strenbuf > stren:set strenbuf -= 1
  19. if strenbuf < stren:set strenbuf += 1
  20. if vitalbuf > vital:set vitalbuf -= 1
  21. if vitalbuf < vital:set vitalbuf += 1
  22. if agilbuf > agil:set agilbuf -= 1
  23. if agilbuf < agil:set agilbuf += 1'
  24. if anus > 1 and anusK < 0:set anusK = 0
  25. if anus > 1 and anusK < 3:set anusK += 1
  26. if anus > 1 and anusK >= 3:set anus -= 1 & set anusK = 0
  27. if vagina > 10 and vaginaK < 0:set vaginaK = 0
  28. if vagina > 10 and vaginaK < 6:set vaginaK += 1
  29. if vagina > 10 and vaginaK >= 6:set vaginaK = 0 & set vagina -= 1
  30. set lipkoef -= 1
  31. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  32. !!!!!!!!!!!!jobs
  33. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  34. !RELEASE STRIP
  35. if isprok = 1:set isprok = 0 & 'You threw used tampon.'
  36. !CYCLE 28 days 4 days mentsruatsiya
  37. if preg = 0:
  38. if mesec > 0:set mesec -= 1
  39. if mesec = 0:set cikl += 1
  40. if cikl >= 23 and preg ! 1:set mesec = 4 & set cikl = 0
  41. end
  42. if preg = 1 and pregtime < 280:
  43. set pregtime += 1
  44. if pregtimes = 0:pregtimes = 1
  45. end
  46. if preg = 1 and pregtime = 280 and hourpreg ! hour:
  47. hourpreg = hour
  48. '<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>'
  49. end
  50. if preg = 1 and pregtime > 280:
  51. cla
  52. *clr
  53. set over = 4
  54. '<center><b>A horrible pain shots through your body.</b></center>'
  55. xgt 'gameover'
  56. exit
  57. end
  58. if StoryLine = 0:
  59. if horny < 100:set horny = horny + vagina
  60. else
  61. if vagina = 0:
  62. razeba = 0
  63. if horny > 0 and horny <= 50:horny -= 10
  64. if horny > 50:horny -= 25
  65. end
  66. if vagina > 0:
  67. if pregtimes = 0:
  68. if age < 18:
  69. razeba = 1
  70. if horny > 0 and horny <= 50:horny -= 5
  71. if horny > 50 and horny < 80:horny -= 10
  72. if horny >= 80:horny -= 20
  73. end
  74. if age >= 18 and age < 21:
  75. razeba = 2
  76. if horny > 0 and horny <= 50:horny -= 1
  77. if horny > 50 and horny < 80:horny -= 5
  78. if horny >= 80:horny -= 10
  79. end
  80. if age >= 21 and age < 25:
  81. razeba = 3
  82. if horny > 0 and horny <= 50:horny += 1
  83. if horny > 50 and horny < 80:horny -= 1
  84. if horny >= 80:horny -= 5
  85. end
  86. if age >= 25 and age < 30:
  87. razeba = 4
  88. if horny > 0 and horny <= 50:horny += 5
  89. if horny > 50 and horny < 80:horny += 1
  90. if horny >= 80:horny -= 5
  91. end
  92. if age >= 30:
  93. razeba = 5
  94. if horny > 0 and horny <= 50:horny += 10
  95. if horny > 50 and horny < 80:horny += 5
  96. if horny >= 80:horny += 1
  97. end
  98. end
  99. if pregtimes > 0:
  100. if preg = 0:
  101. razeba = 5
  102. if horny > 0 and horny <= 50:horny += 10
  103. if horny > 50 and horny < 80:horny += 5
  104. if horny >= 80:horny += 1
  105. end
  106. if preg > 0:
  107. razeba = 6
  108. if horny < 100:set horny += pregtime / 10
  109. end
  110. end
  111. end
  112. end
  113. if horny < 0:set horny = 0
  114. if musle >= salo and stren >= 10 and vital >= 10 and dounspell = 0:
  115. !Fall muscularity
  116. if downmusl >= 5:
  117. downmusl = 0
  118. set stren -= 1
  119. set vital -= 1
  120. set fat += 4
  121. set salo += 4
  122. else
  123. downmusl += 1
  124. end
  125. end
  126. !!! Maruda Hair Mod
  127. !!! Max. Hair length 600mm, or 60cm, which should be somewhere in the lower back area.
  128. !!! Hair grows 1mm each day, it takes 20 months (1 month = 30 days) to regrow the hair from 0.
  129. if hairlength < 601:set hairlength += 1
  130. if hscrunch > 0:
  131. set hscrunchrand = rand(1, 100)
  132. if hscrunchrand <= 8:set hscrunch -= 1
  133. end
  134. !!! Maruda Hair Mod
  135. gs 'starenie'
  136. --- cikl ---------------------------------