cikl.qsrc 47 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586
  1. # cikl
  2. !!----------------------------------------------------------------------------
  3. !! Time calculations
  4. day += 1
  5. week += 1
  6. hour -= 24
  7. if day > monthsEnd[month]:
  8. day -= monthsEnd[month]
  9. month += 1
  10. if month > 12: month = 1 & year += 1
  11. !!MJ: Dont think that one is needed. But it was in the original loop.
  12. if month < 1: month = 1
  13. $month = $monthName[month]
  14. !! new years party calculation
  15. temp = func('shortgs','dow',year,12,31)
  16. if temp < 6:
  17. nyp_day = 31
  18. elseif temp = 6:
  19. nyp_day = 30
  20. else
  21. nyp_day = 29
  22. end
  23. end
  24. !!MJ: Dont think that one is needed. But it was here already.
  25. if day <= 0:day = 1
  26. ciklNewWeek = 0
  27. if week > 7:
  28. ciklNewWeek = 1
  29. :loopweek
  30. week -= 7
  31. husbandrink = 0
  32. if military = 1:military = 0
  33. if week > 7:jump 'loopweek'
  34. end
  35. gs 'daystart'
  36. !!----------------------------------------------------------------------------
  37. !!Fame call to update all the fame variables
  38. gs 'fame'
  39. !!Cycle stats for Contacts
  40. gs 'telefon', 'DailyStatRefresh', ciklNewWeek
  41. !!moving the porn schedule ahead a day, flaffing for missed shootings, if it even matters
  42. if (film > 0 or pornstack = 1) and pfilmNO = 0 and pfilmSTOP = 0:
  43. if pfilmday[0] > 0: gs 'pornschedule', 'pornmiss'
  44. gs 'pornschedule', 'schedule'
  45. end
  46. !!modelling job check
  47. if model_week ! (daystart - week) / 7:model_job_week = 0
  48. !!acting strings to set available jobs
  49. if casting = 1:
  50. acting_string1 = rand(10000000000,199999999999)
  51. acting_string2 = rand(10000000000,199999999999)
  52. end
  53. dynamic $hypnoDaychange
  54. !!phone reset for bf
  55. ringA = 0
  56. ringB = 0
  57. ringC = 0
  58. !!Appearance Age
  59. vidageday -= 1
  60. if vidageday <= 0:
  61. vidageday = 360
  62. vidage += 1
  63. end
  64. !!Birthday
  65. age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
  66. if ((month * 100) + day) <= pcs_dob mod 10000: age -= 1
  67. if workDolgDay > 0: workDolgDay -= 1
  68. if QWdogreiqTimer > 0: QWdogreiqTimer -= 1
  69. if husband > 0: husbanday += 1
  70. if husband > 10 and husbanday > 0: husband -= 15
  71. if fingal > 0: fingal -= 1
  72. if husbandMark = 1 and husband <= 10:
  73. husbizvradd = 0
  74. husbharmin = 0
  75. husbandMark = 0
  76. husband = 0
  77. divorced += 1
  78. if KFOnLineReaga > 0:KFOnLineReaga -= 1
  79. '<b><font color="red">Your husband has filed for a divorce.</font></b>'
  80. end
  81. if katjaPreg = 0 and month >= 2:
  82. if school_year = 2001 and year > 2016:
  83. katjaPreg = 1
  84. elseif school_year = 2000 and year > 2017:
  85. katjaPreg = 1
  86. end
  87. end
  88. !! after having surgery you will be in recuperation for a few days
  89. if surgeryday ! '':
  90. if daystart - 7 <= surgeryday:
  91. dailyhealthimprov = (daystart - surgeryday) * 50
  92. pcs_health = dailyhealthimprov
  93. recuperation = 1
  94. else
  95. killvar 'recuperation'
  96. killvar 'dailyhealthimprov'
  97. end
  98. end
  99. !!Street events daily reset
  100. streetevent_hour = -2
  101. !!Clothing stock and price randomizers
  102. Clothingstock = rand (0,23)
  103. i = 1
  104. :loopprice
  105. Clothingstock[i] = rand (0,500)
  106. i += 1
  107. if i <= 147:jump 'loopprice'
  108. if coatH[defaultcoat] <= 0: defaultcoat = 0
  109. !! Abortion and pregnancy recovery resets if finished
  110. if abortionbirthdate ! 0 and daystart - abortionbirthdate > 24: abortionbirthdate = 0
  111. if pregbirthdate ! 0 and daystart - pregbirthdate > 73: pregbirthdate = 0
  112. !!------------------------------------------------------------------------------------------------------------
  113. !! Bimbo
  114. !!------------------------------------------------------------------------------------------------------------
  115. !!Bonus from clothing and shoes
  116. if succubusflag = 0 and cheatBimbo = 0:
  117. if bimbocl = 1:
  118. snapshotY += 2
  119. end
  120. if bimbosh = 1:
  121. snapshotY += 1
  122. end
  123. else
  124. bimbocl = 0
  125. end
  126. if cheatBimbo = 0: bimbo += snapshotY
  127. !!Once bimbolevel is set to 1, must use the withdrawal in stat to return to 0
  128. if bimbo > 0 or bimbolevel > 0:
  129. if bimbo < 10:
  130. bimbo -= 1
  131. elseif bimbo < 20:
  132. bimbolevel = 1
  133. elseif bimbo < 30:
  134. bimbolevel = 2
  135. else
  136. bimbolevel = 3
  137. end
  138. end
  139. if bimbo >= 40: bimbo = 40
  140. !!Bimbo levels. They use custom variables so they won''t permanently change character stats
  141. if bimbolevel = 0: supnatvnesh = 0 & bimbostupidity = 0
  142. if bimbolevel = 1: supnatvnesh = 2 & bimbostupidity = (pcs_intel / 6)
  143. if bimbolevel = 2: supnatvnesh = 4 & bimbostupidity = (pcs_intel / 4)
  144. if bimbolevel = 3: supnatvnesh = 8 & bimbostupidity = (pcs_intel / 3)
  145. !!A Succubus cannot be a Bimbo
  146. if succubusflag = 1:
  147. if bimbolevel > 0 and bimbo > 0: bimbowithdrawal = 40
  148. elseif bimbolevel >= 1:
  149. !!Checks how often sex has occured in the last 24 hours and for drops in bimbo score, for calculating withdrawal
  150. if 4 > snapshotY + (stat['vaginal'] + stat['bj'] + stat['anal']) - snapshotX:
  151. bimbowithdrawal += 1
  152. else
  153. bimbowithdrawal = 0
  154. end
  155. end
  156. if bimbo < 0: bimbo = 0
  157. snapshotX = (stat['vaginal'] + stat['bj'] + stat['anal'])
  158. snapshotY = 0
  159. !!------------------------------------------------------------------------------------------------------------
  160. !! Exhibitionism
  161. !!------------------------------------------------------------------------------------------------------------
  162. if pcs_exhib > 0 or exhibitionist_lvl > 0:
  163. if pcs_exhib < 10:
  164. pcs_exhib -= 1
  165. elseif pcs_exhib < 50:
  166. exhibitionist_lvl = 1
  167. elseif pcs_exhib < 100 or exhibitionQW < 3:
  168. exhibitionist_lvl = 2
  169. elseif exhibitionQW > 2:
  170. exhibitionist_lvl = 3
  171. end
  172. end
  173. !!Inhibition increases from wearing revealing clothing
  174. if exhibition_outdoors > 0:
  175. if pcs_inhib > 90:
  176. exhibition_outdoors = exhibition_outdoors * 3
  177. elseif pcs_inhib > 75:
  178. exhibition_outdoors = exhibition_outdoors * 5 / 2
  179. elseif pcs_inhib > 60:
  180. exhibition_outdoors = exhibition_outdoors * 2
  181. elseif pcs_inhib > 30:
  182. exhibition_outdoors = exhibition_outdoors * 3 / 2
  183. end
  184. if exhibition_outdoors <= 5:
  185. inhib_exp += rand(3,6)
  186. elseif exhibition_outdoors <= 10:
  187. inhib_exp += rand(5,9)
  188. elseif exhibition_outdoors <= 15:
  189. inhib_exp += rand(7,12)
  190. elseif exhibition_outdoors <= 20:
  191. inhib_exp += rand(9,15)
  192. elseif exhibition_outdoors <= 25:
  193. inhib_exp += rand(12,20)
  194. elseif exhibition_outdoors <= 30:
  195. inhib_exp += rand(16,25)
  196. elseif exhibition_outdoors <= 35:
  197. inhib_exp += rand(20,30)
  198. elseif exhibition_outdoors <= 40:
  199. inhib_exp += rand(25,40)
  200. elseif exhibition_outdoors <= 50:
  201. inhib_exp += rand(35,50)
  202. elseif exhibition_outdoors <= 65:
  203. inhib_exp += rand(50,75)
  204. else
  205. inhib_exp += rand(70,100)
  206. end
  207. end
  208. exhibition_outdoors = 0
  209. !!------------------------------------------------------------------------------------------------------------
  210. !! Succubus
  211. !!------------------------------------------------------------------------------------------------------------
  212. !!Succubus Level & hunger calcs
  213. if succubusflag = 1:
  214. cheatHealth = 1
  215. dynamic $cheatmenu['std_cure']
  216. !! Hunger handling
  217. if sucxpsnapshot >= succubxp: succhungry += 1
  218. sucxpsnapshot = succubxp
  219. if succubxp < 0: succubxp = 0
  220. !! Level handling
  221. if succubxp < 60:
  222. succublvl = 1
  223. $sucself1 = 'that feeling'
  224. sucstorecap = 0
  225. if bimbolevel <= 0: supnatvnesh = 1
  226. elseif succubxp < 150:
  227. succublvl = 2
  228. $sucself1 = 'the power'
  229. sucstorecap = 0
  230. if bimbolevel <= 0: supnatvnesh = 3
  231. elseif succubxp < 270:
  232. succublvl = 3
  233. $sucself1 = 'your other self'
  234. sucstorecap = 100
  235. if bimbolevel <= 0: supnatvnesh = 6
  236. else
  237. succublvl = 4
  238. $sucself1 = 'your true self'
  239. sucstorecap = 200
  240. if bimbolevel <= 0: supnatvnesh = 10
  241. end
  242. if sucskill >= 2 and succublvl >= 2: sucstorecap += 100
  243. if sucskill >= 3 and succublvl >= 2: sucstorecap += (sucstorecap * 2) / 10
  244. if stren_muta < (succublvl - 1): stren_muta = (succublvl - 1)
  245. if agil_muta < (succublvl - 1): agil_muta = (succublvl - 1)
  246. if vital_muta < (succublvl - 1): vital_muta = (succublvl - 1)
  247. if intel_muta < (succublvl - 1): intel_muta = (succublvl - 1)
  248. if react_muta < (succublvl - 1): react_muta = (succublvl - 1)
  249. if sprt_muta < (succublvl - 1): sprt_muta = (succublvl - 1)
  250. if chrsm_muta < (succublvl - 1): chrsm_muta = (succublvl - 1)
  251. if prcptn_muta < (succublvl - 1): prcptn_muta = (succublvl - 1)
  252. if (sucexcess >= 100 and (sucskill < 2 or succhungry > -2)) or (sucexcess >= 100 + sucstorecap and sucskill >= 2):
  253. if pcs_stren < 250: stren_exp += 20 & sucexcess -= 10
  254. if pcs_agil < 250: agil_exp += 20 & sucexcess -= 10
  255. if pcs_vital < 250: vital_exp += 20 & sucexcess -= 10
  256. if pcs_intel < 250: intel_exp += 20 & sucexcess -= 10
  257. if pcs_react < 250: react_exp += 20 & sucexcess -= 10
  258. if pcs_sprt < 250: sprt_exp += 20 & sucexcess -= 10
  259. if pcs_chrsm < 250: chrsm_exp += 20 & sucexcess -= 10
  260. if pcs_prcptn < 250: prcptn_exp += 20 & sucexcess -= 10
  261. if succhungry > (0 - 2 - succublvl): succhungry -= 1 & sucexcess -= 10
  262. if pcs_skin < 100: pcs_skin += 1 & sucexcess -= 2
  263. !! This is to drive the Succubus vidage into the max appearance range
  264. if vidageday < 720 and vidage >= 28: vidageday += 4 & sucexcess -= 4
  265. if vidageday > 0 and vidage <= 20: vidageday -= 4 & sucexcess -= 4
  266. if vidageday >= 720 and vidage > 28:
  267. vidageday -= 360
  268. vidage -= 1
  269. end
  270. if sucexcess > sucstorecap: sucexcess = sucstorecap
  271. elseif sucexcess < 0 and succhungry < 0:
  272. succhungry += 1
  273. if (0 - sucexcess) < (10 * succublvl):
  274. sucexcess = 0
  275. else
  276. sucexcess += (10 * succublvl)
  277. end
  278. end
  279. if sucexcess < 0: sucpowzeroed += 1
  280. if sucexcess >= 0 and sucpowzeroed > 0: sucpowzeroed -= 1
  281. !! This is so a Succubus always moves toward a default vaginal and anal size when she has the accomadation ability
  282. if sucskill >= 4:
  283. if pcs_vag - 2 >= 13:
  284. pcs_vag -= 2
  285. elseif pcs_vag + 2 <= 13:
  286. pcs_vag += 2
  287. end
  288. if pcs_ass - 2 >= 8:
  289. pcs_ass -= 2
  290. elseif pcs_ass + 2 <= 8:
  291. pcs_ass += 2
  292. end
  293. end
  294. end
  295. !!------------------------------------------------------------------------------------------------------------
  296. if defcurly = 0 and curly > 0:curly -= 1
  297. if defcurly = 1:
  298. if straight > 0: straight -= 1
  299. if straight = 0: curly = 2147483647
  300. end
  301. ! WD: Added daily reduction of braids for Maruda Hair Mod
  302. if hbraids > 0: hbraids -= 1
  303. pcs_sweat += 2
  304. if pcs_tan > 0: pcs_tan -= 1
  305. if prezikmsg = 2: prezikmsg = 3
  306. !!------------------------------------------------------------------------------------------------------------
  307. !! Birth control
  308. !!------------------------------------------------------------------------------------------------------------
  309. !! Birth Control Management variables
  310. !!
  311. !! tabletkimm : The modifier for the current mood of the MC.
  312. !! tabletkiap : Autopill factor affecting the liklihood you took your pill as you should have
  313. !! tabletkipt : Pill Dicipline Take increase
  314. !! tabletkipi : Pill Dicipline Dont take increase
  315. !! tabletkicpd : Current MC Pill Dicipline
  316. !! tabletkichday : Current day that the Birth Control is being evaluated for
  317. !! tabletkicheck : If the birth control from shot (2) or pill (1)
  318. !! tabletki : How many packages of Birth Control Pills there are
  319. !! tabletkiold : Total number packages of expired pills
  320. !! tabletkifake : Total number packages of fake/counterfeit pills
  321. !! tabletkirej : Total number packages of factory rejected pills
  322. !! tabletkifert : Total number packages of subsituted fertility pills
  323. !! tabletkisug : Total number packages of sugar pills
  324. !! pillsleft : Total number packages of pills in current package
  325. !! tabletkishot : The flag for being on the Birth Control shot.
  326. !! pillcon : The number for the current birth control chemical level.
  327. !! pilldays : The number of consecutive days (you believe) you have taken your pill
  328. if Luth > (LutH_Max-75) and placebopart <= 0: placebopart = 8
  329. placebopart -= 1
  330. if tabletkishot <= 0: pillcon -= 1000 & pillcon2 -= 1000
  331. if pillcon < 0: pillcon = 0
  332. if pillcon2 < 0: pillcon2 = 0
  333. if tabletkicheck = 2:
  334. if tabletkishot ! 0:
  335. !!cycle = 1
  336. mesec = 0
  337. if rand(0,1000) = 1000:
  338. EggRH = rand(20,80)
  339. else
  340. EggRH = 0
  341. end
  342. FocH = EggRH
  343. end
  344. if tabletkishot <= 0:
  345. pillcon -= 29000
  346. pillcon2 -= 29000
  347. if tabletkishot < 0: tabletkishot = 0
  348. end
  349. if shotdays = -8:
  350. tabletkicheck = 0
  351. shotdue = 0
  352. 'Your birth control shot is no longer protecting you.'
  353. elseif shotdays <= 0:
  354. if shotdays = 0:
  355. shotdue = 7
  356. else
  357. shotdue -= 1
  358. end
  359. 'The chemicals regulating your fertility cycle are wearing off, you need to get your shot in <<shotdue>> days.'
  360. elseif shotdays > 1 and shotdays < 5:
  361. 'You are due for a birth control shot soon if you do not get one, you might get pregnant.'
  362. elseif shotdays = 1:
  363. 'Your birth control shot is due for renewal tomorrow.'
  364. end
  365. if shotdays > -100:shotdays -=1
  366. if tabletkishot > 0:tabletkishot -= 1
  367. end
  368. tabletkipd += tabletkipi
  369. tabletkipi = 0
  370. tabletkipt = 0
  371. if tabletkicheck = 1:
  372. if tabletki = 0 and pillsleft[ptype] = 0:
  373. tabletkicheck = 0
  374. 'You are out of birth control pills.'
  375. tabletkipi = -5
  376. elseif tabletki = 0 and pillsleft[ptype] = 28:
  377. 'You have just opened your last package of birth control pills. You need to buy more.'
  378. elseif tabletki = 0 and pillsleft[ptype] <= 5:
  379. 'You are running out of birth control pills, you only have a few left.'
  380. end
  381. end
  382. if tabletkicheck = 1 and tabletkichday < daystart:
  383. tabletkichday = daystart
  384. tabletkimm = (100*(pcs_willpwr / willpowermax)) + pcs_mood
  385. if pcs_sleep < 10:
  386. tabletkimm -= (100- (pcs_sleep * 10))
  387. end
  388. if pcs_willpwr < willpowermax / 4:
  389. tabletkimm = tabletkimm / 4
  390. elseif pcs_mood < 10:
  391. tabletkimm = tabletkimm / 2
  392. end
  393. tabletkiap = tabletkimm
  394. tabletkiap += (pcs_intel * 4) + (pcs_sprt * 2) + (age * 3)
  395. tabletkiap -= ((kid * 30) + (abort * 2) - (tabletkipd * ((60 - age) / 10)))
  396. temprand = rand(0,(200 + (tabletkimm - ((100 - pcs_sprt) * 3))))
  397. tabletkiap += temprand
  398. if tabletkiap < 300:
  399. if tabletkipd > -10:
  400. if pcs_willpwr < willpowermax / 4:
  401. pilldaychk = 0
  402. '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.'
  403. elseif pcs_mood < 10:
  404. pilldaychk = 0
  405. 'You stare at your package of birth control pills, but you don''t open it.'
  406. elseif pcs_sleep < 10:
  407. pilldaychk = 0
  408. 'You fumble with your birth control pills, trying to get a pill out. You finally give up too tired to manage it.'
  409. else
  410. pilldaychk = 0
  411. 'You just realized you forgot to take your birth control pill today.'
  412. end
  413. end
  414. tabletkipt = 2
  415. tabletkipi = -4
  416. else
  417. if tabletkiap < 350:
  418. temprand = rand(0,5)
  419. else
  420. temprand = rand(0,1000)
  421. end
  422. if temprand = 0:
  423. temprand = rand(0,1)
  424. if temprand = 0:
  425. gs 'din_bad','takepill'
  426. tabletkipt = -2
  427. tabletkipi = 1
  428. else
  429. tabletkipt = 3
  430. tabletkipi = -3
  431. end
  432. if tabletkipd > -10:
  433. pilldaychk = 0
  434. 'You find yourself holding the bottle of birth control pills, you cannot remember if you took one or not.'
  435. end
  436. if tabletkipd > 0:
  437. if rand(0,9) = 0:
  438. if tabletkipt < 0:
  439. pilldaychk = 0
  440. 'You don''t think you have taken your pill today.'
  441. else
  442. pilldaychk = 1
  443. 'You think you have taken your pill today.'
  444. end
  445. else
  446. if tabletkipt > 0:
  447. pilldaychk = 0
  448. 'You don''t think you have taken your pill today.'
  449. else
  450. pilldaychk = 1
  451. 'You think you have taken your pill today.'
  452. end
  453. end
  454. end
  455. else
  456. 'You take your birth control pill for the day.'
  457. pilldaychk = 1
  458. gs 'din_bad','takepill'
  459. if rand(0,7) = 0 and tabletkiday >= (daystart - 1): tabletkipd += 1
  460. tabletkiday = daystart
  461. tabletkipt = 0
  462. tabletkipi = 0
  463. end
  464. end
  465. elseif tabletkicheck = 0:
  466. if tabletkiday >= (daystart - 1) and tabletkipt = 0 and rand(0,7) = 0: tabletkipt = 1
  467. if pillcon > 0 and tabletkipi = 0 and rand(0,3) = 0 and (tabletkiday + 15) > daystart = 0: tabletkipi = -1
  468. end
  469. if pilldaychk = 1:
  470. pilldays += 1
  471. else
  472. pilldays -= 1
  473. end
  474. pilldaychk = 0
  475. if pilldays > 18: pilldays = 18
  476. if pilldays < 0: pilldays = 0
  477. !!
  478. $MenCal[] = $str(cycle)
  479. if ArrSize('$MenCal') = 60: killvar '$MenCal',0
  480. !!------------------------------------------------------------------------------------------------------------
  481. if lashair ! 1:
  482. pcs_leghair += 1
  483. pcs_pubes += 1
  484. end
  485. if age < 18 and rand (0,2) = 0 and pcs_leghair > 0: pcs_leghair -= 1
  486. if pcs_breath = 1:pcs_breath = 0
  487. if cheatNoEat = 1 and dounspell = 1:fat += 15
  488. !!STD check
  489. if SifacOnce = 1:Sifilis += 1
  490. if GerpesOnce = 1:Gerpes += 1
  491. if TriperOnce = 1:
  492. if Triper > 0:
  493. Triper += 1
  494. end
  495. if TriperOral > 0:
  496. TriperOral += 1
  497. end
  498. If TriperOral > 14 and TriperNapr = 0:
  499. if rand(TriperOral,100) > 80:
  500. TriperOral = 0
  501. if Triper = 0:TriperOnce = 0
  502. TriperOralSigns = 0
  503. end
  504. end
  505. end
  506. if KandidozOnce = 1:Kandidoz += 1
  507. VeneraN = 0
  508. if VeneraOnce > 0:VeneraOnce = 0
  509. if SifacOnce = 1:VeneraN += 1
  510. if GerpesOnce = 1:VeneraN += 1
  511. if TriperOnce = 1:VeneraN += 1
  512. Venera = VeneraN
  513. if pcs_ass > 1 and ashrink > 0 and analplugIN = 0:
  514. if anusK < 0:anusK = 0
  515. if anusK < ashrinkdays:anusK += 1
  516. if anusK >= ashrinkdays:pcs_ass -= ashrink & anusK = 0
  517. if pcs_ass < 0: pcs_ass = 0
  518. end
  519. if pcs_vag > 10 and vshrink > 0:
  520. if vaginaK < 0:vaginaK = 0
  521. if vaginaK < vshrinkdays:vaginaK += 1
  522. if vaginaK >= vshrinkdays:vaginaK = 0 & pcs_vag -= vshrink
  523. end
  524. lipkoef -= rand(0,1)
  525. if lipkoef <= 0: lipkoef = 0
  526. if isprok = 1 or isprokp = 1:
  527. isprok_lastday = 1
  528. else
  529. isprok_lastday = 0
  530. end
  531. if Enable_autotampon = 0 and isprok = 1: isprok = 0 & 'You threw away your used tampon.'
  532. if Enable_autotampon = 0 and isprokp = 1:isprokp = 0 & 'You threw away your used sanitary pad.'
  533. if preg = 1:
  534. pregtime = pregchem / 24
  535. if pregtimes = 0:pregtimes = 1
  536. elseif preg = 2 and pregminut < totminut:
  537. if Enable_nogameover = 0 :
  538. cla
  539. *clr
  540. over = 4
  541. MSG '<center><b>A horrible pain shoots through your body.</b></center>'
  542. xgt 'gameover'
  543. exit
  544. else
  545. MSG'<font color=red><B>You should die for giving birth unprepared, but Cheat Mode keeps you Alive.</B></font>'
  546. pregminut = totminut + 1440
  547. end
  548. elseif preg = 0:
  549. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A14'
  550. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A16'
  551. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A23'
  552. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A28'
  553. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A29'
  554. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A33'
  555. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A34'
  556. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A69'
  557. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A131'
  558. !{killvar 'pregTalkFamily' -- Do not kill this (Abortion talk).}
  559. killvar 'pcs_pregtalk'
  560. killvar 'pregTalk'
  561. killvar 'pregtime'
  562. killvar 'knowpreg'
  563. killvar 'denypreg'
  564. killvar '$wombthfath'
  565. end
  566. !!------------------------------------------------------------------------------------------------------------
  567. !! Arousal
  568. !!------------------------------------------------------------------------------------------------------------
  569. if magikDostup = 0:
  570. if pcs_horny < 100:pcs_horny += pcs_vag
  571. else
  572. if pcs_vag = 0:
  573. razeba = 0
  574. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 10
  575. if pcs_horny > 50:pcs_horny -= 25
  576. elseif pcs_vag > 0:
  577. if pregtimes = 0:
  578. if age < 18:
  579. razeba = 1
  580. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 5
  581. if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 10
  582. if pcs_horny >= 80:pcs_horny -= 20
  583. elseif age >= 18 and age < 21:
  584. razeba = 2
  585. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 1
  586. if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 5
  587. if pcs_horny >= 80:pcs_horny -= 10
  588. elseif age >= 21 and age < 25:
  589. razeba = 3
  590. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 1
  591. if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 1
  592. if pcs_horny >= 80:pcs_horny -= 5
  593. elseif age >= 25 and age < 30:
  594. razeba = 4
  595. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 5
  596. if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 1
  597. if pcs_horny >= 80:pcs_horny -= 5
  598. elseif age >= 30:
  599. razeba = 5
  600. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
  601. if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
  602. if pcs_horny >= 80:pcs_horny += 1
  603. end
  604. elseif pregtimes > 0:
  605. if preg = 0:
  606. razeba = 5
  607. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
  608. if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
  609. if pcs_horny >= 80:pcs_horny += 1
  610. elseif preg > 0:
  611. razeba = 6
  612. if pcs_horny < 100:pcs_horny += pregchem / 240
  613. end
  614. end
  615. end
  616. end
  617. if pcs_horny < 0:pcs_horny = 0
  618. !!------------------------------------------------------------------------------------------------------------
  619. !reset Natasha Belova''s clothes
  620. if natseethroughwearing = 1: natseethroughwearing = 0
  621. !!------------------------------------------------------------------------------------------------------------
  622. !counter for Dimka avoidance
  623. if dimaFilm = 1 and dimaRudeBlock = 0:
  624. nodimkaK += 1
  625. DimkaWarnedToday = 0
  626. end
  627. !!------------------------------------------------------------------------------------------------------------
  628. !!Fame degradation
  629. gs 'fame', 'deg'
  630. !!Traits
  631. gs 'traits', 'overnight'
  632. !!------------------------------------------------------------------------------------------------------------
  633. !! Maruda hair mod
  634. !!------------------------------------------------------------------------------------------------------------
  635. !! Max. Hair length 600mm, or 60cm, which should be somewhere in the lower back area.
  636. !! Hair grows 1mm each day, it takes 20 months (1 month = 30 days) to regrow the hair from 0.
  637. if pcs_hairlng < 1001 and hairgrowcht = 0:pcs_hairlng += 1
  638. if pcs_haircol ! nathcol:
  639. dyefade -=1
  640. if dyefade < 0: dyefade = 0
  641. if dyefade > 0 and dyefade < 7: dyevmod = 5
  642. if dyefade = 0: dyevmod = 15
  643. end
  644. if hscrunch > 0:
  645. hscrunchrand = rand(1, 100)
  646. if hscrunchrand <= 8:hscrunch -= 1
  647. end
  648. !!------------------------------------------------------------------------------------------------------------
  649. !! Clothing wear and tear
  650. gs 'starenie'
  651. !!cocaine reduction
  652. if nark > 60:
  653. nark = 60
  654. elseif nark > 30:
  655. nark -= 3
  656. elseif nark > 0:
  657. nark -= 1
  658. end
  659. if pregchem > 240:fat += 1
  660. !!------------------------------------------------------------------------------------------------------------
  661. !! Pain
  662. !!------------------------------------------------------------------------------------------------------------
  663. if pain['head'] > 0:pain['head'] -= rand(1,3)
  664. if pain['hair'] > 0:pain['hair'] -= rand(1,3)
  665. if pain['ears'] > 0:pain['ears'] -= rand(1,3)
  666. if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(1,3)
  667. if pain['eyes'] > 0:pain['eyes'] -= rand(1,3)
  668. if pain['cheeks'] > 0:pain['cheeks'] -= rand(1,3)
  669. if pain['nose'] > 0:pain['nose'] -= rand(1,3)
  670. if pain['mouth'] > 0:pain['mouth'] -= rand(1,3)
  671. if pain['lips'] > 0:pain['lips'] -= rand(1,3)
  672. if pain['tongue'] > 0:pain['tongue'] -= rand(1,3)
  673. if pain['throat'] > 0:pain['throat'] -= rand(1,3)
  674. if pain['neck'] > 0:pain['neck'] -= rand(1,3)
  675. if pain['back'] > 0:pain['back'] -= rand(1,3)
  676. if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(1,3)
  677. if pain['asshole'] > 0:pain['asshole'] -= rand(1,3)
  678. if pain['hips'] > 0:pain['hips'] -= rand(1,3)
  679. if pain['thighs'] > 0:pain['thighs'] -= rand(1,3)
  680. if pain['legL'] > 0:pain['legL'] -= rand(1,3)
  681. if pain['legR'] > 0:pain['legR'] -= rand(1,3)
  682. if pain['feet'] > 0:pain['feet'] -= rand(1,3)
  683. if pain['toes'] > 0:pain['toes'] -= rand(1,3)
  684. if pain['shoulders'] > 0:pain['shoulders'] -= rand(1,3)
  685. if pain['armL'] > 0:pain['armL'] -= rand(1,3)
  686. if pain['armR'] > 0:pain['armR'] -= rand(1,3)
  687. if pain['hands'] > 0:pain['hands'] -= rand(1,3)
  688. if pain['fingers'] > 0:pain['fingers'] -= rand(1,3)
  689. if pain['chest'] > 0:pain['chest'] -= rand(1,3)
  690. if pain['breasts'] > 0:pain['breasts'] -= rand(1,3)
  691. if pain['nipples'] > 0:pain['nipples'] -= rand(1,3)
  692. if pain['ribs'] > 0:pain['ribs'] -= rand(1,3)
  693. if pain['tummy'] > 0:pain['tummy'] -= rand(1,3)
  694. if pain['pubic'] > 0:pain['pubic'] -= rand(1,3)
  695. if pain['vaginal'] > 0:pain['vaginal'] -= rand(1,3)
  696. if pain['labia'] > 0:pain['labia'] -= rand(1,3)
  697. if pain['clitoris'] > 0:pain['clitoris'] -= rand(1,3)
  698. if pain['urethra'] > 0:pain['urethra'] -= rand(1,3)
  699. if pain['cervix'] > 0:pain['cervix'] -= rand(1,3)
  700. if painpub = 2:
  701. if painpubday + 5 < daystart:
  702. $painpub = 'Your vulva is painfully sore.'
  703. painpub = 1
  704. painpubday = daystart
  705. elseif painpubday + 5 >= daystart:
  706. $painpub = 'Your vulva is painfully sore.'
  707. end
  708. elseif painpub = 1:
  709. if painpubday + 5 < daystart:
  710. $painpub = ''
  711. painpub = 0
  712. painpubday = daystart
  713. elseif painpubday + 5 >= daystart:
  714. $painpub = 'Your vulva is a little sore.'
  715. end
  716. end
  717. !!---- Calculation of lash extension degradation and false lash removal
  718. if pcs_lashes > 2:
  719. if lashextensionstyle >= 1:
  720. lashextensionduration -= 1
  721. if lashextensionduration >= 1 and lashextensionduration <= 4:
  722. '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.'
  723. end
  724. if lashextensionduration <= 0:
  725. 'You waited too long to do maintenance on your lash extensions; there''s too little there to notice or work with at this point.'
  726. pcs_lashes = pcs_naturallashes
  727. killvar 'lashextensionstyle'
  728. killvar 'lashextensionduration'
  729. killvar 'lashextensionnew'
  730. end
  731. end
  732. if false_lashes > 0:
  733. false_lashes -= 1
  734. if false_lashes = 0:
  735. 'Your false lashes came off in the night; there''s no recovering them now.'
  736. pcs_lashes = pcs_naturallashes
  737. else
  738. 'Somehow, your lashes managed to stay attached throughout the night. You might be able to get away with wearing them another day straight.'
  739. end
  740. end
  741. end
  742. prezikProver += 1
  743. if pirs_pain_ton > 0:pirs_pain_ton -= 1
  744. if shorthair = 1:
  745. shorthairday += 1
  746. if shorthairday >= 45:shorthairday = 0 & shorthair = 0
  747. end
  748. !!------------------------------------------------------------------------------------------------------------
  749. if KatjaOTN > 0:
  750. if KatjaHorny > 0 and KatjaLust < 40:KatjaHorny -= rand(1, 3)
  751. if KatjaLust >= 40:KatjaHorny += rand(1, 3)
  752. if KatjaHorny < 0:KatjaHorny = 0
  753. if KatjaHorny >= 100:KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
  754. end
  755. if npc_rel['A69'] > 60 and rand(0,3) = 0:npc_rel['A69'] -= 1
  756. !!Counter for dimka/igor date
  757. if igor_DimaNos = 2 or igor_DimaNos = 3: $igor_DimaNos_day += 1
  758. !!------------------------------------------------------------------------------------------------------------
  759. !! Generation
  760. !!------------------------------------------------------------------------------------------------------------
  761. if NPCnum < 290:
  762. NPCnow = NPCnum
  763. NPCnum += rand(1, 3)
  764. gs 'npc'
  765. elseif NPCnum < 300:
  766. NPCnow = NPCnum
  767. NPCnum += 1
  768. gs 'npc'
  769. end
  770. !!------------------------------------------------------------------------------------------------------------
  771. if kanikuli = 0:pcs_grades -= 1
  772. dmishaevent = 0
  773. if Gspravka <= 0 and GspravkaT = 1:GspravkaT = 0 & Gspravka = 0
  774. if GspravkaT = 1:Gspravka -= 1
  775. if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30:IvanPodstavaQW = 3
  776. if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30:PodpiskaNeviezd += 1
  777. !!remove degradation for inhibition
  778. inhib_flr = inhib_lvl
  779. gs 'stat_sklattrib', 'daycall'
  780. if dounspell = 1:
  781. if strenbuf > 90:
  782. strenbuf -= 2
  783. elseif strenbuf > 80:
  784. strenbuf -= 1
  785. end
  786. if vitalbuf > 90:
  787. vitalbuf -= 2
  788. elseif vitalbuf > 80:
  789. vitalbuf -= 1
  790. end
  791. if strenbuf > pcs_stren: strenbuf -= 1
  792. if strenbuf < pcs_stren: strenbuf += 1
  793. if vitalbuf > pcs_vital: vitalbuf -= 1
  794. if vitalbuf < pcs_vital: vitalbuf += 1
  795. if agilbuf > pcs_agil: agilbuf -= 1
  796. if agilbuf < pcs_agil: agilbuf += 1
  797. else
  798. gs 'body_shape'
  799. end
  800. if husband > 0 and husbandrink ! 11:husbandrink = rand(0, 10)
  801. !!Pussy_Kats job settings
  802. inWorkYoungShop = 0
  803. if week = 1 and young_shop_work = 100: young_shop_work = 1
  804. if week = 5 and young_shop_work1 = 100: young_shop_work1 = 1
  805. if week = 1 and young_shop_work2 = 100: young_shop_work2 = 1
  806. husbandsexday = 0
  807. borsexkol = 0
  808. givisexday = 0
  809. if shantsr > 0:
  810. pay = shantsr * 5000
  811. karta += pay
  812. shantsr = 0
  813. end
  814. if shantbog > 0:
  815. :shantftb
  816. shantftbgrand = rand(0, 10)
  817. if shantftbgrand > 2:
  818. shantpopala += 1
  819. shantbog -= 1
  820. if shantbog > 0:jump 'shantftb'
  821. elseif shantftbgrand <= 2:
  822. karta += 30000
  823. shantbog -= 1
  824. if shantbog > 0:jump 'shantftb'
  825. end
  826. end
  827. petersexday = 0
  828. klismaday1 = 0
  829. !! Resetting relationships that go over the max
  830. :toptemprel
  831. if temprel < 250:
  832. temprel +=1
  833. if npc_rel['A'+'<<temprel>>'] > 100:npc_rel['A'+'<<temprel>>'] = 100
  834. jump 'toptemprel'
  835. end
  836. killvar 'temprel'
  837. !!------------------------------------------------------------------------------------------------------------
  838. !! Banking
  839. !!------------------------------------------------------------------------------------------------------------
  840. !!MJ: Add some (daily) interest to the bank account.
  841. !!Not very realistic but won''t make anyone too rich.
  842. if bankAccount = 1:
  843. kartatotal = karta
  844. :kartaloop
  845. if kartatotal > 20000000:
  846. kartacount += 1
  847. largekarta[kartacount] = 20000000
  848. kartatotal -= 20000000
  849. jump 'kartaloop'
  850. else
  851. largekarta[0] = kartatotal
  852. end
  853. if karta >= 2000000:
  854. !! yearly interest of 2.3% recalculated into daily interest = 0.006% daily
  855. intrate = 60
  856. elseif karta >= 0:
  857. !! yearly interest of 1.15% recalculated into daily interest = 0.003% daily
  858. intrate = 30
  859. else
  860. !! yearly overdraft interest of 20% recalculated into daily interest = 0.055% daily
  861. intrate = 550
  862. end
  863. :intloop
  864. if kartacount > 0:
  865. smallmoneypos += (largekarta[kartacount] * intrate)
  866. if smallmoneypos >= 1000000 or smallmoneypos <= -1000000: karta += smallmoneypos / 1000000 & smallmoneypos = smallmoneypos mod 1000000
  867. largekarta[kartacount] = 0
  868. kartacount -= 1
  869. jump 'intloop'
  870. else
  871. smallmoneypos += (largekarta[0] * intrate)
  872. largekarta[0] = 0
  873. if kartacount ! 0: kartacount = 0
  874. end
  875. if smallmoneypos >= 1000000 or smallmoneypos <= -1000000:
  876. karta += smallmoneypos / 1000000
  877. smallmoneypos = smallmoneypos mod 1000000
  878. end
  879. if atmDeposit > 0 and atmDepositDate <= daystart:
  880. karta += atmDeposit
  881. atmDeposit = 0
  882. end
  883. end
  884. !!------------------------------------------------------------------------------------------------------------
  885. !! Payments
  886. !!------------------------------------------------------------------------------------------------------------
  887. if day = 25:
  888. !! meynold payment
  889. if mey_vika['mey_vika_qw'] >= 35 and mey_tamara['help_count'] < 10 and mey_tamara['qw_end'] = 0:
  890. karta += 10000
  891. '<b><font color=green>For your efforts aunt Tamara gave you 10,000 rubles</font></b>'
  892. mey_tamara['help_count'] = 0
  893. elseif mey_vika['mey_vika_qw'] >= 35 and mey_tamara['help_count'] >= 10 and mey_tamara['qw_end'] = 0:
  894. karta += 15000
  895. '<b><font color=green>For your efforts aunt Tamara gave you 15,000 rubles</font></b>'
  896. mey_tamara['help_count'] = 0
  897. end
  898. if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
  899. Pay = PersSecWorkTimes * 1250
  900. PersSecWorkTimes = 0
  901. karta += Pay
  902. paydaybistrosec = 1
  903. '<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>'
  904. end
  905. if workKafe = 1 and paydayKafe = 0:
  906. paydayKafe = 1
  907. pay = smenaKafe * 600
  908. karta += pay
  909. smenaKafe = 0
  910. '<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>'
  911. end
  912. if workhosp = 1 and nopaypoly = 0:
  913. pay = smena * 1000
  914. karta += pay
  915. smena = 0
  916. nopaypoly = 1
  917. '<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>'
  918. end
  919. if worksalon = 1 and nopaysalon = 0:
  920. pay = smenaSalon * 1560
  921. karta += pay
  922. smenaSalon = 0
  923. nopaysalon = 1
  924. '<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>'
  925. end
  926. if tanwork = 1 and nopaytanwork = 0:
  927. nopaytanwork = 1
  928. karta += 10000
  929. '<b><font color="green">Your salary of 10,000 <b>₽</b> has been paid into your bank account for your work as a house maid.</font></b>'
  930. end
  931. if workSec = 1 and paydaySec = 0:
  932. paydaySec = 1
  933. pay = sekDay * 800
  934. if officebestslut >= 3:pay += 10000
  935. karta += pay
  936. sekDay = 0
  937. '<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>'
  938. end
  939. if workFabrika = 1:
  940. pay = smenaFabrika * 420
  941. smenaFabrika = 0
  942. karta += pay
  943. '<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>'
  944. end
  945. if husband > 0 and paydayHusb = 0:
  946. paydayHusb = 1
  947. if husbFin = 0:huspay = 20000
  948. if husbFin = 1:huspay = 30000
  949. if husbFin = 2:huspay = 40000
  950. karta += huspay
  951. '<b><font color="green">Your husband has paid <<huspay>> <b>₽</b> into your bank account.</font></b>'
  952. end
  953. if stipuha = 1 and stipuhaday = 0:stipuhaday = 1 & karta += 1200 & '<b><font color="green">You have received 1,200 <b>₽</b> scholarship.</font></b>'
  954. ! Utilities for all apartments.
  955. if (home_owned[1] = 1 or home_owned[1] = 2 or home_owned[4] > 0 or home_owned[5] = 2) and electroday = 0:
  956. gs 'housing', 'util'
  957. if bankAccount = 1 and karta >= elektro:
  958. '<b><font color="green"><<elektro>> <b>₽</b> for utilities, has been automatically deducted from your bank account.</font></b>'
  959. electroday = 1
  960. if elektro >= 2000:
  961. elektro = 2000 + rand(0, 100)
  962. karta -= elektro * hcount_util
  963. end
  964. elseif bankAccount = 1 and karta + bankDebtLimit >= elektro:
  965. '<b><font color="green"><<elektro>> <b>₽</b> for utilities, has been automatically deducted from your bank account and overdraw facility. Please contact your bank.</font></b>'
  966. electroday = 1
  967. if elektro >= 2000:
  968. elektro = 2000 + rand(0, 100)
  969. karta -= elektro * hcount_util
  970. end
  971. elseif bankAccount = 0 and money >= elektro:
  972. '<b><font color="red">You currently do not have a bank account setup for automatic utilities payments. <<elektro>> <b>₽</b> has been deducted from your cash holdings.</font></b>'
  973. electroday = 1
  974. if elektro >= 2000:
  975. elektro = 2000 + rand(0, 100)
  976. money -= elektro * hcount_util
  977. end
  978. else
  979. '<b><font color="red">Your card was declined during automatic debit of <<elektro>> <b>₽</b>, for automatic utilities payment.</font></b>'
  980. end
  981. end
  982. ! Cable for all apartments
  983. if kabel > 0 and kabelday = 0:
  984. gs 'housing', 'cable'
  985. if bankAccount = 1 and karta >= (300 * hcount_cable):
  986. '<b><font color="green">300 <b>₽</b> has been deducted from your bank account, for you cable TV subscription.</font></b>'
  987. kabelday = 1
  988. karta -= 300 * hcount_cable
  989. elseif bankAccount = 1 and karta + bankDebtLimit >= (300 * hcount_cable):
  990. '<b><font color="green">300 <b>₽</b> has been deducted from your bank account and overdraw facility, for you cable TV subscription.</font></b>'
  991. kabelday = 1
  992. karta -= 300 * hcount_cable
  993. elseif bankAccount = 0 and money >= (300 * hcount_cable):
  994. '<b><font color="red">You currently do not have a bank account setup for automatic payment of your cable TV subscription. 300 <b>₽</b> has been deducted from your cash holdings.</font></b>'
  995. kabelday = 1
  996. money -= 300 * hcount_cable
  997. else
  998. '<b><font color="red">Your card was declined during automatic debit of 300 <b>₽</b> for cable TV subscription.</font></b>'
  999. end
  1000. end
  1001. end
  1002. if day ! 25:
  1003. if paydayHusb = 1:paydayHusb = 0
  1004. if workKafe = 1 and paydayKafe = 1:paydayKafe = 0
  1005. if workSec = 1 and paydaySec = 1:paydaySec = 0
  1006. if (home_owned[1] = 1 or home_owned[4] > 0) and haday = 1:haday = 0
  1007. if (home_owned[1] > 0 or home_owned[4] > 0 or home_owned[5] = 2) and electroday = 1:electroday = 0
  1008. if (home_owned[1] > 0 or home_owned[4] > 0 or home_owned[5] = 3) and kabel > 0 and kabelday = 1:kabelday = 0
  1009. if stipuhaday = 1:stipuhaday = 0
  1010. if nopaytanwork = 1:nopaytanwork = 0
  1011. if nopaypoly = 1:nopaypoly = 0
  1012. if nopaysalon = 1:nopaysalon = 0
  1013. if paydaybistrosec = 1:paydaybistrosec = 0
  1014. end
  1015. if sdaday = day and sdamonth = month and home_owned[1] = 3:
  1016. home_owned[1] = 2
  1017. '<b><font color="red">Your tenants have moved out and your apartment is now vacant.</font></b>'
  1018. !msg 'Your tenants have moved out and your apartment is now vacant.'
  1019. end
  1020. !!----------------------------------------
  1021. !! Rent
  1022. !!----------------------------------------
  1023. if home_owned[1] = 1 or home_owned[4] > 0:
  1024. gs 'housing', 'rent'
  1025. ! Rent for the city apartment
  1026. if home_owned[1] = 1:
  1027. if ArendHouseSL <= 2:
  1028. !From bank
  1029. if bankAccount = 1 and karta >= home_rent[1]:
  1030. '<b><font color="green">Your rent payment of <<home_rent[1]>> <b>₽</b> for your city apartment, has automatically been deducted from your bank account.</font></b>'
  1031. karta -= home_rent[1]
  1032. ArendHouseSL += ArendHouseSL_due
  1033. elseif bankAccount = 1 and karta + bankDebtLimit >= home_rent[1]:
  1034. '<b><font color="green">Your rent payment of <<home_rent[1]>> <b>₽</b> for your city apartment, has automatically been deducted from your bank account and overdraw facility. Please contact your bank regarding your overdraw repayment.</font></b>'
  1035. karta -= home_rent[1]
  1036. ArendHouseSL += ArendHouseSL_due
  1037. elseif bankAccount = 0:
  1038. '<b><font color="red">You currently do not have a bank account setup for automatic rent deduction of <<home_rent[1]>> <b>₽</b> for your city apartment. To avoid eviction, please make manual payment as soon as possible.</font></b>'
  1039. else
  1040. nl
  1041. '<b><b><font color="red">Your card was declined during automatic rent deduction of <<home_rent[1]>> <b>₽</b> for your city apartment. To avoid eviction, please rectify as soon as possible.</font></b>'
  1042. end
  1043. end
  1044. end
  1045. ! Rent for the Pushkin apartment
  1046. if home_owned[4] > 0:
  1047. if ArendHouseSL4 <= 2:
  1048. !From bank
  1049. if bankAccount = 1 and karta >= home_rent[4]:
  1050. '<b><font color="green">Your rent payment of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment, has automatically been deducted from your bank account.</font></b>'
  1051. karta -= home_rent[4]
  1052. ArendHouseSL4 += ArendHouseSL4_due
  1053. elseif bankAccount = 1 and karta + bankDebtLimit >= home_rent[4]:
  1054. '<b><font color="green">Your rent payment of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment, has automatically been deducted from your bank account and overdraw facility. Please contact your bank regarding your overdraw repayment.</font></b>'
  1055. karta -= home_rent[4]
  1056. ArendHouseSL4 += ArendHouseSL4_due
  1057. elseif bankAccount = 0:
  1058. '<b><font color="red">You currently do not have a bank account setup for automatic rent deduction of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment. To avoid eviction, please make manual payment as soon as possible.</font></b>'
  1059. else
  1060. nl
  1061. '<b><b><font color="red">Your card was declined during automatic rent deduction of <<home_rent[4]>> <b>₽</b> for your Pushkin apartment. To avoid eviction, please rectify as soon as possible.</font></b>'
  1062. end
  1063. end
  1064. end
  1065. end
  1066. if home_owned[1] = 1 and ArendHouseSL <= 0: ArendHouseSL = 0 & home_owned[1] = 0
  1067. if home_owned[4] > 0 and ArendHouseSL4 <= 0: ArendHouseSL4 = 0 & home_owned[4] = 0
  1068. if home_owned[1] = 1: ArendHouseSL -= 1
  1069. if home_owned[4] > 0: ArendHouseSL4 -= 1
  1070. !!------------------------------------------------------------------------------------------------------------
  1071. killvar 'holyday'
  1072. killvar 'kanikuli'
  1073. killvar 'pcs_ate'
  1074. killvar 'pcs_drank'
  1075. !!sisboyparty
  1076. !!-1 - don''t go to the party
  1077. !!0 - don''t know about parties
  1078. !!1 - knows about the parties
  1079. !!2 - agreed to go to the party
  1080. !!3 - Missed the party
  1081. if storyline = 1:
  1082. !!Party refresh if you didn''t see sis
  1083. if week = 1 and sisboyparty ! 2:
  1084. if sisboyparty = -1: sisboyparty = 1
  1085. if sisboypartyQW >= 2 and sisboyparty > 0:
  1086. sisboyparty_day = daystart + rand(3,5)
  1087. end
  1088. end
  1089. if sisboyparty = 2 and sisboyparty_day + 1 < daystart: sisboyparty = 3
  1090. if SchoolAtestat = 0:
  1091. if month = 12 and day > 25:
  1092. if day < 31:
  1093. $holyday = '<b>Winter Break in <<32-day>> days.</b>'
  1094. else
  1095. $holyday = '<b>Winter Break starts tomorrow.</b>'
  1096. end
  1097. elseif month = 1 and day <= 15:
  1098. kanikuli = 2
  1099. if day < 13:
  1100. $holyday = '<b>Winter Break.</b>'
  1101. elseif day < 15:
  1102. $holyday = '<b>Winter Break ends in <<16-day>> days.</b>'
  1103. else
  1104. $holyday = '<b>Last day of Winter Break.</b>'
  1105. end
  1106. elseif month = 3 and day > 13:
  1107. if day < 19:
  1108. $holyday = '<b>Spring Break starts in <<20-day>> days.</b>'
  1109. elseif day = 19:
  1110. $holyday = '<b>Spring Break starts tomorrow.</b>'
  1111. elseif day >= 20 and day <= 26:
  1112. kanikuli = 3
  1113. if day < 24:
  1114. $holyday = '<b>Spring Break.</b>'
  1115. elseif day < 26:
  1116. $holyday = '<b>Spring Break ends in <<27-day>> days.</b>'
  1117. else
  1118. $holyday = '<b>Last day of Spring Break.</b>'
  1119. end
  1120. end
  1121. elseif month = 5:
  1122. if (school_year = 2000 and year = 2017) or (school_year = 2001 and year = 2018):
  1123. if day = 25:
  1124. kanikuli = 6
  1125. SchoolAtestat = -1
  1126. $holyday = '<b>Your graduation is today. Be there by 8:00.</b>'
  1127. elseif day = 24:
  1128. $holyday = '<b>Your graduation is tomorrow. Be there by 8:00.</b>'
  1129. elseif day >= 19:
  1130. $holyday = '<b>Your graduation is in <<26-day>> days.</b>'
  1131. end
  1132. elseif day >= 25:
  1133. if day = 31:
  1134. $holyday = '<b>Summer Break starts tomorrow.</b>'
  1135. else
  1136. $holyday = '<b>Summer Break starts in <<32-day>> days.</b>'
  1137. end
  1138. end
  1139. elseif month = 6 or month = 7 or month = 8:
  1140. kanikuli = 4
  1141. if month = 8 and day >= 25:
  1142. if day = 31:
  1143. $holyday = '<b>Last day of Summer Break.</b>'
  1144. else
  1145. $holyday = '<b>Summer Break ends in <<32-day>> days.</b>'
  1146. end
  1147. else
  1148. $holyday = '<b>Summer Break.</b>'
  1149. end
  1150. elseif month = 10 and day >= 29:
  1151. $holyday = '<b>Autumn Break starts in <<35-day>> days.</b>'
  1152. elseif month = 11:
  1153. if day < 3:
  1154. $holyday = '<b>Autumn Break starts in <<4-day>> days.</b>'
  1155. elseif day = 3:
  1156. $holyday = '<b>Autumn Break starts tomorrow.</b>'
  1157. elseif day < 6:
  1158. kanikuli = 1
  1159. $holyday = '<b>Autumn Break.</b>'
  1160. elseif day < 11:
  1161. kanikuli = 1
  1162. $holyday = '<b>Autumn Break ends in <<12-day>> days.</b>'
  1163. elseif day = 11:
  1164. kanikuli = 1
  1165. $holyday = '<b>Last day of Autumn Break.</b>'
  1166. end
  1167. end
  1168. elseif SchoolAtestat = -1:
  1169. if ParHomeBlock = 1:
  1170. $holyday = '<b>You missed your graduation. You could pick up your diploma at the school.</b>'
  1171. else
  1172. $holyday = '<b>You missed your graduation. Maybe your mother picked up your diploma.</b>'
  1173. end
  1174. end
  1175. !!Brother''s dick growth as he gets older
  1176. !Commented out till some future time
  1177. !if kolka_dick_day + 30 < daystart and npc_dick['A34'] < 26:
  1178. ! kolka_dick_day = daystart
  1179. ! npc_dick['A34'] += 1
  1180. !end
  1181. !if npc_dick['A34'] < 20 and npc_dick['A34'] > 16:
  1182. ! $npc_thdick['A34'] = 'well proportioned'
  1183. !elseif npc_dick['A34'] >= 20 and npc_dick['A34'] <= 26:
  1184. ! $npc_thdick['A34'] = 'thick'
  1185. !end
  1186. end
  1187. killvar 'natholi'
  1188. if month = 1 and day >= 1 and day <= 8:
  1189. $natholi = 'New Year holidays'
  1190. natholi = 1
  1191. if day = 1:$natholi += ', New Year'
  1192. if day = 7:$natholi += ', Christmas'
  1193. end
  1194. if month = 2 and day = 23:$natholi = 'Defender of Fatherland Day' & natholi = 1
  1195. if month = 3 and day = 8:$natholi = 'Women''s Day' & natholi = 1
  1196. if month = 5 and day = 1:$natholi = 'Spring and Labor Day' & natholi = 1
  1197. if month = 5 and day = 2:$natholi = 'National holiday' & natholi = 1
  1198. if month = 5 and day = 9:$natholi = 'Victory Day' & natholi = 1
  1199. if month = 6 and day = 12:$natholi = 'Russia Day' & natholi = 1
  1200. if month = 6 and day = 13:$natholi = 'National holiday' & natholi = 1
  1201. if month = 11 and day = 4:$natholi = 'Unity Day' & natholi = 1
  1202. if natholi = 1:
  1203. if $holyday ! '': $holyday += '<br>'
  1204. $holiday += $natholi
  1205. end
  1206. if bcream_used >= 1:
  1207. bcream_used = 0
  1208. temp = rand(0,max(nbsize-genbsize+5,5)) / max(nbsize-genbsize,1)
  1209. if temp > 0: temp = 1
  1210. nbsize += temp
  1211. if temp > 0:'Feels like your breasts have grown slightly.'
  1212. end
  1213. if steroid_dose >= 1:
  1214. if lashair < 1:
  1215. pcs_pubes += steroid_dose
  1216. pcs_leghair += steroid_dose
  1217. end
  1218. steroid_dose = 0
  1219. end
  1220. if aphrodisiac_overdose = 1:aphrodisiac_overdose = 0
  1221. if aphrodisiac_timer ! 0:aphrodisiac_timer = 0
  1222. if mentats_dose = 1:
  1223. mentats_dose = 0
  1224. elseif mentats_dose > 1:
  1225. pain['head'] += 20 * mentats_dose
  1226. mentats_dose = 0
  1227. end
  1228. !!Appearance base calculation call
  1229. gs 'body_shape', 'basebeautycalc'
  1230. !! vovan, from 1.2.5
  1231. hunters_check = 0
  1232. mushroom_pickers = 0
  1233. horse_river = 0
  1234. haying_time = 0
  1235. mira_go_river = 0
  1236. forestpicnic = 0
  1237. if Mira_no > 0: Mira_no -= 1
  1238. if Mira_no < 0: Mira_no = 0
  1239. if catout ! 0: catout = 0
  1240. if feedcat ! 0: feedcat = 0
  1241. loc_count = ARRSIZE('$CloLosLoc')
  1242. i = loc_count - 1
  1243. :loopCloLoc
  1244. $CloLoc = $CloLosLoc[i]
  1245. CloLostOn = CloLosDay[$CloLoc]
  1246. if CloLostOn + RAND(7,14) < daystart :
  1247. gs 'clothing', 'recover_lost_clothes', $CloLoc, 2
  1248. end
  1249. i -=1
  1250. if i > -1 :jump 'loopCloLoc'
  1251. if vidageday > 1080: vidageday = 1080
  1252. if blizoruk < 10: blizoruk -= 1
  1253. if blizoruk < 100: blizoruk -= rand(0,1)
  1254. if blizoruk < 0: blizoruk = 0
  1255. !!------------------------------------------------------------------------------------------------------------------------
  1256. !!array cleaning moving potential fathers from C to B array and cleaning C array
  1257. !First look is there any cum in the womb,when womb is empty random genereted npc record are cleaningare deleted
  1258. ! mid($npclastgenerated[0],2,9) number of the last random created npcs
  1259. norandomdads = 1
  1260. !checking if Sveta have children or babies
  1261. if arrsize('$ChildFath') > 0:
  1262. !Yes she have... cheking if random NPC is the dady
  1263. !'Sveta have <<$ChildFath>> children'
  1264. childtmp = 0
  1265. :childloop
  1266. if mid($ChildFath[childtmp],1,1) = 'C':
  1267. !yes child is from random genereted npc
  1268. norandomdads = 0
  1269. else
  1270. !child is not from random genereted npc
  1271. childtmp += 1
  1272. if childtmp < arrsize('$ChildFath'): jump 'childloop'
  1273. end
  1274. end
  1275. number = 0
  1276. !checking if there is some cum in womb.
  1277. if arrsize('$cumarrnam') > 0:
  1278. !there is cum in womb
  1279. :cleaning_records_cum
  1280. $tmp = 'C' + '<<number>>'
  1281. cum_number = 0
  1282. :cumloop
  1283. !look if cum in womb is from random created npc
  1284. if($tmp = $cumarrnam[cum_number]):
  1285. !'cum from <<$tmp>> is in the womb'
  1286. number +=1
  1287. if number < mid($npclastgenerated[0],2,9): jump 'cleaning_records_cum'
  1288. else
  1289. cum_number += 1
  1290. if cum_number < arrsize('$cumarrnam'):
  1291. jump 'cumloop'
  1292. else
  1293. !'no cum in woomb from <<$tmp>>'
  1294. if norandomdads = 1:
  1295. !no random dads
  1296. gs 'npccleanc',$tmp
  1297. else
  1298. !some children are from random genereted npc
  1299. !checking if selected npc is a dady
  1300. childtmp = 0
  1301. :childloop3
  1302. if $ChildFath[childtmp] = $tmp:
  1303. !selected npc is father of the child, he will stay in record or now
  1304. !moving npc from C array to B array,
  1305. gs 'npcpreservec',$tmp
  1306. !updating the childs data about the father
  1307. $ChildFath[childtmp] = $npclastsaved
  1308. !cleaining unnecessary data
  1309. gs 'npccleanc',$tmp
  1310. number += 1
  1311. if number < mid($npclastgenerated[0],2,9): jump 'cleaning_records_cum'
  1312. else
  1313. !child is not from random genereted npc
  1314. childtmp += 1
  1315. if childtmp < arrsize('$ChildFath'):
  1316. jump 'childloop3'
  1317. else
  1318. !children are not from seleted random npc, we are cleaning his redords
  1319. gs 'npccleanc',$tmp
  1320. number += 1
  1321. if number < mid($npclastgenerated[0],2,9): jump 'cleaning_records_cum'
  1322. end
  1323. end
  1324. end
  1325. end
  1326. end
  1327. else
  1328. !there is no cum in womb, cleaning random created npc redords
  1329. if norandomdads = 0:
  1330. :cleaning_with_babies
  1331. $tmp = 'C' + '<<number>>'
  1332. !cheking if random NPC is the dady
  1333. childtmp2 = 0
  1334. :childloop2
  1335. if $ChildFath[childtmp2] = $tmp:
  1336. !selected random NPC is dady selected child
  1337. number +=1
  1338. if number < mid($npclastgenerated[0],2,9): jump 'cleaning_with_babies'
  1339. else
  1340. !selected random NPC is not dady selected child
  1341. childtmp2 += 1
  1342. if childtmp2 < arrsize('$ChildFath'):
  1343. jump 'childloop2'
  1344. else
  1345. !selected random npc is not any child dady
  1346. gs 'npccleanc',$tmp
  1347. number += 1
  1348. if number < mid($npclastgenerated[0],2,9): jump 'cleaning_with_babies'
  1349. end
  1350. end
  1351. else
  1352. !she have no children or babies, and no cum freom random npc
  1353. !'cleaning random NPC records'
  1354. :cleaning_no_babies
  1355. $tmp = 'C' + '<<number>>'
  1356. !'clining <<$tmp>>'
  1357. gs 'npccleanc',$tmp
  1358. number += 1
  1359. if number < mid($npclastgenerated[0],2,9): jump 'cleaning_no_babies'
  1360. end
  1361. end
  1362. killvar '$tmp'
  1363. killvar 'number'
  1364. killvar 'childtmp2'
  1365. killvar 'childtmp'
  1366. killvar 'norandomdads'
  1367. !!------------------------------------------------------------------------------------------------------------
  1368. --- cikl ---------------------------------