cikl 25 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958
  1. # cikl
  2. !!moving the porn schedule ahead a day, flaffing for missed shootings, if it even matters
  3. if (film > 0 or pornstack = 1) and pfilmNO = 0 and pfilmSTOP = 0:
  4. if pfilmday[0] > 0:gs 'pornschedule', 'pornmiss'
  5. gs 'pornschedule', 'schedule'
  6. end
  7. day += 1
  8. week += 1
  9. hour -= 24
  10. age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
  11. if ((month * 100) + day) <= pcs_dob mod 10000: age -= 1
  12. if ((month * 100) + day) = pcs_dob mod 10000: vidage += 1
  13. if pcs_dob mod 10000 = 229 and ((month * 100) + day) = 301 and Leapyear = 0: vidage += 1
  14. gs 'daystart'
  15. dynamic $hypnoDaychange
  16. !!phone reset for bf
  17. ringA = 0
  18. ringB = 0
  19. ringC = 0
  20. if BuyHous = 2 and ArendHouseSL <= 0:ArendHouseSL = 0 & BuyHous = 0 & housr = 0
  21. if BuyHous = 2 and ArendHouseSL > 0:ArendHouseSL -= 1
  22. vidageday -= 1
  23. if workDolgDay > 0:workDolgDay -= 1
  24. if QWdogreiqTimer > 0:QWdogreiqTimer -= 1
  25. if husband > 0:husbanday += 1
  26. if husband > 10 and husbanday > 0:husband -= 15
  27. if fingal > 0:fingal -= 1
  28. if husbandMark = 1 and husband <= 10:
  29. husbizvradd = 0
  30. husbharmin = 0
  31. husbandMark = 0
  32. husband = 0
  33. divorced += 1
  34. if KFOnLineReaga > 0:KFOnLineReaga -= 1
  35. '<b><font color="red">Your husband has filed for a divorce.</font></b>'
  36. end
  37. if year_start ! year and katjaPreg = 0 and month >= 2:katjaPreg = 1
  38. !Clothing stock and price randomizers
  39. Clothingstock = rand (0,23)
  40. i = 1
  41. :loopprice
  42. Clothingstock[i] = rand (0,500)
  43. i += 1
  44. if i <= 147:jump 'loopprice'
  45. if coatH[defaultcoat] <= 0: defaultcoat = 0
  46. !!SECTION: Bimbo (daily status update checks)
  47. !!A Succubus cannot be a Bimbo
  48. if succubusflag = 1 and bimbo > 0: bimbo -= succublvl * 2
  49. !!Once bimbolevel is set to 1, must use the withdrawal in stat to return to 0
  50. if bimbo > 0 or bimbolevel > 0:
  51. if bimbo < 10:
  52. bimbo -= 1
  53. elseif bimbo < 20:
  54. bimbolevel = 1
  55. elseif bimbo < 30:
  56. bimbolevel = 2
  57. else
  58. bimbolevel = 3
  59. end
  60. end
  61. if bimbo >= 40: bimbo = 40
  62. !!Bimbo levels. They use custom variables so they wont permanently change character stats
  63. if bimbolevel = 0: supnatvnesh = 0 & bimbostupidity = 0
  64. if bimbolevel = 1: supnatvnesh = 2 & bimbostupidity = (pcs_intel / 6)
  65. if bimbolevel = 2: supnatvnesh = 4 & bimbostupidity = (pcs_intel / 4)
  66. if bimbolevel = 3: supnatvnesh = 8 & bimbostupidity = (pcs_intel / 3)
  67. if bimbocl = 1 and succubusflag = 0:
  68. bimbocl = 0
  69. bimbo += 2
  70. else
  71. bimbocl = 0
  72. end
  73. !Succubus Level & hunger calcs
  74. if succubusflag = 1:
  75. cheatHealth = 1
  76. dynamic $cheatmenu['std_cure']
  77. !! A Succubus cannot be a Bimbo
  78. if bimbolevel > 0 and bimbo <= 0: bimbowithdrawal = 40
  79. !! Hunger handling
  80. if sucxpsnapshot >= succubxp: succhungry += 1
  81. sucxpsnapshot = succubxp
  82. if succubxp < 0: succubxp = 0
  83. if succubxp < 60:
  84. succublvl = 1
  85. $sucself1 = 'that feeling'
  86. sucstorecap = 0
  87. if bimbolevel <= 0: supnatvnesh = 1
  88. elseif succubxp < 150:
  89. succublvl = 2
  90. $sucself1 = 'the power'
  91. sucstorecap = 0
  92. if bimbolevel <= 0: supnatvnesh = 3
  93. elseif succubxp < 270:
  94. succublvl = 3
  95. $sucself1 = 'your other self'
  96. sucstorecap = 100
  97. if bimbolevel <= 0: supnatvnesh = 6
  98. else
  99. succublvl = 4
  100. $sucself1 = 'your true self'
  101. sucstorecap = 200
  102. if bimbolevel <= 0: supnatvnesh = 10
  103. end
  104. if sucskill >= 2 and succublvl >= 2: sucstorecap += 100
  105. if sucskill >= 3 and succublvl >= 2: sucstorecap += (sucstorecap * 2) / 10
  106. if mutagenP < (succublvl - 1): mutagenP = (succublvl - 1)
  107. if mutagenS < (succublvl - 1): mutagenS = (succublvl - 1)
  108. if mutagenA < (succublvl - 1): mutagenA = (succublvl - 1)
  109. if mutagenR < (succublvl - 1): mutagenR = (succublvl - 1)
  110. if mutagenV < (succublvl - 1): mutagenV = (succublvl - 1)
  111. if mutagenW < (succublvl - 1): mutagenW = (succublvl - 1)
  112. if mutagenI < (succublvl - 1): mutagenI = (succublvl - 1)
  113. if (sucexcess >= 100 and (sucskill < 2 or succhungry > -2)) or (sucexcess >= 100 + sucstorecap and sucskill >= 2):
  114. if pcs_stren < 250: pcs_stren += 1 & sucexcess -= 12
  115. if speed < 250: speed += 1 & sucexcess -= 12
  116. if pcs_agil < 250: pcs_agil += 1 & sucexcess -= 12
  117. if react < 250: react += 1 & sucexcess -= 12
  118. if pcs_vital < 250: pcs_vital += 1 & sucexcess -= 12
  119. if will < 250: will += 1 & sucexcess -= 12
  120. if pcs_intel < 250: pcs_intel += 1 & sucexcess -= 12
  121. if succhungry > (0 - 2 - succublvl): succhungry -= 1 & sucexcess -= 10
  122. if skinvan < 100: skinvan += 1 & sucexcess -= 2
  123. !! This is to drive the Succubus vidage into the max appearance range
  124. if vidageday < 720 and vidage >= 28: vidageday += 2 & sucexcess -= 2
  125. if vidageday > 0 and vidage <= 20: vidageday -= 2 & sucexcess -= 2
  126. if vidageday >= 720 and vidage > 28:
  127. vidageday -= 360
  128. vidage -= 1
  129. end
  130. if sucexcess > sucstorecap: sucexcess = sucstorecap
  131. elseif sucexcess < 0 and succhungry < 0:
  132. succhungry += 1
  133. if (0 - sucexcess) < (10 * succublvl):
  134. sucexcess = 0
  135. else
  136. sucexcess += (10 * succublvl)
  137. end
  138. end
  139. if sucexcess < 0: sucpowzeroed += 1
  140. if sucexcess >= 0 and sucpowzeroed > 0: sucpowzeroed -= 1
  141. !! This is so a Succubus always moves toward a default vaginal and anal size when she has the accomadation ability
  142. if sucskill >= 4:
  143. if vagina - 2 >= 13:
  144. vagina -= 2
  145. elseif vagina + 2 <= 13:
  146. vagina += 2
  147. end
  148. if anus - 2 >= 8:
  149. anus -= 2
  150. elseif anus + 2 <= 8:
  151. anus += 2
  152. end
  153. end
  154. end
  155. !!Bimbo second half, after Succubus so changes there can be reflected here if still bimbo and Succubus
  156. !!Checks how often sex has occured in the last 24 hours and for drops in bimbo score, for calculating withdrawal
  157. if bimbolevel >= 1:
  158. bimbo += ((stat['vaginal'] + stat['bj'] + stat['anal']) - snapshotX) - 3
  159. if bimbo > snapshotY:
  160. bimbowithdrawal = 0
  161. else
  162. bimbowithdrawal += 1
  163. end
  164. end
  165. if bimbo < 0: bimbo = 0
  166. snapshotX = (stat['vaginal'] + stat['bj'] + stat['anal'])
  167. snapshotY = bimbo
  168. !!***************
  169. if defcurly = 0 and curly > 0:curly -= 1
  170. if defcurly = 1:
  171. if straight > 0: straight -= 1
  172. if straight = 0: curly = 2147483647
  173. end
  174. ! WD: Added daily reduction of braids for Maruda Hair Mod
  175. if hbraids > 0:hbraids -= 1
  176. sweat += 2
  177. if pcs_tan > 0:pcs_tan -= 1
  178. if prezikmsg = 2: prezikmsg = 3
  179. if tabletkishot <= 0: pillcon -= 1000
  180. if pillcon < 0: pillcon = 0
  181. if tabletkicheck = 2:
  182. if tabletkishot ! 0:
  183. !!cycle = 1
  184. mesec = 0
  185. if rand(0,1000) = 1000:
  186. EggRH = rand(20,80)
  187. else
  188. EggRH = 0
  189. end
  190. FocH = EggRH
  191. end
  192. if tabletkishot <= 0:
  193. pillcon -= 29000
  194. if tabletkishot < 0: tabletkishot = 0
  195. end
  196. if shotdays = -8:
  197. tabletkicheck = 0
  198. shotdue = 0
  199. 'Your birth control shot is no longer protecting you.'
  200. elseif shotdays <= 0:
  201. if shotdays = 0:
  202. shotdue = 7
  203. else
  204. shotdue -= 1
  205. end
  206. 'The chemicals regulating your fertility cycle are wearing off, you need to get your shot in <<shotdue>> days.'
  207. elseif shotdays > 1 and shotdays < 5:
  208. 'You are due for a birth control shot soon if you do not get one, you might get pregnant.'
  209. elseif shotdays = 1:
  210. 'Your birth control shot is due for renewal tomorrow.'
  211. end
  212. if tabletkishot > 0:tabletkishot -= 1
  213. end
  214. tabletkipd += tabletkipi
  215. tabletkipi = 0
  216. tabletkipt = 0
  217. if tabletkicheck = 1:
  218. if tabletki <= 0:
  219. tabletkicheck = 0
  220. 'You are out of birth control pills.'
  221. tabletkipi = -5
  222. elseif tabletki < 5:
  223. 'You are running out of birth control pills, you only have a few left.'
  224. end
  225. end
  226. if tabletkicheck = 1 and tabletkichday < daystart:
  227. tabletkichday = daystart
  228. tabletkimm = (100*(willpower / willpowermax)) + (100*(manna / mannamax))
  229. if son < 10:
  230. tabletkimm -= (100- (son * 10))
  231. end
  232. if willpower < willpowermax / 4:
  233. tabletkimm = tabletkimm / 4
  234. elseif manna < mannamax / 10:
  235. tabletkimm = tabletkimm / 2
  236. end
  237. tabletkiap = tabletkimm
  238. tabletkiap += (pcs_intel*4)+(will*2)+(age*3)
  239. tabletkiap -= ((kid*30)+(abort*2)-(tabletkipd*((60-age)/10)))
  240. temprand = rand(0,(200+(tabletkimm-((100-will)*3))))
  241. if temprand = 0:
  242. tabletkioddp = 1
  243. end
  244. tabletkiap += temprand
  245. if tabletkiap < 300:
  246. if tabletkipd > -10:
  247. if willpower < willpowermax / 4:
  248. 'You stare at your bottle of birth control pills, you know you should take one but you can''t quite work up enough effort to care.'
  249. elseif manna < mannamax / 10:
  250. 'You stare at your bottle of birth control pills, but you don''t open it.'
  251. elseif son < 10:
  252. 'You fumble with the cap on your birth control pills, trying to get it open. You finally give up too tired to manage it.'
  253. else
  254. 'You just realized you forgot to take your birth control pill today.'
  255. end
  256. end
  257. tabletkipt = 2
  258. tabletkipi = -4
  259. else
  260. if tabletkiap < 350:
  261. temprand = rand(0,5)
  262. else
  263. temprand = rand(0,1000)
  264. end
  265. if temprand = 0:
  266. temprand = rand(0,1)
  267. if temprand = 0:
  268. tabletki -= 1
  269. skinvan += 1
  270. tabletkipt = -2
  271. tabletkipi = 1
  272. else
  273. tabletkipt = 3
  274. tabletkipi = -3
  275. end
  276. if tabletkipd > -10:
  277. 'You find yourself holding the bottle of birth control pills, you cannot remember if you took one or not.'
  278. end
  279. if tabletkipd > 0:
  280. if rand(0,9) = 0:
  281. if tabletkipt < 0:
  282. 'You don''t think you have taken your pill today.'
  283. else
  284. 'You think you have taken your pill today.'
  285. end
  286. else
  287. if tabletkipt > 0:
  288. 'You don''t think you have taken your pill today.'
  289. else
  290. 'You think you have taken your pill today.'
  291. end
  292. end
  293. end
  294. else
  295. 'You take your birth control pill for the day.'
  296. tabletki -= 1
  297. skinvan += 1
  298. if tabletkioddp = 0:
  299. pillcon += ((pillcon+15000)/40)+1000
  300. if pillcon > 40000: pillcon = 40000
  301. else
  302. if vitaminday ! daystart:
  303. vitaminday = daystart
  304. skinvan += 1
  305. end
  306. end
  307. tabletkiday = daystart
  308. tabletkipt = 0
  309. tabletkipi = 0
  310. end
  311. end
  312. end
  313. if lashair ! 1:
  314. leghair += 1
  315. lobok += 1
  316. end
  317. if suhbelo > 0:suhbelo2 = suhbelo & suhbelo = 0
  318. if fbreath = 1:fbreath = 0
  319. if cheatNoEat = 1 and dounspell = 1:fat += 15
  320. manna -= 10
  321. if beg >= 2000:
  322. beg -= 4
  323. elseif beg >= 1500:
  324. beg -= 3
  325. elseif beg >= 1000:
  326. beg -= 2
  327. elseif beg >= 100:
  328. beg -= 1
  329. end
  330. !STD check
  331. if SifacOnce = 1:Sifilis += 1
  332. if GerpesOnce = 1:Gerpes += 1
  333. if TriperOnce = 1:Triper += 1
  334. if KandidozOnce = 1:Kandidoz += 1
  335. VeneraN = 0
  336. if VeneraOnce > 0:VeneraOnce = 0
  337. if SifacOnce = 1:VeneraN += 1
  338. if GerpesOnce = 1:VeneraN += 1
  339. if TriperOnce = 1:VeneraN += 1
  340. Venera = VeneraN
  341. !Appearance age
  342. if vidageday <= 0:
  343. vidageday = 360
  344. vidage += 1
  345. end
  346. if anus > 1 and ashrink > 0 and analplugIN = 0:
  347. if anusK < 0:anusK = 0
  348. if anusK < ashrinkdays:anusK += 1
  349. if anusK >= ashrinkdays:anus -= ashrink & anusK = 0
  350. if anus < 0: anus = 0
  351. end
  352. if vagina > 10 and vshrink > 0:
  353. if vaginaK < 0:vaginaK = 0
  354. if vaginaK < vshrinkdays:vaginaK += 1
  355. if vaginaK >= vshrinkdays:vaginaK = 0 & vagina -= vshrink
  356. end
  357. lipkoef -= 1
  358. !!!!!!!!!!!!
  359. !!!jobs!!!
  360. !!!!!!!!!!!!
  361. if Enable_autotampon = 0 and isprok = 1:isprok = 0 & 'You threw away your used tampon.'
  362. if Enable_autotampon = 0 and isprokp = 1:isprokp = 0 & 'You threw away your used sanitary pad.'
  363. if preg = 1:
  364. pregtime = pregchem / 24
  365. if pregtimes = 0:pregtimes = 1
  366. elseif preg = 2 and pregminut < totminut:
  367. if Enable_nogameover = 0 :
  368. cla
  369. *clr
  370. over = 4
  371. MSG '<center><b>A horrible pain shoots through your body.</b></center>'
  372. xgt 'gameover'
  373. exit
  374. else
  375. MSG'<font color=red><B>You should die for giving birth unprepared, but Cheat Mode keeps you Alive.</B></font>'
  376. pregminut = totminut + 1440
  377. end
  378. elseif preg = 0:
  379. KILLVAR 'pregTalkBrother'
  380. KILLVAR 'pregTalkSister'
  381. KILLVAR 'pregTalkFather'
  382. !{KILLVAR 'pregTalkFamily' -- Do not kill this (Abortion talk).}
  383. KILLVAR 'pregTalkMom'
  384. KILLVAR 'pregTalk'
  385. end
  386. if StoryLine = 0 or altQS = 1:
  387. if pcs_horny < 100:pcs_horny += vagina
  388. else
  389. if vagina = 0:
  390. razeba = 0
  391. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 10
  392. if pcs_horny > 50:pcs_horny -= 25
  393. elseif vagina > 0:
  394. if pregtimes = 0:
  395. if age < 18:
  396. razeba = 1
  397. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 5
  398. if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 10
  399. if pcs_horny >= 80:pcs_horny -= 20
  400. elseif age >= 18 and age < 21:
  401. razeba = 2
  402. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny -= 1
  403. if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 5
  404. if pcs_horny >= 80:pcs_horny -= 10
  405. elseif age >= 21 and age < 25:
  406. razeba = 3
  407. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 1
  408. if pcs_horny > 50 and pcs_horny < 80:pcs_horny -= 1
  409. if pcs_horny >= 80:pcs_horny -= 5
  410. elseif age >= 25 and age < 30:
  411. razeba = 4
  412. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 5
  413. if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 1
  414. if pcs_horny >= 80:pcs_horny -= 5
  415. elseif age >= 30:
  416. razeba = 5
  417. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
  418. if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
  419. if pcs_horny >= 80:pcs_horny += 1
  420. end
  421. elseif pregtimes > 0:
  422. if preg = 0:
  423. razeba = 5
  424. if pcs_horny > 0 and pcs_horny <= 50:pcs_horny += 10
  425. if pcs_horny > 50 and pcs_horny < 80:pcs_horny += 5
  426. if pcs_horny >= 80:pcs_horny += 1
  427. elseif preg > 0:
  428. razeba = 6
  429. if pcs_horny < 100:pcs_horny += pregtime / 10
  430. end
  431. end
  432. end
  433. end
  434. if pcs_horny < 0:pcs_horny = 0
  435. !counter for Dimka avoidance
  436. if dimaFilm = 1 and dimaRudeBlock = 0:
  437. nodimkaK += 1
  438. DimkaWarnedToday = 0
  439. end
  440. !!! Maruda Hair Mod
  441. !!! Max. Hair length 600mm, or 60cm, which should be somewhere in the lower back area.
  442. !!! Hair grows 1mm each day, it takes 20 months (1 month = 30 days) to regrow the hair from 0.
  443. if pcs_hairlng < 601:pcs_hairlng += 1
  444. if pcs_haircol ! nathcol:
  445. dyefade -=1
  446. if dyefade < 0: dyefade = 0
  447. if dyefade > 0 and dyefade < 7: dyevmod = 5
  448. if dyefade = 0: dyevmod = 15
  449. end
  450. if hscrunch > 0:
  451. hscrunchrand = rand(1, 100)
  452. if hscrunchrand <= 8:hscrunch -= 1
  453. end
  454. !!! Maruda Hair Mod
  455. gs 'starenie'
  456. if nark > 60:
  457. nark = 60
  458. elseif nark > 30:
  459. nark -= 3
  460. elseif nark > 0:
  461. nark -= 1
  462. end
  463. if pregtime > 10:fat += 1
  464. if pain['head'] > 0:pain['head'] -= rand(1,3)
  465. if pain['hair'] > 0:pain['hair'] -= rand(1,3)
  466. if pain['ears'] > 0:pain['ears'] -= rand(1,3)
  467. if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(1,3)
  468. if pain['eyes'] > 0:pain['eyes'] -= rand(1,3)
  469. if pain['cheeks'] > 0:pain['cheeks'] -= rand(1,3)
  470. if pain['nose'] > 0:pain['nose'] -= rand(1,3)
  471. if pain['mouth'] > 0:pain['mouth'] -= rand(1,3)
  472. if pain['lips'] > 0:pain['lips'] -= rand(1,3)
  473. if pain['tongue'] > 0:pain['tongue'] -= rand(1,3)
  474. if pain['throat'] > 0:pain['throat'] -= rand(1,3)
  475. if pain['neck'] > 0:pain['neck'] -= rand(1,3)
  476. if pain['back'] > 0:pain['back'] -= rand(1,3)
  477. if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(1,3)
  478. if pain['asshole'] > 0:pain['asshole'] -= rand(1,3)
  479. if pain['hips'] > 0:pain['hips'] -= rand(1,3)
  480. if pain['thighs'] > 0:pain['thighs'] -= rand(1,3)
  481. if pain['legL'] > 0:pain['legL'] -= rand(1,3)
  482. if pain['legR'] > 0:pain['legR'] -= rand(1,3)
  483. if pain['feet'] > 0:pain['feet'] -= rand(1,3)
  484. if pain['toes'] > 0:pain['toes'] -= rand(1,3)
  485. if pain['shoulders'] > 0:pain['shoulders'] -= rand(1,3)
  486. if pain['armL'] > 0:pain['armL'] -= rand(1,3)
  487. if pain['armR'] > 0:pain['armR'] -= rand(1,3)
  488. if pain['hands'] > 0:pain['hands'] -= rand(1,3)
  489. if pain['fingers'] > 0:pain['fingers'] -= rand(1,3)
  490. if pain['chest'] > 0:pain['chest'] -= rand(1,3)
  491. if pain['breasts'] > 0:pain['breasts'] -= rand(1,3)
  492. if pain['nipples'] > 0:pain['nipples'] -= rand(1,3)
  493. if pain['ribs'] > 0:pain['ribs'] -= rand(1,3)
  494. if pain['tummy'] > 0:pain['tummy'] -= rand(1,3)
  495. if pain['pubic'] > 0:pain['pubic'] -= rand(1,3)
  496. if pain['vaginal'] > 0:pain['vaginal'] -= rand(1,3)
  497. if pain['clitoris'] > 0:pain['clitoris'] -= rand(1,3)
  498. if pain['urethra'] > 0:pain['urethra'] -= rand(1,3)
  499. if pain['cervix'] > 0:pain['cervix'] -= rand(1,3)
  500. if painpub = 2:
  501. if painpubday + 5 < daystart:
  502. $painpub = 'Your vulva is painfully sore.'
  503. painpub = 1
  504. painpubday = daystart
  505. elseif painpubday + 5 >= daystart:
  506. $painpub = 'Your vulva is painfully sore.'
  507. end
  508. elseif painpub = 1:
  509. if painpubday + 5 < daystart:
  510. $painpub = ''
  511. painpub = 0
  512. painpubday = daystart
  513. elseif painpubday + 5 >= daystart:
  514. $painpub = 'Your vulva is a little sore.'
  515. end
  516. end
  517. prezikProver += 1
  518. if pirs_pain_ton > 0:pirs_pain_ton -= 1
  519. if brow > 0 and browper = 0:brow -= 1
  520. if shorthair = 1:
  521. shorthairday += 1
  522. if shorthairday >= 45:shorthairday = 0 & shorthair = 0
  523. end
  524. if KatjaOTN > 0:
  525. if KatjaHorny > 0 and KatjaLust < 40:KatjaHorny -= rand(1, 3)
  526. if KatjaLust >= 40:KatjaHorny += rand(1, 3)
  527. if KatjaHorny < 0:KatjaHorny = 0
  528. if KatjaHorny >= 100:KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
  529. end
  530. if trenerepa > 20:trenerepa -= 1
  531. !!!!!!!!!!!!!!!
  532. !!!generation!!!
  533. !!!!!!!!!!!!!!!
  534. if NPCnum < 290:
  535. NPCnow = NPCnum
  536. NPCnum += rand(1, 3)
  537. gs 'npc'
  538. elseif NPCnum < 300:
  539. NPCnow = NPCnum
  540. NPCnum += 1
  541. gs 'npc'
  542. end
  543. !!!!!!!!!!!!!!!
  544. if kanikuli = 0:pcs_grades -= 1
  545. dmishaevent = 0
  546. if Gspravka <= 0 and GspravkaT = 1:GspravkaT = 0 & Gspravka = 0
  547. if GspravkaT = 1:Gspravka -= 1
  548. if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30:IvanPodstavaQW = 3
  549. if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30:PodpiskaNeviezd += 1
  550. If dounspell = 1:
  551. if strenbuf > 90:
  552. strenbuf -= 2
  553. elseif strenbuf > 80:
  554. strenbuf -= 1
  555. end
  556. if vitalbuf > 90:
  557. vitalbuf -= 2
  558. elseif vitalbuf > 80:
  559. vitalbuf -= 1
  560. end
  561. if strenbuf > pcs_stren:strenbuf -= 1
  562. if strenbuf < pcs_stren:strenbuf += 1
  563. if vitalbuf > pcs_vital:vitalbuf -= 1
  564. if vitalbuf < pcs_vital:vitalbuf += 1
  565. if agilbuf > pcs_agil:agilbuf -= 1
  566. if agilbuf < pcs_agil:agilbuf += 1
  567. else
  568. gs 'body_shape'
  569. end
  570. if husband > 0 and husbandrink ! 11:husbandrink = rand(0, 10)
  571. inWorkYoungShop = 0
  572. husbandsexday = 0
  573. borsexkol = 0
  574. givisexday = 0
  575. if shantsr > 0:
  576. pay = shantsr * 5000
  577. karta += pay
  578. shantsr = 0
  579. end
  580. if shantbog > 0:
  581. :shantftb
  582. shantftbgrand = rand(0, 10)
  583. if shantftbgrand > 2:
  584. shantpopala += 1
  585. shantbog -= 1
  586. if shantbog > 0:jump 'shantftb'
  587. elseif shantftbgrand <= 2:
  588. karta += 30000
  589. shantbog -= 1
  590. if shantbog > 0:jump 'shantftb'
  591. end
  592. end
  593. petersexday = 0
  594. klismaday1 = 0
  595. !!MJ: Add some (daily) interest to the bank account.
  596. !!Not very realistic but wont make anyone too rich.
  597. if bankAccount = 1:
  598. if karta >= 2000000:
  599. !! yearly interest of 2.3% recalculated into daily interest = 0.006% daily
  600. smallmoneypos += (karta * 60)
  601. elseif karta >= 0:
  602. !! yearly interest of ... recalculated into daily interest = 0.003% daily
  603. smallmoneypos += (karta * 30)
  604. else
  605. !! yearly overdraft interest of 20% recalculated into daily interest = 0.055% daily
  606. smallmoneypos -= (karta * 550)
  607. end
  608. if smallmoneypos >= 1000000 or smallmoneypos <= -1000000:
  609. karta += smallmoneypos / 1000000
  610. smallmoneypos = smallmoneypos mod 1000000
  611. end
  612. if atmDeposit > 0 and atmDepositDate <= daystart:
  613. karta += atmDeposit
  614. atmDeposit = 0
  615. end
  616. end
  617. !!payments
  618. if day = 25:
  619. ! -- meynold payment ---!
  620. if mey_vika_qw >= 35 and mey_tamara_help_count >= 10 and mey_tamara_qw_end = 0:
  621. money += 10000
  622. '<b><font color=green>For your efforts aunt Tamara gave you 10000 rubles</font></b>'
  623. mey_tamara_help_count = 0
  624. end
  625. !--
  626. if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
  627. Pay = PersSecWorkTimes * 2500
  628. PersSecWorkTimes = 0
  629. karta += Pay
  630. paydaybistrosec = 1
  631. '<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>'
  632. end
  633. if workKafe = 1 and paydayKafe = 0:
  634. paydayKafe = 1
  635. pay = smenaKafe * 600
  636. karta += pay
  637. smenaKafe = 0
  638. '<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>'
  639. end
  640. if workhosp = 1 and nopaypoly = 0:
  641. pay = smena * 1000
  642. karta += pay
  643. smena = 0
  644. nopaypoly = 1
  645. '<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>'
  646. end
  647. if worksalon = 1 and nopaysalon = 0:
  648. pay = smena * 800
  649. karta += pay
  650. smena = 0
  651. nopaysalon = 1
  652. '<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>'
  653. end
  654. if tanwork = 1 and nopaytanwork = 0:
  655. nopaytanwork = 1
  656. karta += 25000
  657. '<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>'
  658. end
  659. if workSec = 1 and paydaySec = 0:
  660. paydaySec = 1
  661. pay = sekDay * 800
  662. if officebestslut >= 3:pay += 20000
  663. karta += pay
  664. sekDay = 0
  665. '<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>'
  666. end
  667. if workFabrika = 1:
  668. pay = smenaFabrika * 400
  669. smenaFabrika = 0
  670. karta += pay
  671. '<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>'
  672. end
  673. if husband > 0 and paydayHusb = 0:
  674. paydayHusb = 1
  675. if husbFin = 0:huspay = 15000
  676. if husbFin = 1:huspay = 25000
  677. if husbFin = 2:huspay = 40000
  678. karta += huspay
  679. '<b><font color="green">Your husband has paid <<huspay>> <b>₽</b> into your bank account.</font></b>'
  680. end
  681. if stipuha = 1 and stipuhaday = 0:stipuhaday = 1 & karta += 1200 & '<b><font color="green">You have received 1,200 <b>₽</b> scholarship.</font></b>'
  682. 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>'
  683. if housr = 1 and electroday = 0:
  684. electroday = 1
  685. if elektro >= 800:elektro = 800 + rand(0, 100)
  686. money -= elektro
  687. '<b><font color="red">You paid <<elektro>> for electricity.</font></b>'
  688. end
  689. 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>'
  690. end
  691. if day ! 25:
  692. if paydayHusb = 1:paydayHusb = 0
  693. if workKafe = 1 and paydayKafe = 1:paydayKafe = 0
  694. if workSec = 1 and paydaySec = 1:paydaySec = 0
  695. if housr = 1 and haday = 1 and BuyHous = 0:haday = 0
  696. if housr = 1 and electroday = 1:electroday = 0
  697. if housr = 1 and kabel > 0 and kabelday = 1:kabelday = 0
  698. if stipuhaday = 1:stipuhaday = 0
  699. if nopaytanwork = 1:nopaytanwork = 0
  700. if nopaypoly = 1:nopaypoly = 0
  701. if nopaysalon = 1:nopaysalon = 0
  702. if paydaybistrosec = 1:paydaybistrosec = 0
  703. end
  704. if sdaday = day and sdamonth = month and housr = 0:
  705. housr = 1
  706. '<b><font color="red">Your tenants have moved out and your apartment is now vacant.</font></b>'
  707. !msg 'Your tenants have moved out and your apartment is now vacant.'
  708. end
  709. if day > monthsEnd[month]:
  710. day -= monthsEnd[month]
  711. month += 1
  712. if month > 12: month = 1 & year += 1
  713. !MJ: Dont think that one is needed. But it was in the original loop.
  714. if month < 1: month = 1
  715. $month = $monthName[month]
  716. end
  717. !MJ: Dont think that one is needed. But it was here already.
  718. if day <= 0:day = 1
  719. if week > 7:
  720. :loopweek
  721. week -= 7
  722. husbandrink = 0
  723. if military = 1:military = 0
  724. if week > 7:jump 'loopweek'
  725. end
  726. gs 'outdoors', 'weather'
  727. if storyline = 1:
  728. !!Party refresh if you didn''t see sis
  729. if week = 1:
  730. if sisboyparty = -1: sisboyparty = 1
  731. if sisboypartyQW >= 2 and sisboyparty > 0:
  732. sisboyparty_day = daystart + rand(4,6)
  733. end
  734. end
  735. if SchoolAtestat = 0:
  736. $holyday = ''
  737. $backtoschool = '<b>, back to school tomorrow.</b>'
  738. kanikuli = 0
  739. !holiday countdown (kanicont) by illume. countdown in [cikl], summer vacation pre-set in [startalt]
  740. if (month = 10 and day >= 27) or (month = 11 and day <= 4):
  741. if month = 11:
  742. kanicont = 5 - day
  743. else
  744. kanicont = monthsEnd[10] - day + 1 + 4
  745. end
  746. if month = 10 and day = 27:kanicont = 9
  747. $holyday = '<b>Autumn holidays</b>'
  748. kanikuli = 1
  749. if month = 11 and day = 4:$holyday += $backtoschool
  750. elseif (month = 12 and day >= 29) or (month = 1 and day <= 13):
  751. if month = 1:
  752. kanicont = 14 - day
  753. else
  754. kanicont = monthsEnd[12] - day + 1 + 13
  755. end
  756. $holyday = '<b>Winter Break</b>'
  757. kanikuli = 2
  758. if month = 1 and day = 13:$holyday += $backtoschool
  759. elseif (month = 3 and day >= 25):
  760. if kanicount = 0:kanicont = monthsEnd[3] - day + 1
  761. $holyday = '<b>Spring Break</b>'
  762. kanikuli = 3
  763. if month = 3 and day = 31:$holyday += $backtoschool
  764. elseif (month = 5 and day >= 25) or month = 6 or month = 7 or month = 8:
  765. if month = 5 and day = 25 and age = 17:
  766. $holyday = '<b>Your graduation is today. Be there by 8h.</b>'
  767. kanikuli = 6
  768. else
  769. if month = 8:
  770. kanicont = monthsEnd[8] - day + 1
  771. elseif month = 7:
  772. kanicont = monthsEnd[7] - day + 1 + monthsEnd[8]
  773. elseif month = 6:
  774. kanicont = monthsEnd[6] - day + 1 + monthsEnd[7] + monthsEnd[8]
  775. else
  776. kanicont = monthsEnd[5] - day + 1 + monthsEnd[6] + monthsEnd[7] + monthsEnd[8]
  777. end
  778. $holyday = '<b>Summer holidays</b>'
  779. kanikuli = 4
  780. if month = 8 and day = 31:$holyday += $backtoschool
  781. end
  782. elseif month = 1 and day = 1:
  783. $holyday = '<b>New Year!</b>'
  784. kanikuli = 5
  785. else
  786. kanicount = 0
  787. !cleanup if not holidays.
  788. end
  789. if kanikuli > 0 and kanikuli < 5:$holyday += ', <<kanicont>> days left.</b>'
  790. end
  791. end
  792. if birthday = day and birthmonth = month:
  793. !!birthday
  794. age += 1
  795. end
  796. if bcream_used >= 1:
  797. bcream_used = 0
  798. temp = rand(0,5)
  799. nbsize += temp
  800. if temp > 0:'Feels like your breasts have grown slightly.'
  801. end
  802. if steroid_dose >= 1:
  803. if lashair < 1:
  804. lobok += steroid_dose
  805. leghair += steroid_dose
  806. end
  807. steroid_dose = 0
  808. end
  809. if aphrodisiac_overdose = 1:aphrodisiac_overdose = 0
  810. if aphrodisiac_timer ! 0:aphrodisiac_timer = 0
  811. if mentats_dose = 1:
  812. mentats_dose = 0
  813. elseif mentats_dose > 1:
  814. pain['head'] += 20 * mentats_dose
  815. mentats_dose = 0
  816. end
  817. if breastpumped = 0 and breastcount > 0: breastcount -= 1
  818. if breastpumped = 1:breastpumped = 0
  819. !!Appearance base calculation call
  820. gs 'body_shape', 'basebeautycalc'
  821. ! vovan, from 1.2.5
  822. hanters_check = 0
  823. mushroom_pickers = 0
  824. horse_river = 0
  825. haying_time = 0
  826. mira_go_river = 0
  827. forestpicnic = 0
  828. if Mira_no > 0:Mira_no -= 1
  829. --- cikl ---------------------------------