purses.qsrc 6.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200
  1. # purses
  2. if $ARGS[0] = 'view_purse_list':
  3. menu_off = 1
  4. gs 'stat'
  5. !! ARGS 0 - view_purse_list
  6. if $ARGS[1] = 'wardrobe':
  7. ploc = 0
  8. end
  9. if $ARGS[1] = 'store':
  10. ploc = 1
  11. end
  12. if $ARGS[1] = 'unwanted':
  13. ploc = 2
  14. end
  15. act 'Return' :gt 'wardrobe', 'start'
  16. $clothing_header = '<center><table border=1>'
  17. if $ARGS[1] ! 'wardrobe': $clothing_header += '<TH><a href="exec:gt ''purses'', ''view_purse_list'', ''wardrobe'', ''<<$ARGS[1]>>''">Switch to wardrobe list</a></TH>'
  18. if $ARGS[1] ! 'store': $clothing_header += '<TH><a href="exec:gt ''purses'', ''view_purse_list'', ''store'', ''<<$$ARGS[2]>>''">Switch to stored clothing list</a></TH>'
  19. if $ARGS[1] ! 'unwanted': $clothing_header += '<TH><a href="exec:gt ''purses'', ''view_purse_list'', ''unwanted'', ''<<$$ARGS[3]>>''">Switch to unwanted clothing list</a></TH></center>'
  20. if $ARGS[1] = 'wardrobe':
  21. '<h3><center><b><font color="maroon">Wardrobe list</font></b></center></h3>'
  22. elseif $ARGS[1] = 'store':
  23. '<h3><center><b><font color="maroon">Stored purses list</font></b></center></h3>'
  24. elseif $ARGS[1] = 'unwanted':
  25. '<h3><center><b><font color="maroon">Unwanted purses list</font></b></center></h3>'
  26. elseif $ARGS[1] = 'sell':
  27. '<h3><center><b><font color="maroon">Choose an item to sell</font></b></center></h3>'
  28. end
  29. '<center><img src="images/locations/city/island/dolls.png"></center>'
  30. i = 1
  31. :loopdollspurses
  32. 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>'
  33. i += 1
  34. if i <= ARRSIZE('dolls_purses'):jump 'loopdollspurses'
  35. '<center><img src="images/locations/city/citycenter/mall/fashionistat.png"></center>'
  36. i = 1
  37. :loopfashionistapurses
  38. 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>'
  39. i += 1
  40. if i <= ARRSIZE('fashionista_purses'):jump 'loopfashionistapurses'
  41. '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
  42. i = 1
  43. :loopcheappurses
  44. 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>'
  45. i += 1
  46. if i <= ARRSIZE('cheap_purses'):jump 'loopcheappurses'
  47. '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
  48. i = 1
  49. :loopkatspurses
  50. 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>'
  51. i += 1
  52. if i <= ARRSIZE('kats_purses'):jump 'loopkatspurses'
  53. '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
  54. i = 1
  55. :loopboutiquepurses
  56. 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>'
  57. i += 1
  58. if i <= ARRSIZE('boutique_purses'):jump 'loopboutiquepurses'
  59. end
  60. if $ARGS[0] = 'view_purse_item':
  61. menu_off = 1
  62. gs 'stat'
  63. !! ARGS 0 - view_purse_item
  64. !! ARGS 1 = action type (home, shop)
  65. !! ARGS 2 - purse type
  66. !! ARGS 3 - purse index
  67. !! ARGS 4 - price for shop
  68. cla
  69. '<center><img src="<<FUNC(''$purse_image'', $ARGS[2], ARGS[3])>>"></center>'
  70. gs 'purses', 'descriptions', $ARGS[2]
  71. if $ARGS[1] = 'shop':
  72. if dyneval('RESULT = <<$ARGS[2]>>_purses[<<ARGS[3]>>]') = 1:
  73. 'You already own this purse.'
  74. act 'Leave': gt $loc, $metka
  75. else
  76. price = ARGS[4]
  77. 'Price: <<ARGS[4]>> <b>₽</b>'
  78. act 'Leave': gt $loc, $metka
  79. if money >= price:
  80. act 'Buy (cash)':
  81. money -= price
  82. dynamic $ARGS[2] + '_purses[<<ARGS[3]>>] = 1'
  83. if bag = 0:
  84. bag = 1
  85. $currentpursetype = $ARGS[2]
  86. currentpursenumber = ARGS[3]
  87. end
  88. gt $loc, $metka
  89. end
  90. else
  91. 'You do not have enough cash to buy this purse.'
  92. end
  93. if karta + bankDebtLimit >= price:
  94. act 'Buy (card)':
  95. karta -= price
  96. dynamic $ARGS[2] + '_purses[<<ARGS[3]>>] = 1'
  97. if bag = 0:
  98. bag = 1
  99. $currentpursetype = $ARGS[2]
  100. currentpursenumber = ARGS[3]
  101. end
  102. gt $loc, $metka
  103. end
  104. else
  105. 'You do not have enough money in your bank to buy this purse.'
  106. end
  107. end
  108. elseif $ARGS[1] = 'home':
  109. act 'Return':gt 'purses', 'view_purse_list', $ARGS[1]
  110. if $currentpursetype = $ARGS[2] and currentpursenumber = ARGS[3]:
  111. 'You are using this purse.'
  112. else
  113. if sloc = 0:
  114. 'This purse is in your wardrobe.'
  115. act 'Use this purse':
  116. $currentpursetype = $ARGS[2]
  117. currentpursenumber = ARGS[3]
  118. bag = 1
  119. gt 'wardrobe', 'start'
  120. end
  121. elseif sloc = 1:
  122. 'This purse is in storage.'
  123. elseif sloc = 2:
  124. 'This purse is unwanted.'
  125. end
  126. if sloc ! 1:$RESULT += 'Move this purse to <a href="exec:gt ''purses'', ''dest1'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Storage</a><BR>'
  127. if sloc ! 0:$RESULT += 'Move this purse to <a href="exec:gt ''purses'', ''dest0'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Wardrobe</a><BR>'
  128. if sloc ! 2:$RESULT += 'Move this purse to <a href="exec:gt ''purses'', ''dest2'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Unwanted</a>'
  129. end
  130. end
  131. end
  132. if $ARGS[0] = 'dest0':
  133. *clr
  134. dynamic '<<$ARGS[2]>>_pursesS[<<ARGS[3]>>] = 0'
  135. gt 'purses', 'view_purse_item', $ARGS[1], $ARGS[2], ARGS[3]
  136. end
  137. if $ARGS[0] = 'dest1':
  138. *clr
  139. dynamic '<<$ARGS[2]>>_pursesS[<<ARGS[3]>>] = 1'
  140. gt 'purses', 'view_purse_item', $ARGS[1], $ARGS[2], ARGS[3]
  141. end
  142. if $ARGS[0] = 'dest2':
  143. *clr
  144. dynamic '<<$ARGS[2]>>_pursesS[<<ARGS[3]>>] = 2'
  145. gt 'purses', 'view_purse_item', $ARGS[1], $ARGS[2], ARGS[3]
  146. end
  147. if $ARGS[0] = 'descriptions':
  148. if $ARGS[1] = 'dolls':
  149. 'Let your freak flag fly with this perfect purse for the hot, independent girl that lives the alt lifestyle.'
  150. elseif $ARGS[1] = 'fashionista':
  151. 'A stylish handbag for any fashion-forward female!'
  152. elseif $ARGS[1] = 'cheap':
  153. 'A functional, if not too fashionable, handbag for carrying all of the essentials.'
  154. elseif $ARGS[1] = 'kats':
  155. 'A fun and flirty purse for any young lady looking for fun on a night out.'
  156. elseif $ARGS[1] = 'boutique':
  157. 'A high-fashion handbag for ladies with discerning tastes. Show how classy you are with this expensive accessory.'
  158. end
  159. end
  160. if $ARGS[0] = 'remove':
  161. killvar '$currentpursetype'
  162. killvar 'currentpursenumber'
  163. bag = 0
  164. end
  165. --- purses ---------------------------------