# pirsingsalon
<<<<<<< 380_pirsingsalon
$pirsyaz = {
cls
minut += 30
money -= 5000
pirsA = 1
gs 'stat'
'
'
'Master pierced tongue and put you back post.'
act 'Leave': gt $curloc
}
$pirsyazout = {
cls
minut += 30
money -= 5000
pirsA = 0
gs 'stat'
''
'Master took the post of your tongue.'
act 'Leave': gt $curloc
}
$pirsgub = {
cls
minut += 30
money -= 6000
pirsB = 1
gs 'stat'
'
'
'Master your lip pierced and put a ring there.'
act 'Leave': gt $curloc
}
$pirsgubout = {
cls
minut += 30
money -= 6000
pirsB = 0
gs 'stat'
''
'Master took the ring out of your lips.'
act 'Leave': gt $curloc
}
$pirsysh = {
cls
minut += 30
money -= 3000
pirsC = 1
gs 'stat'
'Master your ears pierced and put back earrings.'
act 'Leave': gt $curloc
}
$pirsyshout = {
cls
minut += 30
money -= 3000
pirsC = 0
gs 'stat'
'Master took earrings from your ears.'
act 'Leave': gt $curloc
}
$pirsnos = {
cls
minut += 30
money -= 5000
pirsD = 1
gs 'stat'
'Master your nose pierced and put the ring back.'
act 'Leave': gt $curloc
}
$pirsnosout = {
cls
minut += 30
money -= 5000
pirsD = 0
gs 'stat'
'Master took the ring out of your nose.'
act 'Leave': gt $curloc
}
$pirsbro = {
cls
minut += 30
money -= 5000
pirsE = 1
gs 'stat'
'Master pierced eyebrow and put you back post.'
act 'Leave': gt $curloc
}
$pirsbroout = {
cls
minut += 30
money -= 5000
pirsE = 0
gs 'stat'
'Master took the post of your eyebrows.'
act 'Leave': gt $curloc
}
$pirssos = {
cls
minut += 30
money -= 10000
pirsF = 1
gs 'stat'
'Master pierced nipples and you put there rings.'
act 'Leave': gt $curloc
}
$pirssosout = {
cls
minut += 30
money -= 10000
pirsF = 0
gs 'stat'
'Master took out of your nipple rings.'
act 'Leave': gt $curloc
}
$pirsvla = {
cls
minut += 30
money -= 25000
pirsG = 1
gs 'stat'
'Master you pierced labia and vagina put there post.'
act 'Leave': gt $curloc
}
$pirsvlaout = {
cls
minut += 30
money -= 25000
pirsG = 0
gs 'stat'
'Master took the post of your labia.'
act 'Leave': gt $curloc
}
$pirspyp = {
cls
minut += 30
money -= 10000
pirsN = 1
gs 'stat'
'Master pierced navel and put you back post.'
act 'Leave': gt $curloc
}
$pirspypout = {
cls
minut += 30
money -= 10000
pirsN = 0
gs 'stat'
'Master took the post from your navel.'
act 'Leave': gt $curloc
=======
$pirsyaz={
cls
minut+=30
money-=5000
pirsA = 1
pirs_pain_ton=7
gs'stat'
'
'
'Sitting on the chair you are stuck out his tongue, Master pierced tongue and put you back post.'
act 'Get_Away':gt $curloc
}
$pirsyazout={
cls
minut+=30
money-=5000
pirsA = 0
gs'stat'
''
'Master took the rod from your language.'
act 'Get_Away':gt $curloc
}
$pirsgub={
cls
minut+=30
money-=6000
pirsB = 1
gs'stat'
'
'
'Master pierced lip and you put the ring back.'
act 'Get_Away':gt $curloc
}
$pirsgubout={
cls
minut+=30
money-=6000
pirsB = 0
gs'stat'
''
'Master took the ring out of your mouth.'
act 'Get_Away':gt $curloc
}
$pirsysh={
cls
minut+=30
money-=3000
pirsC = 1
gs'stat'
'Master pierced your ears and put back earrings.'
act 'Get_Away':gt $curloc
}
$pirsyshout={
cls
minut+=30
money-=3000
pirsC = 0
gs'stat'
'Master took the earrings from your ears.'
act 'Get_Away':gt $curloc
}
$pirsnos={
cls
minut+=30
money-=5000
pirsD = 1
gs'stat'
'Master pierced your nose and put the ring back.'
act 'Get_Away':gt $curloc
}
$pirsnosout={
cls
minut+=30
money-=5000
pirsD = 0
gs'stat'
'Master took the ring out of your nose.'
act 'Get_Away':gt $curloc
}
$pirsbro={
cls
minut+=30
money-=5000
pirsE = 1
gs'stat'
'Master pierced eyebrow and put you back post.'
act 'Get_Away':gt $curloc
}
$pirsbroout={
cls
minut+=30
money-=5000
pirsE = 0
gs'stat'
'Master took the rod from your eyebrows.'
act 'Get_Away':gt $curloc
}
$pirssos={
cls
minut+=30
money-=10000
pirsF = 1
nippain=2
nippainday=daystart
gs'stat'
'Master pierced nipples and put you back rings.'
act 'Get_Away':gt $curloc
}
$pirssosout={
cls
minut+=30
money-=10000
pirsF = 0
gs'stat'
'Master took the rings from your nipples.'
act 'Get_Away':gt $curloc
}
$pirsvla={
cls
minut+=30
money-=25000
pirsG = 1
painpub=2
painpubday=daystart
gs'stat'
'Master your pierced labia vagina and inserted back post.'
act 'Get_Away':gt $curloc
}
$pirsvlaout={
cls
minut+=30
money-=25000
pirsG = 0
gs'stat'
'Master took the post of your labia.'
act 'Get_Away':gt $curloc
}
$pirspyp={
cls
minut+=30
money-=10000
pirsN = 1
gs'stat'
'Master pierced navel and put you back post.'
act 'Get_Away':gt $curloc
}
$pirspypout={
cls
minut+=30
money-=10000
pirsN = 0
gs'stat'
'Master took the rod from your navel.'
act 'Get_Away':gt $curloc
>>>>>>> 380_pirsingsalon
}
<<<<<<< 380_pirsingsalon
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'Piercing Salon'
'
'
'Small cabin where the master of a loner.'
if hour >= 12 and hour < 20 and pirsA = 0 and money >= 5000: 'Make a tongue piercing 5000 rub..'
if hour >= 12 and hour < 20 and pirsA = 1 and money >= 5000: 'Remove tongue piercing 5000 rub..'
if hour >= 12 and hour < 20 and pirsB = 0 and money >= 6000: 'Make a lip piercing 6000 rub..'
if hour >= 12 and hour < 20 and pirsB = 1 and money >= 6000: 'Remove Lippenpiercing 6000 rub..'
if hour >= 12 and hour < 20 and pirsC = 0 and money >= 3000: 'Make piercings 3000 rub..'
if hour >= 12 and hour < 20 and pirsC = 1 and money >= 3000: 'Remove piercings 3000 rub..'
if hour >= 12 and hour < 20 and pirsD = 0 and money >= 5000: 'Make a nose piercing 5000 rub..'
if hour >= 12 and hour < 20 and pirsD = 1 and money >= 5000: 'Remove nose piercing 5000 rub..'
if hour >= 12 and hour < 20 and pirsE = 0 and money >= 5000: 'Make an eyebrow piercing 5000 rub..'
if hour >= 12 and hour < 20 and pirsE = 1 and money >= 5000: 'Remove eyebrow piercing 5000 rub..'
if hour >= 12 and hour < 20 and pirsF = 0 and money >= 10000: 'Make a nipple piercing 10,000 rubles..'
if hour >= 12 and hour < 20 and pirsF = 1 and money >= 10000: 'Remove nipple piercings 10,000 rubles..'
if hour >= 12 and hour < 20 and pirsG = 0 and money >= 25000: 'Make a vagina piercing 25,000 rubles..'
if hour >= 12 and hour < 20 and pirsG = 1 and money >= 25000: 'Remove the vagina piercing 25,000 rubles..'
if hour >= 12 and hour < 20 and pirsN = 0 and money >= 10000: 'Make a navel piercing 10,000 rubles..'
if hour >= 12 and hour < 20 and pirsN = 1 and money >= 10000: 'Remove navel piercings 10,000 rubles..'
act 'Leave': gt 'nord'
=======
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'piercing parlor'
'
'
'Small salon where he works a single master.'
if hour>=12 and hour<20 and pirsA = 0 and money>=5000:'Make a tongue piercing 5000 RUB..'
if hour>=12 and hour<20 and pirsA = 1 and money>=5000:'Remove tongue piercing 5000 RUB..'
if hour>=12 and hour<20 and pirsB = 0 and money>=6000:'Make a lip piercing 6000 RUB..'
if hour>=12 and hour<20 and pirsB = 1 and money>=6000:'Remove lip piercing 6000 RUB..'
if hour>=12 and hour<20 and pirsC = 0 and money>=3000:'Get pierced ears 3000 RUB..'
if hour>=12 and hour<20 and pirsC = 1 and money>=3000:'Remove pierced ears 3000 RUB..'
if hour>=12 and hour<20 and pirsD = 0 and money>=5000:'Make a nose piercing 5000 RUB..'
if hour>=12 and hour<20 and pirsD = 1 and money>=5000:'Remove nose piercing 5000 RUB..'
if hour>=12 and hour<20 and pirsE = 0 and money>=5000:'Make eyebrow piercing 5000 RUB..'
if hour>=12 and hour<20 and pirsE = 1 and money>=5000:'Remove eyebrow piercing 5000 RUB..'
if hour>=12 and hour<20 and pirsF = 0 and money>=10000:'Get pierced nipples 10000 RUB..'
if hour>=12 and hour<20 and pirsF = 1 and money>=10000:'Remove nipple piercings 10000 RUB..'
if hour>=12 and hour<20 and pirsG = 0 and money>=25000:'Get pierced vagina 25000 RUB..'
if hour>=12 and hour<20 and pirsG = 1 and money>=25000:'Remove piercing vagina 25000 RUB..'
if hour>=12 and hour<20 and pirsN = 0 and money>=10000:'Make a navel piercing 10000 RUB..'
if hour>=12 and hour<20 and pirsN = 1 and money>=10000:'Remove navel piercing 10000 RUB..'
act 'Get_Away':gt'nord'
>>>>>>> 380_pirsingsalon
--- pirsingsalon ---------------------------------