1
0

purses.qsrc 8.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249
  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''">Switch to wardrobe list</a></TH>'
  18. if $ARGS[1] ! 'store': $clothing_header += '<TH><a href="exec:gt ''purses'', ''view_purse_list'', ''store''">Switch to stored clothing list</a></TH>'
  19. if $ARGS[1] ! 'unwanted': $clothing_header += '<TH><a href="exec:gt ''purses'', ''view_purse_list'', ''unwanted''">Switch to unwanted clothing list</a></TH></center>'
  20. '<<$clothing_header>>'
  21. if $ARGS[1] = 'wardrobe':
  22. '<h3><center><b><font color="maroon">Wardrobe list</font></b></center></h3>'
  23. elseif $ARGS[1] = 'store':
  24. '<h3><center><b><font color="maroon">Stored purses list</font></b></center></h3>'
  25. elseif $ARGS[1] = 'unwanted':
  26. '<h3><center><b><font color="maroon">Unwanted purses list</font></b></center></h3>'
  27. elseif $ARGS[1] = 'sell':
  28. '<h3><center><b><font color="maroon">Choose an item to sell</font></b></center></h3>'
  29. end
  30. '<center><img src="images/locations/city/island/dolls.png"></center>'
  31. i = 1
  32. :loopdollspurses
  33. if dolls_purses[i] = 1 and dolls_pursesS[i] = ploc:*p '<a href="exec:gt ''purses'', ''view_purse_item'', ''<<$ARGS[1]>>'', ''dolls'', <<i>>"><img src="images/pc/items/dolls/purses/<<i>>.jpg" height="300" /></a>'
  34. i += 1
  35. if i <= ARRSIZE('dolls_purses'):jump 'loopdollspurses'
  36. '<center><img src="images/locations/city/citycenter/mall/fashionista.png"></center>'
  37. i = 1
  38. :loopbomba_purses
  39. if bomba_purses[i] = 1 and bomba_pursesS[i] = ploc:*p '<a href="exec:gt ''purses'', ''view_purse_item'', ''<<$ARGS[1]>>'', ''bomba'', <<i>>"><img src="images/pc/items/bomba/purses/<<i>>.jpg" height="300" /></a>'
  40. i += 1
  41. if i <= ARRSIZE('bomba_purses'):jump 'loopbomba_purses'
  42. '<center><img src="images/locations/city/citycenter/mall/fashionista.png"></center>'
  43. i = 1
  44. :loopfashionistapurses
  45. if fashionista_purses[i] = 1 and fashionista_pursesS[i] = ploc:*p '<a href="exec:gt ''purses'', ''view_purse_item'', ''<<$ARGS[1]>>'', ''fashionista'', <<i>>"><img src="images/pc/items/fashionista/purses/<<i>>.jpg" height="300" /></a>'
  46. i += 1
  47. if i <= ARRSIZE('fashionista_purses'):jump 'loopfashionistapurses'
  48. '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
  49. i = 1
  50. :loopgmpurses
  51. if gm_purses[i] = 1 and gm_pursesS[i] = ploc:*p '<a href="exec:gt ''purses'', ''view_purse_item'', ''<<$ARGS[1]>>'', ''gm'', <<i>>"><img src="images/pc/purses/gm/<<i>>.jpg" height="300" /></a>'
  52. i += 1
  53. if i <= ARRSIZE('gm_purses'):jump 'loopgmpurses'
  54. '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
  55. i = 1
  56. :loop_cats_purses
  57. if cats_purses[i] = 1 and cats_pursesS[i] = ploc:*p '<a href="exec:gt ''purses'', ''view_purse_item'', ''<<$ARGS[1]>>'', ''cats'', <<i>>"><img src="images/pc/items/cats/purses/<<i>>.jpg" height="300" /></a>'
  58. i += 1
  59. if i <= ARRSIZE('cats_purses'):jump 'loop_cats_purses'
  60. '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
  61. i = 1
  62. :loop_coco_purses
  63. if coco_purses[i] = 1 and coco_pursesS[i] = ploc:*p '<a href="exec:gt ''purses'', ''view_purse_item'', ''<<$ARGS[1]>>'', ''coco'', <<i>>"><img src="images/pc/items/coco/purses/<<i>>.jpg" height="300" /></a>'
  64. i += 1
  65. if i <= ARRSIZE('coco_purses'):jump 'loop_coco_purses'
  66. '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
  67. i = 1
  68. :loop_flamingos_purses
  69. if flamingos_purses[i] = 1 and flamingos_pursesS[i] = ploc:*p '<a href="exec:gt ''purses'', ''view_purse_item'', ''<<$ARGS[1]>>'', ''flamingos'', <<i>>"><img src="images/pc/items/flamingos/purses/<<i>>.jpg" height="300" /></a>'
  70. i += 1
  71. if i <= ARRSIZE('flamingos_purses'):jump 'loop_flamingos_purses'
  72. '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
  73. i = 1
  74. :loop_danilovich_purses
  75. if danilovich_purses[i] = 1 and danilovich_pursesS[i] = ploc:*p '<a href="exec:gt ''purses'', ''view_purse_item'', ''<<$ARGS[1]>>'', ''danilovich'', <<i>>"><img src="images/pc/items/danilovich/purses/<<i>>.jpg" height="300" /></a>'
  76. i += 1
  77. if i <= ARRSIZE('danilovich_purses'):jump 'loop_danilovich_purses'
  78. '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
  79. i = 1
  80. :loop_moncheri_purses
  81. if moncheri_purses[i] = 1 and moncheri_pursesS[i] = ploc:*p '<a href="exec:gt ''purses'', ''view_purse_item'', ''<<$ARGS[1]>>'', ''moncheri'', <<i>>"><img src="images/pc/moncheri/purses/<<i>>.jpg" height="300" /></a>'
  82. i += 1
  83. if i <= ARRSIZE('moncheri_purses'):jump 'loop_moncheri_purses'
  84. end
  85. if $ARGS[0] = 'view_purse_item':
  86. menu_off = 1
  87. gs 'stat'
  88. !! ARGS 0 - view_purse_item
  89. !! ARGS 1 = action type (home, shop)
  90. !! ARGS 2 - purse type
  91. !! ARGS 3 - purse index
  92. !! ARGS 4 - price for shop
  93. cla
  94. '<center><img src="<<FUNC(''$purse_image'', $ARGS[2], ARGS[3])>>"></center>'
  95. gs 'purses', 'descriptions', $ARGS[2]
  96. if $ARGS[1] = 'shop':
  97. if dyneval('RESULT = <<$ARGS[2]>>_purses[<<ARGS[3]>>]') = 1:
  98. 'You already own this purse.'
  99. act 'Leave': gt $loc, $loc_arg
  100. else
  101. price = ARGS[4]
  102. 'Price: <<ARGS[4]>> <b>₽</b>'
  103. act 'Leave': gt $loc, $loc_arg
  104. if money >= price:
  105. act 'Buy (cash)':
  106. money -= price
  107. dynamic $ARGS[2] + '_purses[<<ARGS[3]>>] = 1'
  108. if bag = 0:
  109. bag = 1
  110. $currentpursetype = $ARGS[2]
  111. currentpursenumber = ARGS[3]
  112. end
  113. gt $loc, $loc_arg
  114. end
  115. else
  116. 'You do not have enough cash to buy this purse.'
  117. end
  118. if karta + bankDebtLimit >= price:
  119. act 'Buy (card)':
  120. karta -= price
  121. dynamic $ARGS[2] + '_purses[<<ARGS[3]>>] = 1'
  122. if bag = 0:
  123. bag = 1
  124. $currentpursetype = $ARGS[2]
  125. currentpursenumber = ARGS[3]
  126. end
  127. gt $loc, $loc_arg
  128. end
  129. else
  130. 'You do not have enough money in your bank to buy this purse.'
  131. end
  132. end
  133. else
  134. act 'Return':gt 'purses', 'view_purse_list', $ARGS[1]
  135. if $currentpursetype = $ARGS[2] and currentpursenumber = ARGS[3]:
  136. 'You are using this purse.'
  137. else
  138. if sloc = 0:
  139. 'This purse is in your wardrobe.'
  140. act 'Use this purse':
  141. $currentpursetype = $ARGS[2]
  142. currentpursenumber = ARGS[3]
  143. bag = 1
  144. gt 'wardrobe', 'start'
  145. end
  146. elseif sloc = 1:
  147. 'This purse is in storage.'
  148. elseif sloc = 2:
  149. 'This purse is unwanted.'
  150. end
  151. if sloc ! 1:$RESULT += 'Move this purse to <a href="exec:gt ''purses'', ''dest1'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Storage</a><BR>'
  152. if sloc ! 0:$RESULT += 'Move this purse to <a href="exec:gt ''purses'', ''dest0'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Wardrobe</a><BR>'
  153. if sloc ! 2:$RESULT += 'Move this purse to <a href="exec:gt ''purses'', ''dest2'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Unwanted</a>'
  154. if $ARGS[1] ! 'store':
  155. act 'Move to storage': gt 'purses', 'dest1', $ARGS[1], $ARGS[2], ARGS[3]
  156. end
  157. if $ARGS[1] ! 'unwanted':
  158. act 'Move to unwanted': gt 'purses', 'dest2', $ARGS[1], $ARGS[2], ARGS[3]
  159. end
  160. if $ARGS[1] ! 'wardrobe':
  161. act 'Move to wardrobe': gt 'purses', 'dest0', $ARGS[1], $ARGS[2], ARGS[3]
  162. end
  163. end
  164. end
  165. end
  166. if $ARGS[0] = 'dest0':
  167. *clr
  168. dynamic '<<$ARGS[2]>>_pursesS[<<ARGS[3]>>] = 0'
  169. gt 'purses', 'view_purse_list', $ARGS[1], $ARGS[2], ARGS[3]
  170. end
  171. if $ARGS[0] = 'dest1':
  172. *clr
  173. dynamic '<<$ARGS[2]>>_pursesS[<<ARGS[3]>>] = 1'
  174. gt 'purses', 'view_purse_list', $ARGS[1], $ARGS[2], ARGS[3]
  175. end
  176. if $ARGS[0] = 'dest2':
  177. *clr
  178. dynamic '<<$ARGS[2]>>_pursesS[<<ARGS[3]>>] = 2'
  179. gt 'purses', 'view_purse_list', $ARGS[1], $ARGS[2], ARGS[3]
  180. end
  181. if $ARGS[0] = 'descriptions':
  182. if $ARGS[1] = 'dolls':
  183. 'Let your freak flag fly with this perfect purse for the hot, independent girl that lives the alt lifestyle.'
  184. elseif $ARGS[1] = 'bomba':
  185. 'Yeah you have attitude and with this bag everyone knows it.'
  186. elseif $ARGS[1] = 'coco':
  187. 'A trendy bag for a young adult.'
  188. elseif $ARGS[1] = 'flamingos':
  189. 'You look like the girl about town with this bag.'
  190. elseif $ARGS[1] = 'danilovich':
  191. 'A sports bag for all your junk. Practical and durable but not fashionable'
  192. elseif $ARGS[1] = 'fashionista':
  193. 'A stylish handbag for any fashion-forward female!'
  194. elseif $ARGS[1] = 'gm':
  195. 'A functional, if not too fashionable, handbag for carrying all of the essentials.'
  196. elseif $ARGS[1] = 'cats':
  197. 'Is it a bag? Is it a pet? Is it a toy? Who cares you stand out and look cute.'
  198. elseif $ARGS[1] = 'moncheri':
  199. 'A high-fashion handbag for ladies with discerning tastes. Show how classy you are with this expensive accessory.'
  200. end
  201. end
  202. if $ARGS[0] = 'remove':
  203. killvar '$currentpursetype'
  204. killvar 'currentpursenumber'
  205. bag = 0
  206. end
  207. --- purses ---------------------------------