Software

now the code to upload to the Basic Stamp 2:

this is my tested and working code (version beta):

'{$STAMP BS2}

sw1 VAR Nib ' value of the d-pad switch (pin 0)
sw2 VAR Nib ' value of the button (pin 1)
light VAR Nib ' value of the light sensor (pin 2)
beat VAR Word ' timing of the heart beat
speed VAR Word ' speed of the motor (pin 3)
mojo VAR Word ' amount of sexual drive for the male controller

mojo = 150
process:

HIGH 0 'powers the capacitor
HIGH 1
HIGH 2
HIGH 3
RCTIME 0, 1, sw1
RCTIME 1, 1, sw2
RCTIME 2, 1, light
mojo = mojo MIN 16 'minimum mojo
beat = beat MIN 50 'minimum beat
beat = beat + 5 'beat speed decreases with time
beat = beat - (sw1 * 2) 'beat speed increases with clitronic activation

mojo = mojo MIN 15 + (10 * sw1) + (10 * sw2) - 10 '- light - 1 'new mojo value
'DEBUG ? light
DEBUG ? mojo
DEBUG ? beat
HIGH 3
PULSOUT 3, (mojo*10)
'SEROUT 16, $4054,[ mojo, beat ]
GOTO process