1
0

stat_display.qsrc 115 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228
  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. !!Pain calculation
  12. paintmp1 = func('shortgs','modul',pain['head'],pain['hair'],pain['ears'],pain['eyebrows'],pain['eyes'],pain['cheeks'],pain['nose'],pain['mouth'])
  13. paintmp2 = func('shortgs','modul',pain['tummy'],pain['pubic'],pain['vaginal'],pain['labia'],pain['clitoris'],pain['urethra'],pain['cervix'],pain['lips'])
  14. paintmp3 = func('shortgs','modul',pain['throat'],pain['asscheeks'],pain['asshole'],pain['hips'],pain['thighs'],pain['legL'],pain['legR'],pain['feet'])
  15. paintmp4 = func('shortgs','modul',pain['toes'],pain['shoulders'],pain['armL'],pain['armR'],pain['hands'],pain['fingers'],pain['chest'],pain['breasts'])
  16. paintmp5 = func('shortgs','modul',pain['tongue'],pain['neck'],pain['back'],pain['nipples'],pain['ribs'],vgape * 8, agape * 10,spanked * 24)
  17. pain['total'] = func('shortgs','modul',paintmp1,paintmp2,paintmp3,paintmp4,paintmp5)
  18. if pain['total'] > 100: pain['total'] = 100
  19. pain['damage'] = pain['total']
  20. pain['relief'] = 0
  21. if alko > 9:
  22. pain['relief'] = 70
  23. elseif alko > 6:
  24. pain['relief'] = 40
  25. elseif alko > 3:
  26. pain['relief'] = 15
  27. end
  28. if StrongNarkota > 0:
  29. pain['relief'] = 90
  30. elseif nark > 0:
  31. pain['relief'] = 60
  32. elseif pain['killer'] > 12 and alko <= 9:
  33. pain['relief'] = 50
  34. end
  35. if pain['relief'] ! 0:
  36. if (pain['total'] / pain['relief']) > 0:
  37. pain['total'] = pain['total'] / pain['relief']
  38. elseif pain['total'] > 0:
  39. pain['total'] = 0
  40. end
  41. end
  42. if pain['total'] > 80:
  43. if (pcs_health * 5) >= healthmax: pcs_health = pcs_health * 20 / 100
  44. if (pcs_mood * 5) >= 100: pcs_mood = pcs_mood * 20 / 100
  45. elseif pain['total'] > 60:
  46. if (pcs_health * 5 / 2) >= healthmax: pcs_health = pcs_health * 40 / 100
  47. if (pcs_mood * 5 / 2) >= 100: pcs_mood = pcs_mood * 40 / 100
  48. elseif pain['total'] > 40:
  49. if (pcs_health * 5 / 3) >= healthmax: pcs_health = pcs_health * 60 / 100
  50. if (pcs_mood * 5 / 3) >= 100: pcs_mood = pcs_mood * 60 / 100
  51. elseif pain['total'] > 20:
  52. if (pcs_health * 5 / 4) >= healthmax: pcs_health = pcs_health * 80 / 100
  53. if (pcs_mood * 5 / 4) >= 100: pcs_mood = pcs_mood * 80 / 100
  54. elseif pain['total'] > 0:
  55. if (pcs_health * 10 / 9) >= healthmax: pcs_health = pcs_health * 90 / 100
  56. if (pcs_mood * 10 / 9) >= 100: pcs_mood = pcs_mood * 90 / 100
  57. end
  58. !!--------------------------pain calculation end--------------------------------
  59. !!update skills and attributes to pcs_ from there _lvl values plus adjustments based on condition
  60. gs 'stat_sklattrib_lvlset'
  61. !!Sleep variable cap
  62. if pcs_sleep > 100: pcs_sleep = 100
  63. !!Beginning Description
  64. !!----------------image Extra messages, start--------------------------
  65. $stat_imgtool_msg=''
  66. $stat_imgextra_msg=''
  67. if Enable_showstatimg = 1:
  68. !There are 3 display mode, with toobar / top / bottom, controlled by Enable_statimg_loc
  69. if Enable_statimg_face = 0:
  70. $stat_imgtool_msg += '<a href="exec:Enable_statimg_face = 1 & gs ''$menu_obnovit''">◇Face</a>'
  71. else
  72. $stat_imgtool_msg += '<a href="exec:Enable_statimg_face = 0 & gs ''$menu_obnovit''">◆Face</a>'
  73. $img_temp = FUNC('$face_image')
  74. if $img_temp ! null: $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
  75. end
  76. if Enable_statimg_body = 0:
  77. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_body = 1 & gs ''$menu_obnovit''">◇Body</a>'
  78. else
  79. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_body = 0 & gs ''$menu_obnovit''">◆Body</a>'
  80. $img_temp = FUNC('$body_image','body')
  81. if $img_temp ! null: $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
  82. end
  83. if Enable_statimg_coat = 0:
  84. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_coat = 1 & gs ''$menu_obnovit''">◇Coat</a>'
  85. else
  86. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_coat = 0 & gs ''$menu_obnovit''">◆Coat</a>'
  87. $img_temp = FUNC('$body_image','coat')
  88. if $img_temp ! null: $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
  89. end
  90. if Enable_statimg_cloth = 0:
  91. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_cloth = 1 & gs ''$menu_obnovit''">◇Clothes</a>'
  92. else
  93. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_cloth = 0 & gs ''$menu_obnovit''">◆Clothes</a>'
  94. $img_temp = FUNC('$body_image','clothes')
  95. if $img_temp ! null: $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
  96. end
  97. if Enable_statimg_bra = 0:
  98. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_bra = 1 & gs ''$menu_obnovit''">◇Bra</a>'
  99. else
  100. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_bra = 0 & gs ''$menu_obnovit''">◆Bra</a>'
  101. $img_temp = FUNC('$body_image','bra')
  102. if $img_temp ! null: $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
  103. end
  104. if Enable_statimg_panties = 0:
  105. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_panties = 1 & gs ''$menu_obnovit''">◇Panties</a>'
  106. else
  107. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_panties = 0 & gs ''$menu_obnovit''">◆Panties</a>'
  108. $img_temp = FUNC('$body_image','panties')
  109. if $img_temp ! null: $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
  110. end
  111. if Enable_statimg_shoes = 0:
  112. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_shoes = 1 & gs ''$menu_obnovit''">◇Shoes</a>'
  113. else
  114. $stat_imgtool_msg += ' <a href="exec:Enable_statimg_shoes = 0 & gs ''$menu_obnovit''">◆Shoes</a>'
  115. $img_temp = FUNC('$body_image','shoes')
  116. if $img_temp ! null: $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
  117. end
  118. if $menu_loc ! '': $stat_imgtool_msg += ' <a href="exec:gs ''Cheatmenu_din'' & dynamic $cheatmenu[''setting'']">◎Settings</a>'
  119. end
  120. !!----------------image Extra messages, end --------------------------
  121. if Enable_statimg_loc = 1: $stat_msg = '<<$stat_imgtool_msg>><br><<$stat_imgextra_msg>><br><<$stat_msg>>'
  122. $stat_android = '<b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>'
  123. $stat_msg += '<table><tr><td><a href="exec:msg ''<<$weather>>''"><<$weatherImage>></a></td><td><<$temperature>></td></tr></table>'
  124. if Enable_statfsize>0: $stat_msg = '<font size=<<Enable_statfsize>>><<$stat_msg>>'
  125. $stat_disable_msg = 'Menu is disabled for this event.'
  126. !$stat_msg += '<<$weather>><BR>'
  127. !pl '<<$weatherImage>>'
  128. if timeHidden = 0: $stat_msg += '<BR><<$stat_android>> <<$week[week]>> <<day>> <<$month>> <<year>>'
  129. $stat_android += '<<$week[week]>> <<day>>/<<month>>, <<money>> ₽, <a href="exec:clr & pl $stat_android">Status</a>'
  130. ! $stat_android for short desc in android mode, $stat_msg for status bar.
  131. if StoryLine > 0 and SchoolAtestat ! 1 and $holyday ! '': $stat_msg += '<BR><<$holyday>>' & $stat_msg += '<BR>'
  132. if birthday = day and birthmonth = month: $stat_msg += '<BR><b>Today is your birthday.</b>' & $stat_msg += '<BR>'
  133. !New icon based menu.
  134. if MagikDostup = 0:
  135. $journal_tooltip = 'Spellbook & Journal'
  136. $journalIcon = 'journal_magic.png'
  137. else
  138. $journal_tooltip = 'Journal'
  139. $journalIcon = 'journal_norm.png'
  140. end
  141. if menu_off = 0:
  142. $menuBarTab = '<table><tr>'
  143. $menuBarTab += '<td><a href="exec:killvar ''menu_page'' & gs ''obj_din'', ''description''"><img title="Character description" src="images/system/menu icons/icon_character.png"></a></td>'
  144. $menuBarTab += '<td><a href="exec:killvar ''menu_page'' & gs ''obj_din'', ''face''"><img title="Looks (Face, body, clothing,...)"src="images/system/menu icons/icon_lookself.png"></a></td>'
  145. if bag > 0: $menuBarTab += '<td><a href="exec:gs ''din_bad'', ''d_bag''"><img title="Your purse"src="images/system/menu icons/icon_purse.png"></a></td>'
  146. $menuBarTab += '<td><a href="exec:gs ''telefon'',''Phone_menu''"><img title="Your phone" src="images/system/menu icons/icon_phone.png"></a></td>'
  147. $menuBarTab += '<td><a href="exec:gs ''obj_din'', ''records''"><img title="<<$journal_tooltip>>" src="images/system/menu icons/<<$journalIcon>>"></a></td>'
  148. $menuBarTab += '<td><a href="exec:killvar ''menu_page'' & gs''$menu_setting''"><img title="Menu & Cheatmenu" src="images/system/menu icons/icon_menu.png"></a></td>'
  149. $menuBarTab += '</tr></table>'
  150. $stat_msg += func('cleanHTML',$menuBarTab)
  151. killvar '$menuBarTab'
  152. elseif menu_off = 1:
  153. $menuBarTab = '<table><tr>'
  154. $menuBarTab += '<td><a href="exec:killvar ''menu_page'' & gs ''obj_din'', ''menu_disabled''"><img title="<<$stat_disable_msg>>" src="images/system/menu icons/icon_character.png"></a></td>'
  155. $menuBarTab += '<td><a href="exec:killvar ''menu_page'' & gs ''obj_din'', ''menu_disabled''"><img title="<<$stat_disable_msg>>" src="images/system/menu icons/icon_lookself.png"></a></td>'
  156. if bag > 0:
  157. $menuBarTab += '<td><a href="exec:gs ''obj_din'', ''menu_disabled''"><img title="<<$stat_disable_msg>>" src="images/system/menu icons/icon_purse.png"></a></td>'
  158. end
  159. $menuBarTab += '<td><a href="exec:gs ''telefon'',''Phone_menu''"><img title="<<$stat_disable_msg>>" src="images/system/menu icons/icon_phone.png"></a></td>'
  160. $menuBarTab += '<td><a href="exec:gs ''obj_din'', ''menu_disabled''"><img title="<<$stat_disable_msg>>" src="images/system/menu icons/<<$journalIcon>>"></a></td>'
  161. $menuBarTab += '<td><a href="exec:killvar ''menu_page'' & gs''obj_din'', ''menu_disabled''"><img title="<<$stat_disable_msg>>" src="images/system/menu icons/icon_menu.png"></a></td>'
  162. $menuBarTab += '</tr></table>'
  163. $stat_msg += func('cleanHTML',$menuBarTab)
  164. killvar '$menuBarTab'
  165. end
  166. !!----------------- Money -------------------------------
  167. $pockets = 'Pockets'
  168. if bag > 0: $pockets = 'Purse'
  169. if bankAccount = 0 and stolmoney = 0:
  170. $stat_msg += 'You have <b><<money>> ₽</b> in your <<$pockets>>.'
  171. else
  172. !combine money status to single line
  173. $stat_msg += '<<$pockets>>: <b><<money>> ₽</b>'
  174. if stolmoney > 0: $stat_msg += ', Drawer <b><<stolmoney>> ₽</b>'
  175. if bankAccount = 1:
  176. if karta >= 0:
  177. $stat_msg += ', Bank: <b><<karta>> ₽</b>'
  178. else
  179. $stat_msg += '<font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>!!</font>'
  180. end
  181. end
  182. end
  183. !!-----------------Status Icons (Start)------------------
  184. if cheatStatusIcons = 0 or disable_show_icons = 0:
  185. if disable_show_icons = 0:
  186. cheatStatusIcons = 0
  187. elseif disable_show_icons = 1:
  188. cheatStatusIcons = 1
  189. end
  190. $stat_msg += '<br><br>'
  191. !!Row 1: Appearance
  192. $statusIconBarTab_1 = '<table><tr>'
  193. $statusIconBarTab_1 += '<td><a href="exec:msg ''People would rate your appearance as a <<hotcat>> out of 10.''"><img title="You are a <<hotcat>> out of 10." height = 54 src="images/system/icon/status_icons/appearance.png"></a></td>'
  194. $statusIconBarTab_1 += '<td><a href="exec:msg ''<<$pcs_makeup>>.''"><img title="<<$pcs_makeup_tooltip>>" height = 54 src="images/system/icon/status_icons/makeup_'+pcs_makeup+'.png"></a></td>'
  195. if greben = 0 or pcs_hairbsh = 1:
  196. $stat_brush_msg = 'Your hair is <<$pcs_hairbsh>>.'
  197. $statusIconBarTab_1 += '<td><a href="exec:msg $stat_brush_msg"><img title="<<$stat_brush_msg>>" height = 54 src="images/system/icon/status_icons/hair_'+pcs_hairbsh+'.png"></a></td>'
  198. else
  199. $statusIconBarTab_1 += '<td><a href="exec: minut += 2 & pcs_hairbsh = 1 & gs ''stat''"><img title="Click to brush your hair." height = 54 src="images/system/icon/status_icons/hair_0.png"></a></td>'
  200. end
  201. if pcs_lipbalm > 0: $statusIconBarTab_1 += '<td><a href="exec: ''Your lips are covered in moisturizing balm.''"><img title="You have applied lip balm." height = 54 src="images/system/icon/status_icons/lipstick.png"></a></td>'
  202. if false_lashes >= 1:
  203. $stat_lashes_msg = 'You''re wearing false'+iif(pcs_lashes = 4, ' mink ', ' ')+'lashes.'
  204. $statusIconBarTab_1 +='<td><a href="exec: $stat_lashes_msg"><img title="<<$stat_lashes_msg>>" height = 54 src="images/system/icon/status_icons/lashes.png"></a></td>'
  205. end
  206. if cheatNoSweat = 0:
  207. if pcs_sweat < 0:
  208. pcs_sweat = 0
  209. elseif pcs_sweat > 69:
  210. pcs_sweat = 69
  211. end
  212. if pcs_sweat > 20:
  213. if pcs_sweat > 60:
  214. $stat_sweat_msg = 'You are dripping wet from sweat and smell like a gym sock.'
  215. elseif pcs_sweat > 50:
  216. $stat_sweat_msg = 'You really stink.'
  217. elseif pcs_sweat > 40:
  218. $stat_sweat_msg = 'You stink.'
  219. elseif pcs_sweat > 30:
  220. $stat_sweat_msg = 'You are a little smelly.'
  221. else
  222. $stat_sweat_msg = 'You''re sweating.'
  223. end
  224. $statusIconBarTab_1 += '<td><a href="exec:msg $stat_sweat_msg"><img title="<<$stat_sweat_msg>>" height = 54 src="images/system/icon/status_icons/need_shower.png"></a></td>'
  225. end
  226. end
  227. if pcs_leghair > 3 or (pubestyle = 1 and pcs_pubes > 3) or ((pubestyle >= 2 and pubestyle <= 7) and pcs_pubes >= 15) or (pubestyle = 8 and pcs_pubes >= 20) or (pubestyle = 9 and pcs_pubes >= 25) or (pubestyle = 10 and pcs_pubes >= 30):
  228. if (pubestyle = 1 and pcs_pubes > 3) or ((pubestyle >= 2 and pubestyle <= 7) and pcs_pubes >= 15) or (pubestyle = 8 and pcs_pubes >= 20) or (pubestyle = 9 and pcs_pubes >= 25) or (pubestyle = 10 and pcs_pubes >= 30):
  229. $stat_shave_msg = 'You need to shave your'+iif(pcs_leghair > 3, ' legs and ', ' ')+'pussy.'
  230. elseif pcs_leghair > 3:
  231. $stat_shave_msg = 'You need to shave your legs.'
  232. end
  233. $statusIconBarTab_1 += '<td><a href="exec:msg $stat_shave_msg"><img title="<<$stat_shave_msg>>" height = 54 src="images/system/icon/status_icons/need_shave.png"></a></td>'
  234. end
  235. $statusIconBarTab_1 += '</tr></table>'
  236. $stat_msg += func('cleanHTML',$statusIconBarTab_1)
  237. killvar '$statusIconBarTab_1'
  238. !!Row 2: Mood, Arousal, Hunger, Thirst, Health without STDs...
  239. $statusIconBarTab_2 = '<table><tr>'
  240. !!{ this is commented out until the images have been added
  241. willpower_percent = (100 * pcs_willpwr)/willpowermax
  242. if willpower_percent > 60:
  243. $stat_willpower_msg = 'You feel confident and in control. You still have <<willpower_percent>>% of your willpower left.'
  244. $stat_willpower_tooltip = 'You have <<willpower_percent>>% of your willpower.'
  245. $statusIconBarTab_2 += '<td><a href="exec:msg $stat_willpower_msg"><img title="<<$stat_willpower_tooltip>>" height = 54 src="images/system/icon/status_icons/willpower_high.png"></a></td>'
  246. elseif willpower_percent > 30:
  247. $stat_willpower_msg = 'You feel like you have less control over yourself than usual. You have <<willpower_percent>>% of your willpower left.'
  248. $stat_willpower_tooltip = 'You have <<willpower_percent>>% of your willpower.'
  249. $statusIconBarTab_2 += '<td><a href="exec:msg $stat_willpower_msg"><img title="<<$stat_willpower_tooltip>>" height = 54 src="images/system/icon/status_icons/willpower_med.png"></a></td>'
  250. else
  251. $stat_willpower_msg = 'In your current state, you could easily be pressured into doing things against your will. You have <<willpower_percent>>% of your willpower left.'
  252. $stat_willpower_tooltip = 'You only have <<willpower_percent>>% of your willpower.'
  253. $statusIconBarTab_2 += '<td><a href="exec:msg $stat_willpower_msg"><img title="<<$stat_willpower_tooltip>>" height = 54 src="images/system/icon/status_icons/willpower_low.png"></a></td>'
  254. end
  255. }
  256. if pcs_mood >= 80:
  257. $stat_mood_msg = 'You are in a great mood.'
  258. $statusIconBarTab_2 += '<td><a href="exec:msg $stat_mood_msg"><img title="<<$stat_mood_msg>>" height = 54 src="images/system/icon/status_icons/mood_1.png"></a></td>'
  259. elseif pcs_mood >= 60:
  260. $stat_mood_msg = 'You are in an OK mood.'
  261. $statusIconBarTab_2 += '<td><a href="exec:msg $stat_mood_msg"><img title="<<$stat_mood_msg>>" height = 54 src="images/system/icon/status_icons/mood_2.png"></a></td>'
  262. elseif pcs_mood >= 40:
  263. $stat_mood_msg = 'You are in a good mood.'
  264. $statusIconBarTab_2 += '<td><a href="exec:msg $stat_mood_msg"><img title="<<$stat_mood_msg>>" height = 54 src="images/system/icon/status_icons/mood_3.png"></a></td>'
  265. elseif pcs_mood >= 20:
  266. $stat_mood_msg = 'You are in a bad mood.'
  267. $statusIconBarTab_2 += '<td><a href="exec:msg $stat_mood_msg"><img title="<<$stat_mood_msg>>" height = 54 src="images/system/icon/status_icons/mood_4.png"></a></td>'
  268. elseif pcs_mood >= 5:
  269. $stat_mood_msg = 'You are in a terrible mood.'
  270. $statusIconBarTab_2 += '<td><a href="exec:msg $stat_mood_msg"><img title="<<$stat_mood_msg>>" height = 54 src="images/system/icon/status_icons/mood_5.png"></a></td>'
  271. else
  272. $stat_mood_msg = 'You are really depressed and need to improve your mood.'
  273. $stat_mood_tooltip = 'You are really depressed.'
  274. $statusIconBarTab_2 += '<td><a href="exec:msg $stat_mood_msg"><img title="<<$stat_mood_tooltip>>" height = 54 src="images/system/icon/status_icons/mood_6.png"></a></td>'
  275. end
  276. if pcs_horny > 90:
  277. $stat_arousal_msg = 'You can''t stop thinking about sex, you''re soaked between your legs from your juices.'
  278. $stat_arousal_tooltip = 'You can''t stop thinking about sex'
  279. $statusIconBarTab_2 += '<td><a href="exec:msg $stat_arousal_msg"><img title="<<$stat_arousal_tooltip>>" height = 54 src="images/system/icon/status_icons/arousal_high.png"></a></td>'
  280. elseif pcs_horny > 60:
  281. $stat_arousal_msg = 'You''re a little nervous, feeling itchy between your legs from arousal.'
  282. $stat_arousal_tooltip = 'You''re feeling aroused.'
  283. $statusIconBarTab_2 += '<td><a href="exec:msg $stat_arousal_msg"><img title="<<$stat_arousal_tooltip>>" height = 54 src="images/system/icon/status_icons/arousal_med.png"></a></td>'
  284. elseif pcs_horny > 30:
  285. $stat_arousal_msg = 'You''re feeling a tingling sensation between your legs.'
  286. $stat_arousal_tooltip = 'You''re feeling a bit aroused.'
  287. $statusIconBarTab_2 += '<td><a href="exec:msg $stat_arousal_msg"><img title="<<$stat_arousal_tooltip>>" height = 54 src="images/system/icon/status_icons/arousal_low.png"></a></td>'
  288. end
  289. if cheatNoEat = 0:
  290. if pcs_energy < 5:
  291. $stat_hunger_msg = 'You feel faint from hunger, if you don''t have something to eat very soon, you will pass out.'
  292. $stat_hunger_tooltip = 'You feel faint from hunger.'
  293. elseif pcs_energy < 10:
  294. $stat_hunger_msg = 'You are starving, you really need to have something to eat.'
  295. $stat_hunger_tooltip = 'You are starving.'
  296. elseif pcs_energy < 20:
  297. $stat_hunger_msg = 'You are very hungry and struggle to concentrate on anything other than food.'
  298. $stat_hunger_tooltip = 'You are very hungry.'
  299. elseif pcs_energy < 30:
  300. $stat_hunger_msg = 'You feel peckish and your thoughts sometimes drift towards food.'
  301. $stat_hunger_tooltip = 'You feel peckish.'
  302. end
  303. if pcs_energy < 30: $statusIconBarTab_2 += '<td><a href="exec:msg $stat_hunger_msg"><img title="<<$stat_hunger_tooltip>>" height = 54 src="images/system/icon/status_icons/need_food.png"></a></td>'
  304. end
  305. if cheatNoDrink = 0:
  306. if pcs_hydra < 5:
  307. $stat_thirst_msg = 'You feel light-headed, if you don''t have something to drink very soon, you will pass out.'
  308. $stat_thirst_tooltip = 'You feel light-headed.'
  309. elseif pcs_hydra < 10:
  310. $stat_thirst_msg = 'You are dehydrated, you really need to have something to drink.'
  311. $stat_thirst_tooltip = 'You are dehydrated.'
  312. elseif pcs_hydra < 20:
  313. $stat_thirst_msg = 'You are thirsty and your dry throat is irritating and distracting you.'
  314. $stat_thirst_tooltip = 'You are thirsty.'
  315. elseif pcs_hydra < 30:
  316. $stat_thirst_msg = 'You feel a little thirsty and your mouth is a little dry.'
  317. $stat_thirst_tooltip = 'You feel a little thirsty.'
  318. end
  319. if pcs_hydra < 30: $statusIconBarTab_2 += '<td><a href="exec:msg $stat_thirst_msg"><img title="<<$stat_thirst_tooltip>>" height = 54 src="images/system/icon/status_icons/need_drink.png"></a></td>'
  320. end
  321. if cheatNoSleep= 0:
  322. if pcs_sleep < 5:
  323. $stat_sleep_msg = 'You can''t keep your eyes open, if you don''t go to bed now, you will fall asleep right here.'
  324. $stat_sleep_tooltip = 'You can''t keep your eyes open.'
  325. elseif pcs_sleep < 10:
  326. $stat_sleep_msg = 'You are exhausted, you really need to go to bed soon.'
  327. $stat_sleep_tooltip = 'You are exhausted.'
  328. elseif pcs_sleep < 20:
  329. $stat_sleep_msg = 'You are tired and you are struggling to concentrate.'
  330. $stat_sleep_tooltip = 'You are tired.'
  331. elseif pcs_sleep < 30:
  332. $stat_sleep_msg = 'You feel a little tired.'
  333. $stat_sleep_tooltip = 'You feel a little tired.'
  334. end
  335. if pcs_sleep < 30: $statusIconBarTab_2 += '<td><a href="exec:msg $stat_sleep_msg"><img title="<<$stat_sleep_tooltip>>" height = 54 src="images/system/icon/status_icons/need_sleep.png"></a></td>'
  336. end
  337. $statusIconBarTab_2 += '</tr></table>'
  338. $stat_msg += func('cleanHTML',$statusIconBarTab_2)
  339. killvar '$statusIconBarTab_2'
  340. !!Row 3: Pregnancy, cum, lactation, STD...
  341. $statusIconBarTab_3 = '<table><tr>'
  342. if menu_off = 0:
  343. $statusIconBarTab_3 += '<td><a href="exec:dynamic $d_cycreport_choice"><img title="Click to open the cycle menu." height = 54 src="images/system/icon/status_icons/vagina.png"></a></td>'
  344. elseif menu_off = 1:
  345. $statusIconBarTab_3 += '<td><a href="exec:msg $stat_disable_msg"><img title="<<$stat_disable_msg>>" height = 54 src="images/system/icon/status_icons/vagina.png"></a></td>'
  346. end
  347. if mesec > 0 and isprok = 0 and isprokp = 0:
  348. $stat_bleed_msg = 'You need to use your feminine hygiene products'+iif($pantyworntype = 'none', ' and you need to also wear panties if you want to use a sanitary pad.', '.')
  349. $statusIconBarTab_3 += '<td><a href="exec:msg $stat_bleed_msg"><img title="<<$stat_bleed_msg>>" height = 54 src="images/system/icon/status_icons/vperiod_bleeding.png"></a></td>'
  350. elseif mesec > 0 and (isprok > 0 or isprokp > 0):
  351. $stat_bleed_msg = 'You''re using feminine hygiene products.'
  352. $statusIconBarTab_3 += '<td><a href="exec:msg $stat_bleed_msg"><img title="<<$stat_bleed_msg>>" height = 54 src="images/system/icon/status_icons/vperiod_sanitaries.png"></a></td>'
  353. elseif placebopart > 0 and LutH > 0 and knowpreg = 0:
  354. $stat_bleed_msg = 'Your period is due to start soon.'
  355. $statusIconBarTab_3 += '<td><a href="exec:msg $stat_bleed_msg"><img title="<<$stat_bleed_msg>>" height = 54 src="images/system/icon/status_icons/vunknown.png"></a></td>'
  356. elseif implant_day > 0 and ((daystart - implant_day) * 24 + hour - implant_hour) < 5:
  357. $stat_bleed_msg = 'You feel a slight twinge in your abdomen.'
  358. $statusIconBarTab_3 += '<td><a href="exec:msg $stat_bleed_msg"><img title="<<$stat_bleed_msg>>" height = 54 src="images/system/icon/status_icons/vunknown.png"></a></td>'
  359. elseif thinkpreg = 0 and knowpreg = 0 and cycle ! 6 and pillcon2 <= 30000 and succubusflag ! 1 and cheatSlut = 0 and mesec = 0:
  360. if abortionbirthdate = 0 and daystart - lastmens > 28:
  361. if (daystart - lastmens > 28) and (daystart - lastmens <= 35):
  362. $stat_bleed_msg = 'Your period is late by <<daystart - lastmens - 28>> days.'
  363. elseif (daystart - lastmens > 35) and (daystart - lastmens <= 42):
  364. $stat_bleed_msg = 'Your period is late by more than a week!'
  365. elseif (daystart - lastmens > 42) and (daystart - lastmens <= 56):
  366. $stat_bleed_msg = 'Your period is late by more than two weeks! Maybe you should see a doctor?'
  367. elseif (daystart - lastmens > 56) and (daystart - lastmens <= 84):
  368. $stat_bleed_msg = 'Your period is late by more than a month! You really should see a doctor about it.'
  369. elseif daystart - lastmens > 84:
  370. $stat_bleed_msg = 'You should consider the possibility of a pregnancy, since apparently you no longer have periods.'
  371. end
  372. $statusIconBarTab_3 += '<td><a href="exec:msg $stat_bleed_msg"><img title="<<$stat_bleed_msg>>" height = 54 src="images/system/icon/status_icons/vunknown.png"></a></td>'
  373. elseif abortionbirthdate ! 0 and daystart - abortionbirthdate <= 26:
  374. if daystart - abortionbirthdate <= 13:
  375. $stat_bleed_msg = 'You are still in your recovery period. Nothing to worry about.'
  376. elseif daystart - abortionbirthdate > 13 and daystart - abortionbirthdate <= 16:
  377. $stat_bleed_msg = 'You are maybe still in your recovery period, but there could be a risk.'
  378. elseif daystart - abortionbirthdate > 16 and daystart - abortionbirthdate <= 21:
  379. $stat_bleed_msg = 'You should have recovered from you abortion by know... Right?'
  380. elseif daystart - abortionbirthdate > 21 and daystart - abortionbirthdate <= 26:
  381. $stat_bleed_msg = 'You should have definitely recovered from your abortion by now.'
  382. end
  383. $statusIconBarTab_3 += '<td><a href="exec:msg $stat_bleed_msg"><img title="<<$stat_bleed_msg>>" height = 54 src="images/system/icon/status_icons/vunknown.png"></a></td>'
  384. elseif pregbirthdate ! 0 and daystart - pregbirthdate <= 80:
  385. if daystart - pregbirthdate <= 41:
  386. $stat_bleed_msg = 'You are still in your recovery period. Nothing to worry about.'
  387. elseif daystart - pregbirthdate > 41 and daystart - pregbirthdate <= 48:
  388. $stat_bleed_msg = 'You are probably still in your recovery period.'
  389. elseif daystart - pregbirthdate > 48 and daystart - pregbirthdate <= 55:
  390. $stat_bleed_msg = 'You are maybe still in your recovery period, but there could be a risk.'
  391. elseif daystart - pregbirthdate > 55 and daystart - pregbirthdate <= 70:
  392. $stat_bleed_msg = 'You should have recovered by know... Right?'
  393. elseif daystart - pregbirthdate > 70 and daystart - pregbirthdate <= 80:
  394. $stat_bleed_msg = 'You should have definitely recovered from giving birth by now.'
  395. end
  396. $statusIconBarTab_3 += '<td><a href="exec:msg $stat_bleed_msg"><img title="<<$stat_bleed_msg>>" height = 54 src="images/system/icon/status_icons/vunknown.png"></a></td>'
  397. end
  398. elseif preg = 1:
  399. if thinkpreg = 1 and knowpreg = 0:
  400. $stat_preg_msg = 'You think you''re pregnant, but aren''t sure.'
  401. $stat_preg_tooltip = 'I think I''m pregnant.'
  402. elseif knowpreg = 1:
  403. $stat_preg_tooltip = 'I''m pregnant.'
  404. $stat_preg_msg = 'You are pregnant. Your due date is around <<$pregduedate>>.'
  405. end
  406. $statusIconBarTab_3 += '<td><a href="exec:msg $stat_preg_msg"><img title="<<$stat_preg_tooltip>>" height = 54 src="images/system/icon/status_icons/vpregnant.png"></a></td>'
  407. elseif preg = 2:
  408. $stat_preg_msg = 'Broken water and contractions, it''s pretty clear what is going on. You need to get to a hospital ASAP.'
  409. $stat_preg_tooltip = 'Go to the hospital, ASAP! You''re in labour!'
  410. $statusIconBarTab_3 += '<td><a href="exec:msg $stat_preg_msg"><img title="<<$stat_preg_tooltip>>" height = 54 src="images/system/icon/status_icons/labour.png"></a></td>'
  411. end
  412. gs 'lact_lib','breast_stat_icons'
  413. if $stat_cum_msg ! '': $statusIconBarTab_3 += '<td><a href="exec:msg $stat_cum_msg"><img title="You have cum in and/or on your body. Click to find out more." height = 54 src="images/system/icon/status_icons/cum_covered.png"></a></td>'
  414. if $stat_visible_cum_msg ! '': $statusIconBarTab_3 += '<td><a href="exec:msg $stat_visible_cum_msg"><img title="People can see the cum on your body!" height = 54 src="images/system/icon/status_icons/visible_cum.png"></a></td>'
  415. if stat_cumloc_check = 1 and trt_cumeater = 1 and cumeater_cheat = 0 and menu_off = 0:
  416. $statusIconBarTab_3 += '<td><a href="exec: gs ''cum_manage'', ''cumeater_icon'' & gs ''stat''"><img title="Click to lick up all that delicious cum." height = 54 src="images/system/icon/status_icons/cum_eater.png"></a></td>'
  417. elseif stat_cumloc_check = 1 and trt_cumeater = 1 and cumeater_cheat = 0 and menu_off = 1:
  418. $statusIconBarTab_3 += '<td><a href="exec:msg $stat_disable_msg"><img title="<<$stat_disable_msg>>" height = 54 src="images/system/icon/status_icons/cum_eater.png"></a></td>'
  419. end
  420. if stat_cumloc_check = 1 and salfetka > 0 and menu_off = 0:
  421. $statusIconBarTab_3 += '<td><a href="exec:dynamic $d_salf"><img title="Click to use your wipes." height = 54 src="images/system/icon/status_icons/wipes.png"></a></td>'
  422. elseif stat_cumloc_check = 1 and salfetka > 0 and menu_off = 1:
  423. $statusIconBarTab_3 += '<td><a href="exec:msg $stat_disable_msg"><img title="<<$stat_disable_msg>>" height = 54 src="images/system/icon/status_icons/wipes.png"></a></td>'
  424. end
  425. stat_STD_count = 0
  426. $stat_STD_msg = ''
  427. if Gerpes >= 10 and GenHerpes = 1:
  428. stat_STD_count += 1
  429. $stat_STD_msg += 'Sores have appeared on your vagina. You have genital herpes.'
  430. elseif Gerpes >= 5 and GenHerpes = 1:
  431. stat_STD_count += 1
  432. $stat_STD_msg += 'Your vagina is red and very itchy. You have genital herpes.'
  433. elseif Gerpes >= 3 and Orerpes = 1:
  434. stat_STD_count += 1
  435. $stat_STD_msg += 'You have cold Sores on your lips. You have oral herpes.'
  436. end
  437. if Gerpes >= 20 and GenHerpes = 1:
  438. stat_STD_count += 1
  439. if stat_STD_count > 1: $stat_STD_msg += '<br>'
  440. $stat_STD_msg += 'The herpes sores also cover your ass.'
  441. end
  442. if Sifilis >= 50:
  443. stat_STD_count += 1
  444. if stat_STD_count > 1: $stat_STD_msg += '<br>'
  445. $stat_STD_msg += 'Syphilitic rashes cover your whole body.'
  446. elseif Sifilis >= 21:
  447. stat_STD_count += 1
  448. if stat_STD_count > 1: $stat_STD_msg += '<br>'
  449. $stat_STD_msg += 'You have a single large, hard sore on the lip. You have syphilis.'
  450. end
  451. if Triper > 2:
  452. stat_STD_count += 1
  453. if stat_STD_count > 1: $stat_STD_msg += '<br>'
  454. $stat_STD_msg += 'It stings, when you''re urinating. You have gonorrhea.'
  455. end
  456. if Kandidoz > 30:
  457. stat_STD_count += 1
  458. if stat_STD_count > 1: $stat_STD_msg += '<br>'
  459. $stat_STD_msg += 'There''s a white discharge coming from your vagina. You have thrush.'
  460. end
  461. if stat_STD_count > 0:
  462. $stat_STD_tooltip = 'You have '+iif(stat_STD_count = 1, 'a', '<<stat_STD_count>>')+' STD'+iif(stat_STD_count = 1, '.', 's.')+' Click to find out more.'
  463. $statusIconBarTab_3 += '<td><a href="exec:msg $stat_STD_msg"><img title="<<$stat_STD_tooltip>>" height = 54 src="images/system/icon/status_icons/std.png"></a></td>'
  464. end
  465. $statusIconBarTab_3 += '</tr></table>'
  466. $stat_msg += func('cleanHTML',$statusIconBarTab_3)
  467. killvar '$statusIconBarTab_3'
  468. !!Row 4: Status, Jobs, School, Clothes,...
  469. $statusIconBarTab_4 = '<table><tr>'
  470. if bimbolevel > 0: $statusIconBarTab_4 += '<td><a href="exec:msg $bimbostatus"><img title="<<$bimbostatus>>" height = 54 src="images/system/icon/status_icons/bimbo.png"></a></td>'
  471. if hypnoAddict > 0 and $stat_hypno_msg ! '': $statusIconBarTab_4 += '<td><a href="exec:msg $stat_hypno_msg"><img title="<<$stat_hypno_tooltip>>" height = 54 src="images/system/icon/status_icons/hypno_addict.png"></a></td>'
  472. if $stat_court_msg ! '': $statusIconBarTab_4 += '<td><a href="exec:msg $stat_court_msg"><img title="<<$stat_court_tooltip>>" height = 54 src="images/system/icon/status_icons/court.png"></a></td>'
  473. if $stat_school_msg ! '': $statusIconBarTab_4 += '<td><a href="exec:msg $stat_school_msg"><img title="<<$stat_school_tooltip>>" height = 54 src="images/system/icon/status_icons/school.png"></a></td>'
  474. if work > 0: $statusIconBarTab_4 += '<td><a href="exec: gt ''journal'', ''records''"><img title="You have a job. Click to find out more." height = 54 src="images/system/icon/status_icons/work.png"></a></td>'
  475. if $stat_clothes_msg ! '': $statusIconBarTab_4 += '<td><a href="exec:msg $stat_clothes_msg"><img title="<<$stat_clothes_tooltip>>" height = 54 src="images/system/icon/status_icons/<<$stat_clothes_style>>.png"></a></td>'
  476. if $stat_bra_msg ! '': $statusIconBarTab_4 += '<td><a href="exec:msg $stat_bra_msg"><img title="<<$stat_bra_msg>>" height = 54 src="images/system/icon/status_icons/bra.png"></a></td>'
  477. if $stat_panty_msg ! '': $statusIconBarTab_4 += '<td><a href="exec:msg $stat_panty_msg"><img title="<<$stat_panty_msg>>" height = 54 src="images/system/icon/status_icons/panties.png"></a></td>'
  478. if analplugIN = 1 and vibratorin = 0:
  479. $stat_toy_msg = 'A butt plug is inside your ass.'
  480. $statusIconBarTab_4 += '<td><a href="exec:msg $stat_toy_msg"><img title="<<$stat_toy_msg>>" height = 54 src="images/system/icon/status_icons/tbutt_plug.png"></a></td>'
  481. elseif analplugIN = 0 and vibratorin = 1:
  482. $stat_toy_msg = 'A vibrator is inside your vagina.'
  483. $statusIconBarTab_4 += '<td><a href="exec:msg $stat_toy_msg"><img title="<<$stat_toy_msg>>" height = 54 src="images/system/icon/status_icons/tvibrator.png"></a></td>'
  484. elseif analplugIN = 1 and vibratorin = 1:
  485. $stat_toy_msg = 'You''re wearing a plug and a vibrator.'
  486. $statusIconBarTab_4 += '<td><a href="exec:msg $stat_toy_msg"><img title="<<$stat_toy_msg>>" height = 54 src="images/system/icon/status_icons/tdouble_stuffed.png"></a></td>'
  487. end
  488. $statusIconBarTab_4 += '</tr></table>'
  489. $stat_msg += func('cleanHTML',$statusIconBarTab_4)
  490. killvar '$statusIconBarTab_4'
  491. !!Row 5: School, Work, Court, Drugs and other short term stuff
  492. $statusIconBarTab_5 = '<table><tr>'
  493. if siga > 0:
  494. $stat_smoker_msg = 'You have <<siga>> cigarette'+iif(siga = 1, '', 's')+iif(smokerNeed > 0 and NarkImmune = 0, ' and you want to smoke.' , '.')
  495. $statusIconBarTab_5 += '<td><a href="exec:msg $stat_smoker_msg"><img title="<<$stat_smoker_msg>>" height = 54 src="images/system/icon/status_icons/cigarettes.png"></a></td>'
  496. end
  497. if smoker >= 20 and NarkImmune = 0 and smokerNeed > 0 and siga > 0:
  498. $stat_smoke_msg = 'You really need to smoke, click to smoke a cigarette.'
  499. $statusIconBarTab_5 += '<td><a href="exec: gs ''drugs'',''smoke'' & ''You are smoking a cigarette.''"><img title="<<$stat_smoke_msg>>" height = 54 src="images/system/icon/status_icons/craving_nicotine.png"></a></td>'
  500. elseif smoker >= 20 and NarkImmune = 0 and smokerNeed > 0 and siga <= 0:
  501. $stat_smoke_msg = 'You really need to smoke, but you have no cigarettes.'
  502. $statusIconBarTab_5 += '<td><a href="exec:msg $stat_smoke_msg"><img title="<<$stat_smoke_msg>>" height = 54 src="images/system/icon/status_icons/craving_nicotine.png"></a></td>'
  503. elseif siga > 0:
  504. $stat_smoke_msg = 'Click to smoke a cigarette.'
  505. $statusIconBarTab_5 += '<td><a href="exec: gs ''drugs'',''smoke'' & ''You are smoking a cigarette.''"><img title="<<$stat_smoke_msg>>" height = 54 src="images/system/icon/status_icons/smoke_cigarette.png"></a></td>'
  506. end
  507. $stat_drug_msg = ''
  508. if narkday ! daystart and narkoman = 1 and Slomka > 0:
  509. $stat_drug_msg += 'You need heroin and cocaine.'
  510. elseif narkday ! daystart and narkoman = 1 and Slomka <= 0:
  511. $stat_drug_msg += 'You need cocaine.'
  512. elseif SLomka > 0:
  513. $stat_drug_msg += 'You need heroin.'
  514. end
  515. if $stat_drug_msg ! '': $statusIconBarTab_5 += '<td><a href="exec:msg $stat_drug_msg"><img title="<<$stat_drug_msg>>" height = 54 src="images/system/icon/status_icons/craving_drugs.png"></a></td>'
  516. if alko > 9:
  517. $stat_alko_msg = 'You''re '+iif(alko < 10, 'very drunk.', 'wasted.')
  518. $statusIconBarTab_5 += '<td><a href="exec:msg $stat_alko_msg"><img title="<<$stat_alko_msg>>" height = 54 src="images/system/icon/status_icons/alko_4.png"></a></td>'
  519. elseif alko > 5:
  520. $stat_alko_msg = 'You''re drunk.'
  521. $statusIconBarTab_5 += '<td><a href="exec:msg $stat_alko_msg"><img title="<<$stat_alko_msg>>" height = 54 src="images/system/icon/status_icons/alko_3.png"></a></td>'
  522. elseif alko > 3:
  523. $stat_alko_msg = 'You''re feeling a bit tipsy.'
  524. $statusIconBarTab_5 += '<td><a href="exec:msg $stat_alko_msg"><img title="<<$stat_alko_msg>>" height = 54 src="images/system/icon/status_icons/alko_2.png"></a></td>'
  525. elseif alko = 1:
  526. $stat_alko_msg = 'You feel a little buzz from drinking.'
  527. $statusIconBarTab_5 += '<td><a href="exec:msg $stat_alko_msg"><img title="<<$stat_alko_msg>>" height = 54 src="images/system/icon/status_icons/alko_1.png"></a></td>'
  528. end
  529. if mentats_dose >= 1: $statusIconBarTab_5 += '<td><a href="exec:msg ''You feel sharp and focused.''"><img title="You feel sharp and focused." height = 54 src="images/system/icon/status_icons/drugs.png"></a></td>'
  530. if aphrodisiac_timer > 0: $statusIconBarTab_5 +='<td><a href="exec:msg ''You are feeling hot and every move causes your groin to tingle.''"><img title="You are feeling hot." height = 54 src="images/system/icon/status_icons/aphro_gum.png"></a></td>'
  531. if frost > 0: $statusIconBarTab_5 += '<td><a href="exec:msg $stat_frost_msg"><img title="<<$stat_frost_msg>>" height = 54 src="images/system/icon/status_icons/hypothermia.png"></a></td>'
  532. if sick > 0: $statusIconBarTab_5 += '<td><a href="exec:msg $stat_sick_msg"><img title="<<$stat_sick_tooltip>>" height = 54 src="images/system/icon/status_icons/health.png"></a></td>'
  533. if recuperation = 1:
  534. $stat_health_msg = 'You are still recovering from major surgery.'
  535. $statusIconBarTab_5 += '<td><a href="exec:msg $stat_health_msg"><img title="<<$stat_health_msg>>" height = 54 src="images/system/icon/status_icons/health.png"></a></td>'
  536. end
  537. if bcream_used = 1:
  538. $stat_cream_msg = 'Your breasts are feeling hot and tingly.'
  539. $statusIconBarTab_5 += '<td><a href="exec:msg $stat_cream_msg"><img title="<<$stat_cream_msg>>" height = 54 src="images/system/icon/status_icons/breast_cream.png"></a></td>'
  540. end
  541. if cumcondslip > 0: $statusIconBarTab_5 += '<td><a href="exec:msg ''You don''t feel so great and you''re still wondering about the used condom you never found. Maybe those two things are related?''"><img title="You feel sick. Click to find out more." height = 54 src="images/system/icon/status_icons/stuck_condom.png"></a></td>'
  542. if body_write > 0 or face_write > 0:
  543. if body_write > 1 and face_write = 0:
  544. $stat_wirting_msg = 'Your body is inscribed with derogatory graffiti.'
  545. elseif body_write = 1 and face_write = 0:
  546. $stat_wirting_msg = 'Your body is an obscene sign.'
  547. elseif body_write = 0 and face_write > 1:
  548. $stat_wirting_msg = 'Your face is covered with writing obscene epithets.'
  549. elseif body_write = 0 and face_write = 1:
  550. $stat_wirting_msg = 'On your face humiliating label.'
  551. else
  552. $stat_wirting_msg = 'Your body and face painted with obscene graffiti.'
  553. end
  554. $statusIconBarTab_5 += '<td><a href="exec:msg $stat_wirting_msg"><img title="<<$stat_wirting_msg>>" height = 54 src="images/system/icon/status_icons/body_writing.png"></a></td>'
  555. end
  556. $statusIconBarTab_5 += '</tr></table>'
  557. $stat_msg += func('cleanHTML',$statusIconBarTab_5)
  558. killvar '$statusIconBarTab_5'
  559. else
  560. $stat_msg += '<br>'
  561. end
  562. !!-----------------Status Icons (End)------------------
  563. !!----------------Stat Display, start--------------------------
  564. $stat_tool_msg=''
  565. $stat_extra_msg=''
  566. if enable_show_status = 0:
  567. $stat_tool_msg += '<a href="exec:enable_show_status = 1 & gs ''$menu_obnovit''">▲Status</a> '
  568. else
  569. $stat_tool_msg += '<a href="exec:enable_show_status = 0 & gs ''$menu_obnovit''">▽Status</a> '
  570. end
  571. if disable_show_icons = 1:
  572. $stat_tool_msg += '<a href="exec:disable_show_icons = 0 & gs ''$menu_obnovit''">▽Icons</a> '
  573. else
  574. $stat_tool_msg += '<a href="exec:disable_show_icons = 1 & gs ''$menu_obnovit''">▲Icons</a> '
  575. end
  576. if enable_show_status = 0:
  577. if ETOmenu = 1:
  578. $stat_extra_msg += '<BR><b><<$pcs_health>></b>'
  579. $stat_extra_msg += '<BR><b><<$pcs_willpwr>></b>'
  580. if cheatNoEat = 0: $stat_extra_msg += '<BR><b><<$pcs_energy>></b>'
  581. if cheatNoDrink = 0: $stat_extra_msg += '<BR><b><<$pcs_hydra>></b>'
  582. if cheatNoSleep = 0: $stat_extra_msg += '<BR><b><<$pcs_sleep>></b>'
  583. elseif Enable_scalepic = 2:
  584. $st_temp='rgb(<<(16777216 + fcolor) mod 256>>,<<(16777216 + fcolor)/256 mod 256>>,<<(16777216 + fcolor)/65536>>)'
  585. $stat_extra_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>'
  586. if MagikDostup = 0: $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_mana * 100 / manamax, pcs_mana)+'</TD><TD> Mana</TD></TR>'
  587. $stat_extra_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>'
  588. if cheatNoEat = 0: $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_energy, pcs_energy)+'</TD><TD> Hunger</TD></TR>'
  589. if cheatNoDrink = 0: $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_hydra, pcs_hydra)+'</TD><TD> Thirst</TD></TR>'
  590. if cheatNoSleep = 0: $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_sleep, pcs_sleep)+'</TD><TD> Sleep</TD></TR></TABLE></font></p>'
  591. else
  592. gs 'indik', '2', pcs_horny, pcs_horny
  593. $stat_extra_msg += '<BR><<$ind>> Arousal'
  594. gs 'indik', '2', pain['total'], pain['total'], pain['damage']
  595. $stat_extra_msg += '<BR><<$ind>> Pain'
  596. gs 'indik', '1', pcs_health * 100 / healthmax, pcs_health
  597. $stat_extra_msg += '<BR><<$ind>> Health'
  598. if MagikDostup = 0:
  599. gs 'indik', '1', pcs_mana * 100 / manamax, pcs_mana
  600. $stat_extra_msg += '<BR><<$ind>> Mana'
  601. end
  602. gs 'indik', '1', pcs_willpwr * 100 / willpowermax, pcs_willpwr
  603. $stat_extra_msg += '<BR><<$ind>> Willpower'
  604. gs 'indik', '1', pcs_stam * 100 / stammax, pcs_stam
  605. $stat_extra_msg += '<BR><<$ind>> Stamina'
  606. gs 'indik', '1', pcs_mood, pcs_mood
  607. $stat_extra_msg += '<BR><<$ind>> Mood'
  608. if cheatNoEat = 0:
  609. gs 'indik', '1', pcs_energy, pcs_energy
  610. $stat_extra_msg += '<BR><<$ind>> Hunger'
  611. end
  612. if cheatNoDrink = 0:
  613. gs 'indik', '1', pcs_hydra, pcs_hydra
  614. $stat_extra_msg += '<BR><<$ind>> Thirst'
  615. end
  616. if cheatNoSleep = 0:
  617. gs 'indik', '1', pcs_sleep, pcs_sleep
  618. $stat_extra_msg += '<BR><<$ind>> Sleep'
  619. end
  620. end
  621. end
  622. !!----------------Extra messages, start--------------------------
  623. !!----------------▽Attributes--------------------------
  624. if Enable_showattr = 0:
  625. $stat_tool_msg += '<a href="exec:Enable_showattr = 1 & gs ''$menu_obnovit''">▽Attributes</a>'
  626. else
  627. $stat_tool_msg += '<a href="exec:Enable_showattr = 0 & gs ''$menu_obnovit''">▲Attributes</a>'
  628. !skip if this is first message
  629. if $stat_extra_msg ! null: $stat_extra_msg += '<br><a href="exec:Enable_showattr = 0 & gs ''$menu_obnovit''">▲Attributes:</a>'
  630. if Enable_scalepic = 2:
  631. if pcs_dom > 10:
  632. $dom_stat_msg = 'dominant'
  633. elseif sub > 10:
  634. $dom_stat_msg = 'submissive'
  635. else
  636. $dom_stat_msg = 'neutral'
  637. end
  638. $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>'
  639. if MagikDostup = 0: $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_magik, pcs_magik)+'</TD><TD> Magic</TD></TR>'
  640. if succubusflag = 1: $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', sucexcess, sucexcess)+'</TD><TD> Succubus Energy</TD></TR>'
  641. $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_apprnc / 2, pcs_apprnc)+'</TD><TD> Attractiveness</TD></TR>'
  642. 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>'
  643. $stat_extra_msg += '</TABLE></font>'
  644. killvar '$dom_stat_msg'
  645. else
  646. gs 'indik','3', 50+(pcs_dom-sub)/2, 50+(pcs_dom-sub)/2
  647. $stat_extra_msg += '<BR><<$ind>> Dominance'
  648. if pcs_dom > 10:
  649. $stat_extra_msg += ' (dominant)'
  650. elseif sub > 10:
  651. $stat_extra_msg += ' (submissive)'
  652. else
  653. $stat_extra_msg += ' (natural)'
  654. end
  655. gs 'indik', '1', 100 - pcs_inhib, 100 - pcs_inhib
  656. $stat_extra_msg += '<BR><<$ind>> Inhibition'
  657. gs 'indik', '1', pcs_stren, pcs_stren
  658. $stat_extra_msg += '<BR><<$ind>> Strength'
  659. gs 'indik', '1', pcs_agil, pcs_agil
  660. $stat_extra_msg += '<BR><<$ind>> Agility'
  661. gs 'indik', '1', pcs_vital, pcs_vital
  662. $stat_extra_msg += '<BR><<$ind>> Endurance'
  663. gs 'indik', '1', pcs_intel, pcs_intel
  664. $stat_extra_msg += '<BR><<$ind>> Intelligence'
  665. gs 'indik', '1', pcs_sprt, pcs_sprt
  666. $stat_extra_msg += '<BR><<$ind>> Spirit'
  667. gs 'indik', '1', pcs_react, pcs_react
  668. $stat_extra_msg += '<BR><<$ind>> Reaction'
  669. gs 'indik', '1', pcs_chrsm, pcs_chrsm
  670. $stat_extra_msg += '<BR><<$ind>> Charisma'
  671. gs 'indik', '1', pcs_prcptn, pcs_prcptn
  672. $stat_extra_msg += '<BR><<$ind>> Perception'
  673. if MagikDostup = 0:
  674. gs 'indik', '1', pcs_magik, pcs_magik
  675. $stat_extra_msg += '<BR><<$ind>> Magic'
  676. if succubusflag = 1:
  677. gs 'indik', '1', sucexcess, sucexcess
  678. $stat_extra_msg += '<BR><<$ind>> Succubus energy'
  679. end
  680. end
  681. gs 'indik', '1', pcs_apprnc / 2, pcs_apprnc
  682. $stat_extra_msg += '<BR><<$ind>> Attractiveness'
  683. if SchoolAtestat = 0 and StoryLine > 0:
  684. gs 'indik', '1', pcs_grades, pcs_grades
  685. $stat_extra_msg += '<BR><<$ind>> School Grades'
  686. end
  687. $stat_extra_msg += '<BR>'
  688. end
  689. end
  690. killvar '$st_temp'
  691. !!----------------▽Skills--------------------------
  692. if Enable_showskill = 0:
  693. $stat_tool_msg += ' <a href="exec:Enable_showskill = 1 & gs ''$menu_obnovit''">▽Skills</a>'
  694. else
  695. $stat_tool_msg += ' <a href="exec:Enable_showskill = 0 & gs ''$menu_obnovit''">▲Skills</a>'
  696. !!----------------------▲Skills display------------------------
  697. $stat_sktool_msg=''
  698. st_count=0
  699. $show_table=''
  700. !!----------------Mental skills--------------------------
  701. if Enable_show_mental_skill = 0:
  702. $stat_sktool_msg += ' <a href="exec:Enable_show_mental_skill = 1 & gs ''$menu_obnovit''">◇Mental</a>'
  703. else
  704. $stat_sktool_msg += ' <a href="exec:Enable_show_mental_skill = 0 & gs ''$menu_obnovit''">◆Mental</a>'
  705. if pcs_splcstng > 0 and MagikDostup = 0: gs 'show_table', '<<pcs_splcstng>> Spell Casting', '2'
  706. if pcs_humint > 0: gs 'show_table', '<<pcs_humint>> People skills', '2'
  707. if pcs_persuas > 0: gs 'show_table', '<<pcs_persuas>> Persuasion', '2'
  708. if pcs_observ > 0: gs 'show_table', '<<pcs_observ>> Observation', '2'
  709. end
  710. !!-----------------Sport skills--------------------------
  711. if Enable_show_sport_skill = 0:
  712. $stat_sktool_msg += ' <a href="exec:Enable_show_sport_skill = 1 & gs ''$menu_obnovit''">◇Sport</a>'
  713. else
  714. $stat_sktool_msg += ' <a href="exec:Enable_show_sport_skill = 0 & gs ''$menu_obnovit''">◆Sport</a>'
  715. if pcs_jab > 0: gs 'show_table', '<<pcs_jab>> Jabs', '2'
  716. if pcs_punch > 0: gs 'show_table', '<<pcs_punch>> Power Strikes', '2'
  717. if pcs_kick > 0: gs 'show_table', '<<pcs_kick>> Kicks', '2'
  718. if pcs_def > 0: gs 'show_table', '<<pcs_def>> Defence', '2'
  719. if pcs_run > 0: gs 'show_table', '<<pcs_run>> Running', '2'
  720. if pcs_vball > 0: gs 'show_table', '<<pcs_vball>> Volleyball', '2'
  721. if pcs_ftbll > 0: gs 'show_table', '<<pcs_ftbll>> Football', '2'
  722. if pcs_wrstlng > 0: gs 'show_table', '<<pcs_wrstlng>> Wrestling', '2'
  723. if pcs_shoot > 0: gs 'show_table', '<<pcs_shoot>> Marksmanship', '2'
  724. if pcs_bushcraft > 0: gs 'show_table', '<<pcs_bushcraft>> Bushcraft', '2'
  725. if pcs_chess > 0: gs 'show_table', '<<pcs_chess>> Chess', '2'
  726. if pcs_icesktng > 0: gs 'show_table', '<<pcs_icesktng>> Ice Skating', '2'
  727. if pcs_gaming > 0: gs 'show_table', '<<pcs_gaming>> Gaming', '2'
  728. if pcs_pool > 0: gs 'show_table', '<<pcs_pool>> Pool', '2'
  729. end
  730. !!-----------------Beauty/Modelling skills---------------
  731. if Enable_show_beauty_skill = 0:
  732. $stat_sktool_msg += ' <a href="exec:Enable_show_beauty_skill = 1 & gs ''$menu_obnovit''">◇Beauty</a>'
  733. else
  734. $stat_sktool_msg += ' <a href="exec:Enable_show_beauty_skill = 0 & gs ''$menu_obnovit''">◆Beauty</a>'
  735. if pcs_makupskl > 0: gs 'show_table', '<<pcs_makupskl>> Makeup Skill', '2'
  736. if pcs_danc > 0: gs 'show_table', '<<pcs_danc>> Modern Dancing', '2'
  737. if pcs_dancero > 0: gs 'show_table', '<<pcs_dancero>> Erotic Dancing', '2'
  738. if pcs_dancpol > 0: gs 'show_table', '<<pcs_dancpol>> Pole Dancing', '2'
  739. if pcs_mdlng > 0: gs 'show_table', '<<pcs_mdlng>> Modelling', '2'
  740. if pcs_heels > 0: gs 'show_table', '<<pcs_heels>> Heels', '2'
  741. end
  742. !!---------------------Artistic skills-------------------
  743. if Enable_show_art_skill = 0:
  744. $stat_sktool_msg += ' <a href="exec:Enable_show_art_skill = 1 & gs ''$menu_obnovit''">◇Artistic</a>'
  745. else
  746. $stat_sktool_msg += ' <a href="exec:Enable_show_art_skill = 0 & gs ''$menu_obnovit''">◆Artistic</a>'
  747. if pcs_vokal > 0: gs 'show_table', '<<pcs_vokal>> Singing', '2'
  748. if pcs_instrmusic > 0: gs 'show_table', '<<pcs_instrmusic>> Instrumental Music', '2'
  749. if pcs_photoskl > 0: gs 'show_table', '<<pcs_photoskl>> Photography', '2'
  750. if pcs_artskls > 0: gs 'show_table', '<<pcs_artskls>> Artistic Skills', '2'
  751. end
  752. !!----------------------Job skills------------------------
  753. if Enable_show_job_skill = 0:
  754. $stat_sktool_msg += ' <a href="exec:Enable_show_job_skill = 1 & gs ''$menu_obnovit''">◇Job</a>'
  755. else
  756. $stat_sktool_msg += ' <a href="exec:Enable_show_job_skill = 0 & gs ''$menu_obnovit''">◆Job</a>'
  757. if pcs_cleaning > 0: gs 'show_table', '<<pcs_cleaning>> Cleaning Skill', '2'
  758. if pcs_compskl > 0: gs 'show_table', '<<pcs_compskl>> Computer Skill', '2'
  759. if pcs_comphckng > 0: gs 'show_table', '<<pcs_comphckng>> Hacking', '2'
  760. if pcs_hndiwrk > 0: gs 'show_table', '<<pcs_hndiwrk>> Handy-work', '2'
  761. if pcs_sewng > 0: gs 'show_table', '<<pcs_sewng>> Tailoring', '2'
  762. if pcs_servng > 0: gs 'show_table', '<<pcs_servng>> Serving', '2'
  763. if pcs_medcn > 0: gs 'show_table', '<<pcs_medcn>> Medicine', '2'
  764. if workPTU > 1: gs 'show_table','<<teachlevel>> Teacher credibility','2'
  765. end
  766. !skip if this is first message
  767. if $stat_extra_msg ! null:
  768. $stat_extra_msg += '<br><a href="exec:Enable_showskill = 0 & gs ''$menu_obnovit''">▲Skills:</a> <<$stat_sktool_msg>>'
  769. else
  770. $stat_extra_msg += '<br><<$stat_sktool_msg>>'
  771. end
  772. if st_count > 0 :
  773. $stat_extra_msg += '<BR><TABLE BORDER=1><<$show_table>></TR></TABLE>'
  774. end
  775. end
  776. killvar 'stat_sktool_msg'
  777. killvar 'stat_skextra_msg'
  778. !!----------------▽relations--------------------------
  779. if Enable_showrelation = 0:
  780. $stat_tool_msg += ' <a href="exec:Enable_showrelation = 1 & gs ''$menu_obnovit''">▽Relations</a>'
  781. else
  782. $stat_tool_msg += ' <a href="exec:Enable_showrelation = 0 & gs ''$menu_obnovit''">▲Relations</a>'
  783. st_count=0
  784. $show_table=''
  785. if npc_QW['A192'] > 0:gs'show_table','Nastja: <<npc_QW[''A192'']>>','2'
  786. if npc_rel['A218'] > 0:gs'show_table','Tanya: <<npc_rel[''A218'']>>','2'
  787. if npc_rel['A219'] > 0:gs'show_table','Kat: <<npc_rel[''A219'']>>','2'
  788. if npc_rel['A220'] > 0:gs'show_table','Vika: <<npc_rel[''A220'']>>','2'
  789. if npc_rel['A93'] > 0:gs'show_table','Ira: <<npc_rel[''A93'']>>','2'
  790. if npc_rel['A43'] > 0:gs'show_table','Tamara: <<npc_rel[''A43'']>>','2'
  791. if alla > 0:gs'show_table','Alla: <<alla>>','2'
  792. if masha > 0:gs'show_table','Masha: <<masha>>','2'
  793. if npc_rel['A41'] > 0:gs'show_table','Givi Karapetovich: <<npc_rel[''A41'']>>','2'
  794. if npc_rel['A42'] > 0:gs'show_table','Ashot: <<npc_rel[''A42'']>>','2'
  795. if afra > 0:gs'show_table','Blacks: <<afra>>','2'
  796. if Rex > 0:gs'show_table','Rex: <<Rex>>','2'
  797. if npc_rel['A217'] > 0:gs'show_table','Pavlin: <<npc_rel[''A217''] >>','2'
  798. if npc_rel['A69'] > 0:gs'show_table','Mikhail Nikolaevich: <<npc_rel[''A69'']>>','2'
  799. if npc_rel['A89'] > 0:gs'show_table','Eugene: <<npc_rel[''A89'']>>','2'
  800. if npc_rel['A112'] > 0:gs'show_table','Sergei Shulgin: <<npc_rel[''A112'']>>','2'
  801. if npc_rel['A11'] > 0:gs'show_table','Vasily Shulgin: <<npc_rel[''A11'']>>','2'
  802. if huntersAndreiQw > 0:gs'show_table','Hunter Andrew: <<huntersAndreiQw>>','2'
  803. if huntersSergeiQw > 0:gs'show_table','Hunter Sergei: <<huntersSergeiQw>>','2'
  804. if huntersIgorQw > 0:gs'show_table','Hunter Igor: <<huntersIgorQw>>','2'
  805. if pcs_lovers[0] = 1:gs'show_table', 'BF <<$loverdesc[0]>>: <<loverrelation[0]>>','2'
  806. if pcs_lovers[1] = 1:gs'show_table', 'BF <<$loverdesc[1]>>: <<loverrelation[1]>>','2'
  807. if pcs_lovers[2] = 1:gs'show_table', 'BF <<$loverdesc[2]>>: <<loverrelation[2]>>','2'
  808. if StoryLine > 0:
  809. if npc_rel['A29'] > 0:gs'show_table','Mother: <<npc_rel[''A29'']>>','2'
  810. if npc_rel['A28'] > 0:gs'show_table','Father: <<npc_rel[''A28'']>>','2'
  811. if npc_rel['A33'] > 0:gs'show_table','Sister: <<npc_rel[''A33'']>>','2'
  812. if npc_rel['A34'] > 0:gs'show_table','Brother: <<npc_rel[''A34'']>>','2'
  813. end
  814. if st_count > 0 :
  815. !skip if this is first message
  816. if $stat_extra_msg ! null: $stat_extra_msg += '<BR><a href="exec:Enable_showrelation = 0 & gs ''$menu_obnovit''">▲Relations:</a>'
  817. $stat_extra_msg += '<BR><TABLE BORDER=1> <<$show_table>></TR></TABLE>'
  818. end
  819. end
  820. !!----------------▽image, default to toolbar, can move to top or bottom from setting--------------------------
  821. if Enable_statimg_loc = 0:
  822. if Enable_showstatimg = 0:
  823. $stat_tool_msg += ' <a href="exec:Enable_showstatimg = 1 & gs ''$menu_obnovit''">▽Image</a>'
  824. else
  825. $stat_tool_msg += ' <a href="exec:Enable_showstatimg = 0 & gs ''$menu_obnovit''">▲Image</a>'
  826. !skip if this is first message
  827. if $stat_extra_msg ! null:
  828. $stat_extra_msg += '<br><a href="exec:Enable_showstatimg = 0 & gs ''$menu_obnovit''">▲Image:</a> <<$stat_imgtool_msg>>'
  829. else
  830. $stat_extra_msg += '<br><<$stat_imgtool_msg>>'
  831. end
  832. $stat_extra_msg += '<br><<$stat_imgextra_msg>>'
  833. end
  834. end
  835. if enable_extra_msg = 0:
  836. $stat_tool_msg += ' <a href="exec: enable_extra_msg = 1 & gs ''stat'' ">▽Special</a>'
  837. else
  838. $stat_tool_msg += ' <a href="exec: enable_extra_msg = 0 & gs ''stat''">▲Special</a>'
  839. end
  840. !all end, push back and clean up
  841. $stat_msg += '<br>'
  842. $stat_msg += func('cleanHTML',$stat_tool_msg)
  843. if $stat_extra_msg ! NULL : $stat_msg += func('cleanHTML',$stat_extra_msg)
  844. $stat_msg += '<br>'
  845. killvar 'stat_tool_msg'
  846. killvar 'stat_extra_msg'
  847. !!----------------Extra messages, End--------------------------
  848. if enable_extra_msg = 1:
  849. if opPRE = 0: $stat_msg += '<BR><<$pcs_makeup>> and your hair is <<$pcs_hairbsh>>.' & !$stat_msg += '<BR>'
  850. if thinkpreg = 0 and knowpreg = 0 and cycle ! 6 and pillcon2 <= 30000 and succubusflag ! 1 and cheatSlut = 0 and mesec = 0:
  851. if abortionbirthdate = 0 and daystart - lastmens > 28:
  852. if (daystart - lastmens > 28) and (daystart - lastmens <= 35):
  853. $stat_msg += '<BR><font color = #AB052A><b>Your period is late by <<daystart - lastmens - 28>> days.</b></font>'
  854. elseif (daystart - lastmens > 35) and (daystart - lastmens <= 42):
  855. $stat_msg += '<BR><font color = #AB052A><b>Your period is late by more than a week!</b></font>'
  856. elseif (daystart - lastmens > 42) and (daystart - lastmens <= 56):
  857. $stat_msg += '<BR><font color = #AB052A><b>Your period is late by more than two weeks! Maybe you should see a doctor?</b></font>'
  858. elseif (daystart - lastmens > 56) and (daystart - lastmens <= 84):
  859. $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>'
  860. elseif daystart - lastmens > 84:
  861. $stat_msg += '<BR><font color = #AB052A><b>You should consider the possibility of a pregnancy, since apparently you no longer have periods.</b></font>'
  862. end
  863. !!Recovery period after an abortion is ~14-21 days
  864. elseif abortionbirthdate ! 0 and daystart - abortionbirthdate <= 13:
  865. $stat_msg += '<BR><font color = #705243><b>You are still in your recovery period. Nothing to worry about.</b></font>'
  866. elseif abortionbirthdate ! 0 and daystart - abortionbirthdate > 13 and daystart - abortionbirthdate <= 16:
  867. $stat_msg += '<BR><font color = #705243><b>You are maybe still in your recovery period, but there could be a risk.</b></font>'
  868. elseif abortionbirthdate ! 0 and daystart - abortionbirthdate > 16 and daystart - abortionbirthdate <= 21:
  869. $stat_msg += '<BR><font color = #820000><b>You should have recovered from you abortion by know... Right?</b></font>'
  870. elseif abortionbirthdate ! 0 and daystart - abortionbirthdate > 21:
  871. $stat_msg += '<BR><font color = #820000><b>You should have definitely recovered from your abortion by now.</b></font>'
  872. !!Recovery period after giving birth is ~42-70 days
  873. elseif pregbirthdate ! 0 and daystart - pregbirthdate <= 41:
  874. $stat_msg += '<BR><font color = #705243><b>You are still in your recovery period. Nothing to worry about.</b></font>'
  875. elseif pregbirthdate ! 0 and daystart - pregbirthdate > 41 and daystart - pregbirthdate <= 48:
  876. $stat_msg += '<BR><font color = #705243><b>You are probably still in your recovery period.</b></font>'
  877. elseif pregbirthdate ! 0 and daystart - pregbirthdate > 48 and daystart - pregbirthdate <= 55:
  878. $stat_msg += '<BR><font color = #705243><b>You are maybe still in your recovery period, but there could be a risk.</b></font>'
  879. elseif pregbirthdate ! 0 and daystart - pregbirthdate > 55 and daystart - pregbirthdate <= 70:
  880. $stat_msg += '<BR><font color = #820000><b>You should have recovered by know... Right?</b></font>'
  881. elseif pregbirthdate ! 0 and daystart - pregbirthdate > 70:
  882. $stat_msg += '<BR><font color = #820000><b>You should have definitely recovered from giving birth by now.</b></font>'
  883. end
  884. end
  885. if implant_day > 0 and ((daystart - implant_day) * 24 + hour - implant_hour) < 5:
  886. $stat_msg += '<BR><font color=#AB052A>You feel a slight twinge in your abdomen.</font>'
  887. end
  888. if mesec > 0:
  889. $stat_msg += '<BR><font color="red">You are currently having your period. '
  890. if isprok = 0 and isprokp = 0:
  891. $stat_msg += 'You need to use your feminine hygiene products.'
  892. elseif isprokp = 1 and $pantyworntype = 'none':
  893. isprokp = 0
  894. $stat_msg += 'You need to wear panties to use a sanitary pad.'
  895. end
  896. $stat_msg += '</font>'
  897. elseif placebopart > 0 and LutH > 0 and knowpreg = 0:
  898. $stat_msg += '<BR><font color="red">Your period is due to start soon.'
  899. $stat_msg += '</font>'
  900. end
  901. if $cycreport_txt ! null and menu_off = 0:
  902. $stat_msg += '<BR><a href="exec:dynamic $d_cycreport_choice"><<$cycreport_txt>></a><br>'
  903. elseif $cycreport_txt ! null and menu_off = 1:
  904. $stat_msg += '<BR><a href="exec:gs ''obj_din'', ''menu_disabled''"><<$cycreport_txt>></a><br>'
  905. end
  906. !!if shame > 0:$stat_msg += '<BR><<$shame>>' & $stat_msg += '<BR>'
  907. if $pcs_mood ! '': $stat_msg += '<BR><font color="green"><b><<$pcs_mood>></b></font>'
  908. if mentats_dose >= 1: $stat_msg += '<BR><font color = green>You feel sharp and focused.</font>'
  909. if bcream_used = 1: $stat_msg += '<BR><font color = #DB7093>Your breasts are feeling hot and tingly.</font>'
  910. if aphrodisiac_timer > 0: $stat_msg += '<BR><font color = #DB7093>You are feeling hot and every move causes your groin to tingle.</font>'
  911. if cheatNoEat = 0:
  912. if pcs_energy < 5:
  913. $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>'
  914. elseif pcs_energy < 10:
  915. $stat_msg += '<BR><font color="red">You are starving, you really need to have something to eat.</font>'
  916. elseif pcs_energy < 20:
  917. $stat_msg += '<BR>You are very hungry and struggle to concentrate on anything other than food.'
  918. elseif pcs_energy < 30:
  919. $stat_msg += '<BR>You feel peckish and your thoughts sometimes drift towards food.'
  920. end
  921. end
  922. if cheatNoDrink = 0:
  923. if pcs_hydra < 5:
  924. $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>'
  925. elseif pcs_hydra < 10:
  926. $stat_msg += '<BR><font color="red">You are dehydrated, you really need to have something to drink.</font>'
  927. elseif pcs_hydra < 20:
  928. $stat_msg += '<BR>You are thirsty and your dry throat is irritating and distracting you.'
  929. elseif pcs_hydra < 30:
  930. $stat_msg += '<BR>You feel a little thirsty and your mouth is a little dry.'
  931. end
  932. end
  933. if cheatNoSleep= 0:
  934. if pcs_sleep < 5:
  935. $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>'
  936. elseif pcs_sleep < 10:
  937. $stat_msg += '<BR><font color="red">You are exhausted, you really need to go to bed soon.</font>'
  938. elseif pcs_sleep < 20:
  939. $stat_msg += '<BR>You are tired and you are struggling to concentrate.'
  940. elseif pcs_sleep < 30:
  941. $stat_msg += '<BR>You feel a little tired.'
  942. end
  943. end
  944. if pcs_horny >= 50:
  945. if pcs_horny < 90 and $pantyworntype ! 'none':
  946. $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>'
  947. elseif pcs_horny < 90 and $pantyworntype = 'none':
  948. $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>'
  949. elseif $pantyworntype ! 'none':
  950. $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>'
  951. else
  952. $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>'
  953. end
  954. end
  955. if smoker >= 20 and NarkImmune = 0:
  956. if smokerNeed > 0:
  957. if siga > 0:
  958. $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>'
  959. else
  960. $stat_msg += '<BR><font color="red"><b>You want to smoke, but you have no cigarettes left.</b></font><BR>'
  961. end
  962. else
  963. if siga > 0:
  964. $stat_msg += '<BR><a href="exec:gs ''drugs'',''smoke''"><font color=#0064FF><b>You have <<siga>> cigarettes left.</b></font></a><BR>'
  965. else
  966. $stat_msg += '<BR><font color=#0064FF><b>You feel like you should get some cigarettes.</b></font><BR>'
  967. end
  968. end
  969. elseif siga > 0:
  970. $stat_msg += '<BR><a href="exec:gs ''drugs'',''smoke''"><font color=#0064FF><b>You have <<siga>> cigarettes.</b></font></a><BR>'
  971. end
  972. if smokeHour = hour and smokeday = daystart and smokeminut >= minut: $stat_msg += '<BR><font color="green">You are smoking a cigarette.</font><BR>'
  973. if jointhour = hour and jointday = daystart and jointminut >= minut: $stat_msg += '<BR><font color="green">You are smoking a joint.</font><BR>'
  974. if cheatNoSweat = 0:
  975. if pcs_sweat < 0:
  976. pcs_sweat = 0
  977. elseif pcs_sweat > 69:
  978. pcs_sweat = 69
  979. end
  980. if pcs_sweat > 59:
  981. $stat_msg += '<br><b><font color="red">You are dripping wet from sweat and smell like a gym sock.</font></b><br>'
  982. elseif pcs_sweat > 49:
  983. $stat_msg += '<br><b><font color="red">You really stink.</font></b>'
  984. elseif pcs_sweat > 39:
  985. $stat_msg += '<br><font color="red">You stink.</font>'
  986. elseif pcs_sweat > 29:
  987. $stat_msg += '<br><font color="red">You are a little smelly.</font>'
  988. elseif pcs_sweat > 19:
  989. $stat_msg += '<br><font color="brown">You''re sweating.</font>'
  990. elseif pcs_sweat > 9 and deodorant_on = 1:
  991. $stat_msg += '<br><b><font color="green">You feel fresh with your deodorant.</font>'
  992. else
  993. if arrsize('sparrvol') = 0:
  994. $stat_msg += '<br><b><font color="green">You are sparkling clean.</font></b>'
  995. elseif deodorant_on = 1:
  996. $stat_msg += '<br><b><font color="green">You feel fresh with your deodorant on.</font></b>'
  997. end
  998. end
  999. end
  1000. !! breast status
  1001. gs 'lact_lib','breast_stat_disp'
  1002. if body_write > 0 or face_write > 0:
  1003. if body_write > 1 and face_write = 0:
  1004. $stat_msg += '<br><b><font color = red>Your body is inscribed with derogatory graffiti.</font></b>'
  1005. elseif body_write = 1 and face_write = 0:
  1006. $stat_msg += '<br><b><font color = red>Your body is an obscene sign.</font></b>'
  1007. elseif body_write = 0 and face_write > 1:
  1008. $stat_msg += '<br><b><font color = red>Your face is covered with writing obscene epithets.</font></b>'
  1009. elseif body_write = 0 and face_write = 1:
  1010. $stat_msg += '<br><b><font color = red>On your face humiliating label.</font>'
  1011. else
  1012. $stat_msg += '<br><b><font color = red>Your body and face painted with obscene graffiti.</font></b>'
  1013. end
  1014. end
  1015. if recuperation = 1: $stat_msg += '<b><font color="red">You are still recovering from major surgery.</font></b>'
  1016. end
  1017. !!------------------------ Cum management (Start) ------------------------------
  1018. if Enable_clearcum > 0: gs 'cum_cleanup', 'reset'
  1019. killvar 'cumvolume'
  1020. killvar 'i'
  1021. killvar 'knownguy'
  1022. killvar 'cumcount'
  1023. killvar 'cumowner'
  1024. if arrsize('sparrvol') > 0:
  1025. !!go through every location
  1026. :locationloop
  1027. !!start from the freshest load
  1028. idx = arrsize('sparrloc')-1
  1029. :spermitemloop
  1030. !!if the currently examined load loaction is the location of the current cycle, execute
  1031. if sparrloc[idx] = i:
  1032. !!setting the age of the current load
  1033. !! 0: mouth
  1034. !! 1: in this hour
  1035. !! 2: in four hours
  1036. !! 3: at least five hours ago
  1037. !! 4: in body (pussy or ass)
  1038. !! 5: no more than 12 hours in condom
  1039. !! 6: no more than 48 hours in condom
  1040. !! 7: more than two days old, in condom
  1041. if i = 12:
  1042. j = 0
  1043. elseif i = 17:
  1044. if sparrage[idx] <= 12:
  1045. j = 5
  1046. elseif sparrage[idx] <= 48:
  1047. j = 6
  1048. else
  1049. j = 7
  1050. end
  1051. elseif i = 0 or i = 3:
  1052. j = 4
  1053. else
  1054. if sparrage[idx] <= 1:
  1055. j = 1
  1056. elseif sparrage[idx] <= 5:
  1057. j = 2
  1058. else
  1059. j = 3
  1060. end
  1061. end
  1062. cumvolume['<<i>>:<<j>>'] += sparrvol[idx]
  1063. if sparrvol[idx] > 0:
  1064. if sparridt[idx] = 0:
  1065. !!unknown partner
  1066. cumcount['<<i>>:<<j>>'] += 1
  1067. elseif sparridt[idx] = 1:
  1068. !!known partner
  1069. !!storing the name of the cum owner (format: $cumowner[<cum location>:<age of cum>:<index of cum owner>])
  1070. if knownguy['<<i>>:<<j>>'] > 0:
  1071. gchk = 0
  1072. :sameguycheck
  1073. if $cumowner['<<i>>:<<j>>:<<gchk>>'] ! $sparrnam[idx] and gchk <= knownguy['<<i>>:<<j>>']:gchk += 1 & jump 'sameguycheck'
  1074. if gchk > knownguy['<<i>>:<<j>>']:
  1075. $cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
  1076. knownguy['<<i>>:<<j>>'] += 1
  1077. cumcount['<<i>>:<<j>>'] += 1
  1078. end
  1079. else
  1080. $cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
  1081. knownguy['<<i>>:<<j>>'] += 1
  1082. cumcount['<<i>>:<<j>>'] += 1
  1083. end
  1084. end
  1085. end
  1086. end
  1087. if idx > 0:idx -= 1 & jump 'spermitemloop'
  1088. if i < 18:i += 1 & jump 'locationloop'
  1089. killvar 'i'
  1090. killvar 'idx'
  1091. killvar 'j'
  1092. end
  1093. !!Clearing cum location array before positive entries are applied below in the icon and the text message codes
  1094. killvar 'cumloc'
  1095. $stat_cum_msg = ''
  1096. $stat_visible_cum_temp = ''
  1097. stat_visible_cum = 0
  1098. stat_cumloc_check = 0
  1099. i = 0
  1100. :cumlocloop
  1101. if i = 0:
  1102. $icon_txtloc = 'your pussy'
  1103. $txtloc = 'your <a href="exec:view''images/pc/body/cum/creampie/cumpussy'+rand(1,14)+'.jpg''">pussy</a>'
  1104. elseif i = 1:
  1105. $icon_txtloc = 'your labia'
  1106. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumpussy/cumpus'+rand(1,4)+'.jpg''">labia</a>'
  1107. elseif i = 2:
  1108. $txtloc = 'the front of your panties'
  1109. $icon_txtloc = $txtloc
  1110. elseif i = 3:
  1111. $icon_txtloc = 'your ass'
  1112. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumanal/cumanal'+rand(1,11)+'.jpg''">ass</a>'
  1113. elseif i = 4:
  1114. $icon_txtloc = 'your butt'
  1115. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumass/cumass'+rand(1,6)+'.jpg''">butt</a>'
  1116. elseif i = 5:
  1117. $txtloc = 'the back of your panties'
  1118. $icon_txtloc = $txtloc
  1119. elseif i = 6:
  1120. if cumvolume['<<i>>:<<j>>'] > 0:
  1121. stat_visible_cum = 1
  1122. if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
  1123. $stat_visible_cum_temp += 'your clothes near your groin'
  1124. end
  1125. $icon_txtloc = 'your clothes near your groin'
  1126. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/'+rand(1,3)+'.jpg''">clothes near your groin</a>'
  1127. elseif i = 7:
  1128. if cumvolume['<<i>>:<<j>>'] > 0:
  1129. stat_visible_cum = 1
  1130. if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
  1131. $stat_visible_cum_temp += 'your clothes'
  1132. end
  1133. $icon_txtloc = 'your clothes'
  1134. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/cumclothes'+rand(1,21)+'.jpg''">clothes</a>'
  1135. elseif i = 8:
  1136. $txtloc = 'your back'
  1137. $icon_txtloc = $txtloc
  1138. elseif i = 9:
  1139. $txtloc = 'your legs'
  1140. $icon_txtloc = $txtloc
  1141. elseif i = 10:
  1142. $txtloc = 'your arms'
  1143. $icon_txtloc = $txtloc
  1144. elseif i = 11:
  1145. if pcs_haircol = 0:
  1146. $cum_face_image = 'brown/'
  1147. $cum_face_image += rand(1, 31)
  1148. elseif pcs_haircol = 1:
  1149. $cum_face_image = 'black/'
  1150. $cum_face_image += rand(1, 23)
  1151. elseif pcs_haircol = 2:
  1152. $cum_face_image = 'red/'
  1153. $cum_face_image += rand(1, 19)
  1154. elseif pcs_haircol = 3:
  1155. $cum_face_image = 'blonde/'
  1156. $cum_face_image += rand(1, 25)
  1157. elseif pcs_haircol > 3:
  1158. $cum_face_image = 'custom/'
  1159. $cum_face_image += rand(1, 20)
  1160. end
  1161. if cumvolume['<<i>>:<<j>>'] > 0:
  1162. stat_visible_cum = 1
  1163. if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
  1164. $stat_visible_cum_temp += 'your face'
  1165. end
  1166. $icon_txtloc = 'your face'
  1167. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumface/<<$cum_face_image>>.jpg''">face</a>'
  1168. killvar 'cum_face_image'
  1169. elseif i = 13:
  1170. if cumvolume['<<i>>:<<j>>'] > 0:
  1171. stat_visible_cum = 1
  1172. if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
  1173. $stat_visible_cum_temp += 'your hands'
  1174. end
  1175. $txtloc = 'your hands'
  1176. $icon_txtloc = $txtloc
  1177. elseif i = 14:
  1178. $icon_txtloc = 'your stomach'
  1179. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumbelly/cumbelly'+rand(1,12)+'.jpg''">stomach</a>'
  1180. elseif i = 15:
  1181. $icon_txtloc = 'your breasts'
  1182. $txtloc = 'your <a href="exec:view''images/pc/body/cum/cumtits/cumtits'+rand(1,19)+'.jpg''">breasts</a>'
  1183. elseif i = 16:
  1184. if cumvolume['<<i>>:<<j>>'] > 0:
  1185. stat_visible_cum = 1
  1186. if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
  1187. $stat_visible_cum_temp += 'your hair'
  1188. end
  1189. $icon_txtloc = 'your hair'
  1190. $txtloc = 'your hair</a>'
  1191. elseif i = 17:
  1192. $txtloc = 'in your vagina in a slipped condom'
  1193. $icon_txtloc = $txtloc
  1194. else
  1195. $icon_txtloc = 'the gusset of your panties'
  1196. $txtloc = 'the gusset of your panties</a>'
  1197. end
  1198. j = 0
  1199. :ageloop
  1200. if cumvolume['<<i>>:<<j>>'] > 0:
  1201. !!Cum locations set for checking npc reactions
  1202. cumloc[i] = 1
  1203. if stat_cumloc_check ! 1: stat_cumloc_check = 1
  1204. !!amount setting
  1205. if cumvolume['<<i>>:<<j>>'] > 250:
  1206. !! 25 ml, about four-five load, gushing
  1207. $txtamount = 'Enormous '
  1208. elseif cumvolume['<<i>>:<<j>>'] > 100:
  1209. !! 10 ml, about two load, flowing
  1210. $txtamount = 'Huge '
  1211. elseif cumvolume['<<i>>:<<j>>'] >= 20:
  1212. !! 2 ml, seeping out
  1213. $txtamount = 'Decent '
  1214. else
  1215. !! residue amount, no leakage
  1216. $txtamount = 'Small '
  1217. end
  1218. !! if sperm age stage is 4, it means inside the body
  1219. if j = 4:
  1220. if (vibratorIN = 1 and i = 0) or (analplugin = 1 and i = 3):
  1221. $txtproxy = 'being plugged in '
  1222. elseif i = 0 and cumvolume['<<i>>:<<j>>'] < pcs_vag*5:
  1223. $txtproxy = 'staying inside of '
  1224. elseif i = 3 and pcs_ass <= 25:
  1225. $txtproxy = 'staying inside of '
  1226. else
  1227. if cumvolume['<<i>>:<<j>>'] > 250:
  1228. $txtproxy = 'gushing out of '
  1229. elseif cumvolume['<<i>>:<<j>>'] > 100:
  1230. $txtproxy = 'flowing out of '
  1231. elseif cumvolume['<<i>>:<<j>>'] >= 40:
  1232. $txtproxy = 'seeping out of '
  1233. else
  1234. $txtproxy = 'staying inside of '
  1235. end
  1236. end
  1237. elseif j >= 5:
  1238. !! if sperm age stage is over 4, meaning in condom
  1239. if j = 5:
  1240. $txtproxy = 'buried '
  1241. elseif j = 6:
  1242. $txtproxy = 'marinating '
  1243. else
  1244. $txtproxy = 'rotting '
  1245. end
  1246. if cumcondslip_deep > (vagina / 2): $txtproxy += 'deep '
  1247. elseif j < 4 and j > 0:
  1248. !!amount setting
  1249. if cumvolume['<<i>>:<<j>>'] > 160:
  1250. !! 10 ml, about two load, flowing
  1251. $txtproxy = 'coating '
  1252. elseif cumvolume['<<i>>:<<j>>'] > 40:
  1253. !! 2 ml, seeping out
  1254. $txtproxy = 'covering '
  1255. else
  1256. !! residue amount, no leakage
  1257. $txtproxy = 'spattering '
  1258. end
  1259. if j = 1:
  1260. $txtproxy += 'wetly '
  1261. elseif j = 2:
  1262. $txtproxy += 'dryly '
  1263. else
  1264. $txtproxy += 'powderly '
  1265. end
  1266. end
  1267. $txtperson = ''
  1268. if cumcount['<<i>>:<<j>>'] = 0:
  1269. !!ToDo: No idea how to do the icon here (julzor)
  1270. $txtiscum = 'some whitish substance '
  1271. else
  1272. $txtiscum = 'cum'
  1273. if cumcount['<<i>>:<<j>>'] = knownguy['<<i>>:<<j>>']:
  1274. !! everyone is known (one or more)
  1275. if knownguy['<<i>>:<<j>>'] = 1:
  1276. $txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' '
  1277. else
  1278. kmax = 0
  1279. :nullocator1
  1280. if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator1'
  1281. kmax -= 1
  1282. k = 0
  1283. :knownloop
  1284. $txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']]
  1285. if k < kmax-1:$txtperson += ', ' & k += 1 & jump 'knownloop'
  1286. k += 1
  1287. $txtperson += ' and ' + $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ' '
  1288. end
  1289. elseif knownguy['<<i>>:<<j>>'] = 0:
  1290. !! no one is known (one or more)
  1291. if cumcount['<<i>>:<<j>>'] = 1:
  1292. $txtperson += 'some guy '
  1293. else
  1294. $txtperson += 'some guys '
  1295. end
  1296. else
  1297. !! there are known and unknown guys in the mix
  1298. if knownguy['<<i>>:<<j>>'] = 1:
  1299. $txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' and some guy'
  1300. else
  1301. kmax = 0
  1302. :nullocator2
  1303. if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator2'
  1304. kmax -= 1
  1305. k = 0
  1306. :mixloop
  1307. $txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ', '
  1308. if k < kmax: k += 1 & jump 'mixloop'
  1309. $txtperson += 'and some guy'
  1310. end
  1311. if cumcount['<<i>>:<<j>>'] - knownguy['<<i>>:<<j>>'] > 1:
  1312. $txtperson += 's '
  1313. else
  1314. $txtperson += ' '
  1315. end
  1316. end
  1317. end
  1318. $icon_txtiscum = $txtiscum
  1319. 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>'
  1320. $txtiscum += ' from '
  1321. $icon_txtiscum += ' from '
  1322. if i = 0 and j = 4 and vibratorIN = 0 and pcs_vag*10 < cumvolume['<<i>>:<<j>>'] and cumvolume['<<i>>:<<j>>'] >= 20:
  1323. if enable_extra_msg = 1: $stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + iif($pantyworntype ! 'none', ' into your panties.', ' down your legs.')+'</font></b>'
  1324. if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
  1325. $stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + iif($pantyworntype ! 'none', ' into your panties.', ' down your legs.')
  1326. elseif sparragestage >= 5:
  1327. if cumcondslip_aware > 0 and enable_extra_msg = 1: $stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
  1328. if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
  1329. $stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + '.'
  1330. elseif j ! 0:
  1331. if enable_extra_msg = 1: $stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
  1332. if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
  1333. $stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + '.'
  1334. else
  1335. if enable_extra_msg = 1: $stat_msg += '<BR><b><font color="red">Your breath smells like sperm.</font></b>'
  1336. if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
  1337. $stat_cum_msg += 'Your breath smells like sperm.'
  1338. end
  1339. end
  1340. if j < 7: j+=1 & jump 'ageloop'
  1341. if i < 18: i+=1 & jump 'cumlocloop'
  1342. killvar 'i'
  1343. killvar 'j'
  1344. killvar 'txtperson'
  1345. killvar 'k'
  1346. killvar 'kmax'
  1347. killvar 'txtamount'
  1348. killvar 'txtiscum'
  1349. killvar '$icon_txtiscum'
  1350. killvar 'txtperson'
  1351. killvar 'txtproxy'
  1352. killvar 'txtloc'
  1353. killvar '$icon_txtloc'
  1354. killvar 'cumvolume'
  1355. killvar 'cumcount'
  1356. killvar 'knownguy'
  1357. killvar 'cumowner'
  1358. if $stat_visible_cum_temp ! '':
  1359. $stat_visible_cum_msg = 'People can see the cum on '+ $stat_visible_cum_temp + '.'
  1360. else
  1361. $stat_visible_cum_msg = ''
  1362. end
  1363. !!----------------------- Cum management (End) ----------------------------------
  1364. if enable_extra_msg = 1:
  1365. !!stds
  1366. if Gerpes >= 10 and GenHerpes = 1:
  1367. $stat_msg += '<BR><b><font color="red">Sores have appeared on your vagina. You have genital herpes.</font></b>'
  1368. elseif Gerpes >= 5 and GenHerpes =1:
  1369. $stat_msg += '<BR><b><font color="red">Your vagina is red and very itchy. You have genital herpes.</font></b>'
  1370. elseif Gerpes >= 3 and Orerpes = 1:
  1371. $stat_msg += '<BR><b><font color="red">You have cold Sores on your lips. You have oral herpes.</font></b>'
  1372. end
  1373. if Gerpes >= 20 and GenHerpes =1:$stat_msg += '<BR> <b><font color="red">The herpes sores also cover your ass.</font></b>'
  1374. if Sifilis >= 50:
  1375. $stat_msg += '<BR><b><font color="red">Syphilitic rashes cover your whole body.</font></b>'
  1376. elseif Sifilis >= 21:
  1377. $stat_msg += '<BR><b><font color="red">You have a single large, hard sore on the lip. You have syphilis.</font></b>'
  1378. end
  1379. 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>'
  1380. 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>'
  1381. !!drug withdrawal
  1382. 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>'
  1383. 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 cocaine.</font></b>'
  1384. ! WD: Bimbo look
  1385. if bimbolevel > 0: $stat_msg += '<BR><<$bimbostatus>>'
  1386. if analplugIN = 1:$stat_msg += '<BR><font color = #FF1493>You have a butt plug inserted in your ass.</font>'
  1387. if vibratorin = 1:$stat_msg += '<BR><font color = #FF1493>You have a vibrator inserted in your vagina.</font>'
  1388. if alko > 0:
  1389. if alko = 1:
  1390. slut_bonus = 0
  1391. $stat_msg += '<br><b><font color="green"><<$stat_alko_msg>></font></b>'
  1392. elseif alko < 4:
  1393. slut_bonus = 10
  1394. $stat_msg += '<br><b><font color="orange"><<$stat_alko_msg>></font></b>'
  1395. elseif alko < 6:
  1396. slut_bonus = 20
  1397. $stat_msg += '<br><b><font color="orange"><<$stat_alko_msg>></font></b>'
  1398. elseif alko < 10:
  1399. slut_bonus = 30
  1400. $stat_msg += '<br><b><font color="red"><<$stat_alko_msg>></font></b>'
  1401. else
  1402. slut_bonus = 50
  1403. $stat_msg += '<br><b><font color="red"><<$stat_alko_msg>></font></b>'
  1404. end
  1405. else
  1406. killvar 'slut_bonus'
  1407. end
  1408. end
  1409. $stat_clothes_msg = ''
  1410. $stat_clothes_tooltip = ''
  1411. $stat_clothes_style = ''
  1412. $stat_bra_msg = ''
  1413. $stat_panty_msg = ''
  1414. if $clothingworntype ! 'nude':
  1415. if CloThinness = 6:
  1416. if $clothingworntype = 'swimwear':
  1417. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #FF00FF>Your nipples are clearly showing through your transparent swimsuit.</font>'
  1418. $stat_bra_msg = 'Your nipples are clearly showing through your transparent swimsuit.'
  1419. elseif $braworntype = 'exhibitionist':
  1420. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #FF00FF>Your breasts are fully on display through your transparent bra and top.</font>'
  1421. $stat_bra_msg = 'Your breasts are fully on display through your transparent bra and top.'
  1422. elseif $braworntype ! 'none':
  1423. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #FF00FF>Your bra is clearly showing through your transparent top.</font>'
  1424. $stat_bra_msg = 'Your bra is clearly showing through your transparent top.'
  1425. else
  1426. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #FF00FF>You are not wearing a bra and your breasts are fully on display through your transparent top.</font>'
  1427. $stat_bra_msg = 'You are not wearing a bra and your breasts are fully on display through your transparent top.'
  1428. end
  1429. elseif CloThinness = 5:
  1430. if $clothingworntype = 'swimwear':
  1431. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #AB052A>Your nipples are noticeably poking through your swimsuit.</font>'
  1432. $stat_bra_msg = 'Your nipples are noticeably poking through your swimsuit.'
  1433. elseif $braworntype = 'exhibitionist':
  1434. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #AB052A>You are wearing such a thin bra that your nipples are noticeably poking through the thin fabric of your top.</font>'
  1435. $stat_bra_msg = 'You are wearing such a thin bra that your nipples are noticeably poking through the thin fabric of your top.'
  1436. elseif $braworntype = 'none':
  1437. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #AB052A>You are not wearing a bra and your nipples are noticeably poking through the thin fabric of your top.</font>'
  1438. $stat_bra_msg = 'You are not wearing a bra and your nipples are noticeably poking through the thin fabric of your top.'
  1439. end
  1440. elseif CloThinness = 4:
  1441. if $clothingworntype = 'swimwear':
  1442. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #AB052A>Your nipples are very slightly poking through your swimsuit.</font>'
  1443. $stat_bra_msg = 'Your nipples are very slightly poking through your swimsuit.'
  1444. elseif $braworntype = 'exhibitionist':
  1445. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #AB052A>You are wearing such a thin bra that your nipples are subtly outlined through your top.</font>'
  1446. $stat_bra_msg = 'You are wearing such a thin bra that your nipples are subtly outlined through your top.'
  1447. elseif $braworntype = 'none':
  1448. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #AB052A>You are not wearing a bra and your nipples are being subtly outlined through your top.</font>'
  1449. $stat_bra_msg = 'You are not wearing a bra and your nipples are being subtly outlined through your top.'
  1450. end
  1451. elseif $braworntype = 'none':
  1452. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #AB052A>You are not wearing a bra.</font>'
  1453. $stat_bra_msg = 'You are not wearing a bra.'
  1454. end
  1455. end
  1456. if $pantyworntype = 'none' and $clothingworntype ! 'swimwear':
  1457. if PCloStyle = 4:
  1458. if enable_extra_msg = 1: $stat_msg += '<BR><font color= #FF00FF>You are not wearing panties, but you are dressed as a hooker, so that''s hardly surprising.</font>'
  1459. $stat_panty_msg = 'You are not wearing panties, but you are dressed as a hooker, so that''s hardly surprising.'
  1460. elseif PCloBimbo = 1 or bimbolevel > 0 and PCloSkirt > 3 and cheatBimbo = 0:
  1461. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #FF00FF>You like, totally forgot to put on any panties. You are such a bimbo.</font>'
  1462. $stat_panty_msg = 'You like, totally forgot to put on any panties. You are such a bimbo.'
  1463. elseif PCloSkirt > 3:
  1464. if pcs_inhib > 50:
  1465. if enable_extra_msg = 1: $stat_msg += '<BR><font color=#0064FF>You feel liberated not wearing panties as your naked ass flashes from under your short skirt.</font>'
  1466. $stat_panty_msg = 'You feel liberated not wearing panties as your naked ass flashes from under your short skirt.'
  1467. else
  1468. if enable_extra_msg = 1: $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>'
  1469. $stat_panty_msg = 'Your face is flushed with shame, you are not wearing panties and your naked ass flashes from under your short skirt.'
  1470. end
  1471. elseif PCloPants > 0:
  1472. if $braworntype = 'none':
  1473. if enable_extra_msg = 1: $stat_msg += '<BR><b><font color="red">You aren''t wearing underwear, and your bare pussy is rubbing against your clothing.</font></b>'
  1474. $stat_panty_msg = 'You aren''t wearing underwear, and your bare pussy is rubbing against your clothing.'
  1475. else
  1476. if enable_extra_msg = 1: $stat_msg += '<BR><b><font color="red">You aren''t wearing panties, and your bare pussy is rubbing against your clothing.</font></b>'
  1477. $stat_panty_msg = 'You aren''t wearing panties, and your bare pussy is rubbing against your clothing.'
  1478. end
  1479. elseif towel = 1:
  1480. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #AB052A>Your naked body is covered only by a short towel.</font>'
  1481. $stat_panty_msg = 'Your naked body is covered only by a short towel.'
  1482. elseif $clothingworntype ! 'nude':
  1483. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #AB052A>You are not wearing '+iif($braworntype = 'none', 'any underwear.', 'panties.')+'</font>'
  1484. $stat_panty_msg = 'You are not wearing '+iif($braworntype = 'none', 'any underwear.', 'panties.')
  1485. end
  1486. elseif $pantyworntype = 'exhibitionist' and $clothingworntype ! 'swimwear':
  1487. if PCloStyle = 4:
  1488. if enable_extra_msg = 1: $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>'
  1489. $stat_panty_msg = 'You are wearing see-through panties, but you are dressed as a hooker, so that''s hardly surprising.'
  1490. elseif PCloSkirt > 3:
  1491. if pcs_inhib > 50:
  1492. if enable_extra_msg = 1: $stat_msg += '<BR><font color=#0064FF>You feel liberated as your ass, clearly visible through your panties, flashes from under your short skirt.</font>'
  1493. $stat_panty_msg = 'You feel liberated as your ass, clearly visible through your panties, flashes from under your short skirt.'
  1494. else
  1495. if enable_extra_msg = 1: $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>'
  1496. $stat_panty_msg = '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.'
  1497. end
  1498. end
  1499. end
  1500. if $clothingworntype = 'nude':
  1501. if $pantyworntype = 'exhibitionist':
  1502. if $braworntype = 'none':
  1503. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #AB052A>You are only wearing your see-through panties and your boobs sway invitingly as you walk.</font>'
  1504. $stat_clothes_tooltip = 'You are wearing your see-through panties.'
  1505. $stat_clothes_msg = 'You are only wearing your see-through panties and your boobs sway invitingly as you walk.'
  1506. elseif $braworntype = 'exhibitionist':
  1507. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #AB052A>You are only wearing your see-through underwear.</font>'
  1508. $stat_clothes_tooltip = 'You are wearing your see-through underwear.'
  1509. $stat_clothes_msg = 'You are only wearing your see-through underwear.'
  1510. else
  1511. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #AB052A>You are only wearing your see-through panties and bra.</font>'
  1512. $stat_clothes_tooltip = 'You are wearing your see-through panties and bra.'
  1513. $stat_clothes_msg = 'You are only wearing your see-through panties and bra.'
  1514. end
  1515. elseif $pantyworntype ! 'none':
  1516. if $braworntype = 'none':
  1517. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #AB052A>You are only wearing your panties and your boobs sway invitingly as you walk.</font>'
  1518. $stat_clothes_tooltip = 'You are wearing your panties.'
  1519. $stat_clothes_msg = 'You are only wearing your panties and your boobs sway invitingly as you walk.'
  1520. elseif $braworntype = 'exhibitionist':
  1521. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #AB052A>You are only wearing your see-through bra and panties.</font>'
  1522. $stat_clothes_tooltip = 'You are wearing your see-through bra and panties.'
  1523. $stat_clothes_msg = 'You are only wearing your see-through bra and panties.'
  1524. else
  1525. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #AB052A>You are only wearing your underwear.</font>'
  1526. $stat_clothes_tooltip = 'You are wearing your underwear.'
  1527. $stat_clothes_msg = 'You are wearing your underwear.'
  1528. end
  1529. else
  1530. if $braworntype ! 'none':
  1531. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #AB052A>You are only wearing your bra, leaving your pussy and ass completely exposed.</font>'
  1532. $stat_clothes_tooltip = 'You are only wearing your bra.'
  1533. $stat_clothes_msg = 'You are only wearing your bra, leaving your pussy and ass completely exposed.'
  1534. else
  1535. if pcs_inhib < 5:
  1536. if enable_extra_msg = 1: $stat_msg += '<BR><b><font color = #AB052A>You are completely naked, and it makes you feel nervous and ashamed.</font></b>'
  1537. $stat_clothes_tooltip = 'You don''t like being naked.'
  1538. $stat_clothes_msg = 'You are completely naked, and it makes you feel nervous and ashamed.'
  1539. elseif pcs_inhib < 20:
  1540. if enable_extra_msg = 1: $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>'
  1541. $stat_clothes_tooltip = 'It''s a bit exciting to be naked.'
  1542. $stat_clothes_msg = 'You are completely naked, you''re not too comfortable with nudity but it is a little exciting.'
  1543. elseif pcs_inhib >= 90:
  1544. if enable_extra_msg = 1: $stat_msg += '<BR><b><font color=#0064FF>You are completely naked, which is far better than having to wear clothes.</font></b>'
  1545. $stat_clothes_tooltip = 'Being naked is far better than wearing clothes.'
  1546. $stat_clothes_msg = 'You are completely naked, which is far better than having to wear clothes.'
  1547. else
  1548. if enable_extra_msg = 1: $stat_msg += '<BR><b><font color = #FF00FF>You are completely naked. It''s exciting and you feel tingly inside.</font></b>'
  1549. $stat_clothes_tooltip = 'It''s exciting to be naked.'
  1550. $stat_clothes_msg = 'You are completely naked. It''s exciting and you feel tingly inside.'
  1551. end
  1552. end
  1553. end
  1554. $stat_clothes_style = 'nude'
  1555. elseif $clothingworntype = 'exercise':
  1556. if PCloBimbo = 1 and cheatBimbo = 0:
  1557. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #FF00FF>You are dressed as a bimbo</font>'
  1558. $stat_clothes_msg = 'You are wearing a gym outfit a bimbo would wear.'
  1559. $stat_clothes_tooltip = 'Bimbo gym outfit.'
  1560. $stat_clothes_style = 'exercise_b'
  1561. elseif CloInhibit >= 30:
  1562. $stat_clothes_msg = 'You''re wearing a revealing gym outfit.'
  1563. $stat_clothes_tooltip = 'Revealing gym outfit.'
  1564. $stat_clothes_style = 'exercise_s'
  1565. elseif CloInhibit >= 20:
  1566. $stat_clothes_msg = 'You''re wearing a slightly revealing gym outfit.'
  1567. $stat_clothes_tooltip = 'Slightly revealing gym outfit.'
  1568. $stat_clothes_style = 'exercise_s'
  1569. else
  1570. $stat_clothes_msg = 'You''re wearing a normal gym outfit.'
  1571. $stat_clothes_tooltip = 'Normal gym outfit.'
  1572. $stat_clothes_style = 'exercise'
  1573. end
  1574. elseif $clothingworntype = 'swimwear':
  1575. if (CloInhibit >= 50 or CloThinness = 6) and PCloBimbo = 1 and cheatBimbo = 0:
  1576. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #FF00FF>You are dressed as a bimbo</font>'
  1577. $stat_clothes_msg = 'You''re wearing an exhibitionist swimsuit a bimbo would wear.'
  1578. $stat_clothes_tooltip = 'Exhibitionist/Bimbo swimsuit.'
  1579. $stat_clothes_style = 'swimsuit_eb'
  1580. elseif (CloInhibit >= 50 or CloThinness = 6) and (PCloBimbo = 0 or cheatBimbo = 1):
  1581. $stat_clothes_msg = 'You are wearing an exhibitionist swimsuit.'
  1582. $$stat_clothes_tooltip = 'Exhibitionist swimsuit.'
  1583. $stat_clothes_style = 'swimsuit_e'
  1584. elseif PCloBimbo = 1 and cheatBimbo = 0:
  1585. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #FF00FF>You are dressed as a bimbo</font>'
  1586. $stat_clothes_msg = 'You are wearing a swimsuit a bimbo would wear.'
  1587. $stat_clothes_tooltip = 'Bimbo swimsuit.'
  1588. $stat_clothes_style = 'swimsuit_b'
  1589. elseif CloInhibit >= 40:
  1590. $stat_clothes_msg = 'You''re wearing a very revealing swimsuit.'
  1591. $stat_clothes_tooltip = 'Very revealing swimsuit.'
  1592. $stat_clothes_style = 'swimsuit_s'
  1593. elseif CloInhibit >= 30:
  1594. $stat_clothes_msg = 'You''re wearing a revealing swimsuit.'
  1595. $stat_clothes_tooltip = 'Revealing swimsuit.'
  1596. $stat_clothes_style = 'swimsuit_s'
  1597. elseif CloInhibit >= 25:
  1598. $stat_clothes_msg = 'You''re wearing a slightly revealing swimsuit.'
  1599. $stat_clothes_tooltip = 'Slightly revealing swimsuit.'
  1600. $stat_clothes_style = 'swimsuit_s'
  1601. else
  1602. $stat_clothes_msg = 'You''re wearing a normal swimsuit.'
  1603. $stat_clothes_tooltip = 'Normal swimsuit.'
  1604. $stat_clothes_style = 'swimsuit'
  1605. end
  1606. elseif $clothingworntype = 'office':
  1607. if PCloStyle = 4 and PCloBimbo = 1 and cheatBimbo = 0:
  1608. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #FF00FF>You are dressed as a bimbo</font>'
  1609. $stat_clothes_msg = 'You''re wearing an office dress a bimbo or a prostitute would wear.'
  1610. $stat_clothes_tooltip = 'Prostitute/Bimbo office dress.'
  1611. $stat_clothes_style = 'office_pb'
  1612. elseif PCloStyle = 4 and (PCloBimbo = 0 or cheatBimbo = 1):
  1613. $stat_clothes_msg = 'You''re wearing an office dress a prostitute would wear.'
  1614. $stat_clothes_tooltip = 'Prostitute office dress.'
  1615. $stat_clothes_style = 'office_p'
  1616. elseif (CloExhibit >= 40 or CloThinness = 6) and PCloBimbo = 1 and cheatBimbo = 0:
  1617. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #FF00FF>You are dressed as a bimbo</font>'
  1618. $stat_clothes_msg = 'You''re wearing an exhibitionist office dress a bimbo would wear.'
  1619. $stat_clothes_tooltip = 'Exhibitionist/Bimbo office office dress.'
  1620. $stat_clothes_style = 'office_eb'
  1621. elseif (CloExhibit >= 40 or CloThinness = 6) and (PCloBimbo = 0 or cheatBimbo = 1):
  1622. $stat_clothes_msg = 'You are wearing an exhibitionist office dress.'
  1623. $$stat_clothes_tooltip = 'Exhibitionist office dress.'
  1624. $stat_clothes_style = 'office_e'
  1625. elseif PCloBimbo = 1 and cheatBimbo = 0:
  1626. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #FF00FF>You are dressed as a bimbo</font>'
  1627. $stat_clothes_msg = 'You are wearing an office dress a bimbo would wear.'
  1628. $stat_clothes_tooltip = 'Bimbo office dress.'
  1629. $stat_clothes_style = 'office_b'
  1630. elseif CloExhibit >= 30:
  1631. $stat_clothes_msg = 'You''re wearing a very revealing office dress.'
  1632. $stat_clothes_tooltip = 'Very revealing office dress.'
  1633. $stat_clothes_style = 'office_s'
  1634. elseif CloExhibit >= 25:
  1635. $stat_clothes_msg = 'You''re wearing a revealing office dress.'
  1636. $stat_clothes_tooltip = 'Revealing office dress.'
  1637. $stat_clothes_style = 'office_s'
  1638. elseif CloExhibit >= 20:
  1639. $stat_clothes_msg = 'You''re wearing a slightly revealing office dress.'
  1640. $stat_clothes_tooltip = 'Slightly revealing office dress.'
  1641. $stat_clothes_style = 'office_s'
  1642. else
  1643. $stat_clothes_msg = 'You''re wearing a normal office dress.'
  1644. $stat_clothes_tooltip = 'Normal office dress.'
  1645. $stat_clothes_style = 'office'
  1646. end
  1647. elseif $clothingworntype = 'school':
  1648. if PCloStyle = 4 and PCloBimbo = 1 and cheatBimbo = 0:
  1649. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #FF00FF>You are dressed as a bimbo</font>'
  1650. $stat_clothes_msg = 'You''re wearing a school uniform a prostitute or bimbo would wear.'
  1651. $stat_clothes_msg = 'Prostitute/Bimbo school uniform'
  1652. $stat_clothes_style = 'uniform_pb'
  1653. elseif PCloStyle = 4 and (PCloBimbo = 0 or cheatBimbo = 1):
  1654. $stat_clothes_msg = 'You''re wearing a school uniform a prostitute would wear.'
  1655. $stat_clothes_tooltip = 'Prostitute school uniform.'
  1656. $stat_clothes_style = 'uniform_p'
  1657. elseif PCloBimbo = 1 and cheatBimbo = 0:
  1658. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #FF00FF>You are dressed as a bimbo</font>'
  1659. $stat_clothes_msg = 'You''re wearing a school uniform a bimbo would wear.'
  1660. $stat_clothes_tooltip = 'Bimbo school uniform.'
  1661. $stat_clothes_style = 'uniform_b'
  1662. elseif CloExhibit >= 30:
  1663. $stat_clothes_msg = 'You''re wearing a very revealing school uniform.'
  1664. $stat_clothes_tooltip = 'Very revealing school uniform.'
  1665. $stat_clothes_style = 'uniform_s'
  1666. elseif CloExhibit >= 25:
  1667. $stat_clothes_msg = 'You''re wearing a revealing school uniform.'
  1668. $stat_clothes_tooltip = 'Revealing school uniform.'
  1669. $stat_clothes_style = 'uniform_s'
  1670. elseif CloExhibit >= 20:
  1671. $stat_clothes_msg = 'You''re wearing a slightly revealing school uniform.'
  1672. $stat_clothes_tooltip = 'Slightly revealing school uniform.'
  1673. $stat_clothes_style = 'uniform_s'
  1674. else
  1675. $stat_clothes_msg = 'You''re wearing a normal school uniform.'
  1676. $stat_clothes_tooltip = 'Normal school uniform.'
  1677. $stat_clothes_style = 'uniform'
  1678. end
  1679. elseif $clothingworntype = 'cheap' and clothingwornnumber = '414':
  1680. if enable_extra_msg = 1: $stat_msg += '<BR><b><font color = "yellow">You are wearing an old hessian sack the hunters gave you.</font></b>'
  1681. $stat_clothes_tooltip = 'You''re wearing an hessian sack.'
  1682. $stat_clothes_msg = 'You are wearing an old hessian sack the hunters gave you.'
  1683. $stat_clothes_style = 'clothes'
  1684. else
  1685. if PCloStyle = 4 and PCloBimbo = 1 and cheatBimbo = 0:
  1686. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #FF00FF>You are dressed as a bimbo</font>'
  1687. $stat_clothes_msg = 'You''re wearing an outfit a bimbo or a prostitute would wear.'
  1688. $stat_clothes_tooltip = 'Prostitute/Bimbo outfit.'
  1689. $stat_clothes_style = 'clothes_pb'
  1690. elseif PCloStyle = 4 and (PCloBimbo = 0 or cheatBimbo = 1):
  1691. $stat_clothes_msg = 'You''re wearing an outfit a prostitute would wear.'
  1692. $stat_clothes_tooltip = 'Prostitute outfit.'
  1693. $stat_clothes_style = 'clothes_p'
  1694. elseif (CloExhibit >= 40 or CloThinness = 6) and PCloBimbo = 1 and cheatBimbo = 0:
  1695. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #FF00FF>You are dressed as a bimbo</font>'
  1696. $stat_clothes_msg = 'You''re wearing exhibitionist clothes a bimbo would wear.'
  1697. $stat_clothes_tooltip = 'Exhibitionist/Bimbo outfit.'
  1698. $stat_clothes_style = 'clothes_eb'
  1699. elseif (CloExhibit >= 40 or CloThinness = 6) and (PCloBimbo = 0 or cheatBimbo = 1):
  1700. $stat_clothes_msg = 'You are wearing exhibitionist clothes.'
  1701. $$stat_clothes_tooltip = 'Exhibitionist outfit.'
  1702. $stat_clothes_style = 'clothes_e'
  1703. elseif PCloBimbo = 1 and cheatBimbo = 0:
  1704. if enable_extra_msg = 1: $stat_msg += '<BR><font color = #FF00FF>You are dressed as a bimbo</font>'
  1705. $stat_clothes_msg = 'You are wearing bimbo clothes.'
  1706. $stat_clothes_tooltip = 'Bimbo outfit.'
  1707. $stat_clothes_style = 'clothes_b'
  1708. elseif CloExhibit >= 30:
  1709. $stat_clothes_msg = 'You''re wearing very revealing clothes.'
  1710. $stat_clothes_tooltip = 'Very revealing outfit.'
  1711. $stat_clothes_style = 'clothes_s'
  1712. elseif CloExhibit >= 25:
  1713. $stat_clothes_msg = 'You''re wearing revealing clothes.'
  1714. $stat_clothes_tooltip = 'Revealing outfit.'
  1715. $stat_clothes_style = 'clothes_s'
  1716. elseif CloExhibit >= 20:
  1717. $stat_clothes_msg = 'You''re wearing slightly revealing clothes.'
  1718. $stat_clothes_tooltip = 'Slightly revealing outfit.'
  1719. $stat_clothes_style = 'clothes_s'
  1720. else
  1721. $stat_clothes_msg = 'You''re wearing normal clothes.'
  1722. $stat_clothes_tooltip = 'Normal outfit.'
  1723. $stat_clothes_style = 'clothes'
  1724. end
  1725. end
  1726. if frost > 0:
  1727. if frost <= 5:
  1728. if enable_extra_msg = 1: $stat_msg += '<BR><b><font>You are a little chilly.</font></b>'
  1729. $stat_frost_msg = 'You are a little chilly.'
  1730. elseif frost < 11:
  1731. if enable_extra_msg = 1: $stat_msg += '<BR><b><font color="red">You are cold.</font></b>'
  1732. $stat_frost_msg = 'You are cold.'
  1733. else
  1734. if enable_extra_msg = 1: $stat_msg += '<BR><b><font color="red">You are freezing.</font></b>'
  1735. $stat_frost_msg = 'You are freezing.'
  1736. end
  1737. end
  1738. if sick > 0:
  1739. if sick = 1:
  1740. if enable_extra_msg = 1: $stat_msg += '<BR><b><font color="red">This is not good, a tickle in the throat and a little runny nose.</font></b>'
  1741. $stat_sick_tooltip = 'You are have a mild cold.'
  1742. $stat_sick_msg = 'This is not good, a tickle in the throat and a little runny nose.'
  1743. elseif sick < 24:
  1744. if enable_extra_msg = 1: $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>'
  1745. $stat_sick_tooltip = 'You are have a cold.'
  1746. $stat_sick_msg = 'You have chills. You nose is running and throat is raw, you cough and sneeze - it looks like you got a cold.'
  1747. elseif sick < 48:
  1748. if enable_extra_msg = 1: $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>'
  1749. $stat_sick_tooltip = 'You are have a serious cold.'
  1750. $stat_sick_msg = '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.'
  1751. elseif sick < 72:
  1752. if enable_extra_msg = 1: $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>'
  1753. $stat_sick_tooltip = 'You are have the flu.'
  1754. $stat_sick_msg = '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.'
  1755. else
  1756. if enable_extra_msg = 1: $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>'
  1757. $stat_sick_tooltip = 'You are seriously sick.'
  1758. $stat_sick_msg = '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.'
  1759. end
  1760. end
  1761. $stat_school_msg = ''
  1762. $stat_school_tooltip = ''
  1763. if StoryLine = 1 and SchoolAtestat = 0 and kanikuli = 0 and week < 6 and hour < 9:
  1764. if enable_extra_msg = 1: $stat_msg += '<BR><b>You have to be at school between before 08:00 if you don''t want to be late.</b>'
  1765. $stat_school_msg = 'You have to be at school between before 08:00 if you don''t want to be late.'
  1766. $stat_school_tooltip = 'School starts at 08:00.'
  1767. elseif StoryLine = 1 and SchoolAtestat = 0 and week = 6 and hour < 9 and detention_set = 1 and SchoolAtestat = 0:
  1768. if enable_extra_msg = 1: $stat_msg += '<BR><b>You have detention this morning and must be at school before 09:00.</b>'
  1769. $stat_school_msg = 'You have detention this morning and must be at school before 09:00.'
  1770. $stat_school_tooltip = 'Detention starts at 09:00.'
  1771. end
  1772. !!------------------ Things without an icon (Start) -------------------
  1773. if fingal > 0:$stat_msg += '<BR><b><font color="red">You have a black eye.</font></b>'
  1774. if mosol >= 50:
  1775. $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>'
  1776. elseif mosol >= 30:
  1777. $stat_msg += '<BR><b><font color="red">Your pussy feels a little itchy, it seems to be from rubbing against your clothing.</font></b>'
  1778. end
  1779. 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>'
  1780. if $mudnerd ! '':$stat_msg += '<BR><<$mudnerd>>'
  1781. if home_owned[1] > 0:
  1782. $streetev_home = 'your apartment'
  1783. elseif tanwork = 1:
  1784. $streetev_home = 'Tanya''s apartment'
  1785. elseif student > 0:
  1786. $streetev_home = 'your dorm'
  1787. elseif home_owned[2] = 1:
  1788. $streetev_home = 'outside your apartment block'
  1789. else
  1790. $streetev_home = 'the train station'
  1791. end
  1792. 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.'
  1793. 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>'
  1794. if meetday[0] < daystart and svidanie[0] = 1:pcs_lovers_rel[0] -= 10 & svidanie[0] = 0
  1795. 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.'
  1796. 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>'
  1797. if meetday[1] < daystart and svidanie[1] = 1:pcs_lovers_rel[1] -= 10 & svidanie[1] = 0
  1798. 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.'
  1799. 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>'
  1800. if meetday[2] < daystart and svidanie[2] = 1:pcs_lovers_rel[2] -= 10 & svidanie[2] = 0
  1801. if StrongNarkota > 20 or jointhigh > 0:$stat_msg += '<BR><b><font color="red">You are stoned.</font></b>'
  1802. if amphHigh > 0: $stat_msg += '<BR><b><font color="red">You feel a little wired.</font></b>'
  1803. !!--------------- Storyline = 1 Events (Start) ------------------------
  1804. if StoryLine = 1 and 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.'
  1805. if StoryLine = 1 and 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.'
  1806. if StoryLine = 1 and day = nyp_day and month = 12 and SchoolAtestat = 0 and hour >= 5 and hour <= 14 and StoryLine = 1:
  1807. $stat_msg += '<BR>At 14:00 your school''s New Year''s party will start.'
  1808. elseif StoryLine = 1 and InvitationToDimkaNYparty = 1 and month = 12 and day = 31:
  1809. $stat_msg += '<BR><b>Go to the residential area between 15:00 and 18:00 to go to Dimka''s New Year party.</b>'
  1810. end
  1811. if StoryLine = 1 and 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>'
  1812. if StoryLine = 1 and 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>'
  1813. !!--------------- Storyline = 1 Events (Start) ------------------------
  1814. if home_owned[1] = 1 and home_owned[4] > 0:
  1815. $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>>.'
  1816. elseif home_owned[1] = 1:
  1817. $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>>.'
  1818. elseif home_owned[4] > 0:
  1819. $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>>.'
  1820. end
  1821. if $nichStatMsg ! '': $stat_msg += "<br><b><<$nichStatMsg>></b>"
  1822. if npc_QW['A113'] = 1: $stat_msg += '<br>You owe Vadim Bely <<belgangpay>> <b><b>₽</b></b> and you need to pay him <<belgangpayweek>> <b>₽</b></b> this week.'
  1823. if display_bb = 1:
  1824. if boletus + bilberry > 0:
  1825. if boletus + bilberry >= 10:
  1826. $stat_msg +='<br><font color = Olive>You have a full basket. </font> '
  1827. else
  1828. $stat_msg +='<br><font color = Olive>In Your basket: </font>'
  1829. end
  1830. if hour > 6 and (month < 6 or month > 9) and boletus + bilberry > 0:
  1831. boletus = 0 & bilberry = 0
  1832. '<br>You throw away your mushrooms and berries.'
  1833. end
  1834. if boletus > 0:$stat_msg +='Mushrooms: <b><<boletus>></b> kg. '
  1835. if bilberry > 0:$stat_msg +='Berries: <b><<bilberry>></b> kg. '
  1836. end
  1837. end
  1838. !!------------------ Things without an icon (End) -------------------
  1839. if young_shop_work = 1:
  1840. if hour = 16 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
  1841. 'You are late for work at Pussy-Cats.'
  1842. elseif hour = 16 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
  1843. misscheck = daystart
  1844. young_shop_miss += 1
  1845. $stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
  1846. elseif (hour = 14 or hour = 15) and week < 6:
  1847. $stat_msg += '<BR><b><font color="red">You start work at Pussy-Cats today at 16:00.</font></b>'
  1848. end
  1849. end
  1850. $stat_court_msg = ''
  1851. if courthearing_date - 1 = daystart:
  1852. if enable_extra_msg = 1: $stat_msg += '<BR><b><font color="red">You have a court hearing tomorrow between 07:00 and 11:00. The court is located in the city center of St.Petersburg.</font></b>'
  1853. $stat_court_msg = 'You have a court hearing tomorrow between 07:00 and 11:00. The court is located in the city center of St.Petersburg.'
  1854. $stat_court_tooltip = 'Court hearing tomorrow (07:00 and 11:00).'
  1855. elseif courthearing_date = daystart and hour < 11:
  1856. if enable_extra_msg = 1: $stat_msg += '<BR><b><font color="red">You have a court hearing today between 07:00 and 11:00. The court is located in the city center of St.Petersburg.</font></b>'
  1857. $stat_court_msg = 'You have a court hearing today between 07:00 and 11:00. The court is located in the city center of St.Petersburg.'
  1858. $stat_court_tooltip = 'Court hearing today (07:00 - 11:00).'
  1859. end
  1860. if young_shop_work1 = 1:
  1861. if hour = 9 and minut <= 5 and week >= 6 and inWorkYoungShop = 0:
  1862. $stat_msg += 'You are late for work at Pussy-Cats.'
  1863. elseif hour = 9 and week >= 6 and inWorkYoungShop = 0 and misscheck ! daystart:
  1864. misscheck = daystart
  1865. young_shop_miss += 1
  1866. $stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
  1867. elseif (hour = 7 or hour = 8) and week >= 6:
  1868. $stat_msg += '<BR><b><font color="red">By 9:00 you have to be at Pussy-Cats to start work.</font></b>'
  1869. end
  1870. end
  1871. if young_shop_work2 = 1:
  1872. if hour = 9 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
  1873. 'You are late for work at Pussy-Cats.'
  1874. elseif hour = 9 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
  1875. misscheck = daystart
  1876. young_shop_miss += 1
  1877. $stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
  1878. elseif (hour = 7 or hour = 8) and week < 6:
  1879. $stat_msg += '<BR><b><font color="red">By 9:00 you have to be at Pussy-Cats to start work.</font></b>'
  1880. end
  1881. end
  1882. if workrin = 1:
  1883. if week = 2 or week = 4 or week = 6:
  1884. if hour = 7:$stat_msg += '<BR><b><font color="red">At 8 o''clock you start work on the market.</font></b>'
  1885. if hour = 8:$stat_msg += '<BR><b><font color="red">You need to work on the market now.</font></b>'
  1886. end
  1887. end
  1888. $stat_hypno_msg = ''
  1889. $stat_hypno_tooltip = ''
  1890. if hypnoAddict > 0:
  1891. if hypnoWithdrawal = 1:
  1892. if missCum >= timeTresh:
  1893. if enable_extra_msg = 1: $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>'
  1894. $stat_hypno_msg = 'You really miss the feeling of sperm in your body, you are strangely craving it. You should talk to your therapist about it.'
  1895. $stat_hypno_tooltip = 'Talk to your therapist.'
  1896. else
  1897. if enable_extra_msg = 1: $stat_msg += '<BR><b><font color="red">You feel like talking to your therapist. You miss your sessions.</font></b>'
  1898. $stat_hypno_msg = 'You feel like talking to your therapist. You miss your sessions.'
  1899. $stat_hypno_tooltip = 'Maybe visit your therapist.'
  1900. end
  1901. elseif hypnoWithdrawal = 2:
  1902. if missCum >= timeTresh:
  1903. if enable_extra_msg = 1: $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>'
  1904. $stat_hypno_msg = 'You want some sperm inside of you NOW! You have to talk to your therapist, immediately.'
  1905. $stat_hypno_tooltip = 'Talk to your therapist, immediately.'
  1906. else
  1907. if enable_extra_msg = 1: $stat_msg += '<BR><b><font color="red">You need to talk to your therapist. You feel unbalanced without your sessions.</font></b>'
  1908. $stat_hypno_msg = 'You need to talk to your therapist. You feel unbalanced without your sessions.'
  1909. $stat_hypno_tooltip = 'Talk to your therapist.'
  1910. end
  1911. else
  1912. 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>'
  1913. $stat_hypno_msg = 'You miss the feeling of sperm in your body and you feel moody.'
  1914. $stat_hypno_tooltip = 'Maybe visit your therapist.'
  1915. end
  1916. end
  1917. if model > 0 and model_week = (daystart - week) / 7 and model_job_week >= 2:
  1918. $stat_msg += '<BR><b>You have no more modeling jobs available this week.</b>'
  1919. elseif model > 0 and model_week < (daystart - week) / 7 and model_job_week = 1:
  1920. $stat_msg += '<BR><b>You can get paid for 1 more modeling job this week.</b>'
  1921. elseif model > 0 and model_week < (daystart - week) / 7 and model_job_week < 1:
  1922. $stat_msg += '<BR><b>You can get paid for 2 modeling jobs this week.</b>'
  1923. end
  1924. if pornstack > 0:
  1925. porndays = 0
  1926. :pfilmtime
  1927. if porndays < 200 and pfilmday[porndays] = 0: porndays += 1 & jump 'pfilmtime'
  1928. end
  1929. if pornstack > 0 and pfilmday[0] = 0:
  1930. if pfilmday[1] = 0:
  1931. $stat_msg += '<br><b>You will star in another porno in <<porndays>> days.</b>'
  1932. else
  1933. $stat_msg += '<br><b>You have a porno shoot scheduled tomorrow.</b>'
  1934. end
  1935. end
  1936. if pfilmday[0] > 0:
  1937. if pornnow = 1:
  1938. $stat_msg += '<br><b>You are at a porn shooting.</b>'
  1939. else
  1940. if hour < 11: $stat_msg += '<br><b>You are expected in the porno studio at 10:00.</b>'
  1941. if hour >= 11 and hour < 13: $stat_msg += '<br><b>You should be at the porno studio, shooting!</b>'
  1942. if hour >= 13: $stat_msg += '<br><b>You missed a scheduled porno shoot!</b>'
  1943. end
  1944. end
  1945. if pornmiss = 1: $stat_msg += '<br><b>You missed a scheduled porno shoot!</b>'
  1946. if prodcosttrue > 0: $stat_msg += '<br><b>You owe money to the porn studio <<prodcost>>?</b>'
  1947. if firstkasting > 0 and pfilmNO < 1:
  1948. if pornstack <= 10:
  1949. $stat_msg += '<br>You are currently unable to book any more porn shoots at the Porn Studio.'
  1950. elseif pornstack = 11:
  1951. $stat_msg += '<br>You can contract <<10-pornstack>> porn shoot at the Porn Studio.'
  1952. else
  1953. $stat_msg += '<br>You can contract up to <<10-pornstack>> porn shoots at the Porn Studio.'
  1954. end
  1955. end
  1956. 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>'
  1957. 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>'
  1958. 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>'
  1959. 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>'
  1960. 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>'
  1961. 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>'
  1962. 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>'
  1963. 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>'
  1964. gs 'brother', 'brotherSexCount'
  1965. !! List Current Active Spells
  1966. if arrsize('spellComplete') > 0:
  1967. $tempSpellText="<br><b><font color='#FF99FF'>Active Spells</font></b>"
  1968. i=0
  1969. :ActiveSpellLoop
  1970. if i < arrsize('spellComplete'):
  1971. $tempSpellText += "<br><font color='#FF99FF'><<$spellName[$spellTimeName[i]]>></font>"
  1972. i += 1
  1973. jump 'ActiveSpellLoop'
  1974. end
  1975. $stat_msg += func('cleanHTML',$tempSpellText)
  1976. killvar '$tempSpellText'
  1977. killvar 'i'
  1978. end
  1979. !!zero checks marriage
  1980. proverka1 = 0
  1981. proverka2 = 0
  1982. proverka3 = 0
  1983. proverka4 = 0
  1984. proverka5 = 0
  1985. if disable_LoadSave = 0:
  1986. $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>'
  1987. elseif disable_LoadSave = 2:
  1988. $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>'
  1989. end
  1990. if PillToggle = 1 and tabletki > 0:
  1991. Stabletki += tabletki
  1992. tabletki = 0
  1993. elseif PillToggle = 0 and Stabletki > 0:
  1994. tabletki += Stabletki
  1995. Stabletki = 0
  1996. end
  1997. if CondomToggle = 1 and prezik > 0:
  1998. Sprezik += prezik
  1999. prezik = 0
  2000. elseif CondomToggle = 0 and Sprezik > 0:
  2001. prezik += Sprezik
  2002. Sprezik = 0
  2003. end
  2004. $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>'
  2005. if Enable_statimg_loc = 2: $stat_msg += '<br><<$stat_imgtool_msg>><br><<$stat_imgextra_msg>>'
  2006. killvar 'stat_imgtool_msg'
  2007. killvar 'stat_imgextra_msg'
  2008. if Enable_statfsize > 0: $stat_msg += '</font>' & !disable this, all texts comes from pl will have the same font size, like[time]
  2009. if Enable_faceturn = 1: view FUNC('$face_image')
  2010. if Enable_Android = 0:
  2011. pl '<<$stat_msg>>'
  2012. else
  2013. '<<$stat_android>>'
  2014. $stat_msg = 'Android mode, <a href="exec:gs ''$menu_obnovit''">Refresh</a><<$stat_msg>>'
  2015. end
  2016. if icon_reset = 0:
  2017. icon_reset = 1
  2018. gs 'stat'
  2019. else
  2020. icon_reset = 0
  2021. end
  2022. --- stat_display ---------------------------------