1
0

cikl 34 KB

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