1
0

obj_din 47 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232
  1. # obj_din
  2. $din_show_tits = {
  3. view
  4. view 'images/body/t<<tits>>.jpg'
  5. }
  6. $objdescrip = {
  7. gs 'body'
  8. clr
  9. pl'<center><img src="images/pic/icon/description.png"><br></center>'
  10. pl 'Your name is <<$name>> <<$surname>>.'
  11. if age = vidage:
  12. pl 'You are <<age>> years old.'
  13. else
  14. pl 'You are <<age>> years old, but you appear to be <<vidage>>.'
  15. end
  16. !!!0.2.6 extension
  17. if StoryLine > 0:
  18. pl 'Friends and family sometimes call you <<$nickname>>'
  19. else
  20. pl 'Friends sometimes call you <<$nickname>>'
  21. end
  22. !!!
  23. if birthday <= 9 and birthmonth <= 9:
  24. $birthdayD = '0<<birthday>>.0<<birthmonth>>.<<birthyear>>.'
  25. elseif birthday > 9 and birthmonth <= 9:
  26. $birthdayD = '<<birthday>>.0<<birthmonth>>.<<birthyear>>.'
  27. elseif birthday > 9 and birthmonth > 9:
  28. $birthdayD = '<<birthday>>.<<birthmonth>>.<<birthyear>>.'
  29. else
  30. $birthdayD = '0<<birthday>>.<<birthmonth>>.<<birthyear>>.'
  31. end
  32. pl 'Your date of birth is <<$birthdayD>>'
  33. pl 'You are <<rost>> cm tall and weigh <<ves>> kgs.'
  34. pl '<<$body>>'
  35. pl '<a href="exec:dynamic $objbody"><<grudi>> - <<talia>> - <<bedra>> </a>, <a href="exec:dynamic $din_show_tits">you have <<$titsize>> breasts</a>, the difference between your hips and your waist is <<bedra-talia>> cm'
  36. pl '<<$vnesh>>'
  37. if avatar_hair = 1:
  38. pl'Your hair: <<$av_hair>>.'
  39. else
  40. pl'<<$hair>>'
  41. end
  42. pl '<<$lip>>'
  43. pl '<<$throat>>'
  44. pl '<<$skin>>'
  45. pl '<<$glaza>>'
  46. pl '<<$mop>>'
  47. pl '<<$leghair>>'
  48. pl '<<$lobok>>'
  49. pl '<<$vagina>>'
  50. pl '<<$anus>>'
  51. nl
  52. if salo = 0 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>'
  53. if salo = 0 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>'
  54. if curly > 0:pl 'Your curls are good for another <<curly>> days.'
  55. if zub = 1:$zuba = ' tooth'
  56. if zub >= 2:$zuba = ' teeth'
  57. if zub > 0:pl 'You have lost <<zub>><<$zuba>>.'
  58. !!pl 'vnesh <<vnesh>>'
  59. !!pl 'curlykoef <<curlykoef>> a maximum of 1'
  60. !!pl 'tits <<tits>> A maximum of 6'
  61. !!pl 'lip <<lip>> a maximum of 4'
  62. !!pl 'tanKoef <<tanKoef>> a maximum of 1'
  63. !!pl 'skin <<skin>> a maximum of 4'
  64. !!pl 'mop <<mop>> a maximum of 4'
  65. !!pl 'resnic <<resnic>> a maximum of 2'
  66. !!pl 'glaraz <<glaraz>> a maximum of 3'
  67. !!pl 'bodykoef <<bodykoef>> a maximum of 8'
  68. !!pl 'legkoef <<legkoef>> a maximum of 3'
  69. !!pl 'lobkoef <<lobkoef>> a maximum of 3'
  70. !!pl 'odevnesh <<odevnesh>> a maximum of 15'
  71. !!pl 'sweat <<sweat>> the maximum 0'
  72. !!pl 'hapri <<hapri>> a maximum of 1'
  73. !!!!!!!! Maruda Hair Mod
  74. if hairlength > 41 and hscrunch >= 1:
  75. if hscrunchw = 0 and hpingripw = 0:pl 'As you have a scrunchy, you can arrange your hair into a <a href="exec:hscrunchw = 1 & dynamic $objdescrip">ponytail</a>. You have <<hscrunch>> scrunchies left.'
  76. if hscrunchw = 1:pl 'Remove the <a href="exec:hscrunchw = 0 & dynamic $objdescrip">scrunchie</a> to get rid of the ponytail.'
  77. end
  78. if hairlength > 41 and hpingrip >= 1:
  79. 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 & dynamic $objdescrip">updo your hair</a>. You have <<hpingrip>> hair accessories at your disposal.'
  80. if hpingripw = 1:pl 'Let your hair <a href="exec:hpingripw = 0 & dynamic $objdescrip">flow free</a>.'
  81. end
  82. if hairlength > 80 and hscrunch >= 2:
  83. if hscrunchw = 0 and hpingripw = 0:pl 'You can use two hair ties to make yourself some <a href="exec:hpigtail = 1 & hscrunchw = 2 & dynamic $objdescrip">pigtails</a>.'
  84. if hscrunchw = 2:pl '<a href="exec:hpigtail = 0 & hscrunchw = 0 & dynamic $objdescrip">Remove</a> your scrunchies and let your hair flow free again.'
  85. end
  86. if hscrunch < 1:hscrunchw = 0
  87. if hpingrip < 1:hpingripw = 0
  88. if hscrunch < 2:hpigtail = 0
  89. !!!!!!!! Maruda Hair Mod
  90. }
  91. $objskills = {
  92. clr
  93. pl'<center><img src="images/pic/icon/stats.png"><br></center>'
  94. pl 'Attractiveness <<vnesh>>'
  95. pl 'Power <<stren>>'
  96. pl 'Speed ​​<<speed>>'
  97. pl 'Agility <<agil>>'
  98. pl 'Endurance <<vital>>'
  99. pl 'Intelligence <<intel>>'
  100. pl 'Spirit <<will>>'
  101. pl 'Reaction <<react>>'
  102. pl '<<$fat>>'
  103. !!pl 'Bezstydstvo <<shameless>>'
  104. nl
  105. pl '<b>Sexual characteristics</b>'
  106. nl
  107. pl 'Exhibitionism <<exhibition>>'
  108. if SUB > 0:pl 'Subordination <<SUB>>'
  109. if DOM > 0:pl 'Dominance <<DOM>>'
  110. pl 'Curiosity <<curiosity>>'
  111. pl 'Inhibition <<inhibition>>'
  112. pl 'Perversion <<perversion>>'
  113. nl
  114. pl '<b>Fetishes</b>'
  115. pl 'Porn <<porn>>'
  116. pl 'Interracial <<interracial>>'
  117. pl 'Prostitution <<prostitution>>'
  118. pl 'Bondage <<bondage>>'
  119. pl 'Masochism <<masochism>>'
  120. pl 'Sadism <<sadist>>'
  121. pl 'Bestiality <<bestiality>>'
  122. pl 'Rape <<rape>>'
  123. pl 'Incest <<incest>>'
  124. nl
  125. !!pl 'Muscles <<$musle>>'
  126. if magik > 0:pl 'Magic - <<magik>>'
  127. if Jab > 0:pl 'Jab - <<Jab>>'
  128. if Punch > 0:pl 'Power Strikes - <<Punch>>'
  129. if Kik > 0:pl 'Kicks - <<Kik>>'
  130. if KikDef > 0:pl 'Protection against - <<KikDef>>'
  131. if beg > 0:pl 'Running skill - <<beg>>'
  132. if volleyboll > 0:pl 'Volleyball skill - <<volleyboll>>'
  133. if oficiant > 0:pl 'Waitress skill - <<oficiant>>'
  134. if vokal > 0:pl 'Vocal skill - <<vokal>>'
  135. if dance > 0:pl 'Dancing skill - <<dance>>'
  136. if dancePRO > 0:pl 'Regular dancing skilllevel - <<dancePRO>>'
  137. if stripdance > 0:pl 'Striptease skilllevel - <<stripdance>>'
  138. if poledance > 0:pl 'Poledancing skilllevel- <<poledance>>'
  139. if shoot > 0:pl 'Shooting Accuracy - <<shoot>>'
  140. if kid > 0:
  141. i = 1
  142. if kid = 1:
  143. pl 'You have a child, a <<$polreb[1]>> named <<$kidname[1]>>. Born <<daykid[1]>>-<<monthkid[1]>>-<<yearkid[1]>>. Aged <<kidage[1]>>'
  144. else
  145. p 'You have children'
  146. :LoopKidCounter
  147. if i <= kid:
  148. if i > 1: p ','
  149. p ' a <<$polreb[i]>> named <<$kidname[i]>>. Born <<daykid[i]>>-<<monthkid[i]>>-<<yearkid[i]>>. Aged <<kidage[i]>>'
  150. i += 1
  151. jump 'LoopKidCounter'
  152. end
  153. pl '.'
  154. end
  155. nl
  156. end
  157. if workPTU > 1:pl 'Reputation as a teacher <<teachlevel>>'
  158. if SchoolAtestat = 0 and StoryLine > 0:
  159. if Suspeh >= 90:pl 'You are an A+ student.'
  160. if Suspeh >= 80 and Suspeh < 90:pl 'You are a bright student, just not the top of your class.'
  161. if Suspeh >= 70 and Suspeh < 80:pl 'You are an above average student, but you have to work hard to keep up.'
  162. if Suspeh >= 60 and Suspeh < 70:pl 'You are the typical average student. You''re good in the fields you like, but can''t be bothered with the rest.'
  163. if Suspeh >= 50 and Suspeh < 60:pl 'You''re not very good in school, you wish you could be somewhere else and your grades show it.'
  164. if Suspeh >= 40 and Suspeh < 50: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.'
  165. if Suspeh < 40:pl 'You are the class nitwit. You''re still not sure how you got this far in the first place.'
  166. if schoolprogul > 1:pl 'Absenteeism in school - <<schoolprogul>> days'
  167. end
  168. }
  169. $husb_cheat_count = {
  170. if husband > 0:
  171. if guy > before_h_guy :
  172. guy_cheat += guy - guy_cheat
  173. before_h_guy = guy
  174. end
  175. if girl > before_h_girl:
  176. girl_cheat += girl - before_h_girl
  177. before_h_girl = girl
  178. end
  179. end
  180. if before_h_girl > 0 and before_h_guy > 0:
  181. pl'During your marrage you have cheated with your husband with <<guy_cheat>> guys and <<girl_cheat>> girls.'
  182. elseif before_h_guy > 0:
  183. pl'During your marrage you have cheated with your husband with <<guy_cheat>> guys.'
  184. elseif before_h_girl > 0:
  185. pl'During your marrage you have cheated with your husband with <<girl_cheat>> girls.'
  186. end
  187. }
  188. $objstatistika = {
  189. clr
  190. pl'<center><img src="images/pic/icon/statistics.png"><br></center>'
  191. if opPRE = 0:pl 'It has been <<daystart>> days since the game started.'
  192. if BuyHous = 2 and ArendHouseSL >0:pl 'You have rented an apartment in the residential area for <<ArendHouseSL>> days.'
  193. if BuyHous = 2 and ArendHouseSL >0:
  194. pl 'You have rented an apartment in the residential area for <<ArendHouseSL>> days.'
  195. if money >= 6000 or stolmoney >= 6000 or money + stolmoney >= 6000 or karta >= 6000:
  196. *P ' Renew with '
  197. if money >= 6000:
  198. *P ' <a href="exec:money -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30">cash</a>'
  199. elseif stolmoney >= 6000:
  200. *P ' <a href="exec:stolmoney -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & dynamic $objstatistika">cash from drawer</a>'
  201. elseif money + stolmoney >= 6000:
  202. !both < 6000, so money = money - 6000 + stolmoney
  203. *P ' <a href="exec:money -= 6000 - stolmoney & stolmoney = 0 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & dynamic $objstatistika">cash from purse and drawer</a>'
  204. end
  205. !from purse, drawer or both
  206. if karta >= 6000: *P ' <a href="exec:karta -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & dynamic $objstatistika">bank account</a>'
  207. end
  208. end
  209. if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0:
  210. pl 'Professional Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw'
  211. pl '<<KikWinPro>> (<<KikWinProKO>>KO) - <<KikLossPro>> (<<KikLossProKO>>KO) - <<KikDrawPro>>'
  212. nl
  213. end
  214. if Win > 0 or Loss > 0:pl 'Wins in fights <<Win>>, losses in fights <<Loss>>' & nl
  215. if KisameDead = 1:pl 'You killed Kisame.'& nl
  216. if razradKik > 0:pl '<<$razradKik>>'
  217. if KikWinAm > 0 or KikLossAm > 0 or KikDrawAm > 0:
  218. pl 'Amateur Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw'
  219. pl '<<KikWinAm>> (<<KikWinAmKO>>KO) - <<KikLossAm>> (<<KikLossAmKO>>KO) - <<KikDrawAm>>'
  220. nl
  221. end
  222. if razradKik > 0:
  223. if razradKik = 1:$razradKik = 'You have earned your green 4th sash in kickboxing'
  224. if razradKik = 2:$razradKik = 'You have earned your purple 5th sash in kickboxing'
  225. if razradKik = 3:$razradKik = 'You have earned your blue 6th sash in kickboxing'
  226. if razradKik = 4:$razradKik = 'You have earned your brown 7th sash in Kickboxing'
  227. if razradKik = 5:$razradKik = 'You have earned your black 1st dan in Kickboxing'
  228. nl
  229. end
  230. if kolsorev > 0:pl 'You have run in <<kolsorev>> races'
  231. if bronzebeg > 0:pl '<<bronzebeg>> - bronze medals for running'
  232. if silverbeg > 0:pl '<<silverbeg>> - silver medals for running'
  233. if goldbeg > 0:pl '<<goldbeg>> - gold medals for running'
  234. if razradbegEB > 0:pl '<<razradbegEB>> times bronze medalist at European Championship'
  235. if razradbegES > 0:pl '<<razradbegES>> runner up at European Championship'
  236. if razradbegEG > 0:pl '<<razradbegEG>> times European champion.'
  237. if razradbeg > 0:
  238. if razradbeg = 1:pl 'You have third sports category for event'
  239. if razradbeg = 2:pl 'You 2nd sports category for event'
  240. if razradbeg = 3:pl 'You 1st sports category for event'
  241. if razradbeg = 4:pl 'You have the title of Candidate Master of Sports for event'
  242. if razradbeg = 5:pl 'You have the title of Master of Sports in the run'
  243. if razradbeg >= 6:pl 'You have the title of International Master of Sports for event'
  244. nl
  245. end
  246. if chess_win > 0 or chess_loss > 0:pl'Chess Record: Win <<chess_win>>, Loss <<chess_loss>>'
  247. if chess_rank > 0:
  248. if chess_rank = 1:pl'You have mastered the basics of chess'
  249. if chess_rank = 2:pl'You are starting to get good at chess'
  250. if chess_rank = 3:pl'You are a good chess player'
  251. if chess_rank = 4:pl'You are an excellent chess player'
  252. if chess_rank = 5:pl'You are a candidate for chess master'
  253. if chess_rank = 6:pl'You are a chess master'
  254. if chess_rank = 7:pl'You are a chess Grandmaster'
  255. end
  256. if chess_world_rank > 0:
  257. if chess_world_rank = 1:pl'The title of FIDE Master Chess'
  258. if chess_world_rank = 2:pl'The title of International Chess Master'
  259. if chess_world_rank = 3:pl'The title of International Grandmaster Chess'
  260. end
  261. nl
  262. if nastjaQW > 0:pl 'Friendship with Nastya <<nastjaqw>>'
  263. if tanya > 0:pl 'Friendship with Tanya <<tanya>>'
  264. if kat > 0:pl 'Friendship with Kate <<kat>>'
  265. if vika > 0:pl 'Friendship with Vika <<vika>>'
  266. if Irina > 0:pl 'Friendship with Irene <<Irina>>'
  267. if Tamara > 0:pl 'Friendship with Tamara <<Tamara>>'
  268. if alla > 0:pl 'Friendship with Alla <<alla>>'
  269. if masha > 0:pl 'Friendship with Masha <<masha>>'
  270. if Givi > 0:pl 'Friendship with Givi K. <<Givi>>'
  271. if Ashot > 0:pl 'Friendship with Ashot <<Ashot>>'
  272. if Dmitry > 0:pl 'Friendship with Dima <<Dmitry>>'
  273. if afra > 0:pl 'Friendship with blacks <<afra>>'
  274. if trenerepa > 0:pl'Friendship with Mikhail Nikolaevich <<trenerepa>>'
  275. !!!WD: Formatting
  276. if (Irina + Givi + Ashot + Tamara + Dmitry + afra + gosh + vika + kat + nastjaqw + tanya) > 0:nl
  277. !!!
  278. if exhibi > 0:pl 'Experienced exhibitionism <<exhibi>> times'
  279. if maxdamage > 0:pl 'The impact force on the dynamometer <<maxdamage>> kgN' & nl
  280. if modelfoto > 0:pl 'You have been photographed naked <<modelfoto>> times'
  281. if stripdancesum > 0:pl '<<stripdancesum>> times dancing in the stripclub'
  282. if profiDanceTime > 0:pl 'You danced <<profiDanceTime>> times professionally.'
  283. if SchoolAtestat = 1:pl 'You have finished school.'
  284. if diplom = 1:pl 'You graduated.'
  285. if teachlevel > 0:pl 'Your credibility as a teacher is <<teachlevel>>'
  286. !!!WD:FORMATING
  287. if (exhibi + maxdamage + modelfoto + stripdancesum + profiDanceTime + SchoolAtestat + diplom + teachlevel) > 0:nl
  288. !!!
  289. if mastr > 0:pl 'Masturbated <<mastr>> times'
  290. if throat > 0:pl '<<$throat>>'
  291. if vagina > 0:pl '<<$vagina>>'
  292. if vagina = 0 and sex = 0:pl 'You are a virgin.'
  293. if anus > 0:pl '<<$anus>>'
  294. nl
  295. if guy > 0:pl 'You had <<guy>> guys.'
  296. if divorced > 0:pl 'You were married <<divorced>> times.'
  297. if suprdolg > 0:pl 'Performed conjugal duty for your husband <<suprdolg>> times'
  298. if gang > 0:pl 'Group sex <<gang>> times'
  299. if sex > 0 and sexa = 0:pl 'Vaginal sex <<sex>> times.'
  300. if sex > 0 and sexa > 0:pl 'Vaginal sex <<sex>> times, of them <<sexa>> times with your boyfriend.'
  301. if bj > 0:
  302. if gloryhole = 0 and balls = 0 and bja = 0:
  303. pl 'Blowjob done <<bj>> times.'
  304. elseif gloryhole = 0 and balls = 0 and bja > 0:
  305. pl 'Blowjob done <<bj>> times, of which <<bja>> times her boyfriend'
  306. elseif gloryhole > 0 and balls = 0 and bja = 0:
  307. pl 'Blowjob done <<bj>> times, of which you <<gloryhole>> times suck strangers through a hole in the wall.'
  308. elseif gloryhole > 0 and balls = 0 and bja > 0:
  309. pl 'Blowjob done <<bj>> times, of which you <<gloryhole>> times suck strangers through a hole in the wall. Just one <<bja>> times her boyfriend'
  310. elseif gloryhole = 0 and balls > 0 and bja = 0:
  311. pl 'Blowjob done <<bj>> times, sucked balls <<balls>> times.'
  312. elseif gloryhole = 0 and balls > 0 and bja > 0:
  313. pl 'Blowjob done <<bj>> times, sucked balls <<balls>> times. Just one <<bja>> times her boyfriend'
  314. elseif gloryhole > 0 and balls > 0 and bja = 0:
  315. pl 'Blowjob done <<bj>> times, of which you <<gloryhole>> times suck strangers through a hole in the wall. Sucked balls <<balls>> times.'
  316. elseif gloryhole > 0 and balls > 0 and bja > 0:
  317. pl 'Blowjob done <<bj>> times, of which you <<gloryhole>> times suck strangers through a hole in the wall. Sucked balls <<balls>> times. Just one <<bja>> times her boyfriend'
  318. end
  319. end
  320. if hj > 0:
  321. if hja = 0:pl 'Jerked off guys <<hj>> times'
  322. if hja > 0:pl 'Jerked off guys <<hj>> times of them <<hja>> times masturbate her boyfriend'
  323. end
  324. if hump > 0:pl 'About you wanker member <<hump>> times'
  325. if rape > 0:pl 'You have been raped <<rape>> times'
  326. if anal > 0:
  327. if anala = 0:pl 'Anal <<anal>> times'
  328. if anala > 0:pl 'Anal <<anal>> times of them <<anala>> times with her boyfriend'
  329. end
  330. if kuni > 0:pl 'You received cunnilingus <<kuni>> times'
  331. if pegging > 0:pl 'Pegged <<pegging>> times'
  332. if spank > 0:pl 'You have had your ass spanked <<spank>> times'
  333. !!!WD:FORMATING
  334. if (guy + divorced + suprdolg + gang + sex + bj + hj + hump + rape + anal + kuni + pegging + spank) > 0:nl
  335. !!!
  336. if slutty > 0:
  337. if bordelslutty = 0:pl 'Sold your body <<slutty>> times.'
  338. if bordelslutty > 0:pl 'Sold your body <<slutty>> times, including <<bordelslutty>> times in a brothel.'
  339. end
  340. if orgasm > 0:pl 'Experienced orgasm <<orgasm>> times.'
  341. if analorgasm > 0 :pl 'You''ve had <<analorgasm>> anal orgasms.'
  342. if swallow > 0:pl 'Sperm swallowed <<swallow>> times.'
  343. if facial > 0:pl 'You have taken <<facial>> facials.'
  344. if frot > 0:pl 'Your clothes have been come on <<frot>> times.'
  345. if VAF > 0:pl 'Orgasmed while sucking cock <<VAF>> times.'
  346. if zoo > 0:pl 'Had sex with animals <<zoo>> times.'
  347. if pee > 0:pl 'You pissing <<pee>> times.'
  348. if swallowpee > 0:pl 'You swallowed urine <<swallowpee>> times.'
  349. !!!WD:FORMATING
  350. if (slutty + pfilmSTOP + film + orgasm + analorgasm + swallow + facial + frot + VAF + zoo + pee) > 0:nl
  351. !!!
  352. if girl > 0:pl 'You have had sex with <<girl>> girls.'
  353. if lesbian > 0:pl 'You have had lesbian sex <<lesbian>> times.'
  354. if sexfuta > 0:pl 'You''ve had sex with tgirls <<sexfuta>> times.'
  355. if film > 0:
  356. $pfilmhistory = ''
  357. gs 'pornhist'
  358. $retired=''
  359. if pfilmSTOP = 1:$retired='retired after '
  360. pl '<hr>'
  361. pl '<b><i><a href="exec:dynamic $pdetail">Filmography</a> of <font color="magenta"><<$pfname>></font></i></b>'
  362. pl ' (<<$retired>><i><b><<film>></b></i> porn movie):'
  363. p '<<$pfilmhistory>>'
  364. end
  365. }
  366. $reputation = {
  367. clr
  368. pl'<center><img src="images/pic/icon/reputation.png"><br></center>'
  369. if StoryLine = 1:
  370. if GorSlut = 1:
  371. pl 'In Pavlovsky you are known as a flirt.'
  372. elseif GorSlut = 2:
  373. pl 'In Pavlovsky you are known to have sucked a few cocks.'
  374. elseif GorSlut = 3:
  375. pl 'In Pavlovsky you are known as a great cocksucker.'
  376. elseif GorSlut = 4:
  377. pl 'In Pavlovsky you are known to have fucked several boys.'
  378. elseif GorSlut = 5:
  379. pl 'In Pavlovsky you are known as the slut that would do anything.'
  380. elseif GorSlut = 6:
  381. pl 'In Pavlovsky you are known as a prostitute who will take money for the most extreme sex acts.'
  382. else
  383. pl'In Pavlovo you are considered a decent girl with a good reputation.'
  384. end
  385. nl
  386. end
  387. if rinslut > 1 and kavslut > 0:pl'In the residential area of ​​you know as a whore, who sleeps with Caucasians.'
  388. if afra > 80: pl'In the student hostel, you are known for bedding blacks.'
  389. if opusk > 0: pl'In the sleeping area it is well known by all the guys that you are a whore.'
  390. if StoryLine = 1:
  391. nl
  392. if motherKnowSpravka > 0 and motherKnowWhore > 0:
  393. pl'Your mother knows, that you are sexually active and considers you a slut.'
  394. elseif motherKnowWhore > 0:
  395. pl'Your mother thinks you are a whore.'
  396. elseif motherKnowSpravka > 0:
  397. pl'Your mother knows that you are sexually active.'
  398. else
  399. pl'Your mother thinks that you are a virgin.'
  400. end
  401. if evgenQW >= 4 and brotherSex >= 1:
  402. pl'Your brother thinks you are a total whore.'
  403. elseif brotherSex >= 1:
  404. pl'Your brother thinks you are a slut.'
  405. elseif evgenQW >= 3:
  406. pl'Your brother thinks you are a slut.'
  407. elseif brotherknowslut = 1:
  408. pl'Your brother saw semen on your body and thinks you fuck around.'
  409. elseif brotherknowslut >= 2:
  410. pl'Your brother saw you in the park screwing Gopnik.'
  411. else
  412. pl'Your brother has a good opinion of you.'
  413. end
  414. if sisterknowslut > 1 and sisboypartyQW = 2:
  415. pl'Your sister says you are a slut'
  416. elseif sisterknowslut > 0:
  417. pl'Your sister knows, you sleep around.'
  418. else
  419. pl'Your sister has a good opinion of you.'
  420. end
  421. end
  422. }
  423. $objmagic = {
  424. clr
  425. if magik = 0:
  426. pl'You are unable to use magic.'
  427. elseif magik > 0:
  428. pl'Available to you <<manna>> units of manna.'
  429. !' Forces Rikudo available to you <<rikudo>> units'
  430. nl
  431. pl'<b>Base Spells:</b>'
  432. nl
  433. if spelltuman > 0:pl'Cover the area fog, a great way to cover up their actions by attacking the enemy and not a bad way to increase the chance to dodge enemy attacks, since he can not see you in your fog (cost 10 units of manna)'
  434. nl
  435. if spellklon > 0:pl'Override clone of yourself, powerful way to avoid enemy attacks substituting itself clone, I tend to fall on the enemy and not by you, he just wasted power (cost 15 units of manna)'
  436. nl
  437. if spellstun > 0:pl'Checkmate, a great way to stop the enemy, He will not be able to defend and attack. ( cost 20 units of manna)'
  438. nl
  439. if spellweap > 0 and weapon > 0:pl'Invest energy into a weapon'
  440. nl
  441. if spellwind > 0:pl'Blow away the fog, spell dissipate any mist over the battlefield.'
  442. nl
  443. if spellklon2 > 0:pl'Substitute itself clones (3 pieces), the enemy will not be able to get to you, until you destroy all of your clones. (cost 45 units of manna)'
  444. nl
  445. if spellenergo > 0:pl'Create a weak energy shield, spell protects against all attacks of the physical nature, even if the attack is the enemy exceeds the capabilities of the shield and shield it will be destroyed first strike, you can still protect yourself from damage(cost 50 units of manna)'
  446. nl
  447. if spellinit > 0:pl'Create a slight delay of time, powerful spell allows you to move faster, you will be able to snatch the initiative with this spell, that would strike another spell, also increase the probability of hitting, because you will move very quickly (cost 60 units of manna)'
  448. nl
  449. if spellhel > 0:pl'Battle Heal, restores or adds 400 Health units in exchange for 400 units of manna.'
  450. nl
  451. if stihia = 1:pl'<b>Elemental Spells Fire:</b>'
  452. nl
  453. if spellfire1 = 1:pl'Flame. Deals little damage. (Cost 10 manna)'
  454. nl
  455. if spellfire2 = 1:pl'The release of fire. It causes great damage. (Cost 100 manna)'
  456. nl
  457. if spellfire3 = 1:pl'Fire Barrier, It creates a shield 750 units. (Cost 150 manna)'
  458. nl
  459. if spellfire4 = 1:pl'Firestorm. It causes great damage, the opponent is difficult to dodge. (Cost 250 manna)'
  460. nl
  461. if spellfire5 = 1:pl'Flame Shield, It creates a shield 2500 units. (Cost 500 manna)'
  462. nl
  463. if stihia = 2:pl'<b>Elements Lightning Spells:</b>'
  464. nl
  465. if spellele1 = 1:pl'Category. Deals very little damage. (Cost 10 manna)'
  466. nl
  467. if spellele2 = 1:pl'Lightning. Inflicts above average. (Cost 100 manna)'
  468. nl
  469. if spellele3 = 1:pl'Electric barrier, It creates a shield 1500 units. (Cost 150 manna)'
  470. nl
  471. if spellele4 = 1:pl'Dance of thousands of birds. Deals very high damage. (Cost 250 manna)'
  472. nl
  473. if spellele5 = 1:pl'Dancing Sphere, It creates a shield 5000 units. (Cost 500 manna)'
  474. nl
  475. if stihia = 3:pl'<b>Spells Earth Elements:</b>'
  476. nl
  477. if spellert1 = 1:pl'Quicksand, catches the opponent in the quicksand trap and causes little damage. (Cost 10 manna)'
  478. nl
  479. if spellert2 = 1:pl'Active protection, It creates a protective sphere of land, Cham 2500 Units of protection of health and mana, this protection restores itself within 10 absorbing strokes 20 Units in the course of manna. (Cost 100 manna)'
  480. nl
  481. if spellert3 = 1:pl'Abyss, earth asunder under their feet inflicting damage to the enemy than average and depriving him of the ability to move. (Cost 150 manna)'
  482. nl
  483. if spellert4 = 1:pl'Absolute protection, It creates a huge protective sphere of land, which regenerates itself every turn attacks the enemy. (Cost 250 manna)'
  484. nl
  485. if spellert5 = 1:pl'Sando, two huge plates come out of the collapse of the earth and crushing the enemy inflicting huge damage and depriving him of the ability to move. Cost 500 manna.'
  486. nl
  487. if stihia = 4:pl'<b>Wind Elemental Spells:</b>'
  488. nl
  489. if spellwind1 = 1:pl'Wind gust, It causes very little damage and destroy clones, and fog, very difficult to dodge. (Cost 10 manna)'
  490. nl
  491. if spellwind2 = 1:pl'The horrific pressure, causing moderate damage and destroy clones, and fog, very difficult to dodge. (Cost 100 manna)'
  492. nl
  493. if spellwind3 = 1:pl'Vacuum Sphere, It creates a shield 1500 units. (Cost 150 manna)'
  494. nl
  495. if spellwind4 = 1:pl'Vacuum shells, more damage and kills clones and fog, very difficult to dodge. (Cost 250 manna)'
  496. nl
  497. if spellwind5 = 1:pl'Devouring vacuum, sucks shield enemy destroying it whatever strength he was not. (Cost 500 manna)'
  498. nl
  499. if stihia = 5:pl'<b>Water Elemental Spell:</b>'
  500. nl
  501. if spellwater1 = 1:pl'Creek manna, It causes very little damage and absorbs a lot of mana. Cost 10 manna.'
  502. nl
  503. if spellwater2 = 1:pl'Flooding, causing moderate damage and absorb Mana above average. Cost 100 manna.'
  504. nl
  505. if spellwater3 = 1:pl'Blister, It creates a protective sphere of water 1500 Units of protection against all impacts, this protection restores itself within 10 absorbing strokes 20 Units in the course of manna. (Cost 150 manna)'
  506. nl
  507. if spellwater4 = 1:pl'Water shark rocket, It caused great damage and absorbs a lot of mana. Cost 250 manna.'
  508. nl
  509. if spellwater5 = 1:pl'The Great Flood, It creates a huge sphere that absorbs water and pumping opponent manna from it and passing it to strengthen protection. Cost 500 manna.'
  510. nl
  511. end
  512. }
  513. $objpain = {
  514. clr
  515. pl'<center>Pain</center>'
  516. pl
  517. pl
  518. if pain['head'] > 0:
  519. if pain['head'] > 70:
  520. pl '<b><font color="red">Your head is extremely painful.</font></b>'
  521. elseif pain['head'] > 40:
  522. pl 'Your head is very sore.'
  523. else
  524. pl 'Your head hurts.'
  525. end
  526. end
  527. if pain['hair'] > 0:
  528. if pain['hair'] > 70:
  529. pl '<b><font color="red">Your hair is extremely painful.</font></b>'
  530. elseif pain['hair'] > 40:
  531. pl 'Your hair is very sore.'
  532. else
  533. pl 'Your hair hurts.'
  534. end
  535. end
  536. if pain['ears'] > 0:
  537. if pain['ears'] > 70:
  538. pl '<b><font color="red">Your ears are extremely painful.</font></b>'
  539. elseif pain['ears'] > 40:
  540. pl 'Your ears are very sore.'
  541. else
  542. pl 'Your ears hurt.'
  543. end
  544. end
  545. if pain['eyebrows'] > 0:
  546. if pain['eyebrows'] > 70:
  547. pl '<b><font color="red">Your eyebrows are extremely painful.</font></b>'
  548. elseif pain['eyebrows'] > 40:
  549. pl 'Your eyebrows are very sore.'
  550. else
  551. pl 'Your eyebrows hurt.'
  552. end
  553. end
  554. if pain['eyes'] > 0:
  555. if pain['eyes'] > 70:
  556. pl '<b><font color="red">Your eyes are extremely painful.</font></b>'
  557. elseif pain['eyes'] > 40:
  558. pl 'Your eyes are very sore.'
  559. else
  560. pl 'Your eyes hurt.'
  561. end
  562. end
  563. if pain['cheeks'] > 0:
  564. if pain['cheeks'] > 70:
  565. pl '<b><font color="red">Your cheeks are extremely painful.</font></b>'
  566. elseif pain['cheeks'] > 40:
  567. pl 'Your cheeks are very sore.'
  568. else
  569. pl 'Your cheeks hurt.'
  570. end
  571. end
  572. if pain['nose'] > 0:
  573. if pain['nose'] > 70:
  574. pl '<b><font color="red">Your nose is extremely painful.</font></b>'
  575. elseif pain['nose'] > 40:
  576. pl 'Your nose is very sore.'
  577. else
  578. pl 'Your nose hurts.'
  579. end
  580. end
  581. if pain['mouth'] > 0:
  582. if pain['mouth'] > 70:
  583. pl '<b><font color="red">Your mouth is extremely painful.</font></b>'
  584. elseif pain['mouth'] > 40:
  585. pl 'Your mouth is very sore.'
  586. else
  587. pl 'Your mouth hurts.'
  588. end
  589. end
  590. if pain['lips'] > 0:
  591. if pain['lips'] > 70:
  592. pl '<b><font color="red">Your lips is extremely painful.</font></b>'
  593. elseif pain['lips'] > 40:
  594. pl 'Your lips is very sore.'
  595. else
  596. pl 'Your lips hurts.'
  597. end
  598. end
  599. if pain['tongue'] > 0:
  600. if pain['tongue'] > 70:
  601. pl '<b><font color="red">Your tongue is extremely painful.</font></b>'
  602. elseif pain['tongue'] > 40:
  603. pl 'Your tongue is very sore.'
  604. else
  605. pl 'Your tongue hurts.'
  606. end
  607. end
  608. if pain['throat'] > 0:
  609. if pain['throat'] > 70:
  610. pl '<b><font color="red">Your throat is extremely painful.</font></b>'
  611. elseif pain['throat'] > 40:
  612. pl 'Your throat is very sore.'
  613. else
  614. pl 'Your throat hurts.'
  615. end
  616. end
  617. if pain['neck'] > 0:
  618. if pain['neck'] > 70:
  619. pl '<b><font color="red">Your neck is extremely painful.</font></b>'
  620. elseif pain['neck'] > 40:
  621. pl 'Your neck is very sore.'
  622. else
  623. pl 'Your neck hurts.'
  624. end
  625. end
  626. if pain['back'] > 0:
  627. if pain['back'] > 70:
  628. pl '<b><font color="red">Your back is extremely painful.</font></b>'
  629. elseif pain['back'] > 40:
  630. pl 'Your back is very sore.'
  631. else
  632. pl 'Your back hurts.'
  633. end
  634. end
  635. if pain['asscheeks'] + (spanked * 24) > 0:
  636. if pain['asscheeks'] + (spanked * 24) > 70:
  637. pl '<b><font color="red">Your <a href="exec:view''images/picb/SpankedAss2.jpg''">asscheeks</a> are extremely painful.</font></b>'
  638. elseif pain['asscheeks'] + (spanked * 24) > 40:
  639. pl 'Your <a href="exec:view''images/picb/SpankedAss1.jpg''">asscheeks</a> are very sore.'
  640. else
  641. pl 'Your <a href="exec:view''images/picb/SpankedAss.jpg''">asscheeks<\a> hurt.'
  642. end
  643. end
  644. if pain['asshole'] + (agape * 10) > 0:
  645. if pain['asshole'] + (agape * 10) > 70:
  646. pl '<b><font color="red">You an extremely sore anus and it emits blood.</font></b>'
  647. elseif pain['asshole'] + (agape * 10) > 40:
  648. pl '<b><font color="red">You have a very sore anus.</font></b>'
  649. else
  650. pl '<b><font color="red">You have a sore and itchy anus.</font></b>'
  651. end
  652. end
  653. if pain['hips'] > 0:
  654. if pain['hips'] > 70:
  655. pl '<b><font color="red">Your hips are extremely painful.</font></b>'
  656. elseif pain['hips'] > 40:
  657. pl 'Your hips are very sore.'
  658. else
  659. pl 'Your hips hurt.'
  660. end
  661. end
  662. if pain['thighs'] > 0:
  663. if pain['thighs'] > 70:
  664. pl '<b><font color="red">Your thighs are extremely painful.</font></b>'
  665. elseif pain['thighs'] > 40:
  666. pl 'Your thighs are very sore.'
  667. else
  668. pl 'Your thighs hurt.'
  669. end
  670. end
  671. if pain['legL'] > 0:
  672. if pain['legL'] > 70:
  673. pl '<b><font color="red">Your left leg is extremely painful.</font></b>'
  674. elseif pain['legL'] > 40:
  675. pl 'Your left leg is very sore.'
  676. else
  677. pl 'Your left leg hurts.'
  678. end
  679. end
  680. if pain['legR'] > 0:
  681. if pain['legR'] > 70:
  682. pl '<b><font color="red">Your right leg is extremely painful.</font></b>'
  683. elseif pain['legR'] > 40:
  684. pl 'Your right leg is very sore.'
  685. else
  686. pl 'Your right leg hurts.'
  687. end
  688. end
  689. if pain['feet'] > 0:
  690. if pain['feet'] > 70:
  691. pl '<b><font color="red">Your feet are extremely painful.</font></b>'
  692. elseif pain['feet'] > 40:
  693. pl 'Your feet are very sore.'
  694. else
  695. pl 'Your feet hurt.'
  696. end
  697. end
  698. if pain['toes'] > 0:
  699. if pain['toes'] > 70:
  700. pl '<b><font color="red">Your toes are extremely painful.</font></b>'
  701. elseif pain['toes'] > 40:
  702. pl 'Your toes are very sore.'
  703. else
  704. pl 'Your toes foot hurt.'
  705. end
  706. end
  707. if pain['shoulders'] > 0:
  708. if pain['shoulders'] > 70:
  709. pl '<b><font color="red">Your shoulders are extremely painful.</font></b>'
  710. elseif pain['shoulders'] > 40:
  711. pl 'Your shoulders are very sore.'
  712. else
  713. pl 'Your shoulders hurt.'
  714. end
  715. end
  716. if pain['armL'] > 0:
  717. if pain['armL'] > 70:
  718. pl '<b><font color="red">Your left arm is extremely painful.</font></b>'
  719. elseif pain['armL'] > 40:
  720. pl 'Your left arm is very sore.'
  721. else
  722. pl 'Your left arm hurts.'
  723. end
  724. end
  725. if pain['armR'] > 0:
  726. if pain['armR'] > 70:
  727. pl '<b><font color="red">Your right arm is extremely painful.</font></b>'
  728. elseif pain['armR'] > 40:
  729. pl 'Your right arm is very sore.'
  730. else
  731. pl 'Your right arm hurts.'
  732. end
  733. end
  734. if pain['hands'] > 0:
  735. if pain['hands'] > 70:
  736. pl '<b><font color="red">Your hands are extremely painful.</font></b>'
  737. elseif pain['hands'] > 40:
  738. pl 'Your hands are very sore.'
  739. else
  740. pl 'Your hands hurt.'
  741. end
  742. end
  743. if pain['fingers'] > 0:
  744. if pain['fingers'] > 70:
  745. pl '<b><font color="red">Your fingers are extremely painful.</font></b>'
  746. elseif pain['fingers'] > 40:
  747. pl 'Your fingers are very sore.'
  748. else
  749. pl 'Your fingers hurt.'
  750. end
  751. end
  752. if pain['chest'] > 0:
  753. if pain['chest'] > 70:
  754. pl '<b><font color="red">Your chest is extremely painful.</font></b>'
  755. elseif pain['chest'] > 40:
  756. pl 'Your chest is very sore.'
  757. else
  758. pl 'Your chest hurts.'
  759. end
  760. end
  761. if pain['breasts'] > 0:
  762. if pain['breasts'] > 70:
  763. pl '<b><font color="red">Your breasts are extremely painful.</font></b>'
  764. elseif pain['breasts'] > 40:
  765. pl 'Your breasts are very sore.'
  766. else
  767. pl 'Your breasts hurt.'
  768. end
  769. end
  770. if pain['nipples'] > 0:
  771. if pain['nipples'] > 70:
  772. pl '<b><font color="red">Your nipples are extremely painful.</font></b>'
  773. elseif pain['nipples'] > 40:
  774. pl 'Your nipples are very sore.'
  775. else
  776. pl 'Your nipples hurt.'
  777. end
  778. end
  779. if pain['ribs'] > 0:
  780. if pain['ribs'] > 70:
  781. pl '<b><font color="red">Your ribs are extremely painful.</font></b>'
  782. elseif pain['ribs'] > 40:
  783. pl 'Your ribs are very sore.'
  784. else
  785. pl 'Your ribs hurt.'
  786. end
  787. end
  788. if pain['tummy'] > 0:
  789. if pain['tummy'] > 70:
  790. pl '<b><font color="red">Your tummy is extremely painful.</font></b>'
  791. elseif pain['tummy'] > 40:
  792. pl 'Your tummy is very sore.'
  793. else
  794. pl 'Your tummy hurts.'
  795. end
  796. end
  797. if pain['pubic'] > 0:
  798. if pain['pubic'] > 70:
  799. pl '<b><font color="red">Your pubis is extremely painful.</font></b>'
  800. elseif pain['pubic'] > 40:
  801. pl 'Your pubis is very sore.'
  802. else
  803. pl 'Your pubis hurts.'
  804. end
  805. end
  806. if pain['vaginal'] + (vgape * 8) > 0:
  807. if pain['vaginal'] + (vgape * 8) > 70:
  808. pl '<b><font color="red">You have very sore vagina, you can hardly even walk, while trying to keep your feet apart.</font></b>'
  809. elseif pain['vaginal'] + (vgape * 8) > 40:
  810. pl '<b><font color="red">You have a sore vagina and you can hardly keep your feet together.</font></b>'
  811. else
  812. pl '<b><font color="red">You have a sore vagina and you can hardly keep your feet together.</font></b>'
  813. end
  814. end
  815. if pain['clitoris'] > 0:
  816. if pain['clitoris'] > 70:
  817. pl '<b><font color="red">Your clitoris is extremely painful.</font></b>'
  818. elseif pain['clitoris'] > 40:
  819. pl 'Your clitoris is very sore.'
  820. else
  821. pl 'Your clitoris hurts.'
  822. end
  823. end
  824. if pain['urethra'] > 0:
  825. if pain['urethra'] > 70:
  826. pl '<b><font color="red">Your urethra is extremely painful.</font></b>'
  827. elseif pain['urethra'] > 40:
  828. pl 'Your urethra is very sore.'
  829. else
  830. pl 'Your urethra hurts.'
  831. end
  832. end
  833. if pain['cervix'] > 0:
  834. if pain['cervix'] > 70:
  835. pl '<b><font color="red">Your cervix is extremely painful.</font></b>'
  836. elseif pain['cervix'] > 40:
  837. pl 'Your cervix is very sore.'
  838. else
  839. pl 'Your cervix hurts.'
  840. end
  841. end
  842. }
  843. $objclothes = {
  844. clr
  845. if $clothingworntype = 'nude' and towel = 1 and tanga = 0:
  846. view 'images/clothes/towel.jpg'
  847. pl'You are only wearing a towel'
  848. elseif $clothingworntype = 'nude' and tanga = 1:
  849. view 'images/clothes/nude.jpg'
  850. pl'You are only wearing panties'
  851. elseif $clothingworntype = 'nude' and tanga = 0:
  852. view 'images/clothes/nude1.jpg'
  853. pl'You are completely naked.'
  854. else
  855. view FUNC('$clothing_image', $clothingworntype, clothingwornnumber)
  856. if PClobimbo = 1:pl 'You are dressed like a bimbo.'
  857. pl 'You are wearing ' + FUNC('$short_description', $clothingworntype) + '<<clothingwornnumber>>''.'
  858. if $clothingworntype ! 'coat' and $clothingworntype ! 'swimwear':
  859. gs 'clothing_attributes', $clothingworntype, clothingwornnumber
  860. gs 'clothing_descriptions'
  861. pl '<<$description>>'
  862. else
  863. FUNC('$clothing_name', $clothingworntype, clothingwornnumber)
  864. end
  865. end
  866. }
  867. $objbody = {
  868. if musle >= salo:
  869. !!muscular type
  870. if bedra < 60:view 'images/body/fit.jpg'
  871. if bedra >= 60 and bedra < 70:view 'images/body/fit1.jpg'
  872. if bedra >= 70 and bedra < 80:view 'images/body/fit2.jpg'
  873. if bedra >= 80 and bedra < 90:view 'images/body/fit3.jpg'
  874. if bedra >= 90 and bedra < 100:view 'images/body/fit4.jpg'
  875. if bedra >= 100 and bedra < 110:view 'images/body/fit5.jpg'
  876. if bedra >= 110 and bedra < 120:view 'images/body/fit6.jpg'
  877. if bedra >= 120:view 'images/body/fit7.jpg'
  878. else
  879. !!bold type
  880. ! Updated to be consistent with current images
  881. if bedra < 60:
  882. view 'images/body/fat.jpg'
  883. elseif bedra < 70:
  884. view 'images/body/fat1.jpg'
  885. elseif bedra < 80:
  886. view 'images/body/fat2.jpg'
  887. elseif bedra < 90:
  888. view 'images/body/fat3.jpg'
  889. elseif bedra < 100:
  890. view 'images/body/fat4.jpg'
  891. elseif bedra < 110:
  892. view 'images/body/fat5.jpg'
  893. elseif bedra < 120:
  894. view 'images/body/fat6.jpg'
  895. else
  896. view 'images/body/fat7.jpg'
  897. end
  898. end
  899. }
  900. $objtattoos = {
  901. $tatlipdi = {
  902. if tatlip = 1:view 'images/body/tatlip1.jpg'
  903. if tatlip = 2:view 'images/body/tatlip2.jpg'
  904. if tatlip = 3:view 'images/body/tatlip3.jpg'
  905. }
  906. $tatpledi = {
  907. if tatplech = 1:view 'images/body/tatplech1.jpg'
  908. if tatplech = 2:view 'images/body/tatplech2.jpg'
  909. if tatplech = 3:view 'images/body/tatplech3.jpg'
  910. if tatplech = 4:view 'images/body/tatplech4.jpg'
  911. }
  912. $tatbackdi = {
  913. if tatback = 1:view 'images/body/tatb1.jpg'
  914. if tatback = 2:view 'images/body/tatb2.jpg'
  915. if tatback = 3:view 'images/body/tatb3.jpg'
  916. if tatback = 4:view 'images/body/tatb4.jpg'
  917. }
  918. $tatupbdi = {
  919. if tatupb = 1:view 'images/body/tatupb1.jpg'
  920. if tatupb = 2:view 'images/body/tatupb2.jpg'
  921. if tatupb = 3:view 'images/body/tatupb3.jpg'
  922. if tatupb = 4:view 'images/body/tatupb4.jpg'
  923. }
  924. $tatvagdi = {
  925. if tatvag = 1:view 'images/body/tatvag.jpg'
  926. if tatvag = 2:view 'images/body/tatvag2.jpg'
  927. if tatvag = 3:view 'images/body/tatvag3.jpg'
  928. if tatvag = 4:view 'images/body/tatvag4.jpg'
  929. if tatvag = 5:view 'images/body/tatvag5.jpg'
  930. if tatvag = 6:view 'images/body/tatvag6.jpg'
  931. }
  932. $tatlegdi = {
  933. if tatleg = 1:view 'images/body/tatleg1.jpg'
  934. if tatleg = 2:view 'images/body/tatleg2.jpg'
  935. if tatleg = 3:view 'images/body/tatleg3.jpg'
  936. if tatleg = 4:view 'images/body/tatleg4.jpg'
  937. }
  938. clr
  939. if tatlip > 0:pl '<a href="exec: dynamic $tatlipdi ">Tattoo on lip</a>'
  940. if tatplech > 0:pl'<a href="exec: dynamic $tatpledi">Tattoo on his shoulders</a>'
  941. if tatback > 0:pl'<a href="exec: dynamic $tatbackdi">Tattoo on the back</a>'
  942. if tatupb > 0:pl'<a href="exec: dynamic $tatupbdi">Tattoos on the lower back</a>'
  943. if tatvag > 0:pl'<a href="exec: dynamic $tatvagdi">Tattoos in the groin</a>'
  944. if tatleg > 0:pl'<a href="exec: dynamic $tatlegdi">Tattoos on the feet</a>'
  945. if tatvag = 0 and tatlip = 0 and tatplech = 0 and tatback = 0 and tatupb = 0 and tatleg = 0:
  946. pl'You pristine body. Not in terms of debauchery, but in terms of tattoo.'
  947. end
  948. }
  949. $objpirsing = {
  950. $dipirsA = {
  951. view 'images/picb/pirsA.jpg'
  952. }
  953. $dipirsB = {
  954. view 'images/body/pirsB.jpg'
  955. }
  956. $dipirsC = {
  957. view 'images/picb/pirsC.jpg'
  958. }
  959. $dipirsD = {
  960. view 'images/picb/pirsD.jpg'
  961. }
  962. $dipirsE = {
  963. view 'images/picb/pirsE.jpg'
  964. }
  965. $dipirsF = {
  966. view 'images/picb/pirsF.jpg'
  967. }
  968. $dipirsG = {
  969. view 'images/picb/pirsG.jpg'
  970. }
  971. $dipirsN = {
  972. view 'images/picb/pirsN.jpg'
  973. }
  974. $dipirsGL = {
  975. view 'images/picb/pirsCli.jpg'
  976. }
  977. $dipirspiz = {
  978. view 'images/picb/pirscligub.jpg'
  979. }
  980. clr
  981. 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:
  982. pl 'You have no piercings.'
  983. elseif pirsA ! 1 and pirsB ! 1 and pirsC ! 1 and pirsD ! 1 and pirsE ! 1 and pirsF ! 1 and pirsN ! 1 and pirsG ! 1 and pirsGL ! 1:
  984. pl 'You are not wearing any piercings'
  985. end
  986. if pirsA = 1:pl 'Your tongue pierced and inserted to a small bar that is constantly felt in the mouth. <a href="exec:dynamic $dipirsA">See</a>'
  987. if pirsB = 1:pl 'You pierced lower lip, and there vdet ring. <a href="exec:dynamic $dipirsB">See</a>'
  988. if pirsC = 1:pl 'On your ears hang earrings. <a href="exec:dynamic $dipirsC">See</a>'
  989. if pirsD = 1:pl 'You have a small ring in the nose. <a href="exec:dynamic $dipirsD">See</a>'
  990. if pirsE = 1:pl 'The rod is inserted into your eyebrow. <a href="exec:dynamic $dipirsE">See</a>'
  991. if pirsF = 1:pl 'You have pierced nipples and they inserted small metal rod. <a href="exec:dynamic $dipirsF">See</a>'
  992. if pirsN = 1:pl 'You pierced navel and there inserted rod. <a href="exec:dynamic $dipirsN">See</a>'
  993. if pirsG = 1 and pirsGL = 0:pl 'You pierced labia rings and inserted back. <a href="exec:dynamic $dipirsG">See</a>'
  994. if pirsG = 0 and pirsGL = 1:pl 'You pierced clitoris and there inserted rod.<a href="exec:dynamic $dipirsGL">See</a>'
  995. if pirsG = 1 and pirsGL = 1:pl 'You pierced clitoris and labia hanging rings.<a href="exec:dynamic $dipirspiz">See</a>'
  996. }
  997. $objobnovit = {
  998. gs'stat'
  999. }
  1000. $objbloknot = {
  1001. clr
  1002. if housr > 0:pl'You live in a two-room apartment, in a residential area. Payment for the apartment is removed automatically, in sum 3000 <b>₽</b> each 25e number. Plus electric bill.'
  1003. nl
  1004. if workPTU > 2:pl'You worked as a teacher at the Lycée. Working days Mon-Security, with 14.00 to 16.00. Salary 300r/day. Dress - office, Strict. The road from the apartment to the Lyceum takes 2 hours 10 minutes.'
  1005. nl
  1006. 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 with 11 to 12, working days, Tuesday, Wednesday, Thursday. At work, every day receive tips from customers, and wages automatically transferred 25the first day of.'
  1007. nl
  1008. if (work = 1 or cheatWork = 1) and workhosp > 0:pl'You work as a nurse in the clinic. You need to come to work with 8 to 9, during the week. Salary is automatically transferred 25the first day of.'
  1009. nl
  1010. if (work = 1 or cheatWork = 1) and worksalon > 0:pl'You work in a salon masseuse. You need to come to work with 9 to 10, working days, Monday, Wednesday, Friday. Salary is automatically transferred 25the first day of.'
  1011. nl
  1012. if (work = 1 or cheatWork = 1) and workSec > 0:pl'You worked as a secretary in the office. At work you need to come up 9, during the week. Salary is automatically transferred 25the first day of.'
  1013. nl
  1014. if (work = 1 or cheatWork = 1) and tanwork > 0:pl'You work as a governess Tanya. Salary is automatically transferred 25the first day of.'
  1015. nl
  1016. if (work = 1 or cheatWork = 1) and young_shop_work = 1:pl'You work in a store clerk Keys Pussy. To work to come to the 15, all weekdays except Saturday and Sunday. The salary shall be issued once a week on Fridays.'
  1017. nl
  1018. if (work = 1 or cheatWork = 1) and workFabrika = 1:pl'You work as a seamstress in a factory in Pavlovsky. Working days are except Saturday and Sunday. Salary is automatically transferred 25the first day of.'
  1019. nl
  1020. if workrin = 1:pl'You are working on the market in a tent Arthur clothing saleswoman. Work on Tuesdays, Thursday and Saturday, come into 8 hours. The salary depends on sales.'
  1021. nl
  1022. if stripwork >= 1:pl'You are working as a stripper, free schedule, every day from 15 to 2x night. Salary only tip.'
  1023. nl
  1024. if pfilmSTOP = 1:pl'<<$pfilmstory_new>>'
  1025. if film > 0:pl'You are working under the name of pornographic actress <<$pfname>>, Filmography:'
  1026. pl'<<$pfilmhistory>>'
  1027. nl
  1028. if bumtolik = 4:pl'You have been asked to help the homeless at the Mercy Clinic in the northern region.'
  1029. nl
  1030. if bumtolik = 5:pl'You volunteer at the Mercy Clinic working with the homeless. Working hours with 9 to 17, Saturday and Sunday.'
  1031. nl
  1032. if husband > 0:pl'You have been married for <<husbanday>> days. Your husband <<$husName>> <<$husBody>> <<$husFat>> <<$husHair>>. Member <<husDick>> Relationship <<husband>>.'
  1033. if kid > 0:
  1034. i = 0
  1035. if kid = 1:
  1036. pl 'You have a child, a <<$polreb[0]>> named <<$kidname[0]>>. Born <<daykid[0]>>-<<monthkid[0]>>-<<yearkid[0]>>. Aged <<kidage[0]>>.'
  1037. else
  1038. pl 'You have children:'
  1039. :LoopKidCounter
  1040. if i <= kid + 1:
  1041. pl ' a <<$polreb[i]>> named <<$kidname[i]>>. Born <<daykid[i]>>-<<monthkid[i]>>-<<yearkid[i]>>. Aged <<kidage[i]>>.'
  1042. i += 1
  1043. jump 'LoopKidCounter'
  1044. end
  1045. end
  1046. nl
  1047. end
  1048. nl
  1049. if $bfsex > 0:pl'<<$bfsex>>'
  1050. nl
  1051. if bfA > 1:pl'Your guy <<$boyA>> <<$boybodyA>> <<$boybodA>> <<$boyfaceA>>.<<$boyA>> <<$boyCloA>> Relationship <<bfA>>, met <<dayA>> time.'
  1052. if harakBoyA = 0 and bfA > 1:pl'He`s calm and self-possessed character.'
  1053. if harakBoyA = 1 and bfA > 1:pl'He has a cheerful and sociable character.'
  1054. if harakBoyA = 2 and bfA > 1:pl'He`s short-tempered and rigid.'
  1055. if bfB > 1:pl'Your guy <<$boyB>> <<$boybodyB>> <<$boybodB>> <<$boyfaceB>>.<<$boyB>> <<$boyCloB>> Relationship <<bfB>>, met <<dayB>> time.'
  1056. if bfC > 1:pl'Your guy <<$boyC>> <<$boybodyC>> <<$boybodC>> <<$boyfaceC>>.<<$boyC>> <<$boyCloC>> Relationship <<bfC>>, met <<dayC>> time.'
  1057. nl
  1058. gs'Menu.Create','zapisMenu'
  1059. gs'Menu.Add','zapisMenu','Recording from avtodatoy','','MenuLoc','zapisosn'
  1060. gs'Menu.Add','zapisMenu','Make a record in the 1th line','','MenuLoc','zapis'
  1061. gs'Menu.Add','zapisMenu','With a red line 1th line','','MenuLoc','ot'
  1062. gs'Menu.Add','zapisMenu','Make a record in the 2th line','','MenuLoc','zapis2'
  1063. gs'Menu.Add','zapisMenu','With a red line 2th line','','MenuLoc','ot2'
  1064. gs'Menu.Add','zapisMenu','Make a record in the 3th line','','MenuLoc','zapis3'
  1065. gs'Menu.Add','zapisMenu','With a red line 3th line','','MenuLoc','ot3'
  1066. gs'Menu.Add','zapisMenu','Make a record in the 4th line','','MenuLoc','zapis4'
  1067. gs'Menu.Add','zapisMenu','With a red line 4th line','','MenuLoc','ot4'
  1068. gs'Menu.Add','zapisMenu','Make a record in the 5th line','','MenuLoc','zapis5'
  1069. gs'Menu.Add','zapisMenu','With a red line 5th line','','MenuLoc','ot5'
  1070. gs'Menu.Add','zapisMenu','Make a record in the 6th line','','MenuLoc','zapis6'
  1071. gs'Menu.Add','zapisMenu','With a red line 6th line','','MenuLoc','ot6'
  1072. gs'Menu.Add','zapisMenu','Make a record in the 7th line','','MenuLoc','zapis7'
  1073. gs'Menu.Add','zapisMenu','With a red line 7th line','','MenuLoc','ot7'
  1074. gs'Menu.Add','zapisMenu','Make a record in the 8th line','','MenuLoc','zapis8'
  1075. gs'Menu.Add','zapisMenu','With a red line 8th line','','MenuLoc','ot8'
  1076. gs'Menu.Add','zapisMenu','Make a record in the 9th line','','MenuLoc','zapis9'
  1077. gs'Menu.Add','zapisMenu','With a red line 9th line','','MenuLoc','ot9'
  1078. gs'Menu.Add','zapisMenu','Make a record in the 10th line','','MenuLoc','zapis10'
  1079. gs'Menu.Add','zapisMenu','With a red line 10th line','','MenuLoc','ot10'
  1080. gs'Menu.Create','disMenu'
  1081. gs'Menu.Add','disMenu','Delete entry to 1th row','','MenuLoc','diszapis'
  1082. gs'Menu.Add','disMenu','Delete entry to 2th row','','MenuLoc','diszapis2'
  1083. gs'Menu.Add','disMenu','Delete entry to 3th row','','MenuLoc','diszapis3'
  1084. gs'Menu.Add','disMenu','Delete entry to 4th row','','MenuLoc','diszapis4'
  1085. gs'Menu.Add','disMenu','Delete entry to 5th row','','MenuLoc','diszapis5'
  1086. gs'Menu.Add','disMenu','Delete entry to 6th row','','MenuLoc','diszapis6'
  1087. gs'Menu.Add','disMenu','Delete entry to 7th row','','MenuLoc','diszapis7'
  1088. gs'Menu.Add','disMenu','Delete entry to 8th row','','MenuLoc','diszapis8'
  1089. gs'Menu.Add','disMenu','Delete entry to 9th row','','MenuLoc','diszapis9'
  1090. gs'Menu.Add','disMenu','Delete entry to 10th row','','MenuLoc','diszapis10'
  1091. pl'<a href="exec: gs''Menu.Call'',''zapisMenu''">Make a record</a> or <a href="exec: gs''Menu.Call'',''disMenu''">delete the record</a>'
  1092. pl'<<$zapisOsn>>'
  1093. pl'<<$zapis>>'
  1094. pl'<<$zapis2>>'
  1095. pl'<<$zapis3>>'
  1096. pl'<<$zapis4>>'
  1097. pl'<<$zapis5>>'
  1098. pl'<<$zapis6>>'
  1099. pl'<<$zapis7>>'
  1100. pl'<<$zapis8>>'
  1101. pl'<<$zapis9>>'
  1102. pl'<<$zapis10>>'
  1103. }
  1104. $objavariya = {
  1105. '<center><b>YOU JUST had to use emergency exit, this is only for use when you get a BLANK SCREEN.</b></center>'
  1106. *nl
  1107. '<center><b>DO NOT use this option without a good reason, doing so can cause instability and could damage your save game.</b></center>'
  1108. *nl
  1109. '<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>'
  1110. *nl
  1111. cla
  1112. if StoryLine = 1:act 'Go to Pavlovsk':gt 'pavResidential'
  1113. act 'Go to the street':gt 'street'
  1114. }
  1115. $objnewmenu = {
  1116. killobj
  1117. oldobjmenu = 0
  1118. addobj '<img src="images/pic/icon/Pers.png">'
  1119. addobj '<img src="images/pic/icon/look.png">'
  1120. addobj '<img src="images/pic/icon/Proch.png">'
  1121. addobj '<img src="images/pic/icon/menu.png">'
  1122. addobj '<img src="images/pic/icon/Phone.png">'
  1123. if bag > 0:addobj '<img src="images/pic/icon/Purse.png">'
  1124. }
  1125. $objoldmenu = {
  1126. killobj
  1127. oldobjmenu = 1
  1128. addobj '<font color = green>Character</font>'
  1129. addobj 'Skills'
  1130. addobj 'Statistics'
  1131. if magik > 0:addobj 'Magic'
  1132. addobj 'Face'
  1133. addobj 'Body'
  1134. addobj 'Clothing'
  1135. addobj 'Tattoos'
  1136. addobj 'Piercing'
  1137. if mobila > 0:addobj 'Phone'
  1138. addobj 'Notebook'
  1139. addobj 'Emergency exit'
  1140. addobj 'Refresh'
  1141. addobj 'Menu'
  1142. addobj 'The new menu'
  1143. addobj 'Cheat menu'
  1144. if disable_autosave = 1:
  1145. addobj 'Enable autosave'
  1146. else
  1147. addobj 'Disable autosave'
  1148. end
  1149. }
  1150. $objautosave = {
  1151. if oldobjmenu = 0:
  1152. if disable_autosave = 1:
  1153. disable_autosave = 0
  1154. else
  1155. disable_autosave = 1
  1156. end
  1157. elseif oldobjmenu = 1:
  1158. if disable_autosave = 1:
  1159. disable_autosave = 0
  1160. delobj 'Enable autosave'
  1161. addobj 'Disable autosave'
  1162. else
  1163. disable_autosave = 1
  1164. delobj 'Disable autosave'
  1165. addobj 'Enable autosave'
  1166. end
  1167. end
  1168. gs'stat'
  1169. }
  1170. --- obj_din ---------------------------------