|
@@ -98,7 +98,7 @@ if $ARGS[0] = 'pirsyaz':
|
|
|
|
|
|
i = 1
|
|
|
:looptongue_pir
|
|
|
- *p '<a href="exec:gt ''pirsingsalon'', ''tongue_pir'', <<i>>"><img src="images/pc/body/piercings/a<<i>>.jpg" height="250" /></a>'
|
|
|
+ if dyneval('RESULT = PirsA<<i>>_owned') = 0:*p '<a href="exec:gt ''pirsingsalon'', ''tongue_pir'', <<i>>"><img src="images/pc/body/piercings/a<<i>>.jpg" height="250" /></a>'
|
|
|
i += 1
|
|
|
if i <= 4:jump 'looptongue_pir'
|
|
|
|
|
@@ -122,7 +122,8 @@ if $ARGS[0] = 'tongue_pir':
|
|
|
cla
|
|
|
money -= 3000
|
|
|
dynamic 'pirsA<<i>>_owned = 1'
|
|
|
- act 'Return':gt 'pirsingsalon', 'pirsyaz'
|
|
|
+ gs 'stat'
|
|
|
+ gt 'pirsingsalon', 'pirsyaz'
|
|
|
end
|
|
|
else
|
|
|
'You don''t have enough cash for this piercing.'
|
|
@@ -133,7 +134,8 @@ if $ARGS[0] = 'tongue_pir':
|
|
|
cla
|
|
|
karta -= 3000
|
|
|
dynamic 'pirsA<<i>>_owned = 1'
|
|
|
- act 'Return':gt 'pirsingsalon', 'pirsyaz'
|
|
|
+ gs 'stat'
|
|
|
+ gt 'pirsingsalon', 'pirsyaz'
|
|
|
end
|
|
|
else
|
|
|
'You don''t have enough money in your bank for this piercing.'
|
|
@@ -153,7 +155,7 @@ if $ARGS[0] = 'tongue_pir':
|
|
|
gs 'stat'
|
|
|
'The tattooist disinfects the area, pierces your tongue and inserts your chosen piercing.'
|
|
|
|
|
|
- act 'Leave':gt 'pirsingsalon', 'start'
|
|
|
+ act 'Leave':gt 'pirsingsalon', 'pirsyaz'
|
|
|
end
|
|
|
end
|
|
|
if karta + bankDebtLimit >= 5000:
|
|
@@ -169,7 +171,7 @@ if $ARGS[0] = 'tongue_pir':
|
|
|
gs 'stat'
|
|
|
'The tattooist disinfects the area, pierces your tongue and inserts your chosen piercing.'
|
|
|
|
|
|
- act 'Leave':gt 'pirsingsalon', 'start'
|
|
|
+ act 'Leave':gt 'pirsingsalon', 'pirsyaz'
|
|
|
end
|
|
|
end
|
|
|
else
|
|
@@ -185,7 +187,7 @@ if $ARGS[0] = 'pirsgub':
|
|
|
|
|
|
i = 1
|
|
|
:looplip_pir
|
|
|
- *p '<a href="exec:gt ''pirsingsalon'', ''lip_pir'', <<i>>"><img src="images/pc/body/piercings/b<<i>>.jpg" height="250" /></a>'
|
|
|
+ if dyneval('RESULT = PirsB<<i>>_owned') = 0: *p '<a href="exec:gt ''pirsingsalon'', ''lip_pir'', <<i>>"><img src="images/pc/body/piercings/b<<i>>.jpg" height="250" /></a>'
|
|
|
i += 1
|
|
|
if i <= 7:jump 'looplip_pir'
|
|
|
|
|
@@ -209,7 +211,8 @@ if $ARGS[0] = 'lip_pir':
|
|
|
cla
|
|
|
money -= 4000
|
|
|
dynamic 'pirsB<<i>>_owned = 1'
|
|
|
- act 'Return':gt 'pirsingsalon', 'pirsgub'
|
|
|
+ gs 'stat'
|
|
|
+ gt 'pirsingsalon', 'pirsgub'
|
|
|
end
|
|
|
else
|
|
|
'You don''t have enough cash for this piercing.'
|
|
@@ -220,7 +223,8 @@ if $ARGS[0] = 'lip_pir':
|
|
|
cla
|
|
|
karta -= 4000
|
|
|
dynamic 'pirsB<<i>>_owned = 1'
|
|
|
- act 'Return':gt 'pirsingsalon', 'pirsgub'
|
|
|
+ gs 'stat'
|
|
|
+ gt 'pirsingsalon', 'pirsgub'
|
|
|
end
|
|
|
else
|
|
|
'You don''t have enough money in your bank for this piercing.'
|
|
@@ -240,7 +244,7 @@ if $ARGS[0] = 'lip_pir':
|
|
|
gs 'stat'
|
|
|
'The tattooist disinfects the area, pierces your lip and inserts your chosen piercing.'
|
|
|
|
|
|
- act 'Leave':gt 'pirsingsalon', 'start'
|
|
|
+ act 'Leave':gt 'pirsingsalon', 'pirsgub'
|
|
|
end
|
|
|
end
|
|
|
if karta + bankDebtLimit >= 6000:
|
|
@@ -256,7 +260,7 @@ if $ARGS[0] = 'lip_pir':
|
|
|
gs 'stat'
|
|
|
'The tattooist disinfects the area, pierces your lip and inserts your chosen piercing.'
|
|
|
|
|
|
- act 'Leave':gt 'pirsingsalon', 'start'
|
|
|
+ act 'Leave':gt 'pirsingsalon', 'pirsgub'
|
|
|
end
|
|
|
end
|
|
|
else
|
|
@@ -272,7 +276,7 @@ if $ARGS[0] = 'pirsysh':
|
|
|
|
|
|
i = 1
|
|
|
:loopears_pir
|
|
|
- *p '<a href="exec:gt ''pirsingsalon'', ''ears_pir'', <<i>>"><img src="images/pc/body/piercings/c<<i>>.jpg" height="250" /></a>'
|
|
|
+ if dyneval('RESULT = PirsC<<i>>_owned') = 0: *p '<a href="exec:gt ''pirsingsalon'', ''ears_pir'', <<i>>"><img src="images/pc/body/piercings/c<<i>>.jpg" height="250" /></a>'
|
|
|
i += 1
|
|
|
if i <= 24:jump 'loopears_pir'
|
|
|
|
|
@@ -296,7 +300,8 @@ if $ARGS[0] = 'ears_pir':
|
|
|
cla
|
|
|
money -= 1000
|
|
|
dynamic 'pirsC<<i>>_owned = 1'
|
|
|
- act 'Return':gt 'pirsingsalon', 'pirsysh'
|
|
|
+ gs 'stat'
|
|
|
+ gt 'pirsingsalon', 'pirsysh'
|
|
|
end
|
|
|
else
|
|
|
'You don''t have enough cash for these earrings.'
|
|
@@ -307,7 +312,8 @@ if $ARGS[0] = 'ears_pir':
|
|
|
cla
|
|
|
karta -= 1000
|
|
|
dynamic 'pirsC<<i>>_owned = 1'
|
|
|
- act 'Return':gt 'pirsingsalon', 'pirsysh'
|
|
|
+ gs 'stat'
|
|
|
+ gt 'pirsingsalon', 'pirsysh'
|
|
|
end
|
|
|
else
|
|
|
'You don''t have enough money in your bank for these earrings.'
|
|
@@ -327,7 +333,7 @@ if $ARGS[0] = 'ears_pir':
|
|
|
gs 'stat'
|
|
|
'The tattooist disinfects the area, pierces your ears and inserts your chosen earrings.'
|
|
|
|
|
|
- act 'Leave':gt 'pirsingsalon', 'start'
|
|
|
+ act 'Leave':gt 'pirsingsalon', 'pirsysh'
|
|
|
end
|
|
|
end
|
|
|
if karta + bankDebtLimit >= 3000:
|
|
@@ -343,7 +349,7 @@ if $ARGS[0] = 'ears_pir':
|
|
|
gs 'stat'
|
|
|
'The tattooist disinfects the area, pierces your ears and inserts your chosen earrings.'
|
|
|
|
|
|
- act 'Leave':gt 'pirsingsalon', 'start'
|
|
|
+ act 'Leave':gt 'pirsingsalon', 'pirsysh'
|
|
|
end
|
|
|
end
|
|
|
else
|
|
@@ -359,7 +365,7 @@ if $ARGS[0] = 'pirsnos':
|
|
|
|
|
|
i = 1
|
|
|
:loopnose_pir
|
|
|
- *p '<a href="exec:gt ''pirsingsalon'', ''nose_pir'', <<i>>"><img src="images/pc/body/piercings/d<<i>>.jpg" height="250" /></a>'
|
|
|
+ if dyneval('RESULT = PirsD<<i>>_owned') = 0: *p '<a href="exec:gt ''pirsingsalon'', ''nose_pir'', <<i>>"><img src="images/pc/body/piercings/d<<i>>.jpg" height="250" /></a>'
|
|
|
i += 1
|
|
|
if i <= 7:jump 'loopnose_pir'
|
|
|
|
|
@@ -383,7 +389,8 @@ if $ARGS[0] = 'nose_pir':
|
|
|
cla
|
|
|
money -= 2000
|
|
|
dynamic 'pirsD<<i>>_owned = 1'
|
|
|
- act 'Return':gt 'pirsingsalon', 'pirsnos'
|
|
|
+ gs 'stat'
|
|
|
+ gt 'pirsingsalon', 'pirsnos'
|
|
|
end
|
|
|
else
|
|
|
'You don''t have enough cash for this piercing.'
|
|
@@ -394,7 +401,8 @@ if $ARGS[0] = 'nose_pir':
|
|
|
cla
|
|
|
karta -= 2000
|
|
|
dynamic 'pirsD<<i>>_owned = 1'
|
|
|
- act 'Return':gt 'pirsingsalon', 'pirsnos'
|
|
|
+ gs 'stat'
|
|
|
+ gt 'pirsingsalon', 'pirsnos'
|
|
|
end
|
|
|
else
|
|
|
'You don''t have enough money in your bank for this piercing.'
|
|
@@ -414,7 +422,7 @@ if $ARGS[0] = 'nose_pir':
|
|
|
gs 'stat'
|
|
|
'The tattooist disinfects the area, pierces your nose and inserts your chosen piercing.'
|
|
|
|
|
|
- act 'Leave':gt 'pirsingsalon', 'start'
|
|
|
+ act 'Leave':gt 'pirsingsalon', 'pirsnos'
|
|
|
end
|
|
|
end
|
|
|
if karta + bankDebtLimit >= 5000:
|
|
@@ -430,7 +438,7 @@ if $ARGS[0] = 'nose_pir':
|
|
|
gs 'stat'
|
|
|
'The tattooist disinfects the area, pierces your nose and inserts your chosen piercing.'
|
|
|
|
|
|
- act 'Leave':gt 'pirsingsalon', 'start'
|
|
|
+ act 'Leave':gt 'pirsingsalon', 'pirsnos'
|
|
|
end
|
|
|
end
|
|
|
else
|
|
@@ -446,7 +454,7 @@ if $ARGS[0] = 'pirsbro':
|
|
|
|
|
|
i = 1
|
|
|
:loopbrow_pir
|
|
|
- *p '<a href="exec:gt ''pirsingsalon'', ''brow_pir'', <<i>>"><img src="images/pc/body/piercings/e<<i>>.jpg" height="250" /></a>'
|
|
|
+ if dyneval('RESULT = PirsE<<i>>_owned') = 0: *p '<a href="exec:gt ''pirsingsalon'', ''brow_pir'', <<i>>"><img src="images/pc/body/piercings/e<<i>>.jpg" height="250" /></a>'
|
|
|
i += 1
|
|
|
if i <= 2:jump 'loopbrow_pir'
|
|
|
|
|
@@ -470,7 +478,8 @@ if $ARGS[0] = 'brow_pir':
|
|
|
cla
|
|
|
money -= 2000
|
|
|
dynamic 'PirsE<<i>>_owned = 1'
|
|
|
- act 'Return':gt 'pirsingsalon', 'pirsbro'
|
|
|
+ gs 'stat'
|
|
|
+ gt 'pirsingsalon', 'pirsbro'
|
|
|
end
|
|
|
else
|
|
|
'You don''t have enough cash for this piercing.'
|
|
@@ -481,7 +490,8 @@ if $ARGS[0] = 'brow_pir':
|
|
|
cla
|
|
|
karta -= 2000
|
|
|
dynamic 'PirsE<<i>>_owned = 1'
|
|
|
- act 'Return':gt 'pirsingsalon', 'pirsbro'
|
|
|
+ gs 'stat'
|
|
|
+ gt 'pirsingsalon', 'pirsbro'
|
|
|
end
|
|
|
else
|
|
|
'You don''t have enough money in your bank for this piercing.'
|
|
@@ -501,7 +511,7 @@ if $ARGS[0] = 'brow_pir':
|
|
|
gs 'stat'
|
|
|
'The tattooist disinfects the area, pierces your brow and inserts your chosen piercing.'
|
|
|
|
|
|
- act 'Leave':gt 'pirsingsalon', 'start'
|
|
|
+ act 'Leave':gt 'pirsingsalon', 'pirsbro'
|
|
|
end
|
|
|
end
|
|
|
if karta + bankDebtLimit >= 5000:
|
|
@@ -517,7 +527,7 @@ if $ARGS[0] = 'brow_pir':
|
|
|
gs 'stat'
|
|
|
'The tattooist disinfects the area, pierces your brow and inserts your chosen piercing.'
|
|
|
|
|
|
- act 'Leave':gt 'pirsingsalon', 'start'
|
|
|
+ act 'Leave':gt 'pirsingsalon', 'pirsbro'
|
|
|
end
|
|
|
end
|
|
|
else
|
|
@@ -533,7 +543,7 @@ if $ARGS[0] = 'pirssos':
|
|
|
|
|
|
i = 1
|
|
|
:loopnip_pir
|
|
|
- *p '<a href="exec:gt ''pirsingsalon'', ''nip_pir'', <<i>>"><img src="images/pc/body/piercings/f<<i>>.jpg" height="250" /></a>'
|
|
|
+ if dyneval('RESULT = PirsF<<i>>_owned') = 0: *p '<a href="exec:gt ''pirsingsalon'', ''nip_pir'', <<i>>"><img src="images/pc/body/piercings/f<<i>>.jpg" height="250" /></a>'
|
|
|
i += 1
|
|
|
if i <= 7:jump 'loopnip_pir'
|
|
|
|
|
@@ -557,7 +567,8 @@ if $ARGS[0] = 'nip_pir':
|
|
|
cla
|
|
|
money -= 6000
|
|
|
dynamic 'pirsF<<i>>_owned = 1'
|
|
|
- act 'Return':gt 'pirsingsalon', 'pirssos'
|
|
|
+ gs 'stat'
|
|
|
+ gt 'pirsingsalon', 'pirssos'
|
|
|
end
|
|
|
else
|
|
|
'You don''t have enough cash for these piercings.'
|
|
@@ -568,7 +579,8 @@ if $ARGS[0] = 'nip_pir':
|
|
|
cla
|
|
|
karta -= 6000
|
|
|
dynamic 'pirsF<<i>>_owned = 1'
|
|
|
- act 'Return':gt 'pirsingsalon', 'pirssos'
|
|
|
+ gs 'stat'
|
|
|
+ gt 'pirsingsalon', 'pirssos'
|
|
|
end
|
|
|
else
|
|
|
'You don''t have enough money in your bank for this piercing.'
|
|
@@ -588,7 +600,7 @@ if $ARGS[0] = 'nip_pir':
|
|
|
gs 'stat'
|
|
|
'The tattooist disinfects the area, pierces your nipples and inserts your chosen piercings.'
|
|
|
|
|
|
- act 'Leave':gt 'pirsingsalon', 'start'
|
|
|
+ act 'Leave':gt 'pirsingsalon', 'pirssos'
|
|
|
end
|
|
|
end
|
|
|
if karta + bankDebtLimit >= 10000:
|
|
@@ -604,7 +616,7 @@ if $ARGS[0] = 'nip_pir':
|
|
|
gs 'stat'
|
|
|
'The tattooist disinfects the area, pierces your nipples and inserts your chosen piercings.'
|
|
|
|
|
|
- act 'Leave':gt 'pirsingsalon', 'start'
|
|
|
+ act 'Leave':gt 'pirsingsalon', 'pirssos'
|
|
|
end
|
|
|
end
|
|
|
else
|
|
@@ -620,7 +632,7 @@ if $ARGS[0] = 'pirspyp':
|
|
|
|
|
|
i = 1
|
|
|
:loopbelly_pir
|
|
|
- *p '<a href="exec:gt ''pirsingsalon'', ''belly_pir'', <<i>>"><img src="images/pc/body/piercings/n<<i>>.jpg" height="250" /></a>'
|
|
|
+ if dyneval('RESULT = PirsN<<i>>_owned') = 0: *p '<a href="exec:gt ''pirsingsalon'', ''belly_pir'', <<i>>"><img src="images/pc/body/piercings/n<<i>>.jpg" height="250" /></a>'
|
|
|
i += 1
|
|
|
if i <= 4:jump 'loopbelly_pir'
|
|
|
|
|
@@ -644,7 +656,8 @@ if $ARGS[0] = 'belly_pir':
|
|
|
cla
|
|
|
money -= 7000
|
|
|
dynamic 'PirsN<<i>>_owned = 1'
|
|
|
- act 'Return':gt 'pirsingsalon', 'pirspyp'
|
|
|
+ gs 'stat'
|
|
|
+ gt 'pirsingsalon', 'pirspyp'
|
|
|
end
|
|
|
else
|
|
|
'You don''t have enough cash for this piercing.'
|
|
@@ -655,7 +668,8 @@ if $ARGS[0] = 'belly_pir':
|
|
|
cla
|
|
|
karta -= 7000
|
|
|
dynamic 'PirsN<<i>>_owned = 1'
|
|
|
- act 'Return':gt 'pirsingsalon', 'pirspyp'
|
|
|
+ gs 'stat'
|
|
|
+ gt 'pirsingsalon', 'pirspyp'
|
|
|
end
|
|
|
else
|
|
|
'You don''t have enough money in your bank for this piercing.'
|
|
@@ -675,7 +689,7 @@ if $ARGS[0] = 'belly_pir':
|
|
|
gs 'stat'
|
|
|
'The tattooist disinfects the area, pierces your belly button and inserts your chosen piercing.'
|
|
|
|
|
|
- act 'Leave':gt 'pirsingsalon', 'start'
|
|
|
+ act 'Leave':gt 'pirsingsalon', 'pirspyp'
|
|
|
end
|
|
|
end
|
|
|
if karta + bankDebtLimit >= 10000:
|
|
@@ -691,7 +705,7 @@ if $ARGS[0] = 'belly_pir':
|
|
|
gs 'stat'
|
|
|
'The tattooist disinfects the area, pierces your belly button and inserts your chosen piercing.'
|
|
|
|
|
|
- act 'Leave':gt 'pirsingsalon', 'start'
|
|
|
+ act 'Leave':gt 'pirsingsalon', 'pirspyp'
|
|
|
end
|
|
|
end
|
|
|
else
|
|
@@ -707,7 +721,7 @@ if $ARGS[0] = 'pirsvla':
|
|
|
|
|
|
i = 1
|
|
|
:looppubic_pir
|
|
|
- *p '<a href="exec:gt ''pirsingsalon'', ''pubic_pir'', <<i>>"><img src="images/pc/body/piercings/g<<i>>.jpg" height="250" /></a>'
|
|
|
+ if dyneval('RESULT = PirsG<<i>>_owned') = 0: *p '<a href="exec:gt ''pirsingsalon'', ''pubic_pir'', <<i>>"><img src="images/pc/body/piercings/g<<i>>.jpg" height="250" /></a>'
|
|
|
i += 1
|
|
|
if i <= 10:jump 'looppubic_pir'
|
|
|
|
|
@@ -731,7 +745,8 @@ if $ARGS[0] = 'pubic_pir':
|
|
|
cla
|
|
|
money -= 10000
|
|
|
dynamic 'pirsG<<i>>_owned = 1'
|
|
|
- act 'Return':gt 'pirsingsalon', 'pirsvla'
|
|
|
+ gs 'stat'
|
|
|
+ gt 'pirsingsalon', 'pirsvla'
|
|
|
end
|
|
|
else
|
|
|
'You don''t have enough cash for this piercing.'
|
|
@@ -742,7 +757,8 @@ if $ARGS[0] = 'pubic_pir':
|
|
|
cla
|
|
|
karta -= 10000
|
|
|
dynamic 'pirsG<<i>>_owned = 1'
|
|
|
- act 'Return':gt 'pirsingsalon', 'pirsvla'
|
|
|
+ gs 'stat'
|
|
|
+ gt 'pirsingsalon', 'pirsvla'
|
|
|
end
|
|
|
else
|
|
|
'You don''t have enough money in your bank for this piercing.'
|
|
@@ -762,7 +778,7 @@ if $ARGS[0] = 'pubic_pir':
|
|
|
gs 'stat'
|
|
|
'The tattooist disinfects the area, pierces your pussy and inserts your chosen piercing.'
|
|
|
|
|
|
- act 'Leave':gt 'pirsingsalon', 'start'
|
|
|
+ act 'Leave':gt 'pirsingsalon', 'pirsvla'
|
|
|
end
|
|
|
end
|
|
|
if karta + bankDebtLimit >= 25000:
|
|
@@ -778,7 +794,7 @@ if $ARGS[0] = 'pubic_pir':
|
|
|
gs 'stat'
|
|
|
'The tattooist disinfects the area, pierces your pussy and inserts your chosen piercing.'
|
|
|
|
|
|
- act 'Leave':gt 'pirsingsalon', 'start'
|
|
|
+ act 'Leave':gt 'pirsingsalon', 'pirsvla'
|
|
|
end
|
|
|
end
|
|
|
else
|