stat_display.qsrc 60 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331
  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 or Enable_statimg_loc > 0:
  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. $stat_imgtool_msg += ' <a href="exec:gs ''Cheatmenu_din'' & Enable_settingmode = 1 & dynamic $cheatmenu[''display'']">◎Setting</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. $stat_msg += '<BR><<$stat_android>> <<$week[week]>> <<day>> <<$month>> <<year>>'
  134. $stat_android += '<<$week[week]>> <<day>>/<<month>>, <<money>> ₽, <a href="exec:clr & pl $stat_android">Status</a>'
  135. ! $stat_android for short desc in android mode, $stat_msg for status bar.
  136. if StoryLine > 0 and SchoolAtestat = 0 and $holyday ! '': $stat_msg += '<BR><<$holyday>>' & $stat_msg += '<BR>'
  137. if birthday = day and birthmonth = month: $stat_msg += '<BR><b>Today is your birthday.</b>' & $stat_msg += '<BR>'
  138. $pockets = 'Pockets'
  139. if bag > 0: $pockets = 'Purse'
  140. if bankAccount = 0 and stolmoney = 0:
  141. $stat_msg += '<BR>You have <b><<money>> ₽</b> in your <<$pockets>>.'
  142. else
  143. !combine money status to single line
  144. $stat_msg += '<BR><<$pockets>>: <b><<money>> ₽</b>'
  145. if stolmoney > 0: $stat_msg += ', Drawer <b><<stolmoney>> ₽</b>'
  146. if bankAccount = 1:
  147. if karta >= 0:
  148. $stat_msg += ', Bank: <b><<karta>> ₽</b>'
  149. else
  150. $stat_msg += '<BR><font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>!!</font>'
  151. end
  152. end
  153. end
  154. !{
  155. $stat_msg += '<BR>You have <b><<money>> ₽</b> in your <<$pockets>>.'
  156. if bankAccount = 1:
  157. if karta >= 0:
  158. $stat_msg += '<BR>You have <b><<karta>> ₽</b> in your bank account.'
  159. else
  160. $stat_msg += '<BR><font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>!!</font>'
  161. end
  162. end
  163. if stolmoney > 0: $stat_msg += '<BR>You have <b><<stolmoney>> ₽</b> in your desk drawer.'
  164. }
  165. !$stat_msg += '<BR>'
  166. if ETOmenu = 1:
  167. $stat_msg += '<BR><b><<$pcs_health>></b>'
  168. $stat_msg += '<BR><b><<$pcs_willpwr>></b>'
  169. if cheatNoEat = 0: $stat_msg += '<BR><b><<$pcs_energy>></b>'
  170. if cheatNoDrink = 0: $stat_msg += '<BR><b><<$pcs_hydra>></b>'
  171. if cheatNoSleep = 0: $stat_msg += '<BR><b><<$pcs_sleep>></b>'
  172. elseif Enable_scalepic = 2:
  173. $st_temp='rgb(<<(16777216 + fcolor) mod 256>>,<<(16777216 + fcolor)/256 mod 256>>,<<(16777216 + fcolor)/65536>>)'
  174. $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>'
  175. if MagikDostup = 0: $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_manna * 100 / mannamax, pcs_manna)+'</TD><TD> Manna</TD></TR>'
  176. $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>'
  177. if cheatNoEat = 0: $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_energy, pcs_energy)+'</TD><TD> Hunger</TD></TR>'
  178. if cheatNoDrink = 0: $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_hydra, pcs_hydra)+'</TD><TD> Thirst</TD></TR>'
  179. if cheatNoSleep = 0: $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_sleep, pcs_sleep)+'</TD><TD> Sleep</TD></TR></TABLE></font></p>'
  180. else
  181. gs 'indik', '2', pcs_horny, pcs_horny
  182. $stat_msg += '<BR><<$ind>> Arousal'
  183. gs 'indik', '2', pain['total'], pain['total'], pain['damage']
  184. $stat_msg += '<BR><<$ind>> Pain'
  185. gs 'indik', '1', pcs_health * 100 / healthmax, pcs_health
  186. $stat_msg += '<BR><<$ind>> Health'
  187. if MagikDostup = 0:
  188. gs 'indik', '1', pcs_manna * 100 / mannamax, pcs_manna
  189. $stat_msg += '<BR><<$ind>> Manna'
  190. end
  191. gs 'indik', '1', pcs_willpwr * 100 / willpowermax, pcs_willpwr
  192. $stat_msg += '<BR><<$ind>> Willpower'
  193. gs 'indik', '1', pcs_stam * 100 / stammax, pcs_stam
  194. $stat_msg += '<BR><<$ind>> Stamina'
  195. gs 'indik', '1', pcs_mood, pcs_mood
  196. $stat_msg += '<BR><<$ind>> Mood'
  197. if cheatNoEat = 0:
  198. gs 'indik', '1', pcs_energy, pcs_energy
  199. $stat_msg += '<BR><<$ind>> Hunger'
  200. end
  201. if cheatNoDrink = 0:
  202. gs 'indik', '1', pcs_hydra, pcs_hydra
  203. $stat_msg += '<BR><<$ind>> Thirst'
  204. end
  205. if cheatNoSleep = 0:
  206. gs 'indik', '1', pcs_sleep, pcs_sleep
  207. $stat_msg += '<BR><<$ind>> Sleep'
  208. end
  209. end
  210. !!----------------Extra messages, start--------------------------
  211. !!----------------▽Attributes--------------------------
  212. $stat_tool_msg=''
  213. $stat_extra_msg=''
  214. if Enable_showattr = 0:
  215. $stat_tool_msg += '<a href="exec:Enable_showattr = 1 & gs ''$menu_obnovit''">▽Attributes</a>'
  216. else
  217. $stat_tool_msg += '<a href="exec:Enable_showattr = 0 & gs ''$menu_obnovit''">▲Attributes</a>'
  218. !skip if this is first message
  219. if $stat_extra_msg ! null: $stat_extra_msg += '<br><a href="exec:Enable_showattr = 0 & gs ''$menu_obnovit''">▲Attributes:</a>'
  220. if Enable_scalepic = 2:
  221. if pcs_dom > 10:
  222. $dom_stat_msg = 'dominant'
  223. elseif sub > 10:
  224. $dom_stat_msg = 'submissive'
  225. else
  226. $dom_stat_msg = 'neutral'
  227. end
  228. $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', 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> Mental Agility</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>'
  229. if MagikDostup = 0: $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_magik, pcs_magik)+'</TD><TD> Magic</TD></TR>'
  230. if succubusflag = 1: $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', sucexcess, sucexcess)+'</TD><TD> Succubus Energy</TD></TR>'
  231. $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_apprnc / 2, pcs_apprnc)+'</TD><TD> Attractiveness</TD></TR>'
  232. 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>'
  233. $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', 100 - pcs_inhib, 100 - pcs_inhib)+'</TD><TD> Inhibition</TD></TR>'
  234. if pcs_heels > 0:$stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_heels, pcs_heels)+'</TD><TD> Heels skill</TD></TR>'
  235. $stat_extra_msg += '</TABLE></font>'
  236. killvar '$dom_stat_msg'
  237. else
  238. gs 'indik','3', 50+(pcs_dom-sub)/2, 50+(pcs_dom-sub)/2
  239. $stat_extra_msg += '<BR><<$ind>> Dominance'
  240. if pcs_dom > 10:
  241. $stat_extra_msg += ' (dominant)'
  242. elseif sub > 10:
  243. $stat_extra_msg += ' (submissive)'
  244. else
  245. $stat_extra_msg += ' (natural)'
  246. end
  247. ! $stat_extra_msg += '<BR>'
  248. gs 'indik', '1', pcs_stren, pcs_stren
  249. $stat_extra_msg += '<BR><<$ind>> Strength'
  250. gs 'indik', '1', pcs_agil, pcs_agil
  251. $stat_extra_msg += '<BR><<$ind>> Agility'
  252. gs 'indik', '1', pcs_vital, pcs_vital
  253. $stat_extra_msg += '<BR><<$ind>> Endurance'
  254. gs 'indik', '1', pcs_intel, pcs_intel
  255. $stat_extra_msg += '<BR><<$ind>> Intelligence'
  256. gs 'indik', '1', pcs_sprt, pcs_sprt
  257. $stat_extra_msg += '<BR><<$ind>> Spirit'
  258. gs 'indik', '1', pcs_react, pcs_react
  259. $stat_extra_msg += '<BR><<$ind>> Mental Agility'
  260. gs 'indik', '1', pcs_chrsm, pcs_chrsm
  261. $stat_extra_msg += '<BR><<$ind>> Charisma'
  262. gs 'indik', '1', pcs_prcptn, pcs_prcptn
  263. $stat_extra_msg += '<BR><<$ind>> Perception'
  264. if MagikDostup = 0:
  265. gs 'indik', '1', pcs_magik, pcs_magik
  266. $stat_extra_msg += '<BR><<$ind>> Magic'
  267. if succubusflag = 1:
  268. gs 'indik', '1', sucexcess, sucexcess
  269. $stat_extra_msg += '<BR><<$ind>> Succubus energy'
  270. end
  271. end
  272. gs 'indik', '1', pcs_apprnc / 2, pcs_apprnc
  273. $stat_extra_msg += '<BR><<$ind>> Attractiveness'
  274. if SchoolAtestat = 0 and StoryLine > 0:
  275. gs 'indik', '1', pcs_grades, pcs_grades
  276. $stat_extra_msg += '<BR><<$ind>> School Grades'
  277. end
  278. gs 'indik', '1', 100 - pcs_inhib, 100 - pcs_inhib
  279. $stat_extra_msg += '<BR><<$ind>> inhibition'
  280. if pcs_heels > 0:
  281. gs 'indik', '1', pcs_heels, pcs_heels
  282. $stat_extra_msg += '<BR><<$ind>> Heels skill'
  283. end
  284. $stat_extra_msg += '<BR>'
  285. end
  286. end
  287. killvar '$st_temp'
  288. !!----------------▽Skills--------------------------
  289. if Enable_showskill = 0:
  290. $stat_tool_msg += ' <a href="exec:Enable_showskill = 1 & gs ''$menu_obnovit''">▽Skills</a>'
  291. else
  292. $stat_tool_msg += ' <a href="exec:Enable_showskill = 0 & gs ''$menu_obnovit''">▲Skills</a>'
  293. !!----------------------▲Skills display------------------------
  294. $stat_sktool_msg=''
  295. st_count=0
  296. $show_table=''
  297. !!----------------Mental skills--------------------------
  298. if Enable_show_mental_skill = 0:
  299. $stat_sktool_msg += ' <a href="exec:Enable_show_mental_skill = 1 & gs ''$menu_obnovit''">◇Mental</a>'
  300. else
  301. $stat_sktool_msg += ' <a href="exec:Enable_show_mental_skill = 0 & gs ''$menu_obnovit''">◆Mental</a>'
  302. if pcs_splcstng > 0: gs 'show_table', '<<pcs_splcstng>> Spell Casting', '2'
  303. if pcs_humint > 0: gs 'show_table', '<<pcs_humint>> People skills', '2'
  304. if pcs_persuas > 0: gs 'show_table', '<<pcs_persuas>> Persuasion', '2'
  305. if pcs_observ > 0: gs 'show_table', '<<pcs_observ>> Observation', '2'
  306. end
  307. !!-----------------Sport skills--------------------------
  308. if Enable_show_sport_skill = 0:
  309. $stat_sktool_msg += ' <a href="exec:Enable_show_sport_skill = 1 & gs ''$menu_obnovit''">◇Sport</a>'
  310. else
  311. $stat_sktool_msg += ' <a href="exec:Enable_show_sport_skill = 0 & gs ''$menu_obnovit''">◆Sport</a>'
  312. if pcs_jab > 0: gs 'show_table', '<<pcs_jab>> Jabs', '2'
  313. if pcs_punch > 0: gs 'show_table', '<<pcs_punch>> Power Strikes', '2'
  314. if pcs_kick > 0: gs 'show_table', '<<pcs_kick>> Kicks', '2'
  315. if pcs_def > 0: gs 'show_table', '<<pcs_def>> Defence', '2'
  316. if pcs_run > 0: gs 'show_table', '<<pcs_run>> Running', '2'
  317. if pcs_vball > 0: gs 'show_table', '<<pcs_vball>> Volleyball', '2'
  318. if pcs_ftbll > 0: gs 'show_table', '<<pcs_ftbll>> Football', '2'
  319. if pcs_wrstlng > 0: gs 'show_table', '<<pcs_wrstlng>> Wrestling', '2'
  320. if pcs_shoot > 0: gs 'show_table', '<<pcs_shoot>> Marksmanship', '2'
  321. if pcs_chess > 0: gs 'show_table', '<<pcs_chess>> Chess', '2'
  322. if pcs_icesktng > 0: gs 'show_table', '<<pcs_icesktng>> Ice Skating', '2'
  323. if pcs_ttgmng > 0: gs 'show_table', '<<pcs_ttgmng>> Gaming', '2'
  324. if pcs_pool > 0: gs 'show_table', '<<pcs_pool>> Pool', '2'
  325. end
  326. !!-----------------Beauty/Modelling skills---------------
  327. if Enable_show_beauty_skill = 0:
  328. $stat_sktool_msg += ' <a href="exec:Enable_show_beauty_skill = 1 & gs ''$menu_obnovit''">◇Beauty</a>'
  329. else
  330. $stat_sktool_msg += ' <a href="exec:Enable_show_beauty_skill = 0 & gs ''$menu_obnovit''">◆Beauty</a>'
  331. if pcs_makupskl > 0: gs 'show_table', '<<pcs_makupskl>> Makeup Skill', '2'
  332. if pcs_danc > 0: gs 'show_table', '<<pcs_danc>> Modern Dancing', '2'
  333. if pcs_dancero > 0: gs 'show_table', '<<pcs_dancero>> Erotic Dancing', '2'
  334. if pcs_dancpol > 0: gs 'show_table', '<<pcs_dancpol>> Pole Dancing', '2'
  335. if pcs_mdlng > 0: gs 'show_table', '<<pcs_mdlng>> Modelling', '2'
  336. end
  337. !!---------------------Artistic skills-------------------
  338. if Enable_show_art_skill = 0:
  339. $stat_sktool_msg += ' <a href="exec:Enable_show_art_skill = 1 & gs ''$menu_obnovit''">◇Artistic</a>'
  340. else
  341. $stat_sktool_msg += ' <a href="exec:Enable_show_art_skill = 0 & gs ''$menu_obnovit''">◆Artistic</a>'
  342. if pcs_vokal > 0: gs 'show_table', '<<pcs_vokal>> Singing', '2'
  343. if pcs_instrmusic > 0: gs 'show_table', '<<pcs_instrmusic>> Instrumental Music', '2'
  344. if pcs_photoskl > 0: gs 'show_table', '<<pcs_photoskl>> Photography', '2'
  345. if pcs_artskls > 0: gs 'show_table', '<<pcs_artskls>> Artistic Skills', '2'
  346. end
  347. !!----------------------Job skills------------------------
  348. if Enable_show_job_skill = 0:
  349. $stat_sktool_msg += ' <a href="exec:Enable_show_job_skill = 1 & gs ''$menu_obnovit''">◇Job</a>'
  350. else
  351. $stat_sktool_msg += ' <a href="exec:Enable_show_job_skill = 0 & gs ''$menu_obnovit''">◆Job</a>'
  352. if pcs_compskl > 0: gs 'show_table', '<<pcs_compskl>> Computer Skill', '2'
  353. if pcs_comphckng > 0: gs 'show_table', '<<pcs_comphckng>> Hacking', '2'
  354. if pcs_hndiwrk > 0: gs 'show_table', '<<pcs_hndiwrk>> Handy-work', '2'
  355. if pcs_sewng > 0: gs 'show_table', '<<pcs_sewng>> Tailoring', '2'
  356. if pcs_servng > 0: gs 'show_table', '<<pcs_servng>> Serving', '2'
  357. if pcs_medcn > 0: gs 'show_table', '<<pcs_medcn>> Medicine', '2'
  358. if workPTU > 1: gs 'show_table','<<teachlevel>> Teacher credibility','2'
  359. end
  360. !skip if this is first message
  361. if $stat_extra_msg ! null:
  362. $stat_extra_msg += '<br><a href="exec:Enable_showskill = 0 & gs ''$menu_obnovit''">▲Skills:</a> <<$stat_sktool_msg>>'
  363. else
  364. $stat_extra_msg += '<br><<$stat_sktool_msg>>'
  365. end
  366. if st_count > 0 :
  367. $stat_extra_msg += '<BR><TABLE BORDER=1><<$show_table>></TR></TABLE>'
  368. end
  369. end
  370. killvar 'stat_sktool_msg'
  371. killvar 'stat_skextra_msg'
  372. !!----------------▽relations--------------------------
  373. if Enable_showrelation = 0:
  374. $stat_tool_msg += ' <a href="exec:Enable_showrelation = 1 & gs ''$menu_obnovit''">▽Relations</a>'
  375. else
  376. $stat_tool_msg += ' <a href="exec:Enable_showrelation = 0 & gs ''$menu_obnovit''">▲Relations</a>'
  377. st_count=0
  378. $show_table=''
  379. if npc_QW['A192'] > 0:gs'show_table','Nastja: <<npc_QW[''A192'']>>','2'
  380. if npc_rel['A218'] > 0:gs'show_table','Tanya: <<npc_rel[''A218'']>>','2'
  381. if npc_rel['A219'] > 0:gs'show_table','Kat: <<npc_rel[''A219'']>>','2'
  382. if npc_rel['A220'] > 0:gs'show_table','Vika: <<npc_rel[''A220'']>>','2'
  383. if npc_rel['A93'] > 0:gs'show_table','Ira: <<npc_rel[''A93'']>>','2'
  384. if npc_rel['A43'] > 0:gs'show_table','Tamara: <<npc_rel[''A43'']>>','2'
  385. if alla > 0:gs'show_table','Alla: <<alla>>','2'
  386. if masha > 0:gs'show_table','Masha: <<masha>>','2'
  387. if npc_rel['A41'] > 0:gs'show_table','Givi Karapetovich: <<npc_rel[''A41'']>>','2'
  388. if npc_rel['A42'] > 0:gs'show_table','Ashot: <<npc_rel[''A42'']>>','2'
  389. if afra > 0:gs'show_table','Blacks: <<afra>>','2'
  390. if Rex > 0:gs'show_table','Rex: <<Rex>>','2'
  391. if npc_rel['A217'] > 0:gs'show_table','Pavlin: <<npc_rel[''A217''] >>','2'
  392. if npc_rel['A69'] > 0:gs'show_table','Mikhail Nikolaevich: <<npc_rel[''A69'']>>','2'
  393. if npc_rel['A89'] > 0:gs'show_table','Eugene: <<npc_rel[''A89'']>>','2'
  394. if npc_rel['A112'] > 0:gs'show_table','Sergei Shulgin: <<npc_rel[''A112'']>>','2'
  395. if npc_rel['A11'] > 0:gs'show_table','Vasily Shulgin: <<npc_rel[''A11'']>>','2'
  396. if hantersAndreiQw > 0:gs'show_table','Hunter Andrew: <<hantersAndreiQw>>','2'
  397. if hantersSergeiQw > 0:gs'show_table','Hunter Sergei: <<hantersSergeiQw>>','2'
  398. if hantersIgorQw > 0:gs'show_table','Hunter Igor: <<hantersIgorQw>>','2'
  399. if pcs_lovers[0] = 1:gs'show_table', 'BF <<$loverdesc[0]>>: <<loverrelation[0]>>','2'
  400. if pcs_lovers[1] = 1:gs'show_table', 'BF <<$loverdesc[1]>>: <<loverrelation[1]>>','2'
  401. if pcs_lovers[2] = 1:gs'show_table', 'BF <<$loverdesc[2]>>: <<loverrelation[2]>>','2'
  402. if StoryLine > 0:
  403. if npc_rel['A29'] > 0:gs'show_table','Mother: <<npc_rel[''A29'']>>','2'
  404. if npc_rel['A28'] > 0:gs'show_table','Father: <<npc_rel[''A28'']>>','2'
  405. if npc_rel['A33'] > 0:gs'show_table','Sister: <<npc_rel[''A33'']>>','2'
  406. if npc_rel['A34'] > 0:gs'show_table','Brother: <<npc_rel[''A34'']>>','2'
  407. end
  408. if st_count > 0 :
  409. !skip if this is first message
  410. if $stat_extra_msg ! null: $stat_extra_msg += '<BR><a href="exec:Enable_showrelation = 0 & gs ''$menu_obnovit''">▲Relations:</a>'
  411. $stat_extra_msg += '<BR><TABLE BORDER=1> <<$show_table>></TR></TABLE>'
  412. end
  413. end
  414. !!----------------▽image, default to toolbar, can move to top or bottom from setting--------------------------
  415. if Enable_statimg_loc = 0:
  416. if Enable_showstatimg = 0:
  417. $stat_tool_msg += ' <a href="exec:Enable_showstatimg = 1 & gs ''$menu_obnovit''">▽Image</a>'
  418. else
  419. $stat_tool_msg += ' <a href="exec:Enable_showstatimg = 0 & gs ''$menu_obnovit''">▲Image</a>'
  420. !skip if this is first message
  421. if $stat_extra_msg ! null:
  422. $stat_extra_msg += '<br><a href="exec:Enable_showstatimg = 0 & gs ''$menu_obnovit''">▲Image:</a> <<$stat_imgtool_msg>>'
  423. else
  424. $stat_extra_msg += '<br><<$stat_imgtool_msg>>'
  425. end
  426. $stat_extra_msg += '<br><<$stat_imgextra_msg>>'
  427. end
  428. end
  429. !all end, push back and clean up
  430. $stat_msg += '<br><br><<$stat_tool_msg>>'
  431. if $stat_extra_msg ! NULL : $stat_msg += '<<$stat_extra_msg>>'
  432. $stat_msg += '<br>'
  433. killvar 'stat_tool_msg'
  434. killvar 'stat_extra_msg'
  435. !!----------------Extra messages, End--------------------------
  436. if opPRE = 0: $stat_msg += '<BR><<$pcs_makeup>> and your hair is <<$pcs_hairbsh>>.' & !$stat_msg += '<BR>'
  437. if thinkpreg = 0 and knowpreg = 0 and cycle ! 6 and pillcon2 <= 30000 and succubusflag ! 1 and cheatSlut = 0 and mesec = 0:
  438. if abortionbirthdate = 0 and daystart - lastmens > 21:
  439. if daystart - lastmens < 28:
  440. $stat_msg += '<BR><font color = #AB052A><b>Your period is late by <<daystart - lastmens - 20>> days.</b></font>'
  441. elseif daystart - lastmens < 35:
  442. $stat_msg += '<BR><font color = #AB052A><b>Your period is late by more than a week!</b></font>'
  443. elseif daystart - lastmens < 45:
  444. $stat_msg += '<BR><font color = #AB052A><b>You apparently missed your period this month. Maybe you should see a doctor?</b></font>'
  445. elseif daystart - lastmens < 69:
  446. $stat_msg += '<BR><font color = #AB052A><b>You didn''t have a period for two months. You really should see a doctor about it.</b></font>'
  447. else
  448. $stat_msg += '<BR><font color = #AB052A><b>You should consider the possibility of a pregnancy, since apparently you no longer have periods.</b></font>'
  449. end
  450. elseif abortionbirthdate ! 0 and daystart - abortionbirthdate <= 100:
  451. $stat_msg += '<BR><font color = #705243><b>You are probably still in your recovery period. Nothing to worry about.</b></font>'
  452. elseif abortionbirthdate ! 0 and daystart - abortionbirthdate > 100:
  453. $stat_msg += '<BR><font color = #820000><b>You should have recovered by know... Right?</b></font>'
  454. end
  455. end
  456. if implant_day > 0:
  457. if ((daystart - implant_day) * 24 + hour - implant_hour) < 5:
  458. $stat_msg += '<BR><font color=#AB052A>You feel a slight twinge in your abdomen.</font>'
  459. end
  460. end
  461. if mesec > 0:
  462. $stat_msg += '<BR><font color="red">You are currently having your period. '
  463. if isprok = 0 and isprokp = 0:
  464. $stat_msg += 'You need to use your feminine hygiene products.'
  465. elseif isprokp = 1 and $pantyworntype = 'none':
  466. isprokp = 0
  467. $stat_msg += 'You need to wear panties to use a sanitary pad.'
  468. end
  469. $stat_msg += '</font>'
  470. elseif placebopart > 0 and LutH > 0:
  471. $stat_msg += '<BR><font color="red">Your period is due to start soon.'
  472. $stat_msg += '</font>'
  473. end
  474. if $cycreport_txt ! null: $stat_msg += '<BR><a href="exec:dynamic $d_cycreport_choice"><<$cycreport_txt>></a><br>'
  475. !!if shame > 0:$stat_msg += '<BR><<$shame>>' & $stat_msg += '<BR>'
  476. if $pcs_mood ! '':$stat_msg += '<BR><font color="green"><b><<$pcs_mood>></b></font>'
  477. if mentats_dose >= 1:$stat_msg += '<BR><font color = green>You feel sharp and focused.</font>'
  478. if bcream_used = 1:$stat_msg += '<BR><font color = #DB7093>Your breasts are feeling hot and tingly.</font>'
  479. if aphrodisiac_timer > 0:$stat_msg += '<BR><font color = #DB7093>You are feeling hot and every move causes your groin to tingle.</font>'
  480. if cheatNoEat = 0:
  481. if pcs_energy < 5:
  482. $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>'
  483. elseif pcs_energy < 10:
  484. $stat_msg += '<BR><font color="red">You are starving, you really need to have something to eat.</font>'
  485. elseif pcs_energy < 20:
  486. $stat_msg += '<BR>You are very hungry and struggle to concentrate on anything other than food.'
  487. elseif pcs_energy < 30:
  488. $stat_msg += '<BR>You feel peckish and your thoughts sometimes drift towards food.'
  489. end
  490. end
  491. if cheatNoDrink = 0:
  492. if pcs_hydra < 5:
  493. $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>'
  494. elseif pcs_hydra < 10:
  495. $stat_msg += '<BR><font color="red">You are dehydrated, you really need to have something to drink.</font>'
  496. elseif pcs_hydra < 20:
  497. $stat_msg += '<BR>You are thirsty and your dry throat is irritating and distracting you.'
  498. elseif pcs_hydra < 30:
  499. $stat_msg += '<BR>You feel a little thirsty and your mouth is a little dry.'
  500. end
  501. end
  502. if cheatNoSleep= 0:
  503. if pcs_sleep < 5:
  504. $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>'
  505. elseif pcs_sleep < 10:
  506. $stat_msg += '<BR><font color="red">You are exhausted, you really need to go to bed soon.</font>'
  507. elseif pcs_sleep < 20:
  508. $stat_msg += '<BR>You are tired and you are struggling to concentrate.'
  509. elseif pcs_sleep < 30:
  510. $stat_msg += '<BR>You feel a little tired.'
  511. end
  512. end
  513. 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>'
  514. if pcs_horny >= 50:
  515. if pcs_horny < 90 and $pantyworntype ! 'none':
  516. $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>'
  517. elseif pcs_horny < 90 and $pantyworntype = 'none':
  518. $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>'
  519. elseif $pantyworntype ! 'none':
  520. $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>'
  521. else
  522. $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>'
  523. end
  524. end
  525. if PillToggle = 1 and tabletki > 0:
  526. Stabletki += tabletki
  527. tabletki = 0
  528. elseif PillToggle = 0 and Stabletki > 0:
  529. tabletki += Stabletki
  530. Stabletki = 0
  531. end
  532. if CondomToggle = 1 and prezik > 0:
  533. Sprezik += prezik
  534. prezik = 0
  535. elseif CondomToggle = 0 and Sprezik > 0:
  536. prezik += Sprezik
  537. Sprezik = 0
  538. end
  539. if smoker >= 20:
  540. if smokerNeed > 0:
  541. if siga > 0:
  542. $stat_msg += '<BR><a href="exec:gs ''shortgs'',''smoker''"><font color="red"><b>You want to smoke. You have <<siga>> cigarettes left.</b></font></a><BR>'
  543. else
  544. $stat_msg += '<BR><a href="exec:gs ''shortgs'',''smoker''"><font color="red"><b>You want to smoke, but you have no cigarettes left.</b></font></a><BR>'
  545. end
  546. else
  547. if siga > 0:
  548. $stat_msg += '<BR><a href="exec:gs ''shortgs'',''smoker''"><font color=#0064FF><b>You have <<siga>> cigarettes left.</b></font></a><BR>'
  549. else
  550. $stat_msg += '<BR><font color=#0064FF><b>You feel like you should get some cigarettes.</b></font><BR>'
  551. end
  552. end
  553. elseif siga > 0:
  554. $stat_msg += '<BR><a href="exec:gs ''shortgs'',''smoker''"><font color=#0064FF><b>You have <<siga>> cigarettes.</b></font></a><BR>'
  555. end
  556. if smokeHour = hour and smokeday = day and smokeminut >= minut:$stat_msg += '<BR><font color="green">You are smoking a cigarette.</font><BR>'
  557. if cheatNoSweat = 0:
  558. if pcs_sweat < 0 : pcs_sweat = 0
  559. if pcs_sweat > 69 : pcs_sweat = 69
  560. jump 'statDswt<<pcs_sweat/10>>'
  561. :statDswt0
  562. if arrsize('sparrvol') = 0 : $stat_msg += '<BR><b><font color="green">You are sparkling clean.</font></b>'
  563. jump 'statDswtEnd'
  564. :statDswt1
  565. jump 'statDswtEnd'
  566. :statDswt2
  567. $stat_msg += '<BR><font color="brown">You''re sweating.</font><BR>'
  568. jump 'statDswtEnd'
  569. :statDswt3
  570. $stat_msg += '<BR><font color="red">You are a little smelly.</font><BR>'
  571. jump 'statDswtEnd'
  572. :statDswt4
  573. $stat_msg += '<BR><font color="red">You stink.</font><BR>'
  574. jump 'statDswtEnd'
  575. :statDswt5
  576. $stat_msg += '<BR><b><font color="red">You really stink.</font></b><BR>'
  577. jump 'statDswtEnd'
  578. :statDswt6
  579. $stat_msg += '<BR><b><font color="red">You are dripping wet from sweat and smell like a gym sock.</font></b><BR>'
  580. jump 'statDswtEnd'
  581. :statDswtEnd
  582. end
  583. if dirtyclothes = 1 and swamp_clothes = 0:
  584. if pcs_sweat > 40:
  585. $stat_msg +='<br><font color = red>You are <a href="exec:view''images/locations/gadukino/hunters/dirtyclothes1.jpg''">covered</a> from head to toe in the mud.</font><BR>'
  586. else
  587. $stat_msg +='<br><font color = red>Your <a href="exec:view''images/locations/gadukino/hunters/dirtyclothes2.jpg''">clothes</a> are dirty.</font><BR>'
  588. end
  589. end
  590. if lactate = 1 and night_mode = 0:
  591. if lactatemv >= lactatemm-1:
  592. if lact_engorgement > 3 and lact_engorgement <= 6:
  593. $stat_msg += '<BR><font color = red>Your breasts are so full they hurt and you can feel milk seeping out.</font><BR>'
  594. elseif lact_engorgement > 6:
  595. $stat_msg += '<BR><font color = red>Your breasts are so full they hurt and you can feel your milk spraying out.</font><BR>'
  596. else
  597. $stat_msg += '<BR><font color = orange>Your breasts are so full they hurt.</font><BR>'
  598. end
  599. if $clothingworntype = 'nude' and lactatemess > 0:
  600. if lactatemess < 3:
  601. $stat_msg += ''+iif(night_mode = 1,'<font color = white>','<font color = black>')+'You have a little milk residue around your nipples.</font>'
  602. elseif lactatemess < 7:
  603. $stat_msg += '<font color = orange>You have a lot of milk residue around your nipples.</font>'
  604. else
  605. $stat_msg += '<font color = red>Your breasts are drenched with milk residue.</font>'
  606. end
  607. elseif lactatemess > 0:
  608. if lactatemess < 3:
  609. $stat_msg += '<font color = orange>You have tiny wet spots on your clothes above your nipples.</font>'
  610. elseif lactatemess < 7:
  611. $stat_msg += '<font color = red>Milk has soaked through your clothes and made visible circles on your breasts.</font>'
  612. else
  613. $stat_msg += '<font color = red>Your shirt is drenched with milk from your breasts.</font>'
  614. end
  615. end
  616. elseif lactatemv > lactatemm*9/10:
  617. $stat_msg += '<BR>'+iif(night_mode = 1,'<font color = white>','<font color = black>')+'Your breasts are firm and full, and starting to hurt from all the milk they contain.</font><BR>'
  618. elseif lactatemv > lactatemm*3/4:
  619. $stat_msg += '<BR>'+iif(night_mode = 1,'<font color = white>','<font color = black>')+'Your breasts feel firm and heavy, full of milk.</font><BR>'
  620. elseif lactatemv > lactatemm/2:
  621. $stat_msg += '<BR>'+iif(night_mode = 1,'<font color = white>','<font color = black>')+'Your breasts are heavy, a cargo of milk inside.</font><BR>'
  622. elseif lactatemv > lactatemm/4:
  623. $stat_msg += '<BR>'+iif(night_mode = 1,'<font color = white>','<font color = black>')+'Your breasts feel a little heavy.</font><BR>'
  624. elseif lactatemv > 0:
  625. $stat_msg += '<BR>'+iif(night_mode = 1,'<font color = white>','<font color = black>')+'Your breasts tingle a little from the feeling of milk production.</font><BR>'
  626. else
  627. $stat_msg += '<BR>'+iif(night_mode = 1,'<font color = white>','<font color = black>')+'Your breasts feel soft and empty.</font><BR>'
  628. end
  629. end
  630. if Enable_clearcum > 0:
  631. gs 'cum_cleanup', 'reset'
  632. end
  633. if recuperation = 1:
  634. $stat_msg += '<b><font color="red">You are still recovering from major surgery.</font></b>'
  635. end
  636. $clear_write = {
  637. body_write = 0
  638. face_write = 0
  639. minut += 10
  640. gs '$menu_obnovit'
  641. 'It takes you 10 minutes to thoroughly wash the obscene "painting" from your body.'
  642. }
  643. if body_write > 0 or face_write > 0:
  644. if body_write > 1 and face_write = 0:
  645. $stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your body is inscribed with derogatory graffiti.</font></b></a>'
  646. elseif body_write = 1 and face_write = 0:
  647. $stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your body is an obscene sign.</font></b></a>'
  648. elseif body_write = 0 and face_write > 1:
  649. $stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your face is covered with writing obscene epithets.</font></b></a>'
  650. elseif body_write = 0 and face_write = 1:
  651. $stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>On your face humiliating label.</font></b></a>'
  652. else
  653. $stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your body and face painted with obscene graffiti.</font></b></a>'
  654. end
  655. end
  656. killvar 'cumvolume'
  657. killvar 'i'
  658. killvar 'knownguy'
  659. killvar 'cumcount'
  660. killvar 'cumowner'
  661. if arrsize('sparrvol') > 0:
  662. !!go through every location
  663. :locationloop
  664. !!start from the freshest load
  665. idx = arrsize('sparrloc')-1
  666. :spermitemloop
  667. !!if the currently examined load loaction is the location of the current cycle, execute
  668. if sparrloc[idx] = i:
  669. !!setting the age of the current load
  670. !! 0: mouth
  671. !! 1: in this hour
  672. !! 2: in four hours
  673. !! 3: at least five hours ago
  674. !! 4: in body (pussy or ass)
  675. !! 5: no more than 12 hours in condom
  676. !! 6: no more than 48 hours in condom
  677. !! 7: more than two days old, in condom
  678. if i = 12:
  679. j = 0
  680. elseif i = 17:
  681. if sparrage[idx] <= 12:
  682. j = 5
  683. elseif sparrage[idx] <= 48:
  684. j = 6
  685. else
  686. j = 7
  687. end
  688. elseif i = 0 or i = 3:
  689. j = 4
  690. else
  691. if sparrage[idx] <= 1:
  692. j = 1
  693. elseif sparrage[idx] <= 5:
  694. j = 2
  695. else
  696. j = 3
  697. end
  698. end
  699. cumvolume['<<i>>:<<j>>'] += sparrvol[idx]
  700. if sparrvol[idx] > 0:
  701. if sparridt[idx] = 0:
  702. !!unknown partner
  703. cumcount['<<i>>:<<j>>'] += 1
  704. elseif sparridt[idx] = 1:
  705. !!known partner
  706. !!storing the name of the cum owner (format: $cumowner[<cum location>:<age of cum>:<index of cum owner>])
  707. if knownguy['<<i>>:<<j>>'] > 0:
  708. gchk = 0
  709. :sameguycheck
  710. if $cumowner['<<i>>:<<j>>:<<gchk>>'] ! $sparrnam[idx] and gchk <= knownguy['<<i>>:<<j>>']:gchk += 1 & jump 'sameguycheck'
  711. if gchk > knownguy['<<i>>:<<j>>']:
  712. $cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
  713. knownguy['<<i>>:<<j>>'] += 1
  714. cumcount['<<i>>:<<j>>'] += 1
  715. end
  716. else
  717. $cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
  718. knownguy['<<i>>:<<j>>'] += 1
  719. cumcount['<<i>>:<<j>>'] += 1
  720. end
  721. end
  722. end
  723. end
  724. if idx > 0:idx -= 1 & jump 'spermitemloop'
  725. if i < 18:i += 1 & jump 'locationloop'
  726. killvar 'i'
  727. killvar 'idx'
  728. killvar 'j'
  729. end
  730. !!Clearing cum location array before positive entries are applied below
  731. killvar 'cumloc'
  732. i = 0
  733. :cumlocloop
  734. if i = 0:
  735. $txtloc = 'your <a href="exec:view''images/pc/body/cum/creampie/cumpussy'+rand(1,14)+'.jpg''">pussy</a>'
  736. elseif i = 1:
  737. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumpussy/cumpus'+rand(1,4)+'.jpg''">labia</a>'
  738. elseif i = 2:
  739. $txtloc = 'the front of your panties'
  740. elseif i = 3:
  741. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumanal/cumanal'+rand(1,11)+'.jpg''">ass</a>'
  742. elseif i = 4:
  743. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumass/cumass'+rand(1,6)+'.jpg''">butt</a>'
  744. elseif i = 5:
  745. $txtloc = 'the back of your panties'
  746. elseif i = 6:
  747. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/'+rand(1,3)+'.jpg''">clothes near your groin</a>'
  748. elseif i = 7:
  749. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/cumclothes'+rand(1,21)+'.jpg''">clothes</a>'
  750. elseif i = 8:
  751. $txtloc = 'your back'
  752. elseif i = 9:
  753. $txtloc = 'your legs'
  754. elseif i = 10:
  755. $txtloc = 'your arms'
  756. elseif i = 11:
  757. if pcs_haircol = 0:
  758. $cum_face_image = 'brown/'
  759. $cum_face_image += rand(1, 31)
  760. elseif pcs_haircol = 1:
  761. $cum_face_image = 'black/'
  762. $cum_face_image += rand(1, 23)
  763. elseif pcs_haircol = 2:
  764. $cum_face_image = 'red/'
  765. $cum_face_image += rand(1, 19)
  766. elseif pcs_haircol = 3:
  767. $cum_face_image = 'blonde/'
  768. $cum_face_image += rand(1, 25)
  769. elseif pcs_haircol > 3:
  770. $cum_face_image = 'custom/'
  771. $cum_face_image += rand(1, 20)
  772. end
  773. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumface/<<$cum_face_image>>.jpg''">face</a>'
  774. killvar 'cum_face_image'
  775. elseif i = 13:
  776. $txtloc = 'your hands'
  777. elseif i = 14:
  778. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumbelly/cumbelly'+rand(1,12)+'.jpg''">stomach</a>'
  779. elseif i = 15:
  780. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumtits/cumtits'+rand(1,19)+'.jpg''">breasts</a>'
  781. elseif i = 16:
  782. $txtloc = 'your hair</a>'
  783. elseif i = 17:
  784. $txtloc = 'in your vagina in a slipped condom'
  785. else
  786. $txtloc = 'the gusset of your panties</a>'
  787. end
  788. j = 0
  789. :ageloop
  790. if cumvolume['<<i>>:<<j>>'] > 0:
  791. !!Cum locations set for checking npc reactions
  792. cumloc[i] = 1
  793. !!amount setting
  794. if cumvolume['<<i>>:<<j>>'] > 250:
  795. !! 25 ml, about four-five load, gushing
  796. $txtamount = 'Enormous '
  797. elseif cumvolume['<<i>>:<<j>>'] > 100:
  798. !! 10 ml, about two load, flowing
  799. $txtamount = 'Huge '
  800. elseif cumvolume['<<i>>:<<j>>'] >= 20:
  801. !! 2 ml, seeping out
  802. $txtamount = 'Decent '
  803. else
  804. !! residue amount, no leakage
  805. $txtamount = 'Small '
  806. end
  807. !! if sperm age stage is 4, it means inside the body
  808. if j = 4:
  809. if (vibratorIN = 1 and i = 0) or (analplugin = 1 and i = 3):
  810. $txtproxy = 'being plugged in '
  811. elseif i = 0 and cumvolume['<<i>>:<<j>>'] < pcs_vag*5:
  812. $txtproxy = 'staying inside of '
  813. elseif i = 3 and pcs_ass <= 25:
  814. $txtproxy = 'staying inside of '
  815. else
  816. if cumvolume['<<i>>:<<j>>'] > 250:
  817. $txtproxy = 'gushing out of '
  818. elseif cumvolume['<<i>>:<<j>>'] > 100:
  819. $txtproxy = 'flowing out of '
  820. elseif cumvolume['<<i>>:<<j>>'] >= 40:
  821. $txtproxy = 'seeping out of '
  822. else
  823. $txtproxy = 'staying inside of '
  824. end
  825. end
  826. elseif j >= 5:
  827. !! if sperm age stage is over 4, meaning in condom
  828. if j = 5:
  829. $txtproxy = 'buried '
  830. elseif j = 6:
  831. $txtproxy = 'marinating '
  832. else
  833. $txtproxy = 'rotting '
  834. end
  835. if cumcondslip_deep > (vagina / 2): $txtproxy += 'deep '
  836. elseif j < 4 and j > 0:
  837. !!amount setting
  838. if cumvolume['<<i>>:<<j>>'] > 160:
  839. !! 10 ml, about two load, flowing
  840. $txtproxy = 'coating '
  841. elseif cumvolume['<<i>>:<<j>>'] > 40:
  842. !! 2 ml, seeping out
  843. $txtproxy = 'covering '
  844. else
  845. !! residue amount, no leakage
  846. $txtproxy = 'spattering '
  847. end
  848. if j = 1:
  849. $txtproxy += 'wetly '
  850. elseif j = 2:
  851. $txtproxy += 'dryly '
  852. else
  853. $txtproxy += 'powderly '
  854. end
  855. end
  856. $txtperson = ''
  857. if cumcount['<<i>>:<<j>>'] = 0:
  858. $txtiscum = 'some whitish substance '
  859. else
  860. $txtiscum = 'cum'
  861. if cumcount['<<i>>:<<j>>'] = knownguy['<<i>>:<<j>>']:
  862. !! everyone is known (one or more)
  863. if knownguy['<<i>>:<<j>>'] = 1:
  864. $txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' '
  865. else
  866. kmax = 0
  867. :nullocator1
  868. if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator1'
  869. kmax -= 1
  870. k = 0
  871. :knownloop
  872. $txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']]
  873. if k < kmax-1:$txtperson += ', ' & k += 1 & jump 'knownloop'
  874. k += 1
  875. $txtperson += ' and ' + $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ' '
  876. end
  877. elseif knownguy['<<i>>:<<j>>'] = 0:
  878. !! no one is known (one or more)
  879. if cumcount['<<i>>:<<j>>'] = 1:
  880. $txtperson += 'some guy '
  881. else
  882. $txtperson += 'some guys '
  883. end
  884. else
  885. !! there are known and unknown guys in the mix
  886. if knownguy['<<i>>:<<j>>'] = 1:
  887. $txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' and some guy'
  888. else
  889. kmax = 0
  890. :nullocator2
  891. if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator2'
  892. kmax -= 1
  893. k = 0
  894. :mixloop
  895. $txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ', '
  896. if k < kmax: k += 1 & jump 'mixloop'
  897. $txtperson += 'and some guy'
  898. end
  899. if cumcount['<<i>>:<<j>>'] - knownguy['<<i>>:<<j>>'] > 1:
  900. $txtperson += 's '
  901. else
  902. $txtperson += ' '
  903. end
  904. end
  905. end
  906. 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>'
  907. $txtiscum += ' from '
  908. if i = 0 and j = 4 and vibratorIN = 0 and pcs_vag*10 < cumvolume['<<i>>:<<j>>'] and cumvolume['<<i>>:<<j>>'] >= 20:
  909. if $pantyworntype ! 'none':
  910. $stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + ' into your panties.</font></b>'
  911. else
  912. $stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + ' down your legs.</font></b>'
  913. end
  914. elseif sparragestage >= 5:
  915. if cumcondslip_aware > 0:$stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
  916. elseif j ! 0:
  917. $stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
  918. else
  919. $stat_msg += '<BR><b><font color="red">Your breath smells like sperm.</font></b>'
  920. end
  921. end
  922. if j < 7: j+=1 & jump 'ageloop'
  923. if i < 18: i+=1 & jump 'cumlocloop'
  924. killvar 'i'
  925. killvar 'j'
  926. killvar 'txtperson'
  927. killvar 'k'
  928. killvar 'kmax'
  929. killvar 'txtamount'
  930. killvar 'txtiscum'
  931. killvar 'txtperson'
  932. killvar 'txtproxy'
  933. killvar 'txtloc'
  934. killvar 'cumvolume'
  935. killvar 'cumcount'
  936. killvar 'knownguy'
  937. killvar 'cumowner'
  938. if Gerpes >= 10 and GenHerpes = 1:
  939. $stat_msg += '<BR><b><font color="red">On your pussy sores have appeared. This is genital herpes.</font></b>'
  940. elseif Gerpes >= 5 and GenHerpes =1:
  941. $stat_msg += '<BR><b><font color="red">Your pussy is flushed and highly itchy. This is genital herpes.</font></b>'
  942. elseif Gerpes >= 3 and Orerpes = 1:
  943. $stat_msg += '<BR><b><font color="red">You have cold Sores on your lips. these are signs of genital herpes.</font></b>'
  944. end
  945. if Gerpes >= 20 and GenHerpes =1:$stat_msg += '<BR> <b><font color="red">The sores also cover your ass.</font></b>'
  946. if Sifilis >= 50:
  947. $stat_msg += '<BR><b><font color="red">Syphilitic rashes cover your whole body.</font></b>'
  948. elseif Sifilis >= 21:
  949. $stat_msg += '<BR><b><font color="red">You have a single big, hard sore on the lip.</font></b>'
  950. end
  951. if Triper > 2:$stat_msg += '<BR><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>'
  952. if Kandidoz > 30:$stat_msg += '<BR><b><font color="red">You have thrush.</font></b>'
  953. if SLomka > 0:$stat_msg += '<BR><b><font color="red">You are very weak and hurt to the bone. You''re in withdrawal.</font></b>'
  954. if narkday ! daystart and narkoman = 1:$stat_msg += '<BR><b><font color="red">You are very weak and hurt to the bone. Urgently need pale lady.</font></b>'
  955. if fingal > 0:$stat_msg += '<BR><b><font color="red">You have a black eye.</font></b>'
  956. ! WD: Bimbo look
  957. if bimbolevel > 0: $stat_msg += '<BR><<$bimbostatus>>'
  958. if $clothingworntype = 'nude':
  959. if $pantyworntype ! 'none':
  960. if $braworntype = 'none':
  961. $stat_msg += '<BR><b><font color = red>You are only wearing your panties and your boobs sway invitingly as you walk.</font></b>'
  962. else
  963. $stat_msg += '<BR><b><font color = red>You are only wearing your underwear.</font></b>'
  964. end
  965. else
  966. if $braworntype ! 'none':
  967. $stat_msg += '<BR><b><font color = red>You are only wearing your bra, leaving your pussy and ass completely exposed.</font></b>'
  968. else
  969. if pcs_inhib < 5:
  970. $stat_msg += '<BR><b><font color = red>You are completely naked, and it makes you feel nervous and ashamed.</font></b>'
  971. elseif pcs_inhib < 20:
  972. $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>'
  973. elseif pcs_inhib >= 90:
  974. $stat_msg += '<BR><b><font color=#0064FF>You are completely naked, which is far better than having to wear clothes.</font></b>'
  975. else
  976. $stat_msg += '<BR><b><font color = #FF00FF>You are completely naked. It''s exciting and you feel tingly inside.</font></b>'
  977. end
  978. end
  979. end
  980. elseif $pantyworntype = 'none' and $clothingworntype ! 'swimwear':
  981. if CloStyle = 4:
  982. $stat_msg += '<BR><b><font color="red">you are not wearing panties, but you are dressed as a hooker, so that''s hardly surprising.</font></b>'
  983. elseif PCloBimbo = 1 or bimbolevel > 0 and PCloSkirt > 3:
  984. $stat_msg += '<BR><b><font color = #FF00FF>You like, totally forgot to put on any panties. You are such a bimbo.</font></b>'
  985. elseif PCloSkirt > 3:
  986. if pcs_inhib > 50:
  987. $stat_msg += '<BR><b><font color=#0064FF>You feel liberated not wearing panties as your naked ass flashes from under your short skirt.</font></b>'
  988. else
  989. $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>'
  990. end
  991. elseif $clothingworntype ! 'nude':
  992. $stat_msg += '<BR><b><font color="red">You are not wearing panties.</font></b>'
  993. elseif towel = 1:
  994. $stat_msg += '<BR><b><font color = red>Your naked body is covered only by a short towel.</font></b>'
  995. end
  996. elseif PCloBimbo = 1:
  997. $stat_msg += '<BR><b><font color = #FF00FF>You are dressed as a bimbo</font></b>'
  998. end
  999. !$stat_msg += '<BR>'
  1000. if mosol >= 50:
  1001. $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>'
  1002. elseif mosol >= 30:
  1003. $stat_msg += '<BR><b><font color="red">Your pussy feels a little itchy, it seems to be from rubbing against your clothing.</font></b>'
  1004. end
  1005. if analplugIN = 1:$stat_msg += '<BR><b><font color="red">You have a butt plug inserted in your ass.</font></b>'
  1006. if vibratorin = 1:$stat_msg += '<BR><b><font color="red">You have a vibrator inserted in your vagina.</font></b>'
  1007. !$stat_msg += '<BR>'
  1008. if young_shop_work = 1:
  1009. if hour = 16 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
  1010. 'You are late for work at Pussy-Cats.'
  1011. elseif hour = 16 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
  1012. misscheck = daystart
  1013. young_shop_miss += 1
  1014. $stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
  1015. elseif (hour = 14 or hour = 15) and week < 6:
  1016. $stat_msg += '<BR><b><font color="red">You start work at Pussy-Cats today at 16:00.</font></b>'
  1017. end
  1018. end
  1019. if young_shop_work1 = 1:
  1020. if hour = 9 and minut <= 5 and week >= 6 and inWorkYoungShop = 0:
  1021. 'You are late for work at Pussy-Cats.'
  1022. elseif hour = 9 and week >= 6 and inWorkYoungShop = 0 and misscheck ! daystart:
  1023. misscheck = daystart
  1024. young_shop_miss += 1
  1025. $stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
  1026. elseif (hour = 7 or hour = 8) and week >= 6:
  1027. $stat_msg += '<BR><b><font color="red">By 9:00 you have to be at Pussy-Cats to start work.</font></b>'
  1028. end
  1029. end
  1030. if young_shop_work2 = 1:
  1031. if hour = 9 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
  1032. 'You are late for work at Pussy-Cats.'
  1033. elseif hour = 9 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
  1034. misscheck = daystart
  1035. young_shop_miss += 1
  1036. $stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
  1037. elseif (hour = 7 or hour = 8) and week < 6:
  1038. $stat_msg += '<BR><b><font color="red">By 9:00 you have to be at Pussy-Cats to start work.</font></b>'
  1039. end
  1040. end
  1041. if workrin = 1:
  1042. if week = 2 or week = 4 or week = 6:
  1043. if hour = 7:$stat_msg += '<BR><b><font color="red">At 8 o''clock you start work on the market.</font></b>'
  1044. if hour = 8:$stat_msg += '<BR><b><font color="red">You need to work on the market now.</font></b>'
  1045. end
  1046. end
  1047. if frost > 0:
  1048. if frost <= 5:
  1049. $stat_msg += '<BR><b><font>You are a little chilly.</font></b>'
  1050. elseif frost < 11:
  1051. $stat_msg += '<BR><b><font color="red">You are cold.</font></b>'
  1052. else
  1053. $stat_msg += '<BR><b><font color="red">You are freezing.</font></b>'
  1054. end
  1055. end
  1056. if sick > 0:
  1057. if sick = 1:
  1058. $stat_msg += '<BR><b><font color="red">This is not good, a tickle in the throat and a little runny nose.</font></b>'
  1059. elseif sick < 24:
  1060. $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>'
  1061. elseif sick < 48:
  1062. $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>'
  1063. elseif sick < 72:
  1064. $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>'
  1065. else
  1066. $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>'
  1067. end
  1068. end
  1069. if hypnoAddict > 0:
  1070. if hypnoWithdrawal = 1:
  1071. if missCum >= timeTresh:
  1072. $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>'
  1073. else
  1074. $stat_msg += '<BR><b><font color="red">You feel like talking to your therapist. You miss your sessions.</font></b>'
  1075. end
  1076. elseif hypnoWithdrawal = 2:
  1077. if missCum >= timeTresh:
  1078. $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>'
  1079. else
  1080. $stat_msg += '<BR><b><font color="red">You need to talk to your therapist. You feel unbalanced without your sessions.</font></b>'
  1081. end
  1082. else
  1083. 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>'
  1084. end
  1085. end
  1086. if $mudnerd ! '':$stat_msg += '<BR><<$mudnerd>>'
  1087. if home_owned[1] > 0:
  1088. $streetev_home = 'your apartment'
  1089. elseif tanwork = 1:
  1090. $streetev_home = 'Tanya''s apartment'
  1091. elseif student > 0:
  1092. $streetev_home = 'your dorm'
  1093. elseif home_owned[2] = 1:
  1094. $streetev_home = 'outside your apartment block'
  1095. else
  1096. $streetev_home = 'the train station'
  1097. end
  1098. 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.'
  1099. 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>'
  1100. if meetday[0] < daystart and svidanie[0] = 1:pcs_lovers_rel[0] -= 10 & svidanie[0] = 0
  1101. 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.'
  1102. 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>'
  1103. if meetday[1] < daystart and svidanie[1] = 1:pcs_lovers_rel[1] -= 10 & svidanie[1] = 0
  1104. 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.'
  1105. 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>'
  1106. if meetday[2] < daystart and svidanie[2] = 1:pcs_lovers_rel[2] -= 10 & svidanie[2] = 0
  1107. if StrongNarkota > 20:$stat_msg += '<BR><b><font color="red">You are stoned.</font></b>'
  1108. if amphHigh > 0: $stat_msg += '<BR><b><font color="red">You feel a little wired.</font></b>'
  1109. if alko > 2:
  1110. if alko < 6:
  1111. slut_bonus = 0
  1112. $stat_msg += '<BR><b><font color="red">You feel a little buzz from drinking.</font></b>'
  1113. elseif alko < 9:
  1114. slut_bonus = 25
  1115. $stat_msg += '<BR><b><font color="red">You''re drunk.</font></b>'
  1116. else
  1117. slut_bonus = 50
  1118. $stat_msg += '<BR><b><font color="red">You''re wasted.</font></b>'
  1119. end
  1120. else
  1121. killvar 'slut_bonus'
  1122. end
  1123. if StoryLine = 1:
  1124. 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.'
  1125. 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.'
  1126. 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.'
  1127. if week = 6 and hour < 9 and detention_set = 1:$stat_msg += '<BR><b>You have a detention this morning and must be at school between 8 and 9.</b>'
  1128. 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>'
  1129. 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>'
  1130. end
  1131. if model > 0 and model_week = (daystart - week) / 7 and model_job_week >= 2:
  1132. $stat_msg += '<BR><b>You have no more modelling jobs available this week.</b>'
  1133. elseif model > 0 and model_week < (daystart - week) / 7 and model_job_week = 1:
  1134. $stat_msg += '<BR><b>You can get paid for 1 more modelling job this week.</b>'
  1135. elseif model > 0 and model_week < (daystart - week) / 7 and model_job_week < 1:
  1136. $stat_msg += '<BR><b>You can get paid for 2 modelling jobs this week.</b>'
  1137. end
  1138. if pornstack > 0:
  1139. aa = 0
  1140. :pfilmtime
  1141. if aa < 200 and pfilmday[aa] = 0: aa += 1 & jump 'pfilmtime'
  1142. end
  1143. if pornstack > 0 and pfilmday[0] = 0:
  1144. if pfilmday[1] = 0:
  1145. $stat_msg += '<br><b>You will star in another porno in <<aa>> days.</b>'
  1146. else
  1147. $stat_msg += '<br><b>You have a porno shoot scheduled tomorrow.</b>'
  1148. end
  1149. end
  1150. if pfilmday[0] > 0:
  1151. if pornnow = 1:
  1152. $stat_msg += '<br><b>You are at a porn shooting.</b>'
  1153. else
  1154. if hour < 11: $stat_msg += '<br><b>You are expected in the porno studio at 10:00.</b>'
  1155. if hour >= 11 and hour < 13: $stat_msg += '<br><b>You should be at the porno studio, shooting!</b>'
  1156. if hour >= 13: $stat_msg += '<br><b>You missed a scheduled porno shoot!</b>'
  1157. end
  1158. end
  1159. if pornmiss = 1: $stat_msg += '<br><b>You missed a scheduled porno shoot!</b>'
  1160. if prodcosttrue > 0: $stat_msg += '<br><b>You owe to the porn studio <<prodcost>>?</b>'
  1161. if firstkasting > 0 and pfilmNO < 1: $stat_msg += '<br><b>You can contract '+iif(pornstack < 9,'up to <<10-pornstack>> porn shoots','<<10-pornstack>> porn shoot')+' at the Porn Studio.</b>'
  1162. 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>'
  1163. 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>'
  1164. 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>'
  1165. 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>'
  1166. 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>'
  1167. 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 Pavlovsk clinic. Your shift starts at 8:00.</font></b>'
  1168. 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>'
  1169. 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>'
  1170. gs 'brother', 'brotherSexCount'
  1171. !!zero checks marriage
  1172. proverka1 = 0
  1173. proverka2 = 0
  1174. proverka3 = 0
  1175. proverka4 = 0
  1176. proverka5 = 0
  1177. if boletus + bilberry > 0:
  1178. if boletus + bilberry >= 10:
  1179. $stat_msg +='<br><b><font color = Olive>You have a full basket. </b></font> '
  1180. else
  1181. $stat_msg +='<br><b><font color = Olive>In Your basket: </b></font>'
  1182. end
  1183. if boletus > 0:$stat_msg +='Mushrooms: <b><<boletus>></b> kg. '
  1184. if bilberry > 0:$stat_msg +='Berries: <b><<bilberry>></b> kg. '
  1185. end
  1186. if disable_LoadSave = 0:
  1187. $stat_msg += '<br><br><center><a href="exec:savegame ''quicksave.sav'' && pl''Quicksave Done''"><img height = 35 src="images/system/icon/stat_Qsave.png"></a> <a href="exec:savegame"><img height = 35 src="images/system/icon/stat_save.png"></a> <a href="exec:opengame"><img height = 35 src="images/system/icon/stat_load.png"></a> <a href="exec:if input(''Input Anything to confirm Quick Load'') ! null: opengame ''quicksave.sav''"><img height = 35 src="images/system/icon/stat_Qload.png"></a></center>'
  1188. elseif disable_LoadSave = 2:
  1189. $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>'
  1190. end
  1191. $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>'
  1192. if Enable_statimg_loc = 2:
  1193. $stat_msg += '<br><<$stat_imgtool_msg>><br><<$stat_imgextra_msg>>'
  1194. end
  1195. killvar 'stat_imgtool_msg'
  1196. killvar 'stat_imgextra_msg'
  1197. if Enable_statfsize > 0: $stat_msg += '</font>' & !disable this, all texts comes from pl will have the same font size, like[time]
  1198. if Enable_faceturn = 1: view FUNC('$face_image')
  1199. if Enable_Android = 0:
  1200. pl '<<$stat_msg>>'
  1201. else
  1202. '<<$stat_android>>'
  1203. $stat_msg = 'Android mode, <a href="exec:gs ''$menu_obnovit''">Refresh</a><<$stat_msg>>'
  1204. end
  1205. --- stat_display ---------------------------------