1
0

changingroom.qsrc 6.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181
  1. # changingroom
  2. menu_off = 1
  3. if $ARGS[0] = 'view_swim_list':
  4. if ARRSIZE('danilovich_swimsuit') = 0 and ARRSIZE('scandalicious_swimsuit') = 0 and ARRSIZE('scandalicious_bikinis') = 0 and ARRSIZE('allure_swimsuit') = 0 and ARRSIZE('allure_bikinis') = 0:
  5. '<center>You do not own any swimwear.</center>'
  6. elseif $loc = 'fit' or $loc = 'bass' or temper >= 15:
  7. if PCloswimwear = 0:
  8. if $clothingworntype = 'nude':
  9. if PCloswimwear = 0:
  10. $normalclothingworntype = $lastwornclothingtype
  11. normalclothingwornno = lastwornclothingnumber
  12. end
  13. else
  14. $normalclothingworntype = $clothingworntype
  15. normalclothingwornno = clothingwornnumber
  16. end
  17. end
  18. i = 1
  19. :loopdanilovich_swimsuit
  20. if danilovich_swimsuit[i] = 1 and danilovich_swimsuit_s[i] = 0 and ($clothingworntype ! 'danilovich_swimsuit' or clothingwornnumber ! i):*p '<a href="exec:gt ''changingroom'', ''view_swim_item'', ''danilovich_swimsuit'', <<i>>"><img <<$set_imgh>> src="images/pc/items/danilovich/swimwear/<<i>>.jpg" height="250" /></a>'
  21. i += 1
  22. if i <= ARRSIZE('danilovich_swimsuit'):jump 'loopdanilovich_swimsuit'
  23. *nl
  24. i = 1
  25. :loopscandalicious_swimsuit
  26. if scandalicious_swimsuit[i] = 1 and scandalicious_swimsuit_s[i] = 0 and ($clothingworntype ! 'scandalicious_swimsuit' or clothingwornnumber ! i):*p '<a href="exec:gt ''changingroom'', ''view_swim_item'', ''scandalicious_swimsuit'', <<i>>"><img <<$set_imgh>> src="images/pc/items/scandalicious/swim/one/<<i>>.jpg" height="250" /></a>'
  27. i += 1
  28. if i <= ARRSIZE('scandalicious_swimsuit'):jump 'loopscandalicious_swimsuit'
  29. *nl
  30. i = 1
  31. :loopscandalicious_bikinis
  32. if scandalicious_bikinis[i] = 1 and scandalicious_bikinis_s[i] = 0 and ($clothingworntype ! 'scandalicious_bikinis' or clothingwornnumber ! i):*p '<a href="exec:gt ''changingroom'', ''view_swim_item'', ''scandalicious_bikinis'', <<i>>"><img <<$set_imgh>> src="images/pc/items/scandalicious/swim/two/<<i>>.jpg" height="250" /></a>'
  33. i += 1
  34. if i <= ARRSIZE('scandalicious_bikinis'):jump 'loopscandalicious_bikinis'
  35. if $clothingworntype = 'swimwear' or $clothingworntype = 'scandalicious_swimsuit' or $clothingworntype = 'scandalicious_bikinis': '<center>You are wearing swimwear.</center>'
  36. *nl
  37. i = 1
  38. :loopallure_swimsuit
  39. if allure_swimsuit[i] = 1 and allure_swimsuit_s[i] = 0 and ($clothingworntype ! 'allure_swimsuit' or clothingwornnumber ! i):*p '<a href="exec:gt ''changingroom'', ''view_swim_item'', ''allure_swimsuit'', <<i>>"><img <<$set_imgh>> src="images/pc/items/allure/one/<<i>>.jpg" height="250" /></a>'
  40. i += 1
  41. if i <= ARRSIZE('allure_swimsuit'):jump 'loopallure_swimsuit'
  42. *nl
  43. i = 1
  44. :loopallure_bikinis
  45. if allure_bikinis[i] = 1 and allure_bikinis_s[i] = 0 and ($clothingworntype ! 'allure_bikinis' or clothingwornnumber ! i):*p '<a href="exec:gt ''changingroom'', ''view_swim_item'', ''allure_bikinis'', <<i>>"><img <<$set_imgh>> src="images/pc/items/allure/two/<<i>>.jpg" height="250" /></a>'
  46. i += 1
  47. if i <= ARRSIZE('allure_bikinis'):jump 'loopallure_bikinis'
  48. if $clothingworntype = 'swimwear' or $clothingworntype = 'scandalicious_swimsuit' or $clothingworntype = 'scandalicious_bikinis': '<center>You are wearing swimwear.</center>'
  49. elseif temper < 15:
  50. '<center>It''s below 15C - far too cold to get changed into swimwear. You should wait until the weather warms up.</center>'
  51. end
  52. act 'Leave':gt $loc, $loc_arg
  53. if PCloswimwear = 1:
  54. act 'Put your regular clothes back on':
  55. gs 'underwear', 'wear'
  56. gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
  57. gt $loc, $loc_arg
  58. end
  59. end
  60. end
  61. if $ARGS[0] = 'view_swim_item':
  62. !! ARGS 0 - view_clothing_item
  63. !! ARGS 1 - clothing type
  64. !! ARGS 2 - clothing index
  65. cla
  66. '<center><img <<$set_imgh>> src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>"></center>'
  67. '<<$ARGS[1]>> no.<<ARGS[2]>>'
  68. if $ARGS[1] = 'danilovich_swimsuit':
  69. FUNC('$attributes_danilovich_swim_one', $ARGS[1], ARGS[2])
  70. $swimwear_description
  71. elseif $ARGS[1] = 'scandalicious_swimsuit':
  72. FUNC('$attributes_scandalicious_swim_one', $ARGS[1], ARGS[2])
  73. $swimwear_description
  74. elseif $ARGS[1] = 'scandalicious_bikinis':
  75. FUNC('$attributes_scandalicious_swim_two', $ARGS[1], ARGS[2])
  76. $swimwear_description
  77. elseif $ARGS[1] = 'allure_swimsuit':
  78. FUNC('$attributes_allure_swim_one', $ARGS[1], ARGS[2])
  79. $swimwear_description
  80. elseif $ARGS[1] = 'allure_bikinis':
  81. FUNC('$attributes_allure_swim_two', $ARGS[1], ARGS[2])
  82. $swimwear_description
  83. end
  84. $RESULT = '(strength '
  85. dynamic '$RESULT += <<$ARGS[1]>>_h[<<ARGS[2]>>]'
  86. $RESULT += ')'
  87. '<<$RESULT>>'
  88. act 'Return':gt 'changingroom', 'view_swim_list'
  89. !! if the clothing is worn out
  90. if dyneval('RESULT = <<$ARGS[1]>>_h[<<ARGS[2]>>]') <= 0:
  91. 'This item is worn and is not suitable for further wear.'
  92. act 'Throw it away':
  93. dynamic '<<$ARGS[1]>>[<<ARGS[2]>>] = 0'
  94. gt 'changingroom', 'view_swim_list'
  95. end
  96. elseif CloInhibit > pcs_inhib:
  97. 'You don''t feel daring enough to wear swimwear this revealing.'
  98. else
  99. if CloInhibit + 10 > pcs_inhib: 'You find this swimwear to be more revealing than you are completely comfortable with but that makes it quite exciting too.'
  100. act 'Wear':
  101. gs 'underwear', 'remove'
  102. gs 'clothing', 'wear', $ARGS[1], ARGS[2]
  103. gt $loc, $loc_arg
  104. end
  105. end
  106. end
  107. !! following function counts all available swimwear even if being worn currently.
  108. !! you can add 'swim' or 'beach' if you want to count just one of them
  109. !! use func('changingroom','count_swim_item') or func('changingroom','count_swim_item','swim') or func('changingroom','count_swim_item','beach')
  110. if $ARGS[0] = 'count_swim_item':
  111. h = 0
  112. if $ARGS[1] = 'danilovich_swimsuit' or $ARGS[1] = '':
  113. i = 1
  114. :loopcount_danilovich_swimsuit
  115. if danilovich_swimsuit[i] = 1 and danilovich_swimsuit_s[i] = 0 :h += 1
  116. i += 1
  117. if i <= ARRSIZE('danilovich_swimsuit'):jump 'loopcount_danilovich_swimsuit'
  118. end
  119. if $ARGS[1] = 'scandalicious_swimsuit' or $ARGS[1] = '':
  120. i = 1
  121. :loopcount_scandalicious_swimsuit
  122. if scandalicious_swimsuit[i] = 1 and scandalicious_swimsuit_s[i] = 0 :h += 1
  123. i += 1
  124. if i <= ARRSIZE('scandalicious_swimsuit'):jump 'loopcount_scandalicious_swimsuit'
  125. end
  126. if $ARGS[1] = 'scandalicious_bikinis' or $ARGS[1] = '':
  127. i = 1
  128. :loopcount_scandalicious_bikinis
  129. if scandalicious_bikinis[i] = 1 and scandalicious_bikinis_s[i] = 0 :h += 1
  130. i += 1
  131. if i <= ARRSIZE('scandalicious_bikinis'):jump 'loopcount_scandalicious_bikinis'
  132. end
  133. if $ARGS[1] = 'allure_swimsuit' or $ARGS[1] = '':
  134. i = 1
  135. :loopcount_allure_swimsuit
  136. if allure_swimsuit[i] = 1 and allure_swimsuit_s[i] = 0 :h += 1
  137. i += 1
  138. if i <= ARRSIZE('allure_swimsuit'):jump 'loopcount_allure_swimsuit'
  139. end
  140. if $ARGS[1] = 'allure_bikinis' or $ARGS[1] = '':
  141. i = 1
  142. :loopcount_allure_bikinis
  143. if allure_bikinis[i] = 1 and allure_bikinis_s[i] = 0 :h += 1
  144. i += 1
  145. if i <= ARRSIZE('allure_bikinis'):jump 'loopcount_allure_bikinis'
  146. end
  147. result = h
  148. killvar 'i'
  149. killvar 'h'
  150. end
  151. --- changingroom ---------------------------------