#!/lose/ur/virginity
h0no c4n c0de.
greetz to zone-h forum for the help!!!
#g0t t0 f1nd m3 a l4dy…
$lady = ‘drunk’ if(open(GIRL, ‘/usr/bin/pub’));
$lady = ‘slut’ if open(BITCH, ‘/home/street/corner’)&&use protection;
#th1z alw4yz w0rkz.
chomp my $dick = (<BITCH>) unless $lady ne ‘slut’;
if(!($dick exists in @mouth)){
#sh3’s just pl4y1ng h4rd t0 g3t.
print GIRL “my what nices eyes you have…”;
if(<> eq ‘all the better to glar into your eyes while I’.
‘stroke you off’){
$lady = ‘slut’;
$pants = ‘off’;
foreplay();
}
}
#w41t t1ll sh3 g3tz a l04d 0f th1z!
print GIRL '8==========
=====D’;
#th4tz wh4t 3y3 th0ught b1tch.
if(($face = <>) eq ‘8D’){ sex($lady, ‘in car’); }
elsif(($responce = <>) eq ‘ive seen bigger’){
$lady = ‘pornstar’;
use camera;
sex($lady, ‘out_side’);
}
#FUCK Y0U B1TCH!
else{
open(D13B1TCH, “>date/rape”) || kill $lady;
print D13B1TCH $roofie;
}
sub sex{
($lady, $location) = @_;
/##\ <-- sup3r h0no ascii sk1llz
goto CAR if ($location =~ /()-()>/); #(itz a c4r y0u fuckz)
goto OUTSIDE if ($location =~ / /);
else{
print "s3x h3r3?????
";
$lady = ‘superfreakyslut’;
}
#fuck th1z b1tch
sleep $with_her;
exit;
CAR;
#g0t t0 g3t 4t th4t pussy!
open(DOORS, 'side/of/car') or chop($window) if $desperate;
OUTSIDE;
($thing, $todo) = foreplay();
if($todo eq 'to party'){ exit; }
else{
@positions = (6,9);
#g0 nutz
sort(@positions);
foreach(@positions){
#sin until your done.
$done = sin($_) until $done;
}
exit if($done);
else{
#sw1tch p0s1t10nz 4nd h1t th4t pussy.
reverse(@positions);
&sex($lady, 'here');
}
}
sub foreplay {
open(INTERESTINGSTUFF, “below/head/above/vigina”) or
unzip dress*;
#3y3 l0v3 t1tz
($shirt, $bra, $boobs) = (<INTERESTINGSTUFF>)[0..2];
#H3y h0n, 3y3 th1nk 3y3 n0t1c3d y0u 4r0und
if(exists($shirt)){
#S0rry 4b0ut s4l4d cr34m, 3y3 d1dn't kn0w
#1t c4m3 0ut l1k3 th4t
#1t'll b3 w4sh3d 1n a j1ffy
open(SHIRT, "cute-silk-number");
#H3y b4b3, w4nn4 kn0w wh4t l00kz g00d 0n my fl00r?
unlink($bra . $one_hand);
#s41n1ty ch3ck
if (!exists($boobs)){
#0h g0d fuck m3, TH4TS why h1s 4ss h0l3'z r3d!
alarm(1);
print STDOHSHIT "ITZ A MAN!GOATSECX ALEERRTT";
close(SHIRT) && die;
}
#th3y'r3 m1n3 n0w!
my $boobs;
study $boobs;
#th3y n33d a t41nt ch3ck?
$hands = ($boobs =~ /(.)(.)/);
#4ll th3m sm4ll th1ngz add t0 p3rf3ct10n
while ($boobs =~ s/.*(nipple|raised_area|tatoo).*/g) {
$sensations .= $1;
}
seek BOOBS, $sensations,0;
return($sensations, 'done');
#1f $sh1rt d03sn't ex1st
} else{
$her = 'drunk';
while(not exists($seman)){ $you = pack 'CU','NT'; }
return($her,'to party');
}
}
}
