1
0

stat 52 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570
  1. # stat
  2. clr
  3. view
  4. gs 'dinSex2'
  5. if nippain = 2:
  6. if nippainday + 5 < daystart:
  7. $nippain = 'You have greatly hurt nipples.'
  8. nippain = 1
  9. nippainday = daystart
  10. elseif nippainday + 5 >= daystart:
  11. $nippain = 'You have greatly hurt nipples.'
  12. end
  13. elseif nippain = 1:
  14. if nippainday + 5 < daystart:
  15. $nippain = ''
  16. nippain = 0
  17. elseif nippainday + 5 >= daystart:
  18. $nippain = 'You have a little sore nipples.'
  19. end
  20. end
  21. if painpub = 2:
  22. if painpubday + 5 < daystart:
  23. $painpub = 'You have very sore vagina.'
  24. painpub = 1
  25. painpubday = daystart
  26. elseif painpubday + 5 >= daystart:
  27. $painpub = 'You have very sore vagina.'
  28. end
  29. elseif painpub = 1:
  30. if painpubday + 5 < daystart:
  31. $painpub = ''
  32. painpub = 0
  33. painpubday = daystart
  34. elseif painpubday + 5 >= daystart:
  35. $painpub = 'You have a little sore vagina.'
  36. end
  37. end
  38. if year = 2011 and katjaPreg = 0 and month >= 2:katjaPreg = 1
  39. if analplay >= 2 and anus <= 10:anus += 1 & analplay = 0
  40. if analplay >= 4 and anus <= 15:anus += 1 & analplay = 0
  41. if analplay >= 8 and anus <= 20:anus += 1 & analplay = 0
  42. musle[1] = musle
  43. flex[1] = agil
  44. stamina[1] = vital * 3
  45. wipo[1] = will
  46. intel[1] = intel
  47. krasota[1] = vnesh
  48. rost[1] = rost
  49. salo[1] = salo
  50. fat[1] = fat
  51. Bteh[1] = bteh
  52. Uteh[1] = uteh
  53. Zteh[1] = zteh
  54. !!flex[0] = agil
  55. !!stamina[0] = vital * 3
  56. !!krasota[0] = vnesh
  57. !!wipo[0] = will
  58. if nopornowrestling = 0:
  59. nopornowrestling = 1
  60. NPCnum = 30
  61. NPCnow = 1
  62. !!shag = 1
  63. gs 'npc'
  64. NoView = 1
  65. NPCrost = 30
  66. gs 'generation'
  67. NoView = 1
  68. NPCrost = 30
  69. gs 'generation'
  70. NoView = 1
  71. NPCrost = 30
  72. gs 'generation'
  73. NoView = 1
  74. NPCrost = 30
  75. gs 'generation'
  76. NoView = 1
  77. NPCrost = 30
  78. gs 'generation'
  79. $nikname[1] = 'schoolgirl'
  80. !!musle[0] = 100
  81. !!flex[0] = agil
  82. !!stamina[0] = vital * 3
  83. !!wipo[0] = will
  84. !!intel[0] = 10
  85. !!krasota[0] = vnesh
  86. !!rost[0] = 165
  87. !!salo[0] = 100
  88. !!fat[0] = 100
  89. !!$nikname[1] = 'steel Virgo'
  90. !!musle[1] = 100
  91. !!flex[1] = 100
  92. !!stamina[1] = 300
  93. !!wipo[1] = 50
  94. !!intel[1] = 10
  95. !!krasota[1] = 10
  96. !!rost[1] = 165
  97. !!salo[1] = 100
  98. !!fat[1] = 100
  99. end
  100. !!!CV edition
  101. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!Automatic Stuff
  102. if AutoMakeupType < 2: AutoMakeupType = 2
  103. if AutoHapri = 1 and greben > 0 and hapri = 0 and InSleep = 0:
  104. minut += 3
  105. hapri = 1
  106. 'You brush your hair.'
  107. end
  108. if AutoMakeup = 1 and kosmetitka > 0 and mop = 1 and InSleep = 0 and (AutoMakeupSleep = 1 or (AutoMakeupSleep = 0 and HasWashed = 0)):
  109. mop = AutoMakeupType
  110. if $CurLoc = 'vanr' or $CurLoc = 'vanrPar' or bag > 0:
  111. if kosmetica < 3 and mop = 4: mop = 3
  112. if kosmetica < 2 and mop = 3: mop = 2
  113. if kosmetica < 1 and mop ! 1:
  114. mop = 1
  115. 'You have no make-up left.'
  116. else
  117. if mop = 2:
  118. 'You apply just enough make-up to touch up a few spots.'
  119. minut += 3
  120. kosmetica -= 1
  121. 'You lightly summed eyes and a little lipstick.'
  122. end
  123. if mop = 3:
  124. 'You apply an amount of make-up, that should pass as an everyday-like setup.'
  125. minut += 5
  126. kosmetica -= 2
  127. 'You lipstick, summed up the eyes and eyelids.'
  128. end
  129. if mop = 4:
  130. 'You apply an amount of make-up, that others usually wear, when they go out.'
  131. minut += 10
  132. vidageday -= 1
  133. kosmetica -= 3
  134. 'You densely nakrasili eyes, imposed shadows and mascara , nakrasili lip contour pencil and lipstick.'
  135. end
  136. end
  137. else
  138. if kosmetitka < 3 and mop = 4: mop = 3
  139. if kosmetitka < 2 and mop = 3: mop = 2
  140. if kosmetitka < 1 and mop ! 1:
  141. mop = 1
  142. 'You have no make-up left.'
  143. else
  144. if mop = 2:
  145. 'You apply just enough make-up to touch up a few spots.'
  146. minut += 3
  147. kosmetitka -= 1
  148. 'You lightly summed eyes and a little lipstick.'
  149. end
  150. if mop = 3:
  151. 'You apply an amount of make-up, that should pass as an everyday-like setup.'
  152. minut += 5
  153. kosmetitka -= 2
  154. 'You lipstick, summed up the eyes and eyelids.'
  155. end
  156. if mop = 4:
  157. 'You apply an amount of make-up, that others usually wear, when they go out.'
  158. minut += 10
  159. vidageday -= 1
  160. kosmetitka -= 3
  161. 'You densely nakrasili eyes, imposed shadows and mascara , nakrasili lip contour pencil and lipstick.'
  162. end
  163. end
  164. end
  165. end
  166. if AutoVibrator = 1 and vibrator = 1 and vibratorIN=0:
  167. if $CurLoc = 'vanr' or $CurLoc = 'vanrPar':
  168. minut += 5
  169. vibratorIN = 1
  170. if vagina < 30:vagina += 2
  171. 'You bend over the sink and inserted the vibrator in your pussy.'
  172. end
  173. end
  174. if AutoEnema = 1 and klismaday ! day:
  175. if $CurLoc = 'vanr' or $CurLoc = 'vanrPar':
  176. minut += 5
  177. klismaday = day
  178. klismaday1 = 1
  179. 'You give yourself an enema and clean your intestines. Your ass is now ready for anal sex.'
  180. end
  181. end
  182. if AutoButtPlug = 1 and AutoEnema = 1 and analplug = 1 and analplugIN = 0:
  183. if $CurLoc = 'vanr' or $CurLoc = 'vanrPar':
  184. minut += 5
  185. analplugIN = 1
  186. plugday = daystart
  187. if anus < 10:anus = anus + 5
  188. if anus >= 10 and anus < 20:anus += rand(1, 2)
  189. if anus >= 20 and anus < 30:anus += rand(0, 1)
  190. if butpluguse > 0:
  191. 'You bent over and inserted the butt plug.'
  192. else
  193. butpluguse = 1
  194. '"If I don''t use it then why did I buy it!" you thought. You decided to take a closer look while thinking, "It is necessary to start developing my ass so I could have great adventures someday, you could even say a huge and thick adventures with crimson heads, uh, now I got carried away." You scratched your head. Then you directed it in your ass, it was a bit painful at first, but as soon as the widest part was plunged into the murky depths of your anus it became easier to push it all the way.'
  195. end
  196. end
  197. end
  198. if lipbalm > 0 and lipbalmstat <= 0 and AutoLipBalm = 1:
  199. minut -= 10
  200. lipbalm -= 1
  201. lipkoef += rand(5, 15)
  202. if lipkoef > 50:
  203. lipkoef = 0
  204. lip += 1
  205. end
  206. lipbalmstat += 8
  207. 'You apply a lip balm, to moisterize them.'
  208. end
  209. if AutoVitamins = 1 and vitamin > 0 and vitaminday ! day:
  210. minut += 5
  211. vitaminday = day
  212. vitamin -= 1
  213. frost = 0
  214. skinvan += 1
  215. if KandidozOnce = 1:Kandidoz -= 2
  216. if GerpesOnce = 1:Gerpes -= 2
  217. if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)
  218. if skinvan = 20:skinvan = 0 & skin += 1
  219. end
  220. !!!
  221. !!!CHEATS!!!
  222. if cheatWork = 1:work = 0
  223. if cheatWorkKiskis = 1:young_shop_miss = 0
  224. if cheatHapri = 1:hapri = 1
  225. if cheatKlisma = 1:klismaday = day & klismaday1 = 1
  226. if cheatNomakeup = 1:
  227. if mop = 0:mop = 1
  228. end
  229. if cheatNosweat = 1 and sweat ! -3:sweat = -3
  230. if cheatNoEat = 1:
  231. if energy ! 19:energy = 19
  232. if water ! 19:water = 19
  233. end
  234. !!!!!!!!!!!!
  235. if alko > 0 and frost > 0:frost = 0
  236. if lernSkill >= 8:intel += 1 & lernSkill = 0
  237. if lern >= 10:intel += 1 & lern = 0
  238. if GorSlut = 1:$gnikname = 'flirt'
  239. if GorSlut = 2:$gnikname = 'easy A'
  240. if GorSlut = 3:$gnikname = 'cocksucker'
  241. if GorSlut = 4:$gnikname = 'sex addict'
  242. if GorSlut = 5:$gnikname = 'slut'
  243. if GorSlut = 6:$gnikname = 'talking pussy'
  244. if GorSlut >= 2:KatjaKnowBJ = 1
  245. if GorSlut >= 1 or preg > 0:KatjaKnowSex = 1
  246. if GorSlut > 6: GorSlut = 6
  247. if film > 0 and kompromatLife < 10:
  248. !pornoaktrissa
  249. if kompromatLife < 10:kompromatLife = 10
  250. $kompromatFoto = 'This photo is a screenshot from one of the porn movies you were part of.'
  251. end
  252. if fotoyousuck = 1 and kompromatLife < 9:
  253. !!sucked in a couple of guys and was sfotografirovanna
  254. if kompromatLife < 9:kompromatLife = 9
  255. $kompromatFoto = 'These pictures show you sucking two cocks at the same time.'
  256. end
  257. if fotoCFNMsex > 0 and kompromatLife < 8:
  258. kompromatLife = 8
  259. $kompromatFoto = 'In this photo you see yourself getting fucked from behind by a random guy. This must have been taken in the stripclup.'
  260. end
  261. if fotoCFNMblowjobCum > 0 and kompromatLife < 7:
  262. !!cum on face in the strip club
  263. kompromatLife = 7
  264. $kompromatFoto = 'In this photo you are sitting infront of a guy, kissing his cock. There seems to be cum in your face. This photo must have been taken in the stripclub.'
  265. end
  266. if fotoCFNMblowjob > 0 and kompromatLife < 6:
  267. !!sucked in front of everyone
  268. kompromatLife = 6
  269. $kompromatFoto = 'In this 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.'
  270. end
  271. if stripdancesum > 0 and kompromatLife < 2:
  272. !!stripper
  273. if kompromatLife < 2:kompromatLife = 2
  274. $kompromatFoto = 'In this photo you are dancing on a pole, obviously someone photographed you, while you were on stage at the stripclub.'
  275. end
  276. if modelfoto > 0 and kompromatLife < 1:
  277. !!photo model
  278. if kompromatLife < 1:kompromatLife = 1
  279. $kompromatFoto = 'These are photos of you being naked, when you were taking pictures at the model agence.'
  280. end
  281. shameless = guy + bj + anal + hj + ((slutty + gang) * 2)
  282. moneySUM = money + karta + stolmoney
  283. cumSUM = cumbelly + cumpussy + cumass + cumlip + cumface + cumfrot + cumanus
  284. gs 'dina'
  285. gs 'din2'
  286. if husbizvradd > 5:izvratH = 1
  287. if husbharmin > 10:harakHusb = 0
  288. if clrbelo <= 0:clrbelo = 0 & tanga = 0
  289. if husband = 0:
  290. husbizvradd = 0
  291. husbharmin = 0
  292. husbandMark = 0
  293. houseslut = 0
  294. end
  295. if SNarkvnesh = 0:SNarkvnesh = 1
  296. if SNarkTimes >= SNarkvnesh * 25:
  297. SNarkvnesh += 1
  298. vidage += 1
  299. end
  300. if gopota >= 20 and gnewQW = 1:gnewQW = 2
  301. if workDisk = 4 and week > 5:workDisk = 1
  302. if workDisk = 3 and week > 5:workDiskAtkPlayer = 1
  303. VeneraN = 0
  304. if VeneraOnce > 0:VeneraOnce = 0
  305. if SifacOnce = 1:VeneraN += 1
  306. if GerpesOnce = 1:VeneraN += 1
  307. if TriperOnce = 1:VeneraN += 1
  308. Venera = VeneraN
  309. if fat < 0:fat = 0
  310. if vokal < 0:vokal = 0
  311. if vokal > 100:vokal = 100
  312. if dance > 100:dance = 100
  313. if stripdance > 100:stripdance = 100
  314. if poledance > 100:poledance = 100
  315. !'
  316. if libonce = 0:
  317. libonce = 1
  318. addqst 'lib/otg_lib_menu_eng.qsp'
  319. end
  320. if youngshoponce = 0:
  321. youngshoponce = 1
  322. addqst 'youngshop.qsp'
  323. end
  324. if qwestonce = 0:
  325. qwestonce = 1
  326. addqst 'qwest/qwest.qsp'
  327. end
  328. '!
  329. if bfa < 0:bfa = 0
  330. if painQW = 0:painweather = 6
  331. if beg < 0:beg = 0
  332. if beg > 2000:beg = 2000
  333. if oficiant > 100:oficiant = 100
  334. if vagina > 36:vagina = 36
  335. if throat > 36:throat = 36
  336. if anus > 36:anus = 36
  337. if Jab > 120:Jab = 120
  338. if Punch > 120:Punch = 120
  339. if Kik > 120:Kik = 120
  340. if KikDef > 120:KikDef = 120
  341. if nark >= 30 and narkoman = 0:
  342. narkoman = 1
  343. elseif nark = 0 and narkoman = 0:
  344. narkoman = 0
  345. end
  346. boxing = Jab + Punch + Kik + KikDef
  347. if boxing > 100:boxing = 100
  348. if stren > 100 and mutagenP = 0:stren = 100
  349. if speed > 100 and mutagenS = 0:speed = 100
  350. if agil > 100 and mutagenA = 0:agil = 100
  351. if react > 100 and mutagenR = 0:react = 100
  352. if vital > 100 and mutagenV = 0:vital = 100
  353. if will > 100 and mutagenW = 0:will = 100
  354. if intel > 100 and mutagenI = 0 and student = 0 and diplom = 0:intel = 100
  355. if stren > 150 and mutagenP = 1:stren = 150
  356. if speed > 150 and mutagenS = 1:speed = 150
  357. if agil > 150 and mutagenA = 1:agil = 150
  358. if react > 150 and mutagenR = 1:react = 150
  359. if vital > 150 and mutagenV = 1:vital = 150
  360. if will > 150 and mutagenW = 1:will = 150
  361. if intel > 150 and mutagenI = 1 and student = 0 and diplom = 0:intel = 150
  362. if stren > 200 and mutagenP = 2:stren = 200
  363. if speed > 200 and mutagenS = 2:speed = 200
  364. if agil > 200 and mutagenA = 2:agil = 200
  365. if react > 200 and mutagenR = 2:react = 200
  366. if vital > 200 and mutagenV = 2:vital = 200
  367. if will > 200 and mutagenW = 2:will = 200
  368. if intel > 200 and mutagenI = 2 and student = 0 and diplom = 0:intel = 200
  369. if stren > 250 and mutagenP = 3:stren = 250
  370. if speed > 250 and mutagenS = 3:speed = 250
  371. if agil > 250 and mutagenA = 3:agil = 250
  372. if react > 250 and mutagenR = 3:react = 250
  373. if vital > 250 and mutagenV = 3:vital = 250
  374. if will > 250 and mutagenW = 3:will = 250
  375. if intel > 250 and mutagenI = 3 and student = 0 and diplom = 0:intel = 250
  376. if intel > 250:intel = 250
  377. if MagikDostup = 0:
  378. !!!CV edition: Moved the statement after each orgasm stage to it''s own string
  379. $levelUpString = '<b>Do you feel like that might be revealed within you and you gushed magic, lifting you to a new energy level.</b>'
  380. if orgasm >= 1 and magik < 1:magik = 1 & glaraz += 1 & rikudo += 500 & pl $levelUpString
  381. if orgasm >= 2 and magik < 2:magik = 2 & resnic += 1 & rikudo += 500 & pl $levelUpString
  382. if orgasm >= 4 and magik < 3:magik = 3 & glaraz += 1 & rikudo += 500 & pl $levelUpString
  383. if orgasm >= 8 and magik < 4:magik = 4 & resnic += 1 & rikudo += 500 & pl $levelUpString
  384. if orgasm >= 16 and magik < 5:magik = 5 & glaraz += 1 & rikudo += 500 & pl $levelUpString
  385. if orgasm >= 32 and magik < 6:magik = 6 & resnic += 1 & rikudo += 1000 & pl $levelUpString
  386. if orgasm >= 64 and magik < 7:magik = 7 & glaraz += 1 & rikudo += 1000 & pl $levelUpString
  387. if orgasm >= 100 and magik < 8:magik = 8 & rikudo += 1000 & pl $levelUpString
  388. if orgasm >= 200 and magik < 9:magik = 9 & rikudo += 1000 & pl $levelUpString
  389. if orgasm >= 300 and magik < 10:magik = 10 & rikudo += 2000 & pl $levelUpString
  390. if orgasm >= 400 and magik < 11:magik = 11 & rikudo += 4000 & pl $levelUpString
  391. if orgasm >= 500 and magik < 12:magik = 12 & rikudo += 4000 & pl $levelUpString
  392. if orgasm >= 600 and magik < 13:magik = 13 & rikudo += 4000 & pl $levelUpString
  393. if orgasm >= 700 and magik < 14:magik = 14 & rikudo += 4000 & pl $levelUpString
  394. if orgasm >= 800 and magik < 15:magik = 15 & rikudo += 8000 & pl $levelUpString
  395. if orgasm >= 900 and magik < 16:magik = 16 & rikudo += 8000 & pl $levelUpString
  396. if orgasm >= 1000 and magik < 17:magik = 17 & rikudo += 8000 & pl $levelUpString
  397. if orgasm >= 1100 and magik < 18:magik = 18 & rikudo += 8000 & pl $levelUpString
  398. if orgasm >= 1200 and magik < 19:magik = 19 & rikudo += 8000 & pl $levelUpString
  399. if orgasm >= 1300 and magik < 20:magik = 20 & rikudo += 16000 & pl $levelUpString
  400. if orgasm >= 1400 and magik < 20:magik = 21 & rikudo += 21000 & pl $levelUpString
  401. !!!
  402. end
  403. if SUB >= DOM and DOM > 0:SUB = SUB - DOM & DOM = 0
  404. if DOM >= SUB and SUB > 0:DOM = DOM - SUB & SUB = 0
  405. if horny < 0:horny = 0
  406. if health > vital * 10 + stren * 5:health = vital * 10 + stren * 5
  407. if willpower > intel * 5 + will * 5:willpower = intel * 5 + will * 5
  408. if manna > (intel * magik) + magik * 100 + vital * 10 + rikudo:manna = intel * magik + magik * 100 + vital * 10 + rikudo
  409. mannamax = (intel * magik) + magik * 100 + vital * 10 + rikudo
  410. !!musle = strenbuf + vitalbuf
  411. if vidageday <= 0:
  412. vidageday = 360
  413. vidage += 1
  414. end
  415. !!!!!!!!!!!
  416. !!!TIME!!!
  417. !!!!!!!!!!!
  418. ! WD: totminut fix ~ Calculates total minutes since NYE 2000
  419. !! old calc added the value of the variable 'minut'
  420. !! not the number of minutes passed since last update
  421. !'
  422. if nminut ! minut:
  423. !!totminut playing time in minutes
  424. totminut += minut
  425. nminut = minut
  426. end
  427. '!
  428. ! Zero totminut will be at New Years Eve of 2000
  429. ! Years since 2000 in days
  430. totminut = (year - 2000) * 365
  431. ! Days this year
  432. if month > 1 : totminut += 31 & ! Jan
  433. if month > 2 : totminut += 28 & ! Feb
  434. if month > 3 : totminut += 31 & ! Mar
  435. if month > 4 : totminut += 30 & ! Apr
  436. if month > 5 : totminut += 31 & ! May
  437. if month > 6 : totminut += 30 & ! Jun
  438. if month > 7 : totminut += 31 & ! Jul
  439. if month > 8 : totminut += 31 & ! Aug
  440. if month > 9 : totminut += 30 & ! Sep
  441. if month > 10: totminut += 31 & ! Oct
  442. if month > 11: totminut += 30 & ! Nov
  443. if month > 12: totminut += 31 & ! Dec
  444. if month > 13: totminut += 31 & ! Jan rollover sanity check
  445. totminut += day
  446. ! Hours
  447. totminut = totminut * 24 + hour
  448. ! Minutes
  449. totminut = totminut * 60 + minut + sec / 60
  450. if vgape > 0:
  451. if vgape = 3:
  452. if manna > mannamax / 4:manna = mannamax / 4
  453. elseif vgape = 2:
  454. if manna > mannamax / 2:manna = mannamax / 2
  455. end
  456. if vgapetime + 2500 <= totminut:
  457. if vgape = 1:vgape = 0
  458. if vgape = 2:vgape = 1 & vgapetime = totminut
  459. if vgape = 3:vgape = 2 & vgapetime = totminut
  460. end
  461. end
  462. if agape > 0:
  463. if agape = 3:
  464. if manna > mannamax / 6:manna = mannamax / 6
  465. elseif agape = 2:
  466. if manna > mannamax / 3:manna = mannamax / 3
  467. end
  468. if agapetime + 5760 <= totminut:
  469. if agape = 1:agape = 0
  470. if agape = 2:agape = 1 & agapetime = totminut
  471. if agape = 3:agape = 2 & agapetime = totminut
  472. if anus > 1:anus -= 1
  473. end
  474. end
  475. if sec >= 60:
  476. :loopsec
  477. minut += 1
  478. sec -= 60
  479. if sec >= 60:jump 'loopsec'
  480. end
  481. if minut >= 60:
  482. :loopmin
  483. if SbrosNerdism = 1:nerdism = will / 10 + orgasm
  484. if nerdism < 0:nerdism = 0
  485. if obkvsdam > 0:obkvsdam = rand(2, 5)
  486. hour += 1
  487. energy -= 1
  488. water -= 1
  489. son -= 1
  490. minut -= 60
  491. if alko > 0 and alkoblock = 0:
  492. if alko >= 4:
  493. if beg > 0:beg -= 1
  494. if volleyboll > 0:volleyboll -= 1
  495. if alko >= 6:
  496. if stren > 10:stren -= 1 & salo += 3
  497. if vital > 10:vital -= 1 & salo += 3
  498. if intel > 10:intel -= 1
  499. alko -= alko / 2
  500. end
  501. end
  502. alko -= 1
  503. end
  504. !!!!!!!!!!!!!
  505. !!!Avtoboy!!!
  506. !!!!!!!!!!!!!
  507. if hour >= 8 and hour <= 23 and NPCnum > 10:
  508. :markturnirotbort
  509. xf = 0
  510. :markturnirotbortt
  511. xf += 1
  512. turnirFighter[xf] = rand(2, NPCnum)
  513. if xf < 2:jump 'markturnirotbortt'
  514. if turnirFighter[1] = turnirFighter[2]:jump 'markturnirotbort'
  515. a = turnirFighter[1]
  516. i = turnirFighter[2]
  517. NoView = 1
  518. gs 'Autofight'
  519. end
  520. !!!!!!!!!!!!!
  521. if shame > 0:shame -= 1 & manna -= 5
  522. if smoker >= 20:smokerNeed += 1
  523. if smokerNeed > 10 and InSleep = 0:manna -= manna * 10/100
  524. if smokerNeed > 300:smokerNeed = 0 & smoker = 0
  525. if StrongNarkota > 0:StrongNarkota -= 1
  526. if SLomka > 0:SLomka += 1 & manna -= 500
  527. if SLomka > 100 and StrongNarkota <= 0:SLomka = 0 & SNarkTimes = 0
  528. if narkoman = 1 and narkday ! day:
  529. health -= 5
  530. willpower -= 5
  531. manna -= 10
  532. end
  533. if tanga = 0 and ski =0 or glamur = 0 and tanga = 0:mosolpred += 1
  534. if mosolpred >= 10:
  535. mosol += 1
  536. mosolpred -= 10
  537. end
  538. if mosol >= 50:
  539. manna -= 5
  540. end
  541. if energy >= 25:energy -= 5 & fat += 1
  542. if tanga = 1 and mosol > 0:mosol -= 1
  543. if lipbalmstat > 0:lipbalmstat -= 1
  544. if sickstage = 1:sick += 1 & sicktimer += 1
  545. if sickstage = 1 and sicktimer >= 80:sicktimer = 0 & sickstage = 2
  546. if sickstage = 2 and sick > 0:sick -= 1
  547. if sickstage = 2 and sick <= 0:sick = 0 & sickstage = 0
  548. if perkice > 0:perkice -= 1
  549. if frost > 0:frost -= 1
  550. if KGOLpers > 0:
  551. if KGHP < KGHPMAX:KGHP += 10
  552. if KGManna < KGMannaMax:KGManna += 10
  553. end
  554. if minut >= 60:jump 'loopmin'
  555. end
  556. if hour >= 24:
  557. prezikProver += 1
  558. if pirs_pain_ton > 0:pirs_pain_ton -= 1
  559. if brow > 0 and browper = 0:brow -= 1
  560. if shorthair = 1:
  561. shorthairday += 1
  562. if shorthairday >= 45:shorthairday = 0 & shorthair = 0
  563. end
  564. if KatjaOTN > 0:
  565. if KatjaHorny > 0 and KatjaLust < 40:KatjaHorny -= rand(1, 3)
  566. if KatjaLust >= 40:KatjaHorny += rand(1, 3)
  567. if KatjaHorny < 0:KatjaHorny = 0
  568. if KatjaHorny >= 100:KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
  569. end
  570. if volleysostav > 0:trenerepa -= 1
  571. if birthday = day and birthmonth = month:
  572. !!birthday
  573. age += 1
  574. vidage += 1
  575. end
  576. ! WD: Piecing arousal is bit broken as only fires at midnight is more horny than previous night
  577. ! WD: Moved out of daily to enod of time
  578. !'
  579. if horny > hornyStat:
  580. hornyStat = horny
  581. if pirsA > 0:horny += 1
  582. if pirsB > 0:horny += 1
  583. if pirsC > 0:horny += 1
  584. if pirsD > 0:horny += 1
  585. if pirsE > 0:horny += 1
  586. if pirsF > 0:horny += 5
  587. if pirsG > 0:horny += 5
  588. if pirsN > 0:horny += 1
  589. end
  590. if horny < hornyStat:hornyStat = horny
  591. '!
  592. !!!!!!!!!!!!!!!
  593. !!!generation!!!
  594. !!!!!!!!!!!!!!!
  595. if NPCnum < 290:
  596. NPCnow = NPCnum
  597. NPCnum += rand(1, 3)
  598. gs 'npc'
  599. end
  600. if NPCnum >= 290 and NPCnum < 300:
  601. NPCnow = NPCnum
  602. NPCnum += 1
  603. gs 'npc'
  604. end
  605. !!!!!!!!!!!!!!!
  606. if kanikuli = 0:Suspeh -= 1
  607. dmishaevent = 0
  608. if BuyHous = 2 and ArendHouseSL <= 0:ArendHouseSL = 0 & BuyHous = 0 & housr = 0
  609. if BuyHous = 2 and ArendHouseSL > 0:ArendHouseSL -= 1
  610. if Gspravka <= 0 and GspravkaT > 0:GspravkaT = 0 & Gspravka = 0
  611. if GspravkaT > 0:Gspravka -= 1
  612. if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30:IvanPodstavaQW = 3
  613. if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30:PodpiskaNeviezd += 1
  614. if salo > fat:
  615. salo -= 1
  616. fat += 1
  617. elseif salo < fat:
  618. salo += 1
  619. fat -= 1
  620. end
  621. if strenbuf > stren:strenbuf -= 1
  622. if strenbuf < stren:strenbuf += 1
  623. if vitalbuf > vital:vitalbuf -= 1
  624. if vitalbuf < vital:vitalbuf += 1
  625. if agilbuf > agil:agilbuf -= 1
  626. if agilbuf < agil:agilbuf += 1
  627. if husband > 0 and husbandrink ! 11:husbandrink = rand(0, 10)
  628. inWorkYoungShop = 0
  629. husbandsexday = 0
  630. borsexkol = 0
  631. givisexday = 0
  632. if shantsr > 0:
  633. pay = shantsr * 5000
  634. karta += pay
  635. shantsr = 0
  636. end
  637. if shantbog > 0:
  638. :shantftb
  639. shantftbgrand = rand(0, 10)
  640. if shantftbgrand > 2:
  641. shantpopala += 1
  642. shantbog -= 1
  643. if shantbog > 0:jump 'shantftb'
  644. elseif shantftbgrand <= 2:
  645. karta += 30000
  646. shantbog -= 1
  647. if shantbog > 0:jump 'shantftb'
  648. end
  649. end
  650. petersexday = 0
  651. klismaday1= 0
  652. :loop
  653. day += 1
  654. daystart += 1
  655. week += 1
  656. hour -= 24
  657. !!RFP
  658. if SifacOnce = 1:Sifilis += 1
  659. if GerpesOnce = 1:Gerpes += 1
  660. if TriperOnce = 1:Triper += 1
  661. if KandidozOnce = 1:Kandidoz += 1
  662. if beg >= 100 and beg < 1000:beg -= 1
  663. if beg >= 1000 and beg < 1500:beg -= 2
  664. if beg >= 1500 and beg < 2000:beg -= 3
  665. if beg >= 2000:beg -= 4
  666. vidageday -= 1
  667. if workDolgDay > 0:workDolgDay -= 1
  668. if QWdogreiqTimer > 0:QWdogreiqTimer -= 1
  669. if husband > 0:husbanday += 1
  670. if kid > 0:kid += 1
  671. if husband > 10 and husbanday > 0:husband -= 15
  672. if fingal > 0:fingal -= 1
  673. if husbandMark = 1 and husband <= 10:
  674. husbizvradd = 0
  675. husbharmin = 0
  676. husbandMark = 0
  677. husband = 0
  678. divorced += 1
  679. if KFOnLineReaga > 0:KFOnLineReaga -= 1
  680. '<b><font color="red">Your husband has filed for a divorce.</font></b>'
  681. end
  682. gs 'cikl'
  683. if nark > 0:nark -= 1
  684. if pregtime > 10:fat += 1
  685. if hour >= 24:jump 'loop'
  686. end
  687. !!payments
  688. if day = 25:
  689. if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
  690. Pay = PersSecWorkTimes * 2500
  691. PersSecWorkTimes = 0
  692. money += Pay
  693. paydaybistrosec = 1
  694. '<b><font color="green">You have received <<pay>> rubles salary for your job as a secretary on your bank account.</font></b>'
  695. end
  696. if workKafe = 1 and paydayKafe = 0:
  697. paydayKafe = 1
  698. pay = smenaKafe * 600
  699. money += pay
  700. smenaKafe = 0
  701. '<b><font color="green">You have received <<pay>> rubles salary for your job as a waitress in a cafe on your bank account.</font></b>'
  702. end
  703. if workhosp = 1 and nopaypoly = 0:
  704. pay = smena * 1000
  705. money += pay
  706. smena = 0
  707. nopaypoly = 1
  708. '<b><font color="green">You have received <<pay>> rubles salary for your work in the clinic on your bank account.</font></b>'
  709. end
  710. if worksalon = 1 and nopaysalon = 0:
  711. pay = smena * 800
  712. money += pay
  713. smena = 0
  714. nopaysalon = 1
  715. '<b><font color="green">You have received <<pay>> rubles salary for your work in a beauty salon on your bank account.</font></b>'
  716. end
  717. if tanwork = 1 and nopaytanwork = 0:
  718. nopaytanwork = 1
  719. money += 25000
  720. '<b><font color="green">You have received a salary of 25,000 rubles for your work as a house maid on your bank account.</font></b>'
  721. end
  722. if workSec = 1 and paydaySec = 0:
  723. paydaySec = 1
  724. pay = sekDay * 800
  725. if officebestslut >= 3:pay += 20000
  726. karta += pay
  727. sekDay = 0
  728. '<b><font color="green">You have received <<pay>> rubles salary for your job as a secretary on your bank account.</font></b>'
  729. end
  730. if husband > 0 and paydayHusb = 0:
  731. paydayHusb = 1
  732. if husbFin = 0:huspay = 15000
  733. if husbFin = 1:huspay = 25000
  734. if husbFin = 2:huspay = 40000
  735. money += huspay
  736. '<b><font color="green">Your husband has sent you <<huspay>> rubles to your bank account.</font></b>'
  737. end
  738. if stipuha = 1 and stipuhaday = 0:stipuhaday = 1 & money += 1200 & '<b><font color="green">You have received 1,200 rubles scholarship.</font></b>'
  739. if housr = 1 and haday = 0:haday = 1 & money -= 3000 & '<b><font color="red">You paid 3,000 rubles for your apartment.</font></b>'
  740. if housr = 1 and electroday = 0:
  741. electroday = 1
  742. if elektro >= 800:elektro = 800 + rand(0, 100)
  743. money -= elektro
  744. '<b><font color="red">You paid <<elektro>> for electricity.</font></b>'
  745. end
  746. if housr = 1 and kabel > 0 and kabelday = 0:kabelday = 1 & money -= 300 & '<b><font color="red">You have paid 300 rubles for cable TV.</font></b>'
  747. end
  748. if day ! 25:
  749. if paydayHusb = 1:paydayHusb = 0
  750. if workKafe = 1 and paydayKafe = 1:paydayKafe = 0
  751. if workSec = 1 and paydaySec = 1:paydaySec = 0
  752. if housr = 1 and haday = 1:haday = 0
  753. if housr = 1 and electroday = 1:electroday = 0
  754. if housr = 1 and kabel > 0 and kabelday = 1:kabelday = 0
  755. if stipuhaday = 1:stipuhaday = 0
  756. if nopaytanwork = 1:nopaytanwork = 0
  757. if nopaypoly = 1:nopaypoly = 0
  758. if nopaysalon = 1:nopaysalon = 0
  759. if paydaybistrosec = 1:paydaybistrosec = 0
  760. end
  761. if sdaday = day and sdamonth = month and housr = 0:
  762. housr = 1
  763. '<b><font color="red">The term of your residental apartment lease expired.</font></b>'
  764. end
  765. if month = 1 or month = 3 or month = 5 or month = 7 or month = 8 or month = 10 or month = 12:
  766. !!31
  767. if day > 31:day -= 31 & month += 1
  768. elseif month = 2:
  769. !!28
  770. if day > 28:day -= 28 & month += 1
  771. elseif month = 0:
  772. month = 1
  773. if day > 31:day -= 31 & month += 1
  774. elseif month = 13:
  775. month = 1
  776. if day > 31:day -= 31 & month += 1
  777. else
  778. !!30
  779. if day > 30:day -= 30 & month += 1
  780. end
  781. !'
  782. if day > 30:
  783. day -= 30
  784. month += 1
  785. end
  786. '!
  787. if day = 0:day = 1
  788. if week > 7:
  789. :loopweek
  790. week -= 7
  791. husbandrink = 0
  792. if military = 1:military = 0
  793. if week > 7:jump 'loopweek'
  794. end
  795. if week = 1:$week = 'Monday'
  796. if week = 2:$week = 'Tuesday'
  797. if week = 3:$week = 'Wednesday'
  798. if week = 4:$week = 'Thursday'
  799. if week = 5:$week = 'Friday'
  800. if week = 6:$week = 'Saturday'
  801. if week = 7:$week = 'Sunday'
  802. if month = 0:month = 1
  803. if month = 13:month = 1 & year += 1
  804. If month = 1:$month = 'January' & $mons = 'January'
  805. If month = 2:$month = 'February' & $mons = 'February'
  806. If month = 3:$month = 'March' & $mons = 'Martha'
  807. If month = 4:$month = 'April' & $mons = 'April'
  808. If month = 5:$month = 'May' & $mons = 'May'
  809. If month = 6:$month = 'June' & $mons = 'June'
  810. If month = 7:$month = 'July' & $mons = 'July'
  811. If month = 8:$month = 'August' & $mons = 'August'
  812. If month = 9:$month = 'September' & $mons = 'September'
  813. If month = 10:$month = 'October' & $mons = 'October'
  814. If month = 11:$month = 'November' & $mons = 'November'
  815. If month = 12:$month = 'December' & $mons = 'December'
  816. if minut < 10:$nilmin = '0'
  817. if minut >= 10:$nilmin = ''
  818. if kid > 0:
  819. if year > yearkid[1] and markyear[1] ! year:
  820. if monthkid[1] = month and daykid[1] = day:
  821. markyear[1] = year
  822. kidage[1] += 1
  823. end
  824. end
  825. end
  826. !!moodlet
  827. !!mannamax
  828. !!totminut
  829. if Mud >= totminut:
  830. manna = mannamax
  831. $mud = 'You feel buoyed.'
  832. else
  833. $mud = ''
  834. end
  835. if nerdism > 0:
  836. if lastreadday = daystart:
  837. !!<font color="green">You are completely healthy shine and a healthy glow.</font>
  838. manna = mannamax
  839. SbrosNerdism = 0
  840. $mudnerd = '<font color="green">You are lost in a fantasy after reading the book.</font>'
  841. end
  842. if lastreadday + 1 = daystart:
  843. !!manna = mannamax
  844. SbrosNerdism = 0
  845. $mudnerd = '<font color="black">You a little bored and want to again plunge into a book.</font>'
  846. end
  847. if lastreadday + 2 = daystart:
  848. SbrosNerdism = 0
  849. if manna > mannamax / 2:manna -= 10
  850. $mudnerd = '<font color="red">Do you really want something to read.</font>'
  851. end
  852. if lastreadday + 3 <= daystart:
  853. if manna > mannamax / 10:manna -= 10
  854. SbrosNerdism = 1
  855. $mudnerd = '<font color="red"><b>You terribly want at least something to read!!!</b></font>'
  856. end
  857. !!$mudnerd += 'lastread<<lastread>> totminut<<totminut>> <<totminut - lastread>>'
  858. else
  859. SbrosNerdism = 0
  860. $mudnerd = ''
  861. end
  862. !
  863. ! WD: Triggers every 15 minutes if not sleeping
  864. ! Update to remove long iterations on loading saves from previous versions
  865. ! Do Nothing if sleeping, invalid Trig15Minute value or more than 6 hours 16 minute pass
  866. if InSleep ! 0 or Trig15Minute > totminut or (totminut - Trig15Minute) >= 376:
  867. set Trig15Minute = totminut
  868. ! More than 15 minutes since last check
  869. else
  870. if (totminut - Trig15Minute) >= 15:
  871. ! begin Loop
  872. :Trig15MinuteLoop
  873. ! Horny Actions
  874. if horny > 100:
  875. set Trig15Minute = totminut
  876. else
  877. set Trig15Minute += 15
  878. ! WD: Fix vibrator arousal to trigger every 15 minutes, moved from 'time' location
  879. if vibratorin = 1:horny += rand(1, 5)
  880. ! WD: Fixed Piecing arousal to trigger every 15 minutes, instead of once per day
  881. if horny < 70:
  882. hornyStat = pirsA + pirsB + pirsC + pirsD + pirsE + pirsN + (pirsF + pirsG) * 5
  883. set horny += hornyStat / 4 + rand(1,4) <= hornyStat mod 4 & ! Apply 1/4 of value on average
  884. end
  885. ! WD: Clothing
  886. if Sexual = 1 and horny < 70:set horny += rand(0, 2)
  887. if glamur = 1 and horny < 50:set horny += rand(0, 1)
  888. end
  889. ! do loop
  890. if (totminut - Trig15Minute) >= 15:jump 'Trig15MinuteLoop'
  891. end
  892. end
  893. !!!!!!!!!!!!!!!!!!!
  894. !!!end OF TIME!!!
  895. !!!!!!!!!!!!!!!!!!!
  896. subage = 0
  897. :metakasubage
  898. subage += 10
  899. if subage + 10 < age:
  900. jump 'metakasubage'
  901. else
  902. subage = age - subage
  903. end
  904. if subage = 0 or subage >= 5:
  905. $letgoda = 'years'
  906. elseif subage = 1:
  907. $letgoda = 'year'
  908. else
  909. $letgoda = 'year'
  910. end
  911. subagevne = 0
  912. :metakasubagevne
  913. subagevne += 10
  914. if subagevne + 10 < vidage:
  915. jump 'metakasubagevne'
  916. else
  917. subagevne = vidage - subagevne
  918. end
  919. if subagevne ! 1:
  920. $letgoda2 = 'years'
  921. else
  922. $letgoda2 = 'year'
  923. end
  924. !!!!!!!!!!!!!
  925. !!!ENERGY!!!
  926. !!!!!!!!!!!!!
  927. if son < 0:
  928. son = 0
  929. manna -= 5
  930. end
  931. if energy < 0:
  932. energy = 0
  933. health -= 1
  934. if fat = 0 and stren + vital > 0:
  935. stren -= 1
  936. vital -= 1
  937. energy += 2
  938. elseif fat = 0 and stren + vital <= 0:
  939. over = 3
  940. gt 'gameover'
  941. exit
  942. elseif fat > 0:
  943. fat -= 1
  944. energy += 2
  945. end
  946. end
  947. if water < 0:
  948. water = 1
  949. health -= 5
  950. willpower -= 1
  951. end
  952. if manna <= 0:
  953. manna = 1
  954. health -= 5
  955. willpower -= 5
  956. !!fat += 1
  957. end
  958. if health < 0:
  959. over = 1
  960. gt 'gameover'
  961. exit
  962. end
  963. if willpower < 0 and StoryLine = 0:
  964. over = 2
  965. gt 'gameover'
  966. exit
  967. end
  968. if saloonce = 0 and opPRE = 0:
  969. saloonce = 1
  970. salo = fat
  971. strenbuf = stren
  972. vitalbuf = vital
  973. agilbuf = agil
  974. end
  975. gs 'body'
  976. !!!!!!!!!!!!!
  977. if health = vital * 10 + stren * 5:$health = '<font color="green">You are very healthy.</font>'
  978. if willpower = intel * 5 + will * 5:$willpower = '<font color="green">Your mind is clear.</font>'
  979. if manna = intel * magik + magik * 100 + vital * 10 + rikudo:$manna = '<font color="green">You are in a good mood.</font>'
  980. if health < vital * 10 + stren * 5 and health >= (vital * 10 + stren * 5) * 75 / 100:$health = '<font color="blue">You are healthy.</font>'
  981. if health < (vital * 10 + stren * 5) * 75 / 100 and health >= (vital * 10 + stren * 5) * 50 / 100:$health = '<font color="brown">you are not healthy.</font>'
  982. if health < (vital * 10 + stren * 5) * 50 / 100 and health >= (vital * 10 + stren * 5) * 25 / 100:$health = '<font color="red">You are sick.</font>'
  983. if health < (vital * 10 + stren * 5) * 25 / 100:$health = '<font color="red">You are on the verge of death.'
  984. if willpower < intel * 5 + will * 5 and willpower >= (intel * 5 + will * 5) * 75 / 100:$willpower = '<font color="blue">You are mostly in thought.</font>'
  985. if willpower < (intel * 5 + will * 5) * 75 / 100 and willpower >= (intel * 5 + will * 5) * 50 / 100:$willpower = '<font color="brown">You are depressed.</font>'
  986. if willpower < (intel * 5 + will * 5) * 50 / 100 and willpower >= (intel * 5 + will * 5) * 25 / 100:$willpower = '<font color="red">You are in depression.</font>'
  987. if willpower < (intel * 5 + will * 5) * 25 / 100:$willpower = '<font color="red">You are on the verge of madness.</font>'
  988. if manna < intel * magik + magik * 100 + vital * 10 + rikudo and manna >= (intel * magik + magik * 100 + vital * 10 + rikudo) * 75 / 100:$manna = '<font color="blue">You have a normal mood.</font>'
  989. if manna < (intel * magik + magik * 100 + vital * 10 + rikudo) * 75 / 100 and manna >= (intel * magik + magik * 100 + vital * 10 + rikudo) * 50 / 100:$manna = '<font color="brown">You are in a bad mood.</font>'
  990. if manna < (intel * magik + magik * 100 + vital * 10 + rikudo) * 50 / 100 and manna >= (intel * magik + magik * 100 + vital * 10 + rikudo) * 25 / 100:$manna = '<font color="red">You are in a terrible mood.</font>'
  991. if manna < (intel * magik + magik * 100 + vital * 10 + rikudo) * 25 / 100:$manna = '<font color="red">Your mood is below any skirting and urban sanitation.</font>'
  992. if energy >= 20:$energy = '<font color="green">You couldn''t eat one more bite.</font>'
  993. if energy < 20 and energy >= 10:$energy = '<font color="blue">You''re not really hungry, but a small snack would be very welcome.</font>'
  994. if energy < 10 and energy >= 2:$energy = '<font color="brown">You are hungry.</font>'
  995. if energy < 2:$energy = '<font color="red">You are very hungry.</font>'
  996. if water >= 20:$water = '<font color="green">You are not thirtsy at all.</font>'
  997. if water < 20 and water >= 10:$water = '<font color="blue">You are slightly thirsty.</font>'
  998. if water < 10 and water >= 2:$water = '<font color="brown">You are thirsty.</font>'
  999. if water < 2:$water = '<font color="red">You are very thirsty.</font>'
  1000. if son >= 20:$son = '<font color="green">You are well rested.</font>'
  1001. if son < 20 and son >= 10:$son = '<font color="blue">You are slightly tired.</font>'
  1002. if son < 10 and son >= 2:$son = '<font color="brown">You are tired.</font>'
  1003. if son < 2:$son = '<font color="red">You are very tired.</font>'
  1004. $din_shame = {
  1005. !!dynamic din_shame
  1006. !!shame += 1
  1007. !!if shame >= 5:shame = 4 & shameless += 1
  1008. !!if shame >= 4:$shame = '<font color="red"><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
  1009. !!if shame = 3:$shame = '<font color="red">Your cheeks are red from the blush of shame.</font>'
  1010. !!if shame = 2:$shame = '<font color="brown">You nemnog opokrasneli shame.</font>'
  1011. !!if shame = 1:$shame = '<font color="green">You''re a little confused.</font>'
  1012. !!if shame <= 0:$shame = '<font color="green">You''re a little confused.</font>'
  1013. !!gs 'stat'
  1014. }
  1015. !!if shame >= 5:shame = 4 & shameless += 1
  1016. !!if shame >= 4:$shame = '<font color="red"><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
  1017. !!if shame = 3:$shame = '<font color="red">Your cheeks are red from the blush of shame.</font>'
  1018. !!if shame = 2:$shame = '<font color="brown">You nemnog opokrasneli shame.</font>'
  1019. !!if shame = 1:$shame = '<font color="green">You''re a little confused.</font>'
  1020. !!if shame <= 0:$shame = '<font color="green">You''re a little confused.</font>'
  1021. $holyday = ''
  1022. kanikuli = 0
  1023. if (month = 10 and day >= 27) or (month = 11 and day <= 4):$holyday = '<b>Autumn holidays.</b>' & kanikuli = 1
  1024. if (month = 12 and day >= 29) or (month = 1 and day <= 13):$holyday = '<b>Winter Break.</b>' & kanikuli = 2
  1025. if (month = 3 and day >= 25):$holyday = '<b>Spring Break.</b>' & kanikuli = 3
  1026. if (month = 5 and day >= 25) or month = 6 or month = 7 or month = 8:$holyday = '<b>Summer holidays.</b>' & kanikuli = 4
  1027. if month = 1 and day = 1:$holyday = '<b>New Year!</b>' & kanikuli = 5
  1028. if hour >= 8 and hour < 16 and week < 6 and StoryLine > 0 and SchoolAtestat = 0 and kanikuli = 0 and schoolProgulDay ! day:
  1029. !!absence from school
  1030. schoolprogul += 1
  1031. schoolProgulDay = day
  1032. end
  1033. !!!!!!!!!!!!!!!!!!!!!
  1034. !!!Beginning Description!!!
  1035. !!!!!!!!!!!!!!!!!!!!!
  1036. !!pl 'time <b><<hour>></b> hours <b><<$nilmin>><<minut>></b> minutes'
  1037. !!pl 'At_The_Moment <<day>> <<$month>> <<year>>year, <<$week>>.'
  1038. if hour < 10:
  1039. if minut > 9 :
  1040. pl '<b> 0<<hour>>:<<minut>></b> <<$week>> <<day>> <<$mons>> <<year>>'
  1041. else
  1042. pl '<b> 0<<hour>>:0<<minut>></b> <<$week>> <<day>> <<$mons>> <<year>>'
  1043. end
  1044. else
  1045. if minut > 9 :
  1046. pl '<b> <<hour>>:<<minut>></b> <<$week>> <<day>> <<$mons>> <<year>>'
  1047. else
  1048. pl '<b> <<hour>>:0<<minut>></b> <<$week>> <<day>> <<$mons>> <<year>>'
  1049. end
  1050. end
  1051. pl '<b><<money>></b> rubles in your wallet.'
  1052. if karta > 0:pl '<b><<karta>></b> rubles in your bank account.'
  1053. if stolmoney > 0:pl '<b><<stolmoney>></b> rubles in your table drawer.'
  1054. if StoryLine > 0 and SchoolAtestat = 0:pl '<<$holyday>>'
  1055. if birthday = day and birthmonth = month:pl '<b>Today is your birthday.</b>'
  1056. !!if shame > 0:pl '<<$shame>>'
  1057. pl '<b><<$manna>></b>'
  1058. if horny >= 90:pl '<font color="#FF1493">It takes an incredible amount of willpower not to touch yourself all the time.</font>'
  1059. if horny >= 50 and horny < 90:pl '<font color="#DB7093">You have trouble focusing at times, as your mind drifts to sex.</font>'
  1060. if ETOmenu = 1:
  1061. pl '<b><<$health>></b>'
  1062. pl '<b><<$willpower>></b>'
  1063. pl '<b><<$energy>></b>'
  1064. pl '<b><<$water>></b>'
  1065. pl '<b><<$son>></b>'
  1066. else
  1067. a = horny
  1068. !!a1 = horny
  1069. gs 'indik', '2'
  1070. pl '<<$ind>> Arousal'
  1071. healthmax = (vital * 10 + stren * 5)
  1072. a = health * 100 / healthmax
  1073. a1 = health
  1074. gs 'indik', '1'
  1075. pl '<<$ind>> Health'
  1076. willpowermax = intel * 5 + will * 5
  1077. a = willpower * 100 / willpowermax
  1078. a1 = willpower
  1079. gs 'indik', '1'
  1080. pl '<<$ind>> Willpower'
  1081. a = manna * 100 / mannamax
  1082. a1 = manna
  1083. gs 'indik', '1'
  1084. pl '<<$ind>> Mood'
  1085. a = energy * 4
  1086. a1 = energy
  1087. gs 'indik', '1'
  1088. pl '<<$ind>> Hunger'
  1089. a = water * 5
  1090. a1 = water
  1091. gs 'indik', '1'
  1092. pl '<<$ind>> Thirst'
  1093. a = son * 4
  1094. a1 = son
  1095. gs 'indik', '1'
  1096. pl '<<$ind>> Sleep'
  1097. end
  1098. $smoker = {
  1099. siga -= 1
  1100. smoker += 1
  1101. smokeHour = hour
  1102. smokeDay = day
  1103. smokeminut = minut + 5
  1104. smokeNeed = 0
  1105. manna += 100
  1106. wipo += 100
  1107. if energy < 20:energy += 3
  1108. gs 'stat'
  1109. }
  1110. if $mud ! '':pl '<font color="green"><b><<$mud>></b></font>'
  1111. if siga <= 0 and smoker >= 20:pl '<font color="red"><b>You have run out of cigarettes.</b></font>'
  1112. if smokeNeed > 0 and siga > 0 and smoker >= 20:
  1113. pl '<a href="exec:dynamic $smoker"><font color="red"><b>You want to smoke. You have <<siga>> cigarettes left</b></font></a>'
  1114. elseif siga > 0 and smoker >= 20:
  1115. pl '<a href="exec:dynamic $smoker"><font color="blue"><b>You have <<siga>> cigarettes left</b></font></a>'
  1116. end
  1117. if siga > 0 and smoker < 20:
  1118. if smokeHour = hour and smokeday = day and smokeminut >= minut:
  1119. else
  1120. pl '<a href="exec:dynamic $smoker"><font color="blue"><b>You have <<siga>> cigarettes left</b></font></a>'
  1121. end
  1122. end
  1123. if smokeHour = hour and smokeday = day and smokeminut >= minut:pl '<font color="green">You are smoking a cigarette</font>'
  1124. if pirs_pain_ton > 0:
  1125. if pirs_pain_ton = 1:pl '<font color="red">You have aches language and it is a little swollen.</font>'
  1126. if pirs_pain_ton = 2:pl '<font color="red">You often aches language and it is noticeably swollen.</font>'
  1127. if pirs_pain_ton > 2:pl '<font color="red"><b>Do you have a sore tongue, he was very swollen and almost tossed in the mouth.</b></font>'
  1128. end
  1129. if nippain > 0:pl '<font color="red"><b><<$nippain>></b></font>'
  1130. if painpub > 0:pl '<font color="red"><b><<$painpub>></b></font>'
  1131. if opPRE = 0:pl '<<$mop>> and your hair is <<$hapri>>.'
  1132. if sweat = 1:pl '<font color="brown">You''re sweating.</font>'
  1133. if sweat = 2:pl '<font color="red">You are a little smelly.</font>'
  1134. if sweat = 3:pl '<font color="red">You stink.</font>'
  1135. if sweat > 3:pl '<b><font color="red">You stink.</font></b>'
  1136. if isprok = 0 and mesec > 0 and preg = 0:pl '<b><font color="red">You are bleeding between your legs, urgently need a tampon.</font></b>'
  1137. if isprok = 1 and mesec > 0 and preg = 0:pl 'You are having your period.'
  1138. if preg = 1 and pregtime = 280:pl '<b><font color="red">You urgently need to go to the hospital</font></b>'
  1139. if preg = 1:rodtime = 280 - pregtime
  1140. if preg = 1 and pregtime < 280 and pregtime > 6:pl '<b><font color="blue">You have been pregnant for <<pregtime>> days. Days until delivery <<rodtime>></font></b>'
  1141. if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1:pl '<b><font color="red">You have a work shift as a waitress in a cafe</font></b>'
  1142. if hour >= 8 and hour < 9 and week < 5 and workSec >= 1:pl '<b><font color="red">You have a work shift as a secretary</font></b>'
  1143. if PersSecWork = 1 and week < 6 and hour < 10 and hour >= 5:pl '<b><font color="red">You have a work shift as a secretary</font></b>'
  1144. $cumeater = {
  1145. cumlip += 1
  1146. vaf += 1
  1147. cumbelly = 0
  1148. gs 'stat'
  1149. 'You have collected sperm from fingers and licked their stomach felt tart taste of semen.'
  1150. }
  1151. $cumeater2 = {
  1152. cumlip += 1
  1153. vaf += 1
  1154. cumpussy = 0
  1155. gs 'stat'
  1156. 'You have collected sperm from fingers pussy and licked them feeling tart taste of semen.'
  1157. }
  1158. $cumeater3 = {
  1159. cumlip += 1
  1160. vaf += 1
  1161. cumass = 0
  1162. gs 'stat'
  1163. 'You have collected sperm from fingers and licked their buttocks felt tart taste of semen.'
  1164. }
  1165. $cumeater4 = {
  1166. cumlip += 1
  1167. vaf += 1
  1168. cumface = 0
  1169. gs 'stat'
  1170. 'You have collected fingers semen from her face and licked them feeling tart taste of semen.'
  1171. }
  1172. $cumeater5 = {
  1173. cumlip += 1
  1174. vaf += 1
  1175. cumfrot = 0
  1176. gs 'stat'
  1177. 'You have collected sperm from fingers and licked their clothes felt tart taste of semen.'
  1178. }
  1179. $cumeater6 = {
  1180. cumlip += 1
  1181. vaf += 1
  1182. cumanus = 0
  1183. gs 'stat'
  1184. 'You have collected fingers semen out of the anus and lick their feeling tart taste of semen.'
  1185. }
  1186. !!'<a href="exec:view''images/body/cumface.jpg''">лицо</a>'
  1187. !!'<a href="exec:view''images/body/cumface.jpg''"><b><font color="red">Your face</font></b></a>'
  1188. !!'<a href="exec:view''images/body/cumass.jpg''"><b><font color="red">Your ass</font></b></a>'
  1189. if cumbelly > 0 and swallow < 10:pl '<b><font color="red">Your <a href="exec:view''images/body/cumbelly.jpg''">stomach</a> is smeared with sperm.</font></b>'
  1190. if cumbelly > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumbelly.jpg''"><b><font color="red">Your stomach</font></b></a> <a href="exec:dynamic $cumeater"><b><font color="red">is smeared with sperm.</font></b></a>'
  1191. if cumpussy > 0 and swallow < 10:pl '<b><font color="red">Sperm slowly flows from your <a href="exec:view''images/body/cumpussy.jpg''">pussy</a>.</font></b>'
  1192. if cumpussy > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumpussy.jpg''"><b><font color="red"><a href="exec:dynamic $cumeater2">Sperm slowly flows</a> from your pussy</font></b></a>.'
  1193. if cumass > 0 and swallow < 10:pl '<b><font color="red">Your <a href="exec:view''images/body/cumass.jpg''">ass</a> is smeared with semen.</font></b>'
  1194. if cumass > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumass.jpg''"><b><font color="red">Your ass</font></b></a> <a href="exec:dynamic $cumeater3"><b><font color="red">is smeared with semen.</font></b></a>'
  1195. if cumlip > 0:pl '<b><font color="red">Your mouth smells like sperm.</font></b>'
  1196. if cumface > 0 and swallow < 10:pl '<b><font color="red">Your <a href="exec:view''images/body/cumface.jpg''">face</a> and hair are smeared with sperm.</font></b>'
  1197. if cumface > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumface.jpg''"><b><font color="red">Your face</font></b></a> <a href="exec:dynamic $cumeater4"><b><font color="red">and hair are smeared with sperm.</font></b></a>'
  1198. ! WD: Move missing Image ~ "cumfrot.jpg" from "images\picb" to "images\Body"
  1199. if cumfrot > 0 and swallow < 10:pl '<b><font color="red">You have semen stains on your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</font></b>'
  1200. if cumfrot > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumfrot.jpg''"><b><font color="red">You have <a href="exec:dynamic $cumeater5"><b><font color="red">semen stains</font></b></a> on your clothes</font></b></a>.'
  1201. if cumanus > 0 and swallow < 10:pl '<b><font color="red">Sperm slowly flows from your <a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
  1202. if cumanus > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumanal.jpg''"><b><font color="red"><a href="exec:dynamic $cumeater6">Sperm slowly flows</a> from your ass</font></b></a>.'
  1203. if vgape = 3:pl '<b><font color="red">You have very sore vagina, you can hardly even walk, while trying to keep your feet apart.</font></b>'
  1204. if vgape = 2:pl '<b><font color="red">You have a sore vagina and you can hardly keep your feet together.</font></b>'
  1205. if vgape = 1:pl '<b><font color="red">You have a slightly sore vagina.</font></b>'
  1206. if agape = 3:pl '<b><font color="red">You have very sore anus and it emits blood.</font></b>'
  1207. if agape = 2:pl '<b><font color="red">You have a sore anus.</font></b>'
  1208. if agape = 1:pl '<b><font color="red">You have a slightly sore and itchy anus.</font></b>'
  1209. if Gerpes >= 3:pl '<b><font color="red">On your lips sores. All signs of genital herpes.</font></b>'
  1210. if Gerpes < 10 and Gerpes >= 5:pl '<b><font color="red">Your pussy flushed and highly itchy. This genital herpes.</font></b>'
  1211. if Gerpes >= 10:pl '<b><font color="red">On your pussy sores appeared. This genital herpes.</font></b>'
  1212. if Gerpes >= 20:pl '<b><font color="red">cover your ass sores of genital herpes.</font></b>'
  1213. if Sifilis >= 21 and Sifilis < 50:pl '<b><font color="red">You have jumped big, hard sore on the lip.</font></b>'
  1214. if Sifilis >= 50:pl '<b><font color="red">syphilitic rash covers your whole body.</font></b>'
  1215. if Triper > 2:pl '<b><font color="red">From the vaginal white discharge come out strong and stinging when urinating. Just out of the vagina hard and nasty smells.</font></b>'
  1216. if Kandidoz > 30:pl '<b><font color="red">Do you thrush.</font></b>'
  1217. if SLomka > 0:pl '<b><font color="red">You are very bad and hurt all the bones. Do you break-up</font></b>'
  1218. if narkday ! day and narkoman = 1:pl '<b><font color="red">You are very bad and hurt all the bones. Urgently need pale lady</font></b>'
  1219. if fingal > 0:pl '<b><font color="red">You have a black eye on the face.</font></b>'
  1220. if cloth_vid = 1:
  1221. pl '<b><a href="exec:dynamic $din_exhibiTakeOffBimbo">You are dressed in the image bimbo</a></b>'
  1222. end
  1223. if exhibi >= 4 and exhibiHideNewCloth ! 1:
  1224. pl '<b><a href="exec:dynamic $din_exhibiHideNewCloth">You have opened a new outfit ready</a></b>'
  1225. end
  1226. if tanga = 0 and ski = 1 or tanga = 0 and glamur = 1:
  1227. pl '<b><font color="red">blush of shame fills your face, you do not put her panties and now from under your short skirt sparkles sometimes naked ass.</font></b>'
  1228. elseif tanga = 0 and ski = 0 and glamur = 0 and opPRE = 0 and $clothingworntype ! 'nude':
  1229. pl '<b><font color="red">you do not put panties.</font></b>'
  1230. end
  1231. if mosol >= 30 and mosol < 50:pl '<b><font color="red">Pisya flushed and itchy, it seems you are rubbed by clothing.</font></b>'
  1232. if mosol >= 50:pl '<b><font color="red">Pisya hurts and each step is given through the pain, she Crimson and visible scuffs from walking without underwear.</font></b>'
  1233. if analplugIN = 1:pl '<b><font color="red">You have inserted your butt plug into your ass.</font></b>'
  1234. if vibratorin = 1:pl '<b><font color="red">You have inserted your vibrator into your vagina.</font></b>'
  1235. if young_shop_work = 1 and hour = 14 and week < 6:pl '<b><font color="red">At 15 o''clock you have to be at work in the shop Keys Pussy.</font></b>'
  1236. if young_shop_work = 1 and hour = 16 and week < 6 and inWorkYoungShop = 0:young_shop_miss += 1 & pl '<b><font color="red">You squandered work.</font></b>'
  1237. if workrin = 1:
  1238. if week = 2 or week = 4 or week = 6:
  1239. if hour = 7:pl '<b><font color="red">At 8 o''clock you work on the market.</font></b>'
  1240. if hour = 8:pl '<b><font color="red">You need to work on the market.</font></b>'
  1241. end
  1242. end
  1243. if frost > 0 and frost <= 5:pl '<b><font>You have a little chilly.</font></b>'
  1244. if frost > 5 and frost < 11:pl '<b><font color="red">Are you cold.</font></b>'
  1245. if frost >= 11:pl '<b><font color="red">You are very cold.</font></b>'
  1246. if sick = 1:pl '<b><font color="red">you that is not good, tickle in the throat and a little runny nose.</font></b>'
  1247. if sick > 1 and sick < 24:pl '<b><font color="red">you chills. You flowing from the nose and throat was raw, you cough and sneeze - it looks like you got cold.</font></b>'
  1248. if sick >= 24 and sick < 48:pl '<b><font color="red">You have a fever. You clogged nose, it hurts to swallow - throat aches. You continually cough and sneeze - it looks like you prosudilis.</font></b>'
  1249. if sick >= 48 and sick < 72:pl '<b><font color="red">You have a high fever. You have a stuffy nose, sore head and throat, coughing badly you - it sounds like you got a strong cold. Maybe it''s the flu.</font></b>'
  1250. if sick >= 72:pl '<b><font color="red">you toss in the heat. You have a stuffy nose, headache and aching all the bones. Your throat is inflamed and very sore. You heavily with anguish cough - it sounds like you are seriously ill. Maybe it''s a sore throat.</font></b>'
  1251. if $mudnerd ! '':pl '<<$mudnerd>>'
  1252. if hour < meethour and svidanieA = 1:pl '<<$boyA>> will be waiting for you near your home at <<meethour>> hours'
  1253. if hour = meethour and svidanieA = 1:pl '<b><font color="red"><<$boyA>> is waiting for you around the house.</font></b>'
  1254. if meetday < daystart and svidanieA = 1:bfA -= 10 & svidanieA = 0
  1255. if StrongNarkota > 20:pl '<b><font color="red">You are stoned.</font></b>'
  1256. if alko > 0:
  1257. if alko < 3:pl '<b><font color="red">You''re a little dizzy.</font></b>'
  1258. if alko >= 3 and alko < 6:pl '<b><font color="red">You''re drunk.</font></b>'
  1259. if alko >= 6:pl '<b><font color="red">You''re wasted.</font></b>'
  1260. end
  1261. if day = 29 and month = 12 and year = 2010 and StoryLine = 1:
  1262. if hour >= 5 and hour <= 14:pl 'At 14 o''clock a New Year''s party will be held.'
  1263. end
  1264. gs 'din_bad'
  1265. if bag > 0:pl '<a href="exec:dynamic $d_bag"><b>Handbag</b></a>'
  1266. !!zero checks marriage
  1267. proverka1 = 0
  1268. proverka2 = 0
  1269. proverka3 = 0
  1270. proverka4 = 0
  1271. proverka5 = 0
  1272. !!clothing repair, for old saved.
  1273. if remdrop = 0:
  1274. remdrop = 1
  1275. if jeans = 1:jeans[1] = 1 & jeansH[1] = 50 & jeansB[1] = bedra
  1276. if jeans2 = 1:jeans[2] = 1 & jeansH[2] = 50 & jeansB[2] = bedra
  1277. if jeans3 = 1:jeans[3] = 1 & jeansH[3] = 50 & jeansB[3] = bedra
  1278. if jeans4 = 1:jeans[4] = 1 & jeansH[4] = 50 & jeansB[4] = bedra
  1279. if jeans5 = 1:jeans[5] = 1 & jeansH[5] = 50 & jeansB[5] = bedra
  1280. if yoga = 1:yoga[1] = 1 & yogaH[1] = 50
  1281. if yoga2 = 1:yoga[2] = 1 & yogaH[2] = 50
  1282. if yoga3 = 1:yoga[3] = 1 & yogaH[3] = 50
  1283. if yoga4 = 1:yoga[4] = 1 & yogaH[4] = 50
  1284. if yoga5 = 1:yoga[5] = 1 & yogaH[5] = 50
  1285. if yoga6 = 1:yoga[6] = 1 & yogaH[6] = 50
  1286. if yoga7 = 1:yoga[7] = 1 & yogaH[7] = 50
  1287. if yoga8 = 1:yoga[8] = 1 & yogaH[8] = 50
  1288. if yoga9 = 1:yoga[9] = 1 & yogaH[9] = 50
  1289. if yoga10 = 1:yoga[10] = 1 & yogaH[10] = 50
  1290. if yoga11 = 1:yoga[11] = 1 & yogaH[11] = 50
  1291. if yoga12 = 1:yoga[12] = 1 & yogaH[12] = 50
  1292. if yoga13 = 1:yoga[13] = 1 & yogaH[13] = 50
  1293. if yoga14 = 1:yoga[14] = 1 & yogaH[14] = 50
  1294. if yoga15 = 1:yoga[15] = 1 & yogaH[15] = 50
  1295. if yoga16 = 1:yoga[16] = 1 & yogaH[16] = 50
  1296. if yoga17 = 1:yoga[17] = 1 & yogaH[17] = 50
  1297. if yoga18 = 1:yoga[18] = 1 & yogaH[18] = 50
  1298. if sarafan = 1:sarafan[1] = 1 & sarafanH[1] = 50
  1299. if sarafan2 = 1:sarafan[2] = 1 & sarafanH[2] = 50
  1300. if short = 1:short[1] = 1 & shortH[1] = 50 & shortB[1] = bedra
  1301. if short2 = 1:short[2] = 1 & shortH[2] = 50 & shortB[2] = bedra
  1302. if short3 = 1:short[3] = 1 & shortH[3] = 50 & shortB[3] = bedra
  1303. if short4 = 1:short[4] = 1 & shortH[4] = 50 & shortB[4] = bedra
  1304. if short5 = 1:short[5] = 1 & shortH[5] = 50 & shortB[5] = bedra
  1305. if skirt = 1:skirt[1] = 1 & skirtH[1] = 50 & skirtB[1] = bedra
  1306. if skirt2 = 1:skirt[2] = 1 & skirtH[2] = 50 & skirtB[2] = bedra
  1307. if skirt3 = 1:skirt[3] = 1 & skirtH[3] = 50 & skirtB[3] = bedra
  1308. if skirt4 = 1:skirt[4] = 1 & skirtH[4] = 50 & skirtB[4] = bedra
  1309. if skirt5 = 1:skirt[5] = 1 & skirtH[5] = 50 & skirtB[5] = bedra
  1310. if dress = 1:dress[1] = 1 & dressH[1] = 100 & dressB[1] = bedra
  1311. if dress2 = 1:dress[2] = 1 & dressH[2] = 100 & dressB[2] = bedra
  1312. if dress3 = 1:dress[3] = 1 & dressH[3] = 100 & dressB[3] = bedra
  1313. if dress4 = 1:dress[4] = 1 & dressH[4] = 100 & dressB[4] = bedra
  1314. if dress5 = 1:dress[5] = 1 & dressH[5] = 100 & dressB[5] = bedra
  1315. if dress6 = 1:dress[6] = 1 & dressH[6] = 100 & dressB[6] = bedra
  1316. if dress7 = 1:dress[7] = 1 & dressH[7] = 100 & dressB[7] = bedra
  1317. if dress8 = 1:dress[8] = 1 & dressH[8] = 100 & dressB[8] = bedra
  1318. if dress9 = 1:dress[9] = 1 & dressH[9] = 100 & dressB[9] = bedra
  1319. if dress10 = 1:dress[10] = 1 & dressH[10] = 100 & dressB[10] = bedra
  1320. if dress11 = 1:dress[11] = 1 & dressH[11] = 100 & dressB[11] = bedra
  1321. if dress12 = 1:dress[12] = 1 & dressH[12] = 100 & dressB[12] = bedra
  1322. if dress13 = 1:dress[13] = 1 & dressH[13] = 100 & dressB[13] = bedra
  1323. if dress14 = 1:dress[14] = 1 & dressH[14] = 100 & dressB[14] = bedra
  1324. if dress15 = 1:dress[15] = 1 & dressH[15] = 100 & dressB[15] = bedra
  1325. if dress16 = 1:dress[16] = 1 & dressH[16] = 100 & dressB[16] = bedra
  1326. if dress17 = 1:dress[17] = 1 & dressH[17] = 100 & dressB[17] = bedra
  1327. if dress18 = 1:dress[18] = 1 & dressH[18] = 100 & dressB[18] = bedra
  1328. if dress19 = 1:dress[19] = 1 & dressH[19] = 100 & dressB[19] = bedra
  1329. if dress20 = 1:dress[20] = 1 & dressH[20] = 100 & dressB[20] = bedra
  1330. if dress21 = 1:dress[21] = 1 & dressH[21] = 100 & dressB[21] = bedra
  1331. if dress22 = 1:dress[22] = 1 & dressH[22] = 100 & dressB[22] = bedra
  1332. if dress23 = 1:dress[23] = 1 & dressH[23] = 100 & dressB[23] = bedra
  1333. if dress24 = 1:dress[24] = 1 & dressH[24] = 100 & dressB[24] = bedra
  1334. if profi = 1:profi[1] = 1 & profiH[1] = 50 & profiB[1] = bedra
  1335. if profi2 = 1:profi[2] = 1 & profiH[2] = 50 & profiB[2] = bedra
  1336. if pants = 1:pants[1] = 1 & pantsH[1] = 50 & pantsB[1] = bedra
  1337. if pants2 = 1:pants[2] = 1 & pantsH[2] = 50 & pantsB[2] = bedra
  1338. if pants3 = 1:pants[3] = 1 & pantsH[3] = 50 & pantsB[3] = bedra
  1339. if pants4 = 1:pants[4] = 1 & pantsH[4] = 50 & pantsB[4] = bedra
  1340. if pants5 = 1:pants[5] = 1 & pantsH[5] = 50 & pantsB[5] = bedra
  1341. if latex = 1:latex[1] = 1 & latexH[1] = 50 & latexB[1] = bedra
  1342. if latex2 = 1:latex[2] = 1 & latexH[2] = 50 & latexB[2] = bedra
  1343. if hooker = 1:hooker[1] = 1 & hookerH[1] = 50 & hookerB[1] = bedra
  1344. if hooker2 = 1:hooker[2] = 1 & hookerH[2] = 50 & hookerB[2] = bedra
  1345. if hooker3 = 1:hooker[3] = 1 & hookerH[3] = 50 & hookerB[3] = bedra
  1346. if hooker4 = 1:hooker[4] = 1 & hookerH[4] = 50 & hookerB[4] = bedra
  1347. if hooker5 = 1:hooker[5] = 1 & hookerH[5] = 50 & hookerB[5] = bedra
  1348. if dressel1 = 1:odekis[1] = 1 & odekisH[1] = 50 & odekisB[1] = bedra
  1349. if odekis1 = 1:odekis[2] = 1 & odekisH[2] = 50 & odekisB[2] = bedra
  1350. if odekis2 = 1:odekis[3] = 1 & odekisH[3] = 50 & odekisB[3] = bedra
  1351. if odekis3 = 1:odekis[4] = 1 & odekisH[4] = 50 & odekisB[4] = bedra
  1352. if odekis4 = 1:odekis[5] = 1 & odekisH[5] = 50 & odekisB[5] = bedra
  1353. if odekis5 = 1:odekis[6] = 1 & odekisH[6] = 50 & odekisB[6] = bedra
  1354. if odekis6 = 1:odekis[7] = 1 & odekisH[7] = 50 & odekisB[7] = bedra
  1355. if odekis7 = 1:odekis[8] = 1 & odekisH[8] = 50 & odekisB[8] = bedra
  1356. if odekis8 = 1:odekis[9] = 1 & odekisH[9] = 50 & odekisB[9] = bedra
  1357. if odekis9 = 1:odekis[10] = 1 & odekisH[10] = 50 & odekisB[10] = bedra
  1358. end
  1359. --- stat ---------------------------------