1
0

stat_display.qsrc 67 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459
  1. # stat_display
  2. gs 'outdoors', 'main'
  3. !!Sex stat update
  4. stat['mast'] += mastr & mastr = 0
  5. stat['hj'] += hj & hj = 0
  6. stat['bj'] += bj & bj = 0
  7. stat['vaginal'] += sex & sex = 0
  8. stat['anal'] += anal & anal = 0
  9. stat['cuni'] += kuni & kuni = 0
  10. stat['anal_strap_give'] += pegging & pegging = 0
  11. !!!!!!!!!!!!!!!!!!!!!
  12. !!!Pain calculation!!!
  13. !!!!!!!!!!!!!!!!!!!!!
  14. paintmp1 = func('shortgs','modul',pain['head'],pain['hair'],pain['ears'],pain['eyebrows'],pain['eyes'],pain['cheeks'],pain['nose'],pain['mouth'])
  15. paintmp2 = func('shortgs','modul',pain['tummy'],pain['pubic'],pain['vaginal'],pain['labia'],pain['clitoris'],pain['urethra'],pain['cervix'],pain['lips'])
  16. paintmp3 = func('shortgs','modul',pain['throat'],pain['asscheeks'],pain['asshole'],pain['hips'],pain['thighs'],pain['legL'],pain['legR'],pain['feet'])
  17. paintmp4 = func('shortgs','modul',pain['toes'],pain['shoulders'],pain['armL'],pain['armR'],pain['hands'],pain['fingers'],pain['chest'],pain['breasts'])
  18. paintmp5 = func('shortgs','modul',pain['tongue'],pain['neck'],pain['back'],pain['nipples'],pain['ribs'],vgape * 8, agape * 10,spanked * 24)
  19. pain['total'] = func('shortgs','modul',paintmp1,paintmp2,paintmp3,paintmp4,paintmp5)
  20. if pain['total'] > 100: pain['total'] = 100
  21. pain['damage'] = pain['total']
  22. pain['relief'] = 0
  23. if alko > 9:
  24. pain['relief'] = 70
  25. elseif alko > 6:
  26. pain['relief'] = 40
  27. elseif alko > 3:
  28. pain['relief'] = 15
  29. end
  30. if StrongNarkota > 0:
  31. pain['relief'] = 90
  32. elseif nark > 0:
  33. pain['relief'] = 60
  34. elseif pain['killer'] > 12 and alko <= 9:
  35. pain['relief'] = 50
  36. end
  37. if pain['relief'] ! 0:
  38. if (pain['total'] / pain['relief']) > 0:
  39. pain['total'] = pain['total'] / pain['relief']
  40. elseif pain['total'] > 0:
  41. pain['total'] = 0
  42. end
  43. end
  44. if pain['total'] > 80:
  45. if (pcs_health * 5) >= healthmax: pcs_health = pcs_health * 20 / 100
  46. if (pcs_mood * 5) >= 100: pcs_mood = pcs_mood * 20 / 100
  47. elseif pain['total'] > 60:
  48. if (pcs_health * 5 / 2) >= healthmax: pcs_health = pcs_health * 40 / 100
  49. if (pcs_mood * 5 / 2) >= 100: pcs_mood = pcs_mood * 40 / 100
  50. elseif pain['total'] > 40:
  51. if (pcs_health * 5 / 3) >= healthmax: pcs_health = pcs_health * 60 / 100
  52. if (pcs_mood * 5 / 3) >= 100: pcs_mood = pcs_mood * 60 / 100
  53. elseif pain['total'] > 20:
  54. if (pcs_health * 5 / 4) >= healthmax: pcs_health = pcs_health * 80 / 100
  55. if (pcs_mood * 5 / 4) >= 100: pcs_mood = pcs_mood * 80 / 100
  56. elseif pain['total'] > 0:
  57. if (pcs_health * 10 / 9) >= healthmax: pcs_health = pcs_health * 90 / 100
  58. if (pcs_mood * 10 / 9) >= 100: pcs_mood = pcs_mood * 90 / 100
  59. end
  60. !!--------------------------pain calculation end--------------------------------
  61. !!update skills and attributes to pcs_ from there _lvl values plus adjustments based on condition
  62. gs 'stat_sklattrib_lvlset'
  63. !!Sleep variable cap
  64. if pcs_sleep > 100: pcs_sleep = 100
  65. !!!!!!!!!!!!!!!!!!!!!
  66. !!!Beginning Description!!!
  67. !!!!!!!!!!!!!!!!!!!!!
  68. !!----------------image Extra messages, start--------------------------
  69. $stat_imgtool_msg=''
  70. $stat_imgextra_msg=''
  71. if Enable_showstatimg = 1:
  72. !There are 3 display mode, with toobar / top / bottom, controlled by Enable_statimg_loc
  73. if Enable_statimg_face = 0:
  74. $stat_imgtool_msg += '<a href="exec:Enable_statimg_face = 1 & gs ''$menu_obnovit''">◇Face</a>'
  75. else
  76. $stat_imgtool_msg += '<a href="exec:Enable_statimg_face = 0 & gs ''$menu_obnovit''">◆Face</a>'
  77. $img_temp = FUNC('$face_image')
  78. if $img_temp ! null: $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
  79. end
  80. if Enable_statimg_body = 0:
  81. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_body = 1 & gs ''$menu_obnovit''">◇Body</a>'
  82. else
  83. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_body = 0 & gs ''$menu_obnovit''">◆Body</a>'
  84. $img_temp = FUNC('$body_image','body')
  85. if $img_temp ! null: $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
  86. end
  87. if Enable_statimg_coat = 0:
  88. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_coat = 1 & gs ''$menu_obnovit''">◇Coat</a>'
  89. else
  90. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_coat = 0 & gs ''$menu_obnovit''">◆Coat</a>'
  91. $img_temp = FUNC('$body_image','coat')
  92. if $img_temp ! null: $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
  93. end
  94. if Enable_statimg_cloth = 0:
  95. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_cloth = 1 & gs ''$menu_obnovit''">◇Clothes</a>'
  96. else
  97. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_cloth = 0 & gs ''$menu_obnovit''">◆Clothes</a>'
  98. $img_temp = FUNC('$body_image','clothes')
  99. if $img_temp ! null: $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
  100. end
  101. if Enable_statimg_bra = 0:
  102. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_bra = 1 & gs ''$menu_obnovit''">◇Bra</a>'
  103. else
  104. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_bra = 0 & gs ''$menu_obnovit''">◆Bra</a>'
  105. $img_temp = FUNC('$body_image','bra')
  106. if $img_temp ! null: $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
  107. end
  108. if Enable_statimg_panties = 0:
  109. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_panties = 1 & gs ''$menu_obnovit''">◇Panties</a>'
  110. else
  111. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_panties = 0 & gs ''$menu_obnovit''">◆Panties</a>'
  112. $img_temp = FUNC('$body_image','panties')
  113. if $img_temp ! null: $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
  114. end
  115. if Enable_statimg_shoes = 0:
  116. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_shoes = 1 & gs ''$menu_obnovit''">◇Shoes</a>'
  117. else
  118. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_shoes = 0 & gs ''$menu_obnovit''">◆Shoes</a>'
  119. $img_temp = FUNC('$body_image','shoes')
  120. if $img_temp ! null: $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
  121. end
  122. if $menu_loc ! '': $stat_imgtool_msg += ' <a href="exec:gs ''Cheatmenu_din'' & dynamic $cheatmenu[''setting'']">◎Settings</a>'
  123. end
  124. !!----------------image Extra messages, end --------------------------
  125. if Enable_statimg_loc = 1:
  126. $stat_msg = '<<$stat_imgtool_msg>><br><<$stat_imgextra_msg>><br><<$stat_msg>>'
  127. end
  128. $stat_android = '<b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>'
  129. $stat_msg += '<table><tr><td><a href="exec:msg ''<<$weather>>''"><<$weatherImage>></a></td><td><<$temperature>></td></tr></table>'
  130. if Enable_statfsize>0:$stat_msg = '<font size=<<Enable_statfsize>>><<$stat_msg>>'
  131. !$stat_msg += '<<$weather>><BR>'
  132. !pl '<<$weatherImage>>'
  133. if timeHidden = 0:
  134. $stat_msg += '<BR><<$stat_android>> <<$week[week]>> <<day>> <<$month>> <<year>>'
  135. end
  136. $stat_android += '<<$week[week]>> <<day>>/<<month>>, <<money>> ₽, <a href="exec:clr & pl $stat_android">Status</a>'
  137. ! $stat_android for short desc in android mode, $stat_msg for status bar.
  138. if StoryLine > 0 and SchoolAtestat ! 1 and $holyday ! '': $stat_msg += '<BR><<$holyday>>' & $stat_msg += '<BR>'
  139. if birthday = day and birthmonth = month: $stat_msg += '<BR><b>Today is your birthday.</b>' & $stat_msg += '<BR>'
  140. !New icon based menu.
  141. if MagikDostup = 0:
  142. $journalIcon = 'journal_magic.png'
  143. else
  144. $journalIcon = 'journal_norm.png'
  145. end
  146. if menu_off = 0:
  147. $menuBarTab = '<table><tr>'
  148. $menuBarTab += '<td><a href="exec:killvar ''menu_page'' & gs ''obj_din'', ''description''"><img src="images/system/menu icons/icon_character.png"></a></td>'
  149. $menuBarTab += '<td><a href="exec:killvar ''menu_page'' & gs ''obj_din'', ''face''"><img src="images/system/menu icons/icon_lookself.png"></a></td>'
  150. if bag > 0:
  151. $menuBarTab += '<td><a href="exec:gs ''din_bad'', ''d_bag''"><img src="images/system/menu icons/icon_purse.png"></a></td>'
  152. end
  153. $menuBarTab += '<td><a href="exec:gs ''telefon'',''Phone_menu''"><img src="images/system/menu icons/icon_phone.png"></a></td>'
  154. $menuBarTab += '<td><a href="exec:gs ''obj_din'', ''records''"><img src="images/system/menu icons/<<$journalIcon>>"></a></td>'
  155. $menuBarTab += '<td><a href="exec:killvar ''menu_page'' & gs''$menu_setting''"><img src="images/system/menu icons/icon_menu.png"></a></td>'
  156. $menuBarTab += '</tr></table>'
  157. $stat_msg += func('cleanHTML',$menuBarTab)
  158. killvar '$menuBarTab'
  159. elseif menu_off = 1:
  160. $menuBarTab = '<table><tr>'
  161. $menuBarTab += '<td><a href="exec:killvar ''menu_page'' & gs ''obj_din'', ''menu_disabled''"><img src="images/system/menu icons/icon_character.png"></a></td>'
  162. $menuBarTab += '<td><a href="exec:killvar ''menu_page'' & gs ''obj_din'', ''menu_disabled''"><img src="images/system/menu icons/icon_lookself.png"></a></td>'
  163. if bag > 0:
  164. $menuBarTab += '<td><a href="exec:gs ''obj_din'', ''menu_disabled''"><img src="images/system/menu icons/icon_purse.png"></a></td>'
  165. end
  166. $menuBarTab += '<td><a href="exec:gs ''telefon'',''Phone_menu''"><img src="images/system/menu icons/icon_phone.png"></a></td>'
  167. $menuBarTab += '<td><a href="exec:gs ''obj_din'', ''menu_disabled''"><img src="images/system/menu icons/<<$journalIcon>>"></a></td>'
  168. $menuBarTab += '<td><a href="exec:killvar ''menu_page'' & gs''obj_din'', ''menu_disabled''"><img src="images/system/menu icons/icon_menu.png"></a></td>'
  169. $menuBarTab += '</tr></table>'
  170. $stat_msg += func('cleanHTML',$menuBarTab)
  171. killvar '$menuBarTab'
  172. end
  173. $pockets = 'Pockets'
  174. if bag > 0: $pockets = 'Purse'
  175. if bankAccount = 0 and stolmoney = 0:
  176. $stat_msg += '<BR>You have <b><<money>> ₽</b> in your <<$pockets>>.'
  177. else
  178. !combine money status to single line
  179. $stat_msg += '<BR><<$pockets>>: <b><<money>> ₽</b>'
  180. if stolmoney > 0: $stat_msg += ', Drawer <b><<stolmoney>> ₽</b>'
  181. if bankAccount = 1:
  182. if karta >= 0:
  183. $stat_msg += ', Bank: <b><<karta>> ₽</b>'
  184. else
  185. $stat_msg += '<BR><font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>!!</font>'
  186. end
  187. end
  188. end
  189. !{
  190. $stat_msg += '<BR>You have <b><<money>> ₽</b> in your <<$pockets>>.'
  191. if bankAccount = 1:
  192. if karta >= 0:
  193. $stat_msg += '<BR>You have <b><<karta>> ₽</b> in your bank account.'
  194. else
  195. $stat_msg += '<BR><font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>!!</font>'
  196. end
  197. end
  198. if stolmoney > 0: $stat_msg += '<BR>You have <b><<stolmoney>> ₽</b> in your desk drawer.'
  199. }
  200. !$stat_msg += '<BR>'
  201. if ETOmenu = 1:
  202. $stat_msg += '<BR><b><<$pcs_health>></b>'
  203. $stat_msg += '<BR><b><<$pcs_willpwr>></b>'
  204. if cheatNoEat = 0: $stat_msg += '<BR><b><<$pcs_energy>></b>'
  205. if cheatNoDrink = 0: $stat_msg += '<BR><b><<$pcs_hydra>></b>'
  206. if cheatNoSleep = 0: $stat_msg += '<BR><b><<$pcs_sleep>></b>'
  207. elseif Enable_scalepic = 2:
  208. $st_temp='rgb(<<(16777216 + fcolor) mod 256>>,<<(16777216 + fcolor)/256 mod 256>>,<<(16777216 + fcolor)/65536>>)'
  209. $stat_msg += '<p><font color="<<$st_temp>>"><TABLE width="300" cellpadding="1" cellspacing="0"><TR><TD width="85%">'+FUNC('indiktab', '2', pcs_horny, pcs_horny)+'</TD><TD> Arousal</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '2', pain['total'], pain['total'])+'</TD><TD> Pain</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_health * 100 / healthmax, pcs_health)+'</TD><TD> Health</TD></TR>'
  210. if MagikDostup = 0: $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_mana * 100 / manamax, pcs_mana)+'</TD><TD> Mana</TD></TR>'
  211. $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_willpwr * 100 / willpowermax, pcs_willpwr)+'</TD><TD> Willpower</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_stam * 100 / stammax, pcs_stam)+'</TD><TD> Stamina</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_mood, pcs_mood)+'</TD><TD> Mood</TD></TR>'
  212. if cheatNoEat = 0: $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_energy, pcs_energy)+'</TD><TD> Hunger</TD></TR>'
  213. if cheatNoDrink = 0: $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_hydra, pcs_hydra)+'</TD><TD> Thirst</TD></TR>'
  214. if cheatNoSleep = 0: $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_sleep, pcs_sleep)+'</TD><TD> Sleep</TD></TR></TABLE></font></p>'
  215. else
  216. gs 'indik', '2', pcs_horny, pcs_horny
  217. $stat_msg += '<BR><<$ind>> Arousal'
  218. gs 'indik', '2', pain['total'], pain['total'], pain['damage']
  219. $stat_msg += '<BR><<$ind>> Pain'
  220. gs 'indik', '1', pcs_health * 100 / healthmax, pcs_health
  221. $stat_msg += '<BR><<$ind>> Health'
  222. if MagikDostup = 0:
  223. gs 'indik', '1', pcs_mana * 100 / manamax, pcs_mana
  224. $stat_msg += '<BR><<$ind>> Mana'
  225. end
  226. gs 'indik', '1', pcs_willpwr * 100 / willpowermax, pcs_willpwr
  227. $stat_msg += '<BR><<$ind>> Willpower'
  228. gs 'indik', '1', pcs_stam * 100 / stammax, pcs_stam
  229. $stat_msg += '<BR><<$ind>> Stamina'
  230. gs 'indik', '1', pcs_mood, pcs_mood
  231. $stat_msg += '<BR><<$ind>> Mood'
  232. if cheatNoEat = 0:
  233. gs 'indik', '1', pcs_energy, pcs_energy
  234. $stat_msg += '<BR><<$ind>> Hunger'
  235. end
  236. if cheatNoDrink = 0:
  237. gs 'indik', '1', pcs_hydra, pcs_hydra
  238. $stat_msg += '<BR><<$ind>> Thirst'
  239. end
  240. if cheatNoSleep = 0:
  241. gs 'indik', '1', pcs_sleep, pcs_sleep
  242. $stat_msg += '<BR><<$ind>> Sleep'
  243. end
  244. end
  245. !!----------------Extra messages, start--------------------------
  246. !!----------------▽Attributes--------------------------
  247. $stat_tool_msg=''
  248. $stat_extra_msg=''
  249. if Enable_showattr = 0:
  250. $stat_tool_msg += '<a href="exec:Enable_showattr = 1 & gs ''$menu_obnovit''">▽Attributes</a>'
  251. else
  252. $stat_tool_msg += '<a href="exec:Enable_showattr = 0 & gs ''$menu_obnovit''">▲Attributes</a>'
  253. !skip if this is first message
  254. if $stat_extra_msg ! null: $stat_extra_msg += '<br><a href="exec:Enable_showattr = 0 & gs ''$menu_obnovit''">▲Attributes:</a>'
  255. if Enable_scalepic = 2:
  256. if pcs_dom > 10:
  257. $dom_stat_msg = 'dominant'
  258. elseif sub > 10:
  259. $dom_stat_msg = 'submissive'
  260. else
  261. $dom_stat_msg = 'neutral'
  262. end
  263. $stat_extra_msg += '<font color="<<$st_temp>>"><TABLE cellpadding="1" cellspacing="0" width="300"><TR><TD width="85%">'+FUNC('indiktab', '3', 100+pcs_dom-sub, 100+pcs_dom-sub,$dom_stat_msg)+'</TD><TD> Dominance</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', 100 - pcs_inhib, 100 - pcs_inhib)+'</TD><TD> Inhibition</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_stren, pcs_stren)+'</TD><TD> Strength</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_agil, pcs_agil)+'</TD><TD> Agility</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_vital, pcs_vital)+'</TD><TD> Endurance</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_intel, pcs_intel)+'</TD><TD> Intelligence</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_sprt, pcs_sprt)+'</TD><TD> Spirit</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_react, pcs_react)+'</TD><TD nowrap> Reaction</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_chrsm, pcs_chrsm)+'</TD><TD> Charisma</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_prcptn, pcs_prcptn)+'</TD><TD> Perception</TD></TR>'
  264. if MagikDostup = 0: $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_magik, pcs_magik)+'</TD><TD> Magic</TD></TR>'
  265. if succubusflag = 1: $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', sucexcess, sucexcess)+'</TD><TD> Succubus Energy</TD></TR>'
  266. $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_apprnc / 2, pcs_apprnc)+'</TD><TD> Attractiveness</TD></TR>'
  267. if SchoolAtestat = 0 and StoryLine > 0:$stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_grades, pcs_grades)+'</TD><TD nowrap> School Grades</TD></TR>'
  268. $stat_extra_msg += '</TABLE></font>'
  269. killvar '$dom_stat_msg'
  270. else
  271. gs 'indik','3', 50+(pcs_dom-sub)/2, 50+(pcs_dom-sub)/2
  272. $stat_extra_msg += '<BR><<$ind>> Dominance'
  273. if pcs_dom > 10:
  274. $stat_extra_msg += ' (dominant)'
  275. elseif sub > 10:
  276. $stat_extra_msg += ' (submissive)'
  277. else
  278. $stat_extra_msg += ' (natural)'
  279. end
  280. gs 'indik', '1', 100 - pcs_inhib, 100 - pcs_inhib
  281. $stat_extra_msg += '<BR><<$ind>> Inhibition'
  282. gs 'indik', '1', pcs_stren, pcs_stren
  283. $stat_extra_msg += '<BR><<$ind>> Strength'
  284. gs 'indik', '1', pcs_agil, pcs_agil
  285. $stat_extra_msg += '<BR><<$ind>> Agility'
  286. gs 'indik', '1', pcs_vital, pcs_vital
  287. $stat_extra_msg += '<BR><<$ind>> Endurance'
  288. gs 'indik', '1', pcs_intel, pcs_intel
  289. $stat_extra_msg += '<BR><<$ind>> Intelligence'
  290. gs 'indik', '1', pcs_sprt, pcs_sprt
  291. $stat_extra_msg += '<BR><<$ind>> Spirit'
  292. gs 'indik', '1', pcs_react, pcs_react
  293. $stat_extra_msg += '<BR><<$ind>> Reaction'
  294. gs 'indik', '1', pcs_chrsm, pcs_chrsm
  295. $stat_extra_msg += '<BR><<$ind>> Charisma'
  296. gs 'indik', '1', pcs_prcptn, pcs_prcptn
  297. $stat_extra_msg += '<BR><<$ind>> Perception'
  298. if MagikDostup = 0:
  299. gs 'indik', '1', pcs_magik, pcs_magik
  300. $stat_extra_msg += '<BR><<$ind>> Magic'
  301. if succubusflag = 1:
  302. gs 'indik', '1', sucexcess, sucexcess
  303. $stat_extra_msg += '<BR><<$ind>> Succubus energy'
  304. end
  305. end
  306. gs 'indik', '1', pcs_apprnc / 2, pcs_apprnc
  307. $stat_extra_msg += '<BR><<$ind>> Attractiveness'
  308. if SchoolAtestat = 0 and StoryLine > 0:
  309. gs 'indik', '1', pcs_grades, pcs_grades
  310. $stat_extra_msg += '<BR><<$ind>> School Grades'
  311. end
  312. $stat_extra_msg += '<BR>'
  313. end
  314. end
  315. killvar '$st_temp'
  316. !!----------------▽Skills--------------------------
  317. if Enable_showskill = 0:
  318. $stat_tool_msg += ' <a href="exec:Enable_showskill = 1 & gs ''$menu_obnovit''">▽Skills</a>'
  319. else
  320. $stat_tool_msg += ' <a href="exec:Enable_showskill = 0 & gs ''$menu_obnovit''">▲Skills</a>'
  321. !!----------------------▲Skills display------------------------
  322. $stat_sktool_msg=''
  323. st_count=0
  324. $show_table=''
  325. !!----------------Mental skills--------------------------
  326. if Enable_show_mental_skill = 0:
  327. $stat_sktool_msg += ' <a href="exec:Enable_show_mental_skill = 1 & gs ''$menu_obnovit''">◇Mental</a>'
  328. else
  329. $stat_sktool_msg += ' <a href="exec:Enable_show_mental_skill = 0 & gs ''$menu_obnovit''">◆Mental</a>'
  330. if pcs_splcstng > 0 and MagikDostup = 0: gs 'show_table', '<<pcs_splcstng>> Spell Casting', '2'
  331. if pcs_humint > 0: gs 'show_table', '<<pcs_humint>> People skills', '2'
  332. if pcs_persuas > 0: gs 'show_table', '<<pcs_persuas>> Persuasion', '2'
  333. if pcs_observ > 0: gs 'show_table', '<<pcs_observ>> Observation', '2'
  334. end
  335. !!-----------------Sport skills--------------------------
  336. if Enable_show_sport_skill = 0:
  337. $stat_sktool_msg += ' <a href="exec:Enable_show_sport_skill = 1 & gs ''$menu_obnovit''">◇Sport</a>'
  338. else
  339. $stat_sktool_msg += ' <a href="exec:Enable_show_sport_skill = 0 & gs ''$menu_obnovit''">◆Sport</a>'
  340. if pcs_jab > 0: gs 'show_table', '<<pcs_jab>> Jabs', '2'
  341. if pcs_punch > 0: gs 'show_table', '<<pcs_punch>> Power Strikes', '2'
  342. if pcs_kick > 0: gs 'show_table', '<<pcs_kick>> Kicks', '2'
  343. if pcs_def > 0: gs 'show_table', '<<pcs_def>> Defence', '2'
  344. if pcs_run > 0: gs 'show_table', '<<pcs_run>> Running', '2'
  345. if pcs_vball > 0: gs 'show_table', '<<pcs_vball>> Volleyball', '2'
  346. if pcs_ftbll > 0: gs 'show_table', '<<pcs_ftbll>> Football', '2'
  347. if pcs_wrstlng > 0: gs 'show_table', '<<pcs_wrstlng>> Wrestling', '2'
  348. if pcs_shoot > 0: gs 'show_table', '<<pcs_shoot>> Marksmanship', '2'
  349. if pcs_bushcraft > 0: gs 'show_table', '<<pcs_bushcraft>> Bushcraft', '2'
  350. if pcs_chess > 0: gs 'show_table', '<<pcs_chess>> Chess', '2'
  351. if pcs_icesktng > 0: gs 'show_table', '<<pcs_icesktng>> Ice Skating', '2'
  352. if pcs_gaming > 0: gs 'show_table', '<<pcs_gaming>> Gaming', '2'
  353. if pcs_pool > 0: gs 'show_table', '<<pcs_pool>> Pool', '2'
  354. end
  355. !!-----------------Beauty/Modelling skills---------------
  356. if Enable_show_beauty_skill = 0:
  357. $stat_sktool_msg += ' <a href="exec:Enable_show_beauty_skill = 1 & gs ''$menu_obnovit''">◇Beauty</a>'
  358. else
  359. $stat_sktool_msg += ' <a href="exec:Enable_show_beauty_skill = 0 & gs ''$menu_obnovit''">◆Beauty</a>'
  360. if pcs_makupskl > 0: gs 'show_table', '<<pcs_makupskl>> Makeup Skill', '2'
  361. if pcs_danc > 0: gs 'show_table', '<<pcs_danc>> Modern Dancing', '2'
  362. if pcs_dancero > 0: gs 'show_table', '<<pcs_dancero>> Erotic Dancing', '2'
  363. if pcs_dancpol > 0: gs 'show_table', '<<pcs_dancpol>> Pole Dancing', '2'
  364. if pcs_mdlng > 0: gs 'show_table', '<<pcs_mdlng>> Modelling', '2'
  365. if pcs_heels > 0: gs 'show_table', '<<pcs_heels>> Heels', '2'
  366. end
  367. !!---------------------Artistic skills-------------------
  368. if Enable_show_art_skill = 0:
  369. $stat_sktool_msg += ' <a href="exec:Enable_show_art_skill = 1 & gs ''$menu_obnovit''">◇Artistic</a>'
  370. else
  371. $stat_sktool_msg += ' <a href="exec:Enable_show_art_skill = 0 & gs ''$menu_obnovit''">◆Artistic</a>'
  372. if pcs_vokal > 0: gs 'show_table', '<<pcs_vokal>> Singing', '2'
  373. if pcs_instrmusic > 0: gs 'show_table', '<<pcs_instrmusic>> Instrumental Music', '2'
  374. if pcs_photoskl > 0: gs 'show_table', '<<pcs_photoskl>> Photography', '2'
  375. if pcs_artskls > 0: gs 'show_table', '<<pcs_artskls>> Artistic Skills', '2'
  376. end
  377. !!----------------------Job skills------------------------
  378. if Enable_show_job_skill = 0:
  379. $stat_sktool_msg += ' <a href="exec:Enable_show_job_skill = 1 & gs ''$menu_obnovit''">◇Job</a>'
  380. else
  381. $stat_sktool_msg += ' <a href="exec:Enable_show_job_skill = 0 & gs ''$menu_obnovit''">◆Job</a>'
  382. if pcs_cleaning > 0: gs 'show_table', '<<pcs_cleaning>> Cleaning Skill', '2'
  383. if pcs_compskl > 0: gs 'show_table', '<<pcs_compskl>> Computer Skill', '2'
  384. if pcs_comphckng > 0: gs 'show_table', '<<pcs_comphckng>> Hacking', '2'
  385. if pcs_hndiwrk > 0: gs 'show_table', '<<pcs_hndiwrk>> Handy-work', '2'
  386. if pcs_sewng > 0: gs 'show_table', '<<pcs_sewng>> Tailoring', '2'
  387. if pcs_servng > 0: gs 'show_table', '<<pcs_servng>> Serving', '2'
  388. if pcs_medcn > 0: gs 'show_table', '<<pcs_medcn>> Medicine', '2'
  389. if workPTU > 1: gs 'show_table','<<teachlevel>> Teacher credibility','2'
  390. end
  391. !skip if this is first message
  392. if $stat_extra_msg ! null:
  393. $stat_extra_msg += '<br><a href="exec:Enable_showskill = 0 & gs ''$menu_obnovit''">▲Skills:</a> <<$stat_sktool_msg>>'
  394. else
  395. $stat_extra_msg += '<br><<$stat_sktool_msg>>'
  396. end
  397. if st_count > 0 :
  398. $stat_extra_msg += '<BR><TABLE BORDER=1><<$show_table>></TR></TABLE>'
  399. end
  400. end
  401. killvar 'stat_sktool_msg'
  402. killvar 'stat_skextra_msg'
  403. !!----------------▽relations--------------------------
  404. if Enable_showrelation = 0:
  405. $stat_tool_msg += ' <a href="exec:Enable_showrelation = 1 & gs ''$menu_obnovit''">▽Relations</a>'
  406. else
  407. $stat_tool_msg += ' <a href="exec:Enable_showrelation = 0 & gs ''$menu_obnovit''">▲Relations</a>'
  408. st_count=0
  409. $show_table=''
  410. if npc_QW['A192'] > 0:gs'show_table','Nastja: <<npc_QW[''A192'']>>','2'
  411. if npc_rel['A218'] > 0:gs'show_table','Tanya: <<npc_rel[''A218'']>>','2'
  412. if npc_rel['A219'] > 0:gs'show_table','Kat: <<npc_rel[''A219'']>>','2'
  413. if npc_rel['A220'] > 0:gs'show_table','Vika: <<npc_rel[''A220'']>>','2'
  414. if npc_rel['A93'] > 0:gs'show_table','Ira: <<npc_rel[''A93'']>>','2'
  415. if npc_rel['A43'] > 0:gs'show_table','Tamara: <<npc_rel[''A43'']>>','2'
  416. if alla > 0:gs'show_table','Alla: <<alla>>','2'
  417. if masha > 0:gs'show_table','Masha: <<masha>>','2'
  418. if npc_rel['A41'] > 0:gs'show_table','Givi Karapetovich: <<npc_rel[''A41'']>>','2'
  419. if npc_rel['A42'] > 0:gs'show_table','Ashot: <<npc_rel[''A42'']>>','2'
  420. if afra > 0:gs'show_table','Blacks: <<afra>>','2'
  421. if Rex > 0:gs'show_table','Rex: <<Rex>>','2'
  422. if npc_rel['A217'] > 0:gs'show_table','Pavlin: <<npc_rel[''A217''] >>','2'
  423. if npc_rel['A69'] > 0:gs'show_table','Mikhail Nikolaevich: <<npc_rel[''A69'']>>','2'
  424. if npc_rel['A89'] > 0:gs'show_table','Eugene: <<npc_rel[''A89'']>>','2'
  425. if npc_rel['A112'] > 0:gs'show_table','Sergei Shulgin: <<npc_rel[''A112'']>>','2'
  426. if npc_rel['A11'] > 0:gs'show_table','Vasily Shulgin: <<npc_rel[''A11'']>>','2'
  427. if huntersAndreiQw > 0:gs'show_table','Hunter Andrew: <<huntersAndreiQw>>','2'
  428. if huntersSergeiQw > 0:gs'show_table','Hunter Sergei: <<huntersSergeiQw>>','2'
  429. if huntersIgorQw > 0:gs'show_table','Hunter Igor: <<huntersIgorQw>>','2'
  430. if pcs_lovers[0] = 1:gs'show_table', 'BF <<$loverdesc[0]>>: <<loverrelation[0]>>','2'
  431. if pcs_lovers[1] = 1:gs'show_table', 'BF <<$loverdesc[1]>>: <<loverrelation[1]>>','2'
  432. if pcs_lovers[2] = 1:gs'show_table', 'BF <<$loverdesc[2]>>: <<loverrelation[2]>>','2'
  433. if StoryLine > 0:
  434. if npc_rel['A29'] > 0:gs'show_table','Mother: <<npc_rel[''A29'']>>','2'
  435. if npc_rel['A28'] > 0:gs'show_table','Father: <<npc_rel[''A28'']>>','2'
  436. if npc_rel['A33'] > 0:gs'show_table','Sister: <<npc_rel[''A33'']>>','2'
  437. if npc_rel['A34'] > 0:gs'show_table','Brother: <<npc_rel[''A34'']>>','2'
  438. end
  439. if st_count > 0 :
  440. !skip if this is first message
  441. if $stat_extra_msg ! null: $stat_extra_msg += '<BR><a href="exec:Enable_showrelation = 0 & gs ''$menu_obnovit''">▲Relations:</a>'
  442. $stat_extra_msg += '<BR><TABLE BORDER=1> <<$show_table>></TR></TABLE>'
  443. end
  444. end
  445. !!----------------▽image, default to toolbar, can move to top or bottom from setting--------------------------
  446. if Enable_statimg_loc = 0:
  447. if Enable_showstatimg = 0:
  448. $stat_tool_msg += ' <a href="exec:Enable_showstatimg = 1 & gs ''$menu_obnovit''">▽Image</a>'
  449. else
  450. $stat_tool_msg += ' <a href="exec:Enable_showstatimg = 0 & gs ''$menu_obnovit''">▲Image</a>'
  451. !skip if this is first message
  452. if $stat_extra_msg ! null:
  453. $stat_extra_msg += '<br><a href="exec:Enable_showstatimg = 0 & gs ''$menu_obnovit''">▲Image:</a> <<$stat_imgtool_msg>>'
  454. else
  455. $stat_extra_msg += '<br><<$stat_imgtool_msg>>'
  456. end
  457. $stat_extra_msg += '<br><<$stat_imgextra_msg>>'
  458. end
  459. end
  460. !all end, push back and clean up
  461. $stat_msg += '<br><br><<$stat_tool_msg>>'
  462. if $stat_extra_msg ! NULL : $stat_msg += '<<$stat_extra_msg>>'
  463. $stat_msg += '<br>'
  464. killvar 'stat_tool_msg'
  465. killvar 'stat_extra_msg'
  466. !!----------------Extra messages, End--------------------------
  467. if opPRE = 0: $stat_msg += '<BR><<$pcs_makeup>> and your hair is <<$pcs_hairbsh>>.' & !$stat_msg += '<BR>'
  468. if thinkpreg = 0 and knowpreg = 0 and cycle ! 6 and pillcon2 <= 30000 and succubusflag ! 1 and cheatSlut = 0 and mesec = 0:
  469. if abortionbirthdate = 0 and daystart - lastmens > 28:
  470. if (daystart - lastmens > 28) and (daystart - lastmens <= 35):
  471. $stat_msg += '<BR><font color = #AB052A><b>Your period is late by <<daystart - lastmens - 28>> days.</b></font>'
  472. elseif (daystart - lastmens > 35) and (daystart - lastmens <= 42):
  473. $stat_msg += '<BR><font color = #AB052A><b>Your period is late by more than a week!</b></font>'
  474. elseif (daystart - lastmens > 42) and (daystart - lastmens <= 56):
  475. $stat_msg += '<BR><font color = #AB052A><b>Your period is late by more than two weeks! Maybe you should see a doctor?</b></font>'
  476. elseif (daystart - lastmens > 56) and (daystart - lastmens <= 84):
  477. $stat_msg += '<BR><font color = #AB052A><b>Your period is late by more than a month! You really should see a doctor about it.</b></font>'
  478. elseif daystart - lastmens > 84:
  479. $stat_msg += '<BR><font color = #AB052A><b>You should consider the possibility of a pregnancy, since apparently you no longer have periods.</b></font>'
  480. end
  481. !!Recovery period after an abortion is ~14-21 days
  482. elseif abortionbirthdate ! 0 and daystart - abortionbirthdate <= 13:
  483. $stat_msg += '<BR><font color = #705243><b>You are still in your recovery period. Nothing to worry about.</b></font>'
  484. elseif abortionbirthdate ! 0 and daystart - abortionbirthdate > 13 and daystart - abortionbirthdate <= 16:
  485. $stat_msg += '<BR><font color = #705243><b>You are maybe still in your recovery period, but there could be a risk.</b></font>'
  486. elseif abortionbirthdate ! 0 and daystart - abortionbirthdate > 16 and daystart - abortionbirthdate <= 21:
  487. $stat_msg += '<BR><font color = #820000><b>You should have recovered from you abortion by know... Right?</b></font>'
  488. elseif abortionbirthdate ! 0 and daystart - abortionbirthdate > 21:
  489. $stat_msg += '<BR><font color = #820000><b>You should have definitely recovered from your abortion by now.</b></font>'
  490. !!Recovery period after giving birth is ~42-70 days
  491. elseif pregbirthdate ! 0 and daystart - pregbirthdate <= 41:
  492. $stat_msg += '<BR><font color = #705243><b>You are still in your recovery period. Nothing to worry about.</b></font>'
  493. elseif pregbirthdate ! 0 and daystart - pregbirthdate > 41 and daystart - pregbirthdate <= 48:
  494. $stat_msg += '<BR><font color = #705243><b>You are probably still in your recovery period.</b></font>'
  495. elseif pregbirthdate ! 0 and daystart - pregbirthdate > 48 and daystart - pregbirthdate <= 55:
  496. $stat_msg += '<BR><font color = #705243><b>You are maybe still in your recovery period, but there could be a risk.</b></font>'
  497. elseif pregbirthdate ! 0 and daystart - pregbirthdate > 55 and daystart - pregbirthdate <= 70:
  498. $stat_msg += '<BR><font color = #820000><b>You should have recovered by know... Right?</b></font>'
  499. elseif pregbirthdate ! 0 and daystart - pregbirthdate > 70:
  500. $stat_msg += '<BR><font color = #820000><b>You should have definitely recovered from giving birth by now.</b></font>'
  501. end
  502. end
  503. if implant_day > 0:
  504. if ((daystart - implant_day) * 24 + hour - implant_hour) < 5:
  505. $stat_msg += '<BR><font color=#AB052A>You feel a slight twinge in your abdomen.</font>'
  506. end
  507. end
  508. if mesec > 0:
  509. $stat_msg += '<BR><font color="red">You are currently having your period. '
  510. if isprok = 0 and isprokp = 0:
  511. $stat_msg += 'You need to use your feminine hygiene products.'
  512. elseif isprokp = 1 and $pantyworntype = 'none':
  513. isprokp = 0
  514. $stat_msg += 'You need to wear panties to use a sanitary pad.'
  515. end
  516. $stat_msg += '</font>'
  517. elseif placebopart > 0 and LutH > 0 and knowpreg = 0:
  518. $stat_msg += '<BR><font color="red">Your period is due to start soon.'
  519. $stat_msg += '</font>'
  520. end
  521. if $cycreport_txt ! null: $stat_msg += '<BR><a href="exec:dynamic $d_cycreport_choice"><<$cycreport_txt>></a><br>'
  522. !!if shame > 0:$stat_msg += '<BR><<$shame>>' & $stat_msg += '<BR>'
  523. if $pcs_mood ! '':$stat_msg += '<BR><font color="green"><b><<$pcs_mood>></b></font>'
  524. if mentats_dose >= 1:$stat_msg += '<BR><font color = green>You feel sharp and focused.</font>'
  525. if bcream_used = 1:$stat_msg += '<BR><font color = #DB7093>Your breasts are feeling hot and tingly.</font>'
  526. if aphrodisiac_timer > 0:$stat_msg += '<BR><font color = #DB7093>You are feeling hot and every move causes your groin to tingle.</font>'
  527. if cheatNoEat = 0:
  528. if pcs_energy < 5:
  529. $stat_msg += '<BR><font color="red"><b>You feel faint from hunger, if you don''t have something to eat very soon, you will pass out.</b></font>'
  530. elseif pcs_energy < 10:
  531. $stat_msg += '<BR><font color="red">You are starving, you really need to have something to eat.</font>'
  532. elseif pcs_energy < 20:
  533. $stat_msg += '<BR>You are very hungry and struggle to concentrate on anything other than food.'
  534. elseif pcs_energy < 30:
  535. $stat_msg += '<BR>You feel peckish and your thoughts sometimes drift towards food.'
  536. end
  537. end
  538. if cheatNoDrink = 0:
  539. if pcs_hydra < 5:
  540. $stat_msg += '<BR><font color="red"><b>You feel light-headed, if you don''t have something to drink very soon, you will pass out.</b></font>'
  541. elseif pcs_hydra < 10:
  542. $stat_msg += '<BR><font color="red">You are dehydrated, you really need to have something to drink.</font>'
  543. elseif pcs_hydra < 20:
  544. $stat_msg += '<BR>You are thirsty and your dry throat is irritating and distracting you.'
  545. elseif pcs_hydra < 30:
  546. $stat_msg += '<BR>You feel a little thirsty and your mouth is a little dry.'
  547. end
  548. end
  549. if cheatNoSleep= 0:
  550. if pcs_sleep < 5:
  551. $stat_msg += '<BR><font color="red"><b>You can''t keep your eyes open, if you don''t go to bed now, you will fall asleep right here.</b></font>'
  552. elseif pcs_sleep < 10:
  553. $stat_msg += '<BR><font color="red">You are exhausted, you really need to go to bed soon.</font>'
  554. elseif pcs_sleep < 20:
  555. $stat_msg += '<BR>You are tired and you are struggling to concentrate.'
  556. elseif pcs_sleep < 30:
  557. $stat_msg += '<BR>You feel a little tired.'
  558. end
  559. end
  560. if $pantyworntype ! 'none' and clit_size >= 25:$stat_msg += '<BR><font color = #FF1493>Your panties keep rubbing against your clit and making you horny.</font>'
  561. if pcs_horny >= 50:
  562. if pcs_horny < 90 and $pantyworntype ! 'none':
  563. $stat_msg += '<BR><font color = #DB7093>You are a little nervous, feeling nice between your legs <a href="exec:view''images/pc/body/pussy/briefs1.jpg''">itchy</a> from arousal.</font>'
  564. elseif pcs_horny < 90 and $pantyworntype = 'none':
  565. $stat_msg += '<BR><font color = #DB7093>You are a little nervous, feeling nice between your legs <a href="exec:view''images/pc/body/pussy/briefs1a.jpg''">itchy</a> from arousal.</font>'
  566. elseif $pantyworntype ! 'none':
  567. $stat_msg += '<BR><font color = #FF1493>You can''t stop thinking about sex, between your legs you are <a href="exec:view''images/pc/body/pussy/briefs2.jpg''">soaked</a> from your juices.</font>'
  568. else
  569. $stat_msg += '<BR><font color = #FF1493>You can''t stop thinking about sex, between your legs you are <a href="exec:view''images/pc/body/pussy/briefs2a.jpg''">soaked</a> from your juices.</font>'
  570. end
  571. end
  572. if PillToggle = 1 and tabletki > 0:
  573. Stabletki += tabletki
  574. tabletki = 0
  575. elseif PillToggle = 0 and Stabletki > 0:
  576. tabletki += Stabletki
  577. Stabletki = 0
  578. end
  579. if CondomToggle = 1 and prezik > 0:
  580. Sprezik += prezik
  581. prezik = 0
  582. elseif CondomToggle = 0 and Sprezik > 0:
  583. prezik += Sprezik
  584. Sprezik = 0
  585. end
  586. if smoker >= 20 and NarkImmune = 0:
  587. if smokerNeed > 0:
  588. if siga > 0:
  589. $stat_msg += '<BR><a href="exec:gs ''drugs'',''smoke''"><font color="red"><b>You want to smoke. You have <<siga>> cigarettes left.</b></font></a><BR>'
  590. else
  591. $stat_msg += '<BR><font color="red"><b>You want to smoke, but you have no cigarettes left.</b></font><BR>'
  592. end
  593. else
  594. if siga > 0:
  595. $stat_msg += '<BR><a href="exec:gs ''drugs'',''smoke''"><font color=#0064FF><b>You have <<siga>> cigarettes left.</b></font></a><BR>'
  596. else
  597. $stat_msg += '<BR><font color=#0064FF><b>You feel like you should get some cigarettes.</b></font><BR>'
  598. end
  599. end
  600. elseif siga > 0:
  601. $stat_msg += '<BR><a href="exec:gs ''drugs'',''smoke''"><font color=#0064FF><b>You have <<siga>> cigarettes.</b></font></a><BR>'
  602. end
  603. if smokeHour = hour and smokeday = daystart and smokeminut >= minut: $stat_msg += '<BR><font color="green">You are smoking a cigarette.</font><BR>'
  604. if jointhour = hour and jointday = daystart and jointminut >= minut: $stat_msg += '<BR><font color="green">You are smoking a joint.</font><BR>'
  605. if cheatNoSweat = 0:
  606. if pcs_sweat < 0 : pcs_sweat = 0
  607. if pcs_sweat > 69 : pcs_sweat = 69
  608. jump 'statDswt<<pcs_sweat/10>>'
  609. :statDswt0
  610. if arrsize('sparrvol') = 0:
  611. $stat_msg += '<BR><b><font color="green">You are sparkling clean.</font></b>'
  612. elseif deodorant_on = 1:
  613. $stat_msg += '<BR><b><font color="green">You feel fresh with your deodorant on.</font></b>'
  614. end
  615. jump 'statDswtEnd'
  616. :statDswt1
  617. if deodorant_on = 1: $stat_msg += '<BR><b><font color="green">You feel fresh with your deodorant on.</font></b>'
  618. jump 'statDswtEnd'
  619. :statDswt2
  620. $stat_msg += '<BR><font color="brown">You''re sweating.</font><BR>'
  621. jump 'statDswtEnd'
  622. :statDswt3
  623. $stat_msg += '<BR><font color="red">You are a little smelly.</font><BR>'
  624. jump 'statDswtEnd'
  625. :statDswt4
  626. $stat_msg += '<BR><font color="red">You stink.</font><BR>'
  627. jump 'statDswtEnd'
  628. :statDswt5
  629. $stat_msg += '<BR><b><font color="red">You really stink.</font></b><BR>'
  630. jump 'statDswtEnd'
  631. :statDswt6
  632. $stat_msg += '<BR><b><font color="red">You are dripping wet from sweat and smell like a gym sock.</font></b><BR>'
  633. jump 'statDswtEnd'
  634. :statDswtEnd
  635. end
  636. !! breast status
  637. gs 'lact_lib','breast_stat_disp'
  638. if Enable_clearcum > 0:
  639. gs 'cum_cleanup', 'reset'
  640. end
  641. if recuperation = 1:
  642. $stat_msg += '<b><font color="red">You are still recovering from major surgery.</font></b>'
  643. end
  644. $clear_write = {
  645. body_write = 0
  646. face_write = 0
  647. minut += 10
  648. gs '$menu_obnovit'
  649. 'It takes you 10 minutes to thoroughly wash the obscene "painting" from your body.'
  650. }
  651. if body_write > 0 or face_write > 0:
  652. if body_write > 1 and face_write = 0:
  653. $stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your body is inscribed with derogatory graffiti.</font></b></a>'
  654. elseif body_write = 1 and face_write = 0:
  655. $stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your body is an obscene sign.</font></b></a>'
  656. elseif body_write = 0 and face_write > 1:
  657. $stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your face is covered with writing obscene epithets.</font></b></a>'
  658. elseif body_write = 0 and face_write = 1:
  659. $stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>On your face humiliating label.</font></b></a>'
  660. else
  661. $stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your body and face painted with obscene graffiti.</font></b></a>'
  662. end
  663. end
  664. killvar 'cumvolume'
  665. killvar 'i'
  666. killvar 'knownguy'
  667. killvar 'cumcount'
  668. killvar 'cumowner'
  669. if arrsize('sparrvol') > 0:
  670. !!go through every location
  671. :locationloop
  672. !!start from the freshest load
  673. idx = arrsize('sparrloc')-1
  674. :spermitemloop
  675. !!if the currently examined load loaction is the location of the current cycle, execute
  676. if sparrloc[idx] = i:
  677. !!setting the age of the current load
  678. !! 0: mouth
  679. !! 1: in this hour
  680. !! 2: in four hours
  681. !! 3: at least five hours ago
  682. !! 4: in body (pussy or ass)
  683. !! 5: no more than 12 hours in condom
  684. !! 6: no more than 48 hours in condom
  685. !! 7: more than two days old, in condom
  686. if i = 12:
  687. j = 0
  688. elseif i = 17:
  689. if sparrage[idx] <= 12:
  690. j = 5
  691. elseif sparrage[idx] <= 48:
  692. j = 6
  693. else
  694. j = 7
  695. end
  696. elseif i = 0 or i = 3:
  697. j = 4
  698. else
  699. if sparrage[idx] <= 1:
  700. j = 1
  701. elseif sparrage[idx] <= 5:
  702. j = 2
  703. else
  704. j = 3
  705. end
  706. end
  707. cumvolume['<<i>>:<<j>>'] += sparrvol[idx]
  708. if sparrvol[idx] > 0:
  709. if sparridt[idx] = 0:
  710. !!unknown partner
  711. cumcount['<<i>>:<<j>>'] += 1
  712. elseif sparridt[idx] = 1:
  713. !!known partner
  714. !!storing the name of the cum owner (format: $cumowner[<cum location>:<age of cum>:<index of cum owner>])
  715. if knownguy['<<i>>:<<j>>'] > 0:
  716. gchk = 0
  717. :sameguycheck
  718. if $cumowner['<<i>>:<<j>>:<<gchk>>'] ! $sparrnam[idx] and gchk <= knownguy['<<i>>:<<j>>']:gchk += 1 & jump 'sameguycheck'
  719. if gchk > knownguy['<<i>>:<<j>>']:
  720. $cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
  721. knownguy['<<i>>:<<j>>'] += 1
  722. cumcount['<<i>>:<<j>>'] += 1
  723. end
  724. else
  725. $cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
  726. knownguy['<<i>>:<<j>>'] += 1
  727. cumcount['<<i>>:<<j>>'] += 1
  728. end
  729. end
  730. end
  731. end
  732. if idx > 0:idx -= 1 & jump 'spermitemloop'
  733. if i < 18:i += 1 & jump 'locationloop'
  734. killvar 'i'
  735. killvar 'idx'
  736. killvar 'j'
  737. end
  738. !!Clearing cum location array before positive entries are applied below
  739. killvar 'cumloc'
  740. i = 0
  741. :cumlocloop
  742. if i = 0:
  743. $txtloc = 'your <a href="exec:view''images/pc/body/cum/creampie/cumpussy'+rand(1,14)+'.jpg''">pussy</a>'
  744. elseif i = 1:
  745. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumpussy/cumpus'+rand(1,4)+'.jpg''">labia</a>'
  746. elseif i = 2:
  747. $txtloc = 'the front of your panties'
  748. elseif i = 3:
  749. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumanal/cumanal'+rand(1,11)+'.jpg''">ass</a>'
  750. elseif i = 4:
  751. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumass/cumass'+rand(1,6)+'.jpg''">butt</a>'
  752. elseif i = 5:
  753. $txtloc = 'the back of your panties'
  754. elseif i = 6:
  755. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/'+rand(1,3)+'.jpg''">clothes near your groin</a>'
  756. elseif i = 7:
  757. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/cumclothes'+rand(1,21)+'.jpg''">clothes</a>'
  758. elseif i = 8:
  759. $txtloc = 'your back'
  760. elseif i = 9:
  761. $txtloc = 'your legs'
  762. elseif i = 10:
  763. $txtloc = 'your arms'
  764. elseif i = 11:
  765. if pcs_haircol = 0:
  766. $cum_face_image = 'brown/'
  767. $cum_face_image += rand(1, 31)
  768. elseif pcs_haircol = 1:
  769. $cum_face_image = 'black/'
  770. $cum_face_image += rand(1, 23)
  771. elseif pcs_haircol = 2:
  772. $cum_face_image = 'red/'
  773. $cum_face_image += rand(1, 19)
  774. elseif pcs_haircol = 3:
  775. $cum_face_image = 'blonde/'
  776. $cum_face_image += rand(1, 25)
  777. elseif pcs_haircol > 3:
  778. $cum_face_image = 'custom/'
  779. $cum_face_image += rand(1, 20)
  780. end
  781. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumface/<<$cum_face_image>>.jpg''">face</a>'
  782. killvar 'cum_face_image'
  783. elseif i = 13:
  784. $txtloc = 'your hands'
  785. elseif i = 14:
  786. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumbelly/cumbelly'+rand(1,12)+'.jpg''">stomach</a>'
  787. elseif i = 15:
  788. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumtits/cumtits'+rand(1,19)+'.jpg''">breasts</a>'
  789. elseif i = 16:
  790. $txtloc = 'your hair</a>'
  791. elseif i = 17:
  792. $txtloc = 'in your vagina in a slipped condom'
  793. else
  794. $txtloc = 'the gusset of your panties</a>'
  795. end
  796. j = 0
  797. :ageloop
  798. if cumvolume['<<i>>:<<j>>'] > 0:
  799. !!Cum locations set for checking npc reactions
  800. cumloc[i] = 1
  801. !!amount setting
  802. if cumvolume['<<i>>:<<j>>'] > 250:
  803. !! 25 ml, about four-five load, gushing
  804. $txtamount = 'Enormous '
  805. elseif cumvolume['<<i>>:<<j>>'] > 100:
  806. !! 10 ml, about two load, flowing
  807. $txtamount = 'Huge '
  808. elseif cumvolume['<<i>>:<<j>>'] >= 20:
  809. !! 2 ml, seeping out
  810. $txtamount = 'Decent '
  811. else
  812. !! residue amount, no leakage
  813. $txtamount = 'Small '
  814. end
  815. !! if sperm age stage is 4, it means inside the body
  816. if j = 4:
  817. if (vibratorIN = 1 and i = 0) or (analplugin = 1 and i = 3):
  818. $txtproxy = 'being plugged in '
  819. elseif i = 0 and cumvolume['<<i>>:<<j>>'] < pcs_vag*5:
  820. $txtproxy = 'staying inside of '
  821. elseif i = 3 and pcs_ass <= 25:
  822. $txtproxy = 'staying inside of '
  823. else
  824. if cumvolume['<<i>>:<<j>>'] > 250:
  825. $txtproxy = 'gushing out of '
  826. elseif cumvolume['<<i>>:<<j>>'] > 100:
  827. $txtproxy = 'flowing out of '
  828. elseif cumvolume['<<i>>:<<j>>'] >= 40:
  829. $txtproxy = 'seeping out of '
  830. else
  831. $txtproxy = 'staying inside of '
  832. end
  833. end
  834. elseif j >= 5:
  835. !! if sperm age stage is over 4, meaning in condom
  836. if j = 5:
  837. $txtproxy = 'buried '
  838. elseif j = 6:
  839. $txtproxy = 'marinating '
  840. else
  841. $txtproxy = 'rotting '
  842. end
  843. if cumcondslip_deep > (vagina / 2): $txtproxy += 'deep '
  844. elseif j < 4 and j > 0:
  845. !!amount setting
  846. if cumvolume['<<i>>:<<j>>'] > 160:
  847. !! 10 ml, about two load, flowing
  848. $txtproxy = 'coating '
  849. elseif cumvolume['<<i>>:<<j>>'] > 40:
  850. !! 2 ml, seeping out
  851. $txtproxy = 'covering '
  852. else
  853. !! residue amount, no leakage
  854. $txtproxy = 'spattering '
  855. end
  856. if j = 1:
  857. $txtproxy += 'wetly '
  858. elseif j = 2:
  859. $txtproxy += 'dryly '
  860. else
  861. $txtproxy += 'powderly '
  862. end
  863. end
  864. $txtperson = ''
  865. if cumcount['<<i>>:<<j>>'] = 0:
  866. $txtiscum = 'some whitish substance '
  867. else
  868. $txtiscum = 'cum'
  869. if cumcount['<<i>>:<<j>>'] = knownguy['<<i>>:<<j>>']:
  870. !! everyone is known (one or more)
  871. if knownguy['<<i>>:<<j>>'] = 1:
  872. $txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' '
  873. else
  874. kmax = 0
  875. :nullocator1
  876. if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator1'
  877. kmax -= 1
  878. k = 0
  879. :knownloop
  880. $txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']]
  881. if k < kmax-1:$txtperson += ', ' & k += 1 & jump 'knownloop'
  882. k += 1
  883. $txtperson += ' and ' + $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ' '
  884. end
  885. elseif knownguy['<<i>>:<<j>>'] = 0:
  886. !! no one is known (one or more)
  887. if cumcount['<<i>>:<<j>>'] = 1:
  888. $txtperson += 'some guy '
  889. else
  890. $txtperson += 'some guys '
  891. end
  892. else
  893. !! there are known and unknown guys in the mix
  894. if knownguy['<<i>>:<<j>>'] = 1:
  895. $txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' and some guy'
  896. else
  897. kmax = 0
  898. :nullocator2
  899. if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator2'
  900. kmax -= 1
  901. k = 0
  902. :mixloop
  903. $txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ', '
  904. if k < kmax: k += 1 & jump 'mixloop'
  905. $txtperson += 'and some guy'
  906. end
  907. if cumcount['<<i>>:<<j>>'] - knownguy['<<i>>:<<j>>'] > 1:
  908. $txtperson += 's '
  909. else
  910. $txtperson += ' '
  911. end
  912. end
  913. end
  914. if j <= 4 and trt_cumeater = 1 and $txtiscum = 'cum':$txtiscum = '<a href="exec:gs ''cum_manage'', ''cumeater'', <<i>>"><font color=#0064FF>' + $txtiscum + '</font></a>'
  915. $txtiscum += ' from '
  916. if i = 0 and j = 4 and vibratorIN = 0 and pcs_vag*10 < cumvolume['<<i>>:<<j>>'] and cumvolume['<<i>>:<<j>>'] >= 20:
  917. if $pantyworntype ! 'none':
  918. $stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + ' into your panties.</font></b>'
  919. else
  920. $stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + ' down your legs.</font></b>'
  921. end
  922. elseif sparragestage >= 5:
  923. if cumcondslip_aware > 0:$stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
  924. elseif j ! 0:
  925. $stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
  926. else
  927. $stat_msg += '<BR><b><font color="red">Your breath smells like sperm.</font></b>'
  928. end
  929. end
  930. if j < 7: j+=1 & jump 'ageloop'
  931. if i < 18: i+=1 & jump 'cumlocloop'
  932. killvar 'i'
  933. killvar 'j'
  934. killvar 'txtperson'
  935. killvar 'k'
  936. killvar 'kmax'
  937. killvar 'txtamount'
  938. killvar 'txtiscum'
  939. killvar 'txtperson'
  940. killvar 'txtproxy'
  941. killvar 'txtloc'
  942. killvar 'cumvolume'
  943. killvar 'cumcount'
  944. killvar 'knownguy'
  945. killvar 'cumowner'
  946. !!stds
  947. if Gerpes >= 10 and GenHerpes = 1:
  948. $stat_msg += '<BR><b><font color="red">Sores have appeared on your vagina. You have genital herpes.</font></b>'
  949. elseif Gerpes >= 5 and GenHerpes =1:
  950. $stat_msg += '<BR><b><font color="red">Your vagina is red and very itchy. You have genital herpes.</font></b>'
  951. elseif Gerpes >= 3 and Orerpes = 1:
  952. $stat_msg += '<BR><b><font color="red">You have cold Sores on your lips. You have oral herpes.</font></b>'
  953. end
  954. if Gerpes >= 20 and GenHerpes =1:$stat_msg += '<BR> <b><font color="red">The herpes sores also cover your ass.</font></b>'
  955. if Sifilis >= 50:
  956. $stat_msg += '<BR><b><font color="red">Syphilitic rashes cover your whole body.</font></b>'
  957. elseif Sifilis >= 21:
  958. $stat_msg += '<BR><b><font color="red">You have a single large, hard sore on the lip. You have syphilis.</font></b>'
  959. end
  960. if Triper > 2:$stat_msg += '<BR><b><font color="red">There''s a white discharge and a strong smell coming from your vagina, and it stings when urinating. You have gonorrhea.</font></b>'
  961. if Kandidoz > 30:$stat_msg += '<BR><b><font color="red">There''s a white discharge and strong smell from your vagina. You have thrush.</font></b>'
  962. !!drug withdrawal
  963. if SLomka > 0:$stat_msg += '<BR><b><font color="red">You are very weak and hurt to the bone. You''re suffering withdrawal.</font></b>'
  964. if narkday ! daystart and narkoman = 1:$stat_msg += '<BR><b><font color="red">You are very weak and hurt to the bone. You urgently need some pale lady.</font></b>'
  965. if fingal > 0:$stat_msg += '<BR><b><font color="red">You have a black eye.</font></b>'
  966. ! WD: Bimbo look
  967. if bimbolevel > 0: $stat_msg += '<BR><<$bimbostatus>>'
  968. if $clothingworntype ! 'nude':
  969. if CloThinness = 6:
  970. if $clothingworntype = 'swimwear':
  971. $stat_msg += '<BR><font color = #FF00FF>Your nipples are clearly showing through your transparent swimsuit.</font>'
  972. elseif $braworntype = 'exhibitionist':
  973. $stat_msg += '<BR><font color = #FF00FF>Your breasts are fully on display through your transparent bra and top.</font>'
  974. elseif $braworntype ! 'none':
  975. $stat_msg += '<BR><font color = #FF00FF>Your bra is clearly showing through your transparent top.</font>'
  976. else
  977. $stat_msg += '<BR><font color = #FF00FF>You are not wearing a bra and your breasts are fully on display through your transparent top.</font>'
  978. end
  979. elseif CloThinness = 5:
  980. if $clothingworntype = 'swimwear':
  981. $stat_msg += '<BR><font color = #AB052A>Your nipples are noticeably poking through your swimsuit.</font>'
  982. elseif $braworntype = 'exhibitionist':
  983. $stat_msg += '<BR><font color = #AB052A>You are wearing such a thin bra that your nipples are noticably poking through the thin fabric of your top.</font>'
  984. elseif $braworntype = 'none':
  985. $stat_msg += '<BR><font color = #AB052A>You are not wearing a bra and your nipples are noticably poking through the thin fabric of your top.</font>'
  986. end
  987. elseif CloThinness = 4:
  988. if $clothingworntype = 'swimwear':
  989. $stat_msg += '<BR><font color = #AB052A>Your nipples are very slightly poking through your swimsuit.</font>'
  990. elseif $braworntype = 'exhibitionist':
  991. $stat_msg += '<BR><font color = #AB052A>You are wearing such a thin bra that your nipples are subtly outlined through your top.</font>'
  992. elseif $braworntype = 'none':
  993. $stat_msg += '<BR><font color = #AB052A>You are not wearing a bra and your nipples are being subtly outlined through your top.</font>'
  994. end
  995. elseif $braworntype = 'none':
  996. $stat_msg += '<BR><font color = #AB052A>You are not wearing a bra.</font>'
  997. end
  998. end
  999. if $clothingworntype = 'nude':
  1000. if $pantyworntype = 'exhibitionist':
  1001. if $braworntype = 'none':
  1002. $stat_msg += '<BR><font color = #AB052A>You are only wearing your see-through panties and your boobs sway invitingly as you walk.</font>'
  1003. elseif $braworntype = 'exhibitionist':
  1004. $stat_msg += '<BR><font color = #AB052A>You are only wearing your see-through underwear.</font>'
  1005. else
  1006. $stat_msg += '<BR><font color = #AB052A>You are only wearing your see-through panties and bra.</font>'
  1007. end
  1008. elseif $pantyworntype ! 'none':
  1009. if $braworntype = 'none':
  1010. $stat_msg += '<BR><font color = #AB052A>You are only wearing your panties and your boobs sway invitingly as you walk.</font>'
  1011. elseif $braworntype = 'exhibitionist':
  1012. $stat_msg += '<BR><font color = #AB052A>You are only wearing your see-through bra and panties.</font>'
  1013. else
  1014. $stat_msg += '<BR><font color = #AB052A>You are only wearing your underwear.</font>'
  1015. end
  1016. else
  1017. if $braworntype ! 'none':
  1018. $stat_msg += '<BR><font color = #AB052A>You are only wearing your bra, leaving your pussy and ass completely exposed.</font>'
  1019. else
  1020. if pcs_inhib < 5:
  1021. $stat_msg += '<BR><b><font color = #AB052A>You are completely naked, and it makes you feel nervous and ashamed.</font></b>'
  1022. elseif pcs_inhib < 20:
  1023. $stat_msg += '<BR><b><font color = orange>You are completely naked, you''re not too comfortable with nudity but it is a little exciting.</font></b>'
  1024. elseif pcs_inhib >= 90:
  1025. $stat_msg += '<BR><b><font color=#0064FF>You are completely naked, which is far better than having to wear clothes.</font></b>'
  1026. else
  1027. $stat_msg += '<BR><b><font color = #FF00FF>You are completely naked. It''s exciting and you feel tingly inside.</font></b>'
  1028. end
  1029. end
  1030. end
  1031. elseif $pantyworntype = 'none' and $clothingworntype ! 'swimwear':
  1032. if PCloStyle = 4:
  1033. $stat_msg += '<BR><font color= #FF00FF>You are not wearing panties, but you are dressed as a hooker, so that''s hardly surprising.</font>'
  1034. elseif PCloBimbo = 1 or bimbolevel > 0 and PCloSkirt > 3 and cheatBimbo = 0:
  1035. $stat_msg += '<BR><font color = #FF00FF>You like, totally forgot to put on any panties. You are such a bimbo.</font>'
  1036. elseif $clothingworntype = 'cheap' and clothingwornnumber = '414':
  1037. $stat_msg += '<BR><b><font color = "yellow">You are wearing an old hessian sack the hunters gave you.</font></b>'
  1038. elseif PCloSkirt > 3:
  1039. if pcs_inhib > 50:
  1040. $stat_msg += '<BR><font color=#0064FF>You feel liberated not wearing panties as your naked ass flashes from under your short skirt.</font>'
  1041. else
  1042. $stat_msg += '<BR><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>'
  1043. end
  1044. elseif PCloPants > 0:
  1045. if $braworntype = 'none':
  1046. $stat_msg += '<BR><b><font color="red">You aren''t wearing underwear, and your bare pussy is rubbing against your clothing.</font></b>'
  1047. else
  1048. $stat_msg += '<BR><b><font color="red">You aren''t wearing panties, and your bare pussy is rubbing against your clothing.</font></b>'
  1049. end
  1050. elseif towel = 1:
  1051. $stat_msg += '<BR><font color = #AB052A>Your naked body is covered only by a short towel.</font>'
  1052. elseif $clothingworntype ! 'nude':
  1053. if $braworntype = 'none':
  1054. $stat_msg += '<BR><font color = #AB052A>You are not wearing any underwear.</font>'
  1055. else
  1056. $stat_msg += '<BR><font color=#AB052A>You are not wearing panties.</font>'
  1057. end
  1058. end
  1059. elseif $pantyworntype = 'exhibitionist' and $clothingworntype ! 'swimwear':
  1060. if PCloStyle = 4:
  1061. $stat_msg += '<BR><font color= #FF00FF>You are wearing see-through panties, but you are dressed as a hooker, so that''s hardly surprising.</font>'
  1062. elseif PCloSkirt > 3:
  1063. if pcs_inhib > 50:
  1064. $stat_msg += '<BR><font color=#0064FF>You feel liberated as your ass, clearly visible through your panties, flashes from under your short skirt.</font>'
  1065. else
  1066. $stat_msg += '<BR><b><font color="red">Your face is flushed with shame, you are wearing panties so thin, they leave your ass clearly visible, as it flashes from under your short skirt.</font></b>'
  1067. end
  1068. end
  1069. elseif PCloBimbo = 1 and cheatBimbo = 0:
  1070. $stat_msg += '<BR><font color = #FF00FF>You are dressed as a bimbo</font>'
  1071. elseif $clothingworntype = 'cheap' and clothingwornnumber = '414':
  1072. $stat_msg += '<BR><b><font color = "yellow">You are wearing an old hessian sack the hunters gave you.</font></b>'
  1073. end
  1074. if mosol >= 50:
  1075. $stat_msg += '<BR><b><font color="red">Your pussy itches a great deal and is affecting your mood, you should use some cream or stop wearing pants without underwear.</font></b>'
  1076. elseif mosol >= 30:
  1077. $stat_msg += '<BR><b><font color="red">Your pussy feels a little itchy, it seems to be from rubbing against your clothing.</font></b>'
  1078. end
  1079. if analplugIN = 1:$stat_msg += '<BR><font color = #FF1493>You have a butt plug inserted in your ass.</font>'
  1080. if vibratorin = 1:$stat_msg += '<BR><font color = #FF1493>You have a vibrator inserted in your vagina.</font>'
  1081. !$stat_msg += '<BR>'
  1082. if young_shop_work = 1:
  1083. if hour = 16 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
  1084. 'You are late for work at Pussy-Cats.'
  1085. elseif hour = 16 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
  1086. misscheck = daystart
  1087. young_shop_miss += 1
  1088. $stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
  1089. elseif (hour = 14 or hour = 15) and week < 6:
  1090. $stat_msg += '<BR><b><font color="red">You start work at Pussy-Cats today at 16:00.</font></b>'
  1091. end
  1092. end
  1093. if courthearing_date - 1 = daystart: $stat_msg += '<BR><b><font color="red">You have a court hearing tomorrow between 07:00 and 11:00.</font></b>'
  1094. if courthearing_date = daystart and hour < 11: $stat_msg += '<BR><b><font color="red">You have a court hearing today between 07:00 and 11:00.</font></b>'
  1095. if young_shop_work1 = 1:
  1096. if hour = 9 and minut <= 5 and week >= 6 and inWorkYoungShop = 0:
  1097. $stat_msg += 'You are late for work at Pussy-Cats.'
  1098. elseif hour = 9 and week >= 6 and inWorkYoungShop = 0 and misscheck ! daystart:
  1099. misscheck = daystart
  1100. young_shop_miss += 1
  1101. $stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
  1102. elseif (hour = 7 or hour = 8) and week >= 6:
  1103. $stat_msg += '<BR><b><font color="red">By 9:00 you have to be at Pussy-Cats to start work.</font></b>'
  1104. end
  1105. end
  1106. if young_shop_work2 = 1:
  1107. if hour = 9 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
  1108. 'You are late for work at Pussy-Cats.'
  1109. elseif hour = 9 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
  1110. misscheck = daystart
  1111. young_shop_miss += 1
  1112. $stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
  1113. elseif (hour = 7 or hour = 8) and week < 6:
  1114. $stat_msg += '<BR><b><font color="red">By 9:00 you have to be at Pussy-Cats to start work.</font></b>'
  1115. end
  1116. end
  1117. if workrin = 1:
  1118. if week = 2 or week = 4 or week = 6:
  1119. if hour = 7:$stat_msg += '<BR><b><font color="red">At 8 o''clock you start work on the market.</font></b>'
  1120. if hour = 8:$stat_msg += '<BR><b><font color="red">You need to work on the market now.</font></b>'
  1121. end
  1122. end
  1123. if frost > 0:
  1124. if frost <= 5:
  1125. $stat_msg += '<BR><b><font>You are a little chilly.</font></b>'
  1126. elseif frost < 11:
  1127. $stat_msg += '<BR><b><font color="red">You are cold.</font></b>'
  1128. else
  1129. $stat_msg += '<BR><b><font color="red">You are freezing.</font></b>'
  1130. end
  1131. end
  1132. if sick > 0:
  1133. if sick = 1:
  1134. $stat_msg += '<BR><b><font color="red">This is not good, a tickle in the throat and a little runny nose.</font></b>'
  1135. elseif sick < 24:
  1136. $stat_msg += '<BR><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>'
  1137. elseif sick < 48:
  1138. $stat_msg += '<BR><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>'
  1139. elseif sick < 72:
  1140. $stat_msg += '<BR><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>'
  1141. else
  1142. $stat_msg += '<BR><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>'
  1143. end
  1144. end
  1145. if hypnoAddict > 0:
  1146. if hypnoWithdrawal = 1:
  1147. if missCum >= timeTresh:
  1148. $stat_msg += '<BR><b><font color="red">You really miss the feeling of sperm in your body, you are strangely craving it. You should talk to your therapist about it.</font></b>'
  1149. else
  1150. $stat_msg += '<BR><b><font color="red">You feel like talking to your therapist. You miss your sessions.</font></b>'
  1151. end
  1152. elseif hypnoWithdrawal = 2:
  1153. if missCum >= timeTresh:
  1154. $stat_msg += '<BR><b><font color="red">You want some sperm inside of you NOW! You have to talk to your therapist, immediately.</font></b>'
  1155. else
  1156. $stat_msg += '<BR><b><font color="red">You need to talk to your therapist. You feel unbalanced without your sessions.</font></b>'
  1157. end
  1158. else
  1159. if missCum >= timeTresh:$stat_msg += '<BR><b><font color="magenta">You miss the feeling of sperm in your body and you feel moody.</font></b>'
  1160. end
  1161. end
  1162. if $mudnerd ! '':$stat_msg += '<BR><<$mudnerd>>'
  1163. if home_owned[1] > 0:
  1164. $streetev_home = 'your apartment'
  1165. elseif tanwork = 1:
  1166. $streetev_home = 'Tanya''s apartment'
  1167. elseif student > 0:
  1168. $streetev_home = 'your dorm'
  1169. elseif home_owned[2] = 1:
  1170. $streetev_home = 'outside your apartment block'
  1171. else
  1172. $streetev_home = 'the train station'
  1173. end
  1174. if hour < meethour[0] and svidanie[0] = 1:$stat_msg += '<BR><<$loverdesc[0]>> will be waiting for you near <<$streetev_home>> at <<meethour[0]>>:00.'
  1175. if hour = meethour[0] and svidanie[0] = 1:$stat_msg += '<BR><b><font color="red"><<$loverdesc[0]>> is waiting for you by <<$streetev_home>>.</font></b>'
  1176. if meetday[0] < daystart and svidanie[0] = 1:pcs_lovers_rel[0] -= 10 & svidanie[0] = 0
  1177. if hour < meethour[1] and svidanie[1] = 1:$stat_msg += '<BR><<$loverdesc[1]>> will be waiting for you near <<$streetev_home>> at <<meethour[1]>>:00.'
  1178. if hour = meethour[1] and svidanie[1] = 1:$stat_msg += '<BR><b><font color="red"><<$loverdesc[1]>> is waiting for you by <<$streetev_home>>.</font></b>'
  1179. if meetday[1] < daystart and svidanie[1] = 1:pcs_lovers_rel[1] -= 10 & svidanie[1] = 0
  1180. if hour < meethour[2] and svidanie[2] = 1:$stat_msg += '<BR><<$loverdesc[2]>> will be waiting for you near <<$streetev_home>> at <<meethour[2]>>:00.'
  1181. if hour = meethour[2] and svidanie[2] = 1:$stat_msg += '<BR><b><font color="red"><<$loverdesc[2]>> is waiting for you by <<$streetev_home>>.</font></b>'
  1182. if meetday[2] < daystart and svidanie[2] = 1:pcs_lovers_rel[2] -= 10 & svidanie[2] = 0
  1183. if StrongNarkota > 20 or jointhigh > 0:$stat_msg += '<BR><b><font color="red">You are stoned.</font></b>'
  1184. if amphHigh > 0: $stat_msg += '<BR><b><font color="red">You feel a little wired.</font></b>'
  1185. if alko > 0:
  1186. if alko = 1:
  1187. slut_bonus = 0
  1188. $stat_msg += '<BR><b>You feel a little buzz from drinking.</b>'
  1189. elseif alko < 4:
  1190. slut_bonus = 10
  1191. $stat_msg += '<BR><b><font color="orange">You''re feeling a bit tipsy.</font></b>'
  1192. elseif alko < 6:
  1193. slut_bonus = 20
  1194. $stat_msg += '<BR><b><font color="red">You''re drunk.</font></b>'
  1195. elseif alko < 10:
  1196. slut_bonus = 30
  1197. $stat_msg += '<BR><b><font color="red">You''re very drunk.</font></b>'
  1198. else
  1199. slut_bonus = 50
  1200. $stat_msg += '<BR><b><font color="red">You''re wasted.</font></b>'
  1201. end
  1202. else
  1203. killvar 'slut_bonus'
  1204. end
  1205. if StoryLine = 1:
  1206. if day = nyp_day and month = 12 and SchoolAtestat = 0 and hour >= 5 and hour <= 14 and StoryLine = 1:$stat_msg += '<BR>At 14:00 your school''s New Year''s party will start.'
  1207. if sisboyday + 1 = daystart and hour < 19 and (npc_QW['A33'] = 3 or npc_QW['A33'] = 5 or npc_QW['A33'] = 7 or (npc_QW['A33'] >= 9 and sisboytrioQW ! 1)):$stat_msg += '<BR>' & $stat_msg += '<BR>You promised your sister not to go into your room at 18:00.'
  1208. if sisboyday + 1 = daystart and hour < 19 and sisboytrioQW = 1:$stat_msg += '<BR>' & $stat_msg += '<BR>You promised your sister to meet her in your room at 18:00.'
  1209. if week = 6 and hour < 9 and detention_set = 1 and SchoolAtestat = 0:$stat_msg += '<BR><b>You have a detention this morning and must be at school between 8 and 9.</b>'
  1210. if gopnik_initiation = 1 and gopnik_initiation_day = daystart and hour > 15 and hour < 21: $stat_msg += '<BR><b>Meet Lena and Lera at the apartment garages at eight</b>'
  1211. if nerd_night_game = 1 and nerd_night_game_day = daystart and hour > 15 and hour < 21: $stat_msg += '<BR><b>Join nerds at the community center at eight</b>'
  1212. if InvitationToDimkaNYparty = 1 and month = 12 and day = 31: $stat_msg += '<BR><b>Go to the residential area between 15:00 and 18:00 to go to Dimka''s New Year party.</b>'
  1213. end
  1214. if home_owned[1] = 1 and home_owned[4] > 0:
  1215. $stat_msg += '<BR>You have rented an apartment in the city residential area, which is paid up for <b><<ArendHouseSL>></b> days, and you also have an apartment in Pushkin, which is paid up for <b><<ArendHouseSL4>></b> days. Utilities are due on the 25th of <<$month>>.'
  1216. elseif home_owned[1] = 1:
  1217. $stat_msg += '<BR>You have rented an apartment in the city residential area, and you''re paid up for <<ArendHouseSL>> days. Utilities are due on the 25th of <<$month>>.'
  1218. elseif home_owned[4] > 0:
  1219. $stat_msg += '<BR>You have rented an apartment in Pushkin, and you''re paid up for <<ArendHouseSL4>> days. Utilities are due on the 25th of <<$month>>.'
  1220. end
  1221. if model > 0 and model_week = (daystart - week) / 7 and model_job_week >= 2:
  1222. $stat_msg += '<BR><b>You have no more modelling jobs available this week.</b>'
  1223. elseif model > 0 and model_week < (daystart - week) / 7 and model_job_week = 1:
  1224. $stat_msg += '<BR><b>You can get paid for 1 more modelling job this week.</b>'
  1225. elseif model > 0 and model_week < (daystart - week) / 7 and model_job_week < 1:
  1226. $stat_msg += '<BR><b>You can get paid for 2 modelling jobs this week.</b>'
  1227. end
  1228. if pornstack > 0:
  1229. porndays = 0
  1230. :pfilmtime
  1231. if porndays < 200 and pfilmday[porndays] = 0: porndays += 1 & jump 'pfilmtime'
  1232. end
  1233. if pornstack > 0 and pfilmday[0] = 0:
  1234. if pfilmday[1] = 0:
  1235. $stat_msg += '<br><b>You will star in another porno in <<porndays>> days.</b>'
  1236. else
  1237. $stat_msg += '<br><b>You have a porno shoot scheduled tomorrow.</b>'
  1238. end
  1239. end
  1240. if pfilmday[0] > 0:
  1241. if pornnow = 1:
  1242. $stat_msg += '<br><b>You are at a porn shooting.</b>'
  1243. else
  1244. if hour < 11: $stat_msg += '<br><b>You are expected in the porno studio at 10:00.</b>'
  1245. if hour >= 11 and hour < 13: $stat_msg += '<br><b>You should be at the porno studio, shooting!</b>'
  1246. if hour >= 13: $stat_msg += '<br><b>You missed a scheduled porno shoot!</b>'
  1247. end
  1248. end
  1249. if pornmiss = 1: $stat_msg += '<br><b>You missed a scheduled porno shoot!</b>'
  1250. if prodcosttrue > 0: $stat_msg += '<br><b>You owe money to the porn studio <<prodcost>>?</b>'
  1251. if firstkasting > 0 and pfilmNO < 1:
  1252. if pornstack <= 10:
  1253. $stat_msg += '<br>You are currently unable to book any more porn shoots at the Porn Studio.'
  1254. elseif pornstack = 11:
  1255. $stat_msg += '<br>You can contract <<10-pornstack>> porn shoot at the Porn Studio.'
  1256. else
  1257. $stat_msg += '<br>You can contract up to <<10-pornstack>> porn shoots at the Porn Studio.'
  1258. end
  1259. end
  1260. if hour < 22 and week >= 2 and week <= 4 and workKafe = 1:$stat_msg += '<BR><b><font color="red">Today you have a shift at The Roadhouse cafe starting at 11:00.</font></b>'
  1261. if hour < 17 and week < 5 and workSec >= 1 or hour < 17 and week < 5 and workSec = 1:$stat_msg += '<BR><b><font color="red">Today you have a shift as a secretary at Titran-Express from 9:00 to 17:00</font></b>'
  1262. if hour < 17 and week < 5 and PersSecWork = 1:$stat_msg += '<BR><b><font color="red">Today you have a shift as a secretary at Diner Bystroeshka from 9:00 to 17:00</font></b>'
  1263. if hour < 20 and week => 1 and week <= 5 and age < 18 and workFabrika = 1:$stat_msg += '<BR><b><font color = red>Today you have work in the garment factory in Pavlovsk. Shift starts at 16:00.</font></b>'
  1264. if hour < 16 and week => 1 and week <= 5 and age >= 18 and workFabrika = 1:$stat_msg += '<BR><b><font color = red>Today you have work in the garment factory in Pavlovsk. Shift starts at 8:00.</font></b>'
  1265. if hour < 16 and week > 1 and week <= 5 and workhosp = 1:$stat_msg += '<BR><b><font color="red">You work as a nurse in the city residential area clinic. Your shift starts at 8:00.</font></b>'
  1266. if hour < 10 and worksalon = 1 and (week = 1 or week = 3 or week = 5):$stat_msg += '<BR><b><font color = red>Today you have work as masseuse in beauty salon. Shift starts at 9:00.</font></b>'
  1267. if leonidVisit = 1 and hour < 21 and hour > 6: $stat_msg += '<br><b>You have to serve Leonid at 20:00 in his Pavlovsk office!</b>'
  1268. if $nichStatMsg ! '': $stat_msg += "<br><b><<$nichStatMsg>></b>"
  1269. if npc_QW['A113'] = 1:
  1270. $stat_msg += '<br>You owe Vadim Bely <<belgangpay>> <b><b>₽</b></b> and you need to pay him <<belgangpayweek>> <b>₽</b></b> this week.'
  1271. end
  1272. gs 'brother', 'brotherSexCount'
  1273. !! List Current Active Spells
  1274. if arrsize('spellComplete') > 0:
  1275. $tempSpellText="<br><b><font color='#FF99FF'>Active Spells</font></b>"
  1276. i=0
  1277. :ActiveSpellLoop
  1278. if i < arrsize('spellComplete'):
  1279. $tempSpellText += "<br><font color='#FF99FF'><<$spellName[$spellTimeName[i]]>></font>"
  1280. i += 1
  1281. jump 'ActiveSpellLoop'
  1282. end
  1283. $stat_msg += func('cleanHTML',$tempSpellText)
  1284. killvar '$tempSpellText'
  1285. killvar 'i'
  1286. end
  1287. !!zero checks marriage
  1288. proverka1 = 0
  1289. proverka2 = 0
  1290. proverka3 = 0
  1291. proverka4 = 0
  1292. proverka5 = 0
  1293. if boletus + bilberry > 0:
  1294. if boletus + bilberry >= 10:
  1295. $stat_msg +='<br><font color = Olive>You have a full basket. </font> '
  1296. else
  1297. $stat_msg +='<br><font color = Olive>In Your basket: </font>'
  1298. end
  1299. if boletus > 0:$stat_msg +='Mushrooms: <b><<boletus>></b> kg. '
  1300. if bilberry > 0:$stat_msg +='Berries: <b><<bilberry>></b> kg. '
  1301. end
  1302. if disable_LoadSave = 0:
  1303. $stat_msg += '<br><br><a href="exec:savegame ''quicksave.sav'' && pl''Quicksave Done''"><img src="images/system/icon/stat_qsave.png"></a> <a href="exec:savegame"><img src="images/system/icon/stat_save.png"></a> <a href="exec:opengame"><img src="images/system/icon/stat_load.png"></a> <a href="exec:if input(''Input Anything to confirm Quick Load'') ! null: opengame ''quicksave.sav''"><img src="images/system/icon/stat_qload.png"></a>'
  1304. elseif disable_LoadSave = 2:
  1305. $stat_msg += '<br><br><a href="exec:savegame ''quicksave.sav'' && pl''Quicksave Done''">Quick Save</a> <a href="exec:savegame">Save</a> <a href="exec:opengame">Load</a> <a href="exec:if input(''Input Anything to confirm Quick Load'') ! null: opengame ''quicksave.sav''">Quick Load</a>'
  1306. end
  1307. $stat_android += ' <a href="exec:savegame ''quicksave.sav'' && pl''Quicksave Done''">Q.S</a> <a href="exec:if input(''Input Anything to confirm Quick Load'') ! null: opengame ''quicksave.sav''">Q.L</a>'
  1308. if Enable_statimg_loc = 2:
  1309. $stat_msg += '<br><<$stat_imgtool_msg>><br><<$stat_imgextra_msg>>'
  1310. end
  1311. killvar 'stat_imgtool_msg'
  1312. killvar 'stat_imgextra_msg'
  1313. if Enable_statfsize > 0: $stat_msg += '</font>' & !disable this, all texts comes from pl will have the same font size, like[time]
  1314. if Enable_faceturn = 1: view FUNC('$face_image')
  1315. if Enable_Android = 0:
  1316. pl '<<$stat_msg>>'
  1317. else
  1318. '<<$stat_android>>'
  1319. $stat_msg = 'Android mode, <a href="exec:gs ''$menu_obnovit''">Refresh</a><<$stat_msg>>'
  1320. end
  1321. --- stat_display ---------------------------------