1
0

exhibitionistshop 3.0 KB

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