glife/locations/pirsingsalon.qsrc

# pirsingsalon


!! Piercings variables:
!! pirsX: Which piercing is worn at position X
!! X=
!! A: Tongue
!! B: Lip
!! C: Ear
!! D: Nose
!! E: Eyebrow
!! F: Nipple
!! G: Pussy
!! N: Navel
!! pirsX = 10000: the body is pieced at X but no piercing is currently worn there

menu_off = 1

if $ARGS[0] = 'start':
	$location_type = 'indoors'
	$menu_loc = 'pirsingsalon'
	$menu_arg = 'start'
	menu_off = 0
	gs 'stat'
	gs 'themes', 'indoors'
	'<center><b>Tattoo & Piercing Salon</b></center>'
	'<center><img src="images/locations/city/industrial/salon/pirsingstudia.jpg"></center>'
	'Small studio with just one artist doing the tattoos and piercings.'

	'<center><table border=1><TH>View tattoos</TH><TH>View tattoos</TH><TH>View piercings</TH>'
	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''arm''">Arm - 8,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''lip''">Lip - 5,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsyaz''">Tongue - 5,000 <b>₽</b></a></TD></tr>'
	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''ass''">Ass - 1,0000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''neck''">Neck - 8,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsgub''">Lip - 6,000 <b>₽</b></a></TD></tr>'
	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''back''">Back - 10,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pubic''">Pubic - 20,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsysh''">Ear - 3,000 <b>₽</b></a></TD></tr>'
	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''belly''">Belly - 10,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''shoulder''">Shoulder - 8,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsnos''">Nose - 5,000 <b>₽</b></a></TD></tr>'
	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''breast''">Breasts - 15,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''side''">Side - 12,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsbro''">Eyebrow - 5,000 <b>₽</b></a></TD></tr>'
	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''chest''">Chest - 12000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''tramp''">Tramp stamp - 12,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirssos''">Nipple - 10,000 <b>₽</b></a></TD></tr>'
	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''face''">Face - 10,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''under''">Under breast - 12,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirspyp''">Navel - 10,000 <b>₽</b></a></TD></tr>'
	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''foot''">Foot - 8,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''wrist''">Wrist - 7,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsvla''">Pussy - 25,000 <b>₽</b></a></TD></tr>'
	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''leg''">Legs - 10,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''hand''">Hand - 7,000 <b>₽</b></TD><TD></TD></tr></table></center>'

	if hour < 12 or hour > 20:
		cls
		'Shop is closing and you are asked to leave.'

		act 'Leave':
			minut += 5
			gs 'pirsingsalon', 'count'
			gt 'city_industrial'
		end
		exit
	end

	act 'Leave':
		minut += 5
		gs 'pirsingsalon', 'count'
		gt 'city_industrial'
	end
end

if $ARGS[0] = 'count':
	!!Counting the tattoos and piercings just in case
	
	tattCount = 0

	if tatarm >= 1: tattCount += 1
	if tatass >= 1:	tattCount += 1
	if tatback >= 1: tattCount += 1
	if tatblly >= 1: tattCount += 1
	if tatbrst >= 1: tattCount += 1
	if tatchst >= 1: tattCount += 1
	if tatfce >= 1:	tattCount += 1
	if tatankle >= 1: tattCount += 1
	if tatleg >= 1:	tattCount += 1
	if tatlip >= 1:	tattCount += 1
	if tatneck >= 1: tattCount += 1
	if tatvag >= 1: tattCount += 1
	if tatlech >= 1: tattCount += 1
	if tatside >= 1: tattCount += 1
	if tatupb >= 1: tattCount += 1
	if tatunder >= 1: tattCount += 1
	if tatwrist >= 1: tattCount += 1
	if tathand >= 1: tattCount += 1

	pierWearCount = 0

	if pirsA > 0 and pirsA ! 10000:	pierWearCount += 1
	if pirsB > 0 and pirsB ! 10000:	pierWearCount += 1
	if pirsC > 0 and pirsC ! 10000:	pierWearCount += 1
	if pirsD > 0 and pirsD ! 10000:	pierWearCount += 1
	if pirsE > 0 and pirsE ! 10000:	pierWearCount += 1
	if pirsF > 0 and pirsF ! 10000:	pierWearCount += 1
	if pirsG > 0 and pirsG ! 10000:	pierWearCount += 1
	if pirsN > 0 and pirsN ! 10000:	pierWearCount += 1
end

if $ARGS[0] = 'pirsyaz':
	*clr
	cla

	i = 1
	:looptongue_pir
		*p '<a href="exec:gt ''pirsingsalon'', ''tongue_pir'', <<i>>"><img src="images/pc/body/piercings/a<<i>>.jpg" 	height="250" /></a>'
		i += 1
	if i <= 4:jump 'looptongue_pir'

	act 'Return':gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'tongue_pir':
	*clr
	cla
	i = ARGS[1]
	'<center><img src="images/pc/body/piercings/a<<i>>.jpg"></center>'

	if pirsA > 0:
		if dyneval('RESULT = PirsA<<i>>_owned') = 1:
			'You already own this piercing.'
			act 'Return':gt 'pirsingsalon', 'pirsyaz'
		else
			if money >= 3000:
				act 'Buy this piercing for 3,000 <b>₽</b> (cash)':
					'You buy the piercing.'
					cla
					money -= 3000
					dynamic 'pirsA<<i>>_owned = 1'
					act 'Return':gt 'pirsingsalon', 'pirsyaz'
				end
			else
				'You don''t have enough cash for this piercing.'
			end
			if karta + bankDebtLimit >= 3000:
				act 'Buy this piercing for 3,000 <b>₽</b> (card)':
					'You buy the piercing.'
					cla
					karta -= 3000
					dynamic 'pirsA<<i>>_owned = 1'
					act 'Return':gt 'pirsingsalon', 'pirsyaz'
				end
			else
				'You don''t have enough money in your bank for this piercing.'
			end
		end
	elseif (money >= 5000) or (karta + bankDebtLimit >= 5000):
		if money >= 5000:
			act 'Get your tongue pierced with this piercing for 5,000 <b>₽</b> (cash)':
				cls
				minut += 30
				money -= 5000
				pirsA = i
				dynamic 'pirsA<<i>>_owned = 1'
				pierWearCount += 1
				gs 'pain', 5, 'tongue', 'pierce'
				'<center><img src="images/locations/city/industrial/salon/pirsing.jpg"></center>'
				gs 'stat'
				'The tattooist disinfects the area, pierces your tongue and inserts your chosen piercing.'

				act 'Leave':gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 5000:
			act 'Get your tongue pierced with this piercing for 5,000 <b>₽</b> (card)':
				cls
				minut += 30
				karta -= 5000
				pirsA = i
				dynamic 'pirsA<<i>>_owned = 1'
				pierWearCount += 1
				gs 'pain', 5, 'tongue', 'pierce'
				'<center><img src="images/locations/city/industrial/salon/pirsing.jpg"></center>'
				gs 'stat'
				'The tattooist disinfects the area, pierces your tongue and inserts your chosen piercing.'

				act 'Leave':gt 'pirsingsalon', 'start'
			end
		end
	else
		'You cannot afford to get your tongue pierced with this piercing.'
	end

	act 'Return':gt 'pirsingsalon', 'pirsyaz'
end

if $ARGS[0] = 'pirsgub':
	*clr
	cla

	i = 1
	:looplip_pir
		*p '<a href="exec:gt ''pirsingsalon'', ''lip_pir'', <<i>>"><img src="images/pc/body/piercings/b<<i>>.jpg" 	height="250" /></a>'
		i += 1
	if i <= 7:jump 'looplip_pir'

	act 'Return':gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'lip_pir':
	*clr
	cla
	i = ARGS[1]
	'<center><img src="images/pc/body/piercings/b<<i>>.jpg"></center>'

	if pirsB > 0:
		if dyneval('RESULT = PirsB<<i>>_owned') = 1:
			'You already own this piercing.'
			act 'Return':gt 'pirsingsalon', 'pirsgub'
		else
			if money >= 4000:
				act 'Buy this piercing for 4,000 <b>₽</b> (cash)':
					'You buy the piercing.'
					cla
					money -= 4000
					dynamic 'pirsB<<i>>_owned = 1'
					act 'Return':gt 'pirsingsalon', 'pirsgub'
				end
			else
				'You don''t have enough cash for this piercing.'
			end
			if karta + bankDebtLimit >= 4000:
				act 'Buy this piercing for 4,000 <b>₽</b> (card)':
					'You buy the piercing.'
					cla
					karta -= 4000
					dynamic 'pirsB<<i>>_owned = 1'
					act 'Return':gt 'pirsingsalon', 'pirsgub'
				end
			else
				'You don''t have enough money in your bank for this piercing.'
			end
		end
	elseif (money >= 6000) or (karta + bankDebtLimit >= 6000):
		if money >= 6000:
			act 'Get your lip pierced with this piercing for 6,000 <b>₽</b> (cash)':
				cls
				minut += 30
				money -= 6000
				pirsB = i
				dynamic 'pirsB<<i>>_owned = 1'
				pierWearCount += 1
				gs 'pain', 2, 'lips', 'pierce'
				'<center><img src="images/locations/city/industrial/salon/pirsing2.jpg"></center>'
				gs 'stat'
				'The tattooist disinfects the area, pierces your lip and inserts your chosen piercing.'

				act 'Leave':gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 6000:
			act 'Get your lip pierced with this piercing for 6,000 <b>₽</b> (card)':
				cls
				minut += 30
				karta -= 6000
				pirsB = i
				dynamic 'pirsB<<i>>_owned = 1'
				pierWearCount += 1
				gs 'pain', 2, 'lips', 'pierce'
				'<center><img src="images/locations/city/industrial/salon/pirsing2.jpg"></center>'
				gs 'stat'
				'The tattooist disinfects the area, pierces your lip and inserts your chosen piercing.'

				act 'Leave':gt 'pirsingsalon', 'start'
			end
		end
	else
		'You cannot afford to get your lip pierced with this piercing.'
	end

	act 'Return':gt 'pirsingsalon', 'pirsgub'
end

if $ARGS[0] = 'pirsysh':
	*clr
	cla

	i = 1
	:loopears_pir
		*p '<a href="exec:gt ''pirsingsalon'', ''ears_pir'', <<i>>"><img src="images/pc/body/piercings/c<<i>>.jpg" 	height="250" /></a>'
		i += 1
	if i <= 24:jump 'loopears_pir'

	act 'Return':gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'ears_pir':
	*clr
	cla
	i = ARGS[1]
	'<center><img src="images/pc/body/piercings/c<<i>>.jpg"></center>'

	if pirsC > 0:
		if dyneval('RESULT = PirsC<<i>>_owned') = 1:
			'You already own these earrings.'
			act 'Return':gt 'pirsingsalon', 'pirsysh'
		else
			if money >= 1000:
				act 'Buy this piercing for 1,000 <b>₽</b> (cash)':
					'You buy the earrings.'
					cla
					money -= 1000
					dynamic 'pirsC<<i>>_owned = 1'
					act 'Return':gt 'pirsingsalon', 'pirsysh'
				end
			else
				'You don''t have enough cash for these earrings.'
			end
			if karta + bankDebtLimit >= 1000:
				act 'Buy these earrings for 1,000 <b>₽</b> (card)':
					'You buy the earrings.'
					cla
					karta -= 1000
					dynamic 'pirsC<<i>>_owned = 1'
					act 'Return':gt 'pirsingsalon', 'pirsysh'
				end
			else
				'You don''t have enough money in your bank for these earrings.'
			end
		end
	elseif (money >= 3000) or (karta + bankDebtLimit >= 3000):
		if money >= 3000:
			act 'Get your ears pierced with these earrings for 3,000 <b>₽</b> (cash)':
				cls
				minut += 30
				money -= 3000
				pirsC = i
				dynamic 'pirsC<<i>>_owned = 1'
				pierWearCount += 1
				gs 'pain', 1, 'ears', 'pierce'
				'<center><img src="images/pc/body/piercings/c<<i>>.jpg"></center>'
				gs 'stat'
				'The tattooist disinfects the area, pierces your ears and inserts your chosen earrings.'

				act 'Leave':gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 3000:
			act 'Get your ears pierced with these earrings for 3,000 <b>₽</b> (card)':
				cls
				minut += 30
				karta -= 3000
				pirsC = i
				dynamic 'pirsC<<i>>_owned = 1'
				pierWearCount += 1
				gs 'pain', 1, 'ears', 'pierce'
				'<center><img src="images/pc/body/piercings/c<<i>>.jpg"></center>'
				gs 'stat'
				'The tattooist disinfects the area, pierces your ears and inserts your chosen earrings.'

				act 'Leave':gt 'pirsingsalon', 'start'
			end
		end
	else
		'You cannot afford to get your ears pierced with this earrings.'
	end

	act 'Return':gt 'pirsingsalon', 'pirsysh'
end

if $ARGS[0] = 'pirsnos':
	*clr
	cla

	i = 1
	:loopnose_pir
		*p '<a href="exec:gt ''pirsingsalon'', ''nose_pir'', <<i>>"><img src="images/pc/body/piercings/d<<i>>.jpg" 	height="250" /></a>'
		i += 1
	if i <= 7:jump 'loopnose_pir'

	act 'Return':gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'nose_pir':
	*clr
	cla
	i = ARGS[1]
	'<center><img src="images/pc/body/piercings/d<<i>>.jpg"></center>'

	if pirsD > 0:
		if dyneval('RESULT = PirsD<<i>>_owned') = 1:
			'You already own this piercing.'
			act 'Return':gt 'pirsingsalon', 'pirsnos'
		else
			if money >= 2000:
				act 'Buy this piercing for 2,000 <b>₽</b> (cash)':
					'You buy the piercing.'
					cla
					money -= 2000
					dynamic 'pirsD<<i>>_owned = 1'
					act 'Return':gt 'pirsingsalon', 'pirsnos'
				end
			else
				'You don''t have enough cash for this piercing.'
			end
			if karta + bankDebtLimit >= 2000:
				act 'Buy this piercing for 2,000 <b>₽</b> (card)':
					'You buy the piercing.'
					cla
					karta -= 2000
					dynamic 'pirsD<<i>>_owned = 1'
					act 'Return':gt 'pirsingsalon', 'pirsnos'
				end
			else
				'You don''t have enough money in your bank for this piercing.'
			end
		end
	elseif (money >= 5000) or (karta + bankDebtLimit >= 5000):
		if money >= 5000:
			act 'Get your nose pierced with this piercing for 5,000 <b>₽</b> (cash)':
				cls
				minut += 30
				money -= 5000
				pirsD = i
				dynamic 'pirsD<<i>>_owned = 1'
				pierWearCount += 1
				gs 'pain', 2, 'nose', 'pierce'
				'<center><img src="images/pc/body/piercings/d<<i>>.jpg"></center>'
				gs 'stat'
				'The tattooist disinfects the area, pierces your nose and inserts your chosen piercing.'

				act 'Leave':gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 5000:
			act 'Get your nose pierced with this piercing for 5,000 <b>₽</b> (card)':
				cls
				minut += 30
				karta -= 5000
				pirsD = i
				dynamic 'pirsD<<i>>_owned = 1'
				pierWearCount += 1
				gs 'pain', 2, 'nose', 'pierce'
				'<center><img src="images/pc/body/piercings/d<<i>>.jpg"></center>'
				gs 'stat'
				'The tattooist disinfects the area, pierces your nose and inserts your chosen piercing.'

				act 'Leave':gt 'pirsingsalon', 'start'
			end
		end
	else
		'You cannot afford to get your lip pierced with this piercing.'
	end

	act 'Return':gt 'pirsingsalon', 'pirsnos'
end

if $ARGS[0] = 'pirsbro':
	*clr
	cla

	i = 1
	:loopbrow_pir
		*p '<a href="exec:gt ''pirsingsalon'', ''brow_pir'', <<i>>"><img src="images/pc/body/piercings/e<<i>>.jpg" 	height="250" /></a>'
		i += 1
	if i <= 2:jump 'loopbrow_pir'

	act 'Return':gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'brow_pir':
	*clr
	cla
	i = ARGS[1]
	'<center><img src="images/pc/body/piercings/e<<i>>.jpg"></center>'

	if pirsE > 0:
		if dyneval('RESULT = PirsE<<i>>_owned') = 1:
			'You already own this piercing.'
			act 'Return':gt 'pirsingsalon', 'pirsbro'
		else
			if money >= 2000:
				act 'Buy this piercing for 2,000 <b>₽</b> (cash)':
					'You buy the piercing.'
					cla
					money -= 2000
					dynamic 'PirsE<<i>>_owned = 1'
					act 'Return':gt 'pirsingsalon', 'pirsbro'
				end
			else
				'You don''t have enough cash for this piercing.'
			end
			if karta + bankDebtLimit >= 2000:
				act 'Buy this piercing for 2,000 <b>₽</b> (card)':
					'You buy the piercing.'
					cla
					karta -= 2000
					dynamic 'PirsE<<i>>_owned = 1'
					act 'Return':gt 'pirsingsalon', 'pirsbro'
				end
			else
				'You don''t have enough money in your bank for this piercing.'
			end
		end
	elseif (money >= 5000) or (karta + bankDebtLimit >= 5000):
		if money >= 5000:
			act 'Get your brow pierced with this piercing for 5,000 <b>₽</b> (cash)':
				cls
				minut += 30
				money -= 5000
				PirsE = i
				dynamic 'PirsE<<i>>_owned = 1'
				pierWearCount += 1
				gs 'pain', 3, 'eyebrows', 'pierce'
				'<center><img src="images/pc/body/piercings/e<<i>>.jpg"></center>'
				gs 'stat'
				'The tattooist disinfects the area, pierces your brow and inserts your chosen piercing.'

				act 'Leave':gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 5000:
			act 'Get your brow pierced with this piercing for 5,000 <b>₽</b> (card)':
				cls
				minut += 30
				karta -= 5000
				PirsE = i
				dynamic 'PirsE<<i>>_owned = 1'
				pierWearCount += 1
				gs 'pain', 3, 'eyebrows', 'pierce'
				'<center><img src="images/pc/body/piercings/e<<i>>.jpg"></center>'
				gs 'stat'
				'The tattooist disinfects the area, pierces your brow and inserts your chosen piercing.'

				act 'Leave':gt 'pirsingsalon', 'start'
			end
		end
	else
		'You cannot afford to get your brow pierced with this piercing.'
	end

	act 'Return':gt 'pirsingsalon', 'pirsbro'
end

if $ARGS[0] = 'pirssos':
	*clr
	cla

	i = 1
	:loopnip_pir
		*p '<a href="exec:gt ''pirsingsalon'', ''nip_pir'', <<i>>"><img src="images/pc/body/piercings/f<<i>>.jpg" 	height="250" /></a>'
		i += 1
	if i <= 7:jump 'loopnip_pir'

	act 'Return':gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'nip_pir':
	*clr
	cla
	i = ARGS[1]
	'<center><img src="images/pc/body/piercings/f<<i>>.jpg"></center>'

	if pirsF > 0:
		if dyneval('RESULT = PirsF<<i>>_owned') = 1:
			'You already own this piercing.'
			act 'Return':gt 'pirsingsalon', 'pirssos'
		else
			if money >= 6000:
				act 'Buy these piercings for 6,000 <b>₽</b> (cash)':
					'You buy the piercings.'
					cla
					money -= 6000
					dynamic 'pirsF<<i>>_owned = 1'
					act 'Return':gt 'pirsingsalon', 'pirssos'
				end
			else
				'You don''t have enough cash for these piercings.'
			end
			if karta + bankDebtLimit >= 6000:
				act 'Buy these piercings for 6,000 <b>₽</b> (card)':
					'You buy the piercings.'
					cla
					karta -= 6000
					dynamic 'pirsF<<i>>_owned = 1'
					act 'Return':gt 'pirsingsalon', 'pirssos'
				end
			else
				'You don''t have enough money in your bank for this piercing.'
			end
		end
	elseif (money >= 10000) or (karta + bankDebtLimit >= 10000):
		if money >= 10000:
			act 'Get your nipples pierced with these piercings for 10,000 <b>₽</b> (cash)':
				cls
				minut += 30
				money -= 10000
				pirsF = i
				dynamic 'pirsF<<i>>_owned = 1'
				pierWearCount += 1
				gs 'pain', 7, 'nipples', 'pierce'
				'<center><img src="images/pc/body/piercings/f<<i>>.jpg"></center>'
				gs 'stat'
				'The tattooist disinfects the area, pierces your nipples and inserts your chosen piercings.'

				act 'Leave':gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 10000:
			act 'Get your nipples pierced with these piercings for 10,000 <b>₽</b> (card)':
				cls
				minut += 30
				karta -= 10000
				pirsF = i
				dynamic 'pirsF<<i>>_owned = 1'
				pierWearCount += 1
				gs 'pain', 7, 'nipples', 'pierce'
				'<center><img src="images/pc/body/piercings/f<<i>>.jpg"></center>'
				gs 'stat'
				'The tattooist disinfects the area, pierces your nipples and inserts your chosen piercings.'

				act 'Leave':gt 'pirsingsalon', 'start'
			end
		end
	else
		'You cannot afford to get your nipples pierced with these piercings.'
	end

	act 'Return':gt 'pirsingsalon', 'pirssos'
end

if $ARGS[0] = 'pirspyp':
	*clr
	cla

	i = 1
	:loopbelly_pir
		*p '<a href="exec:gt ''pirsingsalon'', ''belly_pir'', <<i>>"><img src="images/pc/body/piercings/n<<i>>.jpg" 	height="250" /></a>'
		i += 1
	if i <= 4:jump 'loopbelly_pir'

	act 'Return':gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'belly_pir':
	*clr
	cla
	i = ARGS[1]
	'<center><img src="images/pc/body/piercings/n<<i>>.jpg"></center>'

	if pirsN > 0:
		if dyneval('RESULT = PirsN<<i>>_owned') = 1:
			'You already own this piercing.'
			act 'Return':gt 'pirsingsalon', 'pirspyp'
		else
			if money >= 7000:
				act 'Buy this piercing for 7,000 <b>₽</b> (cash)':
					'You buy the piercing.'
					cla
					money -= 7000
					dynamic 'PirsN<<i>>_owned = 1'
					act 'Return':gt 'pirsingsalon', 'pirspyp'
				end
			else
				'You don''t have enough cash for this piercing.'
			end
			if karta + bankDebtLimit >= 7000:
				act 'Buy this piercing for 7,000 <b>₽</b> (card)':
					'You buy the piercing.'
					cla
					karta -= 7000
					dynamic 'PirsN<<i>>_owned = 1'
					act 'Return':gt 'pirsingsalon', 'pirspyp'
				end
			else
				'You don''t have enough money in your bank for this piercing.'
			end
		end
	elseif (money >= 10000) or (karta + bankDebtLimit >= 10000):
		if money >= 10000:
			act 'Get your belly button pierced with this piercing for 10,000 <b>₽</b> (cash)':
				cls
				minut += 30
				money -= 10000
				PirsN = i
				dynamic 'PirsN<<i>>_owned = 1'
				pierWearCount += 1
				gs 'pain', 1, 'tummy', 'pierce'
				'<center><img src="images/pc/body/piercings/n<<i>>.jpg"></center>'
				gs 'stat'
				'The tattooist disinfects the area, pierces your belly button and inserts your chosen piercing.'

				act 'Leave':gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 10000:
			act 'Get your belly button pierced with this piercing for 10,000 <b>₽</b> (card)':
				cls
				minut += 30
				karta -= 10000
				PirsN = i
				dynamic 'PirsN<<i>>_owned = 1'
				pierWearCount += 1
				gs 'pain', 1, 'tummy', 'pierce'
				'<center><img src="images/pc/body/piercings/n<<i>>.jpg"></center>'
				gs 'stat'
				'The tattooist disinfects the area, pierces your belly button and inserts your chosen piercing.'

				act 'Leave':gt 'pirsingsalon', 'start'
			end
		end
	else
		'You cannot afford to get your belly button pierced with this piercing.'
	end

	act 'Return':gt 'pirsingsalon', 'pirspyp'
end

if $ARGS[0] = 'pirsvla':
	*clr
	cla

	i = 1
	:looppubic_pir
		*p '<a href="exec:gt ''pirsingsalon'', ''pubic_pir'', <<i>>"><img src="images/pc/body/piercings/g<<i>>.jpg" 	height="250" /></a>'
		i += 1
	if i <= 10:jump 'looppubic_pir'

	act 'Return':gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'pubic_pir':
	*clr
	cla
	i = ARGS[1]
	'<center><img src="images/pc/body/piercings/g<<i>>.jpg"></center>'

	if pirsG > 0:
		if dyneval('RESULT = PirsG<<i>>_owned') = 1:
			'You already own this piercing.'
			act 'Return':gt 'pirsingsalon', 'pirsvla'
		else
			if money >= 10000:
				act 'Buy this piercing for 10,000 <b>₽</b> (cash)':
					'You buy the piercing.'
					cla
					money -= 10000
					dynamic 'pirsG<<i>>_owned = 1'
					act 'Return':gt 'pirsingsalon', 'pirsvla'
				end
			else
				'You don''t have enough cash for this piercing.'
			end
			if karta + bankDebtLimit >= 10000:
				act 'Buy this piercing for 10,000 <b>₽</b> (card)':
					'You buy the piercing.'
					cla
					karta -= 10000
					dynamic 'pirsG<<i>>_owned = 1'
					act 'Return':gt 'pirsingsalon', 'pirsvla'
				end
			else
				'You don''t have enough money in your bank for this piercing.'
			end
		end
	elseif (money >= 25000) or (karta + bankDebtLimit >= 25000):
		if money >= 25000:
			act 'Get your pussy pierced with this piercing for 25,000 <b>₽</b> (cash)':
				cls
				minut += 30
				money -= 25000
				pirsG = i
				dynamic 'pirsG<<i>>_owned = 1'
				pierWearCount += 1
				gs 'pain', 9, 'pubic', 'pierce'
				'<center><img src="images/pc/body/piercings/g<<i>>.jpg"></center>'
				gs 'stat'
				'The tattooist disinfects the area, pierces your pussy and inserts your chosen piercing.'

				act 'Leave':gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 25000:
			act 'Get your pussy pierced with this piercing for 25,000 <b>₽</b> (card)':
				cls
				minut += 30
				karta -= 25000
				pirsG = i
				dynamic 'pirsG<<i>>_owned = 1'
				pierWearCount += 1
				gs 'pain', 9, 'pubic', 'pierce'
				'<center><img src="images/pc/body/piercings/g<<i>>.jpg"></center>'
				gs 'stat'
				'The tattooist disinfects the area, pierces your pussy and inserts your chosen piercing.'

				act 'Leave':gt 'pirsingsalon', 'start'
			end
		end
	else
		'You cannot afford to get your pussy pierced with this piercing.'
	end

	act 'Return':gt 'pirsingsalon', 'pirsvla'
end

if $ARGS[0] = 'arm':
	*clr
	cla
	if tatarm = 0:

		n = 1
		:looptatarm
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''arm_get''"><img src="images/pc/body/tattoos/arms/tatarm<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 77:jump 'looptatarm'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/arms/tatarm<<tatarm>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'arm_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/arms/tatarm<<n>>.jpg"></center>'

	if (money < 8000) and (karta + bankDebtLimit < 8000):
		'You cannot afford this tattoo.'
	else
		if money >= 8000:
			act 'Get this tattoo 8,000 <b>₽</b> (cash)':
				cla
				tatarm = n
				money -= 8000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 8000:
			act 'Get this tattoo 8,000 <b>₽</b> (card)':
				cla
				tatarm = n
				karta -= 8000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'ass':
	*clr
	cla
	if tatass = 0:

		n = 1
		:looptatass
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''ass_get''"><img src="images/pc/body/tattoos/ass/tatass<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 25:jump 'looptatass'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/ass/tatass<<tatass>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'ass_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/ass/tatass<<n>>.jpg"></center>'

	if (money < 10000) and (karta + bankDebtLimit < 10000):
		'You cannot afford this tattoo.'
	else
		if money >= 10000:
			act 'Get this tattoo 10,000 <b>₽</b> (cash)':
				cla
				tatass = n
				money -= 10000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 10000:
			act 'Get this tattoo 10,000 <b>₽</b> (card)':
				cla
				tatass = n
				karta -= 10000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'back':
	*clr
	cla
	if tatback = 0:

		n = 1
		:looptatback
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''back_get''"><img src="images/pc/body/tattoos/back/tatback<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 61:jump 'looptatback'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/back/tatback<<tatback>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'back_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/back/tatback<<n>>.jpg"></center>'

	if (money < 10000) and (karta + bankDebtLimit < 10000):
		'You cannot afford this tattoo.'
	else
		if money >= 10000:
			act 'Get this tattoo 10,000 <b>₽</b> (cash)':
				cla
				tatback = n
				money -= 10000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 10000:
			act 'Get this tattoo 10,000 <b>₽</b> (card)':
				cla
				tatback = n
				karta -= 10000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'belly':
	*clr
	cla
	if tatblly = 0:

		n = 1
		:looptatbelly
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''belly_get''"><img src="images/pc/body/tattoos/belly/tatblly<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 21:jump 'looptatbelly'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/belly/tatblly<<tatblly>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'belly_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/belly/tatblly<<n>>.jpg"></center>'

	if (money < 10000) and (karta + bankDebtLimit < 10000):
		'You cannot afford this tattoo.'
	else
		if money >= 10000:
			act 'Get this tattoo 10,000 <b>₽</b> (cash)':
				cla
				tatblly = n
				money -= 10000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 10000:
			act 'Get this tattoo 10,000 <b>₽</b> (card)':
				cla
				tatblly = n
				karta -= 10000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'breast':
	*clr
	cla
	if tatbrst = 0:

		n = 1
		:looptatbreast
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''breast_get''"><img src="images/pc/body/tattoos/breasts/tatbrst<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 11:jump 'looptatbreast'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/breasts/tatbrst<<tatbrst>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'breast_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/breasts/tatbrst<<n>>.jpg"></center>'

	if (money < 15000) and (karta + bankDebtLimit < 15000):
		'You cannot afford this tattoo.'
	else
		if money >= 15000:
			act 'Get this tattoo 15,000 <b>₽</b> (cash)':
				cla
				tatbrst = n
				money -= 15000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 15000:
			act 'Get this tattoo 15,000 <b>₽</b> (card)':
				cla
				tatbrst = n
				karta -= 15000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'chest':
	*clr
	cla
	if tatchst = 0:

		n = 1
		:looptatchest
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''chest_get''"><img src="images/pc/body/tattoos/chest/tatchst<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 15:jump 'looptatchest'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/chest/tatchst<<tatchst>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'chest_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/chest/tatchst<<n>>.jpg"></center>'

	if (money < 12000) and (karta + bankDebtLimit < 12000):
		'You cannot afford this tattoo.'
	else
		if money >= 12000:
			act 'Get this tattoo 12,000 <b>₽</b> (cash)':
				cla
				tatchst = n
				money -= 12000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 12000:
			act 'Get this tattoo 12,000 <b>₽</b> (card)':
				cla
				tatchst = n
				karta -= 12000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'face':
	*clr
	cla
	if tatfce = 0:

		n = 1
		:looptatface
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''face_get''"><img src="images/pc/body/tattoos/face/tatfce<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 8:jump 'looptatface'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/face/tatfce<<tatfce>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'face_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/face/tatfce<<n>>.jpg"></center>'

	if (money < 10000) and (karta + bankDebtLimit < 10000):
		'You cannot afford this tattoo.'
	else
		if money >= 10000:
			act 'Get this tattoo 10,000 <b>₽</b> (cash)':
				cla
				tatfce = n
				money -= 10000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 10000:
			act 'Get this tattoo 10,000 <b>₽</b> (card)':
				cla
				tatfce = n
				karta -= 10000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'foot':
	*clr
	cla
	if tatankle = 0:

		n = 1
		:looptatfoot
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''foot_get''"><img src="images/pc/body/tattoos/foot/tatankle<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 25:jump 'looptatfoot'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/foot/tatankle<<tatankle>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'foot_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/foot/tatankle<<n>>.jpg"></center>'

	if (money < 8000) and (karta + bankDebtLimit < 8000):
		'You cannot afford this tattoo.'
	else
		if money >= 8000:
			act 'Get this tattoo 8,000 <b>₽</b> (cash)':
				cla
				tatankle = n
				money -= 8000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 8000:
			act 'Get this tattoo 8,000 <b>₽</b> (card)':
				cla
				tatankle = n
				karta -= 8000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'hand':
	*clr
	cla
	if tathand = 0:

		n = 1
		:looptathand
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''hand_get''"><img src="images/pc/body/tattoos/hand/tathnd<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 9:jump 'looptathand'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/hand/tathnd<<tathand>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'hand_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/hand/tathnd<<n>>.jpg"></center>'

	if (money < 7000) and (karta + bankDebtLimit < 7000):
		'You cannot afford this tattoo.'
	else
		if money >= 7000:
			act 'Get this tattoo 7,000 <b>₽</b> (cash)':
				cla
				tathand = n
				money -= 7000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 7000:
			act 'Get this tattoo 7,000 <b>₽</b> (card)':
				cla
				tathand = n
				karta -= 7000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'leg':
	*clr
	cla
	if tatleg = 0:

		n = 1
		:looptatleg
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''leg_get''"><img src="images/pc/body/tattoos/legs/tatleg<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 47:jump 'looptatleg'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/legs/tatleg<<tatleg>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'leg_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/legs/tatleg<<n>>.jpg"></center>'

	if (money < 10000) and (karta + bankDebtLimit < 10000):
		'You cannot afford this tattoo.'
	else
		if money >= 10000:
			act 'Get this tattoo 10,000 <b>₽</b> (cash)':
				cla
				tatleg = n
				money -= 10000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 10000:
			act 'Get this tattoo 10,000 <b>₽</b> (card)':
				cla
				tatleg = n
				karta -= 10000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'lip':
	*clr
	cla
	if tatlip = 0:

		n = 1
		:looptatlip
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''lip_get''"><img src="images/pc/body/tattoos/lip/tatlip<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 9:jump 'looptatlip'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/lip/tatlip<<tatlip>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'lip_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/lip/tatlip<<n>>.jpg"></center>'

	if (money < 5000) and (karta + bankDebtLimit < 5000):
		'You cannot afford this tattoo.'
	else
		if money >= 5000:
			act 'Get this tattoo 5,000 <b>₽</b> (cash)':
				cla
				tatlip = n
				money -= 5000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 5000:
			act 'Get this tattoo 5,000 <b>₽</b> (card)':
				cla
				tatlip = n
				karta -= 5000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'neck':
	*clr
	cla
	if tatneck = 0:

		n = 1
		:looptatneck
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''neck_get''"><img src="images/pc/body/tattoos/neck/tatnck<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 30:jump 'looptatneck'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/neck/tatnck<<tatneck>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'neck_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/neck/tatnck<<n>>.jpg"></center>'

	if (money < 8000) and (karta + bankDebtLimit < 8000):
		'You cannot afford this tattoo.'
	else
		if money >= 8000:
			act 'Get this tattoo 8,000 <b>₽</b> (cash)':
				cla
				tatneck = n
				money -= 8000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 8000:
			act 'Get this tattoo 8,000 <b>₽</b> (card)':
				cla
				tatneck = n
				karta -= 8000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'pubic':
	*clr
	cla
	if tatvag = 0:

		n = 1
		:looptatvag
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''vag_get''"><img src="images/pc/body/tattoos/pubic/tatvag<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 53:jump 'looptatvag'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/pubic/tatvag<<tatvag>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'vag_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/pubic/tatvag<<n>>.jpg"></center>'

	if (money < 20000) and (karta + bankDebtLimit < 20000):
		'You cannot afford this tattoo.'
	else
		if money >= 20000:
			act 'Get this tattoo 20,000 <b>₽</b> (cash)':
				cla
				tatvag = n
				money -= 20000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 20000:
			act 'Get this tattoo 20,000 <b>₽</b> (card)':
				cla
				tatvag = n
				karta -= 20000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'shoulder':
	*clr
	cla
	if tatlech = 0:

		n = 1
		:looptatlech
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''shoulder_get''"><img src="images/pc/body/tattoos/shoulder/tatshldr<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 25:jump 'looptatlech'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/shoulder/tatshldr<<tatlech>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'shoulder_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/shoulder/tatshldr<<n>>.jpg"></center>'

	if (money < 8000) and (karta + bankDebtLimit < 8000):
		'You cannot afford this tattoo.'
	else
		if money >= 8000:
			act 'Get this tattoo 8,000 <b>₽</b> (cash)':
				cla
				tatlech = n
				money -= 8000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 8000:
			act 'Get this tattoo 8,000 <b>₽</b> (card)':
				cla
				tatlech = n
				karta -= 8000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'side':
	*clr
	cla
	if tatside = 0:

		n = 1
		:looptatside
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''side_get''"><img src="images/pc/body/tattoos/side/tatside<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 23:jump 'looptatside'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/side/tatside<<tatside>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'side_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/side/tatside<<n>>.jpg"></center>'

	if (money < 12000) and (karta + bankDebtLimit < 12000):
		'You cannot afford this tattoo.'
	else
		if money >= 12000:
			act 'Get this tattoo 12,000 <b>₽</b> (cash)':
				cla
				tatside = n
				money -= 12000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 12000:
			act 'Get this tattoo 12,000 <b>₽</b> (card)':
				cla
				tatside = n
				karta -= 12000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'tramp':
	*clr
	cla
	if tatupb = 0:

		n = 1
		:looptatupb
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''tramp_get''"><img src="images/pc/body/tattoos/trampStamp/tatlowbck<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 32:jump 'looptatupb'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/trampStamp/tatlowbck<<tatupb>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'tramp_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/trampStamp/tatlowbck<<n>>.jpg"></center>'

	if (money < 12000) and (karta + bankDebtLimit < 12000):
		'You cannot afford this tattoo.'
	else
		if money >= 12000:
			act 'Get this tattoo 12,000 <b>₽</b> (cash)':
				cla
				tatupb = n
				money -= 12000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 12000:
			act 'Get this tattoo 12,000 <b>₽</b> (card)':
				cla
				tatupb = n
				karta -= 12000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'under':
	*clr
	cla
	if tatunder = 0:

		n = 1
		:looptatunder
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''under_get''"><img src="images/pc/body/tattoos/underBreast/tatundbreast<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 22:jump 'looptatunder'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/underBreast/tatundbreast<<tatunder>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'under_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/underBreast/tatundbreast<<n>>.jpg"></center>'

	if (money < 12000) and (karta + bankDebtLimit < 12000):
		'You cannot afford this tattoo.'
	else
		if money >= 12000:
			act 'Get this tattoo 12,000 <b>₽</b> (cash)':
				cla
				tatunder = n
				money -= 12000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 12000:
			act 'Get this tattoo 12,000 <b>₽</b> (card)':
				cla
				tatunder = n
				karta -= 12000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'wrist':
	*clr
	cla
	if tatwrist = 0:

		n = 1
		:looptatwrist
		*p '<a href="exec:n = <<n>> & gt ''pirsingsalon'', ''wrist_get''"><img src="images/pc/body/tattoos/wrists/tatwrst<<n>>.jpg" height="250" /></a>'
		n += 1
		if n <= 51:jump 'looptatwrist'
		*nl

	else
		'<center><img src="images/pc/body/tattoos/wrists/tatwrst<<tatwrist>>.jpg"></center>'
		'You already have this tattoo here.'
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

if $ARGS[0] = 'wrist_get':
	*clr
	cla
	'<center><img src="images/pc/body/tattoos/wrists/tatwrst<<n>>.jpg"></center>'

	if (money < 7000) and (karta + bankDebtLimit < 7000):
		'You cannot afford this tattoo.'
	else
		if money >= 7000:
			act 'Get this tattoo 7,000 <b>₽</b> (cash)':
				cla
				tatwrist = n
				money -= 7000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
		if karta + bankDebtLimit >= 7000:
			act 'Get this tattoo 7,000 <b>₽</b> (card)':
				cla
				tatwrist = n
				karta -= 7000
				minut += 60
				gs 'stat'

				act 'Return': gt 'pirsingsalon', 'start'
			end
		end
	end

	act 'Return': gt 'pirsingsalon', 'start'
end

--- pirsingsalon ---------------------------------