|
@@ -135,20 +135,15 @@ if $ARGS[0] = 'change':
|
|
|
end
|
|
|
end
|
|
|
|
|
|
- if $ARGS[1] = 'naughty' and CloQuality < 4:'This outfit can be used for prostitution.'
|
|
|
- if $ARGS[1] = 'uniform':
|
|
|
- if CloStyle2 = 1:
|
|
|
- 'This outfit is considered to be a maid uniform.'
|
|
|
- else
|
|
|
- 'This outfit is a server uniform, suitable for jobs that require one.'
|
|
|
+ if $clothingworntype = $ARGS[1] and clothingwornnumber = ARGS[2]:
|
|
|
+ 'You are wearing this outfit.'
|
|
|
+ else
|
|
|
+ act 'Wear this outfit':
|
|
|
+ gs 'clothing', 'wear', $ARGS[1], ARGS[2]
|
|
|
+ dynamic $ARGS[1] + 'W[<<ARGS[2]>>] = 1'
|
|
|
+ gt $loc, $metka
|
|
|
end
|
|
|
end
|
|
|
-
|
|
|
- act 'Wear this outfit':
|
|
|
- gs 'clothing', 'wear', $ARGS[1], ARGS[2]
|
|
|
- dynamic $ARGS[1] + 'W[<<ARGS[2]>>] = 1'
|
|
|
- gt $loc, $metka
|
|
|
- end
|
|
|
act 'Choose another outfit': gt 'clothing_QV', 'list'
|
|
|
act 'Leave':gt $loc, $metka
|
|
|
end
|