1
0

cikl 19 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819
  1. # cikl
  2. day += 1
  3. daystart += 1
  4. week += 1
  5. hour -= 24
  6. if BuyHous = 2 and ArendHouseSL <= 0:ArendHouseSL = 0 & BuyHous = 0 & housr = 0
  7. if BuyHous = 2 and ArendHouseSL > 0:ArendHouseSL -= 1
  8. vidageday -= 1
  9. if workDolgDay > 0:workDolgDay -= 1
  10. if QWdogreiqTimer > 0:QWdogreiqTimer -= 1
  11. if husband > 0:husbanday += 1
  12. if husband > 10 and husbanday > 0:husband -= 15
  13. if fingal > 0:fingal -= 1
  14. if husbandMark = 1 and husband <= 10:
  15. husbizvradd = 0
  16. husbharmin = 0
  17. husbandMark = 0
  18. husband = 0
  19. divorced += 1
  20. if KFOnLineReaga > 0:KFOnLineReaga -= 1
  21. '<b><font color="red">Your husband has filed for a divorce.</font></b>'
  22. end
  23. if year_start ! year and katjaPreg = 0 and month >= 2:katjaPreg = 1
  24. !Clothing stock and price randomizers
  25. Clothingstock = rand (0,23)
  26. i = 1
  27. :loopprice
  28. Clothingstock[i] = rand (0,500)
  29. i += 1
  30. if i <= 147:jump 'loopprice'
  31. !!SECTION: Bimbo (daily status update checks)
  32. if bimbo < 0:
  33. bimbo = 0
  34. elseif bimbo < 10:
  35. bimbolevel = 0
  36. bimbo -= 1
  37. elseif bimbo < 20:
  38. bimbolevel = 1
  39. elseif bimbo < 30:
  40. bimbolevel = 2
  41. elseif bimbo < 40:
  42. bimbolevel = 3
  43. else
  44. if succubusflag = 1:
  45. bimbolevel = 4
  46. else
  47. bimbolevel = 3
  48. end
  49. end
  50. if bimbo >= 50:bimbo = 50
  51. !!Bimbo levels. They use custom variables so they wont permanently change character stats
  52. if bimbolevel = 0:bimbobeauty = 0 and bimbostupidity = 0
  53. if bimbolevel = 1:bimbobeauty = (vnesh / 10) and bimbostupidity = (intel / 6)
  54. if bimbolevel = 2:bimbobeauty = (vnesh / 6) and bimbostupidity = (intel / 4)
  55. if bimbolevel = 3:bimbobeauty = (vnesh / 5) and bimbostupidity = (intel / 3)
  56. if bimbolevel = 4:bimbobeauty = (vnesh / 4) and bimbostupidity = (intel / 3)
  57. if bimbocl = 1:
  58. bimbocl = 0
  59. bimbo += 2
  60. end
  61. !!Checks how often sex has occured in the last 24 hours and for drops in bimbo score, for calculating withdrawal
  62. if bimbolevel >= 1:
  63. bimbo += ((sex + bj + anal) - snapshotX) - 3
  64. if snapshotY - bimbo <= 1 or bimbo > 40:
  65. bimbowithdrawal = 0
  66. else
  67. bimbowithdrawal += 1
  68. end
  69. end
  70. snapshotX = (sex + bj + anal)
  71. snapshotY = bimbo
  72. if curly > 0:curly -= 1
  73. ! WD: Added daily reduction of braids for Maruda Hair Mod
  74. if hbraids > 0:hbraids -= 1
  75. sweat += 1
  76. if tan > 0:tan -= 1
  77. if tabletkishot <= 0: pillcon -= 1000
  78. if pillcon < 0: pillcon = 0
  79. if tabletkicheck = 2:
  80. if tabletkishot ! 0:
  81. cycle = 1
  82. mesec = 0
  83. if rand(0,1000) = 1000:
  84. EggRH = rand(20,80)
  85. else
  86. EggRH = 0
  87. end
  88. FocH = EggRH
  89. end
  90. if tabletkishot <= 0:
  91. 'The chemicals regulating your fertility cycle are wearing off.'
  92. pillcon -= 29000
  93. tabletkicheck = 0
  94. elseif tabletkishot > 1 and tabletkishot < 5:
  95. 'You are due for a birth control shot. If you do not get one, you might get pregnant.'
  96. elseif tabletkishot = 1:
  97. 'Your birth control shot will wear off tomorrow.'
  98. end
  99. tabletkishot -= 1
  100. end
  101. tabletkipd += tabletkipi
  102. tabletkipi = 0
  103. tabletkipt = 0
  104. if tabletkicheck = 1:
  105. if tabletki <= 0:
  106. tabletkicheck = 0
  107. 'You are out of birth control pills.'
  108. tabletkipi = -5
  109. elseif tabletki < 5:
  110. 'You are running out of birth control pills. You only have a few left.'
  111. end
  112. end
  113. if tabletkicheck = 1 and tabletkichday < daystart:
  114. tabletkichday = daystart
  115. tabletkimm = ((100-(willpower / (intel * 5 + will * 5))) + (100-(manna / (intel * magik + magik * 100 + vital * 10 + rikudo))))
  116. if son < 10:
  117. tabletkimm += (100- (son * 10))
  118. end
  119. if willpower < ((intel * 5 + will * 5) * 25 / 100):
  120. tabletkimm = tabletkimm * 4
  121. elseif manna < ((intel * magik + magik * 100 + vital * 10 + rikudo) * 10 / 100):
  122. tabletkimm = tabletkimm * 2
  123. end
  124. tabletkiap = tabletkimm
  125. tabletkiap += (((100-intel)*4)+((100-will)*2)+((50-age)*3))
  126. tabletkiap -= ((kid*30)+(abort*2)+(tabletkipd*(age/10)))
  127. temprand = rand(0,(200+(tabletkimm-(will*3))))
  128. if temprand = 0:
  129. tabletkioddp = 1
  130. end
  131. tabletkiap += temprand
  132. if tabletkiap < 600:
  133. if tabletkipd > -10:
  134. if willpower < ((intel * 5 + will * 5) * 25 / 100):
  135. '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.'
  136. elseif manna < ((intel * magik + magik * 100 + vital * 10 + rikudo) * 10 / 100):
  137. 'You stare at your bottle of birth control pills, but don''t open it.'
  138. elseif son < 10:
  139. 'You fumble with the cap on your birth control pills, trying to get it open. You finally give up, too tired to manage it.'
  140. else
  141. 'You just realized you forgot to take your birth control pill today.'
  142. end
  143. end
  144. tabletkipt = 2
  145. tabletkipi = -4
  146. else
  147. if tabletkiap < 650:
  148. temprand = rand(0,5)
  149. else
  150. temprand = rand(0,1000)
  151. end
  152. if temprand = 0:
  153. temprand = rand(0,1)
  154. if temprand = 0:
  155. tabletki -= 1
  156. skinvan += 1
  157. tabletkipt = -2
  158. tabletkipi = 1
  159. else
  160. tabletkipt = 3
  161. tabletkipi = -3
  162. end
  163. if tabletkipd > -10:
  164. 'You find yourself holding the bottle of birth control pills. You cannot remember if you took one or not.'
  165. end
  166. if tabletkipd > 10:
  167. if rand(0,9) = 0:
  168. if tabletkipt < 0:
  169. 'You don''t think you have taken it today.'
  170. else
  171. 'You think you have taken it today.'
  172. end
  173. else
  174. if tabletkipt > 0:
  175. 'You don''t think you have taken it today.'
  176. else
  177. 'You think you have taken it today.'
  178. end
  179. end
  180. end
  181. else
  182. 'You take your birth control pill for the day.'
  183. tabletki -= 1
  184. skinvan += 1
  185. if tabletkioddp = 0:
  186. pillcon += ((pillcon+15000)/40)+1000
  187. if pillcon > 40000: pillcon = 40000
  188. else
  189. if vitaminday ! daystart:
  190. vitaminday = daystart
  191. skinvan += 1
  192. end
  193. end
  194. tabletkiday = daystart
  195. tabletkipt = 0
  196. tabletkipi = 0
  197. end
  198. end
  199. end
  200. if skinvan >= 20:skinvan -= 20 & skin += 1
  201. if lashair ! 1:
  202. leghair += 1
  203. lobok += 1
  204. end
  205. if suhbelo > 0:suhbelo2 = suhbelo & suhbelo = 0
  206. if fbreath = 1:fbreath = 0
  207. if cheatNoEat = 1:fat += 15
  208. manna -= 10
  209. if beg >= 2000:
  210. beg -= 4
  211. elseif beg >= 1500:
  212. beg -= 3
  213. elseif beg >= 1000:
  214. beg -= 2
  215. elseif beg >= 100:
  216. beg -= 1
  217. end
  218. !'
  219. if salo > fat:
  220. salo -= 1
  221. fat += 1
  222. else
  223. salo += 1
  224. fat -= 1
  225. end
  226. if strenbuf > stren:strenbuf -= 1
  227. if strenbuf < stren:strenbuf += 1
  228. if vitalbuf > vital:vitalbuf -= 1
  229. if vitalbuf < vital:vitalbuf += 1
  230. if agilbuf > agil:agilbuf -= 1
  231. if agilbuf < agil:agilbuf += 1
  232. '!
  233. !STD check
  234. if SifacOnce = 1:Sifilis += 1
  235. if GerpesOnce = 1:Gerpes += 1
  236. if TriperOnce = 1:Triper += 1
  237. if KandidozOnce = 1:Kandidoz += 1
  238. VeneraN = 0
  239. if VeneraOnce > 0:VeneraOnce = 0
  240. if SifacOnce = 1:VeneraN += 1
  241. if GerpesOnce = 1:VeneraN += 1
  242. if TriperOnce = 1:VeneraN += 1
  243. Venera = VeneraN
  244. !Appearance age
  245. if vidageday <= 0:
  246. vidageday = 360
  247. vidage += 1
  248. end
  249. if anus > 1 and ashrink > 0 and analplugIN = 0:
  250. if anusK < 0:anusK = 0
  251. if anusK < ashrinkdays:anusK += 1
  252. if anusK >= ashrinkdays:anus -= ashrink & anusK = 0
  253. if anus < 0: anus = 0
  254. end
  255. if vagina > 10 and vshrink > 0:
  256. if vaginaK < 0:vaginaK = 0
  257. if vaginaK < vshrinkdays:vaginaK += 1
  258. if vaginaK >= vshrinkdays:vaginaK = 0 & vagina -= vshrink
  259. end
  260. lipkoef -= 1
  261. !!!!!!!!!!!!
  262. !!!jobs!!!
  263. !!!!!!!!!!!!
  264. if Enable_autotampon = 0 and isprok = 1:isprok = 0 & 'You threw away your used tampon.'
  265. if Enable_autotampon = 0 and isprokp = 1:isprokp = 0 & 'You threw away your used sanitary pad.'
  266. if preg = 1 and pregtime < 280:
  267. pregtime += 1
  268. if pregtimes = 0:pregtimes = 1
  269. elseif preg = 1 and pregtime = 280 and hourpreg ! hour:
  270. hourpreg = hour
  271. '<center><b>A sharp pain runs through your stomach, and something flows down your legs. Snap, your water broke! You have to get to the clinic fast!</b></center>'
  272. elseif preg = 1 and pregtime > 280:
  273. cla
  274. *clr
  275. over = 4
  276. '<center><b>A horrible pain shoots through your body.</b></center>'
  277. xgt 'gameover'
  278. exit
  279. end
  280. if StoryLine = 0 or altQS = 1:
  281. if horny < 100:horny += vagina
  282. else
  283. if vagina = 0:
  284. razeba = 0
  285. if horny > 0 and horny <= 50:horny -= 10
  286. if horny > 50:horny -= 25
  287. elseif vagina > 0:
  288. if pregtimes = 0:
  289. if age < 18:
  290. razeba = 1
  291. if horny > 0 and horny <= 50:horny -= 5
  292. if horny > 50 and horny < 80:horny -= 10
  293. if horny >= 80:horny -= 20
  294. elseif age >= 18 and age < 21:
  295. razeba = 2
  296. if horny > 0 and horny <= 50:horny -= 1
  297. if horny > 50 and horny < 80:horny -= 5
  298. if horny >= 80:horny -= 10
  299. elseif age >= 21 and age < 25:
  300. razeba = 3
  301. if horny > 0 and horny <= 50:horny += 1
  302. if horny > 50 and horny < 80:horny -= 1
  303. if horny >= 80:horny -= 5
  304. elseif age >= 25 and age < 30:
  305. razeba = 4
  306. if horny > 0 and horny <= 50:horny += 5
  307. if horny > 50 and horny < 80:horny += 1
  308. if horny >= 80:horny -= 5
  309. elseif age >= 30:
  310. razeba = 5
  311. if horny > 0 and horny <= 50:horny += 10
  312. if horny > 50 and horny < 80:horny += 5
  313. if horny >= 80:horny += 1
  314. end
  315. elseif pregtimes > 0:
  316. if preg = 0:
  317. razeba = 5
  318. if horny > 0 and horny <= 50:horny += 10
  319. if horny > 50 and horny < 80:horny += 5
  320. if horny >= 80:horny += 1
  321. elseif preg > 0:
  322. razeba = 6
  323. if horny < 100:horny += pregtime / 10
  324. end
  325. end
  326. end
  327. end
  328. if horny < 0:horny = 0
  329. if musle >= salo and stren >= 10 and vital >= 10 and dounspell = 0:
  330. !!Fall muscularity
  331. if downmusl >= 5:
  332. downmusl = 0
  333. stren -= 1
  334. vital -= 1
  335. fat += 4
  336. salo += 4
  337. else
  338. downmusl += 1
  339. end
  340. end
  341. !counter for Dimka avoidance
  342. if nodimka = 1:
  343. nodimkaK += 1
  344. if dimaRudeBlock = 1: nodimka = 0
  345. end
  346. !!! Maruda Hair Mod
  347. !!! Max. Hair length 600mm, or 60cm, which should be somewhere in the lower back area.
  348. !!! Hair grows 1mm each day, it takes 20 months (1 month = 30 days) to regrow the hair from 0.
  349. if hairlength < 601:hairlength += 1
  350. if hscrunch > 0:
  351. hscrunchrand = rand(1, 100)
  352. if hscrunchrand <= 8:hscrunch -= 1
  353. end
  354. !!! Maruda Hair Mod
  355. gs 'starenie'
  356. if nark > 60:
  357. nark = 60
  358. elseif nark > 30:
  359. nark -= 3
  360. elseif nark > 0:
  361. nark -= 1
  362. end
  363. if pregtime > 10:fat += 1
  364. if kanicont > 0:kanicont -= 1 & !kanicont countdown. set and display in [stat]
  365. if nippain = 2:
  366. if nippainday + 5 < daystart:
  367. $nippain = 'You are constantly reminded of the sharp pain from your nipples.'
  368. nippain = 1
  369. nippainday = daystart
  370. elseif nippainday + 5 >= daystart:
  371. $nippain = 'You are constantly reminded of the sharp pain from your nipples.'
  372. end
  373. elseif nippain = 1:
  374. if nippainday + 5 < daystart:
  375. $nippain = ''
  376. nippain = 0
  377. elseif nippainday + 5 >= daystart:
  378. $nippain = 'Your nipples are a little sore.'
  379. end
  380. end
  381. if painpub = 2:
  382. if painpubday + 5 < daystart:
  383. $painpub = 'Your vulva is painfully sore.'
  384. painpub = 1
  385. painpubday = daystart
  386. elseif painpubday + 5 >= daystart:
  387. $painpub = 'Your vulva is painfully sore.'
  388. end
  389. elseif painpub = 1:
  390. if painpubday + 5 < daystart:
  391. $painpub = ''
  392. painpub = 0
  393. painpubday = daystart
  394. elseif painpubday + 5 >= daystart:
  395. $painpub = 'Your vulva is a little sore.'
  396. end
  397. end
  398. prezikProver += 1
  399. if pirs_pain_ton > 0:pirs_pain_ton -= 1
  400. if brow > 0 and browper = 0:brow -= 1
  401. if shorthair = 1:
  402. shorthairday += 1
  403. if shorthairday >= 45:shorthairday = 0 & shorthair = 0
  404. end
  405. if KatjaOTN > 0:
  406. if KatjaHorny > 0 and KatjaLust < 40:KatjaHorny -= rand(1, 3)
  407. if KatjaLust >= 40:KatjaHorny += rand(1, 3)
  408. if KatjaHorny < 0:KatjaHorny = 0
  409. if KatjaHorny >= 100:KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
  410. end
  411. if trenerepa > 20:trenerepa -= 1
  412. if birthday = day and birthmonth = month:
  413. !!birthday
  414. age += 1
  415. vidage += 1
  416. end
  417. !!!!!!!!!!!!!!!
  418. !!!generation!!!
  419. !!!!!!!!!!!!!!!
  420. if NPCnum < 290:
  421. NPCnow = NPCnum
  422. NPCnum += rand(1, 3)
  423. gs 'npc'
  424. elseif NPCnum < 300:
  425. NPCnow = NPCnum
  426. NPCnum += 1
  427. gs 'npc'
  428. end
  429. !!!!!!!!!!!!!!!
  430. if kanikuli = 0:Suspeh -= 1
  431. dmishaevent = 0
  432. if Gspravka <= 0 and GspravkaT = 1:GspravkaT = 0 & Gspravka = 0
  433. if GspravkaT = 1:Gspravka -= 1
  434. if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30:IvanPodstavaQW = 3
  435. if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30:PodpiskaNeviezd += 1
  436. if salo > (fat + 40):
  437. salo -= 3
  438. fat += 3
  439. elseif salo > (fat + 20):
  440. salo -= 1
  441. fat += 1
  442. elseif salo > (fat + 10):
  443. fatD2roll = rand(0,1)
  444. salo -= fatD2roll
  445. fat += fatD2roll
  446. end
  447. if fat > (salo + 40):
  448. salo += 3
  449. fat -= 3
  450. elseif fat > (salo + 20):
  451. salo += 1
  452. fat -= 1
  453. elseif fat > (salo + 10):
  454. fatD2roll = rand(0,1)
  455. salo += fatD2roll
  456. fat -= fatD2roll
  457. end
  458. if salo > 240:
  459. salo = 240
  460. elseif salo > 180:
  461. salo -= 3
  462. elseif salo > 120:
  463. salo -= 2
  464. elseif salo > 60:
  465. salo -= 1
  466. elseif salo < 30:
  467. salo += 3
  468. elseif salo < 60:
  469. salo += 2
  470. end
  471. if fat > 240:
  472. fat = 240
  473. elseif fat > 180:
  474. fat -= 3
  475. elseif fat > 120:
  476. fat -= 2
  477. elseif fat > 60:
  478. fat -= 1
  479. elseif fat < 30:
  480. fat += 3
  481. elseif fat < 60:
  482. fat += 2
  483. end
  484. if strenbuf > 90:
  485. strenbuf -= 2
  486. elseif strenbuf > 80:
  487. strenbuf -= 1
  488. end
  489. if vitalbuf > 90:
  490. vitalbuf -= 2
  491. elseif vitalbuf > 80:
  492. vitalbuf -= 1
  493. end
  494. if strenbuf > stren:strenbuf -= 1
  495. if strenbuf < stren:strenbuf += 1
  496. if vitalbuf > vital:vitalbuf -= 1
  497. if vitalbuf < vital:vitalbuf += 1
  498. if agilbuf > agil:agilbuf -= 1
  499. if agilbuf < agil:agilbuf += 1
  500. if husband > 0 and husbandrink ! 11:husbandrink = rand(0, 10)
  501. inWorkYoungShop = 0
  502. husbandsexday = 0
  503. borsexkol = 0
  504. givisexday = 0
  505. if shantsr > 0:
  506. pay = shantsr * 5000
  507. karta += pay
  508. shantsr = 0
  509. end
  510. if shantbog > 0:
  511. :shantftb
  512. shantftbgrand = rand(0, 10)
  513. if shantftbgrand > 2:
  514. shantpopala += 1
  515. shantbog -= 1
  516. if shantbog > 0:jump 'shantftb'
  517. elseif shantftbgrand <= 2:
  518. karta += 30000
  519. shantbog -= 1
  520. if shantbog > 0:jump 'shantftb'
  521. end
  522. end
  523. petersexday = 0
  524. klismaday1 = 0
  525. !MJ: Add some (daily) interest to the bank account.
  526. !Not very realistic but wont make anyone too rich.
  527. if bankAccount = 1:
  528. if karta >= 2000000:
  529. !yearly interest of 2.3% recalculated into daily interest = 0.006% daily
  530. smallmoneypos += (karta * 60)
  531. elseif karta >= 0 and karta < 2000000:
  532. !yearly interest of 0.4% recalculated into daily interest = 0.0011% daily
  533. smallmoneypos += (karta * 11)
  534. else
  535. !yearly overdraft interest of 20% recalculated into daily interest = 0.055% daily
  536. smallmoneydebt += (karta * 550)
  537. end
  538. :kopeckloop
  539. if smallmoneypos > 10000:
  540. karta += 1
  541. smallmoneypos -= 10000
  542. jump 'kopeckloop'
  543. else
  544. kartakop += smallmoneypos
  545. if kartakop >= 10000: karta += 1 & kartakop -= 10000
  546. end
  547. :kopeckloop2
  548. if smallmoneydebt < -10000:
  549. karta -= 1
  550. smallmoneydebt += 10000
  551. jump 'kopeckloop2'
  552. else
  553. kartakop += smallmoneydebt
  554. if kartakop < 0: karta -= 1 & kartakop += 10000
  555. end
  556. smallmoneypos = 0
  557. smallmoneydebt = 0
  558. if atmDeposit > 0 and atmDepositDate <= daystart:
  559. karta += atmDeposit
  560. atmDeposit = 0
  561. end
  562. end
  563. !!payments
  564. if day = 25:
  565. if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
  566. Pay = PersSecWorkTimes * 2500
  567. PersSecWorkTimes = 0
  568. money += Pay
  569. paydaybistrosec = 1
  570. '<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>'
  571. end
  572. if workKafe = 1 and paydayKafe = 0:
  573. paydayKafe = 1
  574. pay = smenaKafe * 600
  575. money += pay
  576. smenaKafe = 0
  577. '<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>'
  578. end
  579. if workhosp = 1 and nopaypoly = 0:
  580. pay = smena * 1000
  581. money += pay
  582. smena = 0
  583. nopaypoly = 1
  584. '<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>'
  585. end
  586. if worksalon = 1 and nopaysalon = 0:
  587. pay = smena * 800
  588. money += pay
  589. smena = 0
  590. nopaysalon = 1
  591. '<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>'
  592. end
  593. if tanwork = 1 and nopaytanwork = 0:
  594. nopaytanwork = 1
  595. money += 25000
  596. '<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>'
  597. end
  598. if workSec = 1 and paydaySec = 0:
  599. paydaySec = 1
  600. pay = sekDay * 800
  601. if officebestslut >= 3:pay += 20000
  602. karta += pay
  603. sekDay = 0
  604. '<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>'
  605. end
  606. if husband > 0 and paydayHusb = 0:
  607. paydayHusb = 1
  608. if husbFin = 0:huspay = 15000
  609. if husbFin = 1:huspay = 25000
  610. if husbFin = 2:huspay = 40000
  611. money += huspay
  612. '<b><font color="green">Your husband has paid <<huspay>> <b>₽</b> into your bank account.</font></b>'
  613. end
  614. if stipuha = 1 and stipuhaday = 0:stipuhaday = 1 & money += 1200 & '<b><font color="green">You have received 1,200 <b>₽</b> scholarship.</font></b>'
  615. if housr = 1 and haday = 0:haday = 1 & money -= 3000 & '<b><font color="red">You paid 3,000 <b>₽</b> for your apartment.</font></b>'
  616. if housr = 1 and electroday = 0:
  617. electroday = 1
  618. if elektro >= 800:elektro = 800 + rand(0, 100)
  619. money -= elektro
  620. '<b><font color="red">You paid <<elektro>> for electricity.</font></b>'
  621. end
  622. 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>'
  623. end
  624. if day ! 25:
  625. if paydayHusb = 1:paydayHusb = 0
  626. if workKafe = 1 and paydayKafe = 1:paydayKafe = 0
  627. if workSec = 1 and paydaySec = 1:paydaySec = 0
  628. if housr = 1 and haday = 1:haday = 0
  629. if housr = 1 and electroday = 1:electroday = 0
  630. if housr = 1 and kabel > 0 and kabelday = 1:kabelday = 0
  631. if stipuhaday = 1:stipuhaday = 0
  632. if nopaytanwork = 1:nopaytanwork = 0
  633. if nopaypoly = 1:nopaypoly = 0
  634. if nopaysalon = 1:nopaysalon = 0
  635. if paydaybistrosec = 1:paydaybistrosec = 0
  636. end
  637. if sdaday = day and sdamonth = month and housr = 0:
  638. housr = 1
  639. '<b><font color="red">Your tenants have moved out and your apartment is now vacant.</font></b>'
  640. !msg 'Your tenants have moved out and your apartment is now vacant.'
  641. end
  642. if day > monthsEnd[month]:
  643. day -= monthsEnd[month]
  644. month += 1
  645. if month > 12: month = 1
  646. !MJ: Dont think that one is needed. But it was in the original loop.
  647. if month < 1: month = 1
  648. $month = $monthName[month]
  649. end
  650. !MJ: Dont think that one is needed. But it was here already.
  651. if day <= 0:day = 1
  652. if week > 7:
  653. :loopweek
  654. week -= 7
  655. husbandrink = 0
  656. if military = 1:military = 0
  657. if week > 7:jump 'loopweek'
  658. end
  659. if week = 1:$week = 'Monday'
  660. if week = 2:$week = 'Tuesday'
  661. if week = 3:$week = 'Wednesday'
  662. if week = 4:$week = 'Thursday'
  663. if week = 5:$week = 'Friday'
  664. if week = 6:$week = 'Saturday'
  665. if week = 7:$week = 'Sunday'
  666. $holyday = ''
  667. kanikuli = 0
  668. if (month = 10 and day >= 27) or (month = 11 and day <= 4):
  669. $holyday = '<b>Autumn holidays</b>'
  670. kanikuli = 1
  671. if month = 11 and day = 4:$holyday += ' <b>Back to school tomorrow.</b>'
  672. elseif (month = 12 and day >= 29) or (month = 1 and day <= 13):
  673. $holyday = '<b>Winter Break</b>'
  674. kanikuli = 2
  675. if month = 1 and day = 13:$holyday += ' <b>Back to school tomorrow.</b>'
  676. elseif (month = 3 and day >= 25):
  677. $holyday = '<b>Spring Break</b>'
  678. kanikuli = 3
  679. if month = 3 and day = 31:$holyday += ' <b>Back to school tomorrow.</b>'
  680. elseif (month = 5 and day >= 25) or month = 6 or month = 7 or month = 8:
  681. if month = 5 and day = 25 and age = 17:
  682. $holyday = '<b>Your graduation is today. Be there by 8h.</b>'
  683. kanikuli = 6
  684. else
  685. $holyday = '<b>Summer holidays</b>'
  686. kanikuli = 4
  687. end
  688. if month = 8 and day = 31:$holyday += ' <b>Back to school tomorrow.</b>'
  689. elseif month = 1 and day = 1:
  690. $holyday = '<b>New Year!</b>'
  691. kanikuli = 5
  692. end
  693. if kanikuli ! 6 and kanikuli > 0 and kanicont = 0:
  694. !holiday countdown by illume. countdown in [cikl], summer vacation pre-set in [startalt]
  695. if kanikuli = 1:kanicont = 9
  696. if kanikuli = 2:kanicont = 16
  697. if kanikuli = 3:kanicont = 7
  698. if kanikuli = 4:kanicont = 99
  699. end
  700. if kanikuli > 0 and kanikuli <5:$holyday += ', <<kanicont>> days left.</b>'
  701. if hour >= 8 and hour < 16 and week < 6 and StoryLine > 0 and SchoolAtestat = 0 and kanikuli = 0 and schoolProgulDay ! daystart:
  702. !!absence from school
  703. schoolprogul += 1
  704. schoolProgulDay = daystart
  705. end
  706. --- cikl ---------------------------------