Tease AI: Community-Created Scripts

Webteases are great, but what if you're in the mood for a slightly more immersive experience? Chat about Tease AI and other offline tease software.

Moderator: 1885

Post Reply
png
Explorer At Heart
Explorer At Heart
Posts: 157
Joined: Tue Jun 02, 2015 4:34 pm

Re: Tease AI: Community-Created Scripts

Post by png »

png Wicked tease v1.0

Ok here it comes, a customized wicked tease. The goal is to add some light chastity, feminization, cum eating, more CBT and lot less predictability.

To use it you need to activate CBT or pretty much all the scripts will be useless :p

You don't have to have a chastity device despite what the app tells you. It will just be a lot less fun :)

The detail of what I created/changed
Spoiler: show
Start scripts :
- png Chastity Start_CHASTITY : A start script that has a low chance to free you from chastity
- png start panties : A start script that tries to put you in panties or make you buy one if you don't have any
- png start Busy : A start script where the dom is busy and makes yo uwatch video, writing lines or watch a slideshow depending of her apathy level

Modules :
- png cum eating : A module that tries to make you lick your precum and you might end up eating your cum after a ruined orgasm depending of your settings
- png edge suffer cycle : A module that makes you edge and CBT based on randomness. The number of cycles is random between dom level and dom level*dom apathy
- png labels dom_CHASTITY : A module that asks you to label dom pictures when you are in chastity
- png labels local_CHASTITY : A module that asks you to label local pictures when you are in chastity
- png lines_CHASTITY : A module that makes you write lines when you are in chastity
- png Module_CHASTITY : A module that might free you from chastity if you are locked up
- png nipple clamp : A module that makes you use nippleclamps/clothpines
- png unexpected : a module where the dom as to leave unexpectedly. She can go afk or might have to leave and end the session. If she is afk she'll make you watch videos or write lines. If she leaves she might allow you to cum based on your settings

Links :
- png WouldYouRatherGoInChastity : A rvamped version of 1885's script that might put you in chastity or will try to convince to buy a cage if you don't have any. Made to be impossible to predict...
- png_panties : follow up script for the start panties one and depending on the result of it (works if you haven't been in the start script yet)

Ending :
- A new ending that can put you in chastity, give you taks or let you off the hook.

CBT :
- New starting lines to make you using your fist, a shoe or a ruler

Interrupts :
- png chastity out : Activate when you ask to get free of the chastity device

Stroking :
- New stroking instructions depending on if you are wearing panties, have or are waiting for a chastity cage or have eaten your cum
- new stroking instructions with some CBT
- A lot more chastity taunts using the neutral stroke instructions or modified ones + a few originals

Tasks :
- Added a new outro that can put you in panties if you have some
- Added a new outro that can put you in chastity for the night if you have some

Misc :
- Updated some lines and links to use either local or URL images
- Corrected the Link_CHASTITY that missed a @StartTaunts instruction
- New vocabulary : #ChastityCage, #EmoteSad, #Horny, #Pictures, #Stroke, #Stroking, #Tits
All the scripts that tries to make you wear panties, put you in chastity or eat your cum will let you avoid it by answering no to all the questions. they maintain a state of your choices that impact themselves and most of the other scripts.

I tried to test it as much as I could but some scripts are very very hard to predict making them a hell to test.

If you find bugs the easier way is to correct it on your side and send me either the file or the bundle with everything and I'll just use a tool to merge them together.

I built a custom slideshow for the png start Busy script. It doesn't work as expected because the program ignores the @wait instructions for now but it's still usable. Before playing the slideshow the dom will allow you to edge only on certain pictures. To customize it based on your pictures you have to modify the #png__slideshow_edge_part tag in the vocabulary

have fun and let me know what you think about it

Thank you
Attachments
png Wicked Tease v1.0.zip
(291.78 KiB) Downloaded 478 times
User avatar
Vinc
Explorer At Heart
Explorer At Heart
Posts: 213
Joined: Sat Oct 29, 2011 10:21 pm
Gender: Male
Sexual Orientation: Straight

Re: Tease AI: Community-Created Scripts

Post by Vinc »

Hey,
so today I tried to add a module to Tease AI and came up with this.
I havent played or bugfixed it yet.
The whole thing about doing this was to add some of the webtease spirit to the program. There are a lot of webteases with stroking to pictures like my own 24 challenge and I'm looking forward to get these into tease AI. Maybe some people could help and there will be a method to connect tease ai with teaseme or guideme.

I named it 500StrokesModu.txt

Code: Select all

I have an idea #PetNameI would like you to play a game called 500 strokes with meAre you in?[yes] Great. So let me explain how this works[no] That's too bad @Goto(That's Okay)@DifferentAnswer Yes or no #PetName?I will show you some hot pictures and ...You will have to do a specific amount of strokesto each one of it until you gathered 500.No rocket science.Let's start! @SetVar[StrokeCount]=[0] @Chance50(Mark1)150 strokes to this nice #ass @ShowButtImage @ChangeVar[StrokeCount]=[StrokeCount]+[150] @Wait(10)Tell me when you're done but don't stroke to slow![done, yes, Yes Mistress, yeah, yea, sure] Let's move on!100 stroke to this #sexy #boobs @ShowBoobsImage @ChangeVar[StrokeCount]=[StrokeCount]+[100] @Wait(10)Again, tell me when you're done.[done, yes, Yes Mistress, yeah, yea, sure] Only halfway yet.@Nullresponse @Goto(Mark2)(Mark1)100 strokes for those #sexy girls @ShowLesbianImage @ChangeVar[StrokeCount]=[StrokeCount]+[100] @Wait(10)Tell me when you're done #PetName[done, yes, Yes Mistress, yeah, yea, sure] Move on150 strokes to this nice #ass @ShowButtImage @ChangeVar[StrokeCount]=[StrokeCount]+[150] @Wait(10)Let me know if you're done.[done, yes, Yes Mistress, yeah, yea, sure] 250 to go. @Goto(Mark2)(Mark2)Another 150 strokes #PetName @ShowBlogImage @ChangeVar[StrokeCount]=[StrokeCount]+[150] @Wait(15)Are you done yet?[done, yes, Yes Mistress, yeah, yea, sure] Last picture now! @Chance50(Mark4)100 strokes imagining her sucking you #cock @ShowBlowjobImage @ChangeVar[StrokeCount]=[StrokeCount]+[100] @Wait(15)All 500 done #PetName ?[done, yes, Yes Mistress, yeah, yea, sure] Good job @Goto(done)(Mark4)100 strokes! @ShowButtImage @ChangeVar[StrokeCount]=[StrokeCount]+[100] @Wait(15)All 500 done #PetName ?[done, yes, Yes Mistress, yeah, yea, sure] That was fun @Goto(done)(done)500 strokes done huh?Hope you are not sore already! #GrinLets move on to something else.@End(That's Okay)I'm a little bit disappointed #PetName, but your ache will make me happy again #Grin@End
User avatar
marspank
Explorer At Heart
Explorer At Heart
Posts: 840
Joined: Mon Sep 19, 2011 12:11 am
Gender: Male
Sexual Orientation: Straight
I am a: Submissive
Location: East Coast US

Re: Tease AI: Community-Created Scripts

Post by marspank »

png: In your edge suffer cycle, there is an error because it is looking for #pgn_LoopRounds, but that vocab file does not exist. There is also no #png_LoopRound either that I can see.
Datta. Dayadhvam. Damyata.
png
Explorer At Heart
Explorer At Heart
Posts: 157
Joined: Tue Jun 02, 2015 4:34 pm

Re: Tease AI: Community-Created Scripts

Post by png »

marspank wrote:png: In your edge suffer cycle, there is an error because it is looking for #pgn_LoopRounds, but that vocab file does not exist. There is also no #png_LoopRound either that I can see.
Thank you for the feedback

Are you using the one that I posted directly a while ago or the one in the pack I posted a few days ago ?

because I don't have any #png_LoopRound in my last version

The last version :
Spoiler: show
@NullResponse @SetVar[rounds]=[#DomLevel]
@NullResponse @SetVar[max_rounds]=[rounds] @GotoDommeApathy
(ApathyLevel1)
@NullResponse @ChangeVar[max_rounds]=[rounds]*[1]
@NullResponse @Chance50(inc_rounds)
@NullResponse @Goto(start_suffer)
(ApathyLevel2)
@NullResponse @ChangeVar[max_rounds]=[rounds]*[2]
@NullResponse @Chance50(inc_rounds)
@NullResponse @Goto(start_suffer)
(ApathyLevel3)
@NullResponse @ChangeVar[max_rounds]=[rounds]*[3]
@NullResponse @Chance50(inc_rounds)
@NullResponse @Goto(start_suffer)
(ApathyLevel4)
@NullResponse @ChangeVar[max_rounds]=[rounds]*[4]
@NullResponse @Chance50(inc_rounds)
@NullResponse @Goto(start_suffer)
(ApathyLevel5)
@NullResponse @ChangeVar[max_rounds]=[rounds]*[5]
@NullResponse @Chance66(inc_rounds)
@NullResponse @Goto(start_suffer)
(inc_rounds)
@NullResponse @If[rounds]=[max_rounds]Then(start_suffer)
@NullResponse @ChangeVar[rounds]=[rounds]+[1]
@NullResponse @Chance33(inc_rounds)
@NullResponse @Goto(start_suffer)
(start_suffer)
I think you are enjoying yourself a bit too much right now...
Let's #Play together instead #Grin
Well it will be fun for me at least... #lol
Don't be #Nervous. You know I only give you what you want... #EmoteHappy
Let's start with an edge @Edge
#LetTheEdgeFade
Now let's see you suffer a bit for me @CBT
#EmoteMoan it feels so right when your #Hurt yourself for me like that! #Emote
Such a good #PetName
To reward you let's... @Chance50(cbt_again)
do another edge! #Grin @Edge
#LetTheEdgeFade
I am such a #Kind #DomHonorific @Goto(before_loop)
(cbt_again)
make you please me by #Hurting yourself a bit more #lol @CBT
I am such a #Mean #DomHonorific #Grin @Goto(before_loop)
(before_loop)
Time to #RelaxAndBreathe a bit and check a few of your lewd #Pictures #PetName, you can #Stroke slowly if you want to @ShowLocalImage @Wait(20)
Interesting what you can find on a pervert's computer... @ShowLocalImage @Wait(20)
I #Love looking around like that #lol @ShowLocalImage @Wait(20)
Ok enough rest! @Goto(edge_cbt_loop)
(edge_cbt_loop)
@NullResponse @ChangeVar[rounds]=[rounds]-[1]
@NullResponse @If[rounds]<[0]Then(stop_loop)
#pgn_LoopRounds @Chance25(edge_cbt_loop_cbt)
#StartStroking and #ReachTheEdge @Edge
#LetTheEdgeFade @Goto(edge_cbt_loop)
(edge_cbt_loop_cbt)
@NullResponse @CBT @Goto(edge_cbt_loop)
(stop_loop)
#ThatsEnough for now let's get back to where we were... #Grin
@End
@Info The loop of suffering. the dom will make you edge then CBT then start a loop with a random chance of either edge or CBT. the length of the loop is random between the level of the dom and level od the dom / ampathy. Meaning for a level 3 dom with 4 empathy between 3 and 12 rounds.
User avatar
marspank
Explorer At Heart
Explorer At Heart
Posts: 840
Joined: Mon Sep 19, 2011 12:11 am
Gender: Male
Sexual Orientation: Straight
I am a: Submissive
Location: East Coast US

Re: Tease AI: Community-Created Scripts

Post by marspank »

png wrote:
marspank wrote:png: In your edge suffer cycle, there is an error because it is looking for #pgn_LoopRounds, but that vocab file does not exist. There is also no #png_LoopRound either that I can see.
Thank you for the feedback

Are you using the one that I posted directly a while ago or the one in the pack I posted a few days ago ?

because I don't have any #png_LoopRound in my last version

The last version :
Spoiler: show
@NullResponse @SetVar[rounds]=[#DomLevel]
@NullResponse @SetVar[max_rounds]=[rounds] @GotoDommeApathy
(ApathyLevel1)
@NullResponse @ChangeVar[max_rounds]=[rounds]*[1]
@NullResponse @Chance50(inc_rounds)
@NullResponse @Goto(start_suffer)
(ApathyLevel2)
@NullResponse @ChangeVar[max_rounds]=[rounds]*[2]
@NullResponse @Chance50(inc_rounds)
@NullResponse @Goto(start_suffer)
(ApathyLevel3)
@NullResponse @ChangeVar[max_rounds]=[rounds]*[3]
@NullResponse @Chance50(inc_rounds)
@NullResponse @Goto(start_suffer)
(ApathyLevel4)
@NullResponse @ChangeVar[max_rounds]=[rounds]*[4]
@NullResponse @Chance50(inc_rounds)
@NullResponse @Goto(start_suffer)
(ApathyLevel5)
@NullResponse @ChangeVar[max_rounds]=[rounds]*[5]
@NullResponse @Chance66(inc_rounds)
@NullResponse @Goto(start_suffer)
(inc_rounds)
@NullResponse @If[rounds]=[max_rounds]Then(start_suffer)
@NullResponse @ChangeVar[rounds]=[rounds]+[1]
@NullResponse @Chance33(inc_rounds)
@NullResponse @Goto(start_suffer)
(start_suffer)
I think you are enjoying yourself a bit too much right now...
Let's #Play together instead #Grin
Well it will be fun for me at least... #lol
Don't be #Nervous. You know I only give you what you want... #EmoteHappy
Let's start with an edge @Edge
#LetTheEdgeFade
Now let's see you suffer a bit for me @CBT
#EmoteMoan it feels so right when your #Hurt yourself for me like that! #Emote
Such a good #PetName
To reward you let's... @Chance50(cbt_again)
do another edge! #Grin @Edge
#LetTheEdgeFade
I am such a #Kind #DomHonorific @Goto(before_loop)
(cbt_again)
make you please me by #Hurting yourself a bit more #lol @CBT
I am such a #Mean #DomHonorific #Grin @Goto(before_loop)
(before_loop)
Time to #RelaxAndBreathe a bit and check a few of your lewd #Pictures #PetName, you can #Stroke slowly if you want to @ShowLocalImage @Wait(20)
Interesting what you can find on a pervert's computer... @ShowLocalImage @Wait(20)
I #Love looking around like that #lol @ShowLocalImage @Wait(20)
Ok enough rest! @Goto(edge_cbt_loop)
(edge_cbt_loop)
@NullResponse @ChangeVar[rounds]=[rounds]-[1]
@NullResponse @If[rounds]<[0]Then(stop_loop)
#pgn_LoopRounds @Chance25(edge_cbt_loop_cbt)
#StartStroking and #ReachTheEdge @Edge
#LetTheEdgeFade @Goto(edge_cbt_loop)
(edge_cbt_loop_cbt)
@NullResponse @CBT @Goto(edge_cbt_loop)
(stop_loop)
#ThatsEnough for now let's get back to where we were... #Grin
@End
@Info The loop of suffering. the dom will make you edge then CBT then start a loop with a random chance of either edge or CBT. the length of the loop is random between the level of the dom and level od the dom / ampathy. Meaning for a level 3 dom with 4 empathy between 3 and 12 rounds.

It is in there. Highlighted it in Red

Loving some of the new mechanics you added. Even went to get some JOI videos to watch when she steps out. :-P.
Datta. Dayadhvam. Damyata.
png
Explorer At Heart
Explorer At Heart
Posts: 157
Joined: Tue Jun 02, 2015 4:34 pm

Re: Tease AI: Community-Created Scripts

Post by png »

marspank wrote: It is in there. Highlighted it in Red

Loving some of the new mechanics you added. Even went to get some JOI videos to watch when she steps out. :-P.
Wow thanks I looked for png_ instead of pgn_ and indeed even without the typo I have no idea what it's doing there... It should be a @NullResponse

I haven't tested this one and my dom seems to avoid it somehow :(

The updated script :
Spoiler: show
@NullResponse @SetVar[rounds]=[#DomLevel]
@NullResponse @SetVar[max_rounds]=[rounds] @GotoDommeApathy
(ApathyLevel1)
@NullResponse @ChangeVar[max_rounds]=[rounds]*[1]
@NullResponse @Chance50(inc_rounds)
@NullResponse @Goto(start_suffer)
(ApathyLevel2)
@NullResponse @ChangeVar[max_rounds]=[rounds]*[2]
@NullResponse @Chance50(inc_rounds)
@NullResponse @Goto(start_suffer)
(ApathyLevel3)
@NullResponse @ChangeVar[max_rounds]=[rounds]*[3]
@NullResponse @Chance50(inc_rounds)
@NullResponse @Goto(start_suffer)
(ApathyLevel4)
@NullResponse @ChangeVar[max_rounds]=[rounds]*[4]
@NullResponse @Chance50(inc_rounds)
@NullResponse @Goto(start_suffer)
(ApathyLevel5)
@NullResponse @ChangeVar[max_rounds]=[rounds]*[5]
@NullResponse @Chance66(inc_rounds)
@NullResponse @Goto(start_suffer)
(inc_rounds)
@NullResponse @If[rounds]=[max_rounds]Then(start_suffer)
@NullResponse @ChangeVar[rounds]=[rounds]+[1]
@NullResponse @Chance33(inc_rounds)
@NullResponse @Goto(start_suffer)
(start_suffer)
I think you are enjoying yourself a bit too much right now...
Let's #Play together instead #Grin
Well it will be fun for me at least... #lol
Don't be #Nervous. You know I only give you what you want... #EmoteHappy
Let's start with an edge @Edge
#LetTheEdgeFade
Now let's see you suffer a bit for me @CBT
#EmoteMoan it feels so right when your #Hurt yourself for me like that! #Emote
Such a good #PetName
To reward you let's... @Chance50(cbt_again)
do another edge! #Grin @Edge
#LetTheEdgeFade
I am such a #Kind #DomHonorific @Goto(before_loop)
(cbt_again)
make you please me by #Hurting yourself a bit more #lol @CBT
I am such a #Mean #DomHonorific #Grin @Goto(before_loop)
(before_loop)
Time to #RelaxAndBreathe a bit and check a few of your lewd #Pictures #PetName, you can #Stroke slowly if you want to @ShowLocalImage @Wait(20)
Interesting what you can find on a pervert's computer... @ShowLocalImage @Wait(20)
I #Love looking around like that #lol @ShowLocalImage @Wait(20)
Ok enough rest! @Goto(edge_cbt_loop)
(edge_cbt_loop)
@NullResponse @ChangeVar[rounds]=[rounds]-[1]
@NullResponse @If[rounds]<[0]Then(stop_loop)
@NullResponse @Chance25(edge_cbt_loop_cbt)
#StartStroking and #ReachTheEdge @Edge
#LetTheEdgeFade @Goto(edge_cbt_loop)
(edge_cbt_loop_cbt)
@NullResponse @CBT @Goto(edge_cbt_loop)
(stop_loop)
#ThatsEnough for now let's get back to where we were... #Grin
@End
@Info The loop of suffering. the dom will make you edge then CBT then start a loop with a random chance of either edge or CBT. the length of the loop is random between the level of the dom and level od the dom / ampathy. Meaning for a level 3 dom with 4 empathy between 3 and 12 rounds.
I did some corrections on my dom and I am adding some more scripts (kneeling, worship, ABDL, using a marker) so I'll release an updated version later this week once 1885 answered my questions in the main thread
User avatar
marspank
Explorer At Heart
Explorer At Heart
Posts: 840
Joined: Mon Sep 19, 2011 12:11 am
Gender: Male
Sexual Orientation: Straight
I am a: Submissive
Location: East Coast US

Re: Tease AI: Community-Created Scripts

Post by marspank »

I will then remove it. I think it might have started as something to say...

on to the next round
let's try that again
hmm.. edge or ballbust this time?

etc.


I look forward to the future scripts and seeing what they offer.
Datta. Dayadhvam. Damyata.
png
Explorer At Heart
Explorer At Heart
Posts: 157
Joined: Tue Jun 02, 2015 4:34 pm

Re: Tease AI: Community-Created Scripts

Post by png »

marspank wrote:I will then remove it. I think it might have started as something to say...

on to the next round
let's try that again
hmm.. edge or ballbust this time?

etc.


I look forward to the future scripts and seeing what they offer.
I ll check it a bit more in detail later to see how it executes. It was my first script and I run in quite a lot of bugs and missing features back then so it might need some rework

Anyway thank you for your feedback, let me know if you have remarks about my other scripts as well so I can adjust them if needed
kzero9
Curious Newbie
Curious Newbie
Posts: 1
Joined: Fri Jun 12, 2015 8:17 pm

Re: Tease AI: Community-Created Scripts

Post by kzero9 »

Hi,

I finally got some time to work on a script myself, so I just created an Account to post this here. (By the way thank you very much 1885 for the hard work).

So this is my first try at writing something like this. I really like the versatility of the whole Tease AI program so I wanted to include one of the different features and decided to write a script, where the domme asks the user to play the slots game a couple of times and report the colors of the results to her. Based on those the user then has to do some tasks.

I focused mainly on finishing all the different branches and not so much the vocabulary, so there is not much variety in the dommes sentences yet. But if you guys like it, I may work on that later. Or someone else does.

So here it is:
Spoiler: show
#StopStroking @StopStroking
Why don't we test your luck a little bit? @CheckFlag(Slotmachine_kzero9)
Did you know, this program includes a nice little slots game?
Have you ever tried it yet?
[yes] Good, so you know how it works. @Goto(Rules)
[no] You should totally check it out then. @Goto(CheckItOut)
@DifferentAnswer Yes or no #PetName?
(Slotmachine_kzero9)
I want you to start up that slots game for me.
You know how this works.
@Goto(StartGame)
(CheckItOut)
Here are some tokens for you to play with. @Add5Tokens
Just play a few rounds and then come back to me.
[no money, no tokens, out of money, out of tokens] Seems like you're not so lucky today. @Goto(BadLuck)
[enough, finished, back, done, stop] Fine. Let's make this a little bit more interesting. @Goto(Rules)
@DifferentAnswer Are you out of money or did you play enough?
@Goto(StartGame)
(BadLuck)
That may be bad for you considering the game I have planned for you...
... but good for me on the other hand.
@Goto(Rules)
(Rules)
I want you to play the slots game again. @SetFlag(Slotmachine_kzero9)
Just 1 token each turn, so we do not run out of money too soon.
But this time I want you to report the outcome of each roll to me.
The different types of cards earn you different 'rewards'
for every golden card you earn yourself an edge
for silver cards you get to stroke
and if you get a bronze card you are going to smack your balls for me.
Simple, right? Lets get started. @Goto(StartGame)
(StartGame)
Here are some more tokens, just in case. @Add5Tokens
Come on, pull the trigger for me. @SetVar[RollCount_kzero9]=[0]
@Goto(NextTurn)
(NextTurn)
@ChangeVar[RollCount_kzero9]=[RollCount_kzero9]+[1]
What did you roll?
[bronze bronze bronze] I guess that is some sort of luck, too @Goto(3Bronze)
[silver silver silver] Nice roll @Goto(3Silver)
[gold gold gold] That's my boy @Goto(3Gold)
[bronze bronze silver, bronze silver bronze, silver bronze bronze] Let's see what we can do with that @Goto(2Bronze1Silver)
[bronze silver silver, silver bronze silver, silver silver bronze] Could be worse, right? @Goto(2Silver1Bronze)
[bronze bronze gold, bronze gold bronze, gold bronze bronze] I see some gold in there @Goto(2Bronze1Gold)
[bronze gold gold, gold bronze gold, gold gold bronze] Not a bad effort @Goto(2Gold1Bronze)
[silver silver gold, silver gold silver, gold silver silver] That looks pretty shiny @Goto(2Silver1Gold)
[silver gold gold, gold silver gold, gold gold silver] Almost a perfect roll @Goto(2Gold1Silver)
[bronze silver gold, bronze gold silver, silver bronze gold, silver gold bronze, gold bronze silver, gold silver bronze] Oh, that's pretty standard @Goto(1Each)
@DifferentAnswer Just tell me the colour of the three cards, like 'bronze bronze silver' for example
(3Bronze)
For this roll, your balls earn a real treat.
I want you to smack them 50 times; start off with light taps and get harder and harder towards the end.
[Done] I hope, you still consider yourself lucky.
@AcceptAnswer I hope, you still consider yourself lucky.
@Goto(CheckForEnd)
(3Silver)
You really earned some stroking for this.
Give me 50 Strokes however you like.
Make them feel as good as you can.
[Done] Let's see if you can roll that again.
@AcceptAnswer Let's see if you can roll that again.
@Goto(CheckForEnd)
(3Gold)
I knew you were the lucky type.
Get to the edge for me once @Edge
#LetTheEdgeFade @Wait(30)
Ready for the next one? Edge again @Edge
#LetTheEdgeFade @Wait(15)
And edge one last time @Edge
I hope you enjoyed this
You won't get this roll very often.
@Goto(CheckForEnd)
(2Bronze1Silver)
First, give those balls some attention @CBTBalls
Now give me 10 really slow strokes.
[Done] I hope it distracts you from the pain.
@AcceptAnswer I hope it distracts you from the pain.
But we still have a bronze card to cash in. @CBTBalls
Ok, let's move on
@Goto(CheckForEnd)
(2Silver1Bronze)
Let's start with 10 normal strokes.
[Done] Remember this feeling, but first...
@AcceptAnswer Remember this feeling, but first...
Some pain @CBTBalls
Good, you earned 10 more strokes, but make them quick this time.
[Done] Let's move on.
@AcceptAnswer Let's move on.
@Goto(CheckForEnd)
(2Bronze1Gold)
But first... @CBTBalls
Hmm, I think you should punish your balls some more before you get to the edge @CBTBalls
Now you've earned yourself that edge.
Get there as fast as you can @Edge
#LetTheEdgeFade
@Goto(CheckForEnd)
(2Gold1Bronze)
Give me the first edge right away. @Edge
#LetTheEdgeFade
Now, let's turn to those balls. @CBTBalls
Finally, you get to edge again. @Edge
#LetTheEdgeFade
@Goto(CheckForEnd)
(2Silver1Gold)
Why don't you start with 10 slow strokes.
[Done] Good.
@AcceptAnswer Good
Follow them up with 10 really fast ones. But don't edge yet.
[Done] Well done.
@AcceptAnswer Well done.
I know you've been waiting for this
Edge for me now @Edge
#LetTheEdgeFade
@Goto(CheckForEnd)
(2Gold1Silver)
Here's your reward.
Give me the first edge @Edge
#LetTheEdgeFade
Ok, I don't want this to be too easy for you
Before you get your second edge, I want you to get completely soft.
[soft, done] Good, stroke it 10 times to get it hard again
@DifferentAnswer Are you soft already?
Now you can get to the edge again @Edge
#LetTheEdgeFade
@Goto(CheckForEnd)
(1Each)
Stroke for me, while I think about something @Wait(60)
Ok, stop.
@Chance50(EdgeForMe)
I don't think that such a common roll deserves an edge, sorry.
Why don't you move right on to your balls. @CBTBalls
@Goto(CheckForEnd)
(EdgeForMe)
I decided not to be mean.
You deserved it after all.
So get to the edge now @Edge
#LetTheEdgeFade
Still, your balls owe me some attention @CBTBalls
@Goto(CheckForEnd)
(CheckForEnd)
@If[RollCount_kzero9]>=[5]Then(End)
Roll again for me @Goto(NextTurn)
(End)
Ok, that is enough gambling for today.
We don't want you to get addicted to something else than me, do we?
@End
@Info A little game that utilizes the slots game to determine what the player has to do
pepsifreak
Explorer At Heart
Explorer At Heart
Posts: 145
Joined: Fri May 08, 2009 8:50 pm
Gender: Male
Sexual Orientation: Straight

Re: Tease AI: Community-Created Scripts

Post by pepsifreak »

Hey png I came across a couple errors during "png cum eating" and I think I managed to track them down for you.

(ruin_to_eat) can error because there is no Always Allows/Ruins cases set up.

Updated section:
Spoiler: show

Code: Select all

(ruin_to_eat)@NullResponse @GotoDommeOrgasm(Never Allows)@NullResponse @Goto(last scooping)(Rarely Allows)@NullResponse @Chance90(last scooping)@NullResponse @GotoDommeRuin(Sometimes Allows)@NullResponse @Chance75(last scooping)@NullResponse @GotoDommeRuin(Often Allows)@NullResponse @Chance50(last scooping)@NullResponse @GotoDommeRuin(Always Allows)@NullResponse @Chance25(last scooping)@NullResponse @GotoDommeRuin(Never Ruins)@NullResponse @Goto(last scooping)(Rarely Ruins)@NullResponse @Chance90(last scooping)@NullResponse @Goto(do_ruin)(Sometimes Ruins)@NullResponse @Chance75(last scooping)@NullResponse @Goto(do_ruin)(Often Ruins)@NullResponse @Chance50(last scooping)@NullResponse @Goto(do_ruin)(Always Ruins)@NullResponse @Chance25(last scooping)@NullResponse @Goto(do_ruin)

Then down in (do_ruin) the yes or no doesn't have an @DifferentAnswer which errors.

Updated Section:
Spoiler: show

Code: Select all

(do_ruin)#Edge @EdgeToRuinHoldNow you have to lick all your mess for me! #lolDid you eat it all ?[yes]Good #PetName! I am so proud of you! #Grin @Goto(do_ruin_done)[no]You chicken! #lol @Goto(do_ruin_punishment)@DifferentAnswer Did you or not?
User avatar
Vinc
Explorer At Heart
Explorer At Heart
Posts: 213
Joined: Sat Oct 29, 2011 10:21 pm
Gender: Male
Sexual Orientation: Straight

Re: Tease AI: Community-Created Scripts

Post by Vinc »

Hey kzero9

great idea. Habe you made bugfixes yet? And where to add this? module?
png
Explorer At Heart
Explorer At Heart
Posts: 157
Joined: Tue Jun 02, 2015 4:34 pm

Re: Tease AI: Community-Created Scripts

Post by png »

pepsifreak wrote:Hey png I came across a couple errors during "png cum eating" and I think I managed to track them down for you.

(ruin_to_eat) can error because there is no Always Allows/Ruins cases set up.

Updated section:
Spoiler: show

Code: Select all

(ruin_to_eat)@NullResponse @GotoDommeOrgasm(Never Allows)@NullResponse @Goto(last scooping)(Rarely Allows)@NullResponse @Chance90(last scooping)@NullResponse @GotoDommeRuin(Sometimes Allows)@NullResponse @Chance75(last scooping)@NullResponse @GotoDommeRuin(Often Allows)@NullResponse @Chance50(last scooping)@NullResponse @GotoDommeRuin(Always Allows)@NullResponse @Chance25(last scooping)@NullResponse @GotoDommeRuin(Never Ruins)@NullResponse @Goto(last scooping)(Rarely Ruins)@NullResponse @Chance90(last scooping)@NullResponse @Goto(do_ruin)(Sometimes Ruins)@NullResponse @Chance75(last scooping)@NullResponse @Goto(do_ruin)(Often Ruins)@NullResponse @Chance50(last scooping)@NullResponse @Goto(do_ruin)(Always Ruins)@NullResponse @Chance25(last scooping)@NullResponse @Goto(do_ruin)

Then down in (do_ruin) the yes or no doesn't have an @DifferentAnswer which errors.

Updated Section:
Spoiler: show

Code: Select all

(do_ruin)#Edge @EdgeToRuinHoldNow you have to lick all your mess for me! #lolDid you eat it all ?[yes]Good #PetName! I am so proud of you! #Grin @Goto(do_ruin_done)[no]You chicken! #lol @Goto(do_ruin_punishment)@DifferentAnswer Did you or not?
Thank you I'll fix that!

There was not always allow in the doc so I forgot them since I never used that option myself :p

Did you have fun with it? I'm passing too much time writing scripts and not enough using the program so feedback on their quality is always welcome to see what works and what doesn't
png
Explorer At Heart
Explorer At Heart
Posts: 157
Joined: Tue Jun 02, 2015 4:34 pm

Re: Tease AI: Community-Created Scripts

Post by png »

Ok before I post the 2nd version of my domina here is a very big script I made which I am not so sure about...

The concept : The dom ask you to play the orgasm roulette. She gives you a chance to cum. If you play she roll the roulette and see your fate. If you refuse the odds she will make them higher. The higher the odd the worse the punishment if you loose. What are you ready to risk to get an early release? This script ignores all your orgasm/ruining settings except if you are never allowed to orgasm. The goal is to give you a potentially very costly exit door if you get ready to bet on your release :)

As I am not really a gambler I can't tell if the odds are right or not and if the idea works at all...
Also if some of you are in "never allow orgasm" I'd like to know what you consider a reward for winning to try to make it work for you too

This is a module so add it in the module directory (I called it png roulette.txt)
Spoiler: show
@NullResponse @GotoDommeApathy
(ApathyLevel1)
@NullResponse @SetVar[png_apathy_lvl]=[1] @Goto(resume_1)
(ApathyLevel2)
@NullResponse @SetVar[png_apathy_lvl]=[2] @Goto(resume_1)
(ApathyLevel3)
@NullResponse @SetVar[png_apathy_lvl]=[3] @Goto(resume_1)
(ApathyLevel4)
@NullResponse @SetVar[png_apathy_lvl]=[4] @Goto(resume_1)
(ApathyLevel5)
@NullResponse @SetVar[png_apathy_lvl]=[5] @Goto(resume_1)
(resume_1)
Ok stop stroking @StopStroking @CheckFlag(png__roulette_rules)
I wonder if you're a gambler... #Grin
Anf if you are, what could I make you bet for some release... #lol
I have a game I call the <i>orgasm roulette</i> #Emote
It's pretty easy
I'll tell you the odds you have to cum
The lower the chance, the easier the loosing tasks will be
And of course the higher the chance, the harder they'll be #Grin
But to be more fun, you won't know what is the loosing wager #lol
For exemple, I could give you a 10% chance to cum but if you loose I'll make you edge 2 times or maybe hit your cock a few times
Quite easy
But if I offer you a 50% chance to orgasm, the loosing end could be no touching for 3 days
Each time I offer you an odd, you can refuse it and I'll raise it
But I'll never lower it #lol
And of course if you reach the higher odd you can't refuse anymore #Grin
So choose wisely... @SetFlag(png__roulette_rules)
(roulette_ask_play)
Do you want to play?
[yes]Oh we have a gambler... I hope you don't go bankrupt too fast #lol @Goto(roulette_play)
[no]I see... Too afraid to gamble #Emote @Goto(roulette_convince)
(roulette_play)
@NullResponse @Chance10(roulette_50)
@NullResponse @Chance20(roulette_33)
@NullResponse @Chance30(roulette_25)
@NullResponse @Chance40(roulette_20)
@NullResponse @Goto(roulette_10)
(roulette_10)
Ok I offer you 1 chance out of 10 to cum...
Do you take it? #Grin
[yes]A low risk bet, you are cautious today #lol
[no]Oh you want me to raise the odds... @Chance20(roulette_33) @Goto(roulette_20)
@DifferentAnswer take it, yes or no?
@NullResponse @SetVar[png_roulette_odd]=[10]
Alright let's play then... @Chance10(roulette_cum)
@NullResponse @Chance11(roulette_cbt)
@NullResponse @Chance13(roulette_clamps)
@NullResponse @Chance14(roulette_marker)
@NullResponse @Chance16(roulette_panties)
@NullResponse @Chance20(roulette_out)
@NullResponse @Chance25(roulette_writting)
@NullResponse @Goto(roulette_edge)
(roulette_20)
This time I offer you a 20% chance to release #Grin
Ready to risk it?
[yes]Not very risky but still a godd chance #Grin
[no]Oh going for a high wager I think #lol @Chance50(roulette_33) @Goto(roulette_25)
@DifferentAnswer take it, yes or no?
@NullResponse @SetVar[png_roulette_odd]=[20]
Alright let's play then... @Chance20(roulette_cum)
@NullResponse @Chance25(roulette_cbt)
@NullResponse @Chance33(roulette_clamps)
@NullResponse @Chance50(roulette_out)
@NullResponse @Goto(roulette_edge)
(roulette_25)
I wonder if 1 chance out of 4 would be enough to tempt you #Grin
Is it?
[yes]Not very risky but still a godd chance #Grin
[no]Now that's a true gambler! #lol @Chance50(roulette_50) @Goto(roulette_33)
@DifferentAnswer take it, yes or no?
@NullResponse @SetVar[png_roulette_odd]=[25]
Alright let's play then... @Chance25(roulette_cum)
@NullResponse @Chance33(roulette_cbt)
@NullResponse @Chance50(roulette_out)
@NullResponse @Goto(roulette_edge)
(roulette_33)
Time to get serious with 1 chance out of 3! #Grin
Will you take it or go or a "all in" gamble? #lol
[yes]I think you got scared and rightly so #Grin
[no]Alright all for nothing then! #Grin @Goto(roulette_50)
@DifferentAnswer take it, yes or no?
@NullResponse @SetVar[png_roulette_odd]=[33]
Alright let's play then... @Chance33(roulette_cum)
@NullResponse @Chance50(roulette_out)
@NullResponse @Chance50(roulette_cbt)
@NullResponse @Goto(roulette_edge)
(roulette_50)
Now it's the real deal..
head or tail..
1 chance out of 2...
You can't back off!
@NullResponse @SetVar[png_roulette_odd]=[50]
Getting cold sweat? #lol @Chance50(roulette_cum)
@NullResponse @Chance50(roulette_edge) @Goto(roulette_out)
(roulette_cum)
Alright before giving you the result, let's build you up a bit... #Grin
Start stroking slowly
Keep going
Feel the pressure building in your cock
And in your brain #lol
Speed up a bit
Did you win or not?
Who knows?
Oh wait, <i>I</i> Know! #lol
Get faster!
And now time to reach the edge and finally learn your fate... @EdgeHold
@NullResponse @GotoDommeOrgasm
(Never Allows)
You didn't think I would allow you to cum did you?
Even thought you won... #lol
Yes I can be cruel sometimes but that's what you like and deserve!
@End
(Rarely Allows)(Sometimes Allows)(Often Allows)(Always Allows)
@RapidTextOn Got you! #lol
Cum for me #PetName!!! #EmoteHappy @RapidTextOff
[came, finished, did] Good #Grin
[thank, gracias, merci, grateful, good, amazing, incredible] You're welcome #PetName #Grin
@AcceptAnswer Hehe just calm down now @UpdateOrgasm
You won this time! Aren't you a lucky #PetName?
Well we aren't done yet... #lol
I don't care if you already came!
I haven't had my share of fun yet! #Grin
@End
(roulette_cbt)
Alright before giving you the result, let's build you up a bit... #Grin
Start stroking slowly
Keep going
Feel the pressure building in your cock
And in your brain #lol
Speed up a bit
Did you win or not?
Who knows?
Oh wait, <i>I</i> Know! #lol
Get faster!
And now time to reach the edge and finally learn your fate... @EdgeHold
Oups you lost! #lol
Time to pay the price
A very painful price #Grin
@NullResponse @SetVar[png_rounds]=[png_apathy_lvl]
@NullResponse @ChangeVar[png_rounds]=[png_rounds]*[png_roulette_odd]
@NullResponse @ChangeVar[png_rounds]=[png_rounds]/[20]
(roulette_cbt_loop)
@NullResponse @If[png_rounds]<=[0]Then(roulette_cbt_loop_done)
@NullResponse @CBT
@NullResponse @ChangeVar[png_rounds]=[png_rounds]-[1]
@NullResponse @Goto(roulette_cbt_loop)
(roulette_cbt_loop_done)
Alright, your debt is paid! #lol
That will probably make you think twice next time you wager to get an early release #Grin
@End
(roulette_clamps)
Alright before giving you the result, let's build you up a bit... #Grin
Start stroking slowly
Keep going
Feel the pressure building in your cock
And in your brain #lol
Speed up a bit
Did you win or not?
Who knows?
Oh wait, <i>I</i> Know! #lol
Get faster!
And now time to reach the edge and finally learn your fate... @EdgeHold
Oups you lost! #lol
Time to pay the price
A very painful price #Grin
@NullResponse @SetVar[png_rounds]=[png_apathy_lvl]
@NullResponse @ChangeVar[png_rounds]=[png_rounds]*[png_roulette_odd]
I want you to fetch some nipple clamps or clothpins and put them on @Wait(30)
They'll have to stay there for the next @ShowVar[png_rounds] minutes!
Even if that session ends before!
That will probably make you think twice next time you wager to get an early release #Grin
@End
(roulette_marker)
Alright before giving you the result, let's build you up a bit... #Grin
Start stroking slowly
Keep going
Feel the pressure building in your cock
And in your brain #lol
Speed up a bit
Did you win or not?
Who knows?
Oh wait, <i>I</i> Know! #lol
Get faster!
And now time to reach the edge and finally learn your fate... @EdgeHold
Oups you lost! #lol
Time to pay the price @CheckFlag(png__marked_cock,png__marked_chest,png__marked_head)
(png__marked_cock)(png__marked_chest)
I want you to write "Looser" on your forehead! #Grin @TempFlag(png__marked_head)
@NullResponse @If[png_apathy_lvl]>=[4]Then(roulette_marker_day)
And I want you to keep it for @ShowVar[png_apathy_lvl] hours after we are done @Goto(roulette_marker_resume)
(roulette_marker_day)
And you will have to keep it for the whole day!
You can only take it off when you wake up tomorrow morning #Emote
(roulette_marker_resume)
I hope You didn't plan to get out #lol
Well if you did the world will know you lost a bet
Maybe They'll ask what it was... #Grin
That will probably make you think twice next time you wager to get an early release #Grin
@End
(png__marked_head)
Since you have already written something on your forehead it will make this one easy..
@NullResponse @If[png_apathy_lvl]>=[4]Then(roulette_marker_day)
I simply want you to keep it for @ShowVar[png_apathy_lvl] hours after we are done @Goto(roulette_marker_resume)
(roulette_marker_day)
You will have to keep it for the whole day!
You can only take it off when you wake up tomorrow morning #Emote @Goto(roulette_marker_resume)
(roulette_panties)
Alright before giving you the result, let's build you up a bit... #Grin
Start stroking slowly
Keep going
Feel the pressure building in your cock
And in your brain #lol
Speed up a bit
Did you win or not?
Who knows?
Oh wait, <i>I</i> Know! #lol
Get faster!
And now time to reach the edge and finally learn your fate... @EdgeHold
Oups you lost! #lol
Time to pay the price
Or to be more exact to wear it! #Grin @CheckFlag(png__no_panties,png__buying_panties,png__panties,png__wear_panties)
Since I don't know if you have any panties or not I'll let you the choice
Either wear panties or go commando without underwear!
Which will it be #PetName?
[panties]Ohoh I'll remember that choice for later too that might gives me some ideas @SetFlag(png__panties) @Goto(roulette_panties_resume)
[commando]I knew you'd chicken out... #EmoteSad @Goto(roulette_commando_resume)
@DifferentAnswer Panties or commando?
(png__no_panties)
Well the penalty should have been to wear panties
But since you refused to do so instead You will have to go without underwear! #Grin @Goto(roulette_commando_resume)
(png__buying_panties)
Once you panties arrive I want you to wear them! #Grin @Goto(roulette_panties_resume)
(png__panties)
The penalty will be to wear panties... @Goto(roulette_panties_resume)
(png__wear_panties)
Since you are already wearing panties this one should be an easy one for you
You will have to wear panties @Goto(roulette_panties_resume)
(roulette_panties_resume)
@NullResponse @If[png_apathy_lvl]=[1]Then(roulette_panties_1day)
I want you to do it for @ShowVar[png_apathy_lvl] days! #lol
I hope you have several pairs ready
Otherwise it might be a good idea to go shopping while you are punished
Or just wash them everynight
I wouldn't want you to get caught in dirty underwear #Grin
That will probably make you think twice next time you wager to get an early release #Grin
@End
(roulette_panties_1day)
And I want you to do it for a whole day! #lol
You will put them on first thing in the morning and will not them off until you go to sleep
Hmmm...
Forget that!
You will wear them to sleep too! #Grin
And don't forget to wash them afterward
That will probably make you think twice next time you wager to get an early release #Grin
@End
(roulette_commando_resume)
@NullResponse @SetVar[png_commando_delay]=[png_apathy_lvl]
@NullResponse @ChangeVar[png_commando_delay]=[png_commando_delay]*[2]
I want you to do it for @ShowVar[png_commando_delay] days! #lol
I hope your trousers burn your crotch! #Grin
Otherwise it wouldn't really be a penalty game I guess
That will probably make you think twice next time you wager to get an early release #Grin
@End
(roulette_writting)
Alright before giving you the result, let's build you up a bit... #Grin
Start stroking slowly
Keep going
Feel the pressure building in your cock
And in your brain #lol
Speed up a bit
Did you win or not?
Who knows?
Oh wait, <i>I</i> Know! #lol
Get faster!
And now time to reach the edge and finally learn your fate... @EdgeHold
Oups you lost! #lol
Time to pay the price
Or more precisely to write it... #Grin @RapidTextOn
(roulette_writing_start)
@NullResponse @SetVar[png_rounds]=[png_apathy_lvl]
@NullResponse @ChangeVar[png_rounds]=[png_rounds]*[png_roulette_odd]
@NullResponse @ChangeVar[png_rounds]=[png_rounds]/[20]
@NullResponse @WritingTask(I shouldn't wager my orgasms so lightly)
@NullResponse @ChangeVar[png_rounds]=[png_rounds]-[1]
@NullResponse @If[png_rounds]<=[0]Then(roulette_writing_done)
@NullResponse @WritingTask(I am a stupid #PetName)
@NullResponse @ChangeVar[png_rounds]=[png_rounds]-[1]
@NullResponse @If[png_rounds]<=[0]Then(roulette_writing_done)
@NullResponse @WritingTask(I am a looser!)
@NullResponse @ChangeVar[png_rounds]=[png_rounds]-[1]
@NullResponse @If[png_rounds]<=[0]Then(roulette_writing_done)
@NullResponse @WritingTask(I don't deserve to win any game agasint #DomHonorific #DomName)
@NullResponse @ChangeVar[png_rounds]=[png_rounds]-[1]
@NullResponse @If[png_rounds]<=[0]Then(roulette_writing_done)
@NullResponse @WritingTask(#DomHonorific #DomName should deny me orgasms forever)
@NullResponse @ChangeVar[png_rounds]=[png_rounds]-[1]
@NullResponse @If[png_rounds]<=[0]Then(roulette_writing_done)
@NullResponse @WritingTask(Loosing games against #DomHonorific #DomName is only logical since I am a looser)
@NullResponse @ChangeVar[png_rounds]=[png_rounds]-[1]
@NullResponse @If[png_rounds]<=[0]Then(roulette_writing_done)
@NullResponse @WritingTask(I should give total control of my #Cock to #DomHonorific #DomName for my own good)
@NullResponse @ChangeVar[png_rounds]=[png_rounds]-[1]
@NullResponse @If[png_rounds]<=[0]Then(roulette_writing_done)
@NullResponse @WritingTask(Taking shortcuts is always a bad idea, all I need to do is give #DomHonorific #DomName pleasure)
@NullResponse @ChangeVar[png_rounds]=[png_rounds]-[1]
(roulette_writing_done)
@RapidTextOff Alright, your debt is paid! #lol
That will probably make you think twice next time you wager to get an early release #Grin
@End
(Failed Writing Task)
Wow you failed a writing task...
And you had @ShowVar[png_rounds] left afterward...
Doesn't matter I'll make you start from the begining!
And I'll make you redo it until you are doing it right @Goto(roulette_writing_start)
(roulette_edge)
Alright before giving you the result, let's build you up a bit... #Grin
Start stroking slowly
Keep going
Feel the pressure building in your cock
And in your brain #lol
Speed up a bit
Did you win or not?
Who knows?
Oh wait, <i>I</i> Know! #lol
Get faster!
And now time to reach the edge and finally learn your fate... @EdgeHold
Oups you lost! #lol
Well only one loosy edge is not enough to make you pay the price of defeat...
@NullResponse @SetVar[png_rounds]=[png_apathy_lvl]
@NullResponse @ChangeVar[png_rounds]=[png_rounds]*[png_roulette_odd]
@NullResponse @SetVar[png_roulette_score]=[png_rounds]
@NullResponse @ChangeVar[png_rounds]=[png_rounds]/[20]
(roulette_edge_loop)
@NullResponse @If[png_rounds]<=[0]Then(roulette_edge_loop_done)
#Edge @ShowVar[png_rounds] @Edge
#LetTheEdgeFade
@NullResponse @ChangeVar[png_rounds]=[png_rounds]-[1]
@NullResponse @Goto(roulette_edge_loop)
(roulette_edge_loop_done)
@NullResponse @If[png_roulette_score]==[250]Then(roulette_edge_very_very_long)
@NullResponse @If[png_roulette_score]>=[125]Then(roulette_edge_very_long)
@NullResponse @If[png_roulette_score]>=[99]Then(roulette_edge_long)
(roulette_edge_done)
Alright, your debt is paid! #lol
That will probably make you think twice next time you wager to get an early release #Grin
@End
(roulette_edge_long)
I ll show you what a true edge is
And what holding the edge means! #lol @5MinuteHold
Take deep breath #Grin @Goto(roulette_edge_done)
(roulette_edge_very_long)
I ll show you what a true edge is
And what holding the edge means! #lol @10MinuteHold
Take deep breath #Grin @Goto(roulette_edge_done)
(roulette_edge_very_very_long)
I ll show you what a true edge is
And what holding the edge means! #lol @15MinuteHold
Take deep breath #Grin @Goto(roulette_edge_done)
(roulette_out)
Alright before giving you the result, let's build you up a bit... #Grin
Start stroking slowly
Keep going
Feel the pressure building in your cock
And in your brain #lol
Speed up a bit
Did you win or not?
Who knows?
Oh wait, <i>I</i> Know! #lol
Get faster!
And now time to reach the edge and finally learn your fate... @EdgeHold
Oups you lost! #lol
Time to pay the price @CheckFlag(png__has_chastity)
Do you have a chastity cage #PetName?
[yes] Great that will be fun even for latter @SetFlag(png__have_chastity) @Goto(png__have_chastity)
[no] Then you will have to control yourself without any help... #Grin @Goto(roulette_out_resume)
@DifferentAnswer Do you have one or not?
(roulette_out_resume)
@NullResponse @SetVar[png_roulette_denial]=[png_apathy_lvl]
@NullResponse @ChangeVar[png_roulette_denial]=[png_roulette_denial]*[png_roulette_odd]
@NullResponse @SetVar[png_roulette_score]=[png_roulette_denial]
@NullResponse @ChangeVar[png_roulette_denial]=[png_roulette_denial]/[20]
@NullResponse @If[png_roulette_score]>=[99]Then(roulette_out_denial_days)
I want you to stay locked for @ShowVar[png_roulette_denial] hours! @Goto(roulette_out_done)
(roulette_out_denial_days)
I want you to stay locked for @ShowVar[png_roulette_denial] days! @Goto(roulette_out_done)
(png__has_chastity)
Since you have a #Cage it will probably make this one easier to control #Grin
I want you to lock yourself!
Let me know when you are in your cage
@AcceptAnswer Good! @ChastityOn @Goto(roulette_out_resume)
(roulette_out_done)
You knew you had a harsh price to pay
So it's too late to cry now #EmoteHappy
And well since you cannot stroke yourself for now
I guess I have no use for you...
Come back when your denial period is over #PetName #Grin
That will probably make you think twice next time you wager to get an early release #Grin
Bye @EndTease
@End
(png__roulette_rules)
I feel like playing your fate on dice right now...
Well on the orgasm roulette to be exact @Goto(roulette_ask_play)
(roulette_convince)
I was just looking forward to give you a fair chance at orgasm for once
But it's ok
Just edge for me instead @EdgeHold
Did getting so close make you change your mind? #lol
[yes]I knew I had the <i> right arguments</i> #Grin @Goto(roulette_play)
[no]Well at least I tried #Emote
@DifferentAnswer Do you want to play or not?
Maybe next time you'll be horny enough to try your luck
@End
@Info The dom ask you to play the orgasm roulette. She gives you a chance to cum. If you play she roll the roulette and see your fate. If you refuse the odds she will make them higher. The higher the odd the worse the punishment if you loose. What are you ready to risk to get an early release? This script ignores all your orgasm/ruining settings except if you are never allowed to orgasm. The goal is to give you a potentially very costly exit door if you get ready to bet on your release :)
Thank you
justsomeguy345521
Explorer
Explorer
Posts: 13
Joined: Tue Jun 02, 2015 9:34 pm

Re: Tease AI: Community-Created Scripts

Post by justsomeguy345521 »

Thanks for sharing kzero9 and png. I'll definitely try these out when I have a chance and give feedback.
Siepmann
Explorer
Explorer
Posts: 44
Joined: Fri Oct 14, 2011 6:23 pm
Gender: Male
Sexual Orientation: Straight
I am a: Submissive
Location: Germany

Re: Tease AI: Community-Created Scripts

Post by Siepmann »

kzero9 wrote:Hi,

So this is my first try at writing something like this. I really like the versatility of the whole Tease AI program so I wanted to include one of the different features and decided to write a script, where the domme asks the user to play the slots game a couple of times and report the colors of the results to her. Based on those the user then has to do some tasks.
Thats pretty cool, i like that game.
But it is very easy to cheat, would it be possible to read out the result from the slots game, so you don't have to tell her yourself ?

I only played it once and it seems like the whole script is stopping after the end and nothing else happens unless i ask if i may start stroking again. Maybe i did not wait long enough..?!
Post Reply