1
0

clothing_QV 7.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186
  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. if tanga = 0 and clrbelo > 0:
  8. act 'Wear underwear':
  9. cla
  10. tanga = 1
  11. clrbelo -= 1
  12. gt $curloc, 'list'
  13. end
  14. elseif tanga = 1:
  15. act 'Take off your underwear':
  16. cla
  17. tanga = 0
  18. dirtbelo += 1
  19. gt $curloc, 'list'
  20. end
  21. end
  22. act 'Leave':gt $loc, $metka
  23. 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/clothing/6school/school6.jpg" height="250" /></a>'
  24. i = 1
  25. :loopcheap
  26. gs 'clothing_attributes', 'cheap', i
  27. if CloStyle ! 5:
  28. if cheap[i] = 1 and cheapS[i] = 0 and cheapH[i] > 0 and cheapB[i] >= (bedra - 8) and cheapB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''cheap'', <<i>>"><img src="images/clothing/1cheap/cheap<<i>>.jpg" height="250" /></a>'
  29. else
  30. if cheap[i] = 1 and cheapS[i] = 0 and cheapH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''cheap'', <<i>>"><img src="images/clothing/1cheap/cheap<<i>>.jpg" height="250" /></a>'
  31. end
  32. i += 1
  33. if i <= 85:jump 'loopcheap'
  34. i = 1
  35. :loopaverage
  36. gs 'clothing_attributes', 'average', i
  37. if CloStyle ! 5:
  38. if average[i] = 1 and averageS[i] = 0 and averageH[i] > 0 and averageB[i] >= (bedra - 8) and averageB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''average'', <<i>>"><img src="images/clothing/2average/average<<i>>.jpg" height="250" /></a>'
  39. else
  40. if average[i] = 1 and averageS[i] = 0 and averageH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''average'', <<i>>"><img src="images/clothing/2average/average<<i>>.jpg" height="250" /></a>'
  41. end
  42. i += 1
  43. if i <= 125:jump 'loopaverage'
  44. i = 1
  45. :loopexpensive
  46. gs 'clothing_attributes', 'expensive', i
  47. if CloStyle ! 5:
  48. if expensive[i] = 1 and expensiveS[i] = 0 and expensiveH[i] > 0 and expensiveB[i] >= (bedra - 8) and expensiveB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''expensive'', <<i>>"><img src="images/clothing/3expensive/expensive<<i>>.jpg" height="250" /></a>'
  49. else
  50. if expensive[i] = 1 and expensiveS[i] = 0 and expensiveH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''expensive'', <<i>>"><img src="images/clothing/3expensive/expensive<<i>>.jpg" height="250" /></a>'
  51. end
  52. i += 1
  53. if i <= 147:jump 'loopexpensive'
  54. i = 1
  55. :loopformal
  56. if formal[i] = 1 and formalS[i] = 0 and formalH[i] > 0 and formalB[i] >= (bedra - 8) and formalB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''formal'', <<i>>"><img src="images/clothing/4formal/formal<<i>>.jpg" height="250" /></a>'
  57. i += 1
  58. if i <= 14:jump 'loopformal'
  59. i = 1
  60. :loopoffice
  61. if office[i] = 1 and officeS[i] = 0 and officeH[i] > 0 and officeB[i] >= (bedra - 8) and officeB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''office'', <<i>>"><img src="images/clothing/5office/office<<i>>.jpg" height="250" /></a>'
  62. i += 1
  63. if i <= 30:jump 'loopoffice'
  64. i = 1
  65. :loopschool
  66. if school[i] = 1 and schoolS[i] = 0 and schoolH[i] > 0 and schoolB[i] >= (bedra - 8) and schoolB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''school'', <<i>>"><img src="images/clothing/6school/school<<i>>.jpg" height="250" /></a>'
  67. i += 1
  68. if i = 6: i = 7
  69. if i <= 35:jump 'loopschool'
  70. i = 1
  71. :loopexercise
  72. if exercise[i] = 1 and exerciseS[i] = 0 and exerciseH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''exercise'', <<i>>"><img src="images/clothing/7exercise/exercise<<i>>.jpg" height="250" /></a>'
  73. i += 1
  74. if i <= 26:jump 'loopexercise'
  75. i = 1
  76. :loopnaughty
  77. if naughty[i] = 1 and naughtyS[i] = 0 and naughtyH[i] > 0 and naughtyB[i] >= (bedra - 8) and naughtyB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''naughty'', <<i>>"><img src="images/clothing/8naughty/naughty<<i>>.jpg" height="250" /></a>'
  78. i += 1
  79. if i <= 67:jump 'loopnaughty'
  80. i = 1
  81. :loopexhibit
  82. if exhibit[i] = 1 and exhibitS[i] = 0 and exhibitH[i] > 0 and exhibitB[i] >= (bedra - 8) and exhibitB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''exhibit'', <<i>>"><img src="images/clothing/9exhibit/exhibit<<i>>.jpg" height="250" /></a>'
  83. i += 1
  84. if i <= 30:jump 'loopexhibit'
  85. i = 1
  86. :loopuniform
  87. if uniform[i] = 1 and uniformS[i] = 0 and uniformH[i] > 0 and uniformB[i] >= (bedra - 8) and uniformB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''uniform'', <<i>>"><img src="images/clothing/10uniform/uniform<<i>>.jpg" height="250" /></a>'
  88. i += 1
  89. if i <= 24:jump 'loopuniform'
  90. end
  91. if $ARGS[0] = 'cloak':
  92. i = 1
  93. :loopcoat
  94. if coat[i] = 1 and coatH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''coat'', <<i>>"><img src="images/clothing/11coat/coat<i>>.jpg" height="250" /></a>'
  95. i += 1
  96. if i <= 12:jump 'loopcoat'
  97. end
  98. if $ARGS[0] = 'strip':
  99. if tanga = 1:
  100. '<center><img src="images/clothing/nude.jpg"></center>'
  101. '<center>You strip down to your panties.</center>'
  102. else
  103. '<center><img src="images/clothing/nude1.jpg"></center>'
  104. '<center>You strip completely naked.</center>'
  105. end
  106. gs 'clothing', 'strip'
  107. act 'Choose something to wear':gt 'clothing_QV', 'list'
  108. act 'Leave':gt $loc, $metka
  109. end
  110. if $ARGS[0] = 'change':
  111. *clr
  112. cla
  113. '<center><img src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>"></center>'
  114. $RESULT = FUNC('$short_description', $ARGS[1])
  115. $RESULT += '<<ARGS[2]>>'
  116. '<<$RESULT>>'
  117. gs 'clothing_attributes', $ARGS[1], ARGS[2]
  118. if $ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear':
  119. gs 'clothing_descriptions'
  120. '<<$description>>'
  121. else
  122. FUNC('$clothing_name', $ARGS[1], ARGS[2])
  123. end
  124. if CloBimbo = 1:'This item is considered bimbo clothing.'
  125. if $ARGS[1] = 'naughty' and CloQuality < 4:'This outfit can be used for prostitution.'
  126. if $ARGS[1] = 'uniform':
  127. if CloStyle2 = 1:
  128. 'This outfit is considered to be a maid uniform.'
  129. else
  130. 'This outfit is a server uniform, suitable for jobs that require one.'
  131. end
  132. end
  133. if $ARGS[2] = 'school':
  134. if CloSkirtShortness < 5:
  135. '<font color="blue">This uniform complies with the school regulations on skirt length.</font>'
  136. elseif CloSkirtShortness = 5:
  137. '<font color="blue">This uniform slightly breaches the school regulations on skirt length.</font>'
  138. else
  139. '<font color="red">This uniform makes a mockery of the school uniform regulations.</font>'
  140. end
  141. end
  142. if $clothingworntype = $ARGS[1] and clothingwornnumber = ARGS[2]:
  143. 'You are wearing this outfit.'
  144. else
  145. act 'Wear this outfit':
  146. gs 'clothing', 'wear', $ARGS[1], ARGS[2]
  147. dynamic $ARGS[1] + 'W[<<ARGS[2]>>] = 1'
  148. gt $loc, $metka
  149. end
  150. end
  151. act 'Choose another outfit': gt 'clothing_QV', 'list'
  152. act 'Leave':gt $loc, $metka
  153. end
  154. --- clothing_QV ---------------------------------