1
0

sell_young_clothes 5.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186
  1. # sell_young_clothes
  2. if $ARGS[0] = 'start':
  3. $metka = 'start'
  4. $loc = 'sell_young_clothes'
  5. cls
  6. gs'stat'
  7. '<center><b><font color="maroon">Viewing Pussy Kats clothing</font></b></center>'
  8. *nl
  9. $Headerstring = '<TH>Prostitute clothing '
  10. if clothingfilter_prost = 0:
  11. $Headerstring += '<a href="exec:clothingfilter_prost = 1 & gt ''sell_young_clothes'', ''start''">Included</a></TH>'
  12. else
  13. $Headerstring += '<a href="exec:clothingfilter_prost = 0 & gt ''sell_young_clothes'', ''start''">Excluded</a></TH>'
  14. end
  15. $Headerstring += '<TH>Bimbo clothing '
  16. if clothingfilter_bimbo = 0:
  17. $Headerstring += '<a href="exec:clothingfilter_bimbo = 1 & gt ''sell_young_clothes'', ''start''">Included</a></TH>'
  18. else
  19. $Headerstring += '<a href="exec:clothingfilter_bimbo = 0 & gt ''sell_young_clothes'', ''start''">Excluded</a></TH>'
  20. end
  21. $Headerstring += '<TH>Clothing you are comfortable wearing '
  22. if clothingfilter_comf = 0:
  23. $Headerstring += '<a href="exec:clothingfilter_comf = 1 & gt ''sell_young_clothes'', ''start''">Included</a></TH>'
  24. else
  25. $Headerstring += '<a href="exec:clothingfilter_comf = 0 & gt ''sell_young_clothes'', ''start''">Excluded</a></TH>'
  26. end
  27. $Headerstring += '<TH>Daring clothing '
  28. if clothingfilter_daring = 0:
  29. $Headerstring += '<a href="exec:clothingfilter_daring = 1 & gt ''sell_young_clothes'', ''start''">Included</a></TH>'
  30. else
  31. $Headerstring += 'g<a href="exec:clothingfilter_daring = 0 & gt ''sell_young_clothes'', ''start''">Excluded</a></TH>'
  32. end
  33. $Headerstring += '<TH>Too daring for you clothing '
  34. if clothingfilter_too_daring = 0:
  35. $Headerstring += '<a href="exec:clothingfilter_too_daring = 1 & gt ''sell_young_clothes'', ''start''">Included</a></TH>'
  36. else
  37. $Headerstring += '<a href="exec:clothingfilter_too_daring = 0 & gt ''sell_young_clothes'', ''start''">Excluded</a></TH>'
  38. end
  39. act 'Return':
  40. cla
  41. minut += 5
  42. gt 'young_shop'
  43. end
  44. i = Clothingstock + 1
  45. if Clothingstock - 12 >= 0:i -= 12
  46. :loopaverage
  47. if average[i] = 0:
  48. gs 'clothing_attributes', 'average', i
  49. if clothingfilter_comf = 0 and CloExhibit + 10 < pcs_exhibition:
  50. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''sell_young_clothes'', ''yshopclo''"><img <<$set_imgh>> src="images/pc/clothing/2average/<<i>>.jpg" height="250" /></a>'
  51. elseif clothingfilter_daring = 0 and CloExhibit + 10 >= pcs_exhibition and CloExhibit <= pcs_exhibition:
  52. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''sell_young_clothes'', ''yshopclo''"><img <<$set_imgh>> src="images/pc/clothing/2average/<<i>>.jpg" height="250" /></a>'
  53. elseif clothingfilter_too_daring = 0 and CloExhibit > pcs_exhibition:
  54. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''sell_young_clothes'', ''yshopclo''"><img <<$set_imgh>> src="images/pc/clothing/2average/<<i>>.jpg" height="250" /></a>'
  55. end
  56. end
  57. i += 12
  58. if i <= 522:jump 'loopaverage'
  59. end
  60. if $ARGS[0] = 'yshopclo': gt 'clothing', 'view_clothing_item', 'shop', 'average',i, 7500
  61. if $ARGS[0] = 'shoes':
  62. $metka = 'shoes'
  63. $loc = 'sell_young_clothes'
  64. cls
  65. gs'stat'
  66. act 'Return':
  67. cla
  68. minut += 5
  69. gt 'young_shop'
  70. end
  71. if Clothingstock > 11:
  72. i = 1
  73. else
  74. i = 2
  75. end
  76. :loopcats_shoes
  77. if spussy[i] = 0:*p '<a href="exec: i = <<i>> & gt ''sell_young_clothes'', ''young_shoes''"><img src="images/pc/shoes/cats/<<i>>.jpg" height="250" /></a>'
  78. i += 2
  79. if i <= 38:jump 'loopcats_shoes'
  80. end
  81. if $ARGS[0] = 'young_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'pussy',i, 2500
  82. if $ARGS[0] = 'panties':
  83. $metka = 'panties'
  84. $loc = 'sell_young_clothes'
  85. cls
  86. gs'stat'
  87. act 'Return':
  88. cla
  89. minut += 5
  90. gt 'young_shop'
  91. end
  92. i = 1
  93. :loopkats_panties
  94. if kats_panties[i] = 0:*p '<a href="exec: i = <<i>> & gt ''sell_young_clothes'', ''panties2''"><img src="images/pc/panties/kats/<<i>>.jpg" height="150" /></a> '
  95. i += 1
  96. if i <= 66:jump 'loopkats_panties'
  97. end
  98. if $ARGS[0] = 'panties2':
  99. cla
  100. if kats_panties[i] ! 0:
  101. msg 'You already own these panties.'
  102. gt 'sell_young_clothes', 'panties'
  103. end
  104. gt 'panties', 'view_panty_item', 'shop', 'kats',i, 500
  105. end
  106. if $ARGS[0] = 'bras':
  107. $metka = 'bras'
  108. $loc = 'sell_young_clothes'
  109. cls
  110. gs'stat'
  111. act 'Return':
  112. cla
  113. minut += 5
  114. gt 'young_shop'
  115. end
  116. i = 1
  117. :loopkats_bras
  118. if kats_bras[i] = 0:*p '<a href="exec: i = <<i>> & gt ''sell_young_clothes'', ''bras2''"><img src="images/pc/bras/kats/<<i>>.jpg" height="150" /></a> '
  119. i += 1
  120. if i <= 35:jump 'loopkats_bras'
  121. end
  122. if $ARGS[0] = 'bras2':
  123. cla
  124. if kats_bras[i] ! 0:
  125. msg 'You already own this bra.'
  126. gt 'sell_young_clothes', 'bras'
  127. end
  128. gt 'bras', 'view_bra_item', 'shop', 'kats',i, 500
  129. end
  130. if $ARGS[0] = 'purses':
  131. $metka = 'purses'
  132. $loc = 'sell_young_clothes'
  133. cls
  134. gs'stat'
  135. act 'Return':
  136. cla
  137. minut += 5
  138. gt 'young_shop'
  139. end
  140. i = 1
  141. :loopkats_purses
  142. if kats_purses[i] = 0:*p '<a href="exec: i = <<i>> & gt ''sell_young_clothes'', ''purses2''"><img src="images/pc/purses/kats/<<i>>.jpg" height="150" /></a> '
  143. i += 1
  144. if i <= 14:jump 'loopkats_purses'
  145. end
  146. if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'kats',i, 6000
  147. --- sell_young_clothes ---------------------------------