stat 23 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887
  1. # stat
  2. clr
  3. view
  4. rand1=rand(0,100)
  5. if poSkill > 1000:poSkill = 1000
  6. if cheatHealth = 1:dynamic $din_std_cure
  7. if analplay >= 2 and anus <= 10:anus += 1 & analplay = 0
  8. if analplay >= 4 and anus <= 15:anus += 1 & analplay = 0
  9. if analplay >= 8 and anus <= 20:anus += 1 & analplay = 0
  10. musle[1] = musle
  11. flex[1] = agil
  12. stamina[1] = vital * 3
  13. wipo[1] = will
  14. intel[1] = intel - bimbostupidity
  15. krasota[1] = vnesh
  16. rost[1] = rost
  17. salo[1] = salo
  18. fat[1] = fat
  19. Bteh[1] = bteh
  20. Uteh[1] = uteh
  21. Zteh[1] = zteh
  22. !!flex[0] = agil
  23. !!stamina[0] = vital * 3
  24. !!krasota[0] = vnesh
  25. !!wipo[0] = will
  26. !!!CHEATS!!!
  27. if cheatWork = 1:work = 0
  28. if cheatWorkKiskis = 1:young_shop_miss = 0
  29. if cheatHapri = 1:hapri = 1
  30. if cheatKlisma = 1:klismaday = daystart & klismaday1 = 1
  31. if cheatNomakeup = 1:
  32. if mop = 0:mop = 1
  33. end
  34. if cheatNosweat = 1 and sweat > 0:sweat = 0
  35. if cheatNoEat = 1:
  36. if energy < 35:energy = 35
  37. if water < 35:water = 35
  38. end
  39. if cheatpirate = 1 and pirathorny < 20:pirathorny = 20
  40. if CheatNoSleep = 1 and son < 35:son = 35
  41. if alko > 0 and frost > 0:frost = 0
  42. if StrongNarkota >= 20:
  43. if alko > 0:alko = 0
  44. end
  45. if lernSkill >= 8:intel += 1 & lernSkill = 0
  46. if lern >= 10:intel += 1 & lern = 0
  47. if GorSlut = 1:
  48. $gnikname = 'flirt'
  49. elseif GorSlut = 2:
  50. $gnikname = 'cocksucker'
  51. elseif GorSlut = 3:
  52. $gnikname = 'easy lay'
  53. elseif GorSlut = 4:
  54. $gnikname = 'sex addict'
  55. elseif GorSlut = 5:
  56. $gnikname = 'slut'
  57. elseif GorSlut = 6:
  58. $gnikname = 'talking pussy'
  59. end
  60. if GorSlut >= 2:KatjaKnowBJ = 1
  61. if GorSlut >= 1 or preg > 0:KatjaKnowSex = 1
  62. if GorSlut > 6: GorSlut = 6
  63. if film > 0:
  64. !pornoaktrissa
  65. $kompromatFoto = 'The photo is a screenshot from one of your porn movies.'
  66. elseif fotoyousuck = 1:
  67. !!sucked in a couple of guys and was sfotografirovanna
  68. $kompromatFoto = 'The picture shows you sucking two cocks at the same time.'
  69. elseif fotoCFNMsex > 0:
  70. $kompromatFoto = 'In the photo you see yourself getting fucked from behind by a random guy. This must have been taken in the stripclub.'
  71. elseif fotoCFNMblowjobCum > 0:
  72. !!cum on face in the strip club
  73. $kompromatFoto = 'In the photo you are sitting infront of a guy, kissing his cock. There seems to be cum on your face. This photo must have been taken in the stripclub.'
  74. elseif fotoCFNMblowjob > 0:
  75. !!sucked in front of everyone
  76. $kompromatFoto = 'In the photo you are giving a guy a blowjob. You can spot a group of women in the background and it seems like this photo was taken in the stripclub.'
  77. elseif stripdancesum > 0:
  78. !!stripper
  79. $kompromatFoto = 'In the photo you are dancing on a pole. Obviously someone photographed you, while you were on stage at the stripclub.'
  80. elseif modelfoto > 0:
  81. !!photo model
  82. $kompromatFoto = 'The photo shows you naked, it is very well taken and must be from a shoot at the modeling agency.'
  83. end
  84. shameless = guy + bj + anal + hj + ((slutty + gang) * 2)
  85. moneySUM = money + karta + stolmoney
  86. cumSUM = cumsumbod/40
  87. if husbizvradd > 5:izvratH = 1
  88. if husbharmin > 10:harakHusb = 0
  89. if clrbelo < 0:clrbelo = 0 & tanga = 0
  90. if husband = 0:
  91. husbizvradd = 0
  92. husbharmin = 0
  93. husbandMark = 0
  94. houseslut = 0
  95. end
  96. if SNarkvnesh = 0:SNarkvnesh = 1
  97. if SNarkTimes >= SNarkvnesh * 25:
  98. SNarkvnesh += 1
  99. vidage += 1
  100. end
  101. if gopota >= 20 and gnewQW = 1:gnewQW = 2
  102. if workDisk = 4 and week > 5:workDisk = 1
  103. if workDisk = 3 and week > 5:workDiskAtkPlayer = 1
  104. if fat < 0:fat = 0
  105. if vokal < 0:vokal = 0
  106. if vokal > 100:vokal = 100
  107. if dance > 100:dance = 100
  108. if stripdance > 100:stripdance = 100
  109. if poledance > 100:poledance = 100
  110. if bfa < 0:bfa = 0
  111. if painQW = 0:painweather = 6
  112. if beg < 0:beg = 0
  113. if beg > 2000:beg = 2000
  114. if oficiant > 100:oficiant = 100
  115. if vagina > 36:vagina = 36
  116. if throat > 36:throat = 36
  117. if anus > 36:anus = 36
  118. if Jab > 120:Jab = 120
  119. if Punch > 120:Punch = 120
  120. if Kik > 120:Kik = 120
  121. if KikDef > 120:KikDef = 120
  122. if NarkImmune = 1:
  123. if narkoman ! 0:narkoman = 0
  124. elseif nark >= 30 and narkoman = 0 and NarkImmune = 0:
  125. narkoman = 1
  126. elseif nark = 0 and narkoman = 1:
  127. narkoman = 0
  128. end
  129. if CheatSlut = 1:
  130. mesec = 0
  131. FocH = 0
  132. EggRH = 0
  133. Ovulate = 0
  134. fertegg = 0
  135. UnfertEgg = 0
  136. PregChem = 0
  137. preg = 0
  138. LutH = 0
  139. RecovH = 0
  140. babyembryo = 0
  141. cycle = 1
  142. if horny < 50: horny = 50
  143. end
  144. boxing = Jab + Punch + Kik + KikDef
  145. if boxing > 100:boxing = 100
  146. if stren > 100 and mutagenP = 0:stren = 100
  147. if speed > 100 and mutagenS = 0:speed = 100
  148. if agil > 100 and mutagenA = 0:agil = 100
  149. if react > 100 and mutagenR = 0:react = 100
  150. if vital > 100 and mutagenV = 0:vital = 100
  151. if will > 100 and mutagenW = 0:will = 100
  152. if intel > 100 and mutagenI = 0 and student = 0 and diplom = 0:intel = 100
  153. if stren > 150 and mutagenP = 1:stren = 150
  154. if speed > 150 and mutagenS = 1:speed = 150
  155. if agil > 150 and mutagenA = 1:agil = 150
  156. if react > 150 and mutagenR = 1:react = 150
  157. if vital > 150 and mutagenV = 1:vital = 150
  158. if will > 150 and mutagenW = 1:will = 150
  159. if intel > 150 and mutagenI = 1 and student = 0 and diplom = 0:intel = 150
  160. if stren > 200 and mutagenP = 2:stren = 200
  161. if speed > 200 and mutagenS = 2:speed = 200
  162. if agil > 200 and mutagenA = 2:agil = 200
  163. if react > 200 and mutagenR = 2:react = 200
  164. if vital > 200 and mutagenV = 2:vital = 200
  165. if will > 200 and mutagenW = 2:will = 200
  166. if intel > 200 and mutagenI = 2 and student = 0 and diplom = 0:intel = 200
  167. if stren > 250 and mutagenP = 3:stren = 250
  168. if speed > 250 and mutagenS = 3:speed = 250
  169. if agil > 250 and mutagenA = 3:agil = 250
  170. if react > 250 and mutagenR = 3:react = 250
  171. if vital > 250 and mutagenV = 3:vital = 250
  172. if will > 250 and mutagenW = 3:will = 250
  173. if intel > 250 and mutagenI = 3 and student = 0 and diplom = 0:intel = 250
  174. if intel > 250:intel = 250
  175. if MagikDostup = 0:
  176. !!!CV edition: Moved the statement after each orgasm stage to it''s own string
  177. $levelUpString = '<b>You feel like a strength has been revealed within you and you gush with magic, lifting you to a new energy level.</b>'
  178. if orgasm >= 1 and magik < 1:
  179. magik = 1
  180. glaraz += 1
  181. rikudo += 500
  182. pl $levelUpString
  183. elseif orgasm >= 2 and magik < 2:
  184. magik = 2
  185. resnic += 1
  186. rikudo += 500
  187. pl $levelUpString
  188. elseif orgasm >= 4 and magik < 3:
  189. magik = 3
  190. glaraz += 1
  191. rikudo += 500
  192. pl $levelUpString
  193. elseif orgasm >= 8 and magik < 4:
  194. magik = 4
  195. resnic += 1
  196. rikudo += 500
  197. pl $levelUpString
  198. elseif orgasm >= 16 and magik < 5:
  199. magik = 5
  200. glaraz += 1
  201. rikudo += 500
  202. pl $levelUpString
  203. elseif orgasm >= 32 and magik < 6:
  204. magik = 6
  205. resnic += 1
  206. rikudo += 1000
  207. pl $levelUpString
  208. elseif orgasm >= 64 and magik < 7:
  209. magik = 7
  210. glaraz += 1
  211. rikudo += 1000
  212. pl $levelUpString
  213. elseif orgasm >= 100 and magik < 8:
  214. magik = 8
  215. rikudo += 1000
  216. pl $levelUpString
  217. elseif orgasm >= 200 and magik < 9:
  218. magik = 9
  219. rikudo += 1000
  220. pl $levelUpString
  221. elseif orgasm >= 300 and magik < 10:
  222. magik = 10
  223. rikudo += 2000
  224. pl $levelUpString
  225. elseif orgasm >= 400 and magik < 11:
  226. magik = 11
  227. rikudo += 4000
  228. pl $levelUpString
  229. elseif orgasm >= 500 and magik < 12:
  230. magik = 12
  231. rikudo += 4000
  232. pl $levelUpString
  233. elseif orgasm >= 600 and magik < 13:
  234. magik = 13
  235. rikudo += 4000
  236. pl $levelUpString
  237. elseif orgasm >= 700 and magik < 14:
  238. magik = 14
  239. rikudo += 4000
  240. pl $levelUpString
  241. elseif orgasm >= 800 and magik < 15:
  242. magik = 15
  243. rikudo += 8000
  244. pl $levelUpString
  245. elseif orgasm >= 900 and magik < 16:
  246. magik = 16
  247. rikudo += 8000
  248. pl $levelUpString
  249. elseif orgasm >= 1000 and magik < 17:
  250. magik = 17
  251. rikudo += 8000
  252. pl $levelUpString
  253. elseif orgasm >= 1100 and magik < 18:
  254. magik = 18
  255. rikudo += 8000
  256. pl $levelUpString
  257. elseif orgasm >= 1200 and magik < 19:
  258. magik = 19
  259. rikudo += 8000
  260. pl $levelUpString
  261. elseif orgasm >= 1300 and magik < 20:
  262. magik = 20
  263. rikudo += 16000
  264. pl $levelUpString
  265. elseif orgasm >= 1400 and magik < 20:
  266. magik = 21
  267. rikudo += 21000
  268. pl $levelUpString
  269. end
  270. !!!
  271. end
  272. if DOM > 100: DOM = 100
  273. if SUB > 100: SUB = 100
  274. if VAF > 200: VAF = 200
  275. if SUB >= DOM and DOM > 0:SUB = SUB - DOM & DOM = 0
  276. if DOM >= SUB and SUB > 0:DOM = DOM - SUB & SUB = 0
  277. if horny < 0:horny = 0
  278. healthmax = (vital*10 + stren*5)
  279. willpowermax = (intel*5 + will*5)
  280. mannamax = (intel * magik) + magik * 100 + vital * 10 + rikudo
  281. if healthmax < 1:healthmax = 1
  282. if willpowermax < 1:willpowermax = 1
  283. if mannamax < 1:mannamax = 1
  284. !pre-calc max value for later display
  285. if fairycurse >= daystart: horny = 90
  286. if Enable_lockhorny > 0 and horny < Enable_lockhorny - 1:horny = Enable_lockhorny - 1
  287. if horny < 0:horny = 0
  288. if health > healthmax:health = healthmax
  289. if willpower > willpowermax:willpower = willpowermax
  290. if manna > mannamax:manna = mannamax
  291. !!musle = strenbuf + vitalbuf
  292. !!!!!!!!!!!
  293. !!!TIME!!!
  294. !!!!!!!!!!!
  295. ! WD: totminut fix ~ Calculates total minutes since NYE 2000
  296. if nminut ! minut:
  297. ! Zero totminut will be at New Years Eve of 2015
  298. ! Years since 2015 in days
  299. totminut = (year - 2015) * 365
  300. ! Days this year
  301. if month > 1 : totminut += 31 & ! Jan
  302. if month > 2 : totminut += 28 & ! Feb
  303. if month > 3 : totminut += 31 & ! Mar
  304. if month > 4 : totminut += 30 & ! Apr
  305. if month > 5 : totminut += 31 & ! May
  306. if month > 6 : totminut += 30 & ! Jun
  307. if month > 7 : totminut += 31 & ! Jul
  308. if month > 8 : totminut += 31 & ! Aug
  309. if month > 9 : totminut += 30 & ! Sep
  310. if month > 10: totminut += 31 & ! Oct
  311. if month > 11: totminut += 30 & ! Nov
  312. if month > 12: totminut += 31 & ! Dec
  313. if month > 13: totminut += 31 & ! Jan rollover sanity check
  314. totminut += day
  315. ! Hours
  316. totminut = totminut * 24 + hour
  317. ! Minutes
  318. totminut = totminut * 60 + minut + sec / 60
  319. nminut = minut
  320. end
  321. ! WD: 'daystart' Should start at 1
  322. if daystart = 0: daystart = 1
  323. if vgape > 0:
  324. if vgapetime = 0: vgapetime = totminut
  325. if (vgapetime + 2500) <= totminut:vgape -= 1 & vgapetime = 0
  326. end
  327. if agape > 0:
  328. if agapetime = 0: agapetime = totminut
  329. if (agapetime + 2500) <= totminut:agape -= 1 & agapetime = 0
  330. end
  331. if spanked > 0:
  332. if spankedtime = 0: spankedtime = totminut
  333. if (spankedtime + 2500) <= totminut:spanked -= 1 & spankedtime = 0
  334. end
  335. if sec >= 60:
  336. :loopsec
  337. minut += 1
  338. sec -= 60
  339. if sec >= 60:jump 'loopsec'
  340. end
  341. if minut >= 60:
  342. :loopmin
  343. if SbrosNerdism = 1:nerdism = will / 10 - orgasm
  344. if nerdism < 0:nerdism = 0
  345. if obkvsdam > 0:obkvsdam = rand(2, 5)
  346. hour += 1
  347. if insleep = 1:
  348. energy -= 4
  349. water -= 4
  350. son -= 4
  351. else
  352. energy -= 8
  353. water -= 8
  354. son -= 4
  355. end
  356. minut -= 60
  357. gs 'femcyc'
  358. if alko > 0 and alkoblock = 0:
  359. if alko >= 4:
  360. if beg > 0:beg -= 1
  361. if volleyboll > 0:volleyboll -= 1
  362. if alko >= 6:
  363. if stren > 10:stren -= 1 & salo += 3
  364. if vital > 10:vital -= 1 & salo += 3
  365. if intel > 10:intel -= 1
  366. alko -= rand (1, 2)
  367. end
  368. end
  369. alko -= 1
  370. end
  371. !!!!!!!!!!!!!
  372. !!!Avtoboy!!!
  373. !!!!!!!!!!!!!
  374. if hour >= 8 and hour <= 23 and NPCnum > 10 and insleep = 0:
  375. :markturnirotbort
  376. xf = 0
  377. :markturnirotbortt
  378. xf += 1
  379. turnirFighter[xf] = rand(2, NPCnum)
  380. if xf < 2:jump 'markturnirotbortt'
  381. if turnirFighter[1] = turnirFighter[2]:jump 'markturnirotbort'
  382. a = turnirFighter[1]
  383. i = turnirFighter[2]
  384. NoView = 1
  385. gs 'Autofight'
  386. end
  387. !!!!!!!!!!!!!
  388. if shame > 0:shame -= 1 & manna -= 5
  389. if smoker >= 20:smokerNeed += 1
  390. if smokerNeed > 10 and InSleep = 0:manna -= manna * 10/100
  391. if smokerNeed > 300:smokerNeed = 0 & smoker = 0
  392. if StrongNarkota > 0:StrongNarkota -= 1
  393. if SLomka > 0:SLomka += 1 & manna -= 500
  394. if SLomka > 100 and StrongNarkota <= 0:SLomka = 0 & SNarkTimes = 0
  395. if narkoman = 1 and narkday ! daystart:
  396. health -= 5
  397. willpower -= 5
  398. manna -= 10
  399. end
  400. if tanga = 0 and PCloPants > 0 and $clothingworntype ! 'nude':mosolpred += 1
  401. if mosolpred >= 10:
  402. mosol += 1
  403. mosolpred -= 10
  404. end
  405. if mosol >= 50:
  406. manna -= 5
  407. end
  408. if energy > 100:
  409. fat += (energy - 100) / 2
  410. energy = 100
  411. end
  412. if mosol > 0:
  413. if tanga = 1 or $clothingworntype = 'nude':mosol -= 1
  414. end
  415. if lipbalmstat > 0:lipbalmstat -= 1
  416. if sickstage = 1:sick += 1 & sicktimer += 1
  417. if sickstage = 1 and sicktimer >= 80:sicktimer = 0 & sickstage = 2
  418. if sickstage = 2 and sick > 0:sick -= 1
  419. if sickstage = 2 and sick <= 0:sick = 0 & sickstage = 0
  420. if perkice > 0:perkice -= 1
  421. if frost > 0:frost -= 1
  422. if KGOLpers > 0:
  423. if KGHP < KGHPMAX:KGHP += 10
  424. if KGManna < KGMannaMax:KGManna += 10
  425. end
  426. if minut >= 60:jump 'loopmin'
  427. end
  428. if hour >= 24: gs 'cikl'
  429. if minut < 10:
  430. $nilmin = '0'
  431. else
  432. $nilmin = ''
  433. end
  434. if kid > 0:
  435. i = arrsize('yearkid')
  436. :LoopKidAgeCounter
  437. if i >= 0:
  438. if yearkid[i] = year + 1 and monthkid[i] = month and daykid[i] = day: msg'It is <<$kidname[i]>>''s birthday today.'
  439. i -= 1
  440. jump 'LoopKidAgeCounter'
  441. end
  442. end
  443. !!moodlet
  444. !!mannamax
  445. !!totminut
  446. if Mud >= totminut:
  447. manna = mannamax
  448. $mud = 'You feel buoyed.'
  449. else
  450. $mud = ''
  451. end
  452. if nerdism > 0:
  453. if lastreadday = daystart:
  454. !!<font color="green">You are completely healthy shine and a healthy glow.</font>
  455. manna = mannamax
  456. SbrosNerdism = 0
  457. $mudnerd = '<font color="green">You are lost in a fantasy after reading a book.</font>'
  458. end
  459. if lastreadday + 1 = daystart:
  460. !!manna = mannamax
  461. SbrosNerdism = 0
  462. $mudnerd = '<font color="black">You are a little bored and want to plunge into a book.</font>'
  463. end
  464. if lastreadday + 2 = daystart:
  465. SbrosNerdism = 0
  466. if manna > mannamax / 2:manna -= 10
  467. $mudnerd = '<font color="red">You really want to read something.</font>'
  468. end
  469. if lastreadday + 3 <= daystart:
  470. if manna > mannamax / 10:manna -= 10
  471. SbrosNerdism = 1
  472. $mudnerd = '<font color="red"><b>You have an incredibly strong desire to read!!!</b></font>'
  473. end
  474. !!$mudnerd += 'lastread<<lastread>> totminut<<totminut>> <<totminut - lastread>>'
  475. else
  476. SbrosNerdism = 0
  477. $mudnerd = ''
  478. end
  479. if bimbolevel > 0:
  480. if bimbowithdrawal = 0:
  481. $bimbostatus = '<font color = #FF1493>You''re, like, super hawt today.</font>'
  482. elseif bimbowithdrawal = 1:
  483. $bimbostatus = '<font color="green">You feel, like, kind of lame today.</font>'
  484. elseif bimbowithdrawal < 4:
  485. $bimbostatus = '<font color="black">You feel, like, totally lame today.</font>'
  486. elseif bimbowithdrawal < 6:
  487. if manna > mannamax / 2:manna -= 10
  488. $bimbostatus = '<font color="red">You really feel, like, awful today.</font>'
  489. elseif bimbowithdrawal >= 6:
  490. if manna > mannamax / 10:manna -= 10
  491. $bimbostatus= '<font color="red"><b>You feel that, like, horrible today!</b></font>'
  492. end
  493. if bimbowithdrawal > 30:
  494. bimbowithdrawal = 0
  495. bimbo = 0
  496. bimbolevel = 0
  497. pl 'You suddenly feel as if your head is clear, instead of filled with pink thoughts.'
  498. end
  499. else
  500. bimbowithdrawal = 0
  501. $bimbostatus = ''
  502. end
  503. !
  504. ! WD: Triggers every 15 minutes if not sleeping
  505. ! Update to remove long iterations on loading saves from previous versions
  506. ! Do Nothing if sleeping, invalid Trig15Minute value or more than 6 hours 16 minute pass
  507. if InSleep ! 0 or Trig15Minute > totminut or (totminut - Trig15Minute) >= 376:
  508. set Trig15Minute = totminut
  509. ! More than 15 minutes since last check
  510. else
  511. if (totminut - Trig15Minute) >= 15:
  512. ! begin Loop
  513. :Trig15MinuteLoop
  514. ! Horny Actions
  515. if horny > 100:
  516. set Trig15Minute = totminut
  517. else
  518. set Trig15Minute += 15
  519. ! WD: Fix vibrator arousal to trigger every 15 minutes, moved from 'time' location
  520. if vibratorin = 1:horny += rand(1, 5)
  521. ! WD: Fixed Piecing arousal to trigger every 15 minutes, instead of once per day
  522. if horny < 70:
  523. hornystat = 0
  524. if pirsF = 1:hornystat += 1
  525. if pirsG = 1:hornystat += 1
  526. if pirsGL = 1:hornystat += 1
  527. hornyStat = hornystat * 4
  528. if pirsA = 1:hornystat += 1
  529. if pirsB = 1:hornystat += 1
  530. if pirsC = 1:hornystat += 1
  531. if pirsD = 1:hornystat += 1
  532. if pirsE = 1:hornystat += 1
  533. if pirsN = 1:hornystat += 1
  534. set horny += hornyStat / 4 + rand(1,4) <= hornyStat mod 4 & ! Apply 1/4 of value on average
  535. end
  536. ! WD: Clothing
  537. if CloStyle = 4 and horny < 70:set horny += rand(0, 2)
  538. if (PCloSkirt > 5 or PCloPants > 5) and horny < 50:set horny += rand(0, 1)
  539. if PCloTopCut = 4 and horny < 50:set horny += rand(0, 1)
  540. end
  541. !!SECTION: Bimbo (15 minute interval update checks)
  542. if bimbolevel = 2:
  543. if manna < mannamax:manna += ((manna / 100) * (rand(0,1)))
  544. if arousal < 25:arousal = 25
  545. if arousal < 100:arousal += 1
  546. end
  547. if bimbolevel = 3:
  548. if (manna < mannamax):manna += ((manna / 100) * (rand(0,2)))
  549. if arousal < 50:arousal = 50
  550. if arousal < 100:arousal += 2
  551. end
  552. !! level four, adds supernatural-style succubus abilities. May be removed or spun off into its own TF or obtained through special means unlike the rest.
  553. !! Also planning to add much more severe and rapidly advancing penalties for not having sex to offset bonuses
  554. if bimbolevel = 4:
  555. if arousal < 80:arousal = 80
  556. if arousal < 100:arousal += 2
  557. if cumlip > 0:sexnutrition += cumlip & cumlip = 0 & absorbflag = 1
  558. if swallow > 0:sexnutrition += swallow * 2 & swallow = 0 & absorbflag = 1
  559. if cumpussy > 0:sexnutrition += cumpussy * 4 & cumpussy = 0 & absorbflag = 1
  560. if cumanus > 0:sexnutrition += cumanus * 4 & cumanus = 0 & absorbflag = 1
  561. if absorbflag = 1:
  562. if (manna < mannamax):manna += ((manna / 100) * 5)
  563. pl 'You absorb the semen in your body, gaining nourishment.'
  564. absorbflag = 0
  565. end
  566. if sexnutrition > 0:
  567. water += sexnutrition / 2
  568. energy += sexnutrition / 3
  569. son += sexnutrition / 4
  570. sexnutrition = 0
  571. end
  572. end
  573. !! safeguards to prevent bimbolevel from going above or below its intended limits
  574. if bimbolevel > 4:bimbolevel = 4
  575. if bimbolevel < 0:bimbolevel = 0
  576. ! do loop
  577. if (totminut - Trig15Minute) >= 15:jump 'Trig15MinuteLoop'
  578. end
  579. end
  580. !!!!!!!!!!!!!
  581. !!!ENERGY!!!
  582. !!!!!!!!!!!!!
  583. if son < 0:
  584. son = 0
  585. manna -= 5
  586. end
  587. if energy < 0:
  588. energy = 0
  589. health -= 5
  590. if fat = 0 and stren + vital > 0:
  591. stren -= 1
  592. vital -= 1
  593. energy += 8
  594. elseif fat = 0 and stren + vital <= 0:
  595. if Enable_nogameover = 0 :
  596. over = 3
  597. gt'gameover'
  598. exit
  599. else
  600. pl '<font color=red><B>You starved to death, but Cheat Mode keeps you Alive.</B></font>'
  601. fat = 1
  602. end
  603. elseif fat > 0:
  604. fat -= 1
  605. energy += 8
  606. end
  607. end
  608. if water < 0:
  609. water = 1
  610. health -= 10
  611. willpower -= 1
  612. end
  613. if manna <= 0:
  614. manna = 1
  615. health -= 5
  616. willpower -= 5
  617. !!fat += 1
  618. end
  619. if health < 0:
  620. if Enable_nogameover = 0 :
  621. over = 1
  622. gt'gameover'
  623. exit & !nogameover by illume
  624. else
  625. pl '<font color=red><B>You died from injuries, but Cheat Mode keeps you Alive.</B></font>'
  626. health = 0
  627. end
  628. end
  629. if willpower <= 0 :
  630. !this will set willpower to 0 correctly; then check mana =1 for insane-gameover(willpower=0&mana=1).
  631. if manna <= 1:
  632. if Enable_nogameover = 0 :
  633. if StoryLine = 0:
  634. over = 2
  635. else
  636. over = 10
  637. end
  638. gt'gameover'
  639. exit & !nogameover by illume
  640. else
  641. pl '<font color=red><B>You are insane, but Cheat Mode keeps you Alive.</B></font>'
  642. !manna already checked for >=1 in line 1113 if manna <= 0, no need to set another one
  643. end
  644. end
  645. willpower = 0
  646. end
  647. if saloonce = 0 and opPRE = 0:
  648. saloonce = 1
  649. salo = fat
  650. strenbuf = stren
  651. vitalbuf = vital
  652. agilbuf = agil
  653. end
  654. !cars-increase/depressed mood after orgasm/rape
  655. if rape > 0 and rape ! rape_count and orgasm = orgasm_count:
  656. manna = 10
  657. rape_count = rape
  658. elseif orgasm > 0 and orgasm ! orgasm_count:
  659. manna = mannamax
  660. orgasm_count = orgasm
  661. elseif rape > 0 and rape ! rape_count and orgasm > 0 and orgasm ! orgasm_count:
  662. manna = mannamax
  663. orgasm_count = orgasm
  664. rape_count = rape
  665. end
  666. gs 'body'
  667. !!!!!!!!!!!!!
  668. if health >= healthmax:
  669. $health = '<font color="green">You are very healthy.</font>'
  670. elseif health >= healthmax * 75 / 100:
  671. $health = '<font color="blue">You are healthy.</font>'
  672. elseif health >= healthmax * 50 / 100:
  673. $health = '<font color="brown">You are not healthy.</font>'
  674. elseif health >= healthmax * 25 / 100:
  675. $health = '<font color="red">You are sick.</font>'
  676. else
  677. $health = '<font color="red">You are on the verge of death.'
  678. end
  679. if willpower >= willpowermax:
  680. $willpower = '<font color="green">Your mind is clear.</font>'
  681. elseif willpower >= willpowermax * 75 / 100:
  682. $willpower = '<font color="blue">You are mostly clear of mind.</font>'
  683. elseif willpower >= willpowermax * 50 / 100:
  684. $willpower = '<font color="brown">You are depressed.</font>'
  685. elseif willpower >= willpowermax * 25 / 100:
  686. $willpower = '<font color="red">You have depression.</font>'
  687. else
  688. $willpower = '<font color="red">You are on the verge of madness.</font>'
  689. end
  690. if manna >= mannamax:
  691. $manna = '<font color="green">You are in a good mood.</font>'
  692. elseif manna >= mannamax * 75 / 100:
  693. $manna = '<font color="blue">You have a normal mood.</font>'
  694. elseif manna >= mannamax * 50 / 100:
  695. $manna = '<font color="brown">You are in a bad mood.</font>'
  696. elseif manna >= mannamax * 25 / 100:
  697. $manna = '<font color="red">You are in a terrible mood.</font>'
  698. else
  699. $manna = '<font color="red">Your mood is stuck in the gutter.</font>'
  700. end
  701. if energy >= 80:
  702. $energy = '<font color="green">You couldn''t eat one more bite.</font>'
  703. elseif energy >= 40:
  704. $energy = '<font color="blue">You''re not really hungry, but a small snack would be very welcome.</font>'
  705. elseif energy >= 8:
  706. $energy = '<font color="brown">You are hungry.</font>'
  707. else
  708. $energy = '<font color="red">You are very hungry.</font>'
  709. end
  710. if water >= 80:
  711. $water = '<font color="green">You are not thirtsy at all.</font>'
  712. elseif water >= 40:
  713. $water = '<font color="blue">You are slightly thirsty.</font>'
  714. elseif water >= 8:
  715. $water = '<font color="brown">You are thirsty.</font>'
  716. else
  717. $water = '<font color="red">You are very thirsty.</font>'
  718. end
  719. if son >= 80:
  720. $son = '<font color="green">You are well rested.</font>'
  721. elseif son >= 40:
  722. $son = '<font color="blue">You are slightly tired.</font>'
  723. elseif son >= 8:
  724. $son = '<font color="brown">You are tired.</font>'
  725. else
  726. $son = '<font color="red">You are very tired.</font>'
  727. end
  728. !$din_shame = {
  729. !!dynamic din_shame
  730. !!shame += 1
  731. !!if shame >= 5:shame = 4 & shameless += 1
  732. !!if shame >= 4:$shame = '<font color="red"><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
  733. !!if shame = 3:$shame = '<font color="red">Your cheeks are red from the blush of shame.</font>'
  734. !!if shame = 2:$shame = '<font color="brown">You nemnog opokrasneli shame.</font>'
  735. !!if shame = 1:$shame = '<font color="green">You''re a little confused.</font>'
  736. !!if shame <= 0:$shame = '<font color="green">You''re a little confused.</font>'
  737. !!gs 'stat'
  738. }
  739. !!if shame >= 5:shame = 4 & shameless += 1
  740. !!if shame >= 4:$shame = '<font color="red"><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
  741. !!if shame = 3:$shame = '<font color="red">Your cheeks are red from the blush of shame.</font>'
  742. !!if shame = 2:$shame = '<font color="brown">You nemnog opokrasneli shame.</font>'
  743. !!if shame = 1:$shame = '<font color="green">You''re a little confused.</font>'
  744. !!if shame <= 0:$shame = '<font color="green">You''re a little confused.</font>'
  745. if workFabrika = 1 and week => 1 and week <= 5 and hour > 8 and age => 16 and age < 18 and FabrikaProgulDay ! day or workFabrika = 1 and week => 1 and week <= 5 and hour > 16 and age > 18 and FabrikaProgulDay ! day:
  746. !absence from work in a factory in Pavlovsk
  747. FabrikaProgul += 1
  748. FabrikaProgulDay = day
  749. end
  750. if hotelroom > 0:
  751. if hotelroom1day = daystart: pl 'You have 1 night left on your hotel booking.'
  752. if hotelroom1day < daystart and hour <= 11: pl 'Your hotel booking has expired and you cannot return to your room after 11:00'
  753. if hotelroom1day < daystart and hour > 11: hotelroom = 0
  754. end
  755. if hour >= 8 and hour < 16 and week < 6 and StoryLine > 0 and SchoolAtestat = 0 and kanikuli = 0 and schoolProgulDay ! daystart:
  756. !!absence from school
  757. schoolprogul += 1
  758. schoolProgulDay = daystart
  759. end
  760. if insleep = 0:gs 'stat_display'
  761. CatName = 0
  762. --- stat ---------------------------------