exhibitionistshop.qsrc 3.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166
  1. # exhibitionistshop
  2. if $ARGS[0] = 'start':
  3. CLOSE ALL
  4. $loc = 'exhibitionistshop'
  5. $loc_arg = 'start'
  6. $location_type = 'public_indoors'
  7. $menu_loc = 'exhibitionistshop'
  8. $menu_arg = 'start'
  9. menu_off = 0
  10. cla & *clr
  11. if exhibitionQW = 3: exhibitionQW = 4
  12. gs 'stat'
  13. gs 'themes', 'indoors'
  14. '<center><b><font color="maroon">Expression of You</font></b></center>'
  15. '<center><img <<$set_imgh>> src="images/locations/oldtown/exhibitshop/shop.jpg"></center>'
  16. 'A shop in the most modern style who''s clothing is all very revealing and not nearly as classy as the store itself.'
  17. act 'Leave':
  18. minut += 5
  19. gt 'liames'
  20. end
  21. if hour >= 18:
  22. *nl
  23. 'The shop is closing and you have to leave.'
  24. else
  25. act 'View clothing':
  26. minut += 5
  27. gt 'exhibitionistshop', 'clo'
  28. end
  29. act 'View panties':
  30. minut += 5
  31. gt 'exhibitionistshop', 'panties'
  32. end
  33. act 'View bras':
  34. minut += 5
  35. gt 'exhibitionistshop', 'bras'
  36. end
  37. end
  38. end
  39. if $ARGS[0] = 'clo':
  40. $loc_arg = 'clo'
  41. $loc = 'exhibitionistshop'
  42. cls
  43. gs'stat'
  44. '<center><b><font color="maroon">Exhibitionist clothing</font></b></center>'
  45. *nl
  46. gs 'clothing_QV', 'shop_header'
  47. act 'Return':
  48. cla
  49. minut += 1
  50. gt 'exhibitionistshop', 'start'
  51. end
  52. clothingfilter['qualitycheck'] = 7
  53. :loopquality
  54. if Clothingstock >= 18:
  55. i = 1
  56. elseif Clothingstock >= 12:
  57. i = 2
  58. elseif Clothingstock >= 6:
  59. i = 3
  60. else
  61. i = 4
  62. end
  63. :loopexhibit
  64. if exhibit[i] = 0:
  65. gs 'clothing_attributes', 'exhibit', i
  66. gs 'clothing_QV', 'shop_filter'
  67. if clothingfilter['quality'] = 0 or clothingfilter['qualitycheck'] = CloQuality:
  68. if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''exhibitionistshop'', ''exhibit''"><img <<$set_imgh>> src="images/pc/clothing/9exhibit/<<i>>.jpg" height="250" /></a>'
  69. end
  70. end
  71. i += 4
  72. if i <= 57:jump 'loopexhibit'
  73. if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality'
  74. end
  75. if $ARGS[0] = 'exhibit':
  76. cla
  77. if exhibit[i] ! 0:
  78. msg 'You already own these clothes.'
  79. gt 'exhibitionistshop', 'clo'
  80. end
  81. gt 'clothing', 'view_clothing_item', 'shop', 'exhibit',i, 1000
  82. end
  83. if $ARGS[0] = 'panties':
  84. $loc_arg = 'panties'
  85. $loc = 'exhibitionistshop'
  86. cls
  87. gs'stat'
  88. act 'Return':
  89. cla
  90. minut += 1
  91. gt 'exhibitionistshop', 'start'
  92. end
  93. i = 2
  94. :loopexhibitionist_panties
  95. if exhibitionist_panties[i] = 0:*p '<a href="exec: i = <<i>> & gt ''exhibitionistshop'', ''panties2''"><img src="images/pc/panties/exhibitionist/<<i>>.jpg" height="150" /></a> '
  96. i += 1
  97. if i <= 59:jump 'loopexhibitionist_panties'
  98. end
  99. if $ARGS[0] = 'panties2':
  100. cla
  101. if exhibitionist_panties[i] ! 0:
  102. msg 'You already own these panties.'
  103. gt 'exhibitionistshop', 'panties'
  104. end
  105. gt 'panties', 'view_panty_item', 'shop', 'exhibitionist',i, 600
  106. end
  107. if $ARGS[0] = 'bras':
  108. $loc_arg = 'bras'
  109. $loc = 'exhibitionistshop'
  110. cls
  111. gs'stat'
  112. act 'Return':
  113. cla
  114. minut += 1
  115. gt 'exhibitionistshop', 'start'
  116. end
  117. i = 2
  118. :loopexhibitionist_bras
  119. if exhibitionist_bras[i] = 0:*p '<a href="exec: i = <<i>> & gt ''exhibitionistshop'', ''bras2''"><img src="images/pc/bras/exhibitionist/<<i>>.jpg" height="150" /></a> '
  120. i += 1
  121. if i <= 37:jump 'loopexhibitionist_bras'
  122. end
  123. if $ARGS[0] = 'bras2':
  124. cla
  125. if exhibitionist_bras[i] ! 0:
  126. msg 'You already own these bras.'
  127. gt 'exhibitionistshop', 'bras'
  128. end
  129. gt 'bras', 'view_bra_item', 'shop', 'exhibitionist',i, 600
  130. end
  131. --- exhibitionistshop ---------------------------------