cikl 34 KB

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