changingroom.qsrc 4.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124
  1. # changingroom
  2. menu_off = 1
  3. if $ARGS[0] = 'view_swim_list':
  4. if $loc = 'fit' or $loc = 'bass' or temper >= 15:
  5. if $clothingworntype ! 'swimwear' and $clothingworntype ! 'beach':
  6. if $clothingworntype = 'nude':
  7. if $lastwornclothingtype ! 'swimwear' and $lastwornclothingtype ! 'beach':
  8. $normalclothingworntype = $lastwornclothingtype
  9. normalclothingwornno = lastwornclothingnumber
  10. end
  11. else
  12. $normalclothingworntype = $clothingworntype
  13. normalclothingwornno = clothingwornnumber
  14. end
  15. end
  16. i = 1
  17. h = 0
  18. :loopswimwear
  19. if swimwear[i] = 1 and swimwearS[i] = 0 and ($clothingworntype ! 'swimwear' or clothingwornnumber ! i):h += 1 & *p '<a href="exec:gt ''changingroom'', ''view_swim_item'', ''swimwear'', <<i>>"><img <<$set_imgh>> src="images/pc/clothing/12swimwear/<<i>>.jpg" height="250" /></a>'
  20. i += 1
  21. if i <= ARRSIZE('swimwear'):jump 'loopswimwear'
  22. *nl
  23. *nl
  24. i = 1
  25. h = 0
  26. :loopbeach
  27. if beach[i] = 1 and beachS[i] = 0 and ($clothingworntype ! 'beach' or clothingwornnumber ! i):h += 1 & *p '<a href="exec:gt ''changingroom'', ''view_swim_item'', ''beach'', <<i>>"><img <<$set_imgh>> src="images/pc/clothing/15beachbabe/<<i>>.jpg" height="250" /></a>'
  28. i += 1
  29. if i <= ARRSIZE('beach'):jump 'loopbeach'
  30. if h = 0 and $clothingworntype ! 'swimwear': '<center>You do not own any regular swimwear.</center>'
  31. if h = 0 and $clothingworntype ! 'beach': '<center>You do not own any slutty swimwear.</center>'
  32. if h = 0 and $clothingworntype = 'swimwear' or $clothingworntype = 'beach': '<center>You are wearing swimwear.</center>'
  33. elseif temper < 15:
  34. '<center>It''s below 15C - far too cold to get changed into swimwear. You should wait until the weather warms up.</center>'
  35. end
  36. act 'Leave':gt $loc, $loc_arg
  37. if $clothingworntype = 'swimwear' or $clothingworntype = 'beach':
  38. act 'Put your regular clothes back on':
  39. gs 'underwear', 'wear'
  40. gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
  41. gt $loc, $loc_arg
  42. end
  43. end
  44. end
  45. if $ARGS[0] = 'view_swim_item':
  46. !! ARGS 0 - view_clothing_item
  47. !! ARGS 1 - clothing type
  48. !! ARGS 2 - clothing index
  49. cla
  50. '<center><img <<$set_imgh>> src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>"></center>'
  51. '<<$ARGS[1]>> no.<<ARGS[2]>>'
  52. if $ARGS[1] = 'swimwear':
  53. FUNC('$attributes_swimwear', $ARGS[1], ARGS[2])
  54. else
  55. FUNC('$attributes_beach', $ARGS[1], ARGS[2])
  56. end
  57. FUNC('$clothing_name', $ARGS[1], ARGS[2])
  58. $RESULT = '(strength '
  59. dynamic '$RESULT += <<$ARGS[1]>>H[<<ARGS[2]>>]'
  60. $RESULT += ')'
  61. '<<$RESULT>>'
  62. act 'Return':gt 'changingroom', 'view_swim_list'
  63. !! if the clothing is worn out
  64. if dyneval('RESULT = <<$ARGS[1]>>H[<<ARGS[2]>>]') <= 0:
  65. 'This item is worn and is not suitable for further wear.'
  66. act 'Throw it away':
  67. dynamic '<<$ARGS[1]>>[<<ARGS[2]>>] = 0'
  68. gt 'changingroom', 'view_swim_list'
  69. end
  70. elseif CloInhibit > pcs_inhib:
  71. 'You don''t feel daring enough to wear swimwear this revealing.'
  72. else
  73. 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.'
  74. act 'Wear':
  75. gs 'underwear', 'remove'
  76. gs 'clothing', 'wear', $ARGS[1], ARGS[2]
  77. gt $loc, $loc_arg
  78. end
  79. end
  80. end
  81. !! following function counts all available swim and beach wear including the one which could be dressed already.
  82. !! you can add 'swim' or 'beach' if you want to count just one of them
  83. !! use func('changingroom','count_swim_item') or func('changingroom','count_swim_item','swim') or func('changingroom','count_swim_item','beach')
  84. if $ARGS[0] = 'count_swim_item':
  85. h = 0
  86. if $ARGS[1] = 'swim' or $ARGS[1] = '':
  87. i = 1
  88. :loopcountswimwear
  89. if swimwear[i] = 1 and swimwearS[i] = 0 :h += 1
  90. i += 1
  91. if i <= ARRSIZE('swimwear'):jump 'loopcountswimwear'
  92. end
  93. if $ARGS[1] = 'beach' or $ARGS[1] = '':
  94. i = 1
  95. :loopcountbeach
  96. if beach[i] = 1 and beachS[i] = 0 :h += 1
  97. i += 1
  98. if i <= ARRSIZE('beach'):jump 'loopcountbeach'
  99. end
  100. result = h
  101. killvar 'i'
  102. killvar 'h'
  103. end
  104. --- changingroom ---------------------------------