1
0

purses 5.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171
  1. # purses
  2. if $ARGS[0] = 'view_purse_list':
  3. !! ARGS 0 - view_purse_list
  4. if $ARGS[1] = 'wardrobe':
  5. ploc = 0
  6. end
  7. if $ARGS[1] = 'store':
  8. ploc = 1
  9. end
  10. if $ARGS[1] = 'unwanted':
  11. ploc = 2
  12. end
  13. act 'Return' :gt 'wardrobe'
  14. '<center><img src="images/locations/city/island/dolls.png"></center>'
  15. i = 1
  16. :loopdollspurses
  17. if dolls_purses[i] = 1 and dolls_pursesS[i] = ploc:*p '<a href="exec:gt ''purses'', ''view_purse_item'', ''home'', ''dolls'', <<i>>"><img src="images/pc/purses/dolls/<<i>>.jpg" height="300" /></a>'
  18. i += 1
  19. if i <= ARRSIZE('dolls_purses'):jump 'loopdollspurses'
  20. '<center><img src="images/locations/city/citycenter/mall/fashionistat.png"></center>'
  21. i = 1
  22. :loopfashionistapurses
  23. if fashionista_purses[i] = 1 and fashionista_pursesS[i] = ploc:*p '<a href="exec:gt ''purses'', ''view_purse_item'', ''home'', ''fashionista'', <<i>>"><img src="images/pc/purses/fashionista/<<i>>.jpg" height="300" /></a>'
  24. i += 1
  25. if i <= ARRSIZE('fashionista_purses'):jump 'loopfashionistapurses'
  26. '<center><img src="images/locations/city/citycenter/mall/GM.png"></center>'
  27. i = 1
  28. :loopcheappurses
  29. if cheap_purses[i] = 1 and cheap_pursesS[i] = ploc:*p '<a href="exec:gt ''purses'', ''view_purse_item'', ''home'', ''cheap'', <<i>>"><img src="images/pc/purses/cheap/<<i>>.jpg" height="300" /></a>'
  30. i += 1
  31. if i <= ARRSIZE('cheap_purses'):jump 'loopcheappurses'
  32. '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
  33. i = 1
  34. :loopkatspurses
  35. if kats_purses[i] = 1 and kats_pursesS[i] = ploc:*p '<a href="exec:gt ''purses'', ''view_purse_item'', ''home'', ''kats'', <<i>>"><img src="images/pc/purses/kats/<<i>>.jpg" height="300" /></a>'
  36. i += 1
  37. if i <= ARRSIZE('kats_purses'):jump 'loopkatspurses'
  38. '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
  39. i = 1
  40. :loopboutiquepurses
  41. if boutique_purses[i] = 1 and boutique_pursesS[i] = ploc:*p '<a href="exec:gt ''purses'', ''view_purse_item'', ''home'', ''boutique'', <<i>>"><img src="images/pc/purses/moncheri/<<i>>.jpg" height="300" /></a>'
  42. i += 1
  43. if i <= ARRSIZE('boutique_purses'):jump 'loopboutiquepurses'
  44. end
  45. if $ARGS[0] = 'view_purse_item':
  46. !! ARGS 0 - view_purse_item
  47. !! ARGS 1 = action type (home, shop)
  48. !! ARGS 2 - purse type
  49. !! ARGS 3 - purse index
  50. !! ARGS 4 - price for shop
  51. cla
  52. '<center><img src="<<FUNC(''$purse_image'', $ARGS[2], ARGS[3])>>"></center>'
  53. gs 'purses', 'descriptions', $ARGS[2]
  54. if $ARGS[1] = 'shop':
  55. if dyneval('RESULT = <<$ARGS[2]>>_purses[<<ARGS[3]>>]') = 1:
  56. 'You already own this purse.'
  57. act 'Leave': gt $loc, $metka
  58. else
  59. price = ARGS[4]
  60. 'Price: <<ARGS[4]>> <b>₽</b>'
  61. act 'Leave': gt $loc, $metka
  62. if money >= price:
  63. act 'Buy':
  64. money -= price
  65. dynamic $ARGS[2] + '_purses[<<ARGS[3]>>] = 1'
  66. if bag = 0:
  67. bag = 1
  68. $currentpursetype = $ARGS[2]
  69. currentpursenumber = ARGS[3]
  70. if menu_option = 1:dynamic $menu_addoldmenu
  71. if menu_option = 0:gs 'obj_din', 'new'
  72. end
  73. gt $loc, $metka
  74. end
  75. else
  76. 'You cannot afford this purse.'
  77. end
  78. end
  79. elseif $ARGS[1] = 'home':
  80. act 'Return':gt 'purses', 'view_purse_list', $ARGS[1]
  81. if $currentpursetype = $ARGS[2] and currentpursenumber = ARGS[3]:
  82. 'You are using this purse.'
  83. else
  84. if sloc = 0:
  85. 'This purse is in your wardrobe.'
  86. act 'Use this purse':
  87. $currentpursetype = $ARGS[2]
  88. currentpursenumber = ARGS[3]
  89. bag = 1
  90. if menu_option = 1:dynamic $menu_addoldmenu
  91. if menu_option = 0:gs 'obj_din', 'new'
  92. gt 'wardrobe'
  93. end
  94. elseif sloc = 1:
  95. 'This purse is in storage.'
  96. elseif sloc = 2:
  97. 'This purse is unwanted.'
  98. end
  99. if sloc ! 1:$RESULT += 'Move this purse to <a href="exec:gt ''purses'', ''dest1'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Storage</a><BR>'
  100. if sloc ! 0:$RESULT += 'Move this purse to <a href="exec:gt ''purses'', ''dest0'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Wardrobe</a><BR>'
  101. if sloc ! 2:$RESULT += 'Move this purse to <a href="exec:gt ''purses'', ''dest2'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Unwanted</a>'
  102. end
  103. end
  104. end
  105. if $ARGS[0] = 'dest0':
  106. *clr
  107. dynamic '<<$ARGS[2]>>_pursesS[<<ARGS[3]>>] = 0'
  108. gt 'purses', 'view_purse_item', $ARGS[1], $ARGS[2], ARGS[3]
  109. end
  110. if $ARGS[0] = 'dest1':
  111. *clr
  112. dynamic '<<$ARGS[2]>>_pursesS[<<ARGS[3]>>] = 1'
  113. gt 'purses', 'view_purse_item', $ARGS[1], $ARGS[2], ARGS[3]
  114. end
  115. if $ARGS[0] = 'dest2':
  116. *clr
  117. dynamic '<<$ARGS[2]>>_pursesS[<<ARGS[3]>>] = 2'
  118. gt 'purses', 'view_purse_item', $ARGS[1], $ARGS[2], ARGS[3]
  119. end
  120. if $ARGS[0] = 'descriptions':
  121. if $ARGS[1] = 'dolls':
  122. 'Let your freak flag fly with this perfect purse for the hot, independent girl that lives the alt lifestyle.'
  123. elseif $ARGS[1] = 'fashionista':
  124. 'A stylish handbag for any fashion-forward female!'
  125. elseif $ARGS[1] = 'cheap':
  126. 'A functional, if not too fashionable, handbag for carrying all of the essentials.'
  127. elseif $ARGS[1] = 'kats':
  128. 'A fun and flirty purse for any young lady looking for fun on a night out.'
  129. elseif $ARGS[1] = 'boutique':
  130. 'A high-fashion handbag for ladies with discerning tastes. Show how classy you are with this expensive accessory.'
  131. end
  132. end
  133. if $ARGS[0] = 'remove':
  134. killvar '$currentpursetype'
  135. killvar 'currentpursenumber'
  136. bag = 0
  137. end
  138. --- purses ---------------------------------