changingroom.qsrc 2.6 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283
  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':
  6. if $clothingworntype = 'nude':
  7. if $lastwornclothingtype ! 'swimwear':
  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. if h = 0 and $clothingworntype ! 'swimwear': '<center>You do not own any swimwear.</center>'
  23. if h = 0 and $clothingworntype = 'swimwear': '<center>You are wearing your swimwear.</center>'
  24. elseif temper < 15:
  25. '<center>It''s below 15C - far too cold to get changed into swimwear. You should wait until the weather warms up.</center>'
  26. end
  27. act 'Leave':gt $loc, $metka
  28. if $clothingworntype = 'swimwear':
  29. act 'Put your regular clothes back on':
  30. gs 'underwear', 'wear'
  31. gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
  32. gt $loc, $metka
  33. end
  34. end
  35. end
  36. if $ARGS[0] = 'view_swim_item':
  37. !! ARGS 0 - view_clothing_item
  38. !! ARGS 1 - clothing type
  39. !! ARGS 2 - clothing index
  40. cla
  41. '<center><img <<$set_imgh>> src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>"></center>'
  42. '<<$ARGS[1]>> no.<<ARGS[2]>>'
  43. FUNC('$attributes_swimwear', $ARGS[1], ARGS[2])
  44. FUNC('$clothing_name', $ARGS[1], ARGS[2])
  45. $RESULT = '(strength '
  46. dynamic '$RESULT += <<$ARGS[1]>>H[<<ARGS[2]>>]'
  47. $RESULT += ')'
  48. '<<$RESULT>>'
  49. act 'Return':gt 'changingroom', 'view_swim_list'
  50. !! if the clothing is worn out
  51. if dyneval('RESULT = <<$ARGS[1]>>H[<<ARGS[2]>>]') <= 0:
  52. 'This item is worn and is not suitable for further wear.'
  53. act 'Throw it away':
  54. dynamic '<<$ARGS[1]>>[<<ARGS[2]>>] = 0'
  55. gt 'changingroom', 'view_swim_list'
  56. end
  57. elseif CloInhibit > pcs_inhib:
  58. 'You don''t feel daring enough to wear swimwear this revealing.'
  59. else
  60. 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.'
  61. act 'Wear':
  62. gs 'underwear', 'remove'
  63. gs 'clothing', 'wear', $ARGS[1], ARGS[2]
  64. gt $loc, $metka
  65. end
  66. end
  67. end
  68. --- changingroom ---------------------------------