_body_image.qsrc 6.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152
  1. # $body_image
  2. !This function will return url of image, and set additonal texts to $body_image_msg
  3. !for example, you can VIEW FUNC('$body_image', 'body') to view body image in popup window, and
  4. !pl $body_image_msg to display extra texts
  5. $body_image_msg = ''
  6. if $ARGS[0] = 'body':
  7. !! This displays the body image; $bodimgsets[x9] is the folder name
  8. if (knowpreg = 1 or (preg = 1 and thinkpreg = 1) or (preg = 1 and PregChem > 3600)) and bodset = 3:
  9. if PregChem > 6216:
  10. $RESULT = 'images/pc/body/shape/<<$bodimgsets[((bodset * 10)+9)]>>/8.jpg'
  11. elseif PregChem < 2688:
  12. $RESULT = 'images/pc/body/shape/<<$bodimgsets[((bodset * 10)+9)]>>/0.jpg'
  13. else
  14. $RESULT = 'images/pc/body/shape/<<$bodimgsets[((bodset * 10)+9)]>>/<<((PregChem - 2184)/504)>>.jpg'
  15. end
  16. elseif salocatnow >= 1 and salocatnow <= 5:
  17. $RESULT = 'images/pc/body/shape/<<$bodimgsets[((bodset * 10) + 9)]>>/<<salocatnow>>.jpg'
  18. elseif salocatnow <= 0:
  19. $RESULT = 'images/pc/body/shape/0.jpg'
  20. elseif salocatnow = 6:
  21. if imgset6ovr[bodset] = 1:
  22. $RESULT = 'images/pc/body/shape/<<$bodimgsets[((bodset * 10) + 9)]>>/6.jpg'
  23. else
  24. $RESULT = 'images/pc/body/shape/6.jpg'
  25. end
  26. else
  27. if imgset7ovr[bodset] = 1:
  28. $RESULT = 'images/pc/body/shape/<<$bodimgsets[((bodset * 10) + 9)]>>/7.jpg'
  29. else
  30. $RESULT = 'images/pc/body/shape/7.jpg'
  31. end
  32. end
  33. $body_image_msg += 'You are <<pcs_hgt>>cm tall and <<$body>>'
  34. end
  35. if $ARGS[0] = 'coat':
  36. if defaultcoat = 0:
  37. $RESULT = ''
  38. $body_image_msg += 'You have no default coat set.'
  39. $body_image_msg += '<br>Your health will suffer if you don''t wear a coat in the winter.'
  40. else
  41. $RESULT = 'images/pc/clothing/11coat/<<defaultcoat>>.jpg'
  42. $body_image_msg += 'Your current default coat is Coat<<defaultcoat>>.<br>'
  43. !make sure to sync these with [outdoors]~364
  44. if defaultcoat_warmth = 1:
  45. $body_image_msg += 'It''ll keep you fairly warm down to -10C.'
  46. elseif defaultcoat_warmth = 2:
  47. $body_image_msg += 'It will handle temperatures down to -20C.'
  48. elseif defaultcoat_warmth = 3:
  49. $body_image_msg += 'You will be nice and warm even in the depths of winter.'
  50. else
  51. $body_image_msg += 'Your health will suffer if you don''t wear a coat in the winter.'
  52. end
  53. end
  54. end
  55. if $ARGS[0] = 'clothes':
  56. if $clothingworntype = 'nude' and towel = 1 and $pantyworntype = 'none':
  57. $RESULT = 'images/pc/clothing/towel.jpg'
  58. $body_image_msg += 'You are only wearing a towel'
  59. elseif $clothingworntype = 'nude' and $pantyworntype ! 'none':
  60. $RESULT = 'images/pc/clothing/nude.jpg'
  61. $body_image_msg += 'You are only wearing panties'
  62. elseif $clothingworntype = 'nude' and $pantyworntype = 'none':
  63. $RESULT = 'images/pc/clothing/nude1.jpg'
  64. $body_image_msg += 'You are completely naked.'
  65. elseif $clothingworntype = 'cheap' and clothingwornnumber = 414:
  66. $RESULT = FUNC('$clothing_image', $clothingworntype, clothingwornnumber)
  67. $body_image_msg += 'You are wearing a hessian sack the hunters gave you.'
  68. else
  69. $RESULT = FUNC('$clothing_image', $clothingworntype, clothingwornnumber)
  70. $body_image_msg += 'You are wearing ' + FUNC('$short_description', $clothingworntype, PCloStyle2) + '<<clothingwornnumber>>.'
  71. if PClobimbo = 1:$body_image_msg += '<br>You are dressed like a bimbo.'
  72. if $clothingworntype ! 'coat' and $clothingworntype ! 'swimwear':
  73. gs 'clothing_attributes', $clothingworntype, clothingwornnumber
  74. gs 'clothing_descriptions'
  75. $body_image_msg += '<br><<$description>>'
  76. else
  77. $body_image_msg += FUNC('$clothing_name', $clothingworntype, clothingwornnumber)
  78. end
  79. *nl
  80. if $clothingworntype = 'uniform':
  81. if PCloStyle2 = 1:
  82. $body_image_msg += '<br>This outfit is considered to be a maid uniform.'
  83. elseif PCloStyle2 = 3:
  84. $body_image_msg += '<br>This is a stripper outfit.'
  85. else
  86. $body_image_msg += '<br>This outfit is a server uniform, suitable for jobs that require one.'
  87. end
  88. end
  89. end
  90. end
  91. if $ARGS[0] = 'panties':
  92. if $pantyworntype = 'none':
  93. if pcs_pubes <= 3:
  94. $RESULT = 'images/pc/body/pussy/pussy.jpg'
  95. elseif pcs_pubes > 3 and pcs_pubes <= 10:
  96. $RESULT = 'images/pc/body/pussy/stpussy.jpg'
  97. elseif pcs_pubes > 10 and pcs_pubes <= 15:
  98. if pubestyle >= 2 and pubestyle <= 7:
  99. $RESULT = $pubeimage
  100. else
  101. $RESULT = 'images/pc/body/pussy/3.jpg'
  102. end
  103. elseif pcs_pubes > 15 and pcs_pubes <= 20:
  104. if pubestyle = 8: $RESULT = $pubeimage
  105. if pubestyle ! 8: $RESULT = 'images/pc/body/pussy/spussy.jpg'
  106. elseif pcs_pubes > 20 and pcs_pubes <= 25:
  107. $RESULT = 'images/pc/body/pussy/shave/s_bush1.jpg'
  108. elseif pcs_pubes > 25 and pcs_pubes <= 30:
  109. $RESULT = 'images/pc/body/pussy/hpussy.jpg'
  110. elseif pcs_pubes >= 31:
  111. $RESULT = 'images/pc/body/pussy/hrypussy.jpg'
  112. end
  113. $body_image_msg += 'You are not wearing any panties.'
  114. else
  115. $RESULT = FUNC('$panty_image', $pantyworntype, pantywornnumber)
  116. !Kevin, please edit this line. I can not find panties description
  117. !$body_image_msg += 'You are wearing ' + FUNC('$shoe_description', $shoeworntype) + '<<shoewornnumber>>.'
  118. $body_image_msg += 'You are wearing <<$pantyworntype>> panty <<pantywornnumber>>'
  119. end
  120. end
  121. if $ARGS[0] = 'bra':
  122. if $braworntype = 'none':
  123. $RESULT = 'images/pc/body/tits/t<<tits>>.jpg'
  124. $body_image_msg += 'You are not wearing a bra. Your breasts would be considered an EU <<$titsize>>'
  125. else
  126. $RESULT = FUNC('$bra_image', $braworntype, brawornnumber)
  127. !Kevin, please edit this line. I can not find bra description
  128. !$body_image_msg += 'You are wearing ' + FUNC('$shoe_description', $shoeworntype) + '<<shoewornnumber>>.'
  129. $body_image_msg += 'You are wearing <<$braworntype>> bra <<brawornnumber>>. Your breasts would be considered an EU <<$titsize>>'
  130. end
  131. end
  132. if $ARGS[0] = 'shoes':
  133. if $clothingworntype = 'nude' or $shoeworntype = 'none':
  134. $RESULT = 'images/pc/body/feet.jpg'
  135. else
  136. $RESULT = FUNC('$shoe_image', $shoeworntype, shoewornnumber)
  137. $body_image_msg += 'You are wearing ' + FUNC('$shoe_description', $shoeworntype) + '<<shoewornnumber>>.'
  138. end
  139. end
  140. --- $body_image ---------------------------------