exhibitionistshop 1.6 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182
  1. # exhibitionistshop
  2. if $ARGS[0] = 'start':
  3. CLOSE ALL
  4. $loc = 'exhibitionistshop'
  5. $metka = 'start'
  6. $locM = 'exhibitionistshop'
  7. $metkaM = 'start'
  8. $sexloc = 'exhibitionistshop'
  9. $location_type = 'public_indoors'
  10. cls
  11. minut += 5
  12. if exhibitionQW = 3: exhibitionQW = 4
  13. gs 'stat'
  14. if night_mode = 1:
  15. fcolor = rgb(255, 255, 255)
  16. bcolor = rgb(0, 0, 0)
  17. lcolor = rgb(106, 90, 205)
  18. else
  19. fcolor = rgb(0, 0, 0)
  20. bcolor = rgb(255, 255, 255)
  21. lcolor = rgb(106, 90, 205)
  22. end
  23. '<center><b><font color="maroon">Exhibitionist Shop</font></b></center>'
  24. '<center><img src="images/locations/oldtown/exhibitshop/shop.jpg"></center>'
  25. 'A shop in the most modern style who''s clothing is all very revealing and not nearly as classy as the store itself.'
  26. act 'Leave':
  27. minut += 5
  28. gt 'liames'
  29. end
  30. act 'View clothing':
  31. minut += 1
  32. gt 'exhibitionistshop', 'clo'
  33. end
  34. end
  35. if $ARGS[0] = 'clo':
  36. $metka = 'clo'
  37. $loc = 'exhibitionistshop'
  38. cls
  39. gs'stat'
  40. 'Exhibitionist clothing.'
  41. act 'Return':
  42. cla
  43. minut += 5
  44. gt 'exhibitionistshop', 'start'
  45. end
  46. if Clothingstock >= 18:
  47. i = 1
  48. elseif Clothingstock >= 12:
  49. i = 2
  50. elseif Clothingstock >= 6:
  51. i = 3
  52. else
  53. i = 4
  54. end
  55. :loopexhibit
  56. if exhibit[i] = 0:*p '<a href="exec: i = <<i>> & gt ''exhibitionistshop'', ''exhibit''"><img src="images/pc/clothing/9exhibit/<<i>>.jpg" height="250" /></a>'
  57. i += 4
  58. if i <= 42:jump 'loopexhibit'
  59. end
  60. if $ARGS[0] = 'exhibit':
  61. cla
  62. if exhibit[i] ! 0:
  63. msg 'You already own these clothes.'
  64. gt 'exhibitionistshop', 'clo'
  65. end
  66. gt 'clothing', 'view_clothing_item', 'shop', 'exhibit',i, 1000
  67. end
  68. --- exhibitionistshop ---------------------------------