TigorCat/locations/pierce.qsrc

# pierce
if $ARGS[0] = '1':
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/ad/ad_befor_start.mp4"></video></center>'

	'39 vnyz vag v'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (39).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (38).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (37).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (36).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (35).mp4"></video></center>'
	'35 vag'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (34).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (33).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (32).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (31).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (30).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (29).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (28).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (27).mp4"></video></center>'
	'27'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (26).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (25).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (24).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (23).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (22).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (21).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (20).mp4"></video></center>'
	'20'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (19).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (18).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (17).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (16).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (15).mp4"></video></center>'
	'15'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (14).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (13).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (12).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (11).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (10).mp4"></video></center>'
	'10'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (9).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (8).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (7).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (6).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (5).mp4"></video></center>'
	'5m'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (4).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (3).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (2).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vagv (1).mp4"></video></center>'

	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (22).jpg"></center>'
	'22p vag'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (21).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (20).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (19).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (18).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (17).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (16).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (15).jpg"></center>'
	'15p'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (14).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (13).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (12).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (11).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (10).jpg"></center>'
	'10'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (9).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (8).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (7).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (6).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (5).jpg"></center>'

	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/ass/ass (1).jpg"></center>'
	'5'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (4).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (3).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (2).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/vag (1).jpg"></center>'
	'1'


	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/ass/assv (6).mp4"></video></center>'
	'6v ass'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/ass/assv (5).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/ass/assv (4).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/ass/assv (3).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/ass/assv (2).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/ass/assv (1).mp4"></video></center>'

	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/ass/ass (1).jpg"></center>'
	'1p ass'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/ass/ass (2).jpg"></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/WC/events/90/5carsoldevent/work/free/ass/ass (3).jpg"></center>'

	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/bj/bjv (1).mp4"></video></center>'
	'1v bj'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/bj/bjv (2).mp4"></video></center>'
	'<center><video autoplay loop src="mod/public_WC/WC/events/90/5carsoldevent/work/free/bj/bjv (3).mp4"></video></center>'




end


	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 3000 <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 3000 <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 5000 <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 5000 <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 4000 <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 4000 <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 6000 <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 6000 <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 1000 <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 1000 <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 3000 <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 3000 <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 2000 <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 2000 <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 5000 <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 5000 <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 2000 <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 2000 <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 5000 <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 5000 <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 6000 <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 6000 <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 lip 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 7000 <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 7000 <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
--- pierce ---------------------------------