@NullResponse @ChangeVar[OrgasmControlSessions]=[OrgasmControlSessions]+[1]
@NullResponse @SetVar[OCRegularSessions]=[0]
@Variable[OrgasmControl]=[1] @NullResponse @Goto(OCFirst)
@Variable[OrgasmControl]=[2] @NullResponse @Goto(Denial Punishment)
@Variable[OrgasmControl]=[3] @NullResponse @Goto(Dice)
@Variable[OrgasmControl]=[4] @NullResponse @Goto(Promised Orgasm)
@Variable[OrgasmControl]=[5] @NullResponse @Goto(Permanent)
@Variable[OrgasmControl]=[6] @NullResponse @Goto(Set Record)
@Variable[OrgasmControl]=[7] @NullResponse @Goto(One Day Only)
@Variable[OrgasmControl]=[8] @NullResponse @Goto(Pick A Number)
@SystemMessage *** ERROR OCSC ***
@NullResponse @SetVar[OrgasmControl]=[0] @SetVar[OrgasmControlSessions]=[0] @RapidCodeOn
@End

(OCFirst)
@NullResponse @RestrictOrgasm
@End


(Denial Punishment)
@Variable[DenialPunishmentDays]=[#DateDifference(DenialPunishmentStart,days)] @NullResponse @Goto(End Denial Punishment)
@Variable[DenialPunishmentDays]<[#DateDifference(DenialPunishmentStart,days)] @NullResponse @Goto(End Denial Punishment)
@NullResponse @RestrictOrgasm
@End

(End Denial Punishment)
@NullResponse @TempFlag(OrgasmPromised) @SetVar[OrgasmControlSessions]=[0] @SetVar[OCRegularSessions]=[0]
@End


(Dice)
@NullResponse @RestrictOrgasm
@End

(Promised Orgasm)
@NullResponse @TempFlag(OrgasmPromised) @SetVar[OrgasmControlSessions]=[0] @SetVar[OCRegularSessions]=[0]
@End

(Permanent)
@NullResponse @RestrictOrgasm
@End

(Set Record)
@NullResponse @RestrictOrgasm
@End

(One Day Only)
@NullResponse @SetVar[OrgasmControl]=[0] @SetVar[OrgasmControlSessions]=[0] @SetVar[OCRegularSessions]=[0]
@End

(Pick A Number)
@Variable[#DateDifference(PANStart,days)]>[PANDays] @NullResponse @Goto(PAN End)
@NullResponse @RestrictOrgasm
@End

(PAN End)
@NullResponse @SetVar[OrgasmControl]=[4] @SetVar[OrgasmControlSessions]=[0] @SetVar[OCRegularSessions]=[0]
@NullResponse @TempFlag(OrgasmPromised)
@End