|
@@ -14,8 +14,7 @@ if $ARGS[0] = 'start':
|
|
gs 'clothing', 'strip'
|
|
gs 'clothing', 'strip'
|
|
end
|
|
end
|
|
if ward_img_hgt = 0:ward_img_hgt = 150
|
|
if ward_img_hgt = 0:ward_img_hgt = 150
|
|
- '<h3><center><b><font color="maroon">Wardrobe overview</b></h3><br><center><font color="maroon">These are the clothes you are currently wearing - Click on an item to change it</font></center>'
|
|
|
|
- '<br><center><table border=0 cellspacing=<<ward_img_hgt/25>> cellpadding=5>'
|
|
|
|
|
|
+ '<h3><center><b><font color="maroon">Wardrobe overview</b></h3><br><center><font color="maroon">These are the clothes you are currently wearing - Click on an item to change it</font></center><center><table border=0 cellspacing=<<ward_img_hgt/25>> cellpadding=5>'
|
|
*p '<TH>Bra worn</TH><TH>Outfit worn</TH><TH>Coat (only worn outside when cold)</TH>'
|
|
*p '<TH>Bra worn</TH><TH>Outfit worn</TH><TH>Coat (only worn outside when cold)</TH>'
|
|
*P '<TR><TD><center><a href="exec:gt ''bras'', ''view_bra_list'', ''wardrobe''"><img Height = <<ward_img_hgt>> src="<<FUNC(''$body_image'',''bra'')>>"></a></center></TD><TD><center><a href="exec:gt ''clothing_QV'', ''list''"><img Height = <<ward_img_hgt * 2>> src="<<FUNC(''$body_image'',''clothes'')>>"></a></center></TD><TD><center>'
|
|
*P '<TR><TD><center><a href="exec:gt ''bras'', ''view_bra_list'', ''wardrobe''"><img Height = <<ward_img_hgt>> src="<<FUNC(''$body_image'',''bra'')>>"></a></center></TD><TD><center><a href="exec:gt ''clothing_QV'', ''list''"><img Height = <<ward_img_hgt * 2>> src="<<FUNC(''$body_image'',''clothes'')>>"></a></center></TD><TD><center>'
|
|
if defaultcoat = 0:
|
|
if defaultcoat = 0:
|
|
@@ -23,8 +22,7 @@ if $ARGS[0] = 'start':
|
|
else
|
|
else
|
|
'<a href="exec:gt ''cloakroom'', ''view_coat_list''"><img Height = <<ward_img_hgt * 2>> src="<<FUNC(''$body_image'', ''coat'')>>"></a>'
|
|
'<a href="exec:gt ''cloakroom'', ''view_coat_list''"><img Height = <<ward_img_hgt * 2>> src="<<FUNC(''$body_image'', ''coat'')>>"></a>'
|
|
end
|
|
end
|
|
- '</center></TD>'
|
|
|
|
- '<TR><TD><center>'
|
|
|
|
|
|
+ '</center></TD><TR><TD><center>'
|
|
if $braworntype ! 'none':
|
|
if $braworntype ! 'none':
|
|
'<a href="exec:gs ''bras'', ''remove'' & gt ''wardrobe'', ''start''">Remove</a>'
|
|
'<a href="exec:gs ''bras'', ''remove'' & gt ''wardrobe'', ''start''">Remove</a>'
|
|
else
|
|
else
|
|
@@ -51,8 +49,7 @@ if $ARGS[0] = 'start':
|
|
else
|
|
else
|
|
'<a href="exec:gt ''purses'', ''view_purse_list''">Search the wardrobe</a>'
|
|
'<a href="exec:gt ''purses'', ''view_purse_list''">Search the wardrobe</a>'
|
|
end
|
|
end
|
|
- '</center></TD>'
|
|
|
|
- '<TR><TD><center>'
|
|
|
|
|
|
+ '</center></TD><TR><TD><center>'
|
|
if $pantyworntype ! 'none':
|
|
if $pantyworntype ! 'none':
|
|
'<a href="exec:gs ''panties'', ''remove'' & gt ''wardrobe'', ''start''">Remove</a>'
|
|
'<a href="exec:gs ''panties'', ''remove'' & gt ''wardrobe'', ''start''">Remove</a>'
|
|
else
|
|
else
|
|
@@ -70,8 +67,7 @@ if $ARGS[0] = 'start':
|
|
else
|
|
else
|
|
'Remove'
|
|
'Remove'
|
|
end
|
|
end
|
|
- '</center></TD>'
|
|
|
|
- '<TR><TD><TD><center>'
|
|
|
|
|
|
+ '</center></TD><TR><TD><TD><center>'
|
|
if ($clothingworntype ! 'nude' and (defaultcoat > 0 or bag > 0)) or (defaultcoat > 0 and bag > 0):
|
|
if ($clothingworntype ! 'nude' and (defaultcoat > 0 or bag > 0)) or (defaultcoat > 0 and bag > 0):
|
|
'<a href="exec:gs ''wardrobe'', ''removeall'' & gt ''wardrobe'', ''start''">Remove all items</a>'
|
|
'<a href="exec:gs ''wardrobe'', ''removeall'' & gt ''wardrobe'', ''start''">Remove all items</a>'
|
|
else
|
|
else
|
|
@@ -79,8 +75,7 @@ if $ARGS[0] = 'start':
|
|
end
|
|
end
|
|
*nl
|
|
*nl
|
|
'<center><font color="grey">Save/load outfits with "Managed saved clothing sets".</font></center>'
|
|
'<center><font color="grey">Save/load outfits with "Managed saved clothing sets".</font></center>'
|
|
- '<TD></center></TD>'
|
|
|
|
- '</table></center>'
|
|
|
|
|
|
+ '<TD></center></TD></table></center>'
|
|
act 'Close wardrobe': killvar '$wloc' & gt $loc, $metka
|
|
act 'Close wardrobe': killvar '$wloc' & gt $loc, $metka
|
|
|
|
|
|
act 'Strip all clothing':
|
|
act 'Strip all clothing':
|