|
@@ -289,7 +289,7 @@ if $ARGS[0] = 'view_clothing_item':
|
|
|
!! if the clothing is worn out
|
|
|
if dyneval('RESULT = <<$ARGS[2]>>H[<<ARGS[3]>>]') <= 0:
|
|
|
'This item is worn and is not suitable for further wear.'
|
|
|
- if poSkill >= 200:
|
|
|
+ if poSkill >= 200 and tkan > 0:
|
|
|
cla
|
|
|
'You can repair this thanks to your sewing skill.'
|
|
|
act 'Repair item':
|
|
@@ -309,52 +309,48 @@ if $ARGS[0] = 'view_clothing_item':
|
|
|
act 'Return':gt 'clothing', 'view_clothing_list', $ARGS[1]
|
|
|
end
|
|
|
end
|
|
|
- act 'Leave in closet':
|
|
|
- gt 'clothing', 'view_clothing_list', $ARGS[1]
|
|
|
- end
|
|
|
+ act 'Leave in closet': gt 'clothing', 'view_clothing_list', $ARGS[1]
|
|
|
end
|
|
|
+ exit
|
|
|
|
|
|
- exit
|
|
|
end
|
|
|
|
|
|
!! if the clothing is a type that checks for hip size
|
|
|
if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
|
|
|
!! if the hipsize is too far from your hipsize
|
|
|
dynamic 'RESULT = <<$ARGS[2]>>B[<<ARGS[3]>>]'
|
|
|
- end
|
|
|
- if RESULT < bedra - 8 or RESULT > bedra + 8:
|
|
|
- if RESULT < bedra:
|
|
|
- 'This item is too small for you to wear.'
|
|
|
- else
|
|
|
- 'This item is too large for you to wear.'
|
|
|
- end
|
|
|
-
|
|
|
- if poSkill >= 100 and tkan > 0:
|
|
|
- cla
|
|
|
- 'You can resize this thanks to your sewing skill.'
|
|
|
- act 'Resize item':
|
|
|
- if rand (1, 100) < 30:
|
|
|
- cla
|
|
|
- tkan -= 1
|
|
|
- minut += 30
|
|
|
- dynamic $ARGS[2] + 'H[<<ARGS[3]>>] += 30'
|
|
|
- 'You spend 30 minutes fixing the outfit.'
|
|
|
- act 'Return':gt 'clothing', 'view_clothing_list', $ARGS[1]
|
|
|
- else
|
|
|
- cla
|
|
|
- tkan += 3
|
|
|
- minut += 30
|
|
|
- dynamic $ARGS[2] + '[<<ARGS[3]>>] = 0'
|
|
|
- 'Despite your skill with a needle, this outfit has proved beyond repair. All that is left of it is only good for your cloth pile.'
|
|
|
- act 'Return':gt 'clothing', 'view_clothing_list', $ARGS[1]
|
|
|
- end
|
|
|
+ if RESULT < bedra - 8 or RESULT > bedra + 8:
|
|
|
+ if RESULT < bedra:
|
|
|
+ 'This item is too small for you to wear.'
|
|
|
+ else
|
|
|
+ 'This item is too large for you to wear.'
|
|
|
end
|
|
|
- act 'Leave in closet':
|
|
|
- gt 'clothing', 'view_clothing_list', $ARGS[1]
|
|
|
+
|
|
|
+ if poSkill >= 100 and tkan > 0:
|
|
|
+ cla
|
|
|
+ 'You can resize this thanks to your sewing skill.'
|
|
|
+ act 'Resize item':
|
|
|
+ if rand (1, 100) < 30:
|
|
|
+ cla
|
|
|
+ tkan -= 1
|
|
|
+ minut += 30
|
|
|
+ dynamic $ARGS[2] + 'H[<<ARGS[3]>>] += 30'
|
|
|
+ 'You spend 30 minutes fixing the outfit.'
|
|
|
+ act 'Return':gt 'clothing', 'view_clothing_list', $ARGS[1]
|
|
|
+ else
|
|
|
+ cla
|
|
|
+ tkan += 3
|
|
|
+ minut += 30
|
|
|
+ dynamic $ARGS[2] + '[<<ARGS[3]>>] = 0'
|
|
|
+ 'Despite your skill with a needle, this outfit has proved beyond repair. All that is left of it is only good for your cloth pile.'
|
|
|
+ act 'Return':gt 'clothing', 'view_clothing_list', $ARGS[1]
|
|
|
+ end
|
|
|
+ end
|
|
|
+ act 'Leave in closet': gt 'clothing', 'view_clothing_list', $ARGS[1]
|
|
|
end
|
|
|
- end
|
|
|
-
|
|
|
exit
|
|
|
+
|
|
|
+ end
|
|
|
end
|
|
|
end
|
|
|
|