1
0

stat 53 KB

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