|
@@ -135,7 +135,6 @@ if $ARGS[0] = 'start':
|
|
|
end
|
|
|
|
|
|
act 'Look through the fetish clothing': minut += 1 & gt 'sexshop', 'clo'
|
|
|
- act 'Look through the burlesque clothing': minut += 1 & gt 'sexshop', 'clo2'
|
|
|
act 'Look through the panties': minut += 1 & gt 'sexshop', 'panties'
|
|
|
act 'Look through the bras': minut += 1 & gt 'sexshop', 'bras'
|
|
|
act 'Look through the fetish shoes': minut += 1 & gt 'sexshop', 'shoes'
|
|
@@ -690,87 +689,6 @@ if $ARGS[0] = 'fetish':
|
|
|
gt 'clothing', 'view_clothing_item', 'shop', 'fetish',i, 1000
|
|
|
end
|
|
|
|
|
|
-if $ARGS[0] = 'clo2':
|
|
|
- $loc_arg = 'clo2'
|
|
|
- $loc = 'sexshop'
|
|
|
- $menu_loc = 'sexshop'
|
|
|
- $menu_arg = 'clo2'
|
|
|
- menu_off = 0
|
|
|
- *clr & cla
|
|
|
- gs'stat'
|
|
|
- '<center><b><font color="maroon">Burlesque clothing - for entertainers and those most special of occasions</font></b></center>'
|
|
|
- *nl
|
|
|
-
|
|
|
- $Headerstring = '<TH>Prostitute clothing '
|
|
|
- if clothingfilter_prost = 0:
|
|
|
- $Headerstring += '<a href="exec:clothingfilter_prost = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
|
|
|
- else
|
|
|
- $Headerstring += '<a href="exec:clothingfilter_prost = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
|
|
|
- end
|
|
|
-
|
|
|
- $Headerstring += '<TH>Bimbo clothing '
|
|
|
- if clothingfilter_bimbo = 0:
|
|
|
- $Headerstring += '<a href="exec:clothingfilter_bimbo = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
|
|
|
- else
|
|
|
- $Headerstring += '<a href="exec:clothingfilter_bimbo = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
|
|
|
- end
|
|
|
-
|
|
|
- $Headerstring += '<TH>Clothing you are comfortable wearing '
|
|
|
- if clothingfilter_comf = 0:
|
|
|
- $Headerstring += '<a href="exec:clothingfilter_comf = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
|
|
|
- else
|
|
|
- $Headerstring += '<a href="exec:clothingfilter_comf = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
|
|
|
- end
|
|
|
-
|
|
|
- $Headerstring += '<TH>Daring clothing '
|
|
|
- if clothingfilter_daring = 0:
|
|
|
- $Headerstring += '<a href="exec:clothingfilter_daring = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
|
|
|
- else
|
|
|
- $Headerstring += 'g<a href="exec:clothingfilter_daring = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
|
|
|
- end
|
|
|
-
|
|
|
- $Headerstring += '<TH>Too daring for you clothing '
|
|
|
- if clothingfilter_too_daring = 0:
|
|
|
- $Headerstring += '<a href="exec:clothingfilter_too_daring = 1 & gt ''sexshop'', ''clo2''">Included</a></TH>'
|
|
|
- else
|
|
|
- $Headerstring += '<a href="exec:clothingfilter_too_daring = 0 & gt ''sexshop'', ''clo2''">Excluded</a></TH>'
|
|
|
- end
|
|
|
-
|
|
|
- '<center><table border=1><<$Headerstring>></center>'
|
|
|
-
|
|
|
- act 'Return': minut += 1 & gt 'sexshop', 'start'
|
|
|
-
|
|
|
- if Clothingstock > 11:
|
|
|
- i = 1
|
|
|
- else
|
|
|
- i = 2
|
|
|
- end
|
|
|
-
|
|
|
- :loopburlesque
|
|
|
- if burlesque[i] = 0:
|
|
|
- gs 'clothing_attributes', 'burlesque', i
|
|
|
- if clothingfilter_comf = 0 and CloInhibit + 10 < pcs_inhib:
|
|
|
- if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''sexshop'', ''burlesque''"><img <<$set_imgh>> src="images/pc/clothing/13burlesque/<<i>>.jpg" height="250" /></a>'
|
|
|
- elseif clothingfilter_daring = 0 and CloInhibit + 10 >= pcs_inhib and CloInhibit <= pcs_inhib:
|
|
|
- if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''sexshop'', ''burlesque''"><img <<$set_imgh>> src="images/pc/clothing/13burlesque/<<i>>.jpg" height="250" /></a>'
|
|
|
- elseif clothingfilter_too_daring = 0 and CloInhibit > pcs_inhib:
|
|
|
- if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''sexshop'', ''burlesque''"><img <<$set_imgh>> src="images/pc/clothing/13burlesque/<<i>>.jpg" height="250" /></a>'
|
|
|
- end
|
|
|
- end
|
|
|
- i += 2
|
|
|
- if i <= 22:jump 'loopburlesque'
|
|
|
-end
|
|
|
-
|
|
|
-if $ARGS[0] = 'burlesque':
|
|
|
- cla
|
|
|
-
|
|
|
- if burlesque[i] ! 0:
|
|
|
- msg 'You already own these clothes.'
|
|
|
- gt 'sexshop', 'clo2'
|
|
|
- end
|
|
|
-
|
|
|
- gt 'clothing', 'view_clothing_item', 'shop', 'burlesque',i, 1500
|
|
|
-end
|
|
|
|
|
|
if $ARGS[0] = 'shoes':
|
|
|
$loc_arg = 'shoes'
|