1
0

obj_din 77 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914
  1. # obj_din
  2. if $ARGS[0] = 'show_tits':
  3. view 'images/pc/body/tits/t<<tits>>.jpg'
  4. end
  5. if $ARGS[0] = 'descrip':
  6. gs 'body'
  7. clr
  8. pl'<center><img src="images/system/icon/description.png"><br></center>'
  9. pl 'Your name is <<$pcs_firstname>> <<$pcs_lastname>>.'
  10. !!!0.2.6 extension
  11. if StoryLine > 0:
  12. pl 'Your friends and family sometimes call you <<$pcs_nickname>>.'
  13. else
  14. pl 'Your friends sometimes call you <<$pcs_nickname>>.'
  15. end
  16. !!!
  17. pl 'Your current home is <a href="exec:gs ''obj_din'', ''cur_home''"><<$home_name>></a>.'
  18. if succubusflag = 1 and sucpcinfo >= 4: pl 'You are a Succubus.'
  19. if age = vidage:
  20. pl 'You are <<age>> years old.'
  21. else
  22. pl 'You are <<age>> years old, but you appear to be <<vidage>>.'
  23. end
  24. if birthday <= 9 and birthmonth <= 9:
  25. $birthdayD = '0<<birthday>>.0<<birthmonth>>.<<birthyear>>.'
  26. elseif birthday > 9 and birthmonth <= 9:
  27. $birthdayD = '<<birthday>>.0<<birthmonth>>.<<birthyear>>.'
  28. elseif birthday > 9 and birthmonth > 9:
  29. $birthdayD = '<<birthday>>.<<birthmonth>>.<<birthyear>>.'
  30. else
  31. $birthdayD = '0<<birthday>>.<<birthmonth>>.<<birthyear>>.'
  32. end
  33. pl 'Your date of birth is <<$birthdayD>>'
  34. nl
  35. pl 'You are <<pcs_hgt>>cm tall and <a href="exec:gs ''obj_din'', ''body''"><<$body>></a>.'
  36. pl 'Your breasts would be considered an EU <a href="exec:gs ''obj_din'', ''show_tits''"><<$titsize>></a>.'
  37. pl '<<$nipplesize>>'
  38. pl '<<$pcs_apprnc>>'
  39. if preg = 1:
  40. if denypreg = 1 and pregtime > 75:
  41. pl 'You seem to be putting on a bit of weight, your belly is definitely bigger.'
  42. elseif pregtime > 196:
  43. pl 'You''re rapidly approaching the finish line and have entered the third trimester. Your belly is so big now that you can barely remember what your toes look like. Your back hurts most of the time and it is a struggle to get to your feet if you sit down. The baby seems to think that your bladder makes a nice punching bag.'
  44. elseif pregtime > 130:
  45. pl 'Your belly is quite swollen now and shows under even the loosest of clothes. You find yourself constantly caressing your belly without realizing it.'
  46. elseif pregtime > 90 and knowpreg = 1:
  47. pl 'You are showing for sure now. Your tummy is starting to become rounder as it grows larger each day, although you can still wear baggy clothes to hide it. At least the morning sickness and nausea seem to have gone away for the most part.'
  48. elseif pregtime > 90 and knowpreg = 0:
  49. pl 'You can''t seem to stop gaining weight and your belly looks like it is getting bigger everyday, although you can still wear baggy clothes to hide it. At least the flu you''ve been fighting lately seems to have finally gone away for the most part.'
  50. elseif pregtime > 75 and knowpreg = 1:
  51. pl 'Your breasts look and feel swollen and tingle at the slightest touch. Waking up is getting harder to do and it takes you longer to get going in the morning. Lately, just the thought of food is enough to turn your stomach. Speaking of your stomach, you can definitely feel a baby bump now, although it is still hard to see.'
  52. elseif pregtime > 75 and knowpreg = 0:
  53. pl 'Your breasts look and feel swollen and tingle at the slightest touch. Waking up is getting harder to do and it takes you longer to get going in the morning. Lately, just the thought of food is enough to turn your stomach. Speaking of your stomach, you have developed a bit of a paunch, although it is still hard to see.'
  54. elseif pregtime > 50:
  55. pl 'You''ve noticed that your breasts seem firmer lately and your nipples seem to be sticking out more.'
  56. end
  57. end
  58. nl
  59. if avatar_hair = 1:
  60. pl'Your hair: <<$av_hair>>.'
  61. else
  62. pl'<<$hair>>'
  63. end
  64. if defcurly = 0 and curly > 0:pl 'Your curls are good for another <<curly>> days.'
  65. if defcurly = 1 and straight > 0:pl 'Your hair should be straight for another <<straight>> days.'
  66. nl
  67. pl '<<$lip>>'
  68. pl '<<$pcs_throat>>'
  69. pl '<<$skin>>'
  70. pl '<<$glaza>>'
  71. pl '<<$pcs_makeup>>.'
  72. pl '<<$pcs_leghair>>'
  73. pl '<<$pcs_pubes>>'
  74. pl '<<$pcs_vag>>'
  75. pl '<<$pcs_ass>>'
  76. nl
  77. if salo < 10 and musle > 0 and dounspell = 0:pl '<b><font color="red">You are showing signs of malnourishment. You should probably eat more and more often.</font></b>'
  78. if salo < 10 and musle = 0 and dounspell = 0:pl '<b><font color="red">You are dangerously malnourished, which has led to a loss in muscle mass. You''re in a critical condition and likely to pass out!</font></b>'
  79. if pcs_teeth = 1:$zuba = ' tooth'
  80. if pcs_teeth >= 2:$zuba = ' teeth'
  81. if pcs_teeth > 0:pl 'You have lost <<pcs_teeth>><<$zuba>>.'
  82. !!pl 'pcs_apprnc <<pcs_apprnc>>'
  83. !!pl 'curlykoef <<curlykoef>> a maximum of 1'
  84. !!pl 'tits <<tits>> A maximum of 6'
  85. !!pl 'pcs_lip <<pcs_lip>> a maximum of 4'
  86. !!pl 'tanKoef <<tanKoef>> a maximum of 1'
  87. !!pl 'skin <<skin>> a maximum of 4'
  88. !!pl 'pcs_makeup <<pcs_makeup>> a maximum of 4'
  89. !!pl 'pcs_lashes <<pcs_lashes>> a maximum of 2'
  90. !!pl 'pcs_eyesize <<pcs_eyesize>> a maximum of 3'
  91. !!pl 'bodykoef <<bodykoef>> a maximum of 8'
  92. !!pl 'legkoef <<legkoef>> a maximum of 3'
  93. !!pl 'lobkoef <<lobkoef>> a maximum of 3'
  94. !!pl 'odevnesh <<odevnesh>> a maximum of 15'
  95. !!pl 'pcs_sweat <<pcs_sweat>> the maximum 0'
  96. !!pl 'pcs_hairbsh <<pcs_hairbsh>> a maximum of 1'
  97. !!!!!!!! Maruda Hair Mod
  98. if pcs_hairlng > 41 and hscrunch >= 1:
  99. if hscrunchw = 0 and hpingripw = 0:pl 'As you have a scrunchy, you can arrange your hair into a <a href="exec:hscrunchw = 1 & gs ''obj_din'', ''descrip''">ponytail</a>. You have <<hscrunch>> scrunchies left.'
  100. if hscrunchw = 1:pl 'Remove the <a href="exec:hscrunchw = 0 & gs ''obj_din'', ''descrip''">scrunchie</a> to get rid of the ponytail.'
  101. end
  102. if pcs_hairlng > 41 and hpingrip >= 1:
  103. if hscrunchw = 0 and hpingripw = 0:pl 'You have several clips, pins and grips for you hair. Hence, you can <a href="exec:hpingripw = 1 & gs ''obj_din'', ''descrip''">updo your hair</a>. You have <<hpingrip>> hair accessories at your disposal.'
  104. if hpingripw = 1:pl 'Let your hair <a href="exec:hpingripw = 0 & gs ''obj_din'', ''descrip''">flow free</a>.'
  105. end
  106. if pcs_hairlng > 80 and hscrunch >= 2:
  107. if hscrunchw = 0 and hpingripw = 0:pl 'You can use two hair ties to make yourself some <a href="exec:hpigtail = 1 & hscrunchw = 2 & gs ''obj_din'', ''descrip''">pigtails</a>.'
  108. if hscrunchw = 2:pl '<a href="exec:hpigtail = 0 & hscrunchw = 0 & gs ''obj_din'', ''descrip''">Remove</a> your scrunchies and let your hair flow free again.'
  109. end
  110. if hscrunch < 1:hscrunchw = 0
  111. if hpingrip < 1:hpingripw = 0
  112. if hscrunch < 2:hpigtail = 0
  113. !!!!!!!! Maruda Hair Mod
  114. end
  115. if $ARGS[0] = 'cur_home':
  116. clr
  117. pl'<center><img src="images/system/icon/description.png"><br></center>'
  118. pl' <a href="exec:gs ''obj_din'', ''descrip''">Return to main description</a>'
  119. nl
  120. !!This is correct it just looks wrong
  121. if home_owned[1] = 1:pl 'Set current home as <a href="exec:home_cur = 1 & $home_name = ''City residential apartment'' & gs ''obj_din'', ''cur_home''">City residential apartment</a>'
  122. if home_owned[2] = 1:pl 'Set current home as <a href="exec:home_cur = 2 & $home_name = ''Parent''''s home in Pavlovsk'' & gs ''obj_din'', ''cur_home''">Parent''s home in Pavlovsk</a>'
  123. if home_owned[3] = 1:pl 'Set current home as <a href="exec:home_cur = 3 & $home_name = ''My cottage in the cooperative farm'' & gs ''obj_din'', ''cur_home''">My cottage in the cooperative farm</a>'
  124. if home_owned[4] = 1:pl 'Set current home as <a href="exec:home_cur = 4 & $home_name = ''Old town apartment'' & gs ''obj_din'', ''cur_home''">Old town apartment</a>'
  125. if home_owned[5] = 1:pl 'Set current home as <a href="exec:home_cur = 5 & $home_name = ''My mansion'' & gs ''obj_din'', ''cur_home''">My mansion</a>'
  126. if home_owned[6] = 1:pl 'Set current home as <a href="exec:home_cur = 6 & $home_name = ''My hotel room in Pavlovsk'' & gs ''obj_din'', ''cur_home''">My hotel room in Pavlovsk</a>'
  127. if home_owned[7] = 1:pl 'Set current home as <a href="exec:home_cur = 7 & $home_name = ''Tanya''''s house'' & gs ''obj_din'', ''cur_home''">Tanya''s house</a>'
  128. if home_owned[8] = 1:pl 'Set current home as <a href="exec:home_cur = 8 & $home_name = ''Niko''''s apartment'' & gs ''obj_din'', ''cur_home''">Niko''s apartment</a>'
  129. if home_owned[9] = 1:pl 'Set current home as <a href="exec:home_cur = 9 & $home_name = ''Uncle Sergi''''s apartment'' & gs ''obj_din'', ''cur_home''">Uncle Sergi''s apartment</a>'
  130. if home_owned[10] = 1:pl 'Set current home as <a href="exec:home_cur = 10 & $home_name = ''Lyceum school'' & gs ''obj_din'', ''cur_home''">Lyceum school</a>'
  131. if home_owned[11] = 1:pl 'Set current home as <a href="exec:home_cur = 11 & $home_name = ''University halls'' & gs ''obj_din'', ''cur_home''">University halls</a>'
  132. if home_owned[12] = 1:pl 'Set current home as <a href="exec:home_cur = 12 & $home_name = ''Hunter''''s lodge in Gadukino'' & gs ''obj_din'', ''cur_home''">Hunter''s lodge in Gadukino</a>'
  133. if home_owned[13] = 1:pl 'Set current home as <a href="exec:home_cur = 13 & $home_name = ''Shared apartment in Pavlovsk'' & gs ''obj_din'', ''cur_home''">Shared apartment in Pavlovsk</a>'
  134. !!Apostrophe colour correction - KS ''''
  135. end
  136. if $ARGS[0] = 'skills':
  137. clr
  138. pl'<center><img src="images/system/icon/stats.png"><br></center>'
  139. pl' <a href="exec:gs ''obj_din'', ''sex_skills''">View Sexual skills</a>'
  140. nl
  141. pl 'Attractiveness <<pcs_apprnc>>'
  142. pl 'Power <<pcs_stren>>'
  143. pl 'Speed ​​<<speed>>'
  144. pl 'Agility <<pcs_agil>>'
  145. pl 'Endurance <<pcs_vital>>'
  146. pl 'Intelligence <<pcs_intel>>'
  147. pl 'Spirit <<pcs_sprt>>'
  148. pl 'Reaction <<pcs_react>>'
  149. pl 'You are <<$body>>.'
  150. nl
  151. !!pl 'Muscles <<$musle>>'
  152. if pcs_magik > 0:pl 'Magic - <<pcs_magik>>'
  153. if pcs_jab > 0:pl 'Jabs - <<pcs_jab>>'
  154. if pcs_punch > 0:pl 'Power Strikes - <<pcs_punch>>'
  155. if pcs_kick > 0:pl 'Kicks - <<pcs_kick>>'
  156. if pcs_def > 0:pl 'Defense - <<pcs_def>>'
  157. if pcs_run > 0:pl 'Running skill - <<pcs_run>>'
  158. if pcs_vball > 0:pl 'Volleyball skill - <<pcs_vball>>'
  159. if pcs_servng > 0:pl 'Waitress skill - <<pcs_servng>>'
  160. if pcs_vokal > 0:pl 'Vocal skill - <<pcs_vokal>>'
  161. if pcs_danc > 0:pl 'Dancing skill - <<pcs_danc>>'
  162. if pcs_dancero > 0:pl 'Erotic dancing skill - <<pcs_dancero>>'
  163. if pcs_dancpol > 0:pl 'Pole dancing skill - <<pcs_dancpol>>'
  164. if pcs_shoot > 0:pl 'Shooting Accuracy - <<pcs_shoot>>'
  165. if SchoolAtestat = 0 and StoryLine > 0:
  166. if pcs_grades >= 90:
  167. pl 'You are an A+ student.'
  168. elseif pcs_grades >= 80:
  169. pl 'You are a bright student, just not the top of your class.'
  170. elseif pcs_grades >= 70:
  171. pl 'You are an above average student, but you have to work hard to keep up.'
  172. elseif pcs_grades >= 60:
  173. pl 'You are the typical average student. You''re good in the fields you like, but can''t be bothered with the rest.'
  174. elseif pcs_grades >= 50:
  175. pl 'You''re not very good in school, you wish you could be somewhere else and your grades show it.'
  176. elseif pcs_grades >= 40:
  177. pl 'You are not cut out for school, you skip out most of the time. You wonder how you''re going to manage to get passing grades.'
  178. else
  179. pl 'You are the class nitwit. You''re still not sure how you got this far in the first place.'
  180. end
  181. if schoolprogul > 1:pl 'Absenteeism in school - <<schoolprogul>> days'
  182. end
  183. end
  184. if $ARGS[0] = 'sex_skills':
  185. clr
  186. pl'<center><img src="images/system/icon/stats.png"><br></center>'
  187. pl'<a href="exec:gs ''obj_din'', ''stats''">To skills main page</a><right><a href="exec:gs ''obj_din'', ''skills''">To characteristics page</a></right>'
  188. nl
  189. pl '<b>Sexual characteristics</b>'
  190. nl
  191. pl 'Exhibitionism <<pcs_exhibition>>'
  192. pl 'Exhibitionist sex preference: <<exhibitionism[''pref'']>>'
  193. pl 'Exhibitionist sex: <<exhibitionism[''exp'']>>'
  194. if SUB > 0:pl 'Submissiveness <<SUB>>'
  195. if pcs_dom > 0:pl 'Dominance <<pcs_dom>>'
  196. pl 'Submissive sex: <<sub[''exp'']>>'
  197. pl 'Dominant sex: <<dom[''exp'']>>'
  198. pl 'Lesbian sex preference: <<lesbian[''pref'']>>'
  199. pl 'Lesbian sex: <<lesbian[''exp'']>>'
  200. nl
  201. pl '<b>Fetishes</b>'
  202. pl 'Feet preference: <<feet[''pref'']>>'
  203. pl 'Foot jobs / worship: <<feet[''exp'']>>'
  204. pl 'Deepthroat preference: <<deepthroat[''pref'']>>'
  205. pl 'Deepthroated: <<deepthroat[''exp'']>>'
  206. pl 'Group preference: <<group[''pref'']>>'
  207. pl 'Group sex: <<group[''exp'']>>'
  208. pl 'Gangbang preference: <<gangbang[''pref'']>>'
  209. pl 'Gangbangs: <<gangbang[''exp'']>>'
  210. pl 'Humiliation preference: <<humiliation[''pref'']>>'
  211. pl 'Humiliation experiences: <<humiliation[''exp'']>>'
  212. pl 'Prostitution preference: <<prostitution[''pref'']>>'
  213. pl 'Prostituted yourself: <<prostitution[''exp'']>>'
  214. pl 'Bondage preference: <<bound[''pref'']>>'
  215. pl 'Bondage play: <<bound[''exp'']>>'
  216. pl 'Masochism preference: <<maso[''pref'']>>'
  217. pl 'Masochism experiences: <<maso[''exp'']>>'
  218. pl 'Bestiality encounters: <<beast[''pref'']>>'
  219. pl 'Bestiality experience: <<beast[''exp'']>>'
  220. pl 'Rough sex preference: <<rough[''pref'']>>'
  221. pl 'Rough sex: <<rough[''exp'']>>'
  222. pl 'Incest preference: <<incest[''pref'']>>'
  223. pl 'Incestuous sex: <<incest[''exp'']>>'
  224. nl
  225. end
  226. if $ARGS[0] = 'husb_cheat_count':
  227. if husband > 0:
  228. if guy > before_h_guy :
  229. guy_cheat += guy - guy_cheat
  230. before_h_guy = guy
  231. end
  232. if girl > before_h_girl:
  233. girl_cheat += girl - before_h_girl
  234. before_h_girl = girl
  235. end
  236. end
  237. if before_h_girl > 0 and before_h_guy > 0:
  238. pl'During your marriage you have cheated with your husband with <<guy_cheat>> guys and <<girl_cheat>> girls.'
  239. elseif before_h_guy > 0:
  240. pl'During your marriage you have cheated with your husband with <<guy_cheat>> guys.'
  241. elseif before_h_girl > 0:
  242. pl'During your marriage you have cheated with your husband with <<girl_cheat>> girls.'
  243. end
  244. end
  245. if $ARGS[0] = 'stats':
  246. clr
  247. pl'<center><img src="images/system/icon/statistics.png"><br></center>'
  248. nl
  249. nl
  250. nl
  251. pl' <a href="exec:gs ''obj_din'', ''stats_gen''">View general statistics</a>'
  252. pl' <a href="exec:gs ''obj_din'', ''stats_achievements''">View achievements</a>'
  253. pl' <a href="exec:gs ''obj_din'', ''skills''">View characteristics page</a>'
  254. pl' <a href="exec:gs ''obj_din'', ''stats_sex''">View sex statistics</a>'
  255. nl
  256. nl
  257. pl' <a href="exec:gs ''obj_din'', ''stats_att''">View attribute details</a>'
  258. nl
  259. pl'Detailed statistics:'
  260. pl' <a href="exec:gs ''obj_din'', ''stats_mental''">View Mental Skills</a>'
  261. pl' <a href="exec:gs ''obj_din'', ''stats_sport''">View Sport skills</a>'
  262. pl' <a href="exec:gs ''obj_din'', ''stats_beauty''">View Beauty/Modelling skills</a>'
  263. pl' <a href="exec:gs ''obj_din'', ''stats_artistic''">View Artistic skills</a>'
  264. pl' <a href="exec:gs ''obj_din'', ''stats_job''">View Job skills</a>'
  265. end
  266. if $ARGS[0] = 'stats_gen':
  267. clr
  268. pl'<center><img src="images/system/icon/statistics.png"><br></center>'
  269. pl'<a href="exec:gs ''obj_din'', ''stats''">Return to statistics main page</a>'
  270. nl
  271. if opPRE = 0:pl 'It has been <<daystart>> days since the game started.'
  272. nl
  273. if BuyHous = 2 and ArendHouseSL >0:
  274. pl 'You have rented an apartment in the residential area for <<ArendHouseSL>> days.'
  275. if money >= 6000 or stolmoney >= 6000 or money + stolmoney >= 6000 or karta + bankDebtLimit >= 6000:
  276. *P ' Renew with '
  277. if money >= 6000:
  278. *P ' <a href="exec:money -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30" & gs ''$menu_obnovit''>cash</a>'
  279. elseif stolmoney >= 6000:
  280. *P ' <a href="exec:stolmoney -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30" & gs ''$menu_obnovit''>cash from drawer</a>'
  281. elseif money + stolmoney >= 6000:
  282. !both < 6000, so money = money - 6000 + stolmoney
  283. *P ' <a href="exec:money -= 6000 - stolmoney & stolmoney = 0 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30" & gs ''$menu_obnovit''>cash from purse and drawer</a>'
  284. end
  285. !from purse, drawer or both
  286. if karta >= 6000:
  287. *P ' <a href="exec:karta -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''$menu_obnovit''">bank account</a>'
  288. elseif karta + bankDebtLimit >= 6000:
  289. *P ' <a href="exec:karta -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''$menu_obnovit''">bank account, but you will be overdrawn.</a>'
  290. end
  291. else
  292. *P ' But you can''t afford to pay the rent right now.'
  293. end
  294. nl
  295. end
  296. if kid = 1:
  297. pl 'You have 1 child:'
  298. else
  299. pl 'You have <<kid>> children:'
  300. end
  301. if kid > 0:
  302. k = 0
  303. :kidloop
  304. if k < kid:
  305. gs 'obj_din','kidlist',k
  306. k += 1
  307. jump 'kidloop'
  308. end
  309. end
  310. if workPTU > 1:pl 'Reputation as a teacher <<teachlevel>>'
  311. nl
  312. if npc_QW['A192'] > 0:pl 'Friendship with Nastya <<npc_QW[''A192'']>>'
  313. if npc_rel['A218'] > 0:pl 'Friendship with Tanya <<npc_rel[''A218'']>>'
  314. if npc_rel['A219'] > 0:pl 'Friendship with Kat <<npc_rel[''A219'']>>'
  315. if npc_rel['A220'] > 0:pl 'Friendship with Vika <<npc_rel[''A220'']>>'
  316. if npc_rel['A93'] > 0:pl 'Friendship with Ira <<npc_rel[''A93'']>>'
  317. if npc_rel['A43'] > 0:pl 'Friendship with Tamara <<npc_rel[''A43'']>>'
  318. if alla > 0:pl 'Friendship with Alla <<alla>>'
  319. if masha > 0:pl 'Friendship with Masha <<masha>>'
  320. if npc_rel['A41'] > 0:pl 'Friendship with Givi K. <<npc_rel[''A41'']>>'
  321. if npc_rel['A42'] > 0:pl 'Friendship with Ashot <<npc_rel[''A42'']>>'
  322. if Dmitry > 0:pl 'Friendship with Dima <<Dmitry>>'
  323. if afra > 0:pl 'Friendship with blacks <<afra>>'
  324. if npc_rel['A69'] > 0:pl'Friendship with Mikhail Nikolaevich <<npc_rel[''A69'']>>'
  325. !!!WD: Formatting
  326. if (npc_rel['A93'] + npc_rel['A41'] + npc_rel['A42'] + npc_rel['A43'] + afra + gosh + npc_rel['A220'] + npc_rel['A219'] + npc_QW['A192'] + npc_rel['A218']) > 0:nl
  327. end
  328. if $ARGS[0] = 'kidlist':
  329. kidnumber = ARGS[1]
  330. if kidage[kidnumber] < 1:
  331. if (month - monthkid[kidnumber]) < 1 and (day-daykid[kidnumber]) < 7:
  332. kiddaycalc[kidnumber] = day - daykid[kidnumber]
  333. if kiddaycalc[kidnumber] = 0:
  334. $kidagetext[kidnumber] = 'was born today'
  335. elseif kiddaycalc[kidnumber] = 1:
  336. $kidagetext[kidnumber] = 'is <<kiddaycalc[kidnumber]>> day old'
  337. else
  338. $kidagetext[kidnumber] = 'is <<kiddaycalc[kidnumber]>> days old'
  339. end
  340. elseif (month - monthkid[kidnumber]) < 1 :
  341. kiddaycalc[kidnumber] = (day - daykid[kidnumber]) / 7
  342. if kiddaycalc[kidnumber] = 1:
  343. $kidagetext[kidnumber] = 'is <<kiddaycalc[kidnumber]>> week old'
  344. else
  345. $kidagetext[kidnumber] = 'is <<kiddaycalc[kidnumber]>> weeks old'
  346. end
  347. else
  348. kidmonthcalc[kidnumber] = (month - monthkid[kidnumber])
  349. if kidmonthcalc[kidnumber] = 1:
  350. $kidagetext[kidnumber] = 'is <<kidmonthcalc[kidnumber]>> month old'
  351. else
  352. $kidagetext[kidnumber] = 'is <<kidmonthcalc[kidnumber]>> months old'
  353. end
  354. end
  355. else
  356. if kidage[kidnumber] = 1:
  357. $kidagetext[kidnumber] = 'is <<kidage[kidnumber]>> year old'
  358. else
  359. $kidagetext[kidnumber] = 'is <<kidage[kidnumber]>> years old'
  360. end
  361. end
  362. if polkid[kidnumber] = 0:
  363. $sdtext[kidnumber] = 'daughter'
  364. else
  365. $sdtext[kidnumber] = 'son'
  366. end
  367. if polkid[kidnumber] = 0:
  368. $kidPosProPN[kidnumber] = 'She'
  369. else
  370. $kidPosProPN[kidnumber] = 'He'
  371. end
  372. p'You have a <<$sdtext[kidnumber]>> named <<$kidname[kidnumber]>>. <<$kidPosProPN[kidnumber]>> <<$kidagetext[kidnumber]>>. <<$kidname[kidnumber]>>''s date of birth is <<daykid[kidnumber]>>-<<monthkid[kidnumber]>>-<<yearkid[kidnumber]>>'
  373. pl '.'
  374. nl
  375. killvar 'kidnumber'
  376. end
  377. if $ARGS[0] = 'stats_achievements':
  378. clr
  379. pl'<center><img src="images/system/icon/statistics.png"><br></center>'
  380. pl'<a href="exec:gs ''obj_din'', ''stats''">Return to statistics main page</a>'
  381. nl
  382. if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0:
  383. pl 'Professional Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw'
  384. pl '<<KikWinPro>> (<<KikWinProKO>>KO) - <<KikLossPro>> (<<KikLossProKO>>KO) - <<KikDrawPro>>'
  385. end
  386. if Win > 0 or Loss > 0:pl 'Wins in fights <<Win>>, losses in fights <<Loss>>' & nl
  387. if razradKik > 0:pl '<<$razradKik>>'
  388. if KikWinAm > 0 or KikLossAm > 0 or KikDrawAm > 0:
  389. pl 'Amateur Kickboxing Record:<br>Wins: <<KikWinAm>> (<<KikWinAmKO>> by KO) - Losses: <<KikLossAm>> (<<KikLossAmKO>> by KO) - Draws: <<KikDrawAm>>'
  390. nl
  391. end
  392. if razradKik > 0:
  393. if razradKik = 1:$razradKik = 'You have earned green sash(rank 4) in kickboxing'
  394. if razradKik = 2:$razradKik = 'You have earned purple sash(rank 5) in kickboxing'
  395. if razradKik = 3:$razradKik = 'You have earned blue sash(rank 6) in kickboxing'
  396. if razradKik = 4:$razradKik = 'You have earned brown sash(rank 7) in kickboxing'
  397. if razradKik = 5:$razradKik = 'You have earned black sash, 1st dan in kickboxing'
  398. nl
  399. end
  400. if kolsorev > 0:pl 'You have run in <<kolsorev>> races'
  401. if swinbeg >= 1:pl 'You have <<swinbeg/3>> trophies from local racing competitions'
  402. if bronzebeg > 0:pl '<<bronzebeg>> - bronze medals for running'
  403. if silverbeg > 0:pl '<<silverbeg>> - silver medals for running'
  404. if goldbeg > 0:pl '<<goldbeg>> - gold medals for running'
  405. if razradbegEB > 0:pl '<<razradbegEB>> times bronze medalist at European Championship'
  406. if razradbegES > 0:pl '<<razradbegES>> runner up at European Championship'
  407. if razradbegEG > 0:pl '<<razradbegEG>> times European champion.'
  408. if razradbegIB > 0:pl '<<razradbegIB>> times bronze medalist at World Championship'
  409. if razradbegIS > 0:pl '<<razradbegIS>> runner up at World Championship'
  410. if razradbegIG > 0:pl '<<razradbegIG>> times World champion'
  411. if razradbeg > 0:
  412. if razradbeg = 1:pl 'You have third sports category for event'
  413. if razradbeg = 2:pl 'You 2nd sports category for event'
  414. if razradbeg = 3:pl 'You 1st sports category for event'
  415. if razradbeg = 4:pl 'You have the title of Candidate Master of Sports for event'
  416. if razradbeg = 5:pl 'You have the title of Master of Sports in the run'
  417. if razradbeg >= 6:pl 'You have the title of International Master of Sports for event'
  418. nl
  419. end
  420. if chess_win > 0 or chess_loss > 0:pl'Chess Record: Win <<chess_win>>, Loss <<chess_loss>>'
  421. if chess_rank > 0:
  422. if chess_rank = 1:pl'You have mastered the basics of chess'
  423. if chess_rank = 2:pl'You are starting to get good at chess'
  424. if chess_rank = 3:pl'You are a good chess player'
  425. if chess_rank = 4:pl'You are an excellent chess player'
  426. if chess_rank = 5:pl'You are a candidate for chess master'
  427. if chess_rank = 6:pl'You are a chess master'
  428. if chess_rank = 7:pl'You are a chess Grandmaster'
  429. end
  430. if chess_world_rank > 0:
  431. if chess_world_rank = 1:pl'The title of FIDE Master Chess'
  432. if chess_world_rank = 2:pl'The title of International Chess Master'
  433. if chess_world_rank = 3:pl'The title of International Grandmaster Chess'
  434. end
  435. nl
  436. !!!
  437. if modelfoto > 0:
  438. pl'<<modelfoto>> - Number of times you have worked as a model'
  439. pl'<<modelfotomoney>> - The amount of money you''ve made modelling'
  440. if modelfoto_fashion > 0: pl'<<modelfoto_fashion>> - Number of times you have been a fashion model'
  441. if modelfoto_ero_clo > 0: pl'<<modelfoto_ero_clo>> - Number of times you have been an erotic clothing model'
  442. if modelfoto_bikini > 0: pl'<<modelfoto_bikini>> - Number of times you have been a bikini modelling'
  443. if modelfoto_lingerie > 0: pl'<<modelfoto_lingerie>> - Number of times you have been a lingerie model'
  444. if modelfoto_nip > 0: pl'<<modelfoto_nip>> - Number of times you have been a model with intentional nip slips'
  445. if modelfoto_topless > 0: pl'<<modelfoto_topless>> - Number of times you have been a topless model'
  446. if modelfoto_nude > 0: pl'<<modelfoto_nude>> - Number of times you have been a nude model'
  447. nl
  448. end
  449. if maxdamage > 0:pl 'The impact force on the dynamometer <<maxdamage>> kgN' & nl
  450. if stripdancesum > 0 and hidden_stripdancesum = 0:
  451. pl 'You have been dancing <<stripdancesum>> times in the stripclub'
  452. elseif stripdancesum = 0 and hidden_stripdancesum > 0:
  453. pl 'You have been dancing <<hidden_stripdancesum>> times in the stripclub, but you do nor remember it'
  454. elseif stripdancesum > 0 and hidden_stripdancesum > 0:
  455. pl 'You have been dancing <<stripdancesum+hidden_stripdancesum>> times in the stripclub, but you only remember <<stripdancesum>> times'
  456. end
  457. if profiDanceTime > 0:pl 'You danced <<profiDanceTime>> times professionally.'
  458. if SchoolAtestat = 1:pl 'You have finished school.'
  459. if diplom = 1:pl 'You graduated.'
  460. if teachlevel > 0:pl 'Your credibility as a teacher is <<teachlevel>>'
  461. !WD:FORMATING
  462. if (maxdamage + stripdancesum + profiDanceTime + SchoolAtestat + diplom + teachlevel) > 0:nl
  463. if film > 0:
  464. gs 'pornhist', 'short'
  465. $retired=''
  466. if pfilmSTOP = 1:$retired='retired after '
  467. pl '<hr>'
  468. pl '<b><i><a href="exec:gs ''pornhist'', ''pdetail''">Filmography</a> of <font color="magenta"><<$pfname>></font></i></b>'
  469. pl ' (<<$retired>><b><<film>></b> porn movie):'
  470. p '<<$pfilmhistory>>'
  471. end
  472. end
  473. if $ARGS[0] = 'stats_sex':
  474. clr
  475. pl'<center><img src="images/system/icon/statistics.png"><br></center>'
  476. pl'<a href="exec:gs ''obj_din'', ''stats''">Return to statistics main page</a>'
  477. nl
  478. !Sex stats
  479. if pcs_throat > 0:pl '<<$pcs_throat>>'
  480. if pcs_vag > 0:pl '<<$pcs_vag>>'
  481. if pcs_vag = 0 and (sex = 0 or stat['vaginal'] = 0) and stat['hidden_vaginal'] = 0:
  482. pl 'You are a virgin.'
  483. elseif pcs_vag = 0 and (sex = 0 or stat['vaginal'] = 0) and stat['hidden_vaginal'] > 0:
  484. pl 'You think you are a virgin, but you are not.'
  485. end
  486. if pcs_ass > 0:pl '<<$pcs_ass>>'
  487. nl
  488. if mastr > 0 or stat['mast'] > 0:pl 'Times you have masturbated: <<stat[''mast'']>>'
  489. if stat['porn'] > 0:pl 'Times you have watched porn: <<stat[''porn'']>>'
  490. if stat['flashlite'] > 0 or stat['flash'] > 0:pl 'Times you have flashed: <<stat[''flashlite''] + stat[''flash'']>>'
  491. if stat['voyeur'] > 0:pl 'Times you have watched other people fuck: <<stat[''voyeur'']>>'
  492. if spank > 0:pl 'You have had your ass spanked <<spank>> times'
  493. temp = func('shortgs','guy')
  494. if guy+temp > 0 and hidden_guy = 0:
  495. pl 'You had sex with <<guy+temp>> guys.'
  496. elseif guy+temp = 0 and hidden_guy > 0:
  497. pl 'You had sex with <<hidden_guy>> guys, but you do not have any recollection of it. You still think of yourself as a virgin.'
  498. else
  499. pl 'You had sex with <<guy+hidden_guy+temp>> guys, but you know only about <<guy+temp>> of them.'
  500. end
  501. temp = func('shortgs','girl')
  502. if girl+temp > 0 and hidden_girl = 0:
  503. pl 'You had sex with <<girl+temp>> girls.'
  504. elseif girl+temp = 0 and hidden_girl > 0:
  505. pl 'You had sex with <<hidden_girl>> girls, but you do not have any recollection of any of it.'
  506. else
  507. pl 'You had sex with <<girl+temp+hidden_girl>> girls, but you know only about <<girl+temp>> of them.'
  508. end
  509. if divorced > 0:pl 'You were married <<divorced>> times.'
  510. if suprdolg > 0:pl 'You performed your conjugal duty for your husband <<suprdolg>> times'
  511. if rape > 0 and hidden_rape = 0:
  512. pl 'You have been raped <<rape>> times'
  513. elseif rape = 0 and hidden_rape > 0:
  514. pl 'You have been raped <<hidden_rape>> times, but you do not remember any of it'
  515. elseif rape > 0 and hidden_rape > 0:
  516. pl 'You have been raped <<rape+hidden_rape>> times, but you only remember <<rape>> of them'
  517. end
  518. nl
  519. pl '<b>Number of times you have performed sexual activities:</b>'
  520. if hj > 0 or stat['hj'] > 0 or stat['hidden_hj'] > 0:
  521. pl 'Jerked men off (known/unknown): <<stat[''hj'']>>/<<stat[''hidden_hj'']>>'
  522. if hja > 0:pl 'Jerked off your boyfriend: <<hja>>'
  523. end
  524. if stat['footjob'] > 0 or stat['hidden_footjob'] > 0:pl 'Jerked men off with your feet (known/unknown): <<stat[''footjob'']>>/<<stat[''hidden_footjob'']>>'
  525. if bj > 0 or stat['bj'] > 0 or stat['hidden_bj'] > 0:
  526. pl 'Sucked cock (known/unknown): <<stat[''bj'']>>/<<stat[''hidden_bj'']>>'
  527. if bja > 0:pl 'Sucked your boyfriends cock: <<bja>>'
  528. if gloryhole > 0 or hidden_gloryhole > 0:pl 'Sucked cock in a gloryhole (known/unknown): <<gloryhole>>/<<hidden_gloryhole>>'
  529. end
  530. if sex > 0 or stat['vaginal'] > 0 or stat['hidden_vaginal'] > 0:pl 'Vaginal sex (known/unknown): <<stat[''vaginal'']>>/<<stat[''hidden_vaginal'']>>'
  531. if sexa > 0:pl 'Vaginal sex with your boyfriend: <<sexa>>'
  532. if (pcs_cp_safe_known + pcs_cp_notsafe_known + pcs_cp_risky_known) > 0:
  533. pl ' Known vaginal creampies:'
  534. if pcs_cp_safe_known > 0: pl ' Safe: <<pcs_cp_safe_known>>'
  535. if pcs_cp_notsafe_known > 0: pl ' Likely safe: <<pcs_cp_notsafe_known>>'
  536. if pcs_cp_risky_known > 0: pl ' Risky: <<pcs_cp_risky_known>>'
  537. end
  538. if (pcs_cp_safe_unknown + pcs_cp_notsafe_unknown + pcs_cp_risky_unknown) > 0:
  539. pl ' Unknown vaginal creampies:'
  540. if pcs_cp_safe_unknown > 0: pl ' Safe: <<pcs_cp_safe_unknown>>'
  541. if pcs_cp_notsafe_unknown > 0: pl ' Likely safe: <<pcs_cp_notsafe_unknown>>'
  542. if pcs_cp_risky_unknown > 0: pl ' Risky: <<pcs_cp_risky_unknown>>'
  543. end
  544. if lesbian > 0 or hidden_lesbian > 0:
  545. if hidden_lesbian = 0:pl 'Lesbian sex (known/unknown): <<lesbian>>/<<hidden_lesbian>>'
  546. end
  547. if sexfuta > 0 or hidden_sexfuta > 0:pl 'Sex with tgirls (known/unknown): <<sexfuta>>/<<hidden_sexfuta>>'
  548. if anal > 0 or stat['anal'] or stat['hidden_anal']:
  549. pl 'Anal sex (known/unknown): <<stat[''anal'']>>/<<stat[''hidden_anal'']>>'
  550. if anala > 0:pl 'Anal sex with your boyfriend: <<anala>>'
  551. end
  552. if pcs_acp_known > 0: pl ' Known anal creampies: <<pcs_acp_known>>'
  553. if pcs_acp_unknown > 0: pl ' Unknown anal creampies: <<pcs_acp_unknown>>'
  554. if gang > 0 or hidden_gang > 0:pl 'Group sex (known/unknown): <<gang>>/<<hidden_gang>>'
  555. if kuni > 0 or stat['cuni'] > 0:pl 'Received cunnilingus: <<stat[''cuni'']>>'
  556. if stat['vaginal_finger'] > 0:pl 'Fingered: <<stat[''vaginal_finger'']>>'
  557. if stat['vaginal_fist'] > 0:pl 'Fisted: <<stat[''vaginal_fist'']>>'
  558. if stat['vaginal_dildo'] > 0:pl 'Fucked a dildo: <<stat[''vaginal_dildo'']>>'
  559. if stat['vaginal_strap'] > 0:pl 'Fucked with a strap-on: <<stat[''vaginal_strap'']>>'
  560. if stat['vaginal_vibe'] > 0:pl 'Clitoral / Vaginal vibrator: <<stat[''vaginal_vibe'']>>'
  561. if stat['trib'] > 0:pl 'Tribalism: <<stat[''trib'']>>'
  562. if stat['anal_finger'] > 0:pl 'Anally fingered: <<stat[''anal_finger'']>>'
  563. if stat['anal_fist'] > 0:pl 'Anally fisted: <<stat[''anal_fist'']>>'
  564. if stat['rimming'] > 0:pl 'Ass rimmed: <<stat[''rimming'']>>'
  565. if stat['anal_dildo'] > 0:pl 'Anal sex with a dildo: <<stat[''anal_dildo'']>>'
  566. if stat['anal_strap'] > 0:pl 'Ass fucked with a strap-on: <<stat[''anal_strap'']>>'
  567. if stat['anal_vibe'] > 0:pl 'Anal vibrator: <<stat[''anal_vibe'']>>'
  568. nl
  569. if stat['cuni_give'] > 0:pl 'Performed cunnilingus: <<stat[''cuni_give'']>>'
  570. if stat['vaginal_finger_give'] > 0:pl 'Fingered a girl: <<stat[''vaginal_finger_give'']>>'
  571. if stat['vaginal_fist_give'] > 0:pl 'Fisted a girl: <<stat[''vaginal_fist_give'']>>'
  572. if stat['vaginal_dildo_give'] > 0:pl 'Dildoed a girl: <<stat[''vaginal_dildo_give'']>>'
  573. if stat['vaginal_strap_give'] > 0:pl 'Strap-on fucked a girl: <<stat[''vaginal_strap_give'']>>'
  574. if stat['vaginal_vibe_give'] > 0:pl 'Used vibrator on a girl: <<stat[''vaginal_vibe_give'']>>'
  575. if stat['rimming_give'] > 0:pl 'Rimmed someone: <<stat[''rimming_give'']>>'
  576. if stat['anal_finger_give'] > 0:pl 'Fingered someone else''s ass: <<stat[''anal_finger_give'']>>'
  577. if stat['anal_fist_give'] > 0:pl 'Fisted someone else''s ass: <<stat[''anal_fist_give'']>>'
  578. if stat['anal_dildo_give'] > 0:pl 'Dildoed someone else''s ass: <<stat[''anal_dildo_give'']>>'
  579. if stat['anal_vibe_give'] > 0:pl 'Used a vibrator on someone else''s ass: <<stat[''anal_vibe_give'']>>'
  580. if stat['anal_strap_give'] > 0 or stat['anal_strap_give'] > 0:pl 'Fucked someone else''s ass with a strap-on: <<stat[''anal_strap_give'']>>'
  581. nl
  582. if slutty > 0 or hidden_slutty > 0:
  583. if bordelslutty = 0:pl 'Sold your body <<slutty>> times.'
  584. if bordelslutty > 0:pl 'Sold your body <<slutty>> times, including <<bordelslutty>> times in a brothel.'
  585. if hidden_slutty > 0:pl 'Sold your body <<hidden_slutty>> times, and gave all the money to your therapist. You do not remember any of it.'
  586. end
  587. if orgasm > 0:pl 'Experienced orgasm <<orgasm>> times.'
  588. if analorgasm > 0 :pl 'You''ve had <<analorgasm>> anal orgasms.'
  589. if swallow > 0:pl 'Sperm swallowed <<swallow>> times.'
  590. if facial > 0:pl 'You have taken <<facial>> facials.'
  591. if frot > 0 or hump > 0:pl 'Your clothes have been come on <<frot + hump>> times.'
  592. if zoo > 0:pl 'Had sex with animals <<zoo>> times.'
  593. if pee > 0:pl 'You pissing <<pee>> times.'
  594. if swallowpee > 0:pl 'You swallowed urine <<swallowpee>> times.'
  595. !!!WD:FORMATING
  596. if (slutty + pfilmSTOP + film + orgasm + analorgasm + swallow + facial + frot + zoo + pee) > 0:nl
  597. !!!
  598. gs 'obj_din', 'husb_cheat_count'
  599. end
  600. if $ARGS[0] = 'stats_att':
  601. clr
  602. pl'<center><img src="images/system/icon/statistics.png"><br></center>'
  603. pl'<a href="exec:gs ''obj_din'', ''stats''">Return to statistics main page</a>'
  604. nl
  605. pl 'Strength <<stren_lvl>>'
  606. pl 'Agility <<agil_lvl>>'
  607. pl 'Endurance <<vital_lvl>>'
  608. pl 'Intelligence <<intel_lvl>>'
  609. pl 'Mental Agility <<react_lvl>>'
  610. pl 'Sprit <<sprt_lvl>>'
  611. pl 'Charisma <<chrsm_lvl>>'
  612. pl 'Perception <<prcptn_lvl>>'
  613. if MagikDostup = 0: pl 'Magic <<magik_lvl>>'
  614. end
  615. if $ARGS[0] = 'stats_mental':
  616. clr
  617. pl'<center><img src="images/system/icon/statistics.png"><br></center>'
  618. pl'<a href="exec:gs ''obj_din'', ''stats''">Return to statistics main page</a>'
  619. nl
  620. pl'Spell Casting <<pcs_splcstng>>'
  621. pl'People skills <<pcs_humint>>'
  622. pl'Persuasion <<pcs_persuas>>'
  623. pl'Observation <<pcs_observ>>'
  624. end
  625. if $ARGS[0] = 'stats_sport':
  626. clr
  627. pl'<center><img src="images/system/icon/statistics.png"><br></center>'
  628. pl'<a href="exec:gs ''obj_din'', ''stats''">Return to statistics main page</a>'
  629. nl
  630. pl'Jabs <<pcs_jab>>'
  631. pl'Power Strikes <<pcs_punch>>'
  632. pl'Kicks <<pcs_kick>>'
  633. pl'Defence <<pcs_def>>'
  634. pl'Running <<pcs_run>>'
  635. pl'Volleyball <<pcs_vball>>'
  636. pl'Football <<pcs_ftbll>>'
  637. pl'Wrestling <<pcs_wrstlng>>'
  638. pl'Marksmanship <<pcs_shoot>>'
  639. pl'Chess <<pcs_chess>>'
  640. pl'Ice Skating <<pcs_icesktng>>'
  641. pl'Gaming <<pcs_ttgmng>>'
  642. end
  643. if $ARGS[0] = 'stats_beauty':
  644. clr
  645. pl'<center><img src="images/system/icon/statistics.png"><br></center>'
  646. pl'<a href="exec:gs ''obj_din'', ''stats''">Return to statistics main page</a>'
  647. nl
  648. pl'Makeup Skill <<pcs_makupskl>>'
  649. pl'Modern Dancing <<pcs_danc>>'
  650. pl'Erotic Dancing <<pcs_dancero>>'
  651. pl'Pole Dancing <<pcs_dancpol>>'
  652. pl'Modelling <<pcs_mdlng>>'
  653. end
  654. if $ARGS[0] = 'stats_artistic':
  655. clr
  656. pl'<center><img src="images/system/icon/statistics.png"><br></center>'
  657. pl'<a href="exec:gs ''obj_din'', ''stats''">Return to statistics main page</a>'
  658. nl
  659. pl'Singing <<pcs_vokal>>'
  660. pl'Instrumental Music <<pcs_instrmusic>>'
  661. pl'Photography <<pcs_photoskl>>'
  662. pl'Artistic Skills <<pcs_artskls>>'
  663. end
  664. if $ARGS[0] = 'stats_job':
  665. clr
  666. pl'<center><img src="images/system/icon/statistics.png"><br></center>'
  667. pl'<a href="exec:gs ''obj_din'', ''stats''">Return to statistics main page</a>'
  668. nl
  669. pl'Computer Skill <<pcs_compskl>>'
  670. pl'Hacking <<pcs_comphckng>>'
  671. pl'Handy-work <<pcs_hndiwrk>>'
  672. pl'Tailoring <<pcs_sewng>>'
  673. pl'Serving <<pcs_servng>>'
  674. pl'Medicine <<pcs_medcn>>'
  675. pl'Teacher credibility <<teachlevel>>'
  676. end
  677. if $ARGS[0] = 'reputation':
  678. clr
  679. pl '<center><img src="images/system/icon/fame.png"><br></center>'
  680. nl
  681. pl'<a href="exec:gs ''obj_din'', ''rep2''">Go to special/family reputation page</a>'
  682. nl
  683. pl 'Total fame = <<pcs_fame>>'
  684. if Enable_glo_fame = 0:
  685. pl '<a href="exec:Enable_glo_fame = 1 & gs ''obj_din'', ''reputation''">Show details</a>'
  686. end
  687. if Enable_glo_fame = 1:
  688. pl '<a href="exec:Enable_glo_fame = 0 & gs ''obj_din'', ''reputation''">Hide details</a>'
  689. pl 'Regional fame as a performer = <<global_performer>>'
  690. if global_performer = 0:
  691. pl 'You are not famous enough as a performer to be known outside of any local areas.'
  692. end
  693. nl
  694. pl 'Regional fame in the sex industry = <<global_sexind>>'
  695. if global_sexind = 0:
  696. pl 'You are not famous enough in the industry to be known outside of any local areas.'
  697. end
  698. nl
  699. pl 'Regional fame as a slut = <<global_slut>>'
  700. if global_slut = 0:
  701. pl 'You are not famous enough as a slut to be known outside of any local areas.'
  702. end
  703. nl
  704. pl 'Regional fame in sports = <<global_sport>>'
  705. if global_sport = 0:
  706. pl 'You are not a famous enough athlete to be known outside of any local areas.'
  707. end
  708. nl
  709. pl 'Regional fame as an intellectual = <<global_int>>'
  710. if global_int = 0:
  711. pl 'You are not famous enough as a intellectual to be known outside of any local areas.'
  712. end
  713. nl
  714. pl 'Regional fame through social media = <<global_social>>'
  715. if global_social = 0:
  716. pl 'You are not famous enough on social media to be known outside of any local areas.'
  717. end
  718. end
  719. nl
  720. pl'Fame in Pavlovsk'
  721. if Enable_pav_fame = 0:
  722. pl '<a href="exec:Enable_pav_fame = 1 & gs ''obj_din'', ''reputation''">Show details</a>'
  723. end
  724. if Enable_pav_fame = 1:
  725. pl '<a href="exec:Enable_pav_fame = 0 & gs ''obj_din'', ''reputation''">Hide details</a>'
  726. pl '<b>Performer = <<pav_performer>></b>'
  727. pl ' Actor = <<pav_acting>>'
  728. pl ' Dancer = <<pav_dance>>'
  729. pl ' Painter = <<pav_painting>>'
  730. pl ' Musician = <<pav_music>>'
  731. pl ' Ballet dancer = <<pav_ballet>>'
  732. pl '<b>Sex Industry = <<pav_sexind>></b>'
  733. pl ' Glamour model = <<pav_modelling>>'
  734. pl ' Porn actor = <<pav_porn>>'
  735. pl ' Stripper = <<pav_stripping>>'
  736. pl '<b>Slut = <<pav_slut>></b>'
  737. pl ' Sex = <<pav_sex>>'
  738. pl ' Prostitution = <<pav_prostitute>>'
  739. pl '<b>Sports = <<pav_sport>></b>'
  740. pl ' Kickboxer = <<pav_kickboxing>>'
  741. pl ' Runner = <<pav_running>>'
  742. pl ' Volleyball player = <<pav_volleyball>>'
  743. pl '<b>Intellectual = <<pav_int>></b>'
  744. pl ' Chess player = <<pav_chess>>'
  745. pl ' Teacher = <<pav_teaching>>'
  746. pl '<b>Social = <<pav_social>></b>'
  747. pl ' Social media = <<pav_media>>'
  748. end
  749. nl
  750. pl'Fame in the city'
  751. if Enable_city_fame = 0:
  752. pl '<a href="exec:Enable_city_fame = 1 & gs ''obj_din'', ''reputation''">Show details</a>'
  753. end
  754. if Enable_city_fame = 1:
  755. pl '<a href="exec:Enable_city_fame = 0 & gs ''obj_din'', ''reputation''">Hide details</a>'
  756. pl '<b>Performer = <<city_performer>></b>'
  757. pl ' Actor = <<city_acting>>'
  758. pl ' Dancer = <<city_dance>>'
  759. pl ' Painter = <<city_painting>>'
  760. pl ' Musician = <<city_music>>'
  761. pl ' Ballet dancer = <<city_ballet>>'
  762. pl '<b>Sex Industry = <<city_sexind>></b>'
  763. pl ' Glamour model = <<city_modelling>>'
  764. pl ' Porn actor = <<city_porn>>'
  765. pl ' Stripper = <<city_stripping>>'
  766. pl '<b>Slut = <<city_slut>></b>'
  767. pl ' Sex = <<city_sex>>'
  768. pl ' Prostitution = <<city_prostitute>>'
  769. pl '<b>Sports = <<city_sport>></b>'
  770. pl ' Kickboxer = <<city_kickboxing>>'
  771. pl ' Runner = <<city_running>>'
  772. pl ' Volleyball player = <<city_volleyball>>'
  773. pl '<b>Intellectual = <<city_int>></b>'
  774. pl ' Chess player = <<city_chess>>'
  775. pl ' Teacher = <<city_teaching>>'
  776. pl '<b>Social = <<city_social>></b>'
  777. pl ' Social media = <<city_media>>'
  778. end
  779. nl
  780. pl'Fame in the old town'
  781. if Enable_oldtown_fame = 0:
  782. pl '<a href="exec:Enable_oldtown_fame = 1 & gs ''obj_din'', ''reputation''">Show details</a>'
  783. end
  784. if Enable_oldtown_fame = 1:
  785. pl '<a href="exec:Enable_oldtown_fame = 0 & gs ''obj_din'', ''reputation''">Hide details</a>'
  786. pl '<b>Performer = <<oldtown_performer>></b>'
  787. pl ' Actor = <<oldtown_acting>>'
  788. pl ' Dancer = <<oldtown_dance>>'
  789. pl ' Painter = <<oldtown_painting>>'
  790. pl ' Musician = <<oldtown_music>>'
  791. pl ' Ballet dancer = <<oldtown_ballet>>'
  792. pl '<b>Sex Industry = <<oldtown_sexind>></b>'
  793. pl ' Glamour model = <<oldtown_modelling>>'
  794. pl ' Porn actor = <<oldtown_porn>>'
  795. pl ' Stripper = <<oldtown_stripping>>'
  796. pl '<b>Slut = <<oldtown_slut>></b>'
  797. pl ' Sex = <<oldtown_sex>>'
  798. pl ' Prostitution = <<oldtown_prostitute>>'
  799. pl '<b>Sports = <<oldtown_sport>></b>'
  800. pl ' Kickboxer = <<oldtown_kickboxing>>'
  801. pl ' Runner = <<oldtown_running>>'
  802. pl ' Volleyball player = <<oldtown_volleyball>>'
  803. pl '<b>Intellectual = <<oldtown_int>></b>'
  804. pl ' Chess player = <<oldtown_chess>>'
  805. pl ' Teacher = <<oldtown_teaching>>'
  806. pl '<b>Social = <<oldtown_social>></b>'
  807. pl ' Social media = <<oldtown_media>>'
  808. end
  809. nl
  810. pl'Fame in the village'
  811. if Enable_village_fame = 0:
  812. pl '<a href="exec:Enable_village_fame = 1 & gs ''obj_din'', ''reputation''">Show details</a>'
  813. end
  814. if Enable_village_fame = 1:
  815. pl '<a href="exec:Enable_village_fame = 0 & gs ''obj_din'', ''reputation''">Hide details</a>'
  816. pl '<b>Performer = <<village_performer>></b>'
  817. pl ' Actor = <<village_acting>>'
  818. pl ' Dancer = <<village_dance>>'
  819. pl ' Painter = <<village_painting>>'
  820. pl ' Musician = <<village_music>>'
  821. pl ' Ballet dancer = <<village_ballet>>'
  822. pl '<b>Sex Industry = <<village_sexind>></b>'
  823. pl ' Glamour model = <<village_modelling>>'
  824. pl ' Porn actor = <<village_porn>>'
  825. pl ' Stripper = <<village_stripping>>'
  826. pl '<b>Slut = <<village_slut>></b>'
  827. pl ' Sex = <<village_sex>>'
  828. pl ' Prostitution = <<village_prostitute>>'
  829. pl '<b>Sports = <<village_sport>></b>'
  830. pl ' Kickboxer = <<village_kickboxing>>'
  831. pl ' Runner = <<village_running>>'
  832. pl ' Volleyball player = <<village_volleyball>>'
  833. pl '<b>Intellectual = <<village_int>></b>'
  834. pl ' Chess player = <<village_chess>>'
  835. pl ' Teacher = <<village_teaching>>'
  836. pl '<b>Social = <<village_social>></b>'
  837. pl ' Social media = <<village_media>>'
  838. end
  839. end
  840. if $ARGS[0] = 'rep2':
  841. clr
  842. pl'<center><img src="images/system/icon/reputation.png"><br></center>'
  843. nl
  844. pl'<a href="exec:gs ''obj_din'', ''reputation''">Return to fame</a>'
  845. if rinslut > 1 and kavslut > 0:pl'In the residential area of ​​you are known as a whore that sleeps with Caucasians.'
  846. if afra > 80: pl'In the student hostel, you are known for bedding blacks.'
  847. if opusk > 0 or gnewQW >= 5: pl'In the residential area it is well known by all the guys that you are a whore.'
  848. if StoryLine = 1:
  849. nl
  850. if motherKnowSpravka > 0 and motherKnowWhore > 0:
  851. pl'Your mother knows, that you are sexually active and considers you a slut.'
  852. elseif motherKnowWhore > 0:
  853. pl'Your mother thinks you are a whore.'
  854. elseif motherKnowSpravka > 0:
  855. pl'Your mother knows that you are sexually active.'
  856. else
  857. pl'Your mother thinks that you are a virgin.'
  858. end
  859. if evgenQW >= 4 and brotherSex >= 1:
  860. pl'Your brother thinks you are a total whore.'
  861. elseif brotherSex >= 1:
  862. pl'Your brother thinks you are a slut.'
  863. elseif evgenQW >= 3:
  864. pl'Your brother thinks you are a slut.'
  865. elseif brotherknowslut = 1:
  866. pl'Your brother saw semen on your body and thinks that you fuck around.'
  867. elseif brotherknowslut >= 2:
  868. pl'Your brother saw you in the park screwing Gopnik.'
  869. else
  870. pl'Your brother has a good opinion of you.'
  871. end
  872. if sisterknowslut > 1 and sisboypartyQW = 2:
  873. pl'Your sister thinks you are a slut'
  874. elseif sisterknowslut > 0:
  875. pl'Your sister knows you sleep around.'
  876. else
  877. pl'Your sister has a good opinion of you.'
  878. end
  879. if brothershowertalk > 0:pl'<<brothershowertalk>> - Number of conversations you''ve had with your brother in the shower.'
  880. if brothershowerlook = 1:pl'You let your brother look at you when you''re shower'
  881. if brothershave > 0:pl'<<brothershave>> - Number of times you''ve let your brother watch while you shave your pussy'
  882. end
  883. end
  884. if $ARGS[0] = 'magic':
  885. clr
  886. if pcs_magik = 0:
  887. pl'You are unable to use magic.'
  888. elseif pcs_magik > 0:
  889. pl'You have <<pcs_manna>> units of manna available to you.'
  890. !!' Forces Rikudo available to you <<rikudo>> units'
  891. nl
  892. pl'<b>Base Spells:</b>'
  893. nl
  894. if spelltuman > 0:pl'Cover area in fog, a great way to conceal yourself while attacking the enemy and increase the chance to dodge attacks (cost 10 units of manna)'
  895. nl
  896. if spellklon > 0:pl'Swap places with a clone of yourself, good way to avoid enemy attacks and make enemy waste their power (cost 15 units of manna)'
  897. nl
  898. if spellstun > 0:pl'Stun, a great way to stop the enemy. They will not be able to defend or attack. ( cost 20 units of manna)'
  899. nl
  900. if spellweap > 0 and weapon > 0:pl'Infuse weapon with energy'
  901. nl
  902. if spellwind > 0:pl'Blow away the fog, dissipates any mist over the battlefield.'
  903. nl
  904. if spellklon2 > 0:pl'Substitute yourself with 3 clones, the enemy will not be able to get to you, until they destroy all of your clones. (cost 45 units of manna)'
  905. nl
  906. if spellenergo > 0:pl'Create a weak energy shield, protecting you against all attacks of the physical nature, even if the enemy attack exceeds the capabilities of the shield and destroys it, you will still be protected from damage(cost 50 units of manna)'
  907. nl
  908. if spellinit > 0:pl'Create a slight delay of time, a powerful spell that allows you to move faster, steal initiative and increase the probability of hitting (cost 60 units of manna)'
  909. nl
  910. if spellhel > 0:pl'Battle Heal, restores or adds 400 Health units in exchange for 400 units of manna.'
  911. nl
  912. if stihia = 1:pl'<b>Elemental Spells Fire:</b>'
  913. nl
  914. if spellfire1 = 1:pl'Flame. Deals little damage. (Cost 10 manna)'
  915. nl
  916. if spellfire2 = 1:pl'The release of fire. It causes great damage. (Cost 100 manna)'
  917. nl
  918. if spellfire3 = 1:pl'Fire Barrier, It creates a shield with strength of 750 units. (Cost 150 manna)'
  919. nl
  920. if spellfire4 = 1:pl'Firestorm. It causes great damage, difficult to dodge. (Cost 250 manna)'
  921. nl
  922. if spellfire5 = 1:pl'Flame Shield, It creates a shield with strength of 2500 units. (Cost 500 manna)'
  923. nl
  924. if stihia = 2:pl'<b>Elements Lightning Spells:</b>'
  925. nl
  926. if spellele1 = 1:pl'Zap. Deals very little damage. (Cost 10 manna)'
  927. nl
  928. if spellele2 = 1:pl'Lightning. Inflicts above average damage. (Cost 100 manna)'
  929. nl
  930. if spellele3 = 1:pl'Electric barrier, It creates a shield with strength of 1500 units. (Cost 150 manna)'
  931. nl
  932. if spellele4 = 1:pl'Dance of thousand birds. Deals very high damage. (Cost 250 manna)'
  933. nl
  934. if spellele5 = 1:pl'Dancing Sphere, It creates a shield with strength of 5000 units. (Cost 500 manna)'
  935. nl
  936. if stihia = 3:pl'<b>Spells Earth Elements:</b>'
  937. nl
  938. if spellert1 = 1:pl'Quicksand, immobilizes the opponent in the quicksand trap and causes little damage. (Cost 10 manna)'
  939. nl
  940. if spellert2 = 1:pl'Active protection, It creates a protective sphere of land, Gain 2500 units of health and mana, this protection restores itself within 10 absorbing strokes 20 Units in the course of manna. (Cost 100 manna)'
  941. nl
  942. if spellert3 = 1:pl'Abyss, rend earth asunder beneath their feet inflicting high damage to the enemy and depriving him of the ability to move. (Cost 150 manna)'
  943. nl
  944. if spellert4 = 1:pl'Absolute protection, It creates a huge protective sphere of land, which regenerates itself every turn and attacks the enemy. (Cost 250 manna)'
  945. nl
  946. if spellert5 = 1:pl'Sando, two huge plates come out of the earth and crush the enemy inflicting huge damage and depriving them of the ability to move. Cost 500 manna.'
  947. nl
  948. if stihia = 4:pl'<b>Wind Elemental Spells:</b>'
  949. nl
  950. if spellwind1 = 1:pl'Wind gust, It causes very little damage but destroys clones and fog, very difficult to dodge. (Cost 10 manna)'
  951. nl
  952. if spellwind2 = 1:pl'The horrific pressure, causing moderate damage and destroying clones and fog, very difficult to dodge. (Cost 100 manna)'
  953. nl
  954. if spellwind3 = 1:pl'Vacuum Sphere, It creates a shield with strength of 1500 units. (Cost 150 manna)'
  955. nl
  956. if spellwind4 = 1:pl'Vacuum shells, high damage and kills clones and fog, very difficult to dodge. (Cost 250 manna)'
  957. nl
  958. if spellwind5 = 1:pl'Devouring vacuum, sucks enemy shield destroying whatever strength it had left. (Cost 500 manna)'
  959. nl
  960. if stihia = 5:pl'<b>Water Elemental Spell:</b>'
  961. nl
  962. if spellwater1 = 1:pl'Drain mana, It causes very little damage and absorbs a lot of mana. Cost 10 manna.'
  963. nl
  964. if spellwater2 = 1:pl'Flood, causes moderate damage and absorbs large amount of mana. Cost 100 manna.'
  965. nl
  966. if spellwater3 = 1:pl'Blister, It creates a protective sphere of water with strength of 1500 units against all impacts, this protection restores itself within 10 absorbing strokes 20 Units in the course of manna. (Cost 150 manna)'
  967. nl
  968. if spellwater4 = 1:pl'Water shark rocket, causes great damage and absorbs a lot of mana. Cost 250 manna.'
  969. nl
  970. if spellwater5 = 1:pl'The Great Flood, It creates a huge sphere that absorbs water and drains opponents mana, passing it to strengthen protection. Cost 500 manna.'
  971. nl
  972. end
  973. if succubusflag = 1 and sucpcinfo >= 4 and sucskill >= 1:
  974. pl'<center><b>Succubus Stats</b></center>'
  975. nl
  976. pl'Succubus Level = <<succublvl>>'
  977. pl'Succubus XP = <<succubxp>>'
  978. pl'"Food" Energy Reserve = <<0 - succhungry>> day(s)'
  979. pl'Stored Sexual Energy = <<sucexcess>>'
  980. pl'Sexual Energy Storage Capacity = <<sucstorecap>>'
  981. nl
  982. if sucskill >= 2: pl'You have learned to increase your storage capacity and to store energy before using it.'
  983. if sucskill >= 3: pl'You have learned to be more efficient in your energy handling.'
  984. if sucskill >= 4: pl'You have learned the accommodation ability.'
  985. nl
  986. !! More to come
  987. end
  988. end
  989. if $ARGS[0] = 'pain':
  990. clr
  991. pl'<center>Pain</center>'
  992. pl
  993. pl
  994. if pain['head'] > 0:
  995. if pain['head'] > 70:
  996. pl '<b><font color="red">Your head is in extreme pain.</font></b>'
  997. elseif pain['head'] > 40:
  998. pl 'Your head is very sore.'
  999. else
  1000. pl 'Your head hurts.'
  1001. end
  1002. end
  1003. if pain['hair'] > 0:
  1004. if pain['hair'] > 70:
  1005. pl '<b><font color="red">Your scalp is in extreme pain.</font></b>'
  1006. elseif pain['hair'] > 40:
  1007. pl 'Your scalp is very sore.'
  1008. else
  1009. pl 'Your scalp hurts.'
  1010. end
  1011. end
  1012. if pain['ears'] > 0:
  1013. if pain['ears'] > 70:
  1014. pl '<b><font color="red">Your ears are in extreme pain.</font></b>'
  1015. elseif pain['ears'] > 40:
  1016. pl 'Your ears are very sore.'
  1017. else
  1018. pl 'Your ears hurt.'
  1019. end
  1020. end
  1021. if pain['eyebrows'] > 0:
  1022. if pain['eyebrows'] > 70:
  1023. pl '<b><font color="red">Your eyebrows are in extreme pain.</font></b>'
  1024. elseif pain['eyebrows'] > 40:
  1025. pl 'Your eyebrows are very sore.'
  1026. else
  1027. pl 'Your eyebrows hurt.'
  1028. end
  1029. end
  1030. if pain['eyes'] > 0:
  1031. if pain['eyes'] > 70:
  1032. pl '<b><font color="red">Your eyes are in extreme pain.</font></b>'
  1033. elseif pain['eyes'] > 40:
  1034. pl 'Your eyes are very sore.'
  1035. else
  1036. pl 'Your eyes hurt.'
  1037. end
  1038. end
  1039. if pain['cheeks'] > 0:
  1040. if pain['cheeks'] > 70:
  1041. pl '<b><font color="red">Your cheeks are in extreme pain.</font></b>'
  1042. elseif pain['cheeks'] > 40:
  1043. pl 'Your cheeks are very sore.'
  1044. else
  1045. pl 'Your cheeks hurt.'
  1046. end
  1047. end
  1048. if pain['nose'] > 0:
  1049. if pain['nose'] > 70:
  1050. pl '<b><font color="red">Your nose is in extreme pain.</font></b>'
  1051. elseif pain['nose'] > 40:
  1052. pl 'Your nose is very sore.'
  1053. else
  1054. pl 'Your nose hurts.'
  1055. end
  1056. end
  1057. if pain['mouth'] > 0:
  1058. if pain['mouth'] > 70:
  1059. pl '<b><font color="red">Your mouth is in extreme pain.</font></b>'
  1060. elseif pain['mouth'] > 40:
  1061. pl 'Your mouth is very sore.'
  1062. else
  1063. pl 'Your mouth hurts.'
  1064. end
  1065. end
  1066. if pain['lips'] > 0:
  1067. if pain['lips'] > 70:
  1068. pl '<b><font color="red">Your lips are in extreme pain.</font></b>'
  1069. elseif pain['lips'] > 40:
  1070. pl 'Your lips are very sore.'
  1071. else
  1072. pl 'Your lips hurt.'
  1073. end
  1074. end
  1075. if pain['tongue'] > 0:
  1076. if pain['tongue'] > 70:
  1077. pl '<b><font color="red">Your tongue is in extreme pain.</font></b>'
  1078. elseif pain['tongue'] > 40:
  1079. pl 'Your tongue is very sore.'
  1080. else
  1081. pl 'Your tongue hurts.'
  1082. end
  1083. end
  1084. if pain['throat'] > 0:
  1085. if pain['throat'] > 70:
  1086. pl '<b><font color="red">Your throat is in extreme pain.</font></b>'
  1087. elseif pain['throat'] > 40:
  1088. pl 'Your throat is very sore.'
  1089. else
  1090. pl 'Your throat hurts.'
  1091. end
  1092. end
  1093. if pain['neck'] > 0:
  1094. if pain['neck'] > 70:
  1095. pl '<b><font color="red">Your neck is in extreme pain.</font></b>'
  1096. elseif pain['neck'] > 40:
  1097. pl 'Your neck is very sore.'
  1098. else
  1099. pl 'Your neck hurts.'
  1100. end
  1101. end
  1102. if pain['back'] > 0:
  1103. if pain['back'] > 70:
  1104. pl '<b><font color="red">Your back is in extreme pain.</font></b>'
  1105. elseif pain['back'] > 40:
  1106. pl 'Your back is very sore.'
  1107. else
  1108. pl 'Your back hurts.'
  1109. end
  1110. end
  1111. if pain['asscheeks'] + (spanked * 24) > 0:
  1112. if pain['asscheeks'] + (spanked * 24) > 70:
  1113. pl '<b><font color="red">Your <a href="exec:view''images/pc/body/spankedass2.jpg''">asscheeks</a> are in extreme pain.</font></b>'
  1114. elseif pain['asscheeks'] + (spanked * 24) > 40:
  1115. pl 'Your <a href="exec:view''images/pc/body/spankedass1.jpg''">asscheeks</a> are very sore.'
  1116. else
  1117. pl 'Your <a href="exec:view''images/pc/body/spankedass.jpg''">asscheeks</a> hurt.'
  1118. end
  1119. end
  1120. if pain['asshole'] + (agape * 10) > 0:
  1121. if pain['asshole'] + (agape * 10) > 70:
  1122. pl '<b><font color="red">You an extremely sore anus and it is bleeding.</font></b>'
  1123. elseif pain['asshole'] + (agape * 10) > 40:
  1124. pl '<b><font color="red">You have a very sore anus.</font></b>'
  1125. else
  1126. pl '<b><font color="red">You have a sore and itchy anus.</font></b>'
  1127. end
  1128. end
  1129. if pain['hips'] > 0:
  1130. if pain['hips'] > 70:
  1131. pl '<b><font color="red">Your hips are in extreme pain.</font></b>'
  1132. elseif pain['hips'] > 40:
  1133. pl 'Your hips are very sore.'
  1134. else
  1135. pl 'Your hips hurt.'
  1136. end
  1137. end
  1138. if pain['thighs'] > 0:
  1139. if pain['thighs'] > 70:
  1140. pl '<b><font color="red">Your thighs are in extreme pain.</font></b>'
  1141. elseif pain['thighs'] > 40:
  1142. pl 'Your thighs are very sore.'
  1143. else
  1144. pl 'Your thighs hurt.'
  1145. end
  1146. end
  1147. if pain['legL'] > 0:
  1148. if pain['legL'] > 70:
  1149. pl '<b><font color="red">Your left leg is in extreme pain.</font></b>'
  1150. elseif pain['legL'] > 40:
  1151. pl 'Your left leg is very sore.'
  1152. else
  1153. pl 'Your left leg hurts.'
  1154. end
  1155. end
  1156. if pain['legR'] > 0:
  1157. if pain['legR'] > 70:
  1158. pl '<b><font color="red">Your right leg is in extreme pain.</font></b>'
  1159. elseif pain['legR'] > 40:
  1160. pl 'Your right leg is very sore.'
  1161. else
  1162. pl 'Your right leg hurts.'
  1163. end
  1164. end
  1165. if pain['feet'] > 0:
  1166. if pain['feet'] > 70:
  1167. pl '<b><font color="red">Your feet are in extreme pain.</font></b>'
  1168. elseif pain['feet'] > 40:
  1169. pl 'Your feet are very sore.'
  1170. else
  1171. pl 'Your feet hurt.'
  1172. end
  1173. end
  1174. if pain['toes'] > 0:
  1175. if pain['toes'] > 70:
  1176. pl '<b><font color="red">Your toes are in extreme pain.</font></b>'
  1177. elseif pain['toes'] > 40:
  1178. pl 'Your toes are very sore.'
  1179. else
  1180. pl 'Your toes foot hurt.'
  1181. end
  1182. end
  1183. if pain['shoulders'] > 0:
  1184. if pain['shoulders'] > 70:
  1185. pl '<b><font color="red">Your shoulders are in extreme pain.</font></b>'
  1186. elseif pain['shoulders'] > 40:
  1187. pl 'Your shoulders are very sore.'
  1188. else
  1189. pl 'Your shoulders hurt.'
  1190. end
  1191. end
  1192. if pain['armL'] > 0:
  1193. if pain['armL'] > 70:
  1194. pl '<b><font color="red">Your left arm is in extreme pain.</font></b>'
  1195. elseif pain['armL'] > 40:
  1196. pl 'Your left arm is very sore.'
  1197. else
  1198. pl 'Your left arm hurts.'
  1199. end
  1200. end
  1201. if pain['armR'] > 0:
  1202. if pain['armR'] > 70:
  1203. pl '<b><font color="red">Your right arm is in extreme pain.</font></b>'
  1204. elseif pain['armR'] > 40:
  1205. pl 'Your right arm is very sore.'
  1206. else
  1207. pl 'Your right arm hurts.'
  1208. end
  1209. end
  1210. if pain['hands'] > 0:
  1211. if pain['hands'] > 70:
  1212. pl '<b><font color="red">Your hands are in extreme pain.</font></b>'
  1213. elseif pain['hands'] > 40:
  1214. pl 'Your hands are very sore.'
  1215. else
  1216. pl 'Your hands hurt.'
  1217. end
  1218. end
  1219. if pain['fingers'] > 0:
  1220. if pain['fingers'] > 70:
  1221. pl '<b><font color="red">Your fingers are in extreme pain.</font></b>'
  1222. elseif pain['fingers'] > 40:
  1223. pl 'Your fingers are very sore.'
  1224. else
  1225. pl 'Your fingers hurt.'
  1226. end
  1227. end
  1228. if pain['chest'] > 0:
  1229. if pain['chest'] > 70:
  1230. pl '<b><font color="red">Your chest is in extreme pain.</font></b>'
  1231. elseif pain['chest'] > 40:
  1232. pl 'Your chest is very sore.'
  1233. else
  1234. pl 'Your chest hurts.'
  1235. end
  1236. end
  1237. if pain['breasts'] > 0:
  1238. if pain['breasts'] > 70:
  1239. pl '<b><font color="red">Your breasts are in extreme pain.</font></b>'
  1240. elseif pain['breasts'] > 40:
  1241. pl 'Your breasts are very sore.'
  1242. else
  1243. pl 'Your breasts hurt.'
  1244. end
  1245. end
  1246. if pain['nipples'] > 0:
  1247. if pain['nipples'] > 70:
  1248. pl '<b><font color="red">Your nipples are in extreme pain.</font></b>'
  1249. elseif pain['nipples'] > 40:
  1250. pl 'Your nipples are very sore.'
  1251. else
  1252. pl 'Your nipples hurt.'
  1253. end
  1254. end
  1255. if pain['ribs'] > 0:
  1256. if pain['ribs'] > 70:
  1257. pl '<b><font color="red">Your ribs are in extreme pain.</font></b>'
  1258. elseif pain['ribs'] > 40:
  1259. pl 'Your ribs are very sore.'
  1260. else
  1261. pl 'Your ribs hurt.'
  1262. end
  1263. end
  1264. if pain['tummy'] > 0:
  1265. if pain['tummy'] > 70:
  1266. pl '<b><font color="red">Your tummy is in extreme pain.</font></b>'
  1267. elseif pain['tummy'] > 40:
  1268. pl 'Your tummy is very sore.'
  1269. else
  1270. pl 'Your tummy hurts.'
  1271. end
  1272. end
  1273. if pain['pubic'] > 0:
  1274. if pain['pubic'] > 70:
  1275. pl '<b><font color="red">Your pubis is extremely painful.</font></b>'
  1276. elseif pain['pubic'] > 40:
  1277. pl 'Your pubis is very sore.'
  1278. else
  1279. pl 'Your pubis hurts.'
  1280. end
  1281. end
  1282. if pain['labia'] > 0:
  1283. if pain['labia'] > 70:
  1284. pl '<b><font color="red">Your labia is extremely painful.</font></b>'
  1285. elseif pain['labia'] > 40:
  1286. pl 'Your labia is very sore.'
  1287. else
  1288. pl 'Your labia hurts.'
  1289. end
  1290. end
  1291. if pain['vaginal'] + (vgape * 8) > 0:
  1292. if pain['vaginal'] + (vgape * 8) > 70:
  1293. pl '<b><font color="red">You have very sore vagina, you can hardly even walk, while trying to keep your feet apart.</font></b>'
  1294. elseif pain['vaginal'] + (vgape * 8) > 40:
  1295. pl '<b><font color="red">You have a very sore vagina and you can hardly keep your feet together.</font></b>'
  1296. else
  1297. pl '<b><font color="red">You have a sore vagina.</font></b>'
  1298. end
  1299. end
  1300. if pain['clitoris'] > 0:
  1301. if pain['clitoris'] > 70:
  1302. pl '<b><font color="red">Your clitoris is in extreme pain.</font></b>'
  1303. elseif pain['clitoris'] > 40:
  1304. pl 'Your clitoris is very sore.'
  1305. else
  1306. pl 'Your clitoris hurts.'
  1307. end
  1308. end
  1309. if pain['urethra'] > 0:
  1310. if pain['urethra'] > 70:
  1311. pl '<b><font color="red">Your urethra is extremely painful.</font></b>'
  1312. elseif pain['urethra'] > 40:
  1313. pl 'Your urethra is very sore.'
  1314. else
  1315. pl 'Your urethra hurts.'
  1316. end
  1317. end
  1318. if pain['cervix'] > 0:
  1319. if pain['cervix'] > 70:
  1320. pl '<b><font color="red">Your cervix is in extreme pain.</font></b>'
  1321. elseif pain['cervix'] > 40:
  1322. pl 'Your cervix is very sore.'
  1323. else
  1324. pl 'Your cervix hurts.'
  1325. end
  1326. end
  1327. end
  1328. if $ARGS[0] = 'clothes':
  1329. clr
  1330. pl'<center><a href="exec:gs''$menu_obnovit''"><b>Clothes</b></a></center>'
  1331. !move image define to $body_image
  1332. !display coat
  1333. $img_temp = FUNC('$body_image','coat')
  1334. if $img_temp ! null: pl '<a href="exec:view ''<<$img_temp>>''"><img <<$set_imgh>> src="<<$img_temp>>"></a>'
  1335. pl '<<$body_image_msg>>'
  1336. pl ''
  1337. !display cloth
  1338. $img_temp = FUNC('$body_image','clothes')
  1339. if $img_temp ! null: pl '<a href="exec:view ''<<$img_temp>>''"><img <<$set_imgh>> src="<<$img_temp>>"></a>'
  1340. pl '<<$body_image_msg>>'
  1341. killvar 'img_temp'
  1342. killvar 'body_image_msg'
  1343. !{
  1344. if defaultcoat = 0:
  1345. pl 'You have no default coat set.'
  1346. pl 'Your health will suffer if you don''t wear a coat in the winter.'
  1347. else
  1348. pl 'Your current default coat is Coat<<defaultcoat>>.'
  1349. !make sure to sync these with [outdoors]~364
  1350. if defaultcoat < 4:
  1351. pl 'It''ll keep you fairly warm down to -10C.'
  1352. elseif defaultcoat = 4 or defaultcoat = 5 or defaultcoat = 8 or defaultcoat = 10 or defaultcoat = 12:
  1353. pl 'It will handle temperatures down to -20C.'
  1354. elseif defaultcoat = 6 or defaultcoat = 7 or defaultcoat = 9 or defaultcoat = 11:
  1355. pl 'You will be nice and warm even in the depths of winter.'
  1356. else
  1357. pl 'Your health will suffer if you don''t wear a coat in the winter.'
  1358. end
  1359. end
  1360. pl ''
  1361. if $clothingworntype = 'nude' and towel = 1 and $pantyworntype = 'none':
  1362. view 'images/pc/clothing/towel.jpg'
  1363. pl'You are only wearing a towel'
  1364. elseif $clothingworntype = 'nude' and $pantyworntype ! 'none':
  1365. view 'images/pc/clothing/nude.jpg'
  1366. pl'You are only wearing panties'
  1367. elseif $clothingworntype = 'nude' and $pantyworntype = 'none':
  1368. view 'images/pc/clothing/nude1.jpg'
  1369. pl'You are completely naked.'
  1370. else
  1371. view FUNC('$clothing_image', $clothingworntype, clothingwornnumber)
  1372. if PClobimbo = 1:pl 'You are dressed like a bimbo.'
  1373. pl 'You are wearing ' + FUNC('$short_description', $clothingworntype, PCloStyle2) + '<<clothingwornnumber>>.'
  1374. if $clothingworntype ! 'coat' and $clothingworntype ! 'swimwear':
  1375. gs 'clothing_attributes', $clothingworntype, clothingwornnumber
  1376. gs 'clothing_descriptions'
  1377. pl '<<$description>>'
  1378. else
  1379. FUNC('$clothing_name', $clothingworntype, clothingwornnumber)
  1380. end
  1381. nl
  1382. if $clothingworntype = 'uniform':
  1383. if PCloStyle2 = 1:
  1384. pl 'This outfit is considered to be a maid uniform.'
  1385. elseif PCloStyle2 = 3:
  1386. pl 'This is a stripper outfit.'
  1387. else
  1388. pl 'This outfit is a server uniform, suitable for jobs that require one.'
  1389. end
  1390. end
  1391. end
  1392. }
  1393. end
  1394. if $ARGS[0] = 'panties':
  1395. clr
  1396. pl'<center><a href="exec:gs''$menu_obnovit''"><b>Panties</b></a></center>'
  1397. $img_temp = FUNC('$body_image','panties')
  1398. pl '<a href="exec:view ''<<$img_temp>>''"><img <<$set_imgh>> src="<<$img_temp>>"></a>'
  1399. pl '<<$body_image_msg>>'
  1400. killvar 'img_temp'
  1401. killvar 'body_image_msg'
  1402. !{
  1403. if $pantyworntype = 'none':
  1404. if pcs_pubes <= 3:
  1405. view 'images/pc/body/pussy/pussy.jpg'
  1406. elseif pcs_pubes <= 10:
  1407. view 'images/pc/body/pussy/stpussy.jpg'
  1408. elseif pcs_pubes <= 20:
  1409. view 'images/pc/body/pussy/spussy.jpg'
  1410. else
  1411. view 'images/pc/body/pussy/hpussy.jpg'
  1412. end
  1413. else
  1414. view FUNC('$panty_image', $pantyworntype, pantywornnumber)
  1415. end
  1416. }
  1417. end
  1418. if $ARGS[0] = 'bra':
  1419. clr
  1420. pl'<center><a href="exec:gs''$menu_obnovit''"><b>Bra</b></a></center>'
  1421. $img_temp = FUNC('$body_image','bra')
  1422. pl '<a href="exec:view ''<<$img_temp>>''"><img <<$set_imgh>> src="<<$img_temp>>"></a>'
  1423. pl '<<$body_image_msg>>'
  1424. killvar 'img_temp'
  1425. killvar 'body_image_msg'
  1426. end
  1427. if $ARGS[0] = 'shoes':
  1428. clr
  1429. pl'<center><a href="exec:gs''$menu_obnovit''"><b>Shoes</b></a></center>'
  1430. $img_temp = FUNC('$body_image','shoes')
  1431. pl '<a href="exec:view ''<<$img_temp>>''"><img <<$set_imgh>> src="<<$img_temp>>"></a>'
  1432. pl '<<$body_image_msg>>'
  1433. killvar 'img_temp'
  1434. killvar 'body_image_msg'
  1435. !{
  1436. if $clothingworntype = 'nude' or $shoeworntype = 'none':
  1437. view 'images/pc/body/feet.jpg'
  1438. else
  1439. view FUNC('$shoe_image', $shoeworntype, shoewornnumber)
  1440. pl 'You are wearing ' + FUNC('$shoe_description', $shoeworntype) + '<<shoewornnumber>>.'
  1441. end
  1442. }
  1443. end
  1444. if $ARGS[0] = 'body':
  1445. !! This displays the body image; $bodimgsets[x9] is the folder name
  1446. !some in-game script may call this to display image, so leave it be
  1447. view FUNC('$body_image','body')
  1448. !{
  1449. if salocatnow >= 1 and salocatnow <= 5:
  1450. view 'images/pc/body/shape/<<$bodimgsets[((bodset * 10) + 9)]>>/<<salocatnow>>.jpg'
  1451. elseif salocatnow <= 0:
  1452. view 'images/pc/body/shape/0.jpg'
  1453. elseif salocatnow = 6:
  1454. if imgset6ovr[bodset] = 1:
  1455. view 'images/pc/body/shape/<<$bodimgsets[((bodset * 10) + 9)]>>/6.jpg'
  1456. else
  1457. view 'images/pc/body/shape/6.jpg'
  1458. end
  1459. else
  1460. if imgset7ovr[bodset] = 1:
  1461. view 'images/pc/body/shape/<<$bodimgsets[((bodset * 10) + 9)]>>/7.jpg'
  1462. else
  1463. view 'images/pc/body/shape/7.jpg'
  1464. end
  1465. end
  1466. }
  1467. end
  1468. if $ARGS[0] = 'menubody':
  1469. !display image and escription for menu
  1470. clr
  1471. pl'<center><a href="exec:gs''$menu_obnovit''"><b>Body</b></a></center>'
  1472. $img_temp = FUNC('$body_image','body')
  1473. pl '<a href="exec:view ''<<$img_temp>>''"><img <<$set_imgh>> src="<<$img_temp>>"></a>'
  1474. pl '<<$body_image_msg>>'
  1475. killvar 'img_temp'
  1476. killvar 'body_image_msg'
  1477. end
  1478. if $ARGS[0] = 'menuface':
  1479. !display image and escription for menu
  1480. clr
  1481. pl'<center><a href="exec:gs''$menu_obnovit''"><b>Face</b></a></center>'
  1482. $img_temp = FUNC('$face_image')
  1483. pl '<a href="exec:view ''<<$img_temp>>''"><img <<$set_imgh>> src="<<$img_temp>>"></a>'
  1484. killvar 'img_temp'
  1485. if avatar_hair = 1:
  1486. pl'Your hair: <<$av_hair>>.'
  1487. else
  1488. pl'<<$hair>>'
  1489. end
  1490. if defcurly = 0 and curly > 0:pl 'Your curls are good for another <<curly>> days.'
  1491. if defcurly = 1 and straight > 0:pl 'Your hair should be straight for another <<straight>> days.'
  1492. nl
  1493. pl '<<$lip>>'
  1494. pl '<<$pcs_throat>>'
  1495. pl '<<$skin>>'
  1496. pl '<<$glaza>>'
  1497. pl '<<$pcs_makeup>>.'
  1498. end
  1499. !!Image displays for tattoos
  1500. if $ARGS[0] = 'tattooarm':
  1501. view 'images/pc/body/tattoos/arms/tatarm<<tatarm>>.jpg'
  1502. end
  1503. if $ARGS[0] = 'tattooass':
  1504. view 'images/pc/body/tattoos/ass/tatass<<tatass>>.jpg'
  1505. end
  1506. if $ARGS[0] = 'tattooback':
  1507. view 'images/pc/body/tattoos/back/tatback<<tatback>>.jpg'
  1508. end
  1509. if $ARGS[0] = 'tattoobelly':
  1510. view 'images/pc/body/tattoos/belly/tatblly<<tatblly>>.jpg'
  1511. end
  1512. if $ARGS[0] = 'tattoobreast':
  1513. view 'images/pc/body/tattoos/breasts/tatbrst<<tatbrst>>.jpg'
  1514. end
  1515. if $ARGS[0] = 'tattoochest':
  1516. view 'images/pc/body/tattoos/chest/tatchst<<tatchst>>.jpg'
  1517. end
  1518. if $ARGS[0] = 'tattooface':
  1519. view 'images/pc/body/tattoos/face/tatfce<<tatfce>>.jpg'
  1520. end
  1521. if $ARGS[0] = 'tattoofoot':
  1522. view 'images/pc/body/tattoos/foot/tatankle<<tatankle>>.jpg'
  1523. end
  1524. if $ARGS[0] = 'tattooleg':
  1525. view 'images/pc/body/tattoos/legs/tatleg<<tatleg>>.jpg'
  1526. end
  1527. if $ARGS[0] = 'tattoolip':
  1528. view 'images/pc/body/tattoos/lip/tatlip<<tatlip>>.jpg'
  1529. end
  1530. if $ARGS[0] = 'tattooneck':
  1531. view 'images/pc/body/tattoos/neck/tatnck<<tatneck>>.jpg'
  1532. end
  1533. if $ARGS[0] = 'tattoovag':
  1534. view 'images/pc/body/tattoos/pubic/tatvag<<tatvag>>.jpg'
  1535. end
  1536. if $ARGS[0] = 'tattooshoulder':
  1537. view 'images/pc/body/tattoos/shoulder/tatshldr<<tatlech>>.jpg'
  1538. end
  1539. if $ARGS[0] = 'tattooside':
  1540. view 'images/pc/body/tattoos/side/tatside<<tatside>>.jpg'
  1541. end
  1542. if $ARGS[0] = 'tattootramp':
  1543. view 'images/pc/body/tattoos/trampStamp/tatlowbck<<tatupb>>.jpg'
  1544. end
  1545. if $ARGS[0] = 'tattoounder':
  1546. view 'images/pc/body/tattoos/underBreast/tatundbreast<<tatunder>>.jpg'
  1547. end
  1548. if $ARGS[0] = 'tattoowrist':
  1549. view 'images/pc/body/tattoos/wrists/tatwrst<<tatwrist>>.jpg'
  1550. end
  1551. if $ARGS[0] = 'tattoohand':
  1552. view 'images/pc/body/tattoos/hand/tathnd<<tathand>>.jpg'
  1553. end
  1554. if $ARGS[0] = 'tattoos':
  1555. clr
  1556. pl'<center><a href="exec:gs''$menu_obnovit''"><b>Tatoos</b></a></center>'
  1557. tatcounter = 0
  1558. if tatarm > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattooarm''">Tattoo on your arm</a>'
  1559. if tatass > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattooass''">Tattoo on your ass</a>'
  1560. if tatback > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattooback''">Tattoo on your back</a>'
  1561. if tatblly > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattoobelly''">Tattoo on your belly</a>'
  1562. if tatbrst > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattoobreast''">Tattoo on your breast</a>'
  1563. if tatchst > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattoochest''">Tattoo on your chest</a>'
  1564. if tatfce > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattooface''">Tattoo on your face</a>'
  1565. if tatankle > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattoofoot''">Tattoo on your foot</a>'
  1566. if tatleg > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattooleg''">Tattoos on your leg</a>'
  1567. if tatlip > 0:tatcounter = 1 & pl '<a href="exec: gs ''obj_din'', ''tattoolip''">Tattoo on your lip</a>'
  1568. if tatneck > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattooneck''">Tattoo on your neck</a>'
  1569. if tatvag > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattoovag''">Tattoo on your groin</a>'
  1570. if tatlech > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattooshoulder''">Tattoo on your shoulder</a>'
  1571. if tatside > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattooside''">Tattoo on your side</a>'
  1572. if tatupb > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattootramp''">Your tramp stamp</a>'
  1573. if tatunder > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattoounder''">Tattoo under your breasts</a>'
  1574. if tatwrist > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattoowrist''">Tattoo on your wrist</a>'
  1575. if tathand > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattoohand''">Tattoo on your hand</a>'
  1576. if tatcounter = 0:
  1577. pl'You have a pristine body. Not in terms of debauchery, but in terms of tattoos.'
  1578. end
  1579. end
  1580. if $ARGS[0] = 'piercing':
  1581. clr
  1582. pl'<center><a href="exec:gs''$menu_obnovit''"><b>Piercing</b></a></center>'
  1583. if pirsA = 0 and pirsB = 0 and pirsC = 0 and pirsD = 0 and pirsE = 0 and pirsF = 0 and pirsN = 0 and pirsG = 0 and pirsGL = 0:
  1584. pl 'You have no piercings.'
  1585. elseif pirsA = 10000 and pirsB = 10000 and pirsC = 10000 and pirsD = 10000 and pirsE = 10000 and pirsF = 10000 and pirsN = 10000 and pirsG = 10000 and pirsGL = 10000:
  1586. pl 'You are not wearing any piercings'
  1587. else
  1588. if pirsA > 0 and pirsA < 10000:pl 'You are wearing a tongue piercing. <a href="exec:view ''images/pc/body/piercings/a<<pirsA>>.jpg''">See</a>'
  1589. if pirsB > 0 and pirsB < 10000:pl 'You are wearing a lip piercing. <a href="exec:view ''images/pc/body/piercings/b<<pirsB>>.jpg''">See</a>'
  1590. if pirsC > 0 and pirsC < 10000:pl 'You are wearing earrings. <a href="exec:view ''images/pc/body/piercings/c<<pirsC>>.jpg''">See</a>'
  1591. if pirsD > 0 and pirsD < 10000:pl 'You are wearing a nose ring. <a href="exec:view ''images/pc/body/piercings/d<<pirsD>>.jpg''">See</a>'
  1592. if pirsE > 0 and pirsE < 10000:pl 'You are wearing an eyebrow piercing. <a href="exec:view ''images/pc/body/piercings/e<<pirsE>>.jpg''">See</a>'
  1593. if pirsF > 0 and pirsF < 10000:pl 'You are wearing nipple piercings. <a href="exec:view ''images/pc/body/piercings/f<<pirsF>>.jpg''">See</a>'
  1594. if pirsN > 0 and pirsN < 10000:pl 'You are wearing a navel piercing. <a href="exec:view ''images/pc/body/piercings/n<<pirsN>>.jpg''">See</a>'
  1595. if pirsG > 0 and pirsG < 10000:pl 'You are wearing a pussy piercing. <a href="exec:view ''images/pc/body/piercings/g<<pirsG>>.jpg''">See</a>'
  1596. end
  1597. end
  1598. if $ARGS[0] = 'records':
  1599. clr
  1600. if housr > 0:pl'You live in a two-room apartment, in a residential area. Rent for the apartment is subtracted automatically, in sum of 3000 <b>₽</b> plus electric bill on 25th of each month.'
  1601. nl
  1602. if workPTU > 2:pl'You work as a teacher at the Lycée. Working days Mon-Sat, with 14.00 to 16.00. Salary 300r/day. Dress code - office clothes, Strict. The road from the apartment to the Lyceum takes 2 hours 10 minutes.'
  1603. nl
  1604. if (work = 1 or cheatWork = 1) and workKafe > 0:pl'You are working as a waitress in a cafe. You need to come to work between 11 and 12, working days: Tuesday, Wednesday and Thursday. At work, you can receive tips from customers, and payment is received on 25th of each month.'
  1605. nl
  1606. if (work = 1 or cheatWork = 1) and workhosp > 0:pl'You work as a nurse in the clinic. You need to come to work between 8 and 9, during the week. Salary is automatically transferred on 25th of each month.'
  1607. nl
  1608. if (work = 1 or cheatWork = 1) and worksalon > 0:pl'You work in a salon as masseuse. You need to come to work with 9 to 10, working days, Monday, Wednesday, Friday. Salary is automatically transferred on 25th of each month.'
  1609. nl
  1610. if (work = 1 or cheatWork = 1) and workSec > 0:pl'You work as a secretary in the office. At work you need to come up 9, during the week. Salary is automatically transferred on 25th of each month.'
  1611. nl
  1612. if (work = 1 or cheatWork = 1) and tanwork > 0:pl'You work as a governess for Tanya. Salary is automatically transferred on 25th of each month.'
  1613. nl
  1614. if (work = 1 or cheatWork = 1) and young_shop_work = 1:pl'You work as a store clerk in Pussy-Cats. Work starts at 15, every day except Saturday and Sunday. The salary shall be issued once a week on Fridays.'
  1615. nl
  1616. if (work = 1 or cheatWork = 1) and workFabrika = 1:pl'You work as a seamstress in a factory in Pavlovsk. Work is every day except Saturday and Sunday. Salary is automatically transferred on 25th of each month.'
  1617. nl
  1618. if workrin = 1:pl'You are working on the market in Arthur''s tent as clothing saleswoman. Work on Tuesday, Thursday and Saturday, starting at 8 AM. Salary depends on sales.'
  1619. nl
  1620. if maidqw = 1:pl'You can work in Pavlovsk hotel as a maid. Work is every day from 16 to 19. Salary is 250 plus tips.'
  1621. nl
  1622. if (work = 1 or cheatWork = 1) and gpoliuborka > 1:pl'You can work part-time as a cleaner in pavlovo clinic. Work is from 16 to 21.'
  1623. nl
  1624. if stripwork >= 1:pl'You can work as a stripper, free schedule, every day from 15 to midnight. No salary, only tips.'
  1625. nl
  1626. if pfilmSTOP = 1:pl'<<$pfilmstory_new>>'
  1627. if film > 0:pl'You are working as pornographic actress under the name <<$pfname>>, Filmography:'
  1628. pl'<<$pfilmhistory>>'
  1629. nl
  1630. if bumtolik = 4:pl'You have been asked to help the homeless at the Mercy Clinic in the city industrial region.'
  1631. nl
  1632. if bumtolik >= 5:pl'You volunteer at the Mercy Clinic working with the homeless. Working hours are from 9 to 17, Saturday and Sunday.'
  1633. nl
  1634. if husband > 0:pl'You have been married for <<husbanday>> days. Your husband <<$husName>> <<$husBody>> <<$husFat>> <<$husHair>>. Member <<husDick>> Relationship <<husband>>.'
  1635. if kid > 0:
  1636. i = 0
  1637. if kid = 1:
  1638. pl 'You have a child, a <<$polreb[0]>> named <<$kidname[0]>>. Born <<daykid[0]>>-<<monthkid[0]>>-<<yearkid[0]>>. Aged <<kidage[0]>>.'
  1639. else
  1640. pl 'You have children:'
  1641. :LoopKidCounter
  1642. if i <= kid + 1:
  1643. pl ' a <<$polreb[i]>> named <<$kidname[i]>>. Born <<daykid[i]>>-<<monthkid[i]>>-<<yearkid[i]>>. Aged <<kidage[i]>>.'
  1644. i += 1
  1645. jump 'LoopKidCounter'
  1646. end
  1647. end
  1648. nl
  1649. end
  1650. nl
  1651. if $bfsex > 0:pl'<<$bfsex>>'
  1652. nl
  1653. if pcs_lovers[0] = 1:pl'Your guy <<$loverdesc[0]>> <<$loverbody[0]>> <<$loverbod[0]>> <<$loverface[0]>>.<<$loverdesc[0]>> <<$loverClo[0]>> Relationship <<loverrelation[0]>>, met <<loverdays[0]>> time.'
  1654. if haraklover[0] = 0 and loverrelation[0] > 1:pl'He''s calm and self-possessed character.'
  1655. if haraklover[0] = 1 and loverrelation[0] > 1:pl'He has a cheerful and sociable character.'
  1656. if haraklover[0] = 2 and loverrelation[0] > 1:pl'He''s short-tempered and rigid.'
  1657. nl
  1658. if pcs_lovers[1] = 1:pl'Your guy <<$loverdesc[1]>> <<$loverbody[1]>> <<$loverbod[1]>> <<$loverface[1]>>.<<$loverdesc[1]>> <<$loverClo[1]>> Relationship <<loverrelation[1]>>, met <<loverdays[1]>> time.'
  1659. if haraklover[1] = 0 and loverrelation[1] > 1:pl'He''s calm and self-possessed character.'
  1660. if haraklover[1] = 1 and loverrelation[1] > 1:pl'He has a cheerful and sociable character.'
  1661. if haraklover[1] = 2 and loverrelation[1] > 1:pl'He''s short-tempered and rigid.'
  1662. nl
  1663. if pcs_lovers[2] = 1:pl'Your guy <<$loverdesc[2]>> <<$loverbody[2]>> <<$loverbod[2]>> <<$loverface[2]>>.<<$loverdesc[2]>> <<$loverClo[2]>> Relationship <<loverrelation[2]>>, met <<loverdays[2]>> time.'
  1664. if haraklover[2] = 0 and loverrelation[2] > 1:pl'He''s calm and self-possessed character.'
  1665. if haraklover[2] = 1 and loverrelation[2] > 1:pl'He has a cheerful and sociable character.'
  1666. if haraklover[2] = 2 and loverrelation[2] > 1:pl'He''s short-tempered and rigid.'
  1667. nl
  1668. gs'Menu.Create','zapisMenu'
  1669. gs'Menu.Add','zapisMenu','Recording from avtodatoy','','MenuLoc','zapisosn'
  1670. gs'Menu.Add','zapisMenu','Make a record in the 1th line','','MenuLoc','zapis'
  1671. gs'Menu.Add','zapisMenu','With a red line 1th line','','MenuLoc','ot'
  1672. gs'Menu.Add','zapisMenu','Make a record in the 2th line','','MenuLoc','zapis2'
  1673. gs'Menu.Add','zapisMenu','With a red line 2th line','','MenuLoc','ot2'
  1674. gs'Menu.Add','zapisMenu','Make a record in the 3th line','','MenuLoc','zapis3'
  1675. gs'Menu.Add','zapisMenu','With a red line 3th line','','MenuLoc','ot3'
  1676. gs'Menu.Add','zapisMenu','Make a record in the 4th line','','MenuLoc','zapis4'
  1677. gs'Menu.Add','zapisMenu','With a red line 4th line','','MenuLoc','ot4'
  1678. gs'Menu.Add','zapisMenu','Make a record in the 5th line','','MenuLoc','zapis5'
  1679. gs'Menu.Add','zapisMenu','With a red line 5th line','','MenuLoc','ot5'
  1680. gs'Menu.Add','zapisMenu','Make a record in the 6th line','','MenuLoc','zapis6'
  1681. gs'Menu.Add','zapisMenu','With a red line 6th line','','MenuLoc','ot6'
  1682. gs'Menu.Add','zapisMenu','Make a record in the 7th line','','MenuLoc','zapis7'
  1683. gs'Menu.Add','zapisMenu','With a red line 7th line','','MenuLoc','ot7'
  1684. gs'Menu.Add','zapisMenu','Make a record in the 8th line','','MenuLoc','zapis8'
  1685. gs'Menu.Add','zapisMenu','With a red line 8th line','','MenuLoc','ot8'
  1686. gs'Menu.Add','zapisMenu','Make a record in the 9th line','','MenuLoc','zapis9'
  1687. gs'Menu.Add','zapisMenu','With a red line 9th line','','MenuLoc','ot9'
  1688. gs'Menu.Add','zapisMenu','Make a record in the 10th line','','MenuLoc','zapis10'
  1689. gs'Menu.Add','zapisMenu','With a red line 10th line','','MenuLoc','ot10'
  1690. gs'Menu.Create','disMenu'
  1691. gs'Menu.Add','disMenu','Delete entry to 1th row','','MenuLoc','diszapis'
  1692. gs'Menu.Add','disMenu','Delete entry to 2th row','','MenuLoc','diszapis2'
  1693. gs'Menu.Add','disMenu','Delete entry to 3th row','','MenuLoc','diszapis3'
  1694. gs'Menu.Add','disMenu','Delete entry to 4th row','','MenuLoc','diszapis4'
  1695. gs'Menu.Add','disMenu','Delete entry to 5th row','','MenuLoc','diszapis5'
  1696. gs'Menu.Add','disMenu','Delete entry to 6th row','','MenuLoc','diszapis6'
  1697. gs'Menu.Add','disMenu','Delete entry to 7th row','','MenuLoc','diszapis7'
  1698. gs'Menu.Add','disMenu','Delete entry to 8th row','','MenuLoc','diszapis8'
  1699. gs'Menu.Add','disMenu','Delete entry to 9th row','','MenuLoc','diszapis9'
  1700. gs'Menu.Add','disMenu','Delete entry to 10th row','','MenuLoc','diszapis10'
  1701. pl'<a href="exec: gs''Menu.Call'',''zapisMenu''">Make a record</a> or <a href="exec: gs''Menu.Call'',''disMenu''">delete the record</a>'
  1702. pl'<<$zapisOsn>>'
  1703. pl'<<$zapis>>'
  1704. pl'<<$zapis2>>'
  1705. pl'<<$zapis3>>'
  1706. pl'<<$zapis4>>'
  1707. pl'<<$zapis5>>'
  1708. pl'<<$zapis6>>'
  1709. pl'<<$zapis7>>'
  1710. pl'<<$zapis8>>'
  1711. pl'<<$zapis9>>'
  1712. pl'<<$zapis10>>'
  1713. end
  1714. if $ARGS[0] = 'exit':
  1715. '<center><b>YOU JUST had to use emergency exit, this is only for use when you get a BLANK SCREEN.</b></center>'
  1716. *nl
  1717. '<center><b>DO NOT use this option without a good reason, doing so can cause instability and could damage your save game.</b></center>'
  1718. *nl
  1719. '<center><b>If this was the result of a bug in the game, then please report the issue and when / how it was trigger with as much info as you can on the tfgamesite.com forum.</b></center>'
  1720. *nl
  1721. cla
  1722. if StoryLine = 1:act 'Go to Pavlovsk':gt 'pavResidential'
  1723. act 'Go to the street':gt 'street'
  1724. end
  1725. if $ARGS[0] = 'new':
  1726. killobj
  1727. oldobjmenu = 0
  1728. addobj '<img src="images/system/icon/pers.png">'
  1729. addobj '<img src="images/system/icon/look.png">'
  1730. addobj '<img src="images/system/icon/proch.png">'
  1731. addobj '<img src="images/system/icon/menu.png">'
  1732. addobj '<img src="images/system/icon/phone.png">'
  1733. if bag > 0:addobj '<img src="images/system/icon/purse.png">'
  1734. end
  1735. if $ARGS[0] = 'old':
  1736. killobj
  1737. oldobjmenu = 1
  1738. addobj '<font color = green>Character</font>'
  1739. addobj 'Skills'
  1740. addobj 'Statistics'
  1741. addobj 'Pain'
  1742. addobj 'Traits'
  1743. addobj 'Fame'
  1744. if pcs_magik > 0:addobj 'Magic'
  1745. addobj 'Face'
  1746. addobj 'Body'
  1747. addobj 'Clothing'
  1748. addobj 'Panties'
  1749. addobj 'Shoes'
  1750. addobj 'Tattoos'
  1751. addobj 'Piercing'
  1752. addobj 'Phone'
  1753. if bag > 0:addobj 'Purse'
  1754. addobj 'Notebook'
  1755. addobj 'Refresh'
  1756. addobj 'The new menu'
  1757. addobj 'Game Setting'
  1758. addobj 'Cheat menu'
  1759. addobj 'Emergency exit'
  1760. if disable_autosave = 1:
  1761. addobj 'Enable autosave'
  1762. else
  1763. addobj 'Disable autosave'
  1764. end
  1765. end
  1766. if $ARGS[0] = 'autosave':
  1767. if oldobjmenu = 0:
  1768. if disable_autosave = 1:
  1769. disable_autosave = 0
  1770. else
  1771. disable_autosave = 1
  1772. end
  1773. elseif oldobjmenu = 1:
  1774. if disable_autosave = 1:
  1775. disable_autosave = 0
  1776. delobj 'Enable autosave'
  1777. addobj 'Disable autosave'
  1778. else
  1779. disable_autosave = 1
  1780. delobj 'Disable autosave'
  1781. addobj 'Enable autosave'
  1782. end
  1783. end
  1784. gs'stat'
  1785. end
  1786. --- obj_din ---------------------------------