# purses
if $ARGS[0] = 'view_purse_list':
menu_off = 1
gs 'stat'
!! ARGS 0 - view_purse_list
if $ARGS[1] = 'wardrobe':
ploc = 0
end
if $ARGS[1] = 'store':
ploc = 1
end
if $ARGS[1] = 'unwanted':
ploc = 2
end
act 'Return' :gt 'wardrobe', 'start'
$clothing_header = '
'
if $ARGS[1] ! 'wardrobe': $clothing_header += 'Switch to wardrobe list | '
if $ARGS[1] ! 'store': $clothing_header += 'Switch to stored clothing list | '
if $ARGS[1] ! 'unwanted': $clothing_header += 'Switch to unwanted clothing list | '
'<<$clothing_header>>'
if $ARGS[1] = 'wardrobe':
'Wardrobe list
'
elseif $ARGS[1] = 'store':
'Stored purses list
'
elseif $ARGS[1] = 'unwanted':
'Unwanted purses list
'
elseif $ARGS[1] = 'sell':
'Choose an item to sell
'
end
''
i = 1
:loopdollspurses
if dolls_purses[i] = 1 and dolls_pursesS[i] = ploc:*p ''
i += 1
if i <= ARRSIZE('dolls_purses'):jump 'loopdollspurses'
''
i = 1
:loopbomba_purses
if bomba_purses[i] = 1 and bomba_pursesS[i] = ploc:*p ''
i += 1
if i <= ARRSIZE('bomba_purses'):jump 'loopbomba_purses'
''
i = 1
:loopfashionistapurses
if fashionista_purses[i] = 1 and fashionista_pursesS[i] = ploc:*p ''
i += 1
if i <= ARRSIZE('fashionista_purses'):jump 'loopfashionistapurses'
''
i = 1
:loopgmpurses
if gm_purses[i] = 1 and gm_pursesS[i] = ploc:*p ''
i += 1
if i <= ARRSIZE('gm_purses'):jump 'loopgmpurses'
''
i = 1
:loop_cats_purses
if cats_purses[i] = 1 and cats_pursesS[i] = ploc:*p ''
i += 1
if i <= ARRSIZE('cats_purses'):jump 'loop_cats_purses'
''
i = 1
:loop_coco_purses
if coco_purses[i] = 1 and coco_pursesS[i] = ploc:*p ''
i += 1
if i <= ARRSIZE('coco_purses'):jump 'loop_coco_purses'
''
i = 1
:loop_flamingos_purses
if flamingos_purses[i] = 1 and flamingos_pursesS[i] = ploc:*p ''
i += 1
if i <= ARRSIZE('flamingos_purses'):jump 'loop_flamingos_purses'
''
i = 1
:loop_danilovich_purses
if danilovich_purses[i] = 1 and danilovich_pursesS[i] = ploc:*p ''
i += 1
if i <= ARRSIZE('danilovich_purses'):jump 'loop_danilovich_purses'
''
i = 1
:loop_moncheri_purses
if moncheri_purses[i] = 1 and moncheri_pursesS[i] = ploc:*p ''
i += 1
if i <= ARRSIZE('moncheri_purses'):jump 'loop_moncheri_purses'
end
if $ARGS[0] = 'view_purse_item':
menu_off = 1
gs 'stat'
!! ARGS 0 - view_purse_item
!! ARGS 1 = action type (home, shop)
!! ARGS 2 - purse type
!! ARGS 3 - purse index
!! ARGS 4 - price for shop
cla
''
gs 'purses', 'descriptions', $ARGS[2]
if $ARGS[1] = 'shop':
if dyneval('RESULT = <<$ARGS[2]>>_purses[<>]') = 1:
'You already own this purse.'
act 'Leave': gt $loc, $loc_arg
else
price = ARGS[4]
'Price: <> ₽'
act 'Leave': gt $loc, $loc_arg
if money >= price:
act 'Buy (cash)':
money -= price
dynamic $ARGS[2] + '_purses[<>] = 1'
if bag = 0:
bag = 1
$currentpursetype = $ARGS[2]
currentpursenumber = ARGS[3]
end
gt $loc, $loc_arg
end
else
'You do not have enough cash to buy this purse.'
end
if karta + bankDebtLimit >= price:
act 'Buy (card)':
karta -= price
dynamic $ARGS[2] + '_purses[<>] = 1'
if bag = 0:
bag = 1
$currentpursetype = $ARGS[2]
currentpursenumber = ARGS[3]
end
gt $loc, $loc_arg
end
else
'You do not have enough money in your bank to buy this purse.'
end
end
else
act 'Return':gt 'purses', 'view_purse_list', $ARGS[1]
if $currentpursetype = $ARGS[2] and currentpursenumber = ARGS[3]:
'You are using this purse.'
else
if ploc = 0:
'This purse is in your wardrobe.'
act 'Use this purse':
$currentpursetype = $ARGS[2]
currentpursenumber = ARGS[3]
bag = 1
gt 'wardrobe', 'start'
end
elseif ploc = 1:
'This purse is in storage.'
elseif ploc = 2:
'This purse is unwanted.'
end
if ploc ! 1:$RESULT += 'Move this purse to Storage
'
if ploc ! 0:$RESULT += 'Move this purse to Wardrobe
'
if ploc ! 2:$RESULT += 'Move this purse to Unwanted'
if $ARGS[1] ! 'store':
act 'Move to storage': gt 'purses', 'dest1', $ARGS[1], $ARGS[2], ARGS[3]
end
if $ARGS[1] ! 'unwanted':
act 'Move to unwanted': gt 'purses', 'dest2', $ARGS[1], $ARGS[2], ARGS[3]
end
if $ARGS[1] ! 'wardrobe':
act 'Move to wardrobe': gt 'purses', 'dest0', $ARGS[1], $ARGS[2], ARGS[3]
end
end
end
end
if $ARGS[0] = 'dest0':
*clr
dynamic '<<$ARGS[2]>>_pursesS[<>] = 0'
gt 'purses', 'view_purse_list', $ARGS[1], $ARGS[2], ARGS[3]
end
if $ARGS[0] = 'dest1':
*clr
dynamic '<<$ARGS[2]>>_pursesS[<>] = 1'
gt 'purses', 'view_purse_list', $ARGS[1], $ARGS[2], ARGS[3]
end
if $ARGS[0] = 'dest2':
*clr
dynamic '<<$ARGS[2]>>_pursesS[<>] = 2'
gt 'purses', 'view_purse_list', $ARGS[1], $ARGS[2], ARGS[3]
end
if $ARGS[0] = 'descriptions':
if $ARGS[1] = 'dolls':
'Let your freak flag fly with this perfect purse for the hot, independent girl that lives the alt lifestyle.'
elseif $ARGS[1] = 'bomba':
'Yeah you have attitude and with this bag everyone knows it.'
elseif $ARGS[1] = 'coco':
'A trendy bag for a young adult.'
elseif $ARGS[1] = 'flamingos':
'You look like the girl about town with this bag.'
elseif $ARGS[1] = 'danilovich':
'A sports bag for all your junk. Practical and durable but not fashionable'
elseif $ARGS[1] = 'fashionista':
'A stylish handbag for any fashion-forward female!'
elseif $ARGS[1] = 'gm':
'A functional, if not too fashionable, handbag for carrying all of the essentials.'
elseif $ARGS[1] = 'cats':
'Is it a bag? Is it a pet? Is it a toy? Who cares you stand out and look cute.'
elseif $ARGS[1] = 'moncheri':
'A high-fashion handbag for ladies with discerning tastes. Show how classy you are with this expensive accessory.'
end
end
if $ARGS[0] = 'remove':
killvar '$currentpursetype'
killvar 'currentpursenumber'
bag = 0
end
--- purses ---------------------------------