clothing_QV 9.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256
  1. # clothing_QV
  2. if $ARGS[0] = 'list':
  3. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">Wardrobe </a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store''">Storage</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted''">Unwanted</a></TH><TH><a href="exec:gt ''clothing_QV'', ''list''">Pick something to wear</a></TH></center>'
  4. if $clothingworntype ! 'nude':
  5. act 'Strip':gt 'clothing_QV', 'strip'
  6. end
  7. dynamic $wearpan
  8. dynamic $removepan
  9. act 'Leave':gt $loc, $metka
  10. if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and schoolS[6] = 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''school'', 6"><img src="images/pc/clothing/6school/6.jpg" height="250" /></a>'
  11. i = 1
  12. :loopcheap
  13. if cheap[i] = 1:
  14. gs 'clothing_attributes', 'cheap', i
  15. if CloExhibit <= pcs_exhibition:
  16. if CloStyle ! 5:
  17. if cheapS[i] = 0 and cheapH[i] > 0 and cheapB[i] >= (pcs_hips - 8) and cheapB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''cheap'', <<i>>"><img src="images/pc/clothing/1cheap/<<i>>.jpg" height="250" /></a>'
  18. else
  19. if cheapS[i] = 0 and cheapH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''cheap'', <<i>>"><img src="images/pc/clothing/1cheap/<<i>>.jpg" height="250" /></a>'
  20. end
  21. end
  22. end
  23. i += 1
  24. if i <= ARRSIZE('cheap'):jump 'loopcheap'
  25. i = 1
  26. :loopaverage
  27. if average[i] = 1:
  28. gs 'clothing_attributes', 'average', i
  29. if CloExhibit <= pcs_exhibition:
  30. if CloStyle ! 5:
  31. if averageS[i] = 0 and averageH[i] > 0 and averageB[i] >= (pcs_hips - 8) and averageB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''average'', <<i>>"><img src="images/pc/clothing/2average/<<i>>.jpg" height="250" /></a>'
  32. else
  33. if averageS[i] = 0 and averageH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''average'', <<i>>"><img src="images/pc/clothing/2average/<<i>>.jpg" height="250" /></a>'
  34. end
  35. end
  36. end
  37. i += 1
  38. if i <= ARRSIZE('average'):jump 'loopaverage'
  39. i = 1
  40. :loopexpensive
  41. if expensive[i] = 1:
  42. gs 'clothing_attributes', 'expensive', i
  43. if CloExhibit <= pcs_exhibition:
  44. if CloStyle ! 5:
  45. if expensiveS[i] = 0 and expensiveH[i] > 0 and expensiveB[i] >= (pcs_hips - 8) and expensiveB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''expensive'', <<i>>"><img src="images/pc/clothing/3expensive/<<i>>.jpg" height="250" /></a>'
  46. else
  47. if expensiveS[i] = 0 and expensiveH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''expensive'', <<i>>"><img src="images/pc/clothing/3expensive/<<i>>.jpg" height="250" /></a>'
  48. end
  49. end
  50. end
  51. i += 1
  52. if i <= ARRSIZE('expensive'):jump 'loopexpensive'
  53. i = 1
  54. :loopformal
  55. if formal[i] = 1:
  56. gs 'clothing_attributes', 'formal', i
  57. if CloExhibit <= pcs_exhibition:
  58. if formalS[i] = 0 and formalH[i] > 0 and formalB[i] >= (pcs_hips - 8) and formalB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''formal'', <<i>>"><img src="images/pc/clothing/4formal/<<i>>.jpg" height="250" /></a>'
  59. end
  60. end
  61. i += 1
  62. if i <= ARRSIZE('formal'):jump 'loopformal'
  63. i = 1
  64. :loopoffice
  65. if office[i] = 1:
  66. gs 'clothing_attributes', 'office', i
  67. if CloExhibit <= pcs_exhibition:
  68. if officeS[i] = 0 and officeH[i] > 0 and officeB[i] >= (pcs_hips - 8) and officeB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''office'', <<i>>"><img src="images/pc/clothing/5office/<<i>>.jpg" height="250" /></a>'
  69. end
  70. end
  71. i += 1
  72. if i <= ARRSIZE('office'):jump 'loopoffice'
  73. i = 1
  74. :loopschool
  75. if school[i] = 1:
  76. gs 'clothing_attributes', 'school', i
  77. if CloExhibit <= pcs_exhibition:
  78. if schoolS[i] = 0 and schoolH[i] > 0 and schoolB[i] >= (pcs_hips - 8) and schoolB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''school'', <<i>>"><img src="images/pc/clothing/6school/<<i>>.jpg" height="250" /></a>'
  79. end
  80. end
  81. i += 1
  82. if i = 6: i = 7
  83. if i <= ARRSIZE('school'):jump 'loopschool'
  84. i = 1
  85. :loopexercise
  86. if exercise[i] = 1:
  87. gs 'clothing_attributes', 'exercise', i
  88. if CloExhibit <= pcs_exhibition:
  89. if exerciseS[i] = 0 and exerciseH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''exercise'', <<i>>"><img src="images/pc/clothing/7exercise/<<i>>.jpg" height="250" /></a>'
  90. end
  91. end
  92. i += 1
  93. if i <= ARRSIZE('exercise'):jump 'loopexercise'
  94. i = 1
  95. :loopfetish
  96. if fetish[i] = 1:
  97. gs 'clothing_attributes', 'fetish', i
  98. if CloExhibit <= pcs_exhibition:
  99. if fetishS[i] = 0 and fetishH[i] > 0 and fetishB[i] >= (pcs_hips - 8) and fetishB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''fetish'', <<i>>"><img src="images/pc/clothing/8fetish/<<i>>.jpg" height="250" /></a>'
  100. end
  101. end
  102. i += 1
  103. if i <= ARRSIZE('fetish'):jump 'loopfetish'
  104. i = 1
  105. :loopexhibit
  106. if exhibit[i] = 1:
  107. gs 'clothing_attributes', 'exhibit', i
  108. if CloExhibit <= pcs_exhibition:
  109. if exhibitS[i] = 0 and exhibitH[i] > 0 and exhibitB[i] >= (pcs_hips - 8) and exhibitB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''exhibit'', <<i>>"><img src="images/pc/clothing/9exhibit/<<i>>.jpg" height="250" /></a>'
  110. end
  111. end
  112. i += 1
  113. if i <= ARRSIZE('exhibit'):jump 'loopexhibit'
  114. i = 1
  115. :loopuniform
  116. if uniform[i] = 1:
  117. gs 'clothing_attributes', 'uniform', i
  118. if CloExhibit <= pcs_exhibition:
  119. if uniformS[i] = 0 and uniformH[i] > 0 and uniformB[i] >= (pcs_hips - 8) and uniformB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''uniform'', <<i>>"><img src="images/pc/clothing/10uniform/<<i>>.jpg" height="250" /></a>'
  120. end
  121. end
  122. i += 1
  123. if i <= ARRSIZE('uniform'):jump 'loopuniform'
  124. i = 1
  125. :loopburlesque
  126. if burlesque[i] = 1:
  127. gs 'clothing_attributes', 'burlesque', i
  128. if CloExhibit <= pcs_exhibition:
  129. if burlesqueS[i] = 0 and burlesqueH[i] > 0 and burlesqueB[i] >= (pcs_hips - 8) and burlesqueB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''burlesque'', <<i>>"><img src="images/pc/clothing/13burlesque/<<i>>.jpg" height="250" /></a>'
  130. end
  131. end
  132. i += 1
  133. if i <= ARRSIZE('burlesque'):jump 'loopburlesque'
  134. i = 1
  135. :loopalternative
  136. if alternative[i] = 1:
  137. gs 'clothing_attributes', 'alternative', i
  138. if CloExhibit <= pcs_exhibition:
  139. if alternativeS[i] = 0 and alternativeH[i] > 0 and alternativeB[i] >= (pcs_hips - 8) and alternativeB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''alternative'', <<i>>"><img src="images/pc/clothing/14alternative/<<i>>.jpg" height="250" /></a>'
  140. end
  141. end
  142. i += 1
  143. if i <= ARRSIZE('alternative'):jump 'loopalternative'
  144. end
  145. if $ARGS[0] = 'cloak':
  146. i = 1
  147. :loopcoat
  148. if coat[i] = 1:
  149. if coatH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''coat'', <<i>>"><img src="images/pc/clothing/11coat/<<i>>.jpg" height="250" /></a>'
  150. end
  151. i += 1
  152. if i <= ARRSIZE('coat'):jump 'loopcoat'
  153. end
  154. if $ARGS[0] = 'strip':
  155. if $pantyworntype ! 'none':
  156. '<center><img src="images/pc/clothing/nude.jpg"></center>'
  157. '<center>You strip down to your panties.</center>'
  158. else
  159. '<center><img src="images/pc/clothing/nude1.jpg"></center>'
  160. '<center>You strip completely naked.</center>'
  161. end
  162. gs 'clothing', 'strip'
  163. act 'Choose something to wear':gt 'clothing_QV', 'list'
  164. act 'Leave':gt $loc, $metka
  165. end
  166. if $ARGS[0] = 'change':
  167. *clr
  168. cla
  169. gs 'clothing_attributes', $ARGS[1], ARGS[2]
  170. '<center><img src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>"></center>'
  171. $RESULT = FUNC('$short_description', $ARGS[1], CloStyle2)
  172. $RESULT += '<<ARGS[2]>>'
  173. '<<$RESULT>>'
  174. if $ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear':
  175. gs 'clothing_descriptions'
  176. '<<$description>>'
  177. else
  178. FUNC('$clothing_name', $ARGS[1], ARGS[2])
  179. end
  180. if CloBimbo = 1:'This item is considered bimbo clothing.'
  181. if CloStyle = 4:'This outfit can be used for prostitution.'
  182. if $ARGS[2] = 'uniform':
  183. if CloStyle2 = 1:
  184. 'This outfit is considered to be a maid uniform.'
  185. elseif CloStyle2 = 3:
  186. 'This is a stripper outfit.'
  187. else
  188. 'This outfit is a server uniform, suitable for jobs that require one.'
  189. end
  190. end
  191. if $ARGS[2] = 'school':
  192. if CloSkirtShortness < 5 and CloThinness < 5 and CloBra = 0:
  193. '<font color="blue">This uniform complies with the school regulations on skirt length.</font>'
  194. elseif CloSkirtShortness = 5 and CloThinness < 5 and CloBra = 0:
  195. '<font color="blue">This uniform slightly breaches the school regulations on skirt length.</font>'
  196. else
  197. '<font color="red">This uniform makes a mockery of the school uniform regulations.</font>'
  198. end
  199. end
  200. if $clothingworntype = $ARGS[1] and clothingwornnumber = ARGS[2]:
  201. 'You are wearing this outfit.'
  202. elseif CloExhibit > pcs_exhibition:
  203. 'You don''t feel confident enough to wear an outfit this revealing.'
  204. elseif ARRPOS('$CloLosTyp', $ARGS[1]) ! -1 and ARRPOS('CloLosNum',ARGS[2]) ! -1 :
  205. 'You lost these clothes somewhere, maybe you can find them again?.'
  206. else
  207. if CloExhibit + 10 > pcs_exhibition: 'You find this outfit more revealing than you are completely comfortable with but that makes it quite exciting too.'
  208. act 'Wear this outfit':
  209. gs 'clothing', 'wear', $ARGS[1], ARGS[2]
  210. dynamic $ARGS[1] + 'W[<<ARGS[2]>>] = 1'
  211. $clotype = $ARGS[1]
  212. gs 'shoes', 'setup'
  213. gs 'shoes', 'wear', $shoeworntype, shoewornnumber
  214. gt $loc, $metka
  215. end
  216. end
  217. act 'Choose another outfit': gt 'clothing_QV', 'list'
  218. act 'Leave':gt $loc, $metka
  219. end
  220. --- clothing_QV ---------------------------------