shop_coco_carmen.qsrc 4.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172
  1. # shop_coco_carmen
  2. if $ARGS[0] = 'start':
  3. $loc_arg = $ARGS[0]
  4. $loc = 'shop_coco_carmen'
  5. $location_type = 'public_indoors'
  6. $menu_loc = 'shop_coco_carmen'
  7. $menu_arg = 'start'
  8. menu_off = 0
  9. *clr & cla
  10. mag = 1
  11. gs 'stat'
  12. gs 'themes', 'indoors'
  13. '<center><b><font color="maroon">Coco Carmen</font></b></center>'
  14. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/coco/shop.jpg"></center>'
  15. *nl
  16. 'If you are happy to push through the tourists Coco has everything a young adult might like to wear. Its a step up from G&M and unless you can afford the boutiques in Old Town you''ll be spending some time buying outfits here.'
  17. act 'Leave the coco': minut += 3 & gt 'pav_commercial'
  18. act 'View dresses': minut += 5 & gt 'shop_coco_carmen', 'dress'
  19. act 'View other outfits': minut += 5 & gt 'shop_coco_carmen', 'outfits'
  20. act 'View purses': minut += 5 & gt 'shop_coco_carmen', 'purses'
  21. end
  22. if $ARGS[0] = 'dress':
  23. $loc_arg = 'dress'
  24. $loc = 'shop_coco_carmen'
  25. $menu_loc = 'shop_coco_carmen'
  26. $menu_arg = 'dress'
  27. menu_off = 0
  28. *clr & cla
  29. gs'stat'
  30. '<center><b><font color="maroon">Viewing Coco Carmen dresses</font></b></center>'
  31. *nl
  32. gs 'clothing_QV', 'shop_header'
  33. act 'Return': minut += 1 & gt 'shop_coco_carmen', 'start'
  34. clothingfilter['qualitycheck'] = 7
  35. :loopquality_dress
  36. if Clothingstock > 11:
  37. i = 1
  38. else
  39. i = 2
  40. end
  41. :loopcoco_dress
  42. if coco_dress[i] = 0:
  43. gs 'clothing_attributes', 'coco_dress', i
  44. gs 'clothing_QV', 'shop_filter'
  45. if clothingfilter['quality'] = 0 or clothingfilter['qualitycheck'] = CloQuality:
  46. if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''shop_coco_carmen'', ''coco_dress''"><img src="images/pc/items/coco/dress/<<i>>.jpg" height="250" /></a>'
  47. end
  48. end
  49. i += 2
  50. if i <= 100:jump 'loopcoco_dress'
  51. if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality_dress'
  52. end
  53. if $ARGS[0] = 'coco_dress':
  54. cla
  55. menu_off = 1
  56. if coco_dress[i] ! 0:
  57. msg 'You already own this dress.'
  58. gt 'shop_coco_carmen', 'dress'
  59. end
  60. gt 'clothing', 'view_clothing_item', 'shop', 'coco_dress',i, 3000
  61. end
  62. if $ARGS[0] = 'outfits':
  63. $loc_arg = 'outfits'
  64. $loc = 'shop_coco_carmen'
  65. $menu_loc = 'shop_coco_carmen'
  66. $menu_arg = 'outfits'
  67. menu_off = 0
  68. *clr & cla
  69. gs'stat'
  70. '<center><b><font color="maroon">Viewing Coco Carmen outfits</font></b></center>'
  71. *nl
  72. gs 'clothing_QV', 'shop_header'
  73. act 'Return': minut += 1 & gt 'shop_coco_carmen', 'start'
  74. clothingfilter['qualitycheck'] = 7
  75. :loopquality_outfits
  76. if Clothingstock > 11:
  77. i = 1
  78. else
  79. i = 2
  80. end
  81. :loopcoco_outfits
  82. if coco_outfits[i] = 0:
  83. gs 'clothing_attributes', 'coco_outfits', i
  84. gs 'clothing_QV', 'shop_filter'
  85. if clothingfilter['quality'] = 0 or clothingfilter['qualitycheck'] = CloQuality:
  86. if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''shop_coco_carmen'', ''coco_outfits''"><img src="images/pc/items/coco/outfits/<<i>>.jpg" height="250" /></a>'
  87. end
  88. end
  89. i += 2
  90. if i <= 90:jump 'loopcoco_outfits'
  91. if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality_outfits'
  92. end
  93. if $ARGS[0] = 'coco_outfits':
  94. cla
  95. menu_off = 1
  96. if coco_outfits[i] ! 0:
  97. msg 'You already own this outfit.'
  98. gt 'shop_coco_carmen', 'outfits'
  99. end
  100. gt 'clothing', 'view_clothing_item', 'shop', 'coco_outfits',i, 3000
  101. end
  102. if $ARGS[0] = 'shoes':
  103. $loc_arg = $ARGS[0]
  104. $loc = 'shop_coco_carmen'
  105. $menu_loc = 'shop_coco_carmen'
  106. $menu_arg = 'shoes'
  107. menu_off = 0
  108. *clr & cla
  109. gs'stat'
  110. act 'Return': minut += 1 & gt 'shop_coco_carmen', 'start'
  111. if Clothingstock > 11:
  112. i = 1
  113. else
  114. i = 2
  115. end
  116. :loopcoco_shoes
  117. if scoco[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_coco_carmen'', ''coco_shoes''"><img src="images/pc/shoes/coco/<<i>>.jpg" height="250" /></a>'
  118. i += 2
  119. if i <= 37:jump 'loopcoco_shoes'
  120. end
  121. if $ARGS[0] = 'purses':
  122. $loc_arg = 'purses'
  123. $loc = 'shop_coco_carmen'
  124. $menu_loc = 'shop_coco_carmen'
  125. $menu_arg = 'purses'
  126. menu_off = 0
  127. *clr & cla
  128. gs'stat'
  129. act 'Return': minut += 1 & gt 'shop_coco_carmen', 'start'
  130. i = 1
  131. :loopcoco_purses
  132. if coco_purses[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_coco_carmen'', ''purses2''"><img src="images/pc/items/coco/purses/<<i>>.jpg" height="150" /></a> '
  133. i += 1
  134. if i <= 20:jump 'loopcoco_purses'
  135. end
  136. if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'coco',i, 2000
  137. --- shop_coco_carmen ---------------------------------