exhibitionistshop.qsrc 3.0 KB

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