1
0

exhibitionistshop 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200
  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. '<center><b><font color="maroon">Exhibitionist clothing</font></b></center>'
  46. *nl
  47. $Headerstring = '<TH>Prostitute clothing '
  48. if clothingfilter_prost = 0:
  49. $Headerstring += '<a href="exec:clothingfilter_prost = 1 & gt ''exhibitionistshop'', ''clo''">Included</a></TH>'
  50. else
  51. $Headerstring += '<a href="exec:clothingfilter_prost = 0 & gt ''exhibitionistshop'', ''clo''">Excluded</a></TH>'
  52. end
  53. $Headerstring += '<TH>Bimbo clothing '
  54. if clothingfilter_bimbo = 0:
  55. $Headerstring += '<a href="exec:clothingfilter_bimbo = 1 & gt ''exhibitionistshop'', ''clo''">Included</a></TH>'
  56. else
  57. $Headerstring += '<a href="exec:clothingfilter_bimbo = 0 & gt ''exhibitionistshop'', ''clo''">Excluded</a></TH>'
  58. end
  59. $Headerstring += '<TH>Clothing you are comfortable wearing '
  60. if clothingfilter_comf = 0:
  61. $Headerstring += '<a href="exec:clothingfilter_comf = 1 & gt ''exhibitionistshop'', ''clo''">Included</a></TH>'
  62. else
  63. $Headerstring += '<a href="exec:clothingfilter_comf = 0 & gt ''exhibitionistshop'', ''clo''">Excluded</a></TH>'
  64. end
  65. $Headerstring += '<TH>Daring clothing '
  66. if clothingfilter_daring = 0:
  67. $Headerstring += '<a href="exec:clothingfilter_daring = 1 & gt ''exhibitionistshop'', ''clo''">Included</a></TH>'
  68. else
  69. $Headerstring += 'g<a href="exec:clothingfilter_daring = 0 & gt ''exhibitionistshop'', ''clo''">Excluded</a></TH>'
  70. end
  71. $Headerstring += '<TH>Too daring for you clothing '
  72. if clothingfilter_too_daring = 0:
  73. $Headerstring += '<a href="exec:clothingfilter_too_daring = 1 & gt ''exhibitionistshop'', ''clo''">Included</a></TH>'
  74. else
  75. $Headerstring += '<a href="exec:clothingfilter_too_daring = 0 & gt ''exhibitionistshop'', ''clo''">Excluded</a></TH>'
  76. end
  77. '<center><table border=1><<$Headerstring>></center>'
  78. act 'Return':
  79. cla
  80. minut += 5
  81. gt 'exhibitionistshop', 'start'
  82. end
  83. if Clothingstock >= 18:
  84. i = 1
  85. elseif Clothingstock >= 12:
  86. i = 2
  87. elseif Clothingstock >= 6:
  88. i = 3
  89. else
  90. i = 4
  91. end
  92. :loopexhibit
  93. if exhibit[i] = 0:
  94. gs 'clothing_attributes', 'exhibit', i
  95. if clothingfilter_comf = 0 and CloExhibit + 10 < pcs_exhibition:
  96. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''exhibitionistshop'', ''exhibit''"><img <<$set_imgh>> src="images/pc/clothing/9exhibit/<<i>>.jpg" height="250" /></a>'
  97. elseif clothingfilter_daring = 0 and CloExhibit + 10 >= pcs_exhibition and CloExhibit <= pcs_exhibition:
  98. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''exhibitionistshop'', ''exhibit''"><img <<$set_imgh>> src="images/pc/clothing/9exhibit/<<i>>.jpg" height="250" /></a>'
  99. elseif clothingfilter_too_daring = 0 and CloExhibit > pcs_exhibition:
  100. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''exhibitionistshop'', ''exhibit''"><img <<$set_imgh>> src="images/pc/clothing/9exhibit/<<i>>.jpg" height="250" /></a>'
  101. end
  102. end
  103. i += 4
  104. if i <= 57:jump 'loopexhibit'
  105. end
  106. if $ARGS[0] = 'exhibit':
  107. cla
  108. if exhibit[i] ! 0:
  109. msg 'You already own these clothes.'
  110. gt 'exhibitionistshop', 'clo'
  111. end
  112. gt 'clothing', 'view_clothing_item', 'shop', 'exhibit',i, 1000
  113. end
  114. if $ARGS[0] = 'panties':
  115. $metka = 'panties'
  116. $loc = 'exhibitionistshop'
  117. cls
  118. gs'stat'
  119. act 'Return':
  120. cla
  121. minut += 5
  122. gt 'exhibitionistshop', 'start'
  123. end
  124. i = 2
  125. :loopexhibitionist_panties
  126. 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> '
  127. i += 1
  128. if i <= 59:jump 'loopexhibitionist_panties'
  129. end
  130. if $ARGS[0] = 'panties2':
  131. cla
  132. if exhibitionist_panties[i] ! 0:
  133. msg 'You already own these panties.'
  134. gt 'exhibitionistshop', 'panties'
  135. end
  136. gt 'panties', 'view_panty_item', 'shop', 'exhibitionist',i, 600
  137. end
  138. if $ARGS[0] = 'bras':
  139. $metka = 'bras'
  140. $loc = 'exhibitionistshop'
  141. cls
  142. gs'stat'
  143. act 'Return':
  144. cla
  145. minut += 5
  146. gt 'exhibitionistshop', 'start'
  147. end
  148. i = 2
  149. :loopexhibitionist_bras
  150. 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> '
  151. i += 1
  152. if i <= 37:jump 'loopexhibitionist_bras'
  153. end
  154. if $ARGS[0] = 'bras2':
  155. cla
  156. if exhibitionist_bras[i] ! 0:
  157. msg 'You already own these bras.'
  158. gt 'exhibitionistshop', 'bras'
  159. end
  160. gt 'bras', 'view_bra_item', 'shop', 'exhibitionist',i, 600
  161. end
  162. --- exhibitionistshop ---------------------------------