The program assumes a Hitachi Magic Wand with the usual two speeds. Needless to say the subject can be restrained or not as long as either they or their partner is able to operate the vibrator.
When the program is activated it will do the following:
1) It first determines a number of cycles for the session, from 10 to 20. This setting typically runs the program for between 10 and 20 minutes. It is easily modified--simply change the numbers in this line: "LET Cycles = INT (RND *10 + 10)." Changing the 10+10, for example, to 15+20, would choose a number of cycles from 20 to 35.
2) Each cycle begins with a "rest" period, anywhere from 10 to 90 seconds. This can be modified in similar fashion in the "Downtime" subroutine based on the desires and response pattern of the user. Of course all parameters can be adjusted based on the user's actual experience creating a situation where the system seems to "learn" just how best to tease and stimulate the user. The time will be displayed on the screen--this is primarily for the benefit of a partner. A solo user, or a partner if desired, should either remove these commands or simply turn the screen away or use a blindfold and follow the sound alerts.
3) This is followed by a "stim" period, heralded by a brief sound alert, instructing the user to activate the vibrator--high pitch tone for Hi speed, lower pitch for Lo speed. As I have the program configured the Stim lasts anywhere from 3 to 20 seconds. Obviously, this should be adjusted based on personal experience in the "Tease" subroutine. The idea is it is not enough to make the user cum but at its longest can come fairly close.
4) The Stim is followed by the next cycle's Rest period of 10-90 seconds, heralded by a brief alert tone instructing the user to turn off the vibe. These cycles of rest and stim will repeat for the number of cycles initially chosen by the program at which time a longer tone will sound alerting the user that the session is completed.
Seems simple enough. But here is the important part:
5) Every time the Stim is activated, there is a 2% chance of orgasm, in the form of 2 minutes of stimulation (designed to be a little too long and as usual easily reconfigured in the "Orgasm" subroutine--it is currently set to 120 seconds. Every time the user feels the vibe start there is a 98% chance it will run for not more than 20 seconds. And a 2% chance it will continue well past the point where she is is likely to cum.
6) Every time the Orgasms is awarded, there is a 20% chance of Forced Orgasms in the form of 5 minutes of stimulation. Which means every time it activates that is a chance it will not only make her cum, but force her to endure extended stimulation after cumming and, it is hoped, force her to cum multiple times. Currently set to 300 seconds (5 minutes) in the "Forced" subroutine--again, easily modifiable.
7) After all cycles are completed, the program presents a readout of total rest time, total stim time, and total run time.
I would *love* to hear how this program works for anyone willing to experiment with it. It can of course be used with the vibe of one's choice, or with one's fingers or any other stimulation source at hand. Associated bondage, self or otherwise, can be as extensive and complex or simple and nonexistent as one likes. Please consider playing with it and posting experiences here or in my e-mail at Mongojerry_2 at Yahoo dot com.
Additional subroutines can be added by the user or requested. There can, for example, be added possibilities for subroutines of rapid (or partially random) on/off cycles or entirely other stimulations such as spankings, floggings, nipple clamps, etc. . .
Code: Select all
CLS
LET Y = 0
LET STIM = 0
LET REST = 0
LET CYCLES = 0
RANDOMIZE TIMER
LET Cycles = INT (RND *10 + 10)
PRINT "Cycles:"; Cycles
SOUND 100, 5
WHILE Y < Cycles
Downtime:
RANDOMIZE TIMER
LET X = INT (RND * 80 + 10)
SOUND 200, 1
PRINT " Rest"; X; "seconds"
Rest = Rest + X
SLEEP (X)
OrgasmCheck:
RANDOMIZE TIMER
IF RND < .02 THEN
RANDOMIZE TIMER
IF RND < .8 THEN
GOSUB Orgasm
ELSE
GOSUB Forced
END IF
ELSE
GOSUB Tease
END IF
Orgasm:
RANDOMIZE TIMER
IF RND > .5 THEN
PRINT "Orgasm! 2 minutes. Speed: Hi"
SOUND 800, 1
ELSE
PRINT "Orgasm! 2 minutes. Speed: Lo"
SOUND 200, 1
END IF
Stim = Stim + 120
SLEEP (120)
GOSUB Advance
Tease:
RANDOMIZE TIMER
LET X = INT (RND * 17 + 3)
RANDOMIZE TIMER
IF RND > .5 THEN
PRINT "Tease"; X; "seconds. Speed: Hi"
SOUND 800, 1
ELSE
PRINT "Tease"; X; "seconds. Speed: Lo"
SOUND 200, 1
END IF
Stim = Stim + X
SLEEP (X)
GOSUB Advance
Forced:
RANDOMIZE TIMER
IF RND > .5 THEN
PRINT "Forced Orgasms! Speed: Hi"
SOUND 800, 1
ELSE
PRINT "Forced Orgasms! Speed: Lo"
SOUND 200, 1
END IF
Stim = Stim + 300
SLEEP (300)
Advance:
Y = Y + 1
WEND
SOUND 100, 20
PRINT "Total Stim Time:"; Stim / 60; "minutes"
PRINT "Total Rest Time:"; Rest / 60; "minutes"
PRINT "Total Run Time:"; (Stim + Rest) /60; "minutes"
END