@NullResponse @RapidCodeOn @CheckFlag(PickANumberToday)
@NullResponse @TempFlag(PickANumberToday)
@Stroking #StopStroking @StopStroking

@RT(Let's play,I think it's about time for,I want to play) a @RT(game,little game,game right now)
@BallTorture So, I'm going to pick a number... @Goto(with ball torture)
Or at least, I thought of a game
But the problem is, the game requires you to be willing to hurt you #Balls
And I know that you don't like doing that, which I can totally understand
The thing is, I think it would make you a much better submissive if you choose to do that for me
So, #SubName
Would you please, this one time, be willing to hurt your #Balls for your #DomHonorific?
[yes] Awesome! @Goto(this one time)
[no] Oh okay @MoodDown
@DifferentAnswer #YesOrNo
I guess that's the way it's going to be then
Well at least there are plenty of other cruel things I can do to you #Grin
@End

(this one time)
I think you'll learn to love it in time, #PetName
Alright, here are the rules of the game...
I'm going to pick a number

(with ball torture)
And then you're also going to pick a number
If you pick a number lower than mine then the difference x10 is the number of strokes you get
If you pick a number higher than mine then you have to give me the difference in ball slaps
Finally, if we pick the same number, you get to hold an edge for me #Smile
I'll pick a number between 10 and 50 @SetVar[AV_RamdomResult]=[0]
Let's try it, shall we? @SetVar[AV_Ramdom1]=[#Random(10, 50)] 

(Pick1)
@RT(Choose,Pick,Give me) a number between 10 and 50 @InputVar[AV_UserNumber1]
@NullResponse @RapidCodeOn @If[AV_UserNumber1]<[10]Then(Wrong Number1)
@NullResponse @If[AV_Ramdom1]=[AV_UserNumber1]Then(Edge1)
@NullResponse @If[AV_Ramdom1]>[AV_UserNumber1]Then(Stroke1)
@NullResponse @If[AV_Ramdom1]<[AV_UserNumber1]Then(Slap1)

(Wrong Number1)
@RT(Seriously,Come one,What the fuck,What the hell), #PetName @Goto(Pick1)

(Edge1)
@RT(Mine was,I picked,My number is,I had) #Var[AV_Ramdom1] too!
#Edge @EdgeHold
@NullResponse @Goto(AVRound2)

(Stroke1)
@RT(Mine was,I picked,My number is,I had) #Var[AV_Ramdom1]
@NullResponse @ChangeVar[AV_RamdomResult]=[AV_Ramdom1]-[AV_UserNumber1]
@NullResponse @ChangeVar[AV_RamdomResult]=[AV_RamdomResult]*[10]
Stroke #Var[AV_RamdomResult] times @Wait(20)
Done?
[yes] @RT(Good boy,Okay,Alright,Alright then,Good,Great)
@DifferentAnswer Okay... are you done <i>now</i>? #Smile
@NullResponse @Goto(AVRound2)

(Slap1)
@RT(Mine was,I picked,My number is,I had) #Var[AV_Ramdom1]
@NullResponse @ChangeVar[AV_RamdomResult]=[AV_UserNumber1]-[AV_Ramdom1]
@RT(Smack,Slap,Hit) you #Balls #Var[AV_RamdomResult] times @Wait(20)
Done?
[yes] @RT(Good boy,Okay,Alright,Alright then,Good,Great)
@DifferentAnswer Okay... are you done <i>now</i>? #Smile
@NullResponse @Goto(AVRound2)

(AVRound2)
I know it's easy to pick a low number to make sure you can avoid hurting your #Balls
So, let's make it a bit harder for you to #JerkOff in the next round
#Edge @EdgeNoHold @MultipleEdges(5, 10, 100)
Now let's try again @SetVar[AV_RamdomResult]=[0] @RapidCodeOn
@NullResponse @SetVar[AV_RamdomRounds]=[#Random(2,5)] 
@NullResponse @Goto(AV_Round2Start)

(Round2Loop)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[AV_RamdomRounds]=[AV_RamdomRounds]-[1]
@NullResponse @If[AV_RamdomRounds]=[0]Then(AVRound3)

(AV_Round2Start)
@NullResponse @SetVar[AV_Ramdom1]=[#Random(10, 100)] 

(Pick2)
@RT(Choose,Pick,Give me) a number between 10 and 100 @InputVar[AV_UserNumber1]
@NullResponse @RapidCodeOn @If[AV_UserNumber1]<[10]Then(Wrong Number2)
@NullResponse @If[AV_Ramdom1]=[AV_UserNumber1]Then(Edge2)
@NullResponse @If[AV_Ramdom1]>[AV_UserNumber1]Then(Stroke2)
@NullResponse @If[AV_Ramdom1]<[AV_UserNumber1]Then(Slap2)

(Wrong Number2)
@RT(Seriously,Come one,What the fuck,What the hell), #PetName @Goto(Pick2)

(Edge2)
@RT(Mine was,I picked,My number is,I had) #Var[AV_Ramdom1] too!
#Edge @EdgeHold
@NullResponse @Goto(Round2Loop)

(Stroke2)
@RT(Mine was,I picked,My number is,I had) #Var[AV_Ramdom1]
@NullResponse @ChangeVar[AV_RamdomResult]=[AV_Ramdom1]-[AV_UserNumber1]
@NullResponse @ChangeVar[AV_RamdomResult]=[AV_RamdomResult]*[10]
Stroke #Var[AV_RamdomResult] times @Wait(20)
Done?
[yes] @RT(Good boy,Okay,Alright,Alright then,Good,Great)
@DifferentAnswer Okay... are you done <i>now</i>? #Smile
@NullResponse @Goto(Round2Loop)

(Slap2)
@RT(Mine was,I picked,My number is,I had) #Var[AV_Ramdom1]
@NullResponse @ChangeVar[AV_RamdomResult]=[AV_UserNumber1]-[AV_Ramdom1]
@RT(Smack,Slap,Hit) your #Balls #Var[AV_RamdomResult] times @Wait(20)
Done?
[yes] @RT(Good boy,Okay,Alright,Alright then,Good,Great)
@DifferentAnswer Okay... are you done <i>now</i>? #Smile
@NullResponse @Goto(Round2Loop)


(AVRound3)
That's enough for now
@End

(PickANumberToday)
@NullResponse @Chance50(Simple Edge)
@NullResponse @CallRandom(Custom/Modules_Talk)
@End

(Simple Edge)
@NullResponse #EdgeMultipleRandom1_3RandomHold
#LetTheEdgeFade
@NullResponse @Wait(#Random(10,20))
@End

@Info Written by Avatarbr, adapted for Miss Blue.