textfiles/sex/sexx.jok

179 lines
7.7 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

Subject: The .plan file of life
Date: 13 Feb 90 11:30:12 GMT
This .plan file is my creation, and it actually resides on
my account at ccmax@eel.cs.ucla.edu
The account I'm using to send this mail to you cannot
(in my opinion) contain this .plan file because I doubt that
the School of Engineering here at UCLA will appreciate it.
I am assuming the reader is familiar with the C language.
You may decide whether it is a bit too sexist and ROT13 it.
So anyways, here's the file ...
PREFACE: I am trying to write a program that enables computers
to engage in sexual intercourse with a willing and able
partner (over a LAN or the Internet?).
In order for me to do that, I must first teach the
programmers writing this code what SEX is. That can
only be done in C (C++ version coming out soon).
So, here it is, excerpts from the book titled:
"SEXX, a brief practical introduction".
Also available are:
1) "SEXX - programmers' HANDbook".
2) "SEXX - programmers' guide".
3) "SEXX - programmers' tools".
4) "SEXX - programmers' manual".
(c) 1990 - Maxx Kisslick's Software Series.
---------------- page 15 ----------------
#include "people.h"
#include "items.h"
#include "places.h"
#include "personalities.h"
procedure sexx( ListOfPeople, ListOfItems )
person *ListOfPeople;
item *ListOfItems;
{
person *PARTNER1 = ListOfPeople,
*PARTNER2 = ListOfPeople->nextVictim;
sexual position; /* sexual is, of course, a special type */
money wallet;
int i;
if ( LENGTH( ListOfPeople ) == 1 ) {
if ( PARTNER1->sex == MALE ) {
if ( SEARCH( ListOfItems, SexDoll ) == TRUE )
ENJOY( PARTNER1, ArtificialT*ts, ArtificialP***y );
else
ENJOY( PARTNER1, YourHand );
} else { /* if it's a FEMALE */
if ( SEARCH( ListOfItems, Vi***tor ) == TRUE )
ENJOY( PARTNER1, GoodVibrations );
else
ENJOY( PARTNER1, YourFinger );
}
} else if ( LENGTH( ListOfPeople ) == 2 ) {
if ( PARTNER1->sex == MALE && PARTNER2->sex == MALE ) {
printf("AIDS ALERT, AIDS ALERT\n");
if ( SEARCH( ListOfItem, Condoms ) == TRUE ) {
ENJOY( PARTNER1, PARTNER2 );
ENJOY( PARTNER2, PARTNER1 ); /* 2 wants to be on the top */
} else {
printf("No glove no Love!?\n");
ENJOY( PARTNER1, PARTNER2 ); /* only once this time */
}
if ( PARTNER1->sex == FEMALE && PARTNER2->sex == FEMALE ) {
position = 69;
ENJOY( PARTNER1, PARTNER2->tongue || PARTNER2->finger);
ENJOY( PARTNER2, PARTNER1->tongue || PARTNER1->finger);
} else {
/* Finally, some good, 'old fashioned' heterosexual sex. */
/* Also, (PARTNER1->sex == FEMALE) - "ladies first", right!? */
switch( PARTNER1->PersonalityType ) {
case NONE: goto( HOME ); /* She ran away, you're too ugly */
break;
case NUN: goto( HOME ); /* Might as well */
break;
case WHORE: wallet = wallet - $50;
/* Or whatever the going rate is these days? */
goto( MOTEL );
ENJOY( PARTNER1, PARTNER2 );
break;
case PRUDE: for(i=0; i < 10; i++ ) {
goto( DINNER );
wallet -= $50;
say("I Love you, dear");
give( GoodNightKiss );
} /* Wow, that was more expensive than the whore */
goto( YourPlace );
ENJOY( PARTNER1, PARTNER2 );
break; /* break up and find someone better */
case CAUTIOUS:
goto( DINNER );
talk( PreviousSexLife );
lie( Haven'tHadSexFor2Years );
goto( YourPlace || MyPlace );
ENJOY?? ( PARTNER1, PARTNER2, WithGloveOn?? );
break;
case CONFUSED:
goto( DINNER );
say( "Lets just be friends" );
GetHerDrunk();
goto( YourPlace ); /* because she's too drunk */
ENJOY( PARTNER1, PARTNER2 );
break;
case MentallyDisturbed:
ENJOY( PARTNER1, PARTNER2 );
goto( MentalHospital );
LockHerUp();
ThrowAwayTheKeys();
break; /* and make sure she stays there */
case WildNkinky:
goto( RESTAURANT ); /* To eat, but not dinner */
Quickie( UnderTableInRestaurant );
Quickie( InTheCarInFrontOfThePoliceStation );
goto( YourPlace || MyPlace );
Quickie( OnTheRoof );
position = 70; /* guess what that is? */
ENJOY( PARTNER1, PARTNER2 );
break; /* Exhausted, taking a break */
case DOMINATRESS:
if ( SEARCH( ListOfItems, WhipsNchains ) == TRUE )
ENJOY( PARTNER1, PARTNER2->TiedUp );
else goto( HOME ); /* No pain, no gain!! */
break;
case ValleyGirl:
say( "OhMyGod, like I'm such a stud" );
/* Valley English?! */
say( "Lets go to my Bel Air Mansion" );
ENJOY( PARTNER1, PARTNER2 );
break;
case ENGINEER:
take( PARTNER1, Plastic surgeon );
take( PARTNER1, WeightLossClinic );
wallet -= $1000;
/* if the above somewhat improved her looks */
if ( PARTNER1->looks > 0 ) then
ENJOY( PARTNER1, PARTNER2 );
break;
case GlenCloseType:
case KathleenTurnerType: /* If have seen the War of the Roses */
RunLikeHell();
break; /* hopefully not your neck */
case NORMAL: printf("You are out of luck!!\n");
printf("A normal woman is an oxymoron\n");
break;
case OfTheMissingCase:
say("Give me a light, NO ... Bud Lite");
say("Tastes Great, Less filling...");
break;
default: ENJOY( PARTNER1, PARTNER2 ); /* enjoy anyways */
printf("Anyone who has new cases, let me know\n");
printf("I am ccmax@eel.cs.ucla.edu \n");
}
}
} else /* when there are more than 2 people */
ORGY( ListOfPeople, ListOfItems );
}
funcktion ORGY( );
/* See "SEXX - programmers' guide" for more details */
#include "guide.c"