shop_fancy_pancy.qsrc 2.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778
  1. # shop_fancy_pancy
  2. if $ARGS[0] = 'start':
  3. $loc_arg = $ARGS[0]
  4. $loc = 'shop_fancy_pancy'
  5. $location_type = 'public_indoors'
  6. $menu_loc = 'shop_fancy_pancy'
  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">Fancy Pancy</font></b></center>'
  14. '<center><img <<$set_imgh>> src="images/locations/oldtown/fancy/shop.jpg"></center>'
  15. *nl
  16. 'This small boutique shop looks more like a dressing room at the burlesque club nearby. Satin, leather, ruffles and glamour make it clear this is not a place to buy a practical outfit. It is the only place to buy outfits suitable for the burlesque club or perhaps spice up things in the bedroom.'
  17. *nl
  18. 'The boutique sells designer winter coats, burlesque clothing, beautiful shoes and exquisite handbags.'
  19. act 'Leave the boutique': minut += 3 & gt 'liames'
  20. act 'View clothing': minut += 5 & gt 'shop_fancy_pancy', 'clothes'
  21. end
  22. if $ARGS[0] = 'clothes':
  23. $loc_arg = 'clothes'
  24. $loc = 'shop_fancy_pancy'
  25. $menu_loc = 'shop_fancy_pancy'
  26. $menu_arg = 'clothes'
  27. menu_off = 0
  28. *clr & cla
  29. gs'stat'
  30. '<center><b><font color="maroon">Viewing Fancy Pancy outfits</font></b></center>'
  31. *nl
  32. gs 'clothing_QV', 'shop_header'
  33. act 'Return': minut += 1 & gt 'shop_fancy_pancy', 'start'
  34. clothingfilter['qualitycheck'] = 7
  35. :loopquality
  36. if Clothingstock > 11:
  37. i = 1
  38. else
  39. i = 2
  40. end
  41. :loopfancy_burlesque
  42. if fancy_burlesque[i] = 0:
  43. gs 'clothing_attributes', 'fancy_burlesque', 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_fancy_pancy'', ''fancy_burlesque''"><img src="images/pc/items/fancy/burlesque/<<i>>.jpg" height="250" /></a>'
  47. end
  48. end
  49. i += 2
  50. if i <= 22:jump 'loopfancy_burlesque'
  51. if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality'
  52. end
  53. if $ARGS[0] = 'fancy_burlesque':
  54. cla
  55. menu_off = 1
  56. if fancy_burlesque[i] ! 0:
  57. msg 'You already own these clothes.'
  58. gt 'shop_fancy_pancy', 'clothes'
  59. end
  60. gt 'clothing', 'view_clothing_item', 'shop', 'fancy_burlesque',i, 20000
  61. end
  62. --- shop_fancy_pancy ---------------------------------