exhibitionistshop.qsrc 3.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160
  1. # exhibitionistshop
  2. if $ARGS[0] = 'start':
  3. CLOSE ALL
  4. $loc = 'exhibitionistshop'
  5. $metka = '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. $metka = '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. if Clothingstock >= 18:
  53. i = 1
  54. elseif Clothingstock >= 12:
  55. i = 2
  56. elseif Clothingstock >= 6:
  57. i = 3
  58. else
  59. i = 4
  60. end
  61. :loopexhibit
  62. if exhibit[i] = 0:
  63. gs 'clothing_attributes', 'exhibit', i
  64. gs 'clothing_QV', 'shop_filter'
  65. 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>'
  66. end
  67. i += 4
  68. if i <= 57:jump 'loopexhibit'
  69. end
  70. if $ARGS[0] = 'exhibit':
  71. cla
  72. if exhibit[i] ! 0:
  73. msg 'You already own these clothes.'
  74. gt 'exhibitionistshop', 'clo'
  75. end
  76. gt 'clothing', 'view_clothing_item', 'shop', 'exhibit',i, 1000
  77. end
  78. if $ARGS[0] = 'panties':
  79. $metka = 'panties'
  80. $loc = 'exhibitionistshop'
  81. cls
  82. gs'stat'
  83. act 'Return':
  84. cla
  85. minut += 1
  86. gt 'exhibitionistshop', 'start'
  87. end
  88. i = 2
  89. :loopexhibitionist_panties
  90. 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> '
  91. i += 1
  92. if i <= 59:jump 'loopexhibitionist_panties'
  93. end
  94. if $ARGS[0] = 'panties2':
  95. cla
  96. if exhibitionist_panties[i] ! 0:
  97. msg 'You already own these panties.'
  98. gt 'exhibitionistshop', 'panties'
  99. end
  100. gt 'panties', 'view_panty_item', 'shop', 'exhibitionist',i, 600
  101. end
  102. if $ARGS[0] = 'bras':
  103. $metka = 'bras'
  104. $loc = 'exhibitionistshop'
  105. cls
  106. gs'stat'
  107. act 'Return':
  108. cla
  109. minut += 1
  110. gt 'exhibitionistshop', 'start'
  111. end
  112. i = 2
  113. :loopexhibitionist_bras
  114. 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> '
  115. i += 1
  116. if i <= 37:jump 'loopexhibitionist_bras'
  117. end
  118. if $ARGS[0] = 'bras2':
  119. cla
  120. if exhibitionist_bras[i] ! 0:
  121. msg 'You already own these bras.'
  122. gt 'exhibitionistshop', 'bras'
  123. end
  124. gt 'bras', 'view_bra_item', 'shop', 'exhibitionist',i, 600
  125. end
  126. --- exhibitionistshop ---------------------------------