@NullResponse @RapidCodeOn
@Flag(ChastityOnLocked) @NullResponse @Goto(IN)
@Flag(ChastityOffLocked) @NullResponse @Goto(OUT)
@Variable[#DateDifference(LastOrgasm,hours)]>[3] @NullResponse @Goto(Decision After Denial)
@Variable[ChastityLevel]=[1] @NullResponse @Goto(level 1)
@Variable[ChastityLevel]=[2] @NullResponse @Goto(level 2)
@Variable[ChastityLevel]=[3] @NullResponse @Goto(level 3)
@Variable[ChastityLevel]=[4] @NullResponse @Goto(level 4)
@Variable[ChastityLevel]=[5] @NullResponse @Goto(level 5)
@SystemMessage ERROR - please check your chastity settings @Goto(level 1)
@End
(Decision After Denial)
@Variable[ChastityLevelDenied]=[1] @NullResponse @Goto(level 1)
@Variable[ChastityLevelDenied]=[2] @NullResponse @Goto(level 2)
@Variable[ChastityLevelDenied]=[3] @NullResponse @Goto(level 3)
@Variable[ChastityLevelDenied]=[4] @NullResponse @Goto(level 4)
@Variable[ChastityLevelDenied]=[5] @NullResponse @Goto(level 5)
@SystemMessage ERROR - please check your chastity settings @Goto(level 1)
@End
(level 1)
@NullResponse @Goto(OUT)
(level 2)
@NullResponse @Chance25(IN)
@NullResponse @Goto(OUT)
(level 3)
@NullResponse @Chance50(IN)
@NullResponse @Goto(OUT)
(level 4)
@NullResponse @Chance75(IN)
@NullResponse @Goto(OUT)
(level 5)
@NullResponse @Goto(IN)
(OUT)
@NullResponse
@End

(IN)
#PutOnTheCage #ResponseC04_ChastityOn
@NullResponse
@NullResponse #ResponseC04_ChastityOn
@NullResponse
@NullResponse #ResponseC04_ChastityOn
@NullResponse
@RT(Tell me,Let me know,Just tell me) when you're @RT(done,ready to continue,ready)
[ready,done,finished] @RT(Good,Good boy,Alright,Alright then,Okay,There you go,Great,You sure took your time with it,Try a little faster next time,And so everything is how it should be)
[yes] @RT(Hmmm?,I'm waiting,Don't make me wait too long,Just let me know when you're ready) @LoopAnswer
[no,dont want,not going to,not gonna,will not,wont,please dont,dont make] @RT(Are you serious,Do I really need to ask again,Seriously,Slave says what,Come again,Do you really think that is an option,Do you think this is a joke,Is that a joke,Are you kidding me)? @Goto(IN)
@DifferentAnswer Let me know when you're ready
#MuchBetterInChastity @AFKOn
@NullResponse @ChastityOn @RapidCodeOn
@NullResponse @SetDate(ChastityStartDate,0 seconds)
@NullResponse @SetVar[Chastity_TIME]=[#Random(0,#Var[ChastityMaxDays])]
@NullResponse
@Variable[Chastity_TIME]>#Var[ChastityMaxDays] @NullResponse @SetVar[Chastity_TIME]=#Var[ChastityMaxDays]
@NullResponse @AFKOff
@End