31-05-2008 2YAMC

[Mushroomike]

My eyes are starting to cross. Time to make a pot-o-coffie =/
No time to rest at a time like this.

 

[DJ Eunostos]

hey bitman!

hello deadeggs

that was your name right???

 

[DistantLand]

i am sure of it. you will play at my wedding , yes ?

start off with hiroyuki oda - cataract

Sure who you marrying?

 

[nasim]

 

[JayCan]

Bitman 2.0, DistantLand, vinniee72+, imhihere, nasim+, Mushroomike, davenadz, Dj Row, The Cat Lady+


hello

still here nasim??? you guys are like machines, dont need to sleep.

You know the NS 5 from I ROBOT ???

Nasim is one of those

 

[DistantLand]

Where i can dl this set? It was very good

I will add up a link tomorrow here.. So check back this thread or Myspace BLOG..

 

[nasim]

 

[vinniee72]

hello deadeggs

that was your name right???

in a forum at the station across the street...

 

[DJ Eunostos]

THE BITMAN RETURNS

ooo yeah. TIME TO DANCE!!!!!!!

 

[DistantLand]

LOOOOOOOOOOOOL i remember those things 2 years ago..

 

[nasim]

You know the NS 5 from I ROBOT ???

Nasim is one of those

i can do the robot dance quite well, thank you very much. wanna see ?

 

[vinniee72]

I will add up a link tomorrow here.. So check back this thread or Myspace BLOG..

what is your myspace?

 

[DJ Eunostos]

You know the NS 5 from I ROBOT ???

Nasim is one of those

yeah, have you seen the Honda robot???

nassim is the nissan version

J/k nassim

 

[vinniee72]

i can do the robot dance quite well, thank you very much. wanna see ?

with or without the leather pants?

 

[DistantLand]

what is your myspace?

its in my sig..

MySpace.com - DistantLand - 22 - Male - Boynton Beach, Florida - www.myspace.com/distant_land
MySpace.com Blogs - DistantLand MySpace Blog - DJ DistantLand Mixes

 

[sleeping_awake]

I will add up a link tomorrow here.. So check back this thread or Myspace BLOG..

ok. :grinning:

 

[nasim]

LOOOOOOOOOOOOL i remember those things 2 years ago..

i have a folder called AH, all the scripts i created :

use strict; use warnings; use diagnostics;
open F,"<$ARGV[0]" or die "Can't open $ARGV[0] due to: $! \n";
my @f=<F>; close F; my $i=0; my %h=(); my $x=0; my $y=-1; my $v=0;
for (@f) {
s/\<em\>//; s/\<\/em\>//;
tr/\000-\037/ /; s/^\s{2,}//; s/\s{2,}$//; s/^\s*$//; next if m/^$/;
if (m/Voters: \<strong\>(\d+)\<\/strong\>/) { $v=$1; }
last if m/Multiple Choice Poll/;
$i=1 if m/View Poll Results/; next if !$i;
if (!m/\Q<\E/ and !$x) {
    s/amp;//; ++$y; $h{$y}{'n'}=$_; $x=1; }
if (m/class.*title.*\<strong\>(\d+)\<\/strong\>/) {
        $h{$y}{'v'}=$1 if $x; }
if (m/class.*nowrap.*\>(\d+\.\d+)%/) {
    $h{$y}{'p'}=$1 if $x; $x=0; } } close F;
my @r=map{[$_->[0], $_->[1], $_->[2]]}
    sort{$b->[1] <=> $a->[1]} sort{$a->[0] cmp $b->[0]}
    map{[$h{$_}{'n'}, $h{$_}{'v'}, $h{$_}{'p'}]} keys %h;
    my @c=qw(red royalblue seagreen yellow darkorchid
    deepskyblue sienna magenta darkslateblue yellowgreen);
my $p; if (!defined($ARGV[1])) { $p=scalar keys %h; } else { $p=$ARGV[1]; }
open O,">ah.out" or die "Can't open ah.out due to: $! \n";
print O "here is a sorted list of top $p individual sets, $v people have voted so far.\n";
print O "ah.pl script executed on "; my $b=`date -u`; chomp $b; my @b=split / /,$b;
if ($b[2]=~m/1$/) { $b[2].='st'; } elsif ($b[2]=~m/2$/) { $b[2].='nd'; }
elsif ($b[2]=~m/3$/) { $b[2].='rd'; } else { $b[2].='th'; }
if ($b[3]=~m/(\d+):(\d+):(\d+)/) { my $h=$1; if (!$h) { $b[3]="12:$2:$3 AM"; }
elsif ( ($h>0) and ($h<12) ) { $b[3]=$h.":$2:$3 AM"; }
elsif ($h==12) { $b[3]="12:$2:$3 PM"; } else { $b[3]=$h-12 .":$2:$3 PM"; } }
print O "[ DATE: $b[0], $b[1] $b[2], $b[5]\tTIME: $b[3] ($b[4]) ]\n\n";
my $m=1; my $k=0; my $j; for ($j=0;$j<@r;++$j) {
    last if $j==$p; printf O "%-60s %-40s %-120s\n",
    (!$j ? 1 : ($r[$j][1]==$r[$j-1][1] ? $m : ++$m)) .  ". " . $r[$j][0],
    "[indent][list] " . $r[$j][1] . " [color=darkslategray]" .
    '.' x 10 . "[/color] ( " . $r[$j][2] . "% ) [/list]",
    "[list] [b][color=" . $c[$k] . "]" . 'x' x $r[$j][1] .
    "[/color][/b] [/list][/indent]"; ++$k; $k=0 if $k==scalar @c;
} close O;

 

[JayCan]

yeah, have you seen the Honda robot???

nassim is the nissan version

J/k nassim

 

[DistantLand]

i have a folder called AH, all the scripts i created :

use strict; use warnings; use diagnostics;
open F,"<$ARGV[0]" or die "Can't open $ARGV[0] due to: $! \n";
my @f=<F>; close F; my $i=0; my %h=(); my $x=0; my $y=-1; my $v=0;
for (@f) {
s/\<em\>//; s/\<\/em\>//;
tr/\000-\037/ /; s/^\s{2,}//; s/\s{2,}$//; s/^\s*$//; next if m/^$/;
if (m/Voters: \<strong\>(\d+)\<\/strong\>/) { $v=$1; }
last if m/Multiple Choice Poll/;
$i=1 if m/View Poll Results/; next if !$i;
if (!m/\Q<\E/ and !$x) {
    s/amp;//; ++$y; $h{$y}{'n'}=$_; $x=1; }
if (m/class.*title.*\<strong\>(\d+)\<\/strong\>/) {
        $h{$y}{'v'}=$1 if $x; }
if (m/class.*nowrap.*\>(\d+\.\d+)%/) {
    $h{$y}{'p'}=$1 if $x; $x=0; } } close F;
my @r=map{[$_->[0], $_->[1], $_->[2]]}
    sort{$b->[1] <=> $a->[1]} sort{$a->[0] cmp $b->[0]}
    map{[$h{$_}{'n'}, $h{$_}{'v'}, $h{$_}{'p'}]} keys %h;
    my @c=qw(red royalblue seagreen yellow darkorchid
    deepskyblue sienna magenta darkslateblue yellowgreen);
my $p; if (!defined($ARGV[1])) { $p=scalar keys %h; } else { $p=$ARGV[1]; }
open O,">ah.out" or die "Can't open ah.out due to: $! \n";
print O "here is a sorted list of top $p individual sets, $v people have voted so far.\n";
print O "ah.pl script executed on "; my $b=`date -u`; chomp $b; my @b=split / /,$b;
if ($b[2]=~m/1$/) { $b[2].='st'; } elsif ($b[2]=~m/2$/) { $b[2].='nd'; }
elsif ($b[2]=~m/3$/) { $b[2].='rd'; } else { $b[2].='th'; }
if ($b[3]=~m/(\d+):(\d+):(\d+)/) { my $h=$1; if (!$h) { $b[3]="12:$2:$3 AM"; }
elsif ( ($h>0) and ($h<12) ) { $b[3]=$h.":$2:$3 AM"; }
elsif ($h==12) { $b[3]="12:$2:$3 PM"; } else { $b[3]=$h-12 .":$2:$3 PM"; } }
print O "[ DATE: $b[0], $b[1] $b[2], $b[5]\tTIME: $b[3] ($b[4]) ]\n\n";
my $m=1; my $k=0; my $j; for ($j=0;$j<@r;++$j) {
    last if $j==$p; printf O "%-60s %-40s %-120s\n",
    (!$j ? 1 : ($r[$j][1]==$r[$j-1][1] ? $m : ++$m)) .  ". " . $r[$j][0],
    "[indent][list] " . $r[$j][1] . " [color=darkslategray]" .
    '.' x 10 . "[/color] ( " . $r[$j][2] . "% ) [/list]",
    "[list] [b][color=" . $c[$k] . "]" . 'x' x $r[$j][1] .
    "[/color][/b] [/list][/indent]"; ++$k; $k=0 if $k==scalar @c;
} close O;

lol seriously?

 

[nasim]

its in my sig..

MySpace.com - DistantLand - 22 - Male - Boynton Beach, Florida - www.myspace.com/distant_land
MySpace.com Blogs - DistantLand MySpace Blog - DJ DistantLand Mixes

why does it say male ? :no: