#!/usr/bin/perl 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 = ("sex","head","licking","deep-dicking","fucking","doggie-style", "penetration","dick","pussy","stiff cock","cock","oral action","double dicking", "lovin'","hard-party","bedtime romp","suck-and-fuck"); @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<\/a>"; #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"; #to ease the eyes in debugging. print "content-type: text/html\n\n"; print ""; print ""; print "pornbot says:"; print ""; print ""; print "$print"; print "
Like what you see? See the pornbot's kin (chinese-fortune-bot, poetrybot)
here."; print ""; print ""; sub coin_toss{ @choose = (0..1); $choice = $choose[rand(@choose)]; };