PasteFS logoPasteFS
guest on 08 Feb, 2019
Raw Data
  1. #!/usr/bin/perl
  2. #GPCSLOTS 2
  3. #  By The Entity Known As MikeeUSA
  4. #This program is free software; you can redistribute it and/or
  5. #modify it under the terms of the GNU General Public License
  6. #as published by the Free Software Foundation; either version 2
  7. #of the License, or (at your option) any later version.
  8. #
  9. #This program is distributed in the hope that it will be useful,
  10. #but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. #MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. #GNU General Public License for more details.
  13. #
  14. #You should have received a copy of the GNU General Public License
  15. #along with this program; if not, write to the Free Software
  16. #Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  17. package PrintWrapper;
  18. use IO::Handle;
  19. use strict;
  20. use warnings;
  21. #################################################################################
  22. ##Awsome terminal voodoo below by Div0. This allows the terminal output to be
  23. ## split into two parts: a forground (payout lists)
  24. ## and a background (slot machine reels) for use with Multi Layer LCDs
  25. ## (like the PureDepth(TM) displays found on IGT(TM) ReelDepth(TM) slotmachines.
  26. my $SEP = "\377";
  27. sub PUSHED
  28. {
  29.    my ($class, $mode, $fh) = @_;
  30.    return bless {
  31.       linebuf => ''
  32.    }, $class;
  33. }
  34. sub println
  35. {
  36.    my ($self, $l, $fh) = @_;
  37.    my ($l_left, $l_right, $e_left, $e_right, $side, $cnt) = ('', '', '', '', 0, 0);
  38.    die "WTF" if $SEP eq "";
  39.    while($l =~ s/^(\007|\033\[.*?[A-Za-z])|($SEP)|(.)//)
  40.    {
  41.       if(defined $1) # escape sequence
  42.       {
  43.          if($side)
  44.          {
  45.             $e_left .= $1;
  46.             $l_right .= $1;
  47.          }
  48.          else
  49.          {
  50.             $l_left .= $1;
  51.             $e_right .= $1;
  52.          }
  53.       }
  54.       elsif(defined $2) # toggle
  55.       {
  56.          $side = !$side;
  57.          if($side)
  58.          {
  59.             $l_right .= $e_right;
  60.             #$e_right = '';
  61.          }
  62.          else
  63.          {
  64.             $l_left .= $e_left;
  65.             #$e_left = '';
  66.          }
  67.       }
  68.       elsif(defined $3) # text
  69.       {
  70.          if($side)
  71.          {
  72.             $l_left .= "\033[107m ";
  73.             $l_right .= $3;
  74.          }
  75.          else
  76.          {
  77.             $l_left .= $3;
  78.             $l_right .= "\033[107m ";
  79.          }
  80.          ++$cnt;
  81.       }
  82.    }
  83.    my $sep = ' ' x (80 - $cnt);
  84.    print $fh "$l_left\033[m$sep$l_right$sep\033[m";
  85. }
  86. sub aflush
  87. {
  88.    my ($self, $fh) = @_;
  89.    while($self->{linebuf} =~ s/^(.*?)([\r\n])//)
  90.    {
  91.       my $l = $1;
  92.       my $s = $2;
  93.       $self->println($l, $fh);
  94.       print $fh $s;
  95.       $fh->flush();
  96.    }
  97. }
  98. sub WRITE
  99. {
  100.    my ($self, $buf, $fh) = @_;
  101.    if(!defined $self->{linebuf})
  102.    {
  103.       if($buf =~ s/^([^\r\n]*([\r\n])?)//)
  104.       {
  105.          $self->{linebuf} = ''
  106.             if $2;
  107.          print $fh $buf;
  108.          $fh->flush();
  109.       }
  110.       return;
  111.    }
  112.    $self->{linebuf} .= $buf;
  113.    $self->aflush($fh);
  114. }
  115. sub FLUSH
  116. {
  117.    my ($self, $fh) = @_;
  118.    $self->aflush($fh);
  119.    if(length $self->{linebuf})
  120.    {
  121.       print $fh $self->{linebuf};
  122.       $self->{linebuf} = undef;
  123.       $fh->flush();
  124.    }
  125. }
  126. ##Awsome terminal voodoo above by Div0. This allows the terminal output to be
  127. ## split into two parts: a forground (payout lists)
  128. ## and a background (slot machine reels) for use with Multi Layer LCDs
  129. ## (like the PureDepth(TM) displays found on IGT(TM) ReelDepth(TM) slotmachines.
  130. #################################################################################
  131. no strict;
  132. no warnings;
  133. package main;
  134. use Term::ANSIColor;
  135. use POSIX qw(ceil);
  136. use POSIX qw(floor);
  137. use IO::Handle;
  138. print color 'reset';
  139. $compatVT100 = 1;   ##Enable VT100 Features:  1 = Yes 0 = No
  140. $compatUNIXY = 1;   ##Enable *NIX Features:   1 = Yes 0 = No
  141. $compatANSI = 1;    ##Enable ANSI Color:      1 = Yes 0 = No
  142. $animate = 1;       ##Enable Animation:       1 = Yes 0 = No
  143. $anispeed = 1;      ##Speed of Animation      1 = 1X  2 = 2X  3 = 3X
  144. $soundfx = 1;       ##Enable (Beep) SoundFX:  1 = Yes 0 = No
  145. $music = 0;         ##Enable Music:           1 = Yes 0 = No
  146. $playtrack = 1;     ##Enable Play Tracker     1 = Yes 0 = No
  147. $htmlgraphnums = 1; ##Have Graph Values       1 = Yes 0 = No
  148.                     ## printed Under Bargraph
  149. ##To Disable Color ANSI on Windows(R) Uncomment the Following 5 Lines##
  150. #sub colored {
  151. #   my ($string, @codes);
  152. #   $string = shift;
  153. #   return $string;
  154. #}
  155. ##To Disable Color ANSI on Windows(R) Uncomment the Above 5 Lines##
  156. #------------------#
  157. # Music Setup      #
  158. #------------------#
  159. $musicdir = '~/.gpcslots2/midi/';
  160.    #*Searches for the files in this directory
  161. @musicfiles = ('kc_32x_11.mid','s1_sg_11.mid','s3db_sg_19.mid','s3_sg_12.mid','s3_sg_31.mid','sa_gba_11.mid','scd_mcd_18.mid');
  162.    #*These are file names of the midi files I use on my system.
  163.    #*   They were sequenced by John Weeks (espiokaos.com).
  164.    #*I am looking for similar quality opensource(GPL,BSD,Debian Compatable Licensed)
  165.    #*   or public domain midis to bundle with this game.
  166.    #*Replace the array entries with songs you personally like. Jazzy Casino Music.
  167. @rrmusicfiles = ('onthemar.mid','czardas1.mid','tomnaya.mid');
  168.    #*These are file names of the midi files I use on my system for russian roulette. Russian Folk and Russian 19th Century Music.
  169. @bankmusicfiles = ('gp_v01.mid','gp_v02.mid','gp_v03.mid','gp_v04.mid','gp_v05.mid','gp_v06.mid','gp_v07.mid','gp_v08.mid','gp_v09.mid','gp_v10.mid','gp_v11.mid','gp_v12.mid');
  170.    #*These are file names of the midi files I use on my system for the bank. Classical Music (Vivaldi etc).   
  171. $musicplayer = 'timidity';
  172.    #*Midis sound great with freepats (http://freepats.opensrc.org) by Eric A. Welsh
  173. $musicvolume = '5';
  174.    #*Set as to keep the songs as nice background music and as not to drown out the
  175.    #*   terminal beep soundfx.
  176. $rrmusicvolume = '20';
  177.    #*Set abit higher as this is a diffrent type of music
  178. $bankmusicvolume = '15';
  179.    #*Classical Background music for the bank.   
  180. $musicvolumecmd = '--volume=';
  181. $musictermquiet = '> /dev/null';
  182.    #* Redirect terminal noise (should be > /dev/null)
  183. #------------------#
  184. # Code Begins Here #
  185. #------------------#
  186. sub help {
  187.          print"Animation Speed  :  1/$anispeed"; print"X     ANSI Color       :  $compatANSI\n";
  188.          print"Animation        :  $animate";  print"        Music            :  $music\n";
  189.          print"UNIX Features    :  $compatUNIXY"; print"        Terminal SoundFX :  $soundfx\n";
  190.          print"VT100 Features   :  $compatVT100\n";
  191.          print"Playtracking     :  $playtrack\n";
  192.          print'-h,   --help                  Display this help screen'; print"\n";
  193.          print'-k,   --keys                  Display keyboard commands information'; print"\n";
  194.          print'-nan, --no-ansi               Turn ANSI color off'; print"\n";
  195.          print'-an,  --ansi                  Turn ANSI color on (Default)'; print"\n";
  196.          print'-na,  --no-animation          Turn all animations off'; print"\n";
  197.          print'-a,   --animation             Turn all animations on (Default)'; print"\n";
  198.          print'-nt,  --no-vt100              Turn vt100 support off'; print"\n";
  199.          print'-t,   --vt100                 Turn vt100 support on (Default)'; print"\n";
  200.          print'-nu,  --no-unix               Turn unix specific code off'; print"\n";
  201.          print'-u,   --unix                  Turn unix specific code on (Default)'; print"\n";
  202.          print'-nsfx,--no-soundfx            Turn terminal (beep) soundfx off'; print"\n";
  203.          print'-sfx, --sounfx                Turn terminal (beep) soundfx on (Default)'; print"\n";
  204.          print'-nm,  --no-music              Turn music off (Default)'; print"\n";
  205.          print'-m,   --music                 Turn music on'; print"\n";
  206.          print'-npt, --no-playtracking      Turn playtracking off (Default)'; print"\n";
  207.          print'-pt,  --playtracking         Turn playtracking on (used for html graph)'; print"\n";
  208.          print'-as1, --animation-speed-1     Set animation speed to 1/1X (Default)'; print"\n";
  209.          print'-as2, --animation-speed-2     Set animation speed to 1/2X'; print"\n";
  210.          print'-as3, --animation-speed-3     Set animation speed to 1/3X'; print"\n";
  211.          print'      --name                  Change casino title name(not available in-game)'; print"\n";
  212.          print'      --gnome-terminal        Open in gnome-terminal(not available in-game)'; print"\n";
  213.          print'                              (Ex: gpcslots2 --gnome-terminal -m -nsfx )'; print"\n";
  214.          print'      --konsole               Open in konsole(not available in-game)'; print"\n";
  215.          print'                              (Ex: gpcslots2 --konsole -m -nsfx )'; print"\n";
  216. }
  217. sub helpkeys {
  218.          print'P             On Slotmachines: Enters a token or tokens and spins the reels'; print"\n";
  219.          print'              On Table Games: Rolls the dice or spins the roulette wheel'; print"\n";
  220.          print'              On Status Printout Machine: Prints game stats to a html file'; print"\n";
  221.          print'            Meaning: Play'; print"\n";
  222.          print'1P            On Slotmachines: Enters a token or tokens and spins the reels'; print"\n";
  223.          print'            Meaning: Play One'; print"\n";
  224.          print'2P,3P...8P    On Slotmachines: Enters tokens, selects multiple play lines,'; print"\n";
  225.          print'                               and then spins the reels'; print"\n";
  226.          print'            Meaning: Play Two, Play Three...Play Eight'; print"\n";
  227.          print"\n";
  228.          print'A             On Slotmachines: Executes the last entered valid command'; print"\n";
  229.          print'              On Table Games: Rolls the dice or spins the roulette wheel'; print"\n";
  230.          print'            Meaning: Again'; print"\n";
  231.          print'B             On Table Games: Set your bet'; print"\n";
  232.          print'            Meaning: Bet'; print"\n";
  233.          print'C             On Slotmachines: Returns to casino menu'; print"\n";
  234.          print'              On Table Games: Returns to casino menu'; print"\n";
  235.          print'              On Status Printout Machine: Returns to casino menu'; print"\n";
  236.          print'            Meaning: Casino Menu'; print"\n";
  237.          print'EXIT          On Slotmachines: Quits game'; print"\n";
  238.          print'              On Table Games: Quits game'; print"\n";
  239.          print'              On Status Printout Machine: Quits game'; print"\n";
  240.          print'              On Casino Menu: Quits game'; print"\n";
  241.          print'            Meaning: Exit game'; print"\n";
  242.          print'N             On Table Games: Select numbers to bet on'; print"\n";
  243.          print'            Meaning: Numbers'; print"\n";
  244.          print"\n";
  245.          print'1,2,3...10    On Casino Menu: Selects and enters a subgame'; print"\n";
  246.          print'            Meaning: Select Game One, Two, Three... Ten'; print"\n";
  247. }
  248. BEGIN {
  249.    if (@ARGV[0] eq '--gnome-terminal') {
  250.       $buff0 = '';
  251.       foreach(@ARGV) {
  252.          if (($_ ne '--gnome-terminal') and ($_ ne '--konsole')) {
  253.             $buff0 = "$buff0"." $_";
  254.          }
  255.       }
  256.       exec("gnome-terminal --hide-menubar --title=GPC-Slots2 --geometry=80x30 -x perl $0 $buff0");
  257.    } elsif (@ARGV[0] eq '--konsole') {
  258.       $buff0 = '';
  259.       foreach(@ARGV) {
  260.          if (($_ ne '--konsole') and ($_ ne '--gnome-terminal')) {
  261.             $buff0 = "$buff0"." $_";
  262.          }
  263.       }
  264.       exec("konsole --noresize --nohist --noscrollbar --notabbar --notoolbar --nomenubar --nohist --noframe --vt_sz 80x30 --T=GPC-Slots2 -e perl $0 $buff0");
  265.    } else {
  266.       foreach(@ARGV) {
  267.          if (($_ eq '-h') or ($_ eq '-help') or ($_ eq '--help')) {
  268.          print'GPCSLOTS 2'; print"\n";
  269.          print' By The Entity Known As MikeeUSA'; print"\n";
  270.          print"\n";
  271.          print'This program is free software; you can redistribute it and/or'; print"\n";
  272.          print'modify it under the terms of the GNU General Public License'; print"\n";
  273.          print'as published by the Free Software Foundation; either version 2'; print"\n";
  274.          print'of the License, or (at your option) any later version.'; print"\n";
  275.          print"\n";
  276.          print'This program is distributed in the hope that it will be useful,'; print"\n";
  277.          print'but WITHOUT ANY WARRANTY; without even the implied warranty of'; print"\n";
  278.          print'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the'; print"\n";
  279.          print'GNU General Public License for more details.'; print"\n";
  280.          print"\n";
  281.          print'You should have received a copy of the GNU General Public License'; print"\n";
  282.          print'along with this program; if not, write to the Free Software'; print"\n";
  283.          print'Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.'; print"\n";
  284.          print"\n";
  285.          print'WWW: https://cat2.dynu.ca    '; print"\n";
  286.          print'IRC: cat2.dynu.ca  #linux    '; print"\n\n";
  287.          print'Usage: gpcslots2 [options]'; print"\n";
  288.             print'Where [options] are any of:'; print"\n";
  289.          print'-h,   --help                  Display this help screen'; print"\n";
  290.          print'-k,   --keys                  Display keyboard commands information'; print"\n";
  291.          print'-nan, --no-ansi               Turn ANSI color off'; print"\n";
  292.          print'-an,  --ansi                  Turn ANSI color on (Default)'; print"\n";
  293.          print'-na,  --no-animation          Turn all animations off'; print"\n";
  294.          print'-a,   --animation             Turn all animations on (Default)'; print"\n";
  295.          print'-nt,  --no-vt100              Turn vt100 support off'; print"\n";
  296.          print'-t,   --vt100                 Turn vt100 support on (Default)'; print"\n";
  297.          print'-nu,  --no-unix               Turn unix specific code off'; print"\n";
  298.          print'-u,   --unix                  Turn unix specific code on (Default)'; print"\n";
  299.          print'-nsfx,--no-soundfx            Turn terminal (beep) soundfx off'; print"\n";
  300.          print'-sfx, --sounfx                Turn terminal (beep) soundfx on (Default)'; print"\n";
  301.          print'-nm,  --no-music              Turn music off (Default)'; print"\n";
  302.          print'-m,   --music                 Turn music on'; print"\n";
  303.          print'-npt, --no-playtracking      Turn playtracking off (Default)'; print"\n";
  304.          print'-pt,  --playtracking         Turn playtracking on (used for html graph)'; print"\n";
  305.          print'-as1, --animation-speed-1     Set animation speed to 1/1X (Default)'; print"\n";
  306.          print'-as2, --animation-speed-2     Set animation speed to 1/2X'; print"\n";
  307.          print'-as3, --animation-speed-3     Set animation speed to 1/3X'; print"\n";
  308.          print'      --name                  Change casino title name(not available in-game)'; print"\n";
  309.          print'      --gnome-terminal        Open in gnome-terminal(not available in-game)'; print"\n";
  310.          print'                              (Ex: gpcslots2 --gnome-terminal -m -nsfx )'; print"\n";
  311.          print'      --konsole               Open in konsole(not available in-game)'; print"\n";
  312.          print'                              (Ex: gpcslots2 --konsole -m -nsfx )'; print"\n";
  313.          print'      --dual                  Seperate output of forground and background'; print"\n";
  314.          print'                              for use with Multi-Layer LCDs (not available in-game)'; print"\n";
  315.          exit();
  316.          } elsif (($_ eq '-k') or ($_ eq '-keys') or ($_ eq '--keys')) {
  317.          print'P             On Slotmachines: Enters a token or tokens and spins the reels'; print"\n";
  318.          print'              On Table Games: Rolls the dice or spins the roulette wheel'; print"\n";
  319.          print'              On Status Printout Machine: Prints game stats to a html file'; print"\n";
  320.          print'            Meaning: Play'; print"\n";
  321.          print'1P            On Slotmachines: Enters a token or tokens and spins the reels'; print"\n";
  322.          print'            Meaning: Play One'; print"\n";
  323.          print'2P,3P...8P    On Slotmachines: Enters tokens, selects multiple play lines,'; print"\n";
  324.          print'                               and then spins the reels'; print"\n";
  325.          print'            Meaning: Play Two, Play Three...Play Eight'; print"\n";
  326.          print"\n";
  327.          print'A             On Slotmachines: Executes the last entered valid command'; print"\n";
  328.          print'              On Table Games: Rolls the dice or spins the roulette wheel'; print"\n";
  329.          print'            Meaning: Again'; print"\n";
  330.          print'B             On Table Games: Set your bet'; print"\n";
  331.          print'            Meaning: Bet'; print"\n";
  332.          print'C             On Slotmachines: Returns to casino menu'; print"\n";
  333.          print'              On Table Games: Returns to casino menu'; print"\n";
  334.          print'              On Status Printout Machine: Returns to casino menu'; print"\n";
  335.          print'            Meaning: Casino Menu'; print"\n";
  336.          print'EXIT          On Slotmachines: Quits game'; print"\n";
  337.          print'              On Table Games: Quits game'; print"\n";
  338.          print'              On Status Printout Machine: Quits game'; print"\n";
  339.          print'              On Casino Menu: Quits game'; print"\n";
  340.          print'            Meaning: Exit game'; print"\n";
  341.          print'N             On Table Games: Select numbers to bet on'; print"\n";
  342.          print'            Meaning: Numbers'; print"\n";
  343.          print"\n";
  344.          print'1,2,3...10    On Casino Menu: Selects and enters a subgame'; print"\n";
  345.          print'            Meaning: Select Game One, Two, Three... Ten'; print"\n";
  346.          exit();
  347.          }
  348.          
  349.       }
  350.       $name = '                            WELCOME TO MIKEEUSA\'S                               ';
  351.       $namedeath = '                          YOU HAVE DIED IN MIKEEUSA\'S                           ';
  352.       $nametog = 0;
  353.       $buff0 = '';
  354.       foreach(@ARGV) {
  355.          if ($nametog == 1) {
  356.             $name = $_;
  357.             $name =~ s/[^a-zA-Z0-9_ \:\?\.\,\"\;\`\~\\\/\[\]\{\}\!\@\#\$\%\^\&\*\-\_\=\+\(\)]//g;
  358.             $namechars = 0;
  359.             
  360.             while ($name =~ /[a-zA-Z0-9_ \:\?\.\,\"\;\`\~\\\/\[\]\{\}\!\@\#\$\%\^\&\*\-\_\=\+\(\)]/g) {
  361.                $namechars = $namechars + 1;
  362.             }
  363.             
  364.             #Odd or even?
  365.             $buff0 = ($namechars/2);
  366.             ($buff1, $buff0) = split(/./,$buff0, 2);
  367.             if ($buff0 == .5) {
  368.             #Odd Number
  369.             #Offsets ("38" "42") are not equal because the welcome and death screen text is not perfectly centered.
  370.                $buff0 = ' 'x(38 - (($namechars+1)/2));
  371.                $name = "$buff0"."$name";
  372.                $buff0 = ' 'x(42 - (($namechars-1)/2));
  373.                $name = "$name"."$buff0";
  374.             } else {
  375.             #Even Number
  376.             #Offsets ("38" "42") are not equal because the welcome and death screen text is not perfectly centered.
  377.                $buff0 = ' 'x(38 - ($namechars/2));
  378.                $buff1 = ' 'x(42 - ($namechars/2));
  379.                $name = "$buff0"."$name"."$buff1";
  380.                
  381.             }
  382.             
  383.             $namedeath = $name;
  384.             
  385.             $buff0 = '';
  386.             $buff1 = '';
  387.             $nametog = 0;
  388.          } elsif (($_ eq '--name') or ($_ eq '-name')) {
  389.             $nametog = 1;
  390.          }
  391.       }
  392.    }
  393. }
  394. BEGIN {
  395.    print"\n";
  396.    print'GPCSLOTS 2'; print"\n";
  397.    print' By The Entity Known As MikeeUSA'; print"\n";
  398.    print"\n";
  399.    print'This program is free software; you can redistribute it and/or'; print"\n";
  400.    print'modify it under the terms of the GNU General Public License'; print"\n";
  401.    print'as published by the Free Software Foundation; either version 2'; print"\n";
  402.    print'of the License, or (at your option) any later version.'; print"\n";
  403.    print"\n";
  404.    print'This program is distributed in the hope that it will be useful,'; print"\n";
  405.    print'but WITHOUT ANY WARRANTY; without even the implied warranty of'; print"\n";
  406.    print'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the'; print"\n";
  407.    print'GNU General Public License for more details.'; print"\n";
  408.    print"\n";
  409.    print'You should have received a copy of the GNU General Public License'; print"\n";
  410.    print'along with this program; if not, write to the Free Software'; print"\n";
  411.    print'Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.'; print"\n";
  412.    print"\n";
  413.    print'WWW: https://cat2.dynu.ca    '; print"\n";
  414.    print'IRC: cat2.dynu.ca  #linux    '; print"\n";
  415.    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\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";
  416.    print'                                                                                 '; print"\n";
  417.    print'                                                                                '; print"\n";
  418.    print'                                                                                '; print"\n";
  419.    print"$name"; print"\n";
  420.    print'                               GENERAL PUBLIC                                   '; print"\n";
  421.    print'                                                                                '; print"\n";
  422.    print'                           SSSSSS     IIIIIIIIIII                               '; print"\n";
  423.    print'                         SSSSSSSSSS  IIIIIIIIIIIII                              '; print"\n";
  424.    print'                        SSSS    SSSS     IIIII                                  '; print"\n";
  425.    print'                  A     SSS              IIIII      NNNN     NNNNN              '; print"\n";
  426.    print'                 AAA    SSSS             IIIII      NNNNN     NNN               '; print"\n";
  427.    print'                AAAAA    SSSSSSSSS       IIIII      NNNNNN    NNN               '; print"\n";
  428.    print'               AAAAAAA    SSSSSSSSS      IIIII      NNNNNNN   NNN               '; print"\n";
  429.    print'    CCCCCC    AAAA AAAA         SSSS     IIIII      NNN NNNN  NNN     OOOOOOO   '; print"\n";
  430.    print'  CCCCCCCCCC  AAA   AAA          SSS     IIIII      NNN  NNNN NNN   OOOOOOOOOOO '; print"\n";
  431.    print' CCCC    CCCC AAAAAAAAA SSSS    SSSS     IIIII      NNN   NNNNNNN  OOOOO   OOOOO'; print"\n";
  432.    print' CCC          AAA   AAA  SSSSSSSSSS  IIIIIIIIIIIII  NNN    NNNNNN  OOOO     OOOO'; print"\n";
  433.    print' CCC          AAA   AAA    SSSSSS     IIIIIIIIIII   NNN     NNNNN  OOOO     OOOO'; print"\n";
  434.    print' CCCC    CCCC AAA   AAA                            NNNNN     NNNN  OOOOO   OOOOO'; print"\n";
  435.    print'  CCCCCCCCCC                                                        OOOOOOOOOOO '; print"\n";
  436.    print'    CCCCCC                                                            OOOOOOO   '; print"\n";
  437.    print'                                                                                '; print"\n";
  438.    print'                                                                                '; print"\n";
  439.    print'                                                                                '; print"\n";
  440.    print'                                 [LOADING]                                      '; print"\n";
  441.    print'                                                                                '; print"\n";
  442.    print'                                                                                '; print"\n";
  443.    print'                                                                                '; print"\n";
  444.    print'                                                                                '; print"\n";
  445.    print'                                                                                '; print"\n";
  446. }
  447. startup();
  448. sub startup {
  449.    colorset_normal();
  450.    testmusic();
  451.    beginmusic();
  452.    setslotrandnums();
  453.    $version = '0.4.5'; #0.4.5 in progress.
  454.    $loadsavefile = 0;
  455.    $buff0 = '';   #Used Often
  456.    $buff1 = '';
  457.    $buff2 = '';   #Only used when Buff0 and 1 are concurrently in use
  458.    $buff3 = '';
  459.    $buff4 = '';
  460.    $hrbonus = 0;
  461.    $hrbonushlp = 0;
  462.    $hrbonusstd = 100; #How many bonus rounds are given out on triple bonus symbol win.
  463.    $hrbonushlpstd = 4;#Determines if there are increased odds of bonus after triple bells, Set to 1 more then the number of turns you want.
  464.    $hrbulbcolor = 'null'; #Blackened Bulbs
  465.    $ccrapswin = 0;
  466.    $ccrapslose = 0;
  467.    $ccrapstie = 0;
  468.    $ccrapspoint = 0;
  469.    $ccrapscraps = 0;
  470.    $ccrapsnumberofrolls = 0;
  471.    $ccrapsstart2 = ' ';
  472.    $ccrapsadded = 0;
  473.    $ccrapsstart2 = ' ';
  474.    $sbtstart2 = ' ';
  475.    $proadd = 0;
  476.    $startmoney = 100;
  477.    $coin = 1; #What Each Slot Machine Token is Worth in coin.
  478.    $coineval = 0;   #Do we evaluate what a token should be worth every play?
  479.    $coinmultiple = 0; #If so, what has the user set this multiple to be (should be a less than 1 multiple)
  480.    $money = $startmoney;
  481.    $runmain = 1;
  482.    $moneyexp = 0;
  483.    $lvrmoney = 0;
  484.    $lvrbet = 0;
  485.    $lvrsetup = 0; # 0 = Monte Carlo Roulette, 1 = Roulette De Americana
  486.    $lvrfuturecarlo = 0; # 0 = Classic Monte Carlo Roulette, 1 = Futuristic Spinner
  487.    $lvrimprison = 0;
  488.    $rllvrbet = 0;
  489.    $rllvrsetup = 0; # 0 = Monte Carlo Roulette, 1 = Roulette De Americana
  490.    $rllvrfuturecarlo = 0; # 0 = Classic Monte Carlo Roulette, 1 = Futuristic Spinner
  491.    $sbtnumber = 0;
  492.    $sbtbet = 0;
  493.    $sbtmoney = 0;
  494.    $ccrapsnumber = 0;
  495.    $ccrapsbet = 0;
  496.    $ccrapsmoney = 0;
  497.    $ccrapssetup = 0;
  498.    $spins = 0;
  499.    $projkpot = 20000000;
  500.    $projkpot2 = 1592837;
  501.    $addmoney = 0;
  502.    $ddaddmoney = 0;
  503.    $ngemangemmoney = 0;
  504.    $ruskiemoney = 0;
  505.    $x = 'null';
  506.    $ddx = ' ';
  507.    $ddstartreel = 1;
  508.    $potluckplaylevel = 0;
  509.    $potluckapotluckmoney = 0;
  510.    $potluckxP1p = ' ';
  511.    $potluckxP1Zp = ' ';
  512.    $potluckxP2p = ' ';
  513.    $potluckxP2Zp = ' ';
  514.    $potluckxP2p4x1 = ' ';
  515.    $potluckxP2p4x2 = ' ';
  516.    $potluckxP3p = ' ';
  517.    $potluckxP3Zp = ' ';
  518.    $potluckxP3p4x1 = ' ';
  519.    $potluckxP3p4x2 = ' ';
  520.    $potluckxP4p = ' ';
  521.    $potluckxP4Zp = ' ';
  522.    $potluckxP5p = ' ';
  523.    $potluckxP5Zp = ' ';
  524.    $potluckxP6p = ' ';
  525.    $potluckxP6Zp = ' ';
  526.    $potluckxP7p = ' ';
  527.    $potluckxP7Zp = ' ';
  528.    $potluckxP8p = ' ';
  529.    $potluckxP8Zp = ' ';
  530.    $potluckstartreel = 1;
  531.    $ngemsymbol = 0;
  532.    $ngemplaylevel = 0;
  533.    $ngemx12 = ' ';
  534.    $ngemx23 = ' ';
  535.    $ngemx34 = ' ';
  536.    $ngemx45 = ' ';
  537.    $ngemx123 = ' ';
  538.    $ngemx234 = ' ';
  539.    $ngemx345 = ' ';
  540.    $ngemx1234 = ' ';
  541.    $ngemx2345 = ' ';
  542.    $ngemx12345 = ' ';
  543.    $ngemstartreel = 1;
  544.    $anybar = 0;
  545.    $anybar1 = 0;
  546.    $anybar2 = 0;
  547.    $anybar3 = 0;
  548.    $anycherry = 0;
  549.    $anycherry1 = 0;
  550.    $anycherry2 = 0;
  551.    $anycherry3 = 0;
  552.    $onecherry = 0;
  553.    $nonep = 0;
  554.    $startreel = 1;
  555.    $anydollar = 0;
  556.    $anydollar1 = 0;
  557.    $anydollar2 = 0;
  558.    $anydollar3 = 0;
  559.    $reelspin = 0;
  560.    $ddreelspin = 0;
  561.    $ssreelspin = 0;
  562.    $ngemreelspin = 0;
  563.    $potluckreelspin = 0;
  564.    $lvrreelspin = 0;
  565.    $rllvrreelspin = 0;
  566.    $ssaddmoney = 0;
  567.    $ssaddmoney1 = 0;
  568.    $ssaddmoney2 = 0;
  569.    $ssaddmoney3 = 0;
  570.    $ssaddmoney4 = 0;
  571.    $ssaddmoney5 = 0;
  572.    $ssx1 = 'null';
  573.    $ssx2 = 'null';
  574.    $ssx3 = 'null';
  575.    $ssx4 = 'null';
  576.    $ssx5 = 'null';
  577.    $sslines = 1;
  578.    $ssmisalign1 = 0;
  579.    $ssmisalign2 = 0;
  580.    $ssmisalign3 = 0;
  581.    $lvrstart1 = ' ';
  582.    $lvrstart2 = ' ';
  583.    $lvrwinnbr = 0;
  584.    $rllvrstart1 = ' ';
  585.    $rllvrstart2 = ' ';
  586.    $rllvrwinnbr = 0;
  587.    $hrstspins = 0;
  588.    $ddstspins = 0;
  589.    $ssstspins = 0;
  590.    $ruskiestspin = 0;
  591.    $lvrstspins = 0;
  592.    $rllvrstspins = 0;
  593.    $sbtstspins = 0;
  594.    $ccrapsstspins = 0;
  595.    $ngemstspins = 0;
  596.    $potluckstspins = 0;
  597.    $hrstwin = 0;
  598.    $hrstlose = 0;
  599.    $ngemstwin = 0;
  600.    $ngemstlose = 0;
  601.    $potluckstwin = 0;
  602.    $potluckstlose = 0;
  603.    $ruskieold = 0;
  604.    $ddstwin = 0;
  605.    $ddstlose = 0;
  606.    $ssstwin = 0;
  607.    $ssstlose = 0;
  608.    $rrstwin = 0;
  609.    $rrstlose = 0;
  610.    $lvrstwin = 0;
  611.    $lvrstlose = 0;
  612.    $rllvrstwin = 0;
  613.    $rllvrstlose = 0;
  614.    $sbtstwin = 0;
  615.    $sbtstlose = 0;
  616.    $ccrapsstwin = 0;
  617.    $ccrapsstlose = 0;
  618.    $esegpenguinhrs = 0;
  619.    $hrstmc = 0;
  620.    $ddstmc = 0;
  621.    $ssstmc = 0;
  622.    $ngemstmc = 0;
  623.    $potluckstmc = 0;
  624.    $rrstmc = 0;
  625.    $lvrstmc = 0;
  626.    $rllvrstmc = 0;
  627.    $sbtstmc = 0;
  628.    $ccrapsstmc = 0;
  629.    $hrstmc2 = 0;
  630.    $ddstmc2 = 0;
  631.    $ssstmc2 = 0;
  632.    $rrstmc2 = 0;
  633.    $lvrstmc2 = 0;
  634.    $rllvrstmc2 = 0;
  635.    $sbtstmc2 = 0;
  636.    $ccrapsstmc2 = 0;
  637.    $ngemstmc2 = 0;
  638.    $potluckstmc2 = 0;
  639.    $beepnum = 0;
  640.    $banktruesavrte = 0.03; #Bank savings account interest rate.
  641.    $banksavperiod = 1000;   #Period, (Example X% per Annum)
  642.    $banksavcpndintvl = 10000000; #How many turns before interest is compounded
  643.    $banksavingintvl = 0; #Counter
  644.    $banksavintrst = 0; #This period's interest
  645.    $banksavmoney = 0; #The acctual account
  646.    $banksavsprncpletrk = 0; #Tracks all deposits over the life of the account
  647.    $banksavswthdrwtrk = 0; #Tracks all withdrawals over the life of the account
  648.    $banksavsprncple = 0; #Current Deposited Principle
  649.    $banksavecrintsttrk = 0; #Tracks Current Intrest (total - principle)
  650.    $banksavintrsttrk = 0; #Tracks the total earned interest over the life of the account
  651.    $bankdepst = 0;
  652.    $bankwtdrl = 0;
  653.    $bankstkbuy = 0;
  654.    $bankstksell = 0;
  655.    $bankstkpttotal = 0;
  656.    $bankfndmorinfo = 0;
  657.    ##$ssagaincmd;
  658.    ##$ddagaincmd;
  659.    ##$ngemagaincmd;
  660.    ##$hragaincmd;
  661.    $savefile = '.gpcs2-savefile';
  662.    $loadedsavefile = 0;
  663.    $allowhtml = 1; #Set to 0 if you are going to use GPC-Slots 2 as a user's shell :)
  664.    $allowsave = 1; #Set to 0 if you do not want a user to beable to save his progress.
  665.    $htmlcolor0 = 'BLACK';     #background color
  666.    $htmlcolor1 = 'GREY';      #text color
  667.    $htmlcolor2 = 'LIGHTBLUE'; #logo a
  668.    $htmlcolor3 = 'BLUE';      #logo b
  669.    $htmlcolor4 = 'YELLOW';    #logo c
  670.    $htmlcolor5 = 'RED';    #link color
  671.    $htmlcolor6 = 'DARKGREY';    #link color
  672.    $htmlcolor7 = 'GREY';      #text color
  673.    $htmltitle = 'GPCSlots2-Stats';
  674.   [email protected] = ("$money");
  675.    if ($startmoney >= 500) {
  676.       $htmldivide = ($startmoney/20);
  677.    } else {
  678.       $htmldivide = ($startmoney/10);
  679.    }
  680.    $htmldivide = sprintf("%.0f", $htmldivide );
  681.    
  682.    commandargs();
  683.    computesverte();
  684.    if (($loadsavefile == 1) && ($allowsave == 1)) {
  685.       loadsavefile();
  686.       zerosavefile();
  687.       $loadsavefile = 0;
  688.       $loadedsavefile = 1;
  689.    }
  690.    stockmarketinit();
  691.    spinreel();
  692.    ddspinreel();
  693.    ssspinreel();
  694.    ngem45init();
  695.    ngemspinreel();
  696.    potluck45init();
  697.    potluckspinreel();
  698.    ruskieinit();
  699.    lvrnbrreset();
  700.    lvrspin();
  701.    rllvrnbrreset();
  702.    rllvrspin();
  703.    sbtresetnum();
  704.    sbtthrowdice();
  705.    ccrapsresetnum();
  706.    ccrapsthrowdice();
  707.    titlemain();
  708. }
  709. sub setslotrandnums {
  710.    #House Rules Reel Deel
  711.    $hrrandnums = 107;     #No Bonus 103 #Bonus 107
  712.    #Potluck
  713.    $potluckrandnums = 53; #Old Standard 50  #Profitable to casino at 53 and above
  714. }
  715. sub colorset_normal {
  716.    $bgcwhite = 'white';
  717.    $bgcblack = 'black';
  718.    $bgcred = 'red';
  719.    $bgcgreen = 'green';
  720.    $bgcblue = 'blue';
  721.    $bgccyan = 'cyan';
  722.    $bgcyellow = 'yellow';
  723.    $bgcmagenta = 'magenta';
  724.    $white = 'white';
  725.    $black = 'black';
  726.    $red = 'red';
  727.    $green = 'green';
  728.    $blue = 'blue';
  729.    $cyan = 'cyan';
  730.    $yellow = 'yellow';
  731.    $magenta = 'magenta';
  732.    $boldwhite = 'bold white';
  733.    $boldblack = 'bold black';
  734.    $boldred = 'bold red';
  735.    $boldgreen = 'bold green';
  736.    $boldblue = 'bold blue';
  737.    $boldcyan = 'bold cyan';
  738.    $boldyellow = 'bold yellow';
  739.    $boldmagenta = 'bold magenta';   
  740.    $titlecolor = "$blue";
  741.    $decsscolor = "$green";
  742.    $sspx2 = "$boldgreen";
  743.    $sspx3 = "$boldgreen";
  744. }
  745. sub colorset_dull {
  746.    $bgcwhite = 'white';
  747.    $bgcblack = 'black';
  748.    $bgcred = 'red';
  749.    $bgcgreen = 'green';
  750.    $bgcblue = 'blue';
  751.    $bgccyan = 'cyan';
  752.    $bgcyellow = 'yellow';
  753.    $bgcmagenta = 'magenta';
  754.    $white = 'white';
  755.    $black = 'black';
  756.    $red = 'red';
  757.    $green = 'green';
  758.    $blue = 'blue';
  759.    $cyan = 'cyan';
  760.    $yellow = 'yellow';
  761.    $magenta = 'magenta';
  762.    $boldwhite = 'white';
  763.    $boldblack = 'black';
  764.    $boldred = 'red';
  765.    $boldgreen = 'green';
  766.    $boldblue = 'blue';
  767.    $boldcyan = 'cyan';
  768.    $boldyellow = 'yellow';
  769.    $boldmagenta = 'magenta';   
  770.    $titlecolor = "$blue";
  771.    $decsscolor = "$green";
  772.    $sspx2 = "$boldgreen";
  773.    $sspx3 = "$boldgreen";
  774. }
  775. sub colorset_bright {
  776.    $bgcwhite = 'white';
  777.    $bgcblack = 'black';
  778.    $bgcred = 'red';
  779.    $bgcgreen = 'green';
  780.    $bgcblue = 'blue';
  781.    $bgccyan = 'cyan';
  782.    $bgcyellow = 'yellow';
  783.    $bgcmagenta = 'magenta';
  784.    $white = 'bold white';
  785.    $black = 'bold black';
  786.    $red = 'bold red';
  787.    $green = 'bold green';
  788.    $blue = 'bold blue';
  789.    $cyan = 'bold cyan';
  790.    $yellow = 'bold yellow';
  791.    $magenta = 'bold magenta';
  792.    $boldwhite = 'bold white';
  793.    $boldblack = 'bold black';
  794.    $boldred = 'bold red';
  795.    $boldgreen = 'bold green';
  796.    $boldblue = 'bold blue';
  797.    $boldcyan = 'bold cyan';
  798.    $boldyellow = 'bold yellow';
  799.    $boldmagenta = 'bold magenta';   
  800.    $titlecolor = "$blue";
  801.    $decsscolor = "$green";
  802.    $sspx2 = "$boldgreen";
  803.    $sspx3 = "$boldgreen";
  804. }
  805. sub colorset_inverse {
  806.    $bgcwhite = 'black';
  807.    $bgcblack = 'white';
  808.    $bgcred = 'cyan';
  809.    $bgcgreen = 'magenta';
  810.    $bgcblue = 'yellow';
  811.    $bgccyan = 'red';
  812.    $bgcyellow = 'blue';
  813.    $bgcmagenta = 'green';
  814.    $white = 'black';
  815.    $black = 'white';
  816.    $red = 'cyan';
  817.    $green = 'magenta';
  818.    $blue = 'yellow';
  819.    $cyan = 'red';
  820.    $yellow = 'blue';
  821.    $magenta = 'green';   
  822.    $boldwhite = 'bold black';
  823.    $boldblack = 'bold white';
  824.    $boldred = 'bold cyan';
  825.    $boldgreen = 'bold magenta';
  826.    $boldblue = 'bold yellow';
  827.    $boldcyan = 'bold red';
  828.    $boldyellow = 'bold blue';
  829.    $boldmagenta = 'bold green';   
  830.    $titlecolor = "$blue";
  831.    $decsscolor = "$green";
  832.    $sspx2 = "$boldgreen";
  833.    $sspx3 = "$boldgreen";
  834. }
  835. sub colorset_notld {
  836.    $bgcwhite = 'red';
  837.    $bgcblack = 'black';
  838.    $bgcred = 'red';
  839.    $bgcgreen = 'red';
  840.    $bgcblue = 'red';
  841.    $bgccyan = 'red';
  842.    $bgcyellow = 'red';
  843.    $bgcmagenta = 'red';
  844.    $white = 'white';
  845.    $black = 'black';
  846.    $red = 'bold red';
  847.    $green = 'green';
  848.    $blue = 'blue';
  849.    $cyan = 'cyan';
  850.    $yellow = 'yellow';
  851.    $magenta = 'magenta';
  852.    $boldwhite = 'bold white';
  853.    $boldblack = 'bold black';
  854.    $boldred = 'bold red';
  855.    $boldgreen = 'bold green';
  856.    $boldblue = 'bold blue';
  857.    $boldcyan = 'bold cyan';
  858.    $boldyellow = 'bold yellow';
  859.    $boldmagenta = 'bold magenta';   
  860.    $titlecolor = "$blue";
  861.    $decsscolor = "$green";
  862.    $sspx2 = "$boldgreen";
  863.    $sspx3 = "$boldgreen";
  864. }
  865. sub colorset_lightsout {
  866.    $bgcwhite = 'black';
  867.    $bgcblack = 'black';
  868.    $bgcred = 'black';
  869.    $bgcgreen = 'black';
  870.    $bgcblue = 'black';
  871.    $bgccyan = 'black';
  872.    $bgcyellow = 'black';
  873.    $bgcmagenta = 'black';
  874.    $white = 'white';
  875.    $black = 'black';
  876.    $red = 'red';
  877.    $green = 'green';
  878.    $blue = 'blue';
  879.    $cyan = 'cyan';
  880.    $yellow = 'yellow';
  881.    $magenta = 'magenta';   
  882.    $boldwhite = 'bold white';
  883.    $boldblack = 'bold black';
  884.    $boldred = 'bold red';
  885.    $boldgreen = 'bold green';
  886.    $boldblue = 'bold blue';
  887.    $boldcyan = 'bold cyan';
  888.    $boldyellow = 'bold yellow';
  889.    $boldmagenta = 'bold magenta';
  890.          
  891.    $titlecolor = "$blue";
  892.    $decsscolor = "$green";
  893.    $sspx2 = "$boldgreen";
  894.    $sspx3 = "$boldgreen";
  895. }
  896. sub colorset_blackwhite {
  897.    $bgcwhite = 'black';
  898.    $bgcblack = 'black';
  899.    $bgcred = 'black';
  900.    $bgcgreen = 'black';
  901.    $bgcblue = 'black';
  902.    $bgccyan = 'black';
  903.    $bgcyellow = 'black';
  904.    $bgcmagenta = 'black';
  905.    $white = 'white';
  906.    $black = 'white';
  907.    $red = 'white';
  908.    $green = 'white';
  909.    $blue = 'white';
  910.    $cyan = 'white';
  911.    $yellow = 'white';
  912.    $magenta = 'white';   
  913.    $boldwhite = 'bold white';
  914.    $boldblack = 'bold white';
  915.    $boldred = 'bold white';
  916.    $boldgreen = 'bold white';
  917.    $boldblue = 'bold white';
  918.    $boldcyan = 'bold white';
  919.    $boldyellow = 'bold white';
  920.    $boldmagenta = 'bold white';      
  921.    $titlecolor = "$blue";
  922.    $decsscolor = "$green";
  923.    $sspx2 = "$boldgreen";
  924.    $sspx3 = "$boldgreen";
  925. }
  926. our $execution_of_commandargs;
  927. sub commandargs {
  928.    if(!$execution_of_commandargs)
  929.    {
  930.       $SEP = ''
  931.    }
  932.    foreach(@ARGV) {
  933.       if (($_ eq '-nan') or ($_ eq '--no-ansi')) {
  934.          if ($compatANSI != 0) {
  935.             $ENV{ANSI_COLORS_DISABLED} = 1;
  936.          }
  937.          $compatANSI = 0;   
  938.       }
  939.       
  940.       if (($_ eq '-an') or ($_ eq '--ansi')) {
  941.          if ($compatANSI != 1) {
  942.             delete $ENV{ANSI_COLORS_DISABLED};
  943.          }
  944.          $compatANSI = 1;
  945.       }
  946.       
  947.       if (($_ eq '-na') or ($_ eq '--no-animation')) {
  948.          $animate = 0;   
  949.       }
  950.       
  951.       if (($_ eq '-a') or ($_ eq '--animation')) {
  952.          $animate = 1;   
  953.       }
  954.       
  955.       if (($_ eq '-nt') or ($_ eq '--no-vt100')) {
  956.          $compatVT100 = 0;   
  957.       }
  958.       
  959.       if (($_ eq '-t') or ($_ eq '--vt100')) {
  960.          $compatVT100 = 1;   
  961.       }
  962.       
  963.       if (($_ eq '-nu') or ($_ eq '--no-unix')) {
  964.          $compatUNIXY = 0;   
  965.       }
  966.       
  967.       if (($_ eq '-u') or ($_ eq '--unix')) {
  968.          $compatUNIXY = 1;   
  969.       }
  970.       
  971.       if (($_ eq '-nsfx') or ($_ eq '--no-soundfx')) {
  972.          $soundfx = 0;   
  973.       }
  974.       
  975.       if (($_ eq '-2') or ($_ eq '--dual')) {
  976.          $SEP = "\377" if !$execution_of_commandargs;
  977.       }
  978.       
  979.       if (($_ eq '-sfx') or ($_ eq '--soundfx')) {
  980.          $soundfx = 1;   
  981.       }
  982.       
  983.       if (($_ eq '-npt') or ($_ eq '--no-playtracking')) {
  984.          $playtrack = 0;   
  985.       }
  986.       
  987.       if (($_ eq '-pt') or ($_ eq '--playtracking')) {
  988.          $playtrack = 1;   
  989.       }
  990.       
  991.       if (($_ eq '-nm') or ($_ eq '--no-music')) {
  992.          if ($music == 1) {
  993.             killmusic();
  994.             $music = 0;
  995.          } else {
  996.             $music = 0;
  997.          }   
  998.       }
  999.       
  1000.       if (($_ eq '-m') or ($_ eq '--music')) {
  1001.          if ($music == 0) {
  1002.             $music = 1;
  1003.             testmusic();
  1004.             beginmusic();
  1005.          } else {
  1006.             $music = 1;
  1007.          }   
  1008.       }            
  1009.       
  1010.       if (($_ eq '-as1') or ($_ eq '--animation-speed-1')) {
  1011.          $anispeed = 1;   
  1012.       }
  1013.       
  1014.       if (($_ eq '-as2') or ($_ eq '--animation-speed-2')) {
  1015.          $anispeed = 2;   
  1016.       }
  1017.       
  1018.       if (($_ eq '-as3') or ($_ eq '--animation-speed-3')) {
  1019.          $anispeed = 3;   
  1020.       }
  1021.       
  1022.       if (($_ eq '-l') or ($_ eq '--load-savefile')) {
  1023.          $loadsavefile = 1;   
  1024.       }
  1025.    }
  1026.    if(!$execution_of_commandargs and $SEP ne '')
  1027.    {
  1028.       binmode STDOUT, ':via(PrintWrapper)';
  1029.    }
  1030.    $execution_of_commandargs = 1;
  1031. }
  1032. sub titlemain {
  1033.    while ($runmain == 1) {
  1034.       newlines();
  1035.       titlescreen();   
  1036.    }
  1037. }
  1038. sub titlescreen {
  1039. print colored('                                                                                ',"$boldyellow on_$bgcblack"); print"\n";
  1040. print colored('                                                                                ',"$boldyellow on_$bgcblack"); print"\n";
  1041. print colored("$name","$boldyellow on_$bgcblack"); print"\n";
  1042. print colored("                               GENERAL PUBLIC                                   ","$boldyellow on_$bgcblack"); print"\n";
  1043. print colored("                                                                                ","$boldyellow on_$bgcblack"); print"\n";
  1044. print colored('                           SSSSSS     IIIIIIIIIII                               ',"$titlecolor on_$bgcblack"); print"\n";
  1045. print colored('                         SSSSSSSSSS  IIIIIIIIIIIII                              ',"bold $titlecolor on_$bgcblack"); print"\n";
  1046. print colored('                        SSSS    SSSS     IIIII                                  ',"$titlecolor on_$bgcblack"); print"\n";
  1047. print colored('                  A     SSS              IIIII      NNNN     NNNNN              ',"bold $titlecolor on_$bgcblack"); print"\n";
  1048. print colored('                 AAA    SSSS             IIIII      NNNNN     NNN               ',"$titlecolor on_$bgcblack"); print"\n";
  1049. print colored('                AAAAA    SSSSSSSSS       IIIII      NNNNNN    NNN               ',"bold $titlecolor on_$bgcblack"); print"\n";
  1050. print colored('               AAAAAAA    SSSSSSSSS      IIIII      NNNNNNN   NNN               ',"$titlecolor on_$bgcblack"); print"\n";       
  1051. print colored('    CCCCCC    AAAA AAAA         SSSS     IIIII      NNN NNNN  NNN     OOOOOOO   ',"bold $titlecolor on_$bgcblack"); print"\n";
  1052. print colored('  CCCCCCCCCC  AAA   AAA          SSS     IIIII      NNN  NNNN NNN   OOOOOOOOOOO ',"$titlecolor on_$bgcblack"); print"\n";
  1053. print colored(' CCCC    CCCC AAAAAAAAA SSSS    SSSS     IIIII      NNN   NNNNNNN  OOOOO   OOOOO',"bold $titlecolor on_$bgcblack"); print"\n";
  1054. print colored(' CCC          AAA   AAA  SSSSSSSSSS  IIIIIIIIIIIII  NNN    NNNNNN  OOOO     OOOO',"$titlecolor on_$bgcblack"); print"\n";
  1055. print colored(' CCC          AAA   AAA    SSSSSS     IIIIIIIIIII   NNN     NNNNN  OOOO     OOOO',"bold $titlecolor on_$bgcblack"); print"\n";
  1056. print colored(' CCCC    CCCC AAA   AAA                            NNNNN     NNNN  OOOOO   OOOOO',"$titlecolor on_$bgcblack"); print"\n";
  1057. print colored('  CCCCCCCCCC                                                        OOOOOOOOOOO ',"bold $titlecolor on_$bgcblack"); print"\n";
  1058. print colored('    CCCCCC                                                            OOOOOOO   ',"$titlecolor on_$bgcblack"); print"\n";
  1059. print colored('                                                                                ',"$boldyellow on_$bgcblack"); print"\n";
  1060. if ($moneyexp > 9999999999999999999) {
  1061. print colored(" Expended Cash: ".sprintf("%.18e", $moneyexp)."  ","$white on_$bgcblack");
  1062. } elsif ($moneyexp >= 100000000000000000) {
  1063. print colored(" Expended Cash: $moneyexp        ","$white on_$bgcblack");
  1064. } elsif ($moneyexp >= 10000000000000000) {
  1065. print colored(" Expended Cash: $moneyexp         ","$white on_$bgcblack");
  1066. } elsif ($moneyexp >= 1000000000000000) {
  1067. print colored(" Expended Cash: $moneyexp          ","$white on_$bgcblack");
  1068. } elsif ($moneyexp >= 100000000000000) {
  1069. print colored(" Expended Cash: $moneyexp           ","$white on_$bgcblack");
  1070. } elsif ($moneyexp >= 10000000000000) {
  1071. print colored(" Expended Cash: $moneyexp            ","$white on_$bgcblack");
  1072. } elsif ($moneyexp >= 1000000000000) {
  1073. print colored(" Expended Cash: $moneyexp             ","$white on_$bgcblack");
  1074. } elsif ($moneyexp >= 100000000000) {
  1075. print colored(" Expended Cash: $moneyexp              ","$white on_$bgcblack");
  1076. } elsif ($moneyexp >= 10000000000) {
  1077. print colored(" Expended Cash: $moneyexp               ","$white on_$bgcblack");
  1078. } elsif  ($moneyexp >= 1000000000) {   
  1079. print colored(" Expended Cash: $moneyexp                ","$white on_$bgcblack");
  1080. } elsif  ($moneyexp >= 100000000) {
  1081. print colored(" Expended Cash: $moneyexp                 ","$white on_$bgcblack");
  1082. } elsif  ($moneyexp >= 10000000) {
  1083. print colored(" Expended Cash: $moneyexp                  ","$white on_$bgcblack");
  1084. } elsif  ($moneyexp >= 1000000) {
  1085. print colored(" Expended Cash: $moneyexp                   ","$white on_$bgcblack");
  1086. } elsif  ($moneyexp >= 100000) {
  1087. print colored(" Expended Cash: $moneyexp                    ","$white on_$bgcblack");
  1088. } elsif  ($moneyexp >= 10000) {
  1089. print colored(" Expended Cash: $moneyexp                     ","$white on_$bgcblack");
  1090. } elsif  ($moneyexp >= 1000) {
  1091. print colored(" Expended Cash: $moneyexp                      ","$white on_$bgcblack");
  1092. } elsif  ($moneyexp >= 100) {
  1093. print colored(" Expended Cash: $moneyexp                       ","$white on_$bgcblack");
  1094. } elsif  ($moneyexp >= 10) {
  1095. print colored(" Expended Cash: $moneyexp                        ","$white on_$bgcblack");
  1096. } elsif  ($moneyexp >= 0) {
  1097. print colored(" Expended Cash: $moneyexp                         ","$white on_$bgcblack");
  1098. } else {
  1099. print colored(" Expended Cash: $moneyexp                          ","$white on_$bgcred");
  1100. }
  1101. print colored("                      version $version   ","$boldblack on_$bgcblack"); print"\n";
  1102. tokeneval();
  1103. if ($coin > 9999999999999999999) {
  1104. print colored(" Slotmachine Token Value: ".sprintf("%.18e", $coin)."                              ","$white on_$bgcblack"); print"\n";
  1105. } elsif ($coin >= 1000000000000000000) {
  1106. print colored(" Slotmachine Token Value: $coin                                   ","$white on_$bgcblack"); print"\n";
  1107. } elsif ($coin >= 100000000000000000) {
  1108. print colored(" Slotmachine Token Value: $coin                                    ","$white on_$bgcblack"); print"\n";
  1109. } elsif ($coin >= 10000000000000000) {
  1110. print colored(" Slotmachine Token Value: $coin                                     ","$white on_$bgcblack"); print"\n";
  1111. } elsif ($coin >= 1000000000000000) {
  1112. print colored(" Slotmachine Token Value: $coin                                      ","$white on_$bgcblack"); print"\n";
  1113. } elsif ($coin >= 100000000000000) {
  1114. print colored(" Slotmachine Token Value: $coin                                       ","$white on_$bgcblack"); print"\n";
  1115. } elsif ($coin >= 10000000000000) {
  1116. print colored(" Slotmachine Token Value: $coin                                        ","$white on_$bgcblack"); print"\n";
  1117. } elsif ($coin >= 1000000000000) {
  1118. print colored(" Slotmachine Token Value: $coin                                         ","$white on_$bgcblack"); print"\n";
  1119. } elsif ($coin >= 100000000000) {
  1120. print colored(" Slotmachine Token Value: $coin                                          ","$white on_$bgcblack"); print"\n";
  1121. } elsif ($coin >= 10000000000) {
  1122. print colored(" Slotmachine Token Value: $coin                                           ","$white on_$bgcblack"); print"\n";
  1123. } elsif  ($coin >= 1000000000) {
  1124. print colored(" Slotmachine Token Value: $coin                                            ","$white on_$bgcblack"); print"\n";
  1125. } elsif  ($coin >= 100000000) {
  1126. print colored(" Slotmachine Token Value: $coin                                             ","$white on_$bgcblack"); print"\n";
  1127. } elsif  ($coin >= 10000000) {
  1128. print colored(" Slotmachine Token Value: $coin                                              ","$white on_$bgcblack"); print"\n";
  1129. } elsif  ($coin >= 1000000) {
  1130. print colored(" Slotmachine Token Value: $coin                                               ","$white on_$bgcblack"); print"\n";
  1131. } elsif  ($coin >= 100000) {
  1132. print colored(" Slotmachine Token Value: $coin                                                ","$white on_$bgcblack"); print"\n";
  1133. } elsif  ($coin >= 10000) {
  1134. print colored(" Slotmachine Token Value: $coin                                                 ","$white on_$bgcblack"); print"\n";
  1135. } elsif  ($coin >= 1000) {
  1136. print colored(" Slotmachine Token Value: $coin                                                  ","$white on_$bgcblack"); print"\n";
  1137. } elsif  ($coin >= 100) {
  1138. print colored(" Slotmachine Token Value: $coin                                                   ","$white on_$bgcblack"); print"\n";
  1139. } elsif  ($coin >= 10) {
  1140. print colored(" Slotmachine Token Value: $coin                                                    ","$white on_$bgcblack"); print"\n";
  1141. } elsif  ($coin >= 0) {
  1142. print colored(" Slotmachine Token Value: $coin                                                     ","$white on_$bgcblack"); print"\n";
  1143. } else {
  1144. print colored(" Slotmachine Token Value: $coin                                                      ","$white on_$bgcred"); print"\n";
  1145. }
  1146. print colored('                                                                                ',"$boldwhite on_$bgcblack"); print"\n";
  1147. print colored('CHOOSE WHICH SLOT MACHINE YOU WISH TO PLAY                                      ',"$boldwhite on_$bgcblack"); print"\n";
  1148. print colored('1) House Rules Reel Deal     5) PotLuck                9) Sic Bo Tai Sai        ',"$boldwhite on_$bgcblack"); print"\n";
  1149. print colored('2) Double Blue Diamond       6) Russian Roulette      10) Casino Craps          ',"$boldwhite on_$bgcblack"); print"\n";
  1150. if ($esegpenguinhrs != 1) {
  1151.    print colored('3) High Roller Sevens        ',"$boldwhite on_$bgcblack");
  1152. } else {
  1153.    print colored('3) High Roller Penguins      ',"$boldwhite on_$bgcblack");
  1154. }
  1155. if ($lvrsetup == 0) {
  1156.    print colored('7) Monte Carlo Roulette ',"$boldwhite on_$bgcblack");
  1157. } else {
  1158.    print colored('7) Roulette De Americana',"$boldwhite on_$bgcblack");
  1159. }
  1160. print colored(' 11) Bank                  ',"$boldwhite on_$bgcblack");
  1161. print"\n";
  1162. print colored('4) Twilight Mine             8) Real Vegas Roulette   ',"$boldwhite on_$bgcblack");
  1163. if ($allowhtml == 1) {
  1164.    print colored('12) Status Printout       ',"$boldwhite on_$bgcblack");             
  1165. } else {
  1166.    print colored('12) N/A                   ',"$boldwhite on_$bgcblack");             
  1167. }
  1168. print"\n";
  1169. print color 'white';
  1170.    $titlescreen = <STDIN>;
  1171.    chomp($titlescreen);
  1172. print color 'reset';
  1173.    if ($titlescreen == 1) {
  1174.       newlines();
  1175.       main2();
  1176.    } elsif ($titlescreen == 2) {
  1177.       newlines();
  1178.       ddmain2();
  1179.    } elsif ($titlescreen == 3) {
  1180.       newlines();
  1181.       ssmain2();
  1182.    } elsif ($titlescreen == 11) {
  1183.       newlines();
  1184.       if ($music == 1) {
  1185.          killmusic();
  1186.          $music = 1;
  1187.          bankbeginmusic();
  1188.       } else {
  1189.          #NOTHING!
  1190.       }
  1191.       newlines();
  1192.       bankmachine();
  1193.    } elsif ($titlescreen == 12) {
  1194.       if ($allowhtml == 1) {
  1195.          newlines();
  1196.          statsmachine();
  1197.       } else {
  1198.          #Nothing
  1199.       }
  1200.    } elsif ($titlescreen == 4) {
  1201.       newlines();
  1202.       ngemmain2();
  1203.    } elsif ($titlescreen == 5) {
  1204.       newlines();
  1205.       potluckmain2();         
  1206.    } elsif ($titlescreen == 6) {
  1207.       newlines();
  1208.       if (($music == 1) and ($ruskieold == 0)) {
  1209.          killmusic();
  1210.          $music = 1;
  1211.          rrbeginmusic();
  1212.       } else {
  1213.          #NOTHING!
  1214.       }
  1215.       newlines();
  1216.       ruskieroll2();
  1217.    } elsif ($titlescreen == 7) {
  1218.       newlines();
  1219.       lvrmainspin2();
  1220.    } elsif ($titlescreen == 8) {
  1221.       newlines();
  1222.       rllvrmainspin2();
  1223.    } elsif ($titlescreen == 9) {
  1224.       newlines();
  1225.       sbtmainspin2();
  1226.    } elsif ($titlescreen == 10) {
  1227.       newlines();
  1228.       ccrapsmainspin2();                         
  1229.    } elsif (($titlescreen eq 'exit') or ($titlescreen eq 'EXIT') or ($titlescreen eq 'quit') or ($titlescreen eq 'QUIT')) {
  1230.       exitgame();
  1231.    } elsif (($titlescreen eq 'decss') or ($titlescreen eq 'DECSS'))  {
  1232.       newlines();
  1233.       viewdecss();
  1234.    } elsif (($titlescreen eq 'feminism') or ($titlescreen eq 'women')
  1235.       or ($titlescreen eq 'women\'s rights') or ($titlescreen eq '19th ammendment')
  1236.       or ($titlescreen eq 'women\'s vote')
  1237.       or ($titlescreen eq 'FEMINISM') or ($titlescreen eq 'WOMEN')
  1238.       or ($titlescreen eq 'WOMEN\'S RIGHTS') or ($titlescreen eq '19TH AMMENDMENT')
  1239.       or ($titlescreen eq 'WOMEN\'S VOTE'))  {
  1240.       newlines();   
  1241.       nowomensrights();
  1242.    } elsif (($titlescreen eq '-h') or ($titlescreen eq '--help') or ($titlescreen eq 'help') or ($titlescreen eq 'HELP') or ($titlescreen eq 'h') or ($titlescreen eq 'H')) {
  1243.       newlines();
  1244.       help();
  1245.       <STDIN>;
  1246.    } elsif (($titlescreen eq '-k') or ($titlescreen eq '--keys') or ($titlescreen eq 'keys') or ($titlescreen eq 'KEYS') or ($titlescreen eq 'commands') or ($titlescreen eq 'COMMANDS') or ($titlescreen eq 'k') or ($titlescreen eq 'K')) {
  1247.       newlines();
  1248.       helpkeys();
  1249.       <STDIN>;   
  1250.    } elsif (($titlescreen eq 'highrollerpenguins') or ($titlescreen eq 'HIGHROLLERPENGUINS')) {            
  1251.       if ($esegpenguinhrs == 0) {
  1252.          $esegpenguinhrs = 1;
  1253.       } else {
  1254.          $esegpenguinhrs = 0;
  1255.       }
  1256.    } elsif (($titlescreen eq 'twilightdiamonds') or ($titlescreen eq 'TWILIGHTDIAMONDS')) {            
  1257.       if ($ngemsymbol == 0) {
  1258.          $ngemsymbol = 1;
  1259.       } else {
  1260.          $ngemsymbol = 0;
  1261.       }
  1262.    } elsif (($titlescreen eq 'overtheocean') or ($titlescreen eq 'OVERTHEOCEAN')) {            
  1263.       if ($lvrsetup == 0) {
  1264.          $lvrsetup = 1;
  1265.       } else {
  1266.          $lvrsetup = 0;
  1267.       }
  1268.    } elsif (($titlescreen eq 'futurecarlo') or ($titlescreen eq 'FUTURECARLO')) {
  1269.       $lvrfuturecarlo = 1;
  1270.    } elsif (($titlescreen eq 'oldworldcharm') or ($titlescreen eq 'OLDWORLDCHARM')) {
  1271.       $lvrfuturecarlo = 0;
  1272.    } elsif (($titlescreen eq 'futurevegas') or ($titlescreen eq 'FUTUREVEGAS')) {
  1273.       $rllvrfuturecarlo = 1;
  1274.    } elsif (($titlescreen eq 'oldvegas') or ($titlescreen eq 'OLDVEGAS')) {
  1275.       $rllvrfuturecarlo = 0;
  1276.    } elsif (($titlescreen eq 'bluecraps') or ($titlescreen eq 'BLUECRAPS')) {
  1277.       $ccrapssetup = 0;
  1278.    } elsif (($titlescreen eq 'greencraps') or ($titlescreen eq 'GREENCRAPS')) {
  1279.       $ccrapssetup = 1;
  1280.    } elsif (($titlescreen eq 'cyancraps') or ($titlescreen eq 'CYANCRAPS')) {
  1281.       $ccrapssetup = 2;
  1282.    } elsif (($titlescreen eq 'highrollersevens') or ($titlescreen eq 'HIGHROLLERSEVENS')) {
  1283.       $esegpenguinhrs = 0;
  1284.    } elsif (($titlescreen eq 'twilightemeralds') or ($titlescreen eq 'TWILIGHTEMERALDS')) {
  1285.       $ngemsymbol = 0;
  1286.    } elsif (($titlescreen eq 'oldguard') or ($titlescreen eq 'OLDGUARD')) {
  1287.       $ruskieold = 1;
  1288.    } elsif (($titlescreen eq 'newguard') or ($titlescreen eq 'NEWGUARD')) {
  1289.       $ruskieold = 0;      
  1290.    } elsif (($titlescreen eq 'lightsout') or ($titlescreen eq 'LIGHTSOUT')) {            
  1291.       colorset_lightsout();
  1292.    } elsif (($titlescreen eq 'lightson') or ($titlescreen eq 'LIGHTSON')) {            
  1293.       colorset_normal();
  1294.    } elsif (($titlescreen eq 'wedidnthavecolor') or ($titlescreen eq 'WEDIDNTHAVECOLOR')) {            
  1295.       colorset_blackwhite();
  1296.    } elsif (($titlescreen eq 'gammarayburst') or ($titlescreen eq 'GAMMARAYBURST')) {            
  1297.       colorset_inverse();
  1298.    } elsif (($titlescreen eq 'dulltimes') or ($titlescreen eq 'DULLTIMES')) {            
  1299.       colorset_dull();
  1300.    } elsif (($titlescreen eq 'brighttimes') or ($titlescreen eq 'BRIGHTTIMES')) {            
  1301.       colorset_bright();
  1302.    } elsif (($titlescreen eq 'nightofthelivingdead') or ($titlescreen eq 'NIGHTOFTHELIVINGDEAD')) {            
  1303.       colorset_notld();
  1304.    } else {
  1305.      [email protected] = $titlescreen;
  1306.       commandargs();
  1307.    }
  1308.    
  1309.    return;
  1310. }
  1311. sub viewdecss {
  1312. print colored('     BEHOLD ALL YEE WHOM ENTER! ILLEGAL PRIME NUMBER OF DECSS FROM EFDTT.C:     ',"$boldyellow on_$bgcblack"); print"\n";
  1313. print colored('                                                                                ',"$boldyellow on_$bgcblack"); print"\n";
  1314. print colored('                                                   9454 7005113906              ',"$decsscolor on_$bgcblack"); print"\n";
  1315. print colored('            4445500929 6776927869 3366458905 0222897871 4950867838              ',"$decsscolor on_$bgcblack"); print"\n";
  1316. print colored('            0500658547 1078776889 6313320081 6447475865 9031815003              ',"$decsscolor on_$bgcblack"); print"\n";
  1317. print colored('            9822306942 1701682469 8468953527 7506293328 0780994198              ',"$decsscolor on_$bgcblack"); print"\n";
  1318. print colored('            5641052653 3345462508 4314006874 6551409510 2042852544              ',"$decsscolor on_$bgcblack"); print"\n";
  1319. print colored('            1264820432 9860820006 7866922287 2721350789 7567520105              ',"$decsscolor on_$bgcblack"); print"\n";
  1320. print colored('            6069007944 6509850383 1481013904 8399479601 6226100635              ',"$decsscolor on_$bgcblack"); print"\n";
  1321. print colored('            3638384224 3246104161 3899207128 5187220887 2165636447              ',"$decsscolor on_$bgcblack"); print"\n";
  1322. print colored('            9923851594 8762313652 6386601309 8356062871 2571853106              ',"$decsscolor on_$bgcblack"); print"\n";
  1323. print colored('            5809023364 7322143645 8421842236 2536427009 5557239142              ',"$decsscolor on_$bgcblack"); print"\n";
  1324. print colored('            1165512411 2039883768 2243428924 2349301261 7418161246              ',"$decsscolor on_$bgcblack"); print"\n";
  1325. print colored('            3034415778 2839809597 6436852468 9078864161 4306545276              ',"$decsscolor on_$bgcblack"); print"\n";
  1326. print colored('            8956715245 9477708733 4644014469 5871931815 7608776778              ',"$decsscolor on_$bgcblack"); print"\n";
  1327. print colored('            2573341499 4188265086 0668841859 9672379789 3766678068              ',"$decsscolor on_$bgcblack"); print"\n";
  1328. print colored('            2566994676 0998769793 4508344702 2603175841 3304926144              ',"$decsscolor on_$bgcblack"); print"\n";
  1329. print colored('            6761328219 9729121409 9335596945 7407499011 1540914866              ',"$decsscolor on_$bgcblack"); print"\n";
  1330. print colored('            1355366182 1056035804 0014112275 1532956922 4393582188              ',"$decsscolor on_$bgcblack"); print"\n";
  1331. print colored('            9493881197 1105655941 1852982478 7238592254 0525772073              ',"$decsscolor on_$bgcblack"); print"\n";
  1332. print colored('            4123557637 2341117844 3887252022 3019576406 0843081469              ',"$decsscolor on_$bgcblack"); print"\n";
  1333. print colored('                                                                                ',"$boldyellow on_$bgcblack"); print"\n";
  1334. print colored('"Suppose you were to take a variant of efdtt.c, a program that will allow you to',"$boldyellow on_$bgcblack"); print"\n";
  1335. print colored('  play a DVD on a computer, and then convert each character in the code to its  ',"$boldyellow on_$bgcblack"); print"\n";
  1336. print colored(' 7-bit ascii equivalent (the code contains standard characters, so the eight or ',"$boldyellow on_$bgcblack"); print"\n";
  1337. print colored('leading bit is zero). Finally, view this string of bits as a single number. What',"$boldyellow on_$bgcblack"); print"\n";
  1338. print colored('                       do you get? This illegal prime!"                         ',"$boldyellow on_$bgcblack"); print"\n";
  1339. print colored('  This number was found to be a probable prime by Charles M. Hannum and proven  ',"$boldblack on_$bgcblack"); print"\n";
  1340. print colored('                              prime by Phil Carmody                             ',"$boldblack on_$bgcblack"); print"\n";
  1341. print color 'black';
  1342.    $placeholder = <STDIN>;
  1343.    chomp($placeholder);
  1344.    print color 'reset';
  1345.    
  1346.    return;
  1347. }
  1348. sub nowomensrights {
  1349. print colored('>>>>ABEVTUGFSBEJBZRANYYYVOREGVRFSBEZRA>>>>ABEVTUGFSBEJBZRANYYYVOREGVRFSBEZRA>>>>',"$boldblack on_$bgcblack"); print"\n";
  1350. print colored('Just Say No To Women\'s Rights                                                   ',"$boldred on_$bgcblack"); print"\n";
  1351. print colored('    Just Say No To Women\'s Rights                                               ',"$red on_$bgcblack"); print"\n";
  1352. print colored('        Just Say No To Women\'s Rights                                           ',"$boldred on_$bgcblack"); print"\n";
  1353. print colored('            Just Say No To Women\'s Rights                                       ',"$red on_$bgcblack"); print"\n";
  1354. print colored('                Just Say No To Women\'s Rights                                   ',"$boldred on_$bgcblack"); print"\n";
  1355. print colored('                    Just Say No To Women\'s Rights                               ',"$red on_$bgcblack"); print"\n";
  1356. print colored('                        Just Say No To Women\'s Rights                           ',"$boldred on_$bgcblack"); print"\n";
  1357. print colored('                            Just Say No To Women\'s Rights                       ',"$red on_$bgcblack"); print"\n";
  1358. print colored('                                Just Say No To Women\'s Rights                   ',"$boldred on_$bgcblack"); print"\n";
  1359. print colored('                                    Just Say No To Women\'s Rights               ',"$red on_$bgcblack"); print"\n";
  1360. print colored('                                        Just Say No To Women\'s Rights           ',"$boldred on_$bgcblack"); print"\n";
  1361. print colored('                                            Just Say No To Women\'s Rights       ',"$red on_$bgcblack"); print"\n";
  1362. print colored('                                                Just Say No To Women\'s Rights   ',"$boldred on_$bgcblack"); print"\n";
  1363. print colored('                                                   Just Say No To Women\'s Rights',"$red on_$bgcblack"); print"\n";
  1364. print colored('                                                Just Say No To Women\'s Rights   ',"$boldred on_$bgcblack"); print"\n";
  1365. print colored('                                            Just Say No To Women\'s Rights       ',"$red on_$bgcblack"); print"\n";
  1366. print colored('                                        Just Say No To Women\'s Rights           ',"$boldred on_$bgcblack"); print"\n";
  1367. print colored('                                    Just Say No To Women\'s Rights               ',"$red on_$bgcblack"); print"\n";
  1368. print colored('                                Just Say No To Women\'s Rights                   ',"$boldred on_$bgcblack"); print"\n";
  1369. print colored('                            Just Say No To Women\'s Rights                       ',"$red on_$bgcblack"); print"\n";
  1370. print colored('                        Just Say No To Women\'s Rights                           ',"$boldred on_$bgcblack"); print"\n";
  1371. print colored('                    Just Say No To Women\'s Rights                               ',"$red on_$bgcblack"); print"\n";
  1372. print colored('                Just Say No To Women\'s Rights                                   ',"$boldred on_$bgcblack"); print"\n";
  1373. print colored('            Just Say No To Women\'s Rights                                       ',"$red on_$bgcblack"); print"\n";
  1374. print colored('        Just Say No To Women\'s Rights                                           ',"$boldred on_$bgcblack"); print"\n";
  1375. print colored('    Just Say No To Women\'s Rights                                               ',"$red on_$bgcblack"); print"\n";
  1376. print colored('Just Say No To Women\'s Rights                                                   ',"$boldred on_$bgcblack"); print"\n";
  1377. print colored('>>>>ABEVTUGFSBEJBZRANYYYVOREGVRFSBEZRA>>>>ABEVTUGFSBEJBZRANYYYVOREGVRFSBEZRA>>>>',"$boldblack on_$bgcblack"); print"\n";
  1378. print color 'black';
  1379.    $placeholder = <STDIN>;
  1380.    chomp($placeholder);
  1381.    print color 'reset';
  1382.    
  1383.    return;
  1384. }
  1385. sub ptracker {
  1386.    if ($playtrack == 1) {
  1387.       push @ptracker, "$money";
  1388.    } else {
  1389.       ##Nothing
  1390.    }
  1391.    if ($banksavmoney > 0) {
  1392.       cmpndschedule();
  1393.       if ($banksavingintvl >= $banksavcpndintvl) {
  1394.          computesverte();
  1395.          $banksavintrst = ($banksavmoney * $banksavrte);
  1396.          $banksavmoney = $banksavmoney + $banksavintrst;
  1397.          ##Below we track the interest earned and reset the interval timer
  1398.          $banksavintrsttrk = $banksavintrsttrk + $banksavintrst;
  1399.          $banksavecrintsttrk = $banksavecrintsttrk + $banksavintrst;
  1400.          $banksavingintvl = 0;
  1401.       } else {
  1402.          $banksavingintvl = $banksavingintvl + 1;
  1403.       }
  1404.    }
  1405.    stockmarket();
  1406. }
  1407. sub computesverte {
  1408.    #What to pay each compound interval.
  1409.    #This differs depending on if the interval is larger or smaller than
  1410.    #the period (annum) (How often untill account gets full x% interest payed to it.
  1411.    $banksavrte = $banktruesavrte * ($banksavcpndintvl/$banksavperiod);
  1412.    if ($banksavrte > $banktruesavrte) {
  1413.       $banksavrte = $banktruesavrte;
  1414.       #If the computed per-interval-period interest rate goes above
  1415.       #the true interest rate, even though that is the amount that is due
  1416.       #we will discount it down to the true interest rate and treat
  1417.       #the compound-interval as the pay period.
  1418.    }
  1419.    
  1420.    ##print"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n";
  1421.    ##print "$banksavrte".' = '."$banktruesavrte".' * ('."$banksavcpndintvl".'/'."$banksavperiod".')'."\n";
  1422. }
  1423. sub cmpndschedule {
  1424.    $oldbanksavcpndintvl == $banksavcpndintvl;
  1425.    
  1426.    if ($banksavmoney >= 1000000000) {
  1427.       $banksavcpndintvl = 15;
  1428.       $banktruesavrte = 0.09;
  1429.    } elsif ($banksavmoney >= 100000000) {
  1430.       $banksavcpndintvl = 20;
  1431.       $banktruesavrte = 0.085;
  1432.    } elsif ($banksavmoney >= 10000000) {
  1433.       $banksavcpndintvl = 25;
  1434.       $banktruesavrte = 0.08;
  1435.    } elsif ($banksavmoney >= 5000000) {
  1436.       $banksavcpndintvl = 30;
  1437.       $banktruesavrte = 0.075;
  1438.    } elsif ($banksavmoney >= 2500000) {
  1439.       $banksavcpndintvl = 40;
  1440.       $banktruesavrte = 0.07;
  1441.    } elsif ($banksavmoney >= 1000000) {
  1442.       $banksavcpndintvl = 50;
  1443.       $banktruesavrte = 0.065;
  1444.    } elsif ($banksavmoney >= 500000) {
  1445.       $banksavcpndintvl = 100;
  1446.       $banktruesavrte = 0.06;
  1447.    } elsif ($banksavmoney >= 250000) {
  1448.       $banksavcpndintvl = 125;
  1449.       $banktruesavrte = 0.055;   
  1450.    } elsif ($banksavmoney >= 100000) {
  1451.       $banksavcpndintvl = 150;
  1452.       $banktruesavrte = 0.05;
  1453.    } elsif ($banksavmoney >= 10000) {
  1454.       $banksavcpndintvl = 200;
  1455.       $banktruesavrte = 0.045;
  1456.    } elsif ($banksavmoney >= 7500) {
  1457.       $banksavcpndintvl = 500;
  1458.       $banktruesavrte = 0.04;
  1459.    } elsif ($banksavmoney >= 5000) {
  1460.       $banksavcpndintvl = 700;
  1461.       $banktruesavrte = 0.03;
  1462.    } elsif ($banksavmoney >= 2500) {
  1463.       $banksavcpndintvl = 1000;
  1464.       $banktruesavrte = 0.03;   
  1465.    } elsif ($banksavmoney >= 1000) {
  1466.       $banksavcpndintvl = 2000;
  1467.       $banktruesavrte = 0.03;
  1468.    } elsif ($banksavmoney >= 750) {
  1469.       $banksavcpndintvl = 5000;
  1470.       $banktruesavrte = 0.03;
  1471.    } elsif ($banksavmoney >= 500) {
  1472.       $banksavcpndintvl = 7500;
  1473.       $banktruesavrte = 0.03;
  1474.    } elsif ($banksavmoney >= 250) {
  1475.       $banksavcpndintvl = 10000;
  1476.       $banktruesavrte = 0.03;
  1477.    } elsif ($banksavmoney >= 100) {
  1478.       $banksavcpndintvl = 50000;
  1479.       $banktruesavrte = 0.03;
  1480.    } elsif ($banksavmoney >= 75) {
  1481.       $banksavcpndintvl = 100000;
  1482.       $banktruesavrte = 0.03;
  1483.    } elsif ($banksavmoney >= 50) {
  1484.       $banksavcpndintvl = 500000;
  1485.       $banktruesavrte = 0.03;
  1486.    } elsif ($banksavmoney >= 25) {
  1487.       $banksavcpndintvl = 750000;
  1488.       $banktruesavrte = 0.03;
  1489.    } elsif ($banksavmoney >= 15) {
  1490.       $banksavcpndintvl = 1000000;
  1491.       $banktruesavrte = 0.03;
  1492.    } elsif ($banksavmoney >= 10) {
  1493.       $banksavcpndintvl = 5000000;
  1494.       $banktruesavrte = 0.03;
  1495.    } elsif ($banksavmoney >= 5) {
  1496.       $banksavcpndintvl = 10000000;
  1497.       $banktruesavrte = 0.03;      
  1498.    } else {
  1499.       $banksavcpndintvl = 10000000;
  1500.       $banktruesavrte = 0.03;
  1501.    }
  1502.    
  1503.    ##If we have switched to a better (smaller) interval period, we reset the timer.
  1504.    if ($banksavcpndintvl < $oldbanksavcpndintvl) {
  1505.       if ($banksavingintvl >= $banksavcpndintvl) {
  1506.          ##If time left to compound interest is greater or equal
  1507.          ##to the new compound interest period, we reset the timer.
  1508.          $banksavingintvl = 0;
  1509.       } else {
  1510.          ##If the time left to compound the interest is less that
  1511.          ##the new compound interest period:
  1512.          ##Do nothing. It is in the best interest of the client
  1513.          ##that he keep his current interval time.
  1514.       }
  1515.    }
  1516. }
  1517. sub stockmarket {
  1518.    if ($stockcortick >= $stockcorset) {
  1519.       ##Time to reevaluate the market
  1520.       stockmarketset();
  1521.       $stockcortick = 0;
  1522.    }
  1523.    fundretail();
  1524.    fundindustry();
  1525.    fundtech();
  1526.    fundenergy();
  1527.    fundtextile();
  1528.    fundinvestment();
  1529.    fundlending();
  1530.    fundconstruction();
  1531.    fundmining();
  1532.    fundindex();
  1533.    if ($stockmarketdebug == 1) {
  1534.       print "$stockmarketwhole\n";
  1535.       print "$stockcortick".' of '."$stockcorset\n";
  1536.    }
  1537.    $stocktick = $stocktick + 1;
  1538.    $stockcortick = $stockcortick + 1;
  1539. }
  1540. sub stockmarketinit {
  1541.    $stocktcst = 10; #Flat fee for each buy.
  1542.    $stocktcom = 0.10; #Plus commission percentage.
  1543.    $stocktcstsl = 6; #Flat fee for each sale.
  1544.    $stocktax = 0.05; #Cap-gains tax.
  1545.    $stocktick = 0; #Stock market clock.
  1546.    $stockcortick = 0; #Market correction tick
  1547.    $stockcorset = int(rand(100000)) + 5000; #How many ticks before market correction?
  1548.   [email protected] = ('volatile',
  1549.                         'mid',
  1550.               'okgood',
  1551.               'okbad',
  1552.               'good',
  1553.               'bad',
  1554.               'great',
  1555.               'terrible',);
  1556.    stockmarketset(); #Set what kind of market we're in (Bull, Bear, Neither, MegaBull, Incredi-Bear
  1557.    $stockbuff0 = '';
  1558.    $stockbuff1 = '';
  1559.    $stockbuff2 = '';
  1560.    $stockbuff3 = '';
  1561.    $stockmarketdebug = 0; #Print Stockmarket info on each turn?
  1562.    ##Retail Stocks Fund
  1563.    $fundretailshares = 0; #Shares player owns of fund.
  1564.    $fundretailsharevalue = rand(100); #Value of each share.
  1565.    $fundretailmode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly.
  1566.    $fundretailmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1567.   [email protected] = ("$fundretailsharevalue");
  1568.    $fundretailcortick = 0;
  1569.    $fundretailcorset = int(rand(10000)) + 500; #How many ticks before sector correction?
  1570.    ##Industrial Stocks Fund
  1571.    $fundindustryshares = 0; #Shares player owns of fund.
  1572.    $fundindustrysharevalue = rand(200); #Value of each share.
  1573.    $fundindustrymode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly.
  1574.    $fundindustrymarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1575.   [email protected] = ("$fundindustrysharevalue");
  1576.    $fundindustrycortick = 0;
  1577.    $fundindustrycorset = int(rand(50000)) + 5000; #How many ticks before sector correction?
  1578.    ##Tech Stock Fund
  1579.    $fundtechshares = 0; #Shares player owns of fund.
  1580.    $fundtechsharevalue = rand(300); #Value of each share.
  1581.    $fundtechmode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly.
  1582.    $fundtechmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1583.   [email protected] = ("$fundtechsharevalue");
  1584.    $fundtechcortick = 0;
  1585.    $fundtechcorset = int(rand(1000)) + 100; #How many ticks before sector correction?
  1586.    ##Energy Stock
  1587.    $fundenergyshares = 0; #Shares player owns of fund.
  1588.    $fundenergysharevalue = rand(1000); #Value of each share.
  1589.    $fundenergymode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly.
  1590.    $fundenergymarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1591.   [email protected] = ("$fundenergysharevalue");
  1592.    $fundenergycortick = 0;
  1593.    $fundenergycorset = int(rand(10000)) + 1000; #How many ticks before sector correction?
  1594.    ##Textile Stocks Fund
  1595.    $fundtextileshares = 0; #Shares player owns of fund.
  1596.    $fundtextilesharevalue = rand(40); #Value of each share.
  1597.    $fundtextilemode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly.
  1598.    $fundtextilemarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1599.   [email protected] = ("$fundtextilesharevalue");
  1600.    $fundtextilecortick = 0;
  1601.    $fundtextilecorset = int(rand(3000)) + 1000; #How many ticks before sector correction?
  1602.    ##Investement Bank Stocks Fund
  1603.    $fundinvestmentshares = 0; #Shares player owns of fund.
  1604.    $fundinvestmentsharevalue = rand(2000); #Value of each share.
  1605.    $fundinvestmentmode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly.
  1606.    $fundinvestmentmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1607.   [email protected] = ("$fundinvestmentsharevalue");
  1608.    $fundinvestmentcortick = 0;
  1609.    $fundinvestmentcorset = int(rand(1000)) + 300; #How many ticks before sector correction?
  1610.    ##Lending Institution Stocks Fund
  1611.    $fundlendingshares = 0; #Shares player owns of fund.
  1612.    $fundlendingsharevalue = rand(100); #Value of each share.
  1613.    $fundlendingmode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly.
  1614.    $fundlendingmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1615.   [email protected] = ("$fundlendingsharevalue");
  1616.    $fundlendingcortick = 0;
  1617.    $fundlendingcorset = int(rand(5000)) + 2000; #How many ticks before sector correction?
  1618.    ##Construction Stocks Fund
  1619.    $fundconstructionshares = 0; #Shares player owns of fund.
  1620.    $fundconstructionsharevalue = rand(100); #Value of each share.
  1621.    $fundconstructionmode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly.
  1622.    $fundconstructionmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1623.   [email protected] = ("$fundconstructionsharevalue");
  1624.    $fundconstructioncortick = 0;
  1625.    $fundconstructioncorset = int(rand(1000)) + 1000; #How many ticks before sector correction?
  1626.    ##Mining Stocks Fund
  1627.    $fundminingshares = 0; #Shares player owns of fund.
  1628.    $fundminingsharevalue = rand(100000); #Value of each share.
  1629.    $fundminingmode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly.
  1630.    $fundminingmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1631.   [email protected] = ("$fundminingsharevalue");
  1632.    $fundminingcortick = 0;
  1633.    $fundminingcorset = int(rand(2500)) + 500; #How many ticks before sector correction?
  1634.    ##Index Fund
  1635.    #Originally: 50000000000, 50000000000, 200000000000
  1636.    if ($money >= 10000000000000000000000000000000000000000000000000) {
  1637.       $fundindexinvestper = int(rand(50000000000000000000000000000000000000000000000000000000)) + 50000000000000000000000000000000000000000000000000000000; #How much the index fund invests into each sector
  1638.       $fundnrmlz = int(rand(200000000000000000000000000000000000000000000000000000000)); #How much to divide the final number by to get initial share price
  1639.    } elsif ($money >= 10000000000000000000000000000000000000000000000) {
  1640.       $fundindexinvestper = int(rand(50000000000000000000000000000000000000000000000000000)) + 50000000000000000000000000000000000000000000000000000; #How much the index fund invests into each sector
  1641.       $fundnrmlz = int(rand(200000000000000000000000000000000000000000000000000000)); #How much to divide the final number by to get initial share price
  1642.    } elsif ($money >= 10000000000000000000000000000000000000000000) {
  1643.       $fundindexinvestper = int(rand(50000000000000000000000000000000000000000000000000)) + 50000000000000000000000000000000000000000000000000; #How much the index fund invests into each sector
  1644.       $fundnrmlz = int(rand(200000000000000000000000000000000000000000000000000)); #How much to divide the final number by to get initial share price
  1645.    } elsif ($money >= 10000000000000000000000000000000000000000) {
  1646.       $fundindexinvestper = int(rand(50000000000000000000000000000000000000000000000)) + 50000000000000000000000000000000000000000000000; #How much the index fund invests into each sector
  1647.       $fundnrmlz = int(rand(200000000000000000000000000000000000000000000000)); #How much to divide the final number by to get initial share price
  1648.    } elsif ($money >= 10000000000000000000000000000000000000) {
  1649.       $fundindexinvestper = int(rand(50000000000000000000000000000000000000000000)) + 50000000000000000000000000000000000000000000; #How much the index fund invests into each sector
  1650.       $fundnrmlz = int(rand(200000000000000000000000000000000000000000000)); #How much to divide the final number by to get initial share price
  1651.    } elsif ($money >= 10000000000000000000000000000000000) {
  1652.       $fundindexinvestper = int(rand(50000000000000000000000000000000000000000)) + 50000000000000000000000000000000000000000; #How much the index fund invests into each sector
  1653.       $fundnrmlz = int(rand(200000000000000000000000000000000000000000)); #How much to divide the final number by to get initial share price
  1654.    } elsif ($money >= 10000000000000000000000000000000) {
  1655.       $fundindexinvestper = int(rand(50000000000000000000000000000000000000)) + 50000000000000000000000000000000000000; #How much the index fund invests into each sector
  1656.       $fundnrmlz = int(rand(200000000000000000000000000000000000000)); #How much to divide the final number by to get initial share price
  1657.    } elsif ($money >= 10000000000000000000000000000) {
  1658.       $fundindexinvestper = int(rand(50000000000000000000000000000000000)) + 50000000000000000000000000000000000; #How much the index fund invests into each sector
  1659.       $fundnrmlz = int(rand(200000000000000000000000000000000000)); #How much to divide the final number by to get initial share price
  1660.    } elsif ($money >= 10000000000000000000000000) {
  1661.       $fundindexinvestper = int(rand(50000000000000000000000000000000)) + 50000000000000000000000000000000; #How much the index fund invests into each sector
  1662.       $fundnrmlz = int(rand(200000000000000000000000000000000)); #How much to divide the final number by to get initial share price
  1663.    } elsif ($money >= 10000000000000000000000) {
  1664.       $fundindexinvestper = int(rand(50000000000000000000000000000)) + 50000000000000000000000000000; #How much the index fund invests into each sector
  1665.       $fundnrmlz = int(rand(200000000000000000000000000000)); #How much to divide the final number by to get initial share price
  1666.    } elsif ($money >= 10000000000000000000) {
  1667.       $fundindexinvestper = int(rand(50000000000000000000000000)) + 50000000000000000000000000; #How much the index fund invests into each sector
  1668.       $fundnrmlz = int(rand(200000000000000000000000000)); #How much to divide the final number by to get initial share price
  1669.    } elsif ($money >= 10000000000000000) {
  1670.       $fundindexinvestper = int(rand(50000000000000000000000)) + 50000000000000000000000; #How much the index fund invests into each sector
  1671.       $fundnrmlz = int(rand(200000000000000000000000)); #How much to divide the final number by to get initial share price
  1672.    } elsif ($money >= 10000000000000) {
  1673.       $fundindexinvestper = int(rand(50000000000000000000)) + 50000000000000000000; #How much the index fund invests into each sector
  1674.       $fundnrmlz = int(rand(200000000000000000000)); #How much to divide the final number by to get initial share price
  1675.    } elsif ($money >= 10000000000) {
  1676.       $fundindexinvestper = int(rand(50000000000000000)) + 50000000000000000; #How much the index fund invests into each sector
  1677.       $fundnrmlz = int(rand(200000000000000000)); #How much to divide the final number by to get initial share price
  1678.    } else {
  1679.       $fundindexinvestper = int(rand(50000000000)) + 50000000000; #How much the index fund invests into each sector
  1680.       $fundnrmlz = int(rand(200000000000)); #How much to divide the final number by to get initial share price   
  1681.    }
  1682.    $fundindexretail = floor($fundindexinvestper/$fundretailsharevalue); #How many shares of a sector the fund has purchased at the begining.
  1683.    $fundindexindustry = floor($fundindexinvestper/$fundindustrysharevalue);
  1684.    $fundindextech = floor($fundindexinvestper/$fundtechsharevalue);
  1685.    $fundindexenergy = floor($fundindexinvestper/$fundenergysharevalue);
  1686.    $fundindextextile = floor($fundindexinvestper/$fundtextilesharevalue);
  1687.    $fundindexinvestment = floor($fundindexinvestper/$fundinvestmentsharevalue);
  1688.    $fundindexlending = floor($fundindexinvestper/$fundlendingsharevalue);
  1689.    $fundindexconstruction = floor($fundindexinvestper/$fundconstructionsharevalue);
  1690.    $fundindexmining = floor($fundindexinvestper/$fundminingsharevalue);
  1691.    
  1692.    $fundindexshares = 0;
  1693.    fundindexvalue();
  1694.    fundindexinitvalue();
  1695.   [email protected] = ("$fundindexsharevalue");
  1696.    $fundindexcortick = 0;
  1697. }
  1698. sub fundretail {
  1699.    if ($fundretailcortick >= $fundretailcorset) {
  1700.       ##Time to reevaluate the sector.
  1701.       $fundretailmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1702.       $fundretailcortick = 0;
  1703.    }
  1704.    $stockbuff0 = $fundretailmode;
  1705.    
  1706.    if (2 >= $fundlendingmode) {
  1707.       $fundretailmode = $fundretailmode - 1;
  1708.       if (0 >= $fundretailmode) {
  1709.          $fundretailmode = 0;
  1710.       }
  1711.       #If Lending is down, retail is down.
  1712.    }
  1713.    
  1714.    if ($fundlendingmode >= 8) {
  1715.       $fundretailmode = $fundretailmode + int(rand(2)) + 1;
  1716.       if ($fundretailmode >= 10) {
  1717.          $fundretailmode = 10;
  1718.       }
  1719.       #If Lending is up, retail is up.
  1720.    }
  1721.    
  1722.    sharevalue(); #Writes to $stockbuff1
  1723.    $stockbuff2 = $fundretailmarket;
  1724.    fundmode(); #Writes to $stockbuff0
  1725.    $fundretailsharevalue = $fundretailsharevalue * ($stockbuff1);
  1726.    $fundretailmode = $stockbuff0;
  1727.    push @fundretailtracker, "$fundretailsharevalue";
  1728.    
  1729.    if ($stockmarketdebug == 1) {
  1730.       print "Retail\n";
  1731.       print "$fundretailsharevalue\n";
  1732.       print "$fundretailmode\n";
  1733.       print "$fundretailmarket\n";
  1734.       print "$fundretailcorset\n\n";
  1735.    }
  1736. }
  1737. sub fundindustry {
  1738.    if ($fundindustrycortick >= $fundindustrycorset) {
  1739.       ##Time to reevaluate the sector.
  1740.       $fundindustrymarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1741.       $fundindustrycortick = 0;
  1742.    }
  1743.    $stockbuff0 = $fundindustrymode;
  1744.    sharevalue(); #Writes to $stockbuff1
  1745.    $stockbuff2 = $fundindustrymarket;
  1746.    fundmode(); #Writes to $stockbuff0
  1747.    $fundindustrysharevalue = $fundindustrysharevalue * ($stockbuff1);
  1748.    $fundindustrymode = $stockbuff0;
  1749.    push @fundindustrytracker, "$fundindustrysharevalue";
  1750.    
  1751.    if ($stockmarketdebug == 1) {
  1752.       print "$fundindustrysharevalue\n";
  1753.       print "$fundindustrymode\n";
  1754.       print "$fundindustrymarket\n";
  1755.       print "$fundindustrycorset\n\n";
  1756.    }
  1757. }
  1758. sub fundtech {
  1759.    if ($fundtechcortick >= $fundtechcorset) {
  1760.       ##Time to reevaluate the sector.
  1761.       $fundtechmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1762.       $fundtechcortick = 0;
  1763.    }
  1764.    $stockbuff0 = $fundtechmode;
  1765.    sharevalue(); #Writes to $stockbuff1
  1766.    $stockbuff2 = $fundtechmarket;
  1767.    fundmode(); #Writes to $stockbuff0
  1768.    $fundtechsharevalue = $fundtechsharevalue * ($stockbuff1);
  1769.    $fundtechmode = $stockbuff0;
  1770.    push @fundtechtracker, "$fundtechsharevalue";
  1771.    
  1772.    if ($stockmarketdebug == 1) {
  1773.       print "Tech\n";
  1774.       print "$fundtechsharevalue\n";
  1775.       print "$fundtechmode\n";
  1776.       print "$fundtechmarket\n";
  1777.       print "$fundtechcorset\n\n";
  1778.    }
  1779. }
  1780. sub fundenergy {
  1781.    if ($fundenergycortick >= $fundenergycorset) {
  1782.       ##Time to reevaluate the sector.
  1783.       $fundenergymarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1784.       $fundenergycortick = 0;
  1785.    }
  1786.    $stockbuff0 = $fundenergymode;
  1787.    sharevalue(); #Writes to $stockbuff1
  1788.    $stockbuff2 = $fundenergymarket;
  1789.    fundmode(); #Writes to $stockbuff0
  1790.    $fundenergysharevalue = $fundenergysharevalue * ($stockbuff1);
  1791.    $fundenergymode = $stockbuff0;
  1792.    push @fundenergytracker, "$fundenergysharevalue";
  1793.    
  1794.    if ($stockmarketdebug == 1) {
  1795.       print "Energy\n";
  1796.       print "$fundenergysharevalue\n";
  1797.       print "$fundenergymode\n";
  1798.       print "$fundenergymarket\n";
  1799.       print "$fundenergycorset\n\n";
  1800.    }
  1801. }
  1802. sub fundtextile {
  1803.    if ($fundtextilecortick >= $fundtextilecorset) {
  1804.       ##Time to reevaluate the sector.
  1805.       $fundtextilemarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1806.       $fundtextilecortick = 0;
  1807.    }
  1808.    $stockbuff0 = $fundtextilemode;
  1809.    sharevalue(); #Writes to $stockbuff1
  1810.    $stockbuff2 = $fundtextilemarket;
  1811.    fundmode(); #Writes to $stockbuff0
  1812.    $fundtextilesharevalue = $fundtextilesharevalue * ($stockbuff1);
  1813.    $fundtextilemode = $stockbuff0;
  1814.    push @fundtextiletracker, "$fundtextilesharevalue";
  1815.    
  1816.    if ($stockmarketdebug == 1) {
  1817.       print "Textile\n";
  1818.       print "$fundtextilesharevalue\n";
  1819.       print "$fundtextilemode\n";
  1820.       print "$fundtextilemarket\n";
  1821.       print "$fundtextilecorset\n\n";
  1822.    }
  1823. }
  1824. sub fundinvestment {
  1825.    if ($fundinvestmentcortick >= $fundinvestmentcorset) {
  1826.       ##Time to reevaluate the sector.
  1827.       $fundinvestmentmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1828.       $fundinvestmentcortick = 0;
  1829.    }
  1830.    $stockbuff0 = $fundinvestmentmode;
  1831.    sharevalue(); #Writes to $stockbuff1
  1832.    $stockbuff2 = $fundinvestmentmarket;
  1833.    fundmode(); #Writes to $stockbuff0
  1834.    $fundinvestmentsharevalue = $fundinvestmentsharevalue * ($stockbuff1);
  1835.    $fundinvestmentmode = $stockbuff0;
  1836.    push @fundinvestmenttracker, "$fundinvestmentsharevalue";
  1837.    
  1838.    if ($stockmarketdebug == 1) {
  1839.       print "Investment\n";
  1840.       print "$fundinvestmentsharevalue\n";
  1841.       print "$fundinvestmentmode\n";
  1842.       print "$fundinvestmentmarket\n";
  1843.       print "$fundinvestmentcorset\n\n";
  1844.    }
  1845. }
  1846. sub fundlending {
  1847.    if ($fundlendingcortick >= $fundlendingcorset) {
  1848.       ##Time to reevaluate the sector.
  1849.       $fundlendingmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1850.       $fundlendingcortick = 0;
  1851.    }
  1852.    $stockbuff0 = $fundlendingmode;
  1853.    sharevalue(); #Writes to $stockbuff1
  1854.    $stockbuff2 = $fundlendingmarket;
  1855.    fundmode(); #Writes to $stockbuff0
  1856.    $fundlendingsharevalue = $fundlendingsharevalue * ($stockbuff1);
  1857.    $fundlendingmode = $stockbuff0;
  1858.    push @fundlendingtracker, "$fundlendingsharevalue";
  1859.    
  1860.    if ($stockmarketdebug == 1) {
  1861.       print "Lending\n";
  1862.       print "$fundlendingsharevalue\n";
  1863.       print "$fundlendingmode\n";
  1864.       print "$fundlendingmarket\n";
  1865.       print "$fundlendingcorset\n\n";
  1866.    }
  1867. }
  1868. sub fundconstruction {
  1869.    if ($fundconstructioncortick >= $fundconstructioncorset) {
  1870.       ##Time to reevaluate the sector.
  1871.       $fundconstructionmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1872.       $fundconstructioncortick = 0;
  1873.    }
  1874.    $stockbuff0 = $fundconstructionmode;
  1875.    
  1876.    if (2 >= $fundlendingmode) {
  1877.       $fundconstructionmode = $fundconstructionmode - int(rand(2)) + 1;
  1878.       if (0 >= $fundconstructionmode) {
  1879.          $fundconstructionmode = 0;
  1880.       }
  1881.       #If Lending is down, construction is down.
  1882.    }
  1883.    
  1884.    if ($fundlendingmode >= 9) {
  1885.       $fundconstructionmode = $fundconstructionmode + 1;
  1886.       if ($fundconstructionmode >= 10) {
  1887.          $fundconstructionmode = 10;
  1888.       }
  1889.       #If Lending is REALLY up, construction is up.
  1890.    }
  1891.    
  1892.    sharevalue(); #Writes to $stockbuff1
  1893.    $stockbuff2 = $fundconstructionmarket;
  1894.    fundmode(); #Writes to $stockbuff0
  1895.    $fundconstructionsharevalue = $fundconstructionsharevalue * ($stockbuff1);
  1896.    $fundconstructionmode = $stockbuff0;
  1897.    push @fundconstructiontracker, "$fundconstructionsharevalue";
  1898.    
  1899.    if ($stockmarketdebug == 1) {
  1900.       print "Construction\n";
  1901.       print "$fundconstructionsharevalue\n";
  1902.       print "$fundconstructionmode\n";
  1903.       print "$fundconstructionmarket\n";
  1904.       print "$fundconstructioncorset\n\n";
  1905.    }
  1906. }
  1907. sub fundmining {
  1908.    if ($fundminingcortick >= $fundminingcorset) {
  1909.       ##Time to reevaluate the sector.
  1910.       $fundminingmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))];
  1911.       $fundminingcortick = 0;
  1912.    }
  1913.    $stockbuff0 = $fundminingmode;
  1914.    
  1915.    if ((2 >= $fundlendingmode) and ($fundinvestmentmode >= 7)) {
  1916.       $fundminingmode = $fundminingmode + 1;
  1917.       if ($fundminingmode >= 10) {
  1918.          $fundminingmode = 10;
  1919.       }
  1920.       #If Lending is down, but investment is somewhat up, mining is up.
  1921.    }
  1922.    
  1923.    if ($fundindustrymode >= 8) {
  1924.       $fundminingmode = $fundminingmode + int(rand(2)) + 1;
  1925.       if ($fundminingmode >= 10) {
  1926.          $fundminingmode = 10;
  1927.       }
  1928.       #If Industry is up, mining is up.
  1929.    }
  1930.    
  1931.    if ((2 >= $fundlendingmode) and (3 >= $fundretailmode)) {
  1932.       $fundminingmode = $fundminingmode - 1;
  1933.       if (0 >= $fundminingmode) {
  1934.          $fundminingmode = 0;
  1935.       }
  1936.       #If Lending is down, and retail is somewhat down, mining is down.
  1937.       if (2 >= $fundinvestmentmode) {
  1938.          $fundminingmode = $fundminingmode - 1;
  1939.          if (0 >= $fundminingmode) {
  1940.             $fundminingmode = 0;
  1941.          }
  1942.          #If Investment is down aswell, mining is more depressed
  1943.          #(only gold mining would be up, most other mining down)
  1944.       }
  1945.    }
  1946.    
  1947.    sharevalue(); #Writes to $stockbuff1
  1948.    $stockbuff2 = $fundminingmarket;
  1949.    fundmode(); #Writes to $stockbuff0
  1950.    $fundminingsharevalue = $fundminingsharevalue * ($stockbuff1);
  1951.    $fundminingmode = $stockbuff0;
  1952.    push @fundminingtracker, "$fundminingsharevalue";
  1953.    
  1954.    if ($stockmarketdebug == 1) {
  1955.       print "Mining\n";
  1956.       print "$fundminingsharevalue\n";
  1957.       print "$fundminingmode\n";
  1958.       print "$fundminingmarket\n";
  1959.       print "$fundminingcorset\n\n";
  1960.    }
  1961. }
  1962. sub fundindex {
  1963.    fundindexvalue();
  1964.    push @fundindextracker, "$fundindexsharevalue";
  1965.    
  1966.    if ($stockmarketdebug == 1) {
  1967.       print "Index::\n";
  1968.       print "$fundindexsharevalue\n";
  1969.       print "$fundindexcortick\n\n";
  1970.       print "$fundindexretail\n"
  1971.          ."$fundindexindustry\n"
  1972.          ."$fundindextech\n"
  1973.          ."$fundindexenergy\n"
  1974.          ."$fundindextextile\n"
  1975.          ."$fundindexinvestment\n"
  1976.          ."$fundindexlending\n"
  1977.          ."$fundindexconstruction\n"
  1978.          ."$fundindexmining\n";
  1979.    }
  1980. }
  1981. sub fundindexvalue {
  1982.    $fundindexsharevalue = ((($fundindexretail * $fundretailsharevalue)
  1983.             + ($fundindexindustry * $fundindustrysharevalue)
  1984.             + ($fundindextech * $fundtechsharevalue)
  1985.             + ($fundindexenergy * $fundenergysharevalue)
  1986.             + ($fundindextextile * $fundtextilesharevalue)
  1987.             + ($fundindexinvestment * $fundinvestmentsharevalue)
  1988.             + ($fundindexlending * $fundlendingsharevalue)
  1989.             + ($fundindexconstruction * $fundconstructionsharevalue)
  1990.             + ($fundindexmining * $fundminingsharevalue)) / $fundnrmlz);
  1991. }
  1992. sub fundindexinitvalue {
  1993.    #Just Records the inital value of these
  1994.   [email protected] = (($fundindexretail * $fundretailsharevalue),
  1995.             ($fundindexindustry * $fundindustrysharevalue),
  1996.             ($fundindextech * $fundtechsharevalue),
  1997.             ($fundindexenergy * $fundenergysharevalue),
  1998.             ($fundindextextile * $fundtextilesharevalue),
  1999.             ($fundindexinvestment * $fundinvestmentsharevalue),
  2000.             ($fundindexlending * $fundlendingsharevalue),
  2001.             ($fundindexconstruction * $fundconstructionsharevalue),
  2002.             ($fundindexmining * $fundminingsharevalue));
  2003.    
  2004.    if ($stockmarketdebug == 1) {
  2005.       foreach (@fundindexvalueinit) {
  2006.          print"!!!!!!!!!!!!!!!!!!!!! $_ \n"   
  2007.       }
  2008.    }
  2009. }
  2010. sub stockmarketset {
  2011.    $stockmarketwhole = @stockmarketwholetypes[(int(rand(@stockmarketwholetypes)))];
  2012.    if($stockmarketwhole eq 'volatile') {
  2013.      [email protected] = ('midmarket',
  2014.                            'upmarket',
  2015.                       'downmarket',);
  2016.    } elsif($stockmarketwhole eq 'mid') {
  2017.      [email protected] = ('midmarket',
  2018.                            'midmarket',
  2019.                  'midmarket',
  2020.                  'midmarket',
  2021.                            'midmarket',
  2022.                  'midmarket',
  2023.                  'upmarket',
  2024.                  'upmarket',
  2025.                       'downmarket',
  2026.                       'downmarket',);
  2027.    } elsif($stockmarketwhole eq 'okgood') {
  2028.      [email protected] = ('midmarket',
  2029.                            'midmarket',
  2030.                  'midmarket',
  2031.                  'midmarket',
  2032.                  'midmarket',
  2033.                  'midmarket',
  2034.                  'midmarket',
  2035.                            'upmarket',
  2036.                  'upmarket',
  2037.                  'upmarket',
  2038.                       'downmarket',
  2039.                       'downmarket',);
  2040.    } elsif($stockmarketwhole eq 'okbad') {
  2041.      [email protected] = ('midmarket',
  2042.                            'midmarket',
  2043.                  'midmarket',
  2044.                  'midmarket',
  2045.                  'midmarket',
  2046.                  'midmarket',
  2047.                  'midmarket',
  2048.                  'upmarket',
  2049.                       'upmarket',
  2050.                            'downmarket',
  2051.                  'downmarket',
  2052.                       'downmarket',);
  2053.    } elsif($stockmarketwhole eq 'good') {
  2054.      [email protected] = ('midmarket',
  2055.                            'midmarket',
  2056.                  'midmarket',
  2057.                  'midmarket',
  2058.                            'upmarket',
  2059.                  'upmarket',
  2060.                  'upmarket',
  2061.                       'downmarket',);
  2062.    } elsif($stockmarketwhole eq 'bad') {
  2063.      [email protected] = ('midmarket',
  2064.                            'midmarket',
  2065.                  'midmarket',
  2066.                  'midmarket',
  2067.                  'upmarket',
  2068.                            'downmarket',
  2069.                  'downmarket',
  2070.                  'downmarket',
  2071.                       'downmarket',);
  2072.    } elsif($stockmarketwhole eq 'great') {
  2073.      [email protected] = ('midmarket',
  2074.                            'midmarket',
  2075.                  'midmarket',
  2076.                  'midmarket',
  2077.                  'upmarket',
  2078.                            'upmarket',
  2079.                  'upmarket',
  2080.                  'upmarket',
  2081.                       'upmarket',
  2082.                  'downmarket',
  2083.                       'downmarket',);
  2084.    } elsif($stockmarketwhole eq 'terrible') {
  2085.      [email protected] = ('midmarket',
  2086.                            'midmarket',
  2087.                  'midmarket',
  2088.                  'downmarket',
  2089.                            'downmarket',
  2090.                  'downmarket',
  2091.                  'downmarket',
  2092.                       'upmarket',
  2093.                       'downmarket',
  2094.                  'downdownmarket',
  2095.                       'downdownmarket',);
  2096.    } else {
  2097.      [email protected] = ('midmarket',
  2098.                            'midmarket',
  2099.                  'midmarket',);
  2100.    }   
  2101. }
  2102. sub sharevalue {
  2103.    ##Decideds if stock value will go up or down.
  2104.    if ($stockbuff0 == 0) {
  2105.       $stockbuff1 = ((0.9999) - (rand(0.0005)));
  2106.    } elsif ($stockbuff0 == 1) {
  2107.       $stockbuff1 = ((1) - (rand(0.0005)));
  2108.    } elsif ($stockbuff0 == 2) {
  2109.       $stockbuff1 = ((1) - (rand(0.0004)));
  2110.    } elsif ($stockbuff0 == 3) {
  2111.       $stockbuff1 = ((1) - (rand(0.0003)));
  2112.    } elsif ($stockbuff0 == 4) {
  2113.       $stockbuff1 = ((1) - (rand(0.0002)));
  2114.    } elsif ($stockbuff0 == 5) {
  2115.       #Midpoint
  2116.       $stockbuff1 = (rand(0.0002))+(0.9999);
  2117.       #Midpoint
  2118.    } elsif ($stockbuff0 == 6) {
  2119.       $stockbuff1 = (rand(0.0002))+(1);
  2120.    } elsif ($stockbuff0 == 7) {
  2121.       $stockbuff1 = (rand(0.0003))+(1);
  2122.    } elsif ($stockbuff0 == 8) {
  2123.       $stockbuff1 = (rand(0.0004))+(1);
  2124.    } elsif ($stockbuff0 == 9) {
  2125.       $stockbuff1 = (rand(0.0005))+(1);
  2126.    } elsif ($stockbuff0 == 10) {
  2127.       $stockbuff1 = (rand(0.0005))+(1.0001);
  2128.    } else {
  2129.       ##Shouldn't Happen
  2130.       $stockbuff1 = (rand(0.0002))+(0.9999); #Midpoint
  2131.    }
  2132. }
  2133. sub fundmode {
  2134.    if ($stockbuff2 eq 'midmarket') {
  2135.       midmarket();
  2136.    } elsif ($stockbuff2 eq 'upmarket') {
  2137.       upmarket();
  2138.    } elsif ($stockbuff2 eq 'downmarket') {
  2139.       downmarket();
  2140.    } elsif ($stockbuff2 eq 'upupmarket') {
  2141.       upupmarket();
  2142.    } elsif ($stockbuff2 eq 'downdownmarket') {
  2143.       downdownmarket();
  2144.    } else {
  2145.       midmarket();
  2146.    }
  2147.    
  2148.    $stockbuff0 = @stockbuffa0[(int(rand(@stockbuffa0)))];
  2149.    
  2150.    ##Just incase, Shouldn't be needed.
  2151.    if ($stockbuff0 > 10) {
  2152.       $stockbuff0 == 10;
  2153.    } elsif ($stockbuff0 < 0) {
  2154.       $stockbuff0 == 0;
  2155.    }
  2156. }
  2157. sub midmarket {
  2158.    #Decides if fund will enter new mode.
  2159.    $stockbuff2 = ($stockbuff0 - 1);
  2160.    $stockbuff3 = ($stockbuff0 + 1);
  2161.    if ($stockbuff0 == 0) {
  2162.      [email protected] =
  2163.       ("$stockbuff3",
  2164.       "$stockbuff3",
  2165.       "$stockbuff0",
  2166.       "$stockbuff0",
  2167.       "$stockbuff0",
  2168.       "$stockbuff0",
  2169.       "$stockbuff0",
  2170.       "$stockbuff0",
  2171.       "$stockbuff0",
  2172.       "$stockbuff3",
  2173.       "$stockbuff3");
  2174.    } elsif ($stockbuff0 == 10) {
  2175.      [email protected] =
  2176.       ("$stockbuff2",
  2177.       "$stockbuff2",
  2178.       "$stockbuff0",
  2179.       "$stockbuff0",
  2180.       "$stockbuff0",
  2181.       "$stockbuff0",
  2182.       "$stockbuff0",
  2183.       "$stockbuff0",
  2184.       "$stockbuff0",
  2185.       "$stockbuff2",
  2186.       "$stockbuff2");   
  2187.    } elsif (($stockbuff0 == 1) or ($stockbuff0 == 9)) {
  2188.      [email protected] =
  2189.       ("$stockbuff2",
  2190.       "$stockbuff2",
  2191.       "$stockbuff2",
  2192.       "$stockbuff0",
  2193.       "$stockbuff0",
  2194.       "$stockbuff0",
  2195.       "$stockbuff0",
  2196.       "$stockbuff0",
  2197.       "$stockbuff3",
  2198.       "$stockbuff3",
  2199.       "$stockbuff3");
  2200.    } else {
  2201.      [email protected] =
  2202.       ("$stockbuff2",
  2203.       "$stockbuff2",
  2204.       "$stockbuff0",
  2205.       "$stockbuff0",
  2206.       "$stockbuff0",
  2207.       "$stockbuff0",
  2208.       "$stockbuff0",
  2209.       "$stockbuff0",
  2210.       "$stockbuff0",
  2211.       "$stockbuff3",
  2212.       "$stockbuff3");
  2213.    }
  2214. }
  2215. sub downmarket {
  2216.    #Decides if fund will enter new mode.
  2217.    $stockbuff2 = ($stockbuff0 - 1);
  2218.    $stockbuff3 = ($stockbuff0 + 1);
  2219.    if ($stockbuff0 == 0) {
  2220.      [email protected] =
  2221.       ("$stockbuff3",
  2222.       "$stockbuff0",
  2223.       "$stockbuff0",
  2224.       "$stockbuff0",
  2225.       "$stockbuff0",
  2226.       "$stockbuff0",
  2227.       "$stockbuff0",
  2228.       "$stockbuff0",
  2229.       "$stockbuff0",
  2230.       "$stockbuff0",
  2231.       "$stockbuff3");
  2232.    } elsif ($stockbuff0 == 10) {
  2233.      [email protected] =
  2234.       ("$stockbuff2",
  2235.       "$stockbuff2",
  2236.       "$stockbuff2",
  2237.       "$stockbuff0",
  2238.       "$stockbuff0",
  2239.       "$stockbuff0",
  2240.       "$stockbuff0",
  2241.       "$stockbuff0",
  2242.       "$stockbuff2",
  2243.       "$stockbuff2",
  2244.       "$stockbuff2");   
  2245.    } elsif (($stockbuff0 == 1) or ($stockbuff0 == 9)) {
  2246.      [email protected] =
  2247.       ("$stockbuff2",
  2248.       "$stockbuff2",
  2249.       "$stockbuff2",
  2250.       "$stockbuff2",
  2251.       "$stockbuff0",
  2252.       "$stockbuff0",
  2253.       "$stockbuff0",
  2254.       "$stockbuff0",
  2255.       "$stockbuff3",
  2256.       "$stockbuff3",
  2257.       "$stockbuff3");
  2258.    } else {
  2259.      [email protected] =
  2260.       ("$stockbuff2",
  2261.       "$stockbuff2",
  2262.       "$stockbuff2",
  2263.       "$stockbuff0",
  2264.       "$stockbuff0",
  2265.       "$stockbuff0",
  2266.       "$stockbuff0",
  2267.       "$stockbuff0",
  2268.       "$stockbuff0",
  2269.       "$stockbuff3",
  2270.       "$stockbuff3");
  2271.    }
  2272. }
  2273. sub upmarket {
  2274.    #Decides if fund will enter new mode.
  2275.    $stockbuff2 = ($stockbuff0 - 1);
  2276.    $stockbuff3 = ($stockbuff0 + 1);
  2277.    if ($stockbuff0 == 0) {
  2278.      [email protected] =
  2279.       ("$stockbuff3",
  2280.       "$stockbuff3",
  2281.       "$stockbuff3",
  2282.       "$stockbuff0",
  2283.       "$stockbuff0",
  2284.       "$stockbuff0",
  2285.       "$stockbuff0",
  2286.       "$stockbuff0",
  2287.       "$stockbuff3",
  2288.       "$stockbuff3",
  2289.       "$stockbuff3");
  2290.    } elsif ($stockbuff0 == 10) {
  2291.      [email protected] =
  2292.       ("$stockbuff2",
  2293.       "$stockbuff0",
  2294.       "$stockbuff0",
  2295.       "$stockbuff0",
  2296.       "$stockbuff0",
  2297.       "$stockbuff0",
  2298.       "$stockbuff0",
  2299.       "$stockbuff0",
  2300.       "$stockbuff0",
  2301.       "$stockbuff0",
  2302.       "$stockbuff2");   
  2303.    } elsif (($stockbuff0 == 1) or ($stockbuff0 == 9)) {
  2304.      [email protected] =
  2305.       ("$stockbuff2",
  2306.       "$stockbuff2",
  2307.       "$stockbuff2",
  2308.       "$stockbuff0",
  2309.       "$stockbuff0",
  2310.       "$stockbuff0",
  2311.       "$stockbuff0",
  2312.       "$stockbuff3",
  2313.       "$stockbuff3",
  2314.       "$stockbuff3",
  2315.       "$stockbuff3");
  2316.    } else {
  2317.      [email protected] =
  2318.       ("$stockbuff2",
  2319.       "$stockbuff2",
  2320.       "$stockbuff0",
  2321.       "$stockbuff0",
  2322.       "$stockbuff0",
  2323.       "$stockbuff0",
  2324.       "$stockbuff0",
  2325.       "$stockbuff0",
  2326.       "$stockbuff3",
  2327.       "$stockbuff3",
  2328.       "$stockbuff3");
  2329.    }
  2330. }
  2331. sub downdownmarket {
  2332.    #Decides if fund will enter new mode.
  2333.    $stockbuff2 = ($stockbuff0 - 1);
  2334.    $stockbuff3 = ($stockbuff0 + 1);
  2335.    if ($stockbuff0 == 0) {
  2336.      [email protected] =
  2337.       ("$stockbuff3",
  2338.       "$stockbuff0",
  2339.       "$stockbuff0",
  2340.       "$stockbuff0",
  2341.       "$stockbuff0",
  2342.       "$stockbuff0",
  2343.       "$stockbuff0",
  2344.       "$stockbuff0",
  2345.       "$stockbuff0",
  2346.       "$stockbuff0",
  2347.       "$stockbuff0",
  2348.       "$stockbuff0",
  2349.       "$stockbuff3");
  2350.    } elsif ($stockbuff0 == 10) {
  2351.      [email protected] =
  2352.       ("$stockbuff2",
  2353.       "$stockbuff2",
  2354.       "$stockbuff2",
  2355.       "$stockbuff2",
  2356.       "$stockbuff0",
  2357.       "$stockbuff0",
  2358.       "$stockbuff0",
  2359.       "$stockbuff2",
  2360.       "$stockbuff2",
  2361.       "$stockbuff2",
  2362.       "$stockbuff2");   
  2363.    } elsif (($stockbuff0 == 1) or ($stockbuff0 == 9)) {
  2364.      [email protected] =
  2365.       ("$stockbuff2",
  2366.       "$stockbuff2",
  2367.       "$stockbuff2",
  2368.       "$stockbuff2",
  2369.       "$stockbuff2",
  2370.       "$stockbuff0",
  2371.       "$stockbuff0",
  2372.       "$stockbuff0",
  2373.       "$stockbuff3",
  2374.       "$stockbuff3",
  2375.       "$stockbuff3");
  2376.    } else {
  2377.      [email protected] =
  2378.       ("$stockbuff2",
  2379.       "$stockbuff2",
  2380.       "$stockbuff2",
  2381.       "$stockbuff2",
  2382.       "$stockbuff0",
  2383.       "$stockbuff0",
  2384.       "$stockbuff0",
  2385.       "$stockbuff0",
  2386.       "$stockbuff0",
  2387.       "$stockbuff3",
  2388.       "$stockbuff3");
  2389.    }
  2390. }
  2391. sub upupmarket {
  2392.    #Decides if fund will enter new mode.
  2393.    $stockbuff2 = ($stockbuff0 - 1);
  2394.    $stockbuff3 = ($stockbuff0 + 1);
  2395.    if ($stockbuff0 == 0) {
  2396.      [email protected] =
  2397.       ("$stockbuff3",
  2398.       "$stockbuff3",
  2399.       "$stockbuff3",
  2400.       "$stockbuff3",
  2401.       "$stockbuff0",
  2402.       "$stockbuff0",
  2403.       "$stockbuff0",
  2404.       "$stockbuff3",
  2405.       "$stockbuff3",
  2406.       "$stockbuff3",
  2407.       "$stockbuff3");
  2408.    } elsif ($stockbuff0 == 10) {
  2409.      [email protected] =
  2410.       ("$stockbuff2",
  2411.       "$stockbuff0",
  2412.       "$stockbuff0",
  2413.       "$stockbuff0",
  2414.       "$stockbuff0",
  2415.       "$stockbuff0",
  2416.       "$stockbuff0",
  2417.       "$stockbuff0",
  2418.       "$stockbuff0",
  2419.       "$stockbuff0",
  2420.       "$stockbuff0",
  2421.       "$stockbuff0",
  2422.       "$stockbuff2");   
  2423.    } elsif (($stockbuff0 == 1) or ($stockbuff0 == 9)) {
  2424.      [email protected] =
  2425.       ("$stockbuff2",
  2426.       "$stockbuff2",
  2427.       "$stockbuff2",
  2428.       "$stockbuff0",
  2429.       "$stockbuff0",
  2430.       "$stockbuff0",
  2431.       "$stockbuff3",
  2432.       "$stockbuff3",
  2433.       "$stockbuff3",
  2434.       "$stockbuff3",
  2435.       "$stockbuff3");
  2436.    } else {
  2437.      [email protected] =
  2438.       ("$stockbuff2",
  2439.       "$stockbuff2",
  2440.       "$stockbuff0",
  2441.       "$stockbuff0",
  2442.       "$stockbuff0",
  2443.       "$stockbuff0",
  2444.       "$stockbuff0",
  2445.       "$stockbuff3",
  2446.       "$stockbuff3",
  2447.       "$stockbuff3",
  2448.       "$stockbuff3");
  2449.    }
  2450. }
  2451. ################################################################################################################################
  2452. ## GENRE: Slot Mahine
  2453. ## NAME: House Rules Reel Deal
  2454. ## AUTHOR: MikeeUSA
  2455. sub main {
  2456.    resethrvars();
  2457.    spinreel();
  2458.    reeltrans();
  2459.    #print"$hrrandnums\n"; #<-- Used for testing purposes, keep commented out <--
  2460.    $x = "$svslot1"."$svslot2"."$svslot3";
  2461.    
  2462.    if ($animate == 1) {
  2463.       $reelspin = 3;   
  2464.       topscreen();
  2465.       mainscreen();
  2466.       displaywin();
  2467.       smallpause();
  2468.       newlines();
  2469.       
  2470.       $reelspin = 2;   
  2471.       topscreen();
  2472.       mainscreen();
  2473.       displaywin();
  2474.       smallpause();
  2475.       newlines();
  2476.       
  2477.       $reelspin = 1;   
  2478.       topscreen();
  2479.       mainscreen();
  2480.       displaywin();
  2481.       smallpause();
  2482.       newlines();
  2483.    }
  2484.       
  2485.    $reelspin = 0;   
  2486.    addmoney();
  2487.    fundcalc();
  2488.    topscreen();
  2489.    mainscreen();
  2490.    displaywin();
  2491.    ptracker();
  2492.    startinfo();
  2493. }
  2494. sub main2 {
  2495.    resethrvars();
  2496.    $x = ' ';
  2497.    reeltrans();
  2498.    topscreen();
  2499.    mainscreen();
  2500.    ##addmoney(); #no reason for this to be here, what was I thinking? Don't uncomment.
  2501.    resethrvars();
  2502.       if ($startreel == 1) {
  2503.          $startreel = 0;
  2504.          $addmoney = 0;
  2505.       } else {
  2506.       }
  2507.    displaywin();
  2508.    startinfo();
  2509. }
  2510. sub resethrvars {
  2511.    $addmoney = 0;
  2512.    $anybar = 0;
  2513.    $anybar1 = 0;
  2514.    $anybar2 = 0;
  2515.    $anybar3 = 0;
  2516.    $anycherry = 0;
  2517.    $anycherry1 = 0;
  2518.    $anycherry2 = 0;
  2519.    $anycherry3 = 0;
  2520.    $onecherry = 0;
  2521.    $nonep = 0;
  2522.    $anydollar = 0;
  2523.    $anydollar1 = 0;
  2524.    $anydollar2 = 0;
  2525.    $anydollar3 = 0;
  2526.    $reelspin = 0;
  2527. }
  2528. sub startinfo {
  2529.    tokeneval();
  2530.    $startinfo = <STDIN>;
  2531.    chomp($startinfo);
  2532.    
  2533.    if (($startinfo eq 'a') or ($startinfo eq 'A')) {
  2534.       $startinfo = $hragaincmd;
  2535.    } elsif (($startinfo eq 'p') or ($startinfo eq 'P') or ($startinfo eq '1p') or ($startinfo eq '1P')) {
  2536.       $hragaincmd = $startinfo;
  2537.    } else {
  2538.       #Do Nothing      
  2539.    }
  2540.    
  2541.    if (($startinfo eq 'p') or ($startinfo eq 'P') or ($startinfo eq '1p') or ($startinfo eq '1P')) {
  2542.       if ($money >= $coin) {
  2543.          $money = $money - $coin;
  2544.          $moneyexp = $moneyexp + $coin;
  2545.          $hrstmc2 = $hrstmc2 + $coin;
  2546.          $spins = $spins + 1;
  2547.          $hrstspins = $hrstspins + 1;
  2548.          $hrbulbcolor = 'null';
  2549.          if ($proadd == 1) {
  2550.             $projkpot = $projkpot + $coin;
  2551.             $proadd = 0;
  2552.          } else {
  2553.             $proadd = 1;
  2554.          }
  2555.          if ($hrrandnums > 103) {
  2556.             if ($hrbonus > 0) {
  2557.                $hrbonus = $hrbonus - 1;
  2558.             }
  2559.             if ($hrbonushlp > 0) {
  2560.                $hrbonushlp = $hrbonushlp - 1;
  2561.             } elsif ($hrbonushlp == 0) {
  2562.                $hrrandnums = 107;
  2563.             } elsif ($hrbonushlp < 0) {
  2564.                $hrbonushlp = 0;
  2565.                $hrrandnums = 107;
  2566.             }
  2567.          }
  2568.          newlines();
  2569.          main();
  2570.       } else {
  2571.          newlines();
  2572.          main2();      
  2573.       }   
  2574.    } elsif (($startinfo eq 'exit') or ($startinfo eq 'EXIT') or ($startinfo eq 'quit') or ($startinfo eq 'QUIT')) {
  2575.       exitgame();
  2576.    } elsif (($startinfo eq 'c') or ($startinfo eq 'C')) {
  2577.       return;         
  2578.    } else {
  2579.       newlines();
  2580.       main2();
  2581.    }
  2582. }
  2583. sub newlines {
  2584.    if ($compatVT100 == 1) {
  2585.       print"\033[2J\n";
  2586.    } else {
  2587.       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\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";   
  2588.    }
  2589. }
  2590. sub testmusic {
  2591.       if ($music == 1) {
  2592.       if (system("$musicplayer -v $musictermquiet")) {
  2593.                      $music = 0;
  2594.                   } else {
  2595.                      $music = 1;
  2596.                 }
  2597.         }
  2598. }
  2599. sub beginmusic {
  2600.    if ($music == 1) {
  2601.       $mkillpid = fork();
  2602.       unless ($mkillpid) {
  2603.          playmusic();
  2604.          exit();
  2605.       }
  2606.    }
  2607. }
  2608. sub rrbeginmusic {
  2609.    if ($music == 1) {
  2610.       $mkillpid = fork();
  2611.       unless ($mkillpid) {
  2612.          rrplaymusic();
  2613.          exit();
  2614.       }
  2615.    }
  2616. }
  2617. sub bankbeginmusic {
  2618.    if ($music == 1) {
  2619.       $mkillpid = fork();
  2620.       unless ($mkillpid) {
  2621.          bankplaymusic();
  2622.          exit();
  2623.       }
  2624.    }
  2625. }
  2626. sub playmusic {
  2627.    if ($music == 1) {
  2628.       $SIG{INT} = sub { exit(); };
  2629.       #system("$musicplayer $musicvolumecmd$musicvolume [email protected][0] $musictermquiet");
  2630.       while ($music == 1) {
  2631.          system("$musicplayer $musicvolumecmd$musicvolume [email protected][(int(rand(@musicfiles)))] $musictermquiet");
  2632.       }
  2633.    }
  2634. }
  2635. sub rrplaymusic {
  2636.    if ($music == 1) {
  2637.       $SIG{INT} = sub { exit(); };
  2638.       #system("$musicplayer $musicvolumecmd$musicvolume [email protected][0] $musictermquiet");
  2639.       while ($music == 1) {
  2640.          system("$musicplayer $musicvolumecmd$rrmusicvolume [email protected][(int(rand(@rrmusicfiles)))] $musictermquiet");
  2641.       }
  2642.    }
  2643. }
  2644. sub bankplaymusic {
  2645.    if ($music == 1) {
  2646.       $SIG{INT} = sub { exit(); };
  2647.       #system("$musicplayer $musicvolumecmd$musicvolume [email protected][0] $musictermquiet");
  2648.       while ($music == 1) {
  2649.          system("$musicplayer $musicvolumecmd$bankmusicvolume [email protected][(int(rand(@bankmusicfiles)))] $musictermquiet");
  2650.       }
  2651.    }
  2652. }
  2653. sub beepalrm {
  2654.    #This will always add a newline.
  2655.    #If soundfx = 1 and beepnum > 0 then it will print a beep aswell
  2656.    #Be sure to set $beepnum to 0 at the end of your printed screen
  2657.    if ($soundfx == 1) {
  2658.       if ($beepnum > 0) {
  2659.          if ($beepnum == 1) {
  2660.             print"\a";
  2661.             print"\n";
  2662.          } else {
  2663.             print"\a";
  2664.             print"\n";
  2665.             if ($compatUNIXY == 1) {
  2666.                select undef, undef, undef, 0.15;
  2667.             }
  2668.          }
  2669.          $beepnum = $beepnum - 1;
  2670.       } else {
  2671.          print"\n";
  2672.       }
  2673.    } else {
  2674.       print"\n";
  2675.    }
  2676. }
  2677. sub medpause {
  2678.    if ($compatUNIXY == 1) {
  2679.       if ($anispeed == 3) {
  2680.          select undef, undef, undef, 1.80;
  2681.       } elsif ($anispeed == 2) {
  2682.          select undef, undef, undef, 1.20;
  2683.       } else {
  2684.          select undef, undef, undef, 0.60;
  2685.       }
  2686.    } else {
  2687.       sleep(1);
  2688.    }
  2689. }
  2690. sub smallpause {
  2691.    if ($compatUNIXY == 1) {
  2692.       if ($anispeed == 3) {
  2693.          select undef, undef, undef, 0.90;
  2694.       } elsif ($anispeed == 2) {
  2695.          select undef, undef, undef, 0.60;
  2696.       } else {
  2697.          select undef, undef, undef, 0.30;
  2698.       }
  2699.    } else {
  2700.       sleep(1);
  2701.    }
  2702. }
  2703. sub tinypause {
  2704.    if ($compatUNIXY == 1) {
  2705.       if ($anispeed == 3) {
  2706.          select undef, undef, undef, 0.45;
  2707.       } elsif ($anispeed == 2) {
  2708.          select undef, undef, undef, 0.30;
  2709.       } else {
  2710.          select undef, undef, undef, 0.15;
  2711.       }
  2712.    } else {
  2713.       sleep(1);
  2714.    }
  2715. }
  2716. sub p7pause {
  2717.    if ($compatUNIXY == 1) {
  2718.       if ($anispeed == 3) {
  2719.          select undef, undef, undef, 0.21;
  2720.       } elsif ($anispeed == 2) {
  2721.          select undef, undef, undef, 0.14;
  2722.       } else {
  2723.          select undef, undef, undef, 0.07;
  2724.       }
  2725.    } else {
  2726.       sleep(0);
  2727.    }
  2728. }
  2729. sub p4pause {
  2730.    if ($compatUNIXY == 1) {
  2731.       if ($anispeed == 3) {
  2732.          select undef, undef, undef, 0.12;
  2733.       } elsif ($anispeed == 2) {
  2734.          select undef, undef, undef, 0.08;
  2735.       } else {
  2736.          select undef, undef, undef, 0.04;
  2737.       }
  2738.    } else {
  2739.       sleep(0);
  2740.    }
  2741. }
  2742. sub spinreel {
  2743.    $slotsymbol1 = int(rand($hrrandnums));
  2744.    $slotsymbol2 = int(rand($hrrandnums));
  2745.    $slotsymbol3 = int(rand($hrrandnums));
  2746. }
  2747. #2
  2748. sub symseven1  { print colored('  7777777777777777  ',"$red on_$bgcwhite"); }
  2749. sub symseven2  { print colored('  7777777777777777  ',"$red on_$bgcwhite"); }
  2750. sub symseven3  { print colored('  777       777777  ',"$red on_$bgcwhite"); }
  2751. sub symseven4  { print colored('           777777   ',"$red on_$bgcwhite"); }
  2752. sub symseven5  { print colored('          777777    ',"$red on_$bgcwhite"); }
  2753. sub symseven6  { print colored('         777777     ',"$red on_$bgcwhite"); }
  2754. sub symseven7  { print colored('        7777777     ',"$red on_$bgcwhite"); }
  2755. sub symseven8  { print colored('       7777777      ',"$red on_$bgcwhite"); }
  2756. sub symseven9  { print colored('      77777777      ',"$red on_$bgcwhite"); }
  2757. sub symseven10 { print colored('     777777777      ',"$red on_$bgcwhite"); }
  2758. sub symseven11 { print colored('     777777777      ',"$red on_$bgcwhite"); }  
  2759. sub symseven12 { print colored('     777777777      ',"$red on_$bgcwhite"); }
  2760. sub symseven13 { print colored('      777777777     ',"$red on_$bgcwhite"); }                 
  2761. sub symseven14 { print colored('       777777777    ',"$red on_$bgcwhite"); }
  2762. #6   
  2763. sub symdollar1  { print colored('        $$$$        ',"$green on_$bgcwhite"); }
  2764. sub symdollar2  { print colored('     SSSSSSSSSS     ',"$boldgreen on_$bgcwhite"); }
  2765. sub symdollar3  { print colored('   SSSSSSSSSSSSSS   ',"$boldgreen on_$bgcwhite"); }
  2766. sub symdollar4  { print colored('  SSSS',"$boldgreen on_$bgcwhite"); print colored('  $$$$  ',"$green on_$bgcwhite"); print colored('SSSS  ',"$boldgreen on_$bgcwhite"); }
  2767. sub symdollar5  { print colored('  SSS',"$boldgreen on_$bgcwhite"); print colored('   $$$$        ',"$green on_$bgcwhite"); }
  2768. sub symdollar6  { print colored('  SSSS',"$boldgreen on_$bgcwhite"); print colored('  $$$$        ',"$green on_$bgcwhite"); }
  2769. sub symdollar7  { print colored('   SSSSS',"$boldgreen on_$bgcwhite"); print colored('$$$$',"$green on_$bgcwhite"); print colored('SSS     ',"$boldgreen on_$bgcwhite"); }
  2770. sub symdollar8  { print colored('     SSS',"$boldgreen on_$bgcwhite"); print colored('$$$$',"$green on_$bgcwhite"); print colored('SSSSS   ',"$boldgreen on_$bgcwhite"); }
  2771. sub symdollar9  { print colored('        $$$$',"$green on_$bgcwhite"); print colored('  SSSS  ',"$boldgreen on_$bgcwhite"); }
  2772. sub symdollar10 { print colored('        $$$$',"$green on_$bgcwhite"); print colored('   SSS  ',"$boldgreen on_$bgcwhite"); }
  2773. sub symdollar11 { print colored('  SSSS',"$boldgreen on_$bgcwhite"); print colored('  $$$$',"$green on_$bgcwhite"); print colored('  SSSS  ',"$boldgreen on_$bgcwhite"); }
  2774. sub symdollar12 { print colored('   SSSSSSSSSSSSSS   ',"$boldgreen on_$bgcwhite"); }
  2775. sub symdollar13 { print colored('     SSSSSSSSSS     ',"$boldgreen on_$bgcwhite"); }
  2776. sub symdollar14 { print colored('        $$$$        ',"$green on_$bgcwhite"); }
  2777. sub symdollar1a  { print colored('        $$$$        ',"$yellow on_$bgcwhite"); }
  2778. sub symdollar2a  { print colored('     SSSSSSSSSS     ',"$boldyellow on_$bgcwhite"); }
  2779. sub symdollar3a  { print colored('   SSSSS',"$boldyellow on_$bgcwhite");print colored('S',"$boldyellow on_$bgcwhite"); print colored('SSSSSSSS   ',"$boldyellow on_$bgcwhite"); }
  2780. sub symdollar4a  { print colored('  SSSS',"$boldyellow on_$bgcwhite"); print colored('  A$$Y  ',"$yellow on_$bgcwhite"); print colored('SSSS  ',"$boldyellow on_$bgcwhite"); }
  2781. sub symdollar5a  { print colored('  SSS',"$boldyellow on_$bgcwhite"); print colored('   L$$T        ',"$yellow on_$bgcwhite"); }
  2782. sub symdollar6a  { print colored('  SSSS',"$boldyellow on_$bgcwhite"); print colored('  M$$H        ',"$yellow on_$bgcwhite"); }
  2783. sub symdollar7a  { print colored('   SSSSS',"$boldyellow on_$bgcwhite"); print colored('I$$G',"$yellow on_$bgcwhite"); print colored('SSS     ',"$boldyellow on_$bgcwhite"); }
  2784. sub symdollar8a  { print colored('     SSS',"$boldyellow on_$bgcwhite"); print colored('G$$I',"$yellow on_$bgcwhite"); print colored('SSSSS   ',"$boldyellow on_$bgcwhite"); }
  2785. sub symdollar9a  { print colored('        H$$M',"$yellow on_$bgcwhite"); print colored('  SSSS  ',"$boldyellow on_$bgcwhite"); }
  2786. sub symdollar10a { print colored('        T$$L',"$yellow on_$bgcwhite"); print colored('   SSS  ',"$boldyellow on_$bgcwhite"); }
  2787. sub symdollar11a { print colored('  SSSS',"$boldyellow on_$bgcwhite"); print colored('  Y$$A',"$yellow on_$bgcwhite"); print colored('  SSSS  ',"$boldyellow on_$bgcwhite"); }
  2788. sub symdollar12a { print colored('   SSSSSSSS',"$boldyellow on_$bgcwhite"); print colored('S',"$boldyellow on_$bgcwhite"); print colored('SSSSS   ',"$boldyellow on_$bgcwhite"); }
  2789. sub symdollar13a { print colored('     SSSSSSSSSS     ',"$boldyellow on_$bgcwhite"); }
  2790. sub symdollar14a { print colored('        $$$$        ',"$yellow on_$bgcwhite"); }
  2791. sub symdollar1b  { print colored('        $$$$        ',"$boldblack on_$bgcwhite"); }
  2792. sub symdollar2b  { print colored('     SSSSSSSSSS     ',"$boldwhite on_$bgcwhite"); }
  2793. sub symdollar3b  { print colored('   SSSSSSSSSSSSSS   ',"$boldwhite on_$bgcwhite"); }
  2794. sub symdollar4b  { print colored('  SSSS',"$boldwhite on_$bgcwhite"); print colored('  $$$$  ',"$boldblack on_$bgcwhite"); print colored('SSSS  ',"$boldwhite on_$bgcwhite"); }
  2795. sub symdollar5b  { print colored('  SSS',"$boldwhite on_$bgcwhite"); print colored('   $$$$        ',"$boldblack on_$bgcwhite"); }
  2796. sub symdollar6b  { print colored('  SSSS',"$boldwhite on_$bgcwhite"); print colored('  $$$$        ',"$boldblack on_$bgcwhite"); }
  2797. sub symdollar7b  { print colored('   SSSSS',"$boldwhite on_$bgcwhite"); print colored('$$$$',"$boldblack on_$bgcwhite"); print colored('SSS     ',"$boldwhite on_$bgcwhite"); }
  2798. sub symdollar8b  { print colored('     SSS',"$boldwhite on_$bgcwhite"); print colored('$$$$',"$boldblack on_$bgcwhite"); print colored('SSSSS   ',"$boldwhite on_$bgcwhite"); }
  2799. sub symdollar9b  { print colored('        $$$$',"$boldblack on_$bgcwhite"); print colored('  SSSS  ',"$boldwhite on_$bgcwhite"); }
  2800. sub symdollar10b { print colored('        $$$$',"$boldblack on_$bgcwhite"); print colored('   SSS  ',"$boldwhite on_$bgcwhite"); }
  2801. sub symdollar11b { print colored('  SSSS',"$boldwhite on_$bgcwhite"); print colored('  $$$$',"$boldblack on_$bgcwhite"); print colored('  SSSS  ',"$boldwhite on_$bgcwhite"); }
  2802. sub symdollar12b { print colored('   SSSSSSSSSSSSSS   ',"$boldwhite on_$bgcwhite"); }
  2803. sub symdollar13b { print colored('     SSSSSSSSSS     ',"$boldwhite on_$bgcwhite"); }
  2804. sub symdollar14b { print colored('        $$$$        ',"$boldblack on_$bgcwhite"); }
  2805. sub symbar0  { print colored(' ',"$green on_$bgcwhite"); print colored('                 ',"$boldwhite on_$bgcblack"); print colored('  ',"$green on_$bgcwhite"); }
  2806. #5
  2807. sub symbar1  { print colored(' ',"$green on_$bgcwhite"); print colored('    B   A   R    ',"$cyan on_$bgcblack"); print colored('  ',"$green on_$bgcwhite"); }
  2808. #4
  2809. sub symbar2  { print colored(' ',"$green on_$bgcwhite"); print colored('    B   A   R    ',"$boldmagenta on_$bgcblack"); print colored('  ',"$green on_$bgcwhite"); }
  2810. #3
  2811. sub symbar3  { print colored(' ',"$green on_$bgcwhite"); print colored('    B   A   R    ',"$boldyellow on_$bgcblack"); print colored('  ',"$green on_$bgcwhite"); }
  2812. #1
  2813. sub symgnu5  { print colored(' ',"$green on_$bgcwhite"); print colored('* * * * * * * * *',"$boldwhite on_$bgcwhite"); print colored('  ',"$green on_$bgcwhite"); }
  2814. sub symgnu6  { print colored(' ',"$green on_$bgcwhite"); print colored(' * * * * * * * * ',"$boldblue on_$bgcblue"); print colored('  ',"$green on_$bgcwhite"); }
  2815. sub symgnu7  { print colored(' ',"$green on_$bgcwhite"); print colored('* * * G N U * * *',"$boldblue on_$bgcwhite"); print colored('  ',"$green on_$bgcwhite"); }
  2816. sub symgnu8  { print colored(' ',"$green on_$bgcwhite"); print colored(' * * * * * * * * ',"$boldblue on_$bgcblue"); print colored('  ',"$green on_$bgcwhite"); }
  2817. sub symgnu9  { print colored(' ',"$green on_$bgcwhite"); print colored('* * * * * * * * *',"$boldwhite on_$bgcwhite"); print colored('  ',"$green on_$bgcwhite"); }
  2818. #10
  2819. sub symcherry2  { print colored('           xX       ',"$boldgreen on_$bgcwhite"); }
  2820. sub symcherry3  { print colored('          xX        ',"$boldgreen on_$bgcwhite"); }
  2821. sub symcherry4  { print colored('         xXXx       ',"$boldgreen on_$bgcwhite"); }
  2822. sub symcherry5  { print colored('        xX  Xx      ',"$boldgreen on_$bgcwhite"); }
  2823. sub symcherry6  { print colored('       xX    Xx     ',"$boldgreen on_$bgcwhite"); }
  2824. sub symcherry7  { print colored('      xX',"$boldgreen on_$bgcwhite"); print colored('   CCCCCC   ',"$boldred on_$bgcwhite"); }
  2825. sub symcherry8  { print colored('     xX',"$boldgreen on_$bgcwhite"); print colored('   CCCCCCCC  ',"$boldred on_$bgcwhite"); }
  2826. sub symcherry9  { print colored('  CCCCCC  CCCCCCC',"$boldred on_$bgcwhite"); print colored('C  ',"$red on_$bgcwhite"); }
  2827. sub symcherry10 { print colored(' CCCCCCCC CCCCCC',"$boldred on_$bgcwhite"); print colored('CC  ',"$red on_$bgcwhite"); }
  2828. sub symcherry11 { print colored(' CCCCCCC',"$boldred on_$bgcwhite"); print colored('C  CCCCCC   ',"$red on_$bgcwhite"); }
  2829. sub symcherry12 { print colored(' CCCCC',"$boldred on_$bgcwhite"); print colored('CCC           ',"$red on_$bgcwhite"); }
  2830. sub symcherry13 { print colored('  CCCCCC            ',"$red on_$bgcwhite"); }
  2831. #b
  2832. sub symbonus3  { print colored('         0          ',"$magenta on_$bgcwhite"); }
  2833. sub symbonus4  { print colored('        000         ',"$boldmagenta on_$bgcwhite"); }
  2834. sub symbonus5  { print colored('    [BONUSBONU]     ',"$red on_$bgcwhite"); }
  2835. sub symbonus6  { print colored('    [SBONUSBON]     ',"$boldred on_$bgcwhite"); }
  2836. sub symbonus7  {
  2837. print colored('  ',"$magenta on_$bgcwhite");
  2838. print colored('  ',"$magenta on_$bgcblue");
  2839. print colored(' B',"$boldyellow on_$bgcmagenta");
  2840. print colored('  ',"$magenta on_$bgcblue");
  2841. print colored(' N',"$boldyellow on_$bgcmagenta");
  2842. print colored('  ',"$magenta on_$bgcblue");
  2843. print colored(' S',"$boldyellow on_$bgcmagenta");
  2844. print colored('  ',"$magenta on_$bgcblue");
  2845. print colored('  ',"$blue on_$bgcmagenta");
  2846. print colored('  ',"$magenta on_$bgcwhite");
  2847. }
  2848. sub symbonus8  {
  2849. print colored('  ',"$magenta on_$bgcwhite");
  2850. print colored('  ',"$blue on_$bgcmagenta");
  2851. print colored('  ',"$magenta on_$bgcblue");
  2852. print colored(' O',"$boldyellow on_$bgcmagenta");
  2853. print colored('  ',"$magenta on_$bgcblue");
  2854. print colored(' U',"$boldyellow on_$bgcmagenta");
  2855. print colored('  ',"$magenta on_$bgcblue");
  2856. print colored('  ',"$blue on_$bgcmagenta");
  2857. print colored('  ',"$magenta on_$bgcblue");
  2858. print colored('  ',"$magenta on_$bgcwhite");
  2859. }
  2860. sub symbonus9  { print colored('    \uSBONUSBo/     ',"$red on_$bgcwhite"); }
  2861. sub symbonus10  {
  2862. print colored('  ',"$magenta on_$bgcwhite");
  2863. print colored('  ',"$magenta on_$bgcblue");
  2864. print colored('  ',"$blue on_$bgcmagenta");
  2865. print colored('  ',"$boldyellow on_$bgcblue");
  2866. print colored('O ',"$boldyellow on_$bgcmagenta");
  2867. print colored('  ',"$boldyellow on_$bgcblue");
  2868. print colored('U ',"$boldyellow on_$bgcmagenta");
  2869. print colored('  ',"$magenta on_$bgcblue");
  2870. print colored('  ',"$blue on_$bgcmagenta");
  2871. print colored('  ',"$magenta on_$bgcwhite");
  2872. }
  2873. sub symbonus11  {
  2874. print colored('  ',"$magenta on_$bgcwhite");
  2875. print colored('  ',"$blue on_$bgcmagenta");
  2876. print colored('  ',"$boldyellow on_$bgcblue");
  2877. print colored('B ',"$boldyellow on_$bgcmagenta");
  2878. print colored('  ',"$boldyellow on_$bgcblue");
  2879. print colored('N ',"$boldyellow on_$bgcmagenta");
  2880. print colored('  ',"$boldyellow on_$bgcblue");
  2881. print colored('S ',"$boldyellow on_$bgcmagenta");
  2882. print colored('  ',"$magenta on_$bgcblue");
  2883. print colored('  ',"$magenta on_$bgcwhite");
  2884. }
  2885. sub symbonus12 { print colored('       \nUs/        ',"$boldred on_$bgcwhite"); }
  2886. sub symbonus13 { print colored('        \b/         ',"$red on_$bgcwhite"); }
  2887. #9
  2888. sub symbell3  { print colored('         x          ',"$boldyellow on_$bgcwhite"); }
  2889. sub symbell4  { print colored('        xXx         ',"$boldyellow on_$bgcwhite"); }
  2890. sub symbell5  { print colored('       xXXXx        ',"$boldyellow on_$bgcwhite"); }
  2891. sub symbell6  { print colored('      xXXXXXx       ',"$boldyellow on_$bgcwhite"); }
  2892. sub symbell7  { print colored('     xXXXXXXXx      ',"$boldyellow on_$bgcwhite"); }
  2893. sub symbell8  { print colored('     XXXXXXXXX      ',"$boldyellow on_$bgcwhite"); }
  2894. sub symbell9  { print colored('     XXXXXXXXX      ',"$boldyellow on_$bgcwhite"); }
  2895. sub symbell10 { print colored('     XXXXXXXXX      ',"$boldyellow on_$bgcwhite"); }
  2896. sub symbell11 { print colored('     XXXXXXXXX      ',"$boldyellow on_$bgcwhite"); }
  2897. sub symbell12 { print colored('        000         ',"$yellow on_$bgcwhite"); }
  2898. sub symbell13 { print colored('         0          ',"$yellow on_$bgcwhite"); }
  2899. #8
  2900. sub symolive1  { print colored('       00000        ',"$boldmagenta on_$bgcwhite"); }
  2901. sub symolive2  { print colored('    0000',"$boldmagenta on_$bgcwhite"); print colored('0000000     ',"$magenta on_$bgcwhite"); }
  2902. sub symolive3  { print colored('  000',"$boldmagenta on_$bgcwhite"); print colored('000000',"$magenta on_$bgcwhite"); print colored('000',"$green on_$bgcwhite"); print colored('000   ',"$magenta on_$bgcwhite"); }
  2903. sub symolive4  { print colored(' 00',"$boldmagenta on_$bgcwhite"); print colored('0000000',"$magenta on_$bgcwhite"); print colored('00',"$green on_$bgcwhite"); print colored('0',"$yellow on_$bgcwhite"); print colored('00',"$green on_$bgcwhite"); print colored('000  ',"$magenta on_$bgcwhite"); }
  2904. sub symolive5  { print colored('00',"$boldmagenta on_$bgcwhite"); print colored('000000000',"$magenta on_$bgcwhite"); print colored('000',"$green on_$bgcwhite"); print colored('00000 ',"$magenta on_$bgcwhite"); }
  2905. sub symolive6  { print colored('0',"$boldmagenta on_$bgcwhite"); print colored('000000000000000000 ',"$magenta on_$bgcwhite"); }
  2906. sub symolive7  { print colored('0000000000000000000 ',"$magenta on_$bgcwhite"); }
  2907. sub symolive8  { print colored('0000000000000000000 ',"$magenta on_$bgcwhite"); }
  2908. sub symolive9  { print colored('0000000000000000000 ',"$magenta on_$bgcwhite"); }
  2909. sub symolive10 { print colored('0000000000000000000 ',"$magenta on_$bgcwhite"); }
  2910. sub symolive11 { print colored(' 00000000000000000  ',"$magenta on_$bgcwhite"); }
  2911. sub symolive12 { print colored('  000000000000000   ',"$magenta on_$bgcwhite"); }
  2912. sub symolive13 { print colored('    00000000000     ',"$magenta on_$bgcwhite"); }
  2913. sub symolive14 { print colored('       00000        ',"$magenta on_$bgcwhite"); }
  2914. #7
  2915. sub symstar3   { if ($reel == 1) { $starcolor = "$boldred"; } elsif ($reel == 2) { $starcolor = "$boldwhite"; } else { $starcolor = "$boldblue"; } print colored('         *          ',"$starcolor on_$bgcwhite"); }
  2916. sub symstar4   { if ($reel == 1) { $starcolor = "$red"; } elsif ($reel == 2) { $starcolor = "$boldblack"; } else { $starcolor = "$blue"; } print colored('        ***         ',"$starcolor on_$bgcwhite"); }
  2917. sub symstar5   { if ($reel == 1) { $starcolor = "$boldred"; } elsif ($reel == 2) { $starcolor = "$boldwhite"; } else { $starcolor = "$boldblue"; } print colored('       *****        ',"$starcolor on_$bgcwhite"); }
  2918. sub symstar6   { if ($reel == 1) { $starcolor = "$red"; } elsif ($reel == 2) { $starcolor = "$boldblack"; } else { $starcolor = "$blue"; } print colored(' ****************** ',"$starcolor on_$bgcwhite"); }
  2919. sub symstar7   { if ($reel == 1) { $starcolor = "$boldred"; } elsif ($reel == 2) { $starcolor = "$boldwhite"; } else { $starcolor = "$boldblue"; } print colored('   **************   ',"$starcolor on_$bgcwhite"); }
  2920. sub symstar8   { if ($reel == 1) { $starcolor = "$red"; } elsif ($reel == 2) { $starcolor = "$boldblack"; } else { $starcolor = "$blue"; } print colored('     **********     ',"$starcolor on_$bgcwhite"); }
  2921. sub symstar9   { if ($reel == 1) { $starcolor = "$boldred"; } elsif ($reel == 2) { $starcolor = "$boldwhite"; } else { $starcolor = "$boldblue"; } print colored('     **********     ',"$starcolor on_$bgcwhite"); }
  2922. sub symstar10  { if ($reel == 1) { $starcolor = "$red"; } elsif ($reel == 2) { $starcolor = "$boldblack"; } else { $starcolor = "$blue"; } print colored('    *****  *****    ',"$starcolor on_$bgcwhite"); }
  2923. sub symstar11  { if ($reel == 1) { $starcolor = "$boldred"; } elsif ($reel == 2) { $starcolor = "$boldwhite"; } else { $starcolor = "$boldblue"; } print colored('   ****      ****   ',"$starcolor on_$bgcwhite"); }
  2924. sub symstar12  { if ($reel == 1) { $starcolor = "$red"; } elsif ($reel == 2) { $starcolor = "$boldblack"; } else { $starcolor = "$blue"; } print colored('  **            **  ',"$starcolor on_$bgcwhite"); }
  2925. sub symwhite   { print colored('                    ',"$boldyellow on_$bgcwhite"); }
  2926. sub symspining { print colored('||||||||||||||||||||',"$boldwhite on_$bgcwhite"); }
  2927. sub slot1 {
  2928.    if ($slot1 eq 'spining') {
  2929.       symspining();
  2930.    } elsif ($slot1 == 2) {
  2931.       symseven1();
  2932.    } elsif ($slot1 == 6) {
  2933.       symdollar1();
  2934.    } elsif ($slot1 == 8) {
  2935.       symolive1();
  2936.    } elsif ($slot1 == 11) {
  2937.       symseven10();
  2938.    } elsif ($slot1 == 12) {
  2939.       symbar0();
  2940.    } elsif ($slot1 == 13) {
  2941.       symcherry9();
  2942.    } elsif ($slot1 == 14) {
  2943.       symbell10();
  2944.    } elsif ($slot1 == 15) {
  2945.       symstar10();
  2946.    } elsif ($slot1 == 16) {
  2947.       symdollar1a();
  2948.    } elsif ($slot1 == 17) {
  2949.       symgnu8();
  2950.    } elsif ($slot1 == 18) {
  2951.       symolive10();
  2952.    } elsif ($slot1 == 19) {
  2953.       symdollar10();
  2954.    } elsif ($slot1 == 21) {
  2955.       symdollar1b();                        
  2956.    } else {
  2957.       symwhite();
  2958.    }
  2959. }
  2960. sub slot2 {
  2961.    if ($slot2 eq 'spining') {
  2962.       symspining();
  2963.    } elsif ($slot2 == 2) {
  2964.       symseven2();
  2965.    } elsif ($slot2 == 3) {
  2966.       symbar0();   
  2967.    } elsif ($slot2 == 6) {
  2968.       symdollar2();   
  2969.    } elsif ($slot2 == 8) {
  2970.       symolive2();
  2971.    } elsif ($slot2 == 10) {
  2972.       symcherry2();
  2973.    } elsif ($slot2 == 11) {
  2974.       symseven11();
  2975.    } elsif ($slot2 == 12) {
  2976.       symbar3();
  2977.    } elsif ($slot2 == 13) {
  2978.       symcherry10();
  2979.    } elsif ($slot2 == 14) {
  2980.       symbell11();
  2981.    } elsif ($slot2 == 15) {
  2982.       symstar11();
  2983.    } elsif ($slot2 == 16) {
  2984.       symdollar2a();
  2985.    } elsif ($slot2 == 17) {
  2986.       symgnu9();
  2987.    } elsif ($slot2 == 18) {
  2988.       symolive11();
  2989.    } elsif ($slot2 == 19) {
  2990.       symdollar11();
  2991.    } elsif ($slot2 == 20) {
  2992.       symbar0();
  2993.    } elsif ($slot2 == 21) {
  2994.       symdollar2b();      
  2995.    } else {
  2996.       symwhite();
  2997.    }
  2998. }
  2999. sub slot3 {
  3000.    if ($slot3 eq 'spining') {
  3001.       symspining();
  3002.    } elsif ($slot3 == 2) {
  3003.       symseven3();
  3004.    } elsif ($slot3 == 3) {
  3005.       symbar3();
  3006.    } elsif ($slot3 == 6) {
  3007.       symdollar3();
  3008.    } elsif ($slot3 == 7) {
  3009.       symstar3();   
  3010.    } elsif ($slot3 == 8) {
  3011.       symolive3();
  3012.    } elsif ($slot3 == 9) {   
  3013.       symbell3();
  3014.    } elsif ($slot3 eq 'b') {   
  3015.       symbonus3();
  3016.    } elsif ($slot3 == 10) {
  3017.       symcherry3();
  3018.    } elsif ($slot3 == 11) {
  3019.       symseven12();
  3020.    } elsif ($slot3 == 12) {
  3021.       symbar0();
  3022.    } elsif ($slot3 == 13) {
  3023.       symcherry11();
  3024.    } elsif ($slot3 == 14) {
  3025.       symbell12();
  3026.    } elsif ($slot3 == 15) {
  3027.       symstar12();
  3028.    } elsif ($slot3 == 16) {
  3029.       symdollar3a();
  3030.    } elsif ($slot3 == 18) {
  3031.       symolive12();
  3032.    } elsif ($slot3 == 19) {
  3033.       symdollar12();
  3034.    } elsif ($slot3 == 20) {
  3035.       symbar2();
  3036.    } elsif ($slot3 == 21) {
  3037.       symdollar3b();                                 
  3038.    } else {
  3039.       symwhite();
  3040.    }
  3041. }
  3042. sub slot4 {
  3043.    if ($slot4 eq 'spining') {
  3044.       symspining();
  3045.    } elsif ($slot4 == 2) {
  3046.       symseven4();
  3047.    } elsif ($slot4 == 3) {
  3048.       symbar0();
  3049.    } elsif ($slot4 == 4) {
  3050.       symbar0();      
  3051.    } elsif ($slot4 == 6) {
  3052.       symdollar4();
  3053.    } elsif ($slot4 == 7) {
  3054.       symstar4();   
  3055.    } elsif ($slot4 == 8) {
  3056.       symolive4();
  3057.    } elsif ($slot4 == 9) {   
  3058.       symbell4();
  3059.    } elsif ($slot4 eq 'b') {   
  3060.       symbonus4();
  3061.    } elsif ($slot4 == 10) {
  3062.       symcherry4();
  3063.    } elsif ($slot4 == 11) {
  3064.       symseven13();
  3065.    } elsif ($slot4 == 13) {
  3066.       symcherry12();
  3067.    } elsif ($slot4 == 14) {
  3068.       symbell13();
  3069.    } elsif ($slot4 == 16) {
  3070.       symdollar4a();
  3071.    } elsif ($slot4 == 18) {
  3072.       symolive13();
  3073.    } elsif ($slot4 == 19) {
  3074.       symdollar13();
  3075.    } elsif ($slot4 == 20) {
  3076.       symbar0();
  3077.    } elsif ($slot4 == 21) {
  3078.       symdollar4b();                                    
  3079.    } else {
  3080.       symwhite();
  3081.    }
  3082. }
  3083. sub slot5 {
  3084.    if ($slot5 eq 'spining') {
  3085.       symspining();
  3086.    } elsif ($slot5 == 1) {
  3087.       symgnu5();
  3088.    } elsif ($slot5 == 2) {
  3089.       symseven5();
  3090.    } elsif ($slot5 == 4) {
  3091.       symbar2();      
  3092.    } elsif ($slot5 == 6) {
  3093.       symdollar5();
  3094.    } elsif ($slot5 == 7) {
  3095.       symstar5();   
  3096.    } elsif ($slot5 == 8) {
  3097.       symolive5();
  3098.    } elsif ($slot5 == 9) {   
  3099.       symbell5();
  3100.    } elsif ($slot5 eq 'b') {   
  3101.       symbonus5();
  3102.    } elsif ($slot5 == 10) {
  3103.       symcherry5();
  3104.    } elsif ($slot5 == 11) {
  3105.       symseven14();
  3106.    } elsif ($slot5 == 13) {
  3107.       symcherry13();
  3108.    } elsif ($slot5 == 16) {
  3109.       symdollar5a();
  3110.    } elsif ($slot5 == 18) {
  3111.       symolive14();
  3112.    } elsif ($slot5 == 19) {
  3113.       symdollar14();
  3114.    } elsif ($slot5 == 21) {
  3115.       symdollar5b();                     
  3116.    } else {
  3117.       symwhite();
  3118.    }
  3119. }
  3120. sub slot6 {
  3121.    if ($slot6 eq 'spining') {
  3122.       symspining();
  3123.    } elsif ($slot6 == 1) {
  3124.       symgnu6();
  3125.    } elsif ($slot6 == 2) {
  3126.       symseven6();
  3127.    } elsif ($slot6 == 3) {
  3128.       symbar0();
  3129.    } elsif ($slot6 == 4) {
  3130.       symbar0();            
  3131.    } elsif ($slot6 == 5) {
  3132.       symbar0();         
  3133.    } elsif ($slot6 == 6) {
  3134.       symdollar6();
  3135.    } elsif ($slot6 == 7) {
  3136.       symstar6();   
  3137.    } elsif ($slot6 == 8) {
  3138.       symolive6();
  3139.    } elsif ($slot6 == 9) {   
  3140.       symbell6();
  3141.    } elsif ($slot6 eq 'b') {   
  3142.       symbonus6();
  3143.    } elsif ($slot6 == 10) {
  3144.       symcherry6();
  3145.    } elsif ($slot6 == 16) {
  3146.       symdollar6a();
  3147.    } elsif ($slot6 == 21) {
  3148.       symdollar6b();               
  3149.    } else {
  3150.       symwhite();
  3151.    }
  3152. }
  3153.       
  3154. sub slot7 {   
  3155.    if ($slot7 eq 'spining') {
  3156.       symspining();
  3157.    } elsif ($slot7 == 1) {
  3158.       symgnu7();
  3159.    } elsif ($slot7 == 2) {
  3160.       symseven7();
  3161.    } elsif ($slot7 == 3) {
  3162.       symbar3();
  3163.    } elsif ($slot7 == 5) {
  3164.       symbar1();      
  3165.    } elsif ($slot7 == 6) {
  3166.       symdollar7();
  3167.    } elsif ($slot7 == 7) {
  3168.       symstar7();   
  3169.    } elsif ($slot7 == 8) {
  3170.       symolive7();
  3171.    } elsif ($slot7 == 9) {   
  3172.       symbell7();
  3173.    } elsif ($slot7 eq 'b') {   
  3174.       symbonus7();
  3175.    } elsif ($slot7 == 10) {
  3176.       symcherry7();
  3177.    } elsif ($slot7 == 16) {
  3178.       symdollar7a();
  3179.    } elsif ($slot7 == 21) {
  3180.       symdollar7b();         
  3181.    } else {
  3182.       symwhite();
  3183.    }
  3184. }
  3185. sub slot8 {
  3186.    if ($slot8 eq 'spining') {
  3187.       symspining();
  3188.    } elsif ($slot8 == 1) {
  3189.       symgnu8();
  3190.    } elsif ($slot8 == 2) {
  3191.       symseven8();
  3192.    } elsif ($slot8 == 3) {
  3193.       symbar0();
  3194.    } elsif ($slot8 == 4) {
  3195.       symbar0();      
  3196.    } elsif ($slot8 == 5) {
  3197.       symbar0();      
  3198.    } elsif ($slot8 == 6) {
  3199.       symdollar8();
  3200.    } elsif ($slot8 == 7) {
  3201.       symstar8();   
  3202.    } elsif ($slot8 == 8) {
  3203.       symolive8();
  3204.    } elsif ($slot8 == 9) {   
  3205.       symbell8();
  3206.    } elsif ($slot8 eq 'b') {   
  3207.       symbonus8();
  3208.    } elsif ($slot8 == 10) {
  3209.       symcherry8();
  3210.    } elsif ($slot8 == 16) {
  3211.       symdollar8a();
  3212.    } elsif ($slot8 == 21) {
  3213.       symdollar8b();         
  3214.    } else {
  3215.       symwhite();
  3216.    }
  3217. }
  3218. sub slot9 {
  3219.    if ($slot9 eq 'spining') {
  3220.       symspining();
  3221.    } elsif ($slot9 == 1) {
  3222.       symgnu9();
  3223.    } elsif ($slot9 == 2) {
  3224.       symseven9();
  3225.    } elsif ($slot8 == 4) {
  3226.       symbar2();      
  3227.    } elsif ($slot9 == 6) {
  3228.       symdollar9();
  3229.    } elsif ($slot9 == 7) {
  3230.       symstar9();   
  3231.    } elsif ($slot9 == 8) {
  3232.       symolive9();
  3233.    } elsif ($slot9 == 9) {   
  3234.       symbell9();
  3235.    } elsif ($slot9 eq 'b') {   
  3236.       symbonus9();
  3237.    } elsif ($slot9 == 10) {
  3238.       symcherry9();
  3239.    } elsif ($slot9 == 16) {
  3240.       symdollar9a();
  3241.    } elsif ($slot9 == 21) {
  3242.       symdollar9b();         
  3243.    } else {
  3244.       symwhite();
  3245.    }
  3246. }
  3247. sub slot10 {
  3248.    if ($slot10 eq 'spining') {
  3249.       symspining();
  3250.    } elsif ($slot10 == 2) {
  3251.       symseven10();
  3252.    } elsif ($slot10 == 3) {
  3253.       symbar0();
  3254.    } elsif ($slot10 == 4) {
  3255.       symbar0();      
  3256.    } elsif ($slot10 == 6) {
  3257.       symdollar10();
  3258.    } elsif ($slot10 == 7) {
  3259.       symstar10();   
  3260.    } elsif ($slot10 == 8) {
  3261.       symolive10();
  3262.    } elsif ($slot10 == 9) {   
  3263.       symbell10();
  3264.    } elsif ($slot10 eq 'b') {   
  3265.       symbonus10();
  3266.    } elsif ($slot10 == 10) {
  3267.       symcherry10();
  3268.    } elsif ($slot10 == 11) {
  3269.       symdollar1();
  3270.    } elsif ($slot10 == 15) {
  3271.       symolive1();
  3272.    } elsif ($slot10 == 16) {
  3273.       symdollar10a();
  3274.    } elsif ($slot10 == 18) {
  3275.       symseven1();
  3276.    } elsif ($slot10 == 21) {
  3277.       symdollar10b();
  3278.    } else {
  3279.       symwhite();
  3280.    }
  3281. }
  3282. sub slot11 {
  3283.    if ($slot11 eq 'spining') {
  3284.       symspining();
  3285.    } elsif ($slot11 == 2) {
  3286.       symseven11();
  3287.    } elsif ($slot11 == 3) {
  3288.       symbar3();
  3289.    } elsif ($slot11 == 6) {
  3290.       symdollar11();
  3291.    } elsif ($slot11 == 7) {
  3292.       symstar11();   
  3293.    } elsif ($slot11 == 8) {
  3294.       symolive11();
  3295.    } elsif ($slot11 == 9) {   
  3296.       symbell11();
  3297.    } elsif ($slot11 eq 'b') {   
  3298.       symbonus11();
  3299.    } elsif ($slot11 == 10) {
  3300.       symcherry11();
  3301.    } elsif ($slot11 == 11) {
  3302.       symdollar2();
  3303.    } elsif ($slot11 == 15) {
  3304.       symolive2();
  3305.    } elsif ($slot11 == 16) {
  3306.       symdollar11a();
  3307.    } elsif ($slot11 == 18) {
  3308.       symseven2();
  3309.    } elsif ($slot11 == 19) {
  3310.       symcherry2();
  3311.    } elsif ($slot11 == 21) {
  3312.       symdollar11b();
  3313.    } else {
  3314.       symwhite();
  3315.    }
  3316. }
  3317. sub slot12 {
  3318.    if ($slot12 eq 'spining') {
  3319.       symspining();
  3320.    } elsif ($slot12 == 2) {
  3321.       symseven12();
  3322.    } elsif ($slot12 == 3) {
  3323.       symbar0();
  3324.    } elsif ($slot12 == 6) {
  3325.       symdollar12();
  3326.    } elsif ($slot12 == 7) {
  3327.       symstar12();   
  3328.    } elsif ($slot12 == 8) {
  3329.       symolive12();
  3330.    } elsif ($slot12 == 9) {   
  3331.       symbell12();
  3332.    } elsif ($slot12 eq 'b') {   
  3333.       symbonus12();
  3334.    } elsif ($slot12 == 10) {
  3335.       symcherry12();
  3336.    } elsif ($slot12 == 11) {
  3337.       symdollar3();
  3338.    } elsif ($slot12 == 12) {
  3339.       symstar3();
  3340.    } elsif ($slot12 == 12) {
  3341.       symbell3();
  3342.    } elsif ($slot12 == 13) {
  3343.       symbell3();
  3344.    } elsif ($slot12 == 15) {
  3345.       symolive3();
  3346.    } elsif ($slot12 == 16) {
  3347.       symdollar12a();
  3348.    } elsif ($slot12 == 17) {
  3349.       symdollar1();
  3350.    } elsif ($slot12 == 18) {
  3351.       symseven3();
  3352.    } elsif ($slot12 == 19) {
  3353.       symcherry3();
  3354.    } elsif ($slot12 == 21) {
  3355.       symdollar12b();
  3356.    } else {
  3357.       symwhite();
  3358.    }
  3359. }
  3360. sub slot13 {
  3361.    if ($slot13 eq 'spining') {
  3362.       symspining();
  3363.    } elsif ($slot13 == 2) {
  3364.       symseven13();
  3365.    } elsif ($slot13 == 6) {
  3366.       symdollar13();   
  3367.    } elsif ($slot13 == 8) {
  3368.       symolive13();
  3369.    } elsif ($slot13 == 9) {   
  3370.       symbell13();
  3371.    } elsif ($slot13 eq 'b') {   
  3372.       symbonus13();
  3373.    } elsif ($slot13 == 10) {
  3374.       symcherry13();
  3375.    } elsif ($slot13 == 11) {
  3376.       symdollar4();
  3377.    } elsif ($slot13 == 12) {
  3378.       symstar4();
  3379.    } elsif ($slot13 == 13) {
  3380.       symbell4();
  3381.    } elsif ($slot13 == 14) {
  3382.       symbar0();
  3383.    } elsif ($slot13 == 15) {   
  3384.       symolive4();
  3385.    } elsif ($slot13 == 16) {
  3386.       symdollar13a();
  3387.    } elsif ($slot13 == 17) {
  3388.       symdollar2();
  3389.    } elsif ($slot13 == 18) {
  3390.       symseven4();
  3391.    } elsif ($slot13 == 19) {
  3392.       symcherry4();
  3393.    } elsif ($slot13 == 20) {
  3394.       symbar0();
  3395.    } elsif ($slot13 == 21) {
  3396.       symdollar13b();                  
  3397.    } else {
  3398.       symwhite();
  3399.    }
  3400. }
  3401. sub slot14 {
  3402.    if ($slot14 eq 'spining') {
  3403.       symspining();
  3404.    } elsif ($slot14 == 2) {
  3405.       symseven14();
  3406.    } elsif ($slot14 == 6) {
  3407.       symdollar14();   
  3408.    } elsif ($slot14 == 8) {
  3409.       symolive14();
  3410.    } elsif ($slot14 == 11) {
  3411.       symdollar5();
  3412.    } elsif ($slot14 == 12) {
  3413.       symstar5();
  3414.    } elsif ($slot14 == 13) {
  3415.       symbell5();
  3416.    } elsif ($slot14 == 14) {
  3417.       symbar2();
  3418.    } elsif ($slot14 == 15) {   
  3419.       symolive5();
  3420.    } elsif ($slot14 == 16) {
  3421.       symdollar14a();
  3422.    } elsif ($slot14 == 17) {
  3423.       symdollar3();
  3424.    } elsif ($slot14 == 18) {
  3425.       symseven5();
  3426.    } elsif ($slot14 == 19) {
  3427.       symcherry5();
  3428.    } elsif ($slot14 == 20) {
  3429.       symbar3();
  3430.    } elsif ($slot14 == 21) {
  3431.       symdollar14b();                           
  3432.    } else {
  3433.       symwhite();
  3434.    }
  3435. }
  3436. sub reeltrans {
  3437.    if ($slotsymbol1 <= 18) {
  3438.       if ($hrbonus > 0) {
  3439.       #Change the cherry into a bell if bonus round is running
  3440.       $svslot1 = 9;
  3441.       } else {
  3442.       $svslot1 = 10;
  3443.       $anycherry1 = 1;
  3444.       $onecherry = 1;
  3445.       }
  3446.    } elsif ($slotsymbol1 <= 34) {
  3447.       $svslot1 = 9;
  3448.    } elsif ($slotsymbol1 <= 48) {
  3449.       $svslot1 = 8;
  3450.    } elsif ($slotsymbol1 <= 60) {
  3451.       $svslot1 = 7;
  3452.    } elsif ($slotsymbol1 <= 69) {
  3453.       $svslot1 = 6;
  3454.       $anydollar1 = 1;
  3455.    } elsif ($slotsymbol1 == 70) {
  3456.       $svslot1 = 21;
  3457.       $anydollar1 = 1;
  3458.    } elsif ($slotsymbol1 <= 78) {
  3459.       $svslot1 = 5;   
  3460.       $anybar1 = 1;
  3461.    } elsif ($slotsymbol1 <= 84) {
  3462.       $svslot1 = 4;
  3463.       $anybar1 = 1;
  3464.    } elsif ($slotsymbol1 <= 88) {
  3465.       $svslot1 = 3;
  3466.       $anybar1 = 1;
  3467.    } elsif ($slotsymbol1 <= 90) {
  3468.       $svslot1 = 2;   
  3469.    } elsif ($slotsymbol1 <= 91) {
  3470.       $svslot1 = 1;
  3471.    } elsif ($slotsymbol1 <= 92) {
  3472.       if ($hrbonus > 0) {
  3473.       #Change the misalign into a bell if bonus round is running
  3474.       $svslot1 = 9;
  3475.       } else {
  3476.       $svslot1 = 11;
  3477.       $nonep = 1;
  3478.       }
  3479.    } elsif ($slotsymbol1 <= 93) {
  3480.       if ($hrbonus > 0) {
  3481.       #Change the misalign into a bell if bonus round is running
  3482.       $svslot1 = 9;
  3483.       } else {
  3484.       $svslot1 = 12;
  3485.       $nonep = 1;
  3486.       }
  3487.    } elsif ($slotsymbol1 <= 94) {
  3488.       if ($hrbonus > 0) {
  3489.       #Change the misalign into a bell if bonus round is running
  3490.       $svslot1 = 9;
  3491.       } else {
  3492.       $svslot1 = 13;
  3493.       $nonep = 1;
  3494.       }
  3495.    } elsif ($slotsymbol1 <= 95) {
  3496.       if ($hrbonus > 0) {
  3497.       #Change the misalign into a bell if bonus round is running
  3498.       $svslot1 = 9;
  3499.       } else {
  3500.       $svslot1 = 14;
  3501.       $nonep = 1;
  3502.       }
  3503.    } elsif ($slotsymbol1 <= 96) {
  3504.       if ($hrbonus > 0) {
  3505.       #Change the misalign into a bell if bonus round is running
  3506.       $svslot1 = 9;
  3507.       } else {
  3508.       $svslot1 = 15;
  3509.       $nonep = 1;
  3510.       }
  3511.    } elsif ($slotsymbol1 <= 97) {
  3512.       if ($hrbonus > 0) {
  3513.       #Change the misalign into a bell if bonus round is running
  3514.       $svslot1 = 9;
  3515.       } else {
  3516.       $svslot1 = 17;
  3517.       $nonep = 1;
  3518.       }
  3519.    } elsif ($slotsymbol1 <= 98) {
  3520.       if ($hrbonus > 0) {
  3521.       #Change the misalign into a bell if bonus round is running
  3522.       $svslot1 = 9;
  3523.       } else {
  3524.       $svslot1 = 18;
  3525.       $nonep = 1;
  3526.       }
  3527.    } elsif ($slotsymbol1 <= 100) {
  3528.       if ($hrbonus > 0) {
  3529.       #Change the misalign into a bell if bonus round is running
  3530.       $svslot1 = 9;
  3531.       } else {
  3532.       $svslot1 = 19;
  3533.       $nonep = 1;
  3534.       }
  3535.    } elsif ($slotsymbol1 <= 102) {
  3536.       if ($hrbonus > 0) {
  3537.       #Change the misalign into a bell if bonus round is running
  3538.       $svslot1 = 9;
  3539.       } else {
  3540.       $svslot1 = 20;
  3541.       $nonep = 1;
  3542.       }
  3543.    } elsif ($slotsymbol1 <= 109) {
  3544.       #bonus
  3545.       $svslot1 = 'b';                  
  3546.    } else {
  3547.       $svslot1 = 0;
  3548.    }
  3549.    
  3550.    if ($slotsymbol2 <= 18) {
  3551.       if ($hrbonus > 0) {
  3552.       #Change the cherry into a bell if bonus round is running
  3553.       $svslot2 = 9;
  3554.       } else {
  3555.       $svslot2 = 10;
  3556.       $anycherry2 = 1;
  3557.       }
  3558.    } elsif ($slotsymbol2 <= 34) {
  3559.       $svslot2 = 9;
  3560.    } elsif ($slotsymbol2 <= 48) {
  3561.       $svslot2 = 8;
  3562.    } elsif ($slotsymbol2 <= 60) {
  3563.       $svslot2 = 7;
  3564.    } elsif ($slotsymbol2 <= 69) {
  3565.       $svslot2 = 6;
  3566.       $anydollar2 = 1;
  3567.    } elsif ($slotsymbol2 == 70) {
  3568.       $svslot2 = 16;   
  3569.       $anydollar2 = 1;
  3570.    } elsif ($slotsymbol2 <= 78) {
  3571.       $svslot2 = 5;
  3572.       $anybar2 = 1;   
  3573.    } elsif ($slotsymbol2 <= 84) {
  3574.       $svslot2 = 4;
  3575.       $anybar2 = 1;
  3576.    } elsif ($slotsymbol2 <= 88) {
  3577.       $svslot2 = 3;
  3578.       $anybar2 = 1;
  3579.    } elsif ($slotsymbol2 <= 90) {
  3580.       $svslot2 = 2;   
  3581.    } elsif ($slotsymbol2 <= 91) {
  3582.       $svslot2 = 1;
  3583.    } elsif ($slotsymbol2 <= 92) {
  3584.       if ($hrbonus > 0) {
  3585.       #Change the misalign into a bell if bonus round is running
  3586.       $svslot2 = 9;
  3587.       } else {
  3588.       $svslot2 = 11;
  3589.       $nonep = 1;
  3590.       }
  3591.    } elsif ($slotsymbol2 <= 93) {
  3592.       if ($hrbonus > 0) {
  3593.       #Change the misalign into a bell if bonus round is running
  3594.       $svslot2 = 9;
  3595.       } else {
  3596.       $svslot2 = 12;
  3597.       $nonep = 1;
  3598.       }
  3599.    } elsif ($slotsymbol2 <= 94) {
  3600.       if ($hrbonus > 0) {
  3601.       #Change the misalign into a bell if bonus round is running
  3602.       $svslot2 = 9;
  3603.       } else {
  3604.       $svslot2 = 13;
  3605.       $nonep = 1;
  3606.       }
  3607.    } elsif ($slotsymbol2 <= 95) {
  3608.       if ($hrbonus > 0) {
  3609.       #Change the misalign into a bell if bonus round is running
  3610.       $svslot2 = 9;
  3611.       } else {
  3612.       $svslot2 = 14;
  3613.       $nonep = 1;
  3614.       }
  3615.    } elsif ($slotsymbol2 <= 96) {
  3616.       if ($hrbonus > 0) {
  3617.       #Change the misalign into a bell if bonus round is running
  3618.       $svslot2 = 9;
  3619.       } else {
  3620.       $svslot2 = 15;
  3621.       $nonep = 1;
  3622.       }
  3623.    } elsif ($slotsymbol2 <= 97) {
  3624.       if ($hrbonus > 0) {
  3625.       #Change the misalign into a bell if bonus round is running
  3626.       $svslot2 = 9;
  3627.       } else {
  3628.       $svslot2 = 17;
  3629.       $nonep = 1;
  3630.       }
  3631.    } elsif ($slotsymbol2 <= 98) {
  3632.       if ($hrbonus > 0) {
  3633.       #Change the misalign into a bell if bonus round is running
  3634.       $svslot2 = 9;
  3635.       } else {
  3636.       $svslot2 = 18;
  3637.       $nonep = 1;
  3638.       }
  3639.    } elsif ($slotsymbol2 <= 100) {
  3640.       if ($hrbonus > 0) {
  3641.       #Change the misalign into a bell if bonus round is running
  3642.       $svslot2 = 9;
  3643.       } else {
  3644.       $svslot2 = 19;
  3645.       $nonep = 1;
  3646.       }
  3647.    } elsif ($slotsymbol2 <= 102) {
  3648.       if ($hrbonus > 0) {
  3649.       #Change the misalign into a bell if bonus round is running
  3650.       $svslot2 = 9;
  3651.       } else {
  3652.       $svslot2 = 20;
  3653.       $nonep = 1;
  3654.       }
  3655.    } elsif ($slotsymbol2 <= 109) {
  3656.       #bonus
  3657.       $svslot2 = 'b';                           
  3658.    } else {
  3659.       $svslot2 = 0;
  3660.    }               
  3661.    
  3662.    if ($slotsymbol3 <= 18) {
  3663.       if ($hrbonus > 0) {
  3664.       #Change the cherry into a bell if bonus round is running
  3665.       $svslot3 = 9;
  3666.       } else {
  3667.       $svslot3 = 10;
  3668.       $anycherry3 = 1;
  3669.       }
  3670.    } elsif ($slotsymbol3 <= 34) {
  3671.       $svslot3 = 9;
  3672.    } elsif ($slotsymbol3 <= 48) {
  3673.       $svslot3 = 8;
  3674.    } elsif ($slotsymbol3 <= 60) {
  3675.       $svslot3 = 7;
  3676.    } elsif ($slotsymbol3 <= 69) {
  3677.       $svslot3 = 6;
  3678.       $anydollar3 = 1;
  3679.    } elsif ($slotsymbol3 == 70) {
  3680.       $svslot3 = 21;
  3681.       $anydollar3 = 1;      
  3682.    } elsif ($slotsymbol3 <= 78) {
  3683.       $svslot3 = 5;
  3684.       $anybar3 = 1;   
  3685.    } elsif ($slotsymbol3 <= 84) {
  3686.       $svslot3 = 4;
  3687.       $anybar3 = 1;
  3688.    } elsif ($slotsymbol3 <= 88) {
  3689.       $svslot3 = 3;
  3690.       $anybar3 = 1;
  3691.    } elsif ($slotsymbol3 <= 90) {
  3692.       $svslot3 = 2;   
  3693.    } elsif ($slotsymbol3 <= 91) {
  3694.       $svslot3 = 1;
  3695.    } elsif ($slotsymbol3 <= 92) {
  3696.       if ($hrbonus > 0) {
  3697.       #Change the misalign into a bell if bonus round is running
  3698.       $svslot3 = 9;
  3699.       } else {
  3700.       $svslot3 = 11;
  3701.       $nonep = 1;
  3702.       }
  3703.    } elsif ($slotsymbol3 <= 93) {
  3704.       if ($hrbonus > 0) {
  3705.       #Change the misalign into a bell if bonus round is running
  3706.       $svslot3 = 9;
  3707.       } else {
  3708.       $svslot3 = 12;
  3709.       $nonep = 1;
  3710.       }
  3711.    } elsif ($slotsymbol3 <= 94) {
  3712.       if ($hrbonus > 0) {
  3713.       #Change the misalign into a bell if bonus round is running
  3714.       $svslot3 = 9;
  3715.       } else {
  3716.       $svslot3 = 13;
  3717.       $nonep = 1;
  3718.       }
  3719.    } elsif ($slotsymbol3 <= 95) {
  3720.       if ($hrbonus > 0) {
  3721.       #Change the misalign into a bell if bonus round is running
  3722.       $svslot3 = 9;
  3723.       } else {
  3724.       $svslot3 = 14;
  3725.       $nonep = 1;
  3726.       }
  3727.    } elsif ($slotsymbol3 <= 96) {
  3728.       if ($hrbonus > 0) {
  3729.       #Change the misalign into a bell if bonus round is running
  3730.       $svslot3 = 9;
  3731.       } else {
  3732.       $svslot3 = 15;
  3733.       $nonep = 1;
  3734.       }
  3735.    } elsif ($slotsymbol3 <= 97) {
  3736.       if ($hrbonus > 0) {
  3737.       #Change the misalign into a bell if bonus round is running
  3738.       $svslot3 = 9;
  3739.       } else {
  3740.       $svslot3 = 17;
  3741.       $nonep = 1;
  3742.       }
  3743.    } elsif ($slotsymbol3 <= 98) {
  3744.       if ($hrbonus > 0) {
  3745.       #Change the misalign into a bell if bonus round is running
  3746.       $svslot3 = 9;
  3747.       } else {
  3748.       $svslot3 = 18;
  3749.       $nonep = 1;
  3750.       }
  3751.    } elsif ($slotsymbol3 <= 100) {
  3752.       if ($hrbonus > 0) {
  3753.       #Change the misalign into a bell if bonus round is running
  3754.       $svslot3 = 9;
  3755.       } else {
  3756.       $svslot3 = 19;
  3757.       $nonep = 1;
  3758.       }
  3759.    } elsif ($slotsymbol3 <= 102) {
  3760.       if ($hrbonus > 0) {
  3761.       #Change the misalign into a bell if bonus round is running
  3762.       $svslot3 = 9;
  3763.       } else {
  3764.       $svslot3 = 20;
  3765.       $nonep = 1;
  3766.       }
  3767.    } elsif ($slotsymbol3 <= 109) {
  3768.       #bonus
  3769.       $svslot3 = 'b';                     
  3770.    } else {
  3771.       $svslot3 = 0;
  3772.    }   
  3773.    $anydollar = $anydollar1 + $anydollar2 + $anydollar3;
  3774.    $anydollar1 = 0;
  3775.    $anydollar2 = 0;
  3776.    $anydollar3 = 0;
  3777.    $anybar = $anybar1 + $anybar2 + $anybar3;
  3778.    $anybar1 = 0;
  3779.    $anybar2 = 0;
  3780.    $anybar3 = 0;
  3781.    $anycherry = $anycherry1 + $anycherry2;
  3782.    $anycherry1 = 0;
  3783.    $anycherry2 = 0;
  3784. }
  3785. sub addmoney {
  3786.    if ($x eq "111") {
  3787.       $addmoney = 10000 * $coin;
  3788.       $beepnum = 8;
  3789.       $hrstwin = $hrstwin + 1;
  3790.       $hrbulbcolor = "$boldcyan";
  3791.    } elsif ($x eq "222") {
  3792.       $addmoney = 2000 * $coin;
  3793.       $beepnum = 7;
  3794.       $hrstwin = $hrstwin + 1;
  3795.       $hrbulbcolor = "$red";
  3796.    } elsif ($x eq "333") {
  3797.       $addmoney = 1000 * $coin;
  3798.       $beepnum = 6;
  3799.       $hrstwin = $hrstwin + 1;
  3800.       $hrbulbcolor = "$white";
  3801.    } elsif ($x eq "334") {
  3802.       $addmoney = 600 * $coin;
  3803.       $beepnum = 6;
  3804.       $hrstwin = $hrstwin + 1;
  3805.    } elsif ($x eq "335") {
  3806.       $addmoney = 450 * $coin;
  3807.       $beepnum = 5;
  3808.       $hrstwin = $hrstwin + 1;
  3809.    } elsif ($x eq "444") {
  3810.       $addmoney = 300 * $coin;
  3811.       $beepnum = 5;
  3812.       $hrstwin = $hrstwin + 1;
  3813.       $hrbulbcolor = "$white";
  3814.    } elsif ($x eq "445") {
  3815.       $addmoney = 200 * $coin;
  3816.       $beepnum = 4;
  3817.       $hrstwin = $hrstwin + 1;
  3818.    } elsif ($x eq "555") {
  3819.       $addmoney = 150 * $coin;
  3820.       $beepnum = 4;
  3821.       $hrstwin = $hrstwin + 1;
  3822.       $hrbulbcolor = "$white";
  3823.    } elsif ($x eq "556") {
  3824.       $addmoney = 20 * $coin;
  3825.       $beepnum = 2;
  3826.       $hrstwin = $hrstwin + 1;
  3827.    } elsif ($x eq "557") {
  3828.       $addmoney = 18 * $coin;
  3829.       $beepnum = 2;
  3830.       $hrstwin = $hrstwin + 1;   
  3831.    } elsif ($x eq "558") {
  3832.       $addmoney = 16 * $coin;
  3833.       $beepnum = 2;
  3834.       $hrstwin = $hrstwin + 1;
  3835.    } elsif ($x eq "559") {
  3836.       $addmoney = 14 * $coin;
  3837.       $beepnum = 2;
  3838.       $hrstwin = $hrstwin + 1;
  3839.    } elsif ($x eq "5510") {
  3840.       $addmoney = 12 * $coin;
  3841.       $beepnum = 2;
  3842.       $hrstwin = $hrstwin + 1;
  3843.    } elsif ($x eq "5516") {
  3844.       $addmoney = 20 * $coin;
  3845.       $beepnum = 2;
  3846.       $hrstwin = $hrstwin + 1;
  3847.    } elsif ($x eq "5521") {
  3848.       $addmoney = 20 * $coin;
  3849.       $beepnum = 2;   
  3850.       $hrstwin = $hrstwin + 1;
  3851.    } elsif ($x eq "666") {
  3852.       $addmoney = 80 * $coin;
  3853.       $beepnum = 3;
  3854.       $hrstwin = $hrstwin + 1;
  3855.       $hrbulbcolor = "$white";
  3856.    } elsif ($x eq "777") {
  3857.       $addmoney = 62 * $coin;
  3858.       $beepnum = 3;
  3859.       $hrstwin = $hrstwin + 1;
  3860.       $hrbulbcolor = "$white";
  3861.    } elsif ($x eq "888") {
  3862.       $addmoney = 40 * $coin;
  3863.       $beepnum = 3;
  3864.       $hrstwin = $hrstwin + 1;
  3865.       $hrbulbcolor = "$white";
  3866.    } elsif ($x eq "999") {
  3867.       $addmoney = 25 * $coin;
  3868.       $beepnum = 3;
  3869.       $hrstwin = $hrstwin + 1;
  3870.       $hrbulbcolor = "$white";
  3871.       if (($hrrandnums > 103) and ($hrbonus == 0)) {
  3872.          #Only set if bonus is allowed and a bonus round isn't on
  3873.          $hrbonushlp = $hrbonushlpstd;
  3874.          $hrrandnums = 110;
  3875.       }
  3876.    } elsif ($x eq "101010") {
  3877.       $addmoney = 10 * $coin;
  3878.       $beepnum = 2;
  3879.       $hrstwin = $hrstwin + 1;
  3880.       $hrbulbcolor = "$white";
  3881.    } elsif ($x eq "bbb") {
  3882.       $addmoney = 15 * $coin;
  3883.       $beepnum = 4;
  3884.       $hrstwin = $hrstwin + 1;   
  3885.       $hrbonus = $hrbonus + $hrbonusstd;
  3886.    } elsif ($anybar == 3) {
  3887.       $addmoney = 22 * $coin;
  3888.       $beepnum = 2;
  3889.       $hrstwin = $hrstwin + 1;                              
  3890.    } elsif ($onecherry == 1) {
  3891.       if ($nonep >= 1) {
  3892.          #nothing
  3893.          $beepnum = 0;
  3894.          $hrstlose = $hrstlose + 1;
  3895.       } else {
  3896.          if ($anycherry == 2) {
  3897.             if ($anycherry3 >= 1) {
  3898.                #nothing
  3899.                $beepnum = 0;
  3900.                $hrstlose = $hrstlose + 1;
  3901.             } else {
  3902.                if ($nonep >= 1) {
  3903.                #nothing
  3904.                $beepnum = 0;
  3905.                $hrstlose = $hrstlose + 1;
  3906.                } else {
  3907.                $addmoney = 5 * $coin;
  3908.                $beepnum = 2;
  3909.                $hrstwin = $hrstwin + 1;
  3910.                }
  3911.             }
  3912.          } else {
  3913.             if ($anycherry3 >= 1) {
  3914.                #nothing
  3915.                $beepnum = 0;
  3916.                $hrstlose = $hrstlose + 1;
  3917.             } else {
  3918.                if ($nonep >= 1) {
  3919.                #nothing
  3920.                $beepnum = 0;
  3921.                $hrstlose = $hrstlose + 1;
  3922.                } else {
  3923.                $addmoney = 2 * $coin;
  3924.                $beepnum = 2;
  3925.                $hrstwin = $hrstwin + 1;
  3926.                }
  3927.             }
  3928.          }
  3929.       }
  3930.    } elsif ($anydollar == 3) {
  3931.       if ($x eq "6166") {
  3932.          $addmoney = 125 * $coin;
  3933.          $beepnum = 4;
  3934.          $hrstwin = $hrstwin + 1;
  3935.       } elsif ($x eq "211621") {
  3936.          $addmoney = 180 * $coin;
  3937.          $beepnum = 4;
  3938.          $hrstwin = $hrstwin + 1;
  3939.       } elsif ($x eq "21166") {
  3940.          $addmoney = 80 * $coin;
  3941.          $beepnum = 3;
  3942.          $hrstwin = $hrstwin + 1;
  3943.       } elsif ($x eq "61621") {
  3944.          $addmoney = 80 * $coin;
  3945.          $beepnum = 3;
  3946.          $hrstwin = $hrstwin + 1;
  3947.       } elsif ($x eq "6621") {
  3948.          $addmoney = 80 * $coin;
  3949.          $beepnum = 3;
  3950.          $hrstwin = $hrstwin + 1;
  3951.       } elsif ($x eq "2166") {
  3952.          $addmoney = 80 * $coin;
  3953.          $beepnum = 3;
  3954.          $hrstwin = $hrstwin + 1;
  3955.       } elsif ($x eq "21621") {
  3956.          $addmoney = 80 * $coin;
  3957.          $beepnum = 3;
  3958.          $hrstwin = $hrstwin + 1;
  3959.       } else {
  3960.          $beepnum = 0;
  3961.          $hrstlose = $hrstlose + 1;
  3962.       }
  3963.    } elsif ($svslot1 eq '9') {
  3964.       if ($hrbonus > 0) {
  3965.       #Since this only happens in the bonus round
  3966.       #there are never blank spaces
  3967.       #thus no need to check for blank reels ($nonep)
  3968.          if ($svslot2 eq '9') {
  3969.             $addmoney = 10 * $coin;
  3970.             $beepnum = 2;
  3971.          } else {
  3972.             $addmoney = 5 * $coin;
  3973.             $beepnum = 2;
  3974.          }
  3975.          $hrstwin = $hrstwin + 1;
  3976.       }
  3977.    } else {
  3978.       $addmoney = 0;
  3979.       $beepnum = 0;
  3980.       $hrstlose = $hrstlose + 1;
  3981.    }
  3982.    $anybar = 0;
  3983.    $onecherry = 0;
  3984.    $anycherry = 0;
  3985.    $anycherry3 = 0;
  3986.    $anydollar = 0;
  3987.    $nonep = 0;
  3988.    if ($startreel == 1) {
  3989.       $startreel = 0;
  3990.       $addmoney = 0;
  3991.    } else {
  3992.    }
  3993. }
  3994. sub fundcalc {
  3995.    $money = $money + $addmoney;
  3996.    $hrstmc = $hrstmc + $addmoney;
  3997. }
  3998. sub reel1 {
  3999.    $reel = 1;
  4000.    if ($reelspin == 3) {
  4001.       $slot1 = 'spining';
  4002.       $slot2 = 'spining';
  4003.       $slot3 = 'spining';
  4004.       $slot4 = 'spining';
  4005.       $slot5 = 'spining';
  4006.       $slot6 = 'spining';
  4007.       $slot7 = 'spining';
  4008.       $slot8 = 'spining';
  4009.       $slot9 = 'spining';
  4010.       $slot10 = 'spining';
  4011.       $slot11 = 'spining';
  4012.       $slot12 = 'spining';
  4013.       $slot13 = 'spining';
  4014.       $slot14 = 'spining';
  4015.    } else {
  4016.       $slot1 = $svslot1;
  4017.       $slot2 = $svslot1;
  4018.       $slot3 = $svslot1;
  4019.       $slot4 = $svslot1;
  4020.       $slot5 = $svslot1;
  4021.       $slot6 = $svslot1;
  4022.       $slot7 = $svslot1;
  4023.       $slot8 = $svslot1;
  4024.       $slot9 = $svslot1;
  4025.       $slot10 = $svslot1;
  4026.       $slot11 = $svslot1;
  4027.       $slot12 = $svslot1;
  4028.       $slot13 = $svslot1;
  4029.       $slot14 = $svslot1;
  4030.    }
  4031. }
  4032. sub reel2 {
  4033.    $reel = 2;
  4034.    if ($reelspin >= 2) {
  4035.       $slot1 = 'spining';
  4036.       $slot2 = 'spining';
  4037.       $slot3 = 'spining';
  4038.       $slot4 = 'spining';
  4039.       $slot5 = 'spining';
  4040.       $slot6 = 'spining';
  4041.       $slot7 = 'spining';
  4042.       $slot8 = 'spining';
  4043.       $slot9 = 'spining';
  4044.       $slot10 = 'spining';
  4045.       $slot11 = 'spining';
  4046.       $slot12 = 'spining';
  4047.       $slot13 = 'spining';
  4048.       $slot14 = 'spining';
  4049.    } else {
  4050.       $slot1 = $svslot2;
  4051.       $slot2 = $svslot2;
  4052.       $slot3 = $svslot2;
  4053.       $slot4 = $svslot2;
  4054.       $slot5 = $svslot2;
  4055.       $slot6 = $svslot2;
  4056.       $slot7 = $svslot2;
  4057.       $slot8 = $svslot2;
  4058.       $slot9 = $svslot2;
  4059.       $slot10 = $svslot2;
  4060.       $slot11 = $svslot2;
  4061.       $slot12 = $svslot2;
  4062.       $slot13 = $svslot2;
  4063.       $slot14 = $svslot2;
  4064.    }
  4065. }
  4066. sub reel3 {
  4067.    $reel = 3;
  4068.    if ($reelspin >= 1) {
  4069.       $slot1 = 'spining';
  4070.       $slot2 = 'spining';
  4071.       $slot3 = 'spining';
  4072.       $slot4 = 'spining';
  4073.       $slot5 = 'spining';
  4074.       $slot6 = 'spining';
  4075.       $slot7 = 'spining';
  4076.       $slot8 = 'spining';
  4077.       $slot9 = 'spining';
  4078.       $slot10 = 'spining';
  4079.       $slot11 = 'spining';
  4080.       $slot12 = 'spining';
  4081.       $slot13 = 'spining';
  4082.       $slot14 = 'spining';
  4083.    } else {
  4084.       $slot1 = $svslot3;
  4085.       $slot2 = $svslot3;
  4086.       $slot3 = $svslot3;
  4087.       $slot4 = $svslot3;
  4088.       $slot5 = $svslot3;
  4089.       $slot6 = $svslot3;
  4090.       $slot7 = $svslot3;
  4091.       $slot8 = $svslot3;
  4092.       $slot9 = $svslot3;
  4093.       $slot10 = $svslot3;
  4094.       $slot11 = $svslot3;
  4095.       $slot12 = $svslot3;
  4096.       $slot13 = $svslot3;
  4097.       $slot14 = $svslot3;
  4098.    }
  4099. }
  4100. sub midprint0 {
  4101.    midprintbulb0();
  4102. }
  4103. sub midprint1 {
  4104.    print color 'reset';
  4105.    print colored('< >',"$boldyellow on_$bgcgreen");
  4106.    print color 'reset';
  4107. }
  4108. sub midprint5 {
  4109.    print color 'reset';
  4110.    print colored('|',"$boldblack on_$bgcblack");
  4111.    print colored('PAY',"$boldblack on_$bgcblack"); print colored('LINE',"$white on_$bgcblack"); print colored('< >',"$boldyellow on_$bgcgreen");
  4112.    print color 'reset';
  4113. }
  4114. sub midprint4 {
  4115.    print color 'reset';
  4116.    print colored('|       ',"$boldblack on_$bgcblack");
  4117.    midprintbulb0();
  4118.    print color 'reset';
  4119. }
  4120. sub midprintbulb0 {
  4121.    if ($hrbulbcolor eq 'null') {
  4122.       print color 'reset';
  4123.       print colored('[ ]',"$boldblack on_$bgcblack");
  4124.       print color 'reset';
  4125.    } else {
  4126.       print color 'reset';
  4127.       print colored('[',"$boldblack on_$bgcblack");
  4128.       print colored('*',"$hrbulbcolor on_$bgcblack");
  4129.       print colored(']',"$boldblack on_$bgcblack");
  4130.       print color 'reset';
  4131.    }
  4132. }
  4133. sub midprint4bl1 {
  4134.    print color 'reset';
  4135.    print colored('| ',"$boldblack on_$bgcblack");
  4136.    if ($hrbonushlp > 0) {
  4137.    print colored('  x  ',"$boldyellow on_$bgcblack");
  4138.    } else {
  4139.    print colored('  x  ',"$white on_$bgcblack");
  4140.    }
  4141.    midprintbulb0();
  4142.    print color 'reset';
  4143. }
  4144. sub midprint4bl2 {
  4145.    print color 'reset';
  4146.    print colored('| ',"$boldblack on_$bgcblack");
  4147.    if ($hrbonushlp > 0) {
  4148.    print colored(' xXx ',"$boldyellow on_$bgcblack");
  4149.    } else {
  4150.    print colored(' xXx ',"$white on_$bgcblack");
  4151.    }
  4152.    midprintbulb0();
  4153.    print color 'reset';
  4154. }
  4155. sub midprint4bl3 {
  4156.    print color 'reset';
  4157.    print colored('| ',"$boldblack on_$bgcblack");
  4158.    if ($hrbonushlp > 0) {
  4159.    print colored(' XXX ',"$boldyellow on_$bgcblack");
  4160.    } else {
  4161.    print colored(' XXX ',"$white on_$bgcblack");
  4162.    }
  4163.    midprintbulb0();
  4164.    print color 'reset';
  4165. }
  4166. sub midprint4bl4 {
  4167.    print color 'reset';
  4168.    print colored('| ',"$boldblack on_$bgcblack");
  4169.    if ($hrbonushlp > 0) {
  4170.    print colored('  0  ',"$yellow on_$bgcblack");
  4171.    } else {
  4172.    print colored('  0  ',"$white on_$bgcblack");
  4173.    }
  4174.    midprintbulb0();
  4175.    print color 'reset';
  4176. }
  4177. sub midprint4bo {
  4178.    print color 'reset';
  4179.    print colored('| ',"$boldblack on_$bgcblack");
  4180.    if ($hrbonus > 0) {
  4181.    print colored('BONUS',"$boldgreen on_$bgcblack");
  4182.    } else {
  4183.    print colored('BONUS',"$boldblack on_$bgcblack");
  4184.    }
  4185.    print colored(' ',"$boldblack on_$bgcblack");
  4186.    midprintbulb0();
  4187.    print color 'reset';
  4188. }
  4189. sub midprint4bn {
  4190.    print color 'reset';
  4191.    print colored('| ',"$boldblack on_$bgcblack");
  4192.    if ($hrbonus > 10000) {
  4193.    print colored($hrbonus-1,"$green on_$bgcblack");
  4194.    } elsif ($hrbonus > 1000) {
  4195.    print colored('0',"$green on_$bgcblack");
  4196.    print colored($hrbonus-1,"$green on_$bgcblack");
  4197.    } elsif ($hrbonus > 100) {
  4198.    print colored('00',"$green on_$bgcblack");
  4199.    print colored($hrbonus-1,"$green on_$bgcblack");
  4200.    } elsif ($hrbonus > 10) {
  4201.    print colored('000',"$green on_$bgcblack");
  4202.    print colored($hrbonus-1,"$green on_$bgcblack");
  4203.    } elsif ($hrbonus > 0) {
  4204.    print colored('0000',"$green on_$bgcblack");
  4205.    print colored($hrbonus-1,"$green on_$bgcblack");
  4206.    } else {
  4207.    print colored('00000',"$white on_$bgcblack");
  4208.    }
  4209.    print colored(' ',"$boldblack on_$bgcblack");
  4210.    midprintbulb0();
  4211.    print color 'reset';
  4212. }
  4213. sub midprint3 {
  4214.    print color 'reset';
  4215.    print colored('|',"$boldblack on_$bgcblack");
  4216.    print colored('PAY',"$white on_$bgcblack"); print colored('LINE',"$boldblack on_$bgcblack");  print colored('< >',"$boldyellow on_$bgcgreen");
  4217.    print color 'reset';
  4218. }
  4219. sub topprint0 {
  4220.    print color 'reset';
  4221.    print colored('|       ',"$boldblack on_$bgcblack");
  4222.    #Over/Under Reel 1
  4223.    midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0();
  4224.    midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0();
  4225.    #Over/Under Reel 2
  4226.    midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0();
  4227.    midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0();
  4228.    #Over/Under Reel 3
  4229.    midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0();
  4230.    midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0();
  4231.    print color 'reset';
  4232. }
  4233. sub mainscreen {
  4234.    topprint0(); print"\n";
  4235.    sub sep() { print $SEP; };
  4236.    midprint4(); reel1(); sep; slot1(); sep; midprint0(); reel2(); sep; slot1(); sep; midprint0(); reel3(); sep; slot1(); sep; midprint0(); print"\n";
  4237.    midprint4(); reel1(); sep; slot2(); sep; midprint0(); reel2(); sep; slot2(); sep; midprint0(); reel3(); sep; slot2(); sep; midprint0(); print"\n";
  4238.    midprint4bo(); reel1(); sep; slot3(); sep; midprint0(); reel2(); sep; slot3(); sep; midprint0(); reel3(); sep; slot3(); sep; midprint0(); print"\n";
  4239.    midprint4bn(); reel1(); sep; slot4(); sep; midprint0(); reel2(); sep; slot4(); sep; midprint0(); reel3(); sep; slot4(); sep; midprint0(); print"\n";
  4240.    midprint4bo(); reel1(); sep; slot5(); sep; midprint0(); reel2(); sep; slot5(); sep; midprint0(); reel3(); sep; slot5(); sep; midprint0(); print"\n";
  4241.    midprint4(); reel1(); sep; slot6(); sep; midprint0(); reel2(); sep; slot6(); sep; midprint0(); reel3(); sep; slot6(); sep; midprint0(); print"\n";
  4242.    midprint3(); reel1(); sep; slot7(); sep; midprint1(); reel2(); sep; slot7(); sep; midprint1(); reel3(); sep; slot7(); sep; midprint1(); print"\n";
  4243.    midprint5(); reel1(); sep; slot8(); sep; midprint1(); reel2(); sep; slot8(); sep; midprint1(); reel3(); sep; slot8(); sep; midprint1(); print"\n";
  4244.    midprint4(); reel1(); sep; slot9(); sep; midprint0(); reel2(); sep; slot9(); sep; midprint0(); reel3(); sep; slot9(); sep; midprint0(); print"\n";
  4245.    midprint4(); reel1(); sep; slot10(); sep; midprint0(); reel2(); sep; slot10(); sep; midprint0(); reel3(); sep; slot10(); sep; midprint0(); print"\n";
  4246.    midprint4(); reel1(); sep; slot11(); sep; midprint0(); reel2(); sep; slot11(); sep; midprint0(); reel3(); sep; slot11(); sep; midprint0(); print"\n";
  4247.    midprint4(); reel1(); sep; slot12(); sep; midprint0(); reel2(); sep; slot12(); sep; midprint0(); reel3(); sep; slot12(); sep; midprint0(); print"\n";
  4248.    midprint4(); reel1(); sep; slot13(); sep; midprint0(); reel2(); sep; slot13(); sep; midprint0(); reel3(); sep; slot13(); sep; midprint0(); print"\n";
  4249.    midprint4(); reel1(); sep; slot14(); sep; midprint0(); reel2(); sep; slot14(); sep; midprint0(); reel3(); sep; slot14(); sep; midprint0(); print"\n";
  4250.    topprint0(); print"\n";
  4251. }
  4252. sub displaywin {
  4253.    print colored('|------------------------------------------------------------------------------|',"$boldblack on_$bgcblack");
  4254.    print"\n";
  4255.    print colored('| ',"$boldblack on_$bgcblack");
  4256.    print colored('WINNINGS ',"$boldblack on_$bgcblack");
  4257.    print $SEP;
  4258.    if ($addmoney > 9999999999) {
  4259.    print colored(sprintf("%.4e", $addmoney),"$boldred on_$bgcred");
  4260.    } elsif ($addmoney >= 1000000000) {
  4261.    print colored("$addmoney","$boldred on_$bgcred");
  4262.    } elsif ($addmoney >= 100000000) {
  4263.    print colored(" $addmoney","$boldred on_$bgcred");
  4264.    } elsif ($addmoney >= 10000000) {
  4265.    print colored("  $addmoney","$boldred on_$bgcred");
  4266.    } elsif ($addmoney >= 1000000) {
  4267.    print colored("   $addmoney","$boldred on_$bgcred");
  4268.    } elsif ($addmoney >= 100000) {
  4269.    print colored("    $addmoney","$boldred on_$bgcred");
  4270.    } elsif ($addmoney >= 10000) {
  4271.    print colored("     $addmoney","$boldred on_$bgcred");
  4272.    } elsif ($addmoney >= 1000) {
  4273.    print colored("      $addmoney","$boldred on_$bgcred");
  4274.    } elsif ($addmoney >= 100) {
  4275.    print colored("       $addmoney","$boldred on_$bgcred");
  4276.    } elsif ($addmoney >= 10) {
  4277.    print colored("        $addmoney","$boldred on_$bgcred");
  4278.    } elsif ($addmoney >= 1) {
  4279.    print colored("         $addmoney","$boldred on_$bgcred");
  4280.    } else {
  4281.    print colored("         $addmoney","$boldred on_$bgcred");
  4282.    }
  4283.    print $SEP;
  4284.    print colored(' TOTAL FUNDS ',"$boldblack on_$bgcblack");
  4285.    
  4286.    print $SEP;
  4287.    if ($money > 9999999999) {
  4288.    print colored(sprintf("%.4e", $money),"$boldgreen on_$bgcgreen");
  4289.    } elsif ($money >= 1000000000) {
  4290.    print colored("$money","$boldgreen on_$bgcgreen");
  4291.    } elsif ($money >= 100000000) {
  4292.    print colored(" $money","$boldgreen on_$bgcgreen");
  4293.    } elsif ($money >= 10000000) {
  4294.    print colored("  $money","$boldgreen on_$bgcgreen");
  4295.    } elsif ($money >= 1000000) {
  4296.    print colored("   $money","$boldgreen on_$bgcgreen");
  4297.    } elsif ($money >= 100000) {
  4298.    print colored("    $money","$boldgreen on_$bgcgreen");
  4299.    } elsif ($money >= 10000) {
  4300.    print colored("     $money","$boldgreen on_$bgcgreen");
  4301.    } elsif ($money >= 1000) {
  4302.    print colored("      $money","$boldgreen on_$bgcgreen");
  4303.    } elsif ($money >= 100) {
  4304.    print colored("       $money","$boldgreen on_$bgcgreen");
  4305.    } elsif ($money >= 10) {
  4306.    print colored("        $money","$boldgreen on_$bgcgreen");
  4307.    } elsif ($money >= 1) {
  4308.    print colored("         $money","$boldgreen on_$bgcgreen");
  4309.    } else {
  4310.    print colored("         $money","$boldgreen on_$bgcgreen");
  4311.    }
  4312.    print $SEP;
  4313.                          #
  4314.    print colored('       INSERT TOKEN ',"$boldyellow on_$bgcblack");   
  4315.    print $SEP;
  4316.    print colored(' ---------- ',"$black on_$bgcyellow");                  
  4317.    print $SEP;
  4318.    print colored('   |',"$boldblack on_$bgcblack");
  4319.    beepalrm();
  4320.    
  4321.    print colored('|------------------------------------------------------------------------------|',"$boldblack on_$bgcblack"); print"\n";   
  4322.    print colored('|',"$boldblack on_$bgcblack"); 
  4323.    print colored('                            HOUSE RULES REEL DEAL                             ',"$boldblue on_$bgcblue");
  4324.    print colored('|',"$boldblack on_$bgcblack"); beepalrm();
  4325.    
  4326.    print colored('|',"$boldblack on_$bgcblack");
  4327.    print colored(' GNU GNU GNU ',"$boldblue on_$bgcblue"); print colored('= 10000 ',"$boldwhite on_$bgcblue");
  4328.    print colored('  * ',"$red on_$bgcblue"); print colored('  * ',"$white on_$bgcblue");
  4329.    print colored('  *  ',"$boldblue on_$bgcblue"); print colored('= 62  ',"$boldwhite on_$bgcblue");
  4330.    print colored('BAR',"$boldyellow on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4331.    print colored('BAR',"$boldyellow on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4332.    print colored('BAR',"$boldmagenta on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4333.    print colored('= 600   ',"$boldwhite on_$bgcblue");
  4334.    print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4335.    print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4336.    print colored(' $  ',"$green on_$bgcblue");
  4337.    print colored('= 20',"$boldwhite on_$bgcblue");   
  4338.    print colored('  ',"$boldwhite on_$bgcblue");
  4339.    print colored('|',"$boldblack on_$bgcblack"); beepalrm();
  4340.    
  4341.    print colored('|',"$boldblack on_$bgcblack");
  4342.    print colored('  7   7   7  ',"$red on_$bgcblue"); print colored('= 2000  ',"$boldwhite on_$bgcblue");
  4343.    print colored('  O   O   O  ',"$magenta on_$bgcblue"); print colored('= 40  ',"$boldwhite on_$bgcblue");
  4344.    print colored('BAR',"$boldyellow on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4345.    print colored('BAR',"$boldyellow on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4346.    print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4347.    print colored('= 450   ',"$boldwhite on_$bgcblue");
  4348.    print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4349.    print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4350.    print colored(' *  ',"$boldblue on_$bgcblue");
  4351.    print colored('= 18',"$boldwhite on_$bgcblue");   
  4352.    print colored('  ',"$boldwhite on_$bgcblue");
  4353.    print colored('|',"$boldblack on_$bgcblack"); beepalrm();
  4354.    
  4355.    print colored('|',"$boldblack on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4356.    print colored('BAR',"$boldyellow on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4357.    print colored('BAR',"$boldyellow on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4358.    print colored('BAR',"$boldyellow on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4359.    print colored('= 1000  ',"$boldwhite on_$bgcblue");
  4360.    print colored(' BEL BEL BEL ',"$boldyellow on_$bgcblue"); print colored('= 25  ',"$boldwhite on_$bgcblue");
  4361.    print colored('BAR',"$boldmagenta on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4362.    print colored('BAR',"$boldmagenta on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4363.    print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4364.    print colored('= 200   ',"$boldwhite on_$bgcblue");
  4365.    print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4366.    print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4367.    print colored(' O  ',"$magenta on_$bgcblue");
  4368.    print colored('= 16',"$boldwhite on_$bgcblue");   
  4369.    print colored('  ',"$boldwhite on_$bgcblue");
  4370.    print colored('|',"$boldblack on_$bgcblack"); beepalrm();
  4371.    
  4372.    print colored('|',"$boldblack on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4373.    print colored('BAR',"$boldmagenta on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4374.    print colored('BAR',"$boldmagenta on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4375.    print colored('BAR',"$boldmagenta on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");    
  4376.    print colored('= 300   ',"$boldwhite on_$bgcblue");
  4377.    print colored('  C   C   C  ',"$boldred on_$bgcblue"); print colored('= 10 ',"$boldwhite on_$bgcblue");
  4378.    print colored('  ANYBAR x3  ',"$white on_$bgcblue"); print colored('= 22    ',"$boldwhite on_$bgcblue");
  4379.    print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4380.    print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4381.    print colored('BEL ',"$boldyellow on_$bgcblue");
  4382.    print colored('= 14',"$boldwhite on_$bgcblue");   
  4383.    print colored('  ',"$boldwhite on_$bgcblue");
  4384.    print colored('|',"$boldblack on_$bgcblack"); beepalrm();
  4385.    
  4386.    print colored('|',"$boldblack on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4387.    print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4388.    print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4389.    print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");    
  4390.    print colored('= 150   ',"$boldwhite on_$bgcblue");
  4391.    print colored('  C   C ',"$boldred on_$bgcblue"); print colored(' ANY ',"$white on_$bgcblue");
  4392.    print colored('= 5   ',"$boldwhite on_$bgcblue");
  4393.    print colored(' $   ',"$green on_$bgcblue"); print colored('$',"$boldyellow on_$bgcblue"); print colored('   $  ',"$green on_$bgcblue"); print colored('= 125   ',"$boldwhite on_$bgcblue");
  4394.    print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4395.    print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue");
  4396.    print colored(' C  ',"$boldred on_$bgcblue");
  4397.    print colored('= 12',"$boldwhite on_$bgcblue");   
  4398.    print colored('  ',"$boldwhite on_$bgcblue");
  4399.    print colored('|',"$boldblack on_$bgcblack"); beepalrm();
  4400.    
  4401.    print colored('|',"$boldblack on_$bgcblack");
  4402.    print colored('  $   $   $  ',"$green on_$bgcblue"); print colored('= 80    ',"$boldwhite on_$bgcblue");
  4403.    print colored('  C  ',"$boldred on_$bgcblue"); print colored('ANY ANY ',"$white on_$bgcblue"); print colored('= 2   ',"$boldwhite on_$bgcblue");
  4404.    print colored(' $   ',"$boldwhite on_$bgcblue"); print colored('$',"$boldyellow on_$bgcblue"); print colored('   $  ',"$boldwhite on_$bgcblue"); print colored('= 180   ',"$boldwhite on_$bgcblue");   
  4405.    print colored('B',"$boldyellow on_$bgcmagenta");
  4406.    print colored('N',"$boldyellow on_$bgccyan");
  4407.    print colored('S',"$boldyellow on_$bgcmagenta");
  4408.    print colored(' ',"$boldblack on_$bgcblue");
  4409.    print colored('B',"$boldyellow on_$bgcmagenta");
  4410.    print colored('N',"$boldyellow on_$bgccyan");
  4411.    print colored('S',"$boldyellow on_$bgcmagenta");
  4412.    print colored(' ',"$boldblack on_$bgcblue");
  4413.    print colored('B',"$boldyellow on_$bgcmagenta");
  4414.    print colored('N',"$boldyellow on_$bgccyan");
  4415.    print colored('S',"$boldyellow on_$bgcmagenta");
  4416.    print colored(' = 15  ',"$boldwhite on_$bgcblue");
  4417.    print colored('|',"$boldblack on_$bgcblack"); beepalrm();
  4418.    
  4419.    print colored('\\------------------------------------------------------------------------------/',"$boldblack on_$bgcblack"); beepalrm();
  4420.    
  4421.    $beepnum = 0;
  4422. }
  4423. sub topscreen {
  4424.    print colored(' ______________________________________________________________________________ ',"$boldblack on_$bgcblack"); print"\n";
  4425.    print colored('/ GPC-SLOTS 2',"$boldblack on_$bgcblack"); print colored('            P = play   C = Return To Casino Menu   EXIT = quit',"$white on_$bgcblack"); print colored('    \\',"$boldblack on_$bgcblack"); print"\n";   
  4426. }
  4427. ################################################################################################################################
  4428. ## GENRE: Slot Mahine
  4429. ## NAME: Double Blue Diamond
  4430. ## AUTHOR: MikeeUSA
  4431. sub ddmain {
  4432.    ddresetvars();
  4433.    ddspinreel();
  4434.    ddreeltrans();
  4435.    
  4436.    if ($animate == 1) {
  4437.       $ddreelspin = 3;
  4438.       ddtopprint();
  4439.       ddmainscreen();
  4440.       smallpause();
  4441.       newlines();
  4442.    
  4443.       $ddreelspin = 2;
  4444.       ddtopprint();
  4445.       ddmainscreen();
  4446.       tinypause();
  4447.       newlines();
  4448.    
  4449.       $ddreelspin = 1;
  4450.       ddtopprint();
  4451.       ddmainscreen();
  4452.       tinypause();
  4453.       newlines();
  4454.    }
  4455.    
  4456.    $ddreelspin = 0;
  4457.    ddtopprint();
  4458.    $ddx = $ddsvslot1.$ddsvslot2.$ddsvslot3;
  4459.    ddaddmoney();
  4460.    ddfundcalc();
  4461.    ddmainscreen();
  4462.    ptracker();
  4463.    ddstartinfo();   
  4464. }
  4465. sub ddmain2 {
  4466.    ddresetvars();
  4467.    ddreeltrans();
  4468.    ddtopprint();
  4469.    $ddx = ' '; #keep, a reset to null type job... well not quite null.
  4470.    ##ddaddmoney(); #Relic from the dark ages, Don't uncomment.
  4471.    ddmainscreen();
  4472.    ddstartinfo();   
  4473. }
  4474. sub ddresetvars {
  4475.    $ddreelspin = 0;
  4476. }
  4477. sub ddstartinfo {
  4478.    tokeneval();
  4479.    $ddstartinfo = <STDIN>;
  4480.    chomp($ddstartinfo);
  4481.    if (($ddstartinfo eq 'a') or ($ddstartinfo eq 'A')) {
  4482.       $ddstartinfo = $ddagaincmd;
  4483.    } elsif  (($ddstartinfo eq 'p') or ($ddstartinfo eq 'P') or ($ddstartinfo eq '1p') or ($ddstartinfo eq '1P')) {
  4484.       $ddagaincmd = $ddstartinfo;
  4485.    } else {
  4486.       #Do Nothing      
  4487.    }
  4488.    if (($ddstartinfo eq 'p') or ($ddstartinfo eq 'P') or ($ddstartinfo eq '1p') or ($ddstartinfo eq '1P')) {
  4489.       if ($money >= $coin) {
  4490.          $money = $money - $coin;
  4491.          $moneyexp = $moneyexp + $coin;
  4492.          $ddstmc2 = $ddstmc2 + $coin;
  4493.          $spins = $spins + 1;
  4494.          $ddstspins = $ddstspins + 1;
  4495.          if ($proadd == 1) {
  4496.             $projkpot = $projkpot + $coin;
  4497.             $proadd = 0;
  4498.          } else {
  4499.             $proadd = 1;
  4500.          }
  4501.          newlines();
  4502.          ddmain();
  4503.       } else {
  4504.          newlines();
  4505.          ddmain2();      
  4506.       }
  4507.    } elsif (($ddstartinfo eq 'exit') or ($ddstartinfo eq 'EXIT') or ($ddstartinfo eq 'quit') or ($ddstartinfo eq 'QUIT')) {
  4508.       exitgame();
  4509.    } elsif (($ddstartinfo eq 'c') or ($ddstartinfo eq 'C')) {
  4510.       return;
  4511.    } else {
  4512.       newlines();
  4513.       ddmain2();
  4514.    }
  4515. }
  4516. sub ddfundcalc {
  4517.    $money = $money + $ddaddmoney;
  4518.    $ddstmc = $ddstmc + $ddaddmoney;
  4519. }
  4520.    
  4521. sub ddslot2dia2  { if ($ddslot2 == 1) {$ddcolor = "bold $ddcolor"; } elsif ($ddslot2 == 11) {$ddcolor = "bold $ddcolor"; } else { } print colored('   ___________  ',"$ddcolor on_$bgcwhite"); }
  4522. sub ddslot2dia3  { if ($ddslot3 == 1) {$ddcolor = "bold $ddcolor"; } elsif ($ddslot3 == 11) {$ddcolor = "bold $ddcolor"; } else { $ddcolort = "$boldblack"; } print colored(' _/_____|_____\ ',"$ddcolor on_$bgcwhite"); }
  4523. sub ddslot2dia4  { $ddcolort = $ddcolor; if ($ddslot4 == 1) {$ddcolor = "bold $ddcolor"; } elsif ($ddslot4 == 11) {$ddcolor = "bold $ddcolor"; } else { $ddcolort = "$boldblack"; } print colored('/_____|_____\\',"$ddcolor on_$bgcwhite"); print colored(' / ',"$ddcolort on_$bgcwhite"); }
  4524. sub ddslot2dia5  { $ddcolort = $ddcolor; if ($ddslot5 == 1) {$ddcolor = "bold $ddcolor"; } elsif ($ddslot5 == 11) {$ddcolor = "bold $ddcolor"; } else { $ddcolort = "$boldblack"; } print colored('\\** * ',"$ddcolor on_$bgcwhite"); print colored('|0   0//  ',"$ddcolort on_$bgcwhite"); }
  4525. sub ddslot2dia6  { $ddcolort = $ddcolor; if ($ddslot6 == 1) {$ddcolor = "bold $ddcolor"; } elsif ($ddslot6 == 11) {$ddcolor = "bold $ddcolor"; } else { $ddcolort = "$boldblack"; } print colored(' \\ * *',"$ddcolor on_$bgcwhite"); print colored('| 0 0//   ',"$ddcolort on_$bgcwhite"); }
  4526. sub ddslot2dia7  { $ddcolort = $ddcolor; if ($ddslot7 == 1) {$ddcolor = "bold $ddcolor"; } elsif ($ddslot7 == 11) {$ddcolor = "bold $ddcolor"; } else { $ddcolort = "$boldblack"; } print colored('  \\ **',"$ddcolor on_$bgcwhite"); print colored('| 00//    ',"$ddcolort on_$bgcwhite"); }
  4527. sub ddslot2dia8  { $ddcolort = $ddcolor; if ($ddslot8 == 1) {$ddcolor = "bold $ddcolor"; } elsif ($ddslot8 == 11) {$ddcolor = "bold $ddcolor"; } else { $ddcolort = "$boldblack"; } print colored('   \\* ',"$ddcolor on_$bgcwhite"); print colored('|  //     ',"$ddcolort on_$bgcwhite"); }
  4528. sub ddslot2dia9  { $ddcolort = $ddcolor; if ($ddslot9 == 1) {$ddcolor = "bold $ddcolor"; } elsif ($ddslot9 == 11) {$ddcolor = "bold $ddcolor"; } else { $ddcolort = "$boldblack"; } print colored('    \\*',"$ddcolor on_$bgcwhite"); print colored('|0//      ',"$ddcolort on_$bgcwhite"); }
  4529. sub ddslot2dia10 { $ddcolort = $ddcolor; if ($ddslot10 == 1) {$ddcolor = "bold $ddcolor";} elsif ($ddslot10 == 11) {$ddcolor = "bold $ddcolor"; } else { $ddcolort = "$boldblack";} print colored('     \\',"$ddcolor on_$bgcwhite"); print colored('|/        ',"$ddcolort on_$bgcwhite"); }
  4530. sub ddslot1dia3  { print colored('  ___________   ',"$ddcolor on_$bgcwhite"); }
  4531. sub ddslot1dia4  { print colored(' /_____|_____\\  ',"$ddcolor on_$bgcwhite"); }
  4532. sub ddslot1dia5  { $ddcolort = "$boldblack"; print colored(' \\**  *',"$ddcolor on_$bgcwhite"); print colored('| 0  0/  ',"$ddcolort on_$bgcwhite"); }
  4533. sub ddslot1dia6  { $ddcolort = "$boldblack"; print colored('  \\ * *',"$ddcolor on_$bgcwhite"); print colored('|  00/   ',"$ddcolort on_$bgcwhite"); }
  4534. sub ddslot1dia7  { $ddcolort = "$boldblack"; print colored('   \\ * ',"$ddcolor on_$bgcwhite"); print colored('|0  /    ',"$ddcolort on_$bgcwhite"); }
  4535. sub ddslot1dia8  { $ddcolort = "$boldblack"; print colored('    \\ *',"$ddcolor on_$bgcwhite"); print colored('| 0/     ',"$ddcolort on_$bgcwhite"); }
  4536. sub ddslot1dia9  { $ddcolort = "$boldblack"; print colored('     \\*',"$ddcolor on_$bgcwhite"); print colored('| /      ',"$ddcolort on_$bgcwhite"); }
  4537. sub ddslot1dia10 { $ddcolort = "$boldblack"; print colored('      \\',"$ddcolor on_$bgcwhite"); print colored('|/       ',"$ddcolort on_$bgcwhite"); }
  4538. sub ddslot1jwl3  { print colored('    _______     ',"bold $ddcolor on_$bgcwhite"); }
  4539. sub ddslot1jwl4  { print colored('   /\\* ***/',"bold $ddcolor on_$bgcwhite"); print colored('\\    ',"$ddcolor on_$bgcwhite"); }
  4540. sub ddslot1jwl5  { print colored('  /__\\___/',"bold $ddcolor on_$bgcwhite"); print colored('__\\   ',"$ddcolor on_$bgcwhite"); }
  4541. sub ddslot1jwl6  { print colored('  | *|',"bold $ddcolor on_$bgcwhite"); print colored('  0|  |   ',"$ddcolor on_$bgcwhite"); }
  4542. sub ddslot1jwl7  { print colored('  |* |',"bold $ddcolor on_$bgcwhite"); print colored('0  |  |   ',"$ddcolor on_$bgcwhite"); }
  4543. sub ddslot1jwl8  { print colored('  |__|',"bold $ddcolor on_$bgcwhite"); print colored('___|__|   ',"$ddcolor on_$bgcwhite"); }
  4544. sub ddslot1jwl9  { print colored('  \ */   \  /   ',"$ddcolor on_$bgcwhite"); }
  4545. sub ddslot1jwl10 { print colored('   \/_____\/    ',"$ddcolor on_$bgcwhite"); }
  4546. sub ddslot1emr2  { print colored('      /|',"bold $ddcolor on_$bgcwhite"); print colored('\       ',"$ddcolor on_$bgcwhite"); }
  4547. sub ddslot1emr3  { print colored('     /*|',"bold $ddcolor on_$bgcwhite"); print colored('*\      ',"$ddcolor on_$bgcwhite"); }
  4548. sub ddslot1emr4  { print colored('    /*/',"bold $ddcolor on_$bgcwhite"); print colored('0\ \     ',"$ddcolor on_$bgcwhite"); }
  4549. sub ddslot1emr5  { print colored('   /*/',"bold $ddcolor on_$bgcwhite"); print colored('0 0\*\    ',"$ddcolor on_$bgcwhite"); }
  4550. sub ddslot1emr6  { print colored('  /_/',"bold $ddcolor on_$bgcwhite"); print colored('0 000\_\   ',"$ddcolor on_$bgcwhite"); }
  4551. sub ddslot1emr7  { print colored('  \*\000 0/*/   ',"$ddcolor on_$bgcwhite"); }
  4552. sub ddslot1emr8  { print colored('   \ \ 00/*/    ',"$ddcolor on_$bgcwhite"); }
  4553. sub ddslot1emr9  { print colored('    \*\0/ /     ',"$ddcolor on_$bgcwhite"); }
  4554. sub ddslot1emr10 { print colored('     \ |*/      ',"$ddcolor on_$bgcwhite"); }
  4555. sub ddslot1emr11 { print colored('      \|/       ',"$ddcolor on_$bgcwhite"); }
  4556. sub ddslot1gnt4 { print colored('  ___________   ',"$ddcolor on_$bgcwhite"); }
  4557. sub ddslot1gnt5 { print colored(' |\ _______ /|  ',"$ddcolor on_$bgcwhite"); }
  4558. sub ddslot1gnt6 { print colored(' |*| 00  00|*|  ',"$ddcolor on_$bgcwhite"); }
  4559. sub ddslot1gnt7 { print colored(' |*|00 00 0|*|  ',"$ddcolor on_$bgcwhite"); }
  4560. sub ddslot1gnt8 { print colored(' |*|_______|*|  ',"$ddcolor on_$bgcwhite"); }
  4561. sub ddslot1gnt9 { print colored(' |/_________\|  ',"$ddcolor on_$bgcwhite"); }
  4562. sub ddslot1crs1  { print colored('      /|',"bold $ddcolor on_$bgcwhite"); print colored('\       ',"$ddcolor on_$bgcwhite"); }
  4563. sub ddslot1crs2  { print colored('     /*|',"bold $ddcolor on_$bgcwhite"); print colored('0\      ',"$ddcolor on_$bgcwhite"); }
  4564. sub ddslot1crs3  { print colored('    /__|',"bold $ddcolor on_$bgcwhite"); print colored('__\     ',"$ddcolor on_$bgcwhite"); }
  4565. sub ddslot1crs4  { print colored('    |**|',"bold $ddcolor on_$bgcwhite"); print colored(' 0|     ',"$ddcolor on_$bgcwhite"); }
  4566. sub ddslot1crs5  { print colored('    |* |',"bold $ddcolor on_$bgcwhite"); print colored('0 |     ',"$ddcolor on_$bgcwhite"); }
  4567. sub ddslot1crs6  { print colored('    | *|',"bold $ddcolor on_$bgcwhite"); print colored(' 0|     ',"$ddcolor on_$bgcwhite"); }
  4568. sub ddslot1crs7  { print colored('    |__|',"bold $ddcolor on_$bgcwhite"); print colored('__|     ',"$ddcolor on_$bgcwhite"); }
  4569. sub ddslot1crs8  { print colored('    \* | 0/     ',"$ddcolor on_$bgcwhite"); }
  4570. sub ddslot1crs9  { print colored('     \*|0/      ',"$ddcolor on_$bgcwhite"); }
  4571. sub ddslot1crs10 { print colored('      \|/       ',"$ddcolor on_$bgcwhite"); }
  4572. sub ddslotwhite { print colored('                ',"$ddcolor on_$bgcwhite"); }
  4573. sub ddslotspining { print colored('||||||||||||||||',"$boldwhite on_$bgcwhite"); }
  4574. sub ddspinreel {
  4575.    $ddslotsymbol1 = int(rand(56));
  4576.    $ddslotsymbol2 = int(rand(56));
  4577.    $ddslotsymbol3 = int(rand(56));
  4578. }
  4579. sub ddreeltrans {
  4580.    if ($ddslotsymbol1 <= 12) {
  4581.       $ddsvslot1 = 7;
  4582.       $ddr1color = "$black";
  4583.    } elsif ($ddslotsymbol1 <= 22) {
  4584.       $ddsvslot1 = 6;
  4585.       $ddr1color = "$boldyellow";
  4586.    } elsif ($ddslotsymbol1 <= 30) {
  4587.       $ddsvslot1 = 5;
  4588.       $ddr1color = "$green";
  4589.    } elsif ($ddslotsymbol1 <= 36) {
  4590.       $ddsvslot1 = 4;
  4591.       $ddr1color = "$red";
  4592.    } elsif ($ddslotsymbol1 <= 40) {
  4593.       $ddsvslot1 = 3;
  4594.       $ddr1color = "$boldwhite";
  4595.    } elsif ($ddslotsymbol1 <= 42) {
  4596.       $ddsvslot1 = 2;
  4597.       $ddr1color = "$boldwhite";
  4598.    } elsif ($ddslotsymbol1 <= 43) {
  4599.       $ddsvslot1 = 1;
  4600.       $ddr1color = "$blue";
  4601.    } elsif ($ddslotsymbol1 <= 46) {
  4602.       $ddsvslot1 = 8;
  4603.       $ddr1color = "$white";
  4604.    } elsif ($ddslotsymbol1 <= 49) {
  4605.       $ddsvslot1 = 9;
  4606.       $ddr1color = "$white";
  4607.    } elsif ($ddslotsymbol1 <= 52) {
  4608.       $ddsvslot1 = 10;
  4609.       $ddr1color = "$white";
  4610.    } elsif ($ddslotsymbol1 <= 55) {
  4611.       $ddsvslot1 = 11;
  4612.       $ddr1color = "$white";            
  4613.    } else {
  4614.       $ddsvslot1 = 0;
  4615.       $ddr1color = "$white";
  4616.    }
  4617.    
  4618.    if ($ddslotsymbol2 <= 12) {
  4619.       $ddsvslot2 = 7;
  4620.       $ddr2color = "$black";
  4621.    } elsif ($ddslotsymbol2 <= 22) {
  4622.       $ddsvslot2 = 6;
  4623.       $ddr2color = "$boldyellow";
  4624.    } elsif ($ddslotsymbol2 <= 30) {
  4625.       $ddsvslot2 = 5;
  4626.       $ddr2color = "$green";
  4627.    } elsif ($ddslotsymbol2 <= 36) {
  4628.       $ddsvslot2 = 4;
  4629.       $ddr2color = "$red";
  4630.    } elsif ($ddslotsymbol2 <= 40) {
  4631.       $ddsvslot2 = 3;
  4632.       $ddr2color = "$boldwhite";
  4633.    } elsif ($ddslotsymbol2 <= 42) {
  4634.       $ddsvslot2 = 2;
  4635.       $ddr2color = "$boldwhite";
  4636.    } elsif ($ddslotsymbol2 <= 43) {
  4637.       $ddsvslot2 = 1;
  4638.       $ddr2color = "$blue";
  4639.    } elsif ($ddslotsymbol2 <= 46) {
  4640.       $ddsvslot2 = 8;
  4641.       $ddr2color = "$white";
  4642.    } elsif ($ddslotsymbol2 <= 49) {
  4643.       $ddsvslot2 = 9;
  4644.       $ddr2color = "$white";
  4645.    } elsif ($ddslotsymbol2 <= 52) {
  4646.       $ddsvslot2 = 10;
  4647.       $ddr2color = "$white";
  4648.    } elsif ($ddslotsymbol2 <= 55) {
  4649.       $ddsvslot2 = 11;
  4650.       $ddr2color = "$white";   
  4651.    } else {
  4652.       $ddsvslot2 = 0;
  4653.       $ddr2color = "$white";
  4654.    }
  4655.    
  4656.    if ($ddslotsymbol3 <= 12) {
  4657.       $ddsvslot3 = 7;
  4658.       $ddr3color = "$black";
  4659.    } elsif ($ddslotsymbol3 <= 22) {
  4660.       $ddsvslot3 = 6;
  4661.       $ddr3color = "$boldyellow";
  4662.    } elsif ($ddslotsymbol3 <= 30) {
  4663.       $ddsvslot3 = 5;
  4664.       $ddr3color = "$green";
  4665.    } elsif ($ddslotsymbol3 <= 36) {
  4666.       $ddsvslot3 = 4;
  4667.       $ddr3color = "$red";
  4668.    } elsif ($ddslotsymbol3 <= 40) {
  4669.       $ddsvslot3 = 3;
  4670.       $ddr3color = "$boldwhite";
  4671.    } elsif ($ddslotsymbol3 <= 42) {
  4672.       $ddsvslot3 = 2;
  4673.       $ddr3color = "$boldwhite";
  4674.    } elsif ($ddslotsymbol3 <= 43) {
  4675.       $ddsvslot3 = 1;
  4676.       $ddr3color = "$blue";
  4677.    } elsif ($ddslotsymbol3 <= 46) {
  4678.       $ddsvslot3 = 8;
  4679.       $ddr3color = "$white";
  4680.    } elsif ($ddslotsymbol3 <= 49) {
  4681.       $ddsvslot3 = 9;
  4682.       $ddr3color = "$white";
  4683.    } elsif ($ddslotsymbol3 <= 52) {
  4684.       $ddsvslot3 = 10;
  4685.       $ddr3color = "$white";
  4686.    } elsif ($ddslotsymbol3 <= 55) {
  4687.       $ddsvslot3 = 11;
  4688.       $ddr3color = "$white";      
  4689.    } else {
  4690.       $ddsvslot3 = 0;
  4691.       $ddr3color = "$white";
  4692.    }      
  4693. }
  4694.                
  4695. sub ddslot1 {
  4696.    if ($ddslot1 eq 'spining') {
  4697.       ddslotspining();
  4698.    } elsif ($ddslot1 == 7) {
  4699.       ddslot1crs1();
  4700.    } elsif ($ddslot1 == 8) {
  4701.       $ddcolor = "$black"; ddslot1crs8();
  4702.    } elsif ($ddslot1 == 9) {
  4703.       $ddcolor = "$green"; ddslot1emr8();
  4704.    } elsif ($ddslot1 == 10) {
  4705.       $ddcolor = "$boldyellow"; ddslot1gnt7();
  4706.    } elsif ($ddslot1 == 11) {
  4707.       $ddcolor = "$blue"; ddslot2dia8();         
  4708.    } else {
  4709.       ddslotwhite();
  4710.    }
  4711. }
  4712. sub ddslot2 {
  4713.    if ($ddslot2 eq 'spining') {
  4714.       ddslotspining();
  4715.    } elsif ($ddslot2 == 1) {
  4716.       ddslot2dia2();
  4717.    } elsif ($ddslot2 == 2) {
  4718.       ddslot2dia2();   
  4719.    } elsif ($ddslot2 == 5) {
  4720.       ddslot1emr2();   
  4721.    } elsif ($ddslot2 == 7) {
  4722.       ddslot1crs2();
  4723.    } elsif ($ddslot2 == 8) {
  4724.       $ddcolor = "$black"; ddslot1crs9();
  4725.    } elsif ($ddslot2 == 9) {
  4726.       $ddcolor = "$green"; ddslot1emr9();
  4727.    } elsif ($ddslot2 == 10) {
  4728.       $ddcolor = "$boldyellow"; ddslot1gnt8();
  4729.    } elsif ($ddslot1 == 11) {
  4730.       $ddcolor = "$blue"; ddslot2dia9();      
  4731.    } else {
  4732.       ddslotwhite();
  4733.    }
  4734. }
  4735. sub ddslot3 {
  4736.    if ($ddslot3 eq 'spining') {
  4737.       ddslotspining();
  4738.    } elsif ($ddslot3 == 1) {
  4739.       ddslot2dia3();
  4740.    } elsif ($ddslot3 == 2) {
  4741.       ddslot2dia3();   
  4742.    } elsif ($ddslot3 == 3) {
  4743.       ddslot1dia3();
  4744.    } elsif ($ddslot3 == 4) {
  4745.       ddslot1jwl3();   
  4746.    } elsif ($ddslot3 == 5) {
  4747.       ddslot1emr3();   
  4748.    } elsif ($ddslot3 == 7) {
  4749.       ddslot1crs3();
  4750.    } elsif ($ddslot3 == 8) {
  4751.       $ddcolor = "$black"; ddslot1crs10();
  4752.    } elsif ($ddslot3 == 9) {
  4753.       $ddcolor = "$green"; ddslot1emr10();
  4754.    } elsif ($ddslot3 == 10) {
  4755.       $ddcolor = "$boldyellow"; ddslot1gnt9();
  4756.    } elsif ($ddslot1 == 11) {
  4757.       $ddcolor = "$blue"; ddslot2dia10();      
  4758.    } else {
  4759.       ddslotwhite();
  4760.    }
  4761. }
  4762. sub ddslot4 {
  4763.    if ($ddslot4 eq 'spining') {
  4764.       ddslotspining();
  4765.    } elsif ($ddslot4 == 1) {
  4766.       ddslot2dia4();
  4767.    } elsif ($ddslot4 == 2) {
  4768.       ddslot2dia4();   
  4769.    } elsif ($ddslot4 == 3) {
  4770.       ddslot1dia4();
  4771.    } elsif ($ddslot4 == 4) {
  4772.       ddslot1jwl4();   
  4773.    } elsif ($ddslot4 == 5) {
  4774.       ddslot1emr4();
  4775.    } elsif ($ddslot4 == 6) {
  4776.       ddslot1gnt4();      
  4777.    } elsif ($ddslot4 == 7) {
  4778.       ddslot1crs4();
  4779.    } elsif ($ddslot4 == 9) {
  4780.       $ddcolor = "$green"; ddslot1emr11();   
  4781.    } else {
  4782.       ddslotwhite();
  4783.    }
  4784. }
  4785. sub ddslot5 {
  4786.    if ($ddslot5 eq 'spining') {
  4787.       ddslotspining();
  4788.    } elsif ($ddslot5 == 1) {
  4789.       ddslot2dia5();
  4790.    } elsif ($ddslot5 == 2) {
  4791.       ddslot2dia5();   
  4792.    } elsif ($ddslot5 == 3) {
  4793.       ddslot1dia5();
  4794.    } elsif ($ddslot5 == 4) {
  4795.       ddslot1jwl5();   
  4796.    } elsif ($ddslot5 == 5) {
  4797.       ddslot1emr5();
  4798.    } elsif ($ddslot5 == 6) {
  4799.       ddslot1gnt5();      
  4800.    } elsif ($ddslot5 == 7) {
  4801.       ddslot1crs5();
  4802.    } else {
  4803.       ddslotwhite();
  4804.    }
  4805. }
  4806. sub ddslot6 {
  4807.    if ($ddslot6 eq 'spining') {
  4808.       ddslotspining();
  4809.    } elsif ($ddslot6 == 1) {
  4810.       ddslot2dia6();
  4811.    } elsif ($ddslot6 == 2) {
  4812.       ddslot2dia6();   
  4813.    } elsif ($ddslot6 == 3) {
  4814.       ddslot1dia6();
  4815.    } elsif ($ddslot6 == 4) {
  4816.       ddslot1jwl6();   
  4817.    } elsif ($ddslot6 == 5) {
  4818.       ddslot1emr6();
  4819.    } elsif ($ddslot6 == 6) {
  4820.       ddslot1gnt6();      
  4821.    } elsif ($ddslot6 == 7) {
  4822.       ddslot1crs6();
  4823.    } else {
  4824.       ddslotwhite();
  4825.    }
  4826. }
  4827. sub ddslot7 {
  4828.    if ($ddslot7 eq 'spining') {
  4829.       ddslotspining();
  4830.    } elsif ($ddslot7 == 1) {
  4831.       ddslot2dia7();
  4832.    } elsif ($ddslot7 == 2) {
  4833.       ddslot2dia7();   
  4834.    } elsif ($ddslot7 == 3) {
  4835.       ddslot1dia7();
  4836.    } elsif ($ddslot7 == 4) {
  4837.       ddslot1jwl7();   
  4838.    } elsif ($ddslot7 == 5) {
  4839.       ddslot1emr7();
  4840.    } elsif ($ddslot7 == 6) {
  4841.       ddslot1gnt7();      
  4842.    } elsif ($ddslot7 == 7) {
  4843.       ddslot1crs7();
  4844.    } elsif ($ddslot7 == 11) {
  4845.       $ddcolor = "$black"; ddslot1crs1();
  4846.    } else {
  4847.       ddslotwhite();
  4848.    }
  4849. }
  4850. sub ddslot8 {
  4851.    if ($ddslot8 eq 'spining') {
  4852.       ddslotspining();
  4853.    } elsif ($ddslot8 == 1) {
  4854.       ddslot2dia8();
  4855.    } elsif ($ddslot8 == 2) {
  4856.       ddslot2dia8();   
  4857.    } elsif ($ddslot8 == 3) {
  4858.       ddslot1dia8();
  4859.    } elsif ($ddslot8 == 4) {
  4860.       ddslot1jwl8();   
  4861.    } elsif ($ddslot8 == 5) {
  4862.       ddslot1emr8();
  4863.    } elsif ($ddslot8 == 6) {
  4864.       ddslot1gnt8();      
  4865.    } elsif ($ddslot8 == 7) {
  4866.       ddslot1crs8();
  4867.    } elsif ($ddslot8 == 11) {
  4868.       $ddcolor = "$black"; ddslot1crs2();
  4869.    } else {
  4870.       ddslotwhite();
  4871.    }
  4872. }
  4873. sub ddslot9 {
  4874.    if ($ddslot9 eq 'spining') {
  4875.       ddslotspining();
  4876.    } elsif ($ddslot9 == 1) {
  4877.       ddslot2dia9();
  4878.    } elsif ($ddslot9 == 2) {
  4879.       ddslot2dia9();   
  4880.    } elsif ($ddslot9 == 3) {
  4881.       ddslot1dia9();
  4882.    } elsif ($ddslot9 == 4) {
  4883.       ddslot1jwl9();   
  4884.    } elsif ($ddslot9 == 5) {
  4885.       ddslot1emr9();
  4886.    } elsif ($ddslot9 == 6) {
  4887.       ddslot1gnt9();      
  4888.    } elsif ($ddslot9 == 7) {
  4889.       ddslot1crs9();
  4890.    } elsif ($ddslot9 == 8) {
  4891.       $ddcolor = "$red"; ddslot1jwl3();
  4892.    } elsif ($ddslot9 == 9) {   
  4893.       $ddcolor = "$boldwhite"; ddslot1dia3();      
  4894.    } elsif ($ddslot9 == 10) {   
  4895.       $ddcolor = "$boldwhite"; ddslot1dia3();
  4896.    } elsif ($ddslot9 == 11) {
  4897.       $ddcolor = "$black"; ddslot1crs3();      
  4898.    } else {
  4899.       ddslotwhite();
  4900.    }
  4901. }
  4902. sub ddslot10 {
  4903.    if ($ddslot10 eq 'spining') {
  4904.       ddslotspining();
  4905.    } elsif ($ddslot10 == 1) {
  4906.       ddslot2dia10();
  4907.    } elsif ($ddslot10 == 2) {
  4908.       ddslot2dia10();   
  4909.    } elsif ($ddslot10 == 3) {
  4910.       ddslot1dia10();
  4911.    } elsif ($ddslot10 == 4) {
  4912.       ddslot1jwl10();   
  4913.    } elsif ($ddslot10 == 5) {
  4914.       ddslot1emr10();      
  4915.    } elsif ($ddslot10 == 7) {
  4916.       ddslot1crs10();
  4917.    } elsif ($ddslot10 == 8) {
  4918.       $ddcolor = "$red"; ddslot1jwl4();
  4919.    } elsif ($ddslot10 == 9) {   
  4920.       $ddcolor = "$boldwhite"; ddslot1dia4();      
  4921.    } elsif ($ddslot10 == 10) {   
  4922.       $ddcolor = "$boldwhite"; ddslot1dia4();
  4923.    } elsif ($ddslot10 == 11) {
  4924.       $ddcolor = "$black"; ddslot1crs4();      
  4925.    } else {
  4926.       ddslotwhite();
  4927.    }
  4928. }
  4929. sub ddslot11 {
  4930.    if ($ddslot11 eq 'spining') {
  4931.       ddslotspining();
  4932.    } elsif ($ddslot11 == 5) {
  4933.       ddslot1emr11();   
  4934.    } elsif ($ddslot11 == 8) {
  4935.       $ddcolor = "$red"; ddslot1jwl5();
  4936.    } elsif ($ddslot11 == 9) {   
  4937.       $ddcolor = "$boldwhite"; ddslot1dia5();      
  4938.    } elsif ($ddslot11 == 10) {   
  4939.       $ddcolor = "$boldwhite"; ddslot1dia5();
  4940.    } elsif ($ddslot11 == 11) {
  4941.       $ddcolor = "$black"; ddslot1crs5();      
  4942.    } else {
  4943.       ddslotwhite();
  4944.    }
  4945. }
  4946. sub ddcolorr1 {
  4947.    $ddcolor = $ddr1color;
  4948. }
  4949. sub ddcolorr2 {
  4950.    $ddcolor = $ddr2color;
  4951. }
  4952. sub ddcolorr3 {
  4953.    $ddcolor = $ddr3color;
  4954. }
  4955. sub ddreel1 {
  4956.    $ddreel = 1;
  4957.    if ($ddreelspin == 3) {
  4958.       $ddslot1 = 'spining';
  4959.       $ddslot2 = 'spining';
  4960.       $ddslot3 = 'spining';
  4961.       $ddslot4 = 'spining';
  4962.       $ddslot5 = 'spining';
  4963.       $ddslot6 = 'spining';
  4964.       $ddslot7 = 'spining';
  4965.       $ddslot8 = 'spining';
  4966.       $ddslot9 = 'spining';
  4967.       $ddslot10 = 'spining';
  4968.       $ddslot11 = 'spining';
  4969.       $ddslot12 = 'spining';
  4970.       $ddslot13 = 'spining';
  4971.       $ddslot14 = 'spining';
  4972.    } else {
  4973.       $ddslot1 = $ddsvslot1;
  4974.       $ddslot2 = $ddsvslot1;
  4975.       $ddslot3 = $ddsvslot1;
  4976.       $ddslot4 = $ddsvslot1;
  4977.       $ddslot5 = $ddsvslot1;
  4978.       $ddslot6 = $ddsvslot1;
  4979.       $ddslot7 = $ddsvslot1;
  4980.       $ddslot8 = $ddsvslot1;
  4981.       $ddslot9 = $ddsvslot1;
  4982.       $ddslot10 = $ddsvslot1;
  4983.       $ddslot11 = $ddsvslot1;
  4984.       $ddslot12 = $ddsvslot1;
  4985.       $ddslot13 = $ddsvslot1;
  4986.       $ddslot14 = $ddsvslot1;
  4987.    }
  4988.    
  4989. }
  4990. sub ddreel2 {
  4991.    $ddreel = 2;
  4992.    if ($ddreelspin >= 2) {
  4993.       $ddslot1 = 'spining';
  4994.       $ddslot2 = 'spining';
  4995.       $ddslot3 = 'spining';
  4996.       $ddslot4 = 'spining';
  4997.       $ddslot5 = 'spining';
  4998.       $ddslot6 = 'spining';
  4999.       $ddslot7 = 'spining';
  5000.       $ddslot8 = 'spining';
  5001.       $ddslot9 = 'spining';
  5002.       $ddslot10 = 'spining';
  5003.       $ddslot11 = 'spining';
  5004.       $ddslot12 = 'spining';
  5005.       $ddslot13 = 'spining';
  5006.       $ddslot14 = 'spining';
  5007.    } else {
  5008.       $ddslot1 = $ddsvslot2;
  5009.       $ddslot2 = $ddsvslot2;
  5010.       $ddslot3 = $ddsvslot2;
  5011.       $ddslot4 = $ddsvslot2;
  5012.       $ddslot5 = $ddsvslot2;
  5013.       $ddslot6 = $ddsvslot2;
  5014.       $ddslot7 = $ddsvslot2;
  5015.       $ddslot8 = $ddsvslot2;
  5016.       $ddslot9 = $ddsvslot2;
  5017.       $ddslot10 = $ddsvslot2;
  5018.       $ddslot11 = $ddsvslot2;
  5019.       $ddslot12 = $ddsvslot2;
  5020.       $ddslot13 = $ddsvslot2;
  5021.       $ddslot14 = $ddsvslot2;
  5022.    }
  5023. }
  5024. sub ddreel3 {
  5025.    $ddreel = 3;
  5026.    if ($ddreelspin >= 1) {
  5027.       $ddslot1 = 'spining';
  5028.       $ddslot2 = 'spining';
  5029.       $ddslot3 = 'spining';
  5030.       $ddslot4 = 'spining';
  5031.       $ddslot5 = 'spining';
  5032.       $ddslot6 = 'spining';
  5033.       $ddslot7 = 'spining';
  5034.       $ddslot8 = 'spining';
  5035.       $ddslot9 = 'spining';
  5036.       $ddslot10 = 'spining';
  5037.       $ddslot11 = 'spining';
  5038.       $ddslot12 = 'spining';
  5039.       $ddslot13 = 'spining';
  5040.       $ddslot14 = 'spining';
  5041.    } else {
  5042.       $ddslot1 = $ddsvslot3;
  5043.       $ddslot2 = $ddsvslot3;
  5044.       $ddslot3 = $ddsvslot3;
  5045.       $ddslot4 = $ddsvslot3;
  5046.       $ddslot5 = $ddsvslot3;
  5047.       $ddslot6 = $ddsvslot3;
  5048.       $ddslot7 = $ddsvslot3;
  5049.       $ddslot8 = $ddsvslot3;
  5050.       $ddslot9 = $ddsvslot3;
  5051.       $ddslot10 = $ddsvslot3;
  5052.       $ddslot11 = $ddsvslot3;
  5053.       $ddslot12 = $ddsvslot3;
  5054.       $ddslot13 = $ddsvslot3;
  5055.       $ddslot14 = $ddsvslot3;
  5056.    }
  5057. }
  5058. sub ddmid0a {
  5059.    print color 'reset';
  5060.    print colored('|     []',"$boldblack on_$bgcblack");
  5061.    print color 'reset';
  5062. }
  5063. sub ddmid0 {
  5064.    print color 'reset';
  5065.    print colored('[]',"$boldblack on_$bgcblack");
  5066.    print color 'reset';
  5067. }
  5068. sub ddmid0b {
  5069.    print color 'reset';
  5070.    print colored('|',"$boldblack on_$bgcblack");
  5071.    print colored(' PAY ',"$boldyellow on_$bgcblack");
  5072.    print colored('[]',"$boldblack on_$bgcblack");
  5073.    print color 'reset';
  5074. }
  5075. sub ddmid0c {
  5076.    print color 'reset';
  5077.    print colored('|',"$boldblack on_$bgcblack");
  5078.    print colored('LINE ',"$boldyellow on_$bgcblack");
  5079.    print colored('[]',"$boldblack on_$bgcblack");
  5080.    print color 'reset';
  5081. }
  5082. sub ddmid1a {
  5083.    print color 'reset';
  5084.    print colored('|     ',"$boldblack on_$bgcblack");
  5085.    print colored('<>',"$boldblue on_$bgcblue");
  5086.    print color 'reset';
  5087. }
  5088. sub ddmid1 {
  5089.    print color 'reset';
  5090.    print colored('<>',"$boldblue on_$bgcblue");
  5091.    print color 'reset';
  5092. }
  5093. sub ddslotb {
  5094.    print color 'reset';
  5095.    print colored('      ',"$boldblack on_$bgcblack");
  5096.    print colored('II',"$boldyellow on_$bgcyellow");
  5097.    print colored(' ',"$black on_$bgcblack");
  5098.    print colored('II',"$boldyellow on_$bgcyellow");
  5099.    print colored('      |',"$boldblack on_$bgcblack");
  5100.    print color 'reset';
  5101. }
  5102. sub ddslota {
  5103.    print color 'reset';
  5104.    print colored('      ',"$boldblack on_$bgcblack");
  5105.    print colored('IIIII',"$boldyellow on_$bgcyellow");
  5106.    print colored('      |',"$boldblack on_$bgcblack");
  5107.    print color 'reset';
  5108. }
  5109. sub ddaddmoney {
  5110.    if ($ddx eq "111") {
  5111.       $ddaddmoney = 1000 * $coin;
  5112.       $beepnum = 6;
  5113.       $ddstwin = $ddstwin + 1;
  5114.    } elsif ($ddx eq "222") {
  5115.       $ddaddmoney = 500 * $coin;
  5116.       $beepnum = 5;
  5117.       $ddstwin = $ddstwin + 1;
  5118.    } elsif ($ddx eq "333") {
  5119.       $ddaddmoney = 150 * $coin;
  5120.       $beepnum = 4;
  5121.       $ddstwin = $ddstwin + 1;
  5122.    } elsif ($ddx eq "444") {
  5123.       $ddaddmoney = 80 * $coin;
  5124.       $beepnum = 4;
  5125.       $ddstwin = $ddstwin + 1;
  5126.    } elsif ($ddx eq "555") {
  5127.       $ddaddmoney = 45 * $coin;
  5128.       $beepnum = 3;
  5129.       $ddstwin = $ddstwin + 1;
  5130.    } elsif ($ddx eq "666") {
  5131.       $ddaddmoney = 22 * $coin;
  5132.       $beepnum = 3;
  5133.       $ddstwin = $ddstwin + 1;
  5134.    } elsif ($ddx eq "777") {
  5135.       $ddaddmoney = 15 * $coin;
  5136.       $beepnum = 3;
  5137.       $ddstwin = $ddstwin + 1;
  5138.    } elsif ($ddx eq "121") {
  5139.       $ddaddmoney = 700 * $coin;
  5140.       $beepnum = 5;
  5141.       $ddstwin = $ddstwin + 1;
  5142.    } elsif ($ddx eq "212") {
  5143.       $ddaddmoney = 300 * $coin;
  5144.       $beepnum = 4;
  5145.       $ddstwin = $ddstwin + 1;
  5146.    } elsif ($ddx eq "141") {
  5147.       $ddaddmoney = 180 * $coin;
  5148.       $beepnum = 4;
  5149.       $ddstwin = $ddstwin + 1;
  5150.    } elsif ($ddx eq "252") {
  5151.       $ddaddmoney = 110 * $coin;
  5152.       $beepnum = 4;
  5153.       $ddstwin = $ddstwin + 1;
  5154.    } elsif ($ddx eq "454") {
  5155.       $ddaddmoney = 60 * $coin;
  5156.       $beepnum = 3;
  5157.       $ddstwin = $ddstwin + 1;
  5158.    } elsif ($ddx eq "545") {
  5159.       $ddaddmoney = 35 * $coin;
  5160.       $beepnum = 3;
  5161.       $ddstwin = $ddstwin + 1;
  5162.    } elsif ($ddx eq "464") {
  5163.       $ddaddmoney = 30 * $coin;
  5164.       $beepnum = 3;
  5165.       $ddstwin = $ddstwin + 1;
  5166.    } elsif ($ddx eq "646") {
  5167.       $ddaddmoney = 18 * $coin;
  5168.       $beepnum = 3;
  5169.       $ddstwin = $ddstwin + 1;               
  5170.    } else {
  5171.       $ddaddmoney = 0;
  5172.       $beepnum = 0;
  5173.       $ddstlose = $ddstlose + 1;
  5174.    }   
  5175. }
  5176.          
  5177. sub ddmainscreen {
  5178.    ddmid0a(); ddreel1(); ddcolorr1(); sep; ddslot1(); sep; ddmid0(); ddreel2(); ddcolorr2(); sep; ddslot1(); sep; ddmid0(); ddreel3(); ddcolorr3(); sep; ddslot1(); sep; ddmid0(); ddwinnings(); print colored('|',"$boldblack on_$bgcblack"); print"\n";
  5179.    ddmid0a(); ddreel1(); ddcolorr1(); sep; ddslot2(); sep; ddmid0(); ddreel2(); ddcolorr2(); sep; ddslot2(); sep; ddmid0(); ddreel3(); ddcolorr3(); sep; ddslot2(); sep; ddmid0(); print colored('                 |',"$boldblack on_$bgcblack"); print"\n";
  5180.    ddmid0a(); ddreel1(); ddcolorr1(); sep; ddslot3(); sep; ddmid0(); ddreel2(); ddcolorr2(); sep; ddslot3(); sep; ddmid0(); ddreel3(); ddcolorr3(); sep; ddslot3(); sep; ddmid0(); ddfunds(); print colored('|',"$boldblack on_$bgcblack"); print"\n";
  5181.    ddmid0a(); ddreel1(); ddcolorr1(); sep; ddslot4(); sep; ddmid0(); ddreel2(); ddcolorr2(); sep; ddslot4(); sep; ddmid0(); ddreel3(); ddcolorr3(); sep; ddslot4(); sep; ddmid0(); print colored('                 |',"$boldblack on_$bgcblack"); print"\n";
  5182.    ddmid0b(); ddreel1(); ddcolorr1(); sep; ddslot5(); sep; ddmid0(); ddreel2(); ddcolorr2(); sep; ddslot5(); sep; ddmid0(); ddreel3(); ddcolorr3(); sep; ddslot5(); sep; ddmid0(); ddslota(); print"\n";
  5183.    ddmid1a(); ddreel1(); ddcolorr1(); sep; ddslot6(); sep; ddmid1(); ddreel2(); ddcolorr2(); sep; ddslot6(); sep; ddmid1(); ddreel3(); ddcolorr3(); sep; ddslot6(); sep; ddmid1(); ddslotb(); print"\n";
  5184.    ddmid0c(); ddreel1(); ddcolorr1(); sep; ddslot7(); sep; ddmid0(); ddreel2(); ddcolorr2(); sep; ddslot7(); sep; ddmid0(); ddreel3(); ddcolorr3(); sep; ddslot7(); sep; ddmid0(); ddslotb(); print"\n";
  5185.    ddmid0a(); ddreel1(); ddcolorr1(); sep; ddslot8(); sep; ddmid0(); ddreel2(); ddcolorr2(); sep; ddslot8(); sep; ddmid0(); ddreel3(); ddcolorr3(); sep; ddslot8(); sep; ddmid0(); ddslotb(); beepalrm();
  5186.    ddmid0a(); ddreel1(); ddcolorr1(); sep; ddslot9(); sep; ddmid0(); ddreel2(); ddcolorr2(); sep; ddslot9(); sep; ddmid0(); ddreel3(); ddcolorr3(); sep; ddslot9(); sep; ddmid0(); ddslotb(); beepalrm();
  5187.    ddmid0a(); ddreel1(); ddcolorr1(); sep; ddslot10(); sep; ddmid0(); ddreel2(); ddcolorr2(); sep; ddslot10(); sep; ddmid0(); ddreel3(); ddcolorr3(); sep; ddslot10(); sep; ddmid0(); ddslota(); beepalrm();
  5188.    ddmid0a(); ddreel1(); ddcolorr1(); sep; ddslot11(); sep; ddmid0(); ddreel2(); ddcolorr2(); sep; ddslot11(); sep; ddmid0(); ddreel3(); ddcolorr3(); sep; ddslot11(); sep; ddmid0(); print colored('                 |',"$boldblack on_$bgcblack"); beepalrm();
  5189.    print colored('|     [][][][][][][][][][][][][][][][][][][][][][][][][][][][]   INSERT TOKEN  |',"$boldblack on_$bgcblack");  beepalrm();
  5190.    print colored('|------------------------------------------------------------------------------|',"$boldblack on_$bgcblack");  beepalrm();
  5191.    print colored('|',"$boldblack on_$bgcblack"); 
  5192.    print colored('                              DOUBLE BLUE DIAMOND                             ',"$blue on_$bgcgreen");
  5193.    print colored('|',"$boldblack on_$bgcblack");  beepalrm();
  5194.    print colored('\------------------------------------------------------------------------------/',"$boldblack on_$bgcblack");  beepalrm();   
  5195.    
  5196.    $beepnum = 0;
  5197. }
  5198. sub ddwinnings {
  5199.    print colored(' WINNINGS ',"$boldblack on_$bgcblack");
  5200.    
  5201.    sep;
  5202.    if ($ddaddmoney > 9999999) {
  5203.    print colored(sprintf("%.1e", $ddaddmoney),"$boldred on_$bgcred");
  5204.    } elsif ($ddaddmoney >= 1000000) {
  5205.    print colored("$ddaddmoney","$boldred on_$bgcred");
  5206.    } elsif ($ddaddmoney >= 100000) {
  5207.    print colored(" $ddaddmoney","$boldred on_$bgcred");
  5208.    } elsif ($ddaddmoney >= 10000) {
  5209.    print colored("  $ddaddmoney","$boldred on_$bgcred");
  5210.    } elsif ($ddaddmoney >= 1000) {
  5211.    print colored("   $ddaddmoney","$boldred on_$bgcred");
  5212.    } elsif ($ddaddmoney >= 100) {
  5213.    print colored("    $ddaddmoney","$boldred on_$bgcred");
  5214.    } elsif ($ddaddmoney >= 10) {
  5215.    print colored("     $ddaddmoney","$boldred on_$bgcred");
  5216.    } elsif ($ddaddmoney >= 1) {
  5217.    print colored("      $ddaddmoney","$boldred on_$bgcred");
  5218.    } else {
  5219.    print colored("      $ddaddmoney","$boldred on_$bgcred");
  5220.    }
  5221.    sep;
  5222. }
  5223. sub ddfunds {
  5224.    print colored(' FUNDS ',"$boldblack on_$bgcblack");
  5225.    
  5226.    sep;
  5227.    if ($money > 9999999999) {
  5228.    print colored(sprintf("%.4e", $money),"$boldgreen on_$bgcgreen");
  5229.    } elsif ($money >= 1000000000) {
  5230.    print colored("$money","$boldgreen on_$bgcgreen");
  5231.    } elsif ($money >= 100000000) {
  5232.    print colored(" $money","$boldgreen on_$bgcgreen");
  5233.    } elsif ($money >= 10000000) {
  5234.    print colored("  $money","$boldgreen on_$bgcgreen");
  5235.    } elsif ($money >= 1000000) {
  5236.    print colored("   $money","$boldgreen on_$bgcgreen");
  5237.    } elsif ($money >= 100000) {
  5238.    print colored("    $money","$boldgreen on_$bgcgreen");
  5239.    } elsif ($money >= 10000) {
  5240.    print colored("     $money","$boldgreen on_$bgcgreen");
  5241.    } elsif ($money >= 1000) {
  5242.    print colored("      $money","$boldgreen on_$bgcgreen");
  5243.    } elsif ($money >= 100) {
  5244.    print colored("       $money","$boldgreen on_$bgcgreen");
  5245.    } elsif ($money >= 10) {
  5246.    print colored("        $money","$boldgreen on_$bgcgreen");
  5247.    } elsif ($money >= 1) {
  5248.    print colored("         $money","$boldgreen on_$bgcgreen");
  5249.    } else {
  5250.    print colored("         $money","$boldgreen on_$bgcgreen");
  5251.    }
  5252.    sep;
  5253. }
  5254. sub ddtopend {
  5255.    print colored('                ',"$white on_$bgcgreen");
  5256.    print colored('|',"$boldblack on_$bgcblack");
  5257. }
  5258. sub ddtopprint {
  5259.    print colored('/------------------------------------------------------------------------------\\',"$boldblack on_$bgcblack");  print"\n";
  5260.    print colored('|',"$boldblack on_$bgcblack"); 
  5261.    print colored('                              DOUBLE BLUE DIAMOND                             ',"$blue on_$bgcgreen");
  5262.    print colored('|',"$boldblack on_$bgcblack"); print"\n";
  5263.    print colored('|',"$boldblack on_$bgcblack");
  5264.    print colored('   ___ ',"$boldblue on_$bgcgreen");  print colored(' x3 = 1000',"$white on_$bgcgreen");
  5265.    print colored(' ___ ',"$boldwhite on_$bgcgreen"); print colored(' x3 = 150 ',"$white on_$bgcgreen");
  5266.    print colored(' /|\\ ',"$boldgreen on_$bgcgreen"); print colored(' x3 = 45  ',"$white on_$bgcgreen");
  5267.    print colored(' /|\\ ',"$boldblack on_$bgcgreen"); print colored(' x3 = 15  ',"$white on_$bgcgreen");
  5268.    print colored(' RB',"$red on_$bgcwhite");
  5269.    print colored(' EM',"$boldgreen on_$bgcwhite");
  5270.    print colored(' RB',"$red on_$bgcwhite");
  5271.    print colored(' = 60  ',"$boldblack on_$bgcwhite");
  5272.    print colored('|',"$boldblack on_$bgcblack");
  5273.    print"\n";
  5274.    print colored('|',"$boldblack on_$bgcblack");
  5275.    print colored(' _/_|_\\',"$boldblue on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen"); 
  5276.    print colored('/_|_\\',"$boldwhite on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen");
  5277.    print colored('// \\\\',"$boldgreen on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen");
  5278.    print colored(' ||| ',"$boldblack on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen");
  5279.    print colored(' EM',"$boldgreen on_$bgcwhite");
  5280.    print colored(' RB',"$red on_$bgcwhite");
  5281.    print colored(' EM',"$boldgreen on_$bgcwhite");
  5282.    print colored(' = 35  ',"$boldblack on_$bgcwhite");
  5283.    print colored('|',"$boldblack on_$bgcblack");
  5284.    print"\n";
  5285.    print colored('|',"$boldblack on_$bgcblack");
  5286.    print colored('/_|_\\',"$boldblue on_$bgcgreen"); print colored(' /',"$blue on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen"); 
  5287.    print colored('\\ | /',"$boldwhite on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen");
  5288.    print colored('\\\\ //',"$boldgreen on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen");
  5289.    print colored(' \\|/ ',"$boldblack on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen");
  5290.    print colored(' RB',"$red on_$bgcwhite");
  5291.    print colored(' TZ',"$boldyellow on_$bgcwhite");
  5292.    print colored(' RB',"$red on_$bgcwhite");
  5293.    print colored(' = 30  ',"$boldblack on_$bgcwhite");
  5294.    print colored('|',"$boldblack on_$bgcblack");
  5295.    print"\n";
  5296.    print colored('|',"$boldblack on_$bgcblack");
  5297.    print colored('\\ ',"$boldblue on_$bgcgreen"); print colored('| // ',"$blue on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen"); 
  5298.    print colored(' \\|/ ',"$boldwhite on_$bgcgreen");  print colored('          ',"$white on_$bgcgreen");
  5299.    print colored(' \\|/ ',"$boldgreen on_$bgcgreen"); print colored('                         ',"$white on_$bgcgreen");
  5300.    print colored(' TZ',"$boldyellow on_$bgcwhite");
  5301.    print colored(' RB',"$red on_$bgcwhite");
  5302.    print colored(' TZ',"$boldyellow on_$bgcwhite");
  5303.    print colored(' = 18  ',"$boldblack on_$bgcwhite");
  5304.    print colored('|',"$boldblack on_$bgcblack");
  5305.    print"\n";
  5306.    print colored('|',"$boldblack on_$bgcblack");
  5307.    print colored(' \\',"$boldblue on_$bgcgreen"); print colored('|/   ',"$blue on_$bgcgreen");  print colored('          ',"$white on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen"); 
  5308.    print colored('                    ',"$white on_$bgcgreen");
  5309.    print colored('                               |',"$boldblack on_$bgcblack");
  5310.    print"\n";
  5311.    print colored('|',"$boldblack on_$bgcblack");
  5312.    print colored('   ___ ',"$boldwhite on_$bgcgreen");  print colored(' x3 = 500',"$white on_$bgcgreen"); 
  5313.    print colored('  ___ ',"$red on_$bgcgreen"); print colored(' x3 = 80  ',"$white on_$bgcgreen");
  5314.    print colored(' ___ ',"$boldyellow on_$bgcgreen"); print colored(' x3 = 22  ',"$white on_$bgcgreen");
  5315.    print colored('  DD',"$boldblue on_$bgcblack");
  5316.    print colored(' DD',"$boldwhite on_$bgcblack");
  5317.    print colored(' DD',"$boldblue on_$bgcblack");
  5318.    print colored(' = 700 ',"$white on_$bgcblack");
  5319.    print colored('              |',"$boldblack on_$bgcblack");
  5320.    print"\n";
  5321.    print colored('|',"$boldblack on_$bgcblack");
  5322.    print colored(' _/_|_\\',"$boldwhite on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen");
  5323.    print colored('/\_/\\',"$red on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen");
  5324.    print colored('|\_/|',"$boldyellow on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen");
  5325.    print colored('  DD',"$boldwhite on_$bgcblack");
  5326.    print colored(' DD',"$boldblue on_$bgcblack");
  5327.    print colored(' DD',"$boldwhite on_$bgcblack");
  5328.    print colored(' = 300 ',"$white on_$bgcblack");
  5329.    print colored('              |',"$boldblack on_$bgcblack");
  5330.    print"\n";
  5331.    print colored('|',"$boldblack on_$bgcblack");
  5332.    print colored('/_|_\ /',"$boldwhite on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen"); 
  5333.    print colored('||_||',"$red on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen");
  5334.    print colored('||_||          ',"$boldyellow on_$bgcgreen");
  5335.    print colored('  DD',"$boldblue on_$bgcblack");
  5336.    print colored(' RB',"$red on_$bgcblack");
  5337.    print colored(' DD',"$boldblue on_$bgcblack");
  5338.    print colored(' = 180 ',"$white on_$bgcblack");
  5339.    print colored('              |',"$boldblack on_$bgcblack");
  5340.    print"\n";
  5341.    print colored('|',"$boldblack on_$bgcblack");
  5342.    print colored('\ | // ',"$boldwhite on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen"); 
  5343.    print colored('\/_\/',"$red on_$bgcgreen"); print colored('          ',"$white on_$bgcgreen");
  5344.    print colored('|/_\|          ',"$boldyellow on_$bgcgreen");
  5345.    print colored('  DD',"$boldwhite on_$bgcblack");
  5346.    print colored(' EM',"$boldgreen on_$bgcblack");
  5347.    print colored(' DD',"$boldwhite on_$bgcblack");
  5348.    print colored(' = 110 ',"$white on_$bgcblack");
  5349.    print colored('              |',"$boldblack on_$bgcblack");
  5350.    print"\n";
  5351.    print colored('|',"$boldblack on_$bgcblack");
  5352.    print colored(' \|/   ',"$boldwhite on_$bgcgreen"); 
  5353.    print colored('     P = Play   C = Return To Casino Men',"$boldgreen on_$bgcgreen");
  5354.    print colored('u   EXIT = Quit                |',"$boldblack on_$bgcblack"); print"\n";
  5355.    print colored('|------------------------------------------------------------------------------|',"$boldblack on_$bgcblack");  print"\n";
  5356.    print colored('|     [][][][][][][][][][][][][][][][][][][][][][][][][][][][]    GPC-SLOTS 2  |',"$boldblack on_$bgcblack");  print"\n";
  5357. }
  5358. ################################################################################################################################
  5359. ## GENRE: Slot Mahine
  5360. ## NAME: High Roller Sevens
  5361. ## AUTHOR: MikeeUSA
  5362. sub ssmain {
  5363.    ssresetvars();
  5364.    $ssaddmoney1 = 0;
  5365.    sslights();
  5366.    ssspinreel();
  5367.    ssreeltrans();
  5368.    
  5369.    if ($animate == 1) {
  5370.       $ssreelspin = 3;
  5371.       ssmainscreen();
  5372.       ssdisplaywin();
  5373.       medpause();
  5374.       newlines();
  5375.    
  5376.       $ssreelspin = 2;
  5377.       ssmainscreen();
  5378.       ssdisplaywin();
  5379.       smallpause();
  5380.       newlines();
  5381.       
  5382.       $ssreelspin = 1;
  5383.       ssmainscreen();
  5384.       ssdisplaywin();
  5385.       smallpause();
  5386.       newlines();
  5387.    }   
  5388.    $ssx1 = $sssvslot1.$sssvslot2.$sssvslot3;
  5389.    $ssx2 = $sssvslot1a.$sssvslot2a.$sssvslot3a;
  5390.    $ssx3 = $sssvslot1b.$sssvslot2b.$sssvslot3b;
  5391.    $ssx4 = $sssvslot1a.$sssvslot2.$sssvslot3b;
  5392.    $ssx5 = $sssvslot1b.$sssvslot2.$sssvslot3a;
  5393.    ssaddmoney();
  5394.    sscalcfunds();
  5395.    $ssreelspin = 0;
  5396.    ssmainscreen();
  5397.    ssdisplaywin();
  5398.    ptracker();
  5399.    ssstartinfo();
  5400. }
  5401. sub ssmain2 {
  5402.    ssresetvars();
  5403.    $ssaddmoney1 = 0;
  5404.    $sslines = 1;
  5405.    sslights();
  5406.    ssreeltrans();
  5407.    ssmainscreen();
  5408.    $ssx1 = 'null';
  5409.    $ssx2 = 'null';
  5410.    $ssx3 = 'null';
  5411.    $ssx4 = 'null';
  5412.    $ssx5 = 'null';
  5413.    $ssaddmoney = 0;
  5414.    ssdisplaywin();
  5415.    ssstartinfo();
  5416. }
  5417. sub ssresetvars {
  5418.    $ssreelspin = 0;
  5419. }
  5420. sub ssaddmoney {
  5421.    $ssaddmoney1 = 0;
  5422.    $ssaddmoney2 = 0;
  5423.    $ssaddmoney3 = 0;
  5424.    $ssaddmoney4 = 0;
  5425.    $ssaddmoney5 = 0;
  5426.    if ($sslines == 3) {
  5427.       ssaddmoney1();
  5428.       ssaddmoney2();
  5429.       ssaddmoney3();
  5430.       ssaddmoney4();
  5431.       ssaddmoney5();      
  5432.    } elsif ($sslines == 2) {
  5433.       ssaddmoney1();
  5434.       ssaddmoney2();   
  5435.    } elsif ($sslines == 1) {
  5436.       ssaddmoney1();   
  5437.    } else {
  5438.    }
  5439.    $ssaddmoney = $ssaddmoney1 + $ssaddmoney2 + $ssaddmoney3 + $ssaddmoney4 + $ssaddmoney5;
  5440. }
  5441. sub ssaddmoney1 {
  5442.    if (($ssmisalign1 == 1) or ($ssmisalign2 == 1) or ($ssmisalign3 == 1)) {
  5443.       $ssaddmoney1 = 0;
  5444.       $ssstlose = $ssstlose + 1;
  5445.    } elsif ($ssx1 eq "111") {
  5446.       if ($sslines == 3) {
  5447.          if (($coin * 500000) >= (($projkpot)*(0.50))) {
  5448.             $ssaddmoney1 = $projkpot + (500000 * $coin);
  5449.             #This is so winning the jackpot is always a big windfall
  5450.          } else {
  5451.             $ssaddmoney1 = $projkpot;
  5452.          }
  5453.       $projkpot = $projkpot2;
  5454.       $beepnum = 8;
  5455.       } else {
  5456.       $ssaddmoney1 = 500000 * $coin;
  5457.       $beepnum = 7;
  5458.       }
  5459.       $ssstwin = $ssstwin + 1;
  5460.    } elsif ($ssx1 eq "121") {
  5461.       $ssaddmoney1 = 12000 * $coin;
  5462.       $ssstwin = $ssstwin + 1;
  5463.       $beepnum = 6;   
  5464.    } elsif ($ssx1 eq "222") {
  5465.       $ssaddmoney1 = 10000 * $coin;
  5466.       $ssstwin = $ssstwin + 1;
  5467.       $beepnum = 6;
  5468.    } elsif ($ssx1 eq "212") {
  5469.       $ssaddmoney1 = 8000 * $coin;
  5470.       $ssstwin = $ssstwin + 1;
  5471.       $beepnum = 6;      
  5472.    } elsif ($ssx1 eq "333") {
  5473.       $ssaddmoney1 = 6000 * $coin;
  5474.       $ssstwin = $ssstwin + 1;
  5475.       $beepnum = 5;
  5476.    } elsif ($ssx1 eq "434") {
  5477.       $ssaddmoney1 = 4000 * $coin;
  5478.       $ssstwin = $ssstwin + 1;
  5479.       $beepnum = 5;
  5480.    } elsif ($ssx1 eq "444") {
  5481.       $ssaddmoney1 = 2000 * $coin;
  5482.       $ssstwin = $ssstwin + 1;
  5483.       $beepnum = 5;
  5484.    } elsif ($ssx1 eq "555") {
  5485.       $ssaddmoney1 = 700 * $coin;
  5486.       $ssstwin = $ssstwin + 1;
  5487.       $beepnum = 4;
  5488.    } elsif ($ssx1 eq "666") {
  5489.       $ssaddmoney1 = 400 * $coin;
  5490.       $ssstwin = $ssstwin + 1;
  5491.       $beepnum = 4;
  5492.    } elsif ($ssx1 eq "777") {
  5493.       $ssaddmoney1 = 250 * $coin;
  5494.       $ssstwin = $ssstwin + 1;
  5495.       $beepnum = 4;   
  5496.    } elsif ($ssx1 eq "888") {
  5497.       $ssaddmoney1 = 130 * $coin;
  5498.       $ssstwin = $ssstwin + 1;
  5499.       $beepnum = 4;
  5500.    } elsif ($ssx1 eq "999") {
  5501.       $ssaddmoney1 = 80 * $coin;
  5502.       $ssstwin = $ssstwin + 1;
  5503.       $beepnum = 3;
  5504.    } elsif ($ssx1 eq "101010") {
  5505.       $ssaddmoney1 = 20 * $coin;
  5506.       $ssstwin = $ssstwin + 1;
  5507.       $beepnum = 3;
  5508.    } else {
  5509.       $ssaddmoney1 = 0;
  5510.       $ssstlose = $ssstlose + 1;
  5511.    }   
  5512. }
  5513. sub ssaddmoney2 {
  5514.    if (($ssmisalign1 == 1) or ($ssmisalign2 == 1) or ($ssmisalign3 == 1)) {
  5515.       $ssaddmoney2 = 0;
  5516.    } elsif ($ssx2 eq "111") {
  5517.       $ssaddmoney2 = 500000 * $coin;
  5518.       $ssstwin = $ssstwin + 1;
  5519.       $beepnum = 7;
  5520.    } elsif ($ssx2 eq "121") {
  5521.       $ssaddmoney2 = 12000 * $coin;
  5522.       $ssstwin = $ssstwin + 1;
  5523.       $beepnum = 6;
  5524.    } elsif ($ssx2 eq "222") {
  5525.       $ssaddmoney2 = 10000 * $coin;
  5526.       $ssstwin = $ssstwin + 1;
  5527.       $beepnum = 6;
  5528.    } elsif ($ssx2 eq "212") {
  5529.       $ssaddmoney2 = 8000 * $coin;
  5530.       $ssstwin = $ssstwin + 1;
  5531.       $beepnum = 6;
  5532.    } elsif ($ssx2 eq "333") {
  5533.       $ssaddmoney2 = 6000 * $coin;
  5534.       $ssstwin = $ssstwin + 1;
  5535.       $beepnum = 5;
  5536.    } elsif ($ssx2 eq "434") {
  5537.       $ssaddmoney2 = 4000 * $coin;
  5538.       $ssstwin = $ssstwin + 1;
  5539.       $beepnum = 5;
  5540.    } elsif ($ssx2 eq "444") {
  5541.       $ssaddmoney2 = 2000 * $coin;
  5542.       $ssstwin = $ssstwin + 1;
  5543.       $beepnum = 5;
  5544.    } elsif ($ssx2 eq "555") {
  5545.       $ssaddmoney2 = 700 * $coin;
  5546.       $ssstwin = $ssstwin + 1;
  5547.       $beepnum = 4;
  5548.    } elsif ($ssx2 eq "666") {
  5549.       $ssaddmoney2 = 400 * $coin;
  5550.       $ssstwin = $ssstwin + 1;
  5551.       $beepnum = 4;
  5552.    } elsif ($ssx2 eq "777") {
  5553.       $ssaddmoney2 = 250 * $coin;
  5554.       $ssstwin = $ssstwin + 1;
  5555.       $beepnum = 4;   
  5556.    } elsif ($ssx2 eq "888") {
  5557.       $ssaddmoney2 = 130 * $coin;
  5558.       $ssstwin = $ssstwin + 1;
  5559.       $beepnum = 4;
  5560.    } elsif ($ssx2 eq "999") {
  5561.       $ssaddmoney2 = 80 * $coin;
  5562.       $ssstwin = $ssstwin + 1;
  5563.       $beepnum = 3;
  5564.    } elsif ($ssx2 eq "101010") {
  5565.       $ssaddmoney2 = 20 * $coin;
  5566.       $ssstwin = $ssstwin + 1;
  5567.       $beepnum = 3;
  5568.    } else {
  5569.       $ssaddmoney2 = 0;
  5570.       $ssstlose = $ssstlose + 1;
  5571.    }   
  5572. }
  5573. sub ssaddmoney3 {
  5574.    if (($ssmisalign1 == 1) or ($ssmisalign2 == 1) or ($ssmisalign3 == 1)) {
  5575.       $ssaddmoney3 = 0;
  5576.    } elsif ($ssx3 eq "111") {
  5577.       $ssaddmoney3 = 500000 * $coin;
  5578.       $ssstwin = $ssstwin + 1;
  5579.       $beepnum = 7;
  5580.    } elsif ($ssx3 eq "121") {
  5581.       $ssaddmoney3 = 12000 * $coin;
  5582.       $ssstwin = $ssstwin + 1;
  5583.       $beepnum = 6;
  5584.    } elsif ($ssx3 eq "222") {
  5585.       $ssaddmoney3 = 10000 * $coin;
  5586.       $ssstwin = $ssstwin + 1;
  5587.       $beepnum = 6;
  5588.    } elsif ($ssx3 eq "212") {
  5589.       $ssaddmoney3 = 8000 * $coin;
  5590.       $ssstwin = $ssstwin + 1;
  5591.       $beepnum = 6;
  5592.    } elsif ($ssx3 eq "333") {
  5593.       $ssaddmoney3 = 6000 * $coin;
  5594.       $ssstwin = $ssstwin + 1;
  5595.       $beepnum = 5;
  5596.    } elsif ($ssx3 eq "434") {
  5597.       $ssaddmoney3 = 4000 * $coin;
  5598.       $ssstwin = $ssstwin + 1;
  5599.       $beepnum = 5;
  5600.    } elsif ($ssx3 eq "444") {
  5601.       $ssaddmoney3 = 2000 * $coin;
  5602.       $ssstwin = $ssstwin + 1;
  5603.       $beepnum = 5;
  5604.    } elsif ($ssx3 eq "555") {
  5605.       $ssaddmoney3 = 700 * $coin;
  5606.       $ssstwin = $ssstwin + 1;
  5607.       $beepnum = 4;
  5608.    } elsif ($ssx3 eq "666") {
  5609.       $ssaddmoney3 = 400 * $coin;
  5610.       $ssstwin = $ssstwin + 1;
  5611.       $beepnum = 4;
  5612.    } elsif ($ssx3 eq "777") {
  5613.       $ssaddmoney3 = 250 * $coin;
  5614.       $ssstwin = $ssstwin + 1;
  5615.       $beepnum = 4;   
  5616.    } elsif ($ssx3 eq "888") {
  5617.       $ssaddmoney3 = 130 * $coin;
  5618.       $ssstwin = $ssstwin + 1;
  5619.       $beepnum = 4;
  5620.    } elsif ($ssx3 eq "999") {
  5621.       $ssaddmoney3 = 80 * $coin;
  5622.       $ssstwin = $ssstwin + 1;
  5623.       $beepnum = 3;
  5624.    } elsif ($ssx3 eq "101010") {
  5625.       $ssaddmoney3 = 20 * $coin;
  5626.       $ssstwin = $ssstwin + 1;
  5627.       $beepnum = 3;
  5628.    } else {
  5629.       $ssaddmoney3 = 0;
  5630.       $ssstlose = $ssstlose + 1;
  5631.    }   
  5632. }
  5633. sub ssaddmoney4 {
  5634.    if (($ssmisalign1 == 1) or ($ssmisalign2 == 1) or ($ssmisalign3 == 1)) {
  5635.       $ssaddmoney4 = 0;
  5636.    } elsif ($ssx4 eq "111") {
  5637.       $ssaddmoney4 = 500000 * $coin;
  5638.       $ssstwin = $ssstwin + 1;
  5639.       $beepnum = 7;
  5640.    } elsif ($ssx4 eq "121") {
  5641.       $ssaddmoney4 = 12000 * $coin;
  5642.       $ssstwin = $ssstwin + 1;
  5643.       $beepnum = 6;
  5644.    } elsif ($ssx4 eq "222") {
  5645.       $ssaddmoney4 = 10000 * $coin;
  5646.       $ssstwin = $ssstwin + 1;
  5647.       $beepnum = 6;
  5648.    } elsif ($ssx4 eq "212") {
  5649.       $ssaddmoney4 = 8000 * $coin;
  5650.       $ssstwin = $ssstwin + 1;
  5651.       $beepnum = 6;
  5652.    } elsif ($ssx4 eq "333") {
  5653.       $ssaddmoney4 = 6000 * $coin;
  5654.       $ssstwin = $ssstwin + 1;
  5655.       $beepnum = 5;
  5656.    } elsif ($ssx4 eq "434") {
  5657.       $ssaddmoney4 = 4000 * $coin;
  5658.       $ssstwin = $ssstwin + 1;
  5659.       $beepnum = 5;
  5660.    } elsif ($ssx4 eq "444") {
  5661.       $ssaddmoney4 = 2000 * $coin;
  5662.       $ssstwin = $ssstwin + 1;
  5663.       $beepnum = 5;
  5664.    } elsif ($ssx4 eq "555") {
  5665.       $ssaddmoney4 = 700 * $coin;
  5666.       $ssstwin = $ssstwin + 1;
  5667.       $beepnum = 4;
  5668.    } elsif ($ssx4 eq "666") {
  5669.       $ssaddmoney4 = 400 * $coin;
  5670.       $ssstwin = $ssstwin + 1;
  5671.       $beepnum = 4;
  5672.    } elsif ($ssx4 eq "777") {
  5673.       $ssaddmoney4 = 250 * $coin;
  5674.       $ssstwin = $ssstwin + 1;
  5675.       $beepnum = 4;   
  5676.    } elsif ($ssx4 eq "888") {
  5677.       $ssaddmoney4 = 130 * $coin;
  5678.       $ssstwin = $ssstwin + 1;
  5679.       $beepnum = 4;
  5680.    } elsif ($ssx4 eq "999") {
  5681.       $ssaddmoney4 = 80 * $coin;
  5682.       $ssstwin = $ssstwin + 1;
  5683.       $beepnum = 3;
  5684.    } elsif ($ssx4 eq "101010") {
  5685.       $ssaddmoney4 = 20 * $coin;
  5686.       $ssstwin = $ssstwin + 1;
  5687.       $beepnum = 3;
  5688.    } else {
  5689.       $ssaddmoney4 = 0;
  5690.       $ssstlose = $ssstlose + 1;
  5691.    }   
  5692. }
  5693. sub ssaddmoney5 {
  5694.    if (($ssmisalign1 == 1) or ($ssmisalign2 == 1) or ($ssmisalign3 == 1)) {
  5695.       $ssaddmoney5 = 0;
  5696.    } elsif ($ssx5 eq "111") {
  5697.       $ssaddmoney5 = 500000 * $coin;
  5698.       $ssstwin = $ssstwin + 1;
  5699.       $beepnum = 7;
  5700.    } elsif ($ssx5 eq "121") {
  5701.       $ssaddmoney5 = 12000 * $coin;
  5702.       $ssstwin = $ssstwin + 1;
  5703.       $beepnum = 6;
  5704.    } elsif ($ssx5 eq "222") {
  5705.       $ssaddmoney5 = 10000 * $coin;
  5706.       $ssstwin = $ssstwin + 1;
  5707.       $beepnum = 6;
  5708.    } elsif ($ssx5 eq "212") {
  5709.       $ssaddmoney5 = 8000 * $coin;
  5710.       $ssstwin = $ssstwin + 1;
  5711.       $beepnum = 6;
  5712.    } elsif ($ssx5 eq "333") {
  5713.       $ssaddmoney5 = 6000 * $coin;
  5714.       $ssstwin = $ssstwin + 1;
  5715.       $beepnum = 5;
  5716.    } elsif ($ssx5 eq "434") {
  5717.       $ssaddmoney5 = 4000 * $coin;
  5718.       $ssstwin = $ssstwin + 1;
  5719.       $beepnum = 5;
  5720.    } elsif ($ssx5 eq "444") {
  5721.       $ssaddmoney5 = 2000 * $coin;
  5722.       $ssstwin = $ssstwin + 1;
  5723.       $beepnum = 5;
  5724.    } elsif ($ssx5 eq "555") {
  5725.       $ssaddmoney5 = 700 * $coin;
  5726.       $ssstwin = $ssstwin + 1;
  5727.       $beepnum = 4;
  5728.    } elsif ($ssx5 eq "666") {
  5729.       $ssaddmoney5 = 400 * $coin;
  5730.       $ssstwin = $ssstwin + 1;
  5731.       $beepnum = 4;
  5732.    } elsif ($ssx5 eq "777") {
  5733.       $ssaddmoney5 = 250 * $coin;
  5734.       $ssstwin = $ssstwin + 1;
  5735.       $beepnum = 4;      
  5736.    } elsif ($ssx5 eq "888") {
  5737.       $ssaddmoney5 = 130 * $coin;
  5738.       $ssstwin = $ssstwin + 1;
  5739.       $beepnum = 4;
  5740.    } elsif ($ssx5 eq "999") {
  5741.       $ssaddmoney5 = 80 * $coin;
  5742.       $ssstwin = $ssstwin + 1;
  5743.       $beepnum = 3;
  5744.    } elsif ($ssx5 eq "101010") {
  5745.       $ssaddmoney5 = 20 * $coin;
  5746.       $ssstwin = $ssstwin + 1;
  5747.       $beepnum = 3;
  5748.    } else {
  5749.       $ssaddmoney5 = 0;
  5750.       $ssstlose = $ssstlose + 1;
  5751.    }   
  5752. }
  5753. sub sscalcfunds {
  5754. $money = $money + $ssaddmoney;
  5755. $ssstmc = $ssstmc + $ssaddmoney;
  5756. }
  5757. sub sslights {
  5758.    if ($sslines == 1) {
  5759.    $sspx2 = "$boldgreen";
  5760.    $sspx3 = "$boldgreen";
  5761.    } elsif ($sslines == 2) {
  5762.    $sspx2 = "$boldyellow";
  5763.    $sspx3 = "$boldgreen";
  5764.    } elsif ($sslines == 3) {
  5765.    $sspx2 = "$boldyellow";
  5766.    $sspx3 = "$boldyellow";
  5767.    } else {
  5768.    $sspx2 = "$boldgreen";
  5769.    $sspx3 = "$boldgreen";
  5770.    }
  5771. }
  5772. sub ssstartinfo {
  5773.    tokeneval();
  5774.    $ssstartinfo = <STDIN>;
  5775.    chomp($ssstartinfo);
  5776.    if (($ssstartinfo eq 'a') or ($ssstartinfo eq 'A')) {
  5777.       $ssstartinfo = $ssagaincmd;
  5778.    } elsif (($ssstartinfo eq 'p') or ($ssstartinfo eq 'P') or ($ssstartinfo eq '1p') or ($ssstartinfo eq '1P')
  5779.       or ($ssstartinfo eq '2p') or ($ssstartinfo eq '2P') or ($ssstartinfo eq '3p') or ($ssstartinfo eq '3P')) {
  5780.       $ssagaincmd = $ssstartinfo;
  5781.    } else {
  5782.       #Do Nothing      
  5783.    }
  5784.    if (($ssstartinfo eq 'p') or ($ssstartinfo eq 'P') or ($ssstartinfo eq '1p') or ($ssstartinfo eq '1P')) {
  5785.       if ($money >= (5 * $coin)) {
  5786.          $money = $money - (5 * $coin);
  5787.          $moneyexp = $moneyexp + (5 * $coin);
  5788.          $ssstmc2 = $ssstmc2 + (5 * $coin);
  5789.          $spins = $spins + 1;
  5790.          $ssstspins = $ssstspins + 1;
  5791.          $sslines = 1;
  5792.          $projkpot = $projkpot + (2 * $coin);
  5793.          newlines();
  5794.          ssmain();
  5795.       } else {
  5796.          newlines();
  5797.          ssmain2();
  5798.                
  5799.       }
  5800.    } elsif (($ssstartinfo eq '2p') or ($ssstartinfo eq '2P')) {
  5801.       if ($money >= (10 * $coin)) {
  5802.          $money = $money - (10 * $coin);
  5803.          $moneyexp = $moneyexp + (10 * $coin);
  5804.          $ssstmc2 = $ssstmc2 + (10 * $coin);
  5805.          $spins = $spins + 1;
  5806.          $ssstspins = $ssstspins + 1;
  5807.          $sslines = 2;
  5808.          $projkpot = $projkpot + (7 * $coin);
  5809.          newlines();
  5810.          ssmain();
  5811.       } else {
  5812.          newlines();
  5813.          ssmain2();      
  5814.       }   
  5815.    } elsif (($ssstartinfo eq '3p') or ($ssstartinfo eq '3P')) {
  5816.       if ($money >= (15 * $coin)) {
  5817.          $money = $money - (15 * $coin);
  5818.          $moneyexp = $moneyexp + (15 * $coin);
  5819.          $ssstmc2 = $ssstmc2 + (15 * $coin);
  5820.          $spins = $spins + 1;
  5821.          $ssstspins = $ssstspins + 1;
  5822.          $sslines = 3;
  5823.          $projkpot = $projkpot + (11 * $coin);
  5824.          newlines();
  5825.          ssmain();
  5826.       } else {
  5827.          newlines();
  5828.          ssmain2();      
  5829.       }      
  5830.    } elsif (($ssstartinfo eq 'exit') or ($ssstartinfo eq 'EXIT') or ($ssstartinfo eq 'quit') or ($ssstartinfo eq 'QUIT')) {
  5831.       exitgame();
  5832.    } elsif (($ssstartinfo eq 'c') or ($ssstartinfo eq 'C'))  {
  5833.       print "\n";
  5834.       return;
  5835.    } else {
  5836.       newlines();
  5837.       ssmain2();
  5838.    }
  5839. }
  5840. sub sssymseven1  { if ($esegpenguinhrs != 1) { print colored(' 7777777777777777 ',"$sscolor1 on_$bgcblack"); } else { print colored('      lINUx       ',"$sscolor1 on_$bgcblack"); } }
  5841. sub sssymseven2  { if ($esegpenguinhrs != 1) { print colored(' 7777777777777777 ',"$sscolor2 on_$bgcblack"); } else { print colored('     L',"$sscolor1 on_$bgcblack"); print colored('  ',"bold $sscolor1 on_$bgcwhite"); print colored('U',"$sscolor1 on_$bgcblack"); print colored('  ',"bold $sscolor1 on_$bgcwhite"); print colored('I      ',"$sscolor1 on_$bgcblack"); } }
  5842. sub sssymseven3  { if ($esegpenguinhrs != 1) { print colored(' 7777      777777 ',"$sscolor1 on_$bgcblack"); } else { print colored('     N',"$sscolor1 on_$bgcblack"); print colored('0 ',"$boldblack on_$bgcwhite"); print colored('L',"$sscolor1 on_$bgcblack"); print colored('0 ',"$boldblack on_$bgcwhite"); print colored('U      ',"$sscolor1 on_$bgcblack"); } }
  5843. sub sssymseven4  { if ($esegpenguinhrs != 1) { print colored('          777777  ',"$sscolor2 on_$bgcblack"); } else { print colored('     X-----L      ',"$sscolor1 on_$bgcblack"); } }
  5844. sub sssymseven5  { if ($esegpenguinhrs != 1) { print colored('         777777   ',"$sscolor1 on_$bgcblack"); } else { print colored('     IN   IN      ',"$sscolor1 on_$bgcblack"); } }
  5845. sub sssymseven6  { if ($esegpenguinhrs != 1) { print colored('        777777    ',"$sscolor2 on_$bgcblack"); } else { print colored('     UXLINUX      ',"$sscolor1 on_$bgcblack"); } }
  5846. sub sssymseven7  { if ($esegpenguinhrs != 1) { print colored('       777777     ',"$sscolor1 on_$bgcblack"); } else { print colored('    lINUXLINu     ',"$sscolor1 on_$bgcblack"); } }
  5847. sub sssymseven8  { if ($esegpenguinhrs != 1) { print colored('      7777777     ',"$sscolor2 on_$bgcblack"); } else { print colored('   uXLINUXLINu    ',"$sscolor1 on_$bgcblack"); } }
  5848. sub sssymseven9  { if ($esegpenguinhrs != 1) { print colored('     77777777     ',"$sscolor1 on_$bgcblack"); } else { print colored('   XLINUXLINUX    ',"$sscolor1 on_$bgcblack"); } }
  5849. sub sssymseven10 { if ($esegpenguinhrs != 1) { print colored('    777777777     ',"$sscolor2 on_$bgcblack"); } else { print colored('   LINUXLINUXL    ',"$sscolor1 on_$bgcblack"); } }
  5850. sub sssymseven11 { if ($esegpenguinhrs != 1) { print colored('    777777777     ',"$sscolor1 on_$bgcblack"); } else { print colored('  /  XLINUXL  \   ',"$sscolor1 on_$bgcblack"); } }  
  5851. sub sssymseven12 { if ($esegpenguinhrs != 1) { print colored('    7777777777    ',"$sscolor2 on_$bgcblack"); } else { print colored('  \   UXLIN   /   ',"$sscolor1 on_$bgcblack"); } }
  5852. sub sssymseven13 { if ($esegpenguinhrs != 1) { print colored('     7777777777   ',"$sscolor1 on_$bgcblack"); } else { print colored('   \___INU___/    ',"$sscolor1 on_$bgcblack"); } }
  5853. sub sssymseven1a  { if ($esegpenguinhrs != 1) { print colored(' **************** ',"$sscolor1 on_$bgcblack"); } else { print colored('      *****       ',"$sscolor1 on_$bgcblack"); } }
  5854. sub sssymseven2a  { if ($esegpenguinhrs != 1) { print colored(' **************** ',"$sscolor2 on_$bgcblack"); } else { print colored('     *',"$sscolor2 on_$bgcblack"); print colored('  ',"$white on_$bgcwhite"); print colored('*',"$sscolor2 on_$bgcblack"); print colored('  ',"$white on_$bgcwhite"); print colored('*      ',"$sscolor2 on_$bgcblack"); } }
  5855. sub sssymseven3a  { if ($esegpenguinhrs != 1) { print colored(' ****      ****** ',"$sscolor1 on_$bgcblack"); } else { print colored('     *',"$sscolor1 on_$bgcblack"); print colored(' $',"$boldyellow on_$bgcwhite"); print colored('*',"$sscolor1 on_$bgcblack"); print colored(' $',"$boldyellow on_$bgcwhite"); print colored('*      ',"$sscolor1 on_$bgcblack"); } }
  5856. sub sssymseven4a  { if ($esegpenguinhrs != 1) { print colored('          ******  ',"$sscolor2 on_$bgcblack"); } else { print colored('     *-----*      ',"$sscolor2 on_$bgcblack"); } }
  5857. sub sssymseven5a  { if ($esegpenguinhrs != 1) { print colored('         ******   ',"$sscolor1 on_$bgcblack"); } else { print colored('     **   **      ',"$sscolor1 on_$bgcblack"); } }
  5858. sub sssymseven6a  { if ($esegpenguinhrs != 1) { print colored('        ******    ',"$sscolor2 on_$bgcblack"); } else { print colored('     *******      ',"$sscolor2 on_$bgcblack"); } }
  5859. sub sssymseven7a  { if ($esegpenguinhrs != 1) { print colored('       ******     ',"$sscolor1 on_$bgcblack"); } else { print colored('    *********     ',"$sscolor1 on_$bgcblack"); } }
  5860. sub sssymseven8a  { if ($esegpenguinhrs != 1) { print colored('      ******      ',"$sscolor2 on_$bgcblack"); } else { print colored('   ***********    ',"$sscolor2 on_$bgcblack"); } }
  5861. sub sssymseven9a  { if ($esegpenguinhrs != 1) { print colored('     ******       ',"$sscolor1 on_$bgcblack"); } else { print colored('   ***********    ',"$sscolor1 on_$bgcblack"); } }
  5862. sub sssymseven10a { if ($esegpenguinhrs != 1) { print colored('    ******        ',"$sscolor2 on_$bgcblack"); } else { print colored('   ***********    ',"$sscolor2 on_$bgcblack"); } }
  5863. sub sssymseven11a { if ($esegpenguinhrs != 1) { print colored('   ******         ',"$sscolor1 on_$bgcblack"); } else { print colored('  /--*******--\   ',"$sscolor1 on_$bgcblack"); } }  
  5864. sub sssymseven12a { if ($esegpenguinhrs != 1) { print colored('  ******          ',"$sscolor2 on_$bgcblack"); } else { print colored('  \---*****---/   ',"$sscolor2 on_$bgcblack"); } }
  5865. sub sssymseven13a { if ($esegpenguinhrs != 1) { print colored(' ******           ',"$sscolor1 on_$bgcblack"); } else { print colored('   \___***___/    ',"$sscolor1 on_$bgcblack"); } }                 
  5866. sub sssymseven1b  { if ($esegpenguinhrs != 1) { print colored('   777777777      ',"$sscolor2 on_$bgcblack"); } else { print colored('   /~~~INU~~~\    ',"$sscolor2 on_$bgcblack"); } }
  5867. sub sssymseven2b  { if ($esegpenguinhrs != 1) { print colored('    77777777',"$sscolor1 on_$bgcblack"); print colored('K     ',"bold $sscolor2 on_$bgcblack"); } else { print colored('  /   UXLIN   \   ',"$sscolor1 on_$bgcblack"); } }
  5868. sub sssymseven3b  { if ($esegpenguinhrs != 1) { print colored('     777777',"$sscolor2 on_$bgcblack"); print colored('N',"bold $sscolor1 on_$bgcblack"); print colored('7     ',"$sscolor2 on_$bgcblack"); } else { print colored('  \  XLINUXL  /   ',"$sscolor2 on_$bgcblack"); } }
  5869. sub sssymseven4b  { if ($esegpenguinhrs != 1) { print colored('     77777',"$sscolor1 on_$bgcblack"); print colored('A',"bold $sscolor2 on_$bgcblack"); print colored('77     ',"$sscolor1 on_$bgcblack"); } else { print colored('   LINUXLINUXL    ',"$sscolor1 on_$bgcblack"); } }
  5870. sub sssymseven5b  { if ($esegpenguinhrs != 1) { print colored('     7777',"$sscolor2 on_$bgcblack"); print colored('L',"bold $sscolor1 on_$bgcblack"); print colored('777     ',"$sscolor2 on_$bgcblack"); } else { print colored('   XLINUXLINUX    ',"$sscolor2 on_$bgcblack"); } }
  5871. sub sssymseven6b  { if ($esegpenguinhrs != 1) { print colored('     777',"$sscolor1 on_$bgcblack"); print colored('B',"bold $sscolor2 on_$bgcblack"); print colored('777      ',"$sscolor1 on_$bgcblack"); } else { print colored('   uXLINUXLINu    ',"$sscolor1 on_$bgcblack"); } }
  5872. sub sssymseven7b  { if ($esegpenguinhrs != 1) { print colored('     77',"$sscolor2 on_$bgcblack"); print colored('/',"bold $sscolor1 on_$bgcblack"); print colored('777       ',"$sscolor2 on_$bgcblack"); } else { print colored('    lINUXLINu     ',"$sscolor2 on_$bgcblack"); } }
  5873. sub sssymseven8b  { if ($esegpenguinhrs != 1) { print colored('    77',"$sscolor1 on_$bgcblack"); print colored('/',"bold $sscolor2 on_$bgcblack"); print colored('777        ',"$sscolor1 on_$bgcblack"); } else { print colored('     UXLINUX      ',"$sscolor1 on_$bgcblack"); } }
  5874. sub sssymseven9b  { if ($esegpenguinhrs != 1) { print colored('   77',"$sscolor2 on_$bgcblack"); print colored('K',"bold $sscolor1 on_$bgcblack"); print colored('777         ',"$sscolor2 on_$bgcblack"); } else { print colored('     IN   IN      ',"$sscolor2 on_$bgcblack"); } }
  5875. sub sssymseven10b { if ($esegpenguinhrs != 1) { print colored('  77',"$sscolor1 on_$bgcblack"); print colored('N',"bold $sscolor2 on_$bgcblack"); print colored('777          ',"$sscolor1 on_$bgcblack"); } else { print colored('     X-----L      ',"$sscolor1 on_$bgcblack"); } }
  5876. sub sssymseven11b { if ($esegpenguinhrs != 1) { print colored(' 77',"$sscolor2 on_$bgcblack"); print colored('A',"bold $sscolor1 on_$bgcblack"); print colored('777      7777 ',"$sscolor2 on_$bgcblack"); } else { print colored('     N',"$sscolor2 on_$bgcblack"); print colored('\\/',"$red on_$bgcblack"); print colored('L',"$sscolor2 on_$bgcblack"); print colored('\\/',"$red on_$bgcblack"); print colored('U      ',"$sscolor2 on_$bgcblack"); } }
  5877. sub sssymseven12b { if ($esegpenguinhrs != 1) { print colored(' 7',"$sscolor1 on_$bgcblack"); print colored('L',"bold $sscolor2 on_$bgcblack"); print colored('77777777777777 ',"$sscolor1 on_$bgcblack"); } else { print colored('     L',"$sscolor1 on_$bgcblack"); print colored('/\\',"$red on_$bgcblack"); print colored('U',"$sscolor1 on_$bgcblack"); print colored('/\\',"$red on_$bgcblack"); print colored('I      ',"$sscolor1 on_$bgcblack"); } }
  5878. sub sssymseven13b { if ($esegpenguinhrs != 1) { print colored(' B',"bold $sscolor1 on_$bgcblack"); print colored('777777777777777 ',"$sscolor2 on_$bgcblack"); } else { print colored('      lINUx       ',"$sscolor2 on_$bgcblack"); } }
  5879. sub sssymwhite { print colored('                  ',"$black on_$bgcblack"); }
  5880. sub sssymspining { print colored('||||||||||||||||||',"$boldblack on_$bgcblack"); }
  5881. sub sssympayline { print colored('INE            PAY',"$boldwhite on_$bgcgreen"); }
  5882. sub ssspinreel {
  5883.    #incomplete don't go over 55  #later: why?, it's at 60 now, I must of completed it and forgot to remove this comment
  5884.    $ssslotsymbol1 = int(rand(65));
  5885.    $ssslotsymbol1a = int(rand(65));
  5886.    $ssslotsymbol1b = int(rand(65));
  5887.    
  5888.    $ssslotsymbol2 = int(rand(65));
  5889.    $ssslotsymbol2a = int(rand(65));
  5890.    $ssslotsymbol2b = int(rand(65));
  5891.    
  5892.    $ssslotsymbol3 = int(rand(65));
  5893.    $ssslotsymbol3a = int(rand(65));
  5894.    $ssslotsymbol3b = int(rand(65));
  5895.    $ssmisalign1 = int(rand(60));
  5896.    $ssmisalign2 = int(rand(60));
  5897.    $ssmisalign3 = int(rand(60));
  5898.    if ($ssmisalign1 <= 5) {
  5899.       $ssmisalign1 = 1;
  5900.    } else {
  5901.       $ssmisalign1 = 0;
  5902.    }
  5903.    
  5904.    if ($ssmisalign2 <= 5) {
  5905.       $ssmisalign2 = 1;
  5906.    } else {
  5907.       $ssmisalign2 = 0;
  5908.    }
  5909.    
  5910.    if ($ssmisalign3 <= 5) {
  5911.       $ssmisalign3 = 1;
  5912.    } else {
  5913.       $ssmisalign3 = 0;
  5914.    }   
  5915. }
  5916. #sparkel
  5917. #
  5918. #bold black magenta bold black 1
  5919. #magenta bold black magenta 2
  5920. #green      3
  5921. #cyan       4
  5922. #
  5923. #regular
  5924. #
  5925. #bold magenta 5
  5926. #bold green   6
  5927. #bold cyan    7
  5928. #bold yellow  8
  5929. #bold white   9
  5930. #red          10
  5931. sub sscolorrand {
  5932.    $ssslotcolorn = int(rand(45));
  5933.    if ($ssslotcolorn <= 9) {
  5934.       $sscolorrand = "$red";
  5935.    } elsif ($ssslotcolorn <= 18) {
  5936.       $sscolorrand = "$boldwhite";
  5937.    } elsif ($ssslotcolorn <= 26) {
  5938.       $sscolorrand = "$boldyellow";
  5939.    } elsif ($ssslotcolorn <= 33) {
  5940.       $sscolorrand = "$boldcyan";
  5941.    } elsif ($ssslotcolorn <= 39) {
  5942.       $sscolorrand = "$boldgreen";
  5943.    } else {
  5944.       $sscolorrand = "$boldmagenta";
  5945.    }
  5946. }
  5947. sub ssreeltrans { 
  5948.    if ($ssslotsymbol1 <= 9) {
  5949.    $sssvslot1 = 10;
  5950.    $ssr1colora = "$red";
  5951.    $ssr1colorb = "$red";
  5952.    } elsif ($ssslotsymbol1 <= 18) {
  5953.    $sssvslot1 = 9;
  5954.    $ssr1colora = "$boldwhite";
  5955.    $ssr1colorb = "$boldwhite";
  5956.    } elsif ($ssslotsymbol1 <= 26) {
  5957.    $sssvslot1 = 8;
  5958.    $ssr1colora = "$boldyellow";
  5959.    $ssr1colorb = "$boldyellow";
  5960.    } elsif ($ssslotsymbol1 <= 33) {
  5961.    $sssvslot1 = 7;
  5962.    $ssr1colora = "$blue";
  5963.    $ssr1colorb = "$blue";
  5964.    } elsif ($ssslotsymbol1 <= 39) {
  5965.    $sssvslot1 = 6;
  5966.    $ssr1colora = "$boldgreen";
  5967.    $ssr1colorb = "$boldgreen";
  5968.    } elsif ($ssslotsymbol1 <= 44) {
  5969.    $sssvslot1 = 5;
  5970.    $ssr1colora = "$boldmagenta";
  5971.    $ssr1colorb = "$boldmagenta";
  5972.    #####################################
  5973.    } elsif ($ssslotsymbol1 <= 48) {
  5974.    $sssvslot1 = 4;
  5975.    $ssr1colora = "$cyan";
  5976.    $ssr1colorb = "$boldcyan";
  5977.    } elsif ($ssslotsymbol1 <= 51) {
  5978.    $sssvslot1 = 3;
  5979.    $ssr1colora = "$green";   
  5980.    $ssr1colorb = "$boldgreen";
  5981.    } elsif ($ssslotsymbol1 <= 53) {
  5982.    $sssvslot1 = 2;
  5983.    $ssr1colora = "$magenta";   
  5984.    $ssr1colorb = "$boldmagenta";
  5985.    } elsif ($ssslotsymbol1 == 54) {
  5986.    $sssvslot1 = 1;
  5987.    $ssr1colora = "$boldblack";   
  5988.    $ssr1colorb = "$boldwhite";
  5989.    } elsif ($ssslotsymbol1 <= 58) {
  5990.       $sssvslot1 = 10;
  5991.       $ssr1colora = "$red";
  5992.       $ssr1colorb = "$red";
  5993.    } elsif ($ssslotsymbol1 >= 59) {
  5994.    $sssvslot1 = 12;
  5995.    $ssr1colora = "$white";   
  5996.    $ssr1colorb = "$cyan";
  5997.    } else {
  5998.    $sssvslot1 = 0;
  5999.    $ssr1colora = "$white";   
  6000.    $ssr1colorb = "$white";
  6001.    }
  6002.    if ($ssslotsymbol2 <= 9) {
  6003.    $sssvslot2 = 10;
  6004.    $ssr2colora = "$red";
  6005.    $ssr2colorb = "$red";
  6006.    } elsif ($ssslotsymbol2 <= 18) {
  6007.    $sssvslot2 = 9;
  6008.    $ssr2colora = "$boldwhite";
  6009.    $ssr2colorb = "$boldwhite";
  6010.    } elsif ($ssslotsymbol2 <= 26) {
  6011.    $sssvslot2 = 8;
  6012.    $ssr2colora = "$boldyellow";
  6013.    $ssr2colorb = "$boldyellow";
  6014.    } elsif ($ssslotsymbol2 <= 33) {
  6015.    $sssvslot2 = 7;
  6016.    $ssr2colora = "$blue";
  6017.    $ssr2colorb = "$blue";
  6018.    } elsif ($ssslotsymbol2 <= 39) {
  6019.    $sssvslot2 = 6;
  6020.    $ssr2colora = "$boldgreen";
  6021.    $ssr2colorb = "$boldgreen";
  6022.    } elsif ($ssslotsymbol2 <= 44) {
  6023.    $sssvslot2 = 5;
  6024.    $ssr2colora = "$boldmagenta";
  6025.    $ssr2colorb = "$boldmagenta";
  6026.    #####################################
  6027.    } elsif ($ssslotsymbol2 <= 48) {
  6028.    $sssvslot2 = 4;
  6029.    $ssr2colora = "$boldcyan";
  6030.    $ssr2colorb = "$cyan";
  6031.    } elsif ($ssslotsymbol2 <= 51) {
  6032.    $sssvslot2 = 3;
  6033.    $ssr2colora = "$boldgreen";   
  6034.    $ssr2colorb = "$green";
  6035.    } elsif ($ssslotsymbol2 <= 53) {
  6036.    $sssvslot2 = 2;
  6037.    $ssr2colora = "$boldwhite";   
  6038.    $ssr2colorb = "$boldblack";
  6039.    } elsif ($ssslotsymbol2 == 54) {
  6040.    $sssvslot2 = 1;
  6041.    $ssr2colora = "$boldmagenta";   
  6042.    $ssr2colorb = "$magenta";
  6043.    } elsif ($ssslotsymbol2 <= 58) {
  6044.       $sssvslot2 = 10;
  6045.       $ssr2colora = "$red";
  6046.       $ssr2colorb = "$red";
  6047.    } elsif ($ssslotsymbol2 >= 59) {
  6048.    $sssvslot2 = 12;
  6049.    $ssr2colora = "$cyan";   
  6050.    $ssr2colorb = "$white";
  6051.    } else {
  6052.    $sssvslot2 = 0;
  6053.    $ssr2colora = "$white";   
  6054.    $ssr2colorb = "$white";
  6055.    }
  6056.    if ($ssslotsymbol3 <= 9) {
  6057.    $sssvslot3 = 10;
  6058.    $ssr3colora = "$red";
  6059.    $ssr3colorb = "$red";
  6060.    } elsif ($ssslotsymbol3 <= 18) {
  6061.    $sssvslot3 = 9;
  6062.    $ssr3colora = "$boldwhite";
  6063.    $ssr3colorb = "$boldwhite";
  6064.    } elsif ($ssslotsymbol3 <= 26) {
  6065.    $sssvslot3 = 8;
  6066.    $ssr3colora = "$boldyellow";
  6067.    $ssr3colorb = "$boldyellow";
  6068.    } elsif ($ssslotsymbol3 <= 33) {
  6069.    $sssvslot3 = 7;
  6070.    $ssr3colora = "$blue";
  6071.    $ssr3colorb = "$blue";
  6072.    } elsif ($ssslotsymbol3 <= 39) {
  6073.    $sssvslot3 = 6;
  6074.    $ssr3colora = "$boldgreen";
  6075.    $ssr3colorb = "$boldgreen";
  6076.    } elsif ($ssslotsymbol3 <= 44) {
  6077.    $sssvslot3 = 5;
  6078.    $ssr3colora = "$boldmagenta";
  6079.    $ssr3colorb = "$boldmagenta";
  6080.    #####################################
  6081.    } elsif ($ssslotsymbol3 <= 48) {
  6082.    $sssvslot3 = 4;
  6083.    $ssr3colora = "$cyan";
  6084.    $ssr3colorb = "$boldcyan";
  6085.    } elsif ($ssslotsymbol3 <= 51) {
  6086.    $sssvslot3 = 3;
  6087.    $ssr3colora = "$green";   
  6088.    $ssr3colorb = "$boldgreen";
  6089.    } elsif ($ssslotsymbol3 <= 53) {
  6090.    $sssvslot3 = 2;
  6091.    $ssr3colora = "$magenta";   
  6092.    $ssr3colorb = "$boldmagenta";
  6093.    } elsif ($ssslotsymbol3 == 54) {
  6094.    $sssvslot3 = 1;
  6095.    $ssr3colora = "$boldblack";   
  6096.    $ssr3colorb = "$boldwhite";
  6097.    } elsif ($ssslotsymbol3 <= 58) {
  6098.       #4 More Red
  6099.       $sssvslot3 = 10;
  6100.       $ssr3colora = "$red";
  6101.       $ssr3colorb = "$red";
  6102.    } elsif ($ssslotsymbol3 >= 59) {
  6103.    $sssvslot3 = 12;
  6104.    $ssr3colora = "$white";   
  6105.    $ssr3colorb = "$cyan";
  6106.    } else {
  6107.    $sssvslot3 = 0;
  6108.    $ssr3colora = "$white";   
  6109.    $ssr3colorb = "$white";
  6110.    }
  6111.    
  6112.    
  6113.    
  6114.    if ($ssslotsymbol1a <= 9) {
  6115.    $sssvslot1a = 10;
  6116.    $ssr1coloraa = "$red";
  6117.    $ssr1colorba = "$red";
  6118.    } elsif ($ssslotsymbol1a <= 18) {
  6119.    $sssvslot1a = 9;
  6120.    $ssr1coloraa = "$boldwhite";
  6121.    $ssr1colorba = "$boldwhite";
  6122.    } elsif ($ssslotsymbol1a <= 26) {
  6123.    $sssvslot1a = 8;
  6124.    $ssr1coloraa = "$boldyellow";
  6125.    $ssr1colorba = "$boldyellow";
  6126.    } elsif ($ssslotsymbol1a <= 33) {
  6127.    $sssvslot1a = 7;
  6128.    $ssr1coloraa = "$blue";
  6129.    $ssr1colorba = "$blue";
  6130.    } elsif ($ssslotsymbol1a <= 39) {
  6131.    $sssvslot1a = 6;
  6132.    $ssr1coloraa = "$boldgreen";
  6133.    $ssr1colorba = "$boldgreen";
  6134.    } elsif ($ssslotsymbol1a <= 44) {
  6135.    $sssvslot1a = 5;
  6136.    $ssr1coloraa = "$boldmagenta";
  6137.    $ssr1colorba = "$boldmagenta";
  6138.    #####################################
  6139.    } elsif ($ssslotsymbol1a <= 48) {
  6140.    $sssvslot1a = 4;
  6141.    $ssr1coloraa = "$cyan";
  6142.    $ssr1colorba = "$boldcyan";
  6143.    } elsif ($ssslotsymbol1a <= 51) {
  6144.    $sssvslot1a = 3;
  6145.    $ssr1coloraa = "$green";   
  6146.    $ssr1colorba = "$boldgreen";
  6147.    } elsif ($ssslotsymbol1a <= 53) {
  6148.    $sssvslot1a = 2;
  6149.    $ssr1coloraa = "$magenta";   
  6150.    $ssr1colorba = "$boldmagenta";
  6151.    } elsif ($ssslotsymbol1a == 54) {
  6152.    $sssvslot1a = 1;
  6153.    $ssr1coloraa = "$boldblack";   
  6154.    $ssr1colorba = "$boldwhite";
  6155.    } elsif ($ssslotsymbol1a <= 58) {
  6156.       #4 More Red
  6157.       $sssvslot1a = 10;
  6158.       $ssr1coloraa = "$red";
  6159.       $ssr1colorba = "$red";
  6160.    } elsif ($ssslotsymbol1a >= 59) {
  6161.    $sssvslot1a = 12;
  6162.    $ssr1coloraa = "$white";   
  6163.    $ssr1colorba = "$cyan";
  6164.    } else {
  6165.    $sssvslot1a = 0;
  6166.    $ssr1coloraa = "$white";   
  6167.    $ssr1colorba = "$white";
  6168.    }
  6169.    if ($ssslotsymbol2a <= 9) {
  6170.    $sssvslot2a = 10;
  6171.    $ssr2coloraa = "$red";
  6172.    $ssr2colorba = "$red";
  6173.    } elsif ($ssslotsymbol2a <= 18) {
  6174.    $sssvslot2a = 9;
  6175.    $ssr2coloraa = "$boldwhite";
  6176.    $ssr2colorba = "$boldwhite";
  6177.    } elsif ($ssslotsymbol2a <= 26) {
  6178.    $sssvslot2a = 8;
  6179.    $ssr2coloraa = "$boldyellow";
  6180.    $ssr2colorba = "$boldyellow";
  6181.    } elsif ($ssslotsymbol2a <= 33) {
  6182.    $sssvslot2a = 7;
  6183.    $ssr2coloraa = "$blue";
  6184.    $ssr2colorba = "$blue";
  6185.    } elsif ($ssslotsymbol2a <= 39) {
  6186.    $sssvslot2a = 6;
  6187.    $ssr2coloraa = "$boldgreen";
  6188.    $ssr2colorba = "$boldgreen";
  6189.    } elsif ($ssslotsymbol2a <= 44) {
  6190.    $sssvslot2a = 5;
  6191.    $ssr2coloraa = "$boldmagenta";
  6192.    $ssr2colorba = "$boldmagenta";
  6193.    #####################################
  6194.    } elsif ($ssslotsymbol2a <= 48) {
  6195.    $sssvslot2a = 4;
  6196.    $ssr2coloraa = "$boldcyan";
  6197.    $ssr2colorba = "$cyan";
  6198.    } elsif ($ssslotsymbol2a <= 51) {
  6199.    $sssvslot2a = 3;
  6200.    $ssr2coloraa = "$boldgreen";   
  6201.    $ssr2colorba = "$green";
  6202.    } elsif ($ssslotsymbol2a <= 53) {
  6203.    $sssvslot2a = 2;
  6204.    $ssr2coloraa = "$boldwhite";   
  6205.    $ssr2colorba = "$boldblack";
  6206.    } elsif ($ssslotsymbol2a == 54) {
  6207.    $sssvslot2a = 1;
  6208.    $ssr2coloraa = "$boldmagenta";   
  6209.    $ssr2colorba = "$magenta";
  6210.    } elsif ($ssslotsymbol2a <= 58) {
  6211.       #4 More Red
  6212.       $sssvslot2a = 10;
  6213.       $ssr2coloraa = "$red";
  6214.       $ssr2colorba = "$red";
  6215.    } elsif ($ssslotsymbol2a >= 59) {
  6216.    $sssvslot2a = 12;
  6217.    $ssr2coloraa = "$cyan";   
  6218.    $ssr2colorba = "$white";
  6219.    } else {
  6220.    $sssvslot2a = 0;
  6221.    $ssr2coloraa = "$white";   
  6222.    $ssr2colorba = "$white";
  6223.    }
  6224.    if ($ssslotsymbol3a <= 9) {
  6225.    $sssvslot3a = 10;
  6226.    $ssr3coloraa = "$red";
  6227.    $ssr3colorba = "$red";
  6228.    } elsif ($ssslotsymbol3a <= 18) {
  6229.    $sssvslot3a = 9;
  6230.    $ssr3coloraa = "$boldwhite";
  6231.    $ssr3colorba = "$boldwhite";
  6232.    } elsif ($ssslotsymbol3a <= 26) {
  6233.    $sssvslot3a = 8;
  6234.    $ssr3coloraa = "$boldyellow";
  6235.    $ssr3colorba = "$boldyellow";
  6236.    } elsif ($ssslotsymbol3a <= 33) {
  6237.    $sssvslot3a = 7;
  6238.    $ssr3coloraa = "$blue";
  6239.    $ssr3colorba = "$blue";
  6240.    } elsif ($ssslotsymbol3a <= 39) {
  6241.    $sssvslot3a = 6;
  6242.    $ssr3coloraa = "$boldgreen";
  6243.    $ssr3colorba = "$boldgreen";
  6244.    } elsif ($ssslotsymbol3a <= 44) {
  6245.    $sssvslot3a = 5;
  6246.    $ssr3coloraa = "$boldmagenta";
  6247.    $ssr3colorba = "$boldmagenta";
  6248.    #####################################
  6249.    } elsif ($ssslotsymbol3a <= 48) {
  6250.    $sssvslot3a = 4;
  6251.    $ssr3coloraa = "$cyan";
  6252.    $ssr3colorba = "$boldcyan";
  6253.    } elsif ($ssslotsymbol3a <= 51) {
  6254.    $sssvslot3a = 3;
  6255.    $ssr3coloraa = "$green";   
  6256.    $ssr3colorba = "$boldgreen";
  6257.    } elsif ($ssslotsymbol3a <= 53) {
  6258.    $sssvslot3a = 2;
  6259.    $ssr3coloraa = "$magenta";   
  6260.    $ssr3colorba = "$boldmagenta";
  6261.    } elsif ($ssslotsymbol3a == 54) {
  6262.    $sssvslot3a = 1;
  6263.    $ssr3coloraa = "$boldblack";   
  6264.    $ssr3colorba = "$boldwhite";
  6265.    } elsif ($ssslotsymbol3a <= 58) {
  6266.       #4 More Red
  6267.       $sssvslot3a = 10;
  6268.       $ssr3coloraa = "$red";
  6269.       $ssr3colorba = "$red";
  6270.    } elsif ($ssslotsymbol3a >= 59) {
  6271.    $sssvslot3a = 12;
  6272.    $ssr3coloraa = "$white";   
  6273.    $ssr3colorba = "$cyan";
  6274.    } else {
  6275.    $sssvslot3a = 0;
  6276.    $ssr3coloraa = "$white";   
  6277.    $ssr3colorba = "$white";
  6278.    }   
  6279.    
  6280.    
  6281.    
  6282.    
  6283.    if ($ssslotsymbol1b <= 9) {
  6284.    $sssvslot1b = 10;
  6285.    $ssr1colorab = "$red";
  6286.    $ssr1colorbb = "$red";
  6287.    } elsif ($ssslotsymbol1b <= 18) {
  6288.    $sssvslot1b = 9;
  6289.    $ssr1colorab = "$boldwhite";
  6290.    $ssr1colorbb = "$boldwhite";
  6291.    } elsif ($ssslotsymbol1b <= 26) {
  6292.    $sssvslot1b = 8;
  6293.    $ssr1colorab = "$boldyellow";
  6294.    $ssr1colorbb = "$boldyellow";
  6295.    } elsif ($ssslotsymbol1b <= 33) {
  6296.    $sssvslot1b = 7;
  6297.    $ssr1colorab = "$blue";
  6298.    $ssr1colorbb = "$blue";
  6299.    } elsif ($ssslotsymbol1b <= 39) {
  6300.    $sssvslot1b = 6;
  6301.    $ssr1colorab = "$boldgreen";
  6302.    $ssr1colorbb = "$boldgreen";
  6303.    } elsif ($ssslotsymbol1b <= 44) {
  6304.    $sssvslot1b = 5;
  6305.    $ssr1colorab = "$boldmagenta";
  6306.    $ssr1colorbb = "$boldmagenta";
  6307.    #####################################
  6308.    } elsif ($ssslotsymbol1b <= 48) {
  6309.    $sssvslot1b = 4;
  6310.    $ssr1colorab = "$cyan";
  6311.    $ssr1colorbb = "$boldcyan";
  6312.    } elsif ($ssslotsymbol1b <= 51) {
  6313.    $sssvslot1b = 3;
  6314.    $ssr1colorab = "$green";   
  6315.    $ssr1colorbb = "$boldgreen";
  6316.    } elsif ($ssslotsymbol1b <= 53) {
  6317.    $sssvslot1b = 2;
  6318.    $ssr1colorab = "$magenta";   
  6319.    $ssr1colorbb = "$boldmagenta";
  6320.    } elsif ($ssslotsymbol1b == 54) {
  6321.    $sssvslot1b = 1;
  6322.    $ssr1colorab = "$boldblack";   
  6323.    $ssr1colorbb = "$boldwhite";
  6324.    } elsif ($ssslotsymbol1b <= 58) {
  6325.       #4 More Red
  6326.       $sssvslot1b = 10;
  6327.       $ssr1colorab = "$red";
  6328.       $ssr1colorbb = "$red";
  6329.    } elsif ($ssslotsymbol1b >= 59) {
  6330.    $sssvslot1b = 12;
  6331.    $ssr1colorab = "$white";   
  6332.    $ssr1colorbb = "$cyan";
  6333.    } else {
  6334.    $sssvslot1b = 0;
  6335.    $ssr1colorab = "$white";   
  6336.    $ssr1colorbb = "$white";
  6337.    }
  6338.    if ($ssslotsymbol2b <= 9) {
  6339.    $sssvslot2b = 10;
  6340.    $ssr2colorab = "$red";
  6341.    $ssr2colorbb = "$red";
  6342.    } elsif ($ssslotsymbol2b <= 18) {
  6343.    $sssvslot2b = 9;
  6344.    $ssr2colorab = "$boldwhite";
  6345.    $ssr2colorbb = "$boldwhite";
  6346.    } elsif ($ssslotsymbol2b <= 26) {
  6347.    $sssvslot2b = 8;
  6348.    $ssr2colorab = "$boldyellow";
  6349.    $ssr2colorbb = "$boldyellow";
  6350.    } elsif ($ssslotsymbol2b <= 33) {
  6351.    $sssvslot2b = 7;
  6352.    $ssr2colorab = "$blue";
  6353.    $ssr2colorbb = "$blue";
  6354.    } elsif ($ssslotsymbol2b <= 39) {
  6355.    $sssvslot2b = 6;
  6356.    $ssr2colorab = "$boldgreen";
  6357.    $ssr2colorbb = "$boldgreen";
  6358.    } elsif ($ssslotsymbol2b <= 44) {
  6359.    $sssvslot2b = 5;
  6360.    $ssr2colorab = "$boldmagenta";
  6361.    $ssr2colorbb = "$boldmagenta";
  6362.    #####################################
  6363.    } elsif ($ssslotsymbol2b <= 48) {
  6364.    $sssvslot2b = 4;
  6365.    $ssr2colorab = "$boldcyan";
  6366.    $ssr2colorbb = "$cyan";
  6367.    } elsif ($ssslotsymbol2b <= 51) {
  6368.    $sssvslot2b = 3;
  6369.    $ssr2colorab = "$boldgreen";   
  6370.    $ssr2colorbb = "$green";
  6371.    } elsif ($ssslotsymbol2b <= 53) {
  6372.    $sssvslot2b = 2;
  6373.    $ssr2colorab = "$boldwhite";   
  6374.    $ssr2colorbb = "$boldblack";
  6375.    } elsif ($ssslotsymbol2b == 54) {
  6376.    $sssvslot2b = 1;
  6377.    $ssr2colorab = "$boldmagenta";   
  6378.    $ssr2colorbb = "$magenta";
  6379.    } elsif ($ssslotsymbol2b <= 58) {
  6380.       #4 More Red
  6381.       $sssvslot2b = 10;
  6382.       $ssr2colorab = "$red";
  6383.       $ssr2colorbb = "$red";
  6384.    } elsif ($ssslotsymbol2b >= 59) {
  6385.    $sssvslot2b = 12;
  6386.    $ssr2colorab = "$cyan";   
  6387.    $ssr2colorbb = "$white";
  6388.    } else {
  6389.    $sssvslot2b = 0;
  6390.    $ssr2colorab = "$white";   
  6391.    $ssr2colorbb = "$white";
  6392.    }
  6393.    if ($ssslotsymbol3b <= 9) {
  6394.    $sssvslot3b = 10;
  6395.    $ssr3colorab = "$red";
  6396.    $ssr3colorbb = "$red";
  6397.    } elsif ($ssslotsymbol3b <= 18) {
  6398.    $sssvslot3b = 9;
  6399.    $ssr3colorab = "$boldwhite";
  6400.    $ssr3colorbb = "$boldwhite";
  6401.    } elsif ($ssslotsymbol3b <= 26) {
  6402.    $sssvslot3b = 8;
  6403.    $ssr3colorab = "$boldyellow";
  6404.    $ssr3colorbb = "$boldyellow";
  6405.    } elsif ($ssslotsymbol3b <= 33) {
  6406.    $sssvslot3b = 7;
  6407.    $ssr3colorab = "$blue";
  6408.    $ssr3colorbb = "$blue";
  6409.    } elsif ($ssslotsymbol3b <= 39) {
  6410.    $sssvslot3b = 6;
  6411.    $ssr3colorab = "$boldgreen";
  6412.    $ssr3colorbb = "$boldgreen";
  6413.    } elsif ($ssslotsymbol3b <= 44) {
  6414.    $sssvslot3b = 5;
  6415.    $ssr3colorab = "$boldmagenta";
  6416.    $ssr3colorbb = "$boldmagenta";
  6417.    #####################################
  6418.    } elsif ($ssslotsymbol3b <= 48) {
  6419.    $sssvslot3b = 4;
  6420.    $ssr3colorab = "$cyan";
  6421.    $ssr3colorbb = "$boldcyan";
  6422.    } elsif ($ssslotsymbol3b <= 51) {
  6423.    $sssvslot3b = 3;
  6424.    $ssr3colorab = "$green";   
  6425.    $ssr3colorbb = "$boldgreen";
  6426.    } elsif ($ssslotsymbol3b <= 53) {
  6427.    $sssvslot3b = 2;
  6428.    $ssr3colorab = "$magenta";   
  6429.    $ssr3colorbb = "$boldmagenta";
  6430.    } elsif ($ssslotsymbol3b == 54) {
  6431.    $sssvslot3b = 1;
  6432.    $ssr3colorab = "$boldblack";   
  6433.    $ssr3colorbb = "$boldwhite";
  6434.    } elsif ($ssslotsymbol3b <= 58) {
  6435.       #4 More Red
  6436.       $sssvslot3b = 10;
  6437.       $ssr3colorab = "$red";
  6438.       $ssr3colorbb = "$red";
  6439.    } elsif ($ssslotsymbol3b >= 59) {
  6440.    $sssvslot3b = 12;
  6441.    $ssr3colorab = "$white";   
  6442.    $ssr3colorbb = "$cyan";
  6443.    } else {
  6444.    $sssvslot3b = 0;
  6445.    $ssr3colorab = "$white";   
  6446.    $ssr3colorbb = "$white";
  6447.    }   
  6448.    
  6449. }
  6450. sub ssslotm5 {
  6451.       sssymseven3();   
  6452. }
  6453. sub ssslotm4 {
  6454.       sssymseven4();   
  6455. }
  6456. sub ssslotm3 {
  6457.       sssymseven5();   
  6458. }
  6459. sub ssslotm2 {
  6460.       sssymseven6();   
  6461. }
  6462. sub ssslotm1 {
  6463.    if ($ssslot1 eq 'spining') {
  6464.       sssymspining();
  6465.    } elsif ($ssslot1 eq 'misaliga') {
  6466.       sssymwhite();
  6467.    } elsif ($ssslot1 eq 'misalig') {
  6468.       if ($ssslotmis1 == 12) {
  6469.          sssymseven7b();
  6470.       } elsif ($ssslotmis1 <= 4) {
  6471.          sssymseven7a();
  6472.       } elsif ($ssslotmis1 >= 5) {
  6473.          sssymseven7();
  6474.       } else {
  6475.          sssymwhite();
  6476.       }
  6477.    } elsif ($ssslot1 eq 'misaligb') {
  6478.       sssymwhite();
  6479.    } elsif ($ssslot1 == 11) {
  6480.       sssymseven7();   
  6481.    } else {
  6482.       sssymwhite();
  6483.    }
  6484. }               
  6485.          
  6486. sub ssslot1 {
  6487.    if ($ssslot1 eq 'spining') {
  6488.       sssymspining();
  6489.    } elsif ($ssslot1 eq 'misaliga') {
  6490.       sssymwhite();
  6491.    } elsif ($ssslot1 eq 'misalig') {
  6492.       if ($ssslotmis1 == 12) {
  6493.          sssymseven8b();
  6494.       } elsif ($ssslotmis1 <= 4) {
  6495.          sssymseven8a();
  6496.       } elsif ($ssslotmis1 >= 5) {
  6497.          sssymseven8();
  6498.       } else {
  6499.          sssymwhite();
  6500.       }
  6501.    } elsif ($ssslot1 eq 'misaligb') {
  6502.       if ($ssslotmis1 == 12) {
  6503.          sssymseven8b();
  6504.       } elsif ($ssslotmis1 <= 4) {
  6505.          sssymseven8a();
  6506.       } elsif ($ssslotmis1 >= 5) {
  6507.          sssymseven8();
  6508.       } else {
  6509.          sssymwhite();
  6510.       }   
  6511.    } elsif ($ssslot1 == 12) {
  6512.       sssymseven1b();
  6513.    } elsif ($ssslot1 <= 4) {
  6514.       sssymseven1a();
  6515.    } elsif ($ssslot1 >= 5) {
  6516.       sssymseven1();      
  6517.    } else {
  6518.       sssymwhite();
  6519.    }
  6520. }
  6521. sub ssslot2 {
  6522.    if ($ssslot2 eq 'spining') {
  6523.       sssymspining();
  6524.    } elsif ($ssslot2 eq 'misaliga') {
  6525.       sssymwhite();
  6526.    } elsif ($ssslot2 eq 'misalig') {
  6527.       if ($ssslotmis2 == 12) {
  6528.          sssymseven9b();
  6529.       } elsif ($ssslotmis2 <= 4) {
  6530.          sssymseven9a();
  6531.       } elsif ($ssslotmis2 >= 5) {
  6532.          sssymseven9();
  6533.       } else {
  6534.          sssymwhite();
  6535.       }
  6536.    } elsif ($ssslot2 eq 'misaligb') {
  6537.       if ($ssslotmis2 == 12) {
  6538.          sssymseven9b();
  6539.       } elsif ($ssslotmis2 <= 4) {
  6540.          sssymseven9a();
  6541.       } elsif ($ssslotmis2 >= 5) {
  6542.          sssymseven9();
  6543.       } else {
  6544.          sssymwhite();
  6545.       }
  6546.    } elsif ($ssslot2 == 12) {
  6547.       sssymseven2b();
  6548.    } elsif ($ssslot2 <= 4) {
  6549.       sssymseven2a();
  6550.    } elsif ($ssslot2 >= 5) {
  6551.       sssymseven2();         
  6552.    } else {
  6553.       sssymwhite();
  6554.    }
  6555. }   
  6556.    
  6557. sub ssslot3 {
  6558.    if ($ssslot3 eq 'spining') {
  6559.       sssymspining();
  6560.    } elsif ($ssslot3 eq 'misaliga') {
  6561.       sssymwhite();
  6562.    } elsif ($ssslot3 eq 'misalig') {
  6563.       if ($ssslotmis3 == 12) {
  6564.          sssymseven10b();
  6565.       } elsif ($ssslotmis3 <= 4) {
  6566.          sssymseven10a();
  6567.       } elsif ($ssslotmis3 >= 5) {
  6568.          sssymseven10();
  6569.       } else {
  6570.          sssymwhite();
  6571.       }
  6572.    } elsif ($ssslot3 eq 'misaligb') {
  6573.       if ($ssslotmis3 == 12) {
  6574.          sssymseven10b();
  6575.       } elsif ($ssslotmis3 <= 4) {
  6576.          sssymseven10a();
  6577.       } elsif ($ssslotmis3 >= 5) {
  6578.          sssymseven10();
  6579.       } else {
  6580.          sssymwhite();
  6581.       }
  6582.    } elsif ($ssslot3 == 12) {
  6583.       sssymseven3b();   
  6584.    } elsif ($ssslot3 <= 4) {
  6585.       sssymseven3a();
  6586.    } elsif ($ssslot3 >= 5) {
  6587.       sssymseven3();      
  6588.    } else {
  6589.       sssymwhite();
  6590.    }
  6591. }
  6592. sub ssslot4 {
  6593.    if ($ssslot4 eq 'spining') {
  6594.       sssymspining();
  6595.    } elsif ($ssslot4 eq 'misaliga') {
  6596.       sssymwhite();
  6597.    } elsif ($ssslot4 eq 'misalig') {
  6598.       if ($ssslotmis4 == 12) {
  6599.          sssymseven11b();
  6600.       } elsif ($ssslotmis4 <= 4) {
  6601.          sssymseven11a();
  6602.       } elsif ($ssslotmis4 >= 5) {
  6603.          sssymseven11();
  6604.       } else {
  6605.          sssymwhite();
  6606.       }
  6607.    } elsif ($ssslot4 eq 'misaligb') {
  6608.       if ($ssslotmis4 == 12) {
  6609.          sssymseven11b();
  6610.       } elsif ($ssslotmis4 <= 4) {
  6611.          sssymseven11a();
  6612.       } elsif ($ssslotmis4 >= 5) {
  6613.          sssymseven11();
  6614.       } else {
  6615.          sssymwhite();
  6616.       }
  6617.    } elsif ($ssslot4 == 12) {
  6618.       sssymseven4b();   
  6619.    } elsif ($ssslot4 <= 4) {
  6620.       sssymseven4a();
  6621.    } elsif ($ssslot4 >= 5) {
  6622.       sssymseven4();   
  6623.    } else {
  6624.       sssymwhite();
  6625.    }
  6626. }
  6627.    
  6628. sub ssslot5 {
  6629.    if ($ssslot5 eq 'spining') {
  6630.       sssymspining();
  6631.    } elsif ($ssslot5 eq 'misaliga') {
  6632.       sssymwhite();
  6633.    } elsif ($ssslot5 eq 'misalig') {
  6634.       if ($ssslotmis5 == 12) {
  6635.          sssymseven12b();
  6636.       } elsif ($ssslotmis5 <= 4) {
  6637.          sssymseven12a();
  6638.       } elsif ($ssslotmis5 >= 5) {
  6639.          sssymseven12();
  6640.       } else {
  6641.          sssymwhite();
  6642.       }
  6643.    } elsif ($ssslot5 eq 'misaligb') {
  6644.       sssymwhite();
  6645.    } elsif ($ssslot5 == 12) {
  6646.       sssymseven5b();   
  6647.    } elsif ($ssslot5 <= 4) {
  6648.       sssymseven5a();
  6649.    } elsif ($ssslot5 >= 5) {
  6650.       sssymseven5();      
  6651.    } else {
  6652.       sssymwhite();
  6653.    }
  6654. }   
  6655.    
  6656. sub ssslot6 {
  6657.    if ($ssslot6 eq 'spining') {
  6658.       sssymspining();
  6659.    } elsif ($ssslot6 eq 'misaliga') {
  6660.       sssymwhite();
  6661.    } elsif ($ssslot6 eq 'misalig') {
  6662.       if ($ssslotmis6 == 12) {
  6663.          sssymseven13b();
  6664.       } elsif ($ssslotmis6 <= 4) {
  6665.          sssymseven13a();
  6666.       } elsif ($ssslotmis6 >= 5) {
  6667.          sssymseven13();
  6668.       } else {
  6669.          sssymwhite();
  6670.       }
  6671.    } elsif ($ssslot6 eq 'misaligb') {
  6672.       sssymwhite();
  6673.    } elsif ($ssslot6 == 12) {
  6674.       sssymseven6b();
  6675.    } elsif ($ssslot6 <= 4) {
  6676.       sssymseven6a();
  6677.    } elsif ($ssslot6 >= 5) {
  6678.       sssymseven6();   
  6679.    } else {
  6680.       sssymwhite();
  6681.    }
  6682. }
  6683.    
  6684. sub ssslot7 {
  6685.    sssympayline();
  6686. }
  6687. sub ssslot8 {
  6688.    if ($ssslot8 eq 'spining') {
  6689.       sssymspining();
  6690.    } elsif ($ssslot8 eq 'misaliga') {
  6691.       sssymwhite();
  6692.    } elsif ($ssslot8 eq 'misalig') {
  6693.       if ($ssslotmis8 == 12) {
  6694.          sssymseven1b();
  6695.       } elsif ($ssslotmis8 <= 4) {
  6696.          sssymseven1a();
  6697.       } elsif ($ssslotmis8 >= 5) {
  6698.          sssymseven1();
  6699.       } else {
  6700.          sssymwhite();
  6701.       }
  6702.    } elsif ($ssslot8 eq 'misaligb') {
  6703.       sssymwhite();
  6704.    } elsif ($ssslot8 == 12) {
  6705.       sssymseven8b();
  6706.    } elsif ($ssslot8 <= 4) {
  6707.       sssymseven8a();
  6708.    } elsif ($ssslot8 >= 5) {
  6709.       sssymseven8();   
  6710.    } else {
  6711.       sssymwhite();
  6712.    }
  6713. }
  6714. sub ssslot9 {
  6715.    if ($ssslot9 eq 'spining') {
  6716.       sssymspining();
  6717.    } elsif ($ssslot9 eq 'misaliga') {
  6718.       sssymwhite();
  6719.    } elsif ($ssslot9 eq 'misalig') {
  6720.       if ($ssslotmis9 == 12) {
  6721.          sssymseven2b();
  6722.       } elsif ($ssslotmis9 <= 4) {
  6723.          sssymseven2a();
  6724.       } elsif ($ssslotmis9 >= 5) {
  6725.          sssymseven2();
  6726.       } else {
  6727.          sssymwhite();
  6728.       }
  6729.    } elsif ($ssslot9 eq 'misaligb') {
  6730.       sssymwhite();
  6731.    } elsif ($ssslot9 == 12) {
  6732.       sssymseven9b();
  6733.    } elsif ($ssslot9 <= 4) {
  6734.       sssymseven9a();
  6735.    } elsif ($ssslot9 >= 5) {
  6736.       sssymseven9();   
  6737.    } else {
  6738.       sssymwhite();
  6739.    }
  6740. }
  6741. sub ssslot10 {
  6742.    if ($ssslot10 eq 'spining') {
  6743.       sssymspining();
  6744.    } elsif ($ssslot10 eq 'misaliga') {
  6745.       if ($ssslotmis10 == 12) {
  6746.          sssymseven3b();
  6747.       } elsif ($ssslotmis10 <= 4) {
  6748.          sssymseven3a();
  6749.       } elsif ($ssslotmis10 >= 5) {
  6750.          sssymseven3();
  6751.       }
  6752.    } elsif ($ssslot10 eq 'misalig') {
  6753.       if ($ssslotmis10 == 12) {
  6754.          sssymseven3b();
  6755.       } elsif ($ssslotmis10 <= 4) {
  6756.          sssymseven3a();
  6757.       } elsif ($ssslotmis10 >= 5) {
  6758.          sssymseven3();
  6759.       } else {
  6760.          sssymwhite();
  6761.       }
  6762.    } elsif ($ssslot10 eq 'misaligb') {
  6763.       sssymwhite();
  6764.    } elsif ($ssslot10 == 12) {
  6765.       sssymseven10b();
  6766.    } elsif ($ssslot10 <= 4) {
  6767.       sssymseven10a();
  6768.    } elsif ($ssslot10 >= 5) {
  6769.       sssymseven10();   
  6770.    } else {
  6771.       sssymwhite();
  6772.    }
  6773. }
  6774. sub ssslot11 {
  6775.    if ($ssslot11 eq 'spining') {
  6776.       sssymspining();
  6777.    } elsif ($ssslot11 eq 'misaliga') {
  6778.       if ($ssslotmis11 == 12) {
  6779.          sssymseven4b();
  6780.       } elsif ($ssslotmis11 <= 4) {
  6781.          sssymseven4a();
  6782.       } elsif ($ssslotmis11 >= 5) {
  6783.          sssymseven4();
  6784.       } else {
  6785.          sssymwhite();
  6786.       }
  6787.    } elsif ($ssslot11 eq 'misalig') {
  6788.       if ($ssslotmis11 == 12) {
  6789.          sssymseven4b();
  6790.       } elsif ($ssslotmis11 <= 4) {
  6791.          sssymseven4a();
  6792.       } elsif ($ssslotmis11 >= 5) {
  6793.          sssymseven4();
  6794.       } else {
  6795.          sssymwhite();
  6796.       }
  6797.    } elsif ($ssslot11 eq 'misaligb') {
  6798.       sssymwhite();
  6799.    } elsif ($ssslot11 == 12) {
  6800.       sssymseven11b();
  6801.    } elsif ($ssslot11 <= 4) {
  6802.       sssymseven11a();
  6803.    } elsif ($ssslot11 >= 5) {
  6804.       sssymseven11();   
  6805.    } else {
  6806.       sssymwhite();
  6807.    }
  6808. }
  6809.    
  6810. sub ssslot12 {
  6811.    if ($ssslot12 eq 'spining') {
  6812.       sssymspining();
  6813.    } elsif ($ssslot12 eq 'misaliga') {
  6814.       if ($ssslotmis12 == 12) {
  6815.          sssymseven5b();
  6816.       } elsif ($ssslotmis12 <= 4) {
  6817.          sssymseven5a();
  6818.       } elsif ($ssslotmis12 >= 5) {
  6819.          sssymseven5();
  6820.       } else {
  6821.          sssymwhite();
  6822.       }
  6823.    } elsif ($ssslot12 eq 'misalig') {
  6824.       if ($ssslotmis12 == 12) {
  6825.          sssymseven5b();
  6826.       } elsif ($ssslotmis12 <= 4) {
  6827.          sssymseven5a();
  6828.       } elsif ($ssslotmis12 >= 5) {
  6829.          sssymseven5();
  6830.       } else {
  6831.          sssymwhite();
  6832.       }
  6833.    } elsif ($ssslot12 eq 'misaligb') {
  6834.       sssymwhite();
  6835.    } elsif ($ssslot12 == 12) {
  6836.       sssymseven12b();
  6837.    } elsif ($ssslot12 <= 4) {
  6838.       sssymseven12a();
  6839.    } elsif ($ssslot12 >= 5) {
  6840.       sssymseven12();   
  6841.    } else {
  6842.       sssymwhite();
  6843.    }
  6844. }   
  6845.    
  6846. sub ssslot13 {
  6847.    if ($ssslot13 eq 'spining') {
  6848.       sssymspining();
  6849.    } elsif ($ssslot13 eq 'misaliga') {
  6850.       if ($ssslotmis13 == 12) {
  6851.          sssymseven6b();
  6852.       } elsif ($ssslotmis13 <= 4) {
  6853.          sssymseven6a();
  6854.       } elsif ($ssslotmis13 >= 5) {
  6855.          sssymseven6();
  6856.       } else {
  6857.          sssymwhite();
  6858.       }
  6859.    } elsif ($ssslot13 eq 'misalig') {
  6860.       if ($ssslotmis13 == 12) {
  6861.          sssymseven6b();
  6862.       } elsif ($ssslotmis13 <= 4) {
  6863.          sssymseven6a();
  6864.       } elsif ($ssslotmis13 >= 5) {
  6865.          sssymseven6();
  6866.       } else {
  6867.          sssymwhite();
  6868.       }
  6869.    } elsif ($ssslot13 eq 'misaligb') {
  6870.       sssymwhite();
  6871.    } elsif ($ssslot13 == 12) {
  6872.       sssymseven13b();
  6873.    } elsif ($ssslot13 <= 4) {
  6874.       sssymseven13a();
  6875.    } elsif ($ssslot13 >= 5) {
  6876.       sssymseven13();   
  6877.    } else {
  6878.       sssymwhite();
  6879.    }
  6880. }
  6881. sub ssslotp1 {
  6882.    if ($ssslot13 eq 'spining') {
  6883.       sssymspining();
  6884.    } elsif ($ssslot13 eq 'misaliga') {
  6885.       sssymwhite();
  6886.    } elsif ($ssslot13 eq 'misalig') {
  6887.       if ($ssslotmis13 == 12) {
  6888.          sssymseven7b();
  6889.       } elsif ($ssslotmis13 <= 4) {
  6890.          sssymseven7a();
  6891.       } elsif ($ssslotmis13 >= 5) {
  6892.          sssymseven7();
  6893.       } else {
  6894.          sssymwhite();
  6895.       }
  6896.    } elsif ($ssslot13 eq 'misaligb') {
  6897.       sssymwhite();
  6898.    } elsif ($ssslot13 == 11) {
  6899.       sssymseven7();
  6900.    } else {
  6901.       sssymwhite();
  6902.    }
  6903. }
  6904. sub ssreel1 {
  6905.    $ssreel = 1;
  6906.    if ($ssreelspin == 3) {
  6907.       $ssslot1 = 'spining';
  6908.       $ssslot2 = 'spining';
  6909.       $ssslot3 = 'spining';
  6910.       $ssslot4 = 'spining';
  6911.       $ssslot5 = 'spining';
  6912.       $ssslot6 = 'spining';
  6913.       $ssslot7 = 'spining';
  6914.       $ssslot8 = 'spining';
  6915.       $ssslot9 = 'spining';
  6916.       $ssslot10 = 'spining';
  6917.       $ssslot11 = 'spining';
  6918.       $ssslot12 = 'spining';
  6919.       $ssslot13 = 'spining';
  6920.       $ssslot14 = 'spining';
  6921.    } elsif ($ssmisalign1 == 1) {
  6922.       $ssslot1 = 'misalig';
  6923.       $ssslot2 = 'misalig';
  6924.       $ssslot3 = 'misalig';
  6925.       $ssslot4 = 'misalig';
  6926.       $ssslot5 = 'misalig';
  6927.       $ssslot6 = 'misalig';
  6928.       $ssslot7 = 'misalig';
  6929.       $ssslot8 = 'misalig';
  6930.       $ssslot9 = 'misalig';
  6931.       $ssslot10 = 'misalig';
  6932.       $ssslot11 = 'misalig';
  6933.       $ssslot12 = 'misalig';
  6934.       $ssslot13 = 'misalig';
  6935.       $ssslot14 = 'misalig';
  6936.       $ssslotmis1 = $sssvslot1;
  6937.       $ssslotmis2 = $sssvslot1;
  6938.       $ssslotmis3 = $sssvslot1;
  6939.       $ssslotmis4 = $sssvslot1;
  6940.       $ssslotmis5 = $sssvslot1;
  6941.       $ssslotmis6 = $sssvslot1;
  6942.       $ssslotmis7 = $sssvslot1;
  6943.       $ssslotmis8 = $sssvslot1b;
  6944.       $ssslotmis9 = $sssvslot1b;
  6945.       $ssslotmis10 = $sssvslot1b;
  6946.       $ssslotmis11 = $sssvslot1b;
  6947.       $ssslotmis12 = $sssvslot1b;
  6948.       $ssslotmis13 = $sssvslot1b;
  6949.       $ssslotmis14 = $sssvslot1b;
  6950.    } else {
  6951.       $ssslot1 = $sssvslot1;
  6952.       $ssslot2 = $sssvslot1;
  6953.       $ssslot3 = $sssvslot1;
  6954.       $ssslot4 = $sssvslot1;
  6955.       $ssslot5 = $sssvslot1;
  6956.       $ssslot6 = $sssvslot1;
  6957.       $ssslot7 = $sssvslot1;
  6958.       $ssslot8 = $sssvslot1;
  6959.       $ssslot9 = $sssvslot1;
  6960.       $ssslot10 = $sssvslot1;
  6961.       $ssslot11 = $sssvslot1;
  6962.       $ssslot12 = $sssvslot1;
  6963.       $ssslot13 = $sssvslot1;
  6964.       $ssslot14 = $sssvslot1;
  6965.    }
  6966. }
  6967. sub ssreel2 {
  6968.    $ssreel = 2;
  6969.    if ($ssreelspin >= 2) {
  6970.       $ssslot1 = 'spining';
  6971.       $ssslot2 = 'spining';
  6972.       $ssslot3 = 'spining';
  6973.       $ssslot4 = 'spining';
  6974.       $ssslot5 = 'spining';
  6975.       $ssslot6 = 'spining';
  6976.       $ssslot7 = 'spining';
  6977.       $ssslot8 = 'spining';
  6978.       $ssslot9 = 'spining';
  6979.       $ssslot10 = 'spining';
  6980.       $ssslot11 = 'spining';
  6981.       $ssslot12 = 'spining';
  6982.       $ssslot13 = 'spining';
  6983.       $ssslot14 = 'spining';
  6984.    } elsif ($ssmisalign2 == 1) {
  6985.       $ssslot1 = 'misalig';
  6986.       $ssslot2 = 'misalig';
  6987.       $ssslot3 = 'misalig';
  6988.       $ssslot4 = 'misalig';
  6989.       $ssslot5 = 'misalig';
  6990.       $ssslot6 = 'misalig';
  6991.       $ssslot7 = 'misalig';
  6992.       $ssslot8 = 'misalig';
  6993.       $ssslot9 = 'misalig';
  6994.       $ssslot10 = 'misalig';
  6995.       $ssslot11 = 'misalig';
  6996.       $ssslot12 = 'misalig';
  6997.       $ssslot13 = 'misalig';
  6998.       $ssslot14 = 'misalig';
  6999.       $ssslotmis1 = $sssvslot2;
  7000.       $ssslotmis2 = $sssvslot2;
  7001.       $ssslotmis3 = $sssvslot2;
  7002.       $ssslotmis4 = $sssvslot2;
  7003.       $ssslotmis5 = $sssvslot2;
  7004.       $ssslotmis6 = $sssvslot2;
  7005.       $ssslotmis7 = $sssvslot2;
  7006.       $ssslotmis8 = $sssvslot2b;
  7007.       $ssslotmis9 = $sssvslot2b;
  7008.       $ssslotmis10 = $sssvslot2b;
  7009.       $ssslotmis11 = $sssvslot2b;
  7010.       $ssslotmis12 = $sssvslot2b;
  7011.       $ssslotmis13 = $sssvslot2b;
  7012.       $ssslotmis14 = $sssvslot2b;
  7013.    } else {
  7014.       $ssslot1 = $sssvslot2;
  7015.       $ssslot2 = $sssvslot2;
  7016.       $ssslot3 = $sssvslot2;
  7017.       $ssslot4 = $sssvslot2;
  7018.       $ssslot5 = $sssvslot2;
  7019.       $ssslot6 = $sssvslot2;
  7020.       $ssslot7 = $sssvslot2;
  7021.       $ssslot8 = $sssvslot2;
  7022.       $ssslot9 = $sssvslot2;
  7023.       $ssslot10 = $sssvslot2;
  7024.       $ssslot11 = $sssvslot2;
  7025.       $ssslot12 = $sssvslot2;
  7026.       $ssslot13 = $sssvslot2;
  7027.       $ssslot14 = $sssvslot2;
  7028.    }
  7029. }
  7030. sub ssreel3 {
  7031.    $ssreel = 3;
  7032.    if ($ssreelspin >= 1) {
  7033.       $ssslot1 = 'spining';
  7034.       $ssslot2 = 'spining';
  7035.       $ssslot3 = 'spining';
  7036.       $ssslot4 = 'spining';
  7037.       $ssslot5 = 'spining';
  7038.       $ssslot6 = 'spining';
  7039.       $ssslot7 = 'spining';
  7040.       $ssslot8 = 'spining';
  7041.       $ssslot9 = 'spining';
  7042.       $ssslot10 = 'spining';
  7043.       $ssslot11 = 'spining';
  7044.       $ssslot12 = 'spining';
  7045.       $ssslot13 = 'spining';
  7046.       $ssslot14 = 'spining';
  7047.    } elsif ($ssmisalign3 == 1) {
  7048.       $ssslot1 = 'misalig';
  7049.       $ssslot2 = 'misalig';
  7050.       $ssslot3 = 'misalig';
  7051.       $ssslot4 = 'misalig';
  7052.       $ssslot5 = 'misalig';
  7053.       $ssslot6 = 'misalig';
  7054.       $ssslot7 = 'misalig';
  7055.       $ssslot8 = 'misalig';
  7056.       $ssslot9 = 'misalig';
  7057.       $ssslot10 = 'misalig';
  7058.       $ssslot11 = 'misalig';
  7059.       $ssslot12 = 'misalig';
  7060.       $ssslot13 = 'misalig';
  7061.       $ssslot14 = 'misalig';
  7062.       $ssslotmis1 = $sssvslot3;
  7063.       $ssslotmis2 = $sssvslot3;
  7064.       $ssslotmis3 = $sssvslot3;
  7065.       $ssslotmis4 = $sssvslot3;
  7066.       $ssslotmis5 = $sssvslot3;
  7067.       $ssslotmis6 = $sssvslot3;
  7068.       $ssslotmis7 = $sssvslot3;
  7069.       $ssslotmis8 = $sssvslot3b;
  7070.       $ssslotmis9 = $sssvslot3b;
  7071.       $ssslotmis10 = $sssvslot3b;
  7072.       $ssslotmis11 = $sssvslot3b;
  7073.       $ssslotmis12 = $sssvslot3b;
  7074.       $ssslotmis13 = $sssvslot3b;
  7075.       $ssslotmis14 = $sssvslot3b;
  7076.    } else {
  7077.       $ssslot1 = $sssvslot3;
  7078.       $ssslot2 = $sssvslot3;
  7079.       $ssslot3 = $sssvslot3;
  7080.       $ssslot4 = $sssvslot3;
  7081.       $ssslot5 = $sssvslot3;
  7082.       $ssslot6 = $sssvslot3;
  7083.       $ssslot7 = $sssvslot3;
  7084.       $ssslot8 = $sssvslot3;
  7085.       $ssslot9 = $sssvslot3;
  7086.       $ssslot10 = $sssvslot3;
  7087.       $ssslot11 = $sssvslot3;
  7088.       $ssslot12 = $sssvslot3;
  7089.       $ssslot13 = $sssvslot3;
  7090.       $ssslot14 = $sssvslot3;
  7091.    }
  7092. }
  7093. sub ssreel1b {
  7094.    $ssreel = 7;
  7095.    if ($ssreelspin == 3) {
  7096.       $ssslot1 = 'spining';
  7097.       $ssslot2 = 'spining';
  7098.       $ssslot3 = 'spining';
  7099.       $ssslot4 = 'spining';
  7100.       $ssslot5 = 'spining';
  7101.       $ssslot6 = 'spining';
  7102.       $ssslot7 = 'spining';
  7103.       $ssslot8 = 'spining';
  7104.       $ssslot9 = 'spining';
  7105.       $ssslot10 = 'spining';
  7106.       $ssslot11 = 'spining';
  7107.       $ssslot12 = 'spining';
  7108.       $ssslot13 = 'spining';
  7109.       $ssslot14 = 'spining';
  7110.    } elsif ($ssmisalign1 == 1) {
  7111.       $ssslot1 = 'misaligb';
  7112.       $ssslot2 = 'misaligb';
  7113.       $ssslot3 = 'misaligb';
  7114.       $ssslot4 = 'misaligb';
  7115.       $ssslot5 = 'misaligb';
  7116.       $ssslot6 = 'misaligb';
  7117.       $ssslot7 = 'misaligb';
  7118.       $ssslot8 = 'misaligb';
  7119.       $ssslot9 = 'misaligb';
  7120.       $ssslot10 = 'misaligb';
  7121.       $ssslot11 = 'misaligb';
  7122.       $ssslot12 = 'misaligb';
  7123.       $ssslot13 = 'misaligb';
  7124.       $ssslot14 = 'misaligb';
  7125.       $ssslotmis1 = $sssvslot1b;
  7126.       $ssslotmis2 = $sssvslot1b;
  7127.       $ssslotmis3 = $sssvslot1b;
  7128.       $ssslotmis4 = $sssvslot1b;
  7129.       $ssslotmis5 = $sssvslot1b;
  7130.       $ssslotmis6 = $sssvslot1b;
  7131.       $ssslotmis7 = $sssvslot1b;
  7132.       $ssslotmis8 = $sssvslot1b;
  7133.       $ssslotmis9 = $sssvslot1b;
  7134.       $ssslotmis10 = $sssvslot1b;
  7135.       $ssslotmis11 = $sssvslot1b;
  7136.       $ssslotmis12 = $sssvslot1b;
  7137.       $ssslotmis13 = $sssvslot1b;
  7138.       $ssslotmis14 = $sssvslot1b;
  7139.    } else {
  7140.       $ssslot1 = $sssvslot1b;
  7141.       $ssslot2 = $sssvslot1b;
  7142.       $ssslot3 = $sssvslot1b;
  7143.       $ssslot4 = $sssvslot1b;
  7144.       $ssslot5 = $sssvslot1b;
  7145.       $ssslot6 = $sssvslot1b;
  7146.       $ssslot7 = $sssvslot1b;
  7147.       $ssslot8 = $sssvslot1b;
  7148.       $ssslot9 = $sssvslot1b;
  7149.       $ssslot10 = $sssvslot1b;
  7150.       $ssslot11 = $sssvslot1b;
  7151.       $ssslot12 = $sssvslot1b;
  7152.       $ssslot13 = $sssvslot1b;
  7153.       $ssslot14 = $sssvslot1b;
  7154.    }
  7155. }
  7156. sub ssreel2b {
  7157.    $ssreel = 8;
  7158.    if ($ssreelspin >= 2) {
  7159.       $ssslot1 = 'spining';
  7160.       $ssslot2 = 'spining';
  7161.       $ssslot3 = 'spining';
  7162.       $ssslot4 = 'spining';
  7163.       $ssslot5 = 'spining';
  7164.       $ssslot6 = 'spining';
  7165.       $ssslot7 = 'spining';
  7166.       $ssslot8 = 'spining';
  7167.       $ssslot9 = 'spining';
  7168.       $ssslot10 = 'spining';
  7169.       $ssslot11 = 'spining';
  7170.       $ssslot12 = 'spining';
  7171.       $ssslot13 = 'spining';
  7172.       $ssslot14 = 'spining';
  7173.    } elsif ($ssmisalign2 == 1) {
  7174.       $ssslot1 = 'misaligb';
  7175.       $ssslot2 = 'misaligb';
  7176.       $ssslot3 = 'misaligb';
  7177.       $ssslot4 = 'misaligb';
  7178.       $ssslot5 = 'misaligb';
  7179.       $ssslot6 = 'misaligb';
  7180.       $ssslot7 = 'misaligb';
  7181.       $ssslot8 = 'misaligb';
  7182.       $ssslot9 = 'misaligb';
  7183.       $ssslot10 = 'misaligb';
  7184.       $ssslot11 = 'misaligb';
  7185.       $ssslot12 = 'misaligb';
  7186.       $ssslot13 = 'misaligb';
  7187.       $ssslot14 = 'misaligb';
  7188.       $ssslotmis1 = $sssvslot2b;
  7189.       $ssslotmis2 = $sssvslot2b;
  7190.       $ssslotmis3 = $sssvslot2b;
  7191.       $ssslotmis4 = $sssvslot2b;
  7192.       $ssslotmis5 = $sssvslot2b;
  7193.       $ssslotmis6 = $sssvslot2b;
  7194.       $ssslotmis7 = $sssvslot2b;
  7195.       $ssslotmis8 = $sssvslot2b;
  7196.       $ssslotmis9 = $sssvslot2b;
  7197.       $ssslotmis10 = $sssvslot2b;
  7198.       $ssslotmis11 = $sssvslot2b;
  7199.       $ssslotmis12 = $sssvslot2b;
  7200.       $ssslotmis13 = $sssvslot2b;
  7201.       $ssslotmis14 = $sssvslot2b;
  7202.    } else {
  7203.       $ssslot1 = $sssvslot2b;
  7204.       $ssslot2 = $sssvslot2b;
  7205.       $ssslot3 = $sssvslot2b;
  7206.       $ssslot4 = $sssvslot2b;
  7207.       $ssslot5 = $sssvslot2b;
  7208.       $ssslot6 = $sssvslot2b;
  7209.       $ssslot7 = $sssvslot2b;
  7210.       $ssslot8 = $sssvslot2b;
  7211.       $ssslot9 = $sssvslot2b;
  7212.       $ssslot10 = $sssvslot2b;
  7213.       $ssslot11 = $sssvslot2b;
  7214.       $ssslot12 = $sssvslot2b;
  7215.       $ssslot13 = $sssvslot2b;
  7216.       $ssslot14 = $sssvslot2b;
  7217.    }
  7218. }
  7219. sub ssreel3b {
  7220.    $ssreel = 9;
  7221.    if ($ssreelspin >= 1) {
  7222.       $ssslot1 = 'spining';
  7223.       $ssslot2 = 'spining';
  7224.       $ssslot3 = 'spining';
  7225.       $ssslot4 = 'spining';
  7226.       $ssslot5 = 'spining';
  7227.       $ssslot6 = 'spining';
  7228.       $ssslot7 = 'spining';
  7229.       $ssslot8 = 'spining';
  7230.       $ssslot9 = 'spining';
  7231.       $ssslot10 = 'spining';
  7232.       $ssslot11 = 'spining';
  7233.       $ssslot12 = 'spining';
  7234.       $ssslot13 = 'spining';
  7235.       $ssslot14 = 'spining';
  7236.    } elsif ($ssmisalign3 == 1) {
  7237.       $ssslot1 = 'misaligb';
  7238.       $ssslot2 = 'misaligb';
  7239.       $ssslot3 = 'misaligb';
  7240.       $ssslot4 = 'misaligb';
  7241.       $ssslot5 = 'misaligb';
  7242.       $ssslot6 = 'misaligb';
  7243.       $ssslot7 = 'misaligb';
  7244.       $ssslot8 = 'misaligb';
  7245.       $ssslot9 = 'misaligb';
  7246.       $ssslot10 = 'misaligb';
  7247.       $ssslot11 = 'misaligb';
  7248.       $ssslot12 = 'misaligb';
  7249.       $ssslot13 = 'misaligb';
  7250.       $ssslot14 = 'misaligb';
  7251.       $ssslotmis1 = $sssvslot3b;
  7252.       $ssslotmis2 = $sssvslot3b;
  7253.       $ssslotmis3 = $sssvslot3b;
  7254.       $ssslotmis4 = $sssvslot3b;
  7255.       $ssslotmis5 = $sssvslot3b;
  7256.       $ssslotmis6 = $sssvslot3b;
  7257.       $ssslotmis7 = $sssvslot3b;
  7258.       $ssslotmis8 = $sssvslot3b;
  7259.       $ssslotmis9 = $sssvslot3b;
  7260.       $ssslotmis10 = $sssvslot3b;
  7261.       $ssslotmis11 = $sssvslot3b;
  7262.       $ssslotmis12 = $sssvslot3b;
  7263.       $ssslotmis13 = $sssvslot3b;
  7264.       $ssslotmis14 = $sssvslot3b;
  7265.    } else {
  7266.       $ssslot1 = $sssvslot3b;
  7267.       $ssslot2 = $sssvslot3b;
  7268.       $ssslot3 = $sssvslot3b;
  7269.       $ssslot4 = $sssvslot3b;
  7270.       $ssslot5 = $sssvslot3b;
  7271.       $ssslot6 = $sssvslot3b;
  7272.       $ssslot7 = $sssvslot3b;
  7273.       $ssslot8 = $sssvslot3b;
  7274.       $ssslot9 = $sssvslot3b;
  7275.       $ssslot10 = $sssvslot3b;
  7276.       $ssslot11 = $sssvslot3b;
  7277.       $ssslot12 = $sssvslot3b;
  7278.       $ssslot13 = $sssvslot3b;
  7279.       $ssslot14 = $sssvslot3b;
  7280.    }
  7281. }
  7282. sub ssreel1a {
  7283.    $ssreel = 4;
  7284.    if ($ssreelspin == 3) {
  7285.       $ssslot1 = 'spining';
  7286.       $ssslot2 = 'spining';
  7287.       $ssslot3 = 'spining';
  7288.       $ssslot4 = 'spining';
  7289.       $ssslot5 = 'spining';
  7290.       $ssslot6 = 'spining';
  7291.       $ssslot7 = 'spining';
  7292.       $ssslot8 = 'spining';
  7293.       $ssslot9 = 'spining';
  7294.       $ssslot10 = 'spining';
  7295.       $ssslot11 = 'spining';
  7296.       $ssslot12 = 'spining';
  7297.       $ssslot13 = 'spining';
  7298.       $ssslot14 = 'spining';
  7299.    } elsif ($ssmisalign1 == 1) {
  7300.       $ssslot1 = 'misaliga';
  7301.       $ssslot2 = 'misaliga';
  7302.       $ssslot3 = 'misaliga';
  7303.       $ssslot4 = 'misaliga';
  7304.       $ssslot5 = 'misaliga';
  7305.       $ssslot6 = 'misaliga';
  7306.       $ssslot7 = 'misaliga';
  7307.       $ssslot8 = 'misaliga';
  7308.       $ssslot9 = 'misaliga';
  7309.       $ssslot10 = 'misaliga';
  7310.       $ssslot11 = 'misaliga';
  7311.       $ssslot12 = 'misaliga';
  7312.       $ssslot13 = 'misaliga';
  7313.       $ssslot14 = 'misaliga';
  7314.       $ssslotmis1 = $sssvslot1;
  7315.       $ssslotmis2 = $sssvslot1;
  7316.       $ssslotmis3 = $sssvslot1;
  7317.       $ssslotmis4 = $sssvslot1;
  7318.       $ssslotmis5 = $sssvslot1;
  7319.       $ssslotmis6 = $sssvslot1;
  7320.       $ssslotmis7 = $sssvslot1;
  7321.       $ssslotmis8 = $sssvslot1;
  7322.       $ssslotmis9 = $sssvslot1;
  7323.       $ssslotmis10 = $sssvslot1;
  7324.       $ssslotmis11 = $sssvslot1;
  7325.       $ssslotmis12 = $sssvslot1;
  7326.       $ssslotmis13 = $sssvslot1;
  7327.       $ssslotmis14 = $sssvslot1;
  7328.    } else {
  7329.       $ssslot1 = $sssvslot1a;
  7330.       $ssslot2 = $sssvslot1a;
  7331.       $ssslot3 = $sssvslot1a;
  7332.       $ssslot4 = $sssvslot1a;
  7333.       $ssslot5 = $sssvslot1a;
  7334.       $ssslot6 = $sssvslot1a;
  7335.       $ssslot7 = $sssvslot1a;
  7336.       $ssslot8 = $sssvslot1a;
  7337.       $ssslot9 = $sssvslot1a;
  7338.       $ssslot10 = $sssvslot1a;
  7339.       $ssslot11 = $sssvslot1a;
  7340.       $ssslot12 = $sssvslot1a;
  7341.       $ssslot13 = $sssvslot1a;
  7342.       $ssslot14 = $sssvslot1a;
  7343.    }
  7344. }
  7345. sub ssreel2a {
  7346.    $ssreel = 5;
  7347.    if ($ssreelspin >= 2) {
  7348.       $ssslot1 = 'spining';
  7349.       $ssslot2 = 'spining';
  7350.       $ssslot3 = 'spining';
  7351.       $ssslot4 = 'spining';
  7352.       $ssslot5 = 'spining';
  7353.       $ssslot6 = 'spining';
  7354.       $ssslot7 = 'spining';
  7355.       $ssslot8 = 'spining';
  7356.       $ssslot9 = 'spining';
  7357.       $ssslot10 = 'spining';
  7358.       $ssslot11 = 'spining';
  7359.       $ssslot12 = 'spining';
  7360.       $ssslot13 = 'spining';
  7361.       $ssslot14 = 'spining';
  7362.    } elsif ($ssmisalign2 == 1) {
  7363.       $ssslot1 = 'misaliga';
  7364.       $ssslot2 = 'misaliga';
  7365.       $ssslot3 = 'misaliga';
  7366.       $ssslot4 = 'misaliga';
  7367.       $ssslot5 = 'misaliga';
  7368.       $ssslot6 = 'misaliga';
  7369.       $ssslot7 = 'misaliga';
  7370.       $ssslot8 = 'misaliga';
  7371.       $ssslot9 = 'misaliga';
  7372.       $ssslot10 = 'misaliga';
  7373.       $ssslot11 = 'misaliga';
  7374.       $ssslot12 = 'misaliga';
  7375.       $ssslot13 = 'misaliga';
  7376.       $ssslot14 = 'misaliga';
  7377.       $ssslotmis1 = $sssvslot2;
  7378.       $ssslotmis2 = $sssvslot2;
  7379.       $ssslotmis3 = $sssvslot2;
  7380.       $ssslotmis4 = $sssvslot2;
  7381.       $ssslotmis5 = $sssvslot2;
  7382.       $ssslotmis6 = $sssvslot2;
  7383.       $ssslotmis7 = $sssvslot2;
  7384.       $ssslotmis8 = $sssvslot2;
  7385.       $ssslotmis9 = $sssvslot2;
  7386.       $ssslotmis10 = $sssvslot2;
  7387.       $ssslotmis11 = $sssvslot2;
  7388.       $ssslotmis12 = $sssvslot2;
  7389.       $ssslotmis13 = $sssvslot2;
  7390.       $ssslotmis14 = $sssvslot2;
  7391.    } else {
  7392.       $ssslot1 = $sssvslot2a;
  7393.       $ssslot2 = $sssvslot2a;
  7394.       $ssslot3 = $sssvslot2a;
  7395.       $ssslot4 = $sssvslot2a;
  7396.       $ssslot5 = $sssvslot2a;
  7397.       $ssslot6 = $sssvslot2a;
  7398.       $ssslot7 = $sssvslot2a;
  7399.       $ssslot8 = $sssvslot2a;
  7400.       $ssslot9 = $sssvslot2a;
  7401.       $ssslot10 = $sssvslot2a;
  7402.       $ssslot11 = $sssvslot2a;
  7403.       $ssslot12 = $sssvslot2a;
  7404.       $ssslot13 = $sssvslot2a;
  7405.       $ssslot14 = $sssvslot2a;
  7406.    }
  7407. }
  7408. sub ssreel3a {
  7409.    $ssreel = 6;
  7410.    if ($ssreelspin >= 1) {
  7411.       $ssslot1 = 'spining';
  7412.       $ssslot2 = 'spining';
  7413.       $ssslot3 = 'spining';
  7414.       $ssslot4 = 'spining';
  7415.       $ssslot5 = 'spining';
  7416.       $ssslot6 = 'spining';
  7417.       $ssslot7 = 'spining';
  7418.       $ssslot8 = 'spining';
  7419.       $ssslot9 = 'spining';
  7420.       $ssslot10 = 'spining';
  7421.       $ssslot11 = 'spining';
  7422.       $ssslot12 = 'spining';
  7423.       $ssslot13 = 'spining';
  7424.       $ssslot14 = 'spining';
  7425.    } elsif ($ssmisalign3 == 1) {
  7426.       $ssslot1 = 'misaliga';
  7427.       $ssslot2 = 'misaliga';
  7428.       $ssslot3 = 'misaliga';
  7429.       $ssslot4 = 'misaliga';
  7430.       $ssslot5 = 'misaliga';
  7431.       $ssslot6 = 'misaliga';
  7432.       $ssslot7 = 'misaliga';
  7433.       $ssslot8 = 'misaliga';
  7434.       $ssslot9 = 'misaliga';
  7435.       $ssslot10 = 'misaliga';
  7436.       $ssslot11 = 'misaliga';
  7437.       $ssslot12 = 'misaliga';
  7438.       $ssslot13 = 'misaliga';
  7439.       $ssslot14 = 'misaliga';
  7440.       $ssslotmis1 = $sssvslot3;
  7441.       $ssslotmis2 = $sssvslot3;
  7442.       $ssslotmis3 = $sssvslot3;
  7443.       $ssslotmis4 = $sssvslot3;
  7444.       $ssslotmis5 = $sssvslot3;
  7445.       $ssslotmis6 = $sssvslot3;
  7446.       $ssslotmis7 = $sssvslot3;
  7447.       $ssslotmis8 = $sssvslot3;
  7448.       $ssslotmis9 = $sssvslot3;
  7449.       $ssslotmis10 = $sssvslot3;
  7450.       $ssslotmis11 = $sssvslot3;
  7451.       $ssslotmis12 = $sssvslot3;
  7452.       $ssslotmis13 = $sssvslot3;
  7453.       $ssslotmis14 = $sssvslot3;
  7454.    } else {
  7455.       $ssslot1 = $sssvslot3a;
  7456.       $ssslot2 = $sssvslot3a;
  7457.       $ssslot3 = $sssvslot3a;
  7458.       $ssslot4 = $sssvslot3a;
  7459.       $ssslot5 = $sssvslot3a;
  7460.       $ssslot6 = $sssvslot3a;
  7461.       $ssslot7 = $sssvslot3a;
  7462.       $ssslot8 = $sssvslot3a;
  7463.       $ssslot9 = $sssvslot3a;
  7464.       $ssslot10 = $sssvslot3a;
  7465.       $ssslot11 = $sssvslot3a;
  7466.       $ssslot12 = $sssvslot3a;
  7467.       $ssslot13 = $sssvslot3a;
  7468.       $ssslot14 = $sssvslot3a;
  7469.    }
  7470. }
  7471. sub sscolorr1 {
  7472.    $sscolor1 = $ssr1colora;
  7473.    $sscolor2 = $ssr1colorb;
  7474. }
  7475. sub sscolorr2 {
  7476.    $sscolor1 = $ssr2colora;
  7477.    $sscolor2 = $ssr2colorb;
  7478. }
  7479. sub sscolorr3 {
  7480.    $sscolor1 = $ssr3colora;
  7481.    $sscolor2 = $ssr3colorb;
  7482. }
  7483. sub sscolorr1m {
  7484.    if ($ssmisalign1 == 1) {
  7485.    $sscolor1 = $ssr1colorab;
  7486.    $sscolor2 = $ssr1colorbb;
  7487.    } else {
  7488.    $sscolor1 = $ssr1colora;
  7489.    $sscolor2 = $ssr1colorb;
  7490.    }
  7491. }
  7492. sub sscolorr2m {
  7493.    if ($ssmisalign2 == 1) {
  7494.    $sscolor1 = $ssr2colorab;
  7495.    $sscolor2 = $ssr2colorbb;
  7496.    } else {
  7497.    $sscolor1 = $ssr2colora;
  7498.    $sscolor2 = $ssr2colorb;
  7499.    }
  7500. }
  7501. sub sscolorr3m {
  7502.    if ($ssmisalign3 == 1) {
  7503.    $sscolor1 = $ssr3colorab;
  7504.    $sscolor2 = $ssr3colorbb;
  7505.    } else {
  7506.    $sscolor1 = $ssr3colora;
  7507.    $sscolor2 = $ssr3colorb;
  7508.    }
  7509. }
  7510. sub sscolorr1b {
  7511.    $sscolor1 = $ssr1colorab;
  7512.    $sscolor2 = $ssr1colorbb;
  7513. }
  7514. sub sscolorr2b {
  7515.    $sscolor1 = $ssr2colorab;
  7516.    $sscolor2 = $ssr2colorbb;
  7517. }
  7518. sub sscolorr3b {
  7519.    $sscolor1 = $ssr3colorab;
  7520.    $sscolor2 = $ssr3colorbb;
  7521. }
  7522. sub sscolorr1a {
  7523.    if ($ssmisalign1 == 1) {
  7524.    $sscolor1 = $ssr1colora;
  7525.    $sscolor2 = $ssr1colorb;
  7526.    } else {
  7527.    $sscolor1 = $ssr1coloraa;
  7528.    $sscolor2 = $ssr1colorba;
  7529.    }
  7530. }
  7531. sub sscolorr2a {
  7532.    if ($ssmisalign2 == 1) {
  7533.    $sscolor1 = $ssr2colora;
  7534.    $sscolor2 = $ssr2colorb;
  7535.    } else {
  7536.    $sscolor1 = $ssr2coloraa;
  7537.    $sscolor2 = $ssr2colorba;
  7538.    }
  7539. }
  7540. sub sscolorr3a {
  7541.    if ($ssmisalign3 == 1) {
  7542.    $sscolor1 = $ssr3colora;
  7543.    $sscolor2 = $ssr3colorb;
  7544.    } else {
  7545.    $sscolor1 = $ssr3coloraa;
  7546.    $sscolor2 = $ssr3colorba;
  7547.    }
  7548. }
  7549. sub ssmida1 {
  7550.    print colored('| ',"$boldred on_$bgcred");
  7551. }
  7552. sub ssmidb1 {
  7553.    print colored('LINE',"$boldwhite on_$bgcgreen");
  7554. }
  7555. sub ssmida0 {
  7556.    print colored('|',"$boldblue on_$bgcblue");
  7557.    print colored('   |',"$boldred on_$bgcred");
  7558. }
  7559. sub ssmida02 {
  7560.    print colored('|',"$boldblue on_$bgcblue");
  7561.    print colored('[X2>',"$sspx2 on_$bgcgreen");
  7562. }
  7563. sub ssmida03 {
  7564.    print colored('|',"$boldblue on_$bgcblue");
  7565.    print colored('[X3>',"$sspx3 on_$bgcgreen");
  7566. }
  7567. sub ssmida12 {
  7568.    print colored('<2X]',"$sspx2 on_$bgcgreen");
  7569. }
  7570. sub ssmida13 {
  7571.    print colored('<3X]',"$sspx3 on_$bgcgreen");
  7572. }
  7573. sub ssmida2 {
  7574.    print colored('-',"$sspx2 on_$bgcgreen");
  7575. }
  7576. sub ssmida3 {
  7577.    print colored('-',"$sspx3 on_$bgcgreen");
  7578. }
  7579. sub ssmidb0 {
  7580.    print colored('|',"$boldblue on_$bgcblue");
  7581.    print colored('PAYL',"$boldwhite on_$bgcgreen");
  7582. }
  7583. sub ssmida {
  7584.    print colored('|',"$boldred on_$bgcred");
  7585. }
  7586. sub ssmidb {
  7587.    print colored('L',"$boldwhite on_$bgcgreen");
  7588. }
  7589. sub ss13 {
  7590.    if ($ssslot1 != 11) {
  7591.       ssslot13();
  7592.    } else {
  7593.       ssslotm2();
  7594.    }
  7595. }
  7596. sub ss12 {
  7597.    if ($ssslot1 != 11) {
  7598.       ssslot12();
  7599.    } else {
  7600.       ssslotm3();
  7601.    }
  7602. }
  7603. sub ss11 {
  7604.    if ($ssslot1 != 11) {
  7605.       ssslot11();
  7606.    } else {
  7607.       ssslotm4();
  7608.    }
  7609. }
  7610. sub ss10 {
  7611.    if ($ssslot1 != 11) {
  7612.       ssslot10();
  7613.    } else {
  7614.       ssslotm5();
  7615.    }
  7616. }
  7617. sub ss1 {
  7618.    if ($ssslot1 != 11) {
  7619.       ssslot1();
  7620.    } else {
  7621.       ssslotm2();
  7622.    }
  7623. }
  7624. sub ss2 {
  7625.    if ($ssslot1 != 11) {
  7626.       ssslot2();
  7627.    } else {
  7628.       ssslotm3();
  7629.    }
  7630. }
  7631. sub ss3 {
  7632.    if ($ssslot1 != 11) {
  7633.       ssslot3();
  7634.    } else {
  7635.       ssslotm4();
  7636.    }
  7637. }
  7638. sub ss4 {
  7639.    if ($ssslot1 != 11) {
  7640.       ssslot10();
  7641.    } else {
  7642.       ssslotm5();
  7643.    }
  7644. }
  7645. sub ssmainscreen {
  7646.    print colored('/------------------------------------------------------------------------------\\',"$boldblue on_$bgcblue"); print"\n";
  7647.    print colored('|',"$boldblue on_$bgcblue"); print colored('   \\------------------|------------------|------------------/ ',"$boldred on_$bgcred"); print colored(' 3P PROGRESSIVE ',"$boldblue on_$bgcblue"); print colored('|',"$boldblue on_$bgcblue"); print"\n";
  7648.    ssmida0(); ssreel1a(); sscolorr1a(); sep; ssslot10(); sep; ssmida(); ssreel2a(); sscolorr2a(); sep; ssslot10(); sep; ssmida(); ssreel3a(); sscolorr3a(); sep; ssslot10(); sep; ssmida1(); print colored('JKPT',"$boldblue on_$bgcblue"); ssprojkpot(); print colored('|',"$boldblue on_$bgcblue");print"\n";
  7649.    ssmida0(); ssreel1a(); sscolorr1a(); sep; ssslot11(); sep; ssmida(); ssreel2a(); sscolorr2a(); sep; ssslot11(); sep; ssmida(); ssreel3a(); sscolorr3a(); sep; ssslot11(); sep; ssmida1(); if ($esegpenguinhrs != 1) { print colored('  * SEVENS',"$boldcyan on_$bgcblue"); print colored(' coin^',"$boldblue on_$bgcblue"); } else { print colored('   * PENGUINS   ',"$boldcyan on_$bgcblue"); } print colored('|',"$boldblue on_$bgcblue"); print"\n";
  7650.    ssmida02(); ssreel1a(); sscolorr1a(); sep; ssslot12(); sep; ssmida2(); ssreel2a(); sscolorr2a(); sep; ssslot12(); sep; ssmida2(); ssreel3a(); sscolorr3a(); sep; ssslot12(); sep; ssmida12(); if ($esegpenguinhrs != 1) { print colored('7',"$boldblack on_$bgcwhite"); print colored(' 7',"$magenta on_$bgcwhite"); print colored(' 7',"$boldblack on_$bgcwhite"); } else { print colored('T',"$boldblack on_$bgcwhite"); print colored(' U',"$magenta on_$bgcwhite"); print colored(' X',"$boldblack on_$bgcwhite"); } print colored('= 500000 ',"$boldwhite on_$bgcwhite"); print colored('|',"$boldblue on_$bgcblue"); print"\n";
  7651.    ssmida0(); ssreel1a(); sscolorr1a(); sep; ssslot13(); sep; ssmida(); ssreel2a(); sscolorr2a(); sep; ssslot13(); sep; ssmida(); ssreel3a(); sscolorr3a(); sep; ssslot13(); sep; ssmida1(); print colored(' OR PROGRESSIVE ',"$boldwhite on_$bgcwhite"); print colored('|',"$boldblue on_$bgcblue");  print"\n";
  7652.    ssmida0(); ssreel1(); sscolorr1(); sep; ssslotm1(); sep; ssmida(); ssreel2(); sscolorr2(); sep; ssslotm1(); sep; ssmida(); ssreel3(); sscolorr3(); sep; ssslotm1(); sep; ssmida1(); print colored('  IF 3P CENTER  ',"$boldwhite on_$bgcwhite"); print colored('|',"$boldblue on_$bgcblue"); print"\n";
  7653.    ssmida0(); ssreel1(); sscolorr1(); sep; ssslot1(); sep; ssmida(); ssreel2(); sscolorr2(); sep; ssslot1(); sep; ssmida(); ssreel3(); sscolorr3(); sep; ssslot1(); sep; ssmida1(); if ($esegpenguinhrs != 1) { print colored(' 7 7 7',"$boldblack on_$bgcwhite"); } else { print colored(' T U X',"$boldblack on_$bgcwhite"); } print colored(' = 12000  ',"$boldwhite on_$bgcwhite");  print colored('|',"$boldblue on_$bgcblue"); print"\n";
  7654.    ssmida0(); ssreel1(); sscolorr1(); sep; ssslot2(); sep; ssmida(); ssreel2(); sscolorr2(); sep; ssslot2(); sep; ssmida(); ssreel3(); sscolorr3(); sep; ssslot2(); sep; ssmida1(); if ($esegpenguinhrs != 1) { print colored(' 7',"$magenta on_$bgcwhite"); print colored(' 7',"$boldblack on_$bgcwhite"); print colored(' 7',"$magenta on_$bgcwhite"); } else { print colored(' T',"$magenta on_$bgcwhite"); print colored(' U',"$boldblack on_$bgcwhite"); print colored(' X',"$magenta on_$bgcwhite"); } print colored(' = 10000  ',"$boldwhite on_$bgcwhite"); print colored('|',"$boldblue on_$bgcblue"); print"\n";
  7655.    ssmida0(); ssreel1(); sscolorr1(); sep; ssslot3(); sep; ssmida(); ssreel2(); sscolorr2(); sep; ssslot3(); sep; ssmida(); ssreel3(); sscolorr3(); sep; ssslot3(); sep; ssmida1(); if ($esegpenguinhrs != 1) { print colored(' 7 7 7',"$magenta on_$bgcwhite"); } else { print colored(' T U X',"$magenta on_$bgcwhite"); } print colored(' = 8000   ',"$boldwhite on_$bgcwhite");  print colored('|',"$boldblue on_$bgcblue");print"\n";
  7656.    ssmida0(); ssreel1(); sscolorr1(); sep; ssslot4(); sep; ssmida(); ssreel2(); sscolorr2(); sep; ssslot4(); sep; ssmida(); ssreel3(); sscolorr3(); sep; ssslot4(); sep; ssmida1(); if ($esegpenguinhrs != 1) { print colored(' 7 7 7',"$green on_$bgcwhite"); } else { print colored(' T U X',"$green on_$bgcwhite"); } print colored(' = 6000   ',"$boldwhite on_$bgcwhite"); print colored('|',"$boldblue on_$bgcblue"); print"\n";
  7657.    ssmida0(); ssreel1(); sscolorr1(); sep; ssslot5(); sep; ssmida(); ssreel2(); sscolorr2(); sep; ssslot5(); sep; ssmida(); ssreel3(); sscolorr3(); sep; ssslot5(); sep; ssmida1(); if ($esegpenguinhrs != 1) { print colored(' 7',"$cyan on_$bgcwhite"); print colored(' 7',"$green on_$bgcwhite"); print colored(' 7',"$cyan on_$bgcwhite"); } else { print colored(' T',"$cyan on_$bgcwhite"); print colored(' U',"$green on_$bgcwhite"); print colored(' X',"$cyan on_$bgcwhite"); } print colored(' = 4000   ',"$boldwhite on_$bgcwhite"); print colored('|',"$boldblue on_$bgcblue");print"\n";
  7658.    ssmida0(); ssreel1(); sscolorr1(); sep; ssslot6(); sep; ssmida(); ssreel2(); sscolorr2(); sep; ssslot6(); sep; ssmida(); ssreel3(); sscolorr3(); sep; ssslot6(); sep; ssmida1(); if ($esegpenguinhrs != 1) { print colored(' 7 7 7',"$cyan on_$bgcwhite"); } else { print colored(' T U X',"$cyan on_$bgcwhite"); } print colored(' = 2000   ',"$boldwhite on_$bgcwhite"); print colored('|',"$boldblue on_$bgcblue"); print"\n";
  7659.    ssmidb0(); ssreel1(); sscolorr1(); ssslot7(); ssmidb(); ssreel2(); sscolorr2(); ssslot7(); ssmidb(); ssreel3(); sscolorr3(); ssslot7(); ssmidb1(); if ($esegpenguinhrs != 1) { print colored('STANDARDSEVENS',"$cyan on_$bgcblue"); } else { print colored('STANDARDPENGUI',"$cyan on_$bgcblue"); } print colored('|',"$boldblue on_$bgcblue");print"\n";
  7660.    ssmida0(); ssreel1(); sscolorr1m(); sep; ssslot8(); sep; ssmida(); ssreel2(); sscolorr2m(); sep; ssslot8(); sep; ssmida(); ssreel3(); sscolorr3m(); sep; ssslot8(); sep; ssmida1(); if ($esegpenguinhrs != 1) { print colored(' 7 7 7',"$boldmagenta on_$bgcwhite"); } else { print colored(' T U X',"$boldmagenta on_$bgcwhite"); } print colored(' = 700    ',"$boldwhite on_$bgcwhite"); print colored('|',"$boldblue on_$bgcblue");print"\n";
  7661.    ssmida0(); ssreel1(); sscolorr1m(); sep; ssslot9(); sep; ssmida(); ssreel2(); sscolorr2m(); sep; ssslot9(); sep; ssmida(); ssreel3(); sscolorr3m(); sep; ssslot9(); sep; ssmida1(); if ($esegpenguinhrs != 1) { print colored(' 7 7 7',"$boldgreen on_$bgcwhite"); } else { print colored(' T U X',"$boldgreen on_$bgcwhite"); } print colored(' = 400    ',"$boldwhite on_$bgcwhite"); print colored('|',"$boldblue on_$bgcblue");print"\n";
  7662.    ssmida0(); ssreel1(); sscolorr1m(); sep; ssslot10(); sep; ssmida(); ssreel2(); sscolorr2m(); sep; ssslot10(); sep; ssmida(); ssreel3(); sscolorr3m(); sep; ssslot10(); sep; ssmida1(); if ($esegpenguinhrs != 1) { print colored(' 7 7 7',"$blue on_$bgcwhite"); } else { print colored(' T U X',"$blue on_$bgcwhite"); } print colored(' = 250    ',"$boldwhite on_$bgcwhite"); print colored('|',"$boldblue on_$bgcblue");print"\n";
  7663.    ssmida0(); ssreel1(); sscolorr1m(); sep; ssslot11(); sep; ssmida(); ssreel2(); sscolorr2m(); sep; ssslot11(); sep; ssmida(); ssreel3(); sscolorr3m(); sep; ssslot11(); sep; ssmida1(); if ($esegpenguinhrs != 1) { print colored(' 7 7 7',"$boldyellow on_$bgcwhite"); } else { print colored(' T U X',"$boldyellow on_$bgcwhite"); } print colored(' = 130    ',"$boldwhite on_$bgcwhite"); print colored('|',"$boldblue on_$bgcblue");print"\n";
  7664.    ssmida0(); ssreel1(); sscolorr1m(); sep; ssslot12(); sep; ssmida(); ssreel2(); sscolorr2m(); sep; ssslot12(); sep; ssmida(); ssreel3(); sscolorr3m(); sep; ssslot12(); sep; ssmida1(); if ($esegpenguinhrs != 1) { print colored(' 7 7 7',"$boldwhite on_$bgcwhite"); } else { print colored(' T U X',"$boldwhite on_$bgcwhite"); } print colored(' = 80     ',"$boldwhite on_$bgcwhite"); print colored('|',"$boldblue on_$bgcblue");print"\n";
  7665.    ssmida0(); ssreel1(); sscolorr1m(); sep; ssslot13(); sep; ssmida(); ssreel2(); sscolorr2m(); sep; ssslot13(); sep; ssmida(); ssreel3(); sscolorr3m(); sep; ssslot13(); sep; ssmida1(); if ($esegpenguinhrs != 1) { print colored(' 7 7 7',"$red on_$bgcwhite"); } else { print colored(' T U X',"$red on_$bgcwhite"); } print colored(' = 20     ',"$boldwhite on_$bgcwhite"); print colored('|',"$boldblue on_$bgcblue");print"\n";
  7666.    ssmida0(); ssreel1(); sscolorr1m(); sep; ssslotp1(); sep; ssmida(); ssreel2(); sscolorr2m(); sep; ssslotp1(); sep; ssmida(); ssreel3(); sscolorr3m(); sep; ssslotp1(); sep; ssmida1(); print colored('                |',"$boldblue on_$bgcblue"); beepalrm();
  7667.    ssmida0(); ssreel1b(); sscolorr1b(); sep; ssslot1(); sep; ssmida(); ssreel2b(); sscolorr2b(); sep; ssslot1(); sep; ssmida(); ssreel3b(); sscolorr3b(); sep; ssslot1(); sep; ssmida1(); print colored('THIS SLOT PLAYS:',"$black on_$bgcwhite");print colored('|',"$boldblue on_$bgcblue"); beepalrm();
  7668.    ssmida03(); ssreel1b(); sscolorr1b(); sep; ssslot2(); sep; ssmida3(); ssreel2b(); sscolorr2b(); sep; ssslot2(); sep; ssmida3(); ssreel3b(); sscolorr3b(); sep; ssslot2(); sep; ssmida13(); print colored('5Tokn| 1Credit',"$boldblack on_$bgcwhite");print colored('|',"$boldblue on_$bgcblue"); beepalrm();
  7669.    ssmida0(); ssreel1b(); sscolorr1b(); sep; ssslot3(); sep; ssmida(); ssreel2b(); sscolorr2b(); sep; ssslot3(); sep; ssmida(); ssreel3b(); sscolorr3b(); sep; ssslot3(); sep; ssmida1(); print colored('10Tokns| 2Credit',"$boldblack on_$bgcwhite");print colored('|',"$boldblue on_$bgcblue"); beepalrm();
  7670.    ssmida0(); ssreel1b(); sscolorr1b(); sep; ssslot4(); sep; ssmida(); ssreel2b(); sscolorr2b(); sep; ssslot4(); sep; ssmida(); ssreel3b(); sscolorr3b(); sep; ssslot4(); sep; ssmida1(); print colored('15Tokns| 3Credit',"$boldblack on_$bgcwhite");print colored('|',"$boldblue on_$bgcblue"); beepalrm();
  7671.    print colored('|',"$boldblue on_$bgcblue"); print colored('   /------------------|------------------|------------------\\   ',"$boldred on_$bgcred"); print colored('              ',"$boldblack on_$bgcred"); print colored('|',"$boldblue on_$bgcblue");  beepalrm();
  7672.    print colored('|',"$boldblue on_$bgcblue"); print colored(' P = Play Center    2P = Play Center+Top    C = Return to Casino',"$boldred on_$bgcred");  print colored('  HIGH ROLLER ',"$boldblack on_$bgcred"); print colored('|',"$boldblue on_$bgcblue");  beepalrm();
  7673.    print colored('|',"$boldblue on_$bgcblue"); print colored('     3P = Play Center+Top+Bottom+Diagonals    EXIT = Quit       ',"$boldred on_$bgcred"); if ($esegpenguinhrs != 1) { print colored('     SEVENS   ',"$boldblack on_$bgcred"); } else { print colored('    PENGUINS  ',"$boldblack on_$bgcred"); } print colored('|',"$boldblue on_$bgcblue");  beepalrm();
  7674.    
  7675.    $beepnum = 0;
  7676. }
  7677. sub ssdisplaywin {
  7678.    print colored('|',"$boldblue on_$bgcblue");
  7679.    print colored(' WINNINGS ',"$boldyellow on_$bgcred");
  7680.    
  7681.    sep;
  7682.    if ($ssaddmoney > 9999999999) {
  7683.    print colored(sprintf("%.4e", $ssaddmoney),"$boldblack on_$bgcwhite");
  7684.    } elsif ($ssaddmoney >= 1000000000) {
  7685.    print colored("$ssaddmoney","$boldblack on_$bgcwhite");
  7686.    } elsif ($ssaddmoney >= 100000000) {
  7687.    print colored(" $ssaddmoney","$boldblack on_$bgcwhite");
  7688.    } elsif ($ssaddmoney >= 10000000) {
  7689.    print colored("  $ssaddmoney","$boldblack on_$bgcwhite");
  7690.    } elsif ($ssaddmoney >= 1000000) {
  7691.    print colored("   $ssaddmoney","$boldblack on_$bgcwhite");   
  7692.    } elsif ($ssaddmoney >= 100000) {
  7693.    print colored("    $ssaddmoney","$boldblack on_$bgcwhite");
  7694.    } elsif ($ssaddmoney >= 10000) {
  7695.    print colored("     $ssaddmoney","$boldblack on_$bgcwhite");
  7696.    } elsif ($ssaddmoney >= 1000) {
  7697.    print colored("      $ssaddmoney","$boldblack on_$bgcwhite");
  7698.    } elsif ($ssaddmoney >= 100) {
  7699.    print colored("       $ssaddmoney","$boldblack on_$bgcwhite");
  7700.    } elsif ($ssaddmoney >= 10) {
  7701.    print colored("        $ssaddmoney","$boldblack on_$bgcwhite");
  7702.    } elsif ($ssaddmoney >= 1) {
  7703.    print colored("         $ssaddmoney","$boldblack on_$bgcwhite");
  7704.    } else {
  7705.    print colored("         $ssaddmoney","$boldblack on_$bgcwhite");
  7706.    }
  7707.    sep;
  7708.    print colored(' TOTAL FUNDS ',"$boldyellow on_$bgcred");
  7709.    
  7710.    sep;
  7711.    if ($money > 9999999999) {
  7712.    print colored(sprintf("%.4e", $money),"$boldgreen on_$bgcgreen");
  7713.    } elsif ($money >= 1000000000) {
  7714.    print colored("$money","$boldgreen on_$bgcgreen");
  7715.    } elsif ($money >= 100000000) {
  7716.    print colored(" $money","$boldgreen on_$bgcgreen");
  7717.    } elsif ($money >= 10000000) {
  7718.    print colored("  $money","$boldgreen on_$bgcgreen");
  7719.    } elsif ($money >= 1000000) {
  7720.    print colored("   $money","$boldgreen on_$bgcgreen");
  7721.    } elsif ($money >= 100000) {
  7722.    print colored("    $money","$boldgreen on_$bgcgreen");
  7723.    } elsif ($money >= 10000) {
  7724.    print colored("     $money","$boldgreen on_$bgcgreen");
  7725.    } elsif ($money >= 1000) {
  7726.    print colored("      $money","$boldgreen on_$bgcgreen");
  7727.    } elsif ($money >= 100) {
  7728.    print colored("       $money","$boldgreen on_$bgcgreen");
  7729.    } elsif ($money >= 10) {
  7730.    print colored("        $money","$boldgreen on_$bgcgreen");
  7731.    } elsif ($money >= 1) {
  7732.    print colored("         $money","$boldgreen on_$bgcgreen");
  7733.    } else {
  7734.    print colored("         $money","$boldgreen on_$bgcgreen");
  7735.    }
  7736.    sep;
  7737.                          #
  7738.    print colored(' INSERT TOKENS ',"$boldyellow on_$bgcred");   
  7739.    sep;
  7740.    print colored(' ---------- ',"$black on_$bgcyellow");
  7741.    sep;
  7742.    print colored('   ',"$boldblue on_$bgcred");
  7743.    print colored('|----/',"$boldblue on_$bgcblue");
  7744.    print"\n";
  7745.    print colored('\\-------------------------------------------------------------------------/',"$boldblue on_$bgcblue");
  7746.    STDOUT->flush();
  7747. }
  7748. sub ssprojkpot {
  7749.    $jkclr = "$red";
  7750.    sep;
  7751.    if ($projkpot > 999999999999) {
  7752.    print colored(sprintf("%.6e", $projkpot),"bold $jkclr on_$bgcred");
  7753.    } elsif ($projkpot >= 100000000000) {
  7754.    print colored("$projkpot","bold $jkclr on_$bgcred");
  7755.    } elsif ($projkpot >= 10000000000) {
  7756.    print colored(" $projkpot","bold $jkclr on_$bgcred");
  7757.    } elsif ($projkpot >= 1000000000) {
  7758.    print colored("  $projkpot","bold $jkclr on_$bgcred");
  7759.    } elsif ($projkpot >= 100000000) {
  7760.    print colored("   $projkpot","bold $jkclr on_$bgcred");
  7761.    } elsif ($projkpot >= 10000000) {
  7762.    print colored("    $projkpot","bold $jkclr on_$bgcred");
  7763.    } elsif ($projkpot >= 1000000) {
  7764.    print colored("     $projkpot","bold $jkclr on_$bgcred");
  7765.    } elsif ($projkpot >= 100000) {
  7766.    print colored("      $projkpot","bold $jkclr on_$bgcred");
  7767.    } elsif ($projkpot >= 10000) {
  7768.    print colored("       $projkpot","bold $jkclr on_$bgcred");
  7769.    } elsif ($projkpot >= 1000) {
  7770.    print colored("        $projkpot","bold $jkclr on_$bgcred");
  7771.    } elsif ($projkpot >= 100) {
  7772.    print colored("         $projkpot","bold $jkclr on_$bgcred");
  7773.    } elsif ($projkpot >= 10) {
  7774.    print colored("          $projkpot","bold $jkclr on_$bgcred");
  7775.    } elsif ($projkpot >= 1) {
  7776.    print colored("           $projkpot","bold $jkclr on_$bgcred");
  7777.    } else {
  7778.    print colored("           $projkpot","bold $jkclr on_$bgcred");
  7779.    }
  7780.    sep;    
  7781. }
  7782. ################################################################################################################################
  7783. ## GENRE: Slot Mahine
  7784. ## NAME: Twilight Mine
  7785. ## AUTHOR: MikeeUSA
  7786. sub ngemmain {
  7787.    ngemresetvars();
  7788.    ngemspinreel();
  7789.    ngemreeltrans();
  7790.    
  7791.    if ($animate == 1) {
  7792.       $ngemreelspin = 5;
  7793.       ngemtopprint();
  7794.       ngemmainscreen();
  7795.       smallpause();
  7796.       newlines();
  7797.       
  7798.       $ngemreelspin = 4;
  7799.       ngemtopprint();
  7800.       ngemmainscreen();
  7801.       smallpause();
  7802.       newlines();
  7803.    
  7804.       $ngemreelspin = 3;
  7805.       ngemtopprint();
  7806.       ngemmainscreen();
  7807.       smallpause();
  7808.       newlines();
  7809.    
  7810.       if ($ngemplaylevel >= 2) {
  7811.       $ngemreelspin = 2;
  7812.       ngemtopprint();
  7813.       ngemmainscreen();
  7814.       smallpause();
  7815.       newlines();
  7816.       }
  7817.       
  7818.       if ($ngemplaylevel >= 3) {
  7819.       $ngemreelspin = 1;
  7820.       ngemtopprint();
  7821.       ngemmainscreen();
  7822.       smallpause();
  7823.       newlines();
  7824.       }         
  7825.    }
  7826.    
  7827.    $ngemreelspin = 0;
  7828.    ngemtopprint();
  7829.    $ngemx12 = $ngemsvslot1.$ngemsvslot2;
  7830.    $ngemx23 = $ngemsvslot2.$ngemsvslot3;
  7831.    $ngemx34 = $ngemsvslot3.$ngemsvslot4;
  7832.    $ngemx45 = $ngemsvslot4.$ngemsvslot5;
  7833.    $ngemx123 = $ngemsvslot1.$ngemsvslot2.$ngemsvslot3;
  7834.    $ngemx234 = $ngemsvslot2.$ngemsvslot3.$ngemsvslot4;
  7835.    $ngemx345 = $ngemsvslot3.$ngemsvslot4.$ngemsvslot5;
  7836.    $ngemx1234 = $ngemsvslot1.$ngemsvslot2.$ngemsvslot3.$ngemsvslot4;
  7837.    $ngemx2345 = $ngemsvslot2.$ngemsvslot3.$ngemsvslot4.$ngemsvslot5;
  7838.    $ngemx12345 = $ngemsvslot1.$ngemsvslot2.$ngemsvslot3.$ngemsvslot4.$ngemsvslot5;
  7839.    ngemangemmoney();
  7840.    ngemfundcalc();
  7841.    ngemmainscreen();
  7842.    ptracker();
  7843.    ngemstartinfo();   
  7844. }
  7845. sub ngemmain2 {
  7846.    $ngemplaylevel = 0;
  7847.    ngemresetvars();
  7848.    ngemreeltrans();
  7849.    ngemtopprint();
  7850.    $ngemx123 = ' '; #keep, a reset to null type job... well not quite null.
  7851.    $ngemx12 = ' ';
  7852.    $ngemx23 = ' ';
  7853.    if ($ngemplaylevel >= 2) {
  7854.    $ngemx234 = ' ';
  7855.    $ngemx1234 = ' ';
  7856.    $ngemx34 = ' ';
  7857.    }
  7858.    if ($ngemplaylevel >= 3) {
  7859.    $ngemx345 = ' ';
  7860.    $ngemx2345 = ' ';
  7861.    $ngemx12345 = ' ';
  7862.    $ngemx45 = ' ';
  7863.    }
  7864.    ngemmainscreen();
  7865.    ngemstartinfo();   
  7866. }
  7867. sub ngemresetvars {
  7868.    $ngemreelspin = 0;
  7869. }
  7870. sub ngemstartinfo {
  7871.    tokeneval();
  7872.    $ngemstartinfo = <STDIN>;
  7873.    chomp($ngemstartinfo);
  7874.    
  7875.    if (($ngemstartinfo eq 'a') or ($ngemstartinfo eq 'A')) {
  7876.       $ngemstartinfo = $ngemagaincmd;
  7877.    } elsif  (($ngemstartinfo eq 'p') or ($ngemstartinfo eq 'P') or ($ngemstartinfo eq '1p') or ($ngemstartinfo eq '1P')
  7878.       or ($ngemstartinfo eq '2p') or ($ngemstartinfo eq '2P') or ($ngemstartinfo eq '3p') or ($ngemstartinfo eq '3P')) {
  7879.       $ngemagaincmd = $ngemstartinfo;
  7880.    } else {
  7881.       #Do Nothing      
  7882.    }
  7883.    if (($ngemstartinfo eq 'p') or ($ngemstartinfo eq 'P') or ($ngemstartinfo eq '1P') or ($ngemstartinfo eq '1p')) {
  7884.       if ($money >= (2 * $coin)) {
  7885.          $ngemplaylevel = 1;
  7886.          $money = $money - (2 * $coin);
  7887.          $moneyexp = $moneyexp + (2 * $coin);
  7888.          $ngemstmc2 = $ngemstmc2 + (2 * $coin);
  7889.          $spins = $spins + 1;
  7890.          $ngemstspins = $ngemstspins + 1;
  7891.          if ($proadd == 1) {
  7892.             $projkpot = $projkpot + (2 * $coin);
  7893.             $proadd = 0;
  7894.          } else {
  7895.             $proadd = 1;
  7896.          }
  7897.          newlines();
  7898.          ngemmain();
  7899.       } else {
  7900.          newlines();
  7901.          ngemmain2();      
  7902.       }
  7903.    } elsif (($ngemstartinfo eq '2p') or ($ngemstartinfo eq '2P')) {
  7904.       if ($money >= (4 * $coin)) {
  7905.          $ngemplaylevel = 2;
  7906.          $money = $money - (4 * $coin);
  7907.          $moneyexp = $moneyexp + (4 * $coin);
  7908.          $ngemstmc2 = $ngemstmc2 + (4 * $coin);
  7909.          $spins = $spins + 1;
  7910.          $ngemstspins = $ngemstspins + 1;
  7911.          if ($proadd == 1) {
  7912.             $projkpot = $projkpot + (4 * $coin);
  7913.             $proadd = 0;
  7914.          } else {
  7915.             $proadd = 1;
  7916.          }
  7917.          newlines();
  7918.          ngemmain();
  7919.       } else {
  7920.          newlines();
  7921.          ngemmain2();      
  7922.       }
  7923.    } elsif (($ngemstartinfo eq '3p') or ($ngemstartinfo eq '3P')) {
  7924.       if ($money >= (6 * $coin)) {
  7925.          $ngemplaylevel = 3;
  7926.          $money = $money - (6 * $coin);
  7927.          $moneyexp = $moneyexp + (6 * $coin);
  7928.          $ngemstmc2 = $ngemstmc2 + (6 * $coin);
  7929.          $spins = $spins + 1;
  7930.          $ngemstspins = $ngemstspins + 1;
  7931.          if ($proadd == 1) {
  7932.             $projkpot = $projkpot + (6 * $coin);
  7933.             $proadd = 0;
  7934.          } else {
  7935.             $proadd = 1;
  7936.          }
  7937.          newlines();
  7938.          ngemmain();
  7939.       } else {
  7940.          newlines();
  7941.          ngemmain2();      
  7942.       }            
  7943.    } elsif (($ngemstartinfo eq 'exit') or ($ngemstartinfo eq 'EXIT') or ($ngemstartinfo eq 'quit') or ($ngemstartinfo eq 'QUIT')) {
  7944.       exitgame();
  7945.    } elsif (($ngemstartinfo eq 'c') or ($ngemstartinfo eq 'C')) {
  7946.       return;
  7947.    } else {
  7948.       newlines();
  7949.       ngemmain2();
  7950.    }
  7951. }
  7952. sub ngemfundcalc {
  7953.    $money = $money + $ngemangemmoney;
  7954.    $ngemstmc = $ngemstmc + $ngemangemmoney;
  7955. }
  7956. sub ngemslot1emr2  { if ($ngemsymbol != 1) {
  7957.             print colored('      /|',"bold $ngemcolor on_$bgcblack"); print colored('\     ',"$ngemcolor on_$bgcblack");
  7958.          } else {
  7959.             print colored(' ___________  ',"bold $ngemcolor on_$bgcblack");
  7960.          }
  7961.       }
  7962. sub ngemslot1emr3  { if ($ngemsymbol != 1) {
  7963.             print colored('     /*|',"bold $ngemcolor on_$bgcblack"); print colored('*\    ',"$ngemcolor on_$bgcblack");
  7964.          } else {
  7965.             print colored('/_____|_____\\ ',"bold $ngemcolor on_$bgcblack");
  7966.          }
  7967.       }
  7968. sub ngemslot1emr4  { if ($ngemsymbol != 1) {
  7969.             print colored('    /*/',"bold $ngemcolor on_$bgcblack"); print colored('0\ \   ',"$ngemcolor on_$bgcblack");
  7970.          } else {
  7971.             print colored('\\**  *',"bold $ngemcolor on_$bgcblack"); print colored('| 0  0/ ',"$ngemcolor on_$bgcblack");
  7972.          }
  7973.       }
  7974. sub ngemslot1emr5  { if ($ngemsymbol != 1) {
  7975.             print colored('   /*/',"bold $ngemcolor on_$bgcblack"); print colored('0 0\*\  ',"$ngemcolor on_$bgcblack");
  7976.          } else {
  7977.             print colored(' \\ * *',"bold $ngemcolor on_$bgcblack"); print colored('|  00/  ',"$ngemcolor on_$bgcblack");
  7978.          }
  7979.       }
  7980. sub ngemslot1emr6  { if ($ngemsymbol != 1) {
  7981.             print colored('  /_/',"bold $ngemcolor on_$bgcblack"); print colored('0 000\_\ ',"$ngemcolor on_$bgcblack");
  7982.          } else {
  7983.             print colored('  \\ * ',"bold $ngemcolor on_$bgcblack"); print colored('|0  /   ',"$ngemcolor on_$bgcblack");
  7984.          }
  7985.       }
  7986. sub ngemslot1emr7  { if ($ngemsymbol != 1) {
  7987.             print colored('  \*\000 0/*/ ',"$ngemcolor on_$bgcblack");
  7988.          } else {
  7989.             print colored('   \\ *',"bold $ngemcolor on_$bgcblack"); print colored('| 0/    ',"$ngemcolor on_$bgcblack");
  7990.          }
  7991.       }
  7992. sub ngemslot1emr8  { if ($ngemsymbol != 1) {
  7993.             print colored('   \ \ 00/*/  ',"$ngemcolor on_$bgcblack");
  7994.          } else {
  7995.             print colored('    \\*',"bold $ngemcolor on_$bgcblack"); print colored('| /     ',"$ngemcolor on_$bgcblack");
  7996.          }
  7997.       }
  7998. sub ngemslot1emr9  { if ($ngemsymbol != 1) {
  7999.             print colored('    \*\0/ /   ',"$ngemcolor on_$bgcblack");
  8000.          } else {
  8001.             print colored('     \\',"bold $ngemcolor on_$bgcblack"); print colored('|/      ',"$ngemcolor on_$bgcblack");
  8002.          }
  8003.       }
  8004. sub ngemslot1emr10 { if ($ngemsymbol != 1) {
  8005.             print colored('     \ |*/    ',"$ngemcolor on_$bgcblack");
  8006.          } else {
  8007.             print colored('              ',"$ngemcolor on_$bgcblack");
  8008.          }
  8009.       }
  8010. sub ngemslot1emr11 { if ($ngemsymbol != 1) {
  8011.             print colored('      \|/     ',"$ngemcolor on_$bgcblack");
  8012.          } else {
  8013.             print colored('              ',"$ngemcolor on_$bgcblack");
  8014.          }
  8015.       }
  8016. sub ngemslotwhite { print colored('              ',"$ngemcolor on_$bgcblack"); }
  8017. sub ngemslotspining { print colored('||||||||||||||',"$boldblack on_$bgcblack"); }
  8018. sub ngem45init {
  8019.    $ngemslotsymbol4 = int(rand(60));
  8020.    $ngemslotsymbol5 = int(rand(60));
  8021. }
  8022. sub ngemspinreel {
  8023.    $ngemslotsymbol1 = int(rand(60));
  8024.    $ngemslotsymbol2 = int(rand(60));
  8025.    $ngemslotsymbol3 = int(rand(60));
  8026.    
  8027.    if ($ngemplaylevel >= 2) {
  8028.       $ngemslotsymbol4 = int(rand(60));
  8029.    }
  8030.    
  8031.    if ($ngemplaylevel >= 3) {
  8032.       $ngemslotsymbol5 = int(rand(60));
  8033.    }
  8034. }
  8035. sub ngemreeltrans {
  8036.    if ($ngemslotsymbol1 <= 12) {
  8037.       $ngemsvslot1 = 7;
  8038.       $ngemr1color = "$cyan";
  8039.    } elsif ($ngemslotsymbol1 <= 22) {
  8040.       $ngemsvslot1 = 6;
  8041.       $ngemr1color = "$magenta";
  8042.    } elsif ($ngemslotsymbol1 <= 30) {
  8043.       $ngemsvslot1 = 5;
  8044.       $ngemr1color = "$blue";
  8045.    } elsif ($ngemslotsymbol1 <= 36) {
  8046.       $ngemsvslot1 = 4;
  8047.       $ngemr1color = "$yellow";
  8048.    } elsif ($ngemslotsymbol1 <= 40) {
  8049.       $ngemsvslot1 = 3;
  8050.       $ngemr1color = "$red";
  8051.    } elsif ($ngemslotsymbol1 <= 42) {
  8052.       $ngemsvslot1 = 2;
  8053.       $ngemr1color = "$white";
  8054.    } elsif ($ngemslotsymbol1 <= 43) {
  8055.       $ngemsvslot1 = 1;
  8056.       $ngemr1color = "$green";
  8057.    } elsif ($ngemslotsymbol1 <= 46) {
  8058.       $ngemsvslot1 = 8;
  8059.       $ngemr1color = "$white";
  8060.    } elsif ($ngemslotsymbol1 <= 50) {
  8061.       $ngemsvslot1 = 9;
  8062.       $ngemr1color = "$white";
  8063.    } elsif ($ngemslotsymbol1 <= 54) {
  8064.       $ngemsvslot1 = 10;
  8065.       $ngemr1color = "$white";
  8066.    } elsif ($ngemslotsymbol1 <= 59) {
  8067.       $ngemsvslot1 = 11;
  8068.       $ngemr1color = "$white";            
  8069.    } else {
  8070.       $ngemsvslot1 = 0;
  8071.       $ngemr1color = "$white";
  8072.    }
  8073.    
  8074.    if ($ngemslotsymbol2 <= 12) {
  8075.       $ngemsvslot2 = 7;
  8076.       $ngemr2color = "$cyan";
  8077.    } elsif ($ngemslotsymbol2 <= 22) {
  8078.       $ngemsvslot2 = 6;
  8079.       $ngemr2color = "$magenta";
  8080.    } elsif ($ngemslotsymbol2 <= 30) {
  8081.       $ngemsvslot2 = 5;
  8082.       $ngemr2color = "$blue";
  8083.    } elsif ($ngemslotsymbol2 <= 36) {
  8084.       $ngemsvslot2 = 4;
  8085.       $ngemr2color = "$yellow";
  8086.    } elsif ($ngemslotsymbol2 <= 40) {
  8087.       $ngemsvslot2 = 3;
  8088.       $ngemr2color = "$red";
  8089.    } elsif ($ngemslotsymbol2 <= 42) {
  8090.       $ngemsvslot2 = 2;
  8091.       $ngemr2color = "$white";
  8092.    } elsif ($ngemslotsymbol2 <= 43) {
  8093.       $ngemsvslot2 = 1;
  8094.       $ngemr2color = "$green";
  8095.    } elsif ($ngemslotsymbol2 <= 46) {
  8096.       $ngemsvslot2 = 8;
  8097.       $ngemr2color = "$white";
  8098.    } elsif ($ngemslotsymbol2 <= 50) {
  8099.       $ngemsvslot2 = 9;
  8100.       $ngemr2color = "$white";
  8101.    } elsif ($ngemslotsymbol2 <= 54) {
  8102.       $ngemsvslot2 = 10;
  8103.       $ngemr2color = "$white";
  8104.    } elsif ($ngemslotsymbol2 <= 59) {
  8105.       $ngemsvslot2 = 11;
  8106.       $ngemr2color = "$white";   
  8107.    } else {
  8108.       $ngemsvslot2 = 0;
  8109.       $ngemr2color = "$white";
  8110.    }
  8111.    
  8112.    if ($ngemslotsymbol3 <= 12) {
  8113.       $ngemsvslot3 = 7;
  8114.       $ngemr3color = "$cyan";
  8115.    } elsif ($ngemslotsymbol3 <= 22) {
  8116.       $ngemsvslot3 = 6;
  8117.       $ngemr3color = "$magenta";
  8118.    } elsif ($ngemslotsymbol3 <= 30) {
  8119.       $ngemsvslot3 = 5;
  8120.       $ngemr3color = "$blue";
  8121.    } elsif ($ngemslotsymbol3 <= 36) {
  8122.       $ngemsvslot3 = 4;
  8123.       $ngemr3color = "$yellow";
  8124.    } elsif ($ngemslotsymbol3 <= 40) {
  8125.       $ngemsvslot3 = 3;
  8126.       $ngemr3color = "$red";
  8127.    } elsif ($ngemslotsymbol3 <= 42) {
  8128.       $ngemsvslot3 = 2;
  8129.       $ngemr3color = "$white";
  8130.    } elsif ($ngemslotsymbol3 <= 43) {
  8131.       $ngemsvslot3 = 1;
  8132.       $ngemr3color = "$green";
  8133.    } elsif ($ngemslotsymbol3 <= 46) {
  8134.       $ngemsvslot3 = 8;
  8135.       $ngemr3color = "$white";
  8136.    } elsif ($ngemslotsymbol3 <= 50) {
  8137.       $ngemsvslot3 = 9;
  8138.       $ngemr3color = "$white";
  8139.    } elsif ($ngemslotsymbol3 <= 54) {
  8140.       $ngemsvslot3 = 10;
  8141.       $ngemr3color = "$white";
  8142.    } elsif ($ngemslotsymbol3 <= 59) {
  8143.       $ngemsvslot3 = 11;
  8144.       $ngemr3color = "$white";      
  8145.    } else {
  8146.       $ngemsvslot3 = 0;
  8147.       $ngemr3color = "$white";
  8148.    }      
  8149.    
  8150.    if ($ngemslotsymbol4 <= 12) {
  8151.       $ngemsvslot4 = 7;
  8152.       $ngemr4color = "$cyan";
  8153.    } elsif ($ngemslotsymbol4 <= 22) {
  8154.       $ngemsvslot4 = 6;
  8155.       $ngemr4color = "$magenta";
  8156.    } elsif ($ngemslotsymbol4 <= 30) {
  8157.       $ngemsvslot4 = 5;
  8158.       $ngemr4color = "$blue";
  8159.    } elsif ($ngemslotsymbol4 <= 36) {
  8160.       $ngemsvslot4 = 4;
  8161.       $ngemr4color = "$yellow";
  8162.    } elsif ($ngemslotsymbol4 <= 40) {
  8163.       $ngemsvslot4 = 3;
  8164.       $ngemr4color = "$red";
  8165.    } elsif ($ngemslotsymbol4 <= 42) {
  8166.       $ngemsvslot4 = 2;
  8167.       $ngemr4color = "$white";
  8168.    } elsif ($ngemslotsymbol4 <= 43) {
  8169.       $ngemsvslot4 = 1;
  8170.       $ngemr4color = "$green";
  8171.    } elsif ($ngemslotsymbol4 <= 46) {
  8172.       $ngemsvslot4 = 8;
  8173.       $ngemr4color = "$white";
  8174.    } elsif ($ngemslotsymbol4 <= 50) {
  8175.       $ngemsvslot4 = 9;
  8176.       $ngemr4color = "$white";
  8177.    } elsif ($ngemslotsymbol4 <= 54) {
  8178.       $ngemsvslot4 = 10;
  8179.       $ngemr4color = "$white";
  8180.    } elsif ($ngemslotsymbol4 <= 59) {
  8181.       $ngemsvslot4 = 11;
  8182.       $ngemr4color = "$white";   
  8183.    } else {
  8184.       $ngemsvslot4 = 0;
  8185.       $ngemr4color = "$white";
  8186.    }
  8187.    
  8188.    if ($ngemslotsymbol5 <= 12) {
  8189.       $ngemsvslot5 = 7;
  8190.       $ngemr5color = "$cyan";
  8191.    } elsif ($ngemslotsymbol5 <= 22) {
  8192.       $ngemsvslot5 = 6;
  8193.       $ngemr5color = "$magenta";
  8194.    } elsif ($ngemslotsymbol5 <= 30) {
  8195.       $ngemsvslot5 = 5;
  8196.       $ngemr5color = "$blue";
  8197.    } elsif ($ngemslotsymbol5 <= 36) {
  8198.       $ngemsvslot5 = 4;
  8199.       $ngemr5color = "$yellow";
  8200.    } elsif ($ngemslotsymbol5 <= 40) {
  8201.       $ngemsvslot5 = 3;
  8202.       $ngemr5color = "$red";
  8203.    } elsif ($ngemslotsymbol5 <= 42) {
  8204.       $ngemsvslot5 = 2;
  8205.       $ngemr5color = "$white";
  8206.    } elsif ($ngemslotsymbol5 <= 43) {
  8207.       $ngemsvslot5 = 1;
  8208.       $ngemr5color = "$green";
  8209.    } elsif ($ngemslotsymbol5 <= 46) {
  8210.       $ngemsvslot5 = 8;
  8211.       $ngemr5color = "$white";
  8212.    } elsif ($ngemslotsymbol5 <= 50) {
  8213.       $ngemsvslot5 = 9;
  8214.       $ngemr5color = "$white";
  8215.    } elsif ($ngemslotsymbol5 <= 54) {
  8216.       $ngemsvslot5 = 10;
  8217.       $ngemr5color = "$white";
  8218.    } elsif ($ngemslotsymbol5 <= 59) {
  8219.       $ngemsvslot5 = 11;
  8220.       $ngemr5color = "$white";      
  8221.    } else {
  8222.       $ngemsvslot5 = 0;
  8223.       $ngemr5color = "$white";
  8224.    }
  8225. }
  8226.                
  8227. sub ngemslot1 {
  8228.    if ($ngemslot1 eq 'spining') {
  8229.       ngemslotspining();
  8230.    } elsif ($ngemslot1 == 1) {
  8231.       ngemslot1emr2();
  8232.    } elsif ($ngemslot1 == 3) {
  8233.       ngemslot1emr2();
  8234.    } elsif ($ngemslot1 == 5) {
  8235.       ngemslot1emr2();   
  8236.    } elsif ($ngemslot1 == 7) {
  8237.       ngemslot1emr2();
  8238.    } elsif ($ngemslot1 == 8) {
  8239.       $ngemcolor = "$yellow";
  8240.       ngemslot1emr9();
  8241.    } elsif ($ngemslot1 == 9) {
  8242.       $ngemcolor = "$magenta";
  8243.       ngemslot1emr8();
  8244.    } elsif ($ngemslot1 == 10) {
  8245.       $ngemcolor = "$magenta";
  8246.       ngemslot1emr9();
  8247.    } elsif ($ngemslot1 == 11) {
  8248.       $ngemcolor = "$white";
  8249.       ngemslot1emr8();         
  8250.    } else {
  8251.       ngemslotwhite();
  8252.    }
  8253. }
  8254. sub ngemslot2 {
  8255.    if ($ngemslot2 eq 'spining') {
  8256.       ngemslotspining();
  8257.    } elsif ($ngemslot2 == 1) {
  8258.       ngemslot1emr3();
  8259.    } elsif ($ngemslot2 == 2) {
  8260.       ngemslot1emr2();   
  8261.    } elsif ($ngemslot2 == 3) {
  8262.       ngemslot1emr3();
  8263.    } elsif ($ngemslot2 == 4) {
  8264.       ngemslot1emr2();   
  8265.    } elsif ($ngemslot2 == 5) {
  8266.       ngemslot1emr3();
  8267.    } elsif ($ngemslot2 == 6) {
  8268.       ngemslot1emr2();      
  8269.    } elsif ($ngemslot2 == 7) {
  8270.       ngemslot1emr3();
  8271.    } elsif ($ngemslot2 == 8) {
  8272.       $ngemcolor = "$yellow";
  8273.       ngemslot1emr10();
  8274.    } elsif ($ngemslot2 == 9) {
  8275.       $ngemcolor = "$magenta";
  8276.       ngemslot1emr9();
  8277.    } elsif ($ngemslot2 == 10) {
  8278.       $ngemcolor = "$magenta";
  8279.       ngemslot1emr10();
  8280.    } elsif ($ngemslot2 == 11) {
  8281.       $ngemcolor = "$white";
  8282.       ngemslot1emr9();      
  8283.    } else {
  8284.       ngemslotwhite();
  8285.    }
  8286. }
  8287. sub ngemslot3 {
  8288.    if ($ngemslot3 eq 'spining') {
  8289.       ngemslotspining();
  8290.    } elsif ($ngemslot3 == 1) {
  8291.       ngemslot1emr4();
  8292.    } elsif ($ngemslot3 == 2) {
  8293.       ngemslot1emr3();   
  8294.    } elsif ($ngemslot3 == 3) {
  8295.       ngemslot1emr4();
  8296.    } elsif ($ngemslot3 == 4) {
  8297.       ngemslot1emr3();   
  8298.    } elsif ($ngemslot3 == 5) {
  8299.       ngemslot1emr4();
  8300.    } elsif ($ngemslot3 == 6) {
  8301.       ngemslot1emr3();      
  8302.    } elsif ($ngemslot3 == 7) {
  8303.       ngemslot1emr4();
  8304.    } elsif ($ngemslot3 == 8) {
  8305.       $ngemcolor = "$yellow";
  8306.       ngemslot1emr11();
  8307.    } elsif ($ngemslot3 == 9) {
  8308.       $ngemcolor = "$magenta";
  8309.       ngemslot1emr10();
  8310.    } elsif ($ngemslot3 == 10) {
  8311.       $ngemcolor = "$magenta";
  8312.       ngemslot1emr11();
  8313.    } elsif ($ngemslot3 == 11) {
  8314.       $ngemcolor = "$white";
  8315.       ngemslot1emr10();   
  8316.    } else {
  8317.       ngemslotwhite();
  8318.    }
  8319. }
  8320. sub ngemslot4 {
  8321.    if ($ngemslot4 eq 'spining') {
  8322.       ngemslotspining();
  8323.    } elsif ($ngemslot4 == 1) {
  8324.       ngemslot1emr5();
  8325.    } elsif ($ngemslot4 == 2) {
  8326.       ngemslot1emr4();   
  8327.    } elsif ($ngemslot4 == 3) {
  8328.       ngemslot1emr5();
  8329.    } elsif ($ngemslot4 == 4) {
  8330.       ngemslot1emr4();   
  8331.    } elsif ($ngemslot4 == 5) {
  8332.       ngemslot1emr5();
  8333.    } elsif ($ngemslot4 == 6) {
  8334.       ngemslot1emr4();      
  8335.    } elsif ($ngemslot4 == 7) {
  8336.       ngemslot1emr5();
  8337.    } elsif ($ngemslot4 == 9) {
  8338.       $ngemcolor = "$magenta";
  8339.       ngemslot1emr11();
  8340.    } elsif ($ngemslot4 == 11) {
  8341.       $ngemcolor = "$white";
  8342.       ngemslot1emr11();      
  8343.    } else {
  8344.       ngemslotwhite();
  8345.    }
  8346. }
  8347. sub ngemslot5 {
  8348.    if ($ngemslot5 eq 'spining') {
  8349.       ngemslotspining();
  8350.    } elsif ($ngemslot5 == 1) {
  8351.       ngemslot1emr6();
  8352.    } elsif ($ngemslot5 == 2) {
  8353.       ngemslot1emr5();   
  8354.    } elsif ($ngemslot5 == 3) {
  8355.       ngemslot1emr6();
  8356.    } elsif ($ngemslot5 == 4) {
  8357.       ngemslot1emr5();   
  8358.    } elsif ($ngemslot5 == 5) {
  8359.       ngemslot1emr6();
  8360.    } elsif ($ngemslot5 == 6) {
  8361.       ngemslot1emr5();      
  8362.    } elsif ($ngemslot5 == 7) {
  8363.       ngemslot1emr6();
  8364.    } else {
  8365.       ngemslotwhite();
  8366.    }
  8367. }
  8368. sub ngemslot6 {
  8369.    if ($ngemslot6 eq 'spining') {
  8370.       ngemslotspining();
  8371.    } elsif ($ngemslot6 == 1) {
  8372.       ngemslot1emr7();
  8373.    } elsif ($ngemslot6 == 2) {
  8374.       ngemslot1emr6();   
  8375.    } elsif ($ngemslot6 == 3) {
  8376.       ngemslot1emr7();
  8377.    } elsif ($ngemslot6 == 4) {
  8378.       ngemslot1emr6();   
  8379.    } elsif ($ngemslot6 == 5) {
  8380.       ngemslot1emr7();
  8381.    } elsif ($ngemslot6 == 6) {
  8382.       ngemslot1emr6();      
  8383.    } elsif ($ngemslot6 == 7) {
  8384.       ngemslot1emr7();
  8385.    } else {
  8386.       ngemslotwhite();
  8387.    }
  8388. }
  8389. sub ngemslot7 {
  8390.    if ($ngemslot7 eq 'spining') {
  8391.       ngemslotspining();
  8392.    } elsif ($ngemslot7 == 1) {
  8393.       ngemslot1emr8();
  8394.    } elsif ($ngemslot7 == 2) {
  8395.       ngemslot1emr7();   
  8396.    } elsif ($ngemslot7 == 3) {
  8397.       ngemslot1emr8();
  8398.    } elsif ($ngemslot7 == 4) {
  8399.       ngemslot1emr7();   
  8400.    } elsif ($ngemslot7 == 5) {
  8401.       ngemslot1emr8();
  8402.    } elsif ($ngemslot7 == 6) {
  8403.       ngemslot1emr7();      
  8404.    } elsif ($ngemslot7 == 7) {
  8405.       ngemslot1emr8();
  8406.    } else {
  8407.       ngemslotwhite();
  8408.    }
  8409. }
  8410. sub ngemslot8 {
  8411.    if ($ngemslot8 eq 'spining') {
  8412.       ngemslotspining();
  8413.    } elsif ($ngemslot8 == 1) {
  8414.       ngemslot1emr9();
  8415.    } elsif ($ngemslot8 == 2) {
  8416.       ngemslot1emr8();   
  8417.    } elsif ($ngemslot8 == 3) {
  8418.       ngemslot1emr9();
  8419.    } elsif ($ngemslot8 == 4) {
  8420.       ngemslot1emr8();   
  8421.    } elsif ($ngemslot8 == 5) {
  8422.       ngemslot1emr9();
  8423.    } elsif ($ngemslot8 == 6) {
  8424.       ngemslot1emr8();      
  8425.    } elsif ($ngemslot8 == 7) {
  8426.       ngemslot1emr9();
  8427.    } elsif ($ngemslot8 == 8) {
  8428.       $ngemcolor = "$cyan";
  8429.       ngemslot1emr2();
  8430.    } elsif ($ngemslot8 == 10) {
  8431.       $ngemcolor = "$green";
  8432.       ngemslot1emr2();
  8433.    } else {
  8434.       ngemslotwhite();
  8435.    }
  8436. }
  8437. sub ngemslot9 {
  8438.    if ($ngemslot9 eq 'spining') {
  8439.       ngemslotspining();
  8440.    } elsif ($ngemslot9 == 1) {
  8441.       ngemslot1emr10();
  8442.    } elsif ($ngemslot9 == 2) {
  8443.       ngemslot1emr9();   
  8444.    } elsif ($ngemslot9 == 3) {
  8445.       ngemslot1emr10();
  8446.    } elsif ($ngemslot9 == 4) {
  8447.       ngemslot1emr9();   
  8448.    } elsif ($ngemslot9 == 5) {
  8449.       ngemslot1emr10();
  8450.    } elsif ($ngemslot9 == 6) {
  8451.       ngemslot1emr9();      
  8452.    } elsif ($ngemslot9 == 7) {
  8453.       ngemslot1emr10();
  8454.    } elsif ($ngemslot9 == 8) {
  8455.       $ngemcolor = "$cyan";
  8456.       ngemslot1emr3();
  8457.    } elsif ($ngemslot9 == 9) {
  8458.       $ngemcolor = "$blue";
  8459.       ngemslot1emr2();
  8460.    } elsif ($ngemslot9 == 10) {
  8461.       $ngemcolor = "$green";
  8462.       ngemslot1emr3();
  8463.    } elsif ($ngemslot9 == 11) {
  8464.       $ngemcolor = "$red";
  8465.       ngemslot1emr2();      
  8466.    } else {
  8467.       ngemslotwhite();
  8468.    }
  8469. }
  8470. sub ngemslot10 {
  8471.    if ($ngemslot10 eq 'spining') {
  8472.       ngemslotspining();
  8473.    } elsif ($ngemslot10 == 1) {
  8474.       ngemslot1emr11();
  8475.    } elsif ($ngemslot10 == 2) {
  8476.       ngemslot1emr10();   
  8477.    } elsif ($ngemslot10 == 3) {
  8478.       ngemslot1emr11();
  8479.    } elsif ($ngemslot10 == 4) {
  8480.       ngemslot1emr10();   
  8481.    } elsif ($ngemslot10 == 5) {
  8482.       ngemslot1emr11();
  8483.    } elsif ($ngemslot10 == 6) {
  8484.       ngemslot1emr10();      
  8485.    } elsif ($ngemslot10 == 7) {
  8486.       ngemslot1emr11();
  8487.    } elsif ($ngemslot10 == 8) {
  8488.       $ngemcolor = "$cyan";
  8489.       ngemslot1emr4();
  8490.    } elsif ($ngemslot10 == 9) {
  8491.       $ngemcolor = "$blue";
  8492.       ngemslot1emr3();
  8493.    } elsif ($ngemslot10 == 10) {
  8494.       $ngemcolor = "$green";
  8495.       ngemslot1emr4();
  8496.    } elsif ($ngemslot10 == 11) {
  8497.       $ngemcolor = "$red";
  8498.       ngemslot1emr3();            
  8499.    } else {
  8500.       ngemslotwhite();
  8501.    }
  8502. }
  8503. sub ngemslot11 {
  8504.    if ($ngemslot11 eq 'spining') {
  8505.       ngemslotspining();
  8506.    } elsif ($ngemslot11 == 2) {
  8507.       ngemslot1emr11();   
  8508.    } elsif ($ngemslot11 == 4) {
  8509.       ngemslot1emr11();   
  8510.    } elsif ($ngemslot11 == 6) {
  8511.       ngemslot1emr11();
  8512.    } elsif ($ngemslot11 == 8) {
  8513.       $ngemcolor = "$cyan";
  8514.       ngemslot1emr5();
  8515.    } elsif ($ngemslot11 == 9) {
  8516.       $ngemcolor = "$blue";
  8517.       ngemslot1emr4();
  8518.    } elsif ($ngemslot11 == 10) {
  8519.       $ngemcolor = "$green";
  8520.       ngemslot1emr5();
  8521.    } elsif ($ngemslot11 == 11) {
  8522.       $ngemcolor = "$red";
  8523.       ngemslot1emr4();            
  8524.    } else {
  8525.       ngemslotwhite();
  8526.    }
  8527. }
  8528. sub ngemcolorr1 {
  8529.    $ngemcolor = $ngemr1color;
  8530. }
  8531. sub ngemcolorr2 {
  8532.    $ngemcolor = $ngemr2color;
  8533. }
  8534. sub ngemcolorr3 {
  8535.    $ngemcolor = $ngemr3color;
  8536. }
  8537. sub ngemcolorr4 {
  8538.    $ngemcolor = $ngemr4color;
  8539. }
  8540. sub ngemcolorr5 {
  8541.    $ngemcolor = $ngemr5color;
  8542. }
  8543. sub ngemreel1 {
  8544.    $ngemreel = 1;
  8545.    if ($ngemreelspin == 5) {
  8546.       $ngemslot1 = 'spining';
  8547.       $ngemslot2 = 'spining';
  8548.       $ngemslot3 = 'spining';
  8549.       $ngemslot4 = 'spining';
  8550.       $ngemslot5 = 'spining';
  8551.       $ngemslot6 = 'spining';
  8552.       $ngemslot7 = 'spining';
  8553.       $ngemslot8 = 'spining';
  8554.       $ngemslot9 = 'spining';
  8555.       $ngemslot10 = 'spining';
  8556.       $ngemslot11 = 'spining';
  8557.       $ngemslot12 = 'spining';
  8558.       $ngemslot13 = 'spining';
  8559.       $ngemslot14 = 'spining';
  8560.    } else {
  8561.       $ngemslot1 = $ngemsvslot1;
  8562.       $ngemslot2 = $ngemsvslot1;
  8563.       $ngemslot3 = $ngemsvslot1;
  8564.       $ngemslot4 = $ngemsvslot1;
  8565.       $ngemslot5 = $ngemsvslot1;
  8566.       $ngemslot6 = $ngemsvslot1;
  8567.       $ngemslot7 = $ngemsvslot1;
  8568.       $ngemslot8 = $ngemsvslot1;
  8569.       $ngemslot9 = $ngemsvslot1;
  8570.       $ngemslot10 = $ngemsvslot1;
  8571.       $ngemslot11 = $ngemsvslot1;
  8572.       $ngemslot12 = $ngemsvslot1;
  8573.       $ngemslot13 = $ngemsvslot1;
  8574.       $ngemslot14 = $ngemsvslot1;
  8575.    }
  8576.    
  8577. }
  8578. sub ngemreel2 {
  8579.    $ngemreel = 2;
  8580.    if ($ngemreelspin >= 4) {
  8581.       $ngemslot1 = 'spining';
  8582.       $ngemslot2 = 'spining';
  8583.       $ngemslot3 = 'spining';
  8584.       $ngemslot4 = 'spining';
  8585.       $ngemslot5 = 'spining';
  8586.       $ngemslot6 = 'spining';
  8587.       $ngemslot7 = 'spining';
  8588.       $ngemslot8 = 'spining';
  8589.       $ngemslot9 = 'spining';
  8590.       $ngemslot10 = 'spining';
  8591.       $ngemslot11 = 'spining';
  8592.       $ngemslot12 = 'spining';
  8593.       $ngemslot13 = 'spining';
  8594.       $ngemslot14 = 'spining';
  8595.    } else {
  8596.       $ngemslot1 = $ngemsvslot2;
  8597.       $ngemslot2 = $ngemsvslot2;
  8598.       $ngemslot3 = $ngemsvslot2;
  8599.       $ngemslot4 = $ngemsvslot2;
  8600.       $ngemslot5 = $ngemsvslot2;
  8601.       $ngemslot6 = $ngemsvslot2;
  8602.       $ngemslot7 = $ngemsvslot2;
  8603.       $ngemslot8 = $ngemsvslot2;
  8604.       $ngemslot9 = $ngemsvslot2;
  8605.       $ngemslot10 = $ngemsvslot2;
  8606.       $ngemslot11 = $ngemsvslot2;
  8607.       $ngemslot12 = $ngemsvslot2;
  8608.       $ngemslot13 = $ngemsvslot2;
  8609.       $ngemslot14 = $ngemsvslot2;
  8610.    }
  8611. }
  8612. sub ngemreel3 {
  8613.    $ngemreel = 3;
  8614.    if ($ngemreelspin >= 3) {
  8615.       $ngemslot1 = 'spining';
  8616.       $ngemslot2 = 'spining';
  8617.       $ngemslot3 = 'spining';
  8618.       $ngemslot4 = 'spining';
  8619.       $ngemslot5 = 'spining';
  8620.       $ngemslot6 = 'spining';
  8621.       $ngemslot7 = 'spining';
  8622.       $ngemslot8 = 'spining';
  8623.       $ngemslot9 = 'spining';
  8624.       $ngemslot10 = 'spining';
  8625.       $ngemslot11 = 'spining';
  8626.       $ngemslot12 = 'spining';
  8627.       $ngemslot13 = 'spining';
  8628.       $ngemslot14 = 'spining';
  8629.    } else {
  8630.       $ngemslot1 = $ngemsvslot3;
  8631.       $ngemslot2 = $ngemsvslot3;
  8632.       $ngemslot3 = $ngemsvslot3;
  8633.       $ngemslot4 = $ngemsvslot3;
  8634.       $ngemslot5 = $ngemsvslot3;
  8635.       $ngemslot6 = $ngemsvslot3;
  8636.       $ngemslot7 = $ngemsvslot3;
  8637.       $ngemslot8 = $ngemsvslot3;
  8638.       $ngemslot9 = $ngemsvslot3;
  8639.       $ngemslot10 = $ngemsvslot3;
  8640.       $ngemslot11 = $ngemsvslot3;
  8641.       $ngemslot12 = $ngemsvslot3;
  8642.       $ngemslot13 = $ngemsvslot3;
  8643.       $ngemslot14 = $ngemsvslot3;
  8644.    }
  8645. }
  8646. sub ngemreel4 {
  8647.    $ngemreel = 4;
  8648.    if (($ngemreelspin >= 2) and ($ngemplaylevel >= 2)) {
  8649.       $ngemslot1 = 'spining';
  8650.       $ngemslot2 = 'spining';
  8651.       $ngemslot3 = 'spining';
  8652.       $ngemslot4 = 'spining';
  8653.       $ngemslot5 = 'spining';
  8654.       $ngemslot6 = 'spining';
  8655.       $ngemslot7 = 'spining';
  8656.       $ngemslot8 = 'spining';
  8657.       $ngemslot9 = 'spining';
  8658.       $ngemslot10 = 'spining';
  8659.       $ngemslot11 = 'spining';
  8660.       $ngemslot12 = 'spining';
  8661.       $ngemslot13 = 'spining';
  8662.       $ngemslot14 = 'spining';
  8663.    } else {
  8664.       $ngemslot1 = $ngemsvslot4;
  8665.       $ngemslot2 = $ngemsvslot4;
  8666.       $ngemslot3 = $ngemsvslot4;
  8667.       $ngemslot4 = $ngemsvslot4;
  8668.       $ngemslot5 = $ngemsvslot4;
  8669.       $ngemslot6 = $ngemsvslot4;
  8670.       $ngemslot7 = $ngemsvslot4;
  8671.       $ngemslot8 = $ngemsvslot4;
  8672.       $ngemslot9 = $ngemsvslot4;
  8673.       $ngemslot10 = $ngemsvslot4;
  8674.       $ngemslot11 = $ngemsvslot4;
  8675.       $ngemslot12 = $ngemsvslot4;
  8676.       $ngemslot13 = $ngemsvslot4;
  8677.       $ngemslot14 = $ngemsvslot4;
  8678.    }
  8679. }
  8680. sub ngemreel5 {
  8681.    $ngemreel = 5;
  8682.    if (($ngemreelspin >= 1) and ($ngemplaylevel >= 3)) {
  8683.       $ngemslot1 = 'spining';
  8684.       $ngemslot2 = 'spining';
  8685.       $ngemslot3 = 'spining';
  8686.       $ngemslot4 = 'spining';
  8687.       $ngemslot5 = 'spining';
  8688.       $ngemslot6 = 'spining';
  8689.       $ngemslot7 = 'spining';
  8690.       $ngemslot8 = 'spining';
  8691.       $ngemslot9 = 'spining';
  8692.       $ngemslot10 = 'spining';
  8693.       $ngemslot11 = 'spining';
  8694.       $ngemslot12 = 'spining';
  8695.       $ngemslot13 = 'spining';
  8696.       $ngemslot14 = 'spining';
  8697.    } else {
  8698.       $ngemslot1 = $ngemsvslot5;
  8699.       $ngemslot2 = $ngemsvslot5;
  8700.       $ngemslot3 = $ngemsvslot5;
  8701.       $ngemslot4 = $ngemsvslot5;
  8702.       $ngemslot5 = $ngemsvslot5;
  8703.       $ngemslot6 = $ngemsvslot5;
  8704.       $ngemslot7 = $ngemsvslot5;
  8705.       $ngemslot8 = $ngemsvslot5;
  8706.       $ngemslot9 = $ngemsvslot5;
  8707.       $ngemslot10 = $ngemsvslot5;
  8708.       $ngemslot11 = $ngemsvslot5;
  8709.       $ngemslot12 = $ngemsvslot5;
  8710.       $ngemslot13 = $ngemsvslot5;
  8711.       $ngemslot14 = $ngemsvslot5;
  8712.    }
  8713. }
  8714. sub ngemmid0 {
  8715.    print color 'reset';
  8716.    print colored('|',"$boldmagenta on_$bgcmagenta");
  8717.    print color 'reset';
  8718. }
  8719. sub ngemmid1a {
  8720.    print color 'reset';
  8721.    print colored('<',"$boldblue on_$bgcblue");
  8722.    print color 'reset';
  8723. }
  8724. sub ngemmid1 {
  8725.    print color 'reset';
  8726.    print colored('>',"$boldblue on_$bgcblue");
  8727.    print color 'reset';
  8728. }
  8729. sub ngemslotb {
  8730.    print color 'reset';
  8731.    print colored('I',"$boldwhite on_$bgcwhite");
  8732.    print colored(' ',"$black on_$bgcblack");
  8733.    print colored('I',"$boldwhite on_$bgcwhite");
  8734.    print colored('|',"$boldmagenta on_$bgcmagenta");
  8735.    print color 'reset';
  8736. }
  8737. sub ngemslota {
  8738.    print color 'reset';
  8739.    print colored('III',"$boldwhite on_$bgcwhite");
  8740.    print colored('|',"$boldmagenta on_$bgcmagenta");
  8741.    print color 'reset';
  8742. }
  8743. sub ngemangemmoney {
  8744.    if ($ngemx123 eq "111") {
  8745.       $ngemangemmoney = 2560 * $coin;
  8746.       $beepnum = 4;
  8747.       $ngemstwin = $ngemstwin + 1;
  8748.    } elsif ($ngemx123 eq "222") {
  8749.       $ngemangemmoney = 640 * $coin;
  8750.       $beepnum = 3;
  8751.       $ngemstwin = $ngemstwin + 1;
  8752.    } elsif ($ngemx123 eq "333") {
  8753.       $ngemangemmoney = 320 * $coin;
  8754.       $beepnum = 3;
  8755.       $ngemstwin = $ngemstwin + 1;
  8756.    } elsif ($ngemx123 eq "444") {
  8757.       $ngemangemmoney = 160 * $coin;
  8758.       $beepnum = 2;
  8759.       $ngemstwin = $ngemstwin + 1;
  8760.    } elsif ($ngemx123 eq "555") {
  8761.       $ngemangemmoney = 80 * $coin;
  8762.       $beepnum = 2;
  8763.       $ngemstwin = $ngemstwin + 1;
  8764.    } elsif ($ngemx123 eq "666") {
  8765.       $ngemangemmoney = 40 * $coin;
  8766.       $beepnum = 2;
  8767.       $ngemstwin = $ngemstwin + 1;
  8768.    } elsif ($ngemx123 eq "777") {
  8769.       $ngemangemmoney = 20 * $coin;
  8770.       $beepnum = 2;
  8771.       $ngemstwin = $ngemstwin + 1;
  8772.    } elsif ($ngemx123 eq "545") {
  8773.       $ngemangemmoney = 60 * $coin;
  8774.       $beepnum = 2;
  8775.       $ngemstwin = $ngemstwin + 1;
  8776.    } elsif ($ngemx123 eq "656") {
  8777.       $ngemangemmoney = 30 * $coin;
  8778.       $beepnum = 2;
  8779.       $ngemstwin = $ngemstwin + 1;
  8780.    } elsif ($ngemx123 eq "767") {
  8781.       $ngemangemmoney = 15 * $coin;
  8782.       $beepnum = 2;
  8783.       $ngemstwin = $ngemstwin + 1;                                          
  8784.    } else {
  8785.       $ngemangemmoney = 0;
  8786.       $beepnum = 0;
  8787.    }
  8788.    
  8789.    if ($ngemx12 eq "11") {
  8790.       $ngemangemmoney = $ngemangemmoney + (24 * $coin);
  8791.       $beepnum = $beepnum + 2;
  8792.       $ngemstwin = $ngemstwin + 1;
  8793.    } elsif ($ngemx12 eq "22") {
  8794.       $ngemangemmoney = $ngemangemmoney + (10 * $coin);
  8795.       $beepnum = $beepnum + 2;
  8796.       $ngemstwin = $ngemstwin + 1;
  8797.    } elsif ($ngemx12 eq "33") {
  8798.       $ngemangemmoney = $ngemangemmoney + (8 * $coin);
  8799.       $beepnum = $beepnum + 2;
  8800.       $ngemstwin = $ngemstwin + 1;
  8801.    } elsif ($ngemx12 eq "44") {
  8802.       $ngemangemmoney = $ngemangemmoney + (6 * $coin);
  8803.       $beepnum = $beepnum + 2;
  8804.       $ngemstwin = $ngemstwin + 1;
  8805.    } else {
  8806.       #nothing
  8807.    }
  8808.    
  8809.    if ($ngemx23 eq "11") {
  8810.       $ngemangemmoney = $ngemangemmoney + (24 * $coin);
  8811.       $beepnum = $beepnum + 2;
  8812.       $ngemstwin = $ngemstwin + 1;
  8813.    } elsif ($ngemx23 eq "22") {
  8814.       $ngemangemmoney = $ngemangemmoney + (10 * $coin);
  8815.       $beepnum = $beepnum + 2;
  8816.       $ngemstwin = $ngemstwin + 1;
  8817.    } elsif ($ngemx23 eq "33") {
  8818.       $ngemangemmoney = $ngemangemmoney + (8 * $coin);
  8819.       $beepnum = $beepnum + 2;
  8820.       $ngemstwin = $ngemstwin + 1;
  8821.    } elsif ($ngemx23 eq "44") {
  8822.       $ngemangemmoney = $ngemangemmoney + (6 * $coin);
  8823.       $beepnum = $beepnum + 2;
  8824.       $ngemstwin = $ngemstwin + 1;
  8825.    } else {
  8826.       #nothing
  8827.    }   
  8828.    
  8829.    if ($ngemsvslot1 eq "1") {
  8830.       $ngemangemmoney = $ngemangemmoney + (4 * $coin);
  8831.       $ngemstwin = $ngemstwin + 1;
  8832.    } elsif ($ngemsvslot1 eq "2") {
  8833.       $ngemangemmoney = $ngemangemmoney + (2 * $coin);
  8834.       $ngemstwin = $ngemstwin + 1;   
  8835.    } else {
  8836.       #nothing
  8837.    }
  8838.    
  8839.    if ($ngemsvslot2 eq "1") {
  8840.       $ngemangemmoney = $ngemangemmoney + (4 * $coin);
  8841.       $ngemstwin = $ngemstwin + 1;
  8842.    } elsif ($ngemsvslot2 eq "2") {
  8843.       $ngemangemmoney = $ngemangemmoney + (2 * $coin);
  8844.       $ngemstwin = $ngemstwin + 1;   
  8845.    } else {
  8846.       #nothing
  8847.    }
  8848.    
  8849.    if ($ngemsvslot3 eq "1") {
  8850.       $ngemangemmoney = $ngemangemmoney + (4 * $coin);
  8851.       $ngemstwin = $ngemstwin + 1;
  8852.    } elsif ($ngemsvslot3 eq "2") {
  8853.       $ngemangemmoney = $ngemangemmoney + (2 * $coin);
  8854.       $ngemstwin = $ngemstwin + 1;   
  8855.    } else {
  8856.       #nothing
  8857.    }      
  8858.    
  8859.    if ($ngemplaylevel >= 2) {      
  8860.       if ($ngemsvslot4 eq "1") {
  8861.          $ngemangemmoney = $ngemangemmoney + (4 * $coin);
  8862.          $ngemstwin = $ngemstwin + 1;
  8863.       } elsif ($ngemsvslot4 eq "2") {
  8864.          $ngemangemmoney = $ngemangemmoney + (2 * $coin);
  8865.          $ngemstwin = $ngemstwin + 1;   
  8866.       } else {
  8867.          #nothing
  8868.       }
  8869.       
  8870.       if ($ngemx34 eq "11") {
  8871.          $ngemangemmoney = $ngemangemmoney + (24 * $coin);
  8872.          $beepnum = $beepnum + 2;
  8873.          $ngemstwin = $ngemstwin + 1;
  8874.       } elsif ($ngemx34 eq "22") {
  8875.          $ngemangemmoney = $ngemangemmoney + (10 * $coin);
  8876.          $beepnum = $beepnum + 2;
  8877.          $ngemstwin = $ngemstwin + 1;
  8878.       } elsif ($ngemx34 eq "33") {
  8879.          $ngemangemmoney = $ngemangemmoney + (8 * $coin);
  8880.          $beepnum = $beepnum + 2;
  8881.          $ngemstwin = $ngemstwin + 1;
  8882.       } elsif ($ngemx34 eq "44") {
  8883.          $ngemangemmoney = $ngemangemmoney + (6 * $coin);
  8884.          $beepnum = $beepnum + 2;
  8885.          $ngemstwin = $ngemstwin + 1;
  8886.       } else {
  8887.          #nothing
  8888.       }
  8889.    
  8890.       if ($ngemx234 eq "111") {
  8891.          $ngemangemmoney = $ngemangemmoney + (2560 * $coin);
  8892.          $beepnum = $beepnum + 4;
  8893.          $ngemstwin = $ngemstwin + 1;
  8894.       } elsif ($ngemx234 eq "222") {
  8895.          $ngemangemmoney = $ngemangemmoney + (640 * $coin);
  8896.          $beepnum = $beepnum + 3;
  8897.          $ngemstwin = $ngemstwin + 1;
  8898.       } elsif ($ngemx234 eq "333") {
  8899.          $ngemangemmoney = $ngemangemmoney + (320 * $coin);
  8900.          $beepnum = $beepnum + 3;
  8901.          $ngemstwin = $ngemstwin + 1;
  8902.       } elsif ($ngemx234 eq "444") {
  8903.          $ngemangemmoney = $ngemangemmoney + (160 * $coin);
  8904.          $beepnum = $beepnum + 2;
  8905.          $ngemstwin = $ngemstwin + 1;
  8906.       } elsif ($ngemx234 eq "555") {
  8907.          $ngemangemmoney = $ngemangemmoney + (80 * $coin);
  8908.          $beepnum = $beepnum + 2;
  8909.          $ngemstwin = $ngemstwin + 1;
  8910.       } elsif ($ngemx234 eq "666") {
  8911.          $ngemangemmoney = $ngemangemmoney + (40 * $coin);
  8912.          $beepnum = $beepnum + 2;
  8913.          $ngemstwin = $ngemstwin + 1;
  8914.       } elsif ($ngemx234 eq "777") {
  8915.          $ngemangemmoney = $ngemangemmoney + (20 * $coin);
  8916.          $beepnum = $beepnum + 2;
  8917.          $ngemstwin = $ngemstwin + 1;
  8918.       } elsif ($ngemx234 eq "545") {
  8919.          $ngemangemmoney = $ngemangemmoney + (60 * $coin);
  8920.          $beepnum = 2;
  8921.          $ngemstwin = $ngemstwin + 1;
  8922.       } elsif ($ngemx234 eq "656") {
  8923.          $ngemangemmoney = $ngemangemmoney + (30 * $coin);
  8924.          $beepnum = 2;
  8925.          $ngemstwin = $ngemstwin + 1;
  8926.       } elsif ($ngemx234 eq "767") {
  8927.          $ngemangemmoney = $ngemangemmoney + (15 * $coin);
  8928.          $beepnum = 2;
  8929.          $ngemstwin = $ngemstwin + 1;            
  8930.       } else {
  8931.          #nothing
  8932.       }
  8933.       
  8934.       #
  8935.       
  8936.       if ($ngemx1234 eq "1111") {
  8937.          $ngemangemmoney = $ngemangemmoney + (7640 * $coin);
  8938.          $beepnum = $beepnum + 5;
  8939.          $ngemstwin = $ngemstwin + 1;
  8940.       } elsif ($ngemx1234 eq "2222") {
  8941.          $ngemangemmoney = $ngemangemmoney + (1920 * $coin);
  8942.          $beepnum = $beepnum + 4;
  8943.          $ngemstwin = $ngemstwin + 1;
  8944.       } elsif ($ngemx1234 eq "3333") {
  8945.          $ngemangemmoney = $ngemangemmoney + (960 * $coin);
  8946.          $beepnum = $beepnum + 4;
  8947.          $ngemstwin = $ngemstwin + 1;
  8948.       } elsif ($ngemx1234 eq "4444") {
  8949.          $ngemangemmoney = $ngemangemmoney + (480 * $coin);
  8950.          $beepnum = $beepnum + 3;
  8951.          $ngemstwin = $ngemstwin + 1;
  8952.       } elsif ($ngemx1234 eq "5555") {
  8953.          $ngemangemmoney = $ngemangemmoney + (240 * $coin);
  8954.          $beepnum = $beepnum + 3;
  8955.          $ngemstwin = $ngemstwin + 1;
  8956.       } elsif ($ngemx1234 eq "6666") {
  8957.          $ngemangemmoney = $ngemangemmoney + (120 * $coin);
  8958.          $beepnum = $beepnum + 3;
  8959.          $ngemstwin = $ngemstwin + 1;
  8960.       } elsif ($ngemx1234 eq "7777") {
  8961.          $ngemangemmoney = $ngemangemmoney + (60 * $coin);
  8962.          $beepnum = $beepnum + 3;
  8963.          $ngemstwin = $ngemstwin + 1;            
  8964.       } else {
  8965.          #nothing
  8966.       }         
  8967.    }
  8968.    
  8969.    if ($ngemplaylevel >= 3) {
  8970.       if ($ngemsvslot5 eq "1") {
  8971.          $ngemangemmoney = $ngemangemmoney + (4 * $coin);
  8972.          $ngemstwin = $ngemstwin + 1;
  8973.       } elsif ($ngemsvslot5 eq "2") {
  8974.          $ngemangemmoney = $ngemangemmoney + (2 * $coin);
  8975.          $ngemstwin = $ngemstwin + 1;   
  8976.       } else {
  8977.          #nothing
  8978.       }
  8979.    
  8980.       if ($ngemx45 eq "11") {
  8981.          $ngemangemmoney = $ngemangemmoney + (24 * $coin);
  8982.          $beepnum = $beepnum + 2;
  8983.          $ngemstwin = $ngemstwin + 1;
  8984.       } elsif ($ngemx45 eq "22") {
  8985.          $ngemangemmoney = $ngemangemmoney + (10 * $coin);
  8986.          $beepnum = $beepnum + 2;
  8987.          $ngemstwin = $ngemstwin + 1;
  8988.       } elsif ($ngemx45 eq "33") {
  8989.          $ngemangemmoney = $ngemangemmoney + (8 * $coin);
  8990.          $beepnum = $beepnum + 2;
  8991.          $ngemstwin = $ngemstwin + 1;
  8992.       } elsif ($ngemx45 eq "44") {
  8993.          $ngemangemmoney = $ngemangemmoney + (6 * $coin);
  8994.          $beepnum = $beepnum + 2;
  8995.          $ngemstwin = $ngemstwin + 1;
  8996.       } else {
  8997.          #nothing
  8998.       }
  8999.    
  9000.       if ($ngemx345 eq "111") {
  9001.          $ngemangemmoney = $ngemangemmoney + (2560 * $coin);
  9002.          $beepnum = $beepnum + 4;
  9003.          $ngemstwin = $ngemstwin + 1;
  9004.       } elsif ($ngemx345 eq "222") {
  9005.          $ngemangemmoney = $ngemangemmoney + (640 * $coin);
  9006.          $beepnum = $beepnum + 3;
  9007.          $ngemstwin = $ngemstwin + 1;
  9008.       } elsif ($ngemx345 eq "333") {
  9009.          $ngemangemmoney = $ngemangemmoney + (320 * $coin);
  9010.          $beepnum = $beepnum + 3;
  9011.          $ngemstwin = $ngemstwin + 1;
  9012.       } elsif ($ngemx345 eq "444") {
  9013.          $ngemangemmoney = $ngemangemmoney + (160 * $coin);
  9014.          $beepnum = $beepnum + 2;
  9015.          $ngemstwin = $ngemstwin + 1;
  9016.       } elsif ($ngemx345 eq "555") {
  9017.          $ngemangemmoney = $ngemangemmoney + (80 * $coin);
  9018.          $beepnum = $beepnum + 2;
  9019.          $ngemstwin = $ngemstwin + 1;
  9020.       } elsif ($ngemx345 eq "666") {
  9021.          $ngemangemmoney = $ngemangemmoney + (40 * $coin);
  9022.          $beepnum = $beepnum + 2;
  9023.          $ngemstwin = $ngemstwin + 1;
  9024.       } elsif ($ngemx345 eq "777") {
  9025.          $ngemangemmoney = $ngemangemmoney + (20 * $coin);
  9026.          $beepnum = $beepnum + 2;
  9027.          $ngemstwin = $ngemstwin + 1;
  9028.       } elsif ($ngemx345 eq "545") {
  9029.          $ngemangemmoney = $ngemangemmoney + (60 * $coin);
  9030.          $beepnum = 2;
  9031.          $ngemstwin = $ngemstwin + 1;
  9032.       } elsif ($ngemx345 eq "656") {
  9033.          $ngemangemmoney = $ngemangemmoney + (30 * $coin);
  9034.          $beepnum = 2;
  9035.          $ngemstwin = $ngemstwin + 1;
  9036.       } elsif ($ngemx345 eq "767") {
  9037.          $ngemangemmoney = $ngemangemmoney + (15 * $coin);
  9038.          $beepnum = 2;
  9039.          $ngemstwin = $ngemstwin + 1;            
  9040.       } else {
  9041.          #NNNNOOOOOTTTHHIINNGG!!!!
  9042.       }
  9043.             
  9044.       #
  9045.       
  9046.       if ($ngemx2345 eq "1111") {
  9047.          $ngemangemmoney = $ngemangemmoney + (7640 * $coin);
  9048.          $beepnum = $beepnum + 5;
  9049.          $ngemstwin = $ngemstwin + 1;
  9050.       } elsif ($ngemx2345 eq "2222") {
  9051.          $ngemangemmoney = $ngemangemmoney + (1920 * $coin);
  9052.          $beepnum = $beepnum + 4;
  9053.          $ngemstwin = $ngemstwin + 1;
  9054.       } elsif ($ngemx2345 eq "3333") {
  9055.          $ngemangemmoney = $ngemangemmoney + (960 * $coin);
  9056.          $beepnum = $beepnum + 4;
  9057.          $ngemstwin = $ngemstwin + 1;
  9058.       } elsif ($ngemx2345 eq "4444") {
  9059.          $ngemangemmoney = $ngemangemmoney + (480 * $coin);
  9060.          $beepnum = $beepnum + 3;
  9061.          $ngemstwin = $ngemstwin + 1;
  9062.       } elsif ($ngemx2345 eq "5555") {
  9063.          $ngemangemmoney = $ngemangemmoney + (240 * $coin);
  9064.          $beepnum = $beepnum + 3;
  9065.          $ngemstwin = $ngemstwin + 1;
  9066.       } elsif ($ngemx2345 eq "6666") {
  9067.          $ngemangemmoney = $ngemangemmoney + (120 * $coin);
  9068.          $beepnum = $beepnum + 3;
  9069.          $ngemstwin = $ngemstwin + 1;
  9070.       } elsif ($ngemx2345 eq "7777") {
  9071.          $ngemangemmoney = $ngemangemmoney + (60 * $coin);
  9072.          $beepnum = $beepnum + 3;
  9073.          $ngemstwin = $ngemstwin + 1;            
  9074.       } else {
  9075.          #nothing
  9076.       }
  9077.       
  9078.       #
  9079.       
  9080.       if ($ngemx12345 eq "11111") {
  9081.          $ngemangemmoney = $ngemangemmoney + (15360 * $coin);
  9082.          $beepnum = $beepnum + 5;
  9083.          $ngemstwin = $ngemstwin + 1;
  9084.       } elsif ($ngemx12345 eq "22222") {
  9085.          $ngemangemmoney = $ngemangemmoney + (3840 * $coin);
  9086.          $beepnum = $beepnum + 4;
  9087.          $ngemstwin = $ngemstwin + 1;
  9088.       } elsif ($ngemx12345 eq "33333") {
  9089.          $ngemangemmoney = $ngemangemmoney + (1920 * $coin);
  9090.          $beepnum = $beepnum + 4;
  9091.          $ngemstwin = $ngemstwin + 1;
  9092.       } elsif ($ngemx12345 eq "44444") {
  9093.          $ngemangemmoney = $ngemangemmoney + (960 * $coin);
  9094.          $beepnum = $beepnum + 3;
  9095.          $ngemstwin = $ngemstwin + 1;
  9096.       } elsif ($ngemx12345 eq "55555") {
  9097.          $ngemangemmoney = $ngemangemmoney + (480 * $coin);
  9098.          $beepnum = $beepnum + 3;
  9099.          $ngemstwin = $ngemstwin + 1;
  9100.       } elsif ($ngemx12345 eq "66666") {
  9101.          $ngemangemmoney = $ngemangemmoney + (240 * $coin);
  9102.          $beepnum = $beepnum + 3;
  9103.          $ngemstwin = $ngemstwin + 1;
  9104.       } elsif ($ngemx12345 eq "77777") {
  9105.          $ngemangemmoney = $ngemangemmoney + (120 * $coin);
  9106.          $beepnum = $beepnum + 3;
  9107.          $ngemstwin = $ngemstwin + 1;            
  9108.       } else {
  9109.          #NOTHING!
  9110.       }
  9111.    }
  9112.    
  9113.    if ($beepnum == 0) {
  9114.       if (($ngemsvslot1 eq "1") or ($ngemsvslot1 eq "2")) {
  9115.          $beepnum = 2;
  9116.       }
  9117.       
  9118.       if (($ngemsvslot2 eq "1") or ($ngemsvslot2 eq "2")) {
  9119.          $beepnum = 2;
  9120.       }
  9121.       
  9122.       if (($ngemsvslot3 eq "1") or ($ngemsvslot3 eq "2")) {
  9123.          $beepnum = 2;
  9124.       }
  9125.          
  9126.       if ($ngemplaylevel >= 2) {
  9127.          if (($ngemsvslot4 eq "1") or ($ngemsvslot4 eq "2")) {
  9128.             $beepnum = 2;
  9129.          }
  9130.       }
  9131.       
  9132.       if ($ngemplaylevel >= 3) {
  9133.          if (($ngemsvslot5 eq "1") or ($ngemsvslot5 eq "2")) {
  9134.             $beepnum = 2;
  9135.          }
  9136.       }   
  9137.    }
  9138.    
  9139.    if ($ngemangemmoney == 0) {
  9140.       $ngemstlose = $ngemstlose + 1;
  9141.    }
  9142. }
  9143.          
  9144. sub ngemmainscreen {
  9145.    ngemmid0(); ngemreel1(); ngemcolorr1(); sep; ngemslot1(); sep;  ngemmid0(); ngemreel2(); ngemcolorr2(); sep; ngemslot1(); sep;  ngemmid0(); ngemreel3(); ngemcolorr3(); sep; ngemslot1(); sep;  ngemmid0(); ngemreel4(); ngemcolorr4(); sep; ngemslot1(); sep;  ngemmid0(); ngemreel5(); ngemcolorr5(); sep; ngemslot1(); sep;  ngemmid0(); print colored('   |',"$boldmagenta on_$bgcmagenta"); print"\n";
  9146.    ngemmid0(); ngemreel1(); ngemcolorr1(); sep; ngemslot2(); sep;  ngemmid0(); ngemreel2(); ngemcolorr2(); sep; ngemslot2(); sep;  ngemmid0(); ngemreel3(); ngemcolorr3(); sep; ngemslot2(); sep;  ngemmid0(); ngemreel4(); ngemcolorr4(); sep; ngemslot2(); sep;  ngemmid0(); ngemreel5(); ngemcolorr5(); sep; ngemslot2(); sep;  ngemmid0(); print colored('   |',"$boldmagenta on_$bgcmagenta"); print"\n";
  9147.    ngemmid0(); ngemreel1(); ngemcolorr1(); sep; ngemslot3(); sep;  ngemmid0(); ngemreel2(); ngemcolorr2(); sep; ngemslot3(); sep;  ngemmid0(); ngemreel3(); ngemcolorr3(); sep; ngemslot3(); sep;  ngemmid0(); ngemreel4(); ngemcolorr4(); sep; ngemslot3(); sep;  ngemmid0(); ngemreel5(); ngemcolorr5(); sep; ngemslot3(); sep;  ngemmid0(); print colored('   |',"$boldmagenta on_$bgcmagenta"); print"\n";
  9148.    ngemmid0(); ngemreel1(); ngemcolorr1(); sep; ngemslot4(); sep;  ngemmid0(); ngemreel2(); ngemcolorr2(); sep; ngemslot4(); sep;  ngemmid0(); ngemreel3(); ngemcolorr3(); sep; ngemslot4(); sep;  ngemmid0(); ngemreel4(); ngemcolorr4(); sep; ngemslot4(); sep;  ngemmid0(); ngemreel5(); ngemcolorr5(); sep; ngemslot4(); sep;  ngemmid0(); print colored('   |',"$boldmagenta on_$bgcmagenta"); print"\n";
  9149.    ngemmid0(); ngemreel1(); ngemcolorr1(); sep; ngemslot5(); sep;  ngemmid0(); ngemreel2(); ngemcolorr2(); sep; ngemslot5(); sep;  ngemmid0(); ngemreel3(); ngemcolorr3(); sep; ngemslot5(); sep;  ngemmid0(); ngemreel4(); ngemcolorr4(); sep; ngemslot5(); sep;  ngemmid0(); ngemreel5(); ngemcolorr5(); sep; ngemslot5(); sep;  ngemmid0(); ngemslota(); print"\n";
  9150.    ngemmid1(); ngemreel1(); ngemcolorr1(); sep; ngemslot6(); sep;  ngemmid1(); ngemreel2(); ngemcolorr2(); sep; ngemslot6(); sep;  ngemmid1(); ngemreel3(); ngemcolorr3(); sep; ngemslot6(); sep;  ngemmid1a(); ngemreel4(); ngemcolorr4(); sep; ngemslot6(); sep;  ngemmid1a(); ngemreel5(); ngemcolorr5(); sep; ngemslot6(); sep;  ngemmid1a(); ngemslotb(); print"\n";
  9151.    ngemmid0(); ngemreel1(); ngemcolorr1(); sep; ngemslot7(); sep;  ngemmid0(); ngemreel2(); ngemcolorr2(); sep; ngemslot7(); sep;  ngemmid0(); ngemreel3(); ngemcolorr3(); sep; ngemslot7(); sep;  ngemmid0(); ngemreel4(); ngemcolorr4(); sep; ngemslot7(); sep;  ngemmid0(); ngemreel5(); ngemcolorr5(); sep; ngemslot7(); sep;  ngemmid0(); ngemslotb(); print"\n";
  9152.    ngemmid0(); ngemreel1(); ngemcolorr1(); sep; ngemslot8(); sep;  ngemmid0(); ngemreel2(); ngemcolorr2(); sep; ngemslot8(); sep;  ngemmid0(); ngemreel3(); ngemcolorr3(); sep; ngemslot8(); sep;  ngemmid0(); ngemreel4(); ngemcolorr4(); sep; ngemslot8(); sep;  ngemmid0(); ngemreel5(); ngemcolorr5(); sep; ngemslot8(); sep;  ngemmid0(); ngemslotb(); beepalrm();
  9153.    ngemmid0(); ngemreel1(); ngemcolorr1(); sep; ngemslot9(); sep;  ngemmid0(); ngemreel2(); ngemcolorr2(); sep; ngemslot9(); sep;  ngemmid0(); ngemreel3(); ngemcolorr3(); sep; ngemslot9(); sep;  ngemmid0(); ngemreel4(); ngemcolorr4(); sep; ngemslot9(); sep;  ngemmid0(); ngemreel5(); ngemcolorr5(); sep; ngemslot9(); sep;  ngemmid0(); ngemslotb(); beepalrm();
  9154.    ngemmid0(); ngemreel1(); ngemcolorr1(); sep; ngemslot10(); sep;  ngemmid0(); ngemreel2(); ngemcolorr2(); sep; ngemslot10(); sep;  ngemmid0(); ngemreel3(); ngemcolorr3(); sep; ngemslot10(); sep;  ngemmid0(); ngemreel4(); ngemcolorr4(); sep; ngemslot10(); sep;  ngemmid0(); ngemreel5(); ngemcolorr5(); sep; ngemslot10(); sep;  ngemmid0(); ngemslota(); beepalrm();
  9155.    ngemmid0(); ngemreel1(); ngemcolorr1(); sep; ngemslot11(); sep;  ngemmid0(); ngemreel2(); ngemcolorr2(); sep; ngemslot11(); sep;  ngemmid0(); ngemreel3(); ngemcolorr3(); sep; ngemslot11(); sep;  ngemmid0(); ngemreel4(); ngemcolorr4(); sep; ngemslot11(); sep;  ngemmid0(); ngemreel5(); ngemcolorr5(); sep; ngemslot11(); sep;  ngemmid0(); print colored('   |',"$boldmagenta on_$bgcmagenta"); beepalrm();
  9156.    print colored('|--------------|--------------|--------------|--------------|--------------|   |',"$boldmagenta on_$bgcmagenta");  beepalrm();
  9157.    print colored('|--------------------------------------------------------------------------|   |',"$boldmagenta on_$bgcmagenta");  beepalrm();   
  9158.    print colored('|',"$boldmagenta on_$bgcmagenta"); ngemwinnings(); ngemfunds(); print colored('             GPC-SLOTS 2               |',"$boldmagenta on_$bgcmagenta");  beepalrm();
  9159.    print colored('\------------------------------------------------------------------------------/',"$boldmagenta on_$bgcmagenta");  beepalrm();   
  9160.    
  9161.    $beepnum = 0;
  9162. }
  9163. sub ngemwinnings {
  9164.    print colored(' WINNINGS ',"$boldmagenta on_$bgcmagenta");
  9165.    sep;
  9166.    if ($ngemangemmoney > 9999999999) {
  9167.    print colored(sprintf("%.4e", $ngemangemmoney),"$boldcyan on_$bgccyan");
  9168.    } elsif ($ngemangemmoney >= 1000000000) {
  9169.    print colored("$ngemangemmoney","$boldcyan on_$bgccyan");
  9170.    } elsif ($ngemangemmoney >= 100000000) {
  9171.    print colored(" $ngemangemmoney","$boldcyan on_$bgccyan");
  9172.    } elsif ($ngemangemmoney >= 10000000) {
  9173.    print colored("  $ngemangemmoney","$boldcyan on_$bgccyan");
  9174.    } elsif ($ngemangemmoney >= 1000000) {
  9175.    print colored("   $ngemangemmoney","$boldcyan on_$bgccyan");
  9176.    } elsif ($ngemangemmoney >= 100000) {
  9177.    print colored("    $ngemangemmoney","$boldcyan on_$bgccyan");
  9178.    } elsif ($ngemangemmoney >= 10000) {
  9179.    print colored("     $ngemangemmoney","$boldcyan on_$bgccyan");
  9180.    } elsif ($ngemangemmoney >= 1000) {
  9181.    print colored("      $ngemangemmoney","$boldcyan on_$bgccyan");
  9182.    } elsif ($ngemangemmoney >= 100) {
  9183.    print colored("       $ngemangemmoney","$boldcyan on_$bgccyan");
  9184.    } elsif ($ngemangemmoney >= 10) {
  9185.    print colored("        $ngemangemmoney","$boldcyan on_$bgccyan");
  9186.    } elsif ($ngemangemmoney >= 1) {
  9187.    print colored("         $ngemangemmoney","$boldcyan on_$bgccyan");
  9188.    } else {
  9189.    print colored("         $ngemangemmoney","$boldcyan on_$bgccyan");
  9190.    }
  9191.    sep;
  9192. }
  9193. sub ngemfunds {
  9194.    print colored('   FUNDS ',"$boldmagenta on_$bgcmagenta");
  9195.    sep;
  9196.    if ($money > 9999999999) {
  9197.    print colored(sprintf("%.4e", $money),"$boldcyan on_$bgccyan");
  9198.    } elsif ($money >= 1000000000) {
  9199.    print colored("$money","$boldcyan on_$bgccyan");
  9200.    } elsif ($money >= 100000000) {
  9201.    print colored(" $money","$boldcyan on_$bgccyan");
  9202.    } elsif ($money >= 10000000) {
  9203.    print colored("  $money","$boldcyan on_$bgccyan");
  9204.    } elsif ($money >= 1000000) {
  9205.    print colored("   $money","$boldcyan on_$bgccyan");
  9206.    } elsif ($money >= 100000) {
  9207.    print colored("    $money","$boldcyan on_$bgccyan");
  9208.    } elsif ($money >= 10000) {
  9209.    print colored("     $money","$boldcyan on_$bgccyan");
  9210.    } elsif ($money >= 1000) {
  9211.    print colored("      $money","$boldcyan on_$bgccyan");
  9212.    } elsif ($money >= 100) {
  9213.    print colored("       $money","$boldcyan on_$bgccyan");
  9214.    } elsif ($money >= 10) {
  9215.    print colored("        $money","$boldcyan on_$bgccyan");
  9216.    } elsif ($money >= 1) {
  9217.    print colored("         $money","$boldcyan on_$bgccyan");
  9218.    } else {
  9219.    print colored("         $money","$boldcyan on_$bgccyan");
  9220.    }
  9221.    sep;
  9222. }
  9223. sub ngemtopend {
  9224.    print colored('                ',"$white on_$bgcgreen");
  9225.    print colored('|',"$boldblack on_$bgcblack");
  9226. }
  9227. sub ngemtopprint {
  9228.    print colored('/---------------------------------------',"$boldmagenta on_$bgcmagenta");
  9229.    print colored('---------------------------------------\\',"$boldblack on_$bgcblack");  print"\n";
  9230.    print colored('|',"$boldmagenta on_$bgcmagenta");
  9231.    print colored('GEM',"$boldgreen on_$bgcmagenta");
  9232.    print colored(' = 2560',"$white on_$bgcmagenta");
  9233.    print colored('  GEMS',"$boldgreen on_$bgcmagenta");
  9234.    print colored(' = 7640',"$white on_$bgcmagenta");
  9235.    print colored('  GEMSS',"$boldgreen on_$bgcmagenta");
  9236.    print colored(' = 15360 ',"$white on_$bgcmagenta");
  9237.    print colored('     *',"$boldwhite on_$bgcblack");
  9238.    print colored('       Twilight Mine         ',"$boldcyan on_$bgcblack");
  9239.    print colored('*   ',"$boldwhite on_$bgcblack");
  9240.    print colored('|',"$boldblack on_$bgcblack"); print"\n";
  9241.    
  9242.    print colored('|',"$boldmagenta on_$bgcmagenta");
  9243.    print colored('GEM',"$boldwhite on_$bgcmagenta");
  9244.    print colored(' = 640 ',"$white on_$bgcmagenta");
  9245.    print colored('*',"$boldmagenta on_$bgcmagenta");
  9246.    print colored(' GEMS',"$boldwhite on_$bgcmagenta");
  9247.    print colored(' = 1920',"$white on_$bgcmagenta");
  9248.    print colored('  GEMSS',"$boldwhite on_$bgcmagenta");
  9249.    print colored(' = 3840  ',"$white on_$bgcmagenta");    #
  9250.    print colored(' 2 Tokens - 1 Credit  : P ',"$boldblack on_$bgcblack");
  9251.    print colored('*',"$boldwhite on_$bgcblack");
  9252.    print colored('  WINNINGS  |',"$boldblack on_$bgcblack");
  9253.    print"\n";
  9254.    
  9255.    print colored('|',"$boldmagenta on_$bgcmagenta");
  9256.    print colored('GEM',"$boldred on_$bgcmagenta");
  9257.    print colored(' = 320',"$white on_$bgcmagenta");
  9258.    print colored('   GEMS',"$boldred on_$bgcmagenta");
  9259.    print colored(' = 960',"$white on_$bgcmagenta");
  9260.    print colored('   GEMSS',"$boldred on_$bgcmagenta");
  9261.    print colored(' = 1920 ',"$white on_$bgcmagenta");    #
  9262.    print colored('*',"$boldmagenta on_$bgcmagenta");   
  9263.    print colored(' 4 Tokens - 2 Credits : 2P     ARE    ',"$boldblack on_$bgcblack");
  9264.    print colored('*',"$boldwhite on_$bgcblack");
  9265.    print colored('|',"$boldblack on_$bgcblack");
  9266.    print"\n";
  9267.    print colored('|',"$boldmagenta on_$bgcmagenta");
  9268.    print colored('GEM',"$boldyellow on_$bgcmagenta");
  9269.    print colored(' = 160',"$white on_$bgcmagenta");
  9270.    print colored('   GEMS',"$boldyellow on_$bgcmagenta");
  9271.    print colored(' = 480',"$white on_$bgcmagenta");
  9272.    print colored(' *',"$boldmagenta on_$bgcmagenta");
  9273.    print colored(' GEMSS',"$boldyellow on_$bgcmagenta");
  9274.    print colored(' = 960   ',"$white on_$bgcmagenta");   
  9275.    print colored(' 6 Tokens - 3 Credits : 3P  COMPOUNDED |',"$boldblack on_$bgcblack");
  9276.    print"\n";
  9277.    print colored('|',"$boldmagenta on_$bgcmagenta");
  9278.    print colored('GEM',"$boldblue on_$bgcmagenta");
  9279.    print colored(' = 80',"$white on_$bgcmagenta");
  9280.    print colored(' *',"$boldmagenta on_$bgcmagenta");   
  9281.    print colored('  GEMS',"$boldblue on_$bgcmagenta");
  9282.    print colored(' = 240',"$white on_$bgcmagenta");
  9283.    print colored('   GEMSS',"$boldblue on_$bgcmagenta");
  9284.    print colored(' = 480   ',"$white on_$bgcmagenta");   
  9285.    print colored('            *                          ',"$boldwhite on_$bgcblack");
  9286.    print colored('|',"$boldblack on_$bgcblack");
  9287.    print"\n";
  9288.    print colored('|',"$boldmagenta on_$bgcmagenta");
  9289.    print colored('GEM',"$boldmagenta on_$bgcmagenta");
  9290.    print colored(' = 40',"$white on_$bgcmagenta");   
  9291.    print colored('    GEMS',"$boldmagenta on_$bgcmagenta");
  9292.    print colored(' = 120',"$white on_$bgcmagenta");
  9293.    print colored('  *GEMSS',"$boldmagenta on_$bgcmagenta");
  9294.    print colored(' = 240   ',"$white on_$bgcmagenta");   
  9295.    print colored(' C = Return To Casino Menu      ',"$boldblack on_$bgcblack");
  9296.    print colored('*',"$boldwhite on_$bgcblack");
  9297.    print colored('      |',"$boldblack on_$bgcblack");
  9298.    print"\n";
  9299.    print colored('|',"$boldmagenta on_$bgcmagenta");
  9300.    print colored('GEM',"$boldcyan on_$bgcmagenta");
  9301.    print colored(' = 20',"$white on_$bgcmagenta");
  9302.    print colored('    GEMS',"$boldcyan on_$bgcmagenta");
  9303.    print colored(' = 60',"$white on_$bgcmagenta");   
  9304.    print colored('    GEMSS',"$boldcyan on_$bgcmagenta");
  9305.    print colored(' = 120   ',"$white on_$bgcmagenta");   
  9306.    print colored(' EXIT = Quit            ',"$boldblack on_$bgcblack");
  9307.    print colored('*',"$boldwhite on_$bgcblack");
  9308.    print colored('              |',"$boldblack on_$bgcblack");
  9309.    print"\n";
  9310.    print colored('|',"$boldmagenta on_$bgcmagenta");
  9311.    print colored('G',"$boldblue on_$bgcmagenta");
  9312.    print colored('E',"$boldyellow on_$bgcmagenta");
  9313.    print colored('M',"$boldblue on_$bgcmagenta");
  9314.    print colored(' = 60',"$white on_$bgcmagenta");
  9315.    print colored('      *          ',"$boldmagenta on_$bgcmagenta");
  9316.    print colored('GE',"$boldgreen on_$bgcmagenta");
  9317.    print colored(' = 24',"$white on_$bgcmagenta");
  9318.    print colored('  GE',"$boldred on_$bgcmagenta");
  9319.    print colored(' = 8  ',"$white on_$bgcmagenta");
  9320.    print colored(' G',"$boldgreen on_$bgcmagenta");
  9321.    print colored(' =',"$white on_$bgcmagenta");
  9322.    print colored('*',"$boldmagenta on_$bgcmagenta");
  9323.    print colored('4',"$white on_$bgcmagenta");
  9324.    print colored('                     *        |',"$boldmagenta on_$bgcmagenta");
  9325.    print"\n";
  9326.    
  9327.    print colored('|',"$boldmagenta on_$bgcmagenta");
  9328.    print colored('G',"$boldmagenta on_$bgcmagenta");
  9329.    print colored('E',"$boldblue on_$bgcmagenta");
  9330.    print colored('M',"$boldmagenta on_$bgcmagenta");
  9331.    print colored(' = 30',"$white on_$bgcmagenta");   
  9332.         print colored('    ',"$boldmagenta on_$bgcmagenta");
  9333.    print colored('G',"$boldcyan on_$bgcmagenta");
  9334.    print colored('E',"$boldmagenta on_$bgcmagenta");
  9335.    print colored('M',"$boldcyan on_$bgcmagenta");
  9336.    print colored(' = 15',"$white on_$bgcmagenta");   
  9337.    print colored('     GE',"$boldwhite on_$bgcmagenta");
  9338.    print colored(' = 10',"$white on_$bgcmagenta");
  9339.    print colored('  GE',"$boldyellow on_$bgcmagenta");
  9340.    print colored(' = 6',"$white on_$bgcmagenta");
  9341.    print colored(' *',"$boldmagenta on_$bgcmagenta");
  9342.    print colored(' G',"$boldwhite on_$bgcmagenta");
  9343.    print colored(' = 2',"$white on_$bgcmagenta");
  9344.    print colored('         *                *   |',"$boldmagenta on_$bgcmagenta");
  9345.    print"\n";
  9346.    print colored('|------------------------------------------------------------------------------|',"$boldmagenta on_$bgcmagenta");  print"\n";
  9347.    print colored('|',"$boldmagenta on_$bgcmagenta");
  9348.    if ($ngemplaylevel >= 1) {
  9349.       print colored('   1 CREDIT   ',"$boldwhite on_$bgcmagenta");
  9350.    } else {
  9351.       print colored('   1 CREDIT   ',"$boldmagenta on_$bgcmagenta");
  9352.    }
  9353.    print colored(' ',"$boldmagenta on_$bgcmagenta"); 
  9354.    if ($ngemplaylevel >= 1) {
  9355.       print colored('   1 CREDIT   ',"$boldwhite on_$bgcmagenta");
  9356.    } else {
  9357.       print colored('   1 CREDIT   ',"$boldmagenta on_$bgcmagenta");
  9358.    }
  9359.    print colored(' ',"$boldmagenta on_$bgcmagenta"); 
  9360.    if ($ngemplaylevel >= 1) {
  9361.       print colored('   1 CREDIT   ',"$boldwhite on_$bgcmagenta");
  9362.    } else {
  9363.       print colored('   1 CREDIT   ',"$boldmagenta on_$bgcmagenta");
  9364.    }
  9365.    print colored(' ',"$boldmagenta on_$bgcmagenta"); 
  9366.    if ($ngemplaylevel >= 2) {
  9367.       print colored('   2 CREDITS  ',"$boldwhite on_$bgcmagenta");
  9368.    } else {
  9369.       print colored('   2 CREDITS  ',"$boldmagenta on_$bgcmagenta");
  9370.    }
  9371.    print colored(' ',"$boldmagenta on_$bgcmagenta"); 
  9372.    if ($ngemplaylevel >= 3) {
  9373.       print colored('   3 CREDITS  ',"$boldwhite on_$bgcmagenta");
  9374.    } else {
  9375.       print colored('   3 CREDITS  ',"$boldmagenta on_$bgcmagenta");
  9376.    }
  9377.    print colored('    |',"$boldmagenta on_$bgcmagenta"); print"\n";
  9378.    print colored('|--------------------------------------------------------------------------|   |',"$boldmagenta on_$bgcmagenta");  print"\n";
  9379.    print colored('|--------------|--------------|--------------|--------------|--------------|   |',"$boldmagenta on_$bgcmagenta");  print"\n";
  9380. }
  9381. ################################################################################################################################
  9382. ## GENRE: Slot Mahine
  9383. ## NAME: PotLuck
  9384. ## AUTHOR: MikeeUSA
  9385. sub potluckmain {
  9386.    potluckresetvars();
  9387.    potluckspinreel();
  9388.    potluckreeltrans();
  9389.    
  9390.    if ($animate == 1) {
  9391.       $potluckreelspin = 9;
  9392.       potluckmainscreen();
  9393.       smallpause();
  9394.       newlines();
  9395.       
  9396.       $potluckreelspin = 8;
  9397.       potluckmainscreen();
  9398.       smallpause();
  9399.       newlines();
  9400.    
  9401.       $potluckreelspin = 7;
  9402.       potluckmainscreen();
  9403.       smallpause();
  9404.       newlines();
  9405.    
  9406.       if ($potluckplaylevel >= 2) {
  9407.       $potluckreelspin = 6;
  9408.       potluckmainscreen();
  9409.       smallpause();
  9410.       newlines();
  9411.       
  9412.       $potluckreelspin = 5;
  9413.       potluckmainscreen();
  9414.       smallpause();
  9415.       newlines();
  9416.       
  9417.       $potluckreelspin = 4;
  9418.       potluckmainscreen();
  9419.       smallpause();
  9420.       newlines();      
  9421.       }
  9422.       
  9423.       if ($potluckplaylevel >= 3) {
  9424.       $potluckreelspin = 3;
  9425.       potluckmainscreen();
  9426.       smallpause();
  9427.       newlines();
  9428.       
  9429.       $potluckreelspin = 2;
  9430.       potluckmainscreen();
  9431.       smallpause();
  9432.       newlines();
  9433.       
  9434.       $potluckreelspin = 1;
  9435.       potluckmainscreen();
  9436.       smallpause();
  9437.       newlines();      
  9438.       }         
  9439.    }
  9440.    
  9441.    $potluckreelspin = 0;
  9442.    $potluckxP1p = $potlucksvslot1.$potlucksvslot2.$potlucksvslot3;
  9443.    $potluckxP1Zp = $potlucksvslot1.$potlucksvslot2;
  9444.    
  9445.    $potluckxP2p = $potlucksvslot4.$potlucksvslot5.$potlucksvslot6;
  9446.    $potluckxP2Zp = $potlucksvslot4.$potlucksvslot5;
  9447.    
  9448.    $potluckxP2p4x1 = $potlucksvslot1.$potlucksvslot2.$potlucksvslot4.$potlucksvslot5;
  9449.    $potluckxP2p4x2 = $potlucksvslot2.$potlucksvslot3.$potlucksvslot5.$potlucksvslot6;
  9450.    
  9451.    $potluckxP3p = $potlucksvslot7.$potlucksvslot8.$potlucksvslot9;
  9452.    $potluckxP3Zp = $potlucksvslot7.$potlucksvslot8;
  9453.    
  9454.    $potluckxP3p4x1 = $potlucksvslot1.$potlucksvslot2.$potlucksvslot7.$potlucksvslot8;
  9455.    $potluckxP3p4x2 = $potlucksvslot2.$potlucksvslot3.$potlucksvslot8.$potlucksvslot9;
  9456.    
  9457.    $potluckxP4p = $potlucksvslot7.$potlucksvslot2.$potlucksvslot6;
  9458.    $potluckxP4Zp = $potlucksvslot7.$potlucksvslot2;
  9459.    
  9460.    $potluckxP5p = $potlucksvslot4.$potlucksvslot2.$potlucksvslot9;
  9461.    $potluckxP5Zp = $potlucksvslot4.$potlucksvslot2;
  9462.    
  9463.    $potluckxP6p = $potlucksvslot7.$potlucksvslot1.$potlucksvslot4;
  9464.    $potluckxP6Zp = $potlucksvslot7.$potlucksvslot1;
  9465.    
  9466.    $potluckxP7p = $potlucksvslot8.$potlucksvslot2.$potlucksvslot5;
  9467.    $potluckxP7Zp = $potlucksvslot8.$potlucksvslot2;
  9468.    
  9469.    $potluckxP8p = $potlucksvslot9.$potlucksvslot3.$potlucksvslot6;
  9470.    $potluckxP8Zp = $potlucksvslot9.$potlucksvslot3;
  9471.    potluckapotluckmoney();
  9472.    potluckfundcalc();
  9473.    potluckmainscreen();
  9474.    ptracker();
  9475.    potluckstartinfo();   
  9476. }
  9477. sub potluckmain2 {
  9478.    $potluckplaylevel = 0;
  9479.    potluckresetvars();
  9480.    potluckreeltrans();
  9481.    $potluckxP1p = ' '; #keep, a reset to null type job... well not quite null.
  9482.    $potluckxP1Zp = ' ';
  9483.    if ($potluckplaylevel >= 2) {
  9484.       $potluckxP2p = ' ';
  9485.       $potluckxP2Zp = ' ';
  9486.    }
  9487.    if ($potluckplaylevel >= 3) {
  9488.       $potluckxP3p = ' ';
  9489.       $potluckxP3Zp = ' ';
  9490.    }
  9491.    if ($potluckplaylevel >= 4) {
  9492.       $potluckxP4p = ' ';
  9493.       $potluckxP4Zp = ' ';
  9494.    }   
  9495.    if ($potluckplaylevel >= 5) {
  9496.       $potluckxP5p = ' ';
  9497.       $potluckxP5Zp = ' ';
  9498.    }
  9499.    if ($potluckplaylevel >= 6) {
  9500.       $potluckxP6p = ' ';
  9501.       $potluckxP6Zp = ' ';
  9502.    }   
  9503.    if ($potluckplaylevel >= 7) {
  9504.       $potluckxP7p = ' ';
  9505.       $potluckxP7Zp = ' ';
  9506.    }
  9507.    if ($potluckplaylevel >= 8) {
  9508.       $potluckxP8p = ' ';
  9509.       $potluckxP8Zp = ' ';
  9510.       $potluckxP2p4x1 = ' ';
  9511.       $potluckxP2p4x2 = ' ';
  9512.       $potluckxP3p4x1 = ' ';
  9513.       $potluckxP3p4x2 = ' ';
  9514.    }
  9515.    potluckmainscreen();
  9516.    potluckstartinfo();   
  9517. }
  9518. sub potluckresetvars {
  9519.    $potluckreelspin = 0;
  9520. }
  9521. sub potluckstartinfo {
  9522.    tokeneval();
  9523.    $potluckstartinfo = <STDIN>;
  9524.    chomp($potluckstartinfo);
  9525.    
  9526.    if (($potluckstartinfo eq 'a') or ($potluckstartinfo eq 'A')) {
  9527.       $potluckstartinfo = $potluckagaincmd;
  9528.    } elsif (($potluckstartinfo eq 'p') or ($potluckstartinfo eq 'P') or ($potluckstartinfo eq '1p') or ($potluckstartinfo eq '1P')
  9529.       or ($potluckstartinfo eq '2p') or ($potluckstartinfo eq '2P') or ($potluckstartinfo eq '3p') or ($potluckstartinfo eq '3P')
  9530.       or ($potluckstartinfo eq '4p') or ($potluckstartinfo eq '4P') or ($potluckstartinfo eq '5p') or ($potluckstartinfo eq '5P')
  9531.       or ($potluckstartinfo eq '6p') or ($potluckstartinfo eq '6P') or ($potluckstartinfo eq '7p') or ($potluckstartinfo eq '7P')
  9532.       or ($potluckstartinfo eq '8p') or ($potluckstartinfo eq '8P')) {
  9533.       $potluckagaincmd = $potluckstartinfo;
  9534.    } else {
  9535.       #Do Nothing      
  9536.    }
  9537.    if (($potluckstartinfo eq 'p') or ($potluckstartinfo eq 'P') or ($potluckstartinfo eq '1p') or ($potluckstartinfo eq '1P')) {
  9538.       if ($money >= $coin) {
  9539.          $potluckplaylevel = 1;
  9540.          $money = $money - $coin;
  9541.          $moneyexp = $moneyexp + $coin;
  9542.          $potluckstmc2 = $potluckstmc2 + $coin;
  9543.          $spins = $spins + 1;
  9544.          $potluckstspins = $potluckstspins + 1;
  9545.          if ($proadd == 1) {
  9546.             $projkpot = $projkpot + $coin;
  9547.             $proadd = 0;
  9548.          } else {
  9549.             $proadd = 1;
  9550.          }
  9551.          newlines();
  9552.          potluckmain();
  9553.       } else {
  9554.          newlines();
  9555.          potluckmain2();      
  9556.       }
  9557.    } elsif (($potluckstartinfo eq '2p') or ($potluckstartinfo eq '2P')) {
  9558.       if ($money >= (2 * $coin)) {
  9559.          $potluckplaylevel = 2;
  9560.          $money = $money - (2 * $coin);
  9561.          $moneyexp = $moneyexp + (2 * $coin);
  9562.          $potluckstmc2 = $potluckstmc2 + (2 * $coin);
  9563.          $spins = $spins + 1;
  9564.          $potluckstspins = $potluckstspins + 1;
  9565.          if ($proadd == 1) {
  9566.             $projkpot = $projkpot + (2 * $coin);
  9567.             $proadd = 0;
  9568.          } else {
  9569.             $proadd = 1;
  9570.          }
  9571.          newlines();
  9572.          potluckmain();
  9573.       } else {
  9574.          newlines();
  9575.          potluckmain2();      
  9576.       }
  9577.    } elsif (($potluckstartinfo eq '3p') or ($potluckstartinfo eq '3P')) {
  9578.       if ($money >= (3 * $coin)) {
  9579.          $potluckplaylevel = 3;
  9580.          $money = $money - (3 * $coin);
  9581.          $moneyexp = $moneyexp + (3 * $coin);
  9582.          $potluckstmc2 = $potluckstmc2 + (3 * $coin);
  9583.          $spins = $spins + 1;
  9584.          $potluckstspins = $potluckstspins + 1;
  9585.          if ($proadd == 1) {
  9586.             $projkpot = $projkpot + (3 * $coin);
  9587.             $proadd = 0;
  9588.          } else {
  9589.             $proadd = 1;
  9590.          }
  9591.          newlines();
  9592.          potluckmain();
  9593.       } else {
  9594.          newlines();
  9595.          potluckmain2();      
  9596.       }
  9597.    } elsif (($potluckstartinfo eq '4p') or ($potluckstartinfo eq '4P')) {
  9598.       if ($money >= (4 * $coin)) {
  9599.          $potluckplaylevel = 4;
  9600.          $money = $money - (4 * $coin);
  9601.          $moneyexp = $moneyexp + (4 * $coin);
  9602.          $potluckstmc2 = $potluckstmc2 + (4 * $coin);
  9603.          $spins = $spins + 1;
  9604.          $potluckstspins = $potluckstspins + 1;
  9605.          if ($proadd == 1) {
  9606.             $projkpot = $projkpot + (4 * $coin);
  9607.             $proadd = 0;
  9608.          } else {
  9609.             $proadd = 1;
  9610.          }
  9611.          newlines();
  9612.          potluckmain();
  9613.       } else {
  9614.          newlines();
  9615.          potluckmain2();      
  9616.       }
  9617.    } elsif (($potluckstartinfo eq '5p') or ($potluckstartinfo eq '5P')) {
  9618.       if ($money >= (5 * $coin)) {
  9619.          $potluckplaylevel = 5;
  9620.          $money = $money - (5 * $coin);
  9621.          $moneyexp = $moneyexp + (5 * $coin);
  9622.          $potluckstmc2 = $potluckstmc2 + (5 * $coin);
  9623.          $spins = $spins + 1;
  9624.          $potluckstspins = $potluckstspins + 1;
  9625.          if ($proadd == 1) {
  9626.             $projkpot = $projkpot + (5 * $coin);
  9627.             $proadd = 0;
  9628.          } else {
  9629.             $proadd = 1;
  9630.          }
  9631.          newlines();
  9632.          potluckmain();
  9633.       } else {
  9634.          newlines();
  9635.          potluckmain2();      
  9636.       }
  9637.    } elsif (($potluckstartinfo eq '6p') or ($potluckstartinfo eq '6P')) {
  9638.       if ($money >= (6 * $coin)) {
  9639.          $potluckplaylevel = 6;
  9640.          $money = $money - (6 * $coin);
  9641.          $moneyexp = $moneyexp + (6 * $coin);
  9642.          $potluckstmc2 = $potluckstmc2 + (6 * $coin);
  9643.          $spins = $spins + 1;
  9644.          $potluckstspins = $potluckstspins + 1;
  9645.          if ($proadd == 1) {
  9646.             $projkpot = $projkpot + (6 * $coin);
  9647.             $proadd = 0;
  9648.          } else {
  9649.             $proadd = 1;
  9650.          }
  9651.          newlines();
  9652.          potluckmain();
  9653.       } else {
  9654.          newlines();
  9655.          potluckmain2();      
  9656.       }
  9657.    } elsif (($potluckstartinfo eq '7p') or ($potluckstartinfo eq '7P')) {
  9658.       if ($money >= (7 * $coin)) {
  9659.          $potluckplaylevel = 7;
  9660.          $money = $money - (7 * $coin);
  9661.          $moneyexp = $moneyexp + (7 * $coin);
  9662.          $potluckstmc2 = $potluckstmc2 + (7 * $coin);
  9663.          $spins = $spins + 1;
  9664.          $potluckstspins = $potluckstspins + 1;
  9665.          if ($proadd == 1) {
  9666.             $projkpot = $projkpot + (7 * $coin);
  9667.             $proadd = 0;
  9668.          } else {
  9669.             $proadd = 1;
  9670.          }
  9671.          newlines();
  9672.          potluckmain();
  9673.       } else {
  9674.          newlines();
  9675.          potluckmain2();
  9676.       }
  9677.    } elsif (($potluckstartinfo eq '8p') or ($potluckstartinfo eq '8P')) {
  9678.       if ($money >= (8 * $coin)) {
  9679.          $potluckplaylevel = 8;
  9680.          $money = $money - (8 * $coin);
  9681.          $moneyexp = $moneyexp + (8 * $coin);
  9682.          $potluckstmc2 = $potluckstmc2 + (8 * $coin);
  9683.          $spins = $spins + 1;
  9684.          $potluckstspins = $potluckstspins + 1;
  9685.          if ($proadd == 1) {
  9686.             $projkpot = $projkpot + (8 * $coin);
  9687.             $proadd = 0;
  9688.          } else {
  9689.             $proadd = 1;
  9690.          }
  9691.          newlines();
  9692.          potluckmain();
  9693.       } else {
  9694.          newlines();
  9695.          potluckmain2();
  9696.       }         
  9697.    } elsif (($potluckstartinfo eq 'exit') or ($potluckstartinfo eq 'EXIT') or ($potluckstartinfo eq 'quit') or ($potluckstartinfo eq 'QUIT')) {
  9698.       exitgame();
  9699.    } elsif (($potluckstartinfo eq 'c') or ($potluckstartinfo eq 'C')) {
  9700.       return;
  9701.    } else {
  9702.       newlines();
  9703.       potluckmain2();
  9704.    }
  9705. }
  9706. sub potluckfundcalc {
  9707.    $money = $money + $potluckapotluckmoney;
  9708.    $potluckstmc = $potluckstmc + $potluckapotluckmoney;
  9709. }
  9710. sub potluckslot1dheart1  { print colored('    //\\\\//\\\\    ',"$magenta on_$bgcwhite"); }
  9711. sub potluckslot1dheart2  { print colored('   //*',"$magenta on_$bgcwhite"); print colored('/\/\\',"$boldmagenta on_$bgcwhite"); print colored('*\\\\   ',"$magenta on_$bgcwhite"); }
  9712. sub potluckslot1dheart3  { print colored('   \\\\*',"$magenta on_$bgcwhite"); print colored('\**/',"$boldmagenta on_$bgcwhite"); print colored('*//   ',"$magenta on_$bgcwhite"); }
  9713. sub potluckslot1dheart4  { print colored('    \\\\*',"$magenta on_$bgcwhite"); print colored('\/',"$boldmagenta on_$bgcwhite"); print colored('*//    ',"$magenta on_$bgcwhite"); }
  9714. sub potluckslot1dheart5  { print colored('     \\\\**//     ',"$magenta on_$bgcwhite"); }
  9715. sub potluckslot1dheart6  { print colored('      \\\\//      ',"$magenta on_$bgcwhite"); }
  9716. sub potluckslot1dheart1b4{ print colored('4444',"$boldwhite on_$bgcwhite"); print colored('//\\\\//\\\\',"$magenta on_$bgcwhite"); print colored('4444',"$boldwhite on_$bgcwhite"); }
  9717. sub potluckslot1dheart2b4{ print colored('  4',"$boldwhite on_$bgcwhite"); print colored('//*',"$magenta on_$bgcwhite"); print colored('/\/\\',"$boldmagenta on_$bgcwhite"); print colored('*\\\\ ',"$magenta on_$bgcwhite"); print colored('4 ',"$boldwhite on_$bgcwhite"); }
  9718. sub potluckslot1dheart3b4{ print colored('  4',"$boldwhite on_$bgcwhite"); print colored('\\\\*',"$magenta on_$bgcwhite"); print colored('\**/',"$boldmagenta on_$bgcwhite"); print colored('*//',"$magenta on_$bgcwhite"); print colored('4  ',"$boldwhite on_$bgcwhite"); }
  9719. sub potluckslot1dheart4b4{ print colored('  4',"$boldwhite on_$bgcwhite"); print colored(' \\\\*',"$magenta on_$bgcwhite"); print colored('\/',"$boldmagenta on_$bgcwhite"); print colored('*//',"$magenta on_$bgcwhite"); print colored('4   ',"$boldwhite on_$bgcwhite"); }
  9720. sub potluckslot1dheart5b4{ print colored('  4',"$boldwhite on_$bgcwhite"); print colored('  \\\\**//',"$magenta on_$bgcwhite"); print colored('4    ',"$boldwhite on_$bgcwhite"); }
  9721. sub potluckslot1dheart6b4{ print colored('444444',"$boldwhite on_$bgcwhite"); print colored('\\\\//',"$magenta on_$bgcwhite"); print colored('444444',"$boldwhite on_$bgcwhite"); }
  9722. sub potluckslot1swrd1  { print colored('     /#\/#\     ',"$boldred on_$bgcwhite"); }
  9723. sub potluckslot1swrd2  { print colored(' ___',"$boldblack on_$bgcwhite"); print colored('/#*##*#\\',"$boldred on_$bgcwhite"); print colored('||  ',"$boldyellow on_$bgcwhite"); }
  9724. sub potluckslot1swrd3  { print colored('/_/_/_/_/_/_',"$boldblack on_$bgcwhite"); print colored('||==',"$boldyellow on_$bgcwhite"); }
  9725. sub potluckslot1swrd4  { print colored('\_\_\_\_\_\_',"$boldblack on_$bgcwhite"); print colored('||==',"$boldyellow on_$bgcwhite"); }
  9726. sub potluckslot1swrd5  { print colored('    ..',"$red on_$bgcwhite"); print colored('\##/  ',"$boldred on_$bgcwhite"); print colored('||  ',"$boldyellow on_$bgcwhite"); }
  9727. sub potluckslot1swrd6  { print colored('  ...',"$red on_$bgcwhite"); print colored('  \/       ',"$boldred on_$bgcwhite"); }
  9728. sub potluckslot1spad1  { print colored('       /*\      ',"$black on_$bgcwhite"); }
  9729. sub potluckslot1spad2  { print colored('      /%S*\     ',"$black on_$bgcwhite"); }
  9730. sub potluckslot1spad3  { print colored('     /%S~S*\    ',"$black on_$bgcwhite"); }
  9731. sub potluckslot1spad4  { print colored('    /%S~S~S*\   ',"$black on_$bgcwhite"); }
  9732. sub potluckslot1spad5  { print colored('    \__/|\__/   ',"$black on_$bgcwhite"); }
  9733. sub potluckslot1spad6  { print colored('       /_\      ',"$black on_$bgcwhite"); }
  9734. sub potluckslot1spad1b2{ print colored('      22222     ',"$boldwhite on_$bgcwhite"); }
  9735. sub potluckslot1spad2b2{ print colored('     2',"$boldwhite on_$bgcwhite"); print colored('/%S*\\',"$black on_$bgcwhite"); print colored('2    ',"$boldwhite on_$bgcwhite"); }
  9736. sub potluckslot1spad3b2{ print colored('     /%S~',"$black on_$bgcwhite"); print colored('22',"$boldwhite on_$bgcwhite"); print colored('\    ',"$black on_$bgcwhite"); }
  9737. sub potluckslot1spad4b2{ print colored('    /%S',"$black on_$bgcwhite"); print colored('22',"$boldwhite on_$bgcwhite"); print colored('~S*\   ',"$black on_$bgcwhite"); }
  9738. sub potluckslot1spad5b2{ print colored('    \\',"$black on_$bgcwhite"); print colored('22',"$boldwhite on_$bgcwhite"); print colored('/|\__/   ',"$black on_$bgcwhite"); }
  9739. sub potluckslot1spad6b2{ print colored('     22',"$boldwhite on_$bgcwhite"); print colored('/_\\',"$black on_$bgcwhite"); print colored('22    ',"$boldwhite on_$bgcwhite"); }
  9740. sub potluckslot1clov1  { print colored('       /O\      ',"$green on_$bgcwhite"); }
  9741. sub potluckslot1clov2  { print colored('    __/OOO\__   ',"$green on_$bgcwhite"); }
  9742. sub potluckslot1clov3  { print colored('   /OO0OOO0Oo\  ',"$green on_$bgcwhite"); }
  9743. sub potluckslot1clov4  { print colored('   |OOOOOOOOO|  ',"$green on_$bgcwhite"); }
  9744. sub potluckslot1clov5  { print colored('   \__/ 00\__/  ',"$green on_$bgcwhite"); }
  9745. sub potluckslot1clov6  { print colored('       00       ',"$green on_$bgcwhite"); }
  9746. sub potluckslot1heart1  { print colored('     /#\/#\     ',"$red on_$bgcwhite"); }
  9747. sub potluckslot1heart2  { print colored('    /#*##*#\    ',"$red on_$bgcwhite"); }
  9748. sub potluckslot1heart3  { print colored('    \#****#/    ',"$red on_$bgcwhite"); }
  9749. sub potluckslot1heart4  { print colored('     \#**#/     ',"$red on_$bgcwhite"); }
  9750. sub potluckslot1heart5  { print colored('      \##/      ',"$red on_$bgcwhite"); }
  9751. sub potluckslot1heart6  { print colored('       \/       ',"$red on_$bgcwhite"); }
  9752. sub potluckslot1coin1  { print colored('       SSSSS    ',"$boldwhite on_$bgcwhite"); }
  9753. sub potluckslot1coin2  { print colored('   GGGGG',"$boldyellow on_$bgcwhite"); print colored('ssssSS  ',"$boldwhite on_$bgcwhite"); }
  9754. sub potluckslot1coin3  { print colored(' GGgggggGG',"$boldyellow on_$bgcwhite"); print colored('sssS  ',"$boldwhite on_$bgcwhite"); }
  9755. sub potluckslot1coin4  { print colored(' GgggggggG',"$boldyellow on_$bgcwhite"); print colored('ssSS  ',"$boldwhite on_$bgcwhite"); }
  9756. sub potluckslot1coin5  { print colored(' GGgggggGG',"$boldyellow on_$bgcwhite"); print colored('SS',"$boldwhite on_$bgcwhite"); print colored('ss  ',"$boldblack on_$bgcwhite"); }
  9757. sub potluckslot1coin6  { print colored('   GGGGG',"$boldyellow on_$bgcwhite"); print colored('gg',"$yellow on_$bgcwhite"); print colored('ss    ',"$boldblack on_$bgcwhite"); }
  9758. sub potluckslot1coin1bh{ print colored('       IIIII    ',"$boldblack on_$bgcwhite"); }
  9759. sub potluckslot1coin2bh{ print colored('   CCCCC',"$yellow on_$bgcwhite"); print colored('iiiiII  ',"$boldblack on_$bgcwhite"); }
  9760. sub potluckslot1coin3bh{ print colored(' CCc',"$yellow on_$bgcwhite"); print colored('1',"$boldblack on_$bgcwhite"); print colored('cccCC',"$yellow on_$bgcwhite"); print colored('iiiI  ',"$boldblack on_$bgcwhite"); }
  9761. sub potluckslot1coin4bh{ print colored(' Cccc',"$yellow on_$bgcwhite"); print colored('/',"$boldblack on_$bgcwhite"); print colored('cccC',"$yellow on_$bgcwhite"); print colored('iiII  ',"$boldblack on_$bgcwhite"); }
  9762. sub potluckslot1coin5bh{ print colored(' CCccc',"$yellow on_$bgcwhite"); print colored('2',"$boldblack on_$bgcwhite"); print colored('cCC',"$yellow on_$bgcwhite"); print colored('II',"$boldblack on_$bgcwhite"); print colored('ii  ',"$black on_$bgcwhite"); }
  9763. sub potluckslot1coin6bh{ print colored('   CCCCC',"$yellow on_$bgcwhite"); print colored('cc',"$boldyellow on_$bgcwhite"); print colored('ii    ',"$black on_$bgcwhite"); }
  9764. sub potluckslot1coin1bs{ print colored('       SSSSS    ',"$boldwhite on_$bgcwhite"); }
  9765. sub potluckslot1coin2bs{ print colored('   IIIII',"$boldblack on_$bgcwhite"); print colored('ssssSS  ',"$boldwhite on_$bgcwhite"); }
  9766. sub potluckslot1coin3bs{ print colored(' IIi',"$boldblack on_$bgcwhite"); print colored('3',"$black on_$bgcwhite"); print colored('iiiII',"$boldblack on_$bgcwhite"); print colored('sssS  ',"$boldwhite on_$bgcwhite"); }
  9767. sub potluckslot1coin4bs{ print colored(' Iiii',"$boldblack on_$bgcwhite"); print colored('/',"$black on_$bgcwhite"); print colored('iiiI',"$boldblack on_$bgcwhite"); print colored('ssSS  ',"$boldwhite on_$bgcwhite"); }
  9768. sub potluckslot1coin5bs{ print colored(' IIiii',"$boldblack on_$bgcwhite"); print colored('4',"$black on_$bgcwhite"); print colored('iII',"$boldblack on_$bgcwhite"); print colored('SS',"$boldwhite on_$bgcwhite"); print colored('ss  ',"$boldblack on_$bgcwhite"); }
  9769. sub potluckslot1coin6bs{ print colored('   IIIII',"$boldblack on_$bgcwhite"); print colored('ii',"$black on_$bgcwhite"); print colored('ss    ',"$boldblack on_$bgcwhite"); }
  9770. sub potluckslot1hsho1  { print colored('  \###/  \###/  ',"$yellow on_$bgcwhite"); }
  9771. sub potluckslot1hsho2  { print colored('   |',"$yellow on_$bgcwhite");print colored('0',"$boldyellow on_$bgcwhite");print colored('|    |',"$yellow on_$bgcwhite");print colored('0',"$boldyellow on_$bgcwhite");print colored('|   ',"$yellow on_$bgcwhite"); }
  9772. sub potluckslot1hsho3  { print colored('   |#|    |#|   ',"$yellow on_$bgcwhite"); }
  9773. sub potluckslot1hsho4  { print colored('   |#',"$yellow on_$bgcwhite");print colored('0',"$boldyellow on_$bgcwhite");print colored('\__/',"$yellow on_$bgcwhite");print colored('0',"$boldyellow on_$bgcwhite");print colored('#|   ',"$yellow on_$bgcwhite"); }
  9774. sub potluckslot1hsho5  { print colored('    \######/    ',"$yellow on_$bgcwhite"); }
  9775. sub potluckslot1hsho6  { print colored('      \##/      ',"$yellow on_$bgcwhite"); }
  9776. sub potluckslot12xmulti3  {
  9777. print colored(' ',"$white on_$bgcwhite");
  9778. print colored('!2X!2X!!X2!X2!',"$boldwhite on_$bgcblack");
  9779. print colored(' ',"$white on_$bgcwhite");
  9780. }
  9781. sub potluckslot12xmulti4  {
  9782. print colored(' ',"$white on_$bgcwhite");
  9783. print colored('!!MULTIPLIER!!',"$boldwhite on_$bgcblack");
  9784. print colored(' ',"$white on_$bgcwhite");
  9785. }
  9786. sub potluckslot13xmulti3  {
  9787. print colored(' ',"$white on_$bgcwhite");
  9788. print colored('!3X!3X!!X3!X3!',"$boldyellow on_$bgcgreen");
  9789. print colored(' ',"$white on_$bgcwhite");
  9790. }
  9791. sub potluckslot13xmulti4  {
  9792. print colored(' ',"$white on_$bgcwhite");
  9793. print colored('!!MULTIPLIER!!',"$boldyellow on_$bgcgreen");
  9794. print colored(' ',"$white on_$bgcwhite");
  9795. }
  9796. sub potluckslotwhite { print colored('                ',"$white on_$bgcwhite"); }
  9797. sub potluckslotspining { print colored('||||||||||||||||',"$boldwhite on_$bgcwhite"); }
  9798. sub potluck45init {
  9799.    $potluckslotsymbol4 = int(rand($potluckrandnums));
  9800.    $potluckslotsymbol5 = int(rand($potluckrandnums));
  9801.    $potluckslotsymbol6 = int(rand($potluckrandnums));
  9802.    $potluckslotsymbol7 = int(rand($potluckrandnums));
  9803.    $potluckslotsymbol8 = int(rand($potluckrandnums));
  9804.    $potluckslotsymbol9 = int(rand($potluckrandnums));
  9805.    
  9806.    $potluckslotdh4 = int(rand(2));
  9807.    $potluckslotdh5 = int(rand(2));
  9808.    $potluckslotdh6 = int(rand(2));
  9809.    $potluckslotdh7 = int(rand(2));
  9810.    $potluckslotdh8 = int(rand(2));
  9811.    $potluckslotdh9 = int(rand(2));
  9812.    
  9813.    $potluckslotbns4 = int(rand(10));
  9814.    $potluckslotbns5 = int(rand(10));
  9815.    $potluckslotbns6 = int(rand(10));
  9816.    $potluckslotbns7 = int(rand(10));
  9817.    $potluckslotbns8 = int(rand(10));
  9818.    $potluckslotbns9 = int(rand(10));
  9819. }
  9820. sub potluckspinreel {
  9821.    $potluckslotsymbol1 = int(rand($potluckrandnums));
  9822.    $potluckslotsymbol2 = int(rand($potluckrandnums));
  9823.    $potluckslotsymbol3 = int(rand($potluckrandnums));
  9824.    
  9825.    $potluckslotdh1 = int(rand(2));
  9826.    $potluckslotdh2 = int(rand(2));
  9827.    $potluckslotdh3 = int(rand(2));
  9828.    
  9829.    $potluckslotbns1 = int(rand(10));
  9830.    $potluckslotbns2 = int(rand(10));
  9831.    $potluckslotbns3 = int(rand(10));
  9832.    
  9833.    
  9834.    if ($potluckplaylevel >= 2) {
  9835.       $potluckslotsymbol4 = int(rand($potluckrandnums));
  9836.       $potluckslotsymbol5 = int(rand($potluckrandnums));
  9837.       $potluckslotsymbol6 = int(rand($potluckrandnums));
  9838.       
  9839.       $potluckslotdh4 = int(rand(2));
  9840.       $potluckslotdh5 = int(rand(2));
  9841.       $potluckslotdh6 = int(rand(2));
  9842.       
  9843.       $potluckslotbns4 = int(rand(10));
  9844.       $potluckslotbns5 = int(rand(10));
  9845.       $potluckslotbns6 = int(rand(10));
  9846.    }
  9847.    
  9848.    if ($potluckplaylevel >= 3) {
  9849.       $potluckslotsymbol7 = int(rand($potluckrandnums));
  9850.       $potluckslotsymbol8 = int(rand($potluckrandnums));
  9851.       $potluckslotsymbol9 = int(rand($potluckrandnums));
  9852.       
  9853.       $potluckslotdh7 = int(rand(2));
  9854.       $potluckslotdh8 = int(rand(2));
  9855.       $potluckslotdh9 = int(rand(2));
  9856.       
  9857.       $potluckslotbns7 = int(rand(10));
  9858.       $potluckslotbns8 = int(rand(10));
  9859.       $potluckslotbns9 = int(rand(10));
  9860.    }
  9861.    
  9862.    if ($potluckplaylevel >= 6) {
  9863.       $potluckslotsymbolX2M = int(rand(10));
  9864.    } else {
  9865.       $potluckslotsymbolX2M = 0;
  9866.    }
  9867.    
  9868.    if ($potluckplaylevel == 8) {
  9869.       if ($potluckslotsymbolX2M != 5) {
  9870.          $potluckslotsymbolX3M = int(rand(15));
  9871.       } else {
  9872.          $potluckslotsymbolX3M = 0;
  9873.       }
  9874.    } else {
  9875.       $potluckslotsymbolX3M = 0;
  9876.    }   
  9877. }
  9878. sub potluckreeltrans {
  9879.    $potluckslotmltp = 0; #Reset this, will determine bonus multiple
  9880.    $potluckslotdivd = 0; #Reset this, will determine bonus reducing multiple
  9881.    
  9882.    if ($potluckslotsymbol1 <= 4) {
  9883.       $potlucksvslot1 = 7;
  9884.    } elsif ($potluckslotsymbol1 <= 8) {
  9885.       $potlucksvslot1 = 8;
  9886.    } elsif ($potluckslotsymbol1 <= 10) {
  9887.       $potlucksvslot1 = 'x';
  9888.    } elsif ($potluckslotsymbol1 <= 12) {
  9889.       $potlucksvslot1 = 9;   
  9890.    } elsif ($potluckslotsymbol1 <= 22) {
  9891.       $potlucksvslot1 = 6;
  9892.    } elsif ($potluckslotsymbol1 <= 30) {
  9893.       $potlucksvslot1 = 5;
  9894.       if ($potluckslotbns1 == 4) {
  9895.          $potluckslotdivd = $potluckslotdivd + 2;
  9896.       } elsif ($potluckslotbns1 == 6) {
  9897.          $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333;
  9898.       }
  9899.    } elsif ($potluckslotsymbol1 <= 36) {
  9900.       $potlucksvslot1 = 4;
  9901.    } elsif ($potluckslotsymbol1 <= 40) {
  9902.       $potlucksvslot1 = 3;
  9903.    } elsif ($potluckslotsymbol1 <= 42) {
  9904.       $potlucksvslot1 = 2;
  9905.       if ($potluckslotbns1 == 7) {
  9906.          $potluckslotmltp = $potluckslotmltp + 2;
  9907.       }
  9908.    } elsif ($potluckslotsymbol1 == 43) {
  9909.       $potlucksvslot1 = 1;
  9910.    } elsif (($potluckslotsymbol1 == 44) && ($potluckslotdh1 == 1)) {
  9911.       $potlucksvslot1 = 'd';
  9912.       if ($potluckslotbns1 == 7) {
  9913.          $potluckslotmltp = $potluckslotmltp + 4;
  9914.       }
  9915.    } elsif ($potluckslotsymbol1 >= 44) {
  9916.       $potlucksvslot1 = 7;            
  9917.    } else {
  9918.       $potlucksvslot1 = 0;
  9919.    }
  9920.    
  9921.    if ($potluckslotsymbol2 <= 4) {
  9922.       $potlucksvslot2 = 7;
  9923.       $potluckslotsymbolX2M = 0;
  9924.       $potluckslotsymbolX3M = 0;
  9925.    } elsif ($potluckslotsymbol2 <= 8) {
  9926.       $potlucksvslot2 = 8;
  9927.       $potluckslotsymbolX2M = 0;
  9928.       $potluckslotsymbolX3M = 0;
  9929.    } elsif ($potluckslotsymbol2 <= 10) {
  9930.       $potlucksvslot2 = 'x';
  9931.       $potluckslotsymbolX2M = 0;
  9932.       $potluckslotsymbolX3M = 0;
  9933.    } elsif ($potluckslotsymbol2 <= 12) {
  9934.       $potlucksvslot2 = 9;
  9935.       $potluckslotsymbolX2M = 0;
  9936.       $potluckslotsymbolX3M = 0;   
  9937.    } elsif ($potluckslotsymbol2 <= 22) {
  9938.       $potlucksvslot2 = 6;
  9939.    } elsif ($potluckslotsymbol2 <= 30) {
  9940.       $potlucksvslot2 = 5;
  9941.       if ($potluckslotbns2 == 4) {
  9942.          $potluckslotdivd = $potluckslotdivd + 2;
  9943.       } elsif ($potluckslotbns2 == 6) {
  9944.          $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333;
  9945.       }
  9946.    } elsif ($potluckslotsymbol2 <= 36) {
  9947.       $potlucksvslot2 = 4;
  9948.    } elsif ($potluckslotsymbol2 <= 40) {
  9949.       $potlucksvslot2 = 3;
  9950.    } elsif ($potluckslotsymbol2 <= 42) {
  9951.       $potlucksvslot2 = 2;
  9952.       if ($potluckslotbns2 == 7) {
  9953.          $potluckslotmltp = $potluckslotmltp + 2;
  9954.       }
  9955.    } elsif ($potluckslotsymbol2 == 43) {
  9956.       $potlucksvslot2 = 1;
  9957.    } elsif (($potluckslotsymbol2 == 44) && ($potluckslotdh2 == 1)) {
  9958.       $potlucksvslot2 = 'd';
  9959.       if ($potluckslotbns2 == 7) {
  9960.          $potluckslotmltp = $potluckslotmltp + 4;
  9961.       }
  9962.    } elsif ($potluckslotsymbol2 >= 44) {
  9963.       $potlucksvslot2 = 8;
  9964.       $potluckslotsymbolX2M = 0;
  9965.       $potluckslotsymbolX3M = 0;      
  9966.    } else {
  9967.       $potlucksvslot2 = 0;
  9968.    }
  9969.    
  9970.    if ($potluckslotsymbol3 <= 4) {
  9971.       $potlucksvslot3 = 7;
  9972.    } elsif ($potluckslotsymbol3 <= 8) {
  9973.       $potlucksvslot3 = 8;
  9974.    } elsif ($potluckslotsymbol3 <= 10) {
  9975.       $potlucksvslot3 = 'x';
  9976.    } elsif ($potluckslotsymbol3 <= 12) {
  9977.       $potlucksvslot3 = 9;   
  9978.    } elsif ($potluckslotsymbol3 <= 22) {
  9979.       $potlucksvslot3 = 6;
  9980.    } elsif ($potluckslotsymbol3 <= 30) {
  9981.       $potlucksvslot3 = 5;
  9982.       if ($potluckslotbns3 == 4) {
  9983.          $potluckslotdivd = $potluckslotdivd + 2;
  9984.       } elsif ($potluckslotbns3 == 6) {
  9985.          $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333;
  9986.       }
  9987.    } elsif ($potluckslotsymbol3 <= 36) {
  9988.       $potlucksvslot3 = 4;
  9989.    } elsif ($potluckslotsymbol3 <= 40) {
  9990.       $potlucksvslot3 = 3;
  9991.    } elsif ($potluckslotsymbol3 <= 42) {
  9992.       $potlucksvslot3 = 2;
  9993.       if ($potluckslotbns3 == 7) {
  9994.          $potluckslotmltp = $potluckslotmltp + 2;
  9995.       }
  9996.    } elsif ($potluckslotsymbol3 == 43) {
  9997.       $potlucksvslot3 = 1;
  9998.    } elsif (($potluckslotsymbol3 == 44) && ($potluckslotdh3 == 1)) {
  9999.       $potlucksvslot3 = 'd';
  10000.       if ($potluckslotbns3 == 7) {
  10001.          $potluckslotmltp = $potluckslotmltp + 4;
  10002.       }
  10003.    } elsif ($potluckslotsymbol3 >= 44) {
  10004.       $potlucksvslot3 = 9;      
  10005.    } else {
  10006.       $potlucksvslot3 = 0;
  10007.    }
  10008.    
  10009.    if ($potluckslotsymbol4 <= 4) {
  10010.       $potlucksvslot4 = 7;
  10011.    } elsif ($potluckslotsymbol4 <= 8) {
  10012.       $potlucksvslot4 = 8;
  10013.    } elsif ($potluckslotsymbol4 <= 10) {
  10014.       $potlucksvslot4 = 'x';
  10015.    } elsif ($potluckslotsymbol4 <= 12) {
  10016.       $potlucksvslot4 = 9;   
  10017.    } elsif ($potluckslotsymbol4 <= 22) {
  10018.       $potlucksvslot4 = 6;
  10019.    } elsif ($potluckslotsymbol4 <= 30) {
  10020.       $potlucksvslot4 = 5;
  10021.       if (($potluckplaylevel >= 2) && ($potluckslotbns4 == 4)) {
  10022.          #Playlevel must be 2 lines or greater to spin these reels
  10023.          $potluckslotdivd = $potluckslotdivd + 2;
  10024.       } elsif (($potluckplaylevel >= 2) && ($potluckslotbns4 == 6)) {
  10025.          $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333;
  10026.       }
  10027.    } elsif ($potluckslotsymbol4 <= 36) {
  10028.       $potlucksvslot4 = 4;
  10029.    } elsif ($potluckslotsymbol4 <= 40) {
  10030.       $potlucksvslot4 = 3;
  10031.    } elsif ($potluckslotsymbol4 <= 42) {
  10032.       $potlucksvslot4 = 2;
  10033.       if (($potluckplaylevel >= 2) && ($potluckslotbns4 == 7)) {
  10034.          #Playlevel must be 2 lines or greater to spin these reels
  10035.          $potluckslotmltp = $potluckslotmltp + 2;
  10036.       }
  10037.    } elsif ($potluckslotsymbol4 == 43) {
  10038.       $potlucksvslot4 = 1;
  10039.    } elsif (($potluckslotsymbol4 == 44) && ($potluckslotdh4 == 1)) {
  10040.       $potlucksvslot4 = 'd';
  10041.       if (($potluckplaylevel >= 2) && ($potluckslotbns4 == 7)) {
  10042.          #Playlevel must be 2 lines or greater to spin these reels
  10043.          $potluckslotmltp = $potluckslotmltp + 4;
  10044.       }
  10045.    } elsif ($potluckslotsymbol4 >= 44) {
  10046.       $potlucksvslot4 = 9;         
  10047.    } else {
  10048.       $potlucksvslot4 = 0;
  10049.    }      
  10050.    
  10051.    if ($potluckslotsymbol5 <= 4) {
  10052.       $potlucksvslot5 = 7;
  10053.    } elsif ($potluckslotsymbol5 <= 8) {
  10054.       $potlucksvslot5 = 8;
  10055.    } elsif ($potluckslotsymbol5 <= 10) {
  10056.       $potlucksvslot5 = 'x';
  10057.    } elsif ($potluckslotsymbol5 <= 12) {
  10058.       $potlucksvslot5 = 9;
  10059.    } elsif ($potluckslotsymbol5 <= 22) {
  10060.       $potlucksvslot5 = 6;
  10061.    } elsif ($potluckslotsymbol5 <= 30) {
  10062.       $potlucksvslot5 = 5;
  10063.       if (($potluckplaylevel >= 2) && ($potluckslotbns5 == 4)) {
  10064.          #Playlevel must be 2 lines or greater to spin these reels
  10065.          $potluckslotdivd = $potluckslotdivd + 2;
  10066.       } elsif (($potluckplaylevel >= 2) && ($potluckslotbns5 == 6)) {
  10067.          $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333;
  10068.       }
  10069.    } elsif ($potluckslotsymbol5 <= 36) {
  10070.       $potlucksvslot5 = 4;
  10071.    } elsif ($potluckslotsymbol5 <= 40) {
  10072.       $potlucksvslot5 = 3;
  10073.    } elsif ($potluckslotsymbol5 <= 42) {
  10074.       $potlucksvslot5 = 2;
  10075.       if (($potluckplaylevel >= 2) && ($potluckslotbns5 == 7)) {
  10076.          #Playlevel must be 2 lines or greater to spin these reels
  10077.          $potluckslotmltp = $potluckslotmltp + 2;
  10078.       }
  10079.    } elsif ($potluckslotsymbol5 == 43) {
  10080.       $potlucksvslot5 = 1;
  10081.    } elsif (($potluckslotsymbol5 == 44) && ($potluckslotdh5 == 1)) {
  10082.       $potlucksvslot5 = 'd';
  10083.       if (($potluckplaylevel >= 2) && ($potluckslotbns5 == 7)) {
  10084.          #Playlevel must be 2 lines or greater to spin these reels
  10085.          $potluckslotmltp = $potluckslotmltp + 4;
  10086.       }
  10087.    } elsif ($potluckslotsymbol5 >= 44) {
  10088.       $potlucksvslot5 = 8;         
  10089.    } else {
  10090.       $potlucksvslot5 = 0;
  10091.    }
  10092.    
  10093.    if ($potluckslotsymbol6 <= 4) {
  10094.       $potlucksvslot6 = 7;
  10095.    } elsif ($potluckslotsymbol6 <= 8) {
  10096.       $potlucksvslot6 = 8;
  10097.    } elsif ($potluckslotsymbol6 <= 10) {
  10098.       $potlucksvslot6 = 'x';
  10099.    } elsif ($potluckslotsymbol6 <= 12) {
  10100.       $potlucksvslot6 = 9;   
  10101.    } elsif ($potluckslotsymbol6 <= 22) {
  10102.       $potlucksvslot6 = 6;
  10103.    } elsif ($potluckslotsymbol6 <= 30) {
  10104.       $potlucksvslot6 = 5;
  10105.       if (($potluckplaylevel >= 2) && ($potluckslotbns6 == 4)) {
  10106.          #Playlevel must be 2 lines or greater to spin these reels
  10107.          $potluckslotdivd = $potluckslotdivd + 2;
  10108.       } elsif (($potluckplaylevel >= 2) && ($potluckslotbns6 == 6)) {
  10109.          $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333;
  10110.       }
  10111.    } elsif ($potluckslotsymbol6 <= 36) {
  10112.       $potlucksvslot6 = 4;
  10113.    } elsif ($potluckslotsymbol6 <= 40) {
  10114.       $potlucksvslot6 = 3;
  10115.    } elsif ($potluckslotsymbol6 <= 42) {
  10116.       $potlucksvslot6 = 2;
  10117.       if (($potluckplaylevel >= 2) && ($potluckslotbns6 == 7)) {
  10118.          #Playlevel must be 2 lines or greater to spin these reels
  10119.          $potluckslotmltp = $potluckslotmltp + 2;
  10120.       }
  10121.    } elsif ($potluckslotsymbol6 == 43) {
  10122.       $potlucksvslot6 = 1;
  10123.    } elsif (($potluckslotsymbol6 == 44) && ($potluckslotdh6 == 1)) {
  10124.       $potlucksvslot6 = 'd';
  10125.       if (($potluckplaylevel >= 2) && ($potluckslotbns6 == 7)) {
  10126.          #Playlevel must be 2 lines or greater to spin these reels
  10127.          $potluckslotmltp = $potluckslotmltp + 4;
  10128.       }
  10129.    } elsif ($potluckslotsymbol6 >= 44) {
  10130.       $potlucksvslot6 = 7;         
  10131.    } else {
  10132.       $potlucksvslot6 = 0;
  10133.    }
  10134.    
  10135.    if ($potluckslotsymbol7 <= 4) {
  10136.       $potlucksvslot7 = 7;
  10137.    } elsif ($potluckslotsymbol7 <= 8) {
  10138.       $potlucksvslot7 = 8;
  10139.    } elsif ($potluckslotsymbol7 <= 10) {
  10140.       $potlucksvslot7 = 'x';
  10141.    } elsif ($potluckslotsymbol7 <= 12) {
  10142.       $potlucksvslot7 = 9;   
  10143.    } elsif ($potluckslotsymbol7 <= 22) {
  10144.       $potlucksvslot7 = 6;
  10145.    } elsif ($potluckslotsymbol7 <= 30) {
  10146.       $potlucksvslot7 = 5;
  10147.       if (($potluckplaylevel >= 3) && ($potluckslotbns7 == 4)) {
  10148.          #Playlevel must be 3 lines or greater to spin these reels
  10149.          $potluckslotdivd = $potluckslotdivd + 2;
  10150.       } elsif (($potluckplaylevel >= 3) && ($potluckslotbns7 == 6)) {
  10151.          $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333;
  10152.       }
  10153.    } elsif ($potluckslotsymbol7 <= 36) {
  10154.       $potlucksvslot7 = 4;
  10155.    } elsif ($potluckslotsymbol7 <= 40) {
  10156.       $potlucksvslot7 = 3;
  10157.    } elsif ($potluckslotsymbol7 <= 42) {
  10158.       $potlucksvslot7 = 2;
  10159.       if (($potluckplaylevel >= 3) && ($potluckslotbns7 == 7)) {
  10160.          #Playlevel must be 3 lines or greater to spin these reels
  10161.          $potluckslotmltp = $potluckslotmltp + 2;
  10162.       }
  10163.    } elsif ($potluckslotsymbol7 == 43) {
  10164.       $potlucksvslot7 = 1;
  10165.    } elsif (($potluckslotsymbol7 == 44) && ($potluckslotdh7 == 1)) {
  10166.       $potlucksvslot7 = 'd';
  10167.       if (($potluckplaylevel >= 3) && ($potluckslotbns7 == 7)) {
  10168.          #Playlevel must be 3 lines or greater to spin these reels
  10169.          $potluckslotmltp = $potluckslotmltp + 4;
  10170.       }
  10171.    } elsif ($potluckslotsymbol7 >= 44) {
  10172.       $potlucksvslot7 = 8;         
  10173.    } else {
  10174.       $potlucksvslot7 = 0;
  10175.    }
  10176.    
  10177.    if ($potluckslotsymbol8 <= 4) {
  10178.       $potlucksvslot8 = 7;
  10179.    } elsif ($potluckslotsymbol8 <= 8) {
  10180.       $potlucksvslot8 = 8;
  10181.    } elsif ($potluckslotsymbol8 <= 10) {
  10182.       $potlucksvslot8 = 'x';
  10183.    } elsif ($potluckslotsymbol8 <= 12) {
  10184.       $potlucksvslot8 = 9;   
  10185.    } elsif ($potluckslotsymbol8 <= 22) {
  10186.       $potlucksvslot8 = 6;
  10187.    } elsif ($potluckslotsymbol8 <= 30) {
  10188.       $potlucksvslot8 = 5;
  10189.       if (($potluckplaylevel >= 3) && ($potluckslotbns8 == 4)) {
  10190.          #Playlevel must be 3 lines or greater to spin these reels
  10191.          $potluckslotdivd = $potluckslotdivd + 2;
  10192.       } elsif (($potluckplaylevel >= 3) && ($potluckslotbns8 == 6)) {
  10193.          $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333;
  10194.       }
  10195.    } elsif ($potluckslotsymbol8 <= 36) {
  10196.       $potlucksvslot8 = 4;
  10197.    } elsif ($potluckslotsymbol8 <= 40) {
  10198.       $potlucksvslot8 = 3;
  10199.    } elsif ($potluckslotsymbol8 <= 42) {
  10200.       $potlucksvslot8 = 2;
  10201.       if (($potluckplaylevel >= 3) && ($potluckslotbns8 == 7)) {
  10202.          #Playlevel must be 3 lines or greater to spin these reels
  10203.          $potluckslotmltp = $potluckslotmltp + 2;
  10204.       }
  10205.    } elsif ($potluckslotsymbol8 == 43) {
  10206.       $potlucksvslot8 = 1;
  10207.    } elsif (($potluckslotsymbol8 == 44) && ($potluckslotdh8 == 1)) {
  10208.       $potlucksvslot8 = 'd';
  10209.       if (($potluckplaylevel >= 3) && ($potluckslotbns8 == 7)) {
  10210.          #Playlevel must be 3 lines or greater to spin these reels
  10211.          $potluckslotmltp = $potluckslotmltp + 4;
  10212.       }
  10213.    } elsif ($potluckslotsymbol8 >= 44) {
  10214.       $potlucksvslot8 = 7;         
  10215.    } else {
  10216.       $potlucksvslot8 = 0;
  10217.    }
  10218.    
  10219.    if ($potluckslotsymbol9 <= 4) {
  10220.       $potlucksvslot9 = 7;
  10221.    } elsif ($potluckslotsymbol9 <= 8) {
  10222.       $potlucksvslot9 = 8;
  10223.    } elsif ($potluckslotsymbol9 <= 10) {
  10224.       $potlucksvslot9 = 'x';
  10225.    } elsif ($potluckslotsymbol9 <= 12) {
  10226.       $potlucksvslot9 = 9;   
  10227.    } elsif ($potluckslotsymbol9 <= 22) {
  10228.       $potlucksvslot9 = 6;
  10229.    } elsif ($potluckslotsymbol9 <= 30) {
  10230.       $potlucksvslot9 = 5;
  10231.       if (($potluckplaylevel >= 3) && ($potluckslotbns9 == 4)) {
  10232.          #Playlevel must be 3 lines or greater to spin these reels
  10233.          $potluckslotdivd = $potluckslotdivd + 2;
  10234.       } elsif (($potluckplaylevel >= 3) && ($potluckslotbns9 == 6)) {
  10235.          $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333;
  10236.       }
  10237.    } elsif ($potluckslotsymbol9 <= 36) {
  10238.       $potlucksvslot9 = 4;
  10239.    } elsif ($potluckslotsymbol9 <= 40) {
  10240.       $potlucksvslot9 = 3;
  10241.    } elsif ($potluckslotsymbol9 <= 42) {
  10242.       $potlucksvslot9 = 2;
  10243.       if (($potluckplaylevel >= 3) && ($potluckslotbns9 == 7)) {
  10244.          #Playlevel must be 3 lines or greater to spin these reels
  10245.          $potluckslotmltp = $potluckslotmltp + 2;
  10246.       }
  10247.    } elsif ($potluckslotsymbol9 == 43) {
  10248.       $potlucksvslot9 = 1;
  10249.    } elsif (($potluckslotsymbol9 == 44) && ($potluckslotdh9 == 1)) {
  10250.       $potlucksvslot9 = 'd';
  10251.       if (($potluckplaylevel >= 3) && ($potluckslotbns9 == 7)) {
  10252.          #Playlevel must be 3 lines or greater to spin these reels
  10253.          $potluckslotmltp = $potluckslotmltp + 4;
  10254.       }
  10255.    } elsif ($potluckslotsymbol9 >= 44) {
  10256.       $potlucksvslot9 = 9;         
  10257.    } else {
  10258.       $potlucksvslot9 = 0;
  10259.    }
  10260.    
  10261. }
  10262.                
  10263. sub potluckslot1 {
  10264.    if ($potluckslot1 eq 'spining') {
  10265.       potluckslotspining();
  10266.    } elsif ($potluckslot1 eq 'd') {
  10267.       potluckslot1dheart1();
  10268.    } elsif ($potluckslot1 eq 'd4') {
  10269.       potluckslot1dheart1b4();
  10270.    } elsif ($potluckslot1 eq 's2') {
  10271.       potluckslot1spad1b2();
  10272.    } elsif ($potluckslot1 eq 'ch') {
  10273.       potluckslot1coin1bh();
  10274.    } elsif ($potluckslot1 eq 'sh') {
  10275.       potluckslot1coin1bs();
  10276.    } elsif ($potluckslot1 == 1) {
  10277.       potluckslot1swrd1();
  10278.    } elsif ($potluckslot1 == 2) {
  10279.       potluckslot1spad1();
  10280.    } elsif ($potluckslot1 == 3) {
  10281.       potluckslot1clov1();   
  10282.    } elsif ($potluckslot1 == 4) {
  10283.       potluckslot1heart1();
  10284.    } elsif ($potluckslot1 == 5) {
  10285.       potluckslot1coin1();
  10286.    } elsif ($potluckslot1 == 6) {
  10287.       potluckslot1hsho1();
  10288.    } elsif ($potluckslot1 == 7) {
  10289.       potluckslot1hsho5();
  10290.    } elsif ($potluckslot1 == 8) {
  10291.       potluckslot1swrd5();
  10292.    } elsif ($potluckslot1 == 9) {
  10293.       potluckslot1coin5();
  10294.    } elsif ($potluckslot1 eq 'x') {
  10295.       potluckslot1dheart5();               
  10296.    } else {
  10297.       potluckslotwhite();
  10298.    }
  10299. }
  10300. sub potluckslot2 {
  10301.    if ($potluckslot2 eq 'spining') {
  10302.       potluckslotspining();
  10303.    } elsif ($potluckslot2 eq 'd') {
  10304.       potluckslot1dheart2();
  10305.    } elsif ($potluckslot2 eq 'd4') {
  10306.       potluckslot1dheart2b4();
  10307.    } elsif ($potluckslot2 eq 's2') {
  10308.       potluckslot1spad2b2();
  10309.    } elsif ($potluckslot2 eq 'ch') {
  10310.       potluckslot1coin2bh();
  10311.    } elsif ($potluckslot2 eq 'sh') {
  10312.       potluckslot1coin2bs();
  10313.    } elsif ($potluckslot2 == 1) {
  10314.       potluckslot1swrd2();
  10315.    } elsif ($potluckslot2 == 2) {
  10316.       potluckslot1spad2();
  10317.    } elsif ($potluckslot2 == 3) {
  10318.       potluckslot1clov2();   
  10319.    } elsif ($potluckslot2 == 4) {
  10320.       potluckslot1heart2();
  10321.    } elsif ($potluckslot2 == 5) {
  10322.       potluckslot1coin2();
  10323.    } elsif ($potluckslot2 == 6) {
  10324.       potluckslot1hsho2();
  10325.    } elsif ($potluckslot2 == 7) {
  10326.       potluckslot1hsho6();
  10327.    } elsif ($potluckslot2 == 8) {
  10328.       potluckslot1swrd6();
  10329.    } elsif ($potluckslot1 == 9) {
  10330.       potluckslot1coin6();
  10331.    } elsif ($potluckslot2 eq 'x') {
  10332.       potluckslot1dheart6();               
  10333.    } else {
  10334.       potluckslotwhite();
  10335.    }
  10336. }
  10337. sub potluckslot3 {
  10338.    if ($potluckslot3 eq 'spining') {
  10339.       potluckslotspining();
  10340.    } elsif ($potluckslot3 eq '2xmulti') {
  10341.       potluckslot12xmulti3();
  10342.    } elsif ($potluckslot3 eq '3xmulti') {
  10343.       potluckslot13xmulti3();
  10344.    } elsif ($potluckslot3 eq 'd') {
  10345.       potluckslot1dheart3();
  10346.    } elsif ($potluckslot3 eq 'd4') {
  10347.       potluckslot1dheart3b4();   
  10348.    } elsif ($potluckslot3 eq 's2') {
  10349.       potluckslot1spad3b2();
  10350.    } elsif ($potluckslot3 eq 'ch') {
  10351.       potluckslot1coin3bh();
  10352.    } elsif ($potluckslot3 eq 'sh') {
  10353.       potluckslot1coin3bs();
  10354.    } elsif ($potluckslot3 == 1) {
  10355.       potluckslot1swrd3();
  10356.    } elsif ($potluckslot3 == 2) {
  10357.       potluckslot1spad3();
  10358.    } elsif ($potluckslot3 == 3) {
  10359.       potluckslot1clov3();   
  10360.    } elsif ($potluckslot3 == 4) {
  10361.       potluckslot1heart3();
  10362.    } elsif ($potluckslot3 == 5) {
  10363.       potluckslot1coin3();
  10364.    } elsif ($potluckslot3 == 6) {
  10365.       potluckslot1hsho3();         
  10366.    } else {
  10367.       potluckslotwhite();
  10368.    }
  10369. }
  10370. sub potluckslot4 {
  10371.    if ($potluckslot4 eq 'spining') {
  10372.       potluckslotspining();
  10373.    } elsif ($potluckslot4 eq '2xmulti') {
  10374.       potluckslot12xmulti4();
  10375.    } elsif ($potluckslot4 eq '3xmulti') {
  10376.       potluckslot13xmulti4();
  10377.    } elsif ($potluckslot4 eq 'd') {
  10378.       potluckslot1dheart4();
  10379.    } elsif ($potluckslot4 eq 'd4') {
  10380.       potluckslot1dheart4b4();
  10381.    } elsif ($potluckslot4 eq 's2') {
  10382.       potluckslot1spad4b2();
  10383.    } elsif ($potluckslot4 eq 'ch') {
  10384.       potluckslot1coin4bh();
  10385.    } elsif ($potluckslot4 eq 'sh') {
  10386.       potluckslot1coin4bs();
  10387.    } elsif ($potluckslot4 == 1) {
  10388.       potluckslot1swrd4();
  10389.    } elsif ($potluckslot4 == 2) {
  10390.       potluckslot1spad4();
  10391.    } elsif ($potluckslot4 == 3) {
  10392.       potluckslot1clov4();   
  10393.    } elsif ($potluckslot4 == 4) {
  10394.       potluckslot1heart4();
  10395.    } elsif ($potluckslot4 == 5) {
  10396.       potluckslot1coin4();
  10397.    } elsif ($potluckslot4 == 6) {
  10398.       potluckslot1hsho4();         
  10399.    } else {
  10400.       potluckslotwhite();
  10401.    }
  10402. }
  10403. sub potluckslot5 {
  10404.    if ($potluckslot5 eq 'spining') {
  10405.       potluckslotspining();
  10406.    } elsif ($potluckslot5 eq 'd') {
  10407.       potluckslot1dheart5();
  10408.    } elsif ($potluckslot5 eq 'd4') {
  10409.       potluckslot1dheart5b4();
  10410.    } elsif ($potluckslot5 eq 's2') {
  10411.       potluckslot1spad5b2();
  10412.    } elsif ($potluckslot5 eq 'ch') {
  10413.       potluckslot1coin5bh();
  10414.    } elsif ($potluckslot5 eq 'sh') {
  10415.       potluckslot1coin5bs();
  10416.    } elsif ($potluckslot5 == 1) {
  10417.       potluckslot1swrd5();
  10418.    } elsif ($potluckslot5 == 2) {
  10419.       potluckslot1spad5();
  10420.    } elsif ($potluckslot5 == 3) {
  10421.       potluckslot1clov5();   
  10422.    } elsif ($potluckslot5 == 4) {
  10423.       potluckslot1heart5();
  10424.    } elsif ($potluckslot5 == 5) {
  10425.       potluckslot1coin5();
  10426.    } elsif ($potluckslot5 == 6) {
  10427.       potluckslot1hsho5();
  10428.    } elsif ($potluckslot5 == 7) {
  10429.       potluckslot1heart1();
  10430.    } elsif ($potluckslot5 == 8) {
  10431.       potluckslot1clov1();
  10432.    } elsif ($potluckslot5 == 9) {
  10433.       potluckslot1spad1();
  10434.    } elsif ($potluckslot5 eq 'x') {
  10435.       potluckslot1coin1();                     
  10436.    } else {
  10437.       potluckslotwhite();
  10438.    }
  10439. }
  10440. sub potluckslot6 {
  10441.    if ($potluckslot6 eq 'spining') {
  10442.       potluckslotspining();
  10443.    } elsif ($potluckslot6 eq 'd') {
  10444.       potluckslot1dheart6();
  10445.    } elsif ($potluckslot6 eq 'd4') {
  10446.       potluckslot1dheart6b4();   
  10447.    } elsif ($potluckslot6 eq 's2') {
  10448.       potluckslot1spad6b2();
  10449.    } elsif ($potluckslot6 eq 'ch') {
  10450.       potluckslot1coin6bh();
  10451.    } elsif ($potluckslot6 eq 'sh') {
  10452.       potluckslot1coin6bs();
  10453.    } elsif ($potluckslot6 == 1) {
  10454.       potluckslot1swrd6();
  10455.    } elsif ($potluckslot6 == 2) {
  10456.       potluckslot1spad6();
  10457.    } elsif ($potluckslot6 == 3) {
  10458.       potluckslot1clov6();   
  10459.    } elsif ($potluckslot6 == 4) {
  10460.       potluckslot1heart6();
  10461.    } elsif ($potluckslot6 == 5) {
  10462.       potluckslot1coin6();
  10463.    } elsif ($potluckslot6 == 6) {
  10464.       potluckslot1hsho6();
  10465.    } elsif ($potluckslot6 == 7) {
  10466.       potluckslot1heart2();
  10467.    } elsif ($potluckslot6 == 8) {
  10468.       potluckslot1clov2();
  10469.    } elsif ($potluckslot6 == 9) {
  10470.       potluckslot1spad2();
  10471.    } elsif ($potluckslot6 eq 'x') {
  10472.       potluckslot1coin2();               
  10473.    } else {
  10474.       potluckslotwhite();
  10475.    }
  10476. }
  10477. sub potluckreel1 {
  10478.    $potluckreel = 1;
  10479.    if ((($potluckreelspin == 9) and ($potluckplaylevel <= 3)) or (($potluckreelspin >= 6) and ($potluckplaylevel >= 4))) {
  10480.       $potluckslot1 = 'spining';
  10481.       $potluckslot2 = 'spining';
  10482.       $potluckslot3 = 'spining';
  10483.       $potluckslot4 = 'spining';
  10484.       $potluckslot5 = 'spining';
  10485.       $potluckslot6 = 'spining';
  10486.    } elsif (($potlucksvslot1 == 2) && ($potluckslotbns1 == 7)) {
  10487.       $potluckslot1 = 's2';
  10488.       $potluckslot2 = 's2';
  10489.       $potluckslot3 = 's2';
  10490.       $potluckslot4 = 's2';
  10491.       $potluckslot5 = 's2';
  10492.       $potluckslot6 = 's2';
  10493.    } elsif (($potlucksvslot1 == 5) && ($potluckslotbns1 == 4)) {
  10494.       $potluckslot1 = 'ch';
  10495.       $potluckslot2 = 'ch';
  10496.       $potluckslot3 = 'ch';
  10497.       $potluckslot4 = 'ch';
  10498.       $potluckslot5 = 'ch';
  10499.       $potluckslot6 = 'ch';
  10500.    } elsif (($potlucksvslot1 == 5) && ($potluckslotbns1 == 6)) {
  10501.       $potluckslot1 = 'sh';
  10502.       $potluckslot2 = 'sh';
  10503.       $potluckslot3 = 'sh';
  10504.       $potluckslot4 = 'sh';
  10505.       $potluckslot5 = 'sh';
  10506.       $potluckslot6 = 'sh';
  10507.    } elsif (($potlucksvslot1 eq 'd') && ($potluckslotbns1 == 7)) {
  10508.       $potluckslot1 = 'd4';
  10509.       $potluckslot2 = 'd4';
  10510.       $potluckslot3 = 'd4';
  10511.       $potluckslot4 = 'd4';
  10512.       $potluckslot5 = 'd4';
  10513.       $potluckslot6 = 'd4';
  10514.    } else {
  10515.       $potluckslot1 = $potlucksvslot1;
  10516.       $potluckslot2 = $potlucksvslot1;
  10517.       $potluckslot3 = $potlucksvslot1;
  10518.       $potluckslot4 = $potlucksvslot1;
  10519.       $potluckslot5 = $potlucksvslot1;
  10520.       $potluckslot6 = $potlucksvslot1;
  10521.    }
  10522.    
  10523. }
  10524. sub potluckreel2 {
  10525.    $potluckreel = 2;
  10526.    if ((($potluckreelspin >= 8) and ($potluckplaylevel <= 3)) or (($potluckreelspin >= 4) and ($potluckplaylevel >= 4))) {
  10527.       $potluckslot1 = 'spining';
  10528.       $potluckslot2 = 'spining';
  10529.       $potluckslot3 = 'spining';
  10530.       $potluckslot4 = 'spining';
  10531.       $potluckslot5 = 'spining';
  10532.       $potluckslot6 = 'spining';
  10533.    } elsif (($potlucksvslot2 == 2) && ($potluckslotbns2 == 7)) {
  10534.       $potluckslot1 = 's2';
  10535.       $potluckslot2 = 's2';
  10536.       if ($potluckslotsymbolX2M == 5) {
  10537.          $potluckslot3 = '2xmulti';
  10538.          $potluckslot4 = '2xmulti';
  10539.       } elsif ($potluckslotsymbolX3M == 12) {
  10540.          $potluckslot3 = '3xmulti';
  10541.          $potluckslot4 = '3xmulti';   
  10542.       } else {
  10543.          $potluckslot3 = 's2';
  10544.          $potluckslot4 = 's2';
  10545.       }
  10546.       $potluckslot5 = 's2';
  10547.       $potluckslot6 = 's2';
  10548.    } elsif (($potlucksvslot2 == 5) && ($potluckslotbns2 == 4)) {
  10549.       $potluckslot1 = 'ch';
  10550.       $potluckslot2 = 'ch';
  10551.       if ($potluckslotsymbolX2M == 5) {
  10552.          $potluckslot3 = '2xmulti';
  10553.          $potluckslot4 = '2xmulti';
  10554.       } elsif ($potluckslotsymbolX3M == 12) {
  10555.          $potluckslot3 = '3xmulti';
  10556.          $potluckslot4 = '3xmulti';   
  10557.       } else {
  10558.       $potluckslot3 = 'ch';
  10559.       $potluckslot4 = 'ch';
  10560.       }
  10561.       $potluckslot5 = 'ch';
  10562.       $potluckslot6 = 'ch';
  10563.    } elsif (($potlucksvslot2 == 5) && ($potluckslotbns2 == 6)) {
  10564.       $potluckslot1 = 'sh';
  10565.       $potluckslot2 = 'sh';
  10566.       if ($potluckslotsymbolX2M == 5) {
  10567.          $potluckslot3 = '2xmulti';
  10568.          $potluckslot4 = '2xmulti';
  10569.       } elsif ($potluckslotsymbolX3M == 12) {
  10570.          $potluckslot3 = '3xmulti';
  10571.          $potluckslot4 = '3xmulti';   
  10572.       } else {
  10573.       $potluckslot3 = 'sh';
  10574.       $potluckslot4 = 'sh';
  10575.       }
  10576.       $potluckslot5 = 'sh';
  10577.       $potluckslot6 = 'sh';
  10578.    } elsif (($potlucksvslot2 eq 'd') && ($potluckslotbns2 == 7)) {
  10579.       $potluckslot1 = 'd4';
  10580.       $potluckslot2 = 'd4';
  10581.       if ($potluckslotsymbolX2M == 5) {
  10582.          $potluckslot3 = '2xmulti';
  10583.          $potluckslot4 = '2xmulti';
  10584.       } elsif ($potluckslotsymbolX3M == 12) {
  10585.          $potluckslot3 = '3xmulti';
  10586.          $potluckslot4 = '3xmulti';   
  10587.       } else {
  10588.          $potluckslot3 = 'd4';
  10589.          $potluckslot4 = 'd4';
  10590.       }
  10591.       $potluckslot5 = 'd4';
  10592.       $potluckslot6 = 'd4';
  10593.    } else {
  10594.       $potluckslot1 = $potlucksvslot2;
  10595.       $potluckslot2 = $potlucksvslot2;
  10596.       if ($potluckslotsymbolX2M == 5) {
  10597.          $potluckslot3 = '2xmulti';
  10598.          $potluckslot4 = '2xmulti';
  10599.       } elsif ($potluckslotsymbolX3M == 12) {
  10600.          $potluckslot3 = '3xmulti';
  10601.          $potluckslot4 = '3xmulti';   
  10602.       } else {
  10603.          $potluckslot3 = $potlucksvslot2;
  10604.          $potluckslot4 = $potlucksvslot2;
  10605.       }
  10606.       $potluckslot5 = $potlucksvslot2;
  10607.       $potluckslot6 = $potlucksvslot2;
  10608.    }
  10609. }
  10610. sub potluckreel3 {
  10611.    $potluckreel = 3;
  10612.    if ((($potluckreelspin >= 7) and ($potluckplaylevel <= 3)) or (($potluckreelspin >= 7) and ($potluckplaylevel >= 4))) {
  10613.       $potluckslot1 = 'spining';
  10614.       $potluckslot2 = 'spining';
  10615.       $potluckslot3 = 'spining';
  10616.       $potluckslot4 = 'spining';
  10617.       $potluckslot5 = 'spining';
  10618.       $potluckslot6 = 'spining';
  10619.    } elsif (($potlucksvslot3 == 2) && ($potluckslotbns3 == 7)) {
  10620.       $potluckslot1 = 's2';
  10621.       $potluckslot2 = 's2';
  10622.       $potluckslot3 = 's2';
  10623.       $potluckslot4 = 's2';
  10624.       $potluckslot5 = 's2';
  10625.       $potluckslot6 = 's2';
  10626.    } elsif (($potlucksvslot3 == 5) && ($potluckslotbns3 == 4)) {
  10627.       $potluckslot1 = 'ch';
  10628.       $potluckslot2 = 'ch';
  10629.       $potluckslot3 = 'ch';
  10630.       $potluckslot4 = 'ch';
  10631.       $potluckslot5 = 'ch';
  10632.       $potluckslot6 = 'ch';
  10633.    } elsif (($potlucksvslot3 == 5) && ($potluckslotbns3 == 6)) {
  10634.       $potluckslot1 = 'sh';
  10635.       $potluckslot2 = 'sh';
  10636.       $potluckslot3 = 'sh';
  10637.       $potluckslot4 = 'sh';
  10638.       $potluckslot5 = 'sh';
  10639.       $potluckslot6 = 'sh';
  10640.    } elsif (($potlucksvslot3 eq 'd') && ($potluckslotbns3 == 7)) {
  10641.       $potluckslot1 = 'd4';
  10642.       $potluckslot2 = 'd4';
  10643.       $potluckslot3 = 'd4';
  10644.       $potluckslot4 = 'd4';
  10645.       $potluckslot5 = 'd4';
  10646.       $potluckslot6 = 'd4';
  10647.    } else {
  10648.       $potluckslot1 = $potlucksvslot3;
  10649.       $potluckslot2 = $potlucksvslot3;
  10650.       $potluckslot3 = $potlucksvslot3;
  10651.       $potluckslot4 = $potlucksvslot3;
  10652.       $potluckslot5 = $potlucksvslot3;
  10653.       $potluckslot6 = $potlucksvslot3;
  10654.    }
  10655. }
  10656. sub potluckreel4 {
  10657.    $potluckreel = 4;
  10658.    if ((($potluckreelspin >= 6) and (($potluckplaylevel == 2) or ($potluckplaylevel == 3))) or (($potluckreelspin >= 8) and ($potluckplaylevel >= 4))) {
  10659.       $potluckslot1 = 'spining';
  10660.       $potluckslot2 = 'spining';
  10661.       $potluckslot3 = 'spining';
  10662.       $potluckslot4 = 'spining';
  10663.       $potluckslot5 = 'spining';
  10664.       $potluckslot6 = 'spining';
  10665.    } elsif (($potlucksvslot4 == 2) && ($potluckslotbns4 == 7)) {
  10666.       $potluckslot1 = 's2';
  10667.       $potluckslot2 = 's2';
  10668.       $potluckslot3 = 's2';
  10669.       $potluckslot4 = 's2';
  10670.       $potluckslot5 = 's2';
  10671.       $potluckslot6 = 's2';
  10672.    } elsif (($potlucksvslot4 == 5) && ($potluckslotbns4 == 4)) {
  10673.       $potluckslot1 = 'ch';
  10674.       $potluckslot2 = 'ch';
  10675.       $potluckslot3 = 'ch';
  10676.       $potluckslot4 = 'ch';
  10677.       $potluckslot5 = 'ch';
  10678.       $potluckslot6 = 'ch';
  10679.    } elsif (($potlucksvslot4 == 5) && ($potluckslotbns4 == 6)) {
  10680.       $potluckslot1 = 'sh';
  10681.       $potluckslot2 = 'sh';
  10682.       $potluckslot3 = 'sh';
  10683.       $potluckslot4 = 'sh';
  10684.       $potluckslot5 = 'sh';
  10685.       $potluckslot6 = 'sh';
  10686.    } elsif (($potlucksvslot4 eq 'd') && ($potluckslotbns4 == 7)) {
  10687.       $potluckslot1 = 'd4';
  10688.       $potluckslot2 = 'd4';
  10689.       $potluckslot3 = 'd4';
  10690.       $potluckslot4 = 'd4';
  10691.       $potluckslot5 = 'd4';
  10692.       $potluckslot6 = 'd4';
  10693.    } else {
  10694.       $potluckslot1 = $potlucksvslot4;
  10695.       $potluckslot2 = $potlucksvslot4;
  10696.       $potluckslot3 = $potlucksvslot4;
  10697.       $potluckslot4 = $potlucksvslot4;
  10698.       $potluckslot5 = $potlucksvslot4;
  10699.       $potluckslot6 = $potlucksvslot4;
  10700.    }
  10701. }
  10702. sub potluckreel5 {
  10703.    $potluckreel = 5;
  10704.    if ((($potluckreelspin >= 5) and (($potluckplaylevel == 2) or ($potluckplaylevel == 3))) or (($potluckreelspin >= 1) and ($potluckplaylevel >= 4))) {
  10705.       $potluckslot1 = 'spining';
  10706.       $potluckslot2 = 'spining';
  10707.       $potluckslot3 = 'spining';
  10708.       $potluckslot4 = 'spining';
  10709.       $potluckslot5 = 'spining';
  10710.       $potluckslot6 = 'spining';
  10711.    } elsif (($potlucksvslot5 == 2) && ($potluckslotbns5 == 7)) {
  10712.       $potluckslot1 = 's2';
  10713.       $potluckslot2 = 's2';
  10714.       $potluckslot3 = 's2';
  10715.       $potluckslot4 = 's2';
  10716.       $potluckslot5 = 's2';
  10717.       $potluckslot6 = 's2';
  10718.    } elsif (($potlucksvslot5 == 5) && ($potluckslotbns5 == 4)) {
  10719.       $potluckslot1 = 'ch';
  10720.       $potluckslot2 = 'ch';
  10721.       $potluckslot3 = 'ch';
  10722.       $potluckslot4 = 'ch';
  10723.       $potluckslot5 = 'ch';
  10724.       $potluckslot6 = 'ch';
  10725.    } elsif (($potlucksvslot5 == 5) && ($potluckslotbns5 == 6)) {
  10726.       $potluckslot1 = 'sh';
  10727.       $potluckslot2 = 'sh';
  10728.       $potluckslot3 = 'sh';
  10729.       $potluckslot4 = 'sh';
  10730.       $potluckslot5 = 'sh';
  10731.       $potluckslot6 = 'sh';
  10732.    } elsif (($potlucksvslot5 eq 'd') && ($potluckslotbns5 == 7)) {
  10733.       $potluckslot1 = 'd4';
  10734.       $potluckslot2 = 'd4';
  10735.       $potluckslot3 = 'd4';
  10736.       $potluckslot4 = 'd4';
  10737.       $potluckslot5 = 'd4';
  10738.       $potluckslot6 = 'd4';
  10739.    } else {
  10740.       $potluckslot1 = $potlucksvslot5;
  10741.       $potluckslot2 = $potlucksvslot5;
  10742.       $potluckslot3 = $potlucksvslot5;
  10743.       $potluckslot4 = $potlucksvslot5;
  10744.       $potluckslot5 = $potlucksvslot5;
  10745.       $potluckslot6 = $potlucksvslot5;
  10746.    }
  10747. }
  10748. sub potluckreel6 {
  10749.    $potluckreel = 6;
  10750.    if ((($potluckreelspin >= 4) and (($potluckplaylevel == 2) or ($potluckplaylevel == 3))) or (($potluckreelspin >= 3) and ($potluckplaylevel >= 4))) {
  10751.       $potluckslot1 = 'spining';
  10752.       $potluckslot2 = 'spining';
  10753.       $potluckslot3 = 'spining';
  10754.       $potluckslot4 = 'spining';
  10755.       $potluckslot5 = 'spining';
  10756.       $potluckslot6 = 'spining';
  10757.    } elsif (($potlucksvslot6 == 2) && ($potluckslotbns6 == 7)) {
  10758.       $potluckslot1 = 's2';
  10759.       $potluckslot2 = 's2';
  10760.       $potluckslot3 = 's2';
  10761.       $potluckslot4 = 's2';
  10762.       $potluckslot5 = 's2';
  10763.       $potluckslot6 = 's2';
  10764.    } elsif (($potlucksvslot6 == 5) && ($potluckslotbns6 == 4)) {
  10765.       $potluckslot1 = 'ch';
  10766.       $potluckslot2 = 'ch';
  10767.       $potluckslot3 = 'ch';
  10768.       $potluckslot4 = 'ch';
  10769.       $potluckslot5 = 'ch';
  10770.       $potluckslot6 = 'ch';
  10771.    } elsif (($potlucksvslot6 == 5) && ($potluckslotbns6 == 6)) {
  10772.       $potluckslot1 = 'sh';
  10773.       $potluckslot2 = 'sh';
  10774.       $potluckslot3 = 'sh';
  10775.       $potluckslot4 = 'sh';
  10776.       $potluckslot5 = 'sh';
  10777.       $potluckslot6 = 'sh';
  10778.    } elsif (($potlucksvslot6 eq 'd') && ($potluckslotbns6 == 7)) {
  10779.       $potluckslot1 = 'd4';
  10780.       $potluckslot2 = 'd4';
  10781.       $potluckslot3 = 'd4';
  10782.       $potluckslot4 = 'd4';
  10783.       $potluckslot5 = 'd4';
  10784.       $potluckslot6 = 'd4';
  10785.    } else {
  10786.       $potluckslot1 = $potlucksvslot6;
  10787.       $potluckslot2 = $potlucksvslot6;
  10788.       $potluckslot3 = $potlucksvslot6;
  10789.       $potluckslot4 = $potlucksvslot6;
  10790.       $potluckslot5 = $potlucksvslot6;
  10791.       $potluckslot6 = $potlucksvslot6;
  10792.    }
  10793. }
  10794. sub potluckreel7 {
  10795.    $potluckreel = 7;
  10796.    if ((($potluckreelspin >= 3) and ($potluckplaylevel == 3)) or (($potluckreelspin >= 2) and ($potluckplaylevel >= 4))) {
  10797.       $potluckslot1 = 'spining';
  10798.       $potluckslot2 = 'spining';
  10799.       $potluckslot3 = 'spining';
  10800.       $potluckslot4 = 'spining';
  10801.       $potluckslot5 = 'spining';
  10802.       $potluckslot6 = 'spining';
  10803.    } elsif (($potlucksvslot7 == 2) && ($potluckslotbns7 == 7)) {
  10804.       $potluckslot1 = 's2';
  10805.       $potluckslot2 = 's2';
  10806.       $potluckslot3 = 's2';
  10807.       $potluckslot4 = 's2';
  10808.       $potluckslot5 = 's2';
  10809.       $potluckslot6 = 's2';
  10810.    } elsif (($potlucksvslot7 == 5) && ($potluckslotbns7 == 4)) {
  10811.       $potluckslot1 = 'ch';
  10812.       $potluckslot2 = 'ch';
  10813.       $potluckslot3 = 'ch';
  10814.       $potluckslot4 = 'ch';
  10815.       $potluckslot5 = 'ch';
  10816.       $potluckslot6 = 'ch';
  10817.    } elsif (($potlucksvslot7 == 5) && ($potluckslotbns7 == 6)) {
  10818.       $potluckslot1 = 'sh';
  10819.       $potluckslot2 = 'sh';
  10820.       $potluckslot3 = 'sh';
  10821.       $potluckslot4 = 'sh';
  10822.       $potluckslot5 = 'sh';
  10823.       $potluckslot6 = 'sh';
  10824.    } elsif (($potlucksvslot7 eq 'd') && ($potluckslotbns7 == 7)) {
  10825.       $potluckslot1 = 'd4';
  10826.       $potluckslot2 = 'd4';
  10827.       $potluckslot3 = 'd4';
  10828.       $potluckslot4 = 'd4';
  10829.       $potluckslot5 = 'd4';
  10830.       $potluckslot6 = 'd4';
  10831.    } else {
  10832.       $potluckslot1 = $potlucksvslot7;
  10833.       $potluckslot2 = $potlucksvslot7;
  10834.       $potluckslot3 = $potlucksvslot7;
  10835.       $potluckslot4 = $potlucksvslot7;
  10836.       $potluckslot5 = $potlucksvslot7;
  10837.       $potluckslot6 = $potlucksvslot7;
  10838.    }
  10839. }
  10840. sub potluckreel8 {
  10841.    $potluckreel = 8;
  10842.    if ((($potluckreelspin >= 2) and ($potluckplaylevel == 3)) or (($potluckreelspin == 9) and ($potluckplaylevel >= 4))) {
  10843.       $potluckslot1 = 'spining';
  10844.       $potluckslot2 = 'spining';
  10845.       $potluckslot3 = 'spining';
  10846.       $potluckslot4 = 'spining';
  10847.       $potluckslot5 = 'spining';
  10848.       $potluckslot6 = 'spining';
  10849.    } elsif (($potlucksvslot8 == 2) && ($potluckslotbns8 == 7)) {
  10850.       $potluckslot1 = 's2';
  10851.       $potluckslot2 = 's2';
  10852.       $potluckslot3 = 's2';
  10853.       $potluckslot4 = 's2';
  10854.       $potluckslot5 = 's2';
  10855.       $potluckslot6 = 's2';
  10856.    } elsif (($potlucksvslot8 == 5) && ($potluckslotbns8 == 4)) {
  10857.       $potluckslot1 = 'ch';
  10858.       $potluckslot2 = 'ch';
  10859.       $potluckslot3 = 'ch';
  10860.       $potluckslot4 = 'ch';
  10861.       $potluckslot5 = 'ch';
  10862.       $potluckslot6 = 'ch';
  10863.    } elsif (($potlucksvslot8 == 5) && ($potluckslotbns8 == 6)) {
  10864.       $potluckslot1 = 'sh';
  10865.       $potluckslot2 = 'sh';
  10866.       $potluckslot3 = 'sh';
  10867.       $potluckslot4 = 'sh';
  10868.       $potluckslot5 = 'sh';
  10869.       $potluckslot6 = 'sh';
  10870.    } elsif (($potlucksvslot8 eq 'd') && ($potluckslotbns8 == 7)) {
  10871.       $potluckslot1 = 'd4';
  10872.       $potluckslot2 = 'd4';
  10873.       $potluckslot3 = 'd4';
  10874.       $potluckslot4 = 'd4';
  10875.       $potluckslot5 = 'd4';
  10876.       $potluckslot6 = 'd4';
  10877.    } else {
  10878.       $potluckslot1 = $potlucksvslot8;
  10879.       $potluckslot2 = $potlucksvslot8;
  10880.       $potluckslot3 = $potlucksvslot8;
  10881.       $potluckslot4 = $potlucksvslot8;
  10882.       $potluckslot5 = $potlucksvslot8;
  10883.       $potluckslot6 = $potlucksvslot8;
  10884.    }
  10885. }
  10886. sub potluckreel9 {
  10887.    $potluckreel = 8;
  10888.    if ((($potluckreelspin >= 1) and ($potluckplaylevel == 3)) or (($potluckreelspin >= 5) and ($potluckplaylevel >= 4))) {
  10889.       $potluckslot1 = 'spining';
  10890.       $potluckslot2 = 'spining';
  10891.       $potluckslot3 = 'spining';
  10892.       $potluckslot4 = 'spining';
  10893.       $potluckslot5 = 'spining';
  10894.       $potluckslot6 = 'spining';
  10895.    } elsif (($potlucksvslot9 == 2) && ($potluckslotbns9 == 7)) {
  10896.       $potluckslot1 = 's2';
  10897.       $potluckslot2 = 's2';
  10898.       $potluckslot3 = 's2';
  10899.       $potluckslot4 = 's2';
  10900.       $potluckslot5 = 's2';
  10901.       $potluckslot6 = 's2';
  10902.    } elsif (($potlucksvslot9 == 5) && ($potluckslotbns9 == 4)) {
  10903.       $potluckslot1 = 'ch';
  10904.       $potluckslot2 = 'ch';
  10905.       $potluckslot3 = 'ch';
  10906.       $potluckslot4 = 'ch';
  10907.       $potluckslot5 = 'ch';
  10908.       $potluckslot6 = 'ch';
  10909.    } elsif (($potlucksvslot9 == 5) && ($potluckslotbns9 == 6)) {
  10910.       $potluckslot1 = 'sh';
  10911.       $potluckslot2 = 'sh';
  10912.       $potluckslot3 = 'sh';
  10913.       $potluckslot4 = 'sh';
  10914.       $potluckslot5 = 'sh';
  10915.       $potluckslot6 = 'sh';
  10916.    } elsif (($potlucksvslot9 eq 'd') && ($potluckslotbns9 == 7)) {
  10917.       $potluckslot1 = 'd4';
  10918.       $potluckslot2 = 'd4';
  10919.       $potluckslot3 = 'd4';
  10920.       $potluckslot4 = 'd4';
  10921.       $potluckslot5 = 'd4';
  10922.       $potluckslot6 = 'd4';
  10923.    } else {
  10924.       $potluckslot1 = $potlucksvslot9;
  10925.       $potluckslot2 = $potlucksvslot9;
  10926.       $potluckslot3 = $potlucksvslot9;
  10927.       $potluckslot4 = $potlucksvslot9;
  10928.       $potluckslot5 = $potlucksvslot9;
  10929.       $potluckslot6 = $potlucksvslot9;
  10930.    }
  10931. }
  10932. sub potluckmid0 {
  10933.    print color 'reset';
  10934.    print colored('||',"$boldblack on_$bgcblack");
  10935.    print color 'reset';
  10936. }
  10937. sub potluckmid1 {
  10938.    print color 'reset';
  10939.    print colored('-------',"$boldyellow on_$bgcyellow");
  10940.    print color 'reset';
  10941. }
  10942. sub potluckmid4 {
  10943.    print color 'reset';
  10944.    print colored('-------------------',"$boldyellow on_$bgcyellow");
  10945.    print color 'reset';
  10946. }
  10947. sub potluckmid2 {
  10948.    print color 'reset';
  10949.    print colored('--',"$boldyellow on_$bgcyellow");
  10950.    print color 'reset';
  10951. }
  10952. sub potluckmid3 {
  10953.    print color 'reset';
  10954.    print colored('-',"$boldyellow on_$bgcyellow");
  10955.    print color 'reset';
  10956. }
  10957. sub potluckend0 {
  10958.    print color 'reset';
  10959.    print colored('---',"$boldyellow on_$bgcyellow");
  10960.    print color 'reset';
  10961. }
  10962. sub potluckendp1 {
  10963.    if ($potluckplaylevel >= 1) {
  10964.       print colored('1P',"$boldwhite on_$bgcyellow");
  10965.    } else {
  10966.       print colored('1P',"$boldblack on_$bgcyellow");
  10967.    }
  10968. }
  10969. sub potluckendp2 {
  10970.    if ($potluckplaylevel >= 2) {
  10971.       print colored('2P',"$boldwhite on_$bgcyellow");
  10972.    } else {
  10973.       print colored('2P',"$boldblack on_$bgcyellow");
  10974.    }
  10975. }
  10976. sub potluckendp3 {
  10977.    if ($potluckplaylevel >= 3) {
  10978.       print colored('3P',"$boldwhite on_$bgcyellow");
  10979.    } else {
  10980.       print colored('3P',"$boldblack on_$bgcyellow");
  10981.    }
  10982. }
  10983. sub potluckendp4 {
  10984.    if ($potluckplaylevel >= 4) {
  10985.       print colored('4P',"$boldwhite on_$bgcyellow");
  10986.    } else {
  10987.       print colored('4P',"$boldblack on_$bgcyellow");
  10988.    }
  10989. }
  10990. sub potluckendp5 {
  10991.    if ($potluckplaylevel >= 5) {
  10992.       print colored('5P',"$boldwhite on_$bgcyellow");
  10993.    } else {
  10994.       print colored('5P',"$boldblack on_$bgcyellow");
  10995.    }
  10996. }
  10997. sub potluckendp6 {
  10998.    if ($potluckplaylevel >= 6) {
  10999.       print colored('6P',"$boldwhite on_$bgcyellow");
  11000.    } else {
  11001.       print colored('6P',"$boldblack on_$bgcyellow");
  11002.    }
  11003. }
  11004. sub potluckendp7 {
  11005.    if ($potluckplaylevel >= 7) {
  11006.       print colored('7P',"$boldwhite on_$bgcyellow");
  11007.    } else {
  11008.       print colored('7P',"$boldblack on_$bgcyellow");
  11009.    }
  11010. }
  11011. sub potluckendp8 {
  11012.    if ($potluckplaylevel >= 8) {
  11013.       print colored('8P',"$boldwhite on_$bgcyellow");
  11014.    } else {
  11015.       print colored('8P',"$boldblack on_$bgcyellow");
  11016.    }
  11017. }
  11018. sub potluckend1 {
  11019.    print color 'reset';
  11020.    print colored('|',"$boldblack on_$bgcblack");
  11021.    print color 'reset';
  11022. }
  11023. sub potluckend2 {
  11024.    print color 'reset';
  11025.    print colored('--',"$boldyellow on_$bgcyellow");
  11026.    print color 'reset';
  11027. }
  11028. sub potluckslotb {
  11029.    print color 'reset';
  11030.    print colored('I',"$boldwhite on_$bgcwhite");
  11031.    print colored(' ',"$black on_$bgcblack");
  11032.    print colored('I',"$boldwhite on_$bgcwhite");
  11033.    print colored('|',"$boldblack on_$bgcblack");
  11034.    print color 'reset';
  11035. }
  11036. sub potluckslota {
  11037.    print color 'reset';
  11038.    print colored('III',"$boldwhite on_$bgcwhite");
  11039.    print colored('|',"$boldblack on_$bgcblack");
  11040.    print color 'reset';
  11041. }
  11042. sub potluckmulti1wldend0 {
  11043.    print color 'reset';
  11044.    print colored('Single-Symbol-Wilds',"$white on_$bgcyellow");
  11045.    print color 'reset';
  11046. }
  11047. sub potluckmulti2wldend0 {
  11048.    print color 'reset';
  11049.    print colored('NA',"$boldblack on_$bgcyellow");
  11050.    print colored('-',"$boldyellow on_$bgcyellow");
  11051.    print colored('NA',"$boldblack on_$bgcyellow");
  11052.    print colored('-',"$boldyellow on_$bgcyellow");
  11053.    print colored('8P',"$white on_$bgcyellow");
  11054.    print colored('----',"$boldyellow on_$bgcyellow");
  11055.    print colored('SWRD',"$boldred on_$bgcyellow");
  11056.    print colored('---',"$boldyellow on_$bgcyellow");   
  11057.    print color 'reset';
  11058. }
  11059. sub potluckmulti1end0 {
  11060.    print color 'reset';
  11061.    print colored('PossibleMultipliers',"$white on_$bgcyellow");
  11062.    print color 'reset';
  11063. }
  11064. sub potluckmulti2end0 {
  11065.    print color 'reset';
  11066.    print colored('6P',"$white on_$bgcyellow");
  11067.    print colored('-',"$boldyellow on_$bgcyellow");
  11068.    print colored('7P',"$white on_$bgcyellow");
  11069.    print colored('-',"$boldyellow on_$bgcyellow");
  11070.    print colored('8P',"$white on_$bgcyellow");
  11071.    print colored('------',"$boldyellow on_$bgcyellow");
  11072.    print colored('2X',"$boldwhite on_$bgcblack");
  11073.    print colored('---',"$boldyellow on_$bgcyellow");
  11074.    print color 'reset';
  11075. }
  11076. sub potluckmulti3end0 {
  11077.    print color 'reset';
  11078.    print colored('NA',"$boldblack on_$bgcyellow");
  11079.    print colored('-',"$boldyellow on_$bgcyellow");
  11080.    print colored('NA',"$boldblack on_$bgcyellow");
  11081.    print colored('-',"$boldyellow on_$bgcyellow");
  11082.    print colored('8P',"$white on_$bgcyellow");
  11083.    print colored('------',"$boldyellow on_$bgcyellow");
  11084.    print colored('3X',"$boldyellow on_$bgcgreen");
  11085.    print colored('---',"$boldyellow on_$bgcyellow");   
  11086.    print color 'reset';
  11087. }
  11088. sub potluckapotluckmoney {
  11089.    if ($potluckxP1p eq "ddd") {
  11090.       $potluckapotluckmoney = 3000 * $coin;
  11091.       $beepnum = 5;
  11092.       $potluckstwin = $potluckstwin + 1;
  11093.    } elsif ($potluckxP1p eq "111") {
  11094.       $potluckapotluckmoney = 900 * $coin;
  11095.       $beepnum = 4;
  11096.       $potluckstwin = $potluckstwin + 1;
  11097.    } elsif ($potluckxP1p eq "222") {
  11098.       $potluckapotluckmoney = 650 * $coin;
  11099.       $beepnum = 4;
  11100.       $potluckstwin = $potluckstwin + 1;
  11101.    } elsif ($potluckxP1p eq "333") {
  11102.       $potluckapotluckmoney = 300 * $coin;
  11103.       $beepnum = 4;
  11104.       $potluckstwin = $potluckstwin + 1;
  11105.    } elsif ($potluckxP1p eq "444") {
  11106.       $potluckapotluckmoney = 100 * $coin;
  11107.       $beepnum = 3;
  11108.       $potluckstwin = $potluckstwin + 1;
  11109.    } elsif ($potluckxP1p eq "555") {
  11110.       $potluckapotluckmoney = 30 * $coin;
  11111.       $beepnum = 3;
  11112.       $potluckstwin = $potluckstwin + 1;
  11113.    } elsif ($potluckxP1p eq "666") {
  11114.       $potluckapotluckmoney = 10 * $coin;
  11115.       $beepnum = 3;
  11116.       $potluckstwin = $potluckstwin + 1;                                       
  11117.    } else {
  11118.       $potluckapotluckmoney = 0;
  11119.       $beepnum = 0;
  11120.    }
  11121.    
  11122.    
  11123.    if (($potluckxP1Zp eq "55") and ($potluckxP1p ne "555")) {
  11124.       $potluckapotluckmoney = $potluckapotluckmoney + (4 * $coin);
  11125.       $beepnum = $beepnum + 2;
  11126.       $potluckstwin = $potluckstwin + 1;                                    
  11127.    } else {
  11128.       #ZZzzz
  11129.    }
  11130.    
  11131.    if ($potluckplaylevel >= 2) {      
  11132.       if ($potluckxP2p eq "ddd") {
  11133.          $potluckapotluckmoney = $potluckapotluckmoney + (3000 * $coin);
  11134.          $beepnum = $beepnum + 5;
  11135.          $potluckstwin = $potluckstwin + 1;
  11136.       } elsif ($potluckxP2p eq "111") {
  11137.          $potluckapotluckmoney = $potluckapotluckmoney + (900 * $coin);
  11138.          $beepnum = $beepnum + 4;
  11139.          $potluckstwin = $potluckstwin + 1;
  11140.       } elsif ($potluckxP2p eq "222") {
  11141.          $potluckapotluckmoney = $potluckapotluckmoney + (650 * $coin);
  11142.          $beepnum = $beepnum + 4;
  11143.          $potluckstwin = $potluckstwin + 1;
  11144.       } elsif ($potluckxP2p eq "333") {
  11145.          $potluckapotluckmoney = $potluckapotluckmoney + (300 * $coin);
  11146.          $beepnum = $beepnum + 4;
  11147.          $potluckstwin = $potluckstwin + 1;
  11148.       } elsif ($potluckxP2p eq "444") {
  11149.          $potluckapotluckmoney = $potluckapotluckmoney + (100 * $coin);
  11150.          $beepnum = $beepnum + 3;
  11151.          $potluckstwin = $potluckstwin + 1;
  11152.       } elsif ($potluckxP2p eq "555") {
  11153.          $potluckapotluckmoney = $potluckapotluckmoney + (30 * $coin);
  11154.          $beepnum = $beepnum + 3;
  11155.          $potluckstwin = $potluckstwin + 1;
  11156.       } elsif ($potluckxP2p eq "666") {
  11157.          $potluckapotluckmoney = $potluckapotluckmoney + (10 * $coin);
  11158.          $beepnum = $beepnum + 3;
  11159.          $potluckstwin = $potluckstwin + 1;                                       
  11160.       } else {
  11161.          #NO-THING!!!
  11162.       }
  11163.       
  11164.       
  11165.       if (($potluckxP2Zp eq "55") and ($potluckxP2p ne "555")) {
  11166.          $potluckapotluckmoney = $potluckapotluckmoney + (4 * $coin);
  11167.          $beepnum = $beepnum + 2;
  11168.          $potluckstwin = $potluckstwin + 1;                                    
  11169.       } else {
  11170.          #ZZzzz
  11171.       }
  11172.    }
  11173.    
  11174.    
  11175.    if ($potluckplaylevel >= 3) {      
  11176.       if ($potluckxP3p eq "ddd") {
  11177.          $potluckapotluckmoney = $potluckapotluckmoney + (3000 * $coin);
  11178.          $beepnum = $beepnum + 5;
  11179.          $potluckstwin = $potluckstwin + 1;
  11180.       } elsif ($potluckxP3p eq "111") {
  11181.          $potluckapotluckmoney = $potluckapotluckmoney + (900 * $coin);
  11182.          $beepnum = $beepnum + 4;
  11183.          $potluckstwin = $potluckstwin + 1;
  11184.       } elsif ($potluckxP3p eq "222") {
  11185.          $potluckapotluckmoney = $potluckapotluckmoney + (650 * $coin);
  11186.          $beepnum = $beepnum + 4;
  11187.          $potluckstwin = $potluckstwin + 1;
  11188.       } elsif ($potluckxP3p eq "333") {
  11189.          $potluckapotluckmoney = $potluckapotluckmoney + (300 * $coin);
  11190.          $beepnum = $beepnum + 4;
  11191.          $potluckstwin = $potluckstwin + 1;
  11192.       } elsif ($potluckxP3p eq "444") {
  11193.          $potluckapotluckmoney = $potluckapotluckmoney + (100 * $coin);
  11194.          $beepnum = $beepnum + 3;
  11195.          $potluckstwin = $potluckstwin + 1;
  11196.       } elsif ($potluckxP3p eq "555") {
  11197.          $potluckapotluckmoney = $potluckapotluckmoney + (30 * $coin);
  11198.          $beepnum = $beepnum + 3;
  11199.          $potluckstwin = $potluckstwin + 1;
  11200.       } elsif ($potluckxP3p eq "666") {
  11201.          $potluckapotluckmoney = $potluckapotluckmoney + (10 * $coin);
  11202.          $beepnum = $beepnum + 3;
  11203.          $potluckstwin = $potluckstwin + 1;                                       
  11204.       } else {
  11205.          #NO-THING!!!
  11206.       }
  11207.       
  11208.       
  11209.       if (($potluckxP3Zp eq "55") and ($potluckxP3p ne "555")) {
  11210.          $potluckapotluckmoney = $potluckapotluckmoney + (4 * $coin);
  11211.          $beepnum = $beepnum + 2;
  11212.          $potluckstwin = $potluckstwin + 1;                                    
  11213.       } else {
  11214.          #ZZzzz
  11215.       }
  11216.    }   
  11217.    
  11218.    
  11219.    if ($potluckplaylevel >= 4) {      
  11220.       if ($potluckxP4p eq "ddd") {
  11221.          $potluckapotluckmoney = $potluckapotluckmoney + (3000 * $coin);
  11222.          $beepnum = $beepnum + 5;
  11223.          $potluckstwin = $potluckstwin + 1;
  11224.       } elsif ($potluckxP4p eq "111") {
  11225.          $potluckapotluckmoney = $potluckapotluckmoney + (900 * $coin);
  11226.          $beepnum = $beepnum + 4;
  11227.          $potluckstwin = $potluckstwin + 1;
  11228.       } elsif ($potluckxP4p eq "222") {
  11229.          $potluckapotluckmoney = $potluckapotluckmoney + (650 * $coin);
  11230.          $beepnum = $beepnum + 4;
  11231.          $potluckstwin = $potluckstwin + 1;
  11232.       } elsif ($potluckxP4p eq "333") {
  11233.          $potluckapotluckmoney = $potluckapotluckmoney + (300 * $coin);
  11234.          $beepnum = $beepnum + 4;
  11235.          $potluckstwin = $potluckstwin + 1;
  11236.       } elsif ($potluckxP4p eq "444") {
  11237.          $potluckapotluckmoney = $potluckapotluckmoney + (100 * $coin);
  11238.          $beepnum = $beepnum + 3;
  11239.          $potluckstwin = $potluckstwin + 1;
  11240.       } elsif ($potluckxP4p eq "555") {
  11241.          $potluckapotluckmoney = $potluckapotluckmoney + (30 * $coin);
  11242.          $beepnum = $beepnum + 3;
  11243.          $potluckstwin = $potluckstwin + 1;
  11244.       } elsif ($potluckxP4p eq "666") {
  11245.          $potluckapotluckmoney = $potluckapotluckmoney + (10 * $coin);
  11246.          $beepnum = $beepnum + 3;
  11247.          $potluckstwin = $potluckstwin + 1;                                       
  11248.       } else {
  11249.          #NO-THING!!!
  11250.       }
  11251.       
  11252.       
  11253.       if (($potluckxP4Zp eq "55") and ($potluckxP4p ne "555")) {
  11254.          $potluckapotluckmoney = $potluckapotluckmoney + (4 * $coin);
  11255.          $beepnum = $beepnum + 2;
  11256.          $potluckstwin = $potluckstwin + 1;                                    
  11257.       } else {
  11258.          #ZZzzz
  11259.       }   
  11260.    }   
  11261.    
  11262.    
  11263.    if ($potluckplaylevel >= 5) {      
  11264.       if ($potluckxP5p eq "ddd") {
  11265.          $potluckapotluckmoney = $potluckapotluckmoney + (3000 * $coin);
  11266.          $beepnum = $beepnum + 5;
  11267.          $potluckstwin = $potluckstwin + 1;
  11268.       } elsif ($potluckxP5p eq "111") {
  11269.          $potluckapotluckmoney = $potluckapotluckmoney + (900 * $coin);
  11270.          $beepnum = $beepnum + 4;
  11271.          $potluckstwin = $potluckstwin + 1;
  11272.       } elsif ($potluckxP5p eq "222") {
  11273.          $potluckapotluckmoney = $potluckapotluckmoney + (650 * $coin);
  11274.          $beepnum = $beepnum + 4;
  11275.          $potluckstwin = $potluckstwin + 1;
  11276.       } elsif ($potluckxP5p eq "333") {
  11277.          $potluckapotluckmoney = $potluckapotluckmoney + (300 * $coin);
  11278.          $beepnum = $beepnum + 4;
  11279.          $potluckstwin = $potluckstwin + 1;
  11280.       } elsif ($potluckxP5p eq "444") {
  11281.          $potluckapotluckmoney = $potluckapotluckmoney + (100 * $coin);
  11282.          $beepnum = $beepnum + 3;
  11283.          $potluckstwin = $potluckstwin + 1;
  11284.       } elsif ($potluckxP5p eq "555") {
  11285.          $potluckapotluckmoney = $potluckapotluckmoney + (30 * $coin);
  11286.          $beepnum = $beepnum + 3;
  11287.          $potluckstwin = $potluckstwin + 1;
  11288.       } elsif ($potluckxP5p eq "666") {
  11289.          $potluckapotluckmoney = $potluckapotluckmoney + (10 * $coin);
  11290.          $beepnum = $beepnum + 3;
  11291.          $potluckstwin = $potluckstwin + 1;                                       
  11292.       } else {
  11293.          #NO-THING!!!
  11294.       }
  11295.       
  11296.       
  11297.       if (($potluckxP5Zp eq "55") and ($potluckxP5p ne "555")) {
  11298.          $potluckapotluckmoney = $potluckapotluckmoney + (4 * $coin);
  11299.          $beepnum = $beepnum + 2;
  11300.          $potluckstwin = $potluckstwin + 1;                                    
  11301.       } else {
  11302.          #ZZzzz
  11303.       }
  11304.    }
  11305.    
  11306.    
  11307.    if ($potluckplaylevel >= 6) {      
  11308.       if ($potluckxP6p eq "ddd") {
  11309.          $potluckapotluckmoney = $potluckapotluckmoney + (3000 * $coin);
  11310.          $beepnum = $beepnum + 5;
  11311.          $potluckstwin = $potluckstwin + 1;
  11312.       } elsif ($potluckxP6p eq "111") {
  11313.          $potluckapotluckmoney = $potluckapotluckmoney + (900 * $coin);
  11314.          $beepnum = $beepnum + 4;
  11315.          $potluckstwin = $potluckstwin + 1;
  11316.       } elsif ($potluckxP6p eq "222") {
  11317.          $potluckapotluckmoney = $potluckapotluckmoney + (650 * $coin);
  11318.          $beepnum = $beepnum + 4;
  11319.          $potluckstwin = $potluckstwin + 1;
  11320.       } elsif ($potluckxP6p eq "333") {
  11321.          $potluckapotluckmoney = $potluckapotluckmoney + (300 * $coin);
  11322.          $beepnum = $beepnum + 4;
  11323.          $potluckstwin = $potluckstwin + 1;
  11324.       } elsif ($potluckxP6p eq "444") {
  11325.          $potluckapotluckmoney = $potluckapotluckmoney + (100 * $coin);
  11326.          $beepnum = $beepnum + 3;
  11327.          $potluckstwin = $potluckstwin + 1;
  11328.       } elsif ($potluckxP6p eq "555") {
  11329.          $potluckapotluckmoney = $potluckapotluckmoney + (30 * $coin);
  11330.          $beepnum = $beepnum + 3;
  11331.          $potluckstwin = $potluckstwin + 1;
  11332.       } elsif ($potluckxP6p eq "666") {
  11333.          $potluckapotluckmoney = $potluckapotluckmoney + (10 * $coin);
  11334.          $beepnum = $beepnum + 3;
  11335.          $potluckstwin = $potluckstwin + 1;                                       
  11336.       } else {
  11337.          #NO-THING!!!
  11338.       }
  11339.       
  11340.       
  11341.       if (($potluckxP6Zp eq "55") and ($potluckxP6p ne "555")) {
  11342.          $potluckapotluckmoney = $potluckapotluckmoney + (4 * $coin);
  11343.          $beepnum = $beepnum + 2;
  11344.          $potluckstwin = $potluckstwin + 1;                                    
  11345.       } else {
  11346.          #ZZzzz
  11347.       }
  11348.    }
  11349.    
  11350.    if ($potluckplaylevel >= 7) {      
  11351.       if ($potluckxP7p eq "ddd") {
  11352.          $potluckapotluckmoney = $potluckapotluckmoney + (3000 * $coin);
  11353.          $beepnum = $beepnum + 5;
  11354.          $potluckstwin = $potluckstwin + 1;
  11355.       } elsif ($potluckxP7p eq "111") {
  11356.          $potluckapotluckmoney = $potluckapotluckmoney + (900 * $coin);
  11357.          $beepnum = $beepnum + 4;
  11358.          $potluckstwin = $potluckstwin + 1;
  11359.       } elsif ($potluckxP7p eq "222") {
  11360.          $potluckapotluckmoney = $potluckapotluckmoney + (650 * $coin);
  11361.          $beepnum = $beepnum + 4;
  11362.          $potluckstwin = $potluckstwin + 1;
  11363.       } elsif ($potluckxP7p eq "333") {
  11364.          $potluckapotluckmoney = $potluckapotluckmoney + (300 * $coin);
  11365.          $beepnum = $beepnum + 4;
  11366.          $potluckstwin = $potluckstwin + 1;
  11367.       } elsif ($potluckxP7p eq "444") {
  11368.          $potluckapotluckmoney = $potluckapotluckmoney + (100 * $coin);
  11369.          $beepnum = $beepnum + 3;
  11370.          $potluckstwin = $potluckstwin + 1;
  11371.       } elsif ($potluckxP7p eq "555") {
  11372.          $potluckapotluckmoney = $potluckapotluckmoney + (30 * $coin);
  11373.          $beepnum = $beepnum + 3;
  11374.          $potluckstwin = $potluckstwin + 1;
  11375.       } elsif ($potluckxP7p eq "666") {
  11376.          $potluckapotluckmoney = $potluckapotluckmoney + (10 * $coin);
  11377.          $beepnum = $beepnum + 3;
  11378.          $potluckstwin = $potluckstwin + 1;                                       
  11379.       } else {
  11380.          #NO-THING!!!
  11381.       }
  11382.       
  11383.       
  11384.       if (($potluckxP7Zp eq "55") and ($potluckxP7p ne "555")) {
  11385.          $potluckapotluckmoney = $potluckapotluckmoney + (4 * $coin);
  11386.          $beepnum = $beepnum + 2;
  11387.          $potluckstwin = $potluckstwin + 1;                                    
  11388.       } else {
  11389.          #ZZzzz
  11390.       }
  11391.    }
  11392.    if ($potluckplaylevel >= 8) {      
  11393.       if ($potluckxP8p eq "ddd") {
  11394.          $potluckapotluckmoney = $potluckapotluckmoney + (3000 * $coin);
  11395.          $beepnum = $beepnum + 5;
  11396.          $potluckstwin = $potluckstwin + 1;
  11397.       } elsif ($potluckxP8p eq "111") {
  11398.          $potluckapotluckmoney = $potluckapotluckmoney + (900 * $coin);
  11399.          $beepnum = $beepnum + 4;
  11400.          $potluckstwin = $potluckstwin + 1;
  11401.       } elsif ($potluckxP8p eq "222") {
  11402.          $potluckapotluckmoney = $potluckapotluckmoney + (650 * $coin);
  11403.          $beepnum = $beepnum + 4;
  11404.          $potluckstwin = $potluckstwin + 1;
  11405.       } elsif ($potluckxP8p eq "333") {
  11406.          $potluckapotluckmoney = $potluckapotluckmoney + (300 * $coin);
  11407.          $beepnum = $beepnum + 4;
  11408.          $potluckstwin = $potluckstwin + 1;
  11409.       } elsif ($potluckxP8p eq "444") {
  11410.          $potluckapotluckmoney = $potluckapotluckmoney + (100 * $coin);
  11411.          $beepnum = $beepnum + 3;
  11412.          $potluckstwin = $potluckstwin + 1;
  11413.       } elsif ($potluckxP8p eq "555") {
  11414.          $potluckapotluckmoney = $potluckapotluckmoney + (30 * $coin);
  11415.          $beepnum = $beepnum + 3;
  11416.          $potluckstwin = $potluckstwin + 1;
  11417.       } elsif ($potluckxP8p eq "666") {
  11418.          $potluckapotluckmoney = $potluckapotluckmoney + (10 * $coin);
  11419.          $beepnum = $beepnum + 3;
  11420.          $potluckstwin = $potluckstwin + 1;                                       
  11421.       } else {
  11422.          #NO-THING!!!
  11423.       }
  11424.       
  11425.       if (($potluckxP2p4x1 eq "dddd") or ($potluckxP2p4x1 eq "ddd1")
  11426.          or ($potluckxP2p4x1 eq "dd1d") or ($potluckxP2p4x1 eq "d1dd")
  11427.          or ($potluckxP2p4x1 eq "1ddd")) {
  11428.          $potluckapotluckmoney = $potluckapotluckmoney + (1000 * $coin);
  11429.          $beepnum = $beepnum + 4;
  11430.          $potluckstwin = $potluckstwin + 1;
  11431.       } elsif ($potluckxP2p4x1 eq "1111") {
  11432.          $potluckapotluckmoney = $potluckapotluckmoney + (450 * $coin);
  11433.          $beepnum = $beepnum + 3;
  11434.          $potluckstwin = $potluckstwin + 1;
  11435.       } elsif (($potluckxP2p4x1 eq "2222") or ($potluckxP2p4x1 eq "2221")
  11436.          or ($potluckxP2p4x1 eq "2212") or ($potluckxP2p4x1 eq "2122")
  11437.          or ($potluckxP2p4x1 eq "1222")) {
  11438.          $potluckapotluckmoney = $potluckapotluckmoney + (325 * $coin);
  11439.          $beepnum = $beepnum + 3;
  11440.          $potluckstwin = $potluckstwin + 1;
  11441.       } elsif (($potluckxP2p4x1 eq "3333") or ($potluckxP2p4x1 eq "3331")
  11442.          or ($potluckxP2p4x1 eq "3313") or ($potluckxP2p4x1 eq "3133")
  11443.          or ($potluckxP2p4x1 eq "1333"))  {
  11444.          $potluckapotluckmoney = $potluckapotluckmoney + (150 * $coin);
  11445.          $beepnum = $beepnum + 3;
  11446.          $potluckstwin = $potluckstwin + 1;
  11447.       } elsif (($potluckxP2p4x1 eq "4444") or ($potluckxP2p4x1 eq "4441")
  11448.          or ($potluckxP2p4x1 eq "4414") or ($potluckxP2p4x1 eq "4144")
  11449.          or ($potluckxP2p4x1 eq "1444"))  {
  11450.          $potluckapotluckmoney = $potluckapotluckmoney + (50 * $coin);
  11451.          $beepnum = $beepnum + 2;
  11452.          $potluckstwin = $potluckstwin + 1;
  11453.       } elsif (($potluckxP2p4x1 eq "5555") or ($potluckxP2p4x1 eq "5551")
  11454.          or ($potluckxP2p4x1 eq "5515") or ($potluckxP2p4x1 eq "5155")
  11455.          or ($potluckxP2p4x1 eq "1555"))  {
  11456.          $potluckapotluckmoney = $potluckapotluckmoney + (15 * $coin);
  11457.          $beepnum = $beepnum + 2;
  11458.          $potluckstwin = $potluckstwin + 1;
  11459.       } elsif (($potluckxP2p4x1 eq "6666") or ($potluckxP2p4x1 eq "6661")
  11460.          or ($potluckxP2p4x1 eq "6616") or ($potluckxP2p4x1 eq "6166")
  11461.          or ($potluckxP2p4x1 eq "1666"))  {
  11462.          $potluckapotluckmoney = $potluckapotluckmoney + (5 * $coin);
  11463.          $beepnum = $beepnum + 2;
  11464.          $potluckstwin = $potluckstwin + 1;                                       
  11465.       } else {
  11466.          #NO-THING!!!
  11467.       }
  11468.       
  11469.       if (($potluckxP2p4x2 eq "dddd") or ($potluckxP2p4x2 eq "ddd1")
  11470.          or ($potluckxP2p4x2 eq "dd1d") or ($potluckxP2p4x2 eq "d1dd")
  11471.          or ($potluckxP2p4x2 eq "1ddd")) {
  11472.          $potluckapotluckmoney = $potluckapotluckmoney + (1000 * $coin);
  11473.          $beepnum = $beepnum + 4;
  11474.          $potluckstwin = $potluckstwin + 1;
  11475.       } elsif ($potluckxP2p4x2 eq "1111") {
  11476.          $potluckapotluckmoney = $potluckapotluckmoney + (450 * $coin);
  11477.          $beepnum = $beepnum + 3;
  11478.          $potluckstwin = $potluckstwin + 1;
  11479.       } elsif (($potluckxP2p4x2 eq "2222") or ($potluckxP2p4x2 eq "2221")
  11480.          or ($potluckxP2p4x2 eq "2212") or ($potluckxP2p4x2 eq "2122")
  11481.          or ($potluckxP2p4x2 eq "1222")) {
  11482.          $potluckapotluckmoney = $potluckapotluckmoney + (325 * $coin);
  11483.          $beepnum = $beepnum + 3;
  11484.          $potluckstwin = $potluckstwin + 1;
  11485.       } elsif (($potluckxP2p4x2 eq "3333") or ($potluckxP2p4x2 eq "3331")
  11486.          or ($potluckxP2p4x2 eq "3313") or ($potluckxP2p4x2 eq "3133")
  11487.          or ($potluckxP2p4x2 eq "1333"))  {
  11488.          $potluckapotluckmoney = $potluckapotluckmoney + (150 * $coin);
  11489.          $beepnum = $beepnum + 3;
  11490.          $potluckstwin = $potluckstwin + 1;
  11491.       } elsif (($potluckxP2p4x2 eq "4444") or ($potluckxP2p4x2 eq "4441")
  11492.          or ($potluckxP2p4x2 eq "4414") or ($potluckxP2p4x2 eq "4144")
  11493.          or ($potluckxP2p4x2 eq "1444"))  {
  11494.          $potluckapotluckmoney = $potluckapotluckmoney + (50 * $coin);
  11495.          $beepnum = $beepnum + 2;
  11496.          $potluckstwin = $potluckstwin + 1;
  11497.       } elsif (($potluckxP2p4x2 eq "5555") or ($potluckxP2p4x2 eq "5551")
  11498.          or ($potluckxP2p4x2 eq "5515") or ($potluckxP2p4x2 eq "5155")
  11499.          or ($potluckxP2p4x2 eq "1555"))  {
  11500.          $potluckapotluckmoney = $potluckapotluckmoney + (15 * $coin);
  11501.          $beepnum = $beepnum + 2;
  11502.          $potluckstwin = $potluckstwin + 1;
  11503.       } elsif (($potluckxP2p4x2 eq "6666") or ($potluckxP2p4x2 eq "6661")
  11504.          or ($potluckxP2p4x2 eq "6616") or ($potluckxP2p4x2 eq "6166")
  11505.          or ($potluckxP2p4x2 eq "1666"))  {
  11506.          $potluckapotluckmoney = $potluckapotluckmoney + (5 * $coin);
  11507.          $beepnum = $beepnum + 2;
  11508.          $potluckstwin = $potluckstwin + 1;                                       
  11509.       } else {
  11510.          #NO-THING!!!
  11511.       }
  11512.       if (($potluckxP3p4x1 eq "dddd") or ($potluckxP3p4x1 eq "ddd1")
  11513.          or ($potluckxP3p4x1 eq "dd1d") or ($potluckxP3p4x1 eq "d1dd")
  11514.          or ($potluckxP3p4x1 eq "1ddd")) {
  11515.          $potluckapotluckmoney = $potluckapotluckmoney + (1000 * $coin);
  11516.          $beepnum = $beepnum + 4;
  11517.          $potluckstwin = $potluckstwin + 1;
  11518.       } elsif ($potluckxP3p4x1 eq "1111") {
  11519.          $potluckapotluckmoney = $potluckapotluckmoney + (450 * $coin);
  11520.          $beepnum = $beepnum + 3;
  11521.          $potluckstwin = $potluckstwin + 1;
  11522.       } elsif (($potluckxP3p4x1 eq "2222") or ($potluckxP3p4x1 eq "2221")
  11523.          or ($potluckxP3p4x1 eq "2212") or ($potluckxP3p4x1 eq "2122")
  11524.          or ($potluckxP3p4x1 eq "1222")) {
  11525.          $potluckapotluckmoney = $potluckapotluckmoney + (325 * $coin);
  11526.          $beepnum = $beepnum + 3;
  11527.          $potluckstwin = $potluckstwin + 1;
  11528.       } elsif (($potluckxP3p4x1 eq "3333") or ($potluckxP3p4x1 eq "3331")
  11529.          or ($potluckxP3p4x1 eq "3313") or ($potluckxP3p4x1 eq "3133")
  11530.          or ($potluckxP3p4x1 eq "1333"))  {
  11531.          $potluckapotluckmoney = $potluckapotluckmoney + (150 * $coin);
  11532.          $beepnum = $beepnum + 3;
  11533.          $potluckstwin = $potluckstwin + 1;
  11534.       } elsif (($potluckxP3p4x1 eq "4444") or ($potluckxP3p4x1 eq "4441")
  11535.          or ($potluckxP3p4x1 eq "4414") or ($potluckxP3p4x1 eq "4144")
  11536.          or ($potluckxP3p4x1 eq "1444"))  {
  11537.          $potluckapotluckmoney = $potluckapotluckmoney + (50 * $coin);
  11538.          $beepnum = $beepnum + 2;
  11539.          $potluckstwin = $potluckstwin + 1;
  11540.       } elsif (($potluckxP3p4x1 eq "5555") or ($potluckxP3p4x1 eq "5551")
  11541.          or ($potluckxP3p4x1 eq "5515") or ($potluckxP3p4x1 eq "5155")
  11542.          or ($potluckxP3p4x1 eq "1555"))  {
  11543.          $potluckapotluckmoney = $potluckapotluckmoney + (15 * $coin);
  11544.          $beepnum = $beepnum + 2;
  11545.          $potluckstwin = $potluckstwin + 1;
  11546.       } elsif (($potluckxP3p4x1 eq "6666") or ($potluckxP3p4x1 eq "6661")
  11547.          or ($potluckxP3p4x1 eq "6616") or ($potluckxP3p4x1 eq "6166")
  11548.          or ($potluckxP3p4x1 eq "1666"))  {
  11549.          $potluckapotluckmoney = $potluckapotluckmoney + (5 * $coin);
  11550.          $beepnum = $beepnum + 2;
  11551.          $potluckstwin = $potluckstwin + 1;                                       
  11552.       } else {
  11553.          #NO-THING!!!
  11554.       }
  11555.       
  11556.       if (($potluckxP3p4x2 eq "dddd") or ($potluckxP3p4x2 eq "ddd1")
  11557.          or ($potluckxP3p4x2 eq "dd1d") or ($potluckxP3p4x2 eq "d1dd")
  11558.          or ($potluckxP3p4x2 eq "1ddd")) {
  11559.          $potluckapotluckmoney = $potluckapotluckmoney + (1000 * $coin);
  11560.          $beepnum = $beepnum + 4;
  11561.          $potluckstwin = $potluckstwin + 1;
  11562.       } elsif ($potluckxP3p4x2 eq "1111") {
  11563.          $potluckapotluckmoney = $potluckapotluckmoney + (450 * $coin);
  11564.          $beepnum = $beepnum + 3;
  11565.          $potluckstwin = $potluckstwin + 1;
  11566.       } elsif (($potluckxP3p4x2 eq "2222") or ($potluckxP3p4x2 eq "2221")
  11567.          or ($potluckxP3p4x2 eq "2212") or ($potluckxP3p4x2 eq "2122")
  11568.          or ($potluckxP3p4x2 eq "1222")) {
  11569.          $potluckapotluckmoney = $potluckapotluckmoney + (325 * $coin);
  11570.          $beepnum = $beepnum + 3;
  11571.          $potluckstwin = $potluckstwin + 1;
  11572.       } elsif (($potluckxP3p4x2 eq "3333") or ($potluckxP3p4x2 eq "3331")
  11573.          or ($potluckxP3p4x2 eq "3313") or ($potluckxP3p4x2 eq "3133")
  11574.          or ($potluckxP3p4x2 eq "1333"))  {
  11575.          $potluckapotluckmoney = $potluckapotluckmoney + (150 * $coin);
  11576.          $beepnum = $beepnum + 3;
  11577.          $potluckstwin = $potluckstwin + 1;
  11578.       } elsif (($potluckxP3p4x2 eq "4444") or ($potluckxP3p4x2 eq "4441")
  11579.          or ($potluckxP3p4x2 eq "4414") or ($potluckxP3p4x2 eq "4144")
  11580.          or ($potluckxP3p4x2 eq "1444"))  {
  11581.          $potluckapotluckmoney = $potluckapotluckmoney + (50 * $coin);
  11582.          $beepnum = $beepnum + 2;
  11583.          $potluckstwin = $potluckstwin + 1;
  11584.       } elsif (($potluckxP3p4x2 eq "5555") or ($potluckxP3p4x2 eq "5551")
  11585.          or ($potluckxP3p4x2 eq "5515") or ($potluckxP3p4x2 eq "5155")
  11586.          or ($potluckxP3p4x2 eq "1555"))  {
  11587.          $potluckapotluckmoney = $potluckapotluckmoney + (15 * $coin);
  11588.          $beepnum = $beepnum + 2;
  11589.          $potluckstwin = $potluckstwin + 1;
  11590.       } elsif (($potluckxP3p4x2 eq "6666") or ($potluckxP3p4x2 eq "6661")
  11591.          or ($potluckxP3p4x2 eq "6616") or ($potluckxP3p4x2 eq "6166")
  11592.          or ($potluckxP3p4x2 eq "1666"))  {
  11593.          $potluckapotluckmoney = $potluckapotluckmoney + (5 * $coin);
  11594.          $beepnum = $beepnum + 2;
  11595.          $potluckstwin = $potluckstwin + 1;                                       
  11596.       } else {
  11597.          #NO-THING!!!
  11598.       }
  11599.       
  11600.       if (($potluckxP8Zp eq "55") and ($potluckxP8p ne "555")) {
  11601.          $potluckapotluckmoney = $potluckapotluckmoney + (4 * $coin);
  11602.          $beepnum = $beepnum + 2;
  11603.          $potluckstwin = $potluckstwin + 1;                                    
  11604.       } else {
  11605.          #ZZzzz
  11606.       }
  11607.       if ($potluckxP8p eq '1dd'){ plkwind();
  11608.       } if ($potluckxP8p eq 'd1d'){ plkwind();
  11609.       } if ($potluckxP8p eq 'dd1'){ plkwind();
  11610.       } if ($potluckxP7p eq '1dd'){ plkwind();
  11611.       } if ($potluckxP7p eq 'd1d'){ plkwind();
  11612.       } if ($potluckxP7p eq 'dd1'){ plkwind();
  11613.       } if ($potluckxP6p eq '1dd'){ plkwind();
  11614.       } if ($potluckxP6p eq 'd1d'){ plkwind();
  11615.       } if ($potluckxP6p eq 'dd1'){ plkwind();
  11616.       } if ($potluckxP5p eq '1dd'){ plkwind();
  11617.       } if ($potluckxP5p eq 'd1d'){ plkwind();
  11618.       } if ($potluckxP5p eq 'dd1'){ plkwind();
  11619.       } if ($potluckxP4p eq '1dd'){ plkwind();
  11620.       } if ($potluckxP4p eq 'd1d'){ plkwind();
  11621.       } if ($potluckxP4p eq 'dd1'){ plkwind();
  11622.       } if ($potluckxP3p eq '1dd'){ plkwind();
  11623.       } if ($potluckxP3p eq 'd1d'){ plkwind();
  11624.       } if ($potluckxP3p eq 'dd1'){ plkwind();
  11625.       } if ($potluckxP2p eq '1dd'){ plkwind();
  11626.       } if ($potluckxP2p eq 'd1d'){ plkwind();
  11627.       } if ($potluckxP2p eq 'dd1'){ plkwind();
  11628.       } if ($potluckxP1p eq '1dd'){ plkwind();
  11629.       } if ($potluckxP1p eq 'd1d'){ plkwind();
  11630.       } if ($potluckxP1p eq 'dd1') {
  11631.          plkwind();
  11632.       #1s absent as redundant
  11633.       #2s
  11634.       } if ($potluckxP8p eq '122'){ plkwin2();
  11635.       } if ($potluckxP8p eq '212'){ plkwin2();
  11636.       } if ($potluckxP8p eq '221'){ plkwin2();
  11637.       } if ($potluckxP7p eq '122'){ plkwin2();
  11638.       } if ($potluckxP7p eq '212'){ plkwin2();
  11639.       } if ($potluckxP7p eq '221'){ plkwin2();
  11640.       } if ($potluckxP6p eq '122'){ plkwin2();
  11641.       } if ($potluckxP6p eq '212'){ plkwin2();
  11642.       } if ($potluckxP6p eq '221'){ plkwin2();
  11643.       } if ($potluckxP5p eq '122'){ plkwin2();
  11644.       } if ($potluckxP5p eq '212'){ plkwin2();
  11645.       } if ($potluckxP5p eq '221'){ plkwin2();
  11646.       } if ($potluckxP4p eq '122'){ plkwin2();
  11647.       } if ($potluckxP4p eq '212'){ plkwin2();
  11648.       } if ($potluckxP4p eq '221'){ plkwin2();
  11649.       } if ($potluckxP3p eq '122'){ plkwin2();
  11650.       } if ($potluckxP3p eq '212'){ plkwin2();
  11651.       } if ($potluckxP3p eq '221'){ plkwin2();
  11652.       } if ($potluckxP2p eq '122'){ plkwin2();
  11653.       } if ($potluckxP2p eq '212'){ plkwin2();
  11654.       } if ($potluckxP2p eq '221'){ plkwin2();
  11655.       } if ($potluckxP1p eq '122'){ plkwin2();
  11656.       } if ($potluckxP1p eq '212'){ plkwin2();
  11657.       } if ($potluckxP1p eq '221') {
  11658.          plkwin2();
  11659.       #3s
  11660.       } if ($potluckxP8p eq '133'){ plkwin3();
  11661.       } if ($potluckxP8p eq '313'){ plkwin3();
  11662.       } if ($potluckxP8p eq '331'){ plkwin3();
  11663.       } if ($potluckxP7p eq '133'){ plkwin3();
  11664.       } if ($potluckxP7p eq '313'){ plkwin3();
  11665.       } if ($potluckxP7p eq '331'){ plkwin3();
  11666.       } if ($potluckxP6p eq '133'){ plkwin3();
  11667.       } if ($potluckxP6p eq '313'){ plkwin3();
  11668.       } if ($potluckxP6p eq '331'){ plkwin3();
  11669.       } if ($potluckxP5p eq '133'){ plkwin3();
  11670.       } if ($potluckxP5p eq '313'){ plkwin3();
  11671.       } if ($potluckxP5p eq '331'){ plkwin3();
  11672.       } if ($potluckxP4p eq '133'){ plkwin3();
  11673.       } if ($potluckxP4p eq '313'){ plkwin3();
  11674.       } if ($potluckxP4p eq '331'){ plkwin3();
  11675.       } if ($potluckxP3p eq '133'){ plkwin3();
  11676.       } if ($potluckxP3p eq '313'){ plkwin3();
  11677.       } if ($potluckxP3p eq '331'){ plkwin3();
  11678.       } if ($potluckxP2p eq '133'){ plkwin3();
  11679.       } if ($potluckxP2p eq '313'){ plkwin3();
  11680.       } if ($potluckxP2p eq '331'){ plkwin3();
  11681.       } if ($potluckxP1p eq '133'){ plkwin3();
  11682.       } if ($potluckxP1p eq '313'){ plkwin3();
  11683.       } if ($potluckxP1p eq '331') {
  11684.          plkwin3();
  11685.       #4s
  11686.       } if ($potluckxP8p eq '144'){ plkwin4();
  11687.       } if ($potluckxP8p eq '414'){ plkwin4();
  11688.       } if ($potluckxP8p eq '441'){ plkwin4();
  11689.       } if ($potluckxP7p eq '144'){ plkwin4();
  11690.       } if ($potluckxP7p eq '414'){ plkwin4();
  11691.       } if ($potluckxP7p eq '441'){ plkwin4();
  11692.       } if ($potluckxP6p eq '144'){ plkwin4();
  11693.       } if ($potluckxP6p eq '414'){ plkwin4();
  11694.       } if ($potluckxP6p eq '441'){ plkwin4();
  11695.       } if ($potluckxP5p eq '144'){ plkwin4();
  11696.       } if ($potluckxP5p eq '414'){ plkwin4();
  11697.       } if ($potluckxP5p eq '441'){ plkwin4();
  11698.       } if ($potluckxP4p eq '144'){ plkwin4();
  11699.       } if ($potluckxP4p eq '414'){ plkwin4();
  11700.       } if ($potluckxP4p eq '441'){ plkwin4();
  11701.       } if ($potluckxP3p eq '144'){ plkwin4();
  11702.       } if ($potluckxP3p eq '414'){ plkwin4();
  11703.       } if ($potluckxP3p eq '441'){ plkwin4();
  11704.       } if ($potluckxP2p eq '144'){ plkwin4();
  11705.       } if ($potluckxP2p eq '414'){ plkwin4();
  11706.       } if ($potluckxP2p eq '441'){ plkwin4();
  11707.       } if ($potluckxP1p eq '144'){ plkwin4();
  11708.       } if ($potluckxP1p eq '414'){ plkwin4();
  11709.       } if ($potluckxP1p eq '441') {
  11710.          plkwin4();
  11711.       
  11712.       #5s
  11713.       } if ($potluckxP8p eq '155'){ plkwin5();
  11714.       } if ($potluckxP8p eq '515'){ plkwin5();
  11715.       } if ($potluckxP8p eq '551'){ plkwin5();
  11716.       } if ($potluckxP7p eq '155'){ plkwin5();
  11717.       } if ($potluckxP7p eq '515'){ plkwin5();
  11718.       } if ($potluckxP7p eq '551'){ plkwin5();
  11719.       } if ($potluckxP6p eq '155'){ plkwin5();
  11720.       } if ($potluckxP6p eq '515'){ plkwin5();
  11721.       } if ($potluckxP6p eq '551'){ plkwin5();
  11722.       } if ($potluckxP5p eq '155'){ plkwin5();
  11723.       } if ($potluckxP5p eq '515'){ plkwin5();
  11724.       } if ($potluckxP5p eq '551'){ plkwin5();
  11725.       } if ($potluckxP4p eq '155'){ plkwin5();
  11726.       } if ($potluckxP4p eq '515'){ plkwin5();
  11727.       } if ($potluckxP4p eq '551'){ plkwin5();
  11728.       } if ($potluckxP3p eq '155'){ plkwin5();
  11729.       } if ($potluckxP3p eq '515'){ plkwin5();
  11730.       } if ($potluckxP3p eq '551'){ plkwin5();
  11731.       } if ($potluckxP2p eq '155'){ plkwin5();
  11732.       } if ($potluckxP2p eq '515'){ plkwin5();
  11733.       } if ($potluckxP2p eq '551'){ plkwin5();
  11734.       } if ($potluckxP1p eq '155'){ plkwin5();
  11735.       } if ($potluckxP1p eq '515'){ plkwin5();
  11736.       } if ($potluckxP1p eq '551') {
  11737.          plkwin5();
  11738.       #6
  11739.       } if ($potluckxP8p eq '166'){ plkwin6();
  11740.       } if ($potluckxP8p eq '616'){ plkwin6();
  11741.       } if ($potluckxP8p eq '661'){ plkwin6();
  11742.       } if ($potluckxP7p eq '166'){ plkwin6();
  11743.       } if ($potluckxP7p eq '616'){ plkwin6();
  11744.       } if ($potluckxP7p eq '661'){ plkwin6();
  11745.       } if ($potluckxP6p eq '166'){ plkwin6();
  11746.       } if ($potluckxP6p eq '616'){ plkwin6();
  11747.       } if ($potluckxP6p eq '661'){ plkwin6();
  11748.       } if ($potluckxP5p eq '166'){ plkwin6();
  11749.       } if ($potluckxP5p eq '616'){ plkwin6();
  11750.       } if ($potluckxP5p eq '661'){ plkwin6();
  11751.       } if ($potluckxP4p eq '166'){ plkwin6();
  11752.       } if ($potluckxP4p eq '616'){ plkwin6();
  11753.       } if ($potluckxP4p eq '661'){ plkwin6();
  11754.       } if ($potluckxP3p eq '166'){ plkwin6();
  11755.       } if ($potluckxP3p eq '616'){ plkwin6();
  11756.       } if ($potluckxP3p eq '661'){ plkwin6();
  11757.       } if ($potluckxP2p eq '166'){ plkwin6();
  11758.       } if ($potluckxP2p eq '616'){ plkwin6();
  11759.       } if ($potluckxP2p eq '661'){ plkwin6();
  11760.       } if ($potluckxP1p eq '166'){ plkwin6();
  11761.       } if ($potluckxP1p eq '616'){ plkwin6();
  11762.       } if ($potluckxP1p eq '661') {
  11763.          plkwin6();
  11764.       } #End.
  11765.    }
  11766.    if ($potluckapotluckmoney == 0) {
  11767.       $potluckstlose = $potluckstlose + 1;
  11768.    } else {
  11769.       if ($potluckslotmltp > 0) {
  11770.          $potluckapotluckmoney = ($potluckapotluckmoney * $potluckslotmltp);
  11771.       }
  11772.       
  11773.       if ($potluckslotsymbolX2M == 5) {
  11774.          $potluckapotluckmoney = ($potluckapotluckmoney * 2);
  11775.       } elsif ($potluckslotsymbolX3M == 12) {
  11776.          $potluckapotluckmoney = ($potluckapotluckmoney * 3);
  11777.       }
  11778.       
  11779.       #Here we apply the reductive multipliers, if any
  11780.       if (($potluckslotdivd > 0) && ($potluckapotluckmoney > 0)) {
  11781.          $potluckapotluckmoney = ($potluckapotluckmoney / $potluckslotdivd);
  11782.          $potluckapotluckmoney  = sprintf("%.0f", $potluckapotluckmoney  ); #make sure full number;
  11783.       }
  11784.    }
  11785. }
  11786. sub plkwind {
  11787.    $potluckapotluckmoney = $potluckapotluckmoney + (3000 * $coin);
  11788.    $beepnum = $beepnum + 5;
  11789.    $potluckstwin = $potluckstwin + 1;
  11790. }
  11791. sub plkwin2 {
  11792.    $potluckapotluckmoney = $potluckapotluckmoney + (650 * $coin);
  11793.    $beepnum = $beepnum + 4;
  11794.    $potluckstwin = $potluckstwin + 1;
  11795. }
  11796. sub plkwin3 {
  11797.    $potluckapotluckmoney = $potluckapotluckmoney + (300 * $coin);
  11798.    $beepnum = $beepnum + 4;
  11799.    $potluckstwin = $potluckstwin + 1;
  11800. }
  11801. sub plkwin4 {
  11802.    $potluckapotluckmoney = $potluckapotluckmoney + (100 * $coin);
  11803.    $beepnum = $beepnum + 3;
  11804.    $potluckstwin = $potluckstwin + 1;
  11805. }
  11806. sub plkwin5 {
  11807.    $potluckapotluckmoney = $potluckapotluckmoney + (30 * $coin);
  11808.    $beepnum = $beepnum + 3;
  11809.    $potluckstwin = $potluckstwin + 1;
  11810. }
  11811. sub plkwin6 {
  11812.    $potluckapotluckmoney = $potluckapotluckmoney + (10 * $coin);
  11813.    $beepnum = $beepnum + 3;
  11814.    $potluckstwin = $potluckstwin + 1;
  11815. }
  11816.       
  11817. sub potluckmainscreen {
  11818.    print colored('/------------------------------------------------------------------------------\\',"$boldblack on_$bgcblack"); print"\n";   
  11819.    potluckend1();   print colored('      ',"$boldblack on_$bgcyellow");
  11820.    print colored('P',"$boldgreen on_$bgcyellow");
  11821.    print colored('o',"$boldwhite on_$bgcyellow");
  11822.    print colored('t',"$boldgreen on_$bgcyellow");
  11823.    print colored('L',"$boldwhite on_$bgcyellow");
  11824.    print colored('u',"$boldgreen on_$bgcyellow");
  11825.    print colored('c',"$boldwhite on_$bgcyellow");
  11826.    print colored('k',"$boldgreen on_$bgcyellow");
  11827.    print colored('      C  = Return To Casino Menu   EXIT = quit                   ',"$boldyellow on_$bgcyellow"); potluckend1();
  11828.    print"\n";
  11829.    potluckend1();   print colored('                   1P = 1 Token  2P = 2 Tokens  3P = 3 Tokens....8P = 8 Tokens',"$boldyellow on_$bgcyellow"); potluckend1(); print"\n";
  11830.    print colored('|------------------------------------------------------------------------------|',"$boldblack on_$bgcblack"); print"\n";   
  11831.    potluckend1(); print colored('DHRT',"$magenta on_$bgcyellow");
  11832.    potluckmid3(); print colored('DHRT',"$magenta on_$bgcyellow");
  11833.    potluckmid3(); print colored('DHRT',"$magenta on_$bgcyellow");
  11834.    print colored('=3k',"$white on_$bgcyellow");
  11835.    potluckendp4(); potluckmid2(); potluckmid1(); potluckendp6(); potluckmid1(); potluckmid2(); potluckmid1(); potluckendp7(); potluckmid1(); potluckmid2(); potluckmid1(); potluckendp8(); potluckmid2(); potluckmid1();  potluckendp5(); potluckmid3(); potluckend1(); print"\n";
  11836.    
  11837.    if ($potluckplaylevel >= 8) {
  11838.    potluckend1(); potluckmid3(); print colored('DHRT',"$magenta on_$bgcyellow");
  11839.    potluckmid3(); print colored('x4',"$magenta on_$bgcyellow");
  11840.    potluckmid3(); print colored('BOX',"$magenta on_$bgcyellow");
  11841.    potluckmid3(); print colored('=1k',"$white on_$bgcyellow");
  11842.    } else {
  11843.    potluckend1(); potluckmid3(); print colored('DHRT',"$boldblack on_$bgcyellow");
  11844.    potluckmid3(); print colored('x4',"$boldblack on_$bgcyellow");
  11845.    potluckmid3(); print colored('BOX',"$boldblack on_$bgcyellow");
  11846.    potluckmid3(); print colored('=1k',"$boldblack on_$bgcyellow");
  11847.    }
  11848.    potluckend0();
  11849.    print colored('||================||================||================||',"$boldblack on_$bgcblack"); potluckend0(); potluckend1(); print"\n";
  11850.    
  11851.    potluckend1(); print colored('SWRD',"$boldred on_$bgcyellow");
  11852.    potluckmid3(); print colored('SWRD',"$boldred on_$bgcyellow");
  11853.    potluckmid3(); print colored('SWRD',"$boldred on_$bgcyellow");
  11854.    print colored('=900',"$white on_$bgcyellow"); potluckmid3();
  11855.    potluckmid0(); potluckreel7(); sep; potluckslot1(); sep; potluckmid0(); potluckreel8(); sep; potluckslot1(); sep; potluckmid0(); potluckreel9(); sep; potluckslot1(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n";
  11856.    
  11857.    
  11858.    if ($potluckplaylevel >= 8) {
  11859.    potluckend1(); potluckmid3(); print colored('SWRD',"$boldred on_$bgcyellow");
  11860.    potluckmid3(); print colored('x4',"$boldred on_$bgcyellow");
  11861.    potluckmid3(); print colored('BOX',"$boldred on_$bgcyellow");
  11862.    potluckmid3(); print colored('=450',"$white on_$bgcyellow");
  11863.    } else {
  11864.    potluckend1(); potluckmid3(); print colored('SWRD',"$boldblack on_$bgcyellow");
  11865.    potluckmid3(); print colored('x4',"$boldblack on_$bgcyellow");
  11866.    potluckmid3(); print colored('BOX',"$boldblack on_$bgcyellow");
  11867.    potluckmid3(); print colored('=450',"$boldblack on_$bgcyellow");
  11868.    }
  11869.    potluckmid3(); potluckmid3(); potluckmid0(); potluckreel7(); sep; potluckslot2(); sep; potluckmid0(); potluckreel8(); sep; potluckslot2(); sep; potluckmid0(); potluckreel9(); sep; potluckslot2(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n";
  11870.    
  11871.    potluckend1(); print colored('SPAD',"$black on_$bgcyellow");
  11872.    potluckmid3(); print colored('SPAD',"$black on_$bgcyellow");
  11873.    potluckmid3(); print colored('SPAD',"$black on_$bgcyellow");
  11874.    print colored('=650',"$white on_$bgcyellow"); potluckmid3();
  11875.    potluckmid0(); potluckreel7(); sep; potluckslot3(); sep; potluckmid0(); potluckreel8(); sep; potluckslot3(); sep; potluckmid0(); potluckreel9(); sep; potluckslot3(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n";
  11876.    
  11877.    if ($potluckplaylevel >= 8) {
  11878.    potluckend1(); potluckmid3(); print colored('SPAD',"$black on_$bgcyellow");
  11879.    potluckmid3(); print colored('x4',"$black on_$bgcyellow");
  11880.    potluckmid3(); print colored('BOX',"$black on_$bgcyellow");
  11881.    potluckmid3(); print colored('=325',"$white on_$bgcyellow");
  11882.    } else {
  11883.    potluckend1(); potluckmid3(); print colored('SPAD',"$boldblack on_$bgcyellow");
  11884.    potluckmid3(); print colored('x4',"$boldblack on_$bgcyellow");
  11885.    potluckmid3(); print colored('BOX',"$boldblack on_$bgcyellow");
  11886.    potluckmid3(); print colored('=325',"$boldblack on_$bgcyellow");
  11887.    }
  11888.    potluckendp3(); potluckmid0(); potluckreel7(); sep; potluckslot4(); sep; potluckmid0(); potluckreel8(); sep; potluckslot4(); sep; potluckmid0(); potluckreel9(); sep; potluckslot4(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n";
  11889.    
  11890.    potluckend1(); print colored('CLOV',"$green on_$bgcyellow");
  11891.    potluckmid3(); print colored('CLOV',"$green on_$bgcyellow");
  11892.    potluckmid3(); print colored('CLOV',"$green on_$bgcyellow");
  11893.    print colored('=300',"$white on_$bgcyellow"); potluckmid3();
  11894.    potluckmid0(); potluckreel7(); sep; potluckslot5(); sep; potluckmid0(); potluckreel8(); sep; potluckslot5(); sep; potluckmid0(); potluckreel9(); sep; potluckslot5(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n";
  11895.    
  11896.    if ($potluckplaylevel >= 8) {
  11897.    potluckend1(); potluckmid3(); print colored('CLOV',"$green on_$bgcyellow");
  11898.    potluckmid3(); print colored('x4',"$green on_$bgcyellow");
  11899.    potluckmid3(); print colored('BOX',"$green on_$bgcyellow");
  11900.    potluckmid3(); print colored('=150',"$white on_$bgcyellow");
  11901.    } else {
  11902.    potluckend1(); potluckmid3(); print colored('CLOV',"$boldblack on_$bgcyellow");
  11903.    potluckmid3(); print colored('x4',"$boldblack on_$bgcyellow");
  11904.    potluckmid3(); print colored('BOX',"$boldblack on_$bgcyellow");
  11905.    potluckmid3(); print colored('=150',"$boldblack on_$bgcyellow");
  11906.    }
  11907.    potluckmid3(); potluckmid3(); potluckmid0(); potluckreel7(); sep; potluckslot6(); sep; potluckmid0(); potluckreel8(); sep; potluckslot6(); sep; potluckmid0(); potluckreel9(); sep; potluckslot6(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n";
  11908.    
  11909.    potluckend1(); print colored('HERT',"$red on_$bgcyellow");
  11910.    potluckmid3(); print colored('HERT',"$red on_$bgcyellow");
  11911.    potluckmid3(); print colored('HERT',"$red on_$bgcyellow");
  11912.    print colored('=100',"$white on_$bgcyellow"); potluckmid3();
  11913.    print colored('||================||================||================||',"$boldblack on_$bgcblack"); potluckend0(); potluckend1(); print"\n";
  11914.    if ($potluckplaylevel >= 8) {
  11915.    potluckend1(); potluckmid3(); print colored('HERT',"$red on_$bgcyellow");
  11916.    potluckmid3(); print colored('x4',"$red on_$bgcyellow");
  11917.    potluckmid3(); print colored('BOX',"$red on_$bgcyellow");
  11918.    potluckmid3(); print colored('=50',"$white on_$bgcyellow");
  11919.    } else {
  11920.    potluckend1(); potluckmid3(); print colored('HERT',"$boldblack on_$bgcyellow");
  11921.    potluckmid3(); print colored('x4',"$boldblack on_$bgcyellow");
  11922.    potluckmid3(); print colored('BOX',"$boldblack on_$bgcyellow");
  11923.    potluckmid3(); print colored('=50',"$boldblack on_$bgcyellow");
  11924.    }
  11925.    potluckmid3(); potluckmid3(); potluckmid3(); potluckmid0(); potluckreel1(); sep; potluckslot1(); sep; potluckmid0(); potluckreel2(); sep; potluckslot1(); sep; potluckmid0(); potluckreel3(); sep; potluckslot1(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n";
  11926.    
  11927.    potluckend1(); print colored('COIN',"$boldwhite on_$bgcyellow");
  11928.    potluckmid3(); print colored('COIN',"$boldwhite on_$bgcyellow");
  11929.    potluckmid3(); print colored('COIN',"$boldwhite on_$bgcyellow");
  11930.    print colored('=30',"$white on_$bgcyellow"); potluckmid2();
  11931.         potluckmid0(); potluckreel1(); sep; potluckslot2(); sep; potluckmid0(); potluckreel2(); sep; potluckslot2(); sep; potluckmid0(); potluckreel3(); sep; potluckslot2(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n";
  11932.    
  11933.    if ($potluckplaylevel >= 8) {
  11934.    potluckend1(); potluckmid3(); print colored('COIN',"$boldwhite on_$bgcyellow");
  11935.    potluckmid3(); print colored('x4',"$boldwhite on_$bgcyellow");
  11936.    potluckmid3(); print colored('BOX',"$boldwhite on_$bgcyellow");
  11937.    potluckmid3(); print colored('=15',"$white on_$bgcyellow");
  11938.    } else {
  11939.    potluckend1(); potluckmid3(); print colored('COIN',"$boldblack on_$bgcyellow");
  11940.    potluckmid3(); print colored('x4',"$boldblack on_$bgcyellow");
  11941.    potluckmid3(); print colored('BOX',"$boldblack on_$bgcyellow");
  11942.    potluckmid3(); print colored('=15',"$boldblack on_$bgcyellow");
  11943.    }
  11944.    potluckmid3(); potluckmid3(); potluckmid3(); potluckmid0(); potluckreel1(); sep; potluckslot3(); sep; potluckmid0(); potluckreel2(); sep; potluckslot3(); sep; potluckmid0(); potluckreel3(); sep; potluckslot3(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n";
  11945.    
  11946.    potluckend1(); print colored('SHOE',"$boldyellow on_$bgcyellow");
  11947.    potluckmid3(); print colored('SHOE',"$boldyellow on_$bgcyellow");
  11948.    potluckmid3(); print colored('SHOE',"$boldyellow on_$bgcyellow");
  11949.    print colored('=10',"$white on_$bgcyellow");
  11950.    potluckendp1(); potluckmid0(); potluckreel1(); sep; potluckslot4(); sep; potluckmid0(); potluckreel2(); sep; potluckslot4(); sep; potluckmid0(); potluckreel3(); sep; potluckslot4(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n";
  11951.    
  11952.    if ($potluckplaylevel >= 8) {
  11953.    potluckend1(); potluckmid3(); print colored('SHOE',"$boldyellow on_$bgcyellow");
  11954.    potluckmid3(); print colored('x4',"$boldyellow on_$bgcyellow");
  11955.    potluckmid3(); print colored('BOX',"$boldyellow on_$bgcyellow");
  11956.    potluckmid3(); print colored('=5',"$white on_$bgcyellow");
  11957.    } else {
  11958.    potluckend1(); potluckmid3(); print colored('SHOE',"$boldblack on_$bgcyellow");
  11959.    potluckmid3(); print colored('x4',"$boldblack on_$bgcyellow");
  11960.    potluckmid3(); print colored('BOX',"$boldblack on_$bgcyellow");
  11961.    potluckmid3(); print colored('=5',"$boldblack on_$bgcyellow");
  11962.    }
  11963.    potluckmid3(); potluckmid3(); potluckmid3(); potluckmid3(); potluckmid0(); potluckreel1(); sep; potluckslot5(); sep; potluckmid0(); potluckreel2(); sep; potluckslot5(); sep; potluckmid0(); potluckreel3(); sep; potluckslot5(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n";
  11964.    
  11965.    potluckend1(); print colored('COIN',"$boldwhite on_$bgcyellow");
  11966.    potluckmid3(); print colored('COIN',"$boldwhite on_$bgcyellow");
  11967.    potluckmid3(); print colored('ANY',"$white on_$bgcyellow");
  11968.    potluckmid3(); print colored('=4',"$white on_$bgcyellow"); potluckend0();
  11969.    potluckmid0(); potluckreel1(); sep; potluckslot6(); sep; potluckmid0(); potluckreel2(); sep; potluckslot6(); sep; potluckmid0(); potluckreel3(); sep; potluckslot6(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n";
  11970.    potluckend1(); potluckmid4(); print colored('||================||================||================||',"$boldblack on_$bgcblack"); potluckend0(); potluckend1(); print"\n";
  11971.    potluckend1(); potluckmulti1end0(); potluckmid0(); potluckreel4(); sep; potluckslot1(); sep; potluckmid0(); potluckreel5(); sep; potluckslot1(); sep; potluckmid0(); potluckreel6(); sep; potluckslot1(); sep; potluckmid0(); potluckslota(); print"\n";
  11972.    potluckend1(); potluckmulti2end0(); potluckmid0(); potluckreel4(); sep; potluckslot2(); sep; potluckmid0(); potluckreel5(); sep; potluckslot2(); sep; potluckmid0(); potluckreel6(); sep; potluckslot2(); sep; potluckmid0(); potluckslotb(); beepalrm();
  11973.    potluckend1(); potluckmulti3end0(); potluckmid0(); potluckreel4(); sep; potluckslot3(); sep; potluckmid0(); potluckreel5(); sep; potluckslot3(); sep; potluckmid0(); potluckreel6(); sep; potluckslot3(); sep; potluckmid0(); potluckslotb(); beepalrm();
  11974.    potluckend1(); potluckmid1(); potluckmid1(); potluckend0(); potluckendp2(); potluckmid0(); potluckreel4(); sep; potluckslot4(); sep; potluckmid0(); potluckreel5(); sep; potluckslot4(); sep; potluckmid0(); potluckreel6(); sep; potluckslot4(); sep; potluckmid0(); potluckslotb(); beepalrm();
  11975.    potluckend1(); potluckmulti1wldend0(); potluckmid0(); potluckreel4(); sep; potluckslot5(); sep; potluckmid0(); potluckreel5(); sep; potluckslot5(); sep; potluckmid0(); potluckreel6(); sep; potluckslot5(); sep; potluckmid0(); potluckslotb(); beepalrm();
  11976.    potluckend1(); potluckmulti2wldend0(); potluckmid0(); potluckreel4(); sep; potluckslot6(); sep; potluckmid0(); potluckreel5(); sep; potluckslot6(); sep; potluckmid0(); potluckreel6(); sep; potluckslot6(); sep; potluckmid0(); potluckslota(); beepalrm();
  11977.    print colored('|-------------------',"$boldblack on_$bgcblack"); print colored('--================--================--================--',"$boldblack on_$bgcblack"); print colored('---|',"$boldblack on_$bgcblack"); beepalrm();
  11978.    potluckend1(); print colored('    GPC-SLOTS 2                        ',"$boldyellow on_$bgcyellow"); potluckwinnings(); potluckfunds(); potluckend1(); beepalrm();
  11979.    print colored('\------------------------------------------------------------------------------/',"$boldblack on_$bgcblack");  beepalrm();   
  11980.    
  11981.    $beepnum = 0;
  11982. }
  11983. sub potluckwinnings {
  11984.    print colored(' WINNINGS ',"$boldyellow on_$bgcyellow");
  11985.    sep;
  11986.    if ($potluckapotluckmoney > 9999999999) {
  11987.    print colored(sprintf("%.4e", $potluckapotluckmoney),"$boldcyan on_$bgccyan");
  11988.    } elsif ($potluckapotluckmoney >= 1000000000) {
  11989.    print colored("$potluckapotluckmoney","$boldcyan on_$bgccyan");
  11990.    } elsif ($potluckapotluckmoney >= 100000000) {
  11991.    print colored(" $potluckapotluckmoney","$boldcyan on_$bgccyan");
  11992.    } elsif ($potluckapotluckmoney >= 10000000) {
  11993.    print colored("  $potluckapotluckmoney","$boldcyan on_$bgccyan");
  11994.    } elsif ($potluckapotluckmoney >= 1000000) {
  11995.    print colored("   $potluckapotluckmoney","$boldcyan on_$bgccyan");
  11996.    } elsif ($potluckapotluckmoney >= 100000) {
  11997.    print colored("    $potluckapotluckmoney","$boldcyan on_$bgccyan");
  11998.    } elsif ($potluckapotluckmoney >= 10000) {
  11999.    print colored("     $potluckapotluckmoney","$boldcyan on_$bgccyan");
  12000.    } elsif ($potluckapotluckmoney >= 1000) {
  12001.    print colored("      $potluckapotluckmoney","$boldcyan on_$bgccyan");
  12002.    } elsif ($potluckapotluckmoney >= 100) {
  12003.    print colored("       $potluckapotluckmoney","$boldcyan on_$bgccyan");
  12004.    } elsif ($potluckapotluckmoney >= 10) {
  12005.    print colored("        $potluckapotluckmoney","$boldcyan on_$bgccyan");
  12006.    } elsif ($potluckapotluckmoney >= 1) {
  12007.    print colored("         $potluckapotluckmoney","$boldcyan on_$bgccyan");
  12008.    } else {
  12009.    print colored("         $potluckapotluckmoney","$boldcyan on_$bgccyan");
  12010.    }
  12011.    sep;
  12012. }
  12013. sub potluckfunds {
  12014.    print colored('   FUNDS ',"$boldyellow on_$bgcyellow");
  12015.    sep;
  12016.    if ($money > 9999999999) {
  12017.    print colored(sprintf("%.4e", $money),"$boldcyan on_$bgccyan");
  12018.    } elsif ($money >= 1000000000) {
  12019.    print colored("$money","$boldcyan on_$bgccyan");
  12020.    } elsif ($money >= 100000000) {
  12021.    print colored(" $money","$boldcyan on_$bgccyan");
  12022.    } elsif ($money >= 10000000) {
  12023.    print colored("  $money","$boldcyan on_$bgccyan");
  12024.    } elsif ($money >= 1000000) {
  12025.    print colored("   $money","$boldcyan on_$bgccyan");
  12026.    } elsif ($money >= 100000) {
  12027.    print colored("    $money","$boldcyan on_$bgccyan");
  12028.    } elsif ($money >= 10000) {
  12029.    print colored("     $money","$boldcyan on_$bgccyan");
  12030.    } elsif ($money >= 1000) {
  12031.    print colored("      $money","$boldcyan on_$bgccyan");
  12032.    } elsif ($money >= 100) {
  12033.    print colored("       $money","$boldcyan on_$bgccyan");
  12034.    } elsif ($money >= 10) {
  12035.    print colored("        $money","$boldcyan on_$bgccyan");
  12036.    } elsif ($money >= 1) {
  12037.    print colored("         $money","$boldcyan on_$bgccyan");
  12038.    } else {
  12039.    print colored("         $money","$boldcyan on_$bgccyan");
  12040.    }
  12041.    sep;
  12042. }
  12043. ################################################################################################################################
  12044. ## GENRE: Roulette
  12045. ## NAME: Russian Roulette: 25 or Life
  12046. ## AUTHOR: MikeeUSA
  12047. sub ruskieinit {
  12048.    $ruskierand = int(rand(6));
  12049.    $ruskie2rand = 42;
  12050. }
  12051. sub ruskietop {
  12052.    if ($ruskieold == 1) {
  12053.    print colored('/--------------',"$boldblack on_$bgcblack");
  12054.    print colored('--------------------------------------------------',"$boldmagenta on_$bgcmagenta");
  12055.    print colored('--------------\\',"$boldblack on_$bgcblack");
  12056.    print"\n";
  12057.    print colored('|   P = PLAY   ',"$boldblack on_$bgcblack");
  12058.    print colored('                  GPC-SLOTS 2                     ',"$black on_$bgcmagenta");
  12059.    print colored('  C = RETURN  |',"$boldblack on_$bgcblack"); print"\n";
  12060.    print colored('| EXIT = QUIT  ',"$boldblack on_$bgcblack");
  12061.    print colored('   /--------------------------------\\             ',"$boldmagenta on_$bgcmagenta");
  12062.    print colored('TO CASINO MENU|',"$boldblack on_$bgcblack"); print"\n";
  12063.    } else {
  12064.    print colored('/--------------',"$boldblack on_$bgcblack");
  12065.    print colored('--------------------------------------------------',"$boldred on_$bgcred");
  12066.    print colored('--------------\\',"$boldblack on_$bgcblack");
  12067.    print"\n";
  12068.    print colored('|   P = PLAY   ',"$boldblack on_$bgcblack");
  12069.    print colored('                  GPC-SLOTS 2                     ',"$black on_$bgcred");
  12070.    print colored('  C = RETURN  |',"$boldblack on_$bgcblack"); print"\n";
  12071.    print colored('| EXIT = QUIT  ',"$boldblack on_$bgcblack");
  12072.    print colored('   /--------------------------------\\             ',"$boldred on_$bgcred");
  12073.    print colored('TO CASINO MENU|',"$boldblack on_$bgcblack"); print"\n";
  12074.    }
  12075. }
  12076. sub ruskie0rlv {
  12077.    if ($ruskieold == 1) {
  12078.    print colored('|                 |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta"); print"\n";
  12079.    print colored('|     2222222     |',"$boldmagenta on_$bgcmagenta"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('/\\',"$boldblack on_$bgcwhite"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldmagenta on_$bgcmagenta");  print"\n";
  12080.    print colored('|  2222222222222  |',"$boldmagenta on_$bgcmagenta"); print colored('------------',"$boldblack on_$bgcblack"); print colored('/ ____ \\',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldmagenta on_$bgcmagenta");  print"\n";
  12081.    print colored('| 222         222 |',"$boldmagenta on_$bgcmagenta"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('/ /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\ \\',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('|      25  or Your Life     |',"$boldmagenta on_$bgcmagenta");print"\n";
  12082.    print colored('|             222 |',"$boldmagenta on_$bgcmagenta"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored(' >< ',"$yellow on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12083.    print colored('|           2222  |',"$boldmagenta on_$bgcmagenta"); print colored('----------',"$boldblack on_$bgcblack"); print colored('/\\ \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ /\\',"$boldblack on_$bgcwhite"); print colored('----------',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12084.    print colored('|         2222    |',"$boldmagenta on_$bgcmagenta"); print colored('---',"$boldblack on_$bgcblack"); print colored('/ ____   \\______/   ____ \\',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('|',"$boldmagenta on_$bgcmagenta");print colored('  Win: 25 COINS            ',"$boldyellow on_$bgcmagenta");print colored('|',"$boldmagenta on_$bgcmagenta");print"\n";
  12085.    print colored('|       2222      |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\    ||||    /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\ |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|',"$boldmagenta on_$bgcmagenta");print colored(' Lose: YOUR LIFE           ',"$boldyellow on_$bgcmagenta");print colored('|',"$boldmagenta on_$bgcmagenta");print"\n";
  12086.    print colored('|     2222        |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ||||    ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12087.    print colored('|   2222          |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/    ||||    \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12088.    print colored('| 222222222222222 |',"$boldmagenta on_$bgcmagenta"); print colored('---',"$boldblack on_$bgcblack"); print colored('\\          ||||          /',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12089.    print colored('|                 |',"$boldmagenta on_$bgcmagenta"); print colored('----',"$boldblack on_$bgcblack"); print colored('>         ||||         <',"$boldblack on_$bgcwhite"); print colored('----',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored(' _____________  ',"$boldblack on_$bgcmagenta"); print colored('     |',"$boldmagenta on_$bgcmagenta");print"\n";
  12090.    print colored('| 555555555555555 |',"$boldmagenta on_$bgcmagenta"); print colored('---',"$boldblack on_$bgcblack"); print colored('/ ____     \__/     ____ \\',"$boldblack on_$bgcwhite");print colored('---',"$boldblack on_$bgcblack"); print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|~~~~~~~~~~~|',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta");print"\n";
  12091.    print colored('| 555555555555555 |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\            /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\ |',"$boldblack on_$bgcwhite"); ;print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|           |',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta");print"\n";
  12092.    print colored('| 5555            |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('            ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|   PRESS   |',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta");print"\n";
  12093.    print colored('| 5555            |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/    ____    \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ |',"$boldblack on_$bgcwhite");print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|           |',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta");  print"\n";
  12094.    print colored('|  5555           |',"$boldmagenta on_$bgcmagenta"); print colored('---',"$boldblack on_$bgcblack"); print colored('\\______   /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\   ______/',"$boldblack on_$bgcwhite");print colored('---',"$boldblack on_$bgcblack");  print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|           |',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta");print"\n";
  12095.    print colored('|    55555555     |',"$boldmagenta on_$bgcmagenta"); print colored('----------',"$boldblack on_$bgcblack"); print colored('\\  ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('  /',"$boldblack on_$bgcwhite"); print colored('----------',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|___________|',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta"); print"\n";
  12096.    print colored('|      555555555  |',"$boldmagenta on_$bgcmagenta"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('\\ \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ /',"$boldblack on_$bgcwhite");print colored('-----------',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored(' ~~~~~~~~~~~~~  ',"$boldblack on_$bgcmagenta"); print colored('     |',"$boldmagenta on_$bgcmagenta");    print"\n";
  12097.    print colored('|            5555 |',"$boldmagenta on_$bgcmagenta"); print colored('------------',"$boldblack on_$bgcblack"); print colored('\\______/',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack");  print colored('|                           |',"$boldmagenta on_$bgcmagenta"); print"\n";
  12098.    print colored('|            5555 |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12099.    } else {
  12100.    ruskieleft1();  print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('|                           |',"$boldred on_$bgcred"); print"\n";
  12101.    ruskieleft2();  print colored('---------------',"$boldblack on_$bgcblack"); print colored('/\\',"$boldblack on_$bgcwhite"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldred on_$bgcred");  print"\n";
  12102.    ruskieleft3();  print colored('------------',"$boldblack on_$bgcblack"); print colored('/ ____ \\',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldred on_$bgcred");  print"\n";
  12103.    ruskieleft4();  print colored('-----------',"$boldblack on_$bgcblack"); print colored('/ /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\ \\',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('|      25  or Your Life     |',"$boldred on_$bgcred");print"\n";
  12104.    ruskieleft5();  print colored('-----------',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored(' >< ',"$yellow on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12105.    ruskieleft6();  print colored('----------',"$boldblack on_$bgcblack"); print colored('/\\ \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ /\\',"$boldblack on_$bgcwhite"); print colored('----------',"$boldblack on_$bgcblack");print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12106.    ruskieleft7();  print colored('---',"$boldblack on_$bgcblack"); print colored('/ ____   \\______/   ____ \\',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('|',"$boldred on_$bgcred");print colored('  Win: 25 COINS            ',"$boldyellow on_$bgcred");print colored('|',"$boldred on_$bgcred");print"\n";
  12107.    ruskieleft8();  print colored('--',"$boldblack on_$bgcblack"); print colored('| /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\    ||||    /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\ |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|',"$boldred on_$bgcred");print colored(' Lose: YOUR LIFE           ',"$boldyellow on_$bgcred");print colored('|',"$boldred on_$bgcred");print"\n";
  12108.    ruskieleft9();  print colored('--',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ||||    ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12109.    ruskieleft10(); print colored('--',"$boldblack on_$bgcblack"); print colored('| \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/    ||||    \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12110.    ruskieleft11(); print colored('---',"$boldblack on_$bgcblack"); print colored('\\          ||||          /',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12111.    ruskieleft12(); print colored('----',"$boldblack on_$bgcblack"); print colored('>         ||||         <',"$boldblack on_$bgcwhite"); print colored('----',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton1(); print colored('      |',"$boldred on_$bgcred");print"\n";
  12112.    ruskieleft13(); print colored('---',"$boldblack on_$bgcblack"); print colored('/ ____     \__/     ____ \\',"$boldblack on_$bgcwhite");print colored('---',"$boldblack on_$bgcblack"); print colored('|      ',"$boldred on_$bgcred"); ruskiebutton2(); print colored('      |',"$boldred on_$bgcred");print"\n";
  12113.    ruskieleft14(); print colored('--',"$boldblack on_$bgcblack"); print colored('| /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\            /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\ |',"$boldblack on_$bgcwhite"); ;print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton6(); print colored('      |',"$boldred on_$bgcred");print"\n";
  12114.    ruskieleft15(); print colored('--',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('            ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton4(); print colored('      |',"$boldred on_$bgcred");print"\n";
  12115.    ruskieleft16(); print colored('--',"$boldblack on_$bgcblack"); print colored('| \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/    ____    \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ |',"$boldblack on_$bgcwhite");print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton6(); print colored('      |',"$boldred on_$bgcred");  print"\n";
  12116.    ruskieleft17(); print colored('---',"$boldblack on_$bgcblack"); print colored('\\______   /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\   ______/',"$boldblack on_$bgcwhite");print colored('---',"$boldblack on_$bgcblack");  print colored('|      ',"$boldred on_$bgcred"); ruskiebutton6(); print colored('      |',"$boldred on_$bgcred");print"\n";
  12117.    ruskieleft18(); print colored('----------',"$boldblack on_$bgcblack"); print colored('\\  ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('  /',"$boldblack on_$bgcwhite"); print colored('----------',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton7(); print colored('      |',"$boldred on_$bgcred"); print"\n";
  12118.    ruskieleft19(); print colored('-----------',"$boldblack on_$bgcblack"); print colored('\\ \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ /',"$boldblack on_$bgcwhite");print colored('-----------',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton8(); print colored('      |',"$boldred on_$bgcred");    print"\n";
  12119.    ruskieleft20(); print colored('------------',"$boldblack on_$bgcblack"); print colored('\\______/',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack");  print colored('|                           |',"$boldred on_$bgcred"); print"\n";
  12120.    ruskieleft21(); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12121.    }
  12122. }
  12123. sub ruskie1rlv {
  12124.    if ($ruskieold == 1) {
  12125.    print colored('|                 |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta"); print"\n";
  12126.    print colored('|     2222222     |',"$boldmagenta on_$bgcmagenta"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('/\\',"$boldblack on_$bgcwhite"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldmagenta on_$bgcmagenta");  print"\n";
  12127.    print colored('|  2222222222222  |',"$boldmagenta on_$bgcmagenta"); print colored('------------',"$boldblack on_$bgcblack"); print colored('/ ____ \\',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldmagenta on_$bgcmagenta");  print"\n";
  12128.    print colored('| 222         222 |',"$boldmagenta on_$bgcmagenta"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('/ /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\ \\',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('|      25  or Your Life     |',"$boldmagenta on_$bgcmagenta");print"\n";
  12129.    print colored('|             222 |',"$boldmagenta on_$bgcmagenta"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12130.    print colored('|           2222  |',"$boldmagenta on_$bgcmagenta"); print colored('----------',"$boldblack on_$bgcblack"); print colored('/\\ \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ /\\',"$boldblack on_$bgcwhite"); print colored('----------',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12131.    print colored('|         2222    |',"$boldmagenta on_$bgcmagenta"); print colored('---',"$boldblack on_$bgcblack"); print colored('/ ____   \\______/   ____ \\',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('|',"$boldmagenta on_$bgcmagenta");print colored('  Win: 25 COINS            ',"$boldyellow on_$bgcmagenta");print colored('|',"$boldmagenta on_$bgcmagenta");print"\n";
  12132.    print colored('|       2222      |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\    ||||    /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\ |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|',"$boldmagenta on_$bgcmagenta");print colored(' Lose: YOUR LIFE           ',"$boldyellow on_$bgcmagenta");print colored('|',"$boldmagenta on_$bgcmagenta");print"\n";
  12133.    print colored('|     2222        |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored(' >< ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ||||    ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12134.    print colored('|   2222          |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/    ||||    \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12135.    print colored('| 222222222222222 |',"$boldmagenta on_$bgcmagenta"); print colored('---',"$boldblack on_$bgcblack"); print colored('\\          ||||          /',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12136.    print colored('|                 |',"$boldmagenta on_$bgcmagenta"); print colored('----',"$boldblack on_$bgcblack"); print colored('>         ||||         <',"$boldblack on_$bgcwhite"); print colored('----',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored(' _____________  ',"$boldblack on_$bgcmagenta"); print colored('     |',"$boldmagenta on_$bgcmagenta");print"\n";
  12137.    print colored('| 555555555555555 |',"$boldmagenta on_$bgcmagenta"); print colored('---',"$boldblack on_$bgcblack"); print colored('/ ____     \__/     ____ \\',"$boldblack on_$bgcwhite");print colored('---',"$boldblack on_$bgcblack"); print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|~~~~~~~~~~~|',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta");print"\n";
  12138.    print colored('| 555555555555555 |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\            /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\ |',"$boldblack on_$bgcwhite"); ;print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|           |',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta");print"\n";
  12139.    print colored('| 5555            |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('            ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|   PRESS   |',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta");print"\n";
  12140.    print colored('| 5555            |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/    ____    \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ |',"$boldblack on_$bgcwhite");print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|           |',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta");  print"\n";
  12141.    print colored('|  5555           |',"$boldmagenta on_$bgcmagenta"); print colored('---',"$boldblack on_$bgcblack"); print colored('\\______   /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\   ______/',"$boldblack on_$bgcwhite");print colored('---',"$boldblack on_$bgcblack");  print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|           |',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta");print"\n";
  12142.    print colored('|    55555555     |',"$boldmagenta on_$bgcmagenta"); print colored('----------',"$boldblack on_$bgcblack"); print colored('\\  ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('  /',"$boldblack on_$bgcwhite"); print colored('----------',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|___________|',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta"); print"\n";
  12143.    print colored('|      555555555  |',"$boldmagenta on_$bgcmagenta"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('\\ \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ /',"$boldblack on_$bgcwhite");print colored('-----------',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored(' ~~~~~~~~~~~~~  ',"$boldblack on_$bgcmagenta"); print colored('     |',"$boldmagenta on_$bgcmagenta");    print"\n";
  12144.    print colored('|            5555 |',"$boldmagenta on_$bgcmagenta"); print colored('------------',"$boldblack on_$bgcblack"); print colored('\\______/',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack");  print colored('|                           |',"$boldmagenta on_$bgcmagenta"); print"\n";
  12145.    print colored('|            5555 |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12146.    } else {
  12147.    ruskieleft1();  print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('|                           |',"$boldred on_$bgcred"); print"\n";
  12148.    ruskieleft2();  print colored('---------------',"$boldblack on_$bgcblack"); print colored('/\\',"$boldblack on_$bgcwhite"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldred on_$bgcred");  print"\n";
  12149.    ruskieleft3();  print colored('------------',"$boldblack on_$bgcblack"); print colored('/ ____ \\',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldred on_$bgcred");  print"\n";
  12150.    ruskieleft4();  print colored('-----------',"$boldblack on_$bgcblack"); print colored('/ /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\ \\',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('|      25  or Your Life     |',"$boldred on_$bgcred");print"\n";
  12151.    ruskieleft5();  print colored('-----------',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12152.    ruskieleft6();  print colored('----------',"$boldblack on_$bgcblack"); print colored('/\\ \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ /\\',"$boldblack on_$bgcwhite"); print colored('----------',"$boldblack on_$bgcblack");print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12153.    ruskieleft7();  print colored('---',"$boldblack on_$bgcblack"); print colored('/ ____   \\______/   ____ \\',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('|',"$boldred on_$bgcred");print colored('  Win: 25 COINS            ',"$boldyellow on_$bgcred");print colored('|',"$boldred on_$bgcred");print"\n";
  12154.    ruskieleft8();  print colored('--',"$boldblack on_$bgcblack"); print colored('| /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\    ||||    /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\ |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|',"$boldred on_$bgcred");print colored(' Lose: YOUR LIFE           ',"$boldyellow on_$bgcred");print colored('|',"$boldred on_$bgcred");print"\n";
  12155.    ruskieleft9();  print colored('--',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored(' >< ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ||||    ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12156.    ruskieleft10(); print colored('--',"$boldblack on_$bgcblack"); print colored('| \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/    ||||    \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12157.    ruskieleft11(); print colored('---',"$boldblack on_$bgcblack"); print colored('\\          ||||          /',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12158.    ruskieleft12(); print colored('----',"$boldblack on_$bgcblack"); print colored('>         ||||         <',"$boldblack on_$bgcwhite"); print colored('----',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton1(); print colored('      |',"$boldred on_$bgcred");print"\n";
  12159.    ruskieleft13(); print colored('---',"$boldblack on_$bgcblack"); print colored('/ ____     \__/     ____ \\',"$boldblack on_$bgcwhite");print colored('---',"$boldblack on_$bgcblack"); print colored('|      ',"$boldred on_$bgcred"); ruskiebutton2(); print colored('      |',"$boldred on_$bgcred");print"\n";
  12160.    ruskieleft14(); print colored('--',"$boldblack on_$bgcblack"); print colored('| /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\            /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\ |',"$boldblack on_$bgcwhite"); ;print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton6(); print colored('      |',"$boldred on_$bgcred");print"\n";
  12161.    ruskieleft15(); print colored('--',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('            ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton4(); print colored('      |',"$boldred on_$bgcred");print"\n";
  12162.    ruskieleft16(); print colored('--',"$boldblack on_$bgcblack"); print colored('| \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/    ____    \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ |',"$boldblack on_$bgcwhite");print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton6(); print colored('      |',"$boldred on_$bgcred");  print"\n";
  12163.    ruskieleft17(); print colored('---',"$boldblack on_$bgcblack"); print colored('\\______   /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\   ______/',"$boldblack on_$bgcwhite");print colored('---',"$boldblack on_$bgcblack");  print colored('|      ',"$boldred on_$bgcred"); ruskiebutton6(); print colored('      |',"$boldred on_$bgcred");print"\n";
  12164.    ruskieleft18(); print colored('----------',"$boldblack on_$bgcblack"); print colored('\\  ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('  /',"$boldblack on_$bgcwhite"); print colored('----------',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton7(); print colored('      |',"$boldred on_$bgcred"); print"\n";
  12165.    ruskieleft19(); print colored('-----------',"$boldblack on_$bgcblack"); print colored('\\ \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ /',"$boldblack on_$bgcwhite");print colored('-----------',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton8(); print colored('      |',"$boldred on_$bgcred");    print"\n";
  12166.    ruskieleft20(); print colored('------------',"$boldblack on_$bgcblack"); print colored('\\______/',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack");  print colored('|                           |',"$boldred on_$bgcred"); print"\n";
  12167.    ruskieleft21(); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12168.    }
  12169. }
  12170. sub ruskie2rlv {
  12171.    if ($ruskieold == 1) {
  12172.    print colored('|                 |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta"); print"\n";
  12173.    print colored('|     2222222     |',"$boldmagenta on_$bgcmagenta"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('/\\',"$boldblack on_$bgcwhite"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldmagenta on_$bgcmagenta");  print"\n";
  12174.    print colored('|  2222222222222  |',"$boldmagenta on_$bgcmagenta"); print colored('------------',"$boldblack on_$bgcblack"); print colored('/ ____ \\',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldmagenta on_$bgcmagenta");  print"\n";
  12175.    print colored('| 222         222 |',"$boldmagenta on_$bgcmagenta"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('/ /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\ \\',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('|      25  or Your Life     |',"$boldmagenta on_$bgcmagenta");print"\n";
  12176.    print colored('|             222 |',"$boldmagenta on_$bgcmagenta"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12177.    print colored('|           2222  |',"$boldmagenta on_$bgcmagenta"); print colored('----------',"$boldblack on_$bgcblack"); print colored('/\\ \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ /\\',"$boldblack on_$bgcwhite"); print colored('----------',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12178.    print colored('|         2222    |',"$boldmagenta on_$bgcmagenta"); print colored('---',"$boldblack on_$bgcblack"); print colored('/ ____   \\______/   ____ \\',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('|',"$boldmagenta on_$bgcmagenta");print colored('  Win: 25 COINS            ',"$boldyellow on_$bgcmagenta");print colored('|',"$boldmagenta on_$bgcmagenta");print"\n";
  12179.    print colored('|       2222      |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\    ||||    /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\ |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|',"$boldmagenta on_$bgcmagenta");print colored(' Lose: YOUR LIFE           ',"$boldyellow on_$bgcmagenta");print colored('|',"$boldmagenta on_$bgcmagenta");print"\n";
  12180.    print colored('|     2222        |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ||||    ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12181.    print colored('|   2222          |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/    ||||    \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12182.    print colored('| 222222222222222 |',"$boldmagenta on_$bgcmagenta"); print colored('---',"$boldblack on_$bgcblack"); print colored('\\          ||||          /',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12183.    print colored('|                 |',"$boldmagenta on_$bgcmagenta"); print colored('----',"$boldblack on_$bgcblack"); print colored('>         ||||         <',"$boldblack on_$bgcwhite"); print colored('----',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored(' _____________  ',"$boldblack on_$bgcmagenta"); print colored('     |',"$boldmagenta on_$bgcmagenta");print"\n";
  12184.    print colored('| 555555555555555 |',"$boldmagenta on_$bgcmagenta"); print colored('---',"$boldblack on_$bgcblack"); print colored('/ ____     \__/     ____ \\',"$boldblack on_$bgcwhite");print colored('---',"$boldblack on_$bgcblack"); print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|~~~~~~~~~~~|',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta");print"\n";
  12185.    print colored('| 555555555555555 |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\            /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\ |',"$boldblack on_$bgcwhite"); ;print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|           |',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta");print"\n";
  12186.    print colored('| 5555            |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored(' >< ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('            ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|   PRESS   |',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta");print"\n";
  12187.    print colored('| 5555            |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/    ____    \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ |',"$boldblack on_$bgcwhite");print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|           |',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta");  print"\n";
  12188.    print colored('|  5555           |',"$boldmagenta on_$bgcmagenta"); print colored('---',"$boldblack on_$bgcblack"); print colored('\\______   /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\   ______/',"$boldblack on_$bgcwhite");print colored('---',"$boldblack on_$bgcblack");  print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|           |',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta");print"\n";
  12189.    print colored('|    55555555     |',"$boldmagenta on_$bgcmagenta"); print colored('----------',"$boldblack on_$bgcblack"); print colored('\\  ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('  /',"$boldblack on_$bgcwhite"); print colored('----------',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored('|',"$boldblack on_$bgcmagenta"); print colored('|___________|',"$boldred on_$bgcred");print colored('|',"$boldblack on_$bgcmagenta"); print colored('      |',"$boldmagenta on_$bgcmagenta"); print"\n";
  12190.    print colored('|      555555555  |',"$boldmagenta on_$bgcmagenta"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('\\ \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ /',"$boldblack on_$bgcwhite");print colored('-----------',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored(' ~~~~~~~~~~~~~  ',"$boldblack on_$bgcmagenta"); print colored('     |',"$boldmagenta on_$bgcmagenta");    print"\n";
  12191.    print colored('|            5555 |',"$boldmagenta on_$bgcmagenta"); print colored('------------',"$boldblack on_$bgcblack"); print colored('\\______/',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack");  print colored('|                           |',"$boldmagenta on_$bgcmagenta"); print"\n";
  12192.    print colored('|            5555 |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12193.    } else {
  12194.    ruskieleft1();  print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('|                           |',"$boldred on_$bgcred"); print"\n";
  12195.    ruskieleft2();  print colored('---------------',"$boldblack on_$bgcblack"); print colored('/\\',"$boldblack on_$bgcwhite"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldred on_$bgcred");  print"\n";
  12196.    ruskieleft3();  print colored('------------',"$boldblack on_$bgcblack"); print colored('/ ____ \\',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldred on_$bgcred");  print"\n";
  12197.    ruskieleft4();  print colored('-----------',"$boldblack on_$bgcblack"); print colored('/ /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\ \\',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('|      25  or Your Life     |',"$boldred on_$bgcred");print"\n";
  12198.    ruskieleft5();  print colored('-----------',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12199.    ruskieleft6();  print colored('----------',"$boldblack on_$bgcblack"); print colored('/\\ \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ /\\',"$boldblack on_$bgcwhite"); print colored('----------',"$boldblack on_$bgcblack");print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12200.    ruskieleft7();  print colored('---',"$boldblack on_$bgcblack"); print colored('/ ____   \\______/   ____ \\',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('|',"$boldred on_$bgcred");print colored('  Win: 25 COINS            ',"$boldyellow on_$bgcred");print colored('|',"$boldred on_$bgcred");print"\n";
  12201.    ruskieleft8();  print colored('--',"$boldblack on_$bgcblack"); print colored('| /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\    ||||    /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\ |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|',"$boldred on_$bgcred");print colored(' Lose: YOUR LIFE           ',"$boldyellow on_$bgcred");print colored('|',"$boldred on_$bgcred");print"\n";
  12202.    ruskieleft9();  print colored('--',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ||||    ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12203.    ruskieleft10(); print colored('--',"$boldblack on_$bgcblack"); print colored('| \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/    ||||    \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12204.    ruskieleft11(); print colored('---',"$boldblack on_$bgcblack"); print colored('\\          ||||          /',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12205.    ruskieleft12(); print colored('----',"$boldblack on_$bgcblack"); print colored('>         ||||         <',"$boldblack on_$bgcwhite"); print colored('----',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton1(); print colored('      |',"$boldred on_$bgcred");print"\n";
  12206.    ruskieleft13(); print colored('---',"$boldblack on_$bgcblack"); print colored('/ ____     \__/     ____ \\',"$boldblack on_$bgcwhite");print colored('---',"$boldblack on_$bgcblack"); print colored('|      ',"$boldred on_$bgcred"); ruskiebutton2(); print colored('      |',"$boldred on_$bgcred");print"\n";
  12207.    ruskieleft14(); print colored('--',"$boldblack on_$bgcblack"); print colored('| /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\            /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\ |',"$boldblack on_$bgcwhite"); ;print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton6(); print colored('      |',"$boldred on_$bgcred");print"\n";
  12208.    ruskieleft15(); print colored('--',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored(' >< ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('            ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton4(); print colored('      |',"$boldred on_$bgcred");print"\n";
  12209.    ruskieleft16(); print colored('--',"$boldblack on_$bgcblack"); print colored('| \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/    ____    \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ |',"$boldblack on_$bgcwhite");print colored('--',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton6(); print colored('      |',"$boldred on_$bgcred");  print"\n";
  12210.    ruskieleft17(); print colored('---',"$boldblack on_$bgcblack"); print colored('\\______   /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\   ______/',"$boldblack on_$bgcwhite");print colored('---',"$boldblack on_$bgcblack");  print colored('|      ',"$boldred on_$bgcred"); ruskiebutton6(); print colored('      |',"$boldred on_$bgcred");print"\n";
  12211.    ruskieleft18(); print colored('----------',"$boldblack on_$bgcblack"); print colored('\\  ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('  /',"$boldblack on_$bgcwhite"); print colored('----------',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton7(); print colored('      |',"$boldred on_$bgcred"); print"\n";
  12212.    ruskieleft19(); print colored('-----------',"$boldblack on_$bgcblack"); print colored('\\ \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ /',"$boldblack on_$bgcwhite");print colored('-----------',"$boldblack on_$bgcblack");print colored('|      ',"$boldred on_$bgcred"); ruskiebutton8(); print colored('      |',"$boldred on_$bgcred");    print"\n";
  12213.    ruskieleft20(); print colored('------------',"$boldblack on_$bgcblack"); print colored('\\______/',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack");  print colored('|                           |',"$boldred on_$bgcred"); print"\n";
  12214.    ruskieleft21(); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldred on_$bgcred");print"\n";
  12215.    }
  12216. }
  12217. sub ruskie3rlv {
  12218.    if ($ruskieold == 1) {
  12219.    print colored('|                 |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta"); print"\n";
  12220.    print colored('|     2222222     |',"$boldmagenta on_$bgcmagenta"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('/\\',"$boldblack on_$bgcwhite"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldmagenta on_$bgcmagenta");  print"\n";
  12221.    print colored('|  2222222222222  |',"$boldmagenta on_$bgcmagenta"); print colored('------------',"$boldblack on_$bgcblack"); print colored('/ ____ \\',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldmagenta on_$bgcmagenta");  print"\n";
  12222.    print colored('| 222         222 |',"$boldmagenta on_$bgcmagenta"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('/ /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\ \\',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('|      25  or Your Life     |',"$boldmagenta on_$bgcmagenta");print"\n";
  12223.    print colored('|             222 |',"$boldmagenta on_$bgcmagenta"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12224.    print colored('|           2222  |',"$boldmagenta on_$bgcmagenta"); print colored('----------',"$boldblack on_$bgcblack"); print colored('/\\ \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ /\\',"$boldblack on_$bgcwhite"); print colored('----------',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12225.    print colored('|         2222    |',"$boldmagenta on_$bgcmagenta"); print colored('---',"$boldblack on_$bgcblack"); print colored('/ ____   \\______/   ____ \\',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('|',"$boldmagenta on_$bgcmagenta");print colored('  Win: 25 COINS            ',"$boldyellow on_$bgcmagenta");print colored('|',"$boldmagenta on_$bgcmagenta");print"\n";
  12226.    print colored('|       2222      |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\    ||||    /',"$boldblack on_$bgcwhite"); print colored('    ',"$yellow on_$bgcblack"); print colored('\\ |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|',"$boldmagenta on_$bgcmagenta");print colored(' Lose: YOUR LIFE           ',"$boldyellow on_$bgcmagenta");print colored('|',"$boldmagenta on_$bgcmagenta");print"\n";
  12227.    print colored('|     2222        |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ||||    ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print colored('    ',"$yellow on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12228.    print colored('|   2222          |',"$boldmagenta on_$bgcmagenta"); print colored('--',"$boldblack on_$bgcblack"); print colored('| \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/    ||||    \\',"$boldblack on_$bgcwhite"); print colored('____',"$boldblack on_$bgcblack"); print colored('/ |',"$boldblack on_$bgcwhite"); print colored('--',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12229.    print colored('| 222222222222222 |',"$boldmagenta on_$bgcmagenta"); print colored('---',"$boldblack on_$bgcblack"); print colored('\\          ||||          /',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('|                           |',"$boldmagenta on_$bgcmagenta");print"\n";
  12230.    print colored('|                 |',"$boldmagenta on_$bgcmagenta"); print colored('----',"$boldblack on_$bgcblack"); print colored('>         ||||         <',"$boldblack on_$bgcwhite"); print colored('----',"$boldblack on_$bgcblack");print colored('|      ',"$boldmagenta on_$bgcmagenta"); print colored(' _____________  ',"$boldblack on_$bgcmagenta"); print colored('     |',"$boldmagenta on_$bgcmagenta");pr