# 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
}
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'
--- pirsingsalon ---------------------------------