#!/usr/bin/perl

my $user = $ARGV[0];

$olpath="/bbs/oneliners";

while(1) {

if (open(MYFILE, "$olpath/clear.ans")) {
        while(<MYFILE>) {
                print;
        }
}
close(MYFILE);

open (FILE,"$olpath/1.ol");
flock (FILE, 2);
$oneliner = <FILE>;
flock (FILE, 8);
close (FILE);
chomp($oneliner);
print "\n\033[1;34;40m[\033[1;37;40m1\033[1;34;40m]\033\[1;37;40m $oneliner\n";

open (FILE,"$olpath/2.ol");
flock (FILE, 2);
$oneliner = <FILE>;
flock (FILE, 8);
close (FILE);
chomp($oneliner);
print "\n\033[1;34;40m[\033[1;37;40m2\033[1;34;40m]\033\[1;37;40m $oneliner\n";

open (FILE,"$olpath/3.ol");
flock (FILE, 2);
$oneliner = <FILE>;
flock (FILE, 8);
close (FILE);
chomp($oneliner);
print "\n\033[1;34;40m[\033[1;37;40m3\033[1;34;40m]\033\[1;37;40m $oneliner\n";

open (FILE,"$olpath/4.ol");
flock (FILE, 2);
$oneliner = <FILE>;
flock (FILE, 8);
close (FILE);
chomp($oneliner);
print "\n\033[1;34;40m[\033[1;37;40m4\033[1;34;40m]\033\[1;37;40m $oneliner\n";

open (FILE,"$olpath/5.ol");
flock (FILE, 2);
$oneliner = <FILE>;
flock (FILE, 8);
close (FILE);
chomp($oneliner);
print "\n\033[1;34;40m[\033[1;37;40m5\033[1;34;40m]\033\[1;37;40m $oneliner\n";

open (FILE,"$olpath/6.ol");
flock (FILE, 2);
$oneliner = <FILE>;
flock (FILE, 8);
close (FILE);
chomp($oneliner);
print "\n\033[1;34;40m[\033[1;37;40m6\033[1;34;40m]\033\[1;37;40m $oneliner\n";

open (FILE,"$olpath/7.ol");
flock (FILE, 2);
$oneliner = <FILE>;
flock (FILE, 8);
close (FILE);
chomp($oneliner);
print "\n\033[1;34;40m[\033[1;37;40m7\033[1;34;40m]\033\[1;37;40m $oneliner\n";

open (FILE,"$olpath/8.ol");
flock (FILE, 2);
$oneliner = <FILE>;
flock (FILE, 8);
close (FILE);
chomp($oneliner);
print "\n\033[1;34;40m[\033[1;37;40m8\033[1;34;40m]\033\[1;37;40m $oneliner\n";


print "\n\n\n";
print " \033[1;34;40mEdit OneLiners:";
print " \033[1;34;40m[\033[1;37;40mQ\033[1;34;40m]=";
print "\033[1;37;40mQuit";
print " \033[1;34;40m[\033[1;37;40m#\033[1;34;40m]=";
print "\033[1;37;40mEdit OneLiner: ";
chomp($read = <STDIN>);

if ($read eq 'q' || $read eq 'Q') { exit; }

if ($read eq '1' || $read eq '2' || $read eq '3' || $read eq '4' || $read eq '5' || $read eq '6' || $read eq '7' || $read eq '8' ) {

        if (open(MYFILE, "$olpath/clear.ans")) {
                while (<MYFILE>) {
                print ;
                }
                }
                close(MYFILE);
	open (FILE,"$olpath/$read.ol");
	flock (FILE, 2);
	$oneliner = <FILE>;
	flock (FILE, 8);
	close (FILE);
	chomp($oneliner);
	print "\n \033[1;34;40m[\033[1;37;40mOLD\033[1;37;40m]\033[0m\n$oneliner\n";
	print "\n \033[1;34;40m[\033[1;37;40mNEW\033[1;37;40m]\033[0m\n";
	chomp($oneliner = <STDIN>);

 	###################################
	## ADD COLOR ## - By Jeff Ledger ##
 	###################################
 	$oneliner =~ s/\~r/\e[1;31;40m/g;     # ~r = red
 	$oneliner =~ s/\~g/\e[1;32;40m/g;     # ~g = green
 	$oneliner =~ s/\~y/\e[1;33;40m/g;     # ~y = yellow
 	$oneliner =~ s/\~b/\e[1;34;40m/g;     # ~b = light blue
 	$oneliner =~ s/\~p/\e[1;35;40m/g;     # ~p = purple
 	$oneliner =~ s/\~c/\e[1;36;40m/g;     # ~c = cyan
 	$oneliner =~ s/\~w/\e[1;37;40m/g;     # ~w = white
	## FOUL WORD FILTER ##
	$oneliner =~ s/fuck/*censored*/g;
      	$oneliner =~ s/Fuck/*censored*/g;
      	$oneliner =~ s/cunt/*censored*/g;
      	$oneliner =~ s/Cunt/*censored*/g;
      	$oneliner =~ s/shit/*censored*/g;
      	$oneliner =~ s/Shit/*censored*/g;
      	$oneliner =~ s/bitch/*censored*/g;
      	$oneliner =~ s/Bitch/*censored*/g;
      	$oneliner =~ s/piss/*censored*/g;
      	$oneliner =~ s/Piss/*censored*/g;
      	$oneliner =~ s/Microsoft/Micro\$oft/g;
      	$oneliner =~ s/microsoft/micro\$oft/g;
      	$oneliner =~ s/ass/*censored*/g;
      	$oneliner =~ s/Ass/*censored*/g;

	## WRITE THE ONELINER ##
	open (FILE,">$olpath/$read.ol");
	flock (FILE, 2);
	print FILE "$oneliner";
	flock (FILE, 8);
	close (FILE);
}



}
	
