1
0

cikl 3.3 KB

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