stat 50 KB

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