1
0

sell_young_clothes 5.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188
  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. '<center><table border=1><<$Headerstring>></center>'
  40. act 'Return':
  41. cla
  42. minut += 5
  43. gt 'young_shop'
  44. end
  45. i = Clothingstock + 1
  46. if Clothingstock - 12 >= 0:i -= 12
  47. :loopaverage
  48. if average[i] = 0:
  49. gs 'clothing_attributes', 'average', i
  50. if clothingfilter_comf = 0 and CloExhibit + 10 < pcs_exhibition:
  51. 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>'
  52. elseif clothingfilter_daring = 0 and CloExhibit + 10 >= pcs_exhibition and CloExhibit <= pcs_exhibition:
  53. 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>'
  54. elseif clothingfilter_too_daring = 0 and CloExhibit > pcs_exhibition:
  55. 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>'
  56. end
  57. end
  58. i += 12
  59. if i <= 522:jump 'loopaverage'
  60. end
  61. if $ARGS[0] = 'yshopclo': gt 'clothing', 'view_clothing_item', 'shop', 'average',i, 7500
  62. if $ARGS[0] = 'shoes':
  63. $metka = 'shoes'
  64. $loc = 'sell_young_clothes'
  65. cls
  66. gs'stat'
  67. act 'Return':
  68. cla
  69. minut += 5
  70. gt 'young_shop'
  71. end
  72. if Clothingstock > 11:
  73. i = 1
  74. else
  75. i = 2
  76. end
  77. :loopcats_shoes
  78. 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>'
  79. i += 2
  80. if i <= 38:jump 'loopcats_shoes'
  81. end
  82. if $ARGS[0] = 'young_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'pussy',i, 2500
  83. if $ARGS[0] = 'panties':
  84. $metka = 'panties'
  85. $loc = 'sell_young_clothes'
  86. cls
  87. gs'stat'
  88. act 'Return':
  89. cla
  90. minut += 5
  91. gt 'young_shop'
  92. end
  93. i = 1
  94. :loopkats_panties
  95. 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> '
  96. i += 1
  97. if i <= 66:jump 'loopkats_panties'
  98. end
  99. if $ARGS[0] = 'panties2':
  100. cla
  101. if kats_panties[i] ! 0:
  102. msg 'You already own these panties.'
  103. gt 'sell_young_clothes', 'panties'
  104. end
  105. gt 'panties', 'view_panty_item', 'shop', 'kats',i, 500
  106. end
  107. if $ARGS[0] = 'bras':
  108. $metka = 'bras'
  109. $loc = 'sell_young_clothes'
  110. cls
  111. gs'stat'
  112. act 'Return':
  113. cla
  114. minut += 5
  115. gt 'young_shop'
  116. end
  117. i = 1
  118. :loopkats_bras
  119. 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> '
  120. i += 1
  121. if i <= 35:jump 'loopkats_bras'
  122. end
  123. if $ARGS[0] = 'bras2':
  124. cla
  125. if kats_bras[i] ! 0:
  126. msg 'You already own this bra.'
  127. gt 'sell_young_clothes', 'bras'
  128. end
  129. gt 'bras', 'view_bra_item', 'shop', 'kats',i, 500
  130. end
  131. if $ARGS[0] = 'purses':
  132. $metka = 'purses'
  133. $loc = 'sell_young_clothes'
  134. cls
  135. gs'stat'
  136. act 'Return':
  137. cla
  138. minut += 5
  139. gt 'young_shop'
  140. end
  141. i = 1
  142. :loopkats_purses
  143. 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> '
  144. i += 1
  145. if i <= 14:jump 'loopkats_purses'
  146. end
  147. if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'kats',i, 6000
  148. --- sell_young_clothes ---------------------------------