1
0

stat_display 51 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163
  1. # stat_display
  2. if $location_type = 'public_outdoors' or $location_type = 'secluded' or $location_type = 'event_outdoors':
  3. gs 'outdoors', 'main'
  4. else
  5. gs 'indoors'
  6. end
  7. !!Sex stat update
  8. stat['mast'] += mastr & mastr = 0
  9. stat['hj'] += hj & hj = 0
  10. stat['bj'] += bj & bj = 0
  11. stat['vaginal'] += sex & sex = 0
  12. stat['anal'] += anal & anal = 0
  13. stat['cuni'] += kuni & kuni = 0
  14. stat['anal_strap_give'] += pegging & pegging = 0
  15. !!!!!!!!!!!!!!!!!!!!!
  16. !!!Pain calculation!!!
  17. !!!!!!!!!!!!!!!!!!!!!
  18. pain['body1'] = pain['head'] + pain['hair'] + pain['ears'] + pain['eyebrows'] + pain['eyes'] + pain['cheeks'] + pain['nose'] + pain['mouth'] + pain['lips'] + pain['tongue']
  19. pain['body2'] = pain['throat'] + pain['neck'] + pain['back'] + pain['asscheeks'] + pain['asshole'] + pain['hips'] + pain['thighs'] + pain['legL'] + pain['legR'] + pain['feet']
  20. pain['body3'] = pain['toes'] + pain['shoulders'] + pain['armL'] + pain['armR'] + pain['hands'] + pain['fingers'] + pain['chest'] + pain['breasts'] + pain['nipples'] + pain['ribs']
  21. pain['body4'] = pain['tummy'] + pain['pubic'] + pain['vaginal'] + pain['labia'] + pain['clitoris'] + pain['urethra'] + pain['cervix']
  22. pain['total'] = pain['body1'] + pain['body2'] + pain['body3'] + pain['body4'] + (vgape * 8) + (agape * 10) + (spanked * 24)
  23. if pain['total'] > 100: pain['total'] = 100
  24. pain['relief'] = 0
  25. if alko > 6:
  26. pain['relief'] = 50
  27. elseif alko > 3:
  28. pain['relief'] = 20
  29. end
  30. if StrongNarkota > 0:
  31. pain['relief'] = 90
  32. elseif nark > 0:
  33. pain['relief'] = 60
  34. elseif pain['killer'] > 12:
  35. pain['relief'] = 50
  36. end
  37. if pain['relief'] ! 0:
  38. if (pain['total'] / pain['relief']) > 0:
  39. pain['total'] = pain['total'] / pain['relief']
  40. elseif pain['total'] > 0:
  41. pain['total'] = 0
  42. end
  43. end
  44. if pain['total'] > 80:
  45. if (pcs_health * 5) >= healthmax: pcs_health = pcs_health * 20 / 100
  46. if (pcs_mood * 5) >= 100: pcs_mood = pcs_mood * 20 / 100
  47. elseif pain['total'] > 60:
  48. if (pcs_health * 5 / 2) >= healthmax: pcs_health = pcs_health * 40 / 100
  49. if (pcs_mood * 5 / 2) >= 100: pcs_mood = pcs_mood * 40 / 100
  50. elseif pain['total'] > 40:
  51. if (pcs_health * 5 / 3) >= healthmax: pcs_health = pcs_health * 60 / 100
  52. if (pcs_mood * 5 / 3) >= 100: pcs_mood = pcs_mood * 60 / 100
  53. elseif pain['total'] > 20:
  54. if (pcs_health * 5 / 4) >= healthmax: pcs_health = pcs_health * 80 / 100
  55. if (pcs_mood * 5 / 4) >= 100: pcs_mood = pcs_mood * 80 / 100
  56. elseif pain['total'] > 0:
  57. if (pcs_health * 10 / 9) >= healthmax: pcs_health = pcs_health * 90 / 100
  58. if (pcs_mood * 10 / 9) >= 100: pcs_mood = pcs_mood * 90 / 100
  59. end
  60. !!!!!!!!!!!!!!!!!!!!!
  61. !!!Beginning Description!!!
  62. !!!!!!!!!!!!!!!!!!!!!
  63. if pcs_sleep > 100: pcs_sleep = 100
  64. if Enable_statfsize>0:$stat_msg = '<font size=<<Enable_statfsize>>><<$stat_msg>>'
  65. if hour < 10:
  66. if minut > 9 :
  67. $stat_android = '<b> 0<<hour>>:<<minut>></b>'
  68. else
  69. $stat_android = '<b> 0<<hour>>:0<<minut>></b>'
  70. end
  71. else
  72. if minut > 9 :
  73. $stat_android = '<b> <<hour>>:<<minut>></b>'
  74. else
  75. $stat_android = '<b> <<hour>>:0<<minut>></b>'
  76. end
  77. end
  78. $stat_msg += '<BR><<$stat_android>> <<$week[week]>> <<day>> <<$month>> <<year>>'
  79. $stat_android += '<<$week[week]>> <<day>>/<<month>>, <<money>> ₽, <a href="exec:clr & pl $stat_android">Status</a>'
  80. ! $stat_android for short desc in android mode, $stat_msg for status bar.
  81. $stat_msg += '<BR>'
  82. $pockets = 'pockets'
  83. if bag > 0: $pockets = 'purse'
  84. $stat_msg += '<BR>You have <b><<money>> ₽</b> in your <<$pockets>>.'
  85. if bankAccount = 1:
  86. if karta >= 0:
  87. $stat_msg += '<BR>You have <b><<karta>> ₽</b> in your bank account.'
  88. else
  89. $stat_msg += '<BR><font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>!!</font>'
  90. end
  91. end
  92. if stolmoney > 0: $stat_msg += '<BR>You have <b><<stolmoney>> ₽</b> in your desk drawer.'
  93. $stat_msg += '<BR>'
  94. if ETOmenu = 1:
  95. $stat_msg += '<BR><b><<$pcs_health>></b>'
  96. $stat_msg += '<BR><b><<$pcs_willpwr>></b>'
  97. $stat_msg += '<BR><b><<$pcs_energy>></b>'
  98. $stat_msg += '<BR><b><<$water>></b>'
  99. $stat_msg += '<BR><b><<$pcs_sleep>></b>'
  100. else
  101. gs 'indik', '2', pcs_horny, pcs_horny
  102. $stat_msg += '<BR><<$ind>> Arousal'
  103. gs 'indik', '2', pain['total'], pain['total']
  104. $stat_msg += '<BR><<$ind>> Pain'
  105. gs 'indik', '1', pcs_health * 100 / healthmax, pcs_health
  106. $stat_msg += '<BR><<$ind>> Health'
  107. if MagikDostup = 0:
  108. gs 'indik', '1', pcs_manna * 100 / mannamax, pcs_manna
  109. $stat_msg += '<BR><<$ind>> Manna'
  110. end
  111. gs 'indik', '1', pcs_willpwr * 100 / willpowermax, pcs_willpwr
  112. $stat_msg += '<BR><<$ind>> Willpower'
  113. gs 'indik', '1', pcs_stam * 100 / stammax, pcs_stam
  114. $stat_msg += '<BR><<$ind>> Stamina'
  115. gs 'indik', '1', pcs_mood, pcs_mood
  116. $stat_msg += '<BR><<$ind>> Mood'
  117. gs 'indik', '1', pcs_energy, pcs_energy
  118. $stat_msg += '<BR><<$ind>> Hunger'
  119. gs 'indik', '1', pcs_sleep, pcs_sleep
  120. $stat_msg += '<BR><<$ind>> Sleep'
  121. end
  122. $stat_msg += '<BR>'
  123. if Enable_showattr = 0:
  124. $stat_msg += '<BR> <a href="exec:Enable_showattr = 1 & gs ''$menu_obnovit''">Attributes</a>'
  125. end
  126. if Enable_showattr = 1:
  127. $stat_msg += '<BR> <a href="exec:Enable_showattr = 0 & gs ''$menu_obnovit''">Attributes:</a>'
  128. gs 'indik', '1', pcs_stren, pcs_stren
  129. $stat_msg += '<BR><<$ind>> Strength'
  130. gs 'indik', '1', pcs_agil, pcs_agil
  131. $stat_msg += '<BR><<$ind>> Agility'
  132. gs 'indik', '1', pcs_vital, pcs_vital
  133. $stat_msg += '<BR><<$ind>> Endurance'
  134. gs 'indik', '1', pcs_intel, pcs_intel
  135. $stat_msg += '<BR><<$ind>> Intelligence'
  136. gs 'indik', '1', pcs_sprt, pcs_sprt
  137. $stat_msg += '<BR><<$ind>> Spirit'
  138. gs 'indik', '1', pcs_react, pcs_react
  139. $stat_msg += '<BR><<$ind>> Mental Agility'
  140. gs 'indik', '1', pcs_chrsm, pcs_chrsm
  141. $stat_msg += '<BR><<$ind>> Charisma'
  142. gs 'indik', '1', pcs_prcptn, pcs_prcptn
  143. $stat_msg += '<BR><<$ind>> Perception'
  144. if MagikDostup = 0:
  145. gs 'indik', '1', pcs_magik, pcs_magik
  146. $stat_msg += '<BR><<$ind>> Magic'
  147. end
  148. gs 'indik', '1', pcs_apprnc / 2, pcs_apprnc
  149. $stat_msg += '<BR><<$ind>> Attractiveness'
  150. if SUB > 0:
  151. gs 'indik','1', SUB, SUB
  152. $stat_msg += '<BR><<$ind>> Subordination'
  153. end
  154. if pcs_dom > 0:
  155. gs 'indik', '1', pcs_dom, pcs_dom
  156. $stat_msg += '<BR><<$ind>> Dominance'
  157. end
  158. if SchoolAtestat = 0 and StoryLine > 0:
  159. gs 'indik', '1', pcs_grades, pcs_grades
  160. $stat_msg += '<BR><<$ind>> School Grades'
  161. end
  162. if pcs_exhibition > 0:
  163. gs 'indik', '1', pcs_exhibition, pcs_exhibition
  164. $stat_msg += '<BR><<$ind>> exhibitionism'
  165. end
  166. end
  167. !!----------------Mental skills--------------------------
  168. if Enable_show_mental_skill = 0:
  169. $stat_msg += '<BR> <a href="exec:Enable_show_mental_skill = 1 & gs ''$menu_obnovit''">Mental Skills</a>'
  170. end
  171. if Enable_show_mental_skill = 1:
  172. st_count=0
  173. $show_table=''
  174. if pcs_splcstng > 0: gs 'show_table', '<<pcs_splcstng>> Spell Casting', '2'
  175. if pcs_humint > 0: gs 'show_table', '<<pcs_humint>> People skills', '2'
  176. if pcs_persuas > 0: gs 'show_table', '<<pcs_persuas>> Persuasion', '2'
  177. if pcs_observ > 0: gs 'show_table', '<<pcs_observ>> Observation', '2'
  178. if st_count > 0 :$stat_msg += '<BR> <a href="exec:Enable_show_mental_skill = 0 & gs ''$menu_obnovit''">Mental Skills:</a> <TABLE BORDER=1><<$show_table>></TR></TABLE>'
  179. end
  180. !!-----------------Sport skills--------------------------
  181. if Enable_show_sport_skill = 0:
  182. $stat_msg += '<BR> <a href="exec:Enable_show_sport_skill = 1 & gs ''$menu_obnovit''">Sport Skills</a>'
  183. end
  184. if Enable_show_sport_skill = 1:
  185. st_count=0
  186. $show_table=''
  187. if pcs_jab > 0: gs 'show_table', '<<pcs_jab>> Jabs', '2'
  188. if pcs_punch > 0: gs 'show_table', '<<pcs_punch>> Power Strikes', '2'
  189. if pcs_kick > 0: gs 'show_table', '<<pcs_kick>> Kicks', '2'
  190. if pcs_def > 0: gs 'show_table', '<<pcs_def>> Defence', '2'
  191. if pcs_run > 0: gs 'show_table', '<<pcs_run>> Running', '2'
  192. if pcs_vball > 0: gs 'show_table', '<<pcs_vball>> Volleyball', '2'
  193. if pcs_ftbll > 0: gs 'show_table', '<<pcs_ftbll>> Football', '2'
  194. if pcs_wrstlng > 0: gs 'show_table', '<<pcs_wrstlng>> Wrestling', '2'
  195. if pcs_shoot > 0: gs 'show_table', '<<pcs_shoot>> Marksmanship', '2'
  196. if pcs_chess > 0: gs 'show_table', '<<pcs_chess>> Chess', '2'
  197. if pcs_icesktng > 0: gs 'show_table', '<<pcs_icesktng>> Ice Skating', '2'
  198. if pcs_ttgmng > 0: gs 'show_table', '<<pcs_ttgmng>> Gaming', '2'
  199. if st_count > 0 :$stat_msg += '<BR> <a href="exec:Enable_show_sport_skill = 0 & gs ''$menu_obnovit''">Sport Skills:</a> <TABLE BORDER=1><<$show_table>></TR></TABLE>'
  200. end
  201. !!-----------------Beauty/Modelling skills---------------
  202. if Enable_show_beauty_skill = 0:
  203. $stat_msg += '<BR> <a href="exec:Enable_show_beauty_skill = 1 & gs ''$menu_obnovit''">Beauty/Modelling Skills</a>'
  204. end
  205. if Enable_show_beauty_skill = 1:
  206. st_count=0
  207. $show_table=''
  208. if pcs_makupskl > 0: gs 'show_table', '<<pcs_makupskl>> Makeup Skill', '2'
  209. if pcs_danc > 0: gs 'show_table', '<<pcs_danc>> Modern Dancing', '2'
  210. if pcs_dancero > 0: gs 'show_table', '<<pcs_dancero>> Erotic Dancing', '2'
  211. if pcs_dancpol > 0: gs 'show_table', '<<pcs_dancpol>> Pole Dancing', '2'
  212. if pcs_mdlng > 0: gs 'show_table', '<<pcs_mdlng>> Modelling', '2'
  213. if st_count > 0 :$stat_msg += '<BR> <a href="exec:Enable_show_beauty_skill = 0 & gs ''$menu_obnovit''">Beauty/Modelling Skills:</a> <TABLE BORDER=1><<$show_table>></TR></TABLE>'
  214. end
  215. !!---------------------Artistic skills-------------------
  216. if Enable_show_art_skill = 0:
  217. $stat_msg += '<BR> <a href="exec:Enable_show_art_skill = 1 & gs ''$menu_obnovit''">Artistic Skills</a>'
  218. end
  219. if Enable_show_art_skill = 1:
  220. st_count=0
  221. $show_table=''
  222. if pcs_vokal > 0: gs 'show_table', '<<pcs_vokal>> Singing', '2'
  223. if pcs_instrmusic > 0: gs 'show_table', '<<pcs_instrmusic>> Instrumental Music', '2'
  224. if pcs_photoskl > 0: gs 'show_table', '<<pcs_photoskl>> Photography', '2'
  225. if pcs_artskls > 0: gs 'show_table', '<<pcs_artskls>> Artistic Skills', '2'
  226. if st_count > 0 :$stat_msg += '<BR> <a href="exec:Enable_show_art_skill = 0 & gs ''$menu_obnovit''">Artistic Skills:</a> <TABLE BORDER=1><<$show_table>></TR></TABLE>'
  227. end
  228. !!----------------------Job skills------------------------
  229. if Enable_show_job_skill = 0:
  230. $stat_msg += '<BR> <a href="exec:Enable_show_job_skill = 1 & gs ''$menu_obnovit''">Job Skills</a>'
  231. end
  232. if Enable_show_job_skill = 1:
  233. st_count=0
  234. $show_table=''
  235. if pcs_compskl > 0: gs 'show_table', '<<pcs_compskl>> Computer Skill', '2'
  236. if pcs_comphckng > 0: gs 'show_table', '<<pcs_comphckng>> Hacking', '2'
  237. if pcs_hndiwrk > 0: gs 'show_table', '<<pcs_hndiwrk>> Handy-work', '2'
  238. if pcs_sewng > 0: gs 'show_table', '<<pcs_sewng>> Tailoring', '2'
  239. if pcs_servng > 0: gs 'show_table', '<<pcs_servng>> Serving', '2'
  240. if pcs_medcn > 0: gs 'show_table', '<<pcs_medcn>> Medicine', '2'
  241. if workPTU > 1: gs 'show_table','<<teachlevel>> Teacher credibility','2'
  242. if st_count > 0 :$stat_msg += '<BR> <a href="exec:Enable_show_job_skill = 0 & gs ''$menu_obnovit''">Job Skills:</a> <TABLE BORDER=1><<$show_table>></TR></TABLE>'
  243. end
  244. if Enable_showrelation = 0:
  245. $stat_msg += '<BR> <a href="exec:Enable_showrelation = 1 & gs ''$menu_obnovit''">Relations</a>'
  246. end
  247. if Enable_showrelation = 1:
  248. st_count=0
  249. $show_table=''
  250. if npc_QW['A192'] > 0:gs'show_table','<<npc_QW[''A192'']>> Nastja','2'
  251. if tanya > 0:gs'show_table','<<tanya>> Tanya','2'
  252. if kat > 0:gs'show_table','<<kat>> Kate','2'
  253. if vika > 0:gs'show_table','<<vika>> Vika','2'
  254. if Irina > 0:gs'show_table','<<Irina>> Irina','2'
  255. if Tamara > 0:gs'show_table','<<Tamara>> Tamara','2'
  256. if alla > 0:gs'show_table','<<alla>> Alla','2'
  257. if masha > 0:gs'show_table','<<masha>> Masha','2'
  258. if Givi > 0:gs'show_table','<<Givi>> Givi Karapetovich','2'
  259. if Ashot > 0:gs'show_table','<<Ashot>> Ashot','2'
  260. if Dmitry > 0:gs'show_table','<<Dmitry>> Dima','2'
  261. if afra > 0:gs'show_table','<<afra>> Blacks','2'
  262. if npc_rel['A69'] > 0:gs'show_table','<<npc_rel[''A69'']>> Mikhail Nikolaevich','2'
  263. if npc_rel['A89'] > 0:gs'show_table','Eugene: <<npc_rel[''A89'']>>','2'
  264. if npc_rel['A112'] > 0:gs'show_table','Sergei Shulgin: <<npc_rel[''A112'']>>','2'
  265. if npc_rel['A11'] > 0:gs'show_table','Vasily Shulgin: <<npc_rel[''A11'']>>','2'
  266. if hantersAndreiQw > 0:gs'show_table','Hunter Andrew: <<hantersAndreiQw>>','2'
  267. if hantersSergeiQw > 0:gs'show_table','Hunter Sergei: <<hantersSergeiQw>>','2'
  268. if hantersIgorQw > 0:gs'show_table','Hunter Igor: <<hantersIgorQw>>','2'
  269. if StoryLine > 0:
  270. if npc_rel['A29'] > 0:gs'show_table','<<npc_rel[''A29'']>> mother','2'
  271. if npc_rel['A28'] > 0:gs'show_table','<<npc_rel[''A28'']>> father','2'
  272. if npc_rel['A33'] > 0:gs'show_table','<<npc_rel[''A33'']>> Sister','2'
  273. if npc_rel['A34'] > 0:gs'show_table','<<npc_rel[''A34'']>> Brother','2'
  274. end
  275. if st_count > 0 :$stat_msg += '<BR> <a href="exec:Enable_showrelation = 0 & gs ''$menu_obnovit''">Relations:</a> <BR><TABLE BORDER=1> <<$show_table>></TR></TABLE>'
  276. end
  277. $stat_msg += '<BR>'
  278. if BuyHous = 2 and ArendHouseSL <= 0:'<font color="red"><b>The rent on your apartment is due today.</b></font>'
  279. if BuyHous = 2 and ArendHouseSL <= 0:
  280. '<font color="red"><b>The rent on your apartment is due today.</b></font>'
  281. if money >= 6000 or stolmoney >= 6000 or money + stolmoney >= 6000 or karta + bankDebtLimit >= 6000:
  282. *P ' Renew with '
  283. if money >= 6000:
  284. *P ' <a href="exec:money -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30" & gs ''$menu_obnovit''>cash</a>'
  285. elseif stolmoney >= 6000:
  286. *P ' <a href="exec:stolmoney -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30" & gs ''$menu_obnovit''>cash from drawer</a>'
  287. elseif money + stolmoney >= 6000:
  288. !both < 6000, so money = money - 6000 + stolmoney
  289. *P ' <a href="exec:money -= 6000 - stolmoney & stolmoney = 0 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30" & gs ''$menu_obnovit''>cash from purse and drawer</a>'
  290. end
  291. !from purse, drawer or both
  292. if karta >= 6000:
  293. *P ' <a href="exec:karta -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''$menu_obnovit''">bank account</a>'
  294. elseif karta + bankDebtLimit >= 6000:
  295. *P ' <a href="exec:karta -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''$menu_obnovit''">bank account, but you will be overdrawn.</a>'
  296. end
  297. else
  298. *P ' But you can''t afford to pay the rent.'
  299. end
  300. end
  301. if weatherDay = daystart: $stat_msg += '<BR><<$weather>>' & $stat_msg += '<BR>'
  302. if opPRE = 0: $stat_msg += '<BR><<$pcs_makeup>> and your hair is <<$pcs_hairbsh>>.' & $stat_msg += '<BR>'
  303. if daystart - lastmens > 21 and thinkpreg = 0 and knowpreg = 0 and cycle ! 6 and pillcon <= 30000 and succubusflag ! 1 and cheatSlut = 0 and mesec = 0:
  304. if daystart - lastmens < 28:
  305. $stat_msg += '<BR><font color = #AB052A><b>Your period is late by <<daystart - daylastperiod - 20>> days.</b></font>'
  306. elseif daystart - lastmens < 35:
  307. $stat_msg += '<BR><font color = #AB052A><b>Your period is late by more than a week!</b></font>'
  308. elseif daystart - lastmens < 45:
  309. $stat_msg += '<BR><font color = #AB052A><b>You apparently missed your period this month. Maybe you should see a doctor?</b></font>'
  310. elseif daystart - lastmens < 69:
  311. $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>'
  312. else
  313. $stat_msg += '<BR><font color = #AB052A><b>You should consider the possibility of a pregnancy, since apparently you no longer have periods.</b></font>'
  314. end
  315. end
  316. if implant_day > 0:
  317. if ((daystart - implant_day) * 24 + hour - implant_hour) < 5:
  318. $stat_msg += '<BR><font color=#AB052A>You feel a slight twinge in your abdomen.</font>'
  319. end
  320. end
  321. if mesec > 0:
  322. $stat_msg += '<BR><font color="red">You are currently having your period. '
  323. if isprok = 0 and isprokp = 0:
  324. $stat_msg += 'You need to use your feminine hygiene products.'
  325. elseif isprokp = 1 and tanga = 0:
  326. isprokp = 0
  327. $stat_msg += 'You need to wear panties to use a sanitary pad.'
  328. end
  329. $stat_msg += '</font>'
  330. end
  331. $stat_msg += '<BR><a href="exec:dynamic $d_cycreport_choice"><<$cycreport_txt>></a><br>'
  332. if StoryLine > 0 and SchoolAtestat = 0 and $holyday ! '': $stat_msg += '<BR><<$holyday>>' & $stat_msg += '<BR>'
  333. if birthday = day and birthmonth = month: $stat_msg += '<BR><b>Today is your birthday.</b>' & $stat_msg += '<BR>'
  334. !!if shame > 0:$stat_msg += '<BR><<$shame>>' & $stat_msg += '<BR>'
  335. if $pcs_mood ! '':$stat_msg += '<BR><font color="green"><b><<$pcs_mood>></b></font>' & $stat_msg += '<BR>'
  336. if mentats_dose >= 1:$stat_msg += '<BR><font color = green>You feel sharp and focused.</font>'
  337. if bcream_used = 1:$stat_msg += '<BR><font color = #DB7093>Your breasts are feeling hot and tingly.</font>'
  338. if aphrodisiac_timer > 0:$stat_msg += '<BR><font color = #DB7093>You are feeling hot and every move causes your groin to tingle.</font>'
  339. if pcs_energy < 5:
  340. $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>'
  341. elseif pcs_energy < 10:
  342. $stat_msg += '<BR><font color="red">You are starving, you really need to have something to eat.</font>'
  343. elseif pcs_energy < 20:
  344. $stat_msg += '<BR>You are very hungry and struggle to concentrate on anything other than food.'
  345. elseif pcs_energy < 30:
  346. $stat_msg += '<BR>You feel peckish and your thoughts sometimes drift towards food.'
  347. end
  348. if pcs_sleep < 5:
  349. $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>'
  350. elseif pcs_sleep < 10:
  351. $stat_msg += '<BR><font color="red">You are exhausted, you really need to go to bed soon.</font>'
  352. elseif pcs_sleep < 20:
  353. $stat_msg += '<BR>You are tired and you are struggling to concentrate.'
  354. elseif pcs_sleep < 30:
  355. $stat_msg += '<BR>You feel a little tired.'
  356. end
  357. if tanga = 1 and clit_size >= 25:$stat_msg += '<BR><font color = #FF1493>Your panties keep rubbing against your clit and making you horny.</font>'
  358. if pcs_horny >= 50:
  359. if pcs_horny < 90 and tanga = 1:
  360. $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>'
  361. elseif pcs_horny < 90 and tanga = 0:
  362. $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>'
  363. elseif tanga = 1:
  364. $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>'
  365. else
  366. $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>'
  367. end
  368. end
  369. $smoker = {
  370. siga -= 1
  371. smoker += 1
  372. smokeHour = hour
  373. smokeDay = daystart
  374. smokeminut = minut + 5
  375. smokerNeed = 0
  376. cumspclnt = 2
  377. gs 'cum_cleanup'
  378. pcs_breath = 0
  379. pcs_mood += 100
  380. wipo += 100
  381. if pcs_energy < 80: pcs_energy += 4
  382. gs '$menu_obnovit'
  383. }
  384. if PillToggle = 1 and tabletki > 0:
  385. Stabletki += tabletki
  386. tabletki = 0
  387. elseif PillToggle = 0 and Stabletki > 0:
  388. tabletki += Stabletki
  389. Stabletki = 0
  390. end
  391. if CondomToggle = 1 and prezik > 0:
  392. Sprezik += prezik
  393. prezik = 0
  394. elseif CondomToggle = 0 and Sprezik > 0:
  395. prezik += Sprezik
  396. Sprezik = 0
  397. end
  398. if smoker >= 20:
  399. if smokerNeed > 0:
  400. if siga > 0:
  401. $stat_msg += '<BR><a href="exec:dynamic $smoker"><font color="red"><b>You want to smoke. You have <<siga>> cigarettes left.</b></font></a><BR>'
  402. else
  403. $stat_msg += '<BR><a href="exec:dynamic $smoker"><font color="red"><b>You want to smoke, but you have no cigarettes left.</b></font></a><BR>'
  404. end
  405. else
  406. if siga > 0:
  407. $stat_msg += '<BR><a href="exec:dynamic $smoker"><font color="blue"><b>You have <<siga>> cigarettes left.</b></font></a><BR>'
  408. else
  409. $stat_msg += '<BR><font color="blue"><b>You feel like you should get some cigarettes.</b></font><BR>'
  410. end
  411. end
  412. elseif siga > 0:
  413. $stat_msg += '<BR><a href="exec:dynamic $smoker"><font color = blue><b>You have <<siga>> cigarettes.</b></font></a><BR>'
  414. end
  415. if smokeHour = hour and smokeday = day and smokeminut >= minut:$stat_msg += '<BR><font color="green">You are smoking a cigarette.</font><BR>'
  416. if pcs_sweat < 0 : pcs_sweat = 0
  417. if pcs_sweat > 69 : pcs_sweat = 69
  418. jump 'statDswt<<pcs_sweat/10>>'
  419. :statDswt0
  420. if arrsize('sparrvol') = 0 : $stat_msg += '<BR><b><font color="green">You are sparkling clean.</font></b><BR>'
  421. jump 'statDswtEnd'
  422. :statDswt1
  423. jump 'statDswtEnd'
  424. :statDswt2
  425. $stat_msg += '<BR><font color="brown">You''re sweating.</font><BR>'
  426. jump 'statDswtEnd'
  427. :statDswt3
  428. $stat_msg += '<BR><font color="red">You are a little smelly.</font><BR>'
  429. jump 'statDswtEnd'
  430. :statDswt4
  431. $stat_msg += '<BR><font color="red">You stink.</font><BR>'
  432. jump 'statDswtEnd'
  433. :statDswt5
  434. $stat_msg += '<BR><b><font color="red">You really stink.</font></b><BR>'
  435. jump 'statDswtEnd'
  436. :statDswt6
  437. $stat_msg += '<BR><b><font color="red">You are dripping wet from sweat and smell like a gym sock.</font></b><BR>'
  438. jump 'statDswtEnd'
  439. :statDswtEnd
  440. if dirtyclothes = 1 and swamp_clothes = 0:
  441. if pcs_sweat > 40:
  442. $stat_msg +='<br><font color = red>You from head to toe <a href="exec:view''images/locations/gadukino/hunters/dirtyclothes1.jpg''">smeared</a> in the mud.</font><BR>'
  443. else
  444. $stat_msg +='<br><font color = red>Your <a href="exec:view''images/locations/gadukino/hunters/dirtyclothes2.jpg''">cloth</a> is dirty.</font><BR>'
  445. end
  446. end
  447. if lactate = 1:
  448. if lactatemv >= lactatemm-1:
  449. $stat_msg += '<BR><font color = black>Your breasts are so full they hurt and a little milk is constantly dribbling out.</font><BR>'
  450. elseif lactatemv > lactatemm*9/10:
  451. $stat_msg += '<BR><font color = black>Your breasts are firm and full, and starting to hurt from all the milk they contain.</font><BR>'
  452. elseif lactatemv > lactatemm*3/4:
  453. $stat_msg += '<BR><font color = black>Your breasts feel firm and heavy, full of milk.</font><BR>'
  454. elseif lactatemv > lactatemm/2:
  455. $stat_msg += '<BR><font color = black>Your breasts are heavy, a cargo of milk inside.</font><BR>'
  456. elseif lactatemv > lactatemm/4:
  457. $stat_msg += '<BR><font color = black>Your breasts feel a little heavy.</font><BR>'
  458. elseif lactatemv > 0:
  459. $stat_msg += '<BR><font color = black>Your breasts tingle a little from the feeling of milk production.</font><BR>'
  460. else
  461. $stat_msg += '<BR><font color = black>Your breasts feel soft and empty.</font><BR>'
  462. end
  463. end
  464. if Enable_Hymenrestore = 1: pcs_vag = 0
  465. if Enable_tightrestore = 1: pcs_ass = 0 & if pcs_vag > 0:pcs_vag = 1
  466. if Enable_clearwrite > 0: body_write = 0 & face_write = 0
  467. if Enable_clearcum > 0:
  468. killvar 'sparrvol[0]'
  469. end
  470. if Enable_fbreath > 0:
  471. cumspclnt = 2
  472. gs 'cum_cleanup'
  473. pcs_breath=1
  474. end
  475. $clear_write = {
  476. body_write = 0
  477. face_write = 0
  478. minut += 10
  479. gs '$menu_obnovit'
  480. 'It takes you 10 minutes to thoroughly wash the obscene "painting" from your body.'
  481. }
  482. if body_write > 0 or face_write > 0:
  483. if body_write > 1 and face_write = 0:
  484. $stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your body is inscribed with derogatory graffiti.</font></b></a>'
  485. elseif body_write = 1 and face_write = 0:
  486. $stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your body is an obscene sign.</font></b></a>'
  487. elseif body_write = 0 and face_write > 1:
  488. $stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your face is covered with writing obscene epithets.</font></b></a>'
  489. elseif body_write = 0 and face_write = 1:
  490. $stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>On your face humiliating label.</font></b></a>'
  491. else
  492. $stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your body and face painted with obscene graffiti.</font></b></a>'
  493. end
  494. end
  495. $cumdescribe = {
  496. idx = 0
  497. killvar 'temparray'
  498. strangecum = 0
  499. tempstrage = 2
  500. tempage = 2
  501. tempvol = 0
  502. idxmax = arrsize('sparrloc')
  503. :idxloop
  504. if sparrloc[idx] = i:
  505. if sparridt[idx] >= 0 and ((arrcomp('temparray',$sparrnam[idx]) = -1) or strcomp($sparrnam[idx],'.*\p{Lu}.*') = 0):
  506. $temparray[0] = $npc_usedname[$sparrnam[idx]]
  507. if sparridt[idx] = 0:somedude = 1
  508. if sparrage[idx] < cumres['new_thresh'] and tempage > 0:
  509. tempage = 0
  510. elseif sparrage[idx] < cumres['crusty_thresh'] and tempage > 1:
  511. tempage = 1
  512. else
  513. tempage = 2
  514. end
  515. elseif sparridt[idx] = -2:
  516. strangecum = 1
  517. if sparrage[idx] < cumres['new_thresh'] and tempstrage > 0:
  518. tempstrage = 0
  519. elseif sparrage[idx] < cumres['crusty_thresh'] and tempstrage > 1:
  520. tempstrage = 1
  521. else
  522. tempstrage = 2
  523. end
  524. end
  525. end
  526. if idx < idxmax: idx += 1 & jump 'idxloop'
  527. killvar 'idxmax'
  528. killvar 'idx'
  529. if arrsize('temparray') > 1:
  530. $cumres['name'] = 'Multiple men'
  531. elseif arrsize('temparray') = 1 and somedude = 1 and strcomp($temparray[0],'.*\p{Lu}.*') = 0:
  532. $cumres['name'] = 'Some '+$temparray[0]
  533. elseif arrsize('temparray') = 1:
  534. $cumres['name'] = $temparray[0]
  535. elseif arrsize('temparray') = 0 and strangecum = 1:
  536. $cumres['name'] = 'Something that looks like somebody'
  537. end
  538. if tempage = 0 or (tempstrage = 0 and strangecum = 1):
  539. $cumres['desc'] = 'fresh '
  540. elseif tempage = 1 or (tempstrage = 1 and strangecum = 1):
  541. $cumres['desc'] = ''
  542. else
  543. if sparrloc[cumres_idx] ! 0 and sparrloc[cumres_idx] ! 3:
  544. $cumres['desc'] = 'crusty '
  545. else
  546. $cumres['desc'] = 'stale '
  547. end
  548. end
  549. killvar 'tempage'
  550. killvar 'tempstrage'
  551. killvar 'strangecum'
  552. killvar 'temparray'
  553. killvar 'somedude'
  554. }
  555. if arrsize('sparrvol') > 0:
  556. i = 0
  557. :selector
  558. if sparrloc[i] = 0:tempsparrvol_p[] = sparrvol[i]
  559. if sparrloc[i] = 3:tempsparrvol_a[] = sparrvol[i]
  560. if i < arrsize('sparrvol'): i += 1 & jump 'selector'
  561. !{index for use in dynamic}
  562. i = 0
  563. !{values for fresh and crusty, only updated where needed}
  564. cumres['new_thresh'] = 4
  565. cumres['crusty_thresh'] = 10
  566. cumres_idx = arrpos('sparrloc',i)
  567. if cumres_idx >= 0 and cumsumvag > 0:
  568. dynamic $cumdescribe
  569. if vibratorIN = 1:
  570. $stat_msg += '<BR><b><font color="red">You feel <<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm filling your pussy, corked in by your vibrator.</font></b>'
  571. else
  572. $cumres['state'] = 'fills your '
  573. if sparrslc[cumres_idx] > 0:
  574. $cumres['state'] = 'slowly flows from your '
  575. spdirtyn = 1
  576. end
  577. if swallow >= 10 and max('tempsparrvol_p') > 0:
  578. $stat_msg += '<BR><b><font color="red">You feel the <<$cumres[''desc'']>><a href="exec:gs ''cum_manage'', ''cumeater'', 0"><b><font color="blue">cum</font></b></a> of <<$cumres[''name'']>> <<$cumres[''state'']>> filling your <a href="exec:view''images/pc/body/cum/creampie/cumpussy'+rand(1,14)+'.jpg''">pussy.</a></font></b>'
  579. else
  580. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm <<$cumres[''state'']>><a href="exec:view''images/pc/body/cum/creampie/cumpussy'+rand(1,14)+'.jpg''">pussy.</a></font></b>'
  581. end
  582. cumloc[0] = 1
  583. spdirty = 1
  584. end
  585. spdirtyi = 1
  586. end
  587. killvar 'tempsparrvol_p'
  588. i = 1
  589. cumres['new_thresh'] = 1
  590. cumres['crusty_thresh'] = 5
  591. cumres_idx = arrpos('sparrloc',i)
  592. if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
  593. dynamic $cumdescribe
  594. if swallow >= 10 and sparrage[cumres_idx] < 5:
  595. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:gs ''cum_manage'', ''cumeater'', 1"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/pc/body/cum/cumpussy/cumpus'+rand(1,4)+'.jpg''">pussy lips.</a></font></b>'
  596. else
  597. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your <a href="exec:view''images/pc/body/cum/cumpussy/cumpus'+rand(1,4)+'.jpg''">pussy lips.</a></font></b>'
  598. end
  599. cumloc[1] = 1
  600. spdirty = 1
  601. spdirtyn = 1
  602. end
  603. i = 2
  604. cumres_idx = arrpos('sparrloc',i)
  605. if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
  606. dynamic $cumdescribe
  607. if swallow >= 10 and sparrage[cumres_idx] < 5:
  608. $stat_msg += '<BR><b><font color="red">You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:gs ''cum_manage'', ''cumeater'', 2"><b><font color="blue">semen</font></b></a><b> stains on the crotch of your panties.</font></b>'
  609. else
  610. $stat_msg += '<BR><b><font color="red">You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>>semen stains on the crotch of your panties.</a></font></b>'
  611. end
  612. cumloc[2] = 1
  613. spdirtyc = 1
  614. end
  615. i = 3
  616. cumres['new_thresh'] = 4
  617. cumres['crusty_thresh'] = 10
  618. cumres_idx = arrpos('sparrloc',i)
  619. if cumres_idx >= 0 and cumsumass > 0:
  620. dynamic $cumdescribe
  621. if analplugin = 1:
  622. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is stuffed in your ass, corked in by your anal plug.</font></b>'
  623. else
  624. $cumres['state'] = 'fills your '
  625. if sparrslc[cumres_idx] > 0:
  626. $cumres['state'] = 'slowly flows from your '
  627. spdirtyn = 1
  628. end
  629. if swallow >= 10 and max('tempsparrvol_a') > 0:
  630. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:gs ''cum_manage'', ''cumeater'', 3"><b><font color="blue">sperm</font></b></a><b> <<$cumres[''state'']>><a href="exec:view''images/pc/body/cum/cumanal/cumanal'+rand(1,11)+'.jpg''">ass</a>.</font></b>'
  631. else
  632. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm <<$cumres[''state'']>><a href="exec:view''images/pc/body/cum/cumanal/cumanal'+rand(1,11)+'.jpg''">ass</a>.</font></b>'
  633. end
  634. end
  635. cumloc[3] = 1
  636. spdirty = 1
  637. spdirtyi = 1
  638. end
  639. killvar 'tempsparrvol_a'
  640. i = 4
  641. cumres['new_thresh'] = 1
  642. cumres['crusty_thresh'] = 5
  643. cumres_idx = arrpos('sparrloc',i)
  644. if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
  645. dynamic $cumdescribe
  646. if swallow >= 10 and sparrage[cumres_idx] < 5:
  647. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:gs ''cum_manage'', ''cumeater'', 4"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/pc/body/cum/cumass/cumass'+rand(1,6)+'.jpg''">ass</a>.</font></b>'
  648. else
  649. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your <a href="exec:view''images/pc/body/cum/cumass/cumass'+rand(1,6)+'.jpg''">ass</a>.</a></font></b>'
  650. end
  651. cumloc[4] = 1
  652. spdirty = 1
  653. spdirtyn = 1
  654. end
  655. i = 5
  656. cumres_idx = arrpos('sparrloc',i)
  657. if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
  658. dynamic $cumdescribe
  659. if swallow >= 10 and sparrage[cumres_idx] < 5:
  660. $stat_msg += '<BR><b><font color="red">You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:gs ''cum_manage'', ''cumeater'', 5"><b><font color="blue">semen</font></b></a><b> stains on the ass of your panties.</font></b>'
  661. else
  662. $stat_msg += '<BR><b><font color="red">You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>>semen stains on the ass of your panties.</a></font></b>'
  663. end
  664. cumloc[5] = 1
  665. spdirtyc = 1
  666. end
  667. i = 6
  668. cumres_idx = arrpos('sparrloc',i)
  669. if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
  670. dynamic $cumdescribe
  671. if swallow >= 10 and sparrage[cumres_idx] < 5:
  672. $stat_msg += '<BR><b><font color="red">You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:gs ''cum_manage'', ''cumeater'', 6"><b><font color="blue">semen</font></b></a><b> stains on the crotch of your <a href="exec:view''images/pc/body/cum/cumfrot/'+rand(1,3)+'.jpg''">clothes</a>.</font></b>'
  673. else
  674. $stat_msg += '<BR><b><font color="red">You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>>semen stains on the crotch of your <a href="exec:view''images/pc/body/cum/cumfrot/'+rand(1,3)+'''">clothes</a>.</a></font></b>'
  675. end
  676. cumloc[6] = 1
  677. spdirtyc = 1
  678. end
  679. i = 7
  680. cumres_idx = arrpos('sparrloc',i)
  681. if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
  682. dynamic $cumdescribe
  683. if swallow >= 10 and sparrage[cumres_idx] < 5:
  684. $stat_msg += '<BR><b><font color="red">You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:gs ''cum_manage'', ''cumeater'', 7"><b><font color="blue">semen</font></b></a><b> stains on your <a href="exec:view''images/pc/body/cum/cumclothes/cumclothes'+rand(1,18)+'.jpg''">clothes</a>.</font></b>'
  685. else
  686. $stat_msg += '<BR><b><font color="red">You have <<$cumres[''name'']>>''s <<$cumres[''desc'']>>semen stains on your <a href="exec:view''images/pc/body/cum/cumclothes/cumclothes'+rand(1,18)+'.jpg''">clothes</a>.</a></font></b>'
  687. end
  688. cumloc[7] = 1
  689. spdirtyc = 1
  690. end
  691. i = 8
  692. cumres_idx = arrpos('sparrloc',i)
  693. if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
  694. dynamic $cumdescribe
  695. if swallow >= 10 and sparrage[cumres_idx] < 5:
  696. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:gs ''cum_manage'', ''cumeater'', 8"><b><font color="blue">sperm</font></b></a><b> is smeared across your back.</font></b>'
  697. else
  698. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your back.</a></font></b>'
  699. end
  700. cumloc[8] = 1
  701. spdirty = 1
  702. spdirtyn = 1
  703. end
  704. i = 9
  705. cumres_idx = arrpos('sparrloc',i)
  706. if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
  707. dynamic $cumdescribe
  708. if swallow >= 10 and sparrage[cumres_idx] < 5:
  709. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:gs ''cum_manage'', ''cumeater'', 9"><b><font color="blue">sperm</font></b></a><b> is smeared across your legs.</font></b>'
  710. else
  711. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your legs.</a></font></b>'
  712. end
  713. cumloc[9] = 1
  714. spdirty = 1
  715. spdirtyn = 1
  716. end
  717. i = 10
  718. cumres_idx = arrpos('sparrloc',i)
  719. if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
  720. dynamic $cumdescribe
  721. if swallow >= 10 and sparrage[cumres_idx] < 5:
  722. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:gs ''cum_manage'', ''cumeater'', 10"><b><font color="blue">sperm</font></b></a><b> is smeared across your arms.</font></b>'
  723. else
  724. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your arms.</a></font></b>'
  725. end
  726. cumloc[10] = 1
  727. spdirty = 1
  728. spdirtyn = 1
  729. end
  730. i = 11
  731. cumres_idx = arrpos('sparrloc',i)
  732. if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
  733. if pcs_haircol = 0:
  734. $cum_face_image = 'brown/'
  735. $cum_face_image += rand(1, 31)
  736. elseif pcs_haircol = 1:
  737. $cum_face_image = 'black/'
  738. $cum_face_image += rand(1, 23)
  739. elseif pcs_haircol = 2:
  740. $cum_face_image = 'red/'
  741. $cum_face_image += rand(1, 19)
  742. elseif pcs_haircol = 3:
  743. $cum_face_image = 'blonde/'
  744. $cum_face_image += rand(1, 25)
  745. elseif pcs_haircol > 3:
  746. $cum_face_image = 'custom/'
  747. $cum_face_image += rand(1, 20)
  748. end
  749. dynamic $cumdescribe
  750. if swallow >= 10 and sparrage[cumres_idx] < 5:
  751. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:gs ''cum_manage'', ''cumeater'', 11"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/pc/body/cum/cumface/<<$cum_face_image>>.jpg''">face</a>.</font></b>'
  752. else
  753. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your <a href="exec:view''images/pc/body/cum/cumface/<<$cum_face_image>>.jpg''">face</a>.</a></font></b>'
  754. end
  755. cumloc[11] = 1
  756. spdirty = 1
  757. spdirtyn = 1
  758. spdirtyv = 1
  759. end
  760. i = 12
  761. cumres_idx = arrpos('sparrloc',i)
  762. if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
  763. dynamic $cumdescribe
  764. $stat_msg += '<BR><b><font color="red">Your mouth smells from <<$cumres[''name'']>>''s sperm.</a></font></b>'
  765. cumloc[12] = 1
  766. spdirty = 1
  767. spdirtyb = 1
  768. pcs_breath = 0
  769. end
  770. i = 13
  771. cumres_idx = arrpos('sparrloc',i)
  772. if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
  773. dynamic $cumdescribe
  774. if swallow >= 10 and sparrage[cumres_idx] < 5:
  775. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:gs ''cum_manage'', ''cumeater'', 13"><b><font color="blue">sperm</font></b></a><b> is smeared across your hands.</font></b>'
  776. else
  777. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your hands.</a></font></b>'
  778. end
  779. cumloc[13] = 1
  780. spdirty = 1
  781. spdirtyn = 1
  782. spdirtyv = 1
  783. spdirtyf = 1
  784. end
  785. i = 14
  786. cumres_idx = arrpos('sparrloc',i)
  787. if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
  788. dynamic $cumdescribe
  789. if swallow >= 10 and sparrage[cumres_idx] < 5:
  790. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:gs ''cum_manage'', ''cumeater'', 14"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/pc/body/cum/cumbelly/cumbelly'+rand(1,12)+'.jpg''">stomach</a>.</font></b>'
  791. else
  792. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your <a href="exec:view''images/pc/body/cum/cumbelly/cumbelly'+rand(1,12)+'.jpg''">stomach.</a></font></b>'
  793. end
  794. cumloc[14] = 1
  795. spdirty = 1
  796. spdirtyn = 1
  797. end
  798. i = 15
  799. cumres_idx = arrpos('sparrloc',i)
  800. if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
  801. dynamic $cumdescribe
  802. if swallow >= 10 and sparrage[cumres_idx] < 5:
  803. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:gs ''cum_manage'', ''cumeater'', 15"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/pc/body/cum/cumtits/cumtits'+rand(1,19)+'.jpg''">breasts.</a></font></b>'
  804. else
  805. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared across your <a href="exec:view''images/pc/body/cum/cumtits/cumtits'+rand(1,19)+'.jpg''">breasts.</a></font></b>'
  806. end
  807. cumloc[15] = 1
  808. spdirty = 1
  809. spdirtyn = 1
  810. end
  811. i = 16
  812. cumres_idx = arrpos('sparrloc',i)
  813. if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
  814. dynamic $cumdescribe
  815. if swallow >= 10 and sparrage[cumres_idx] < 5:
  816. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>><a href="exec:gs ''cum_manage'', ''cumeater'', 16"><b><font color="blue">sperm</font></b></a><b> is smeared in your hair.</font></b>'
  817. else
  818. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <<$cumres[''desc'']>>sperm is smeared in your hair.</a></font></b>'
  819. end
  820. cumloc[16] = 1
  821. spdirty = 1
  822. spdirtyn = 1
  823. spdirtyv = 1
  824. end
  825. i = 17
  826. cumres_idx = arrpos('sparrloc',i)
  827. if cumres_idx >= 0 and sparrvol[cumres_idx] > 0:
  828. dynamic $cumdescribe
  829. if sparrage[cumres_idx] < 1:
  830. $cumtemp = 'freshly buried'
  831. elseif sparrage[cumres_idx] < 13:
  832. $cumtemp = 'buried'
  833. elseif sparrage[cumres_idx] <= 48:
  834. $cumtemp = 'marinating'
  835. else
  836. $cumtemp = 'rotting'
  837. end
  838. if cumcondslip_deep > (pcs_vag / 2):
  839. $cumtemp += ' deep'
  840. end
  841. if cumcondslip_aware > 0:
  842. $stat_msg += '<BR><b><font color="red"><<$cumres[''name'']>>''s <a href="exec:gs ''cum_cleanup'', ''cumcondslip''"><font color="blue">spent condom</font></a> full of sperm is <<$cumtemp>> in your vagina.</font></b>'
  843. end
  844. cumloc[17] = 1
  845. end
  846. end
  847. !{should kill all temp values}
  848. cumres_idx = 0
  849. cumfrot = 0
  850. cumpussy = 0
  851. cumbelly = 0
  852. cumass = 0
  853. cumlip = 0
  854. cumface = 0
  855. cumanus = 0
  856. if $clothingworntype = 'nude' and lactatemess > 0:
  857. if lactatemess < 3:
  858. $stat_msg += '<BR><font color = black>You have a little milk residue around your nipples.</font>'
  859. elseif lactatemess < 7:
  860. $stat_msg += '<BR><font color = black>You have a lot of milk residue around your nipples.</font>'
  861. else
  862. $stat_msg += '<BR><font color = black>Your breasts are drenched with milk residue.</font>'
  863. end
  864. elseif lactatemess > 0:
  865. if lactatemess < 3:
  866. $stat_msg += '<BR><font color = black>You have tiny wet spots on your clothes above your nipples.</font>'
  867. elseif lactatemess < 7:
  868. $stat_msg += '<BR><font color = black>Milk has soaked through your clothes and made visible circles on your breasts.</font>'
  869. else
  870. $stat_msg += '<BR><font color = black>Your shirt is drenched with milk from your breasts.</font>'
  871. end
  872. end
  873. if Gerpes >= 10:
  874. $stat_msg += '<BR><b><font color="red">On your pussy sores have appeared. This is genital herpes.</font></b>'
  875. elseif Gerpes >= 5:
  876. $stat_msg += '<BR><b><font color="red">Your pussy is flushed and highly itchy. This is genital herpes.</font></b>'
  877. elseif Gerpes >= 3:
  878. $stat_msg += '<BR><b><font color="red">On your lips sores. All signs of genital herpes.</font></b>'
  879. end
  880. if Gerpes >= 20:$stat_msg += '<BR> <b><font color="red">The sores also cover your ass.</font></b>'
  881. if Sifilis >= 50:
  882. $stat_msg += '<BR><b><font color="red">Syphilitic rashes cover your whole body.</font></b>'
  883. elseif Sifilis >= 21:
  884. $stat_msg += '<BR><b><font color="red">You have a single big, hard sore on the lip.</font></b>'
  885. end
  886. 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>'
  887. if Kandidoz > 30:$stat_msg += '<BR><b><font color="red">You have thrush.</font></b>'
  888. 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>'
  889. 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>'
  890. if fingal > 0:$stat_msg += '<BR><b><font color="red">You have a black eye.</font></b>'
  891. ! WD: Bimbo look
  892. if bimbolevel > 0: $stat_msg += '<BR><<$bimbostatus>>'
  893. if tanga = 1 and $clothingworntype = 'nude':
  894. $stat_msg += '<BR><b><font color = red>You are only wearing your panties and your boobs sway invitingly as you walk</font></b>'
  895. elseif tanga= 1 and PCloBimbo = 1:
  896. $stat_msg += '<BR><b><font color = #FF00FF>You are dressed as a bimbo</font></b>'
  897. elseif tanga = 0:
  898. if CloStyle = 4:
  899. $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>'
  900. elseif PCloBimbo = 1 or bimbolevel > 0 and PCloSkirt > 3:
  901. $stat_msg += '<BR><b><font color = #FF00FF>You like, totally forgot to put on any panties. You are such a bimbo.</font></b>'
  902. elseif PCloSkirt > 3:
  903. $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>'
  904. elseif $clothingworntype ! 'nude':
  905. $stat_msg += '<BR><b><font color="red">You are not wearing panties.</font></b>'
  906. elseif towel = 1:
  907. $stat_msg += '<BR><b><font color = red>Your naked body is covered only by a short towel.</font></b>'
  908. elseif $clothingworntype = 'nude' and pcs_exhibition < 5:
  909. $stat_msg += '<BR><b><font color = red>You are completely naked, and it makes you feel nervous and ashamed.</font></b>'
  910. elseif $clothingworntype = 'nude' and pcs_exhibition < 20:
  911. $stat_msg += '<BR><b><font color = red>You are completely naked, you''re not too comfortable we nudity but it is a little exciting.</font></b>'
  912. elseif $clothingworntype = 'nude' and pcs_exhibition >= 90:
  913. $stat_msg += '<BR><b><font color = blue>You are completely naked, which is far better than having to wear clothes.</font></b>'
  914. elseif $clothingworntype = 'nude':
  915. $stat_msg += '<BR><b><font color = #FF00FF>You are completely naked. It''s exciting and you feel tingly inside.</font></b>'
  916. end
  917. end
  918. $stat_msg += '<BR>'
  919. if mosol >= 50:
  920. $stat_msg += '<BR><b><font color="red">Your pussy hurts and each step causes more pain, it''s crimson and visibly scuffed from walking without underwear.</font></b>'
  921. elseif mosol >= 30:
  922. $stat_msg += '<BR><b><font color="red">Your pussy is flushed and itchy, it seems to be from rubbing against your clothing.</font></b>'
  923. end
  924. if analplugIN = 1:$stat_msg += '<BR><b><font color="red">You have a butt plug inserted in your ass.</font></b>'
  925. if vibratorin = 1:$stat_msg += '<BR><b><font color="red">You have a vibrator inserted in your vagina.</font></b>'
  926. $stat_msg += '<BR>'
  927. if young_shop_work = 1:
  928. if hour = 15 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
  929. 'You are late for work at Pussy-Cats.'
  930. elseif hour = 15 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
  931. misscheck = daystart
  932. young_shop_miss += 1
  933. $stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
  934. elseif (hour = 14 or hour = 13) and week < 6:
  935. $stat_msg += '<BR><b><font color="red">By 15:00 you have to be at work in the shop Pussy-Cats.</font></b>'
  936. end
  937. end
  938. if workrin = 1:
  939. if week = 2 or week = 4 or week = 6:
  940. if hour = 7:$stat_msg += '<BR><b><font color="red">At 8 c''clock you start work on the market.</font></b>'
  941. if hour = 8:$stat_msg += '<BR><b><font color="red">You need to work on the market now.</font></b>'
  942. end
  943. end
  944. if frost > 0:
  945. if frost <= 5:
  946. $stat_msg += '<BR><b><font>You are a little chilly.</font></b>'
  947. elseif frost < 11:
  948. $stat_msg += '<BR><b><font color="red">You are cold.</font></b>'
  949. else
  950. $stat_msg += '<BR><b><font color="red">You are freezing.</font></b>'
  951. end
  952. end
  953. if sick > 0:
  954. if sick = 1:
  955. $stat_msg += '<BR><b><font color="red">This is not good, a tickle in the throat and a little runny nose.</font></b>'
  956. elseif sick < 24:
  957. $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>'
  958. elseif sick < 48:
  959. $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>'
  960. elseif sick < 72:
  961. $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>'
  962. else
  963. $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>'
  964. end
  965. end
  966. if hypnoAddict > 0:
  967. if hypnoWithdrawal = 1:
  968. if missCum >= timeTresh:
  969. $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>'
  970. else
  971. $stat_msg += '<BR><b><font color="red">You feel like talking to your therapist. You miss your sessions.</font></b>'
  972. end
  973. elseif hypnoWithdrawal = 2:
  974. if missCum >= timeTresh:
  975. $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>'
  976. else
  977. $stat_msg += '<BR><b><font color="red">You need to talk to your therapist. You feel unbalanced without your sessions.</font></b>'
  978. end
  979. else
  980. 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>'
  981. end
  982. end
  983. if $mudnerd ! '':$stat_msg += '<BR><<$mudnerd>>'
  984. if housr = 1:
  985. $streetev_home = 'your apartment'
  986. elseif tanwork = 1:
  987. $streetev_home = 'Tanya''s apartment'
  988. elseif student > 0:
  989. $streetev_home = 'your dorm'
  990. else
  991. $streetev_home = 'the train station'
  992. end
  993. if hour < meethour and svidanieA = 1:$stat_msg += '<BR><<$boydescA>> will be waiting for you near <<$streetev_home>> at <<meethour>>:00.'
  994. if hour = meethour and svidanieA = 1:$stat_msg += '<BR><b><font color="red"><<$boydescA>> is waiting for you by <<$streetev_home>>.</font></b>'
  995. if meetday < daystart and svidanieA = 1:bfA -= 10 & svidanieA = 0
  996. if StrongNarkota > 20:$stat_msg += '<BR><b><font color="red">You are stoned.</font></b>'
  997. if alko > 0:
  998. if alko < 3:$stat_msg += '<BR><b><font color="red">You''re a little dizzy.</font></b>'
  999. if alko >= 3 and alko < 6:$stat_msg += '<BR><b><font color="red">You''re drunk.</font></b>'
  1000. if alko >= 6:$stat_msg += '<BR><b><font color="red">You''re wasted.</font></b>'
  1001. end
  1002. if StoryLine = 1:
  1003. if day = 31 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.'
  1004. 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.'
  1005. 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.'
  1006. 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>'
  1007. end
  1008. if model > 0 and modelmon = month:
  1009. $stat_msg += '<BR><b>You worked as a model this month.</b>'
  1010. elseif model > 0 and modelmon ! month:
  1011. $stat_msg += '<BR><b>You can work as a model this month.</b>'
  1012. end
  1013. if pornstack > 0:
  1014. aa = 0
  1015. :pfilmtime
  1016. if aa < 200 and pfilmday[aa] = 0: aa += 1 & jump 'pfilmtime'
  1017. end
  1018. if pornstack > 0 and pfilmday[0] = 0:
  1019. if pfilmday[1] = 0:
  1020. $stat_msg += '<br><b>You will star in another porno in <<aa>> days.</b>'
  1021. else
  1022. $stat_msg += '<br><b>You have a porno shoot scheduled tomorrow.</b>'
  1023. end
  1024. end
  1025. if pfilmday[0] > 0:
  1026. if pornnow = 1:
  1027. $stat_msg += '<br><b>You are at a porn shooting.</b>'
  1028. else
  1029. if hour < 11: $stat_msg += '<br><b>You are expected in the porno studio at 10:00.</b>'
  1030. if hour >= 11 and hour < 13: $stat_msg += '<br><b>You should be at the porno studio, shooting!</b>'
  1031. if hour >= 13: $stat_msg += '<br><b>You missed a scheduled porno shoot!</b>'
  1032. end
  1033. end
  1034. if pornmiss = 1: $stat_msg += '<br><b>You missed a scheduled porno shoot!</b>'
  1035. if prodcosttrue > 0: $stat_msg += '<br><b>You owe to the porn studio <<prodcost>>?</b>'
  1036. if firstkasting > 0 and pfilmNO < 1 and pornstack < 10: $stat_msg += '<br><b>You can contract to <<10-pornstack>> porno movie.</b>'
  1037. 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>'
  1038. 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>'
  1039. 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>'
  1040. 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>'
  1041. 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>'
  1042. 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>'
  1043. if leonidVisit = 1: $stat_msg += '<br><b>You have to serve Leonid at 20:00 in his Pavlovsk office!</b>'
  1044. gs 'brother', 'brotherSexCount'
  1045. !!zero checks marriage
  1046. proverka1 = 0
  1047. proverka2 = 0
  1048. proverka3 = 0
  1049. proverka4 = 0
  1050. proverka5 = 0
  1051. if boletus + bilberry > 0:
  1052. if boletus + bilberry >= 10:
  1053. $stat_msg +='<br><b><font color = Olive>You have a full basket.</b></font> '
  1054. else
  1055. $stat_msg +='<br><b>In Your basket</b>:'
  1056. end
  1057. if boletus > 0:$stat_msg +='mushrooms: <b><<boletus>></b> kg.'
  1058. if bilberry > 0:$stat_msg +='berries: <b><<bilberry>></b> kg.'
  1059. end
  1060. $stat_msg += '<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>'
  1061. $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>'
  1062. if Enable_statfsize > 0: $stat_msg += '<BR></font>' & !disable this, all texts comes from pl will have the same font size, like[time]
  1063. if Enable_faceturn = 1: view FUNC('$face_image')
  1064. if Enable_Android = 0:
  1065. pl '<<$stat_msg>>'
  1066. else
  1067. '<<$stat_android>>'
  1068. $stat_msg = 'Android mode, <a href="exec:gs ''$menu_obnovit''">Refresh</a><<$stat_msg>>'
  1069. end
  1070. --- stat_display ---------------------------------