1
0

onobjsel 59 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196
  1. # onobjsel
  2. $din_show_tits = {
  3. view
  4. view 'images/body/t<<tits>>.jpg'
  5. }
  6. $objdescrip = {
  7. clr
  8. pl 'Your name is <<$name>> <<$surname>>.'
  9. pl 'You are <<age>> <<$letgoda>>, but looking at you, people would guess you are <<vidage>> <<$letgoda2>>.'
  10. !!!0.2.6 extension
  11. if StoryLine > 0:
  12. pl 'Friends and family sometimes call you <<$nickname>>'
  13. else
  14. pl 'Friends sometimes call you <<$nickname>>'
  15. end
  16. !!!
  17. if birthday > 0 and birthmonth > 0:pl 'Your date of birth is <<birthday>>.0<<birthmonth>>.<<birthyear>>, the'
  18. pl 'You are <<rost>> cm tall, you weigh <<ves>> pounds.'
  19. pl '<<$body>>'
  20. pl '<a href="exec:dynamic $objbody"><<grudi>> - <<talia>> - <<bedra>> </a>, <a href="exec:dynamic $din_show_tits">the size of your breasts are <<tits>></a>, the difference between your hips and your waist is <<bedra-talia>> cm'
  21. pl '<<$anus>>'
  22. pl '<<$vnesh>>'
  23. pl '<<$hair>>'
  24. pl '<<$lip>>'
  25. pl '<<$throat>>'
  26. pl '<<$skin>>'
  27. pl '<<$glaza>>'
  28. pl '<<$mop>>'
  29. pl '<<$leghair>>'
  30. pl '<<$lobok>>'
  31. pl '<<$vagina>>'
  32. nl
  33. if salo = 0 and musle > 0 and dounspell = 0:pl '<b><font color="red">You are showing signs undernourishment. You should probably eat more and more often.</font></b>'
  34. 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>'
  35. if curly > 0:pl 'Your curls are good for another <<curly>> days.'
  36. if zub = 1:$zuba = ' tooth'
  37. if zub >= 2:$zuba = ' teeth'
  38. if zub > 0:pl 'You have <<zub>><<$zuba>>.'
  39. !!pl 'vnesh <<vnesh>>'
  40. !!pl 'curlykoef <<curlykoef>> a maximum of 1'
  41. !!pl 'tits <<tits>> A maximum of 6'
  42. !!pl 'lip <<lip>> a maximum of 4'
  43. !!pl 'tanKoef <<tanKoef>> a maximum of 1'
  44. !!pl 'skin <<skin>> a maximum of 4'
  45. !!pl 'mop <<mop>> a maximum of 4'
  46. !!pl 'resnic <<resnic>> a maximum of 2'
  47. !!pl 'glaraz <<glaraz>> a maximum of 3'
  48. !!pl 'bodykoef <<bodykoef>> a maximum of 8'
  49. !!pl 'legkoef <<legkoef>> a maximum of 3'
  50. !!pl 'lobkoef <<lobkoef>> a maximum of 3'
  51. !!pl 'odevnesh <<odevnesh>> a maximum of 15'
  52. !!pl 'sweat <<sweat>> the maximum 0'
  53. !!pl 'hapri <<hapri>> a maximum of 1'
  54. !!!!!!!! Maruda Hair Mod
  55. if hairlength > 41 and hscrunch >= 1:
  56. 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.'
  57. if hscrunchw = 1:pl 'Remove the <a href="exec:hscrunchw = 0 & dynamic $objdescrip">scrunchie</a> to get rid of the ponytail.'
  58. end
  59. if hairlength > 41 and hpingrip >= 1:
  60. 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.'
  61. if hpingripw = 1:pl 'Let your hair <a href="exec:hpingripw = 0 & dynamic $objdescrip">flow free</a>.'
  62. end
  63. if hairlength > 80 and hscrunch >= 2:
  64. 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>.'
  65. if hscrunchw = 2:pl '<a href="exec:hpigtail = 0 & hscrunchw = 0 & dynamic $objdescrip">Remove</a> your scrunchies and let your hair flow free again.'
  66. end
  67. if hscrunch < 1:hscrunchw = 0
  68. if hpingrip < 1:hpingripw = 0
  69. if hscrunch < 2:hpigtail = 0
  70. !!!!!!!! Maruda Hair Mod
  71. }
  72. $objskills = {
  73. clr
  74. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!1remake
  75. !!if salo > musle * 4:$fat = 'You have a chubby disposition'
  76. !!if salo <= musle * 4 and fat > musle * 2:$fat = 'You have a soft curvy body that still carries an elastic finesse.'
  77. !!if salo <= musle * 2 and fat > musle:$fat = 'You have an average body showing signs that you take care of yourself.'
  78. !!if salo <= musle and fat >= musle / 2:$fat = 'Your body is slim and trim. You probably workout often '
  79. !!if salo < musle / 2:$fat = 'Your body is a prayer to the god of fitness! Your skin is taught against your lithe musculature.'
  80. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  81. pl 'Attractiveness <<vnesh>>'
  82. pl 'Power <<stren>>'
  83. pl 'Speed ​​<<speed>>'
  84. pl 'Agility <<agil>>'
  85. pl 'Endurance <<vital>>'
  86. pl 'Intelligence <<intel>>'
  87. pl 'Willpower <<will>>'
  88. pl 'Reaction <<react>>'
  89. pl '<<$fat>>'
  90. !!pl 'Bezstydstvo <<shameless>>'
  91. if SUB > 0:pl 'Subordination <<SUB>>'
  92. if DOM > 0:pl 'Dominance <<DOM>>'
  93. !!pl 'Muscles <<$musle>>'
  94. if magik > 0:pl 'Magic <<magik>>'
  95. if Jab > 0:pl 'Jab - <<Jab>>'
  96. if Punch > 0:pl 'Power Strikes - <<Punch>>'
  97. if Kik > 0:pl 'Kicks - <<Kik>>'
  98. if KikDef > 0:pl 'Protection against - <<KikDef>>'
  99. if beg > 0:pl 'Skill Run - <<beg>>'
  100. if volleyboll > 0:pl 'Skill volleyball - <<volleyboll>>'
  101. if oficiant > 0:pl 'Skills waitresses - <<oficiant>>'
  102. if vokal > 0:pl 'Vocal skills <<vokal>>'
  103. if dance > 0:pl 'Skill Dance - <<dance>>'
  104. if dancePRO > 0:pl 'Regular dancing skilllevel - <<dancePRO>>'
  105. if stripdance > 0:pl 'Striptease skilllevel - <<stripdance>>'
  106. if poledance > 0:pl 'Poledancing skilllevel- <<poledance>>'
  107. if shoot > 0:pl 'Shooting Accuracy - <<shoot>>'
  108. if kid = 1:pl 'You have a child, <<$polreb[1]>> name <<$kidname[1]>>. Born <<daykid[1]>>.<<monthkid[1]>>.<<yearkid[1]>>y. Age <<kidage[1]>>'
  109. if workPTU > 1:pl 'Reputation teachers <<teachlevel>>'
  110. if SchoolAtestat = 0 and StoryLine > 0:
  111. if Suspeh >= 90:pl 'You are an A+ student.'
  112. if Suspeh >= 80 and Suspeh < 90:pl 'You are a bright student, just not the top of your class.'
  113. if Suspeh >= 70 and Suspeh < 80:pl 'You are an above average student, but you have to work hard to keep up.'
  114. 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.'
  115. 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.'
  116. 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.'
  117. if Suspeh < 40:pl 'You are the class nitwit. You''re still not sure how you got this far in the first place.'
  118. if schoolprogul > 1:pl 'Absenteeism in school <<schoolprogul>>'
  119. end
  120. }
  121. $objstatistika = {
  122. clr
  123. if opPRE = 0:pl 'It has been <<daystart>> the game has started.'
  124. if BuyHous = 2 and ArendHouseSL >0:pl 'You have rented an apartment in the residential area <<ArendHouseSL>> days.'
  125. if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0:
  126. pl 'Professional Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw'
  127. pl '<<KikWinPro>> (<<KikWinProKO>>KO) - <<KikLossPro>> (<<KikLossProKO>>KO) - <<KikDrawPro>>'
  128. nl
  129. end
  130. if Win > 0 or Loss > 0:pl 'Wins in fights <<Win>>, losses in fights <<Loss>>' & nl
  131. if KisameDead = 1:pl 'You killed Kisame.'& nl
  132. if razradKik > 0:pl '<<$razradKik>>'
  133. if KikWinAm > 0 or KikLossAm > 0 or KikDrawAm > 0:
  134. pl 'Amateur Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw'
  135. pl '<<KikWinAm>> (<<KikWinAmKO>>KO) - <<KikLossAm>> (<<KikLossAmKO>>KO) - <<KikDrawAm>>'
  136. nl
  137. end
  138. if razradKik > 0:
  139. if razradKik = 1:$razradKik = 'You''re ranked III in amateur kickboxing'
  140. if razradKik = 2:$razradKik = 'You''re ranked II in amateur kickboxing'
  141. if razradKik = 3:$razradKik = 'You''re ranked I in amateur kickboxing'
  142. if razradKik = 4:$razradKik = 'You are a candidate for the title of Master in Kickboxing'
  143. if razradKik = 5:$razradKik = 'You have the title of Master Kickboxer'
  144. nl
  145. end
  146. if kolsorev > 0:pl 'You have participate <<kolsorev>> in a running race'
  147. if bronzebeg > 0:pl '<<bronzebeg>> - bronze medals on the run'
  148. if silverbeg > 0:pl '<<silverbeg>> - silver medals for event'
  149. if goldbeg > 0:pl '<<goldbeg>> - gold medals in running'
  150. if razradbegEB > 0:pl '<<razradbegEB>> times bronze medalist of European Championship'
  151. if razradbegES > 0:pl '<<razradbegES>> fold vice champion of Europe'
  152. if razradbegEG > 0:pl '<<razradbegEG>> time European champion.'
  153. if razradbeg > 0:
  154. if razradbeg = 1:pl 'You have third sports category for event'
  155. if razradbeg = 2:pl 'You 2nd sports category for event'
  156. if razradbeg = 3:pl 'You 1st sports category for event'
  157. if razradbeg = 4:pl 'You have the title of Candidate Master of Sports for event'
  158. if razradbeg = 5:pl 'You have the title of Master of Sports in the run'
  159. if razradbeg >= 6:pl 'You have the title of International Master of Sports for event'
  160. nl
  161. end
  162. if nastjaQW > 0:pl 'Friendship with Nastya <<nastjaqw>>'
  163. if tanya > 0:pl 'Friendship with Tanya <<tanya>>'
  164. if kat > 0:pl 'Friendship with Kate <<kat>>'
  165. if vika > 0:pl 'Friendship with Vika <<vika>>'
  166. if Irina > 0:pl 'Friendship with Irene <<Irina>>'
  167. if Tamara > 0:pl 'Friendship with Tamara <<Tamara>>'
  168. if alla > 0:pl 'Friendship with Alla <<alla>>'
  169. if masha > 0:pl 'Friendship with Masha <<masha>>'
  170. if Givi > 0:pl 'Friendship with Givi K. <<Givi>>'
  171. if Ashot > 0:pl 'Friendship with Ashot <<Ashot>>'
  172. if Dmitry > 0:pl 'Friendship with Dima <<Dmitry>>'
  173. if afra > 0:pl 'Friendship with blacks <<afra>>'
  174. !!!WD: Formatting
  175. if (Irina + Givi + Ashot + Tamara + Dmitry + afra + gosh + vika + kat + nastjaqw + tanya) > 0:nl
  176. !!!
  177. if exhibi > 0:pl 'Experienced exhibitionism <<exhibi>>'
  178. if maxdamage > 0:pl 'The impact force on the dynamometer <<maxdamage>> kN' & nl
  179. if modelfoto > 0:pl 'You filmed naked <<modelfoto>> times'
  180. if stripdancesum > 0:pl '<<stripdancesum>> times dancing in the stripclub'
  181. if profiDanceTime > 0:pl 'You danced <<profiDanceTime>> professionally.'
  182. if SchoolAtestat = 1:pl 'You have finished school.'
  183. if diplom = 1:pl 'You graduated.'
  184. if teachlevel > 0:pl 'Your credibility as a teacher is <<teachlevel>>'
  185. !!!WD:FORMATING
  186. if (exhibi + maxdamage + modelfoto + stripdancesum + profiDanceTime + SchoolAtestat + diplom + teachlevel) > 0:nl
  187. !!!
  188. if mastr > 0:pl 'Masturbated <<mastr>> time'
  189. if throat > 0:pl '<<$throat>>'
  190. if vagina > 0:pl '<<$vagina>>'
  191. if vagina = 0 and sex = 0:pl 'You are a virgin.'
  192. if anus > 0:pl '<<$anus>>'
  193. nl
  194. if GorSlut > 0:
  195. if GorSlut = 1:pl 'In the town you are known as a flirt.'
  196. if GorSlut = 2:pl 'In the town you are known to have sucked a few cocks.'
  197. if GorSlut = 3:pl 'In the town you are known as a great cocksucker.'
  198. if GorSlut = 4:pl 'In the town you are known to have fucked several boys.'
  199. if GorSlut = 5:pl 'In the town you are known the slut that would do anything.'
  200. if GorSlut = 6:pl 'In the town you are known as a prostitute who will take money for most extreme sex acts.'
  201. nl
  202. end
  203. if guy > 0:pl 'You had <<guy>> guys.'
  204. if divorced > 0:pl 'You have <<divorced>> husbands.'
  205. if suprdolg > 0:pl 'Performed conjugal duty to her husband <<suprdolg>> time'
  206. if gang > 0:pl 'Group sex <<gang>> times'
  207. if sex > 0 and sexa = 0:pl 'Vaginal sex <<sex>> times.'
  208. if sex > 0 and sexa > 0:pl 'Vaginal sex <<sex>> times from them <<sexa>> times with her boyfriend.'
  209. if bj > 0:
  210. if gloryhole = 0 and balls = 0 and bja = 0:pl 'Blowjob done <<bj>> times.'
  211. if gloryhole = 0 and balls = 0 and bja > 0:pl 'Blowjob done <<bj>> times, of which <<bja>> times her boyfriend'
  212. if gloryhole > 0 and balls = 0 and bja = 0:pl 'Blowjob done <<bj>> times, of which you <<gloryhole>> time suck strangers through a hole in the wall.'
  213. if gloryhole > 0 and balls = 0 and bja > 0:pl 'Blowjob done <<bj>> times, of which you <<gloryhole>> time suck strangers through a hole in the wall. Just one <<bja>> times her boyfriend'
  214. if gloryhole = 0 and balls > 0 and bja = 0:pl 'Blowjob done <<bj>> times, sucked balls <<balls>> times.'
  215. if gloryhole = 0 and balls > 0 and bja > 0:pl 'Blowjob done <<bj>> times, sucked balls <<balls>> times. Just one <<bja>> times her boyfriend'
  216. if gloryhole > 0 and balls > 0 and bja = 0:pl 'Blowjob done <<bj>> times, of which you <<gloryhole>> time suck strangers through a hole in the wall. Sucked balls <<balls>> times.'
  217. if gloryhole > 0 and balls > 0 and bja > 0:pl 'Blowjob done <<bj>> times, of which you <<gloryhole>> time suck strangers through a hole in the wall. Sucked balls <<balls>> times. Just one <<bja>> times her boyfriend'
  218. end
  219. if hj > 0:
  220. if hja = 0:pl 'Guys jerking off <<hj>> times'
  221. if hja > 0:pl 'Guys jerking off <<hj>> times from them <<hja>> times masturbate her boyfriend'
  222. end
  223. if hump > 0:pl 'About you wanker member <<hump>> times'
  224. if rape > 0:pl 'You have been raped <<rape>> times'
  225. if anal > 0:
  226. if anala = 0:pl 'Anal <<anal>> times'
  227. if anala > 0:pl 'Anal <<anal>> times from them <<anala>> times with her boyfriend'
  228. end
  229. if kuni > 0:pl 'You did cunnilingus <<kuni>> times'
  230. if pegging > 0:pl 'Pegging <<pegging>> times'
  231. if spank > 0:pl 'You ran your ass <<spank>> times'
  232. !!!WD:FORMATING
  233. if (guy + divorced + suprdolg + gang + sex + bj + hj + hump + rape + anal + kuni + pegging + spank) > 0:nl
  234. !!!
  235. if slutty > 0:
  236. if bordelslutty = 0:pl 'Sold your love <<slutty>> time.'
  237. if bordelslutty > 0:pl 'Sold your love <<slutty>> times, including in a brothel <<bordelslutty>> times.'
  238. end
  239. if pfilmSTOP = 1:
  240. pl 'In the porn industry you were known by the name of <<$pfname>>. You have retired from the porn business.'
  241. elseif film > 0:
  242. pl 'In the porn industry you are known by the name of <<$pfname>>. You starred in porn <<film>> times.'
  243. pl '<<$pfilmhistory>>'
  244. nl
  245. end
  246. if orgasm > 0:pl 'Experienced orgasm <<orgasm>> times.'
  247. if analorgasm > 0 :pl 'You''ve had <<analorgasm>> anal orgasms.'
  248. if swallow > 0:pl 'Sperm swallowed <<swallow>> times.'
  249. if facial > 0:pl 'You have taken <<facial>> facials.'
  250. if frot > 0:pl 'Come on you truck <<frot>> times.'
  251. if VAF > 0:pl 'Vaflizm <<VAF>>.'
  252. if zoo > 0:pl 'Having sex with animals <<zoo>> times.'
  253. if pee > 0:pl 'You pissing <<pee>> times.'
  254. if swallowpee > 0:pl 'You swallow urine <<swallowpee>> time.'
  255. !!!WD:FORMATING
  256. if (slutty + pfilmSTOP + film + orgasm + analorgasm + swallow + facial + frot + VAF + zoo + pee) > 0:nl
  257. !!!
  258. if girl > 0:pl 'You have <<girl>> girls.'
  259. if lesbian > 0:pl 'You do lecbiyskim sex <<lesbian>> times.'
  260. if sexfuta > 0:pl 'You''ve had sex with tgirls <<sexfuta>> times.'
  261. }
  262. $din_exhibiTakeOffBimbo = {
  263. cloth_vid = 0
  264. gs 'stat'
  265. 'You removed the outfit bimbo'
  266. }
  267. $din_exhibiHideNewCloth = {
  268. exhibiHideNewCloth = 1
  269. gs 'stat'
  270. }
  271. $din_cheat_work = {
  272. if cheatWork = 0:
  273. cheatWork = 1
  274. dynamic $din_cheat_menu_permanent
  275. exit
  276. elseif cheatWork = 1:
  277. cheatWork = 0
  278. dynamic $din_cheat_menu_permanent
  279. end
  280. }
  281. $din_cheat_hapri = {
  282. if cheatHapri = 0:
  283. cheatHapri = 1
  284. gs 'stat'
  285. dynamic $din_cheat_menu_permanent
  286. exit
  287. else
  288. cheatHapri = 0
  289. dynamic $din_cheat_menu_permanent
  290. end
  291. }
  292. $din_cheat_klisma = {
  293. if cheatKlisma = 0:
  294. cheatKlisma = 1
  295. dynamic $din_cheat_menu_permanent
  296. exit
  297. elseif cheatKlisma = 1:
  298. cheatKlisma = 0
  299. dynamic $din_cheat_menu_permanent
  300. end
  301. }
  302. $din_cheat_nomakeup = {
  303. if cheatNomakeup = 0:
  304. cheatNomakeup = 1
  305. dynamic $din_cheat_menu_permanent
  306. exit
  307. else
  308. cheatNomakeup = 0
  309. dynamic $din_cheat_menu_permanent
  310. end
  311. }
  312. $din_cheat_Nosweat = {
  313. if cheatNosweat = 0:
  314. cheatNosweat = 1
  315. dynamic $din_cheat_menu_permanent
  316. exit
  317. else
  318. cheatNosweat = 0
  319. dynamic $din_cheat_menu_permanent
  320. end
  321. }
  322. $din_cheat_NoEat = {
  323. if cheatNoEat = 0:
  324. cheatNoEat = 1
  325. dynamic $din_cheat_menu_permanent
  326. exit
  327. else
  328. cheatNoEat = 0
  329. dynamic $din_cheat_menu_permanent
  330. end
  331. }
  332. $din_cheat_age = {
  333. age = input("How old are you in years?")
  334. if age <= 15:age = 15
  335. dynamic $din_cheat_menu_look
  336. }
  337. $din_cheat_agel = {
  338. vidage = input("How old do you want to look?")
  339. if vidage <= 14:vidage = 14
  340. dynamic $din_cheat_menu_look
  341. }
  342. $din_cheat_money = {
  343. money = input("How much money do you want to have?")
  344. if money < 0:money = 0
  345. dynamic $objcheat_menu
  346. }
  347. $din_cheat_menu_permanent = {
  348. gs 'stat'
  349. clr
  350. if cheatWork = 0:$cheatWork = 'TURNED_OFF'
  351. if cheatWork = 1:$cheatWork = '<b>ON</b>'
  352. if cheatHapri = 0:$cheatHapri = 'TURNED_OFF'
  353. if cheatHapri = 1:$cheatHapri = '<b>ON</b>'
  354. if cheatKlisma = 0:$cheatKlisma = 'TURNED_OFF'
  355. if cheatKlisma = 1:$cheatKlisma = '<b>ON</b>'
  356. if cheatNomakeup = 0:$cheatNomakeup = 'TURNED_OFF'
  357. if cheatNomakeup = 1:$cheatNomakeup = '<b>ON</b>'
  358. if cheatNosweat = 0:$cheatNosweat = 'TURNED_OFF'
  359. if cheatNosweat = 1:$cheatNosweat = '<b>ON</b>'
  360. if cheatNoEat = 0:$cheatNoEat = 'TURNED_OFF'
  361. if cheatNoEat = 1:$cheatNoEat = '<b>ON</b>'
  362. pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a></center>'
  363. pl ''
  364. pl '<a href="exec:dynamic $din_cheat_work">Disable the requirement of labor</a>: <<$cheatWork>>'
  365. pl '<a href="exec:dynamic $din_cheat_hapri">always combed</a>: <<$cheatHapri>>'
  366. pl '<a href="exec:dynamic $din_cheat_klisma">Always do an enema</a>: <<$cheatKlisma>>'
  367. pl '<a href="exec:dynamic $din_cheat_nomakeup">Cosmetics never smeared</a>: <<$cheatNomakeup>>'
  368. pl '<a href="exec:dynamic $din_cheat_Nosweat">Never sweat</a>: <<$cheatNosweat>>'
  369. pl '<a href="exec:dynamic $din_cheat_NoEat">Never eat or drink</a>: <<$cheatNoEat>>'
  370. }
  371. $din_cheat_menu_look = {
  372. gs 'stat'
  373. clr
  374. pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a></center>'
  375. pl ''
  376. pl '<a href="exec:dynamic $din_cheat_menu_param">Show design parameters of the body</a>'
  377. pl ''
  378. pl '<a href=>now you <<age>> years_old</a>'
  379. if age >= 0:pl '<a href="exec:dynamic $din_cheat_age">change age</a>'
  380. pl '<a href=>You look for <<vidage>> years_old</a>'
  381. if vidage >= 0:pl '<a href="exec:dynamic $din_cheat_agel">Change the visibility of age</a>'
  382. pl ''
  383. pl '<<$lip>>'
  384. if lip < 4:pl '<a href="exec:lip += 1 & dynamic $din_cheat_menu_look">augment the lips</a>'
  385. if lip > 0:pl '<a href="exec:lip -= 1 & dynamic $din_cheat_menu_look">reduce lips</a>'
  386. pl ''
  387. pl '<<$skin>>'
  388. if skin < 4:pl '<a href="exec:skin += 1 & dynamic $din_cheat_menu_look">improve the skin</a>'
  389. if skin > 0:pl '<a href="exec:skin -= 1 & dynamic $din_cheat_menu_look">worsen the skin</a>'
  390. if tan >= 0:pl '<a href="exec:tan += 10 & dynamic $din_cheat_menu_look">become sunburnt</a>'
  391. if tan > 0:pl '<a href="exec:tan = 0 & dynamic $din_cheat_menu_look">remove tan</a>'
  392. pl ''
  393. pl '<<$glaza>>'
  394. if resnic < 2:pl '<a href="exec:resnic += 1 & dynamic $din_cheat_menu_look">Enlarge eyelashes</a>'
  395. if resnic > 0:pl '<a href="exec:resnic -= 1 & dynamic $din_cheat_menu_look">reduce eyelashes</a>'
  396. if glaraz < 3:pl '<a href="exec:glaraz += 1 & dynamic $din_cheat_menu_look">Increase the size of the eye</a>'
  397. if glaraz > 0:pl '<a href="exec:glaraz -= 1 & dynamic $din_cheat_menu_look">Reduce the size of the eye</a>'
  398. pl ''
  399. if salo ! fat:pl '<a href="exec:fat = salo & dynamic $din_cheat_menu_look">balance the fat</a>'
  400. if salo > 0:pl '<a href="exec:salo -= 5 & fat = salo & dynamic $din_cheat_menu_look">reduce fat</a>'
  401. if salo > 0:pl '<a href="exec:salo = 0 & fat = salo & dynamic $din_cheat_menu_look">reset fat</a>'
  402. pl 'fat (<<salo>>): <a href="exec:salo += 5 & fat = salo & dynamic $din_cheat_menu_look">+5</a> <a href="exec:salo += 10 & fat = salo & dynamic $din_cheat_menu_look">+10</a> <a href="exec:salo += 25 & fat = salo & dynamic $din_cheat_menu_look">+25</a> <a href="exec:salo += 50 & fat = salo & dynamic $din_cheat_menu_look">+50</a>'
  403. pl ''
  404. pl '<a href="exec:dynamic $din_cheat_menu_tatoo">Tattoo Removal</a>'
  405. }
  406. $din_cheat_menu_param = {
  407. gs 'stat'
  408. clr
  409. pl '<center><a href="exec:dynamic $objcheat_menu"><b>Cheat menu</b></a> - <a href="exec:dynamic $din_cheat_menu_look"><b>Outward Appearance</b></a></center>'
  410. pl ''
  411. pl '<<strenbuf>> - strenbuf'
  412. pl '<<vitalbuf>> - vitalbuf'
  413. pl '<<vmeat>> - vmeat'
  414. pl '<<vfat>> - vfat'
  415. pl '<<Kves>> - Kves'
  416. pl '<<krost>> - krost'
  417. pl '<<ves>> - ves'
  418. pl '<<talia>> - talia - Waist measurement in cm'
  419. pl '<<grudi>> - grudi - Chest measurement in cm'
  420. pl '<<bedra>> - bedra'
  421. pl '<<titK>> - tits'
  422. pl '<<silicone>> - silicone'
  423. pl '<<grudi>> - <<talia>> - <<bedra>>, breast size <<tits>>, the difference between the hips and waist <<bedra-talia>> cm'
  424. pl 'Indicator muscularity <<musle>> - musle, <<salo>> - salo <<salo * 2>> - salo * 2 <<fat>> - fat'
  425. }
  426. $din_cheat_menu_tatoo = {
  427. gs 'stat'
  428. clr
  429. pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a> - <a href="exec:dynamic $din_cheat_menu_look"><b>Outward Appearance</b></a></center>'
  430. pl ''
  431. if tatlip = 0:pl 'You do not have tattoos on his lips</a>'
  432. if tatlip >= 1:pl '<a href="exec:tatlip = 0 & dynamic $din_cheat_menu_tatoo">Flatten with a tattoo of lips</a>'
  433. if tatplech = 0:pl 'You do not have tattoos on their shoulders</a>'
  434. if tatplech >= 1:pl '<a href="exec:tatplech = 0 & dynamic $din_cheat_menu_tatoo">Flatten with a shoulder tattoo</a>'
  435. if tatback = 0:pl 'You have not got a tattoo on her back</a>'
  436. if tatback >= 1:pl '<a href="exec:tatback = 0 & dynamic $din_cheat_menu_tatoo">Flatten with the back tattoo</a>'
  437. if tatupb = 0:pl 'You do not have tattoos on the lower back</a>'
  438. if tatupb >= 1:pl '<a href="exec:tatupb = 0 & dynamic $din_cheat_menu_tatoo">Reduce a tattoo with lumbar</a>'
  439. if tatvag = 0:pl 'You do not have a tattoo in the groin</a>'
  440. if tatvag >= 1:pl '<a href="exec:tatvag = 0 & dynamic $din_cheat_menu_tatoo">Reduce a tattoo with groin</a>'
  441. if tatleg = 0:pl 'You do not have a tattoo on the ankle</a>'
  442. if tatleg >= 1:pl '<a href="exec:tatleg = 0 & dynamic $din_cheat_menu_tatoo">Flatten with a tattoo ankle</a>'
  443. }
  444. $din_cheat_menu_stats = {
  445. gs 'stat'
  446. clr
  447. pl '<center><a href="exec:dynamic $objcheat_menu"><b>Cheat menu</b></a></center>'
  448. pl ''
  449. pl 'Power (<<stren>>): <a href="exec:stren += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:stren += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:stren += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:stren += 25 & dynamic $din_cheat_menu_stats">+25</a> <a href="exec:stren -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:stren -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:stren -= 10 & dynamic $din_cheat_menu_stats">-10</a> <a href="exec:stren -= 25 & dynamic $din_cheat_menu_stats">-25</a>'
  450. pl 'Speed (<<speed>>): <a href="exec:speed += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:speed += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:speed += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:speed += 25 & dynamic $din_cheat_menu_stats">+25</a> <a href="exec:speed -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:speed -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:speed -= 10 & dynamic $din_cheat_menu_stats">-10</a> <a href="exec:speed -= 25 & dynamic $din_cheat_menu_stats">-25</a>'
  451. pl 'Agility (<<agil>>): <a href="exec:agil += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:agil += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:agil += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:agil += 25 & dynamic $din_cheat_menu_stats">+25</a> <a href="exec:agil -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:agil -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:agil -= 10 & dynamic $din_cheat_menu_stats">-10</a> <a href="exec:agil -= 25 & dynamic $din_cheat_menu_stats">-25</a>'
  452. pl 'Reaction (<<react>>): <a href="exec:react += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:react += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:react += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:react += 25 & dynamic $din_cheat_menu_stats">+25</a> <a href="exec:react -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:react -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:react -= 10 & dynamic $din_cheat_menu_stats">-10</a> <a href="exec:react -= 25 & dynamic $din_cheat_menu_stats">-25</a>'
  453. pl 'Endurance (<<vital>>): <a href="exec:vital += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:vital += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:vital += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:vital += 25 & dynamic $din_cheat_menu_stats">+25</a> <a href="exec:vital -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:vital -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:vital -= 10 & dynamic $din_cheat_menu_stats">-10</a> <a href="exec:vital -= 25 & dynamic $din_cheat_menu_stats">-25</a>'
  454. pl 'Will (<<will>>): <a href="exec:will += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:will += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:will += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:will += 25 & dynamic $din_cheat_menu_stats">+25</a> <a href="exec:will -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:will -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:will -= 10 & dynamic $din_cheat_menu_stats">-10</a> <a href="exec:will -= 25 & dynamic $din_cheat_menu_stats">-25</a>'
  455. pl 'Intelligence (<<intel>>): <a href="exec:intel += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:intel += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:intel += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:intel += 25 & dynamic $din_cheat_menu_stats">+25</a> <a href="exec:intel -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:intel -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:intel -= 10 & dynamic $din_cheat_menu_stats">-10</a> <a href="exec:intel -= 25 & dynamic $din_cheat_menu_stats">-25</a>'
  456. pl ''
  457. pl 'Dominance (<<dom>>): <a href="exec:dom += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:dom += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:dom += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:dom -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:dom -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:dom -= 10 & dynamic $din_cheat_menu_stats">-10</a>'
  458. pl 'Submission (<<sub>>): <a href="exec:sub += 1 & dynamic $din_cheat_menu_stats">+1</a> <a href="exec:sub += 5 & dynamic $din_cheat_menu_stats">+5</a> <a href="exec:sub += 10 & dynamic $din_cheat_menu_stats">+10</a> <a href="exec:sub -= 1 & dynamic $din_cheat_menu_stats">-1</a> <a href="exec:sub -= 5 & dynamic $din_cheat_menu_stats">-5</a> <a href="exec:sub -= 10 & dynamic $din_cheat_menu_stats">-10</a>'
  459. pl ''
  460. if beg >= 0:pl '<a href="exec:beg += 25 & dynamic $din_cheat_menu_stats">The_Run: <<beg>></a>'
  461. if volleyboll >= 0:pl '<a href="exec:volleyboll += 25 & dynamic $din_cheat_menu_stats">volleyball: <<volleyboll>></a>'
  462. pl ''
  463. if dance >= 0:pl '<a href="exec:dance += 25 &dynamic $din_cheat_menu_stats">dancing: <<dance>></a>'
  464. if dancePRO >= 0:pl '<a href="exec:dancePRO += 25 & dynamic $din_cheat_menu_stats">Prof.. dancing: <<dancePRO>></a>'
  465. if stripdance >= 0:pl '<a href="exec:stripdance += 25 &dynamic $din_cheat_menu_stats">striptease: <<stripdance>></a>'
  466. if poledance >= 0:pl '<a href="exec:poledance += 25 & dynamic $din_cheat_menu_stats">Dancing in the six: <<poledance>></a>'
  467. pl ''
  468. if Jab >= 0:pl '<a href="exec:jab += 25 & dynamic $din_cheat_menu_stats">Jeb: <<jab>></a>'
  469. if Punch >= 0:pl '<a href="exec:punch += 25 & dynamic $din_cheat_menu_stats">power Strokes: <<punch>></a>'
  470. if Kik >= 0:pl '<a href="exec:kik += 25 & dynamic $din_cheat_menu_stats">kicks: <<kik>></a>'
  471. if KikDef >= 0:pl '<a href="exec:kikdef += 25 & dynamic $din_cheat_menu_stats">protection: <<kikdef>></a>'
  472. if vokal > 0:pl '<a href="exec:vokal += 25 & dynamic $din_cheat_menu_stats">vocal skills: <<vokal>></a>'
  473. pl ''
  474. if workPTU > 1:pl '<a href="exec:teachlevel += 10 & dynamic $din_cheat_menu_stats">Reputation teachers: <<teachlevel>></a>'
  475. if suspeh >= 0:pl '<a href="exec:suspeh += 10 & dynamic $din_cheat_menu_stats">improve their academic performance: <<suspeh>></a>'
  476. if schoolprogul >= 0:pl '<a href="exec:schoolprogul = 0 & dynamic $din_cheat_menu_stats">reset Absenteeism: <<schoolprogul>></a>'
  477. pl ''
  478. pl '<b>Test options</b> are present in the mechanism of the game, but not involved in the game quests.'
  479. ! WD: Missing Var '$din_cheat' replaced with 'din_cheat_menu_stats'
  480. if mutagenP = 0:pl 'Mutagen force <a href="exec:mutagenP = 1 & stren = 150 & dynamic $din_cheat_menu_stats">1st Level</a>'
  481. if mutagenP = 1:pl 'Mutagen force <a href="exec:mutagenP = 2 & stren = 200 & dynamic $din_cheat_menu_stats">level 2</a>'
  482. if mutagenP = 2:pl 'Mutagen force <a href="exec:mutagenP = 3 & stren = 250 & dynamic $din_cheat_menu_stats">level 3</a>'
  483. if mutagenP > 0:pl 'Mutagen force <a href="exec:mutagenP = 0 & stren = 100 & dynamic $din_cheat_menu_stats">Zero</a>'
  484. if mutagenV = 0:pl 'Mutagen endurance <a href="exec:mutagenV = 1 & vital = 150 & dynamic $din_cheat_menu_stats">1st Level</a>'
  485. if mutagenV = 1:pl 'Mutagen endurance <a href="exec:mutagenV = 2 & vital = 200 & dynamic $din_cheat_menu_stats">level 2</a>'
  486. if mutagenV = 2:pl 'Mutagen endurance <a href="exec:mutagenV = 3 & vital = 250 & dynamic $din_cheat_menu_stats">level 3</a>'
  487. if mutagenV > 0:pl 'Mutagen endurance <a href="exec:mutagenV = 0 & vital = 100 & dynamic $din_cheat_menu_stats">Zero</a>'
  488. if mutagenA = 0:pl 'Mutagen Agility <a href="exec:mutagenA = 1 & agil = 150 & dynamic $din_cheat_menu_stats">1st Level</a>'
  489. if mutagenA = 1:pl 'Mutagen Agility <a href="exec:mutagenA = 2 & agil = 200 & dynamic $din_cheat_menu_stats">level 2</a>'
  490. if mutagenA = 2:pl 'Mutagen Agility <a href="exec:mutagenA = 3 & agil = 250 & dynamic $din_cheat_menu_stats">level 3</a>'
  491. if mutagenA > 0:pl 'Mutagen Agility <a href="exec:mutagenA = 0 & agil = 100 & dynamic $din_cheat_menu_stats">Zero</a>'
  492. }
  493. $din_cheat_menu_reputation = {
  494. gs 'stat'
  495. clr
  496. pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a></center>'
  497. pl ''
  498. if nastjaQW >= 0:pl '<a href="exec:nastjaQW += 10 & dynamic $din_cheat_menu_reputation">Friendship with Nastya: <<nastjaQW>></a>'
  499. if kat >= 0:pl '<a href="exec:kat += 10 & dynamic $din_cheat_menu_reputation">Friendship with Kate: <<kat>></a>'
  500. if vika >= 0:pl '<a href="exec:vika += 10 & dynamic $din_cheat_menu_reputation">Friendship with Vika: <<vika>></a>'
  501. if Irina >= 0:pl '<a href="exec:Irina += 10 & dynamic $din_cheat_menu_reputation">Friendship with Irina: <<Irina>></a>'
  502. if Tamara >= 0:pl '<a href="exec:Tamara += 10 & dynamic $din_cheat_menu_reputation">Friendship with Tamara: <<Tamara>></a>'
  503. if alla >= 0:pl '<a href="exec:alla += 10 & dynamic $din_cheat_menu_reputation">Friendship with Alla: <<alla>></a>'
  504. if masha >= 0:pl '<a href="exec:masha += 10 & dynamic $din_cheat_menu_reputation">Friendship with Masha: <<masha>></a>'
  505. if Givi >= 0:pl '<a href="exec:Givi += 10 & dynamic $din_cheat_menu_reputation">Friendship with Givi Karapetovich: <<Givi>></a>'
  506. if Ashot >= 0:pl '<a href="exec:Ashot += 10 & dynamic $din_cheat_menu_reputation">Friendship with Ashot: <<Ashot>></a>'
  507. if Dmitry >= 0:pl '<a href="exec:Dmitry += 10 & dynamic $din_cheat_menu_reputation">Friendship with Dima: <<Dmitry>></a>'
  508. if afra >= 0:pl '<a href="exec:afra += 10 & dynamic $din_cheat_menu_reputation">Friendship with blacks: <<afra>></a>'
  509. pl ''
  510. if GorSlut > 0:pl 'In the town you are known as <<$gnikname>> (<<GorSlut>>)'
  511. if GorSlut = 0:pl 'You have a good reputation in the town (0)'
  512. if GorSlut ! 1:pl '<a href="exec:GorSlut = 1 & dynamic $din_cheat_menu_reputation">Back reputation "davalka" (1)</a>'
  513. if GorSlut ! 2:pl '<a href="exec:GorSlut = 2 & dynamic $din_cheat_menu_reputation">Back reputation "vaflersha" (2)</a>'
  514. if GorSlut ! 3:pl '<a href="exec:GorSlut = 3 & dynamic $din_cheat_menu_reputation">Back reputation "Total huesoska" (3)</a>'
  515. if GorSlut ! 4:pl '<a href="exec:GorSlut = 4 & dynamic $din_cheat_menu_reputation">Back reputation "Total hole" (4)</a>'
  516. if GorSlut ! 5:pl '<a href="exec:GorSlut = 5 & dynamic $din_cheat_menu_reputation">Back reputation "lowered slut" (5)</a>'
  517. if GorSlut ! 6:pl '<a href="exec:GorSlut = 6 & dynamic $din_cheat_menu_reputation">Back reputation "prostitute" (6)</a>'
  518. if GorSlut > 0:pl '<a href="exec:GorSlut = 0 & dynamic $din_cheat_menu_reputation">Clear reputation in town (0)</a>'
  519. if opusk > 0 or sipovka > 0 or rozetka > 0:pl '<a href="exec:opusk = 0 & sipovka = 0 & rozetka = 0 & dynamic $din_cheat_menu_reputation">Clear reputation with Gopnik</a>'
  520. }
  521. $din_cheat_menu_documents = {
  522. gs 'stat'
  523. clr
  524. pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a></center>'
  525. pl ''
  526. if diplom = 0:pl '<a href="exec:diplom = 1 & dynamic $din_cheat_menu_documents">Get Diploma</a>'
  527. if diplom = 1:pl 'You already have a diploma'
  528. if secrdiplom = 0:pl '<a href="exec:secrdiplom = 1 & dynamic $din_cheat_menu_documents">Get Secretarial Diploma</a>'
  529. if secrdiplom = 1:pl 'You already have a diploma Secretary'
  530. if masash < 10:pl '<a href="exec:masash = 10 & dynamic $din_cheat_menu_documents">Get Certificate Masseur</a>'
  531. if masash >= 10:pl 'You already have a certificate masseur'
  532. if prava = 0:pl '<a href="exec:prava = 1 & dynamic $din_cheat_menu_documents">Get the right</a>'
  533. if prava = 1:pl 'Do you already have rights'
  534. }
  535. $din_cheat_menu_time = {
  536. gs 'stat'
  537. clr
  538. pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a></center>'
  539. pl ''
  540. pl 'Right_Now <<$week>> <<day>> the_number, <<$month>>, <<year>> a_year.'
  541. pl '<a href="exec:dynamic $din_cheat_menu_week">Select Day of the Week</a>'
  542. pl '<a href="exec:day += 1 & dynamic $din_cheat_menu_time">+1 The_Day</a>'
  543. pl '<a href="exec:day -= 1 & dynamic $din_cheat_menu_time">-1 The_Day</a>'
  544. pl '<a href="exec:dynamic $din_cheat_menu_month">select Month</a>'
  545. pl '<a href="exec:year += 1 & dynamic $din_cheat_menu_time">+1 The_Year</a>'
  546. pl '<a href="exec:year -= 1 & dynamic $din_cheat_menu_time">-1 The_Year</a>'
  547. }
  548. $din_cheat_menu_week = {
  549. gs 'stat'
  550. clr
  551. pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a> - <a href="exec:dynamic $din_cheat_menu_time"><b>period_Of</b></a></center>'
  552. pl ''
  553. pl 'Right_Now <<$week>> <<day>> the_number, <<$month>>, <<year>> a_year.'
  554. pl '<a href="exec:week = 1 & dynamic $din_cheat_menu_time">Monday</a>'
  555. pl '<a href="exec:week = 2 & dynamic $din_cheat_menu_time">Tuesday</a>'
  556. pl '<a href="exec:week = 3 & dynamic $din_cheat_menu_time">Wednesday</a>'
  557. pl '<a href="exec:week = 4 & dynamic $din_cheat_menu_time">Thursday</a>'
  558. pl '<a href="exec:week = 5 & dynamic $din_cheat_menu_time">Friday</a>'
  559. pl '<a href="exec:week = 6 & dynamic $din_cheat_menu_time">Saturday</a>'
  560. pl '<a href="exec:week = 7 & dynamic $din_cheat_menu_time">Sunday</a>'
  561. }
  562. $din_cheat_menu_month = {
  563. gs 'stat'
  564. clr
  565. pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a> - <a href="exec:dynamic $din_cheat_menu_time"><b>period_Of</b></a></center>'
  566. pl ''
  567. pl 'Right_Now <<$week>> <<day>> the_number, <<$month>>, <<year>> a_year.'
  568. pl '<a href="exec:month = 1 & dynamic $din_cheat_menu_time">January</a>'
  569. pl '<a href="exec:month = 2 & dynamic $din_cheat_menu_time">February</a>'
  570. pl '<a href="exec:month = 3 & dynamic $din_cheat_menu_time">March</a>'
  571. pl '<a href="exec:month = 4 & dynamic $din_cheat_menu_time">April</a>'
  572. pl '<a href="exec:month = 5 & dynamic $din_cheat_menu_time">May</a>'
  573. pl '<a href="exec:month = 6 & dynamic $din_cheat_menu_time">June</a>'
  574. pl '<a href="exec:month = 7 & dynamic $din_cheat_menu_time">July</a>'
  575. pl '<a href="exec:month = 8 & dynamic $din_cheat_menu_time">August</a>'
  576. pl '<a href="exec:month = 9 & dynamic $din_cheat_menu_time">September</a>'
  577. pl '<a href="exec:month = 10 & dynamic $din_cheat_menu_time">October</a>'
  578. pl '<a href="exec:month = 11 & dynamic $din_cheat_menu_time">November</a>'
  579. pl '<a href="exec:month = 12 & dynamic $din_cheat_menu_time">December</a>'
  580. }
  581. $din_cheat_menu_magic = {
  582. gs 'stat'
  583. clr
  584. pl '<center><a href="exec:dynamic $objcheat_menu"><b>cheat menu</b></a></center>'
  585. pl ''
  586. pl '<a href="exec:magik += 1 & dynamic $din_cheat_menu_magic">is_magical: <<magik>></a>'
  587. pl ''
  588. if spelltuman = 0:pl '<a href="exec:spelltuman = 1 & dynamic $din_cheat_menu_magic">Cover the area fog</a>'
  589. if spellklon = 0:pl '<a href="exec:spellklon = 1 & dynamic $din_cheat_menu_magic">Substitute itself clone</a>'
  590. if spellstun = 0:pl '<a href="exec:spellstun = 1 & dynamic $din_cheat_menu_magic">paralyze the enemy</a>'
  591. if spellweap = 0:pl '<a href="exec:spellweap = 1 & dynamic $din_cheat_menu_magic">Invest in energy weapons (requires weapons)</a>'
  592. if spellwind = 0:pl '<a href="exec:spellwind = 1 & dynamic $din_cheat_menu_magic">blow away the fog</a>'
  593. if spellklon2 = 0:pl '<a href="exec:spellklon2 = 1 & dynamic $din_cheat_menu_magic">Substitute itself clones (3 pieces)</a>'
  594. if spellenergo = 0:pl '<a href="exec:spellenergo = 1 & dynamic $din_cheat_menu_magic">Create weak energy shield</a>'
  595. if spellinit = 0:pl '<a href="exec:spellinit = 1 & dynamic $din_cheat_menu_magic">Write a slight deceleration time</a>'
  596. if spellhel = 0:pl '<a href="exec:spellhel = 1 & dynamic $din_cheat_menu_magic">Battle Heal</a>'
  597. if spellfire0 = 0 or spellfire2 = 0 or spellfire3 = 0 or spellfire4 = 0 or spellfire5 = 0:
  598. pl ''
  599. pl '<b>Elements of Fire Spells:</b></a>'
  600. end
  601. if spellfire0 = 0:pl '<a href="exec:spellfire0 = 1 & dynamic $din_cheat_menu_magic">Flame</a>'
  602. if spellfire2 = 0:pl '<a href="exec:spellfire2 = 1 & dynamic $din_cheat_menu_magic">The release of fire</a>'
  603. if spellfire3 = 0:pl '<a href="exec:spellfire3 = 1 & dynamic $din_cheat_menu_magic">fire barrier</a>'
  604. if spellfire4 = 0:pl '<a href="exec:spellfire4 = 1 & dynamic $din_cheat_menu_magic">firestorm</a>'
  605. if spellfire5 = 0:pl '<a href="exec:spellfire5 = 1 & dynamic $din_cheat_menu_magic">Flame Shield</a>'
  606. if spellele0 = 0 or spellele2 = 0 or spellele3 = 0 or spellele4 = 0 or spellele5 = 0:
  607. pl ''
  608. pl '<b>Elements Lightning Spells:</b></a>'
  609. end
  610. if spellele0 = 0:pl '<a href="exec:spellele0 = 1 & dynamic $din_cheat_menu_magic">discharge</a>'
  611. if spellele2 = 0:pl '<a href="exec:spellele2 = 1 & dynamic $din_cheat_menu_magic">lightning</a>'
  612. if spellele3 = 0:pl '<a href="exec:spellele3 = 1 & dynamic $din_cheat_menu_magic">electric barrier</a>'
  613. if spellele4 = 0:pl '<a href="exec:spellele4 = 1 & dynamic $din_cheat_menu_magic">Dance of thousands of birds</a>'
  614. if spellele5 = 0:pl '<a href="exec:spellele5 = 1 & dynamic $din_cheat_menu_magic">dancing sphere</a>'
  615. if spellert0 = 0 or spellert2 = 0 or spellert3 = 0 or spellert4 = 0 or spellert5 = 0:
  616. pl ''
  617. pl '<b>Spells Earth Elements:</b></a>'
  618. end
  619. if spellert0 = 0:pl '<a href="exec:spellert0 = 1 & dynamic $din_cheat_menu_magic">quicksand</a>'
  620. if spellert2 = 0:pl '<a href="exec:spellert2 = 1 & dynamic $din_cheat_menu_magic">active protection</a>'
  621. if spellert3 = 0:pl '<a href="exec:spellert3 = 1 & dynamic $din_cheat_menu_magic">abyss</a>'
  622. if spellert4 = 0:pl '<a href="exec:spellert4 = 1 & dynamic $din_cheat_menu_magic">absolute protection</a>'
  623. if spellert5 = 0:pl '<a href="exec:spellert5 = 1 & dynamic $din_cheat_menu_magic">Sando</a>'
  624. if spellwind0 = 0 or spellwind2 = 0 or spellwind3 = 0 or spellwind4 = 0 or spellwind5 = 0:
  625. pl ''
  626. pl '<b>Spells with wind energy:</b></a>'
  627. end
  628. if spellwind0 = 0:pl '<a href="exec:spellwind0 = 1 & dynamic $din_cheat_menu_magic">wind gust</a>'
  629. if spellwind2 = 0:pl '<a href="exec:spellwind2 = 1 & dynamic $din_cheat_menu_magic">terrifying pressure</a>'
  630. if spellwind3 = 0:pl '<a href="exec:spellwind3 = 1 & dynamic $din_cheat_menu_magic">vacuum sphere</a>'
  631. if spellwind4 = 0:pl '<a href="exec:spellwind4 = 1 & dynamic $din_cheat_menu_magic">vacuum shells</a>'
  632. if spellwind5 = 0:pl '<a href="exec:spellwind5 = 1 & dynamic $din_cheat_menu_magic">devouring vacuum</a>'
  633. if spellwater0 = 0 or spellwater2 = 0 or spellwater3 = 0 or spellwater4 = 0 or spellwater5 = 0:
  634. pl ''
  635. pl '<b>Water Elemental spells:</b></a>'
  636. end
  637. if spellwater0 = 0:pl '<a href="exec:spellwater0 = 1 & dynamic $din_cheat_menu_magic">creek manna</a>'
  638. if spellwater2 = 0:pl '<a href="exec:spellwater2 = 1 & dynamic $din_cheat_menu_magic">flooding</a>'
  639. if spellwater3 = 0:pl '<a href="exec:spellwater3 = 1 & dynamic $din_cheat_menu_magic">blister</a>'
  640. if spellwater4 = 0:pl '<a href="exec:spellwater4 = 1 & dynamic $din_cheat_menu_magic">Water shark missile</a>'
  641. if spellwater5 = 0:pl '<a href="exec:spellwater5 = 1 & dynamic $din_cheat_menu_magic">The Great Flood'
  642. }
  643. $din_cheat_dynamic = {
  644. $dynamicCommand = input("Enter command to execute.")
  645. if $dynamicCommand = '':exit
  646. dynamic $dynamicCommand
  647. }
  648. $objcheat_menu = {
  649. gs 'stat'
  650. clr
  651. pl '<center><a href="exec:gs ''stat''"><b>Get out of the cheat menu</b></a></center>'
  652. pl ''
  653. pl '<a href="exec:dynamic $din_cheat_menu_permanent"><b>permanent</b></a>'
  654. pl '<a href="exec:dynamic $din_cheat_menu_look"><b>Appearance</b></a>'
  655. pl '<a href="exec:dynamic $din_cheat_menu_stats"><b>Characteristics of</b></a>'
  656. pl '<a href="exec:dynamic $din_cheat_menu_reputation"><b>Relationships and Reputation</b></a>'
  657. pl '<a href="exec:dynamic $din_cheat_menu_documents"><b>documents</b></a>'
  658. pl '<a href="exec:dynamic $din_cheat_menu_time"><b>manipulation of time</b></a>'
  659. if StoryLine = 0:pl '<a href="exec:dynamic $din_cheat_menu_magic"><b>Magic</b></a>'
  660. pl ''
  661. pl '<a href="exec:health = vital * 10 + stren * 5 + 1000 & willpower = intel * 5 + will * 5 + 1000 & manna = (intel * magik) + magik * 100 + vital * 10 + rikudo & dynamic $objcheat_menu">Complete recovery, manna, reason.</a>'
  662. pl '<a href="exec:dynamic $din_cheat_money">Change the amount of money</a>'
  663. pl '<a href="exec:money = 0 & dynamic $din_cheat_money">Zero the money</a>'
  664. pl ''
  665. pl '<a href="exec:dynamic $din_cheat_dynamic">Dynamic Input Command</a>'
  666. }
  667. $objmagic = {
  668. clr
  669. if magik = 0:
  670. pl 'You are unable to use magic.'
  671. else
  672. pl 'Available to you <<manna>> units of manna.'
  673. !!' Rikudo forces available to you <<rikudo>> units'
  674. nl
  675. pl '<b>BASIC SPELL:</b>' & nl
  676. if spelltuman > 0:pl 'Cover the area fog, a great way to hide their actions from the attacking enemy and not a bad way to increase the chance to dodge enemy attacks, as he can not see you in your fog (mana cost of 10 units)' & nl
  677. if spellklon > 0:pl 'Substitute itself clone powerful way to avoid enemy attacks substituting itself clone opponent gets to clone and not on you, he just wasted power (mana cost of 15 units)' & nl
  678. if spellstun > 0:pl 'Paralyze a great way to stop the enemy, he will not be able to defend and attack. (Cost 20 mana units)' & nl
  679. if spellweap > 0 and weapon > 0:pl 'Invest in energy weapons'
  680. if spellwind > 0:pl 'Blow away the fog, mist spell any scattering over the battlefield.' & nl
  681. if spellklon2 > 0:pl 'Substitute themselves clones (3 pieces), the enemy will not be able to get to you until you destroy all of your clones. (Cost 45 mana units)' & nl
  682. if spellenergo > 0:pl 'Create weak energy shield spell protects against all attacks of the physical nature, even if the enemy attack exceeds the capabilities of the shield and the shield will be destroyed by the first blow, you can still protect yourself from the damage (cost 50 mana units)' & nl
  683. if spellinit > 0:pl 'Create weak deceleration time powerful spell allowing you to move faster, you can snatch the initiative with this spell that would strike another spell to increase your chance to hit too, because you will move very quickly (cost 60 mana units)' & nl
  684. if spellhel > 0:pl 'Martial treatment restores or adds 400 health units in exchange for 400 units of manna.' & nl
  685. if stihia = 1:pl 'SPELL elements of fire' & nl
  686. if spellfire1 = 1:pl 'Flame. Inflicts little damage. (Cost 10 mana)' & nl
  687. if spellfire2 = 1:pl 'Release of fire. A damage. (100 mana cost)' & nl
  688. if spellfire3 = 1:pl 'Fire barrier, creates a shield of 750 units. (150 mana cost)' & nl
  689. if spellfire4 = 1:pl 'Firestorm. Causes great damage to an enemy difficult to dodge. (250 mana cost)' & nl
  690. if spellfire5 = 1:pl 'Flame Shield creates a shield of 2,500 units. (500 mana cost)' & nl
  691. if stihia = 2:pl 'SPELL element of lightning' & nl
  692. if spellele1 = 1:pl 'Discharge. Inflicts very little damage. (Cost 10 mana)' & nl
  693. if spellele2 = 1:pl 'Lightning. Inflicts above average. (100 mana cost)' & nl
  694. if spellele3 = 1:pl 'Electrical barrier creates a shield of 1,500. (150 mana cost)' & nl
  695. if spellele4 = 1:pl 'Dance of thousands of birds. Inflicts very high damage. (250 mana cost)' & nl
  696. if spellele5 = 1:pl 'Plyaschuschaya sphere creates a shield of 5,000 units. (500 mana cost)' & nl
  697. if stihia = 3:pl 'SPELL Element Earth' & nl
  698. if spellert1 = 1:pl 'Quicksand trap catches the enemy in quicksand and causes little damage. (Cost 10 mana)' & nl
  699. if spellert2 = 1:pl 'Active protection, creates a protective sphere of earth, stone and sand 2,500 mana and health protection, this protection is self-healing in 10 moves absorbing units 20 mana per turn. (100 mana cost)' & nl
  700. if spellert3 = 1:pl 'Abyss earth asunder underfoot enemy inflicting damage above average and depriving him of the ability to move. (150 mana cost)' & nl
  701. if spellert4 = 1:pl 'Absolute protection, creates a huge protective sphere of the earth, which regenerates itself every move and attack the enemy. (250 mana cost)' & nl
  702. if spellert5 = 1:pl 'Sando, two huge plates come out of the ground and collapse crushing the enemy inflicting massive damage and depriving him of his ability to move. 500 mana cost.' & nl
  703. if stihia = 4:pl 'Spells with wind energy' & nl
  704. if spellwind1 = 1:pl 'A gust of wind, causing very little damage and destroy clones and fog, it is very difficult to dodge. (Cost 10 mana)' & nl
  705. if spellwind2 = 1:pl 'Horrendous pressure, causing moderate damage and destroying clones and fog, it is very difficult to dodge. (100 mana cost)' & nl
  706. if spellwind3 = 1:pl 'Vacuum sphere, creates a shield of 1,500. (150 mana cost)' & nl
  707. if spellwind4 = 1:pl 'Vacuum shells do more damage and destroy clones and fog, it is very difficult to dodge. (250 mana cost)' & nl
  708. if spellwind5 = 1:pl 'Devouring vacuum sucks shield enemy destroying it whatever strength he was not. (500 mana cost)' & nl
  709. if stihia = 5:pl 'SPELL elements of water' & nl
  710. if spellwater1 = 1:pl 'Creek manna causes very little damage and absorbs a lot of mana. Cost 10 mana.' & nl
  711. if spellwater2 = 1:pl 'Flooding, causing moderate damage and absorbs manna above average. 100 mana cost.' & nl
  712. if spellwater3 = 1:pl 'Water bubble creates a protective sphere of water 1,500 protection from all influences, this protection is self-healing in 10 moves absorbing units 20 mana per turn. (150 mana cost)' & nl
  713. if spellwater4 = 1:pl 'Water shark missile, causing great damage and absorbs a lot of mana. Cost 250 mana.' & nl
  714. if spellwater5 = 1:pl 'Great flood, the water creates a huge sphere that absorbs enemy and deflating manna from it and handing it to provide increased protection. 500 mana cost.' & nl
  715. end
  716. }
  717. $objbody = {
  718. if musle >= salo:
  719. !!muscular type
  720. if bedra < 60:view 'images/body/fit.jpg'
  721. if bedra >= 60 and bedra < 70:view 'images/body/fit1.jpg'
  722. if bedra >= 70 and bedra < 80:view 'images/body/fit2.jpg'
  723. if bedra >= 80 and bedra < 90:view 'images/body/fit3.jpg'
  724. if bedra >= 90 and bedra < 100:view 'images/body/fit4.jpg'
  725. if bedra >= 100 and bedra < 110:view 'images/body/fit5.jpg'
  726. if bedra >= 110 and bedra < 120:view 'images/body/fit6.jpg'
  727. if bedra >= 120:view 'images/body/fit7.jpg'
  728. else
  729. !!bold type
  730. ! Updated to be consistent with current images
  731. if bedra < 60:
  732. view 'images/body/fat.jpg'
  733. elseif bedra < 70:
  734. view 'images/body/fat1.jpg'
  735. elseif bedra < 80:
  736. view 'images/body/fat2.jpg'
  737. elseif bedra < 90:
  738. view 'images/body/fat3.jpg'
  739. elseif bedra < 100:
  740. view 'images/body/fat4.jpg'
  741. elseif bedra < 110:
  742. view 'images/body/fat5.jpg'
  743. elseif bedra < 120:
  744. view 'images/body/fat6.jpg'
  745. else
  746. view 'images/body/fat7.jpg'
  747. end
  748. end
  749. }
  750. $objtattoos = {
  751. $tatlipdi = {
  752. view 'images/Body/tatlip<<tatlip>>.jpg'
  753. }
  754. $tatpledi = {
  755. view 'images/body/tatplech<<tatplech>>.jpg'
  756. }
  757. $tatbackdi = {
  758. view 'images/body/tatb<<tatback>>.jpg'
  759. }
  760. $tatupbdi = {
  761. view 'images/body/tatupb<<tatupb>>.jpg'
  762. }
  763. $tatvagdi = {
  764. view 'images/body/tatvag<<tatvag>>.jpg'
  765. }
  766. $tatlegdi = {
  767. view 'images/body/tatleg<<tatleg>>.jpg'
  768. }
  769. clr
  770. if tatlip > 0:pl '<a href="exec:dynamic $tatlipdi">tattoo on the lip</a>.'
  771. if tatplech > 0:pl '<a href="exec:dynamic $tatpledi">tattoo on the shoulders</a>'
  772. if tatback > 0:pl '<a href="exec:dynamic $tatbackdi">tattoo on the back</a>'
  773. if tatupb > 0:pl '<a href="exec:dynamic $tatupbdi">tattoo on the lower back</a>'
  774. if tatvag > 0:pl '<a href="exec:dynamic $tatvagdi">Tattoos in the groin</a>'
  775. if tatleg > 0:pl '<a href="exec:dynamic $tatlegdi">tattoo on the legs</a>'
  776. if tatvag = 0 and tatlip = 0 and tatplech = 0 and tatback = 0 and tatupb = 0 and tatleg = 0:pl 'You pristine pure body. Not in terms of corruption, but in terms of tattoos.'
  777. }
  778. $objpirsing = {
  779. $dipirsA = {
  780. view 'images/body/pirsA.jpg'
  781. }
  782. $dipirsB = {
  783. view 'images/body/pirsB.jpg'
  784. }
  785. $dipirsC = {
  786. view 'images/body/pirsC.jpg'
  787. }
  788. $dipirsD = {
  789. view 'images/body/pirsD.jpg'
  790. }
  791. $dipirsE = {
  792. view 'images/body/pirsE.jpg'
  793. }
  794. $dipirsF = {
  795. view 'images/body/pirsF.jpg'
  796. }
  797. $dipirsG = {
  798. view 'images/body/pirsG.jpg'
  799. }
  800. $dipirsN = {
  801. view 'images/body/pirsN.jpg'
  802. }
  803. clr
  804. if pirsA = 1:pl 'Your tongue pierced and there is inserted a small bar that is constantly felt in the mouth. <a href="exec:dynamic $dipirsA">view</a>'
  805. if pirsB = 1:pl 'You pierced lower lip and there vdet ring. <a href="exec:dynamic $dipirsB">view</a>'
  806. if pirsC = 1:pl 'On your ears hang earrings. <a href="exec:dynamic $dipirsC">view</a>'
  807. if pirsD = 1:pl 'You have a small ring in the nose. <a href="exec:dynamic $dipirsD">view</a>'
  808. if pirsE = 1:pl 'In your eyebrow barbell inserted. <a href="exec:dynamic $dipirsE">view</a>'
  809. if pirsF = 1:pl 'You have pierced nipples and inserted them in small metal rod. <a href="exec:dynamic $dipirsF">view</a>'
  810. if pirsG = 1:pl 'You pierced lips on the vagina and there inserted rings. <a href="exec:dynamic $dipirsG">view</a>'
  811. if pirsN = 1:pl 'You pierced navel, and there is inserted rod. <a href="exec:dynamic $dipirsN">view</a>'
  812. }
  813. $objobnovit = {
  814. gs 'stat'
  815. }
  816. $objbloknot = {
  817. clr
  818. pl '<center><b><font color="maroon">Diary</font></b></center>'
  819. if housr > 0:pl 'I live in a two-room apartment in a residential area. Payment for the apartment is taken automatically in the amount of 3,000 rubles each 25e number. Plus a light bill.' & nl
  820. if work > 0 or stripwork > 0 or workPTU > 2:pl '<center><font color="maroon">-- My Job --</font></center>'
  821. if workPTU > 2:pl 'I work as a teacher in the Lyceum. Working days Mon-Sat from 14.00 to 16.00. Salary 300 rubles / day. Dress code - office, strict. The road from the apartment to the Lyceum takes 2 hours and 10 minutes.' & nl
  822. if (work = 1 or cheatWork = 1) and workKafe > 0:pl 'I work as a waitress in a cafe. Need to come to work with 11 to 12 working days, Tuesday, Wednesday, Thursday. At work every day you get tips from customers and automatically transferred to the 25th salary number.' & nl
  823. if (work = 1 or cheatWork = 1) and workhosp > 0:pl 'I work as a nurse in the clinic. Need to come to work from 8 to 9 on weekdays. Salary is automatically transferred to the 25th number.' & nl
  824. if (work = 1 or cheatWork = 1) and worksalon > 0:pl 'I work as a masseuse in the cabin. Need to come to work from 9 to 10 working days, Monday, Wednesday and Friday. Salary is automatically transferred to the 25th number.' & nl
  825. if (work = 1 or cheatWork = 1) and workhosp > 0:pl 'I work as a secretary in the office. Need to come to work until 9 on weekdays. Salary is automatically transferred to the 25th number.' & nl
  826. if (work = 1 or cheatWork = 1) and tanwork > 0:pl 'I work as a governess at Tani. Salary is automatically transferred to the 25th number.' & nl
  827. if (work = 1 or cheatWork = 1) and young_shop_work = 1:pl 'I work in a store saleswoman Keys Pussy. Need to come to work in 15 workdays all except Saturday and Sunday. Salary is issued once a week on Fridays.' & nl
  828. if workrin = 1:pl 'I work in a tent on the market Arthur clothing saleswoman. Work on Tuesdays, Thursdays and Saturdays, come at 8 o´clock. Salary depends on the sales.' & nl
  829. if stripwork >= 1:pl 'I work as a stripper, schedule a free, on any day from 15 up to 2 nights. Salary only tip.' & nl
  830. if bumtolik = 4:pl 'Service for the Homeless is located in the Northern Region.' & nl
  831. if bumtolik = 5:pl 'You volunteer to help the homeless service. Office hours 9 prior_to 17, Weekend Saturday and Sunday.' & nl
  832. if husband > 0 or kid > 0 :'<center><font color="maroon">-- My Family --</font></center>'
  833. if husband > 0:pl 'I''ve been married for <<husbanday>> days. My husband <<$husName>> <<$husBody>> <<$husFat>> <<$husHair>>. Member <<husDick>> Relationships <<husband>>' & nl
  834. if kid > 0:
  835. i = 1
  836. if kid = 1:
  837. pl 'I have a child named <<$kidname[i]>>, aged <<kidage[i]>>.'
  838. else
  839. p 'I have children'
  840. :LoopKidCounter
  841. if i <= kid:
  842. if i > 1: p ','
  843. p ' <<$kidname[i]>>, aged <<kidage[i]>>'
  844. i += 1
  845. jump 'LoopKidCounter'
  846. end
  847. pl '.'
  848. end
  849. nl
  850. end
  851. if $bfsex > 0:pl '<<$bfsex>>'
  852. if bfA > 1:pl 'My current boyfriend, <<$boyA>>, is a <<$boybodyA>> <<$boybodA>> <<$boyfaceA>>. He is usually <<$boyCloA>> Our relationship is <<bfA>> and we have met <<dayA>> times.' & nl
  853. if harakBoyA = 0 and bfA > 1:pl 'He is calm and self-possessed character.' & nl
  854. if harakBoyA = 1 and bfA > 1:pl 'He is cheerful and sociable nature.' & nl
  855. if harakBoyA = 2 and bfA > 1:pl 'He is irascible and very rigid.' & nl
  856. if bfB > 1:pl 'Another boyfriend, <<$boyB>>, is a <<$boybodyB>> <<$boybodB>> <<$boyfaceB>>. He is usually <<$boyCloB>>. Our relationship is <<bfB>> and we have met <<dayB>> times.' & nl
  857. if bfC > 1:pl 'My third boyfriend, <<$boyC>>, is a <<$boybodyC>> <<$boybodC>> <<$boyfaceC>>. He is usually <<$boyCloC>>. Our relationship is <<bfC>> and we have met <<dayC>> times.' & nl
  858. gs 'Menu.Create', 'zapisMenu'
  859. gs 'Menu.Add', 'zapisMenu', 'Recording from today', '', 'MenuLoc', 'zapisosn'
  860. gs 'Menu.Add', 'zapisMenu', 'To record on 1th line', '', 'MenuLoc', 'zapis'
  861. gs 'Menu.Add', 'zapisMenu', 'With a red line 1th line', '', 'MenuLoc', 'ot'
  862. gs 'Menu.Add', 'zapisMenu', 'To record on 2th line', '', 'MenuLoc', 'zapis2'
  863. gs 'Menu.Add', 'zapisMenu', 'With a red line 2th line', '', 'MenuLoc', 'ot2'
  864. gs 'Menu.Add', 'zapisMenu', 'To record on 3th line', '', 'MenuLoc', 'zapis3'
  865. gs 'Menu.Add', 'zapisMenu', 'With a red line 3th line', '', 'MenuLoc', 'ot3'
  866. gs 'Menu.Add', 'zapisMenu', 'To record on 4th line', '', 'MenuLoc', 'zapis4'
  867. gs 'Menu.Add', 'zapisMenu', 'With a red line 4th line', '', 'MenuLoc', 'ot4'
  868. gs 'Menu.Add', 'zapisMenu', 'To record on 5th line', '', 'MenuLoc', 'zapis5'
  869. gs 'Menu.Add', 'zapisMenu', 'With a red line 5th line', '', 'MenuLoc', 'ot5'
  870. gs 'Menu.Add', 'zapisMenu', 'To record on 6th line', '', 'MenuLoc', 'zapis6'
  871. gs 'Menu.Add', 'zapisMenu', 'With a red line 6th line', '', 'MenuLoc', 'ot6'
  872. gs 'Menu.Add', 'zapisMenu', 'To record on 7th line', '', 'MenuLoc', 'zapis7'
  873. gs 'Menu.Add', 'zapisMenu', 'With a red line 7th line', '', 'MenuLoc', 'ot7'
  874. gs 'Menu.Add', 'zapisMenu', 'To record on 8th line', '', 'MenuLoc', 'zapis8'
  875. gs 'Menu.Add', 'zapisMenu', 'With a red line 8th line', '', 'MenuLoc', 'ot8'
  876. gs 'Menu.Add', 'zapisMenu', 'To record on 9th line', '', 'MenuLoc', 'zapis9'
  877. gs 'Menu.Add', 'zapisMenu', 'With a red line 9th line', '', 'MenuLoc', 'ot9'
  878. gs 'Menu.Add', 'zapisMenu', 'To record on 10th line', '', 'MenuLoc', 'zapis10'
  879. gs 'Menu.Add', 'zapisMenu', 'With a red line 10th line', '', 'MenuLoc', 'ot10'
  880. gs 'Menu.Create', 'disMenu'
  881. gs 'Menu.Add', 'disMenu', 'Delete an entry from the 1st row', '', 'MenuLoc', 'diszapis'
  882. gs 'Menu.Add', 'disMenu', 'Delete an entry from the 2nd row', '', 'MenuLoc', 'diszapis2'
  883. gs 'Menu.Add', 'disMenu', 'Delete an entry from the 3rd row', '', 'MenuLoc', 'diszapis3'
  884. gs 'Menu.Add', 'disMenu', 'Delete an entry from the 4th row', '', 'MenuLoc', 'diszapis4'
  885. gs 'Menu.Add', 'disMenu', 'Delete an entry from the 5th row', '', 'MenuLoc', 'diszapis5'
  886. gs 'Menu.Add', 'disMenu', 'Delete an entry from the 6th row', '', 'MenuLoc', 'diszapis6'
  887. gs 'Menu.Add', 'disMenu', 'Delete an entry from the 7th row', '', 'MenuLoc', 'diszapis7'
  888. gs 'Menu.Add', 'disMenu', 'Delete an entry from the 8th row', '', 'MenuLoc', 'diszapis8'
  889. gs 'Menu.Add', 'disMenu', 'Delete an entry from the 9th row', '', 'MenuLoc', 'diszapis9'
  890. gs 'Menu.Add', 'disMenu', 'Delete an entry from the 10th row', '', 'MenuLoc', 'diszapis10'
  891. pl '<a href="exec:gs ''Menu.Call'', ''zapisMenu''">Make an entry</a> or <a href="exec:gs ''Menu.Call'', ''disMenu''">delete the record</a>'
  892. pl '<<$zapisOsn>>'
  893. pl '<<$zapis>>'
  894. pl '<<$zapis2>>'
  895. pl '<<$zapis3>>'
  896. pl '<<$zapis4>>'
  897. pl '<<$zapis5>>'
  898. pl '<<$zapis6>>'
  899. pl '<<$zapis7>>'
  900. pl '<<$zapis8>>'
  901. pl '<<$zapis9>>'
  902. pl '<<$zapis10>>'
  903. }
  904. $objavariya = {
  905. '<center><b>YOU HAVE JUST BEEN USED EMERGENCY LEAVE BLANK SCREEN Bagan</b></center>'
  906. *nl
  907. '<center><b>not use this feature without a good reason, can cause STABLE ERROR THAT WILL RUIN YOUR CONSERVATION</b></center>'
  908. *nl
  909. if StoryLine = 1:gt 'gorodok'
  910. gt 'street'
  911. }
  912. $objnewmenu = {
  913. killobj
  914. oldobjmenu = 0
  915. addobj 'Character'
  916. addobj 'See'
  917. addobj 'Others'
  918. addobj 'Menu'
  919. }
  920. $objoldmenu = {
  921. killobj
  922. oldobjmenu = 1
  923. addobj '<font color="green">Character</font>'
  924. addobj 'Skills'
  925. addobj 'Statistics'
  926. if magik > 0:addobj 'The_Magic'
  927. addobj 'Face'
  928. addobj 'Body'
  929. addobj 'Clothing'
  930. addobj 'Tattoos'
  931. addobj 'Piercing'
  932. ! WD: Uninitialised ~ 'mobila'
  933. if mobila > 0:addobj 'Phone'
  934. addobj 'Diary'
  935. addobj 'Emergency exit'
  936. addobj 'Update'
  937. addobj 'Menu'
  938. addobj 'New Menu'
  939. addobj 'Cheat menu'
  940. if disable_autosave = 1:
  941. addobj 'Enable autosave'
  942. else
  943. addobj 'Disable autosave'
  944. end
  945. }
  946. $objautosave = {
  947. if oldobjmenu = 0:
  948. if disable_autosave = 1:
  949. disable_autosave = 0
  950. else
  951. disable_autosave = 1
  952. end
  953. elseif oldobjmenu = 1:
  954. if disable_autosave = 1:
  955. disable_autosave = 0
  956. delobj 'Enable autosave'
  957. addobj 'Disable autosave'
  958. else
  959. disable_autosave = 1
  960. delobj 'Disable autosave'
  961. addobj 'Enable autosave'
  962. end
  963. end
  964. gs 'stat'
  965. }
  966. $menu_character[0] = 'Description:$menu_descrip'
  967. $menu_character[1] = 'Characteristics:$menu_skills'
  968. $menu_character[2] = 'Usage:$menu_statistika'
  969. if magik > 0:$menu_character[3] = 'Magic:$menu_magic'
  970. $menu_lookon[0] = 'Face:$menu_face'
  971. $menu_lookon[1] = 'Body:$menu_body'
  972. $menu_lookon[2] = 'Clothing:$menu_clothes'
  973. $menu_lookon[3] = 'Tattoos:$menu_tattoos'
  974. $menu_lookon[4] = 'Piercing:$menu_pirs'
  975. $menu_other[0] = 'Update:$menu_obnovit'
  976. $menu_other[1] = 'Diary:$menu_bloknot'
  977. $menu_other[2] = 'Emergency exit:$menu_avariya'
  978. $menu_other[3] = 'Old menu:$menu_addoldmenu'
  979. $menu_other[4] = 'Cheat menu:$menu_cheat'
  980. if disable_autosave = 1:
  981. $menu_other[5] = 'Enable autosave:$menu_autosave'
  982. else
  983. $menu_other[5] = 'Disable autosave:$menu_autosave'
  984. end
  985. ! WD: Uninitialised ~ 'mobila'
  986. if mobila > 0:$menu_other[6] = 'Phone:$menu_mobila'
  987. !!old menu: beginning
  988. if $selobj = '<font color="green">Character</font>':dynamic $objdescrip
  989. if $selobj = 'Skills':dynamic $objskills
  990. if $selobj = 'Statistics':dynamic $objstatistika
  991. if magik > 0:if $selobj = 'Magic':dynamic $objmagic
  992. if $selobj = 'Face':view FUNC('$face_image')
  993. if $selobj = 'Body':dynamic $objbody
  994. !!if $selobj = 'Clothing':dynamic $objclothes
  995. if $selobj = 'Tattoos':dynamic $objtattoos
  996. if $selobj = 'Piercing':dynamic $objpirsing
  997. if $selobj = 'Diary':dynamic $objbloknot
  998. if $selobj = 'Emergency exit':dynamic $objavariya
  999. if $selobj = 'Update':gs 'stat'
  1000. if $selobj = 'New Menu':dynamic $objnewmenu
  1001. if $selobj = 'Cheat menu':dynamic $objcheat_menu
  1002. if disable_autosave = 1:
  1003. if $selobj = 'Enable autosave':dynamic $objautosave
  1004. else
  1005. if $selobj = 'Disable autosave':dynamic $objautosave
  1006. end
  1007. !!old menu: end
  1008. !!The new menu: beginning
  1009. if $selobj = 'Character':menu '$menu_character'
  1010. if $selobj = 'See':menu '$menu_lookon'
  1011. if $selobj = 'Others':menu '$menu_other'
  1012. !!The new menu: end
  1013. if $selobj = 'Player':
  1014. clr
  1015. pl 'Your name <<$name>> <<$surname>>. You <<age>> years. <<$vneshPRE>>'
  1016. pl 'You have short black hair and flashing starting gray, small brown eyes and willed jaw covered by blue Shaved bristle.'
  1017. pl 'Growth <<rost>> cm, weight 100 kg.'
  1018. end
  1019. ! WD: broken 'Menu' fix, remove Menu.Builder
  1020. $menu_mainMenu[0] = 'Statusbar:MenuMainLoc'
  1021. $menu_mainMenu[1] = 'Text notation:MenuMainLoc'
  1022. if $selobj = 'Menu':menu '$menu_mainMenu'
  1023. !'
  1024. if $selobj = 'Menu':
  1025. clr
  1026. gs 'Menu.Create', 'mainMenu'
  1027. gs 'Menu.Add', 'mainMenu', 'status bar', '', 'MenuMainLoc', '0'
  1028. gs 'Menu.Add', 'mainMenu', 'text notation', '', 'MenuMainLoc', '1'
  1029. gs 'Menu.Call', 'mainMenu'
  1030. end
  1031. '!
  1032. unselect
  1033. --- onobjsel ---------------------------------