#!/usr/bin/perl
#
# simplebot.pl - the simplest little chomskybot.
#
# all code original Dave Nelson
# the Dave of daves...
#
# Released to public domain November, 1998- written for drewstar 

srand (time() ^ ($$ + ($$ << 15)) );

@verbs = ("needs ","likes ","desires ","screams for ","wants ","dreams of ",
"prays for ","demands ","craves ","loves "); 
@nouns = ("teen ","girl ","amateur ","schoolgirl ","wife ","housewife ",
"sister ","mom ","teacher ","secretary ","nurse ","teenie ","sis' ","babe ", 
"Daisy ","Claudette ","teen goddess ","nymph ","Lolita ","pretty baby ",
"nymphette ");
@mods = ("sweet ","naughty ","seductive ","hot ","sweltering ",
"hot and bothered ","sweaty ","bursting ","wet ","pink ","perfect ","horney ",
"virgin ","little ","tight ");
@nouns2 = ("ice 
cream","chocolates","puppies","kisses","hugs","milk-shakes",
"dreamy boys","Elvis songs","love poems","flowers","trips to the zoo",
"vacations","foot massages","lovin'","back rubs","gourmet meals","romance");
@mods2 = ("nasty ","wicked ","harder ","faster ","deeper ","meaner ",
"more gentle ","more ","expert ","hearty ","wetter ","enthusiastic ",
"acrobatic ","powerful ");
@articles = ("my ","this ");

$n2 = $nouns2[rand(@nouns2)];    
$v = $verbs[rand(@verbs)];
$n = $nouns[rand(@nouns)];

&coin_toss;
if ($choice =~ 0){
     $art = $articles[rand(@articles)];
};

&coin_toss;
if ($choice =~ 0){
     $m = $mods[rand(@mods)];
};

&coin_toss;
if ($choice =~ 0){
     $m2 = $mods2[rand(@mods2)];
};

#&coin_toss;                   #new, optinal bit
#if ($choice =~ 0){            #new option
#     $m = $mods[rand(@mods)]; #new option
#     $print = "$m"."$n";      #new option
#}else{                        #new option
     $print = "$art"."$m"."$n"."$v"."$m2"."$n2".".";
#};                            #new option


$print =~ /(\w)(.+)/i;
$first_letter = $1;
$rest = $2;
$first_letter =~ tr/a-z/A-Z/;
$print = "$first_letter"."$rest\n";

print "$print\n";  

sub coin_toss{
        @choose = (0..1);
        $choice = $choose[rand(@choose)];
};