NewCloShop 5.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204
  1. # NewCloShop
  2. $location_type = 'event'
  3. if $ARGS[0] = 'start':
  4. $metka = 'start'
  5. $loc = 'NewCloShop'
  6. gs 'stat'
  7. if night_mode = 1:
  8. fcolor = rgb(255, 255, 255)
  9. bcolor = rgb(0, 0, 0)
  10. lcolor = rgb(106, 90, 205)
  11. else
  12. fcolor = rgb(0, 0, 0)
  13. bcolor = rgb(255, 255, 255)
  14. lcolor = rgb(106, 90, 205)
  15. end
  16. '<center><b><font color="maroon">Fashionista</font></b></center>'
  17. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/fashionista/fashinista.jpg"</center>'
  18. 'This shop features many big name brands and designer clothing. Even their bags look cool.'
  19. act 'View Clothing': gt 'NewCloShop', 'clothes'
  20. act 'View panties': gt 'NewCloShop', 'panties'
  21. act 'View bras': gt 'NewCloShop', 'bras'
  22. act 'View purses': gt 'NewCloShop', 'purses'
  23. act 'Leave':
  24. minut += 15
  25. view
  26. gt 'torgcentr'
  27. end
  28. end
  29. if $ARGS[0] = 'clothes':
  30. $metka = 'clothes'
  31. $loc = 'NewCloShop'
  32. cls
  33. gs'stat'
  34. '<center><b><font color="maroon">Viewing Fashionista clothing</font></b></center>'
  35. *nl
  36. $Headerstring = '<TH>Prostitute clothing '
  37. if clothingfilter_prost = 0:
  38. $Headerstring += '<a href="exec:clothingfilter_prost = 1 & gt ''NewCloShop'', ''clothes''">Included</a></TH>'
  39. else
  40. $Headerstring += '<a href="exec:clothingfilter_prost = 0 & gt ''NewCloShop'', ''clothes''">Excluded</a></TH>'
  41. end
  42. $Headerstring += '<TH>Bimbo clothing '
  43. if clothingfilter_bimbo = 0:
  44. $Headerstring += '<a href="exec:clothingfilter_bimbo = 1 & gt ''NewCloShop'', ''clothes''">Included</a></TH>'
  45. else
  46. $Headerstring += '<a href="exec:clothingfilter_bimbo = 0 & gt ''NewCloShop'', ''clothes''">Excluded</a></TH>'
  47. end
  48. $Headerstring += '<TH>Clothing you are comfortable wearing '
  49. if clothingfilter_comf = 0:
  50. $Headerstring += '<a href="exec:clothingfilter_comf = 1 & gt ''NewCloShop'', ''clothes''">Included</a></TH>'
  51. else
  52. $Headerstring += '<a href="exec:clothingfilter_comf = 0 & gt ''NewCloShop'', ''clothes''">Excluded</a></TH>'
  53. end
  54. $Headerstring += '<TH>Daring clothing '
  55. if clothingfilter_daring = 0:
  56. $Headerstring += '<a href="exec:clothingfilter_daring = 1 & gt ''NewCloShop'', ''clothes''">Included</a></TH>'
  57. else
  58. $Headerstring += 'g<a href="exec:clothingfilter_daring = 0 & gt ''NewCloShop'', ''clothes''">Excluded</a></TH>'
  59. end
  60. $Headerstring += '<TH>Too daring for you clothing '
  61. if clothingfilter_too_daring = 0:
  62. $Headerstring += '<a href="exec:clothingfilter_too_daring = 1 & gt ''NewCloShop'', ''clothes''">Included</a></TH>'
  63. else
  64. $Headerstring += '<a href="exec:clothingfilter_too_daring = 0 & gt ''NewCloShop'', ''clothes''">Excluded</a></TH>'
  65. end
  66. '<center><table border=1><<$Headerstring>></center>'
  67. act 'Return':
  68. cla
  69. minut += 5
  70. gt 'NewCloShop', 'start'
  71. end
  72. i = Clothingstock +1
  73. if Clothingstock - 12 > 0:i -= 12
  74. :loopexpensive
  75. if expensive[i] = 0:
  76. gs 'clothing_attributes', 'expensive', i
  77. if clothingfilter_comf = 0 and CloExhibit + 10 < pcs_exhibition:
  78. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''shmotmag''"><img src="images/pc/clothing/3expensive/<<i>>.jpg" height="250" /></a>'
  79. elseif clothingfilter_daring = 0 and CloExhibit + 10 >= pcs_exhibition and CloExhibit <= pcs_exhibition:
  80. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''shmotmag''"><img src="images/pc/clothing/3expensive/<<i>>.jpg" height="250" /></a>'
  81. elseif clothingfilter_too_daring = 0 and CloExhibit > pcs_exhibition:
  82. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''shmotmag''"><img src="images/pc/clothing/3expensive/<<i>>.jpg" height="250" /></a>'
  83. end
  84. end
  85. i += 12
  86. if i <= 425:jump 'loopexpensive'
  87. end
  88. if $ARGS[0] = 'shmotmag':
  89. cla
  90. if expensive[i] ! 0:
  91. msg 'You already own these clothes.'
  92. gt 'NewCloShop', 'clothes'
  93. end
  94. gt 'clothing', 'view_clothing_item', 'shop', 'expensive',i, 10000
  95. end
  96. if $ARGS[0] = 'panties':
  97. $metka = 'panties'
  98. $loc = 'NewCloShop'
  99. cls
  100. gs'stat'
  101. act 'Return':
  102. cla
  103. minut += 5
  104. gt 'NewCloShop', 'start'
  105. end
  106. i = 1
  107. :loopfashionista_panties
  108. if fashionista_panties[i] = 0:*p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''panties2''"><img src="images/pc/panties/fashionista/<<i>>.jpg" height="150" /></a> '
  109. i += 1
  110. if i <= 70:jump 'loopfashionista_panties'
  111. end
  112. if $ARGS[0] = 'panties2':
  113. cla
  114. if fashionista_panties[i] ! 0:
  115. msg 'You already own these panties.'
  116. gt 'NewCloShop', 'panties'
  117. end
  118. gt 'panties', 'view_panty_item', 'shop', 'fashionista',i, 750
  119. end
  120. if $ARGS[0] = 'bras':
  121. $metka = 'bras'
  122. $loc = 'NewCloShop'
  123. cls
  124. gs'stat'
  125. act 'Return':
  126. cla
  127. minut += 5
  128. gt 'NewCloShop', 'start'
  129. end
  130. i = 1
  131. :loopfashionista_bras
  132. if fashionista_bras[i] = 0:*p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''bras2''"><img src="images/pc/bras/fashionista/<<i>>.jpg" height="150" /></a> '
  133. i += 1
  134. if i <= 34:jump 'loopfashionista_bras'
  135. end
  136. if $ARGS[0] = 'bras2':
  137. cla
  138. if fashionista_bras[i] ! 0:
  139. msg 'You already own this bra.'
  140. gt 'NewCloShop', 'bras'
  141. end
  142. gt 'bras', 'view_bra_item', 'shop', 'fashionista',i, 750
  143. end
  144. if $ARGS[0] = 'purses':
  145. $metka = 'purses'
  146. $loc = 'NewCloShop'
  147. cls
  148. gs'stat'
  149. act 'Return':
  150. cla
  151. minut += 5
  152. gt 'NewCloShop', 'start'
  153. end
  154. i = 1
  155. :loopfashionista_purses
  156. if fashionista_purse[i] = 0:*p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''purses2''"><img src="images/pc/purses/fashionista/<<i>>.jpg" height="150" /></a> '
  157. i += 1
  158. if i <= 15:jump 'loopfashionista_purses'
  159. end
  160. if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'fashionista',i, 8000
  161. --- NewCloShop ---------------------------------