# pirsingsalon
if $ARGS[0] = 'start':
gs 'stat'
if night_mode = 1:
fcolor = rgb(255, 255, 255)
bcolor = rgb(0, 0, 0)
lcolor = rgb(106, 90, 205)
else
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
end
'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 'nord'
end
exit
end
act 'Leave':
minut += 5
gs 'pirsingsalon', 'count'
gt 'nord'
end
end
if $ARGS[0] = 'count':
!!Counting the tattoos and piercings just in case
tattCount = 0
if tatarm >= 1:
tattCount += 1
end
if tatass >= 1:
tattCount += 1
end
if tatback >= 1:
tattCount += 1
end
if tatblly >= 1:
tattCount += 1
end
if tatbrst >= 1:
tattCount += 1
end
if tatchst >= 1:
tattCount += 1
end
if tatfce >= 1:
tattCount += 1
end
if tatankle >= 1:
tattCount += 1
end
if tatleg >= 1:
tattCount += 1
end
if tatlip >= 1:
tattCount += 1
end
if tatneck >= 1:
tattCount += 1
end
if tatvag >= 1:
tattCount += 1
end
if tatlech >= 1:
tattCount += 1
end
if tatside >= 1:
tattCount += 1
end
if tatupb >= 1:
tattCount += 1
end
if tatunder >= 1:
tattCount += 1
end
if tatwrist >= 1:
tattCount += 1
end
pierWearCount = 0
if pirsA > 0 and pirsA ! 10000:
pierWearCount += 1
end
if pirsB > 0 and pirsB ! 10000:
pierWearCount += 1
end
if pirsC > 0 and pirsC ! 10000:
pierWearCount += 1
end
if pirsD > 0 and pirsD ! 10000:
pierWearCount += 1
end
if pirsE > 0 and pirsE ! 10000:
pierWearCount += 1
end
if pirsF > 0 and pirsF ! 10000:
pierWearCount += 1
end
if pirsG > 0 and pirsG ! 10000:
pierWearCount += 1
end
if pirsN > 0 and pirsN ! 10000:
pierWearCount += 1
end
end
if $ARGS[0] = 'pirsyaz':
*clr
cla
i = 1
:looptongue_pir
*p '
'
i += 1
if i <= 3: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 ₽':
'You buy this piercing.'
cla
money -= 3000
dynamic 'pirsA<>_owned = 1'
act 'Return':gt 'pirsingsalon', 'pirsyaz'
end
else
'You cannot afford this piercing.'
end
end
elseif money >= 5000:
act 'Get your tongue pierced with this piercing (5000 ₽)':
cls
minut += 30
money -= 5000
pirsA = i
dynamic 'pirsA<>_owned = 1'
pierWearCount += 1
gs 'pain', 7, 'tongue', 'pierce'
'
'
gs 'stat'
'The tattooist disinfected the area, pierced your tongue and inserted your chosen piercing.'
act 'Leave':gt 'pirsingsalon', 'start'
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 <= 1: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 ₽':
'You buy this piercing.'
cla
money -= 4000
dynamic 'pirsB<>_owned = 1'
act 'Return':gt 'pirsingsalon', 'pirsgub'
end
else
'You cannot afford this piercing.'
end
end
elseif money >= 6000:
act 'Get your lip pierced with this piercing (6000 ₽)':
cls
minut += 30
money -= 6000
pirsB = i
dynamic 'pirsB<>_owned = 1'
pierWearCount += 1
gs 'pain', 7, 'lips', 'pierce'
'
'
gs 'stat'
'The tattooist disinfected the area, pierced your lip and inserted your chosen piercing.'
act 'Leave':gt 'pirsingsalon', 'start'
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 <= 15: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 ₽':
'You buy this piercing.'
cla
money -= 1000
dynamic 'pirsC<>_owned = 1'
act 'Return':gt 'pirsingsalon', 'pirsysh'
end
else
'You cannot afford these earrings.'
end
end
elseif money >= 3000:
act 'Get your ears pierced with this piercing (3000 ₽)':
cls
minut += 30
money -= 3000
pirsC = i
dynamic 'pirsC<>_owned = 1'
pierWearCount += 1
gs 'pain', 7, 'ears', 'pierce'
''
gs 'stat'
'The tattooist disinfected the area, pierced your ears and inserted your chosen earrings.'
act 'Leave':gt 'pirsingsalon', 'start'
end
else
'You cannot afford to get your ears pierced with these 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 ₽':
'You buy this piercing.'
cla
money -= 2000
dynamic 'pirsD<>_owned = 1'
act 'Return':gt 'pirsingsalon', 'pirsnos'
end
else
'You cannot afford this piercing.'
end
end
elseif money >= 5000:
act 'Get your nose pierced with this piercing (5000 ₽)':
cls
minut += 30
money -= 5000
pirsD = i
dynamic 'pirsD<>_owned = 1'
pierWearCount += 1
gs 'pain', 7, 'nose', 'pierce'
''
gs 'stat'
'The tattooist disinfected the area, pierced your nose and inserted your chosen piercing.'
act 'Leave':gt 'pirsingsalon', 'start'
end
else
'You cannot afford to get your nose 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 ₽':
'You buy this piercing.'
cla
money -= 2000
dynamic 'PirsE<>_owned = 1'
act 'Return':gt 'pirsingsalon', 'pirsbro'
end
else
'You cannot afford this piercing.'
end
end
elseif money >= 5000:
act 'Get your brow pierced with this piercing (5000 ₽)':
cls
minut += 30
money -= 5000
pirsE = i
dynamic 'pirsE<>_owned = 1'
pierWearCount += 1
gs 'pain', 7, 'eyebrows', 'pierce'
''
gs 'stat'
'The tattooist disinfected the area, pierced your brow and inserted your chosen piercing.'
act 'Leave':gt 'pirsingsalon', 'start'
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 <= 2: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 this piercing for 6000 ₽':
'You buy this piercing.'
cla
money -= 6000
dynamic 'PirsF<>_owned = 1'
act 'Return':gt 'pirsingsalon', 'pirssos'
end
else
'You cannot afford this piercing.'
end
end
elseif money >= 10000:
act 'Get your nipples pierced with this piercing (10000 ₽)':
cls
minut += 30
money -= 10000
pirsF = i
dynamic 'pirsF<>_owned = 1'
pierWearCount += 1
gs 'pain', 7, 'nipples', 'pierce'
''
gs 'stat'
'The tattooist disinfected the area, pierced your nipples and inserted your chosen piercing.'
act 'Leave':gt 'pirsingsalon', 'start'
end
else
'You cannot afford to get your nipples pierced with this piercing.'
end
act 'Return':gt 'pirsingsalon', 'pirssos'
end
if $ARGS[0] = 'pirspyp':
*clr
cla
i = 1
:loopbelly_pir
*p '
'
i += 1
if i <= 1: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 ₽':
'You buy this piercing.'
cla
money -= 7000
dynamic 'PirsN<>_owned = 1'
act 'Return':gt 'pirsingsalon', 'pirspyp'
end
else
'You cannot afford this piercing.'
end
end
elseif money >= 10000:
act 'Get your belly button pierced with this piercing (10000 ₽)':
cls
minut += 30
money -= 10000
pirsN = i
dynamic 'pirsN<>_owned = 1'
pierWearCount += 1
gs 'pain', 7, 'tummy', 'pierce'
''
gs 'stat'
'The tattooist disinfected the area, pierced your belly button and inserted your chosen piercing.'
act 'Leave':gt 'pirsingsalon', 'start'
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 <= 4: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 10000 ₽':
cla
'You buy this piercing.'
money -= 10000
dynamic 'PirsG<>_owned = 1'
act 'Return':gt 'pirsingsalon', 'pirsvla'
end
else
'You cannot afford this piercing.'
end
end
elseif money >= 25000:
act 'Get your pussy pierced with this piercing (25000 ₽)':
cls
minut += 30
money -= 25000
pirsG = i
dynamic 'pirsG<>_owned = 1'
pierWearCount += 1
gs 'pain', 7, 'pubic', 'pierce'
''
gs 'stat'
'The tattooist disinfected the area, pierced your pussy and inserted your chosen piercing.'
act 'Leave':gt 'pirsingsalon', 'start'
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 <= 69: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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatarm = n
money -= 8000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
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 <= 23: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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatass = n
money -= 10000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
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 <= 41: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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatback = n
money -= 10000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
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 <= 20: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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatblly = n
money -= 10000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
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 <= 9: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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatbrst = n
money -= 15000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
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 <= 10: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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatchst = n
money -= 12000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
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 <= 6: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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatfce = n
money -= 10000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
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 <= 19: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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatankle = n
money -= 8000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
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 <= 30: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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatleg = n
money -= 10000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatlip = n
money -= 5000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
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 <= 20: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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatneck = n
money -= 8000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
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 <= 41: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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatvag = n
money -= 20000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
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 <= 24: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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatlech = n
money -= 8000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
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 <= 13: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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatside = n
money -= 12000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
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 <= 30: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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatupb = n
money -= 12000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
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 <= 10: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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatunder = n
money -= 12000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
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 <= 43: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:
'You cannot afford this tattoo.'
else
act 'Get this tattoo':
cla
tatwrist = n
money -= 7000
minut += 60
gs 'stat'
act 'Return': gt 'pirsingsalon', 'start'
end
end
act 'Return': gt 'pirsingsalon', 'start'
end
--- pirsingsalon ---------------------------------