1
0

stat_display 37 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923
  1. # stat_display
  2. !!!!!!!!!!!!!!!!!!!!!
  3. !!!Pain calculation!!!
  4. !!!!!!!!!!!!!!!!!!!!!
  5. pain['body1'] = pain['head'] + pain['hair'] + pain['ears'] + pain['eyebrows'] + pain['eyes'] + pain['cheeks'] + pain['nose'] + pain['mouth'] + pain['lips'] + pain['tongue']
  6. pain['body2'] = pain['throat'] + pain['neck'] + pain['back'] + pain['asscheeks'] + pain['asshole'] + pain['hips'] + pain['thighs'] + pain['legL'] + pain['legR'] + pain['feet']
  7. pain['body3'] = pain['toes'] + pain['shoulders'] + pain['armL'] + pain['armR'] + pain['hands'] + pain['fingers'] + pain['chest'] + pain['breasts'] + pain['nipples'] + pain['ribs']
  8. pain['body4'] = pain['tummy'] + pain['pubic'] + pain['vaginal'] + pain['labia'] + pain['clitoris'] + pain['urethra'] + pain['cervix']
  9. pain['total'] = pain['body1'] + pain['body2'] + pain['body3'] + pain['body4'] + (vgape * 8) + (agape * 10) + (spanked * 24)
  10. if pain['total'] > 100: pain['total'] = 100
  11. if pain['total'] > 80:
  12. if (health * 5) >= healthmax: health = health * 20 / 100
  13. if (manna * 5) >= mannamax: manna = manna * 20 / 100
  14. elseif pain['total'] > 60:
  15. if (health * 5 / 2) >= healthmax: health = health * 40 / 100
  16. if (manna * 5 / 2) >= mannamax: manna = manna * 40 / 100
  17. elseif pain['total'] > 40:
  18. if (health * 5 / 3) >= healthmax: health = health * 60 / 100
  19. if (manna * 5 / 3) >= mannamax: manna = manna * 60 / 100
  20. elseif pain['total'] > 20:
  21. if (health * 5 / 4) >= healthmax: health = health * 80 / 100
  22. if (manna * 5 / 4) >= mannamax: manna = manna * 80 / 100
  23. elseif pain['total'] > 0:
  24. if (health * 10 / 9) >= healthmax: health = health * 90 / 100
  25. if (manna * 10 / 9) >= mannamax: manna = manna * 90 / 100
  26. end
  27. !!!!!!!!!!!!!!!!!!!!!
  28. !!!Beginning Description!!!
  29. !!!!!!!!!!!!!!!!!!!!!
  30. if son > 100: son = 100
  31. if water > 100: water = 100
  32. if Enable_statfsize>0:pl'<font size=<<Enable_statfsize>>>'
  33. if hour < 10:
  34. if minut > 9 :
  35. pl '<b> 0<<hour>>:<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
  36. else
  37. pl '<b> 0<<hour>>:0<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
  38. end
  39. else
  40. if minut > 9 :
  41. pl '<b> <<hour>>:<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
  42. else
  43. pl '<b> <<hour>>:0<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
  44. end
  45. end
  46. pl
  47. pl '<b><<money>></b> <b>₽</b> in your purse.'
  48. if karta > 0:pl '<b><<karta>></b> <b>₽</b> in your bank account.'
  49. if stolmoney > 0:pl '<b><<stolmoney>></b> <b>₽</b> in your table drawer.'
  50. pl
  51. if ETOmenu = 1:
  52. pl '<b><<$health>></b>'
  53. pl '<b><<$willpower>></b>'
  54. pl '<b><<$energy>></b>'
  55. pl '<b><<$water>></b>'
  56. pl '<b><<$son>></b>'
  57. else
  58. gs 'indik', '2', horny, horny
  59. pl '<<$ind>> Arousal'
  60. gs 'indik', '2', pain['total'], pain['total']
  61. pl '<<$ind>> Pain'
  62. gs 'indik', '1', health * 100 / healthmax, health
  63. pl '<<$ind>> Health'
  64. gs 'indik', '1', willpower * 100 / willpowermax, willpower
  65. pl '<<$ind>> Willpower'
  66. if mannamax <=0:
  67. gs 'indik', '1', 0, manna
  68. else
  69. gs 'indik', '1', manna * 100 / mannamax, manna
  70. end
  71. pl '<<$ind>> Mood'
  72. gs 'indik', '1', energy, energy
  73. pl '<<$ind>> Hunger'
  74. gs 'indik', '1', water, water
  75. pl '<<$ind>> Thirst'
  76. gs 'indik', '1', son, son
  77. pl '<<$ind>> Sleep'
  78. end
  79. pl
  80. if Enable_showattr = 1:
  81. gs 'indik', '1',stren , stren
  82. pl '<<$ind>> Power'
  83. gs'indik','1',speed,speed
  84. pl '<<$ind>> Speed'
  85. gs'indik','1',agil,agil
  86. pl '<<$ind>> Agility'
  87. gs'indik','1',vital,vital
  88. pl '<<$ind>> Endurance'
  89. gs'indik','1',intel,intel
  90. pl '<<$ind>> Intelligence'
  91. gs'indik','1',will,will
  92. pl '<<$ind>> Spirit'
  93. gs'indik','1',react,react
  94. pl '<<$ind>> Reaction'
  95. gs'indik','1',vnesh / 2,vnesh
  96. pl '<<$ind>> Attractiveness'
  97. if SUB > 0:
  98. gs'indik','1',SUB,SUB
  99. pl '<<$ind>> Subordination'
  100. end
  101. if DOM > 0:
  102. gs'indik','1',DOM,DOM
  103. pl '<<$ind>> Dominance'
  104. end
  105. if SchoolAtestat = 0 and StoryLine > 0:
  106. gs'indik','1',Suspeh,Suspeh
  107. pl '<<$ind>> School Grades'
  108. end
  109. if exhibi > 0:
  110. gs'indik','1',exhibi*25,exhibi & !max at [dina], exhibi>=4
  111. pl '<<$ind>> exhibitionism'
  112. end
  113. end
  114. if Enable_showskill = 1:
  115. st_count=0
  116. $show_table=''
  117. if workPTU > 1:gs'show_table','<<teachlevel>> Teacher credibility','2'
  118. if magik > 0:gs'show_table','<<magik>> Magic','2'
  119. if Jab > 0:gs'show_table','<<Jab>> Jab','2'
  120. if Punch > 0:gs'show_table','<<Punch>> Power Strikes','2'
  121. if Kik > 0:gs'show_table','<<Kik>> Kicks','2'
  122. if KikDef > 0:gs'show_table','<<KikDef>> Protection','2'
  123. if beg > 0:gs'show_table','<<beg>> Running','2'
  124. if volleyboll > 0:gs'show_table','<<volleyboll>> Volleyball','2'
  125. if oficiant > 0:gs'show_table','<<oficiant>> Waitress','2'
  126. if vokal > 0:gs'show_table','<<vokal>> Vocal','2'
  127. if dance > 0:gs'show_table','<<dance>> Dancing','2'
  128. if dancePRO > 0:gs'show_table','<<dancePRO>> Regular dancing','2'
  129. if stripdance > 0:gs'show_table','<<stripdance>> Striptease','2'
  130. if poledance > 0:gs'show_table','<<poledance>> Poledancing','2'
  131. if shoot > 0:gs'show_table','<<shoot>> Shooting','2'
  132. if poSkill > 0:gs'show_table','<<poSkill>> tailor','2'
  133. if chess > 0:gs'show_table','<<chess>> Chess','2'
  134. if mutagenP > 0: gs'show_table','<<mutagenP>> Mutagen strength ','2'
  135. if mutagenV > 0: gs'show_table','<<mutagenV>> Mutagen endurance','2'
  136. if mutagenA > 0: gs'show_table','<<mutagenA>> Mutagen Agility','2'
  137. if st_count > 0 :pl 'Skills: <TABLE BORDER=1><<$show_table>></TR></TABLE>'
  138. end
  139. if Enable_showrelation = 1:
  140. st_count=0
  141. $show_table=''
  142. if nastjaqw > 0:gs'show_table','<<nastjaqw>> Nastja','2'
  143. if tanya > 0:gs'show_table','<<tanya>> Tanya','2'
  144. if kat > 0:gs'show_table','<<kat>> Kate','2'
  145. if vika > 0:gs'show_table','<<vika>> Vika','2'
  146. if Irina > 0:gs'show_table','<<Irina>> Irina','2'
  147. if Tamara > 0:gs'show_table','<<Tamara>> Tamara','2'
  148. if alla > 0:gs'show_table','<<alla>> Alla','2'
  149. if masha > 0:gs'show_table','<<masha>> Masha','2'
  150. if Givi > 0:gs'show_table','<<Givi>> Givi Karapetovich','2'
  151. if Ashot > 0:gs'show_table','<<Ashot>> Ashot','2'
  152. if Dmitry > 0:gs'show_table','<<Dmitry>> Dima','2'
  153. if afra > 0:gs'show_table','<<afra>> Blacks','2'
  154. if trenerepa > 0:gs'show_table','<<trenerepa>> Mikhail Nikolaevich','2'
  155. if StoryLine > 0:
  156. if mother > 0:gs'show_table','<<mother>> Mother','2'
  157. if father > 0:gs'show_table','<<father>> Father','2'
  158. if sister > 0:gs'show_table','<<sister>> Sister','2'
  159. if brother > 0:gs'show_table','<<brother>> Brother','2'
  160. end
  161. if st_count > 0 :pl 'Relations: <BR><TABLE BORDER=1> <<$show_table>></TR></TABLE>'
  162. end
  163. if BuyHous = 2 and ArendHouseSL <= 0:'<font color="red"><b>The rent on your apartment expires today.</b></font>'
  164. if BuyHous = 2 and ArendHouseSL <= 0:
  165. '<font color="red"><b>The rent on your apartment expires today.</b></font>'
  166. if money >= 6000 or stolmoney >= 6000 or money + stolmoney >= 6000 or karta >= 6000:
  167. *P ' Renew with '
  168. if money >= 6000:
  169. *P ' <a href="exec:money -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30" & gs''stat''>cash</a>'
  170. elseif stolmoney >= 6000:
  171. *P ' <a href="exec:stolmoney -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30" & gs''stat''>cash from drawer</a>'
  172. elseif money + stolmoney >= 6000:
  173. !both < 6000, so money = money - 6000 + stolmoney
  174. *P ' <a href="exec:money -= 6000 - stolmoney & stolmoney = 0 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30" & gs''stat''>cash from purse and drawer</a>'
  175. end
  176. !from purse, drawer or both
  177. if karta >= 6000: *P ' <a href="exec:karta -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs''stat''">bank account</a>'
  178. else
  179. *P ' But you can''t afford to renew the lease.'
  180. end
  181. end
  182. if weatherDay = daystart: pl '<<$weather>>' & pl
  183. if opPRE = 0: pl '<<$mop>> and your hair is <<$hapri>>.' & pl
  184. if StoryLine > 0 and SchoolAtestat = 0 and $holyday ! '': pl '<<$holyday>>' & pl
  185. if birthday = day and birthmonth = month: pl '<b>Today is your birthday.</b>' & pl
  186. !!if shame > 0:pl '<<$shame>>' & pl
  187. pl '<b><<$manna>></b>'
  188. pl
  189. if energy < 5:
  190. pl '<font color="red">You feel faint from hunger, if you don''t have something to eat very soon, you will pass out.</font>'
  191. elseif energy < 10:
  192. pl '<font color="red">You are starving, you really need to have something to eat.</font>'
  193. elseif energy < 20:
  194. pl 'You are very hungry and struggle to concentrate on anything other than food.'
  195. elseif energy < 30:
  196. pl 'You feel peckish and your thoughts sometimes drift towards food.'
  197. end
  198. if water < 5:
  199. pl '<font color="red">You feel light-headed, if you don''t have something to drink very soon, you will pass out.</font>'
  200. elseif water < 10:
  201. pl '<font color="red">You are dehydrated, you really need to have something to drink.</font>'
  202. elseif water < 20:
  203. pl 'You are thirsty and your dry throat is irritating and distracting you.'
  204. elseif water < 30:
  205. pl 'You feel a little thirsty and your mouth is a little dry.'
  206. end
  207. if son < 5:
  208. pl '<font color="red">You can''t keep your eyes open, if you don''t go to bed now, you will fall asleep right here.</font>'
  209. elseif son < 10:
  210. pl '<font color="red">You are exhausted, you really need to go to bed soon.</font>'
  211. elseif son < 20:
  212. pl 'You are tired and you are struggling to concentrate.'
  213. elseif son < 30:
  214. pl 'You feel a little tired.'
  215. end
  216. if horny >= 50:
  217. if horny < 90 and tanga = 1:
  218. pl'<font color = #DB7093>You are a little nervous, feeling nice between your legs <a href="exec:view''images/picb/briefs1.jpg''">itchy</a> from arousal.</font>'
  219. elseif horny < 90 and tanga = 0:
  220. pl'<font color = #DB7093>You are a little nervous, feeling nice between your legs <a href="exec:view''images/picb/briefs1a.jpg''">itchy</a> from arousal.</font>'
  221. elseif tanga = 1:
  222. pl'<font color = #FF1493>You feel that between your legs you are <a href="exec:view''images/picb/briefs2.jpg''">soaked</a> from your juices.</font>'
  223. else
  224. pl'<font color = #FF1493>You feel that between your legs you are <a href="exec:view''images/picb/briefs2a.jpg''">soaked</a> from your juices.</font>'
  225. end
  226. end
  227. $smoker = {
  228. siga -= 1
  229. smoker += 1
  230. smokeHour = hour
  231. smokeDay = day
  232. smokeminut = minut + 5
  233. smokeNeed = 0
  234. cumspclnt = 2
  235. gs 'cum_cleanup'
  236. fbreath = 0
  237. manna += 100
  238. wipo += 100
  239. if energy < 80:energy += 4
  240. gs 'stat'
  241. }
  242. if PillToggle = 1 and tabletki > 0:
  243. Stabletki += tabletki
  244. tabletki = 0
  245. elseif PillToggle = 0 and Stabletki > 0:
  246. tabletki += Stabletki
  247. Stabletki = 0
  248. end
  249. if CondomToggle = 1 and prezik > 0:
  250. Sprezik += prezik
  251. prezik = 0
  252. elseif CondomToggle = 0 and Sprezik > 0:
  253. prezik += Sprezik
  254. Sprezik = 0
  255. end
  256. if $mud ! '':pl '<font color="green"><b><<$mud>></b></font>' & pl
  257. if smoker >= 20:
  258. if smokeNeed > 0:
  259. if siga > 0:
  260. pl '<a href="exec:dynamic $smoker"><font color="red"><b>You want to smoke. You have <<siga>> cigarettes left.</b></font></a>'
  261. pl
  262. else
  263. pl '<a href="exec:dynamic $smoker"><font color="red"><b>You want to smoke, but you have no cigarettes left.</b></font></a>'
  264. pl
  265. end
  266. else
  267. if siga > 0:
  268. pl '<a href="exec:dynamic $smoker"><font color="blue"><b>You have <<siga>> cigarettes left.</b></font></a>'
  269. pl
  270. else
  271. pl '<font color="blue"><b>You feel like you should get some cigarettes.</b></font>'
  272. pl
  273. end
  274. end
  275. elseif siga > 0:
  276. pl'<a href="exec:dynamic $smoker"><font color = blue><b>You have <<siga>> cigarettes.</b></font></a>'
  277. pl
  278. end
  279. if smokeHour = hour and smokeday = day and smokeminut >= minut:pl '<font color="green">You are smoking a cigarette.</font>'
  280. if sweat = 1:
  281. pl '<font color="brown">You''re sweating.</font>'
  282. elseif sweat = 2:
  283. pl '<font color="red">You are a little smelly.</font>'
  284. elseif sweat = 3:
  285. pl '<font color="red">You stink.</font>'
  286. elseif sweat > 3:
  287. pl '<b><font color="red">You really stink.</font></b>'
  288. end
  289. !! MJ: Add a line before the next message.
  290. if sweat > 0: pl
  291. pl '<a href="exec:dynamic $d_cycreport_choice"><<$cycreport_txt>></a>'
  292. pl
  293. if prezikmsg = 2:pl '<b><font color="red">You have run out of condoms.</font></b>' & pl
  294. if mesec > 0:
  295. if isprok = 0 and isprokp = 0:
  296. pl '<b><font color="red">You are bleeding between your legs, you need to use feminine hygine products.</font></b>'
  297. elseif isprok = 1:
  298. pl 'You are having your period.'
  299. elseif isprokp = 1:
  300. if tanga = 0:
  301. isprokp = 0
  302. pl '<b><font color="red">You are bleeding between your legs, you need to wear panties to use a sanitary pad.</font></b>'
  303. else
  304. pl 'You are having your period.'
  305. end
  306. end
  307. end
  308. if lactate = 1:
  309. if lactatemv >= lactatemm-1:
  310. pl'<font color = black>Your breasts are so full they hurt and a little milk is constantly dribbling out.</font>'
  311. elseif lactatemv > lactatemm*9/10:
  312. pl'<font color = black>Your breasts are firm and full, and starting to hurt from all the milk they contain.</font>'
  313. elseif lactatemv > lactatemm*3/4:
  314. pl'<font color = black>Your breasts feel firm and heavy, full of milk.</font>'
  315. elseif lactatemv > lactatemm/2:
  316. pl'<font color = black>Your breasts are heavy, a cargo of milk inside.</font>'
  317. elseif lactatemv > lactatemm/4:
  318. pl'<font color = black>Your breasts feel a little heavy.</font>'
  319. elseif lactatemv > 0:
  320. pl'<font color = black>Your breasts tingle a little from the feeling of milk production.</font>'
  321. else
  322. pl'<font color = black>Your breasts feel soft and empty.</font>'
  323. end
  324. !! MJ: Add a line before the next message.
  325. pl
  326. end
  327. if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1:pl '<b><font color="red">It''s time to work your shift as a waitress in a cafe</font></b>'
  328. if hour >= 8 and hour < 9 and week < 5 and workSec >= 1:pl '<b><font color="red">It''s time to work your shift as a secretary</font></b>'
  329. if PersSecWork = 1 and week < 6 and hour < 10 and hour >= 5:pl '<b><font color="red">It''s time to work your shift as a secretary</font></b>'
  330. if workFabrika = 1 and week => 1 and week <= 5 and hour = 8 and age >= 18 or workFabrika = 1 and week => 1 and week <= 5 and hour = 16 and age < 18:pl'<b><font color = red>This morning you have work in the garment factory in Pavlovsk</font></b>'
  331. if Enable_Hymenrestore = 1: vagina = 0
  332. if Enable_tightrestore = 1: anus = 0 & if vagina > 0:vagina = 1
  333. if Enable_clearwrite > 0: body_write = 0 & face_write = 0
  334. !{
  335. if Enable_clearcum > 0:
  336. killvar 'sparrvol[0]'
  337. end
  338. if Enable_fbreath > 0:
  339. cumspclnt = 2
  340. gs 'cum_cleanup'
  341. fbreath=1
  342. end
  343. }
  344. $clear_write = {
  345. body_write = 0
  346. face_write = 0
  347. minut += 10
  348. gs'stat'
  349. 'It takes you 10 minutes to thoroughly wash the obscene "painting" from your body.'
  350. }
  351. !!'<a href="exec:view''images/body/cumface.jpg''">лицо</a>'
  352. !!'<a href="exec:view''images/body/cumface.jpg''"><b><font color="red">Your face</font></b></a>'
  353. !!'<a href="exec:view''images/body/cumass.jpg''"><b><font color="red">Your ass</font></b></a>'
  354. if body_write > 0 and face_write > 0:
  355. if body_write > 1 and face_write = 0:
  356. pl'<b><font color = red><a href="exec:dynamic $clear_write"><b><font color = red>Your body is inscribed with derogatory graffiti.</font></b></a>'
  357. elseif body_write = 1 and face_write = 0:
  358. pl'<b><font color = red><a href="exec:dynamic $clear_write"><b><font color = red>Your body is an obscene sign.</font></b></a>'
  359. elseif body_write = 0 and face_write > 1:
  360. pl'<b><font color = red><a href="exec:dynamic $clear_write"><b><font color = red>Your face is covered with writing obscene epithets.</font></b></a>'
  361. elseif body_write = 0 and face_write = 1:
  362. pl'<b><font color = red><a href="exec:dynamic $clear_write"><b><font color = red>On your face humiliating label.</font></b></a>'
  363. else
  364. pl'<b><font color = red><a href="exec:dynamic $clear_write"><b><font color = red>Your body and face painted with obscene graffiti.</font></b></a>'
  365. end
  366. end
  367. $temp[1] = {
  368. if sparridt[temp1arr] = 1:
  369. temp2arr = temp1arr + 1
  370. temp3arr = arrpos(temp2arr,'sparrloc',i)
  371. if temp3arr > 0 and sparrvol[temp3arr] > 0 and sparrloc[temp3arr] = i and $sparrnam[temp3arr] ! $sparrnam[temp1arr]:
  372. $cumtemp[1] = 'Multiple men'
  373. else
  374. $cumtemp[1] = $sparrnam[temp1arr]
  375. end
  376. else
  377. $cumtemp[1] = 'Somebody'
  378. end
  379. if sparrage[temp1arr] < temp[2]:
  380. $cumtemp[2] = 'fresh '
  381. elseif sparrage[temp1arr] < temp[3]:
  382. $cumtemp[2] = ''
  383. else
  384. temp[4] = sparrloc[temp1arr]
  385. if temp[4] ! 0 and temp ! 3:
  386. $cumtemp[2] = 'crusty '
  387. else
  388. $cumtemp[2] = 'stale '
  389. end
  390. end
  391. }
  392. temp = arrsize('sparrvol')
  393. if temp > 0:
  394. !{index for use in dynamic}
  395. i = 0
  396. !{values for fresh and crusty, only updated where needed}
  397. temp[2] = 4
  398. temp[3] = 10
  399. temp1arr = arrpos('sparrloc',i)
  400. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  401. dynamic $temp[1]
  402. $cumtemp[3] = 'fills your '
  403. if sparrslc[temp1arr] > 0:
  404. $cumtemp[3] = 'slowly flows from your '
  405. spdirtyn = 1
  406. elseif sparrslc[temp] > 0 and sparrloc[temp] = 0:
  407. $cumtemp[3] = 'slowly flows from your '
  408. spdirtyn = 1
  409. end
  410. if swallow >= 10:
  411. pl '<a href="exec:view''images/body/cumpussy.jpg''"><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',0) & gs ''cum_manage'', ''cumeater2''"><b><font color="blue">sperm</font></b></a><b> <<$cumtemp[3]>>pussy</font></b></a>.'
  412. else
  413. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm <<$cumtemp[3]>><a href="exec:view''images/body/cumpussy.jpg''">pussy</a>.</font></b>'
  414. end
  415. cumloc[0] = 1
  416. spdirty = 1
  417. spdirtyi = 1
  418. end
  419. i = 1
  420. temp[2] = 1
  421. temp[3] = 5
  422. temp1arr = arrpos('sparrloc',i)
  423. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  424. dynamic $temp[1]
  425. if swallow >= 10 and sparrage[temp1arr] < 5:
  426. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',1) & gs ''cum_manage'', ''cumeater2''"><b><font color="blue">sperm</font></b></a><b> is smeared across your pussy lips.</font></b>.'
  427. else
  428. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your pussy lips.'
  429. end
  430. cumloc[1] = 1
  431. spdirty = 1
  432. spdirtyn = 1
  433. end
  434. i = 2
  435. temp1arr = arrpos('sparrloc',i)
  436. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  437. dynamic $temp[1]
  438. if swallow >= 10 and sparrage[temp1arr] < 5:
  439. pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',2) & gs ''cum_manage'', ''cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on the crotch of your panties.</font></b>.'
  440. else
  441. pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on the crotch of your panties.'
  442. end
  443. cumloc[2] = 1
  444. spdirtyc = 1
  445. end
  446. i = 3
  447. temp[2] = 4
  448. temp[3] = 10
  449. temp1arr = arrpos('sparrloc',i)
  450. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  451. dynamic $temp[1]
  452. if analplugin = 1:
  453. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is stuffed in your ass, corked in by your anal plug.</font></b>'
  454. else
  455. $cumtemp[3] = 'fills your '
  456. if sparrslc[temp1arr] > 0:
  457. $cumtemp[3] = 'slowly flows from your '
  458. spdirtyn = 1
  459. elseif sparrslc[temp] > 0 and sparrloc[temp] = 3:
  460. $cumtemp[3] = 'slowly flows from your '
  461. spdirtyn = 1
  462. end
  463. if swallow >= 10:
  464. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',3) & gs ''cum_manage'', ''cumeater6''"><b><font color="blue">sperm</font></b></a><b> <<$cumtemp[3]>><a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
  465. else
  466. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm <<$cumtemp[3]>><a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
  467. end
  468. end
  469. cumloc[3] = 1
  470. spdirty = 1
  471. spdirtyi = 1
  472. end
  473. i = 4
  474. temp[2] = 1
  475. temp[3] = 5
  476. temp1arr = arrpos('sparrloc',i)
  477. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  478. dynamic $temp[1]
  479. if swallow >= 10 and sparrage[temp1arr] < 5:
  480. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',4) & gs ''cum_manage'', ''cumeater3''"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumass.jpg''">ass</a>.</font></b>.'
  481. else
  482. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your <a href="exec:view''images/body/cumass.jpg''">ass</a>.'
  483. end
  484. cumloc[4] = 1
  485. spdirty = 1
  486. spdirtyn = 1
  487. end
  488. i = 5
  489. temp1arr = arrpos('sparrloc',i)
  490. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  491. dynamic $temp[1]
  492. if swallow >= 10 and sparrage[temp1arr] < 5:
  493. pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',5) & gs ''cum_manage'', ''cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on the ass of your panties.</font></b>.'
  494. else
  495. pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on the ass of your panties.'
  496. end
  497. cumloc[5] = 1
  498. spdirtyc = 1
  499. end
  500. i = 6
  501. temp1arr = arrpos('sparrloc',i)
  502. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  503. dynamic $temp[1]
  504. if swallow >= 10 and sparrage[temp1arr] < 5:
  505. pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',6) & gs ''cum_manage'', ''cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on the crotch of your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</font></b>.'
  506. else
  507. pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on the crotch of your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.'
  508. end
  509. cumloc[6] = 1
  510. spdirtyc = 1
  511. end
  512. i = 7
  513. temp1arr = arrpos('sparrloc',i)
  514. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  515. dynamic $temp[1]
  516. if swallow >= 10 and sparrage[temp1arr] < 5:
  517. pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',7) & gs ''cum_manage'', ''cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</font></b>.'
  518. else
  519. pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.'
  520. end
  521. cumloc[7] = 1
  522. spdirtyc = 1
  523. end
  524. i = 8
  525. temp1arr = arrpos('sparrloc',i)
  526. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  527. dynamic $temp[1]
  528. if swallow >= 10 and sparrage[temp1arr] < 5:
  529. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',8) & gs ''cum_manage'', ''cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your back.</font></b>.'
  530. else
  531. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your back.'
  532. end
  533. cumloc[8] = 1
  534. spdirty = 1
  535. spdirtyn = 1
  536. end
  537. i = 9
  538. temp1arr = arrpos('sparrloc',i)
  539. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  540. dynamic $temp[1]
  541. if swallow >= 10 and sparrage[temp1arr] < 5:
  542. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',9) & gs ''cum_manage'', ''cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your legs.</font></b>.'
  543. else
  544. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your legs.'
  545. end
  546. cumloc[9] = 1
  547. spdirty = 1
  548. spdirtyn = 1
  549. end
  550. i = 10
  551. temp1arr = arrpos('sparrloc',i)
  552. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  553. dynamic $temp[1]
  554. if swallow >= 10 and sparrage[temp1arr] < 5:
  555. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',10) & gs ''cum_manage'', ''cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your arms.</font></b>.'
  556. else
  557. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your arms.'
  558. end
  559. cumloc[10] = 1
  560. spdirty = 1
  561. spdirtyn = 1
  562. end
  563. i = 11
  564. temp1arr = arrpos('sparrloc',i)
  565. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  566. dynamic $temp[1]
  567. if swallow >= 10 and sparrage[temp1arr] < 5:
  568. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',11) & gs ''cum_manage'', ''cumeater4''"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumface.jpg''">face</a>.</font></b>.'
  569. else
  570. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your <a href="exec:view''images/body/cumface.jpg''">face</a>.'
  571. end
  572. cumloc[11] = 1
  573. spdirty = 1
  574. spdirtyn = 1
  575. spdirtyv = 1
  576. end
  577. i = 12
  578. temp1arr = arrpos('sparrloc',i)
  579. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  580. dynamic $temp[1]
  581. pl '<b><font color="red">Your mouth smells like <<$cumtemp[1]>>''s sperm.</a>'
  582. cumloc[12] = 1
  583. spdirty = 1
  584. spdirtyb = 1
  585. fbreath = 0
  586. end
  587. i = 13
  588. temp1arr = arrpos('sparrloc',i)
  589. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  590. dynamic $temp[1]
  591. if swallow >= 10 and sparrage[temp1arr] < 5:
  592. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',13) & gs ''cum_manage'', ''cumeater8''"><b><font color="blue">sperm</font></b></a><b> is smeared across your hands.</font></b>.'
  593. else
  594. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your hands.'
  595. end
  596. cumloc[13] = 1
  597. spdirty = 1
  598. spdirtyn = 1
  599. spdirtyv = 1
  600. spdirtyf = 1
  601. end
  602. i = 14
  603. temp1arr = arrpos('sparrloc',i)
  604. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  605. dynamic $temp[1]
  606. if swallow >= 10 and sparrage[temp1arr] < 5:
  607. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',14) & gs ''cum_manage'', ''cumeater1''"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumbelly.jpg''">stomach</a>.</font></b>.'
  608. else
  609. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your <a href="exec:view''images/body/cumbelly.jpg''">stomach</a>.'
  610. end
  611. cumloc[14] = 1
  612. spdirty = 1
  613. spdirtyn = 1
  614. end
  615. i = 15
  616. temp1arr = arrpos('sparrloc',i)
  617. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  618. dynamic $temp[1]
  619. if swallow >= 10 and sparrage[temp1arr] < 5:
  620. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',15) & gs ''cum_manage'', ''cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your breasts.</font></b>.'
  621. else
  622. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your breasts.'
  623. end
  624. cumloc[15] = 1
  625. spdirty = 1
  626. spdirtyn = 1
  627. end
  628. i = 16
  629. temp1arr = arrpos('sparrloc',i)
  630. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  631. dynamic $temp[1]
  632. if swallow >= 10 and sparrage[temp1arr] < 5:
  633. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',16) & gs ''cum_manage'', ''cumeater9''"><b><font color="blue">sperm</font></b></a><b> is smeared in your hair.</font></b>.'
  634. else
  635. pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared in your hair.'
  636. end
  637. cumloc[16] = 1
  638. spdirty = 1
  639. spdirtyn = 1
  640. spdirtyv = 1
  641. end
  642. i = 17
  643. temp1arr = arrpos('sparrloc',i)
  644. if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
  645. if sparridt[temp1arr] = 1:
  646. $cumtemp[1] = $sparrnam[temp1arr]
  647. else
  648. $cumtemp[1] = 'Somebody'
  649. end
  650. if sparrage[temp1arr] < 1:
  651. $cumtemp[2] = 'freshly buried'
  652. elseif sparrage[temp1arr] < 13:
  653. $cumtemp[2] = 'buried'
  654. else
  655. $cumtemp[2] = 'marinating '
  656. end
  657. pl '<b><font color="red">A spent condom full of <<$cumtemp[1]>>''s sperm is <<$cumtemp[2]>> deep in your vagina.'
  658. cumloc[17] = 1
  659. spdirty = 1
  660. spdirtyi = 1
  661. end
  662. end
  663. !{should kill all temp values}
  664. killvar '$temp'
  665. killvar '$cumtemp'
  666. temp1arr = 0
  667. temp2arr = 0
  668. temp3arr = 0
  669. cumfrot = 0
  670. cumpussy = 0
  671. cumbelly = 0
  672. cumass = 0
  673. cumlip = 0
  674. cumface = 0
  675. cumanus = 0
  676. if $clothingworntype = 'nude' and lactatemess > 0:
  677. if lactatemess < 3:
  678. pl'<font color = black>You have a little milk residue around your nipples.</font>'
  679. elseif lactatemess < 7:
  680. pl'<font color = black>You have a lot of milk residue around your nipples.</font>'
  681. else
  682. pl'<font color = black>Your breasts are drenched with milk residue.</font>'
  683. end
  684. elseif lactatemess > 0:
  685. if lactatemess < 3:
  686. pl'<font color = black>You have tiny wet spots on your clothes above your nippes.</font>'
  687. elseif lactatemess < 7:
  688. pl'<font color = black>Milk has soaked through your clothes and made visible circles on your breasts.</font>'
  689. else
  690. pl'<font color = black>Your shirt is drenched with milk from your breasts.</font>'
  691. end
  692. end
  693. if Gerpes >= 10:
  694. pl '<b><font color="red">On your pussy sores have appeared. This is genital herpes.</font></b>'
  695. elseif Gerpes >= 5:
  696. pl '<b><font color="red">Your pussy is flushed and highly itchy. This is genital herpes.</font></b>'
  697. elseif Gerpes >= 3:
  698. pl '<b><font color="red">On your lips sores. All signs of genital herpes.</font></b>'
  699. end
  700. if Gerpes >= 20:*pl ' <b><font color="red">The sores also cover your ass.</font></b>'
  701. if Sifilis >= 50:
  702. pl '<b><font color="red">Syphilitic rashes cover your whole body.</font></b>'
  703. elseif Sifilis >= 21:
  704. pl '<b><font color="red">You have a single big, hard sore on the lip.</font></b>'
  705. end
  706. if Triper > 2:pl '<b><font color="red">From your vagina a white discharge comes out strong and stinging when urinating. Also from your vagina there''s a hard and nasty smell.</font></b>'
  707. if Kandidoz > 30:pl '<b><font color="red">You have thrush.</font></b>'
  708. if SLomka > 0:pl '<b><font color="red">You are very weak and hurt to the bone. You''re in withdrawal.</font></b>'
  709. if narkday ! daystart and narkoman = 1:pl '<b><font color="red">You are very weak and hurt to the bone. Urgently need pale lady.</font></b>'
  710. if fingal > 0:pl '<b><font color="red">You have a black eye.</font></b>'
  711. ! WD: Bimbo look
  712. pl '<<$bimbostatus>>'
  713. if tanga = 1 and $clothingworntype = 'nude':
  714. pl'<b><font color = red>You are stripped down to your panties and your boobs sway invitingly as you walk</font></b>'
  715. elseif tanga= 1 and PCloBimbo = 1:
  716. pl'<b><font color = #FF1493>You are dressed as a bimbo</font></b>'
  717. elseif tanga = 0:
  718. if $clothingworntype = 'naughty' and CloQuality = 2:
  719. pl '<b><font color="red">you are not wearing panties, but you are dressed as a hooker, so that''s hardly surprising.</font></b>'
  720. elseif PCloBimbo = 1:
  721. pl '<b><font color = #FF1493>You like, totally forgot to put on any panties. You are such a bimbo.</font></b>'
  722. elseif PCloSkirt > 3:
  723. pl '<b><font color="red">Your face is flushed with shame, you are not wearing panties and your naked ass flashes from under your short skirt.</font></b>'
  724. elseif opPRE = 0 and $clothingworntype ! 'nude':
  725. pl '<b><font color="red">You are not wearing panties.</font></b>'
  726. elseif towel = 1:
  727. pl'<b><font color = red>Your naked body is covered only by a short towel</font></b>'
  728. elseif $clothingworntype = 'nude':
  729. pl'<b><font color = red>You completely naked, and inside, everything trembles</font></b>'
  730. end
  731. end
  732. if mosol >= 50:
  733. pl '<b><font color="red">Your pussy hurts and each step causes more pain, it''s crimson and visiblably scuffed from walking without underwear.</font></b>'
  734. elseif mosol >= 30:
  735. pl '<b><font color="red">Your pussy is flushed and itchy, it seems to be from rubbing against your clothing.</font></b>'
  736. end
  737. if analplugIN = 1:pl '<b><font color="red">You have inserted your butt plug into your ass.</font></b>'
  738. if vibratorin = 1:pl '<b><font color="red">You have inserted your vibrator into your vagina.</font></b>'
  739. if young_shop_work = 1:
  740. if hour = 15 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
  741. 'You are late for work at Keys Pussy.'
  742. elseif hour = 15 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
  743. misscheck = daystart
  744. young_shop_miss += 1
  745. pl '<b><font color="red">You missed work.</font></b>'
  746. elseif (hour = 14 or hour = 13) and week < 6:
  747. pl '<b><font color="red">By 15:00 you have to be at work in the shop Keys Pussy.</font></b>'
  748. end
  749. end
  750. if workrin = 1:
  751. if week = 2 or week = 4 or week = 6:
  752. if hour = 7:pl '<b><font color="red">At 8 c''clock you start work on the market.</font></b>'
  753. if hour = 8:pl '<b><font color="red">You need to work on the market now.</font></b>'
  754. end
  755. end
  756. if frost > 0:
  757. if frost <= 5:
  758. pl '<b><font>You are a little chilly.</font></b>'
  759. elseif frost < 11:
  760. pl '<b><font color="red">Are you cold.</font></b>'
  761. else
  762. pl '<b><font color="red">You are very cold.</font></b>'
  763. end
  764. end
  765. if sick > 0:
  766. if sick = 1:
  767. pl '<b><font color="red">This is not good, a tickle in the throat and a little runny nose.</font></b>'
  768. elseif sick < 24:
  769. pl '<b><font color="red">You have chills. You nose is running and throat is raw, you cough and sneeze - it looks like you got a cold.</font></b>'
  770. elseif sick < 48:
  771. pl '<b><font color="red">You have a fever. Your nose is clogged, it hurts to swallow - throat aches. You continually cough and sneeze - it looks like your cold is pretty bad.</font></b>'
  772. elseif sick < 72:
  773. pl '<b><font color="red">You have a high fever. You have a stuffy nose, sore head and throat, your coughing badly - it looks like you got a strong cold. Maybe it''s the flu.</font></b>'
  774. else
  775. pl '<b><font color="red">You toss in the heat. You have a stuffy nose, headache and ache to the bone. Your throat is inflamed and very sore. You think you''re going to cough up a lung - it looks like you are seriously ill, or maybe it''s just a sore throat.</font></b>'
  776. end
  777. end
  778. if $mudnerd ! '':pl '<<$mudnerd>>'
  779. if housr = 1:
  780. $streetev_home = 'your apartment'
  781. elseif tanwork = 1:
  782. $streetev_home = 'Tanya''s apartment'
  783. elseif student > 0:
  784. $streetev_home = 'your dorm'
  785. else
  786. $streetev_home = 'the train station'
  787. end
  788. if hour < meethour and svidanieA = 1:pl '<<$boyA>> will be waiting for you near <<$streetev_home>> at <<meethour>>:00.'
  789. if hour = meethour and svidanieA = 1:pl '<b><font color="red"><<$boyA>> is waiting for you by <<$streetev_home>>.</font></b>'
  790. if meetday < daystart and svidanieA = 1:bfA -= 10 & svidanieA = 0
  791. if StrongNarkota > 20:pl '<b><font color="red">You are stoned.</font></b>'
  792. if alko > 0:
  793. if alko < 3:pl '<b><font color="red">You''re a little dizzy.</font></b>'
  794. if alko >= 3 and alko < 6:pl '<b><font color="red">You''re drunk.</font></b>'
  795. if alko >= 6:pl '<b><font color="red">You''re wasted.</font></b>'
  796. end
  797. if day = 31 and month = 12 and (year - year_start) < 2 and hour >= 5 and hour <= 14 and StoryLine = 1:pl 'At 14:00 your New Year''s party will start.'
  798. if StoryLine = 1 and sisboyday + 1 = daystart and hour < 19 and (sisboyQW = 3 or sisboyQW = 5 or sisboyQW = 7 or (sisboyQW = 9 and sisboytrioQW ! 1)):pl'' & pl'You promised your sister not to go into your room at 18:00.'
  799. if StoryLine = 1 and sisboyday + 1 = daystart and hour < 19 and sisboytrioQW = 1:pl'' & pl'You promised your sister to meet her in your room at 18:00.'
  800. dynamic $brotherSexCount
  801. if bag > 0:pl '<a href="exec:dynamic $d_bag"><b>Handbag</b></a>'
  802. !!zero checks marriage
  803. proverka1 = 0
  804. proverka2 = 0
  805. proverka3 = 0
  806. proverka4 = 0
  807. proverka5 = 0
  808. ! WD: Code for updating from old clothing system pre 0.5.0
  809. !!clothing converter, for old saves. Not complete listing.
  810. if remdrop = 0:
  811. remdrop = 1
  812. if jeans[1] = 1:cheap[15] = 1 & cheapH[15] = jeansH[1] & cheapB[15] = jeansB[1] & jeans[1] = 0
  813. if jeans[205] = 1:average[65] = 1 & averageH[65] = jeansH[205] & averageB[65] = jeansB[205] & jeans[205] = 0
  814. if jeans[202] = 1:average[64] = 1 & averageH[64] = jeansH[202] & averageB[64] = jeansB[202] & jeans[202] = 0
  815. if jeans[2] = 1:average[62] = 1 & averageH[62] = jeansH[2] & averageB[62] = jeansB[2] & jeans[2] = 0
  816. if jeans[222] = 1:average[75] = 1 & averageH[75] = jeansH[222] & averageB[75] = jeansB[222] & jeans[222] = 0
  817. if jeans[223] = 1:average[76] = 1 & averageH[76] = jeansH[223] & averageB[76] = jeansB[223] & jeans[223] = 0
  818. if jeans[224] = 1:average[78] = 1 & averageH[78] = jeansH[224] & averageB[78] = jeansB[224] & jeans[224] = 0
  819. if jeans[232] = 1:average[79] = 1 & averageH[79] = jeansH[232] & averageB[79] = jeansB[232] & jeans[232] = 0
  820. if jeans[233] = 1:average[80] = 1 & averageH[80] = jeansH[233] & averageB[80] = jeansB[233] & jeans[233] = 0
  821. if jeans[267] = 1:expensive[3] = 1 & expensiveH[3] = jeansH[267] & expensiveB[3] = jeansB[267] & jeans[267] = 0
  822. if jeans[263] = 1:expensive[18] = 1 & expensiveH[18] = jeansH[263] & expensiveB[18] = jeansB[263] & jeans[263] = 0
  823. if jeans[234] = 1:expensive[71] = 1 & expensiveH[71] = jeansH[234] & expensiveB[71] = jeansB[234] & jeans[234] = 0
  824. if jeans[231] = 1:expensive[124] = 1 & expensiveH[124] = jeansH[231] & expensiveB[124] = jeansB[231] & jeans[231] = 0
  825. if yoga[1] = 1:exercise[1] = 1 & exerciseH[1] = yogaH[1] & yoga[1] = 0
  826. if yoga[2] = 1:exercise[2] = 1 & exerciseH[2] = yogaH[2] & yoga[2] = 0
  827. if yoga[4] = 1:exercise[4] = 1 & exerciseH[4] = yogaH[4] & yoga[4] = 0
  828. if yoga[5] = 1:exercise[5] = 1 & exerciseH[5] = yogaH[5] & yoga[5] = 0
  829. if yoga[6] = 1:exercise[6] = 1 & exerciseH[6] = yogaH[6] & yoga[6] = 0
  830. if yoga[7] = 1:exercise[7] = 1 & exerciseH[7] = yogaH[7] & yoga[7] = 0
  831. if yoga[8] = 1:exercise[8] = 1 & exerciseH[8] = yogaH[8] & yoga[8] = 0
  832. if yoga[9] = 1:exercise[9] = 1 & exerciseH[9] = yogaH[9] & yoga[9] = 0
  833. if yoga[10] = 1:exercise[10] = 1 & exerciseH[10] = yogaH[10] & yoga[10] = 0
  834. if yoga[11] = 1:exercise[11] = 1 & exerciseH[11] = yogaH[11] & yoga[11] = 0
  835. if yoga[12] = 1:exercise[12] = 1 & exerciseH[12] = yogaH[12] & yoga[12] = 0
  836. if yoga[13] = 1:exercise[13] = 1 & exerciseH[13] = yogaH[13] & yoga[13] = 0
  837. if yoga[14] = 1:exercise[14] = 1 & exerciseH[14] = yogaH[14] & yoga[14] = 0
  838. if yoga[15] = 1:exercise[15] = 1 & exerciseH[15] = yogaH[15] & yoga[15] = 0
  839. if yoga[16] = 1:exercise[16] = 1 & exerciseH[16] = yogaH[16] & yoga[16] = 0
  840. if yoga[17] = 1:exercise[17] = 1 & exerciseH[17] = yogaH[17] & yoga[17] = 0
  841. if yoga[18] = 1:exercise[18] = 1 & exerciseH[18] = yogaH[18] & yoga[18] = 0
  842. end
  843. if Enable_statfsize>0:pl'</font>' & !disable this, all texts comes from pl will have the same font size, like[time]
  844. if Enable_faceturn = 1: view FUNC('$face_image')
  845. --- stat_display ---------------------------------