1
0

cikl.qsrc 39 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330
  1. # cikl
  2. !!------------------------------------------------------------------------------------------------------------
  3. !! Masseuse Job (MUST COME BEFORE DAY CHANGES)
  4. !!------------------------------------------------------------------------------------------------------------
  5. if masseuse['jobtype'] < 1:
  6. masseuse['<<week>>_shift_1'] = 0
  7. masseuse['<<week>>_shift_2'] = 0
  8. masseuse['<<week>>_shift_3'] = 0
  9. end
  10. if (masseuse['<<week>>_shift_1'] ! 0 or masseuse['<<week>>_shift_2'] ! 0 or masseuse['<<week>>_shift_3'] ! 0) and masseuse['last_worked_day'] ! daystart:
  11. masseuse['missed_shift2'] = 1
  12. end
  13. !!----------------------------------------------------------------------------
  14. !! Time calculations
  15. !! day = day in this month
  16. !! week = day in the week. 1 == Monday
  17. !! hour = Full hour in this day
  18. day += 1
  19. week += 1
  20. hour -= 24
  21. if day > monthsEnd[month]:
  22. day -= monthsEnd[month]
  23. month += 1
  24. !! Changing the year at new year and making sure February have the correct number of days.
  25. if month > 12:
  26. month = 1
  27. year += 1
  28. if ((year mod 4 = 0) and (year mod 100 ! 0)) or (year mod 400 = 0):
  29. monthsend[2] = 29
  30. else
  31. monthsend[2] = 28
  32. end
  33. end
  34. !!MJ: Don''t think that one is needed. But it was in the original loop.
  35. if month < 1: month = 1
  36. $month = $monthName[month]
  37. !! new years party calculation
  38. temp = func('shortgs','dow',year,12,31)
  39. if temp < 6:
  40. nyp_day = 31
  41. elseif temp = 6:
  42. nyp_day = 30
  43. else
  44. nyp_day = 29
  45. end
  46. end
  47. !!MJ: Don''t think that one is needed. But it was here already.
  48. if day <= 0:day = 1
  49. ciklNewWeek = 0
  50. if week > 7:
  51. odd_week = iif(odd_week,0,1)
  52. ciklNewWeek = 1
  53. :loopweek
  54. week -= 7
  55. husbandrink = 0
  56. if military = 1:military = 0
  57. if week > 7:jump 'loopweek'
  58. end
  59. gs 'daystart'
  60. gs 'yearstart'
  61. gs 'emp_functions', 'evt_day_suffix'
  62. $stat_day_suffix = $date_suffix
  63. killvar '$date_suffix'
  64. !!----------------------------------------------------------------------------
  65. !!Fame call to update all the fame variables
  66. gs 'fame'
  67. !!Cycle stats for Contacts
  68. gs 'telefon', 'DailyStatRefresh', ciklNewWeek
  69. !!moving the porn schedule ahead a day, flaffing for missed shootings, if it even matters
  70. if (film > 0 or pornstack = 1) and pfilmNO = 0 and pfilmSTOP = 0:
  71. if pfilmday[0] > 0: gs 'pornschedule', 'pornmiss'
  72. gs 'pornschedule', 'schedule'
  73. end
  74. !! set the time when the SMS will be send
  75. gs 'booty_call', 'scheduler'
  76. booty_call_time['daystart'] = daystart
  77. !!------------------------------------------------------------------------------------------------------------
  78. !! Job Stuff
  79. !!------------------------------------------------------------------------------------------------------------
  80. !! masseuse paycheck
  81. if masseuse['weeks_pay'] > 0 and week = 5:masseuse['paycheck'] = 1
  82. if masseuse['jobtype'] > 0 and week = 5 and masseuse['weeks_pay'] > 0:
  83. masseuse['payday'] = 1
  84. end
  85. if week = 7 and masseuse['schedule_update'] ! daystart: gs 'masseuse_schedule','schedule_reset'
  86. !!modelling check
  87. if model_week ! (daystart - week) / 7 and model['status'] > 0: model_job_week = 0
  88. !!acting strings to set available jobs
  89. if casting = 1:
  90. acting_string1 = rand(10000000,199999999)
  91. acting_string2 = rand(10000000,199999999)
  92. end
  93. !! terminate tour gide job when its off season
  94. if emp_job_status[1] = 1 and month < 6 and month > 8:
  95. if work = 1: work = 0
  96. emp_job_status[1] = 4
  97. end
  98. dynamic $hypnoDaychange
  99. !!phone reset for bf
  100. ringA = 0
  101. ringB = 0
  102. ringC = 0
  103. !!Appearance Age
  104. vidageday -= 1
  105. if vidageday <= 0:
  106. vidageday = 360
  107. vidage += 1
  108. end
  109. !!Birthday
  110. age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
  111. if ((month * 100) + day) <= pcs_dob mod 10000: age -= 1
  112. if birthday = day and birthmonth = month and model['age'] > 0:model['age'] += 1
  113. if workDolgDay > 0: workDolgDay -= 1
  114. if QWdogreiqTimer > 0: QWdogreiqTimer -= 1
  115. if husband > 0: husbanday += 1
  116. if husband > 10 and husbanday > 0: husband -= 15
  117. if fingal > 0: fingal -= 1
  118. if husbandMark = 1 and husband <= 10:
  119. husbizvradd = 0
  120. husbharmin = 0
  121. husbandMark = 0
  122. husband = 0
  123. divorced += 1
  124. if KFOnLineReaga > 0:KFOnLineReaga -= 1
  125. '<b><font color="red">Your husband has filed for a divorce.</font></b>'
  126. end
  127. !! after having surgery you will be in recuperation for a few days
  128. if surgeryday ! '':
  129. if daystart - 7 <= surgeryday:
  130. dailyhealthimprov = (daystart - surgeryday) * 50
  131. pcs_health = dailyhealthimprov
  132. recuperation = 1
  133. else
  134. killvar 'recuperation'
  135. killvar 'dailyhealthimprov'
  136. end
  137. end
  138. !!Street events daily reset
  139. streetevent_hour = -2
  140. !!Clothing stock and price randomizers
  141. Clothingstock = rand (0,23)
  142. i = 1
  143. :loopprice
  144. Clothingstock[i] = rand (0,500)
  145. i += 1
  146. if i <= 147:jump 'loopprice'
  147. if dyneval ('RESULT = <<$coatworntype>>_coats_h[<<coatwornnumber>>]') <= 0: $coatworntype = 'none'
  148. !! Abortion and pregnancy recovery resets if finished
  149. if abortionbirthdate ! 0 and daystart - abortionbirthdate > 24: abortionbirthdate = 0
  150. if pregbirthdate ! 0 and daystart - pregbirthdate > 73: pregbirthdate = 0
  151. !!------------------------------------------------------------------------------------------------------------
  152. !! Nympho
  153. !!------------------------------------------------------------------------------------------------------------
  154. !! Reserved for nympho trait
  155. if nymphosex_flag = 1:
  156. end
  157. nymphosex_flag = 0
  158. !!------------------------------------------------------------------------------------------------------------
  159. !! Bimbo
  160. !!------------------------------------------------------------------------------------------------------------
  161. !!bimbo flag set in stat_display if bimbo clothing, shoes and makeup are worn at same time
  162. if succubusflag = 0 or CheatBimbo2 = 1:
  163. if cheatBimbo = 0 and bimbo_flag = 1:
  164. bimbo += 1
  165. end
  166. end
  167. !!Once bimbolevel is set to 1, must use the withdrawal in stat to return to 0
  168. if bimbo > 0 or bimbolevel > 0:
  169. if bimbo < 10:
  170. if bimbo_flag = 0:
  171. bimbo -= 2
  172. end
  173. elseif bimbo < 20:
  174. bimbolevel = 1
  175. elseif bimbo < 30:
  176. bimbolevel = 2
  177. else
  178. bimbolevel = 3
  179. end
  180. end
  181. if bimbo >= 40: bimbo = 40
  182. !!Bimbo levels. They use custom variables so they won''t permanently change character stats
  183. if bimbolevel = 0: supnatvnesh = 0 & bimbostupidity = 0
  184. if CheatBimbo2 = 0:
  185. if bimbolevel = 1: supnatvnesh = 2 & bimbostupidity = (pcs_intel / 6)
  186. if bimbolevel = 2: supnatvnesh = 2 & bimbostupidity = (pcs_intel / 4)
  187. if bimbolevel = 3: supnatvnesh = 4 & bimbostupidity = (pcs_intel / 3)
  188. elseif CheatBimbo2 = 1:
  189. if bimbolevel = 1: supnatvnesh = 2 & bimbostupidity = 0
  190. if bimbolevel = 2: supnatvnesh = 2 & bimbostupidity = 0
  191. if bimbolevel = 3: supnatvnesh = 4 & bimbostupidity = 0
  192. end
  193. !!A Succubus cannot be a Bimbo
  194. if succubusflag = 1 and CheatBimbo3 = 0:
  195. if bimbolevel > 0 and bimbo > 0: bimbowithdrawal = 40
  196. elseif bimbolevel >= 1:
  197. !!Checks flag and adds withdrawal if 0
  198. if bimbo_flag = 0:
  199. bimbowithdrawal += 1
  200. else
  201. bimbowithdrawal = 0
  202. end
  203. end
  204. if bimbo < 0: bimbo = 0
  205. !! flag reset
  206. bimbo_flag = 0
  207. !!------------------------------------------------------------------------------------------------------------
  208. !! Butt slut
  209. !!------------------------------------------------------------------------------------------------------------
  210. if orgasm_anal > orgasm_anal[1]:
  211. if pcs_traits['buttslut_lvl'] > 0: pcs_traits['buttslut_exp'] += orgasm_anal - orgasm_anal[1]
  212. else
  213. if pcs_traits['buttslut_exp'] > 1: pcs_traits['buttslut_exp'] -= 1
  214. end
  215. orgasm_anal[1] = orgasm_anal
  216. if orgasm_anal > 10 and pcs_traits['buttslut_lvl'] = 0: pcs_traits['buttslut_lvl'] = 1
  217. if pcs_traits['buttslut_exp'] >= 15 and pcs_traits['buttslut_lvl'] = 1: pcs_traits['buttslut_lvl'] = 2 & pcs_traits['buttslut_exp'] = 0
  218. if pcs_traits['buttslut_exp'] >= 50 and pcs_traits['buttslut_lvl'] = 2: pcs_traits['buttslut_lvl'] = 3
  219. if pcs_traits['buttslut_exp'] <= 0 and pcs_traits['buttslut_lvl'] = 3: pcs_traits['buttslut_lvl'] = 2 & pcs_traits['buttslut_exp'] = 0
  220. !!------------------------------------------------------------------------------------------------------------
  221. !! Exhibitionism
  222. !!------------------------------------------------------------------------------------------------------------
  223. if pcs_exhib > 0 or exhibitionist_lvl > 0:
  224. if pcs_exhib < 10:
  225. pcs_exhib -= 1
  226. elseif pcs_exhib < 50:
  227. exhibitionist_lvl = 1
  228. elseif pcs_exhib < 100 or exhibitionQW < 3:
  229. exhibitionist_lvl = 2
  230. elseif exhibitionQW > 2:
  231. exhibitionist_lvl = 3
  232. end
  233. end
  234. !!Inhibition increases from wearing revealing clothing
  235. if exhibition_outdoors > 0:
  236. if pcs_inhib > 90:
  237. exhibition_outdoors = exhibition_outdoors * 3
  238. elseif pcs_inhib > 75:
  239. exhibition_outdoors = exhibition_outdoors * 5 / 2
  240. elseif pcs_inhib > 60:
  241. exhibition_outdoors = exhibition_outdoors * 2
  242. elseif pcs_inhib > 30:
  243. exhibition_outdoors = exhibition_outdoors * 3 / 2
  244. end
  245. if exhibition_outdoors <= 5:
  246. inhib_exp += rand(3,6)
  247. elseif exhibition_outdoors <= 10:
  248. inhib_exp += rand(5,9)
  249. elseif exhibition_outdoors <= 15:
  250. inhib_exp += rand(7,12)
  251. elseif exhibition_outdoors <= 20:
  252. inhib_exp += rand(9,15)
  253. elseif exhibition_outdoors <= 25:
  254. inhib_exp += rand(12,20)
  255. elseif exhibition_outdoors <= 30:
  256. inhib_exp += rand(16,25)
  257. elseif exhibition_outdoors <= 35:
  258. inhib_exp += rand(20,30)
  259. elseif exhibition_outdoors <= 40:
  260. inhib_exp += rand(25,40)
  261. elseif exhibition_outdoors <= 50:
  262. inhib_exp += rand(35,50)
  263. elseif exhibition_outdoors <= 65:
  264. inhib_exp += rand(50,75)
  265. else
  266. inhib_exp += rand(70,100)
  267. end
  268. end
  269. exhibition_outdoors = 0
  270. !!------------------------------------------------------------------------------------------------------------
  271. !! Everything is new again
  272. !!------------------------------------------------------------------------------------------------------------
  273. !!Trait ''Everything is new again'', gained from the sg_tg start
  274. !! starts at 84 and decreases by 1 every day, when reaches 0 the trait will get disabled
  275. if pcs_traits['new_again'] > 0: pcs_traits['new_again'] -= 1
  276. !!------------------------------------------------------------------------------------------------------------
  277. !! Succubus Level & hunger calcs
  278. !!------------------------------------------------------------------------------------------------------------
  279. if succubusflag = 1: gs 'succubus','cikl'
  280. !!------------------------------------------------------------------------------------------------------------
  281. if defcurly = 0 and curly > 0:curly -= 1
  282. if defcurly = 1:
  283. if straight > 0: straight -= 1
  284. if straight = 0: curly = 2147483647
  285. end
  286. gs 'sweat', 'add', 2
  287. if pcs_tan > 0: pcs_tan -= 1
  288. if prezikmsg = 2: prezikmsg = 3
  289. gs 'fertility', 'daily_update'
  290. !!------------------------------------------------------------------------------------------------------------
  291. if pcs_breath = 1:pcs_breath = 0
  292. if cheatNoEat = 1 and dounspell = 1:fat += 15
  293. !!Trauma decay
  294. if mood_trauma > 0: mood_trauma -= 1
  295. !!STD check
  296. if SifacOnce = 1:Sifilis += 1
  297. if GerpesOnce = 1:Gerpes += 1
  298. if TriperOnce = 1:
  299. if Triper > 0:
  300. Triper += 1
  301. end
  302. if TriperOral > 0:
  303. TriperOral += 1
  304. end
  305. If TriperOral > 14 and TriperNapr = 0:
  306. if rand(TriperOral,100) > 80:
  307. TriperOral = 0
  308. if Triper = 0:TriperOnce = 0
  309. TriperOralSigns = 0
  310. end
  311. end
  312. end
  313. if KandidozOnce = 1:Kandidoz += 1
  314. Venera = 0
  315. if SifacOnce = 1: Venera += 1
  316. if GerpesOnce = 1: Venera += 1
  317. if TriperOnce = 1: Venera += 1
  318. !! Fail safe
  319. if ashrinkdays = 0: ashrinkdays = 6
  320. if vshrinkdays = 0: vshrinkdays = 6
  321. if pcs_ass > 1 and ashrink > 0 and analplugIN = 0:
  322. if daystart mod(ashrinkdays) = 0: pcs_ass -= ashrink
  323. if pcs_ass < 0: pcs_ass = 0
  324. end
  325. if pcs_vag > 10 and vshrink > 0:
  326. if daystart mod(vshrinkdays) = 0: pcs_vag -= vshrink
  327. if pcs_vag < 0: pcs_vag = 0
  328. end
  329. lipkoef -= rand(0,1)
  330. if lipkoef <= 0: lipkoef = 0
  331. if isprok = 1 or isprokp = 1:
  332. isprok_lastday = 1
  333. else
  334. isprok_lastday = 0
  335. end
  336. if Enable_auto_tampons = 0 and isprok = 1: isprok = 0 & 'You threw away your used tampon.'
  337. if Enable_auto_tampons = 0 and isprokp = 1: isprokp = 0 & 'You threw away your used sanitary pad.'
  338. if lactation['nipgrowth'] > 0:
  339. tmp = rand(0,2)
  340. pcs_nips -= tmp
  341. lactation['nipgrowth'] -= tmp
  342. killvar 'tmp'
  343. elseif lactation['nipgrowth'] < 0:
  344. lactation['nipgrowth'] = 0
  345. end
  346. if preg = 1:
  347. pregtime = pregchem / 24
  348. if pregtimes = 0:pregtimes = 1
  349. elseif preg = 2 and pregminut < totminut:
  350. if Enable_nogameover = 0 :
  351. cla
  352. *clr
  353. over = 4
  354. MSG '<center><b>A horrible pain shoots through your body.</b></center>'
  355. xgt 'gameover'
  356. exit
  357. else
  358. MSG'<font color=red><B>You should die for giving birth unprepared, but Cheat Mode keeps you Alive.</B></font>'
  359. pregminut = totminut + 1440
  360. end
  361. elseif preg = 0:
  362. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A14'
  363. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A16'
  364. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A23'
  365. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A28'
  366. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A29'
  367. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A33'
  368. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A34'
  369. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A69'
  370. gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A131'
  371. !{killvar 'pregTalkFamily' -- Do not kill this (Abortion talk).}
  372. killvar 'pcs_pregtalk'
  373. killvar 'pregTalk'
  374. killvar 'pregtime'
  375. killvar 'knowpreg'
  376. killvar 'denypreg'
  377. killvar '$wombthfath'
  378. end
  379. !!------------------------------------------------------------------------------------------------------------
  380. !! Arousal
  381. !!------------------------------------------------------------------------------------------------------------
  382. if $start_type[1] ! 'nomagic':
  383. if pcs_horny < 100:pcs_horny += pcs_vag
  384. else
  385. if stat['think_virgin'] = 1:
  386. razeba = 0
  387. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 10
  388. if pcs_horny > 50:pcs_horny -= 25
  389. elseif stat['think_virgin'] = 0:
  390. if pregtimes = 0:
  391. if age < 18:
  392. razeba = 1
  393. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 5
  394. if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 10
  395. if pcs_horny >= 80:pcs_horny -= 20
  396. elseif age >= 18 and age < 21:
  397. razeba = 2
  398. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 1
  399. if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 5
  400. if pcs_horny >= 80:pcs_horny -= 10
  401. elseif age >= 21 and age < 25:
  402. razeba = 3
  403. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 1
  404. if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 1
  405. if pcs_horny >= 80:pcs_horny -= 5
  406. elseif age >= 25 and age < 30:
  407. razeba = 4
  408. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 5
  409. if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 1
  410. if pcs_horny >= 80:pcs_horny -= 5
  411. elseif age >= 30:
  412. razeba = 5
  413. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
  414. if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
  415. if pcs_horny >= 80:pcs_horny += 1
  416. end
  417. elseif pregtimes > 0:
  418. if preg = 0:
  419. razeba = 5
  420. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
  421. if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
  422. if pcs_horny >= 80:pcs_horny += 1
  423. elseif preg > 0:
  424. razeba = 6
  425. if pcs_horny < 100:pcs_horny += pregchem / 240
  426. end
  427. end
  428. end
  429. end
  430. if pcs_horny < 0:pcs_horny = 0
  431. !!------------------------------------------------------------------------------------------------------------
  432. !reset Natasha Belova''s clothes
  433. if NatbelQW['seethroughwearing'] = 1: NatbelQW['seethroughwearing'] = 0
  434. !!------------------------------------------------------------------------------------------------------------
  435. !counter for Dimka avoidance
  436. if dimaFilm = 1 and dimaRudeBlock = 0:
  437. nodimkaK += 1
  438. DimkaWarnedToday = 0
  439. end
  440. !!------------------------------------------------------------------------------------------------------------
  441. !!Fame degradation
  442. gs 'fame', 'deg'
  443. !!Traits
  444. gs 'traits', 'overnight'
  445. !!------------------------------------------------------------------------------------------------------------
  446. !! Clothing wear and tear
  447. gs 'starenie'
  448. if pregchem > 240:fat += 1
  449. !!------------------------------------------------------------------------------------------------------------
  450. !! Pain
  451. !!------------------------------------------------------------------------------------------------------------
  452. if painpub = 2:
  453. if painpubday + 5 < daystart:
  454. $painpub = 'Your vulva is painfully sore.'
  455. painpub = 1
  456. painpubday = daystart
  457. elseif painpubday + 5 >= daystart:
  458. $painpub = 'Your vulva is painfully sore.'
  459. end
  460. elseif painpub = 1:
  461. if painpubday + 5 < daystart:
  462. $painpub = ''
  463. painpub = 0
  464. painpubday = daystart
  465. elseif painpubday + 5 >= daystart:
  466. $painpub = 'Your vulva is a little sore.'
  467. end
  468. end
  469. prezikProver += 1
  470. if pirs_pain_ton > 0:pirs_pain_ton -= 1
  471. if shorthair = 1:
  472. shorthairday += 1
  473. if shorthairday >= 45:shorthairday = 0 & shorthair = 0
  474. end
  475. !!------------------------------------------------------------------------------------------------------------
  476. !!Resetting the counter for relationship modifications that are limited in how many time a day they can be applied.
  477. killvar 'npc_rel_daily'
  478. !!Resetting the counters for npc reactions after certain time periods have passed.
  479. gs 'npc_reactions', 'cikl'
  480. !! Setting the day for nerd game nights
  481. gs 'nerd_game_night', 'cikl'
  482. !!Keeping Christina hating Sveta
  483. gs 'Zvereva_events', 'cikl'
  484. !!Albina hates gopniks while at school
  485. if SchoolAtestat = 0 and grupTipe = 4 and AlbinaQW['Friends'] ! 2 and npc_rel['A23'] > 20:
  486. gs 'npc_relationship', 'set', 'A23', 20
  487. end
  488. !!if Vitek''s ex he never forgives her
  489. if kotovLoveQW = -1:
  490. gs 'npc_relationship', 'set', 'A9', 0
  491. end
  492. !!Updating Katja''s variables.
  493. gs 'katja_procedural', 'cikl'
  494. if npc_rel['A69'] > 60 and rand(0,3) = 0:npc_rel['A69'] -= 1
  495. !!Making Sonia''s fall progress if the player do not see the scenes at the disco, by making it such that if at a Sunday her fall have not advanced this weekend it will automatically advance.
  496. gs 'soniadisco', 'cikl'
  497. dmishaevent = 0
  498. if Gspravka <= 0 and GspravkaT = 1:GspravkaT = 0 & Gspravka = 0
  499. if GspravkaT = 1:Gspravka -= 1
  500. if BurgerQW['IlyQW'] = 2 and BurgerQW['IlyQWPoliceDayCount'] > 0 and BurgerQW['IlyQWPoliceDayCount'] < 30:
  501. BurgerQW['IlyQWPoliceDayCount'] += 1
  502. elseif BurgerQW['IlyQW'] = 2 and BurgerQW['IlyQWPoliceDayCount'] = 30:
  503. BurgerQW['IlyQW'] = 3
  504. end
  505. !!Remove degradation for inhibition
  506. inhib_flr = inhib_lvl
  507. gs 'stat_sklattrib', 'daycall'
  508. !Update body measurements and base appearnce
  509. gs 'body', 'DailyUpdate'
  510. if husband > 0 and husbandrink ! 11:husbandrink = rand(0, 10)
  511. !!Pussy_Kats job settings
  512. inWorkYoungShop = 0
  513. if week = 1 and young_shop_work = 100: young_shop_work = 1
  514. if week = 5 and young_shop_work1 = 100: young_shop_work1 = 1
  515. if week = 1 and young_shop_work2 = 100: young_shop_work2 = 1
  516. husbandsexday = 0
  517. borsexkol = 0
  518. givisexday = 0
  519. if shantsr > 0:
  520. pay = shantsr * 5000
  521. karta += pay
  522. shantsr = 0
  523. end
  524. if shantbog > 0:
  525. :shantftb
  526. shantftbgrand = rand(0, 10)
  527. if shantftbgrand > 2:
  528. shantpopala += 1
  529. shantbog -= 1
  530. if shantbog > 0:jump 'shantftb'
  531. elseif shantftbgrand <= 2:
  532. karta += 30000
  533. shantbog -= 1
  534. if shantbog > 0:jump 'shantftb'
  535. end
  536. end
  537. petersexday = 0
  538. if cheatKlisma = 0:
  539. klismaday = daystart
  540. klismaday1 = 1
  541. else
  542. klismaday1 = 0
  543. end
  544. !!ugly duckling start becoming a swan
  545. if uglyduck_flag = 1 and hotcat >= 5:
  546. killvar 'uglyduck_flag'
  547. gs 'npc_relationship', 'socialgroup_setting_boys', 10, 10, 10, 10, 0, 0
  548. grupvalue[1] += 100
  549. old_grupvalue[1] += 100
  550. end
  551. !! Resetting relationships that go over the max
  552. :toptemprel
  553. if temprel < aarraynumber:
  554. temprel +=1
  555. if npc_rel['A'+'<<temprel>>'] > 100:npc_rel['A'+'<<temprel>>'] = 100
  556. jump 'toptemprel'
  557. end
  558. killvar 'temprel'
  559. gs 'bank', 'cikl'
  560. killvar 'holyday'
  561. killvar 'kanikuli'
  562. killvar 'pcs_ate'
  563. killvar 'pcs_drank'
  564. !! THIS IS THE OLD SYSTEM. Only keeping this in while it''s still in use as reference for the old variables, otherwise THESE VALUES ARE NOT THE CORRECT ONES FOR NEW VARIABLES
  565. !!sisboyparty
  566. !!-1 - don''t go to the party
  567. !!0 - don''t know about parties
  568. !!1 - knows about the parties
  569. !!2 - agreed to go to the party
  570. !!3 - Missed the party
  571. !!Suspension ends
  572. if suspended['day'] = daystart: suspended['on'] = 0
  573. if mid($start_type, 1, 2) = 'sg':
  574. !!Party refresh if you didn''t see sis
  575. if week = 1 and sisboyparty ! 2:
  576. if sisterQW['party'] = -1: sisterQW['party'] = 0
  577. if sisboypartyQW >= 2 and sisboyparty > 0:
  578. sisboyparty_day = daystart + rand(3,5)
  579. end
  580. end
  581. if sisboyparty = 2 and sisboyparty_day + 1 < daystart: sisboyparty = 3
  582. if SchoolAtestat = 0 and SchoolBlock = 0:
  583. if month = 12 and day > 25:
  584. if day < 31:
  585. $holyday = '<b>Winter Break in <<32-day>> days.</b>'
  586. else
  587. $holyday = '<b>Winter Break starts tomorrow.</b>'
  588. end
  589. elseif month = 1 and day <= 15:
  590. kanikuli = 2
  591. if day < 13:
  592. $holyday = '<b>Winter Break.</b>'
  593. elseif day < 15:
  594. $holyday = '<b>Winter Break ends in <<16-day>> days.</b>'
  595. else
  596. $holyday = '<b>Last day of Winter Break.</b>'
  597. end
  598. elseif month = 3 and day > 13:
  599. if day < 19:
  600. $holyday = '<b>Spring Break starts in <<20-day>> days.</b>'
  601. elseif day = 19:
  602. $holyday = '<b>Spring Break starts tomorrow.</b>'
  603. elseif day >= 20 and day <= 26:
  604. kanikuli = 3
  605. if day < 24:
  606. $holyday = '<b>Spring Break.</b>'
  607. elseif day < 26:
  608. $holyday = '<b>Spring Break ends in <<27-day>> days.</b>'
  609. else
  610. $holyday = '<b>Last day of Spring Break.</b>'
  611. end
  612. end
  613. elseif month = 5:
  614. if year = 2017:
  615. if day = 26:
  616. kanikuli = 6
  617. SchoolAtestat = -1
  618. lernHome = 0
  619. $holyday = '<b>Your graduation is today. Be there by 8:00.</b>'
  620. elseif day = 25:
  621. $holyday = '<b>Your graduation is tomorrow. Be there by 8:00.</b>'
  622. elseif day >= 19:
  623. $holyday = '<b>Your graduation is in <<26-day>> days.</b>'
  624. end
  625. elseif day >= 25:
  626. if day = 31:
  627. $holyday = '<b>Summer Break starts tomorrow.</b>'
  628. else
  629. $holyday = '<b>Summer Break starts in <<32-day>> days.</b>'
  630. end
  631. end
  632. elseif month = 6 or month = 7 or month = 8:
  633. kanikuli = 4
  634. if month = 8 and day >= 25:
  635. if day = 31:
  636. $holyday = '<b>Last day of Summer Break.</b>'
  637. else
  638. $holyday = '<b>Summer Break ends in <<32-day>> days.</b>'
  639. end
  640. else
  641. $holyday = '<b>Summer Break.</b>'
  642. end
  643. !! start inc 'I put it here because I want to reset these variables during the summer, they are related to cheerleading and it is useful just in case that PC will be part of the team for more than one year.'
  644. killvar 'first_time_outside_in_cold_weather'
  645. killvar 'first_time_doing_basketball'
  646. killvar 'first_time_spring_football_match'
  647. !! end inc
  648. elseif month = 10 and day >= 29:
  649. $holyday = '<b>Autumn Break starts in <<35-day>> days.</b>'
  650. elseif month = 11:
  651. if day < 3:
  652. $holyday = '<b>Autumn Break starts in <<4-day>> days.</b>'
  653. elseif day = 3:
  654. $holyday = '<b>Autumn Break starts tomorrow.</b>'
  655. elseif day < 6:
  656. kanikuli = 1
  657. $holyday = '<b>Autumn Break.</b>'
  658. elseif day < 11:
  659. kanikuli = 1
  660. $holyday = '<b>Autumn Break ends in <<12-day>> days.</b>'
  661. elseif day = 11:
  662. kanikuli = 1
  663. $holyday = '<b>Last day of Autumn Break.</b>'
  664. end
  665. end
  666. if kanikuli = 0 and week < 6:
  667. if week = 1:
  668. !!The start and end values for i have to be changed if more female schoolgirl npcs are added to the game
  669. i = 11
  670. :hotcat_calc_jump
  671. i += 1
  672. if hotcat_rating['A<<i>>'] = 0 and i < 145: jump 'hotcat_calc_jump'
  673. switch_rand = rand(1,100)
  674. if hotcat_movement['A<<i>>'] = 0 and switch_rand < 21:
  675. hotcat_rating['A<<i>>'] -= 1
  676. hotcat_movement['A<<i>>'] -= 1
  677. elseif hotcat_movement['A<<i>>'] = 0 and switch_rand > 80:
  678. hotcat_rating['A<<i>>'] += 1
  679. hotcat_movement['A<<i>>'] += 1
  680. elseif hotcat_movement['A<<i>>'] = 1 and switch_rand > 40:
  681. hotcat_rating['A<<i>>'] -= 1
  682. hotcat_movement['A<<i>>'] -= 1
  683. elseif hotcat_movement['A<<i>>'] = -1 and switch_rand > 40:
  684. hotcat_rating['A<<i>>'] += 1
  685. hotcat_movement['A<<i>>'] += 1
  686. end
  687. if i < 145: jump 'hotcat_calc_jump'
  688. killvar 'i'
  689. killvar 'switch_rand'
  690. end
  691. !! Resetting the late flag
  692. if late = 1: late = 0
  693. end
  694. !!Social grup changes
  695. !!Change from relatonship with other students.
  696. gs 'gschool_socialchg', 'group_student_rel_change'
  697. !!Decay for the school groups
  698. if grupvalue[1] > 0:
  699. grupvalue[1] -= rand(0,1)
  700. else
  701. grupvalue[1] = 0
  702. end
  703. if grupvalue[2] > 0:
  704. grupvalue[2] -= rand(0,1)
  705. else
  706. grupvalue[2] = 0
  707. end
  708. if grupvalue[3] > 0:
  709. grupvalue[3] -= rand(0,1)
  710. else
  711. grupvalue[3] = 0
  712. end
  713. if grupvalue[4] > 0:
  714. grupvalue[4] -= rand(0,1)
  715. else
  716. grupvalue[4] = 0
  717. end
  718. !!Maximum increase for grupvalues is 10 and max decay is 30
  719. if oldgrupvalue_set = 0:
  720. oldgrupvalue_set = 1
  721. old_grupvalue[1] = grupvalue[1]
  722. old_grupvalue[2] = grupvalue[2]
  723. old_grupvalue[3] = grupvalue[3]
  724. old_grupvalue[4] = grupvalue[4]
  725. else
  726. if old_grupvalue[1] + 10 < grupvalue[1]: grupvalue[1] = old_grupvalue[1] + 10
  727. if old_grupvalue[2] + 10 < grupvalue[2]: grupvalue[2] = old_grupvalue[2] + 10
  728. if old_grupvalue[3] + 10 < grupvalue[3]: grupvalue[3] = old_grupvalue[3] + 10
  729. if old_grupvalue[4] + 10 < grupvalue[4]: grupvalue[4] = old_grupvalue[4] + 10
  730. if old_grupvalue[1] - 30 > grupvalue[1]: grupvalue[1] = old_grupvalue[1] - 30
  731. if old_grupvalue[2] - 30 > grupvalue[2]: grupvalue[2] = old_grupvalue[2] - 30
  732. if old_grupvalue[3] - 30 > grupvalue[3]: grupvalue[3] = old_grupvalue[3] - 30
  733. if old_grupvalue[4] - 30 > grupvalue[4]: grupvalue[4] = old_grupvalue[4] - 30
  734. end
  735. !!Limit to max school group values
  736. if grupvalue[1] > 1000: grupvalue[1] = 1000
  737. if grupvalue[2] > 1000: grupvalue[2] = 1000
  738. if grupvalue[3] > 1000: grupvalue[3] = 1000
  739. if grupvalue[4] > 1000: grupvalue[4] = 1000
  740. old_grupvalue[1] = grupvalue[1]
  741. old_grupvalue[2] = grupvalue[2]
  742. old_grupvalue[3] = grupvalue[3]
  743. old_grupvalue[4] = grupvalue[4]
  744. elseif SchoolAtestat = -1:
  745. if func('homes_properties', 'has_access', 'parents_home') = 0:
  746. $holyday = '<b>You missed your graduation. You could pick up your diploma at the school.</b>'
  747. else
  748. $holyday = '<b>You missed your graduation. Maybe your mother picked up your diploma.</b>'
  749. end
  750. end
  751. !!Brother''s dick growth as he gets older
  752. !Commented out till some future time
  753. !if kolka_dick_day + 30 < daystart and npc_dick['A34'] < 26:
  754. ! kolka_dick_day = daystart
  755. ! npc_dick['A34'] += 1
  756. !end
  757. !if npc_dick['A34'] < 20 and npc_dick['A34'] > 16:
  758. ! $npc_thdick['A34'] = 'well proportioned'
  759. !elseif npc_dick['A34'] >= 20 and npc_dick['A34'] <= 26:
  760. ! $npc_thdick['A34'] = 'thick'
  761. !end
  762. !! Calcualting the increase/decreas of the grade each week.
  763. gs 'gschool', 'weekly grade update'
  764. end
  765. killvar 'natholi'
  766. if month = 1 and day >= 1 and day <= 8:
  767. $natholi = 'New Year holidays'
  768. natholi = 1
  769. if day = 1:$natholi += ', New Year'
  770. if day = 7:$natholi += ', Christmas'
  771. end
  772. if month = 2 and day = 23:$natholi = 'Defender of Fatherland Day' & natholi = 1
  773. if month = 3 and day = 8:$natholi = 'Women''s Day' & natholi = 1
  774. if month = 5 and day = 1:$natholi = 'Spring and Labor Day' & natholi = 1
  775. if month = 5 and day = 2:$natholi = 'National holiday' & natholi = 1
  776. if month = 5 and day = 9:$natholi = 'Victory Day' & natholi = 1
  777. if month = 6 and day = 12:$natholi = 'Russia Day' & natholi = 1
  778. if month = 6 and day = 13:$natholi = 'National holiday' & natholi = 1
  779. if month = 11 and day = 4:$natholi = 'Unity Day' & natholi = 1
  780. if natholi = 1:
  781. if $holyday ! '': $holyday += '<br>'
  782. $holyday += $natholi
  783. end
  784. !!====================================================================!!
  785. !! !!
  786. !! Setting story SMS times !!
  787. !! !!
  788. !!====================================================================!!
  789. gs 'SMS_schedules', 'cikl'
  790. !!------------------------------------------------------------------------------------------------------------------------
  791. !!Setting the weeks in the university semester and making sure that the gades are calculated at the right times
  792. gs 'uni_lessons', 'cikl'
  793. !!------------------------------------------------------------------------------------------------------------------------
  794. !!resetting moisturizer so it can be used in the morning regardless
  795. moisturiser_time = totminut
  796. !!same with chaffing cream
  797. mosal_time = totminut
  798. !!resetting last_pee to counteract time cheat
  799. !!also, the first thing you do in the morning is visiting your porcelain friend, no?
  800. killvar 'last_pee'
  801. !!Drugs reduction
  802. gs 'drugs', 'cocaine', 'cikl'
  803. gs 'drugs', 'mentats', 'cikl'
  804. gs 'drugs', 'aphrodisiac', 'cikl'
  805. gs 'gaddvor','cikl'
  806. loc_count = ARRSIZE('$CloLosLoc')
  807. i = loc_count - 1
  808. :loopCloLoc
  809. $CloLoc = $CloLosLoc[i]
  810. CloLostOn = CloLosDay[$CloLoc]
  811. if CloLostOn + RAND(7,14) < daystart :
  812. gs 'clothing', 'recover_lost_clothes', $CloLoc, 2
  813. end
  814. i -=1
  815. if i > -1 :jump 'loopCloLoc'
  816. if vidageday > 1080: vidageday = 1080
  817. if blizoruk < 10: blizoruk -= 1
  818. if blizoruk < 100: blizoruk -= rand(0,1)
  819. if blizoruk < 0: blizoruk = 0
  820. !!------------------------------------------------------------------------------------------------------------------------
  821. !!C and B array cleaning
  822. if InSleep = 1: gs 'npc','cleanarrays'
  823. !!------------------------------------------------------------------------------------------------------------
  824. !!-------------Therapist Route schedule variables----------------------------------------------------------------------
  825. !! 23 = kitchen
  826. !! 24 = Living room
  827. !! 25 = bathroom
  828. !! 26 = Master''s room
  829. if therapistWantsSlave > 0:
  830. annaclean1 = rand(23,26)
  831. end
  832. killvar 'therapistFuckedPussyScene'
  833. !!------------------------------------------------------------------------------------------------------------
  834. !!-------------Family Dog----------------------------------------------------------------------
  835. if $status['dog'] ! 'blocked' and rex['owned'] = 1:
  836. rex['timer_day'] = daystart
  837. !!Daily decay
  838. rex['relationship'] -= 1
  839. !!Chores
  840. if cheat['dog_rel'] = 0 and rex['gadukino_day'] ! daystart:
  841. npc_rel['A29'] -= iif(rex['count_walk'] + rex['count_feed'] = 0, -1, (rex['count_walk'] + rex['count_feed']))
  842. rex['relationship'] -= iif(rex['count_walk'] + rex['count_feed'] = 0, -1, (rex['count_walk'] + rex['count_feed']))
  843. end
  844. rex['count_run'] = 0
  845. rex['count_walk'] = rex['count_walk_base']
  846. rex['timer_walk'] = 0
  847. rex['count_feed'] = rex['count_feed_base']
  848. rex['timer_feed'] = 0
  849. if week = 1:
  850. if cheat['dog_rel'] = 0:
  851. npc_rel['A29'] -= rex['count_bath']
  852. rex['relationship'] -= (rex['count_bath'] * 5)
  853. end
  854. rex['count_bath'] = rex['count_bath_base']
  855. end
  856. end
  857. !!------------------------------------------------------------------------------------------------------------
  858. !!---------- School related schedule -------------------------------------------------------------------------
  859. starlets_on = iif( ( (week = 5 and odd_week = 0) or (week = 1 or week = 3 or week >= 6) ) and natholi = 0,1,0)
  860. cheerleaders_on = iif( ( (week = 5 and odd_week = 1) or (week = 2 or week = 4) ) and (natholi = 0 and (month >9 or month <6)) ,1,0)
  861. if starlets['late_message'] = 1: starlets['late_message'] = 0
  862. !!------------------------------------------------------------------------------------------------------------
  863. !!---------- Starlet Content ---------------------------------------------------------------------------------
  864. if AlbinaQW['StarletsJoined'] > 0 and AlbinaQW['StarletsShutDown'] = 0 and npc_pregtalk['A23'] = 0:
  865. if starlets_practice = daystart - 1:
  866. starlets_missed = 1
  867. starlets_practice = 0
  868. end
  869. if starlets_on = 1: starlets_practice = daystart
  870. end
  871. if month = 9 and day = 16 and AlbinaQW['ParkRally'] = 0: AlbinaQW['ParkRally'] = 1
  872. if month = 10 and day = 16 and AlbinaQW['ParkRally'] = 1: AlbinaQW['ParkRally'] = 2
  873. if month = 11 and day = 19 and (AlbinaQW['StarletsJoined'] <= 0 or (AlbinaQW['StarletsJoined'] = 1 and npc_pregtalk['A23'] = 1)) and AlbinaQW['StarletsShutDown'] = 0: AlbinaQW['StarletsShutDown'] = 1
  874. !!------------------------------------------------------------------------------------------------------------
  875. !!-------------Music career related variables and calculations------------------------------------------------
  876. !! Setting Del Parco initial variables
  877. if daystart < 2:
  878. ml_delparcoQW['Stage'] = 0
  879. ml_delparcoQW['Zariyah Trust'] = 50
  880. end
  881. !! How many hours a day can Sveta perform. It maxes out at 3.
  882. !! Using the actual skill level, not the one modified by Attributes because that is more realistic for this.
  883. ml_performance['max_perform_minutes'] = pcs_instrmusic + pcs_vokal
  884. ml_performance['performed_minutes'] = 0
  885. !! Checking for missed guitar lesson
  886. if ml_guitarlesson['nextlesson'] < daystart and ml_guitarlesson['lessonday'] ! 8:
  887. ml_guitarlesson['lessonday'] = 8
  888. end
  889. !! Calculating the fame increase from the uploaded songs and removing ones that do not effect fame anymore to keep the
  890. !! data at a sane level
  891. if ml_onlinesongcount > 0:
  892. i = 0
  893. j = -1
  894. :looponlinesongs
  895. !! this so every song counts only every 7 days and only for a limited number of weeks
  896. if ml_onlinesong_freshness[i] > 0:
  897. j += 1
  898. ml_tempsong_freshness[j] = ml_onlinesong_freshness[i]
  899. ml_tempsong_lastcalcday[j] = ml_onlinesong_lastcalcday[i]
  900. ml_tempsong_hotcat[j] = ml_onlinesong_hotcat[i]
  901. ml_tempsong_skilllevel[j] = ml_onlinesong_skilllevel[i]
  902. ml_tempsong_uploaded[j] = ml_onlinesong_uploaded[i]
  903. if ml_tempsong_lastcalcday[j] <= (daystart - 7) and ml_tempsong_uploaded = 1:
  904. gs 'fame', 'city', 'music', rand(0, ml_tempsong_freshness[j]/100)
  905. ml_tempsong_freshness[j] -= 10
  906. ml_tempsong_lastcalcday[j] = daystart
  907. end
  908. end
  909. i += 1
  910. if i < ml_onlinesongcount: jump 'looponlinesongs'
  911. killvar 'ml_onlinesong_freshness'
  912. killvar 'ml_onlinesong_lastcalcday'
  913. killvar 'ml_onlinesong_hotcat'
  914. killvar 'ml_onlinesong_skilllevel'
  915. killvar 'ml_onlinesong_uploaded'
  916. i = 0
  917. if j >= 0:
  918. :looprebuildsongs
  919. ml_onlinesong_freshness[i] = ml_tempsong_freshness[i]
  920. ml_onlinesong_hotcat[i] = ml_tempsong_hotcat[i]
  921. ml_onlinesong_lastcalcday[i] = ml_tempsong_lastcalcday[i]
  922. ml_onlinesong_skilllevel[i] = ml_tempsong_skilllevel[i]
  923. ml_onlinesong_uploaded[i] = ml_tempsong_uploaded[i]
  924. i += 1
  925. if i <= j: jump 'looprebuildsongs'
  926. end
  927. killvar 'ml_tempsong_freshness'
  928. killvar 'ml_tempsong_lastcalcday'
  929. killvar 'ml_tempsong_hotcat'
  930. killvar 'ml_tempsong_skilllevel'
  931. killvar 'ml_tempsong_uploaded'
  932. end
  933. !! Repertoire quality decay if no practice is done
  934. if ml_performance['set_lastpracticeday'] ! (daystart-1): repertoire_quality -= 2
  935. !!------------- Prostitution - WLife integration related stuff ------------------------------------------------
  936. !! Check if people will start to seek Sveta randomly for services, based on her reputation
  937. gs 'prostitution_functions', 'check_for_wlife'
  938. gs 'prostitution_functions', 'update_prostitution_locations'
  939. prostitute['earnings_day'] = 0
  940. prostitute['customer_day'] = 0
  941. !!------------- Property and Home Related daily, nonfinancial checks ------------------------------------------
  942. !! Moves time for the rented properties
  943. gs 'homes_properties', 'progress_property_rent_time'
  944. !!------------- Check for Daily Events for event generator, sets evt_chk variable ------------------------------------------
  945. gs 'emp_functions', 'evt_day_chk'
  946. !!----------------------------------------------------------------------
  947. !!---------------------------- WEEKLY RESET ----------------------------
  948. !!----------------------------------------------------------------------
  949. if week = 1:
  950. !! Reset used car dealership offers
  951. killvar 'used_car'
  952. !! Reset therapist schedule
  953. killvar 'therapist_weekly_block'
  954. end
  955. !!------------- Advance book loan debt ------------------------------------------
  956. if $lib_book_loaned ! '': lib_debt += 50
  957. !!------------- Preliminary npc_uni_eduTipe ------------------------------------------
  958. !!
  959. !!npc_uni_eduType = '', 'professor', 'teaching_studies', 'business_studies', 'science_studies', 'fashion_studies'
  960. !! 'nursing_studies', 'psychology_studies', 'programming_studies', 'other_studies'
  961. !!
  962. !!Will eventually need to be moved to the npcstatic and npcstaticdefault files for eternal uni npcs
  963. !!To specific event checks for pav_uni npcs
  964. !!And to the various starts.
  965. !!This should be migrated to npcstaticx and eventually schedule
  966. if set_npc_uni_eduType = 0:
  967. set_npc_uni_eduType = 1
  968. npc_uni_active['A77'] = 1
  969. npc_uni_active['A82'] = 1
  970. npc_uni_active['A83'] = 1
  971. npc_uni_active['A84'] = 1
  972. npc_uni_active['A209'] = 1
  973. npc_uni_active['A220'] = 1
  974. npc_uni_active['A242'] = 1
  975. npc_uni_active['A243'] = 1
  976. npc_uni_active['A244'] = 1
  977. npc_uni_active['A245'] = 1
  978. npc_uni_active['A246'] = 1
  979. npc_uni_active['A247'] = 1
  980. end
  981. !! This should eventually be migrated to schedule
  982. if set_pav_npc_uni_active = 0 and yearstart = 2 and month >= 8 and day >= 28:
  983. set_pav_npc_uni_active = 1
  984. npc_uni_active['A1'] = 1
  985. npc_uni_active['A2'] = 1
  986. npc_uni_active['A4'] = 1
  987. npc_uni_active['A7'] = 1
  988. npc_uni_active['A12'] = 1
  989. npc_uni_active['A13'] = 1
  990. npc_uni_active['A14'] = 1
  991. npc_uni_active['A15'] = 1
  992. npc_uni_active['A16'] = 1
  993. npc_uni_active['A17'] = 1
  994. npc_uni_active['A18'] = 1
  995. npc_uni_active['A19'] = 1
  996. npc_uni_active['A22'] = 1
  997. npc_uni_active['A23'] = 1
  998. npc_uni_active['A25'] = 1
  999. npc_uni_active['A139'] = 1
  1000. npc_uni_active['A140'] = 1
  1001. npc_uni_active['A142'] = 1
  1002. npc_uni_active['A144'] = 1
  1003. npc_uni_active['A146'] = 1
  1004. npc_uni_active['A147'] = 1
  1005. npc_uni_active['A149'] = 1
  1006. npc_uni_active['A152'] = 1
  1007. npc_uni_active['A153'] = 1
  1008. npc_uni_active['A155'] = 1
  1009. npc_uni_active['A159'] = 1
  1010. npc_uni_active['A165'] = 1
  1011. end
  1012. !!------------- Advance will counter ------------------------------------------
  1013. if will_counter >= 20: will_counter -= 20 & willpowermax += 1
  1014. !!-----------------webcam follower loss due to inactivity ------------------------------------------
  1015. if camwhore = 1:
  1016. if cam_daystart < daystart:
  1017. engagementFactor = 1 + (CamBonus / 100)
  1018. popularityFactor = webpopular / 1000
  1019. if regviewReset < 3:
  1020. if regview >= 500:
  1021. FollowersLost = rand(regview / (100 * engagementFactor), regview / (50 * engagementFactor)) + popularityFactor
  1022. else
  1023. FollowersLost = rand(1, 3) + popularityFactor
  1024. end
  1025. cam_daystart = daystart + max(1, 3 - (CamBonus / 50))
  1026. else
  1027. if regview >= 300:
  1028. FollowersLost = rand(regview / (80 * engagementFactor), regview / (40 * engagementFactor)) + popularityFactor
  1029. else
  1030. FollowersLost = rand(2, 6) + popularityFactor
  1031. end
  1032. cam_daystart = daystart + max(1, 2 - (CamBonus / 50))
  1033. end
  1034. regviewReset += 1
  1035. FollowersLost = func('shortgs', 'clamp', FollowersLost, 0, regview)
  1036. totFollowersLost += FollowersLost
  1037. regview -= FollowersLost
  1038. killvar 'FollowersLost'
  1039. end
  1040. end
  1041. !!---------------Keeping track of missing court appearances-----------------------------
  1042. if arrsize('policeQW_courthearing_dates') > 0 and daystart > policeQW_courthearing_dates[0]:
  1043. policeQW['missed_court_dates'] += 1
  1044. policeQW['tot_court_dates_missed'] += 1
  1045. !! Might need code to throw a message with 'You''ve missed your court hearing or something'
  1046. policeQW_courtletter_dates[] = daystart + rand(3, 6)
  1047. $policeQW_courtletter_subjects[] = 'missed_court_<<$policeQW_courthearing_subjects[0]>>'
  1048. killvar 'policeQW_courthearing_dates', 0
  1049. killvar 'policeQW_courthearing_subjects', 0
  1050. end
  1051. if policeQW['fine_deadline'] > 0:
  1052. if daystart > policeQW['fine_deadline'] - 8:
  1053. policeQW_courtletter_dates[] = daystart
  1054. $policeQW_courtletter_subjects[] = 'fine'
  1055. elseif daystart > policeQW['fine_deadline']:
  1056. policeQW['missed_fine_deadlines'] += 1
  1057. policeQW['tot_fines_deadlines_missed'] += 1
  1058. !! Might need code to throw a message with 'you''ve failed to pay your fine on time.'
  1059. policeQW_courtletter_dates[] = daystart + rand(3, 6)
  1060. $policeQW_courtletter_subjects[] = 'missed_fine'
  1061. end
  1062. end
  1063. if arrsize('policeQW_courtletter_dates') > 1:
  1064. gs 'shortgs', 'coupled_array_sort', 'policeQW_courtletter_dates', '$policeQW_courtletter_subjects'
  1065. end
  1066. if arrsize('policeQW_courthearing_dates') > 1:
  1067. gs 'shortgs', 'coupled_array_sort', 'policeQW_courthearing_dates', '$policeQW_courthearing_subjects'
  1068. end
  1069. if blackmailQW['stage'] > 0: gs 'blackmailer', 'cikl'
  1070. --- cikl ---------------------------------