# purses
!!2021/04/15
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 = '<center><table border=1>'
	if $ARGS[1] ! 'wardrobe': $clothing_header += '<TH><a href="exec:gt ''purses'', ''view_purse_list'', ''wardrobe''">Switch to wardrobe list</a></TH>'
	if $ARGS[1] ! 'store': $clothing_header += '<TH><a href="exec:gt ''purses'', ''view_purse_list'', ''store''">Switch to stored clothing list</a></TH>'
	if $ARGS[1] ! 'unwanted': $clothing_header += '<TH><a href="exec:gt ''purses'', ''view_purse_list'', ''unwanted''">Switch to unwanted clothing list</a></TH></center>'
    '<<$clothing_header>>'

	if $ARGS[1] = 'wardrobe':
		'<h3><center><b><font color="maroon">Wardrobe list</font></b></center></h3>'
	elseif $ARGS[1] = 'store':
		'<h3><center><b><font color="maroon">Stored purses list</font></b></center></h3>'
	elseif $ARGS[1] = 'unwanted':
		'<h3><center><b><font color="maroon">Unwanted purses list</font></b></center></h3>'
	elseif $ARGS[1] = 'sell':
		'<h3><center><b><font color="maroon">Choose an item to sell</font></b></center></h3>'
	end

	'<center><img src="images/locations/city/island/dolls/shop_name.png"></center>'

	i = 1
	:loopdollspurses
	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>'
	i += 1
	if i <= ARRSIZE('dolls_purses'):jump 'loopdollspurses'

	'<center><img src="images/locations/pushkin/bomba/shop_name.png"></center>'

	i = 1
	:loopbomba_purses
	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>'
	i += 1
	if i <= ARRSIZE('bomba_purses'):jump 'loopbomba_purses'

	'<center><img src="images/locations/city/citycenter/mall/fashionista.png"></center>'

	i = 1
	:loopfashionistapurses
	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>'
	i += 1
	if i <= ARRSIZE('fashionista_purses'):jump 'loopfashionistapurses'

	'<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'

	i = 1
	:loopgmpurses
	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/items/gm/purses/<<i>>.jpg" 	height="300" /></a>'
	i += 1
	if i <= ARRSIZE('gm_purses'):jump 'loopgmpurses'

	'<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'

	i = 1
	:loop_cats_purses
	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>'
	i += 1
	if i <= ARRSIZE('cats_purses'):jump 'loop_cats_purses'

	'<center><img src="images/locations/pavlovsk/coco/shop_name.png"></center>'

	i = 1
	:loop_coco_purses
	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>'
	i += 1
	if i <= ARRSIZE('coco_purses'):jump 'loop_coco_purses'

	'<center><img src="images/locations/city/island/flamingos/shop_name.png"></center>'

	i = 1
	:loop_flamingos_purses
	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>'
	i += 1
	if i <= ARRSIZE('flamingos_purses'):jump 'loop_flamingos_purses'

	'<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'

	i = 1
	:loop_danilovich_purses
	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>'
	i += 1
	if i <= ARRSIZE('danilovich_purses'):jump 'loop_danilovich_purses'

	'<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'

	i = 1
	:loop_moncheri_purses
	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/items/moncheri/purses/<<i>>.jpg" 	height="300" /></a>'
	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
	'<center><img src="<<FUNC(''$purse_image'',  $ARGS[2], ARGS[3])>>"></center>'

	gs 'purses', 'descriptions', $ARGS[2]

	if $ARGS[1] = 'shop':
		if dyneval('RESULT = <<$ARGS[2]>>_purses[<<ARGS[3]>>]') = 1:
			'You already own this purse.'
			act 'Leave': gt $loc, $loc_arg
		else
			price = ARGS[4]
			'Price: <<ARGS[4]>> <b>₽</b>'
			act 'Leave': gt $loc, $loc_arg
			if money >= price:
				act 'Buy (cash)':
					money -= price
					dynamic $ARGS[2] + '_purses[<<ARGS[3]>>] = 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[<<ARGS[3]>>] = 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 <a href="exec:gt ''purses'', ''dest1'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Storage</a><BR>'
			if ploc ! 0:$RESULT += 'Move this purse to  <a href="exec:gt ''purses'', ''dest0'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Wardrobe</a><BR>'
			if ploc ! 2:$RESULT += 'Move this purse to  <a href="exec:gt ''purses'', ''dest2'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Unwanted</a>'
			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[<<ARGS[3]>>] = 0'
	gt 'purses', 'view_purse_list', $ARGS[1], $ARGS[2], ARGS[3]
end

if $ARGS[0] = 'dest1':
	*clr
	dynamic '<<$ARGS[2]>>_pursesS[<<ARGS[3]>>] = 1'
	gt 'purses', 'view_purse_list', $ARGS[1], $ARGS[2], ARGS[3]
end

if $ARGS[0] = 'dest2':
	*clr
	dynamic '<<$ARGS[2]>>_pursesS[<<ARGS[3]>>] = 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 ---------------------------------