[Ive been watching porn,I have been watching porn,I watched porn,Ive watched porn,I have watched porn,I looked at porn,Ive been looking at porn,I have been looking at porn,Ive looked at porn,I have looked at porn,Ive been watching too much porn]

[Before Tease]
@Flag(PornRestrictedActive) @RT(Oh really,You have,Oh have you now,Ah)? @MoodWorst @SetVar[BadMoodReason]=[3] @Interrupt(Punishment)
@NotFlag(PornRestrictedActive) #RespToConfessWatchingPorn
[Before Tease End]

[First Round]
@Flag(PornRestrictedActive) @RT(Oh really,You have,Oh have you now,Ah)? @MoodWorst @SetVar[BadMoodReason]=[3] @Interrupt(Punishment)
@NotFlag(PornRestrictedActive) #RespToConfessWatchingPorn
@NotFlag(PornRestrictedActive) @NullResponse @CallReturn(Custom/Responses/ConfessWatchingPorn/*.txt)
[First Round End]

[Stroking]
@Flag(PornRestrictedActive) @RT(Oh really,You have,Oh have you now,Ah)? You should tell me these things at the beginning of the session, #SubName @ChatImage[MissBlue\Emotes\angry.gif] @SetVar[BadMoodReason]=[3] @MoodWorst 
@NotFlag(PornRestrictedActive) #RespToConfessWatchingPorn
@NotFlag(LastCycle) @NotFlag(PornRestrictedActive) @NullResponse @CallReturn(Custom/Responses/ConfessWatchingPorn/*.txt)
[Stroking End]

[Not Stroking]
@Flag(PornRestrictedActive) @RT(Oh really,You have,Oh have you now,Ah)? You should tell me these things at the beginning of the session, #SubName @ChatImage[MissBlue\Emotes\angry.gif] @SetVar[BadMoodReason]=[3] @MoodWorst 
@NotFlag(PornRestrictedActive) #RespToConfessWatchingPorn
@Variable[#DateDifference(ResponseA03_Rest,seconds)]<[15] @NullResponse @CallReturn(Custom/Responses/ConfessWatchingPorn/*.txt)
[Not Stroking End]

[Edging]
@Flag(PornRestrictedActive) @RT(Oh really,You have,Oh have you now,Ah)? You should tell me these things at the beginning of the session, #SubName @ChatImage[MissBlue\Emotes\angry.gif] @SetVar[BadMoodReason]=[3] @MoodWorst 
@NotFlag(PornRestrictedActive) #RespToConfessWatchingPorn
[Edging End]

[Holding The Edge]
@Flag(PornRestrictedActive) @RT(Oh really,You have,Oh have you now,Ah)? You should tell me these things at the beginning of the session, #SubName @ChatImage[MissBlue\Emotes\angry.gif] @SetVar[BadMoodReason]=[3] @MoodWorst 
@NotFlag(PornRestrictedActive) #RespToConfessWatchingPorn
[Holding The Edge End]

[CBT Cock]
@Flag(PornRestrictedActive) @RT(Oh really,You have,Oh have you now,Ah)? You should tell me these things at the beginning of the session, #SubName @ChatImage[MissBlue\Emotes\angry.gif] @SetVar[BadMoodReason]=[3] @MoodWorst 
@NotFlag(PornRestrictedActive) #RespToConfessWatchingPorn
[CBT Cock End]

[CBT Balls]
@Flag(PornRestrictedActive) @RT(Oh really,You have,Oh have you now,Ah)? You should tell me these things at the beginning of the session, #SubName @ChatImage[MissBlue\Emotes\angry.gif] @SetVar[BadMoodReason]=[3] @MoodWorst 
@NotFlag(PornRestrictedActive) #RespToConfessWatchingPorn
[CBT Balls End]

[Chastity]
@Flag(PornRestrictedActive) @RT(Oh really,You have,Oh have you now,Ah)? @MoodWorst @SetVar[BadMoodReason]=[3] @Interrupt(Punishment)
@NotFlag(PornRestrictedActive) #RespToConfessWatchingPorn
@NotFlag(PornRestrictedActive) @NullResponse @CallReturn(Custom/Responses/ConfessWatchingPorn/*.txt)
[Chastity End]

[After Tease]
@Flag(PornRestrictedActive) @RT(Oh really,You have,Oh have you now,Ah)? You should tell me these things at the beginning of the session, #SubName @ChatImage[MissBlue\Emotes\angry.gif] @SetVar[BadMoodReason]=[3] @MoodWorst 
@NotFlag(PornRestrictedActive) #RespToConfessWatchingPorn
[After Tease End]