#!/usr/bin/perl
# This Program, arcadeintro, Is Protected Under The Terms And
#      Conditions of Version Two (2) of
#    The GNU GENERAL PUBLIC LICENSE (GPL)
#      By The Entity Known As MikeeUSA

use Term::ANSIColor;
print color 'reset';
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};   # Make %ENV safer
$ENV{'PATH'} = '~/arcade/';


$forcetextsdldisplay = 0;
if ($ENV{'TERM'} eq 'linux')
{
	$forcetextsdldisplay = 1;
}
elsif ($ENV{'TERM'} eq 'xterm')
{
	$forcetextsdldisplay = 0;
}


$boldcyan = 'bold green';
$cyan     = 'green';
	$previouscyan = $cyan;

$unlock     =  0;
$unlockpass = 'unlock';

#$ansiprefix = 'SDL_VIDEODRIVER=caca CACA_DRIVER=slang CACA_ANTIALIASING=none SDL_AUDIODRIVER=dummy';
#$ansiprefix = 'SDL_AUDIODRIVER=oss';
$ansiprefix = 'SDL_AUDIODRIVER=alsa';
$genemupath = '/usr/bin/nice -n 15 ~/arcade/dgen -S 4';
$genrompath = '~/arcade/';
$gbaemupath = '/usr/bin/nice -n 15 /usr/bin/vba -4 --auto-frameskip --pause-when-inactive --throttle=100 ';
$gbarompath = '~/arcade/';
$exitpath = '~';
$oneshot = 0;

$genrom0p = 'SONIC1.BIN';
$genrom1p = 'SONIC2.SMD';
$genrom2p = 'SONIC3.SMD';
$genrom3p = 'SONICANDKNUCKLES.SMD';
$genrom4p = 'SONIC3ANDKNUCKLES.BIN';
$genrom5p = 'SONICSPINBALL.SMD';
$genrom6p = 'SONIC3D.SMD';
$genrom7p = 'SONICANDCRACKERS.BIN';

$gbarom0p = 'Sonic_Advance_1.gba';
$gbarom1p = 'Sonic_Advance_2.gba';
$gbarom2p = 'MARIOADVANCE.GBA';
$gbarom3p = 'Sonic_Advance_3.gba';

$genromAp = 'MK2.BIN';
$genromBp = 'UMK3.SMD';
$genromCp = 'DN3D.BIN';
$genromDp = 'ECCOTOT.BIN';
$genromEp = 'ZEROWING.SMD';
$genromFp = 'MKYCOI.SMD';
$genromGp = 'SONIC1MEGAMIXV3.BIN';
$genromHp = 'SONICPP.BIN';
$genromIp = 's2built.bin';

$genromJp = 'SFACTOR.bin';
$genromKp = 's1erz.bin';
$genromLp = 's1megahack_ultra.gen';
$genromMp = 'SBOOM.BIN';
$genromNp = 'SONICTOHAKA.md';
$genromOp = 'MortalKombat.md';

$genromPp = 'STH_-_WI.bin';
$genromQp = 'Sonic_2_-_Return_to_Westside_Island_v1.1.bin';
$genromRp = 'S3DAGE_102.bin';


#           '----------------------------------';
$genrom0n = 'Sonic The Hedgehog            a s d  enter   F2/F3      ';
$genrom1n = 'Sonic The Hedgehog 2          a s d  enter   F2/F3      ';
$genrom2n = 'Sonic The Hedgehog 3          a s d  enter   F2/F3      ';
$genrom3n = 'Sonic & Knuckles              a s d  enter   F2/F3      ';
$genrom4n = 'Sonic The Hedgehog 3 & Knuckl a s d  enter   F2/F3      ';
$genrom5n = 'Sonic Spinball                a s d  enter   F2/F3      ';
$genrom6n = 'Sonic 3D                      a s d  enter   F2/F3      ';
$genrom7n = 'Sonic And Crackers            a s d  enter   F2/F3      ';

$gbarom0n = 'Sonic Advance                   z x  enter Shift+F1/F1  ';
$gbarom1n = 'Sonic Advance 2                 z x  enter Shift+F1/F1  ';
$gbarom2n = 'Mario Advance                   z x  enter Shift+F1/F1  ';
$gbarom3n = 'Sonic Advance 3                 z x  enter Shift+F1/F1  ';

$genromAn = 'Mortal Kombat 2               a s d  enter   F2/F3      ';
$genromBn = 'Ultimate Mortal Kombat 3      a s d  enter   F2/F3      ';
$genromCn = 'Duke Nukem 3D                 a s d  enter   F2/F3      ';
$genromDn = 'ECCO Tides of Time            a s d  enter   F2/F3      ';
$genromEn = 'Zero Wing                     a s d  enter   F2/F3      ';
$genromFn = 'Castle of Illusion            a s d  enter   F2/F3      ';
$genromGn = 'Sonic Mega Mix                a s d  enter   F2/F3      ';
$genromHn = 'Sonic Pixel Perfect           a s d  enter   F2/F3      ';
$genromIn = 'Sonic Tribute                 a s d  enter   F2/F3      ';

$genromJn = 'S Factor                      a s d  enter   F2/F3      ';
$genromKn = 'Sonic Erazor                  a s d  enter   F2/F3      ';
$genromLn = 's1megahack_ultra.gen          a s d  enter   F2/F3      ';
$genromMn = 'Sonic Boom                    a s d  enter   F2/F3      ';
$genromNn = 'Sonic Tohaka                  a s d  enter   F2/F3      ';
$genromOn = 'Mortal Kombat                 a s d  enter   F2/F3      ';
$genromPn = 'Sonic Return to Westside Isl  a s d  enter   F2/F3      ';
$genromQn = 'Sonic2  Return to Westside I  a s d  enter   F2/F3      ';
$genromRn = 'Sonic3 DA Garden Edition      a s d  enter   F2/F3      ';

if ($forcetextsdldisplay == 1) {
	$ansiprefix = 'SDL_VIDEODRIVER=caca CACA_DRIVER=slang CACA_ANTIALIASING=none SDL_AUDIODRIVER=alsa';
	$boldcyan = 'bold cyan';
	$cyan     = 'cyan';
		$previousboldcyan = $boldcyan;
}

main();

sub main {
    newlines();
    $x = 1;
    while ($x == 1) {
    	  display();
	  if ($oneshot == 1) {
	  	$x = 0;
	  }
    	  newlines();
    }
    
    if ($oneshot == 1) {
    	display();
    }
}    

sub newlines {
    print"\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";
}

sub display {
    top();
    $number = '0'; $game = $genrom0n; mid();
    $number = '1'; $game = $genrom1n; mid();
    $number = '2'; $game = $genrom2n; mid();
    $number = '3'; $game = $genrom3n; mid();
    $number = '4'; $game = $genrom4n; mid();
    $number = '5'; $game = $genrom5n; mid();
    $number = '6'; $game = $genrom6n; mid();
    $number = '7'; $game = $genrom7n; mid();
    $number = '8'; $game = $gbarom0n; mid();
    $number = '9'; $game = $gbarom1n; mid();
    $number = '10'; $game = $gbarom3n; mid();    
    $number = 'A'; $game = $genromAn; mid();
    $number = 'B'; $game = $genromBn; mid();
    $number = 'C'; $game = $genromCn; mid();
    $number = 'D'; $game = $genromDn; mid();
    $number = 'E'; $game = $genromEn; mid();
    $number = 'F'; $game = $genromFn; mid();
    $number = 'G'; $game = $gbarom2n; mid();
    $number = 'H'; $game = $genromGn; mid();
    $number = 'I'; $game = $genromHn; mid();
    $number = 'J'; $game = $genromIn; mid();
    
    $number = 'K'; $game = $genromJn; mid();
    $number = 'L'; $game = $genromKn; mid();
    $number = 'M'; $game = $genromLn; mid();
    $number = 'N'; $game = $genromMn; mid();
    $number = 'O'; $game = $genromNn; mid();
    $number = 'P'; $game = $genromOn; mid();
    $number = 'Q'; $game = $genromPn; mid();
    $number = 'R'; $game = $genromQn; mid();
    $number = 'S'; $game = $genromRn; mid();

    bot();
    $choose = <STDIN>;
    chomp($choose);
    if ($choose eq '0') {
       system("$ansiprefix $genemupath $genrompath$genrom0p");
    } elsif ($choose eq '1') {
	   forward2();
           system("$ansiprefix $genemupath $genrompath$genrom1p");
    } elsif ($choose eq '2') {
	   if ($unlock == 0) {
	       forward();
	       system("$ansiprefix $genemupath $genrompath$genrom4p");
           } else {
	       system("$ansiprefix $genemupath $genrompath$genrom2p");
	   }
    } elsif ($choose eq '3') {
	   if ($unlock == 0) {
	       forward();
	       system("$ansiprefix $genemupath $genrompath$genrom4p");
	   } else {
	       system("$ansiprefix $genemupath $genrompath$genrom3p");
	   }
    } elsif ($choose eq '4') {
           system("$ansiprefix $genemupath $genrompath$genrom4p");
    } elsif ($choose eq '5') {
	   system("$ansiprefix $genemupath $genrompath$genrom5p");
    } elsif ($choose eq '6') {
	   system("$ansiprefix $genemupath $genrompath$genrom6p");
    } elsif ($choose eq '7') {
           system("$ansiprefix $genemupath $genrompath$genrom7p");
    } elsif ($choose eq '8') {
	   system("$ansiprefix $gbaemupath $gbarompath$gbarom0p");
    } elsif ($choose eq '9') {
	   system("$ansiprefix $gbaemupath $gbarompath$gbarom1p");
    } elsif ($choose eq '10') {
           system("$ansiprefix $gbaemupath $gbarompath$gbarom3p");
    } elsif (($choose eq 'A') or ($choose eq 'a')) {
	   system("$ansiprefix $genemupath $genrompath$genromAp");
    } elsif (($choose eq 'B') or ($choose eq 'b')) {
	   system("$ansiprefix $genemupath $genrompath$genromBp");
    } elsif (($choose eq 'C') or ($choose eq 'c')) {
	   system("$ansiprefix $genemupath $genrompath$genromCp");
    } elsif (($choose eq 'D') or ($choose eq 'd')) {
	   system("$ansiprefix $genemupath $genrompath$genromDp");
    } elsif (($choose eq 'E') or ($choose eq 'e')) {
	   system("$ansiprefix $genemupath $genrompath$genromEp");
    } elsif (($choose eq 'F') or ($choose eq 'f')) {
	           system("$ansiprefix $genemupath $genrompath$genromFp");
    } elsif (($choose eq 'G') or ($choose eq 'g')) {
                system("$ansiprefix $gbaemupath $gbarompath$gbarom2p");
    } elsif (($choose eq 'H') or ($choose eq 'h')) {
	           system("$ansiprefix $genemupath $genrompath$genromGp");
    } elsif (($choose eq 'I') or ($choose eq 'i')) {
	           system("$ansiprefix $genemupath $genrompath$genromHp");
    } elsif (($choose eq 'J') or ($choose eq 'j')) {
	           system("$ansiprefix $genemupath $genrompath$genromIp");
    
    } elsif (($choose eq 'K') or ($choose eq 'k')) {
	           system("$ansiprefix $genemupath $genrompath$genromJp");	   
    } elsif (($choose eq 'L') or ($choose eq 'l')) {
	           system("$ansiprefix $genemupath $genrompath$genromKp");	   
    } elsif (($choose eq 'M') or ($choose eq 'm')) {
	           system("$ansiprefix $genemupath $genrompath$genromLp");	 	   
    } elsif (($choose eq 'N') or ($choose eq 'n')) {
	           system("$ansiprefix $genemupath $genrompath$genromMp");	 	   
    } elsif (($choose eq 'O') or ($choose eq 'o')) {
	           system("$ansiprefix $genemupath $genrompath$genromNp");	 	   
    } elsif (($choose eq 'P') or ($choose eq 'p')) {
	           system("$ansiprefix $genemupath $genrompath$genromOp");	 	   
    } elsif (($choose eq 'Q') or ($choose eq 'q')) {
	           system("$ansiprefix $genemupath $genrompath$genromPp");	 	   
    } elsif (($choose eq 'R') or ($choose eq 'r')) {
	           system("$ansiprefix $genemupath $genrompath$genromQp");	 	   
    } elsif (($choose eq 'S') or ($choose eq 's')) {
	           system("$ansiprefix $genemupath $genrompath$genromRp");	 	   
    
    } elsif (($choose eq 'libaa') or ($choose eq 'aalib') or ($choose eq 'aa') or ($choose eq 'LIBAA') or ($choose eq 'AALIB') or ($choose eq 'AA') or ($choose eq 'bw') or ($choose eq 'BW')) {
	$ansiprefix = 'SDL_VIDEODRIVER=aalib SDL_AUDIODRIVER=alsa';
	$boldcyan = 'white';
	$cyan     = 'black';
	$previousboldcyan = $boldcyan;
    } elsif (($choose eq 'libcaca') or ($choose eq 'cacalib') or ($choose eq 'caca') or ($choose eq 'LIBCACA') or ($choose eq 'CACALIB') or ($choose eq 'CACA') or ($choose eq 'color') or ($choose eq 'COLOR')) {
	$ansiprefix = 'SDL_VIDEODRIVER=caca CACA_DRIVER=slang CACA_ANTIALIASING=none SDL_AUDIODRIVER=alsa';
	$boldcyan = 'bold cyan';
	$cyan     = 'cyan';
	$previousboldcyan = $boldcyan;
    } elsif (($choose eq 'sdl') or ($choose eq 'SDL') or ($choose eq 'none') or ($choose eq 'NONE') or ($choose eq 'normal') or ($choose eq 'NORMAL') or ($choose eq 'gfx') or ($choose eq 'GFX')) {
	if ($forcetextsdldisplay != 0) {
		$ansiprefix = 'SDL_AUDIODRIVER=alsa';
		$boldcyan = 'bold red';
		$cyan     = 'red';
		$previousboldcyan = $boldcyan;
	}
    } elsif (($choose eq $unlockpass)) {
	if ($unlock eq 0) {
	    $unlock = 1;
	} else {
	    $unlock = 0;
	}
    } elsif (($choose eq 'oneshot') or ($choose eq 'ONESHOT') or ($choosose eq 'debug') or ($choose eq 'DEBUG')) {
	if ($oneshot == 1) {
		$oneshot = 0;
		$boldcyan = $previousboldcyan;
	} else {
		$boldcyan = 'magenta';
		$oneshot = 1;
	}
    } elsif (($choose eq 'exit') or ($choose eq 'EXIT') or ($choose eq 'quit') or ($choose eq 'QUIT')) {
      deathknell();   
    }
}

sub forward {    
newlines();
print colored(' ______________________________________________________________________________ ',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]',"$boldcyan on_$cyan"); print colored('                               FORWARDING TO                        ',"bold yellow on_$cyan"); print colored('|',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]',"$boldcyan on_$cyan"); print colored('                   Sonic The The Hedgehog 3 & Knuckles              ',"black on_$cyan"); print colored('|',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]',"$boldcyan on_$cyan"); print colored('                  THE WAY THE GAME WAS MENT TO BE PLAYED            ',"bold yellow on_$cyan"); print colored('|',"$boldcyan on_$cyan"); print"\n";     
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|______________________________________________________________________________|',"$boldcyan on_$cyan"); print"\n";
sleep(3);
}

sub forward2 {    
newlines();
print colored(' ______________________________________________________________________________ ',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]',"$boldcyan on_$cyan"); print colored('                    WHEN SONIC THE HEDGEHOG 2 STARTS                ',"bold yellow on_$cyan"); print colored('|',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]',"$boldcyan on_$cyan"); print colored('                               Press F11                            ',"black on_$cyan"); print colored('|',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]',"$boldcyan on_$cyan"); print colored('                  IN ORDER FOR THE GAME TO RUN PROPERLY             ',"bold yellow on_$cyan"); print colored('|',"$boldcyan on_$cyan"); print"\n";     
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|________[]                                                                    |',"$boldcyan on_$cyan"); print"\n";
print colored('|______________________________________________________________________________|',"$boldcyan on_$cyan"); print"\n";
sleep(2);
}

sub top {
    print colored(' ______________________________________________________________________________ ',"$boldcyan on_$cyan"); print"\n";
    print colored('|________[]--------------------------------------------------------------------|',"$boldcyan on_$cyan"); print"\n";
    print colored('|________[]---------------------',"$boldcyan on_$cyan");
    print colored('Welcome To The',"blue on_$cyan");
    print colored('---------------------------------|',"$boldcyan on_$cyan"); print"\n";
    print colored('|________[]--------------------------------------------------------------------|',"$boldcyan on_$cyan"); print"\n";
    print colored('|________[]-------------------',"$boldcyan on_$cyan");
    print colored('CAETHAVER2  ARCADE',"blue on_$cyan");
    print colored('-------------------------------|',"$boldcyan on_$cyan"); print"\n";
    print colored('|________[]--------------------------------------------------------------------|',"$boldcyan on_$cyan"); print"\n";
    #print colored('|________[]--------------------------------------------------------------------|',"$boldcyan on_$cyan"); print"\n";
    #print colored('|__________________------------------------------------------__________________|',"$boldcyan on_$cyan"); print"\n";
    
    #print colored('|________[',"$boldcyan on_$cyan"); 
    #print colored("                                              ","bold yellow on_black");
    #print colored(']--------|',"$boldcyan on_$cyan");
    #print color 'reset';
    #print"\n";
    
    print colored('|________[',"$boldcyan on_$cyan"); 
    print colored(" #: ","bold green on_black");
    print colored("Selection                     Controls     Save/Restore ","bold yellow on_black");
    print colored(']--------|',"$boldcyan on_$cyan");
    print color 'reset';
    print"\n";
    
    
    print colored('|________[',"$boldcyan on_$cyan"); 
    print colored("                                                            ","bold yellow on_black");
    print colored(']--------|',"$boldcyan on_$cyan");
    print color 'reset';
    print"\n";    
}

sub mid {
    print colored('|________[',"$boldcyan on_$cyan"); 
    if ((($number == 2) or ($number == 3)) and ($unlock == 0)) {
	print colored(" $number: ","white on_black");
	print colored("$game","white on_black");
    } elsif ($number >= 10) {
	print colored("$number: ","bold green on_black");
	print colored("$game","bold yellow on_black");
    } else {
	print colored(" $number: ","bold green on_black");
	print colored("$game","bold yellow on_black");
    }
    print colored(']--------|',"$boldcyan on_$cyan");
    print color 'reset';
    print"\n";
    if ($number == 10) {
	print colored('|________[',"$boldcyan on_$cyan"); 
	print colored("                                                            ","white on_black");
	print colored(']--------|',"$boldcyan on_$cyan");
	print color 'reset';
	print"\n";
    } else {
	#donothing
    }
}

sub bot {

    #print colored('|--------[',"$boldcyan on_$cyan"); 
    #print colored("                                                          ","bold yellow on_black");
    #print colored(']--------|',"$boldcyan on_$cyan");
    #print color 'reset';
    #print"\n";    
    #print colored('|--------[',"$boldcyan on_$cyan"); 
    #print colored("                                                          ","bold yellow on_black");
    #print colored(']--------|',"$boldcyan on_$cyan");
    #print color 'reset';
    #print"\n";    
    #print colored('|--------[',"$boldcyan on_$cyan"); 
    #print colored("                                                          ","bold yellow on_black");
    #print colored(']--------|',"$boldcyan on_$cyan");
    #print color 'reset';
    #print"\n";    
    #print colored('|--------[',"$boldcyan on_$cyan"); 
    #print colored("                                                          ","bold yellow on_black");
    #print colored(']--------|',"$boldcyan on_$cyan");
    #print color 'reset';
    #print"\n";    
    
#   print colored('|__________________------------------------------------------__________________|',"$boldcyan on_$cyan");
#   print"\n";
#    print colored('|________[]--------------------------------------------------------------------|',"$boldcyan on_$cyan");
#    print"\n";
    print colored('|________[]--------------------------------------------------------------------|',"$boldcyan on_$cyan");
    print"\n";    
    print colored('|______________________________________________________________________________|',"$boldcyan on_$cyan");
    print"\n";
    print'Choose Your Selection Number (or type exit): ';
}

sub deathknell {
 $x = 0;
 system("cd $exitpath");
 exit();
}