stat_display 57 KB

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