|
@@ -1316,51 +1316,94 @@ if $ARGS[0] = 'change':
|
|
|
|
|
|
!!Therapist force exhibitionist clothing check
|
|
!!Therapist force exhibitionist clothing check
|
|
if hypnoClothes > 0:
|
|
if hypnoClothes > 0:
|
|
- if CloThinness < 6:
|
|
|
|
- act 'Wear this outfit':
|
|
|
|
- cla
|
|
|
|
- *clr
|
|
|
|
- 'You pick up the outfit and think about trying them on... but you don''t really like wearing these type of outfits'
|
|
|
|
- gs 'willpower', 'misc', 'resist', 'easy'
|
|
|
|
- will_cost += hypnoTime
|
|
|
|
- if will_cost <= pcs_willpwr:
|
|
|
|
- act 'Put them on anyways (<<will_cost>> Willpower)':
|
|
|
|
- gs 'willpower', 'pay', 'resist'
|
|
|
|
- gs 'stat'
|
|
|
|
- gs 'clothing', 'wear', $ARGS[1], ARGS[2]
|
|
|
|
-
|
|
|
|
|
|
+ if CloStyle2 = 4:
|
|
|
|
+ if CloThinness < 3:
|
|
|
|
+ act 'Wear this outfit':
|
|
|
|
+ cla
|
|
|
|
+ *clr
|
|
|
|
+ 'You pick up the uniform and think about trying them on... but you don''t really like wearing these type of uniform. You wonder if you can find more revealing uniform.'
|
|
|
|
+ gs 'willpower', 'misc', 'resist', 'easy'
|
|
|
|
+ will_cost += hypnoTime/CloThinness
|
|
|
|
+ if will_cost <= pcs_willpwr:
|
|
|
|
+ act 'Put them on anyways (<<will_cost>> Willpower)':
|
|
|
|
+ gs 'willpower', 'pay', 'resist'
|
|
|
|
+ gs 'stat'
|
|
|
|
+ gs 'clothing', 'wear', $ARGS[1], ARGS[2]
|
|
|
|
+
|
|
|
|
+ if $regularwornclothingtype = '':
|
|
|
|
+ gt 'wardrobe', 'main'
|
|
|
|
+ else
|
|
|
|
+ gt 'clothing_QV', 'gym'
|
|
|
|
+ end
|
|
|
|
+ end
|
|
|
|
+ else
|
|
|
|
+ act 'Put them on anyways (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
|
|
|
|
+ end
|
|
|
|
+ act 'Back':
|
|
if $regularwornclothingtype = '':
|
|
if $regularwornclothingtype = '':
|
|
gt 'wardrobe', 'main'
|
|
gt 'wardrobe', 'main'
|
|
else
|
|
else
|
|
gt 'clothing_QV', 'gym'
|
|
gt 'clothing_QV', 'gym'
|
|
end
|
|
end
|
|
end
|
|
end
|
|
- else
|
|
|
|
- act 'Put them on anyways (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
|
|
|
|
- end
|
|
|
|
- act 'Back':
|
|
|
|
|
|
+ end
|
|
|
|
+ else
|
|
|
|
+ act 'Wear this outfit':
|
|
|
|
+ gs 'clothing', 'wear', $ARGS[1], ARGS[2]
|
|
|
|
+
|
|
if $regularwornclothingtype = '':
|
|
if $regularwornclothingtype = '':
|
|
gt 'wardrobe', 'main'
|
|
gt 'wardrobe', 'main'
|
|
else
|
|
else
|
|
gt 'clothing_QV', 'gym'
|
|
gt 'clothing_QV', 'gym'
|
|
end
|
|
end
|
|
end
|
|
end
|
|
- end
|
|
|
|
|
|
+ end
|
|
else
|
|
else
|
|
- act 'Wear this outfit':
|
|
|
|
- gs 'clothing', 'wear', $ARGS[1], ARGS[2]
|
|
|
|
|
|
+ if CloThinness < 6:
|
|
|
|
+ act 'Wear this outfit':
|
|
|
|
+ cla
|
|
|
|
+ *clr
|
|
|
|
+ 'You pick up the outfit and think about trying them on... but you don''t really like wearing these type of outfits'
|
|
|
|
+ gs 'willpower', 'misc', 'resist', 'easy'
|
|
|
|
+ will_cost += hypnoTime
|
|
|
|
+ if will_cost <= pcs_willpwr:
|
|
|
|
+ act 'Put them on anyways (<<will_cost>> Willpower)':
|
|
|
|
+ gs 'willpower', 'pay', 'resist'
|
|
|
|
+ gs 'stat'
|
|
|
|
+ gs 'clothing', 'wear', $ARGS[1], ARGS[2]
|
|
|
|
+
|
|
|
|
+ if $regularwornclothingtype = '':
|
|
|
|
+ gt 'wardrobe', 'main'
|
|
|
|
+ else
|
|
|
|
+ gt 'clothing_QV', 'gym'
|
|
|
|
+ end
|
|
|
|
+ end
|
|
|
|
+ else
|
|
|
|
+ act 'Put them on anyways (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
|
|
|
|
+ end
|
|
|
|
+ act 'Back':
|
|
|
|
+ if $regularwornclothingtype = '':
|
|
|
|
+ gt 'wardrobe', 'main'
|
|
|
|
+ else
|
|
|
|
+ gt 'clothing_QV', 'gym'
|
|
|
|
+ end
|
|
|
|
+ end
|
|
|
|
+ end
|
|
|
|
+ else
|
|
|
|
+ act 'Wear this outfit':
|
|
|
|
+ gs 'clothing', 'wear', $ARGS[1], ARGS[2]
|
|
|
|
|
|
- if $regularwornclothingtype = '':
|
|
|
|
- gt 'wardrobe', 'main'
|
|
|
|
- else
|
|
|
|
- gt 'clothing_QV', 'gym'
|
|
|
|
|
|
+ if $regularwornclothingtype = '':
|
|
|
|
+ gt 'wardrobe', 'main'
|
|
|
|
+ else
|
|
|
|
+ gt 'clothing_QV', 'gym'
|
|
|
|
+ end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
- end
|
|
|
|
|
|
+ end
|
|
else
|
|
else
|
|
act 'Wear this outfit':
|
|
act 'Wear this outfit':
|
|
gs 'clothing', 'wear', $ARGS[1], ARGS[2]
|
|
gs 'clothing', 'wear', $ARGS[1], ARGS[2]
|
|
-
|
|
|
|
if $regularwornclothingtype = '':
|
|
if $regularwornclothingtype = '':
|
|
gt 'wardrobe', 'main'
|
|
gt 'wardrobe', 'main'
|
|
else
|
|
else
|
|
@@ -1369,7 +1412,7 @@ if $ARGS[0] = 'change':
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
|
|
-
|
|
|
|
|
|
+
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
|