1
0

cikl 35 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223
  1. # cikl
  2. day += 1
  3. week += 1
  4. hour -= 24
  5. !!Fame call to update all the fame variables
  6. gs 'fame'
  7. !!moving the porn schedule ahead a day, flaffing for missed shootings, if it even matters
  8. if (film > 0 or pornstack = 1) and pfilmNO = 0 and pfilmSTOP = 0:
  9. if pfilmday[0] > 0: gs 'pornschedule', 'pornmiss'
  10. gs 'pornschedule', 'schedule'
  11. end
  12. !!acting strings to set available jobs
  13. if casting = 1:
  14. acting_string1 = rand(1111111111,9999999999)
  15. acting_string2 = rand(1111111111,9999999999)
  16. end
  17. gs 'daystart'
  18. dynamic $hypnoDaychange
  19. !!phone reset for bf
  20. ringA = 0
  21. ringB = 0
  22. ringC = 0
  23. if BuyHous = 2 and ArendHouseSL <= 0: ArendHouseSL = 0 & BuyHous = 0 & housr = 0
  24. if BuyHous = 2 and ArendHouseSL > 0: ArendHouseSL -= 1
  25. !!Appearance Age
  26. vidageday -= 1
  27. if vidageday <= 0:
  28. vidageday = 360
  29. vidage += 1
  30. end
  31. !!Birthday
  32. age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
  33. if ((month * 100) + day) <= pcs_dob mod 10000: age -= 1
  34. if workDolgDay > 0: workDolgDay -= 1
  35. if QWdogreiqTimer > 0: QWdogreiqTimer -= 1
  36. if husband > 0: husbanday += 1
  37. if husband > 10 and husbanday > 0: husband -= 15
  38. if fingal > 0: fingal -= 1
  39. if husbandMark = 1 and husband <= 10:
  40. husbizvradd = 0
  41. husbharmin = 0
  42. husbandMark = 0
  43. husband = 0
  44. divorced += 1
  45. if KFOnLineReaga > 0:KFOnLineReaga -= 1
  46. '<b><font color="red">Your husband has filed for a divorce.</font></b>'
  47. end
  48. if katjaPreg = 0 and month >= 2:
  49. if schoool_year = 2001 and year > 2016:
  50. katjaPreg = 1
  51. elseif schoool_year = 2000 and year > 2017:
  52. katjaPreg = 1
  53. end
  54. end
  55. !!Street events daily reset
  56. streetevent_hour = -2
  57. !!Clothing stock and price randomizers
  58. Clothingstock = rand (0,23)
  59. i = 1
  60. :loopprice
  61. Clothingstock[i] = rand (0,500)
  62. i += 1
  63. if i <= 147:jump 'loopprice'
  64. if coatH[defaultcoat] <= 0: defaultcoat = 0
  65. !!------------------------------------------------------------------------------------------------------------
  66. !! Bimbo
  67. !!------------------------------------------------------------------------------------------------------------
  68. !!A Succubus cannot be a Bimbo
  69. if succubusflag = 1 and bimbo > 0: bimbo -= succublvl * 2
  70. !!Bonus from clothing and shoes
  71. if succubusflag = 0 and $cheatBimbo ! '<b>ON</b>':
  72. if bimbocl = 1:
  73. bimbocl = 0
  74. bimbo += 2
  75. end
  76. if bimbosh = 1:
  77. bimbosh = 0
  78. bimbo += 1
  79. end
  80. else
  81. bimbocl = 0
  82. end
  83. !!Once bimbolevel is set to 1, must use the withdrawal in stat to return to 0
  84. if bimbo > 0 or bimbolevel > 0:
  85. if bimbo < 10:
  86. bimbo -= 1
  87. elseif bimbo < 20:
  88. bimbolevel = 1
  89. elseif bimbo < 30:
  90. bimbolevel = 2
  91. else
  92. bimbolevel = 3
  93. end
  94. end
  95. if bimbo >= 40: bimbo = 40
  96. !!Bimbo levels. They use custom variables so they wont permanently change character stats
  97. if bimbolevel = 0: supnatvnesh = 0 & bimbostupidity = 0
  98. if bimbolevel = 1: supnatvnesh = 2 & bimbostupidity = (pcs_intel / 6)
  99. if bimbolevel = 2: supnatvnesh = 4 & bimbostupidity = (pcs_intel / 4)
  100. if bimbolevel = 3: supnatvnesh = 8 & bimbostupidity = (pcs_intel / 3)
  101. !!Succubus Level & hunger calcs
  102. if succubusflag = 1:
  103. cheatHealth = 1
  104. dynamic $cheatmenu['std_cure']
  105. !! A Succubus cannot be a Bimbo
  106. if bimbolevel > 0 and bimbo > 0: bimbowithdrawal = 40
  107. !! Hunger handling
  108. if sucxpsnapshot >= succubxp: succhungry += 1
  109. sucxpsnapshot = succubxp
  110. if succubxp < 0: succubxp = 0
  111. !! Level handling
  112. if succubxp < 60:
  113. succublvl = 1
  114. $sucself1 = 'that feeling'
  115. sucstorecap = 0
  116. if bimbolevel <= 0: supnatvnesh = 1
  117. elseif succubxp < 150:
  118. succublvl = 2
  119. $sucself1 = 'the power'
  120. sucstorecap = 0
  121. if bimbolevel <= 0: supnatvnesh = 3
  122. elseif succubxp < 270:
  123. succublvl = 3
  124. $sucself1 = 'your other self'
  125. sucstorecap = 100
  126. if bimbolevel <= 0: supnatvnesh = 6
  127. else
  128. succublvl = 4
  129. $sucself1 = 'your true self'
  130. sucstorecap = 200
  131. if bimbolevel <= 0: supnatvnesh = 10
  132. end
  133. if sucskill >= 2 and succublvl >= 2: sucstorecap += 100
  134. if sucskill >= 3 and succublvl >= 2: sucstorecap += (sucstorecap * 2) / 10
  135. if stren_muta < (succublvl - 1): stren_muta = (succublvl - 1)
  136. if agil_muta < (succublvl - 1): agil_muta = (succublvl - 1)
  137. if vital_muta < (succublvl - 1): vital_muta = (succublvl - 1)
  138. if intel_muta < (succublvl - 1): intel_muta = (succublvl - 1)
  139. if react_muta < (succublvl - 1): react_muta = (succublvl - 1)
  140. if sprt_muta < (succublvl - 1): sprt_muta = (succublvl - 1)
  141. if chrsm_muta < (succublvl - 1): chrsm_muta = (succublvl - 1)
  142. if prcptn_muta < (succublvl - 1): prcptn_muta = (succublvl - 1)
  143. if (sucexcess >= 100 and (sucskill < 2 or succhungry > -2)) or (sucexcess >= 100 + sucstorecap and sucskill >= 2):
  144. if pcs_stren < 250: stren_exp += 20 & sucexcess -= 10
  145. if pcs_agil < 250: agil_exp += 20 & sucexcess -= 10
  146. if pcs_vital < 250: vital_exp += 20 & sucexcess -= 10
  147. if pcs_intel < 250: intel_exp += 20 & sucexcess -= 10
  148. if pcs_react < 250: react_exp += 20 & sucexcess -= 10
  149. if pcs_sprt < 250: sprt_exp += 20 & sucexcess -= 10
  150. if pcs_chrsm < 250: chrsm_exp += 20 & sucexcess -= 10
  151. if pcs_prcptn < 250: prcptn_exp += 20 & sucexcess -= 10
  152. if succhungry > (0 - 2 - succublvl): succhungry -= 1 & sucexcess -= 10
  153. if pcs_skin < 100: pcs_skin += 1 & sucexcess -= 2
  154. !! This is to drive the Succubus vidage into the max appearance range
  155. if vidageday < 720 and vidage >= 28: vidageday += 4 & sucexcess -= 4
  156. if vidageday > 0 and vidage <= 20: vidageday -= 4 & sucexcess -= 4
  157. if vidageday >= 720 and vidage > 28:
  158. vidageday -= 360
  159. vidage -= 1
  160. end
  161. if sucexcess > sucstorecap: sucexcess = sucstorecap
  162. elseif sucexcess < 0 and succhungry < 0:
  163. succhungry += 1
  164. if (0 - sucexcess) < (10 * succublvl):
  165. sucexcess = 0
  166. else
  167. sucexcess += (10 * succublvl)
  168. end
  169. end
  170. if sucexcess < 0: sucpowzeroed += 1
  171. if sucexcess >= 0 and sucpowzeroed > 0: sucpowzeroed -= 1
  172. !! This is so a Succubus always moves toward a default vaginal and anal size when she has the accomadation ability
  173. if sucskill >= 4:
  174. if pcs_vag - 2 >= 13:
  175. pcs_vag -= 2
  176. elseif pcs_vag + 2 <= 13:
  177. pcs_vag += 2
  178. end
  179. if pcs_ass - 2 >= 8:
  180. pcs_ass -= 2
  181. elseif pcs_ass + 2 <= 8:
  182. pcs_ass += 2
  183. end
  184. end
  185. end
  186. !!Bimbo second half, after Succubus so changes there can be reflected here if still bimbo and Succubus
  187. !!Checks how often sex has occured in the last 24 hours and for drops in bimbo score, for calculating withdrawal
  188. if bimbolevel >= 1:
  189. bimbo += ((stat['vaginal'] + stat['bj'] + stat['anal']) - snapshotX) - 3
  190. if bimbo > snapshotY:
  191. bimbowithdrawal = 0
  192. else
  193. bimbowithdrawal += 1
  194. end
  195. end
  196. if bimbo < 0: bimbo = 0
  197. snapshotX = (stat['vaginal'] + stat['bj'] + stat['anal'])
  198. snapshotY = bimbo
  199. !!------------------------------------------------------------------------------------------------------------
  200. if defcurly = 0 and curly > 0:curly -= 1
  201. if defcurly = 1:
  202. if straight > 0: straight -= 1
  203. if straight = 0: curly = 2147483647
  204. end
  205. ! WD: Added daily reduction of braids for Maruda Hair Mod
  206. if hbraids > 0: hbraids -= 1
  207. pcs_sweat += 2
  208. if pcs_tan > 0: pcs_tan -= 1
  209. if prezikmsg = 2: prezikmsg = 3
  210. !!------------------------------------------------------------------------------------------------------------
  211. !! Birth control
  212. !!------------------------------------------------------------------------------------------------------------
  213. !! Birth Control Management variables
  214. !!
  215. !! tabletkimm : The modifier for the current mood of the MC.
  216. !! tabletkiap : Autopill factor affecting the liklihood you took your pill as you should have
  217. !! tabletkipt : Pill Dicipline Take increase
  218. !! tabletkipi : Pill Dicipline Dont take increase
  219. !! tabletkicpd : Current MC Pill Dicipline
  220. !! tabletkichday : Current day that the Birth Control is being evaluated for
  221. !! tabletkicheck : If the birth control is automatically handled
  222. !! tabletki : How many packages of Birth Control Pills there are
  223. !! tabletkiold : Total number packages of expired pills
  224. !! tabletkifake : Total number packages of fake/counterfeit pills
  225. !! tabletkirej : Total number packages of factory rejected pills
  226. !! tabletkifert : Total number packages of subsituted fertility pills
  227. !! tabletkisug : Total number packages of sugar pills
  228. !! pillsleft : Total number packages of pills in current package
  229. !! tabletkishot : The flag for being on the Birth Control shot.
  230. !! pillcon : The number for the current birth control chemical level.
  231. !! pilldays : The number of consecutive days (you believe) you have taken your pill
  232. if tabletkishot <= 0: pillcon -= 1000 & pillcon2 -= 1000
  233. if pillcon < 0: pillcon = 0
  234. if pillcon2 < 0: pillcon2 = 0
  235. if tabletkicheck = 2:
  236. if tabletkishot ! 0:
  237. !!cycle = 1
  238. mesec = 0
  239. if rand(0,1000) = 1000:
  240. EggRH = rand(20,80)
  241. else
  242. EggRH = 0
  243. end
  244. FocH = EggRH
  245. end
  246. if tabletkishot <= 0:
  247. pillcon -= 29000
  248. pillcon2 -= 29000
  249. if tabletkishot < 0: tabletkishot = 0
  250. end
  251. if shotdays = -8:
  252. tabletkicheck = 0
  253. shotdue = 0
  254. 'Your birth control shot is no longer protecting you.'
  255. elseif shotdays <= 0:
  256. if shotdays = 0:
  257. shotdue = 7
  258. else
  259. shotdue -= 1
  260. end
  261. 'The chemicals regulating your fertility cycle are wearing off, you need to get your shot in <<shotdue>> days.'
  262. elseif shotdays > 1 and shotdays < 5:
  263. 'You are due for a birth control shot soon if you do not get one, you might get pregnant.'
  264. elseif shotdays = 1:
  265. 'Your birth control shot is due for renewal tomorrow.'
  266. end
  267. if shotdays > -100:shotdays -=1
  268. if tabletkishot > 0:tabletkishot -= 1
  269. end
  270. tabletkipd += tabletkipi
  271. tabletkipi = 0
  272. tabletkipt = 0
  273. if tabletkicheck = 1:
  274. if tabletki = 0 and pillsleft[ptype] = 0:
  275. tabletkicheck = 0
  276. 'You are out of birth control pills.'
  277. tabletkipi = -5
  278. elseif tabletki = 0 and pillsleft[ptype] = 28:
  279. 'You have just opened your last package of birth control pills. You need to buy more.'
  280. elseif tabletki = 0 and pillsleft[ptype] <= 5:
  281. 'You are running out of birth control pills, you only have a few left.'
  282. end
  283. end
  284. if tabletkicheck = 1 and tabletkichday < daystart:
  285. tabletkichday = daystart
  286. tabletkimm = (100*(pcs_willpwr / willpowermax)) + pcs_mood
  287. if pcs_sleep < 10:
  288. tabletkimm -= (100- (pcs_sleep * 10))
  289. end
  290. if pcs_willpwr < willpowermax / 4:
  291. tabletkimm = tabletkimm / 4
  292. elseif pcs_mood < 10:
  293. tabletkimm = tabletkimm / 2
  294. end
  295. tabletkiap = tabletkimm
  296. tabletkiap += (pcs_intel * 4) + (pcs_sprt * 2) + (age * 3)
  297. tabletkiap -= ((kid * 30) + (abort * 2) - (tabletkipd * ((60 - age) / 10)))
  298. temprand = rand(0,(200 + (tabletkimm - ((100 - pcs_sprt) * 3))))
  299. tabletkiap += temprand
  300. if tabletkiap < 300:
  301. if tabletkipd > -10:
  302. if pcs_willpwr < willpowermax / 4:
  303. pilldaychk = 0
  304. 'You stare at your package of birth control pills, you know you should take one but you can''t quite work up enough effort to care.'
  305. elseif pcs_mood < 10:
  306. pilldaychk = 0
  307. 'You stare at your package of birth control pills, but you don''t open it.'
  308. elseif pcs_sleep < 10:
  309. pilldaychk = 0
  310. 'You fumble with your birth control pills, trying to get a pill out. You finally give up too tired to manage it.'
  311. else
  312. pilldaychk = 0
  313. 'You just realized you forgot to take your birth control pill today.'
  314. end
  315. end
  316. tabletkipt = 2
  317. tabletkipi = -4
  318. else
  319. if tabletkiap < 350:
  320. temprand = rand(0,5)
  321. else
  322. temprand = rand(0,1000)
  323. end
  324. if temprand = 0:
  325. temprand = rand(0,1)
  326. if temprand = 0:
  327. gs 'din_bad','takepill'
  328. tabletkipt = -2
  329. tabletkipi = 1
  330. else
  331. tabletkipt = 3
  332. tabletkipi = -3
  333. end
  334. if tabletkipd > -10:
  335. pilldaychk = 0
  336. 'You find yourself holding the bottle of birth control pills, you cannot remember if you took one or not.'
  337. end
  338. if tabletkipd > 0:
  339. if rand(0,9) = 0:
  340. if tabletkipt < 0:
  341. pilldaychk = 0
  342. 'You don''t think you have taken your pill today.'
  343. else
  344. pilldaychk = 1
  345. 'You think you have taken your pill today.'
  346. end
  347. else
  348. if tabletkipt > 0:
  349. pilldaychk = 0
  350. 'You don''t think you have taken your pill today.'
  351. else
  352. pilldaychk = 1
  353. 'You think you have taken your pill today.'
  354. end
  355. end
  356. end
  357. else
  358. 'You take your birth control pill for the day.'
  359. pilldaychk = 1
  360. gs 'din_bad','takepill'
  361. end
  362. if rand(0,7) = 0 and tabletkiday >= (daystart - 1): tabletkipd += 1
  363. tabletkiday = daystart
  364. tabletkipt = 0
  365. tabletkipi = 0
  366. end
  367. end
  368. elseif tabletkicheck = 0:
  369. if tabletkiday >= (daystart - 1) and tabletkipt = 0 and rand(0,7) = 0: tabletkipt = 1
  370. if pillcon > 0 and tabletkipi = 0 and rand(0,3) and (tabletkiday + 15) > daystart = 0: tabletkipi = -1
  371. end
  372. if pilldaychk = 1:
  373. pilldays += 1
  374. else
  375. pilldays -= 1
  376. end
  377. pilldaychk = 0
  378. if pilldays > 18: pilldays = 18
  379. if pilldays < 0: pilldays = 0
  380. !!------------------------------------------------------------------------------------------------------------
  381. if lashair ! 1:
  382. pcs_leghair += 1
  383. pcs_pubes += 1
  384. end
  385. if age < 18 and rand (0,2) = 0 and pcs_leghair > 0: pcs_leghair -= 1
  386. if suhbelo > 0:suhbelo2 = suhbelo & suhbelo = 0
  387. if pcs_breath = 1:pcs_breath = 0
  388. if cheatNoEat = 1 and dounspell = 1:fat += 15
  389. !!STD check
  390. if SifacOnce = 1:Sifilis += 1
  391. if GerpesOnce = 1:Gerpes += 1
  392. if TriperOnce = 1:Triper += 1
  393. if KandidozOnce = 1:Kandidoz += 1
  394. VeneraN = 0
  395. if VeneraOnce > 0:VeneraOnce = 0
  396. if SifacOnce = 1:VeneraN += 1
  397. if GerpesOnce = 1:VeneraN += 1
  398. if TriperOnce = 1:VeneraN += 1
  399. Venera = VeneraN
  400. if pcs_ass > 1 and ashrink > 0 and analplugIN = 0:
  401. if anusK < 0:anusK = 0
  402. if anusK < ashrinkdays:anusK += 1
  403. if anusK >= ashrinkdays:pcs_ass -= ashrink & anusK = 0
  404. if pcs_ass < 0: pcs_ass = 0
  405. end
  406. if pcs_vag > 10 and vshrink > 0:
  407. if vaginaK < 0:vaginaK = 0
  408. if vaginaK < vshrinkdays:vaginaK += 1
  409. if vaginaK >= vshrinkdays:vaginaK = 0 & pcs_vag -= vshrink
  410. end
  411. lipkoef -= rand(0,1)
  412. if lipkoef <= 0: lipkoef = 0
  413. if Enable_autotampon = 0 and isprok = 1:isprok = 0 & 'You threw away your used tampon.'
  414. if Enable_autotampon = 0 and isprokp = 1:isprokp = 0 & 'You threw away your used sanitary pad.'
  415. if preg = 1:
  416. pregtime = pregchem / 24
  417. if pregtimes = 0:pregtimes = 1
  418. elseif preg = 2 and pregminut < totminut:
  419. if Enable_nogameover = 0 :
  420. cla
  421. *clr
  422. over = 4
  423. MSG '<center><b>A horrible pain shoots through your body.</b></center>'
  424. xgt 'gameover'
  425. exit
  426. else
  427. MSG'<font color=red><B>You should die for giving birth unprepared, but Cheat Mode keeps you Alive.</B></font>'
  428. pregminut = totminut + 1440
  429. end
  430. elseif preg = 0:
  431. KILLVAR 'pregTalkBrother'
  432. KILLVAR 'pregTalkSister'
  433. KILLVAR 'pregTalkFather'
  434. !{KILLVAR 'pregTalkFamily' -- Do not kill this (Abortion talk).}
  435. KILLVAR 'pregTalkMom'
  436. KILLVAR 'pregTalk'
  437. KILLVAR 'pregTalkNat'
  438. KILLVAR 'pregTalkKatja'
  439. KILLVAR 'pregTalkAlbina'
  440. KILLVAR 'pregTalkPC'
  441. KILLVAR 'pregTalkStarlets'
  442. KILLVAR 'pregTalkvball'
  443. KILLVAR 'pregTalkTrack'
  444. killvar 'pregtalkStarlets'
  445. killvar 'pregtalkvball'
  446. killvar 'pregtime'
  447. killvar 'knowpreg'
  448. killvar 'denypreg'
  449. killvar '$wombthfath'
  450. end
  451. !!------------------------------------------------------------------------------------------------------------
  452. !! Arousal
  453. !!------------------------------------------------------------------------------------------------------------
  454. if StoryLine = 0 or altQS = 1:
  455. if pcs_horny < 100:pcs_horny += pcs_vag
  456. else
  457. if pcs_vag = 0:
  458. razeba = 0
  459. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 10
  460. if pcs_horny > 50:pcs_horny -= 25
  461. elseif pcs_vag > 0:
  462. if pregtimes = 0:
  463. if age < 18:
  464. razeba = 1
  465. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 5
  466. if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 10
  467. if pcs_horny >= 80:pcs_horny -= 20
  468. elseif age >= 18 and age < 21:
  469. razeba = 2
  470. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 1
  471. if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 5
  472. if pcs_horny >= 80:pcs_horny -= 10
  473. elseif age >= 21 and age < 25:
  474. razeba = 3
  475. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 1
  476. if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 1
  477. if pcs_horny >= 80:pcs_horny -= 5
  478. elseif age >= 25 and age < 30:
  479. razeba = 4
  480. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 5
  481. if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 1
  482. if pcs_horny >= 80:pcs_horny -= 5
  483. elseif age >= 30:
  484. razeba = 5
  485. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
  486. if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
  487. if pcs_horny >= 80:pcs_horny += 1
  488. end
  489. elseif pregtimes > 0:
  490. if preg = 0:
  491. razeba = 5
  492. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
  493. if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
  494. if pcs_horny >= 80:pcs_horny += 1
  495. elseif preg > 0:
  496. razeba = 6
  497. if pcs_horny < 100:pcs_horny += pregtime / 10
  498. end
  499. end
  500. end
  501. end
  502. if pcs_horny < 0:pcs_horny = 0
  503. !!------------------------------------------------------------------------------------------------------------
  504. !!Exhibitionism
  505. if exhibition_outdoors > 0:
  506. if pcs_exhibition > 90:
  507. exhibition_outdoors = exhibition_outdoors * 3
  508. elseif pcs_exhibition > 75:
  509. exhibition_outdoors = exhibition_outdoors * 5 / 2
  510. elseif pcs_exhibition > 60:
  511. exhibition_outdoors = exhibition_outdoors * 2
  512. elseif pcs_exhibition > 30:
  513. exhibition_outdoors = exhibition_outdoors * 3 / 2
  514. end
  515. if exhibition_outdoors <= 5:
  516. exhibition_exp += rand(3,6)
  517. elseif exhibition_outdoors <= 10:
  518. exhibition_exp += rand(5,9)
  519. elseif exhibition_outdoors <= 15:
  520. exhibition_exp += rand(7,12)
  521. elseif exhibition_outdoors <= 20:
  522. exhibition_exp += rand(9,15)
  523. elseif exhibition_outdoors <= 25:
  524. exhibition_exp += rand(12,20)
  525. elseif exhibition_outdoors <= 30:
  526. exhibition_exp += rand(16,25)
  527. elseif exhibition_outdoors <= 35:
  528. exhibition_exp += rand(20,30)
  529. elseif exhibition_outdoors <= 40:
  530. exhibition_exp += rand(25,40)
  531. elseif exhibition_outdoors <= 50:
  532. exhibition_exp += rand(35,50)
  533. elseif exhibition_outdoors <= 65:
  534. exhibition_exp += rand(50,75)
  535. else
  536. exhibition_exp += rand(70,100)
  537. end
  538. end
  539. exhibition_outdoors = 0
  540. if pcs_exhibition = 0:
  541. if exhibition_exp >= 5: pcs_exhibition = 1 & exhibition_exp -= 5
  542. else
  543. !!Intentional double to add up to 2 points
  544. if exhibition_exp >= 5 * pcs_exhibition / 2: exhibition_exp -= 5 * pcs_exhibition / 2 & pcs_exhibition += 1
  545. if exhibition_exp >= 5 * pcs_exhibition / 2: exhibition_exp -= 5 * pcs_exhibition / 2 & pcs_exhibition += 1
  546. end
  547. if pcs_exhibition > 50 and exhibitionQW < 3: pcs_exhibition = 50
  548. !counter for Dimka avoidance
  549. if dimaFilm = 1 and dimaRudeBlock = 0:
  550. nodimkaK += 1
  551. DimkaWarnedToday = 0
  552. end
  553. !!------------------------------------------------------------------------------------------------------------
  554. !!Fame degradation
  555. gs 'fame', 'deg'
  556. !!------------------------------------------------------------------------------------------------------------
  557. !! Maruda hair mod
  558. !!------------------------------------------------------------------------------------------------------------
  559. !! Max. Hair length 600mm, or 60cm, which should be somewhere in the lower back area.
  560. !! Hair grows 1mm each day, it takes 20 months (1 month = 30 days) to regrow the hair from 0.
  561. if pcs_hairlng < 1001:pcs_hairlng += 1
  562. if pcs_haircol ! nathcol:
  563. dyefade -=1
  564. if dyefade < 0: dyefade = 0
  565. if dyefade > 0 and dyefade < 7: dyevmod = 5
  566. if dyefade = 0: dyevmod = 15
  567. end
  568. if hscrunch > 0:
  569. hscrunchrand = rand(1, 100)
  570. if hscrunchrand <= 8:hscrunch -= 1
  571. end
  572. !!------------------------------------------------------------------------------------------------------------
  573. gs 'starenie'
  574. if nark > 60:
  575. nark = 60
  576. elseif nark > 30:
  577. nark -= 3
  578. elseif nark > 0:
  579. nark -= 1
  580. end
  581. if pregtime > 10:fat += 1
  582. !!------------------------------------------------------------------------------------------------------------
  583. !! Pain
  584. !!------------------------------------------------------------------------------------------------------------
  585. if pain['head'] > 0:pain['head'] -= rand(1,3)
  586. if pain['hair'] > 0:pain['hair'] -= rand(1,3)
  587. if pain['ears'] > 0:pain['ears'] -= rand(1,3)
  588. if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(1,3)
  589. if pain['eyes'] > 0:pain['eyes'] -= rand(1,3)
  590. if pain['cheeks'] > 0:pain['cheeks'] -= rand(1,3)
  591. if pain['nose'] > 0:pain['nose'] -= rand(1,3)
  592. if pain['mouth'] > 0:pain['mouth'] -= rand(1,3)
  593. if pain['lips'] > 0:pain['lips'] -= rand(1,3)
  594. if pain['tongue'] > 0:pain['tongue'] -= rand(1,3)
  595. if pain['throat'] > 0:pain['throat'] -= rand(1,3)
  596. if pain['neck'] > 0:pain['neck'] -= rand(1,3)
  597. if pain['back'] > 0:pain['back'] -= rand(1,3)
  598. if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(1,3)
  599. if pain['asshole'] > 0:pain['asshole'] -= rand(1,3)
  600. if pain['hips'] > 0:pain['hips'] -= rand(1,3)
  601. if pain['thighs'] > 0:pain['thighs'] -= rand(1,3)
  602. if pain['legL'] > 0:pain['legL'] -= rand(1,3)
  603. if pain['legR'] > 0:pain['legR'] -= rand(1,3)
  604. if pain['feet'] > 0:pain['feet'] -= rand(1,3)
  605. if pain['toes'] > 0:pain['toes'] -= rand(1,3)
  606. if pain['shoulders'] > 0:pain['shoulders'] -= rand(1,3)
  607. if pain['armL'] > 0:pain['armL'] -= rand(1,3)
  608. if pain['armR'] > 0:pain['armR'] -= rand(1,3)
  609. if pain['hands'] > 0:pain['hands'] -= rand(1,3)
  610. if pain['fingers'] > 0:pain['fingers'] -= rand(1,3)
  611. if pain['chest'] > 0:pain['chest'] -= rand(1,3)
  612. if pain['breasts'] > 0:pain['breasts'] -= rand(1,3)
  613. if pain['nipples'] > 0:pain['nipples'] -= rand(1,3)
  614. if pain['ribs'] > 0:pain['ribs'] -= rand(1,3)
  615. if pain['tummy'] > 0:pain['tummy'] -= rand(1,3)
  616. if pain['pubic'] > 0:pain['pubic'] -= rand(1,3)
  617. if pain['vaginal'] > 0:pain['vaginal'] -= rand(1,3)
  618. if pain['labia'] > 0:pain['labia'] -= rand(1,3)
  619. if pain['clitoris'] > 0:pain['clitoris'] -= rand(1,3)
  620. if pain['urethra'] > 0:pain['urethra'] -= rand(1,3)
  621. if pain['cervix'] > 0:pain['cervix'] -= rand(1,3)
  622. if painpub = 2:
  623. if painpubday + 5 < daystart:
  624. $painpub = 'Your vulva is painfully sore.'
  625. painpub = 1
  626. painpubday = daystart
  627. elseif painpubday + 5 >= daystart:
  628. $painpub = 'Your vulva is painfully sore.'
  629. end
  630. elseif painpub = 1:
  631. if painpubday + 5 < daystart:
  632. $painpub = ''
  633. painpub = 0
  634. painpubday = daystart
  635. elseif painpubday + 5 >= daystart:
  636. $painpub = 'Your vulva is a little sore.'
  637. end
  638. end
  639. !!---- Calculation of lash extension degradation and false lash removal
  640. if pcs_lashes > 2:
  641. if lashextensionstyle >= 1:
  642. lashextensionduration -= 1
  643. if lashextensionduration >= 1 and lashextensionduration <= 4:
  644. 'It''s time for you to do your maintenance on your lash extensions; you should go to the salon or you risk growing them all out.'
  645. end
  646. if lashextensionduration <= 0:
  647. 'You waited too long to do maintenance on your lash extensions; there''s too little there to notice or work with at this point.'
  648. pcs_lashes = pcs_naturallashes
  649. killvar lashextensionstyle
  650. killvar lashextensionduration
  651. killvar lashextensionnew
  652. end
  653. end
  654. if false_lashes > 0:
  655. false_lashes -= 1
  656. if false_lashes = 0:
  657. 'Your false lashes came off in the night; there''s no recovering them now.'
  658. pcs_lashes = pcs_naturallashes
  659. else
  660. 'Somehow, your lashes managed to stay attached throughout the night. You might be able to get away with wearing them another day straight.'
  661. end
  662. end
  663. end
  664. prezikProver += 1
  665. if pirs_pain_ton > 0:pirs_pain_ton -= 1
  666. if shorthair = 1:
  667. shorthairday += 1
  668. if shorthairday >= 45:shorthairday = 0 & shorthair = 0
  669. end
  670. !!------------------------------------------------------------------------------------------------------------
  671. if KatjaOTN > 0:
  672. if KatjaHorny > 0 and KatjaLust < 40:KatjaHorny -= rand(1, 3)
  673. if KatjaLust >= 40:KatjaHorny += rand(1, 3)
  674. if KatjaHorny < 0:KatjaHorny = 0
  675. if KatjaHorny >= 100:KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
  676. end
  677. if npc_rel['A69'] > 60 and rand(0,3) = 0:npc_rel['A69'] -= 1
  678. !!------------------------------------------------------------------------------------------------------------
  679. !! Generation
  680. !!------------------------------------------------------------------------------------------------------------
  681. if NPCnum < 290:
  682. NPCnow = NPCnum
  683. NPCnum += rand(1, 3)
  684. gs 'npc'
  685. elseif NPCnum < 300:
  686. NPCnow = NPCnum
  687. NPCnum += 1
  688. gs 'npc'
  689. end
  690. !!------------------------------------------------------------------------------------------------------------
  691. if kanikuli = 0:pcs_grades -= 1
  692. dmishaevent = 0
  693. if Gspravka <= 0 and GspravkaT = 1:GspravkaT = 0 & Gspravka = 0
  694. if GspravkaT = 1:Gspravka -= 1
  695. if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30:IvanPodstavaQW = 3
  696. if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30:PodpiskaNeviezd += 1
  697. gs 'stat_sklattrib', 'daycall'
  698. if dounspell = 1:
  699. if strenbuf > 90:
  700. strenbuf -= 2
  701. elseif strenbuf > 80:
  702. strenbuf -= 1
  703. end
  704. if vitalbuf > 90:
  705. vitalbuf -= 2
  706. elseif vitalbuf > 80:
  707. vitalbuf -= 1
  708. end
  709. if strenbuf > pcs_stren: strenbuf -= 1
  710. if strenbuf < pcs_stren: strenbuf += 1
  711. if vitalbuf > pcs_vital: vitalbuf -= 1
  712. if vitalbuf < pcs_vital: vitalbuf += 1
  713. if agilbuf > pcs_agil: agilbuf -= 1
  714. if agilbuf < pcs_agil: agilbuf += 1
  715. else
  716. gs 'body_shape'
  717. end
  718. if husband > 0 and husbandrink ! 11:husbandrink = rand(0, 10)
  719. inWorkYoungShop = 0
  720. husbandsexday = 0
  721. borsexkol = 0
  722. givisexday = 0
  723. if shantsr > 0:
  724. pay = shantsr * 5000
  725. karta += pay
  726. shantsr = 0
  727. end
  728. if shantbog > 0:
  729. :shantftb
  730. shantftbgrand = rand(0, 10)
  731. if shantftbgrand > 2:
  732. shantpopala += 1
  733. shantbog -= 1
  734. if shantbog > 0:jump 'shantftb'
  735. elseif shantftbgrand <= 2:
  736. karta += 30000
  737. shantbog -= 1
  738. if shantbog > 0:jump 'shantftb'
  739. end
  740. end
  741. petersexday = 0
  742. klismaday1 = 0
  743. !!------------------------------------------------------------------------------------------------------------
  744. !! Banking
  745. !!------------------------------------------------------------------------------------------------------------
  746. !!MJ: Add some (daily) interest to the bank account.
  747. !!Not very realistic but wont make anyone too rich.
  748. if bankAccount = 1:
  749. kartatotal = karta
  750. :kartaloop
  751. if kartatotal > 20000000:
  752. kartacount += 1
  753. largekarta[kartacount] = 20000000
  754. kartatotal -= 20000000
  755. jump 'kartaloop'
  756. else
  757. largekarta[0] = kartatotal
  758. end
  759. if karta >= 2000000:
  760. !! yearly interest of 2.3% recalculated into daily interest = 0.006% daily
  761. intrate = 60
  762. elseif karta >= 0:
  763. !! yearly interest of 1.15% recalculated into daily interest = 0.003% daily
  764. intrate = 30
  765. else
  766. !! yearly overdraft interest of 20% recalculated into daily interest = 0.055% daily
  767. intrate = 550
  768. end
  769. :intloop
  770. if kartacount > 0:
  771. smallmoneypos += (largekarta[kartacount] * intrate)
  772. if smallmoneypos >= 1000000 or smallmoneypos <= -1000000: karta += smallmoneypos / 1000000 & smallmoneypos = smallmoneypos mod 1000000
  773. largekarta[kartacount] = 0
  774. kartacount -= 1
  775. jump 'intloop'
  776. else
  777. smallmoneypos += (largekarta[0] * intrate)
  778. largekarta[0] = 0
  779. if kartacount ! 0: kartacount = 0
  780. end
  781. if smallmoneypos >= 1000000 or smallmoneypos <= -1000000:
  782. karta += smallmoneypos / 1000000
  783. smallmoneypos = smallmoneypos mod 1000000
  784. end
  785. if atmDeposit > 0 and atmDepositDate <= daystart:
  786. karta += atmDeposit
  787. atmDeposit = 0
  788. end
  789. end
  790. !!------------------------------------------------------------------------------------------------------------
  791. !! Payments
  792. !!------------------------------------------------------------------------------------------------------------
  793. if day = 25:
  794. !! meynold payment
  795. if mey_vika_qw >= 35 and mey_tamara_help_count >= 10 and mey_tamara_qw_end = 0:
  796. money += 10000
  797. '<b><font color=green>For your efforts aunt Tamara gave you 10000 rubles</font></b>'
  798. mey_tamara_help_count = 0
  799. end
  800. if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
  801. Pay = PersSecWorkTimes * 2500
  802. PersSecWorkTimes = 0
  803. karta += Pay
  804. paydaybistrosec = 1
  805. '<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a secretary.</font></b>'
  806. end
  807. if workKafe = 1 and paydayKafe = 0:
  808. paydayKafe = 1
  809. pay = smenaKafe * 600
  810. karta += pay
  811. smenaKafe = 0
  812. '<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a waitress in a cafe.</font></b>'
  813. end
  814. if workhosp = 1 and nopaypoly = 0:
  815. pay = smena * 1000
  816. karta += pay
  817. smena = 0
  818. nopaypoly = 1
  819. '<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your work in the clinic.</font></b>'
  820. end
  821. if worksalon = 1 and nopaysalon = 0:
  822. pay = smena * 800
  823. karta += pay
  824. smena = 0
  825. nopaysalon = 1
  826. '<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your work in a beauty salon.</font></b>'
  827. end
  828. if tanwork = 1 and nopaytanwork = 0:
  829. nopaytanwork = 1
  830. karta += 25000
  831. '<b><font color="green">Your salary of 25,000 <b>₽</b> has been paid into your bank account for your work as a house maid.</font></b>'
  832. end
  833. if workSec = 1 and paydaySec = 0:
  834. paydaySec = 1
  835. pay = sekDay * 800
  836. if officebestslut >= 3:pay += 20000
  837. karta += pay
  838. sekDay = 0
  839. '<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job as a secretary.</font></b>'
  840. end
  841. if workFabrika = 1:
  842. pay = smenaFabrika * 400
  843. smenaFabrika = 0
  844. karta += pay
  845. '<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job at the garment factory.</font></b>'
  846. end
  847. if husband > 0 and paydayHusb = 0:
  848. paydayHusb = 1
  849. if husbFin = 0:huspay = 15000
  850. if husbFin = 1:huspay = 25000
  851. if husbFin = 2:huspay = 40000
  852. karta += huspay
  853. '<b><font color="green">Your husband has paid <<huspay>> <b>₽</b> into your bank account.</font></b>'
  854. end
  855. if stipuha = 1 and stipuhaday = 0:stipuhaday = 1 & karta += 1200 & '<b><font color="green">You have received 1,200 <b>₽</b> scholarship.</font></b>'
  856. if housr = 1 and haday = 0 and BuyHous = 0:haday = 1 & money -= 3000 & '<b><font color="red">You paid 3,000 <b>₽</b> for your apartment.</font></b>'
  857. if housr = 1 and electroday = 0:
  858. electroday = 1
  859. if elektro >= 800:elektro = 800 + rand(0, 100)
  860. money -= elektro
  861. '<b><font color="red">You paid <<elektro>> for electricity.</font></b>'
  862. end
  863. if housr = 1 and kabel > 0 and kabelday = 0:kabelday = 1 & money -= 300 & '<b><font color="red">You have paid 300 <b>₽</b> for cable TV.</font></b>'
  864. end
  865. if day ! 25:
  866. if paydayHusb = 1:paydayHusb = 0
  867. if workKafe = 1 and paydayKafe = 1:paydayKafe = 0
  868. if workSec = 1 and paydaySec = 1:paydaySec = 0
  869. if housr = 1 and haday = 1 and BuyHous = 0:haday = 0
  870. if housr = 1 and electroday = 1:electroday = 0
  871. if housr = 1 and kabel > 0 and kabelday = 1:kabelday = 0
  872. if stipuhaday = 1:stipuhaday = 0
  873. if nopaytanwork = 1:nopaytanwork = 0
  874. if nopaypoly = 1:nopaypoly = 0
  875. if nopaysalon = 1:nopaysalon = 0
  876. if paydaybistrosec = 1:paydaybistrosec = 0
  877. end
  878. if sdaday = day and sdamonth = month and housr = 0:
  879. housr = 1
  880. '<b><font color="red">Your tenants have moved out and your apartment is now vacant.</font></b>'
  881. !msg 'Your tenants have moved out and your apartment is now vacant.'
  882. end
  883. !!------------------------------------------------------------------------------------------------------------
  884. if day > monthsEnd[month]:
  885. day -= monthsEnd[month]
  886. month += 1
  887. if month > 12: month = 1 & year += 1
  888. !!MJ: Dont think that one is needed. But it was in the original loop.
  889. if month < 1: month = 1
  890. $month = $monthName[month]
  891. end
  892. !!MJ: Dont think that one is needed. But it was here already.
  893. if day <= 0:day = 1
  894. if week > 7:
  895. :loopweek
  896. week -= 7
  897. husbandrink = 0
  898. if military = 1:military = 0
  899. if week > 7:jump 'loopweek'
  900. end
  901. killvar 'holyday'
  902. killvar 'kanikuli'
  903. if storyline = 1:
  904. !!Party refresh if you didn''t see sis
  905. if week = 1 and sisboyparty ! 2:
  906. if sisboyparty = -1: sisboyparty = 1
  907. if sisboypartyQW >= 2 and sisboyparty > 0:
  908. sisboyparty_day = daystart + rand(3,5)
  909. end
  910. end
  911. !!missed graduation
  912. if month = 5 and day = 25:
  913. if schoool_year = 2001 and year = 2018 and kanikuli ! 7:
  914. grad_miss = daystart + 1
  915. elseif schoool_year = 2000 and year = 2017 and kanikuli ! 7:
  916. grad_miss = daystart + 1
  917. end
  918. end
  919. if SchoolAtestat = 0:
  920. if month = 12 and day > 25:
  921. if day < 31:
  922. $holyday = '<b>Winter Break in <<32-day>> days.</b>'
  923. else
  924. $holyday = '<b>Winter Break starts tomorrow.</b>'
  925. end
  926. elseif month = 1 and day <= 15:
  927. kanikuli = 2
  928. if day < 13:
  929. $holyday = '<b>Winter Break.</b>'
  930. elseif day < 15:
  931. $holyday = '<b>Winter Break ends in <<16-day>> days.</b>'
  932. else
  933. $holyday = '<b>Last day of Winter Break.</b>'
  934. end
  935. elseif month = 3 and day > 13:
  936. if day < 19:
  937. $holyday = '<b>Spring Break starts in <<20-day>> days.</b>'
  938. elseif day = 19:
  939. $holyday = '<b>Spring Break starts tomorrow.</b>'
  940. elseif day >= 20 and day <= 26:
  941. kanikuli = 3
  942. if day < 24:
  943. $holyday = '<b>Spring Break.</b>'
  944. elseif day < 26:
  945. $holyday = '<b>Spring Break ends in <<27-day>> days.</b>'
  946. else
  947. $holyday = '<b>Last day of Spring Break.</b>'
  948. end
  949. end
  950. elseif month = 5:
  951. if ( (schoool_year = 2000 and year = 2017) or (schoool_year = 2001 and year = 2018) ) and day >= 19 and day <= 25:
  952. if day = 25:
  953. kanikuli = 6
  954. $holyday = '<b>Your graduation is today. Be there by 8:00.</b>'
  955. elseif day = 24:
  956. $holyday = '<b>Your graduation is tomorrow. Be there by 8:00.</b>'
  957. else
  958. $holyday = '<b>Your graduation is in <<26-day>> days.</b>'
  959. end
  960. elseif day >= 25:
  961. if day = 31:
  962. $holyday = '<b>Summer Break starts tomorrow.</b>'
  963. else
  964. $holyday = '<b>Summer Break starts in <<32-day>> days.</b>'
  965. end
  966. end
  967. elseif month = 6 or month = 7 or month = 8:
  968. kanikuli = 4
  969. if month = 8 and day >= 25:
  970. if day = 31:
  971. $holyday = '<b>Last day of Summer Break.</b>'
  972. else
  973. $holyday = '<b>Summer Break ends in <<32-day>> days.</b>'
  974. end
  975. else
  976. $holyday = '<b>Summer Break.</b>'
  977. end
  978. elseif month = 10 and day >= 29:
  979. $holyday = '<b>Autumn Break starts in <<35-day>> days.</b>'
  980. elseif month = 11:
  981. if day < 3:
  982. $holyday = '<b>Autumn Break starts in <<4-day>> days.</b>'
  983. elseif day = 3:
  984. $holyday = '<b>Autumn Break starts tomorrow.</b>'
  985. elseif day < 6:
  986. kanikuli = 1
  987. $holyday = '<b>Autumn Break.</b>'
  988. elseif day < 11:
  989. kanikuli = 1
  990. $holyday = '<b>Autumn Break ends in <<12-day>> days.</b>'
  991. elseif day = 11:
  992. kanikuli = 1
  993. $holyday = '<b>Last day of Autumn Break.</b>'
  994. end
  995. end
  996. end
  997. end
  998. killvar 'natholi'
  999. if month = 1 and day >= 1 and day <= 8:
  1000. $natholi = 'New Year holidays'
  1001. natholi = 1
  1002. if day = 1:$natholi += ', New Year'
  1003. if day = 7:$natholi += ', Christmas'
  1004. end
  1005. if month = 2 and day = 23:$natholi = 'Defender of Fatherland Day' & natholi = 1
  1006. if month = 3 and day = 8:$natholi = 'Women''s Day' & natholi = 1
  1007. if month = 5 and day = 1:$natholi = 'Spring and Labor Day' & natholi = 1
  1008. if month = 5 and day = 2:$natholi = 'National holiday' & natholi = 1
  1009. if month = 5 and day = 9:$natholi = 'Victory Day' & natholi = 1
  1010. if month = 6 and day = 12:$natholi = 'Russia Day' & natholi = 1
  1011. if month = 6 and day = 13:$natholi = 'National holiday' & natholi = 1
  1012. if month = 11 and day = 4:$natholi = 'Unity Day' & natholi = 1
  1013. if natholi = 1:
  1014. if $holyday ! '': $holyday += '<br>'
  1015. $holiday += $natholi
  1016. end
  1017. if bcream_used >= 1:
  1018. bcream_used = 0
  1019. temp = rand(0,5)
  1020. nbsize += temp
  1021. if temp > 0:'Feels like your breasts have grown slightly.'
  1022. end
  1023. if steroid_dose >= 1:
  1024. if lashair < 1:
  1025. pcs_pubes += steroid_dose
  1026. pcs_leghair += steroid_dose
  1027. end
  1028. steroid_dose = 0
  1029. end
  1030. if aphrodisiac_overdose = 1:aphrodisiac_overdose = 0
  1031. if aphrodisiac_timer ! 0:aphrodisiac_timer = 0
  1032. if mentats_dose = 1:
  1033. mentats_dose = 0
  1034. elseif mentats_dose > 1:
  1035. pain['head'] += 20 * mentats_dose
  1036. mentats_dose = 0
  1037. end
  1038. if breastpumped = 0 and breastcount > 0: breastcount -= 1
  1039. if breastpumped = 1: breastpumped = 0
  1040. !!Appearance base calculation call
  1041. gs 'body_shape', 'basebeautycalc'
  1042. !! vovan, from 1.2.5
  1043. hanters_check = 0
  1044. mushroom_pickers = 0
  1045. horse_river = 0
  1046. haying_time = 0
  1047. mira_go_river = 0
  1048. forestpicnic = 0
  1049. if Mira_no > 0: Mira_no -= 1
  1050. if Mira_no < 0: Mira_no = 0
  1051. if catout ! 0: catout = 0
  1052. if feedcat ! 0: feedcat = 0
  1053. loc_count = ARRSIZE('$CloLosLoc')
  1054. i = loc_count - 1
  1055. :loopCloLoc
  1056. $CloLoc = $CloLosLoc[i]
  1057. CloLostOn = CloLosDay[$CloLoc]
  1058. if CloLostOn + RAND(7,14) < daystart :
  1059. gs 'clothing', 'recover_lost_clothes', $CloLoc, 2
  1060. end
  1061. i -=1
  1062. if i > -1 :jump 'loopCloLoc'
  1063. --- cikl ---------------------------------