obj_din 52 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325
  1. # obj_din
  2. if $ARGS[0] = 'show_tits':
  3. view 'images/body/t<<tits>>.jpg'
  4. end
  5. if $ARGS[0] = 'descrip':
  6. gs 'body'
  7. clr
  8. pl'<center><img src="images/pic/icon/description.png"><br></center>'
  9. pl 'Your name is <<$name>> <<$surname>>.'
  10. !!!0.2.6 extension
  11. if StoryLine > 0:
  12. pl 'Your friends and family sometimes call you <<$nickname>>.'
  13. else
  14. pl 'Your friends sometimes call you <<$nickname>>.'
  15. end
  16. !!!
  17. if succubusflag = 1 and sucpcinfo >= 4: pl 'You are a Succubus.'
  18. if age = vidage:
  19. pl 'You are <<age>> years old.'
  20. else
  21. pl 'You are <<age>> years old, but you appear to be <<vidage>>.'
  22. end
  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. nl
  34. pl 'You are <<rost>> cm tall and weigh <<ves>> kg.'
  35. pl '<<$body>>'
  36. pl 'Your body measurements are <a href="exec:gs ''obj_din'', ''body''"><<grudi>> - <<talia>> - <<bedra>></a> with <a href="exec:gs ''obj_din'', ''show_tits''"><<$titsize>> breasts</a>.'
  37. pl '<<$nipplesize>>'
  38. pl 'The difference between your hips and waist is <<bedra-talia>> cm.'
  39. pl '<<$vnesh>>'
  40. nl
  41. if avatar_hair = 1:
  42. pl'Your hair: <<$av_hair>>.'
  43. else
  44. pl'<<$hair>>'
  45. end
  46. if curly > 0:pl 'Your curls are good for another <<curly>> days.'
  47. nl
  48. pl '<<$lip>>'
  49. pl '<<$throat>>'
  50. pl '<<$skin>>'
  51. pl '<<$glaza>>'
  52. pl '<<$mop>>.'
  53. pl '<<$leghair>>'
  54. pl '<<$lobok>>'
  55. pl '<<$vagina>>'
  56. pl '<<$anus>>'
  57. nl
  58. 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>'
  59. 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>'
  60. if zub = 1:$zuba = ' tooth'
  61. if zub >= 2:$zuba = ' teeth'
  62. if zub > 0:pl 'You have lost <<zub>><<$zuba>>.'
  63. !!pl 'vnesh <<vnesh>>'
  64. !!pl 'curlykoef <<curlykoef>> a maximum of 1'
  65. !!pl 'tits <<tits>> A maximum of 6'
  66. !!pl 'lip <<lip>> a maximum of 4'
  67. !!pl 'tanKoef <<tanKoef>> a maximum of 1'
  68. !!pl 'skin <<skin>> a maximum of 4'
  69. !!pl 'mop <<mop>> a maximum of 4'
  70. !!pl 'resnic <<resnic>> a maximum of 2'
  71. !!pl 'glaraz <<glaraz>> a maximum of 3'
  72. !!pl 'bodykoef <<bodykoef>> a maximum of 8'
  73. !!pl 'legkoef <<legkoef>> a maximum of 3'
  74. !!pl 'lobkoef <<lobkoef>> a maximum of 3'
  75. !!pl 'odevnesh <<odevnesh>> a maximum of 15'
  76. !!pl 'sweat <<sweat>> the maximum 0'
  77. !!pl 'hapri <<hapri>> a maximum of 1'
  78. !!!!!!!! Maruda Hair Mod
  79. if hairlength > 41 and hscrunch >= 1:
  80. 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.'
  81. if hscrunchw = 1:pl 'Remove the <a href="exec:hscrunchw = 0 & gs ''obj_din'', ''descrip''">scrunchie</a> to get rid of the ponytail.'
  82. end
  83. if hairlength > 41 and hpingrip >= 1:
  84. 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.'
  85. if hpingripw = 1:pl 'Let your hair <a href="exec:hpingripw = 0 & gs ''obj_din'', ''descrip''">flow free</a>.'
  86. end
  87. if hairlength > 80 and hscrunch >= 2:
  88. 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>.'
  89. 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.'
  90. end
  91. if hscrunch < 1:hscrunchw = 0
  92. if hpingrip < 1:hpingripw = 0
  93. if hscrunch < 2:hpigtail = 0
  94. !!!!!!!! Maruda Hair Mod
  95. end
  96. if $ARGS[0] = 'skills':
  97. clr
  98. pl'<center><img src="images/pic/icon/stats.png"><br></center>'
  99. pl 'Attractiveness <<vnesh>>'
  100. pl 'Power <<stren>>'
  101. pl 'Speed ​​<<speed>>'
  102. pl 'Agility <<agil>>'
  103. pl 'Endurance <<vital>>'
  104. pl 'Intelligence <<intel>>'
  105. pl 'Spirit <<will>>'
  106. pl 'Reaction <<react>>'
  107. pl '<<$fat>>'
  108. nl
  109. pl '<b>Sexual characteristics</b>'
  110. nl
  111. pl 'Exhibitionism <<exhibition>>'
  112. pl 'Exhibitionist sex preference: <<exhibitionism[''pref'']>>'
  113. pl 'Exhibitionist sex experience: <<exhibitionism[''exp'']>>'
  114. if SUB > 0:pl 'Submissiveness <<SUB>>'
  115. if DOM > 0:pl 'Dominance <<DOM>>'
  116. pl 'Submissive experience: <<sub[''exp'']>>'
  117. pl 'Dominance experience: <<dom[''exp'']>>'
  118. pl 'Lesbian sex preference: <<lesbian[''pref'']>>'
  119. pl 'Lesbian sex experience: <<lesbian[''exp'']>>'
  120. pl 'Curiosity <<curiosity>>'
  121. pl 'Inhibition <<inhibition>>'
  122. pl 'Perversion <<perversion>>'
  123. nl
  124. pl '<b>Fetishes</b>'
  125. pl 'Feet preference: <<feet[''pref'']>>'
  126. pl 'Feet experience: <<feet[''exp'']>>'
  127. pl 'Deepthroat preference: <<deepthroat[''pref'']>>'
  128. pl 'Deepthroat experience: <<deepthroat[''exp'']>>'
  129. pl 'Group preference: <<group[''pref'']>>'
  130. pl 'Group experience: <<group[''exp'']>>'
  131. pl 'Gangbang preference: <<gangbang[''pref'']>>'
  132. pl 'Gangbang experience: <<gangbang[''exp'']>>'
  133. pl 'Humiliation preference: <<humiliation[''pref'']>>'
  134. pl 'Humiliation experience: <<humiliation[''exp'']>>'
  135. pl 'Prostitution preference: <<prostitution[''pref'']>>'
  136. pl 'Prostitution experience: <<prostitution[''exp'']>>'
  137. pl 'Bondage preference: <<bound[''pref'']>>'
  138. pl 'Bondage experience: <<bound[''exp'']>>'
  139. pl 'Masochism preference: <<maso[''pref'']>>'
  140. pl 'Masochism experience: <<maso[''exp'']>>'
  141. pl 'Bestiality preference: <<beast[''pref'']>>'
  142. pl 'Bestiality experience: <<beast[''exp'']>>'
  143. pl 'Rough sex preference: <<rough[''pref'']>>'
  144. pl 'Rough sex experience: <<rough[''exp'']>>'
  145. pl 'Incest preference: <<incest[''pref'']>>'
  146. pl 'Incest experience: <<incest[''exp'']>>'
  147. nl
  148. !!pl 'Muscles <<$musle>>'
  149. if magik > 0:pl 'Magic - <<magik>>'
  150. if Jab > 0:pl 'Jabs - <<Jab>>'
  151. if Punch > 0:pl 'Power Strikes - <<Punch>>'
  152. if Kik > 0:pl 'Kicks - <<Kik>>'
  153. if KikDef > 0:pl 'Defense - <<KikDef>>'
  154. if beg > 0:pl 'Running skill - <<beg>>'
  155. if volleyboll > 0:pl 'Volleyball skill - <<volleyboll>>'
  156. if oficiant > 0:pl 'Waitress skill - <<oficiant>>'
  157. if vokal > 0:pl 'Vocal skill - <<vokal>>'
  158. if dance > 0:pl 'Dancing skill - <<dance>>'
  159. if dancePRO > 0:pl 'Professional dancing skill - <<dancePRO>>'
  160. if stripdance > 0:pl 'Striptease skill - <<stripdance>>'
  161. if poledance > 0:pl 'Poledancing skill - <<poledance>>'
  162. if shoot > 0:pl 'Shooting Accuracy - <<shoot>>'
  163. if kid > 0:
  164. i = 1
  165. if kid = 1:
  166. pl 'You have a child, a <<$polreb[1]>> named <<$kidname[1]>>. Born <<daykid[1]>>-<<monthkid[1]>>-<<yearkid[1]>>. Aged <<kidage[1]>>'
  167. else
  168. p 'You have children'
  169. :LoopKidCounter
  170. if i <= kid:
  171. if i > 1: p ','
  172. p ' a <<$polreb[i]>> named <<$kidname[i]>>. Born <<daykid[i]>>-<<monthkid[i]>>-<<yearkid[i]>>. Aged <<kidage[i]>>'
  173. i += 1
  174. jump 'LoopKidCounter'
  175. end
  176. pl '.'
  177. end
  178. nl
  179. end
  180. if workPTU > 1:pl 'Reputation as a teacher <<teachlevel>>'
  181. if SchoolAtestat = 0 and StoryLine > 0:
  182. if Suspeh >= 90:pl 'You are an A+ student.'
  183. if Suspeh >= 80 and Suspeh < 90:pl 'You are a bright student, just not the top of your class.'
  184. if Suspeh >= 70 and Suspeh < 80:pl 'You are an above average student, but you have to work hard to keep up.'
  185. 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.'
  186. 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.'
  187. 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.'
  188. if Suspeh < 40:pl 'You are the class nitwit. You''re still not sure how you got this far in the first place.'
  189. if schoolprogul > 1:pl 'Absenteeism in school - <<schoolprogul>> days'
  190. end
  191. end
  192. if $ARGS[0] = 'husb_cheat_count':
  193. if husband > 0:
  194. if guy > before_h_guy :
  195. guy_cheat += guy - guy_cheat
  196. before_h_guy = guy
  197. end
  198. if girl > before_h_girl:
  199. girl_cheat += girl - before_h_girl
  200. before_h_girl = girl
  201. end
  202. end
  203. if before_h_girl > 0 and before_h_guy > 0:
  204. pl'During your marriage you have cheated with your husband with <<guy_cheat>> guys and <<girl_cheat>> girls.'
  205. elseif before_h_guy > 0:
  206. pl'During your marriage you have cheated with your husband with <<guy_cheat>> guys.'
  207. elseif before_h_girl > 0:
  208. pl'During your marriage you have cheated with your husband with <<girl_cheat>> girls.'
  209. end
  210. end
  211. if $ARGS[0] = 'stats':
  212. clr
  213. pl'<center><img src="images/pic/icon/statistics.png"><br></center>'
  214. if opPRE = 0:pl 'It has been <<daystart>> days since the game started.'
  215. if BuyHous = 2 and ArendHouseSL >0:pl 'You have rented an apartment in the residential area for <<ArendHouseSL>> days.'
  216. if BuyHous = 2 and ArendHouseSL >0:
  217. pl 'You have rented an apartment in the residential area for <<ArendHouseSL>> days.'
  218. if money >= 6000 or stolmoney >= 6000 or money + stolmoney >= 6000 or karta >= 6000:
  219. *P ' Renew with '
  220. if money >= 6000:
  221. *P ' <a href="exec:money -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''obj_din'', ''stats''">cash</a>'
  222. elseif stolmoney >= 6000:
  223. *P ' <a href="exec:stolmoney -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''obj_din'', ''stats''">cash from drawer</a>'
  224. elseif money + stolmoney >= 6000:
  225. !both < 6000, so money = money - 6000 + stolmoney
  226. *P ' <a href="exec:money -= 6000 - stolmoney & stolmoney = 0 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''obj_din'', ''stats''">cash from purse and drawer</a>'
  227. end
  228. !from purse, drawer or both
  229. if karta >= 6000: *P ' <a href="exec:karta -= 6000 & housr = 1 & BuyHous = 2 & ArendHouseSL += 30 & gs ''obj_din'', ''stats''">bank account</a>'
  230. end
  231. end
  232. if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0:
  233. pl 'Professional Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw'
  234. pl '<<KikWinPro>> (<<KikWinProKO>>KO) - <<KikLossPro>> (<<KikLossProKO>>KO) - <<KikDrawPro>>'
  235. nl
  236. end
  237. if Win > 0 or Loss > 0:pl 'Wins in fights <<Win>>, losses in fights <<Loss>>' & nl
  238. if KisameDead = 1:pl 'You killed Kisame.'& nl
  239. if razradKik > 0:pl '<<$razradKik>>'
  240. if KikWinAm > 0 or KikLossAm > 0 or KikDrawAm > 0:
  241. pl 'Amateur Kickboxing Record:<br>Wins: <<KikWinAm>> (<<KikWinAmKO>> by KO) - Losses: <<KikLossAm>> (<<KikLossAmKO>> by KO) - Draws: <<KikDrawAm>>'
  242. nl
  243. end
  244. if razradKik > 0:
  245. if razradKik = 1:$razradKik = 'You have earned green sash(rank 4) in kickboxing'
  246. if razradKik = 2:$razradKik = 'You have earned purple sash(rank 5) in kickboxing'
  247. if razradKik = 3:$razradKik = 'You have earned blue sash(rank 6) in kickboxing'
  248. if razradKik = 4:$razradKik = 'You have earned brown sash(rank 7) in kickboxing'
  249. if razradKik = 5:$razradKik = 'You have earned black sash, 1st dan in kickboxing'
  250. nl
  251. end
  252. if kolsorev > 0:pl 'You have run in <<kolsorev>> races'
  253. if swinbeg >= 1:pl 'You have <<swinbeg/3>> trophies from local racing competitions'
  254. if bronzebeg > 0:pl '<<bronzebeg>> - bronze medals for running'
  255. if silverbeg > 0:pl '<<silverbeg>> - silver medals for running'
  256. if goldbeg > 0:pl '<<goldbeg>> - gold medals for running'
  257. if razradbegEB > 0:pl '<<razradbegEB>> times bronze medalist at European Championship'
  258. if razradbegES > 0:pl '<<razradbegES>> runner up at European Championship'
  259. if razradbegEG > 0:pl '<<razradbegEG>> times European champion.'
  260. if razradbeg > 0:
  261. if razradbeg = 1:pl 'You have third sports category for event'
  262. if razradbeg = 2:pl 'You 2nd sports category for event'
  263. if razradbeg = 3:pl 'You 1st sports category for event'
  264. if razradbeg = 4:pl 'You have the title of Candidate Master of Sports for event'
  265. if razradbeg = 5:pl 'You have the title of Master of Sports in the run'
  266. if razradbeg >= 6:pl 'You have the title of International Master of Sports for event'
  267. nl
  268. end
  269. if chess_win > 0 or chess_loss > 0:pl'Chess Record: Win <<chess_win>>, Loss <<chess_loss>>'
  270. if chess_rank > 0:
  271. if chess_rank = 1:pl'You have mastered the basics of chess'
  272. if chess_rank = 2:pl'You are starting to get good at chess'
  273. if chess_rank = 3:pl'You are a good chess player'
  274. if chess_rank = 4:pl'You are an excellent chess player'
  275. if chess_rank = 5:pl'You are a candidate for chess master'
  276. if chess_rank = 6:pl'You are a chess master'
  277. if chess_rank = 7:pl'You are a chess Grandmaster'
  278. end
  279. if chess_world_rank > 0:
  280. if chess_world_rank = 1:pl'The title of FIDE Master Chess'
  281. if chess_world_rank = 2:pl'The title of International Chess Master'
  282. if chess_world_rank = 3:pl'The title of International Grandmaster Chess'
  283. end
  284. nl
  285. if nastjaQW > 0:pl 'Friendship with Nastya <<nastjaqw>>'
  286. if tanya > 0:pl 'Friendship with Tanya <<tanya>>'
  287. if kat > 0:pl 'Friendship with Kate <<kat>>'
  288. if vika > 0:pl 'Friendship with Vika <<vika>>'
  289. if Irina > 0:pl 'Friendship with Irene <<Irina>>'
  290. if Tamara > 0:pl 'Friendship with Tamara <<Tamara>>'
  291. if alla > 0:pl 'Friendship with Alla <<alla>>'
  292. if masha > 0:pl 'Friendship with Masha <<masha>>'
  293. if Givi > 0:pl 'Friendship with Givi K. <<Givi>>'
  294. if Ashot > 0:pl 'Friendship with Ashot <<Ashot>>'
  295. if Dmitry > 0:pl 'Friendship with Dima <<Dmitry>>'
  296. if afra > 0:pl 'Friendship with blacks <<afra>>'
  297. if trenerepa > 0:pl'Friendship with Mikhail Nikolaevich <<trenerepa>>'
  298. !!!WD: Formatting
  299. if (Irina + Givi + Ashot + Tamara + Dmitry + afra + gosh + vika + kat + nastjaqw + tanya) > 0:nl
  300. !!!
  301. if exhibi > 0:pl 'Experienced exhibitionism <<exhibi>> times'
  302. if maxdamage > 0:pl 'The impact force on the dynamometer <<maxdamage>> kgN' & nl
  303. if modelfoto > 0:pl 'You have been photographed naked <<modelfoto>> times'
  304. if stripdancesum > 0:pl '<<stripdancesum>> times dancing in the stripclub'
  305. if profiDanceTime > 0:pl 'You danced <<profiDanceTime>> times professionally.'
  306. if SchoolAtestat = 1:pl 'You have finished school.'
  307. if diplom = 1:pl 'You graduated.'
  308. if teachlevel > 0:pl 'Your credibility as a teacher is <<teachlevel>>'
  309. !WD:FORMATING
  310. if (exhibi + maxdamage + modelfoto + stripdancesum + profiDanceTime + SchoolAtestat + diplom + teachlevel) > 0:nl
  311. !Sex stats
  312. if throat > 0:pl '<<$throat>>'
  313. if vagina > 0:pl '<<$vagina>>'
  314. if vagina = 0 and (sex = 0 or stat['vaginal'] = 0):pl 'You are a virgin.'
  315. if anus > 0:pl '<<$anus>>'
  316. nl
  317. if mastr > 0 or stat['mast'] > 0:pl 'Times you have masturbated: <<stat[''mast'']>>'
  318. if stat['porn'] > 0:pl 'Times you have watched porn: <<stat[''porn'']>>'
  319. if stat['flash_breasts'] > 0:pl 'Times you have flashed your tits: <<stat[''flash_breasts'']>>'
  320. if stat['flash_ass'] > 0:pl 'Times you have flashed your ass: <<stat[''flash_ass'']>>'
  321. if stat['flash_pussy'] > 0:pl 'Times you have flashed your pussy: <<stat[''flash_pussy'']>>'
  322. if stat['voyeur'] > 0:pl 'Times you have watched other people fuck: <<stat[''voyeur'']>>'
  323. if spank > 0:pl 'You have had your ass spanked <<spank>> times'
  324. if guy > 0:pl 'You had sex with <<guy>> guys.'
  325. if girl > 0:pl 'You had sex with <<girl>> girls.'
  326. if divorced > 0:pl 'You were married <<divorced>> times.'
  327. if suprdolg > 0:pl 'You performed your conjugal duty for your husband <<suprdolg>> times'
  328. if rape > 0:pl 'You have been raped <<rape>> times'
  329. nl
  330. pl '<b>Number of times you have performed sexual activities:</b>'
  331. if hj > 0 or stat['hj'] > 0:
  332. pl 'Jerked men off: <<stat[''hj'']>>'
  333. if hja > 0:pl 'Jerked off your boyfriend: <<hja>>'
  334. end
  335. if stat['footjob'] > 0:'jerked men off with your feet: <<stat[''footjob'']>>'
  336. if bj > 0 or stat['bj'] > 0:
  337. pl 'Sucked cock: <<stat[''bj'']>>'
  338. if bja > 0:pl 'Sucked your boyfriends cock: <<bja>>'
  339. if gloryhole > 0: pl 'Sucked cock in a gloryhole: <<gloryhole>>'
  340. end
  341. if sex > 0 or stat['vaginal'] > 0:pl 'Vaginal sex: <<stat[''vaginal'']>>'
  342. if sexa > 0:pl 'Vaginal sex with your boyfriend: <<sexa>>'
  343. if lesbian > 0:pl 'Lesbian sex: <<lesbian>>'
  344. if sexfuta > 0:pl 'Sex with tgirls <<sexfuta>>'
  345. if anal > 0 or stat['anal']:
  346. pl 'Anal sex: <<stat[''anal'']>>'
  347. if anala > 0:pl 'Anal sex with your boyfriend: <<anala>>'
  348. end
  349. if gang > 0:pl 'Group sex: <<gang>>'
  350. if kuni > 0 or stat['cuni'] > 0:pl 'Received cunnilingus: <<stat[''cuni'']>>'
  351. if stat['vaginal_finger'] > 0:pl 'Fingered: <<stat[''vaginal_finger'']>>'
  352. if stat['vaginal_fist'] > 0:pl 'Fisted: <<stat[''vaginal_fist'']>>'
  353. if stat['vaginal_dildo'] > 0:pl 'Fucked a dildo: <<stat[''vaginal_dildo'']>>'
  354. if stat['vaginal_strap'] > 0:pl 'Fucked with a strap-on: <<stat[''vaginal_strap'']>>'
  355. if stat['vaginal_vibe'] > 0:pl 'Clitoral / Vaginal vibrator: <<stat[''vaginal_vibe'']>>'
  356. if stat['trib'] > 0:pl 'Tribalism: <<stat[''trib'']>>'
  357. if stat['anal_finger'] > 0:pl 'Anally fingered: <<stat[''anal_finger'']>>'
  358. if stat['anal_finger'] > 0:pl 'Anally fisted: <<stat[''anal_finger'']>>'
  359. if stat['rimming'] > 0:pl 'Ass rimmed: <<stat[''rimming'']>>'
  360. if stat['anal_dildo'] > 0:pl 'Anal sex with a dildo: <<stat[''anal_dildo'']>>'
  361. if stat['anal_strap'] > 0:pl 'Ass fucked with a strap-on: <<stat[''anal_strap'']>>'
  362. if stat['anal_vibe'] > 0:pl 'Anal vibrator: <<stat[''anal_vibe'']>>'
  363. nl
  364. if stat['cuni_give'] > 0:pl 'Performed cunnilingus: <<stat[''cuni_give'']>>'
  365. if stat['vaginal_finger_give'] > 0:pl 'Fingered a girl: <<stat[''vaginal_finger_give'']>>'
  366. if stat['vaginal_fist_give'] > 0:pl 'Fisted a girl: <<stat[''vaginal_fist_give'']>>'
  367. if stat['vaginal_dildo_give'] > 0:pl 'Dildoed a girl: <<stat[''vaginal_dildo_give'']>>'
  368. if stat['vaginal_strap_give'] > 0:pl 'Strap-on fucked a girl: <<stat[''vaginal_strap_give'']>>'
  369. if stat['vaginal_vibe_give'] > 0:pl 'Used vibrator on a girl: <<stat[''vaginal_vibe_give'']>>'
  370. if stat['rimming_give'] > 0:pl 'Rimmed someone: <<stat[''rimming_give'']>>'
  371. if stat['anal_finger_give'] > 0:pl 'Fingered someone else''s ass: <<stat[''anal_finger_give'']>>'
  372. if stat['anal_fist_give'] > 0:pl 'Fisted someone else''s ass: <<stat[''anal_fist_give'']>>'
  373. if stat['anal_dildo_give'] > 0:pl 'Dildoed someone else''s ass: <<stat[''anal_dildo_give'']>>'
  374. if stat['anal_vibe_give'] > 0:pl 'Used a vibrator on someone else''s ass: <<stat[''anal_vibe_give'']>>'
  375. 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'']>>'
  376. nl
  377. if slutty > 0:
  378. if bordelslutty = 0:pl 'Sold your body <<slutty>> times.'
  379. if bordelslutty > 0:pl 'Sold your body <<slutty>> times, including <<bordelslutty>> times in a brothel.'
  380. end
  381. if orgasm > 0:pl 'Experienced orgasm <<orgasm>> times.'
  382. if analorgasm > 0 :pl 'You''ve had <<analorgasm>> anal orgasms.'
  383. if swallow > 0:pl 'Sperm swallowed <<swallow>> times.'
  384. if facial > 0:pl 'You have taken <<facial>> facials.'
  385. if frot > 0 or hump > 0:pl 'Your clothes have been come on <<frot + hump>> times.'
  386. if VAF > 0:pl 'Orgasmed while sucking cock <<VAF>> times.'
  387. if zoo > 0:pl 'Had sex with animals <<zoo>> times.'
  388. if pee > 0:pl 'You pissing <<pee>> times.'
  389. if swallowpee > 0:pl 'You swallowed urine <<swallowpee>> times.'
  390. !!!WD:FORMATING
  391. if (slutty + pfilmSTOP + film + orgasm + analorgasm + swallow + facial + frot + VAF + zoo + pee) > 0:nl
  392. !!!
  393. gs 'obj_din', 'husb_cheat_count'
  394. if film > 0:
  395. gs 'pornhist'
  396. $retired=''
  397. if pfilmSTOP = 1:$retired='retired after '
  398. pl '<hr>'
  399. pl '<b><i><a href="exec:gs ''pornhist'', ''pdetail''">Filmography</a> of <font color="magenta"><<$pfname>></font></i></b>'
  400. pl ' (<<$retired>><b><<film>></b> porn movie):'
  401. p '<<$pfilmhistory>>'
  402. end
  403. end
  404. if $ARGS[0] = 'reputation':
  405. clr
  406. pl'<center><img src="images/pic/icon/reputation.png"><br></center>'
  407. if StoryLine = 1:
  408. if GorSlut = 1:
  409. pl 'In Pavlovsky you are known as a flirt.'
  410. elseif GorSlut = 2:
  411. pl 'In Pavlovsky you are known to have sucked a few cocks.'
  412. elseif GorSlut = 3:
  413. pl 'In Pavlovsky you are known as a great cocksucker.'
  414. elseif GorSlut = 4:
  415. pl 'In Pavlovsky you are known to have fucked several boys.'
  416. elseif GorSlut = 5:
  417. pl 'In Pavlovsky you are known as the slut that would do anything.'
  418. elseif GorSlut = 6:
  419. pl 'In Pavlovsky you are known as a prostitute who will take money for the most extreme sex acts.'
  420. else
  421. pl'In Pavlovo you are considered a decent girl with a good reputation.'
  422. end
  423. nl
  424. end
  425. if rinslut > 1 and kavslut > 0:pl'In the residential area of ​​you are known as a whore that sleeps with Caucasians.'
  426. if afra > 80: pl'In the student hostel, you are known for bedding blacks.'
  427. if opusk > 0 or gnewQW >= 5: pl'In the residential area it is well known by all the guys that you are a whore.'
  428. if StoryLine = 1:
  429. nl
  430. if motherKnowSpravka > 0 and motherKnowWhore > 0:
  431. pl'Your mother knows, that you are sexually active and considers you a slut.'
  432. elseif motherKnowWhore > 0:
  433. pl'Your mother thinks you are a whore.'
  434. elseif motherKnowSpravka > 0:
  435. pl'Your mother knows that you are sexually active.'
  436. else
  437. pl'Your mother thinks that you are a virgin.'
  438. end
  439. if evgenQW >= 4 and brotherSex >= 1:
  440. pl'Your brother thinks you are a total whore.'
  441. elseif brotherSex >= 1:
  442. pl'Your brother thinks you are a slut.'
  443. elseif evgenQW >= 3:
  444. pl'Your brother thinks you are a slut.'
  445. elseif brotherknowslut = 1:
  446. pl'Your brother saw semen on your body and thinks that you fuck around.'
  447. elseif brotherknowslut >= 2:
  448. pl'Your brother saw you in the park screwing Gopnik.'
  449. else
  450. pl'Your brother has a good opinion of you.'
  451. end
  452. if sisterknowslut > 1 and sisboypartyQW = 2:
  453. pl'Your sister thinks you are a slut'
  454. elseif sisterknowslut > 0:
  455. pl'Your sister knows you sleep around.'
  456. else
  457. pl'Your sister has a good opinion of you.'
  458. end
  459. end
  460. end
  461. if $ARGS[0] = 'magic':
  462. clr
  463. if magik = 0:
  464. pl'You are unable to use magic.'
  465. elseif magik > 0:
  466. pl'You have <<manna>> units of manna available to you.'
  467. !' Forces Rikudo available to you <<rikudo>> units'
  468. nl
  469. pl'<b>Base Spells:</b>'
  470. nl
  471. 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)'
  472. nl
  473. 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)'
  474. nl
  475. 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)'
  476. nl
  477. if spellweap > 0 and weapon > 0:pl'Infuse weapon with energy'
  478. nl
  479. if spellwind > 0:pl'Blow away the fog, dissipates any mist over the battlefield.'
  480. nl
  481. 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)'
  482. nl
  483. 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)'
  484. nl
  485. 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)'
  486. nl
  487. if spellhel > 0:pl'Battle Heal, restores or adds 400 Health units in exchange for 400 units of manna.'
  488. nl
  489. if stihia = 1:pl'<b>Elemental Spells Fire:</b>'
  490. nl
  491. if spellfire1 = 1:pl'Flame. Deals little damage. (Cost 10 manna)'
  492. nl
  493. if spellfire2 = 1:pl'The release of fire. It causes great damage. (Cost 100 manna)'
  494. nl
  495. if spellfire3 = 1:pl'Fire Barrier, It creates a shield with strength of 750 units. (Cost 150 manna)'
  496. nl
  497. if spellfire4 = 1:pl'Firestorm. It causes great damage, difficult to dodge. (Cost 250 manna)'
  498. nl
  499. if spellfire5 = 1:pl'Flame Shield, It creates a shield with strength of 2500 units. (Cost 500 manna)'
  500. nl
  501. if stihia = 2:pl'<b>Elements Lightning Spells:</b>'
  502. nl
  503. if spellele1 = 1:pl'Zap. Deals very little damage. (Cost 10 manna)'
  504. nl
  505. if spellele2 = 1:pl'Lightning. Inflicts above average damage. (Cost 100 manna)'
  506. nl
  507. if spellele3 = 1:pl'Electric barrier, It creates a shield with strength of 1500 units. (Cost 150 manna)'
  508. nl
  509. if spellele4 = 1:pl'Dance of thousand birds. Deals very high damage. (Cost 250 manna)'
  510. nl
  511. if spellele5 = 1:pl'Dancing Sphere, It creates a shield with strength of 5000 units. (Cost 500 manna)'
  512. nl
  513. if stihia = 3:pl'<b>Spells Earth Elements:</b>'
  514. nl
  515. if spellert1 = 1:pl'Quicksand, immobilizes the opponent in the quicksand trap and causes little damage. (Cost 10 manna)'
  516. nl
  517. 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)'
  518. nl
  519. 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)'
  520. nl
  521. 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)'
  522. nl
  523. 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.'
  524. nl
  525. if stihia = 4:pl'<b>Wind Elemental Spells:</b>'
  526. nl
  527. if spellwind1 = 1:pl'Wind gust, It causes very little damage but destroys clones and fog, very difficult to dodge. (Cost 10 manna)'
  528. nl
  529. if spellwind2 = 1:pl'The horrific pressure, causing moderate damage and destroying clones and fog, very difficult to dodge. (Cost 100 manna)'
  530. nl
  531. if spellwind3 = 1:pl'Vacuum Sphere, It creates a shield with strength of 1500 units. (Cost 150 manna)'
  532. nl
  533. if spellwind4 = 1:pl'Vacuum shells, high damage and kills clones and fog, very difficult to dodge. (Cost 250 manna)'
  534. nl
  535. if spellwind5 = 1:pl'Devouring vacuum, sucks enemy shield destroying whatever strength it had left. (Cost 500 manna)'
  536. nl
  537. if stihia = 5:pl'<b>Water Elemental Spell:</b>'
  538. nl
  539. if spellwater1 = 1:pl'Drain mana, It causes very little damage and absorbs a lot of mana. Cost 10 manna.'
  540. nl
  541. if spellwater2 = 1:pl'Flood, causes moderate damage and absorbs large amount of mana. Cost 100 manna.'
  542. nl
  543. 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)'
  544. nl
  545. if spellwater4 = 1:pl'Water shark rocket, causes great damage and absorbs a lot of mana. Cost 250 manna.'
  546. nl
  547. 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.'
  548. nl
  549. end
  550. if succubusflag = 1 and sucpcinfo >= 4 and sucskill >= 1:
  551. pl'<center><b>Succubus Stats</b></center>'
  552. nl
  553. pl'Succubus Level = <<succublvl>>'
  554. pl'Succubus XP = <<succubxp>>'
  555. pl'"Food" Energy Reserve = <<0 - succhungry>> day(s)'
  556. pl'Stored Sexual Energy = <<sucexcess>>'
  557. pl'Sexual Energy Storage Capacity = <<sucstorecap>>'
  558. nl
  559. if sucskill >= 2: pl'You have learned to increase your storage capacity and to store energy before using it.'
  560. if sucskill >= 3: pl'You have learned to be more efficient in your energy handling.'
  561. if sucskill >= 4: pl'You have learned the accommodation ability.'
  562. nl
  563. !! More to come
  564. end
  565. end
  566. if $ARGS[0] = 'pain':
  567. clr
  568. pl'<center>Pain</center>'
  569. pl
  570. pl
  571. if pain['head'] > 0:
  572. if pain['head'] > 70:
  573. pl '<b><font color="red">Your head is in extreme pain.</font></b>'
  574. elseif pain['head'] > 40:
  575. pl 'Your head is very sore.'
  576. else
  577. pl 'Your head hurts.'
  578. end
  579. end
  580. if pain['hair'] > 0:
  581. if pain['hair'] > 70:
  582. pl '<b><font color="red">Your scalp is in extreme pain.</font></b>'
  583. elseif pain['hair'] > 40:
  584. pl 'Your scalp is very sore.'
  585. else
  586. pl 'Your scalp hurts.'
  587. end
  588. end
  589. if pain['ears'] > 0:
  590. if pain['ears'] > 70:
  591. pl '<b><font color="red">Your ears are in extreme pain.</font></b>'
  592. elseif pain['ears'] > 40:
  593. pl 'Your ears are very sore.'
  594. else
  595. pl 'Your ears hurt.'
  596. end
  597. end
  598. if pain['eyebrows'] > 0:
  599. if pain['eyebrows'] > 70:
  600. pl '<b><font color="red">Your eyebrows are in extreme pain.</font></b>'
  601. elseif pain['eyebrows'] > 40:
  602. pl 'Your eyebrows are very sore.'
  603. else
  604. pl 'Your eyebrows hurt.'
  605. end
  606. end
  607. if pain['eyes'] > 0:
  608. if pain['eyes'] > 70:
  609. pl '<b><font color="red">Your eyes are in extreme pain.</font></b>'
  610. elseif pain['eyes'] > 40:
  611. pl 'Your eyes are very sore.'
  612. else
  613. pl 'Your eyes hurt.'
  614. end
  615. end
  616. if pain['cheeks'] > 0:
  617. if pain['cheeks'] > 70:
  618. pl '<b><font color="red">Your cheeks are in extreme pain.</font></b>'
  619. elseif pain['cheeks'] > 40:
  620. pl 'Your cheeks are very sore.'
  621. else
  622. pl 'Your cheeks hurt.'
  623. end
  624. end
  625. if pain['nose'] > 0:
  626. if pain['nose'] > 70:
  627. pl '<b><font color="red">Your nose is in extreme pain.</font></b>'
  628. elseif pain['nose'] > 40:
  629. pl 'Your nose is very sore.'
  630. else
  631. pl 'Your nose hurts.'
  632. end
  633. end
  634. if pain['mouth'] > 0:
  635. if pain['mouth'] > 70:
  636. pl '<b><font color="red">Your mouth is in extreme pain.</font></b>'
  637. elseif pain['mouth'] > 40:
  638. pl 'Your mouth is very sore.'
  639. else
  640. pl 'Your mouth hurts.'
  641. end
  642. end
  643. if pain['lips'] > 0:
  644. if pain['lips'] > 70:
  645. pl '<b><font color="red">Your lips are in extreme pain.</font></b>'
  646. elseif pain['lips'] > 40:
  647. pl 'Your lips are very sore.'
  648. else
  649. pl 'Your lips hurt.'
  650. end
  651. end
  652. if pain['tongue'] > 0:
  653. if pain['tongue'] > 70:
  654. pl '<b><font color="red">Your tongue is in extreme pain.</font></b>'
  655. elseif pain['tongue'] > 40:
  656. pl 'Your tongue is very sore.'
  657. else
  658. pl 'Your tongue hurts.'
  659. end
  660. end
  661. if pain['throat'] > 0:
  662. if pain['throat'] > 70:
  663. pl '<b><font color="red">Your throat is in extreme pain.</font></b>'
  664. elseif pain['throat'] > 40:
  665. pl 'Your throat is very sore.'
  666. else
  667. pl 'Your throat hurts.'
  668. end
  669. end
  670. if pain['neck'] > 0:
  671. if pain['neck'] > 70:
  672. pl '<b><font color="red">Your neck is in extreme pain.</font></b>'
  673. elseif pain['neck'] > 40:
  674. pl 'Your neck is very sore.'
  675. else
  676. pl 'Your neck hurts.'
  677. end
  678. end
  679. if pain['back'] > 0:
  680. if pain['back'] > 70:
  681. pl '<b><font color="red">Your back is in extreme pain.</font></b>'
  682. elseif pain['back'] > 40:
  683. pl 'Your back is very sore.'
  684. else
  685. pl 'Your back hurts.'
  686. end
  687. end
  688. if pain['asscheeks'] + (spanked * 24) > 0:
  689. if pain['asscheeks'] + (spanked * 24) > 70:
  690. pl '<b><font color="red">Your <a href="exec:view''images/picb/spankedass2.jpg''">asscheeks</a> are in extreme pain.</font></b>'
  691. elseif pain['asscheeks'] + (spanked * 24) > 40:
  692. pl 'Your <a href="exec:view''images/picb/spankedass1.jpg''">asscheeks</a> are very sore.'
  693. else
  694. pl 'Your <a href="exec:view''images/picb/spankedass.jpg''">asscheeks</a> hurt.'
  695. end
  696. end
  697. if pain['asshole'] + (agape * 10) > 0:
  698. if pain['asshole'] + (agape * 10) > 70:
  699. pl '<b><font color="red">You an extremely sore anus and it emits blood.</font></b>'
  700. elseif pain['asshole'] + (agape * 10) > 40:
  701. pl '<b><font color="red">You have a very sore anus.</font></b>'
  702. else
  703. pl '<b><font color="red">You have a sore and itchy anus.</font></b>'
  704. end
  705. end
  706. if pain['hips'] > 0:
  707. if pain['hips'] > 70:
  708. pl '<b><font color="red">Your hips are in extreme pain.</font></b>'
  709. elseif pain['hips'] > 40:
  710. pl 'Your hips are very sore.'
  711. else
  712. pl 'Your hips hurt.'
  713. end
  714. end
  715. if pain['thighs'] > 0:
  716. if pain['thighs'] > 70:
  717. pl '<b><font color="red">Your thighs are in extreme pain.</font></b>'
  718. elseif pain['thighs'] > 40:
  719. pl 'Your thighs are very sore.'
  720. else
  721. pl 'Your thighs hurt.'
  722. end
  723. end
  724. if pain['legL'] > 0:
  725. if pain['legL'] > 70:
  726. pl '<b><font color="red">Your left leg is in extreme pain.</font></b>'
  727. elseif pain['legL'] > 40:
  728. pl 'Your left leg is very sore.'
  729. else
  730. pl 'Your left leg hurts.'
  731. end
  732. end
  733. if pain['legR'] > 0:
  734. if pain['legR'] > 70:
  735. pl '<b><font color="red">Your right leg is in extreme pain.</font></b>'
  736. elseif pain['legR'] > 40:
  737. pl 'Your right leg is very sore.'
  738. else
  739. pl 'Your right leg hurts.'
  740. end
  741. end
  742. if pain['feet'] > 0:
  743. if pain['feet'] > 70:
  744. pl '<b><font color="red">Your feet are in extreme pain.</font></b>'
  745. elseif pain['feet'] > 40:
  746. pl 'Your feet are very sore.'
  747. else
  748. pl 'Your feet hurt.'
  749. end
  750. end
  751. if pain['toes'] > 0:
  752. if pain['toes'] > 70:
  753. pl '<b><font color="red">Your toes are in extreme pain.</font></b>'
  754. elseif pain['toes'] > 40:
  755. pl 'Your toes are very sore.'
  756. else
  757. pl 'Your toes foot hurt.'
  758. end
  759. end
  760. if pain['shoulders'] > 0:
  761. if pain['shoulders'] > 70:
  762. pl '<b><font color="red">Your shoulders are in extreme pain.</font></b>'
  763. elseif pain['shoulders'] > 40:
  764. pl 'Your shoulders are very sore.'
  765. else
  766. pl 'Your shoulders hurt.'
  767. end
  768. end
  769. if pain['armL'] > 0:
  770. if pain['armL'] > 70:
  771. pl '<b><font color="red">Your left arm is in extreme pain.</font></b>'
  772. elseif pain['armL'] > 40:
  773. pl 'Your left arm is very sore.'
  774. else
  775. pl 'Your left arm hurts.'
  776. end
  777. end
  778. if pain['armR'] > 0:
  779. if pain['armR'] > 70:
  780. pl '<b><font color="red">Your right arm is in extreme pain.</font></b>'
  781. elseif pain['armR'] > 40:
  782. pl 'Your right arm is very sore.'
  783. else
  784. pl 'Your right arm hurts.'
  785. end
  786. end
  787. if pain['hands'] > 0:
  788. if pain['hands'] > 70:
  789. pl '<b><font color="red">Your hands are in extreme pain.</font></b>'
  790. elseif pain['hands'] > 40:
  791. pl 'Your hands are very sore.'
  792. else
  793. pl 'Your hands hurt.'
  794. end
  795. end
  796. if pain['fingers'] > 0:
  797. if pain['fingers'] > 70:
  798. pl '<b><font color="red">Your fingers are in extreme pain.</font></b>'
  799. elseif pain['fingers'] > 40:
  800. pl 'Your fingers are very sore.'
  801. else
  802. pl 'Your fingers hurt.'
  803. end
  804. end
  805. if pain['chest'] > 0:
  806. if pain['chest'] > 70:
  807. pl '<b><font color="red">Your chest is in extreme pain.</font></b>'
  808. elseif pain['chest'] > 40:
  809. pl 'Your chest is very sore.'
  810. else
  811. pl 'Your chest hurts.'
  812. end
  813. end
  814. if pain['breasts'] > 0:
  815. if pain['breasts'] > 70:
  816. pl '<b><font color="red">Your breasts are in extreme pain.</font></b>'
  817. elseif pain['breasts'] > 40:
  818. pl 'Your breasts are very sore.'
  819. else
  820. pl 'Your breasts hurt.'
  821. end
  822. end
  823. if pain['nipples'] > 0:
  824. if pain['nipples'] > 70:
  825. pl '<b><font color="red">Your nipples are in extreme pain.</font></b>'
  826. elseif pain['nipples'] > 40:
  827. pl 'Your nipples are very sore.'
  828. else
  829. pl 'Your nipples hurt.'
  830. end
  831. end
  832. if pain['ribs'] > 0:
  833. if pain['ribs'] > 70:
  834. pl '<b><font color="red">Your ribs are in extreme pain.</font></b>'
  835. elseif pain['ribs'] > 40:
  836. pl 'Your ribs are very sore.'
  837. else
  838. pl 'Your ribs hurt.'
  839. end
  840. end
  841. if pain['tummy'] > 0:
  842. if pain['tummy'] > 70:
  843. pl '<b><font color="red">Your tummy is in extreme pain.</font></b>'
  844. elseif pain['tummy'] > 40:
  845. pl 'Your tummy is very sore.'
  846. else
  847. pl 'Your tummy hurts.'
  848. end
  849. end
  850. if pain['pubic'] > 0:
  851. if pain['pubic'] > 70:
  852. pl '<b><font color="red">Your pubis is in extreme pain.</font></b>'
  853. elseif pain['pubic'] > 40:
  854. pl 'Your pubis is very sore.'
  855. else
  856. pl 'Your pubis hurts.'
  857. end
  858. end
  859. if pain['vaginal'] + (vgape * 8) > 0:
  860. if pain['vaginal'] + (vgape * 8) > 70:
  861. pl '<b><font color="red">You have very sore vagina, you can hardly even walk, while trying to keep your feet apart.</font></b>'
  862. elseif pain['vaginal'] + (vgape * 8) > 40:
  863. pl '<b><font color="red">You have a very sore vagina and you can hardly keep your feet together.</font></b>'
  864. else
  865. pl '<b><font color="red">You have a sore vagina.</font></b>'
  866. end
  867. end
  868. if pain['clitoris'] > 0:
  869. if pain['clitoris'] > 70:
  870. pl '<b><font color="red">Your clitoris is in extreme pain.</font></b>'
  871. elseif pain['clitoris'] > 40:
  872. pl 'Your clitoris is very sore.'
  873. else
  874. pl 'Your clitoris hurts.'
  875. end
  876. end
  877. if pain['urethra'] > 0:
  878. if pain['urethra'] > 70:
  879. pl '<b><font color="red">Your urethra is in extreme pain.</font></b>'
  880. elseif pain['urethra'] > 40:
  881. pl 'Your urethra is very sore.'
  882. else
  883. pl 'Your urethra hurts.'
  884. end
  885. end
  886. if pain['cervix'] > 0:
  887. if pain['cervix'] > 70:
  888. pl '<b><font color="red">Your cervix is in extreme pain.</font></b>'
  889. elseif pain['cervix'] > 40:
  890. pl 'Your cervix is very sore.'
  891. else
  892. pl 'Your cervix hurts.'
  893. end
  894. end
  895. end
  896. if $ARGS[0] = 'clothes':
  897. clr
  898. if defaultcoat = 0:
  899. pl 'You have no default coat set.'
  900. else
  901. pl 'Your current default coat is Coat<<defaultcoat>>.'
  902. !make sure to sync these with [outdoors]~364
  903. if defaultcoat < 4:
  904. pl 'It''ll keep you fairly warm down to -10C.'
  905. elseif defaultcoat = 4 or defaultcoat = 5 or defaultcoat = 8 or defaultcoat = 10 or defaultcoat = 12:
  906. pl 'It will handle temperatures down to -20C.'
  907. elseif defaultcoat = 6 or defaultcoat = 7 or defaultcoat = 9 or defaultcoat = 11:
  908. pl 'You will be nice and warm even in the depths of winter.'
  909. else
  910. pl 'Your health will suffer if you don''t wear a coat in the winter.'
  911. end
  912. pl ''
  913. end
  914. if $clothingworntype = 'nude' and towel = 1 and tanga = 0:
  915. view 'images/clothes/towel.jpg'
  916. pl'You are only wearing a towel'
  917. elseif $clothingworntype = 'nude' and tanga = 1:
  918. view 'images/clothes/nude.jpg'
  919. pl'You are only wearing panties'
  920. elseif $clothingworntype = 'nude' and tanga = 0:
  921. view 'images/clothes/nude1.jpg'
  922. pl'You are completely naked.'
  923. else
  924. view FUNC('$clothing_image', $clothingworntype, clothingwornnumber)
  925. if PClobimbo = 1:pl 'You are dressed like a bimbo.'
  926. pl 'You are wearing ' + FUNC('$short_description', $clothingworntype) + '<<clothingwornnumber>>''.'
  927. if $clothingworntype ! 'coat' and $clothingworntype ! 'swimwear':
  928. gs 'clothing_attributes', $clothingworntype, clothingwornnumber
  929. gs 'clothing_descriptions'
  930. pl '<<$description>>'
  931. else
  932. FUNC('$clothing_name', $clothingworntype, clothingwornnumber)
  933. end
  934. end
  935. end
  936. if $ARGS[0] = 'body':
  937. if musle >= salo:
  938. !!muscular type
  939. if bedra < 60:view 'images/body/fit.jpg'
  940. if bedra >= 60 and bedra < 70:view 'images/body/fit1.jpg'
  941. if bedra >= 70 and bedra < 80:view 'images/body/fit2.jpg'
  942. if bedra >= 80 and bedra < 90:view 'images/body/fit3.jpg'
  943. if bedra >= 90 and bedra < 100:view 'images/body/fit4.jpg'
  944. if bedra >= 100 and bedra < 110:view 'images/body/fit5.jpg'
  945. if bedra >= 110 and bedra < 120:view 'images/body/fit6.jpg'
  946. if bedra >= 120:view 'images/body/fit7.jpg'
  947. else
  948. !!bold type
  949. ! Updated to be consistent with current images
  950. if bedra < 60:
  951. view 'images/body/fat.jpg'
  952. elseif bedra < 70:
  953. view 'images/body/fat1.jpg'
  954. elseif bedra < 80:
  955. view 'images/body/fat2.jpg'
  956. elseif bedra < 90:
  957. view 'images/body/fat3.jpg'
  958. elseif bedra < 100:
  959. view 'images/body/fat4.jpg'
  960. elseif bedra < 110:
  961. view 'images/body/fat5.jpg'
  962. elseif bedra < 120:
  963. view 'images/body/fat6.jpg'
  964. else
  965. view 'images/body/fat7.jpg'
  966. end
  967. end
  968. end
  969. if $ARGS[0] = 'tattooarm':
  970. view 'images/body/arms/tatarm<<tatarm>>.jpg'
  971. end
  972. if $ARGS[0] = 'tattooass':
  973. view 'images/body/ass/tatass<<tatass>>.jpg'
  974. end
  975. if $ARGS[0] = 'tattooback':
  976. view 'images/body/back/tatback<<tatback>>.jpg'
  977. end
  978. if $ARGS[0] = 'tattoobelly':
  979. view 'images/body/belly/tatblly<<tatblly>>.jpg'
  980. end
  981. if $ARGS[0] = 'tattoobreast':
  982. view 'images/body/breasts/tatbrst<<tatbrst>>.jpg'
  983. end
  984. if $ARGS[0] = 'tattoochest':
  985. view 'images/body/chest/tatchst<<tatchst>>.jpg'
  986. end
  987. if $ARGS[0] = 'tattooface':
  988. view 'images/body/face/tatfce<<tatfce>>.jpg'
  989. end
  990. if $ARGS[0] = 'tattoofoot':
  991. view 'images/body/foot/tatankle<<tatankle>>.jpg'
  992. end
  993. if $ARGS[0] = 'tattooleg':
  994. view 'images/body/legs/tatleg<<tatleg>>.jpg'
  995. end
  996. if $ARGS[0] = 'tattoolip':
  997. view 'images/body/lip/tatlip<<tatlip>>.jpg'
  998. end
  999. if $ARGS[0] = 'tattooneck':
  1000. view 'images/body/neck/tatnck<<tatneck>>.jpg'
  1001. end
  1002. if $ARGS[0] = 'tattoovag':
  1003. view 'images/body/pubic/tatvag<<tatvag>>.jpg'
  1004. end
  1005. if $ARGS[0] = 'tattooshoulder':
  1006. view 'images/body/shoulder/tatshldr<<tatlech>>.jpg'
  1007. end
  1008. if $ARGS[0] = 'tattooside':
  1009. view 'images/body/side/tatside<<tatside>>.jpg'
  1010. end
  1011. if $ARGS[0] = 'tattootramp':
  1012. view 'images/body/trampStamp/tatlowbck<<tatupb>>.jpg'
  1013. end
  1014. if $ARGS[0] = 'tattoounder':
  1015. view 'images/body/underBreast/tatundbreast<<tatarm>>.jpg'
  1016. end
  1017. if $ARGS[0] = 'tattoowrist':
  1018. view 'images/body/wrists/tatwrst<<tatarm>>.jpg'
  1019. end
  1020. if $ARGS[0] = 'tattoos':
  1021. clr
  1022. tatcounter = 0
  1023. if tatarm > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattooarm''">Tattoo on your arm</a>'
  1024. if tatass > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattooass''">Tattoo on your ass</a>'
  1025. if tatback > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattooback''">Tattoo on your back</a>'
  1026. if tatblly > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattoobelly''">Tattoo on your belly</a>'
  1027. if tatbrst > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattoobreast''">Tattoo on your breast</a>'
  1028. if tatchst > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattoochest''">Tattoo on your chest</a>'
  1029. if tatfce > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattooface''">Tattoo on your face</a>'
  1030. if tatankle > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattoofoot''">Tattoo on your foot</a>'
  1031. if tatleg > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattooleg''">Tattoos on your leg</a>'
  1032. if tatlip > 0:tatcounter = 1 & pl '<a href="exec: gs ''obj_din'', ''tattoolip''">Tattoo on your lip</a>'
  1033. if tatneck > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattooneck''">Tattoo on your neck</a>'
  1034. if tatvag > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattoovag''">Tattoos on your groin</a>'
  1035. if tatplech > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattooshoulder''">Tattoo on your shoulder</a>'
  1036. if tatside > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattooside''">Tattoo on your side</a>'
  1037. if tatupb > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattootramp''">Your tramp stamp</a>'
  1038. if tatunder > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattoounder''">Tattoo under your breasts</a>'
  1039. if tatwrist > 0:tatcounter = 1 & pl'<a href="exec: gs ''obj_din'', ''tattoowrist''">Tattoo on your wrist</a>'
  1040. if tatcounter = 0:
  1041. pl'You have a pristine body. Not in terms of debauchery, but in terms of tattoos.'
  1042. end
  1043. end
  1044. if $ARGS[0] = 'piercing':
  1045. clr
  1046. 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:
  1047. pl 'You have no piercings.'
  1048. 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:
  1049. pl 'You are not wearing any piercings'
  1050. end
  1051. if pirsA = 1:pl 'Your tongue is pierced and inserted in it is a barbell that you constantly feel in the mouth. <a href="exec:view ''images/picb/pirsa.jpg''">See</a>'
  1052. if pirsB = 1:pl 'Your lower lip is pierced, and ring is inserted. <a href="exec:view ''images/picb/pirsb.jpg''">See</a>'
  1053. if pirsC = 1:pl 'On your ears hang earrings. <a href="exec:view ''images/picb/pirsc.jpg''">See</a>'
  1054. if pirsD = 1:pl 'You have a small ring in the nose. <a href="exec:view ''images/picb/pirsd.jpg''">See</a>'
  1055. if pirsE = 1:pl 'Barbell is inserted into your eyebrow. <a href="exec:view ''images/picb/pirse.jpg''">See</a>'
  1056. if pirsF = 1:pl 'You have pierced nipples with barbells inserted. <a href="exec:view ''images/picb/pirsf.jpg''">See</a>'
  1057. if pirsN = 1:pl 'Your navel is pierced and barbell is inserted. <a href="exec:view ''images/picb/pirsn.jpg''">See</a>'
  1058. if pirsG = 1 and pirsGL ! 1:pl 'Your labia are pierced and several rings hang from them. <a href="exec:view ''images/picb/pirsg.jpg''">See</a>'
  1059. if pirsG ! 1 and pirsGL = 1:pl 'Your clitoris is pierced and barbell is inserted through it.<a href="exec:view ''images/picb/pirscli.jpg''">See</a>'
  1060. if pirsG = 1 and pirsGL = 1:pl 'Your clitoris and labia are pierced, there is barbell inserted in your clit and rings hanging from your labia.<a href="exec:view ''images/picb/pirscligub.jpg''">See</a>'
  1061. end
  1062. if $ARGS[0] = 'records':
  1063. clr
  1064. 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.'
  1065. nl
  1066. 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.'
  1067. nl
  1068. 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.'
  1069. nl
  1070. 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.'
  1071. nl
  1072. 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.'
  1073. nl
  1074. 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.'
  1075. nl
  1076. 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.'
  1077. nl
  1078. if (work = 1 or cheatWork = 1) and young_shop_work = 1:pl'You work as a store clerk in Keys Pussy. Work starts at 15, every day except Saturday and Sunday. The salary shall be issued once a week on Fridays.'
  1079. nl
  1080. if (work = 1 or cheatWork = 1) and workFabrika = 1:pl'You work as a seamstress in a factory in Pavlovsky. Work is every day except Saturday and Sunday. Salary is automatically transferred on 25th of each month.'
  1081. nl
  1082. 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.'
  1083. nl
  1084. if maidqw = 1:pl'You can work in Pavlovsky hotel as a maid. Work is every day from 16 to 19. Salary is 250 plus tips.'
  1085. nl
  1086. if stripwork >= 1:pl'You can work as a stripper, free schedule, every day from 15 to midnight. No salary, only tips.'
  1087. nl
  1088. if pfilmSTOP = 1:pl'<<$pfilmstory_new>>'
  1089. if film > 0:pl'You are working as pornographic actress under the name <<$pfname>>, Filmography:'
  1090. pl'<<$pfilmhistory>>'
  1091. nl
  1092. if bumtolik = 4:pl'You have been asked to help the homeless at the Mercy Clinic in the northern region.'
  1093. nl
  1094. if bumtolik >= 5:pl'You volunteer at the Mercy Clinic working with the homeless. Working hours are from 9 to 17, Saturday and Sunday.'
  1095. nl
  1096. if husband > 0:pl'You have been married for <<husbanday>> days. Your husband <<$husName>> <<$husBody>> <<$husFat>> <<$husHair>>. Member <<husDick>> Relationship <<husband>>.'
  1097. if kid > 0:
  1098. i = 0
  1099. if kid = 1:
  1100. pl 'You have a child, a <<$polreb[0]>> named <<$kidname[0]>>. Born <<daykid[0]>>-<<monthkid[0]>>-<<yearkid[0]>>. Aged <<kidage[0]>>.'
  1101. else
  1102. pl 'You have children:'
  1103. :LoopKidCounter
  1104. if i <= kid + 1:
  1105. pl ' a <<$polreb[i]>> named <<$kidname[i]>>. Born <<daykid[i]>>-<<monthkid[i]>>-<<yearkid[i]>>. Aged <<kidage[i]>>.'
  1106. i += 1
  1107. jump 'LoopKidCounter'
  1108. end
  1109. end
  1110. nl
  1111. end
  1112. nl
  1113. if $bfsex > 0:pl'<<$bfsex>>'
  1114. nl
  1115. if bfA > 1:pl'Your guy <<$boyA>> <<$boybodyA>> <<$boybodA>> <<$boyfaceA>>.<<$boyA>> <<$boyCloA>> Relationship <<bfA>>, met <<dayA>> time.'
  1116. if harakBoyA = 0 and bfA > 1:pl'He''s calm and self-possessed character.'
  1117. if harakBoyA = 1 and bfA > 1:pl'He has a cheerful and sociable character.'
  1118. if harakBoyA = 2 and bfA > 1:pl'He''s short-tempered and rigid.'
  1119. if bfB > 1:pl'Your guy <<$boyB>> <<$boybodyB>> <<$boybodB>> <<$boyfaceB>>.<<$boyB>> <<$boyCloB>> Relationship <<bfB>>, met <<dayB>> time.'
  1120. if bfC > 1:pl'Your guy <<$boyC>> <<$boybodyC>> <<$boybodC>> <<$boyfaceC>>.<<$boyC>> <<$boyCloC>> Relationship <<bfC>>, met <<dayC>> time.'
  1121. nl
  1122. gs'Menu.Create','zapisMenu'
  1123. gs'Menu.Add','zapisMenu','Recording from avtodatoy','','MenuLoc','zapisosn'
  1124. gs'Menu.Add','zapisMenu','Make a record in the 1th line','','MenuLoc','zapis'
  1125. gs'Menu.Add','zapisMenu','With a red line 1th line','','MenuLoc','ot'
  1126. gs'Menu.Add','zapisMenu','Make a record in the 2th line','','MenuLoc','zapis2'
  1127. gs'Menu.Add','zapisMenu','With a red line 2th line','','MenuLoc','ot2'
  1128. gs'Menu.Add','zapisMenu','Make a record in the 3th line','','MenuLoc','zapis3'
  1129. gs'Menu.Add','zapisMenu','With a red line 3th line','','MenuLoc','ot3'
  1130. gs'Menu.Add','zapisMenu','Make a record in the 4th line','','MenuLoc','zapis4'
  1131. gs'Menu.Add','zapisMenu','With a red line 4th line','','MenuLoc','ot4'
  1132. gs'Menu.Add','zapisMenu','Make a record in the 5th line','','MenuLoc','zapis5'
  1133. gs'Menu.Add','zapisMenu','With a red line 5th line','','MenuLoc','ot5'
  1134. gs'Menu.Add','zapisMenu','Make a record in the 6th line','','MenuLoc','zapis6'
  1135. gs'Menu.Add','zapisMenu','With a red line 6th line','','MenuLoc','ot6'
  1136. gs'Menu.Add','zapisMenu','Make a record in the 7th line','','MenuLoc','zapis7'
  1137. gs'Menu.Add','zapisMenu','With a red line 7th line','','MenuLoc','ot7'
  1138. gs'Menu.Add','zapisMenu','Make a record in the 8th line','','MenuLoc','zapis8'
  1139. gs'Menu.Add','zapisMenu','With a red line 8th line','','MenuLoc','ot8'
  1140. gs'Menu.Add','zapisMenu','Make a record in the 9th line','','MenuLoc','zapis9'
  1141. gs'Menu.Add','zapisMenu','With a red line 9th line','','MenuLoc','ot9'
  1142. gs'Menu.Add','zapisMenu','Make a record in the 10th line','','MenuLoc','zapis10'
  1143. gs'Menu.Add','zapisMenu','With a red line 10th line','','MenuLoc','ot10'
  1144. gs'Menu.Create','disMenu'
  1145. gs'Menu.Add','disMenu','Delete entry to 1th row','','MenuLoc','diszapis'
  1146. gs'Menu.Add','disMenu','Delete entry to 2th row','','MenuLoc','diszapis2'
  1147. gs'Menu.Add','disMenu','Delete entry to 3th row','','MenuLoc','diszapis3'
  1148. gs'Menu.Add','disMenu','Delete entry to 4th row','','MenuLoc','diszapis4'
  1149. gs'Menu.Add','disMenu','Delete entry to 5th row','','MenuLoc','diszapis5'
  1150. gs'Menu.Add','disMenu','Delete entry to 6th row','','MenuLoc','diszapis6'
  1151. gs'Menu.Add','disMenu','Delete entry to 7th row','','MenuLoc','diszapis7'
  1152. gs'Menu.Add','disMenu','Delete entry to 8th row','','MenuLoc','diszapis8'
  1153. gs'Menu.Add','disMenu','Delete entry to 9th row','','MenuLoc','diszapis9'
  1154. gs'Menu.Add','disMenu','Delete entry to 10th row','','MenuLoc','diszapis10'
  1155. pl'<a href="exec: gs''Menu.Call'',''zapisMenu''">Make a record</a> or <a href="exec: gs''Menu.Call'',''disMenu''">delete the record</a>'
  1156. pl'<<$zapisOsn>>'
  1157. pl'<<$zapis>>'
  1158. pl'<<$zapis2>>'
  1159. pl'<<$zapis3>>'
  1160. pl'<<$zapis4>>'
  1161. pl'<<$zapis5>>'
  1162. pl'<<$zapis6>>'
  1163. pl'<<$zapis7>>'
  1164. pl'<<$zapis8>>'
  1165. pl'<<$zapis9>>'
  1166. pl'<<$zapis10>>'
  1167. end
  1168. if $ARGS[0] = 'exit':
  1169. '<center><b>YOU JUST had to use emergency exit, this is only for use when you get a BLANK SCREEN.</b></center>'
  1170. *nl
  1171. '<center><b>DO NOT use this option without a good reason, doing so can cause instability and could damage your save game.</b></center>'
  1172. *nl
  1173. '<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>'
  1174. *nl
  1175. cla
  1176. if StoryLine = 1:act 'Go to Pavlovsk':gt 'pavResidential'
  1177. act 'Go to the street':gt 'street'
  1178. end
  1179. if $ARGS[0] = 'new':
  1180. killobj
  1181. oldobjmenu = 0
  1182. addobj '<img src="images/pic/icon/pers.png">'
  1183. addobj '<img src="images/pic/icon/look.png">'
  1184. addobj '<img src="images/pic/icon/proch.png">'
  1185. addobj '<img src="images/pic/icon/menu.png">'
  1186. addobj '<img src="images/pic/icon/phone.png">'
  1187. if bag > 0:addobj '<img src="images/pic/icon/purse.png">'
  1188. end
  1189. if $ARGS[0] = 'old':
  1190. killobj
  1191. oldobjmenu = 1
  1192. addobj '<font color = green>Character</font>'
  1193. addobj 'Skills'
  1194. addobj 'Statistics'
  1195. if magik > 0:addobj 'Magic'
  1196. addobj 'Face'
  1197. addobj 'Body'
  1198. addobj 'Clothing'
  1199. addobj 'Tattoos'
  1200. addobj 'Piercing'
  1201. addobj 'Phone'
  1202. if bag > 0:addobj 'Purse'
  1203. addobj 'Notebook'
  1204. addobj 'Refresh'
  1205. addobj 'The new menu'
  1206. addobj 'Cheat menu'
  1207. addobj 'Emergency exit'
  1208. if disable_autosave = 1:
  1209. addobj 'Enable autosave'
  1210. else
  1211. addobj 'Disable autosave'
  1212. end
  1213. end
  1214. if $ARGS[0] = 'autosave':
  1215. if oldobjmenu = 0:
  1216. if disable_autosave = 1:
  1217. disable_autosave = 0
  1218. else
  1219. disable_autosave = 1
  1220. end
  1221. elseif oldobjmenu = 1:
  1222. if disable_autosave = 1:
  1223. disable_autosave = 0
  1224. delobj 'Enable autosave'
  1225. addobj 'Disable autosave'
  1226. else
  1227. disable_autosave = 1
  1228. delobj 'Disable autosave'
  1229. addobj 'Enable autosave'
  1230. end
  1231. end
  1232. gs'stat'
  1233. end
  1234. if $ARGS[0] = 'steroids':
  1235. if steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += 1
  1236. end
  1237. --- obj_din ---------------------------------