:: purses
<<set $here = 'purses'>>
<<set $ARGS = $location_var[$here]>>
<!-- !!2021/04/15-->
<<if $location_var[$here][0] == 'view_purse_list'>>
	<<set $menu_off = 1>>
	<!-- !! ARGS 0 - view_purse_list-->
	<<if $location_var[$here][1] == 'wardrobe'>>
		<<set $ploc = 0>>
	<</if>>
	<<if $location_var[$here][1] == 'store'>>
		<<set $ploc = 1>>
	<</if>>
	<<if $location_var[$here][1] == 'unwanted'>>
		<<set $ploc = 2>>
	<</if>>
	<<act 'Return'>>
		<<gt 'wardrobe' 'main'>>
	<</act>>
	<<set $clothing_header = '<center><table border=1>'>>
	<<if $location_var[$here][1] != 'wardrobe'>>
		<<set $clothing_header += '<TH><<link "Switch to wardrobe list">><<gt 'purses' 'view_purse_list' 'wardrobe'>><</link>></TH>'>>

	<</if>>
	<<if $location_var[$here][1] != 'store'>>
		<<set $clothing_header += '<TH><<link "Switch to stored clothing list">><<gt 'purses' 'view_purse_list' 'store'>><</link>></TH>'>>

	<</if>>
	<<if $location_var[$here][1] != 'unwanted'>>
		<<set $clothing_header += '<TH><<link "Switch to unwanted clothing list">><<gt 'purses' 'view_purse_list' 'unwanted'>><</link>></TH></table></center>'>>

	<</if>>
	<<$clothing_header>>
	<<if $location_var[$here][1] == 'wardrobe'>>
		<h3><h2>Wardrobe list</h2></h3>
	<<elseif $location_var[$here][1] == 'store'>>
		<h3><h2>Stored purses list</h2></h3>
	<<elseif $location_var[$here][1] == 'unwanted'>>
		<h3><h2>Unwanted purses list</h2></h3>
	<<elseif $location_var[$here][1] == 'sell'>>
		<h3><h2>Choose an item to sell</h2></h3>
	<</if>>
	<<image 'locations/city/island/dolls/shop_name.png'>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopdollspurses'>>
	<<if getvar("$dolls_purses["+$i+"]") == 1 and $dolls_pursesS[$i] == $ploc>>
		*p '<<link '<img src="images/pc/items/dolls/purses/<<i>>.jpg" 	height="300" />'>><<gt  'purses'  'view_purse_item'  '<<$larg(1)>>'  'dolls'  <<i>>>><</link>>'

	<</if>>
	<<set $i += 1>>
	<<if $i <= ARRSIZE('dolls_purses')>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopdollspurses'>>

	<</if>>
	<<image 'locations/pushkin/bomba/shop_name.png'>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopbomba_purses'>>
	<<if getvar("$bomba_purses["+$i+"]") == 1 and $bomba_pursesS[$i] == $ploc>>
		*p '<<link '<img src="images/pc/items/bomba/purses/<<i>>.jpg" 	height="300" />'>><<gt  'purses'  'view_purse_item'  '<<$larg(1)>>'  'bomba'  <<i>>>><</link>>'

	<</if>>
	<<set $i += 1>>
	<<if $i <= ARRSIZE('bomba_purses')>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopbomba_purses'>>

	<</if>>
	<<image 'locations/city/citycenter/mall/fashionista.png'>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopfashionistapurses'>>
	<<if getvar("$fashionista_purses["+$i+"]") == 1 and $fashionista_pursesS[$i] == $ploc>>
		*p '<<link '<img src="images/pc/items/fashionista/purses/<<i>>.jpg" 	height="300" />'>><<gt  'purses'  'view_purse_item'   '<<$larg(1)>>'  'fashionista'  <<i>>>><</link>>'

	<</if>>
	<<set $i += 1>>
	<<if $i <= ARRSIZE('fashionista_purses')>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopfashionistapurses'>>

	<</if>>
	<<image 'locations/city/citycenter/mall/gm.png'>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loopgmpurses'>>
	<<if getvar("$gm_purses["+$i+"]") == 1 and $gm_pursesS[$i] == $ploc>>
		*p '<<link '<img src="images/pc/items/gm/purses/<<i>>.jpg" 	height="300" />'>><<gt  'purses'  'view_purse_item'  '<<$larg(1)>>'  'gm'  <<i>>>><</link>>'

	<</if>>
	<<set $i += 1>>
	<<if $i <= ARRSIZE('gm_purses')>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loopgmpurses'>>

	<</if>>
	<<image 'locations/city/citycenter/mall/pussycat.png'>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loop_cats_purses'>>
	<<if getvar("$cats_purses["+$i+"]") == 1 and $cats_pursesS[$i] == $ploc>>
		*p '<<link '<img src="images/pc/items/cats/purses/<<i>>.jpg" 	height="300" />'>><<gt  'purses'  'view_purse_item'   '<<$larg(1)>>'  'cats'  <<i>>>><</link>>'

	<</if>>
	<<set $i += 1>>
	<<if $i <= ARRSIZE('cats_purses')>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loop_cats_purses'>>

	<</if>>
	<<image 'locations/pavlovsk/coco/shop_name.png'>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loop_coco_purses'>>
	<<if getvar("$coco_purses["+$i+"]") == 1 and $coco_pursesS[$i] == $ploc>>
		*p '<<link '<img src="images/pc/items/coco/purses/<<i>>.jpg" 	height="300" />'>><<gt  'purses'  'view_purse_item'   '<<$larg(1)>>'  'coco'  <<i>>>><</link>>'

	<</if>>
	<<set $i += 1>>
	<<if $i <= ARRSIZE('coco_purses')>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loop_coco_purses'>>

	<</if>>
	<<image 'locations/city/island/flamingos/shop_name.png'>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loop_flamingos_purses'>>
	<<if getvar("$flamingos_purses["+$i+"]") == 1 and $flamingos_pursesS[$i] == $ploc>>
		*p '<<link '<img src="images/pc/items/flamingos/purses/<<i>>.jpg" 	height="300" />'>><<gt  'purses'  'view_purse_item'   '<<$larg(1)>>'  'flamingos'  <<i>>>><</link>>'

	<</if>>
	<<set $i += 1>>
	<<if $i <= ARRSIZE('flamingos_purses')>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loop_flamingos_purses'>>

	<</if>>
	<<image 'locations/city/island/nerdvana/shop_name.png'>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loop_nerdvana_purses'>>
	<<if getvar("$nerdvana_purses["+$i+"]") == 1 and $nerdvana_pursesS[$i] == $ploc>>
		*p '<<link '<img src="images/pc/items/nerdvana/purses/<<i>>.jpg" 	height="300" />'>><<gt  'purses'  'view_purse_item'   '<<$larg(1)>>'  'nerdvana'  <<i>>>><</link>>'

	<</if>>
	<<set $i += 1>>
	<<if $i <= ARRSIZE('nerdvana_purses')>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loop_nerdvana_purses'>>

	<</if>>
	<<image 'locations/city/citycenter/mall/sports.png'>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loop_danilovich_purses'>>
	<<if getvar("$danilovich_purses["+$i+"]") == 1 and $danilovich_pursesS[$i] == $ploc>>
		*p '<<link '<img src="images/pc/items/danilovich/purses/<<i>>.jpg" 	height="300" />'>><<gt  'purses'  'view_purse_item'   '<<$larg(1)>>'  'danilovich'  <<i>>>><</link>>'

	<</if>>
	<<set $i += 1>>
	<<if $i <= ARRSIZE('danilovich_purses')>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loop_danilovich_purses'>>

	<</if>>
	<<image 'locations/city/citycenter/mall/moncheri.png'>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :loop_moncheri_purses'>>
	<<if getvar("$moncheri_purses["+$i+"]") == 1 and $moncheri_pursesS[$i] == $ploc>>
		*p '<<link '<img src="images/pc/items/moncheri/purses/<<i>>.jpg" 	height="300" />'>><<gt  'purses'  'view_purse_item'  '<<$larg(1)>>'  'moncheri'  <<i>>>><</link>>'

	<</if>>
	<<set $i += 1>>
	<<if $i <= ARRSIZE('moncheri_purses')>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump loop_moncheri_purses'>>

	<</if>>
<</if>>
<<if $location_var[$here][0] == 'view_purse_item'>>
	<<set $menu_off = 1>>
	<!-- !! ARGS 0 - view_purse_item-->
	<!-- !! ARGS 1 = action type (home, shop)-->
	<!-- !! ARGS 2 - purse type-->
	<!-- !! ARGS 3 - purse index-->
	<!-- !! ARGS 4 - price for shop-->
	<center><img src="<<setup.func(''$purse_image'',  $larg(2), ARGS[3])>>"></center>
	<<gs 'purses' 'descriptions' $location_var[$here][2]>>
	<<if $location_var[$here][1] == 'shop'>>
		<<if State.getVar('$'+$larg(2)+'_purses['+$larg(3)+']') == 1>>
			You already own this purse.
			<<actCLA 'Leave'>>
				<<gt $location>>
			<</actCLA>>
		<<else>>
			<<set $price = $larg(4)>>
			<p>Price: ARGS[4] <b>₽</b></p>
			<<actCLA 'Leave'>>
				<<gt $location>>
			<</actCLA>>
			<<if $finances.cash >= $price>>
				<<actCLA 'Buy (cash)'>>
					<<set $finances.cash -= $price>>
					<!-- FAILED TO CONVERT
						dynamic $larg(2) + '_purses[<<ARGS[3]>>] = 1'
					-----
						<<set dynamic $larg(2) + '_purses[$ERROR: FAILED TO CONVERT LITERAL: """<<ARGS[3]>>"""] = 1'>>

					-->
					<<warn "CONVERSION ERROR 414f5f1c465dda273a854fc2cf06ca4a">>
					<<if $wardrobe.purse.isValidItem == 0>>
						
						<<set $currentpursetype = $location_var[$here][2]>>
						<<set $currentpursenumber = $larg(3)>>
					<</if>>
					<<gt $location>>
				<</actCLA>>
			<<else>>
				You do not have enough cash to buy this purse.
			<</if>>
			<<if $finances.bankAvailable >= $price>>
				<<actCLA 'Buy (card)'>>
					<<set $finances.bank -= $price>>
					<!-- FAILED TO CONVERT
						dynamic $larg(2) + '_purses[<<ARGS[3]>>] = 1'
					-----
						<<set dynamic $larg(2) + '_purses[$ERROR: FAILED TO CONVERT LITERAL: """<<ARGS[3]>>"""] = 1'>>

					-->
					<<warn "CONVERSION ERROR 414f5f1c465dda273a854fc2cf06ca4a">>
					<<if $wardrobe.purse.isValidItem == 0>>
						
						<<set $currentpursetype = $location_var[$here][2]>>
						<<set $currentpursenumber = $larg(3)>>
					<</if>>
					<<gt $location>>
				<</actCLA>>
			<<else>>
				You do not have enough money in your bank to buy this purse.
			<</if>>
		<</if>>
	<<else>>
		<<actCLA 'Return'>>
			<<gt 'purses' 'view_purse_list' $location_var[$here][1]>>
		<</actCLA>>
		<<if $currentpursetype == $location_var[$here][2] and $currentpursenumber == $larg(3)>>
			You are using this purse.
		<<else>>
			<<if getvar("$ploc") == 0>>
				This purse is in your wardrobe.
				<<actCLA 'Use this purse'>>
					<<set $currentpursetype = $location_var[$here][2]>>
					<<set $currentpursenumber = $larg(3)>>
					
					<<gt 'wardrobe' 'main'>>
				<</actCLA>>
			<<elseif getvar("$ploc") == 1>>
				This purse is in storage.
			<<elseif getvar("$ploc") == 2>>
				This purse is unwanted.
			<</if>>
			<<if getvar("$ploc") != 1>>
				<<sets $result += 'Move this purse to <<link "Storage">><<gt 'purses' 'dest1' '$larg(1)' '$larg(2)' $larg(3)>><</link>><BR>'>>

			<</if>>
			<<if getvar("$ploc") != 0>>
				<<sets $result += 'Move this purse to  <<link "Wardrobe">><<gt 'purses' 'dest0' '$larg(1)' '$larg(2)' $larg(3)>><</link>><BR>'>>

			<</if>>
			<<if getvar("$ploc") != 2>>
				<<sets $result += 'Move this purse to  <<link "Unwanted">><<gt 'purses' 'dest2' '$larg(1)' '$larg(2)' $larg(3)>><</link>>'>>

			<</if>>
			<<if $location_var[$here][1] != 'store'>>
				<<actCLA 'Move to storage'>>
					<<gt 'purses' 'dest1' $location_var[$here][1] $location_var[$here][2] $larg(3)>>
				<</actCLA>>
			<</if>>
			<<if $location_var[$here][1] != 'unwanted'>>
				<<actCLA 'Move to unwanted'>>
					<<gt 'purses' 'dest2' $location_var[$here][1] $location_var[$here][2] $larg(3)>>
				<</actCLA>>
			<</if>>
			<<if $location_var[$here][1] != 'wardrobe'>>
				<<actCLA 'Move to wardrobe'>>
					<<gt 'purses' 'dest0' $location_var[$here][1] $location_var[$here][2] $larg(3)>>
				<</actCLA>>
			<</if>>
		<</if>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'dest0'>>
	 	<<run State.setVar($larg(2)+'_pursesS['+$larg(3)+']',0)>>
	<<gt 'purses' 'view_purse_list' $location_var[$here][1] $location_var[$here][2] $larg(3)>>
<</if>>
<<if $location_var[$here][0] == 'dest1'>>
	 	<<run State.setVar($larg(2)+'_pursesS['+$larg(3)+']',1)>>
	<<gt 'purses' 'view_purse_list' $location_var[$here][1] $location_var[$here][2] $larg(3)>>
<</if>>
<<if $location_var[$here][0] == 'dest2'>>
	 	<<run State.setVar($larg(2)+'_pursesS['+$larg(3)+']',2)>>
	<<gt 'purses' 'view_purse_list' $location_var[$here][1] $location_var[$here][2] $larg(3)>>
<</if>>
<<if $location_var[$here][0] == 'descriptions'>>
	<<if $location_var[$here][1] == 'dolls'>>
		Let your freak flag fly with this perfect purse for the hot, independent girl that lives the alt lifestyle.
	<<elseif $location_var[$here][1] == 'bomba'>>
		Yeah you have attitude and with this bag everyone knows it.
	<<elseif $location_var[$here][1] == 'coco'>>
		A trendy bag for a young adult.
	<<elseif $location_var[$here][1] == 'flamingos'>>
		You look like the girl about town with this bag.
	<<elseif $location_var[$here][1] == 'danilovich'>>
		A sports bag for all your junk. Practical and durable but not fashionable
	<<elseif $location_var[$here][1] == 'fashionista'>>
		<p>A stylish handbag for any fashion-forward female!</p>
	<<elseif $location_var[$here][1] == 'nerdvana'>>
		For the geek inside you.
	<<elseif $location_var[$here][1] == 'gm'>>
		A functional, if not too fashionable, handbag for carrying all of the essentials.
	<<elseif $location_var[$here][1] == 'cats'>>
		<p>Is it a bag? Is it a pet? Is it a toy? Who cares you stand out and look cute.</p>
	<<elseif $location_var[$here][1] == 'moncheri'>>
		<p>A high-fashion handbag for ladies with discerning tastes. Show how classy you are with this expensive accessory.</p>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'remove'>>
	<<set $currentpursetype to null>>
	<<set $currentpursenumber to null>>
	
<</if>>
