# 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'
'Tattoo & Piercing Salon'
'
'
'Small studio with just one artist doing the tattoos and piercings.'
''
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 '
'
i += 1
if i <= 4:jump 'looptongue_pir'
act 'Return':gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'tongue_pir':
*clr
cla
i = ARGS[1]
''
if pirsA > 0:
if dyneval('RESULT = PirsA<>_owned') = 1:
'You already own this piercing.'
act 'Return':gt 'pirsingsalon', 'pirsyaz'
else
if money >= 3000:
act 'Buy this piercing for 3000 ₽ (cash)':
'You buy the piercing.'
cla
money -= 3000
dynamic 'pirsA<>_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 ₽ (card)':
'You buy the piercing.'
cla
karta -= 3000
dynamic 'pirsA<>_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 ₽ (cash)':
cls
minut += 30
money -= 5000
pirsA = i
dynamic 'pirsA<>_owned = 1'
pierWearCount += 1
gs 'pain', 5, 'tongue', 'pierce'
'
'
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 ₽ (card)':
cls
minut += 30
karta -= 5000
pirsA = i
dynamic 'pirsA<>_owned = 1'
pierWearCount += 1
gs 'pain', 5, 'tongue', 'pierce'
''
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 '
'
i += 1
if i <= 7:jump 'looplip_pir'
act 'Return':gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'lip_pir':
*clr
cla
i = ARGS[1]
''
if pirsB > 0:
if dyneval('RESULT = PirsB<>_owned') = 1:
'You already own this piercing.'
act 'Return':gt 'pirsingsalon', 'pirsgub'
else
if money >= 4000:
act 'Buy this piercing for 4000 ₽ (cash)':
'You buy the piercing.'
cla
money -= 4000
dynamic 'pirsB<>_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 ₽ (card)':
'You buy the piercing.'
cla
karta -= 4000
dynamic 'pirsB<>_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 ₽ (cash)':
cls
minut += 30
money -= 6000
pirsB = i
dynamic 'pirsB<>_owned = 1'
pierWearCount += 1
gs 'pain', 2, 'lips', 'pierce'
'
'
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 ₽ (card)':
cls
minut += 30
karta -= 6000
pirsB = i
dynamic 'pirsB<>_owned = 1'
pierWearCount += 1
gs 'pain', 2, 'lips', 'pierce'
''
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 '
'
i += 1
if i <= 24:jump 'loopears_pir'
act 'Return':gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'ears_pir':
*clr
cla
i = ARGS[1]
''
if pirsC > 0:
if dyneval('RESULT = PirsC<>_owned') = 1:
'You already own these earrings.'
act 'Return':gt 'pirsingsalon', 'pirsysh'
else
if money >= 1000:
act 'Buy this piercing for 1000 ₽ (cash)':
'You buy the earrings.'
cla
money -= 1000
dynamic 'pirsC<>_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 ₽ (card)':
'You buy the earrings.'
cla
karta -= 1000
dynamic 'pirsC<>_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 ₽ (cash)':
cls
minut += 30
money -= 3000
pirsC = i
dynamic 'pirsC<>_owned = 1'
pierWearCount += 1
gs 'pain', 1, 'ears', 'pierce'
''
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 ₽ (card)':
cls
minut += 30
karta -= 3000
pirsC = i
dynamic 'pirsC<>_owned = 1'
pierWearCount += 1
gs 'pain', 1, 'ears', 'pierce'
''
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 '
'
i += 1
if i <= 7:jump 'loopnose_pir'
act 'Return':gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'nose_pir':
*clr
cla
i = ARGS[1]
''
if pirsD > 0:
if dyneval('RESULT = PirsD<>_owned') = 1:
'You already own this piercing.'
act 'Return':gt 'pirsingsalon', 'pirsnos'
else
if money >= 2000:
act 'Buy this piercing for 2000 ₽ (cash)':
'You buy the piercing.'
cla
money -= 2000
dynamic 'pirsD<>_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 ₽ (card)':
'You buy the piercing.'
cla
karta -= 2000
dynamic 'pirsD<>_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 ₽ (cash)':
cls
minut += 30
money -= 5000
pirsD = i
dynamic 'pirsD<>_owned = 1'
pierWearCount += 1
gs 'pain', 2, 'nose', 'pierce'
''
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 ₽ (card)':
cls
minut += 30
karta -= 5000
pirsD = i
dynamic 'pirsD<>_owned = 1'
pierWearCount += 1
gs 'pain', 2, 'nose', 'pierce'
''
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 '
'
i += 1
if i <= 2:jump 'loopbrow_pir'
act 'Return':gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'brow_pir':
*clr
cla
i = ARGS[1]
''
if pirsE > 0:
if dyneval('RESULT = PirsE<>_owned') = 1:
'You already own this piercing.'
act 'Return':gt 'pirsingsalon', 'pirsbro'
else
if money >= 2000:
act 'Buy this piercing for 2000 ₽ (cash)':
'You buy the piercing.'
cla
money -= 2000
dynamic 'PirsE<>_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 ₽ (card)':
'You buy the piercing.'
cla
karta -= 2000
dynamic 'PirsE<>_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 ₽ (cash)':
cls
minut += 30
money -= 5000
PirsE = i
dynamic 'PirsE<>_owned = 1'
pierWearCount += 1
gs 'pain', 3, 'eyebrows', 'pierce'
''
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 ₽ (card)':
cls
minut += 30
karta -= 5000
PirsE = i
dynamic 'PirsE<>_owned = 1'
pierWearCount += 1
gs 'pain', 3, 'eyebrows', 'pierce'
''
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 '
'
i += 1
if i <= 7:jump 'loopnip_pir'
act 'Return':gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'nip_pir':
*clr
cla
i = ARGS[1]
''
if pirsF > 0:
if dyneval('RESULT = PirsF<>_owned') = 1:
'You already own this piercing.'
act 'Return':gt 'pirsingsalon', 'pirssos'
else
if money >= 6000:
act 'Buy these piercings for 6000 ₽ (cash)':
'You buy the piercings.'
cla
money -= 6000
dynamic 'pirsF<>_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 ₽ (card)':
'You buy the piercings.'
cla
karta -= 6000
dynamic 'pirsF<>_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 ₽ (cash)':
cls
minut += 30
money -= 10000
pirsF = i
dynamic 'pirsF<>_owned = 1'
pierWearCount += 1
gs 'pain', 7, 'nipples', 'pierce'
''
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 ₽ (card)':
cls
minut += 30
karta -= 10000
pirsF = i
dynamic 'pirsF<>_owned = 1'
pierWearCount += 1
gs 'pain', 7, 'nipples', 'pierce'
''
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 '
'
i += 1
if i <= 4:jump 'loopbelly_pir'
act 'Return':gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'belly_pir':
*clr
cla
i = ARGS[1]
''
if pirsN > 0:
if dyneval('RESULT = PirsN<>_owned') = 1:
'You already own this piercing.'
act 'Return':gt 'pirsingsalon', 'pirspyp'
else
if money >= 7000:
act 'Buy this piercing for 7000 ₽ (cash)':
'You buy the piercing.'
cla
money -= 7000
dynamic 'PirsN<>_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 ₽ (card)':
'You buy the piercing.'
cla
karta -= 7000
dynamic 'PirsN<>_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 ₽ (cash)':
cls
minut += 30
money -= 10000
PirsN = i
dynamic 'PirsN<>_owned = 1'
pierWearCount += 1
gs 'pain', 1, 'tummy', 'pierce'
''
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 ₽ (card)':
cls
minut += 30
karta -= 10000
PirsN = i
dynamic 'PirsN<>_owned = 1'
pierWearCount += 1
gs 'pain', 1, 'tummy', 'pierce'
''
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 '
'
i += 1
if i <= 10:jump 'looppubic_pir'
act 'Return':gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'pubic_pir':
*clr
cla
i = ARGS[1]
''
if pirsG > 0:
if dyneval('RESULT = PirsG<>_owned') = 1:
'You already own this piercing.'
act 'Return':gt 'pirsingsalon', 'pirsvla'
else
if money >= 10000:
act 'Buy this piercing for 10,000 ₽ (cash)':
'You buy the piercing.'
cla
money -= 10000
dynamic 'pirsG<>_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 ₽ (card)':
'You buy the piercing.'
cla
karta -= 10000
dynamic 'pirsG<>_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 ₽ (cash)':
cls
minut += 30
money -= 25000
pirsG = i
dynamic 'pirsG<>_owned = 1'
pierWearCount += 1
gs 'pain', 9, 'pubic', 'pierce'
''
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 ₽ (card)':
cls
minut += 30
karta -= 25000
pirsG = i
dynamic 'pirsG<>_owned = 1'
pierWearCount += 1
gs 'pain', 9, 'pubic', 'pierce'
''
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 '
'
n += 1
if n <= 82:jump 'looptatarm'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'arm_get':
*clr
cla
''
if (money < 8000) and (karta + bankDebtLimit < 8000):
'You cannot afford this tattoo.'
else
if money >= 8000:
act 'Get this tattoo 8000 ₽ (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 8000 ₽ (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 '
'
n += 1
if n <= 25:jump 'looptatass'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'ass_get':
*clr
cla
''
if (money < 10000) and (karta + bankDebtLimit < 10000):
'You cannot afford this tattoo.'
else
if money >= 10000:
act 'Get this tattoo 10,000 ₽ (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 ₽ (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 '
'
n += 1
if n <= 61:jump 'looptatback'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'back_get':
*clr
cla
''
if (money < 10000) and (karta + bankDebtLimit < 10000):
'You cannot afford this tattoo.'
else
if money >= 10000:
act 'Get this tattoo 10,000 ₽ (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 ₽ (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 '
'
n += 1
if n <= 21:jump 'looptatbelly'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'belly_get':
*clr
cla
''
if (money < 10000) and (karta + bankDebtLimit < 10000):
'You cannot afford this tattoo.'
else
if money >= 10000:
act 'Get this tattoo 10,000 ₽ (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 ₽ (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 '
'
n += 1
if n <= 11:jump 'looptatbreast'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'breast_get':
*clr
cla
''
if (money < 15000) and (karta + bankDebtLimit < 15000):
'You cannot afford this tattoo.'
else
if money >= 15000:
act 'Get this tattoo 15,000 ₽ (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 ₽ (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 '
'
n += 1
if n <= 15:jump 'looptatchest'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'chest_get':
*clr
cla
''
if (money < 12000) and (karta + bankDebtLimit < 12000):
'You cannot afford this tattoo.'
else
if money >= 12000:
act 'Get this tattoo 12,000 ₽ (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 ₽ (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 '
'
n += 1
if n <= 8:jump 'looptatface'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'face_get':
*clr
cla
''
if (money < 10000) and (karta + bankDebtLimit < 10000):
'You cannot afford this tattoo.'
else
if money >= 10000:
act 'Get this tattoo 10,000 ₽ (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 ₽ (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 '
'
n += 1
if n <= 25:jump 'looptatfoot'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'foot_get':
*clr
cla
''
if (money < 8000) and (karta + bankDebtLimit < 8000):
'You cannot afford this tattoo.'
else
if money >= 8000:
act 'Get this tattoo 8,000 ₽ (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 ₽ (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 '
'
n += 1
if n <= 9:jump 'looptathand'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'hand_get':
*clr
cla
''
if (money < 7000) and (karta + bankDebtLimit < 7000):
'You cannot afford this tattoo.'
else
if money >= 7000:
act 'Get this tattoo 7,000 ₽ (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 ₽ (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 '
'
n += 1
if n <= 47:jump 'looptatleg'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'leg_get':
*clr
cla
''
if (money < 10000) and (karta + bankDebtLimit < 10000):
'You cannot afford this tattoo.'
else
if money >= 10000:
act 'Get this tattoo 10,000 ₽ (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 ₽ (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 '
'
n += 1
if n <= 9:jump 'looptatlip'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'lip_get':
*clr
cla
''
if (money < 5000) and (karta + bankDebtLimit < 5000):
'You cannot afford this tattoo.'
else
if money >= 5000:
act 'Get this tattoo 5,000 ₽ (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 ₽ (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 '
'
n += 1
if n <= 30:jump 'looptatneck'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'neck_get':
*clr
cla
''
if (money < 8000) and (karta + bankDebtLimit < 8000):
'You cannot afford this tattoo.'
else
if money >= 8000:
act 'Get this tattoo 8,000 ₽ (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 ₽ (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 '
'
n += 1
if n <= 53:jump 'looptatvag'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'vag_get':
*clr
cla
''
if (money < 20000) and (karta + bankDebtLimit < 20000):
'You cannot afford this tattoo.'
else
if money >= 20000:
act 'Get this tattoo 20,000 ₽ (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 ₽ (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 '
'
n += 1
if n <= 25:jump 'looptatlech'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'shoulder_get':
*clr
cla
''
if (money < 8000) and (karta + bankDebtLimit < 8000):
'You cannot afford this tattoo.'
else
if money >= 8000:
act 'Get this tattoo 8,000 ₽ (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 ₽ (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 '
'
n += 1
if n <= 23:jump 'looptatside'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'side_get':
*clr
cla
''
if (money < 12000) and (karta + bankDebtLimit < 12000):
'You cannot afford this tattoo.'
else
if money >= 12000:
act 'Get this tattoo 12,000 ₽ (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 ₽ (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 '
'
n += 1
if n <= 32:jump 'looptatupb'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'tramp_get':
*clr
cla
''
if (money < 12000) and (karta + bankDebtLimit < 12000):
'You cannot afford this tattoo.'
else
if money >= 12000:
act 'Get this tattoo 12,000 ₽ (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 ₽ (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 '
'
n += 1
if n <= 22:jump 'looptatunder'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'under_get':
*clr
cla
''
if (money < 12000) and (karta + bankDebtLimit < 12000):
'You cannot afford this tattoo.'
else
if money >= 12000:
act 'Get this tattoo 12,000 ₽ (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 ₽ (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 '
'
n += 1
if n <= 51:jump 'looptatwrist'
*nl
else
'
'
'You already have this tattoo here.'
end
act 'Return': gt 'pirsingsalon', 'start'
end
if $ARGS[0] = 'wrist_get':
*clr
cla
''
if (money < 7000) and (karta + bankDebtLimit < 7000):
'You cannot afford this tattoo.'
else
if money >= 7000:
act 'Get this tattoo 7,000 ₽ (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 ₽ (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 ---------------------------------