1
0

stat 49 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363
  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 + 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. if sec >= 60: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. if obkvsdam > 0:set obkvsdam = rand(2, 5)
  338. set hour += 1
  339. set energy -= 1
  340. set water -= 1
  341. set son -= 1
  342. set minut -= 60
  343. if alko > 0:
  344. if alko >= 4:
  345. if beg > 0:beg -= 1
  346. if volleyboll > 0:volleyboll -= 1
  347. if alko >= 6:
  348. if stren > 10:stren -= 1 & salo += 3
  349. if vital > 10:vital -= 1 & salo += 3
  350. if intel > 10:intel -= 1
  351. alko -= alko / 2
  352. end
  353. end
  354. alko -= 1
  355. end
  356. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  357. !!!!!!!!!!!!!!!!Avtoboy
  358. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  359. if hour >= 8 and hour <= 23 and NPCnum > 10:
  360. :markturnirotbort
  361. xf = 0
  362. :markturnirotbortt
  363. xf += 1
  364. turnirFighter[xf] = rand(2, NPCnum)
  365. if xf < 2:jump'markturnirotbortt'
  366. if turnirFighter[1] = turnirFighter[2]:jump'markturnirotbort'
  367. a = turnirFighter[1]
  368. i = turnirFighter[2]
  369. NoView = 1
  370. gs 'Autofight'
  371. end
  372. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  373. if shame > 0:shame -= 1 & manna -= 5
  374. if smoker >= 20:smokerNeed += 1
  375. if smokerNeed > 10 and InSleep = 0:manna -= manna * 10/100
  376. if smokerNeed > 300:smokerNeed = 0 & smoker = 0
  377. if StrongNarkota > 0:StrongNarkota -= 1
  378. if SLomka > 0:SLomka += 1 & manna -= 500
  379. if SLomka > 100 and StrongNarkota <= 0:SLomka = 0 & SNarkTimes = 0
  380. set LCWorkRand = rand(1, 6)
  381. if narkoman = 1 and narkday ! day:
  382. set health -= 5
  383. set willpower -= 5
  384. set manna -= 10
  385. end
  386. if tanga = 0 and ski =0 or glamur = 0 and tanga = 0:mosolpred += 1
  387. if mosolpred >= 10:
  388. set mosol += 1
  389. set mosolpred -= 10
  390. end
  391. if mosol >= 50:
  392. manna -= 5
  393. end
  394. if energy >= 25:energy -= 5 & fat += 1
  395. if tanga = 1 and mosol > 0:mosol -= 1
  396. if lipbalmstat > 0:lipbalmstat -= 1
  397. if sickstage = 1:sick += 1 & sicktimer += 1
  398. if sickstage = 1 and sicktimer >= 80:sicktimer = 0 & sickstage = 2
  399. if sickstage = 2 and sick > 0:sick -= 1
  400. if sickstage = 2 and sick <= 0:sick = 0 & sickstage = 0
  401. if perkice > 0:perkice -= 1
  402. if frost > 0:frost -= 1
  403. if KGOLpers > 0:
  404. if KGHP < KGHPMAX:KGHP += 10
  405. if KGManna < KGMannaMax:KGManna += 10
  406. end
  407. if minut >= 60:jump 'loopmin'
  408. end
  409. if hour >= 24:
  410. if pirs_pain_ton > 0:pirs_pain_ton -= 1
  411. if artempower <= 0:artempower = 3
  412. if brow > 0 and browper = 0:brow -= 1
  413. if shorthair = 1:
  414. shorthairday += 1
  415. if shorthairday >= 45:shorthairday = 0 & shorthair = 0
  416. end
  417. if KatjaOTN > 0:
  418. if KatjaHorny > 0 and KatjaLust < 40:KatjaHorny -= rand(1, 3)
  419. if KatjaLust >= 40:KatjaHorny += rand(1, 3)
  420. if KatjaHorny < 0:KatjaHorny = 0
  421. if KatjaHorny >= 100:KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
  422. end
  423. if volleysostav > 0:trenerepa -= 1
  424. if birthday = day and birthmonth = month:
  425. !!birthday
  426. set age += 1
  427. set vidage += 1
  428. end
  429. if horny > hornyStat:
  430. hornyStat = horny
  431. if pirsA > 0:horny += 1
  432. if pirsB > 0:horny += 1
  433. if pirsC > 0:horny += 1
  434. if pirsD > 0:horny += 1
  435. if pirsE > 0:horny += 1
  436. if pirsF > 0:horny += 5
  437. if pirsG > 0:horny += 5
  438. if pirsN > 0:horny += 1
  439. end
  440. if horny < hornyStat:hornyStat = horny
  441. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  442. !!!!!!!!!!!!generation
  443. if NPCnum < 290:
  444. NPCnow = NPCnum
  445. NPCnum += rand(1, 3)
  446. gs 'npc'
  447. end
  448. if NPCnum >= 290 and NPCnum < 300:
  449. NPCnow = NPCnum
  450. NPCnum += 1
  451. gs 'npc'
  452. end
  453. !!End generation
  454. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  455. if kanikuli = 0:Suspeh -= 1
  456. set dmishaevent = 0
  457. if BuyHous = 2 and ArendHouseSL <= 0:ArendHouseSL = 0 & BuyHous = 0 & housr = 0
  458. if BuyHous = 2 and ArendHouseSL > 0:ArendHouseSL -= 1
  459. if Gspravka <= 0 and GspravkaT > 0:GspravkaT = 0 & Gspravka = 0
  460. if GspravkaT > 0:Gspravka -= 1
  461. if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30:IvanPodstavaQW = 3
  462. if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30:PodpiskaNeviezd += 1
  463. if salo > fat:
  464. salo -= 1
  465. fat += 1
  466. end
  467. if salo < fat:
  468. salo += 1
  469. fat -= 1
  470. end
  471. if strenbuf > stren:set strenbuf -= 1
  472. if strenbuf < stren:set strenbuf += 1
  473. if vitalbuf > vital:set vitalbuf -= 1
  474. if vitalbuf < vital:set vitalbuf += 1
  475. if agilbuf > agil:set agilbuf -= 1
  476. if agilbuf < agil:set agilbuf += 1
  477. if husband > 0 and husbandrink ! 11:set husbandrink = rand(0, 10)
  478. set inWorkYoungShop = 0
  479. set husbandsexday = 0
  480. set borsexkol = 0
  481. set givisexday = 0
  482. if shantsr > 0:
  483. set pay = shantsr * 5000
  484. set karta += pay
  485. set shantsr = 0
  486. end
  487. if shantbog > 0:
  488. :shantftb
  489. set shantftbgrand = rand(0, 10)
  490. if shantftbgrand > 2:
  491. set shantpopala += 1
  492. set shantbog -= 1
  493. if shantbog > 0:jump 'shantftb'
  494. end
  495. if shantftbgrand <= 2:
  496. set karta += 30000
  497. set shantbog -= 1
  498. if shantbog > 0:jump 'shantftb'
  499. end
  500. end
  501. set petersexday = 0
  502. set klismaday1= 0
  503. :loop
  504. set day += 1
  505. set daystart += 1
  506. set week += 1
  507. set hour -= 24
  508. !!RFP
  509. if SifacOnce = 1:Sifilis += 1
  510. if GerpesOnce = 1:Gerpes += 1
  511. if TriperOnce = 1:Triper += 1
  512. if KandidozOnce = 1:Kandidoz += 1
  513. if beg >= 100 and beg < 1000:beg -= 1
  514. if beg >= 1000 and beg < 1500:beg -= 2
  515. if beg >= 1500 and beg < 2000:beg -= 3
  516. if beg >= 2000:beg -= 4
  517. set vidageday -= 1
  518. if workDolgDay > 0:workDolgDay -= 1
  519. if QWdogreiqTimer > 0:QWdogreiqTimer -= 1
  520. if husband > 0:husbanday += 1
  521. if kid > 0:kid += 1
  522. if husband > 10 and husbanday > 0:husband -= 15
  523. if fingal > 0:fingal -= 1
  524. if husbandMark = 1 and husband <= 10:
  525. set husbizvradd = 0
  526. set husbharmin = 0
  527. set husbandMark = 0
  528. set husband = 0
  529. set divorced += 1
  530. if KFOnLineReaga > 0:KFOnLineReaga -= 1
  531. '<b><font color="red">Your husband has filed for a divorce.</font></b>'
  532. end
  533. gs 'cikl'
  534. if nark > 0:set nark -= 1
  535. if pregtime > 10:fat += 1
  536. if hour >= 24:jump 'loop'
  537. end
  538. !!payments
  539. if day = 25:
  540. if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
  541. Pay = PersSecWorkTimes * 2500
  542. PersSecWorkTimes = 0
  543. money += Pay
  544. paydaybistrosec = 1
  545. '<b><font color="green">You have received <<pay>> rubles salary for your job as a secretary on your bank account.</font></b>'
  546. end
  547. if workKafe = 1 and paydayKafe = 0:
  548. set paydayKafe = 1
  549. set pay = smenaKafe * 600
  550. set money += pay
  551. set smenaKafe = 0
  552. '<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>'
  553. end
  554. if workhosp = 1 and nopaypoly = 0:
  555. set pay = smena * 1000
  556. set money += pay
  557. set smena = 0
  558. nopaypoly = 1
  559. '<b><font color="green">You have received <<pay>> rubles salary for your work in the clinic on your bank account.</font></b>'
  560. end
  561. if worksalon = 1 and nopaysalon = 0:
  562. set pay = smena * 800
  563. set money += pay
  564. set smena = 0
  565. nopaysalon = 1
  566. '<b><font color="green">You have received <<pay>> rubles salary for your work in a beauty salon on your bank account.</font></b>'
  567. end
  568. if tanwork = 1 and nopaytanwork = 0:
  569. nopaytanwork = 1
  570. set money += 25000
  571. '<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>'
  572. end
  573. if workSec = 1 and paydaySec = 0:
  574. set paydaySec = 1
  575. set pay = sekDay * 800
  576. if officebestslut >= 3:set pay += 20000
  577. set karta += pay
  578. set sekDay = 0
  579. '<b><font color="green">You have received <<pay>> rubles salary for your job as a secretary on your bank account.</font></b>'
  580. end
  581. if husband > 0 and paydayHusb = 0:
  582. paydayHusb = 1
  583. if husbFin = 0:huspay = 15000
  584. if husbFin = 1:huspay = 25000
  585. if husbFin = 2:huspay = 40000
  586. money += huspay
  587. '<b><font color="green">Your husband has sent you <<huspay>> rubles to your bank account.</font></b>'
  588. end
  589. 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>'
  590. 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>'
  591. if housr = 1 and electroday = 0:
  592. set electroday = 1
  593. if elektro >= 800:set elektro = 800 + rand(0, 100)
  594. set money -= elektro
  595. '<b><font color="red">You paid <<elektro>> for electricity.</font></b>'
  596. end
  597. if housr = 1 and kabel > 0 and kabelday = 0:
  598. set kabelday = 1
  599. set money -= 300
  600. '<b><font color="red">You have paid 300 rubles for cable TV.</font></b>'
  601. end
  602. end
  603. if day ! 25:
  604. if paydayHusb = 1:paydayHusb = 0
  605. if workKafe = 1 and paydayKafe = 1:set paydayKafe = 0
  606. if workSec = 1 and paydaySec = 1:set paydaySec = 0
  607. if housr = 1 and haday = 1:set haday = 0
  608. if housr = 1 and electroday = 1:set electroday = 0
  609. if housr = 1 and kabel > 0 and kabelday = 1:set kabelday = 0
  610. if stipuhaday = 1:set stipuhaday = 0
  611. if nopaytanwork = 1:nopaytanwork = 0
  612. if nopaypoly = 1:nopaypoly = 0
  613. if nopaysalon = 1:nopaysalon = 0
  614. if paydaybistrosec = 1:paydaybistrosec = 0
  615. end
  616. if sdaday = day and sdamonth = month and housr = 0:
  617. set housr = 1
  618. '<b><font color="red">The term of your residental apartment lease expired.</font></b>'
  619. end
  620. if month = 1 or month = 3 or month = 5 or month = 7 or month = 8 or month = 10 or month = 12:
  621. !!31
  622. if day > 31:day -= 31 & month += 1
  623. elseif month = 2:
  624. !!28
  625. if day > 28:day -= 28 & month += 1
  626. elseif month = 0:
  627. month = 1
  628. if day > 31:day -= 31 & month += 1
  629. elseif month = 13:
  630. month = 1
  631. if day > 31:day -= 31 & month += 1
  632. else
  633. !!30
  634. if day > 30:day -= 30 & month += 1
  635. end
  636. !'if day > 30:
  637. set day -= 30
  638. set month += 1
  639. end'!
  640. if day = 0:set day = 1
  641. if week > 7:
  642. :loopweek
  643. set week -= 7
  644. set husbandrink = 0
  645. if military = 1:set military = 0
  646. if week > 7:jump 'loopweek'
  647. end
  648. if week = 1:set $week = 'Monday'
  649. if week = 2:set $week = 'Tuesday'
  650. if week = 3:set $week = 'Wednesday'
  651. if week = 4:set $week = 'Thursday'
  652. if week = 5:set $week = 'Friday'
  653. if week = 6:set $week = 'Saturday'
  654. if week = 7:set $week = 'Sunday'
  655. if month = 0:set month = 1
  656. if month = 13:set month = 1 & set year += 1
  657. If month = 1:set $month = 'January' & $mons = 'January'
  658. If month = 2:set $month = 'February' & $mons = 'February'
  659. If month = 3:set $month = 'March' & $mons = 'Martha'
  660. If month = 4:set $month = 'April' & $mons = 'April'
  661. If month = 5:set $month = 'May' & $mons = 'May'
  662. If month = 6:set $month = 'June' & $mons = 'June'
  663. If month = 7:set $month = 'July' & $mons = 'July'
  664. If month = 8:set $month = 'August' & $mons = 'August'
  665. If month = 9:set $month = 'September' & $mons = 'September'
  666. If month = 10:set $month = 'October' & $mons = 'October'
  667. If month = 11:set $month = 'November' & $mons = 'November'
  668. If month = 12:set $month = 'December' & $mons = 'December'
  669. if minut < 10:set $nilmin = '0'
  670. if minut >= 10:set $nilmin = ''
  671. if kid > 0:
  672. if year > yearkid[1] and markyear[1] ! year:
  673. if monthkid[1] = month and daykid[1] = day:
  674. markyear[1] = year
  675. kidage[1] += 1
  676. end
  677. end
  678. end
  679. !!moodlet
  680. !!mannamax
  681. !!totminut
  682. if Mud >= totminut:
  683. manna = mannamax
  684. $mud = 'You feel buoyed.'
  685. else
  686. $mud = ''
  687. end
  688. if nerdism > 0:
  689. if lastreadday = daystart:
  690. !!<font color="green">You are completely healthy shine and a healthy glow.</font>
  691. manna = mannamax
  692. SbrosNerdism = 0
  693. $mudnerd = '<font color="green">You are lost in a fantasy after reading the book.</font>'
  694. end
  695. if lastreadday + 1 = daystart:
  696. !!manna = mannamax
  697. SbrosNerdism = 0
  698. $mudnerd = '<font color="black">You a little bored and want to again plunge into a book.</font>'
  699. end
  700. if lastreadday + 2 = daystart:
  701. SbrosNerdism = 0
  702. if manna > mannamax / 2:manna -= 10
  703. $mudnerd = '<font color="red">Do you really want something to read.</font>'
  704. end
  705. if lastreadday + 3 <= daystart:
  706. if manna > mannamax / 10:manna -= 10
  707. SbrosNerdism = 1
  708. $mudnerd = '<font color="red"><b>You terribly want at least something to read!!!</b></font>'
  709. end
  710. !!$mudnerd += 'lastread<<lastread>> totminut<<totminut>> <<totminut - lastread>>'
  711. else
  712. SbrosNerdism = 0
  713. $mudnerd = ''
  714. end
  715. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  716. !!!!!!!!!end OF TIME
  717. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  718. subage = 0
  719. :metakasubage
  720. subage += 10
  721. if subage + 10 < age:
  722. jump 'metakasubage'
  723. else
  724. subage = age - subage
  725. end
  726. if subage = 0 or subage >= 5:
  727. $letgoda = 'years'
  728. elseif subage = 1:
  729. $letgoda = 'year'
  730. else
  731. $letgoda = 'year'
  732. end
  733. subagevne = 0
  734. :metakasubagevne
  735. subagevne += 10
  736. if subagevne + 10 < vidage:
  737. jump 'metakasubagevne'
  738. else
  739. subagevne = vidage - subagevne
  740. end
  741. if subagevne ! 1:
  742. $letgoda2 = 'years'
  743. else
  744. $letgoda2 = 'year'
  745. end
  746. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  747. !!!!!!!!!!!!ENERGY
  748. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  749. if son < 0:
  750. set son = 0
  751. set manna -= 5
  752. end
  753. if energy < 0:
  754. set energy = 0
  755. set health -= 1
  756. if fat = 0 and stren + vital > 0:
  757. set stren -= 1
  758. set vital -= 1
  759. set energy += 2
  760. end
  761. if fat = 0 and stren + vital <= 0:
  762. set over = 3
  763. gt 'gameover'
  764. exit
  765. end
  766. if fat > 0:
  767. set fat -= 1
  768. set energy += 2
  769. end
  770. end
  771. if water < 0:
  772. set water = 1
  773. set health -= 5
  774. set willpower -= 1
  775. end
  776. if manna <= 0:
  777. set manna = 1
  778. set health -= 5
  779. set willpower -= 5
  780. !!set fat += 1
  781. end
  782. if health < 0:
  783. set over = 1
  784. gt 'gameover'
  785. exit
  786. end
  787. if willpower < 0 and StoryLine = 0:
  788. set over = 2
  789. gt 'gameover'
  790. exit
  791. end
  792. if saloonce = 0 and opPRE = 0:
  793. set saloonce = 1
  794. set salo = fat
  795. set strenbuf = stren
  796. set vitalbuf = vital
  797. set agilbuf = agil
  798. end
  799. gs 'body'
  800. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  801. if health = vital * 10 + stren * 5:set $health = '<font color="green">You are very healthy.</font>'
  802. if willpower = intel * 5 + will * 5:set $willpower = '<font color="green">Your mind is clear.</font>'
  803. if manna = intel * magik + magik * 100 + vital * 10 + rikudo:set $manna = '<font color="green">You are in a good mood.</font>'
  804. if health < vital * 10 + stren * 5 and health >= (vital * 10 + stren * 5) * 75 / 100:set $health = '<font color="blue">You are healthy.</font>'
  805. 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>'
  806. 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>'
  807. if health < (vital * 10 + stren * 5) * 25 / 100:set $health = '<font color="red">You are on the verge of death.'
  808. 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>'
  809. 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>'
  810. 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>'
  811. if willpower < (intel * 5 + will * 5) * 25 / 100:set $willpower = '<font color="red">You are on the verge of madness.</font>'
  812. 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>'
  813. 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>'
  814. 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>'
  815. 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>'
  816. if energy >= 20:set $energy = '<font color="green">You couldn''t eat one more bite.</font>'
  817. 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>'
  818. if energy < 10 and energy >= 2:set $energy = '<font color="brown">You are hungry.</font>'
  819. if energy < 2:set $energy = '<font color="red">You are very hungry.</font>'
  820. if water >= 20:set $water = '<font color="green">You are not thirtsy at all.</font>'
  821. if water < 20 and water >= 10:set $water = '<font color="blue">You are slightly thirsty.</font>'
  822. if water < 10 and water >= 2:set $water = '<font color="brown">You are thirsty.</font>'
  823. if water < 2:set $water = '<font color="red">You are very thirsty.</font>'
  824. if son >= 20:set $son = '<font color="green">You are well rested.</font>'
  825. if son < 20 and son >= 10:set $son = '<font color="blue">You are slightly tired.</font>'
  826. if son < 10 and son >= 2:set $son = '<font color="brown">You are tired.</font>'
  827. if son < 2:set $son = '<font color="red">You are very tired.</font>'
  828. $din_shame = {
  829. !!dynamic din_shame
  830. !!shame += 1
  831. !!if shame >= 5:shame = 4 & shameless += 1
  832. !!if shame >= 4:set $shame = '<font color="red"><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
  833. !!if shame = 3:set $shame = '<font color="red">Your cheeks are red from the blush of shame.</font>'
  834. !!if shame = 2:set $shame = '<font color="brown">You nemnog opokrasneli shame.</font>'
  835. !!if shame = 1:set $shame = '<font color="green">You´re a little confused.</font>'
  836. !!if shame <= 0:set $shame = '<font color="green">You´re a little confused.</font>'
  837. !!gs 'stat'
  838. }
  839. !!if shame >= 5:shame = 4 & shameless += 1
  840. !!if shame >= 4:set $shame = '<font color="red"><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
  841. !!if shame = 3:set $shame = '<font color="red">Your cheeks are red from the blush of shame.</font>'
  842. !!if shame = 2:set $shame = '<font color="brown">You nemnog opokrasneli shame.</font>'
  843. !!if shame = 1:set $shame = '<font color="green">You´re a little confused.</font>'
  844. !!if shame <= 0:set $shame = '<font color="green">You´re a little confused.</font>'
  845. set $holyday = ''
  846. kanikuli = 0
  847. if (month = 10 and day >= 27) or (month = 11 and day <= 4):set $holyday = '<b>Autumn holidays.</b>' & kanikuli = 1
  848. if (month = 12 and day >= 29) or (month = 1 and day <= 13):set $holyday = '<b>Winter Break.</b>' & kanikuli = 2
  849. if (month = 3 and day >= 25):set $holyday = '<b>Spring Break.</b>' & kanikuli = 3
  850. if (month = 5 and day >= 25) or month = 6 or month = 7 or month = 8:set $holyday = '<b>Summer holidays.</b>' & kanikuli = 4
  851. if month = 1 and day = 1:set $holyday = '<b>New Year</b>' & kanikuli = 5
  852. if hour >= 8 and hour < 16 and week < 6 and StoryLine > 0 and SchoolAtestat = 0 and kanikuli = 0 and schoolProgulDay ! day:
  853. !!absence from school
  854. schoolprogul += 1
  855. schoolProgulDay = day
  856. end
  857. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  858. !!!!!!!!!Beginning Description
  859. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  860. !!pl'time <b><<hour>></b> hours <b><<$nilmin>><<minut>></b> minutes'
  861. !!pl 'At_The_Moment <<day>> <<$month>> <<year>>year, <<$week>>.'
  862. if hour < 10 :
  863. if minut > 9 :
  864. pl '<b><<hour>>:<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
  865. else
  866. pl '<b><<hour>>:0<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
  867. end
  868. else
  869. if minut > 9 :
  870. pl '<b>0<<hour>>:<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
  871. else
  872. pl '<b>0<<hour>>:0<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
  873. end
  874. end
  875. pl '<b><<money>></b> rubles in your wallet.'
  876. if StoryLine > 0 and SchoolAtestat = 0:pl '<<$holyday>>'
  877. if birthday = day and birthmonth = month:pl '<b>Today is your birthday.</b>'
  878. !!if shame > 0:pl '<<$shame>>'
  879. pl '<b><<$manna>></b>'
  880. if horny >= 90:pl '<font color="#FF1493">It takes an incredible amount of willpower not to touch yourself all the time.</font>'
  881. if horny >= 50 and horny < 90:pl '<font color="#DB7093">You have trouble focusing at times, as your mind drifts to sex.</font>'
  882. if ETOmenu = 1:
  883. pl '<b><<$health>></b>'
  884. pl '<b><<$willpower>></b>'
  885. pl '<b><<$energy>></b>'
  886. pl '<b><<$water>></b>'
  887. pl '<b><<$son>></b>'
  888. end
  889. if ETOmenu = 0:
  890. set a = horny
  891. !!set a1 = horny
  892. gs 'indik', '2'
  893. pl '<<$ind>> Arousal'
  894. healthmax = (vital * 10 + stren * 5)
  895. set a = health * 100 / healthmax
  896. set a1 = health
  897. gs 'indik', '1'
  898. pl '<<$ind>> Health'
  899. willpowermax = intel * 5 + will * 5
  900. set a = willpower * 100 / willpowermax
  901. set a1 = willpower
  902. gs 'indik', '1'
  903. pl '<<$ind>> Willpower'
  904. set a = manna * 100 / mannamax
  905. set a1 = manna
  906. gs 'indik', '1'
  907. pl '<<$ind>> Mood'
  908. set a = energy * 4
  909. set a1 = energy
  910. gs 'indik', '1'
  911. pl '<<$ind>> Hunger'
  912. set a = water * 5
  913. set a1 = water
  914. gs 'indik', '1'
  915. pl '<<$ind>> Thirst'
  916. set a = son * 4
  917. set a1 = son
  918. gs 'indik', '1'
  919. pl '<<$ind>> Sleep'
  920. end
  921. $smoker = {
  922. siga -= 1
  923. smoker += 1
  924. smokeHour = hour
  925. smokeDay = day
  926. smokeminut = minut + 5
  927. smokeNeed = 0
  928. manna += 100
  929. wipo += 100
  930. if energy < 20:energy += 3
  931. gs 'stat'
  932. }
  933. if $mud ! '':pl '<font color="green"><b><<$mud>></b></font>'
  934. if siga <= 0 and smoker >= 20:pl '<font color="red"><b>You have run out of cigarettes.</b></font>'
  935. if smokeNeed > 0 and siga > 0 and smoker >= 20:
  936. pl '<a href="exec:dynamic $smoker"><font color="red"><b>You want to smoke. You have <<siga>> cigarettes left</b></font></a>'
  937. elseif siga > 0 and smoker >= 20:
  938. pl '<a href="exec:dynamic $smoker"><font color="blue"><b>You have <<siga>> cigarettes left</b></font></a>'
  939. end
  940. if siga > 0 and smoker < 20:
  941. if smokeHour = hour and smokeday = day and smokeminut >= minut:
  942. else
  943. pl '<a href="exec:dynamic $smoker"><font color="blue"><b>You have <<siga>> cigarettes left</b></font></a>'
  944. end
  945. end
  946. if smokeHour = hour and smokeday = day and smokeminut >= minut:pl '<font color="green">You are smoking a cigarette</font>'
  947. if pirs_pain_ton > 0:
  948. if pirs_pain_ton = 1:pl'<font color="red">You have aches language and it is a little swollen.</font>'
  949. if pirs_pain_ton = 2:pl'<font color="red">You often aches language and it is noticeably swollen.</font>'
  950. 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>'
  951. end
  952. if nippain > 0:pl'<font color="red"><b><<$nippain>></b></font>'
  953. if painpub > 0:pl'<font color="red"><b><<$painpub>></b></font>'
  954. if opPRE = 0:pl '<<$mop>> and your hair is <<$hapri>>.'
  955. !!!!!!!!!!!!!!!!!!!
  956. if sweat = 1:pl '<font color="brown">You´re sweating.</font>'
  957. if sweat = 2:pl '<font color="red">You are a little smelly.</font>'
  958. if sweat = 3:pl '<font color="red">You stink.</font>'
  959. if sweat > 3:pl '<b><font color="red">You stink.</font></b>'
  960. 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>'
  961. if isprok = 1 and mesec > 0 and preg = 0:pl 'You are having your period.'
  962. if preg = 1 and pregtime = 280:pl '<b><font color="red">You urgently need to go to the hospital</font></b>'
  963. if preg = 1:set rodtime = 280 - pregtime
  964. 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>'
  965. 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>'
  966. 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>'
  967. 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>'
  968. $cumeater = {
  969. cumlip += 1
  970. vaf += 1
  971. cumbelly = 0
  972. gs 'stat'
  973. 'You have collected sperm from fingers and licked their stomach felt tart taste of semen.'
  974. }
  975. $cumeater2 = {
  976. cumlip += 1
  977. vaf += 1
  978. cumpussy = 0
  979. gs 'stat'
  980. 'You have collected sperm from fingers pussy and licked them feeling tart taste of semen.'
  981. }
  982. $cumeater3 = {
  983. cumlip += 1
  984. vaf += 1
  985. cumass = 0
  986. gs 'stat'
  987. 'You have collected sperm from fingers and licked their buttocks felt tart taste of semen.'
  988. }
  989. $cumeater4 = {
  990. cumlip += 1
  991. vaf += 1
  992. cumface = 0
  993. gs 'stat'
  994. 'You have collected fingers semen from her face and licked them feeling tart taste of semen.'
  995. }
  996. $cumeater5 = {
  997. cumlip += 1
  998. vaf += 1
  999. cumfrot = 0
  1000. gs 'stat'
  1001. 'You have collected sperm from fingers and licked their clothes felt tart taste of semen.'
  1002. }
  1003. $cumeater6 = {
  1004. cumlip += 1
  1005. vaf += 1
  1006. cumanus = 0
  1007. gs 'stat'
  1008. 'You have collected fingers semen out of the anus and lick their feeling tart taste of semen.'
  1009. }
  1010. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1011. !!'<a href="exec:view''images/body/cumface.jpg''">лицо</a>'
  1012. !!'<a href="exec:view''images/body/cumface.jpg''"><b><font color="red">Your face</font></b></a>'
  1013. !!'<a href="exec:view''images/body/cumass.jpg''"><b><font color="red">Your ass</font></b></a>'
  1014. 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>'
  1015. 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>'
  1016. 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>'
  1017. 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>.'
  1018. 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>'
  1019. 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>'
  1020. if cumlip > 0:pl '<b><font color="red">Your mouth smells like sperm.</font></b>'
  1021. 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>'
  1022. 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>'
  1023. 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>'
  1024. 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>.'
  1025. 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>'
  1026. 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>.'
  1027. 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>'
  1028. if vgape = 2:pl '<b><font color="red">You have a sore vagina and you can hardly keep your feet together.</font></b>'
  1029. if vgape = 1:pl '<b><font color="red">You have a slightly sore vagina.</font></b>'
  1030. if agape = 3:pl '<b><font color="red">You have very sore anus and it emits blood.</font></b>'
  1031. if agape = 2:pl '<b><font color="red">You have a sore anus.</font></b>'
  1032. if agape = 1:pl '<b><font color="red">You have a slightly sore and itchy anus.</font></b>'
  1033. if Gerpes >= 3:pl '<b><font color="red">On your lips sores. All signs of genital herpes.</font></b>'
  1034. if Gerpes < 10 and Gerpes >= 5:pl '<b><font color="red">Your pussy flushed and highly itchy. This genital herpes.</font></b>'
  1035. if Gerpes >= 10:pl '<b><font color="red">On your pussy sores appeared. This genital herpes.</font></b>'
  1036. if Gerpes >= 20:pl '<b><font color="red">cover your ass sores of genital herpes.</font></b>'
  1037. if Sifilis >= 21 and Sifilis < 50:pl '<b><font color="red">You have jumped big, hard sore on the lip.</font></b>'
  1038. if Sifilis >= 50:pl '<b><font color="red">syphilitic rash covers your whole body.</font></b>'
  1039. 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>'
  1040. if Kandidoz > 30:pl '<b><font color="red">Do you thrush.</font></b>'
  1041. if SLomka > 0:pl '<b><font color="red">You are very bad and hurt all the bones. Do you break-up</font></b>'
  1042. 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>'
  1043. if fingal > 0:pl '<b><font color="red">You have a black eye on the face.</font></b>'
  1044. 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>'
  1045. 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>'
  1046. if mosol >= 30 and mosol < 50:pl '<b><font color="red">Pisya flushed and itchy, it seems you are rubbed by clothing.</font></b>'
  1047. 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>'
  1048. if analplugIN = 1:pl '<b><font color="red">Do you in the ass anal plug is inserted.</font></b>'
  1049. if vibratorin = 1:pl '<b><font color="red">Do you work in the vagina vibrator.</font></b>'
  1050. 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>'
  1051. 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>'
  1052. if workrin = 1:
  1053. if week = 2 or week = 4 or week = 6:
  1054. if hour = 7:pl '<b><font color="red"> 8m hours you work on the market.</font></b>'
  1055. if hour = 8:pl '<b><font color="red">You need to work on the market.</font></b>'
  1056. end
  1057. end
  1058. if frost > 0 and frost <= 5:pl '<b><font>You have a little chilly.</font></b>'
  1059. if frost > 5 and frost < 11:pl '<b><font color="red">Are you cold.</font></b>'
  1060. if frost >= 11:pl '<b><font color="red">You are very cold.</font></b>'
  1061. if sick = 1:pl '<b><font color="red">you that is not good, tickle in the throat and a little runny nose.</font></b>'
  1062. 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>'
  1063. 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>'
  1064. 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>'
  1065. 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>'
  1066. if $mudnerd ! '':pl '<<$mudnerd>>'
  1067. if hour < meethour and svidanieA = 1:pl '<<$boyA>> will be waiting for you near your home in <<$meetlocation>> at <<meethour>> hours'
  1068. if hour = meethour and svidanieA = 1:pl '<b><font color="red"><<$boyA>> is waiting for you around the house in <<$meetlocation>>.</font></b>'
  1069. if meetday < daystart and svidanieA = 1:bfA -= 10 & svidanieA = 0
  1070. if StrongNarkota > 20:pl '<b><font color="red">You are stoned.</font></b>'
  1071. if alko > 0:
  1072. if alko < 3:pl '<b><font color="red">You´re a little dizzy.</font></b>'
  1073. if alko >= 3 and alko < 6:pl '<b><font color="red">You´re drunk.</font></b>'
  1074. if alko >= 6:pl '<b><font color="red">You´re wasted.</font></b>'
  1075. end
  1076. if day = 29 and month = 12 and year = 2010 and StoryLine = 1:
  1077. if hour >= 5 and hour <= 14:pl 'At 14 o''clock a New Year`s party will be held.'
  1078. end
  1079. gs 'din_bad'
  1080. if bag > 0:pl '<a href="exec:dynamic $d_bag"><b>Handbag</b></a>'
  1081. !!zero checks marriage
  1082. set proverka1 = 0
  1083. set proverka2 = 0
  1084. set proverka3 = 0
  1085. set proverka4 = 0
  1086. set proverka5 = 0
  1087. !!clothing repair, for old saved.
  1088. if remdrop = 0:
  1089. set remdrop = 1
  1090. if jeans = 1:set jeans[1] = 1 & set jeansH[1] = 50 & set jeansB[1] = bedra
  1091. if jeans2 = 1:set jeans[2] = 1 & set jeansH[2] = 50 & set jeansB[2] = bedra
  1092. if jeans3 = 1:set jeans[3] = 1 & set jeansH[3] = 50 & set jeansB[3] = bedra
  1093. if jeans4 = 1:set jeans[4] = 1 & set jeansH[4] = 50 & set jeansB[4] = bedra
  1094. if jeans5 = 1:set jeans[5] = 1 & set jeansH[5] = 50 & set jeansB[5] = bedra
  1095. if yoga = 1:set yoga[1] = 1 & set yogaH[1] = 50
  1096. if yoga2 = 1:set yoga[2] = 1 & set yogaH[2] = 50
  1097. if yoga3 = 1:set yoga[3] = 1 & set yogaH[3] = 50
  1098. if yoga4 = 1:set yoga[4] = 1 & set yogaH[4] = 50
  1099. if yoga5 = 1:set yoga[5] = 1 & set yogaH[5] = 50
  1100. if yoga6 = 1:set yoga[6] = 1 & set yogaH[6] = 50
  1101. if yoga7 = 1:set yoga[7] = 1 & set yogaH[7] = 50
  1102. if yoga8 = 1:set yoga[8] = 1 & set yogaH[8] = 50
  1103. if yoga9 = 1:set yoga[9] = 1 & set yogaH[9] = 50
  1104. if yoga10 = 1:set yoga[10] = 1 & set yogaH[10] = 50
  1105. if yoga11 = 1:set yoga[11] = 1 & set yogaH[11] = 50
  1106. if yoga12 = 1:set yoga[12] = 1 & set yogaH[12] = 50
  1107. if yoga13 = 1:set yoga[13] = 1 & set yogaH[13] = 50
  1108. if yoga14 = 1:set yoga[14] = 1 & set yogaH[14] = 50
  1109. if yoga15 = 1:set yoga[15] = 1 & set yogaH[15] = 50
  1110. if yoga16 = 1:set yoga[16] = 1 & set yogaH[16] = 50
  1111. if yoga17 = 1:set yoga[17] = 1 & set yogaH[17] = 50
  1112. if yoga18 = 1:set yoga[18] = 1 & set yogaH[18] = 50
  1113. if sarafan = 1:set sarafan[1] = 1 & set sarafanH[1] = 50
  1114. if sarafan2 = 1:set sarafan[2] = 1 & set sarafanH[2] = 50
  1115. if short = 1:set short[1] = 1 & set shortH[1] = 50 & set shortB[1] = bedra
  1116. if short2 = 1:set short[2] = 1 & set shortH[2] = 50 & set shortB[2] = bedra
  1117. if short3 = 1:set short[3] = 1 & set shortH[3] = 50 & set shortB[3] = bedra
  1118. if short4 = 1:set short[4] = 1 & set shortH[4] = 50 & set shortB[4] = bedra
  1119. if short5 = 1:set short[5] = 1 & set shortH[5] = 50 & set shortB[5] = bedra
  1120. if skirt = 1:set skirt[1] = 1 & set skirtH[1] = 50 & set skirtB[1] = bedra
  1121. if skirt2 = 1:set skirt[2] = 1 & set skirtH[2] = 50 & set skirtB[2] = bedra
  1122. if skirt3 = 1:set skirt[3] = 1 & set skirtH[3] = 50 & set skirtB[3] = bedra
  1123. if skirt4 = 1:set skirt[4] = 1 & set skirtH[4] = 50 & set skirtB[4] = bedra
  1124. if skirt5 = 1:set skirt[5] = 1 & set skirtH[5] = 50 & set skirtB[5] = bedra
  1125. if dress = 1:set dress[1] = 1 & set dressH[1] = 100 & set dressB[1] = bedra
  1126. if dress2 = 1:set dress[2] = 1 & set dressH[2] = 100 & set dressB[2] = bedra
  1127. if dress3 = 1:set dress[3] = 1 & set dressH[3] = 100 & set dressB[3] = bedra
  1128. if dress4 = 1:set dress[4] = 1 & set dressH[4] = 100 & set dressB[4] = bedra
  1129. if dress5 = 1:set dress[5] = 1 & set dressH[5] = 100 & set dressB[5] = bedra
  1130. if dress6 = 1:set dress[6] = 1 & set dressH[6] = 100 & set dressB[6] = bedra
  1131. if dress7 = 1:set dress[7] = 1 & set dressH[7] = 100 & set dressB[7] = bedra
  1132. if dress8 = 1:set dress[8] = 1 & set dressH[8] = 100 & set dressB[8] = bedra
  1133. if dress9 = 1:set dress[9] = 1 & set dressH[9] = 100 & set dressB[9] = bedra
  1134. if dress10 = 1:set dress[10] = 1 & set dressH[10] = 100 & set dressB[10] = bedra
  1135. if dress11 = 1:set dress[11] = 1 & set dressH[11] = 100 & set dressB[11] = bedra
  1136. if dress12 = 1:set dress[12] = 1 & set dressH[12] = 100 & set dressB[12] = bedra
  1137. if dress13 = 1:set dress[13] = 1 & set dressH[13] = 100 & set dressB[13] = bedra
  1138. if dress14 = 1:set dress[14] = 1 & set dressH[14] = 100 & set dressB[14] = bedra
  1139. if dress15 = 1:set dress[15] = 1 & set dressH[15] = 100 & set dressB[15] = bedra
  1140. if dress16 = 1:set dress[16] = 1 & set dressH[16] = 100 & set dressB[16] = bedra
  1141. if dress17 = 1:set dress[17] = 1 & set dressH[17] = 100 & set dressB[17] = bedra
  1142. if dress18 = 1:set dress[18] = 1 & set dressH[18] = 100 & set dressB[18] = bedra
  1143. if dress19 = 1:set dress[19] = 1 & set dressH[19] = 100 & set dressB[19] = bedra
  1144. if dress20 = 1:set dress[20] = 1 & set dressH[20] = 100 & set dressB[20] = bedra
  1145. if dress21 = 1:set dress[21] = 1 & set dressH[21] = 100 & set dressB[21] = bedra
  1146. if dress22 = 1:set dress[22] = 1 & set dressH[22] = 100 & set dressB[22] = bedra
  1147. if dress23 = 1:set dress[23] = 1 & set dressH[23] = 100 & set dressB[23] = bedra
  1148. if dress24 = 1:set dress[24] = 1 & set dressH[24] = 100 & set dressB[24] = bedra
  1149. if profi = 1:set profi[1] = 1 & set profiH[1] = 50 & set profiB[1] = bedra
  1150. if profi2 = 1:set profi[2] = 1 & set profiH[2] = 50 & set profiB[2] = bedra
  1151. if pants = 1:set pants[1] = 1 & set pantsH[1] = 50 & set pantsB[1] = bedra
  1152. if pants2 = 1:set pants[2] = 1 & set pantsH[2] = 50 & set pantsB[2] = bedra
  1153. if pants3 = 1:set pants[3] = 1 & set pantsH[3] = 50 & set pantsB[3] = bedra
  1154. if pants4 = 1:set pants[4] = 1 & set pantsH[4] = 50 & set pantsB[4] = bedra
  1155. if pants5 = 1:set pants[5] = 1 & set pantsH[5] = 50 & set pantsB[5] = bedra
  1156. if latex = 1:set latex[1] = 1 & set latexH[1] = 50 & set latexB[1] = bedra
  1157. if latex2 = 1:set latex[2] = 1 & set latexH[2] = 50 & set latexB[2] = bedra
  1158. if hooker = 1:set hooker[1] = 1 & set hookerH[1] = 50 & set hookerB[1] = bedra
  1159. if hooker2 = 1:set hooker[2] = 1 & set hookerH[2] = 50 & set hookerB[2] = bedra
  1160. if hooker3 = 1:set hooker[3] = 1 & set hookerH[3] = 50 & set hookerB[3] = bedra
  1161. if hooker4 = 1:set hooker[4] = 1 & set hookerH[4] = 50 & set hookerB[4] = bedra
  1162. if hooker5 = 1:set hooker[5] = 1 & set hookerH[5] = 50 & set hookerB[5] = bedra
  1163. if dressel1 = 1:set odekis[1] = 1 & set odekisH[1] = 50 & set odekisB[1] = bedra
  1164. if odekis1 = 1:set odekis[2] = 1 & set odekisH[2] = 50 & set odekisB[2] = bedra
  1165. if odekis2 = 1:set odekis[3] = 1 & set odekisH[3] = 50 & set odekisB[3] = bedra
  1166. if odekis3 = 1:set odekis[4] = 1 & set odekisH[4] = 50 & set odekisB[4] = bedra
  1167. if odekis4 = 1:set odekis[5] = 1 & set odekisH[5] = 50 & set odekisB[5] = bedra
  1168. if odekis5 = 1:set odekis[6] = 1 & set odekisH[6] = 50 & set odekisB[6] = bedra
  1169. if odekis6 = 1:set odekis[7] = 1 & set odekisH[7] = 50 & set odekisB[7] = bedra
  1170. if odekis7 = 1:set odekis[8] = 1 & set odekisH[8] = 50 & set odekisB[8] = bedra
  1171. if odekis8 = 1:set odekis[9] = 1 & set odekisH[9] = 50 & set odekisB[9] = bedra
  1172. if odekis9 = 1:set odekis[10] = 1 & set odekisH[10] = 50 & set odekisB[10] = bedra
  1173. end
  1174. --- stat ---------------------------------