1
0

cikl.qsrc 43 KB

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