005_onobjsel 70 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177
  1. # onobjsel
  2. !!!dynamics!!!
  3. $din_show_tits = {
  4. view
  5. view 'images/body/t<<tits>>.jpg'
  6. }
  7. $objdescrip = {
  8. clr
  9. pl 'Your name is <<$name>> <<$surname>>.'
  10. pl 'You are <<age>> <<$letgoda>>, but looking at you, people would guess you are <<vidage>> <<$letgoda2>>.'
  11. !!!0.2.6 extension
  12. if StoryLine > 0:
  13. pl 'Friends and family sometimes call you <<$nickname>>'
  14. else
  15. pl 'Friends sometimes call you <<$nickname>>'
  16. end
  17. !!!
  18. if birthday > 0 and birthmonth > 0:pl 'Your date of birth is <<birthday>>.0<<birthmonth>>.<<birthyear>>, the'
  19. pl 'You are <<rost>> cm tall, you weigh <<ves>> pounds.'
  20. pl '<<$body>>'
  21. pl '<a href="exec:dynamic $objbody"><<grudi>> - <<talia>> - <<bedra>>, <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'
  22. pl '<<$anus>>'
  23. pl '<<$vnesh>>'
  24. pl '<<$hair>>'
  25. pl '<<$lip>>'
  26. pl '<<$skin>>'
  27. pl '<<$glaza>>'
  28. pl '<<$mop>>'
  29. pl '<<$leghair>>'
  30. pl '<<$lobok>>'
  31. nl
  32. 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>'
  33. 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>"
  34. if curly > 0:pl 'Your curls are good for another <<curly>> days.'
  35. if zub = 1:$zuba = ' tooth'
  36. if zub >= 2:$zuba = ' teeth'
  37. if zub > 0:pl 'You have <<zub>><<$zuba>>.'
  38. !pl 'vnesh <<vnesh>>'
  39. !pl 'curlykoef <<curlykoef>> a maximum of 1'
  40. !pl 'tits <<tits>> A maximum of 6'
  41. !pl 'lip <<lip>> a maximum of 4'
  42. !pl 'tanKoef <<tanKoef>> a maximum of 1'
  43. !pl 'skin <<skin>> a maximum of 4'
  44. !pl 'mop <<mop>> a maximum of 4'
  45. !pl 'resnic <<resnic>> a maximum of 2'
  46. !pl 'glaraz <<glaraz>> a maximum of 3'
  47. !pl 'bodykoef <<bodykoef>> a maximum of 8'
  48. !pl 'legkoef <<legkoef>> a maximum of 3'
  49. !pl 'lobkoef <<lobkoef>> a maximum of 3'
  50. !pl 'odevnesh <<odevnesh>> a maximum of 15'
  51. !pl 'sweat <<sweat>> the maximum 0'
  52. !pl 'hapri <<hapri>> a maximum of 1'
  53. !!!!!!!! Maruda Hair Mod
  54. if hairlength > 41 and hscrunch >= 1:
  55. if hscrunchw = 0 and hpingripw = 0:pl 'As you have a scrunchy, you can arrange your hair into a <a href="exec:set hscrunchw = 1 & dynamic $objdescrip">ponytail</a>. You have <<hscrunch>> scrunchies left.'
  56. if hscrunchw = 1:pl 'Remove the <a href="exec:set hscrunchw = 0 & dynamic $objdescrip">scrunchie</a> to get rid of the ponytail.'
  57. end
  58. if hairlength > 41 and hpingrip >= 1:
  59. if hscrunchw = 0 and hpingripw = 0:pl 'You have several clips, pins and grips for you hair. Hence, you can <a href="exec:set hpingripw = 1 & dynamic $objdescrip">updo your hair</a>. You have <<hpingrip>> hair accessories at your disposal.'
  60. if hpingripw = 1:pl 'Let your hair <a href="exec:set hpingripw = 0 & dynamic $objdescrip">flow free</a>.'
  61. end
  62. if hairlength > 80 and hscrunch >= 2:
  63. 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>.'
  64. if hscrunchw = 2:pl '<a href="exec:hpigtail = 0 & hscrunchw = 0 & dynamic $objdescrip">Remove</a> your scrunchies and let your hair flow free again.'
  65. end
  66. if hscrunch < 1:set hscrunchw = 0
  67. if hpingrip < 1:set hpingripw = 0
  68. if hscrunch < 2:set hpigtail = 0
  69. !!!!!!!! Maruda Hair Mod
  70. }
  71. $objskills = {
  72. clr
  73. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!1remake
  74. !if salo > musle * 4:set $fat = 'You have a chubby disposition'
  75. !if salo <= musle * 4 and fat > musle * 2:set $fat = 'You have a soft curvy body that still carries an elastic finesse.'
  76. !if salo <= musle * 2 and fat > musle:set $fat = 'You have an average body showing signs that you take care of yourself.'
  77. !if salo <= musle and fat >= musle / 2:set $fat = 'Your body is slim and trim. You probably workout often '
  78. !if salo < musle / 2:set $fat = 'Your body is a prayer to the god of fitness! Your skin is taught against your lithe musculature.'
  79. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  80. pl 'Attractiveness <<vnesh>>'
  81. pl 'Power <<stren>>'
  82. pl 'Speed ​​<<speed>>'
  83. pl 'Agility <<agil>>'
  84. pl 'Endurance <<vital>>'
  85. pl 'Intelligence <<intel>>'
  86. pl 'Willpower <<will>>'
  87. pl 'Reaction <<react>>'
  88. pl '<<$fat>>'
  89. !pl 'Bezstydstvo <<shameless>>'
  90. if SUB > 0:pl 'Subordination <<SUB>>'
  91. if DOM > 0:pl 'Dominance <<DOM>>'
  92. !pl 'Muscles <<$musle>>'
  93. if magik > 0:pl 'Magic <<magik>>'
  94. if Jab > 0:pl 'Jab - <<Jab>>'
  95. if Punch > 0:pl 'Power Strikes - <<Punch>>'
  96. if Kik > 0:pl 'Kicks - <<Kik>>'
  97. if KikDef > 0:pl 'Protection against - <<KikDef>>'
  98. if beg > 0:pl 'Skill Run - <<beg>>'
  99. if volleyboll > 0:pl 'Skill volleyball - <<volleyboll>>'
  100. if oficiant > 0:pl 'Skills waitresses - <<oficiant>>'
  101. if vokal > 0:pl 'Vocal skills <<vokal>>'
  102. if dance > 0:pl 'Skill Dance - <<dance>>'
  103. if dancePRO > 0:pl 'Regular dancing skilllevel - <<dancePRO>>'
  104. if stripdance > 0:pl 'Striptease skilllevel - <<stripdance>>'
  105. if poledance > 0:pl 'Poledancing skilllevel- <<poledance>>'
  106. if shoot > 0:pl 'Shooting Accuracy - <<shoot>>'
  107. if kid = 1:pl 'You have a child, <<$polreb[1]>> name <<$kidname[1]>>. Born <<daykid[1]>>.<<monthkid[1]>>.<<yearkid[1]>>y. Age <<kidage[1]>>'
  108. if SchoolAtestat = 0 and StoryLine > 0:
  109. if Suspeh >= 90:pl 'You are an A+ student.'
  110. if Suspeh >= 80 and Suspeh < 90:pl 'You are a bright student, just not the top of your class.'
  111. if Suspeh >= 70 and Suspeh < 80:pl 'You are an above average student, but you have to work hard to keep up.'
  112. 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."
  113. 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."
  114. 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."
  115. if Suspeh < 40:pl "You are the class nitwit. You're still not sure how you got this far in the first place."
  116. if schoolprogul > 1:pl 'Absenteeism in school <<schoolprogul>>'
  117. end
  118. }
  119. $objstatistika = {
  120. clr
  121. if opPRE = 0:pl 'It has been <<daystart>> the game has started.'
  122. if BuyHous = 2 and ArendHouseSL >0:pl 'You have rented an apartment in the residential area <<ArendHouseSL>> days.'
  123. if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0:
  124. pl 'Professional Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw'
  125. pl '<<KikWinPro>> (<<KikWinProKO>>KO) - <<KikLossPro>> (<<KikLossProKO>>KO) - <<KikDrawPro>>'
  126. nl
  127. end
  128. if Win > 0 or Loss > 0:pl 'Wins in fights <<Win>>, losses in fights <<Loss>>' & nl
  129. if KisameDead = 1:pl 'You killed Kisame.'& nl
  130. if razradKik > 0:pl '<<$razradKik>>' & nl
  131. if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0:
  132. pl 'Amateur Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw'
  133. pl '<<KikWinAm>> (<<KikWinAmKO>>KO) - <<KikLossAm>> (<<KikLossAmKO>>KO) - <<KikDrawAm>>'
  134. nl
  135. end
  136. if maxdamage > 0:pl 'The impact force on the dynamometer <<maxdamage>> kN' & nl
  137. if Irina > 0:pl 'Friendship with Irene <<Irina>>'
  138. if Givi > 0:pl 'Friendship Givi K. <<Givi>>'
  139. if Ashot > 0:pl 'Friendship with Ashot <<Ashot>>'
  140. if Tamara > 0:pl 'Friendship with Tamara <<Tamara>>'
  141. if Dmitry > 0:pl 'Friendship with Dima <<Dmitry>>'
  142. if afra > 0:pl 'Friendship with blacks <<afra>>'
  143. if vika > 0:pl 'Friendship with Vika <<vika>>'
  144. if kat > 0:pl 'Friendship with Kate <<kat>>'
  145. if nastjaqw > 0:pl 'Friendship with Nastya <<nastjaqw>>'
  146. !!!WD: Formatting
  147. if (Irina + Givi + Ashot + Tamara + Dmitry + afra + gosh + vika + kat + nastjaqw + tanya) > 0:nl
  148. !!!
  149. if modelfoto > 0:pl 'You filmed naked <<modelfoto>> times'
  150. !!!Kept because of community kiosk version
  151. if exhibi > 0:pl 'Experienced exhibitionism <<exhibi>>'
  152. !!!
  153. if stripdancesum > 0:pl '<<stripdancesum>> times dancing in the stripclub'
  154. if profiDanceTime > 0:pl 'You danced <<profiDanceTime>> professionally.'
  155. if razradKik = 1:set $razradKik = "You're ranked III in amateur kickboxing"
  156. if razradKik = 2:set $razradKik = "You're ranked II in amateur kickboxing"
  157. if razradKik = 3:set $razradKik = "You're ranked I in amateur kickboxing"
  158. if razradKik = 4:set $razradKik = "You are a candidate for the title of Master in Kickboxing"
  159. if razradKik = 5:set $razradKik = 'You have the title of Master Kickboxer'
  160. if SchoolAtestat = 1:pl 'You have finished school.'
  161. if diplom = 1:pl 'You graduated.'
  162. if teachlevel > 0:pl 'Your credibility as a teacher is <<teachlevel>>'
  163. if kolsorev > 0:pl 'You have participate <<kolsorev>> in a running race'
  164. if bronzebeg > 0:pl '<<bronzebeg>> - bronze medals on the run'
  165. if silverbeg > 0:pl '<<silverbeg>> - silver medals for event'
  166. if goldbeg > 0:pl '<<goldbeg>> - gold medals in running'
  167. if razradbegEB > 0:pl '<<razradbegEB>> times bronze medalist of European Championship'
  168. if razradbegES > 0:pl '<<razradbegES>> fold vice champion of Europe'
  169. if razradbegEG > 0:pl '<<razradbegEG>> time European champion.'
  170. if razradbeg = 1:pl 'You have third sports category for event'
  171. if razradbeg = 2:pl 'You 2nd sports category for event'
  172. if razradbeg = 3:pl 'You 1st sports category for event'
  173. if razradbeg = 4:pl 'You have the title of Candidate Master of Sports for event'
  174. if razradbeg = 5:pl 'You have the title of Master of Sports in the run'
  175. if razradbeg >= 6:pl 'You have the title of International Master of Sports for event'
  176. !!!WD:FORMATING
  177. if (razradKik + SchoolAtestat + diplom + teachlevel + kolsorev + bronzebeg + silverbeg + goldbeg + razradbegEG + razradbeg) > 0:nl
  178. !!!
  179. if mastr > 0:pl 'Masturbated <<mastr>> time'
  180. if throat > 0:pl 'Capacity of the throat <<throat>>'
  181. if vagina > 0:pl 'Elasticity of the vagina <<vagina>>'
  182. if vagina = 0 and sex = 0:pl 'You are a virgin.'
  183. if anus > 0:pl '<<$anus>>'
  184. nl
  185. if GorSlut = 1:pl 'In the town you are known as a flirt.'
  186. if GorSlut = 2:pl 'In the town you are known to have sucked a few cocks.'
  187. if GorSlut = 3:pl 'In the town you are known as a great cocksucker.'
  188. if GorSlut = 4:pl 'In the town you are known to have fucked several boys.'
  189. if GorSlut = 5:pl 'In the town you are known the slut that would do anything.'
  190. if GorSlut = 6:pl 'In the town you are known as a prostitute who will take money for most extreme sex acts.'
  191. !!!WD:FORMATING
  192. if GorSlut > 0:nl
  193. !!!
  194. if guy > 0:pl 'You had <<guy>> guys.'
  195. if divorced > 0:pl 'You have <<divorced>> husbands.'
  196. if suprdolg > 0:pl 'Performed conjugal duty to her husband <<suprdolg>> time'
  197. if gang > 0:pl 'Group sex <<gang>> times'
  198. if sex > 0 and sexa = 0:pl 'Vaginal sex <<sex>> times.'
  199. if sex > 0 and sexa > 0:pl 'Vaginal sex <<sex>> times from them <<sexa>> times with her boyfriend.'
  200. if bj > 0 and gloryhole = 0 and balls = 0 and bja = 0:pl 'Blowjob done <<bj>> times.'
  201. if bj > 0 and gloryhole = 0 and balls = 0 and bja > 0:pl 'Blowjob done <<bj>> times, of which <<bja>> times her boyfriend'
  202. if bj > 0 and 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.'
  203. if bj > 0 and 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'
  204. if bj > 0 and gloryhole = 0 and balls > 0 and bja = 0:pl 'Blowjob done <<bj>> times, sucked balls <<balls>> times.'
  205. if bj > 0 and gloryhole = 0 and balls > 0 and bja > 0:pl 'Blowjob done <<bj>> times, sucked balls <<balls>> times. Just one <<bja>> times her boyfriend'
  206. if bj > 0 and 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.'
  207. if bj > 0 and 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'
  208. if hj > 0 and hja = 0:pl 'Guys jerking off <<hj>> times'
  209. if hj > 0 and hja > 0:pl 'Guys jerking off <<hj>> times from them <<hja>> times masturbate her boyfriend'
  210. if hump > 0:pl 'About you wanker member <<hump>> times'
  211. if rape > 0:pl 'You have been raped <<rape>> times'
  212. if anal > 0 and anala = 0:pl 'Anal <<anal>> times'
  213. if anal > 0 and anala > 0:pl 'Anal <<anal>> times from them <<anala>> times with her boyfriend'
  214. if kuni > 0:pl 'You did cunnilingus <<kuni>> times'
  215. if pegging > 0:pl 'Pegging <<pegging>> times'
  216. if spank > 0:pl 'You ran your ass <<spank>> times'
  217. !!!WD:FORMATING
  218. if (guy + divorced + suprdolg + gang + sex + bj + hj + hump + rape + anal + kuni + pegging + spank) > 0:nl
  219. !!!
  220. if slutty > 0 and bordelslutty = 0:pl 'Sold your love <<slutty>> time.'
  221. if slutty > 0 and bordelslutty > 0:pl 'Sold your love <<slutty>> times, including in a brothel <<bordelslutty>> times.'
  222. if pfilmSTOP = 1:pl '<<$pfilmstory_new>>'
  223. if film > 0:
  224. pl 'In the porn industry you know the name of <<$pfname>>. You starred in porn <<film>> times.'
  225. pl '<<$pfilmhistory>>'
  226. nl
  227. end
  228. if orgasm > 0:pl'Experienced orgasm <<orgasm>> times.'
  229. if analorgasm > 0 :pl 'One <<analorgasm>> anal orgasms.'
  230. if swallow > 0:pl 'Sperm swallowed <<swallow>> times.'
  231. if facial > 0:pl 'Cum on face <<facial>> times.'
  232. if frot > 0:pl 'Come on you truck <<frot>> times.'
  233. if VAF > 0:pl 'Vaflizm <<VAF>>.'
  234. if zoo > 0:pl 'Having sex with animals <<zoo>> times.'
  235. if pee > 0:pl 'You pissing <<pee>> times.'
  236. !!!WD:FORMATING
  237. if (slutty + pfilmSTOP + film + orgasm + analorgasm + swallow + facial + frot + VAF + zoo + pee) > 0:nl
  238. !!!
  239. if girl > 0:pl 'You have <<girl>> girls.'
  240. if lesbian > 0:pl 'You do lecbiyskim sex <<lesbian>> times.'
  241. if sexfuta > 0:pl 'You <<sexfuta>> had sex with chlenodevkoy.'
  242. }
  243. $din_cheat_hapri={
  244. if cheatHapri=0:
  245. cheatHapri=1
  246. gs 'stat'
  247. dynamic $din_cheat
  248. exit
  249. end
  250. if cheatHapri=1:
  251. cheatHapri=0
  252. gs 'stat'
  253. dynamic $din_cheat
  254. end
  255. }
  256. $din_cheat_nomakeup={
  257. if cheatNomakeup=0:
  258. cheatNomakeup=1
  259. gs 'stat'
  260. dynamic $din_cheat
  261. exit
  262. end
  263. if cheatNomakeup=1:
  264. cheatNomakeup=0
  265. gs 'stat'
  266. dynamic $din_cheat
  267. end
  268. }
  269. $din_cheat_Nosweat={
  270. if cheatNosweat=0:
  271. cheatNosweat=1
  272. gs 'stat'
  273. dynamic $din_cheat
  274. exit
  275. end
  276. if cheatNosweat=1:
  277. cheatNosweat=0
  278. gs 'stat'
  279. dynamic $din_cheat
  280. end
  281. }
  282. $din_cheat_NoEat={
  283. if cheatNoEat=0:
  284. cheatNoEat=1
  285. gs 'stat'
  286. dynamic $din_cheat
  287. exit
  288. end
  289. if cheatNoEat=1:
  290. cheatNoEat=0
  291. gs 'stat'
  292. dynamic $din_cheat
  293. end
  294. }
  295. $din_cheat_param = {
  296. gs 'stat'
  297. clr
  298. pl '<a href="exec:dynamic $din_cheat">Back to the cheat menu</a>'
  299. pl '<<strenbuf>> - strenbuf'
  300. pl '<<vitalbuf>> - vitalbuf'
  301. pl '<<vmeat>> - vmeat'
  302. pl '<<vfat>> - vfat'
  303. pl '<<Kves>> - Kves'
  304. pl '<<krost>> - krost'
  305. pl '<<ves>> - ves'
  306. pl '<<talia>> - talia - Waist measurement in cm'
  307. pl '<<grudi>> - grudi - Chest measurement in cm'
  308. pl '<<bedra>> - bedra'
  309. pl '<<titK>> - tits'
  310. pl '<<silicone>> - silicone'
  311. pl '<<grudi>> - <<talia>> - <<bedra>>, breast size <<tits>>, the difference between the hips and waist <<bedra-talia>> cm'
  312. pl 'Indicator muscularity <<musle>> - musle, <<salo>> - salo <<salo * 2>> - salo * 2 <<fat>> - fat'
  313. }
  314. $din_cheat = {
  315. gs 'stat'
  316. clr
  317. if cheatHapri = 0:$cheatHapri = 'OFF'
  318. if cheatHapri = 1:$cheatHapri = 'ON'
  319. if cheatNomakeup = 0:$cheatNomakeup = 'OFF'
  320. if cheatNomakeup = 1:$cheatNomakeup = 'ON'
  321. if cheatNosweat = 0:$cheatNosweat = 'OFF'
  322. if cheatNosweat = 1:$cheatNosweat = 'ON'
  323. if cheatNoEat = 0:$cheatNoEat = 'OFF'
  324. if cheatNoEat = 1:$cheatNoEat = 'ON'
  325. pl 'If you use the cheats, then remember, It`s your decision and the consequences respond to you.'
  326. pl '<a href="exec:dynamic $din_cheat_param">Show design parameters of the body.</a>'
  327. 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 $din_cheat">Complete recovery, manna, reason.</a>'
  328. if salo ! fat:pl 'option <a href="exec:fat = salo & dynamic $din_cheat">Balance the fat</a>'
  329. pl '<b>Permanent Cheats</b>'
  330. pl 'Option to <a href="exec:dynamic $din_cheat_hapri">is always groomed</a> <<$cheatHapri>>'
  331. pl 'Option to <a href="exec:dynamic $din_cheat_nomakeup">never smeared cosmetics</a> <<$cheatNomakeup>>'
  332. pl 'Option to <a href="exec:dynamic $din_cheat_Nosweat">never sweat</a> <<$cheatNosweat>>'
  333. pl 'Option to <a href="exec:dynamic $din_cheat_NoEat">never to eat or drink</a> <<$cheatNoEat>>'
  334. pl '<b>Cheats designer body</b>'
  335. if lip < 4:pl 'Option to <a href="exec:lip += 1 & dynamic $din_cheat">enlarge the lips</a>'
  336. if lip > 0:pl 'Option to <a href="exec:lip -= 1 & dynamic $din_cheat">reduce the lips</a>'
  337. if skin < 4:pl 'Option to <a href="exec:skin += 1 & dynamic $din_cheat">improve the skin</a>'
  338. if skin > 0:pl 'Option to <a href="exec:skin -= 1 & dynamic $din_cheat">impair the skin</a>'
  339. if resnic < 2:pl 'Option to <a href="exec:resnic += 1 & dynamic $d_cheat">increase eyelashes</a>'
  340. if resnic > 0:pl 'Option to <a href="exec:resnic -= 1 & dynamic $d_cheat">reduce the eyelashes</a>'
  341. if glaraz < 3:pl 'Option to <a href="exec:glaraz += 1 & dynamic $d_cheat">enlarge the eyes</a>'
  342. if glaraz > 0:pl 'Option to <a href="exec:glaraz -= 1 & dynamic $din_cheat">shrink the eyes</a>'
  343. if salo > 0:pl 'Option to <a href="exec:salo -= 5 & fat = salo & dynamic $d_cheat">reduce fat</a> <a href="exec:salo = 0 & fat = salo & dynamic $din_cheat">Zero fat</a>'
  344. pl 'Option to increase fat by <a href="exec:salo += 5 & fat = salo & dynamic $d_cheat">5</a>, <a href="exec:salo += 25 & fat = salo & dynamic $din_cheat">25</a>, <a href="exec:salo += 50 & fat = salo & dynamic $din_cheat">50</a>, <a href="exec:salo += 100 & fat = salo & dynamic $din_cheat">100</a>'
  345. pl 'Increase power by <a href="exec:stren += 1 & dynamic $din_cheat">1</a> <a href="exec:stren += 5 & dynamic $din_cheat">5</a> <a href="exec:stren += 10 & dynamic $din_cheat">10</a> <a href="exec:stren = 100 & dynamic $din_cheat">set to 100</a>'
  346. if stren > 0:pl 'Decrease power by <a href="exec:stren -= 1 & dynamic $d_cheat">1</a> <a href="exec:stren -= 5 & dynamic $din_cheat">5</a> <a href="exec:stren -= 10 & dynamic $din_cheat">10</a>'
  347. pl 'Increase speed by <a href="exec:speed += 1 & dynamic $din_cheat">1</a> <a href="exec:speed += 5 & dynamic $din_cheat">5</a> <a href="exec:speed += 10 & dynamic $din_cheat">10</a> <a href="exec:speed = 100 & dynamic $din_cheat">set to 100</a>'
  348. if speed > 0:pl 'Decrease speed by <a href="exec:speed -= 1 & dynamic $din_cheat">1</a> <a href="exec:speed -= 5 & dynamic $din_cheat">5</a> <a href="exec:speed -= 10 & dynamic $din_cheat">10</a>'
  349. pl 'Increase agility by <a href="exec:agil += 1 & dynamic $din_cheat">1</a> <a href="exec:agil += 5 & dynamic $din_cheat">5</a> <a href="exec:agil += 10 & dynamic $din_cheat">10</a> <a href="exec:agil = 100 & dynamic $din_cheat">set to 100</a>'
  350. if agil > 0:pl 'Decrease agility by <a href="exec:agil -= 1 & dynamic $din_cheat">1</a> <a href="exec:agil -= 5 & dynamic $din_cheat">5</a> <a href="exec:agil -= 10 & dynamic $din_cheat">10</a>'
  351. pl 'Increase reaction by <a href="exec:react += 1 & dynamic $din_cheat">1</a> <a href="exec:react += 5 & dynamic $din_cheat">5</a> <a href="exec:react += 10 & dynamic $din_cheat">10</a> <a href="exec:react = 100 & dynamic $din_cheat">set to 100</a>'
  352. if react > 0:pl 'Decrease reaction by <a href="exec:react -= 1 & dynamic $din_cheat">1</a> <a href="exec:react -= 5 & dynamic $din_cheat">5</a> <a href="exec:react -= 10 & dynamic $din_cheat">10</a>'
  353. pl 'Increase endurance by <a href="exec:vital += 1 & dynamic $din_cheat">1</a> <a href="exec:vital += 5 & dynamic $din_cheat">5</a> <a href="exec:vital += 10 & dynamic $din_cheat">10</a> <a href="exec:vital = 100 & dynamic $din_cheat">set to 100</a>'
  354. if vital > 0:pl 'Decrease endurance by <a href="exec:vital -= 1 & dynamic $din_cheat">1</a> <a href="exec:vital -= 5 & dynamic $din_cheat">5</a> <a href="exec:vital -= 10 & dynamic $din_cheat">10</a>'
  355. pl 'Increase will by <a href="exec:will += 1 & dynamic $din_cheat">1</a> <a href="exec:will += 5 & dynamic $din_cheat">5</a> <a href="exec:will += 10 & dynamic $din_cheat">10</a> <a href="exec:will = 100 & dynamic $din_cheat">set to 100</a>'
  356. if will > 0:pl 'Decrease will by <a href="exec:will -= 1 & dynamic $din_cheat">1</a> <a href="exec:will -= 5 & dynamic $din_cheat">5</a> <a href="exec:will -= 10 & dynamic $din_cheat">10</a>'
  357. pl 'Increase intelligence by <a href="exec:intel += 1 & dynamic $din_cheat">1</a> <a href="exec:intel += 5 & dynamic $din_cheat">5</a> <a href="exec:intel += 10 & dynamic $din_cheat">10</a> <a href="exec:intel = 100 & dynamic $din_cheat">set to 100</a>'
  358. if intel > 0:pl 'Decrease intelligence by <a href="exec:intel -= 1 & dynamic $din_cheat">1</a> <a href="exec:intel -= 5 & dynamic $din_cheat">5</a> <a href="exec:intel -= 10 & dynamic $din_cheat">10</a>'
  359. pl '<b>Cheats stats</b>'
  360. pl 'Increase money by <a href="exec:money += 1, 000 & dynamic $din_cheat">1,000</a> <a href="exec:money += 5000 & dynamic $din_cheat">5,000</a> <a href="exec:money += 10000 & dynamic $din_cheat">10,000</a>'
  361. pl'<a href="exec:money = 0 & dynamic $din_cheat">Throw away all money</a>'
  362. pl 'Increase dominance by <a href="exec:dom += 1 & dynamic $din_cheat">1</a> <a href="exec:dom += 5 & dynamic $din_cheat">5</a> <a href="exec:dom += 10 & dynamic $din_cheat">10</a>'
  363. pl 'Increase submission by <a href="exec:sub += 1 & dynamic $din_cheat">1</a> <a href="exec:sub += 5 & dynamic $din_cheat">5</a> <a href="exec:sub += 10 & dynamic $din_cheat">10</a>'
  364. pl '<b>Test options</b> are present in the mechanism of the game, but not involved in the game quests.'
  365. if mutagenP = 0:pl 'Mutagen force <a href="exec:mutagenP = 1 & stren = 150 & dynamic $din_cheat">1st Level</a>'
  366. if mutagenP = 1:pl 'Mutagen force <a href="exec:mutagenP = 2 & stren = 200 & dynamic $din_cheat">level 2</a>'
  367. if mutagenP = 2:pl 'Mutagen force <a href="exec:mutagenP = 3 & stren = 250 & dynamic $din_cheat">level 3</a>'
  368. if mutagenP > 0:pl 'Mutagen force <a href="exec:mutagenP = 0 & stren = 100 & dynamic $din_cheat">Zero</a>'
  369. if mutagenV = 0:pl 'Mutagen endurance <a href="exec:mutagenV = 1 & vital = 150 & dynamic $din_cheat">1st Level</a>'
  370. if mutagenV = 1:pl 'Mutagen endurance <a href="exec:mutagenV = 2 & vital = 200 & dynamic $din_cheat">level 2</a>'
  371. if mutagenV = 2:pl 'Mutagen endurance <a href="exec:mutagenV = 3 & vital = 250 & dynamic $din_cheat">level 3</a>'
  372. if mutagenV > 0:pl 'Mutagen endurance <a href="exec:mutagenV = 0 & vital = 100 & dynamic $din_cheat">Zero</a>'
  373. if mutagenA = 0:pl 'Mutagen Agility <a href="exec:mutagenA = 1 & agil = 150 & dynamic $din_cheat">1st Level</a>'
  374. if mutagenA = 1:pl 'Mutagen Agility <a href="exec:mutagenA = 2 & agil = 200 & dynamic $din_cheat">level 2</a>'
  375. if mutagenA = 2:pl 'Mutagen Agility <a href="exec:mutagenA = 3 & agil = 250 & dynamic $din_cheat">level 3</a>'
  376. if mutagenA > 0:pl 'Mutagen Agility <a href="exec:mutagenA = 0 & agil = 100 & dynamic $din_cheat">Zero</a>'
  377. }
  378. $objmagic = {
  379. clr
  380. pl '<a href="exec:dynamic $din_cheat"><b>Cheat menu</b></a>.'
  381. if magik = 0:
  382. pl 'You are unable to use magic.'
  383. else
  384. pl 'Available to you <<manna>> units of manna.'
  385. !' Rikudo forces available to you <<rikudo>> units'
  386. nl
  387. pl 'BASIC SPELL:' & nl
  388. 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
  389. 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
  390. 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
  391. if spellweap > 0 and weapon > 0:pl 'Invest in energy weapons'
  392. if spellwind > 0:pl 'Blow away the fog, mist spell any scattering over the battlefield.' & nl
  393. 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
  394. 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
  395. 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
  396. if spellhel > 0:pl 'Martial treatment restores or adds 400 health units in exchange for 400 units of manna.' & nl
  397. if stihia = 1:pl 'SPELL elements of fire' & nl
  398. if spellfire1 = 1:pl 'Flame. Inflicts little damage. (Cost 10 mana)' & nl
  399. if spellfire2 = 1:pl 'Release of fire. A damage. (100 mana cost)' & nl
  400. if spellfire3 = 1:pl 'Fire barrier, creates a shield of 750 units. (150 mana cost)' & nl
  401. if spellfire4 = 1:pl 'Firestorm. Causes great damage to an enemy difficult to dodge. (250 mana cost)' & nl
  402. if spellfire5 = 1:pl 'Flame Shield creates a shield of 2,500 units. (500 mana cost)' & nl
  403. if stihia = 2:pl 'SPELL element of lightning' & nl
  404. if spellele1 = 1:pl 'Discharge. Inflicts very little damage. (Cost 10 mana)' & nl
  405. if spellele2 = 1:pl 'Lightning. Inflicts above average. (100 mana cost)' & nl
  406. if spellele3 = 1:pl 'Electrical barrier creates a shield of 1,500. (150 mana cost)' & nl
  407. if spellele4 = 1:pl 'Dance of thousands of birds. Inflicts very high damage. (250 mana cost)' & nl
  408. if spellele5 = 1:pl 'Plyaschuschaya sphere creates a shield of 5,000 units. (500 mana cost)' & nl
  409. if stihia = 3:pl 'SPELL Element Earth' & nl
  410. if spellert1 = 1:pl 'Quicksand trap catches the enemy in quicksand and causes little damage. (Cost 10 mana)' & nl
  411. 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
  412. 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
  413. 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
  414. 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
  415. if stihia = 4:pl 'Spells with wind energy' & nl
  416. 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
  417. if spellwind2 = 1:pl 'Horrendous pressure, causing moderate damage and destroying clones and fog, it is very difficult to dodge. (100 mana cost)' & nl
  418. if spellwind3 = 1:pl 'Vacuum sphere, creates a shield of 1,500. (150 mana cost)' & nl
  419. if spellwind4 = 1:pl 'Vacuum shells do more damage and destroy clones and fog, it is very difficult to dodge. (250 mana cost)' & nl
  420. if spellwind5 = 1:pl 'Devouring vacuum sucks shield enemy destroying it whatever strength he was not. (500 mana cost)' & nl
  421. if stihia = 5:pl 'SPELL elements of water' & nl
  422. if spellwater1 = 1:pl 'Creek manna causes very little damage and absorbs a lot of mana. Cost 10 mana.' & nl
  423. if spellwater2 = 1:pl 'Flooding, causing moderate damage and absorbs manna above average. 100 mana cost.' & nl
  424. 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
  425. if spellwater4 = 1:pl 'Water shark missile, causing great damage and absorbs a lot of mana. Cost 250 mana.' & nl
  426. 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
  427. end
  428. }
  429. $objface = {
  430. !if hcol = 0 and curly <= 0:view 'images/body/hcol.jpg'
  431. !if hcol = 1 and curly <= 0:view 'images/body/hcol1.jpg'
  432. !if hcol = 2 and curly <= 0:view 'images/body/hcol2.jpg'
  433. !if hcol = 3 and curly <= 0:view 'images/body/hcol3.jpg'
  434. !if hcol = 0 and curly > 0:view 'images/body/hcolcurly.jpg'
  435. !if hcol = 1 and curly > 0:view 'images/body/hcolcurly1.jpg'
  436. !if hcol = 2 and curly > 0:view 'images/body/hcolcurly2.jpg'
  437. !if hcol = 3 and curly > 0:view 'images/body/hcolcurly3.jpg'
  438. if curly <= 0 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
  439. if hcol = 0 and hairlength <= 30:view 'images/body/hairstyles/vshort/normal/hcol0.jpg'
  440. if hcol = 1 and hairlength <= 30:view 'images/body/hairstyles/vshort/normal/hcol1.jpg'
  441. if hcol = 2 and hairlength <= 30:view 'images/body/hairstyles/vshort/normal/hcol2.jpg'
  442. if hcol = 3 and hairlength <= 30:view 'images/body/hairstyles/vshort/normal/hcol3.jpg'
  443. if hcol = 0 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/normal/hcol0.jpg'
  444. if hcol = 1 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/normal/hcol1.jpg'
  445. if hcol = 2 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/normal/hcol2.jpg'
  446. if hcol = 3 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/normal/hcol3.jpg'
  447. if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/normal/hcol0.jpg'
  448. if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/normal/hcol1.jpg'
  449. if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/normal/hcol2.jpg'
  450. if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/normal/hcol3.jpg'
  451. if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/normal/hcol0.jpg'
  452. if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/normal/hcol1.jpg'
  453. if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/normal/hcol2.jpg'
  454. if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/normal/hcol3.jpg'
  455. if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/normal/hcol0.jpg'
  456. if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/normal/hcol1.jpg'
  457. if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/normal/hcol2.jpg'
  458. if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/normal/hcol3.jpg'
  459. if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/normal/hcol0.jpg'
  460. if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/normal/hcol1.jpg'
  461. if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/normal/hcol2.jpg'
  462. if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/normal/hcol3.jpg'
  463. end
  464. if curly >= 1 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
  465. if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly/hcol0.jpg'
  466. if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly/hcol1.jpg'
  467. if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly/hcol2.jpg'
  468. if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly/hcol3.jpg'
  469. if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly/hcol0.jpg'
  470. if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly/hcol1.jpg'
  471. if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly/hcol2.jpg'
  472. if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly/hcol3.jpg'
  473. if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly/hcol0.jpg'
  474. if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly/hcol1.jpg'
  475. if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly/hcol2.jpg'
  476. if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly/hcol3.jpg'
  477. if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly/hcol0.jpg'
  478. if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly/hcol1.jpg'
  479. if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly/hcol2.jpg'
  480. if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly/hcol3.jpg'
  481. end
  482. if hbangs >= 1 and curly <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
  483. if hcol = 0 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/bangs/hcol0.jpg'
  484. if hcol = 1 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/bangs/hcol1.jpg'
  485. if hcol = 2 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/bangs/hcol2.jpg'
  486. if hcol = 3 and hairlength > 30 and hairlength <= 80:view 'images/body/hairstyles/short/bangs/hcol3.jpg'
  487. if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs/hcol0.jpg'
  488. if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs/hcol1.jpg'
  489. if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs/hcol2.jpg'
  490. if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs/hcol3.jpg'
  491. if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs/hcol0.jpg'
  492. if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs/hcol1.jpg'
  493. if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs/hcol2.jpg'
  494. if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs/hcol3.jpg'
  495. if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs/hcol0.jpg'
  496. if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs/hcol1.jpg'
  497. if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs/hcol2.jpg'
  498. if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs/hcol3.jpg'
  499. if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs/hcol0.jpg'
  500. if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs/hcol1.jpg'
  501. if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs/hcol2.jpg'
  502. if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs/hcol3.jpg'
  503. end
  504. if curly >= 1 and hbangs >= 1 and hpingripw = 0 and hscrunchw <= 0 and hpigtail <= 0 and hbraids <= 0:
  505. if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs/hcol0.jpg'
  506. if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs/hcol1.jpg'
  507. if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs/hcol2.jpg'
  508. if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs/hcol3.jpg'
  509. if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs/hcol0.jpg'
  510. if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs/hcol1.jpg'
  511. if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs/hcol2.jpg'
  512. if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs/hcol3.jpg'
  513. if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs/hcol0.jpg'
  514. if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs/hcol1.jpg'
  515. if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs/hcol2.jpg'
  516. if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs/hcol3.jpg'
  517. if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs/hcol0.jpg'
  518. if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs/hcol1.jpg'
  519. if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs/hcol2.jpg'
  520. if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs/hcol3.jpg'
  521. end
  522. if curly >= 1 and hscrunchw = 1 and hbangs >= 1 and hpingripw <= 0 and hpigtail <= 0 and hbraids <= 0:
  523. if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol0.jpg'
  524. if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol1.jpg'
  525. if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol2.jpg'
  526. if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol3.jpg'
  527. if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol0.jpg'
  528. if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol1.jpg'
  529. if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol2.jpg'
  530. if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol3.jpg'
  531. if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol0.jpg'
  532. if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol1.jpg'
  533. if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol2.jpg'
  534. if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol3.jpg'
  535. if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol0.jpg'
  536. if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol1.jpg'
  537. if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol2.jpg'
  538. if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol3.jpg'
  539. end
  540. if curly >= 1 and hpingripw = 1 and hbangs <= 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
  541. if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-buns/hcol0.jpg'
  542. if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-buns/hcol1.jpg'
  543. if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-buns/hcol2.jpg'
  544. if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-buns/hcol3.jpg'
  545. if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-buns/hcol0.jpg'
  546. if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-buns/hcol1.jpg'
  547. if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-buns/hcol2.jpg'
  548. if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-buns/hcol3.jpg'
  549. if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-buns/hcol0.jpg'
  550. if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-buns/hcol1.jpg'
  551. if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-buns/hcol2.jpg'
  552. if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-buns/hcol3.jpg'
  553. if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-buns/hcol0.jpg'
  554. if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-buns/hcol1.jpg'
  555. if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-buns/hcol2.jpg'
  556. if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-buns/hcol3.jpg'
  557. end
  558. if curly >= 1 and hpingripw = 1 and hbangs >= 1 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
  559. if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-buns/hcol0.jpg'
  560. if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-buns/hcol1.jpg'
  561. if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-buns/hcol2.jpg'
  562. if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-buns/hcol3.jpg'
  563. if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-buns/hcol0.jpg'
  564. if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-buns/hcol1.jpg'
  565. if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-buns/hcol2.jpg'
  566. if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-buns/hcol3.jpg'
  567. if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-buns/hcol0.jpg'
  568. if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-buns/hcol1.jpg'
  569. if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-buns/hcol2.jpg'
  570. if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-buns/hcol3.jpg'
  571. if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-buns/hcol0.jpg'
  572. if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-buns/hcol1.jpg'
  573. if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-buns/hcol2.jpg'
  574. if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-buns/hcol3.jpg'
  575. end
  576. if hpingripw = 1 and hbangs = 0 and curly <= 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
  577. if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/buns/hcol0.jpg'
  578. if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/buns/hcol1.jpg'
  579. if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/buns/hcol2.jpg'
  580. if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/buns/hcol3.jpg'
  581. if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/buns/hcol0.jpg'
  582. if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/buns/hcol1.jpg'
  583. if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/buns/hcol2.jpg'
  584. if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/buns/hcol3.jpg'
  585. if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/buns/hcol0.jpg'
  586. if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/buns/hcol1.jpg'
  587. if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/buns/hcol2.jpg'
  588. if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/buns/hcol3.jpg'
  589. end
  590. if hpingripw >= 1 and hbangs >= 1 and curly <= 0 and hscrunchw = 0 and hpigtail <= 0 and hbraids <= 0:
  591. if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-buns/hcol0.jpg'
  592. if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-buns/hcol1.jpg'
  593. if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-buns/hcol2.jpg'
  594. if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-buns/hcol3.jpg'
  595. if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-buns/hcol0.jpg'
  596. if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-buns/hcol1.jpg'
  597. if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-buns/hcol2.jpg'
  598. if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-buns/hcol3.jpg'
  599. if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-buns/hcol0.jpg'
  600. if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-buns/hcol1.jpg'
  601. if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-buns/hcol2.jpg'
  602. if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-buns/hcol3.jpg'
  603. end
  604. if hscrunchw = 1 and hbangs = 0 and curly <= 0 and hpingripw = 0 and hpigtail <= 0 and hbraids <= 0:
  605. if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/scrunch/hcol0.jpg'
  606. if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/scrunch/hcol1.jpg'
  607. if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/scrunch/hcol2.jpg'
  608. if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/scrunch/hcol3.jpg'
  609. if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/scrunch/hcol0.jpg'
  610. if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/scrunch/hcol1.jpg'
  611. if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/scrunch/hcol2.jpg'
  612. if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/scrunch/hcol3.jpg'
  613. if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/scrunch/hcol0.jpg'
  614. if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/scrunch/hcol1.jpg'
  615. if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/scrunch/hcol2.jpg'
  616. if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/scrunch/hcol3.jpg'
  617. if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/scrunch/hcol0.jpg'
  618. if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/scrunch/hcol1.jpg'
  619. if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/scrunch/hcol2.jpg'
  620. if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/scrunch/hcol3.jpg'
  621. end
  622. if hscrunchw = 1 and hbangs = 0 and curly >= 1 and hpingripw = 0 and hpigtail <= 0 and hbraids <= 0:
  623. if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-scrunch/hcol0.jpg'
  624. if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-scrunch/hcol1.jpg'
  625. if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-scrunch/hcol2.jpg'
  626. if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-scrunch/hcol3.jpg'
  627. if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-scrunch/hcol0.jpg'
  628. if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-scrunch/hcol1.jpg'
  629. if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-scrunch/hcol2.jpg'
  630. if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-scrunch/hcol3.jpg'
  631. if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-scrunch/hcol0.jpg'
  632. if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-scrunch/hcol1.jpg'
  633. if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-scrunch/hcol2.jpg'
  634. if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-scrunch/hcol3.jpg'
  635. if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-scrunch/hcol0.jpg'
  636. if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-scrunch/hcol1.jpg'
  637. if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-scrunch/hcol2.jpg'
  638. if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-scrunch/hcol3.jpg'
  639. end
  640. if hscrunchw = 1 and hbangs >= 1 and curly <= 0 and hpingripw = 0 and hpigtail <= 0 and hbraids <= 0:
  641. if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-scrunch/hcol0.jpg'
  642. if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-scrunch/hcol1.jpg'
  643. if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-scrunch/hcol2.jpg'
  644. if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/bangs-scrunch/hcol3.jpg'
  645. if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-scrunch/hcol0.jpg'
  646. if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-scrunch/hcol1.jpg'
  647. if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-scrunch/hcol2.jpg'
  648. if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/bangs-scrunch/hcol3.jpg'
  649. if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-scrunch/hcol0.jpg'
  650. if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-scrunch/hcol1.jpg'
  651. if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-scrunch/hcol2.jpg'
  652. if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/bangs-scrunch/hcol3.jpg'
  653. if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs-scrunch/hcol0.jpg'
  654. if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs-scrunch/hcol1.jpg'
  655. if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs-scrunch/hcol2.jpg'
  656. if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/bangs-scrunch/hcol3.jpg'
  657. end
  658. if hscrunchw = 1 and hbangs >= 1 and curly >= 1 and hpingripw = 0 and hpigtail <= 0 and hbraids <= 0:
  659. if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol0.jpg'
  660. if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol1.jpg'
  661. if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol2.jpg'
  662. if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/curly-bangs-scrunch/hcol3.jpg'
  663. if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol0.jpg'
  664. if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol1.jpg'
  665. if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol2.jpg'
  666. if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/curly-bangs-scrunch/hcol3.jpg'
  667. if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol0.jpg'
  668. if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol1.jpg'
  669. if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol2.jpg'
  670. if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/curly-bangs-scrunch/hcol3.jpg'
  671. if hcol = 0 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol0.jpg'
  672. if hcol = 1 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol1.jpg'
  673. if hcol = 2 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol2.jpg'
  674. if hcol = 3 and hairlength > 400:view 'images/body/hairstyles/vlng/curly-bangs-scrunch/hcol3.jpg'
  675. end
  676. if hpigtail = 1 and hscrunchw = 2 and hpingripw = 0 and hbraids <= 0 and curly <= 0 and hbraids <= 0:
  677. if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/pigtails/hcol0.jpg'
  678. if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/pigtails/hcol1.jpg'
  679. if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/pigtails/hcol2.jpg'
  680. if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/pigtails/hcol3.jpg'
  681. if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/pigtails/hcol0.jpg'
  682. if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/pigtails/hcol1.jpg'
  683. if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/pigtails/hcol2.jpg'
  684. if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/pigtails/hcol3.jpg'
  685. if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/pigtails/hcol0.jpg'
  686. if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/pigtails/hcol1.jpg'
  687. if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/pigtails/hcol2.jpg'
  688. if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/pigtails/hcol3.jpg'
  689. end
  690. if hbraids >= 1 and curly <= 0 and hbangs <= 0 and hpingripw = 0 and hscrunchw = 0 and hpigtail = 0:
  691. if hcol = 0 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/braids/hcol0.jpg'
  692. if hcol = 1 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/braids/hcol1.jpg'
  693. if hcol = 2 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/braids/hcol2.jpg'
  694. if hcol = 3 and hairlength > 80 and hairlength <= 160:view 'images/body/hairstyles/med/braids/hcol3.jpg'
  695. if hcol = 0 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/braids/hcol0.jpg'
  696. if hcol = 1 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/braids/hcol1.jpg'
  697. if hcol = 2 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/braids/hcol2.jpg'
  698. if hcol = 3 and hairlength > 160 and hairlength <= 260:view 'images/body/hairstyles/medlo/braids/hcol3.jpg'
  699. if hcol = 0 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/braids/hcol0.jpg'
  700. if hcol = 1 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/braids/hcol1.jpg'
  701. if hcol = 2 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/braids/hcol2.jpg'
  702. if hcol = 3 and hairlength > 260 and hairlength <= 400:view 'images/body/hairstyles/lng/braids/hcol3.jpg'
  703. end
  704. }
  705. !!! Maruda Hair Mod
  706. $objbody = {
  707. if musle >= salo:
  708. !muscular type
  709. if bedra < 60:view 'images/body/fit.jpg'
  710. if bedra >= 60 and bedra < 70:view 'images/body/fit1.jpg'
  711. if bedra >= 70 and bedra < 80:view 'images/body/fit2.jpg'
  712. if bedra >= 80 and bedra < 90:view 'images/body/fit3.jpg'
  713. if bedra >= 90 and bedra < 100:view 'images/body/fit4.jpg'
  714. if bedra >= 100 and bedra < 110:view 'images/body/fit5.jpg'
  715. if bedra >= 110 and bedra < 120:view 'images/body/fit6.jpg'
  716. if bedra >= 120:view 'images/body/fit7.jpg'
  717. else
  718. !bold type
  719. if bedra < 60:view 'images/body/fat.jpg'
  720. if bedra >= 60 and bedra < 65:view 'images/body/fat1.jpg'
  721. if bedra >= 65 and bedra < 70:view 'images/body/fat2.jpg'
  722. if bedra >= 70 and bedra < 75:view 'images/body/fat3.jpg'
  723. if bedra >= 75 and bedra < 80:view 'images/body/fat4.jpg'
  724. if bedra >= 80 and bedra < 85:view 'images/body/fat5.jpg'
  725. if bedra >= 85 and bedra < 90:view 'images/body/fat6.jpg'
  726. if bedra >= 90 and bedra < 95:view 'images/body/fat7.jpg'
  727. if bedra >= 95 and bedra < 100:view 'images/body/fat8.jpg'
  728. if bedra >= 100 and bedra < 105:view 'images/body/fat9.jpg'
  729. if bedra >= 105 and bedra < 110:view 'images/body/fat10.jpg'
  730. if bedra >= 110 and bedra < 115:view 'images/body/fat11.jpg'
  731. if bedra >= 115 and bedra < 120:view 'images/body/fat12.jpg'
  732. if bedra >= 120:view 'images/body/fat13.jpg'
  733. end
  734. }
  735. $objclothes = {
  736. clr
  737. if nude = 0:
  738. if vatnik = 2:view 'images/clothes/vatnik.jpg'
  739. if odetjeans > 0:
  740. view 'images/clothes/jeans<<numdress>>.jpg'
  741. pl '(strength <<jeansH[numdress]>>, hip size <<jeansB[numdress]>>)'
  742. end
  743. if odetyoga > 0:
  744. view 'images/clothes/yoga<<numdress>>.jpg'
  745. pl '(strength <<yogaH[numdress]>>)'
  746. end
  747. if odetsarafan > 0:
  748. view 'images/clothes/sarafan<<numdress>>.jpg'
  749. pl '(strength <<sarafanH[numdress]>>)'
  750. end
  751. if odetshort > 0:
  752. view 'images/clothes/short<<numdress>>.jpg'
  753. pl '(strength <<shortH[numdress]>>, hip size <<shortB[numdress]>>)'
  754. end
  755. if odetskirt > 0:
  756. view 'images/clothes/skirt<<numdress>>.jpg'
  757. pl '(strength <<skirtH[numdress]>>, hip size <<skirtB[numdress]>>)'
  758. end
  759. if odetdress > 0:
  760. view 'images/clothes/dress<<numdress>>.jpg'
  761. pl '(strength <<dressH[numdress]>>, hip size <<dressB[numdress]>>)'
  762. end
  763. if odetprofi > 0:
  764. view 'images/clothes/profi<<numdress>>.jpg'
  765. pl '(strength <<profiH[numdress]>>, hip size <<profiB[numdress]>>)'
  766. end
  767. if odetpants > 0:
  768. view 'images/clothes/pants<<numdress>>.jpg'
  769. pl '(strength <<pantsH[numdress]>>, hip size <<pantsB[numdress]>>)'
  770. end
  771. if odetlatex > 0:
  772. view 'images/clothes/latex<<numdress>>.jpg'
  773. pl '(strength <<latexH[numdress]>>, hip size <<latexB[numdress]>>)'
  774. end
  775. if odethooker > 0:
  776. view 'images/clothes/hooker<<numdress>>.jpg'
  777. pl '(strength <<hookerH[numdress]>>, hip size <<hookerB[numdress]>>)'
  778. end
  779. if odetkis > 0:
  780. view 'images/clothes/k<<numdress>>.jpg'
  781. pl '(strength <<odekisH[numdress]>>, hip size <<odekisB[numdress]>>)'
  782. end
  783. if odetnewclo > 0:
  784. view 'images/clothes/newclo/<<numdress>>.jpg'
  785. pl '(strength <<newcloH[numdress]>>, hip size <<newcloB[numdress]>>)'
  786. end
  787. if odetero > 0:view 'images/img/dress/ero<<numdress>>.jpg'
  788. else
  789. pl 'You´re not dressed.'
  790. view 'images/clothes/nude.jpg'
  791. end
  792. }
  793. $objtattoos = {
  794. $tatlipdi = {
  795. view 'images/Body/tatlip<<tatlip>>.jpg'
  796. }
  797. $tatpledi = {
  798. view 'images/body/tatplech<<tatplech>>.jpg'
  799. }
  800. $tatbackdi = {
  801. view 'images/body/tatb<<tatback>>.jpg'
  802. }
  803. $tatupbdi = {
  804. view 'images/body/tatupb<<tatupb>>.jpg'
  805. }
  806. $tatvagdi = {
  807. view 'images/body/tatvag<<tatvag>>.jpg'
  808. }
  809. $tatlegdi = {
  810. view 'images/body/tatleg<<tatleg>>.jpg'
  811. }
  812. clr
  813. if tatlip > 0:pl '<a href="exec:dynamic $tatlipdi ">tattoo on the lip</a>.'
  814. if tatplech > 0:pl '<a href="exec:dynamic $tatpledi">tattoo on the shoulders</a>'
  815. if tatback > 0:pl '<a href="exec:dynamic $tatbackdi">tattoo on the back</a>'
  816. if tatupb > 0:pl '<a href="exec:dynamic $tatupbdi">tattoo on the lower back</a>'
  817. if tatvag > 0:pl '<a href="exec:dynamic $tatvagdi">Tattoos in the groin</a>'
  818. if tatleg > 0:pl '<a href="exec:dynamic $tatlegdi">tattoo on the legs</a>'
  819. 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.'
  820. }
  821. $objpirsing = {
  822. $dipirsA = {
  823. view 'images/body/pirsA.jpg'
  824. }
  825. $dipirsB = {
  826. view 'images/body/pirsB.jpg'
  827. }
  828. $dipirsC = {
  829. view 'images/body/pirsC.jpg'
  830. }
  831. $dipirsD = {
  832. view 'images/body/pirsD.jpg'
  833. }
  834. $dipirsE = {
  835. view 'images/body/pirsE.jpg'
  836. }
  837. $dipirsF = {
  838. view 'images/body/pirsF.jpg'
  839. }
  840. $dipirsG = {
  841. view 'images/body/pirsG.jpg'
  842. }
  843. $dipirsN = {
  844. view 'images/body/pirsN.jpg'
  845. }
  846. clr
  847. 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>'
  848. if pirsB = 1:pl 'You pierced lower lip and there vdet ring. <a href="exec:dynamic $dipirsB">view</a>'
  849. if pirsC = 1:pl 'On your ears hang earrings. <a href="exec:dynamic $dipirsC">view</a>'
  850. if pirsD = 1:pl 'You have a small ring in the nose. <a href="exec:dynamic $dipirsD">view</a>'
  851. if pirsE = 1:pl 'In your eyebrow barbell inserted. <a href="exec:dynamic $dipirsE">view</a>'
  852. if pirsF = 1:pl 'You have pierced nipples and inserted them in small metal rod. <a href="exec:dynamic $dipirsF">view</a>'
  853. if pirsG = 1:pl 'You pierced lips on the vagina and there inserted rings. <a href="exec:dynamic $dipirsG">view</a>'
  854. if pirsN = 1:pl 'You pierced navel, and there is inserted rod. <a href="exec:dynamic $dipirsN">view</a>'
  855. }
  856. $objobnovit = {
  857. gs 'stat'
  858. }
  859. $objbloknot = {
  860. clr
  861. pl '<center><b><font color="maroon">Diary</font></b></center>'
  862. 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
  863. if work > 0 or stripwork > 0 or workPTU > 2:pl '<center><font color="maroon">-- My Job --</font></center>'
  864. 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
  865. if work > 0 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
  866. if work > 0 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
  867. if work > 0 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
  868. if work > 0 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
  869. if work > 0 and tanwork > 0:pl'I work as a governess at Tani. Salary is automatically transferred to the 25th number.' & nl
  870. if work > 0 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
  871. 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
  872. 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
  873. if husband > 0 or kid > 0 :'<center><font color="maroon">-- My Family --</font></center>'
  874. if husband > 0:pl 'I ve been married for <<husbanday>> days. My husband <<$husName>> <<$husBody>> <<$husFat>> <<$husHair>>. Member <<husDick>> Relationships <<husband>>' & nl
  875. if kid > 0:pl 'I have a child <<$kidname[kidDiary]>>, age <<kid[kidDiary]>> days.' & nl
  876. if $bfsex > 0:pl '<<$bfsex>>'
  877. 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
  878. if harakBoyA = 0 and bfA > 1:pl 'He is calm and self-possessed character.' & nl
  879. if harakBoyA = 1 and bfA > 1:pl 'He is cheerful and sociable nature.' & nl
  880. if harakBoyA = 2 and bfA > 1:pl 'He is irascible and very rigid.' & nl
  881. 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
  882. 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
  883. GS 'Menu.Create', 'zapisMenu'
  884. GS 'Menu.Add', 'zapisMenu', 'Recording from avtodatoy', '', 'MenuLoc', 'zapisosn'
  885. GS 'Menu.Add', 'zapisMenu', 'To record on 1th line', '', 'MenuLoc', 'zapis'
  886. GS 'Menu.Add', 'zapisMenu', 'With a red line 1th line', '', 'MenuLoc', 'ot'
  887. GS 'Menu.Add', 'zapisMenu', 'To record on 2th line', '', 'MenuLoc', 'zapis2'
  888. GS 'Menu.Add', 'zapisMenu', 'With a red line 2th line', '', 'MenuLoc', 'ot2'
  889. GS 'Menu.Add', 'zapisMenu', 'To record on 3th line', '', 'MenuLoc', 'zapis3'
  890. GS 'Menu.Add', 'zapisMenu', 'With a red line 3th line', '', 'MenuLoc', 'ot3'
  891. GS 'Menu.Add', 'zapisMenu', 'To record on 4th line', '', 'MenuLoc', 'zapis4'
  892. GS 'Menu.Add', 'zapisMenu', 'With a red line 4th line', '', 'MenuLoc', 'ot4'
  893. GS 'Menu.Add', 'zapisMenu', 'To record on 5th line', '', 'MenuLoc', 'zapis5'
  894. GS 'Menu.Add', 'zapisMenu', 'With a red line 5th line', '', 'MenuLoc', 'ot5'
  895. GS 'Menu.Add', 'zapisMenu', 'To record on 6th line', '', 'MenuLoc', 'zapis6'
  896. GS 'Menu.Add', 'zapisMenu', 'With a red line 6th line', '', 'MenuLoc', 'ot6'
  897. GS 'Menu.Add', 'zapisMenu', 'To record on 7th line', '', 'MenuLoc', 'zapis7'
  898. GS 'Menu.Add', 'zapisMenu', 'With a red line 7th line', '', 'MenuLoc', 'ot7'
  899. GS 'Menu.Add', 'zapisMenu', 'To record on 8th line', '', 'MenuLoc', 'zapis8'
  900. GS 'Menu.Add', 'zapisMenu', 'With a red line 8th line', '', 'MenuLoc', 'ot8'
  901. GS 'Menu.Add', 'zapisMenu', 'To record on 9th line', '', 'MenuLoc', 'zapis9'
  902. GS 'Menu.Add', 'zapisMenu', 'With a red line 9th line', '', 'MenuLoc', 'ot9'
  903. GS 'Menu.Add', 'zapisMenu', 'To record on 10th line', '', 'MenuLoc', 'zapis10'
  904. GS 'Menu.Add', 'zapisMenu', 'With a red line 10th line', '', 'MenuLoc', 'ot10'
  905. GS 'Menu.Create', 'disMenu'
  906. GS 'Menu.Add', 'disMenu', 'Delete an entry from the 1st row', '', 'MenuLoc', 'diszapis'
  907. GS 'Menu.Add', 'disMenu', 'Delete Record with 2nd row', '', 'MenuLoc', 'diszapis2'
  908. GS 'Menu.Add', 'disMenu', 'Delete record with third row', '', 'MenuLoc', 'diszapis3'
  909. GS 'Menu.Add', 'disMenu', 'Delete an entry from the 4th row', '', 'MenuLoc', 'diszapis4'
  910. GS 'Menu.Add', 'disMenu', 'Delete an entry from the 5th row', '', 'MenuLoc', 'diszapis5'
  911. GS 'Menu.Add', 'disMenu', 'Delete an entry from the 6th row', '', 'MenuLoc', 'diszapis6'
  912. GS 'Menu.Add', 'disMenu', 'Delete an entry from the 7th row', '', 'MenuLoc', 'diszapis7'
  913. GS 'Menu.Add', 'disMenu', 'Delete an entry from the 8th row', '', 'MenuLoc', 'diszapis8'
  914. GS 'Menu.Add', 'disMenu', 'Delete an entry from the 9th row', '', 'MenuLoc', 'diszapis9'
  915. GS 'Menu.Add', 'disMenu', 'Delete record with the 10th row', '', 'MenuLoc', 'diszapis10'
  916. pl '<a href="exec:gs ''Menu.Call'', ''zapisMenu''">Make an entry</a> or <a href="exec:gs ''Menu.Call'', ''disMenu''">delete the record</a>'
  917. pl '<<$zapisOsn>>'
  918. pl '<<$zapis>>'
  919. pl '<<$zapis2>>'
  920. pl '<<$zapis3>>'
  921. pl '<<$zapis4>>'
  922. pl '<<$zapis5>>'
  923. pl '<<$zapis6>>'
  924. pl '<<$zapis7>>'
  925. pl '<<$zapis8>>'
  926. pl '<<$zapis9>>'
  927. pl '<<$zapis10>>'
  928. }
  929. $objavariya = {
  930. '<center><b>YOU HAVE JUST BEEN USED EMERGENCY LEAVE BLANK SCREEN Bagan</b></center>'
  931. *nl
  932. '<center><b>not use this feature without a good reason, can cause STABLE ERROR THAT WILL RUIN YOUR CONSERVATION</b></center>'
  933. *nl
  934. if StoryLine = 1:gt 'gorodok'
  935. gt 'street'
  936. }
  937. $objnewmenu = {
  938. killobj
  939. set oldobjmenu = 0
  940. addobj 'Character'
  941. addobj 'See'
  942. addobj 'Others'
  943. addobj 'Menu'
  944. }
  945. $objoldmenu = {
  946. killobj
  947. set oldobjmenu = 1
  948. addobj '<font color="green">Character</font>'
  949. addobj 'Skills'
  950. addobj 'Statistics'
  951. addobj 'Magic'
  952. addobj 'Face'
  953. addobj 'Body'
  954. addobj 'Clothing'
  955. addobj 'Tattoos'
  956. addobj 'Piercing'
  957. if mobila > 0:addobj 'Phone'
  958. addobj 'Diary'
  959. addobj 'Emergency exit'
  960. addobj 'Update'
  961. addobj 'Menu'
  962. addobj 'New Menu'
  963. }
  964. $menu_character[0] = 'Description:$menu_descrip'
  965. $menu_character[1] = 'Characteristics:$menu_skills'
  966. $menu_character[2] = 'Usage:$menu_statistika'
  967. $menu_character[3] = 'Magic:$menu_magic'
  968. $menu_lookon[0] = 'Person:$menu_face'
  969. $menu_lookon[1] = 'Body:$menu_body'
  970. $menu_lookon[2] = 'Clothing:$menu_clothes'
  971. $menu_lookon[3] = 'Tattoos:$menu_tattoos'
  972. $menu_lookon[4] = 'Piercing:$menu_pirs'
  973. $menu_other[0] = 'Update:$menu_obnovit'
  974. $menu_other[1] = 'Diary:$menu_bloknot'
  975. $menu_other[2] = 'Emergency exit:$menu_avariya'
  976. $menu_other[3] = 'Old menu:$menu_addoldmenu'
  977. if mobila > 0:$menu_other[4] = 'Phone:$menu_mobila'
  978. !old menu: beginning
  979. if $selobj = '<font color="green">Character</font>':dynamic $objdescrip
  980. if $selobj = 'Skills':dynamic $objskills
  981. if $selobj = 'Statistics':dynamic $objstatistika
  982. if $selobj = 'Magic':dynamic $objmagic
  983. if $selobj = 'Face':dynamic $objface
  984. if $selobj = 'Body':dynamic $objbody
  985. if $selobj = 'Clothing':dynamic $objclothes
  986. if $selobj = 'Tattoos':dynamic $objtattoos
  987. if $selobj = 'Piercing':dynamic $objpirsing
  988. if $selobj = 'Diary':dynamic $objbloknot
  989. if $selobj = 'Emergency exit':dynamic $objavariya
  990. if $selobj = 'Update':gs 'stat'
  991. if $selobj = 'New Menu':dynamic $objnewmenu
  992. !old menu: end
  993. !The new menu: beginning
  994. if $selobj = 'Character':menu '$menu_character'
  995. if $selobj = 'See':menu '$menu_lookon'
  996. if $selobj = 'Others':menu '$menu_other'
  997. !The new menu: end
  998. if $selobj = 'Player':
  999. clr
  1000. pl 'Your name <<$name>> <<$surname>>. You <<age>> years. <<$vneshPRE>>'
  1001. pl 'You have short black hair and flashing starting gray, small brown eyes and willed jaw covered by blue Shaved bristle.'
  1002. pl 'Growth <<rost>> cm, weight 100 kg.'
  1003. end
  1004. if $selobj = 'Menu':
  1005. clr
  1006. GS 'Menu.Create', 'mainMenu'
  1007. GS 'Menu.Add', 'mainMenu', 'status bar', '', 'MenuMainLoc', '0'
  1008. GS 'Menu.Add', 'mainMenu', 'text notation', '', 'MenuMainLoc', '1'
  1009. GS 'Menu.Call', 'mainMenu'
  1010. end
  1011. unselect
  1012. --- onobjsel ---------------------------------
  1013. # scale.table
  1014. !'
  1015. "
  1016. Scale rendering using the table:
  1017. "
  1018. $func ('scale.table', 275, 420) + ' 275 / 420'
  1019. $func ('scale.table', 400, 420) + ' 400 / 420'
  1020. $func ('scale.table', 420, 420) + ' 420 / 420'
  1021. $func ('scale.table', 157, 420) + ' 157 / 420'
  1022. $func ('scale.table', 42, 420) + ' 42 / 420'
  1023. $func ('scale.table', 0, 420) + ' 0 / 420'
  1024. '
  1025. !-----scale.table------
  1026. args[0] = args[0] & ! the current value of the parameter
  1027. args[1] = args[1] & ! the maximum value
  1028. if args[2] = 0:args[2] = 200 & ! Span (tables) pixels. default 350 px
  1029. if $args[3] = "":$args[3] = "FF0000" & ! the color of the filled part of the scale in the format RRGGBB. default - red
  1030. ! at_first "create" corresponding table
  1031. $args['table'] = '<table width="<<args[2]>>" border="0" cellspacing="0" cellpadding="0"><tr>'
  1032. ! calculate the width as a percentage of the filled part
  1033. args['x'] = (args[0] * 100) / args[1]
  1034. ! calculate the percentage widths ullage
  1035. args['empty'] = 100 - args['x']
  1036. ! If the width of the filled part of more than zero percent, added to the table cell with the specified color (red on-default)
  1037. if args['x'] > 0:
  1038. $args['table'] += '<td width="<<args['x']>>%" bgcolor="#' + $args[3] + '">&nbsp;</td>'
  1039. end
  1040. ! If the width of the unfilled part of the scale is greater than zero percent, added to the table cell with another color (gray).
  1041. if args['empty'] > 0:
  1042. $args['table'] + = "<td width="<<args['empty']>>%" bgcolor="#888888">&nbsp;</td>"
  1043. end
  1044. ! "close" table
  1045. $args['table'] += '</tr></table>'
  1046. ! the_result
  1047. $result = $args['table']
  1048. --- scale.table ---------------------------------