# 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.' '
' *p '' *p '' *p '' *p '' *p '' *p '' *p '' *p '' *p '
View tattoosView tattoosView piercings
Arm - 8000 Lip - 5000 Tongue - 5000
Ass - 10000 Neck - 8000 Lip - 6000
Back - 10000 Pubic - 20000 Ear - 3000
Belly - 10000 Shoulder - 8000 Nose - 5000
Breasts - 15000 Side - 12000 Eyebrow - 5000
Chest - 12000 Tramp stamp - 12000 Nipple - 10000
Face - 10000 Under breast - 12000 Navel - 10000
Foot - 8000 Wrist - 7000 Pussy - 25000
Legs - 10000 Hand - 7000
' 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 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 ': '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 <= 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 ': '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 <= 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 ': '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 <= 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 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 <= 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 ': '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 <= 7: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 <= 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: 'You cannot afford this tattoo.' else act 'Get this tattoo (8000 )': 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 <= 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: 'You cannot afford this tattoo.' else act 'Get this tattoo (10000 )': 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 <= 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: 'You cannot afford this tattoo.' else act 'Get this tattoo (10000 )': 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 <= 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: 'You cannot afford this tattoo.' else act 'Get this tattoo (10000 )': 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 <= 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: 'You cannot afford this tattoo.' else act 'Get this tattoo (15000 )': 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 <= 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: 'You cannot afford this tattoo.' else act 'Get this tattoo (12000 )': 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 <= 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: 'You cannot afford this tattoo.' else act 'Get this tattoo (10000 )': 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 <= 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: 'You cannot afford this tattoo.' else act 'Get this tattoo (8000 )': 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 <= 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: 'You cannot afford this tattoo.' else act 'Get this tattoo (10000 )': 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 (5000 )': 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 <= 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: 'You cannot afford this tattoo.' else act 'Get this tattoo (8000 )': 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 <= 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: 'You cannot afford this tattoo.' else act 'Get this tattoo (20000 )': 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 <= 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: 'You cannot afford this tattoo.' else act 'Get this tattoo (8000 )': 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 <= 19: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 (12000 )': 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 <= 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: 'You cannot afford this tattoo.' else act 'Get this tattoo (12000 )': 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 <= 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: 'You cannot afford this tattoo.' else act 'Get this tattoo (12000 )': 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 <= 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: 'You cannot afford this tattoo.' else act 'Get this tattoo (7000 )': cla tatwrist = n money -= 7000 minut += 60 gs 'stat' act 'Return': gt 'pirsingsalon', 'start' 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: 'You cannot afford this tattoo.' else act 'Get this tattoo (7000 )': cla tathand = n money -= 7000 minut += 60 gs 'stat' act 'Return': gt 'pirsingsalon', 'start' end end act 'Return': gt 'pirsingsalon', 'start' end --- pirsingsalon ---------------------------------