1
0

stat 58 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760
  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 piratehorny < 20:piratehorny = 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 vgape = 3:
  325. if manna > mannamax / 4:manna = mannamax / 4
  326. elseif vgape = 2:
  327. if manna > mannamax / 2:manna = mannamax / 2
  328. end
  329. if vgapetime + 2500 <= totminut:
  330. if vgape = 1:vgape = 0
  331. if vgape = 2:vgape = 1 & vgapetime = totminut
  332. if vgape = 3:vgape = 2 & vgapetime = totminut
  333. end
  334. end
  335. if agape > 0:
  336. if agape = 3:
  337. if manna > mannamax / 6:manna = mannamax / 6
  338. elseif agape = 2:
  339. if manna > mannamax / 3:manna = mannamax / 3
  340. end
  341. if agapetime + 5760 <= totminut:
  342. if agape = 1:agape = 0
  343. if agape = 2:agape = 1 & agapetime = totminut
  344. if agape = 3:agape = 2 & agapetime = totminut
  345. if anus > 1:anus -= 1
  346. end
  347. end
  348. if spanked > 0:
  349. if spanked = 3:
  350. if manna > (mannamax/6):manna = mannamax/6
  351. elseif spanked = 2:
  352. if manna > (mannamax/3):manna = mannamax/3
  353. end
  354. if spankedtime + 3500 <= totminut:
  355. if spanked = 1:spanked = 0 & spankedtime = totminut
  356. if spanked = 2:spanked = 1 & spankedtime = totminut
  357. if spanked >= 3:spanked = 2 & spankedtime = totminut
  358. end
  359. end
  360. if sec >= 60:
  361. :loopsec
  362. minut += 1
  363. sec -= 60
  364. if sec >= 60:jump 'loopsec'
  365. end
  366. if minut >= 60:
  367. :loopmin
  368. if SbrosNerdism = 1:nerdism = will / 10 - orgasm
  369. if nerdism < 0:nerdism = 0
  370. if obkvsdam > 0:obkvsdam = rand(2, 5)
  371. hour += 1
  372. if insleep = 1:
  373. energy -= 4
  374. water -= 4
  375. son -= 4
  376. else
  377. energy -= 8
  378. water -= 8
  379. son -= 4
  380. end
  381. minut -= 60
  382. gs 'femcyc'
  383. if alko > 0 and alkoblock = 0:
  384. if alko >= 4:
  385. if beg > 0:beg -= 1
  386. if volleyboll > 0:volleyboll -= 1
  387. if alko >= 6:
  388. if stren > 10:stren -= 1 & salo += 3
  389. if vital > 10:vital -= 1 & salo += 3
  390. if intel > 10:intel -= 1
  391. alko -= rand (1, 2)
  392. end
  393. end
  394. alko -= 1
  395. end
  396. !!!!!!!!!!!!!
  397. !!!Avtoboy!!!
  398. !!!!!!!!!!!!!
  399. if hour >= 8 and hour <= 23 and NPCnum > 10 and insleep = 0:
  400. :markturnirotbort
  401. xf = 0
  402. :markturnirotbortt
  403. xf += 1
  404. turnirFighter[xf] = rand(2, NPCnum)
  405. if xf < 2:jump 'markturnirotbortt'
  406. if turnirFighter[1] = turnirFighter[2]:jump 'markturnirotbort'
  407. a = turnirFighter[1]
  408. i = turnirFighter[2]
  409. NoView = 1
  410. gs 'Autofight'
  411. end
  412. !!!!!!!!!!!!!
  413. if shame > 0:shame -= 1 & manna -= 5
  414. if smoker >= 20:smokerNeed += 1
  415. if smokerNeed > 10 and InSleep = 0:manna -= manna * 10/100
  416. if smokerNeed > 300:smokerNeed = 0 & smoker = 0
  417. if StrongNarkota > 0:StrongNarkota -= 1
  418. if SLomka > 0:SLomka += 1 & manna -= 500
  419. if SLomka > 100 and StrongNarkota <= 0:SLomka = 0 & SNarkTimes = 0
  420. if narkoman = 1 and narkday ! daystart:
  421. health -= 5
  422. willpower -= 5
  423. manna -= 10
  424. end
  425. if tanga = 0 and PCloPants > 0 and $clothingworntype ! 'nude':mosolpred += 1
  426. if mosolpred >= 10:
  427. mosol += 1
  428. mosolpred -= 10
  429. end
  430. if mosol >= 50:
  431. manna -= 5
  432. end
  433. if energy > 100:
  434. fat += (energy - 100) / 2
  435. energy = 100
  436. end
  437. if mosol > 0:
  438. if tanga = 1 or $clothingworntype = 'nude':mosol -= 1
  439. end
  440. if lipbalmstat > 0:lipbalmstat -= 1
  441. if sickstage = 1:sick += 1 & sicktimer += 1
  442. if sickstage = 1 and sicktimer >= 80:sicktimer = 0 & sickstage = 2
  443. if sickstage = 2 and sick > 0:sick -= 1
  444. if sickstage = 2 and sick <= 0:sick = 0 & sickstage = 0
  445. if perkice > 0:perkice -= 1
  446. if frost > 0:frost -= 1
  447. if KGOLpers > 0:
  448. if KGHP < KGHPMAX:KGHP += 10
  449. if KGManna < KGMannaMax:KGManna += 10
  450. end
  451. if minut >= 60:jump 'loopmin'
  452. end
  453. if hour >= 24: gs 'cikl'
  454. if minut < 10:
  455. $nilmin = '0'
  456. else
  457. $nilmin = ''
  458. end
  459. if kid > 0:
  460. i = arrsize('yearkid')
  461. :LoopKidAgeCounter
  462. if i >= 0
  463. if yearkid[i] = year + 1 and monthkid[i] = month and daykid[i] = day: msg'It is <<$kidname[i]>>''s birthday today.'
  464. i -= 1
  465. jump 'LoopKidAgeCounter'
  466. end
  467. end
  468. !!moodlet
  469. !!mannamax
  470. !!totminut
  471. if Mud >= totminut:
  472. manna = mannamax
  473. $mud = 'You feel buoyed.'
  474. else
  475. $mud = ''
  476. end
  477. if nerdism > 0:
  478. if lastreadday = daystart:
  479. !!<font color="green">You are completely healthy shine and a healthy glow.</font>
  480. manna = mannamax
  481. SbrosNerdism = 0
  482. $mudnerd = '<font color="green">You are lost in a fantasy after reading a book.</font>'
  483. end
  484. if lastreadday + 1 = daystart:
  485. !!manna = mannamax
  486. SbrosNerdism = 0
  487. $mudnerd = '<font color="black">You are a little bored and want to plunge into a book.</font>'
  488. end
  489. if lastreadday + 2 = daystart:
  490. SbrosNerdism = 0
  491. if manna > mannamax / 2:manna -= 10
  492. $mudnerd = '<font color="red">You really want to read something.</font>'
  493. end
  494. if lastreadday + 3 <= daystart:
  495. if manna > mannamax / 10:manna -= 10
  496. SbrosNerdism = 1
  497. $mudnerd = '<font color="red"><b>You have an incredibly strong desire to read!!!</b></font>'
  498. end
  499. !!$mudnerd += 'lastread<<lastread>> totminut<<totminut>> <<totminut - lastread>>'
  500. else
  501. SbrosNerdism = 0
  502. $mudnerd = ''
  503. end
  504. if bimbolevel > 0:
  505. if bimbowithdrawal = 0:
  506. $bimbostatus = '<font color = #FF1493>You''re, like, super hawt today.</font>'
  507. elseif bimbowithdrawal = 1:
  508. $bimbostatus = '<font color="green">You feel, like, kind of lame today.</font>'
  509. elseif bimbowithdrawal < 4:
  510. $bimbostatus = '<font color="black">You feel, like, totally lame today.</font>'
  511. elseif bimbowithdrawal < 6:
  512. if manna > mannamax / 2:manna -= 10
  513. $bimbostatus = '<font color="red">You really feel, like, awful today.</font>'
  514. elseif bimbowithdrawal >= 6:
  515. if manna > mannamax / 10:manna -= 10
  516. $bimbostatus= '<font color="red"><b>You feel that, like, horrible today!</b></font>'
  517. end
  518. if bimbowithdrawal > 30:
  519. bimbowithdrawal = 0
  520. bimbo = 0
  521. bimbolevel = 0
  522. pl 'You suddenly feel as if your head is clear, instead of filled with pink thoughts.'
  523. end
  524. else
  525. bimbowithdrawal = 0
  526. $bimbostatus = ''
  527. end
  528. !
  529. ! WD: Triggers every 15 minutes if not sleeping
  530. ! Update to remove long iterations on loading saves from previous versions
  531. ! Do Nothing if sleeping, invalid Trig15Minute value or more than 6 hours 16 minute pass
  532. if InSleep ! 0 or Trig15Minute > totminut or (totminut - Trig15Minute) >= 376:
  533. set Trig15Minute = totminut
  534. ! More than 15 minutes since last check
  535. else
  536. if (totminut - Trig15Minute) >= 15:
  537. ! begin Loop
  538. :Trig15MinuteLoop
  539. ! Horny Actions
  540. if horny > 100:
  541. set Trig15Minute = totminut
  542. else
  543. set Trig15Minute += 15
  544. ! WD: Fix vibrator arousal to trigger every 15 minutes, moved from 'time' location
  545. if vibratorin = 1:horny += rand(1, 5)
  546. ! WD: Fixed Piecing arousal to trigger every 15 minutes, instead of once per day
  547. if horny < 70:
  548. hornystat = 0
  549. if pirsF = 1:hornystat += 1
  550. if pirsG = 1:hornystat += 1
  551. if pirsGL = 1:hornystat += 1
  552. hornyStat = hornystat * 4
  553. if pirsA = 1:hornystat += 1
  554. if pirsB = 1:hornystat += 1
  555. if pirsC = 1:hornystat += 1
  556. if pirsD = 1:hornystat += 1
  557. if pirsE = 1:hornystat += 1
  558. if pirsN = 1:hornystat += 1
  559. set horny += hornyStat / 4 + rand(1,4) <= hornyStat mod 4 & ! Apply 1/4 of value on average
  560. end
  561. ! WD: Clothing
  562. if CloStyle = 4 and horny < 70:set horny += rand(0, 2)
  563. if (PCloSkirt > 5 or PCloPants > 5) and horny < 50:set horny += rand(0, 1)
  564. if PCloTopCut = 4 and horny < 50:set horny += rand(0, 1)
  565. end
  566. !!SECTION: Bimbo (15 minute interval update checks)
  567. if bimbolevel = 2:
  568. if manna < mannamax:manna += ((manna / 100) * (rand(0,1)))
  569. if arousal < 25:arousal = 25
  570. if arousal < 100:arousal += 1
  571. end
  572. if bimbolevel = 3:
  573. if (manna < mannamax):manna += ((manna / 100) * (rand(0,2)))
  574. if arousal < 50:arousal = 50
  575. if arousal < 100:arousal += 2
  576. end
  577. !! 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.
  578. !! Also planning to add much more severe and rapidly advancing penalties for not having sex to offset bonuses
  579. if bimbolevel = 4:
  580. if arousal < 80:arousal = 80
  581. if arousal < 100:arousal += 2
  582. if cumlip > 0:sexnutrition += cumlip and cumlip = 0 and absorbflag = 1
  583. if swallow > 0:sexnutrition += swallow * 2 and swallow = 0 and absorbflag = 1
  584. if cumpussy > 0:sexnutrition += cumpussy * 4 and cumpussy = 0 and absorbflag = 1
  585. if cumanus > 0:sexnutrition += cumanus * 4 and cumanus = 0 and absorbflag = 1
  586. if absorbflag = 1:
  587. if (manna < mannamax):manna += ((manna / 100) * 5)
  588. pl 'You absorb the semen in your body, gaining nourishment.'
  589. absorbflag = 0
  590. end
  591. if sexnutrition > 0:
  592. water += sexnutrition / 2
  593. energy += sexnutrition / 3
  594. son += sexnutrition / 4
  595. sexnutrition = 0
  596. end
  597. end
  598. !! safeguards to prevent bimbolevel from going above or below its intended limits
  599. if bimbolevel > 4:bimbolevel = 4
  600. if bimbolevel < 0:bimbolevel = 0
  601. ! do loop
  602. if (totminut - Trig15Minute) >= 15:jump 'Trig15MinuteLoop'
  603. end
  604. end
  605. !!!!!!!!!!!!!
  606. !!!ENERGY!!!
  607. !!!!!!!!!!!!!
  608. if son < 0:
  609. son = 0
  610. manna -= 5
  611. end
  612. if energy < 0:
  613. energy = 0
  614. health -= 5
  615. if fat = 0 and stren + vital > 0:
  616. stren -= 1
  617. vital -= 1
  618. energy += 8
  619. elseif fat = 0 and stren + vital <= 0:
  620. if Enable_nogameover = 0 :
  621. over = 3
  622. gt'gameover'
  623. exit
  624. else
  625. pl '<font color=red><B>You starved to death, but Cheat Mode keeps you Alive.</B></font>'
  626. fat = 1
  627. end
  628. elseif fat > 0:
  629. fat -= 1
  630. energy += 8
  631. end
  632. end
  633. if water < 0:
  634. water = 1
  635. health -= 10
  636. willpower -= 1
  637. end
  638. if manna <= 0:
  639. manna = 1
  640. health -= 5
  641. willpower -= 5
  642. !!fat += 1
  643. end
  644. if health < 0:
  645. if Enable_nogameover = 0 :
  646. over = 1
  647. gt'gameover'
  648. exit & !nogameover by illume
  649. else
  650. pl '<font color=red><B>You died from injuries, but Cheat Mode keeps you Alive.</B></font>'
  651. health = 0
  652. end
  653. end
  654. if willpower <= 0 :
  655. !this will set willpower to 0 correctly; then check mana =1 for insane-gameover(willpower=0&mana=1).
  656. if manna <= 1:
  657. if Enable_nogameover = 0 :
  658. if StoryLine = 0:
  659. over = 2
  660. else
  661. over = 10
  662. end
  663. gt'gameover'
  664. exit & !nogameover by illume
  665. else
  666. pl '<font color=red><B>You are insane, but Cheat Mode keeps you Alive.</B></font>'
  667. !manna already checked for >=1 in line 1113 if manna <= 0, no need to set another one
  668. end
  669. end
  670. willpower = 0
  671. end
  672. if saloonce = 0 and opPRE = 0:
  673. saloonce = 1
  674. salo = fat
  675. strenbuf = stren
  676. vitalbuf = vital
  677. agilbuf = agil
  678. end
  679. !cars-increase/depressed mood after orgasm/rape
  680. if rape > 0 and rape ! rape_count and orgasm = orgasm_count:
  681. manna = 10
  682. rape_count = rape
  683. elseif orgasm > 0 and orgasm ! orgasm_count:
  684. manna = mannamax
  685. orgasm_count = orgasm
  686. elseif rape > 0 and rape ! rape_count and orgasm > 0 and orgasm ! orgasm_count:
  687. manna = mannamax
  688. orgasm_count = orgasm
  689. rape_count = rape
  690. end
  691. gs 'body'
  692. !!!!!!!!!!!!!
  693. if health >= healthmax:
  694. $health = '<font color="green">You are very healthy.</font>'
  695. elseif health >= healthmax * 75 / 100:
  696. $health = '<font color="blue">You are healthy.</font>'
  697. elseif health >= healthmax * 50 / 100:
  698. $health = '<font color="brown">You are not healthy.</font>'
  699. elseif health >= healthmax * 25 / 100:
  700. $health = '<font color="red">You are sick.</font>'
  701. else
  702. $health = '<font color="red">You are on the verge of death.'
  703. end
  704. if willpower >= willpowermax:
  705. $willpower = '<font color="green">Your mind is clear.</font>'
  706. elseif willpower >= willpowermax * 75 / 100:
  707. $willpower = '<font color="blue">You are mostly clear of mind.</font>'
  708. elseif willpower >= willpowermax * 50 / 100:
  709. $willpower = '<font color="brown">You are depressed.</font>'
  710. elseif willpower >= willpowermax * 25 / 100:
  711. $willpower = '<font color="red">You have depression.</font>'
  712. else
  713. $willpower = '<font color="red">You are on the verge of madness.</font>'
  714. end
  715. if manna >= mannamax:
  716. $manna = '<font color="green">You are in a good mood.</font>'
  717. elseif manna >= mannamax * 75 / 100:
  718. $manna = '<font color="blue">You have a normal mood.</font>'
  719. elseif manna >= mannamax * 50 / 100:
  720. $manna = '<font color="brown">You are in a bad mood.</font>'
  721. elseif manna >= mannamax * 25 / 100:
  722. $manna = '<font color="red">You are in a terrible mood.</font>'
  723. else
  724. $manna = '<font color="red">Your mood is stuck in the gutter.</font>'
  725. end
  726. if energy >= 80:
  727. $energy = '<font color="green">You couldn''t eat one more bite.</font>'
  728. elseif energy >= 40:
  729. $energy = '<font color="blue">You''re not really hungry, but a small snack would be very welcome.</font>'
  730. elseif energy >= 8:
  731. $energy = '<font color="brown">You are hungry.</font>'
  732. else
  733. $energy = '<font color="red">You are very hungry.</font>'
  734. end
  735. if water >= 80:
  736. $water = '<font color="green">You are not thirtsy at all.</font>'
  737. elseif water >= 40:
  738. $water = '<font color="blue">You are slightly thirsty.</font>'
  739. elseif water >= 8:
  740. $water = '<font color="brown">You are thirsty.</font>'
  741. else
  742. $water = '<font color="red">You are very thirsty.</font>'
  743. end
  744. if son >= 80:
  745. $son = '<font color="green">You are well rested.</font>'
  746. elseif son >= 40:
  747. $son = '<font color="blue">You are slightly tired.</font>'
  748. elseif son >= 8:
  749. $son = '<font color="brown">You are tired.</font>'
  750. else
  751. $son = '<font color="red">You are very tired.</font>'
  752. end
  753. !$din_shame = {
  754. !!dynamic din_shame
  755. !!shame += 1
  756. !!if shame >= 5:shame = 4 & shameless += 1
  757. !!if shame >= 4:$shame = '<font color="red"><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
  758. !!if shame = 3:$shame = '<font color="red">Your cheeks are red from the blush of shame.</font>'
  759. !!if shame = 2:$shame = '<font color="brown">You nemnog opokrasneli shame.</font>'
  760. !!if shame = 1:$shame = '<font color="green">You''re a little confused.</font>'
  761. !!if shame <= 0:$shame = '<font color="green">You''re a little confused.</font>'
  762. !!gs 'stat'
  763. }
  764. !!if shame >= 5:shame = 4 & shameless += 1
  765. !!if shame >= 4:$shame = '<font color="red"><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
  766. !!if shame = 3:$shame = '<font color="red">Your cheeks are red from the blush of shame.</font>'
  767. !!if shame = 2:$shame = '<font color="brown">You nemnog opokrasneli shame.</font>'
  768. !!if shame = 1:$shame = '<font color="green">You''re a little confused.</font>'
  769. !!if shame <= 0:$shame = '<font color="green">You''re a little confused.</font>'
  770. 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:
  771. !absence from work in a factory in Pavlovsk
  772. FabrikaProgul += 1
  773. FabrikaProgulDay = day
  774. end
  775. if hotelroom > 0:
  776. if hotelroom1day = daystart: pl 'You have 1 night left on your hotel booking.'
  777. if hotelroom1day < daystart and hour <= 11: pl 'Your hotel booking has expired and you cannot return to your room after 11:00'
  778. if hotelroom1day < daystart and hour > 11: hotelroom = 0
  779. end
  780. if insleep ! 0:exit &!no need to display status in sleep. skip them to improve performance by illume
  781. !!!!!!!!!!!!!!!!!!!!!
  782. !!!Pain calculation!!!
  783. !!!!!!!!!!!!!!!!!!!!!
  784. pain[pir] = pirs_pain_ton*8 + nippain*20 + painpub*20
  785. pain[gape] = vgape*2 + agape*4
  786. pain[total] = pain[pir] + pain[gape]
  787. !!!!!!!!!!!!!!!!!!!!!
  788. !!!Beginning Description!!!
  789. !!!!!!!!!!!!!!!!!!!!!
  790. if son > 100: son = 100
  791. if water > 100: water = 100
  792. if Enable_statfsize>0:pl'<font size=<<Enable_statfsize>>>'
  793. if hour < 10:
  794. if minut > 9 :
  795. pl '<b> 0<<hour>>:<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
  796. else
  797. pl '<b> 0<<hour>>:0<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
  798. end
  799. else
  800. if minut > 9 :
  801. pl '<b> <<hour>>:<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
  802. else
  803. pl '<b> <<hour>>:0<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
  804. end
  805. end
  806. pl
  807. pl '<b><<money>></b> <b>₽</b> in your purse.'
  808. if karta > 0:pl '<b><<karta>></b> <b>₽</b> in your bank account.'
  809. if stolmoney > 0:pl '<b><<stolmoney>></b> <b>₽</b> in your table drawer.'
  810. pl
  811. if ETOmenu = 1:
  812. pl '<b><<$health>></b>'
  813. pl '<b><<$willpower>></b>'
  814. pl '<b><<$energy>></b>'
  815. pl '<b><<$water>></b>'
  816. pl '<b><<$son>></b>'
  817. else
  818. gs 'indik', '2', horny, horny
  819. pl '<<$ind>> Arousal'
  820. gs 'indik', '2', pain[total], pain[total]
  821. pl '<<$ind>> Pain'
  822. gs 'indik', '1', health * 100 / healthmax, health
  823. pl '<<$ind>> Health'
  824. gs 'indik', '1', willpower * 100 / willpowermax, willpower
  825. pl '<<$ind>> Willpower'
  826. if mannamax <=0:
  827. gs 'indik', '1', 0, manna
  828. else
  829. gs 'indik', '1', manna * 100 / mannamax, manna
  830. end
  831. pl '<<$ind>> Mood'
  832. gs 'indik', '1', energy, energy
  833. pl '<<$ind>> Hunger'
  834. gs 'indik', '1', water, water
  835. pl '<<$ind>> Thirst'
  836. gs 'indik', '1', son, son
  837. pl '<<$ind>> Sleep'
  838. end
  839. pl
  840. if Enable_showattr = 1:
  841. gs 'indik', '1',stren , stren
  842. pl '<<$ind>> Power'
  843. gs'indik','1',speed,speed
  844. pl '<<$ind>> Speed'
  845. gs'indik','1',agil,agil
  846. pl '<<$ind>> Agility'
  847. gs'indik','1',vital,vital
  848. pl '<<$ind>> Endurance'
  849. gs'indik','1',intel,intel
  850. pl '<<$ind>> Intelligence'
  851. gs'indik','1',will,will
  852. pl '<<$ind>> Spirit'
  853. gs'indik','1',react,react
  854. pl '<<$ind>> Reaction'
  855. gs'indik','1',vnesh / 2,vnesh
  856. pl '<<$ind>> Attractiveness'
  857. if SUB > 0:
  858. gs'indik','1',SUB,SUB
  859. pl '<<$ind>> Subordination'
  860. end
  861. if DOM > 0:
  862. gs'indik','1',DOM,DOM
  863. pl '<<$ind>> Dominance'
  864. end
  865. if SchoolAtestat = 0 and StoryLine > 0:
  866. gs'indik','1',Suspeh,Suspeh
  867. pl '<<$ind>> School Grades'
  868. end
  869. if exhibi > 0:
  870. gs'indik','1',exhibi*25,exhibi & !max at [dina], exhibi>=4
  871. pl '<<$ind>> exhibitionism'
  872. end
  873. end
  874. if Enable_showskill = 1:
  875. st_count=0
  876. $show_table=''
  877. if workPTU > 1:gs'show_table','<<teachlevel>> Teacher credibility','2'
  878. if magik > 0:gs'show_table','<<magik>> Magic','2'
  879. if Jab > 0:gs'show_table','<<Jab>> Jab','2'
  880. if Punch > 0:gs'show_table','<<Punch>> Power Strikes','2'
  881. if Kik > 0:gs'show_table','<<Kik>> Kicks','2'
  882. if KikDef > 0:gs'show_table','<<KikDef>> Protection','2'
  883. if beg > 0:gs'show_table','<<beg>> Running','2'
  884. if volleyboll > 0:gs'show_table','<<volleyboll>> Volleyball','2'
  885. if oficiant > 0:gs'show_table','<<oficiant>> Waitress','2'
  886. if vokal > 0:gs'show_table','<<vokal>> Vocal','2'
  887. if dance > 0:gs'show_table','<<dance>> Dancing','2'
  888. if dancePRO > 0:gs'show_table','<<dancePRO>> Regular dancing','2'
  889. if stripdance > 0:gs'show_table','<<stripdance>> Striptease','2'
  890. if poledance > 0:gs'show_table','<<poledance>> Poledancing','2'
  891. if shoot > 0:gs'show_table','<<shoot>> Shooting','2'
  892. if poSkill > 0:gs'show_table','<<poSkill>> tailor','2'
  893. if chess > 0:gs'show_table','<<chess>> Chess','2'
  894. if mutagenP > 0: gs'show_table','<<mutagenP>> Mutagen strength ','2'
  895. if mutagenV > 0: gs'show_table','<<mutagenV>> Mutagen endurance','2'
  896. if mutagenA > 0: gs'show_table','<<mutagenA>> Mutagen Agility','2'
  897. if st_count > 0 :pl 'Skills: <TABLE BORDER=1><<$show_table>></TR></TABLE>'
  898. end
  899. if Enable_showrelation = 1:
  900. st_count=0
  901. $show_table=''
  902. if nastjaqw > 0:gs'show_table','<<nastjaqw>> Nastja','2'
  903. if tanya > 0:gs'show_table','<<tanya>> Tanya','2'
  904. if kat > 0:gs'show_table','<<kat>> Kate','2'
  905. if vika > 0:gs'show_table','<<vika>> Vika','2'
  906. if Irina > 0:gs'show_table','<<Irina>> Irina','2'
  907. if Tamara > 0:gs'show_table','<<Tamara>> Tamara','2'
  908. if alla > 0:gs'show_table','<<alla>> Alla','2'
  909. if masha > 0:gs'show_table','<<masha>> Masha','2'
  910. if Givi > 0:gs'show_table','<<Givi>> Givi Karapetovich','2'
  911. if Ashot > 0:gs'show_table','<<Ashot>> Ashot','2'
  912. if Dmitry > 0:gs'show_table','<<Dmitry>> Dima','2'
  913. if afra > 0:gs'show_table','<<afra>> Blacks','2'
  914. if trenerepa > 0:gs'show_table','<<trenerepa>> Mikhail Nikolaevich','2'
  915. if StoryLine > 0:
  916. if mother > 0:gs'show_table','<<mother>> Mother','2'
  917. if father > 0:gs'show_table','<<father>> Father','2'
  918. if sister > 0:gs'show_table','<<sister>> Sister','2'
  919. if brother > 0:gs'show_table','<<brother>> Brother','2'
  920. end
  921. if st_count > 0 :pl 'Relations: <BR><TABLE BORDER=1> <<$show_table>></TR></TABLE>'
  922. end
  923. if BuyHous = 2 and ArendHouseSL <= 0:'<font color="red"><b>The rent on your apartment expires today.</b></font>'
  924. if weatherDay = daystart: pl '<<$weather>>' & pl
  925. if opPRE = 0: pl '<<$mop>> and your hair is <<$hapri>>.' & pl
  926. if StoryLine > 0 and SchoolAtestat = 0 and $holyday ! '': pl '<<$holyday>>' & pl
  927. if birthday = day and birthmonth = month: pl '<b>Today is your birthday.</b>' & pl
  928. !!if shame > 0:pl '<<$shame>>' & pl
  929. pl '<b><<$manna>></b>'
  930. pl
  931. if energy < 5:
  932. pl '<font color="red">You feel faint from hunger, if you don''t have something to eat very soon, you will pass out.</font>'
  933. elseif energy < 10:
  934. pl '<font color="red">You are starving, you really need to have something to eat.</font>'
  935. elseif energy < 20:
  936. pl 'You are very hungry and struggle to concentrate on anything other than food.'
  937. elseif energy < 30:
  938. pl 'You feel peckish and your thoughts sometimes drift towards food.'
  939. end
  940. if water < 5:
  941. pl '<font color="red">You feel light-headed, if you don''t have something to drink very soon, you will pass out.</font>'
  942. elseif water < 10:
  943. pl '<font color="red">You are dehydrated, you really need to have something to drink.</font>'
  944. elseif water < 20:
  945. pl 'You are thirsty and your dry throat is irritating and distracting you.'
  946. elseif water < 30:
  947. pl 'You feel a little thirsty and your mouth is a little dry.'
  948. end
  949. if son < 5:
  950. pl '<font color="red">You can''t keep your eyes open, if you don''t go to bed now, you will fall asleep right here.</font>'
  951. elseif son < 10:
  952. pl '<font color="red">You are exhausted, you really need to go to bed soon.</font>'
  953. elseif son < 20:
  954. pl 'You are tired and you are struggling to concentrate.'
  955. elseif son < 30:
  956. pl 'You feel a little tired.'
  957. end
  958. if horny >= 50:
  959. if horny < 90 and tanga = 1:
  960. pl'<font color = #DB7093>You are a little nervous, feeling nice between your legs <a href="exec:view''images/picb/briefs1.jpg''">itchy</a> from arousal.</font>'
  961. elseif horny < 90 and tanga = 0:
  962. pl'<font color = #DB7093>You are a little nervous, feeling nice between your legs <a href="exec:view''images/picb/briefs1a.jpg''">itchy</a> from arousal.</font>'
  963. elseif tanga = 1:
  964. pl'<font color = #FF1493>You feel that between your legs you are <a href="exec:view''images/picb/briefs2.jpg''">soaked</a> from your juices.</font>'
  965. else
  966. pl'<font color = #FF1493>You feel that between your legs you are <a href="exec:view''images/picb/briefs2a.jpg''">soaked</a> from your juices.</font>'
  967. end
  968. end
  969. $smoker = {
  970. siga -= 1
  971. smoker += 1
  972. smokeHour = hour
  973. smokeDay = day
  974. smokeminut = minut + 5
  975. smokeNeed = 0
  976. cumspclnt = 2
  977. gs 'cum_cleanup'
  978. fbreath = 0
  979. manna += 100
  980. wipo += 100
  981. if energy < 80:energy += 4
  982. gs 'stat'
  983. }
  984. if PillToggle = 1 and tabletki > 0:
  985. Stabletki += tabletki
  986. tabletki = 0
  987. elseif PillToggle = 0 and Stabletki > 0:
  988. tabletki += Stabletki
  989. Stabletki = 0
  990. end
  991. if CondomToggle = 1 and prezik > 0:
  992. Sprezik += prezik
  993. prezik = 0
  994. elseif CondomToggle = 0 and Sprezik > 0:
  995. prezik += Sprezik
  996. Sprezik = 0
  997. end
  998. if $mud ! '':pl '<font color="green"><b><<$mud>></b></font>' & pl
  999. if siga <= 0 and smoker >= 20:pl '<font color="red"><b>You have run out of cigarettes.</b></font>' & pl
  1000. if smokeNeed > 0 and siga > 0 and smoker >= 20:
  1001. pl '<a href="exec:dynamic $smoker"><font color="red"><b>You want to smoke. You have <<siga>> cigarettes left.</b></font></a>'
  1002. pl
  1003. elseif siga > 0 and smoker >= 20:
  1004. pl '<a href="exec:dynamic $smoker"><font color="blue"><b>You have <<siga>> cigarettes left.</b></font></a>'
  1005. pl
  1006. end
  1007. if siga > 0 and smoker < 20:
  1008. if smokeHour = hour and smokeday = day and smokeminut >= minut:
  1009. else
  1010. pl'<a href="exec:dynamic $smoker"><font color = blue><b>You have <<siga>> cigarettes.</b></font></a>'
  1011. pl
  1012. end
  1013. end
  1014. if smokeHour = hour and smokeday = day and smokeminut >= minut:pl '<font color="green">You are smoking a cigarette.</font>'
  1015. if sweat = 1:
  1016. pl '<font color="brown">You''re sweating.</font>'
  1017. elseif sweat = 2:
  1018. pl '<font color="red">You are a little smelly.</font>'
  1019. elseif sweat = 3:
  1020. pl '<font color="red">You stink.</font>'
  1021. elseif sweat > 3:
  1022. pl '<b><font color="red">You really stink.</font></b>'
  1023. end
  1024. !! MJ: Add a line before the next message.
  1025. if sweat > 0: pl
  1026. pl '<a href="exec:dynamic $d_cycreport_choice"><<$cycreport_txt>></a>'
  1027. pl
  1028. if mesec > 0:
  1029. if isprok = 0 and isprokp = 0:
  1030. pl '<b><font color="red">You are bleeding between your legs, you need to use feminine hygine products.</font></b>'
  1031. elseif isprok = 1:
  1032. pl 'You are having your period.'
  1033. elseif isprokp = 1:
  1034. if tanga = 0:
  1035. isprokp = 0
  1036. pl '<b><font color="red">You are bleeding between your legs, you need to wear panties to use a sanitary pad.</font></b>'
  1037. else
  1038. pl 'You are having your period.'
  1039. end
  1040. end
  1041. end
  1042. if lactate = 1:
  1043. if lactatemv >= lactatemm-1:
  1044. pl'<font color = black>Your breasts are so full they hurt and a little milk is constantly dribbling out.</font>'
  1045. elseif lactatemv > lactatemm*9/10:
  1046. pl'<font color = black>Your breasts are firm and full, and starting to hurt from all the milk they contain.</font>'
  1047. elseif lactatemv > lactatemm*3/4:
  1048. pl'<font color = black>Your breasts feel firm and heavy, full of milk.</font>'
  1049. elseif lactatemv > lactatemm/2:
  1050. pl'<font color = black>Your breasts are heavy, a cargo of milk inside.</font>'
  1051. elseif lactatemv > lactatemm/4:
  1052. pl'<font color = black>Your breasts feel a little heavy.</font>'
  1053. elseif lactatemv > 0:
  1054. pl'<font color = black>Your breasts tingle a little from the feeling of milk production.</font>'
  1055. else
  1056. pl'<font color = black>Your breasts feel soft and empty.</font>'
  1057. end
  1058. !! MJ: Add a line before the next message.
  1059. pl
  1060. end
  1061. if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1:pl '<b><font color="red">It''s time to work your shift as a waitress in a cafe</font></b>'
  1062. if hour >= 8 and hour < 9 and week < 5 and workSec >= 1:pl '<b><font color="red">It''s time to work your shift as a secretary</font></b>'
  1063. if PersSecWork = 1 and week < 6 and hour < 10 and hour >= 5:pl '<b><font color="red">It''s time to work your shift as a secretary</font></b>'
  1064. if workFabrika = 1 and week => 1 and week <= 5 and hour = 8 and age >= 18 or workFabrika = 1 and week => 1 and week <= 5 and hour = 16 and age < 18:pl'<b><font color = red>This morning you have work in the garment factory in Pavlovsk</font></b>'
  1065. if Enable_Hymenrestore = 1: vagina = 0
  1066. if Enable_tightrestore = 1: anus = 0 & if vagina > 0:vagina = 1
  1067. if Enable_clearwrite > 0: body_write = 0 & face_write = 0
  1068. !{
  1069. if Enable_clearcum > 0:
  1070. killvar 'sparrvol[0]'
  1071. end
  1072. if Enable_fbreath > 0:
  1073. cumspclnt = 2
  1074. gs 'cum_cleanup'
  1075. fbreath=1
  1076. end
  1077. }
  1078. $clear_write = {
  1079. body_write = 0
  1080. face_write = 0
  1081. minut += 10
  1082. gs'stat'
  1083. 'It takes you 10 minutes to thoroughly wash the obscene "painting" from your body.'
  1084. }
  1085. !!'<a href="exec:view''images/body/cumface.jpg''">лицо</a>'
  1086. !!'<a href="exec:view''images/body/cumface.jpg''"><b><font color="red">Your face</font></b></a>'
  1087. !!'<a href="exec:view''images/body/cumass.jpg''"><b><font color="red">Your ass</font></b></a>'
  1088. if body_write > 0 and face_write > 0:
  1089. if body_write > 1 and face_write = 0:
  1090. pl'<b><font color = red><a href="exec:dynamic $clear_write"><b><font color = red>Your body is inscribed with derogatory graffiti.</font></b></a>'
  1091. elseif body_write = 1 and face_write = 0:
  1092. pl'<b><font color = red><a href="exec:dynamic $clear_write"><b><font color = red>Your body is an obscene sign.</font></b></a>'
  1093. elseif body_write = 0 and face_write > 1:
  1094. pl'<b><font color = red><a href="exec:dynamic $clear_write"><b><font color = red>Your face is covered with writing obscene epithets.</font></b></a>'
  1095. elseif body_write = 0 and face_write = 1:
  1096. pl'<b><font color = red><a href="exec:dynamic $clear_write"><b><font color = red>On your face humiliating label.</font></b></a>'
  1097. else
  1098. pl'<b><font color = red><a href="exec:dynamic $clear_write"><b><font color = red>Your body and face painted with obscene graffiti.</font></b></a>'
  1099. end
  1100. end
  1101. $temp[1] = {
  1102. if sparridt[temp1arr] = 1:
  1103. temp2arr = temp1arr + 1
  1104. temp3arr = arrpos(temp2arr,'sparrloc',i)
  1105. if temp3arr > 0 and sparrvol[temp3arr] > 0 and sparrloc[temp3arr] = i and $sparrnam[temp3arr] ! $sparrnam[temp1arr]:
  1106. $cumtemp[1] = 'Multiple men'
  1107. else
  1108. $cumtemp[1] = $sparrnam[temp1arr]
  1109. end
  1110. else
  1111. $cumtemp[1] = 'Somebody'
  1112. end
  1113. if sparrage[temp1arr] < temp[2]:
  1114. $cumtemp[2] = 'fresh '
  1115. elseif sparrage[temp1arr] < temp[3]:
  1116. $cumtemp[2] = ''
  1117. else
  1118. temp[4] = sparrloc[temp1arr]
  1119. if temp[4] ! 0 and temp ! 3:
  1120. $cumtemp[2] = 'crusty '
  1121. else
  1122. $cumtemp[2] = 'stale '
  1123. end
  1124. end
  1125. }
  1126. temp = arrsize('sparrvol')
  1127. if temp > 0:
  1128. !{index for use in dynamic}
  1129. i = 0
  1130. !{values for fresh and crusty, only updated where needed}
  1131. temp[2] = 4
  1132. temp[3] = 10
  1133. temp1arr = arrpos('sparrloc',i)
  1134. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1135. dynamic $temp[1]
  1136. $cumtemp[3] = 'fills your '
  1137. if sparrslc[temp1arr] > 0:
  1138. $cumtemp[3] = 'slowly flows from your '
  1139. spdirtyn = 1
  1140. elseif sparrslc[temp] > 0 and sparrloc[temp] = 0:
  1141. $cumtemp[3] = 'slowly flows from your '
  1142. spdirtyn = 1
  1143. end
  1144. if swallow >= 10:
  1145. pl '<a href="exec:view''images/body/cumpussy.jpg''"><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',0) & 'gs 'cum_manage', 'cumeater2''"><b><font color="blue">sperm</font></b></a><b> <<$cumtemp[3]>>pussy</font></b></a>.'
  1146. else
  1147. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm <<$cumtemp[3]>><a href="exec:view''images/body/cumpussy.jpg''">pussy</a>.</font></b>'
  1148. end
  1149. spdirty = 1
  1150. spdirtyi = 1
  1151. end
  1152. i = 1
  1153. temp[2] = 1
  1154. temp[3] = 5
  1155. temp1arr = arrpos('sparrloc',i)
  1156. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1157. dynamic $temp[1]
  1158. if swallow >= 10 and sparrage[temp1arr] < 5:
  1159. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',1) & 'gs 'cum_manage', 'cumeater2''"><b><font color="blue">sperm</font></b></a><b> is smeared across your pussy lips.</font></b>.'
  1160. else
  1161. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your pussy lips.'
  1162. end
  1163. spdirty = 1
  1164. spdirtyn = 1
  1165. end
  1166. i = 2
  1167. temp1arr = arrpos('sparrloc',i)
  1168. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1169. dynamic $temp[1]
  1170. if swallow >= 10 and sparrage[temp1arr] < 5:
  1171. pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',2) & 'gs 'cum_manage', 'cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on the crotch of your panties.</font></b>.'
  1172. else
  1173. pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on the crotch of your panties.'
  1174. end
  1175. spdirtyc = 1
  1176. end
  1177. i = 3
  1178. temp[2] = 4
  1179. temp[3] = 10
  1180. temp1arr = arrpos('sparrloc',i)
  1181. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1182. dynamic $temp[1]
  1183. if analplugin = 1:
  1184. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is stuffed in your ass, corked in by your anal plug.</font></b>'
  1185. else
  1186. $cumtemp[3] = 'fills your '
  1187. if sparrslc[temp1arr] > 0:
  1188. $cumtemp[3] = 'slowly flows from your '
  1189. spdirtyn = 1
  1190. elseif sparrslc[temp] > 0 and sparrloc[temp] = 3:
  1191. $cumtemp[3] = 'slowly flows from your '
  1192. spdirtyn = 1
  1193. end
  1194. if swallow >= 10:
  1195. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',3) & 'gs 'cum_manage', 'cumeater6''"><b><font color="blue">sperm</font></b></a><b> <<$cumtemp[3]>><a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
  1196. else
  1197. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm <<$cumtemp[3]>><a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
  1198. end
  1199. end
  1200. spdirty = 1
  1201. spdirtyi = 1
  1202. end
  1203. i = 4
  1204. temp[2] = 1
  1205. temp[3] = 5
  1206. temp1arr = arrpos('sparrloc',i)
  1207. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1208. dynamic $temp[1]
  1209. if swallow >= 10 and sparrage[temp1arr] < 5:
  1210. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',4) & 'gs 'cum_manage', 'cumeater3''"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumass.jpg''">ass</a>.</font></b>.'
  1211. else
  1212. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your <a href="exec:view''images/body/cumass.jpg''">ass</a>.'
  1213. end
  1214. spdirty = 1
  1215. spdirtyn = 1
  1216. end
  1217. i = 5
  1218. temp1arr = arrpos('sparrloc',i)
  1219. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1220. dynamic $temp[1]
  1221. if swallow >= 10 and sparrage[temp1arr] < 5:
  1222. pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',5) & 'gs 'cum_manage', 'cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on the ass of your panties.</font></b>.'
  1223. else
  1224. pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on the ass of your panties.'
  1225. end
  1226. spdirtyc = 1
  1227. end
  1228. i = 6
  1229. temp1arr = arrpos('sparrloc',i)
  1230. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1231. dynamic $temp[1]
  1232. if swallow >= 10 and sparrage[temp1arr] < 5:
  1233. pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',6) & 'gs 'cum_manage', 'cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on the crotch of your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</font></b>.'
  1234. else
  1235. pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on the crotch of your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.'
  1236. end
  1237. spdirtyc = 1
  1238. end
  1239. i = 7
  1240. temp1arr = arrpos('sparrloc',i)
  1241. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1242. dynamic $temp[1]
  1243. if swallow >= 10 and sparrage[temp1arr] < 5:
  1244. pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',7) & 'gs 'cum_manage', 'cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</font></b>.'
  1245. else
  1246. pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.'
  1247. end
  1248. spdirtyc = 1
  1249. end
  1250. i = 8
  1251. temp1arr = arrpos('sparrloc',i)
  1252. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1253. dynamic $temp[1]
  1254. if swallow >= 10 and sparrage[temp1arr] < 5:
  1255. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',8) & 'gs 'cum_manage', 'cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your back.</font></b>.'
  1256. else
  1257. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your back.'
  1258. end
  1259. spdirty = 1
  1260. spdirtyn = 1
  1261. end
  1262. i = 9
  1263. temp1arr = arrpos('sparrloc',i)
  1264. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1265. dynamic $temp[1]
  1266. if swallow >= 10 and sparrage[temp1arr] < 5:
  1267. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',9) & 'gs 'cum_manage', 'cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your legs.</font></b>.'
  1268. else
  1269. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your legs.'
  1270. end
  1271. spdirty = 1
  1272. spdirtyn = 1
  1273. end
  1274. i = 10
  1275. temp1arr = arrpos('sparrloc',i)
  1276. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1277. dynamic $temp[1]
  1278. if swallow >= 10 and sparrage[temp1arr] < 5:
  1279. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',10) & 'gs 'cum_manage', 'cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your arms.</font></b>.'
  1280. else
  1281. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your arms.'
  1282. end
  1283. spdirty = 1
  1284. spdirtyn = 1
  1285. end
  1286. i = 11
  1287. temp1arr = arrpos('sparrloc',i)
  1288. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1289. dynamic $temp[1]
  1290. if swallow >= 10 and sparrage[temp1arr] < 5:
  1291. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',11) & 'gs 'cum_manage', 'cumeater4''"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumface.jpg''">face</a>.</font></b>.'
  1292. else
  1293. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your <a href="exec:view''images/body/cumface.jpg''">face</a>.'
  1294. end
  1295. spdirty = 1
  1296. spdirtyn = 1
  1297. spdirtyv = 1
  1298. end
  1299. i = 12
  1300. temp1arr = arrpos('sparrloc',i)
  1301. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1302. dynamic $temp[1]
  1303. pl '<b><font color="red">Your mouth smells like <<$cumtemp[1]>>''s sperm.</a>.'
  1304. spdirty = 1
  1305. spdirtyb = 1
  1306. fbreath = 0
  1307. end
  1308. i = 13
  1309. temp1arr = arrpos('sparrloc',i)
  1310. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1311. dynamic $temp[1]
  1312. if swallow >= 10 and sparrage[temp1arr] < 5:
  1313. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',13) & 'gs 'cum_manage', 'cumeater8''"><b><font color="blue">sperm</font></b></a><b> is smeared across your hands.</font></b>.'
  1314. else
  1315. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your hands.'
  1316. end
  1317. spdirty = 1
  1318. spdirtyn = 1
  1319. spdirtyv = 1
  1320. spdirtyf = 1
  1321. end
  1322. i = 14
  1323. temp1arr = arrpos('sparrloc',i)
  1324. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1325. dynamic $temp[1]
  1326. if swallow >= 10 and sparrage[temp1arr] < 5:
  1327. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',14) & 'gs 'cum_manage', 'cumeater1''"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumbelly.jpg''">stomach</a>.</font></b>.'
  1328. else
  1329. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your <a href="exec:view''images/body/cumbelly.jpg''">stomach</a>.'
  1330. end
  1331. spdirty = 1
  1332. spdirtyn = 1
  1333. end
  1334. i = 15
  1335. temp1arr = arrpos('sparrloc',i)
  1336. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1337. dynamic $temp[1]
  1338. if swallow >= 10 and sparrage[temp1arr] < 5:
  1339. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',15) & 'gs 'cum_manage', 'cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your breasts.</font></b>.'
  1340. else
  1341. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your breasts.'
  1342. end
  1343. spdirty = 1
  1344. spdirtyn = 1
  1345. end
  1346. i = 16
  1347. temp1arr = arrpos('sparrloc',i)
  1348. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1349. dynamic $temp[1]
  1350. if swallow >= 10 and sparrage[temp1arr] < 5:
  1351. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',16) & 'gs 'cum_manage', 'cumeater9''"><b><font color="blue">sperm</font></b></a><b> is smeared in your hair.</font></b>.'
  1352. else
  1353. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared in your hair.'
  1354. end
  1355. spdirty = 1
  1356. spdirtyn = 1
  1357. spdirtyv = 1
  1358. end
  1359. i = 17
  1360. temp1arr = arrpos('sparrloc',i)
  1361. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  1362. if sparridt[temp1arr] = 1:
  1363. $cumtemp[1] = $sparrnam[temp1arr]
  1364. else
  1365. $cumtemp[1] = 'Somebody'
  1366. end
  1367. if sparrage[temp1arr] < 1:
  1368. $cumtemp[2] = 'freshly buried'
  1369. elseif sparrage[temp1arr] < 13:
  1370. $cumtemp[2] = 'buried'
  1371. else
  1372. $cumtemp[2] = 'marinating '
  1373. end
  1374. pl '<b><font color="red">A spent condom full of <<$cumtemp[1]>>''s sperm is <<$cumtemp[2]>> deep in your vagina.'
  1375. spdirty = 1
  1376. spdirtyi = 1
  1377. end
  1378. end
  1379. !{should kill all temp values}
  1380. killvar '$temp'
  1381. killvar '$cumtemp'
  1382. temp1arr = 0
  1383. temp2arr = 0
  1384. temp3arr = 0
  1385. cumfrot = 0
  1386. cumpussy = 0
  1387. cumbelly = 0
  1388. cumass = 0
  1389. cumlip = 0
  1390. cumface = 0
  1391. cumanus = 0
  1392. if $clothingworntype = 'nude' and lactatemess > 0:
  1393. if lactatemess < 3:
  1394. pl'<font color = black>You have a little milk residue around your nipples.</font>'
  1395. elseif if lactatemess < 7:
  1396. pl'<font color = black>You have a lot of milk residue around your nipples.</font>'
  1397. else
  1398. pl'<font color = black>Your breasts are drenched with milk residue.</font>'
  1399. end
  1400. elseif lactatemess > 0:
  1401. if lactatemess < 3:
  1402. pl'<font color = black>You have tiny wet spots on your clothes above your nippes.</font>'
  1403. elseif if lactatemess < 7:
  1404. pl'<font color = black>Milk has soaked through your clothes and made visible circles on your breasts.</font>'
  1405. else
  1406. pl'<font color = black>Your shirt is drenched with milk from your breasts.</font>'
  1407. end
  1408. end
  1409. if Gerpes >= 3:pl '<b><font color="red">On your lips sores. All signs of genital herpes.</font></b>'
  1410. if Gerpes >= 10:
  1411. pl '<b><font color="red">On your pussy sores have appeared. This is genital herpes.</font></b>'
  1412. elseif Gerpes >= 5:
  1413. pl '<b><font color="red">Your pussy is flushed and highly itchy. This is genital herpes.</font></b>'
  1414. end
  1415. if Gerpes >= 20:pl '<b><font color="red">The sores also cover your ass.</font></b>'
  1416. if Sifilis >= 50:
  1417. pl '<b><font color="red">Syphilitic rashes cover your whole body.</font></b>'
  1418. elseif Sifilis >= 21:
  1419. pl '<b><font color="red">You have a single big, hard sore on the lip.</font></b>'
  1420. end
  1421. if Triper > 2:pl '<b><font color="red">From your vagina a white discharge comes out strong and stinging when urinating. Also from your vagina there''s a hard and nasty smell.</font></b>'
  1422. if Kandidoz > 30:pl '<b><font color="red">You have thrush.</font></b>'
  1423. if SLomka > 0:pl '<b><font color="red">You are very weak and hurt to the bone. You''re in withdrawal.</font></b>'
  1424. if narkday ! daystart and narkoman = 1:pl '<b><font color="red">You are very weak and hurt to the bone. Urgently need pale lady.</font></b>'
  1425. if fingal > 0:pl '<b><font color="red">You have a black eye.</font></b>'
  1426. ! WD: Bimbo look
  1427. pl '<<$bimbostatus>>'
  1428. if tanga = 1 and $clothingworntype = 'nude':
  1429. pl'<b><font color = red>You are stripped down to your panties and your boobs sway invitingly as you walk</font></b>'
  1430. elseif tanga= 1 and PCloBimbo = 1:
  1431. pl'<b><font color = #FF1493>You are dressed as a bimbo</font></b>'
  1432. elseif tanga = 0:
  1433. if $clothingworntype = 'naughty' and CloQuality = 2:
  1434. pl '<b><font color="red">you are not wearing panties, but you are dressed as a hooker, so that''s hardly surprising.</font></b>'
  1435. elseif PCloBimbo = 1:
  1436. pl '<b><font color = #FF1493>You like, totally forgot to put on any panties. You are such a bimbo.</font></b>'
  1437. elseif PCloSkirt > 3:
  1438. pl '<b><font color="red">Your face is flushed with shame, you are not wearing panties and your naked ass flashes from under your short skirt.</font></b>'
  1439. elseif opPRE = 0 and $clothingworntype ! 'nude':
  1440. pl '<b><font color="red">You are not wearing panties.</font></b>'
  1441. elseif towel = 1:
  1442. pl'<b><font color = red>Your naked body is covered only by a short towel</font></b>'
  1443. elseif $clothingworntype = 'nude':
  1444. pl'<b><font color = red>You completely naked, and inside, everything trembles</font></b>'
  1445. end
  1446. end
  1447. if mosol >= 50:
  1448. pl '<b><font color="red">Your pussy hurts and each step causes more pain, it''s crimson and visiblably scuffed from walking without underwear.</font></b>'
  1449. elseif mosol >= 30:
  1450. pl '<b><font color="red">Your pussy is flushed and itchy, it seems to be from rubbing against your clothing.</font></b>'
  1451. end
  1452. if analplugIN = 1:pl '<b><font color="red">You have inserted your butt plug into your ass.</font></b>'
  1453. if vibratorin = 1:pl '<b><font color="red">You have inserted your vibrator into your vagina.</font></b>'
  1454. if young_shop_work = 1:
  1455. if hour = 15 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
  1456. 'You are late for work at Keys Pussy.'
  1457. elseif hour = 15 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
  1458. misscheck = daystart
  1459. young_shop_miss += 1
  1460. pl '<b><font color="red">You missed work.</font></b>'
  1461. elseif (hour = 14 or hour = 13) and week < 6:
  1462. pl '<b><font color="red">By 15:00 you have to be at work in the shop Keys Pussy.</font></b>'
  1463. end
  1464. end
  1465. if workrin = 1:
  1466. if week = 2 or week = 4 or week = 6:
  1467. if hour = 7:pl '<b><font color="red">At 8 c''clock you start work on the market.</font></b>'
  1468. if hour = 8:pl '<b><font color="red">You need to work on the market now.</font></b>'
  1469. end
  1470. end
  1471. if frost > 0:
  1472. if frost <= 5:
  1473. pl '<b><font>You are a little chilly.</font></b>'
  1474. elseif frost < 11:
  1475. pl '<b><font color="red">Are you cold.</font></b>'
  1476. else
  1477. pl '<b><font color="red">You are very cold.</font></b>'
  1478. end
  1479. end
  1480. if sick > 0:
  1481. if sick = 1:
  1482. pl '<b><font color="red">This is not good, a tickle in the throat and a little runny nose.</font></b>'
  1483. elseif sick < 24:
  1484. pl '<b><font color="red">You have chills. You nose is running and throat is raw, you cough and sneeze - it looks like you got a cold.</font></b>'
  1485. elseif sick < 48:
  1486. pl '<b><font color="red">You have a fever. Your nose is clogged, it hurts to swallow - throat aches. You continually cough and sneeze - it looks like your cold is pretty bad.</font></b>'
  1487. elseif sick < 72:
  1488. pl '<b><font color="red">You have a high fever. You have a stuffy nose, sore head and throat, your coughing badly - it looks like you got a strong cold. Maybe it''s the flu.</font></b>'
  1489. else
  1490. pl '<b><font color="red">You toss in the heat. You have a stuffy nose, headache and ache to the bone. Your throat is inflamed and very sore. You think you''re going to cough up a lung - it looks like you are seriously ill, or maybe it''s just a sore throat.</font></b>'
  1491. end
  1492. end
  1493. if $mudnerd ! '':pl '<<$mudnerd>>'
  1494. if housr = 1:
  1495. $streetev_home = 'your apartment'
  1496. elseif tanwork = 1:
  1497. $streetev_home = 'Tanya''s apartment'
  1498. elseif student > 0:
  1499. $streetev_home = 'your dorm'
  1500. else
  1501. $streetev_home = 'the train station'
  1502. end
  1503. if hour < meethour and svidanieA = 1:pl '<<$boyA>> will be waiting for you near <<$streetev_home>> at <<meethour>>:00.'
  1504. if hour = meethour and svidanieA = 1:pl '<b><font color="red"><<$boyA>> is waiting for you by <<$streetev_home>>.</font></b>'
  1505. if meetday < daystart and svidanieA = 1:bfA -= 10 & svidanieA = 0
  1506. if StrongNarkota > 20:pl '<b><font color="red">You are stoned.</font></b>'
  1507. if alko > 0:
  1508. if alko < 3:pl '<b><font color="red">You''re a little dizzy.</font></b>'
  1509. if alko >= 3 and alko < 6:pl '<b><font color="red">You''re drunk.</font></b>'
  1510. if alko >= 6:pl '<b><font color="red">You''re wasted.</font></b>'
  1511. end
  1512. if day = 31 and month = 12 and (year - year_start) < 2 and hour >= 5 and hour <= 14 and StoryLine = 1:pl 'At 14:00 your New Year''s party will start.'
  1513. if StoryLine = 1 and sisboyday + 1 = daystart and hour < 19 and (sisboyQW = 3 or sisboyQW = 5 or sisboyQW = 7 or (sisboyQW = 9 and sisboytrioQW ! 1)):pl'' & pl'You promised your sister not to go into your room at 18:00.'
  1514. if StoryLine = 1 and sisboyday + 1 = daystart and hour < 19 and sisboytrioQW = 1:pl'' & pl'You promised your sister to meet her in your room at 18:00.'
  1515. dynamic $brotherSexCount
  1516. if bag > 0:pl '<a href="exec:dynamic $d_bag"><b>Handbag</b></a>'
  1517. !!zero checks marriage
  1518. proverka1 = 0
  1519. proverka2 = 0
  1520. proverka3 = 0
  1521. proverka4 = 0
  1522. proverka5 = 0
  1523. ! WD: Code for updating from old clothing system pre 0.5.0
  1524. !!clothing converter, for old saves. Not complete listing.
  1525. if remdrop = 0:
  1526. remdrop = 1
  1527. if jeans[1] = 1:cheap[15] = 1 & cheapH[15] = jeansH[1] & cheapB[15] = jeansB[1] & jeans[1] = 0
  1528. if jeans[205] = 1:average[65] = 1 & averageH[65] = jeansH[205] & averageB[65] = jeansB[205] & jeans[205] = 0
  1529. if jeans[202] = 1:average[64] = 1 & averageH[64] = jeansH[202] & averageB[64] = jeansB[202] & jeans[202] = 0
  1530. if jeans[2] = 1:average[62] = 1 & averageH[62] = jeansH[2] & averageB[62] = jeansB[2] & jeans[2] = 0
  1531. if jeans[222] = 1:average[75] = 1 & averageH[75] = jeansH[222] & averageB[75] = jeansB[222] & jeans[222] = 0
  1532. if jeans[223] = 1:average[76] = 1 & averageH[76] = jeansH[223] & averageB[76] = jeansB[223] & jeans[223] = 0
  1533. if jeans[224] = 1:average[78] = 1 & averageH[78] = jeansH[224] & averageB[78] = jeansB[224] & jeans[224] = 0
  1534. if jeans[232] = 1:average[79] = 1 & averageH[79] = jeansH[232] & averageB[79] = jeansB[232] & jeans[232] = 0
  1535. if jeans[233] = 1:average[80] = 1 & averageH[80] = jeansH[233] & averageB[80] = jeansB[233] & jeans[233] = 0
  1536. if jeans[267] = 1:expensive[3] = 1 & expensiveH[3] = jeansH[267] & expensiveB[3] = jeansB[267] & jeans[267] = 0
  1537. if jeans[263] = 1:expensive[18] = 1 & expensiveH[18] = jeansH[263] & expensiveB[18] = jeansB[263] & jeans[263] = 0
  1538. if jeans[234] = 1:expensive[71] = 1 & expensiveH[71] = jeansH[234] & expensiveB[71] = jeansB[234] & jeans[234] = 0
  1539. if jeans[231] = 1:expensive[124] = 1 & expensiveH[124] = jeansH[231] & expensiveB[124] = jeansB[231] & jeans[231] = 0
  1540. if yoga[1] = 1:exercise[1] = 1 & exerciseH[1] = yogaH[1] & yoga[1] = 0
  1541. if yoga[2] = 1:exercise[2] = 1 & exerciseH[2] = yogaH[2] & yoga[2] = 0
  1542. if yoga[4] = 1:exercise[4] = 1 & exerciseH[4] = yogaH[4] & yoga[4] = 0
  1543. if yoga[5] = 1:exercise[5] = 1 & exerciseH[5] = yogaH[5] & yoga[5] = 0
  1544. if yoga[6] = 1:exercise[6] = 1 & exerciseH[6] = yogaH[6] & yoga[6] = 0
  1545. if yoga[7] = 1:exercise[7] = 1 & exerciseH[7] = yogaH[7] & yoga[7] = 0
  1546. if yoga[8] = 1:exercise[8] = 1 & exerciseH[8] = yogaH[8] & yoga[8] = 0
  1547. if yoga[9] = 1:exercise[9] = 1 & exerciseH[9] = yogaH[9] & yoga[9] = 0
  1548. if yoga[10] = 1:exercise[10] = 1 & exerciseH[10] = yogaH[10] & yoga[10] = 0
  1549. if yoga[11] = 1:exercise[11] = 1 & exerciseH[11] = yogaH[11] & yoga[11] = 0
  1550. if yoga[12] = 1:exercise[12] = 1 & exerciseH[12] = yogaH[12] & yoga[12] = 0
  1551. if yoga[13] = 1:exercise[13] = 1 & exerciseH[13] = yogaH[13] & yoga[13] = 0
  1552. if yoga[14] = 1:exercise[14] = 1 & exerciseH[14] = yogaH[14] & yoga[14] = 0
  1553. if yoga[15] = 1:exercise[15] = 1 & exerciseH[15] = yogaH[15] & yoga[15] = 0
  1554. if yoga[16] = 1:exercise[16] = 1 & exerciseH[16] = yogaH[16] & yoga[16] = 0
  1555. if yoga[17] = 1:exercise[17] = 1 & exerciseH[17] = yogaH[17] & yoga[17] = 0
  1556. if yoga[18] = 1:exercise[18] = 1 & exerciseH[18] = yogaH[18] & yoga[18] = 0
  1557. end
  1558. if Enable_statfsize>0:pl'</font>' & !disable this, all texts comes from pl will have the same font size, like[time]
  1559. if Enable_faceturn = 1: view FUNC('$face_image')
  1560. --- stat ---------------------------------