1
1

024_stat 48 KB

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