#!/usr/bin/perl #GPCSLOTS 2 # By The Entity Known As MikeeUSA #This program is free software; you can redistribute it and/or #modify it under the terms of the GNU General Public License #as published by the Free Software Foundation; either version 2 #of the License, or (at your option) any later version. # #This program is distributed in the hope that it will be useful, #but WITHOUT ANY WARRANTY; without even the implied warranty of #MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #GNU General Public License for more details. # #You should have received a copy of the GNU General Public License #along with this program; if not, write to the Free Software #Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. package PrintWrapper; use IO::Handle; use strict; use warnings; ################################################################################# ##Awsome terminal voodoo below by Div0. This allows the terminal output to be ## split into two parts: a forground (payout lists) ## and a background (slot machine reels) for use with Multi Layer LCDs ## (like the PureDepth(TM) displays found on IGT(TM) ReelDepth(TM) slotmachines. my $SEP = "\377"; sub PUSHED { my ($class, $mode, $fh) = @_; return bless { linebuf => '' }, $class; } sub println { my ($self, $l, $fh) = @_; my ($l_left, $l_right, $e_left, $e_right, $side, $cnt) = ('', '', '', '', 0, 0); die "WTF" if $SEP eq ""; while($l =~ s/^(\007|\033\[.*?[A-Za-z])|($SEP)|(.)//) { if(defined $1) # escape sequence { if($side) { $e_left .= $1; $l_right .= $1; } else { $l_left .= $1; $e_right .= $1; } } elsif(defined $2) # toggle { $side = !$side; if($side) { $l_right .= $e_right; #$e_right = ''; } else { $l_left .= $e_left; #$e_left = ''; } } elsif(defined $3) # text { if($side) { $l_left .= "\033[107m "; $l_right .= $3; } else { $l_left .= $3; $l_right .= "\033[107m "; } ++$cnt; } } my $sep = ' ' x (80 - $cnt); print $fh "$l_left\033[m$sep$l_right$sep\033[m"; } sub aflush { my ($self, $fh) = @_; while($self->{linebuf} =~ s/^(.*?)([\r\n])//) { my $l = $1; my $s = $2; $self->println($l, $fh); print $fh $s; $fh->flush(); } } sub WRITE { my ($self, $buf, $fh) = @_; if(!defined $self->{linebuf}) { if($buf =~ s/^([^\r\n]*([\r\n])?)//) { $self->{linebuf} = '' if $2; print $fh $buf; $fh->flush(); } return; } $self->{linebuf} .= $buf; $self->aflush($fh); } sub FLUSH { my ($self, $fh) = @_; $self->aflush($fh); if(length $self->{linebuf}) { print $fh $self->{linebuf}; $self->{linebuf} = undef; $fh->flush(); } } ##Awsome terminal voodoo above by Div0. This allows the terminal output to be ## split into two parts: a forground (payout lists) ## and a background (slot machine reels) for use with Multi Layer LCDs ## (like the PureDepth(TM) displays found on IGT(TM) ReelDepth(TM) slotmachines. ################################################################################# no strict; no warnings; package main; use Term::ANSIColor; use POSIX qw(ceil); use POSIX qw(floor); use IO::Handle; print color 'reset'; $compatVT100 = 1; ##Enable VT100 Features: 1 = Yes 0 = No $compatUNIXY = 1; ##Enable *NIX Features: 1 = Yes 0 = No $compatANSI = 1; ##Enable ANSI Color: 1 = Yes 0 = No $animate = 1; ##Enable Animation: 1 = Yes 0 = No $anispeed = 1; ##Speed of Animation 1 = 1X 2 = 2X 3 = 3X $soundfx = 1; ##Enable (Beep) SoundFX: 1 = Yes 0 = No $music = 0; ##Enable Music: 1 = Yes 0 = No $playtrack = 1; ##Enable Play Tracker 1 = Yes 0 = No $htmlgraphnums = 1; ##Have Graph Values 1 = Yes 0 = No ## printed Under Bargraph ##To Disable Color ANSI on Windows(R) Uncomment the Following 5 Lines## #sub colored { # my ($string, @codes); # $string = shift; # return $string; #} ##To Disable Color ANSI on Windows(R) Uncomment the Above 5 Lines## #------------------# # Music Setup # #------------------# $musicdir = '~/.gpcslots2/midi/'; #*Searches for the files in this directory @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'); #*These are file names of the midi files I use on my system. #* They were sequenced by John Weeks (espiokaos.com). #*I am looking for similar quality opensource(GPL,BSD,Debian Compatable Licensed) #* or public domain midis to bundle with this game. #*Replace the array entries with songs you personally like. Jazzy Casino Music. @rrmusicfiles = ('onthemar.mid','czardas1.mid','tomnaya.mid'); #*These are file names of the midi files I use on my system for russian roulette. Russian Folk and Russian 19th Century Music. @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'); #*These are file names of the midi files I use on my system for the bank. Classical Music (Vivaldi etc). $musicplayer = 'timidity'; #*Midis sound great with freepats (http://freepats.opensrc.org) by Eric A. Welsh $musicvolume = '5'; #*Set as to keep the songs as nice background music and as not to drown out the #* terminal beep soundfx. $rrmusicvolume = '20'; #*Set abit higher as this is a diffrent type of music $bankmusicvolume = '15'; #*Classical Background music for the bank. $musicvolumecmd = '--volume='; $musictermquiet = '> /dev/null'; #* Redirect terminal noise (should be > /dev/null) #------------------# # Code Begins Here # #------------------# sub help { print"Animation Speed : 1/$anispeed"; print"X ANSI Color : $compatANSI\n"; print"Animation : $animate"; print" Music : $music\n"; print"UNIX Features : $compatUNIXY"; print" Terminal SoundFX : $soundfx\n"; print"VT100 Features : $compatVT100\n"; print"Playtracking : $playtrack\n"; print'-h, --help Display this help screen'; print"\n"; print'-k, --keys Display keyboard commands information'; print"\n"; print'-nan, --no-ansi Turn ANSI color off'; print"\n"; print'-an, --ansi Turn ANSI color on (Default)'; print"\n"; print'-na, --no-animation Turn all animations off'; print"\n"; print'-a, --animation Turn all animations on (Default)'; print"\n"; print'-nt, --no-vt100 Turn vt100 support off'; print"\n"; print'-t, --vt100 Turn vt100 support on (Default)'; print"\n"; print'-nu, --no-unix Turn unix specific code off'; print"\n"; print'-u, --unix Turn unix specific code on (Default)'; print"\n"; print'-nsfx,--no-soundfx Turn terminal (beep) soundfx off'; print"\n"; print'-sfx, --sounfx Turn terminal (beep) soundfx on (Default)'; print"\n"; print'-nm, --no-music Turn music off (Default)'; print"\n"; print'-m, --music Turn music on'; print"\n"; print'-npt, --no-playtracking Turn playtracking off (Default)'; print"\n"; print'-pt, --playtracking Turn playtracking on (used for html graph)'; print"\n"; print'-as1, --animation-speed-1 Set animation speed to 1/1X (Default)'; print"\n"; print'-as2, --animation-speed-2 Set animation speed to 1/2X'; print"\n"; print'-as3, --animation-speed-3 Set animation speed to 1/3X'; print"\n"; print' --name Change casino title name(not available in-game)'; print"\n"; print' --gnome-terminal Open in gnome-terminal(not available in-game)'; print"\n"; print' (Ex: gpcslots2 --gnome-terminal -m -nsfx )'; print"\n"; print' --konsole Open in konsole(not available in-game)'; print"\n"; print' (Ex: gpcslots2 --konsole -m -nsfx )'; print"\n"; } sub helpkeys { print'P On Slotmachines: Enters a token or tokens and spins the reels'; print"\n"; print' On Table Games: Rolls the dice or spins the roulette wheel'; print"\n"; print' On Status Printout Machine: Prints game stats to a html file'; print"\n"; print' Meaning: Play'; print"\n"; print'1P On Slotmachines: Enters a token or tokens and spins the reels'; print"\n"; print' Meaning: Play One'; print"\n"; print'2P,3P...8P On Slotmachines: Enters tokens, selects multiple play lines,'; print"\n"; print' and then spins the reels'; print"\n"; print' Meaning: Play Two, Play Three...Play Eight'; print"\n"; print"\n"; print'A On Slotmachines: Executes the last entered valid command'; print"\n"; print' On Table Games: Rolls the dice or spins the roulette wheel'; print"\n"; print' Meaning: Again'; print"\n"; print'B On Table Games: Set your bet'; print"\n"; print' Meaning: Bet'; print"\n"; print'C On Slotmachines: Returns to casino menu'; print"\n"; print' On Table Games: Returns to casino menu'; print"\n"; print' On Status Printout Machine: Returns to casino menu'; print"\n"; print' Meaning: Casino Menu'; print"\n"; print'EXIT On Slotmachines: Quits game'; print"\n"; print' On Table Games: Quits game'; print"\n"; print' On Status Printout Machine: Quits game'; print"\n"; print' On Casino Menu: Quits game'; print"\n"; print' Meaning: Exit game'; print"\n"; print'N On Table Games: Select numbers to bet on'; print"\n"; print' Meaning: Numbers'; print"\n"; print"\n"; print'1,2,3...10 On Casino Menu: Selects and enters a subgame'; print"\n"; print' Meaning: Select Game One, Two, Three... Ten'; print"\n"; } BEGIN { if (@ARGV[0] eq '--gnome-terminal') { $buff0 = ''; foreach(@ARGV) { if (($_ ne '--gnome-terminal') and ($_ ne '--konsole')) { $buff0 = "$buff0"." $_"; } } exec("gnome-terminal --hide-menubar --title=GPC-Slots2 --geometry=80x30 -x perl $0 $buff0"); } elsif (@ARGV[0] eq '--konsole') { $buff0 = ''; foreach(@ARGV) { if (($_ ne '--konsole') and ($_ ne '--gnome-terminal')) { $buff0 = "$buff0"." $_"; } } exec("konsole --noresize --nohist --noscrollbar --notabbar --notoolbar --nomenubar --nohist --noframe --vt_sz 80x30 --T=GPC-Slots2 -e perl $0 $buff0"); } else { foreach(@ARGV) { if (($_ eq '-h') or ($_ eq '-help') or ($_ eq '--help')) { print'GPCSLOTS 2'; print"\n"; print' By The Entity Known As MikeeUSA'; print"\n"; print"\n"; print'This program is free software; you can redistribute it and/or'; print"\n"; print'modify it under the terms of the GNU General Public License'; print"\n"; print'as published by the Free Software Foundation; either version 2'; print"\n"; print'of the License, or (at your option) any later version.'; print"\n"; print"\n"; print'This program is distributed in the hope that it will be useful,'; print"\n"; print'but WITHOUT ANY WARRANTY; without even the implied warranty of'; print"\n"; print'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the'; print"\n"; print'GNU General Public License for more details.'; print"\n"; print"\n"; print'You should have received a copy of the GNU General Public License'; print"\n"; print'along with this program; if not, write to the Free Software'; print"\n"; print'Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.'; print"\n"; print"\n"; print'WWW: https://cat2.dynu.ca '; print"\n"; print'IRC: cat2.dynu.ca #linux '; print"\n\n"; print'Usage: gpcslots2 [options]'; print"\n"; print'Where [options] are any of:'; print"\n"; print'-h, --help Display this help screen'; print"\n"; print'-k, --keys Display keyboard commands information'; print"\n"; print'-nan, --no-ansi Turn ANSI color off'; print"\n"; print'-an, --ansi Turn ANSI color on (Default)'; print"\n"; print'-na, --no-animation Turn all animations off'; print"\n"; print'-a, --animation Turn all animations on (Default)'; print"\n"; print'-nt, --no-vt100 Turn vt100 support off'; print"\n"; print'-t, --vt100 Turn vt100 support on (Default)'; print"\n"; print'-nu, --no-unix Turn unix specific code off'; print"\n"; print'-u, --unix Turn unix specific code on (Default)'; print"\n"; print'-nsfx,--no-soundfx Turn terminal (beep) soundfx off'; print"\n"; print'-sfx, --sounfx Turn terminal (beep) soundfx on (Default)'; print"\n"; print'-nm, --no-music Turn music off (Default)'; print"\n"; print'-m, --music Turn music on'; print"\n"; print'-npt, --no-playtracking Turn playtracking off (Default)'; print"\n"; print'-pt, --playtracking Turn playtracking on (used for html graph)'; print"\n"; print'-as1, --animation-speed-1 Set animation speed to 1/1X (Default)'; print"\n"; print'-as2, --animation-speed-2 Set animation speed to 1/2X'; print"\n"; print'-as3, --animation-speed-3 Set animation speed to 1/3X'; print"\n"; print' --name Change casino title name(not available in-game)'; print"\n"; print' --gnome-terminal Open in gnome-terminal(not available in-game)'; print"\n"; print' (Ex: gpcslots2 --gnome-terminal -m -nsfx )'; print"\n"; print' --konsole Open in konsole(not available in-game)'; print"\n"; print' (Ex: gpcslots2 --konsole -m -nsfx )'; print"\n"; print' --dual Seperate output of forground and background'; print"\n"; print' for use with Multi-Layer LCDs (not available in-game)'; print"\n"; exit(); } elsif (($_ eq '-k') or ($_ eq '-keys') or ($_ eq '--keys')) { print'P On Slotmachines: Enters a token or tokens and spins the reels'; print"\n"; print' On Table Games: Rolls the dice or spins the roulette wheel'; print"\n"; print' On Status Printout Machine: Prints game stats to a html file'; print"\n"; print' Meaning: Play'; print"\n"; print'1P On Slotmachines: Enters a token or tokens and spins the reels'; print"\n"; print' Meaning: Play One'; print"\n"; print'2P,3P...8P On Slotmachines: Enters tokens, selects multiple play lines,'; print"\n"; print' and then spins the reels'; print"\n"; print' Meaning: Play Two, Play Three...Play Eight'; print"\n"; print"\n"; print'A On Slotmachines: Executes the last entered valid command'; print"\n"; print' On Table Games: Rolls the dice or spins the roulette wheel'; print"\n"; print' Meaning: Again'; print"\n"; print'B On Table Games: Set your bet'; print"\n"; print' Meaning: Bet'; print"\n"; print'C On Slotmachines: Returns to casino menu'; print"\n"; print' On Table Games: Returns to casino menu'; print"\n"; print' On Status Printout Machine: Returns to casino menu'; print"\n"; print' Meaning: Casino Menu'; print"\n"; print'EXIT On Slotmachines: Quits game'; print"\n"; print' On Table Games: Quits game'; print"\n"; print' On Status Printout Machine: Quits game'; print"\n"; print' On Casino Menu: Quits game'; print"\n"; print' Meaning: Exit game'; print"\n"; print'N On Table Games: Select numbers to bet on'; print"\n"; print' Meaning: Numbers'; print"\n"; print"\n"; print'1,2,3...10 On Casino Menu: Selects and enters a subgame'; print"\n"; print' Meaning: Select Game One, Two, Three... Ten'; print"\n"; exit(); } } $name = ' WELCOME TO MIKEEUSA\'S '; $namedeath = ' YOU HAVE DIED IN MIKEEUSA\'S '; $nametog = 0; $buff0 = ''; foreach(@ARGV) { if ($nametog == 1) { $name = $_; $name =~ s/[^a-zA-Z0-9_ \:\?\.\,\"\;\`\~\\\/\[\]\{\}\!\@\#\$\%\^\&\*\-\_\=\+\(\)]//g; $namechars = 0; while ($name =~ /[a-zA-Z0-9_ \:\?\.\,\"\;\`\~\\\/\[\]\{\}\!\@\#\$\%\^\&\*\-\_\=\+\(\)]/g) { $namechars = $namechars + 1; } #Odd or even? $buff0 = ($namechars/2); ($buff1, $buff0) = split(/./,$buff0, 2); if ($buff0 == .5) { #Odd Number #Offsets ("38" "42") are not equal because the welcome and death screen text is not perfectly centered. $buff0 = ' 'x(38 - (($namechars+1)/2)); $name = "$buff0"."$name"; $buff0 = ' 'x(42 - (($namechars-1)/2)); $name = "$name"."$buff0"; } else { #Even Number #Offsets ("38" "42") are not equal because the welcome and death screen text is not perfectly centered. $buff0 = ' 'x(38 - ($namechars/2)); $buff1 = ' 'x(42 - ($namechars/2)); $name = "$buff0"."$name"."$buff1"; } $namedeath = $name; $buff0 = ''; $buff1 = ''; $nametog = 0; } elsif (($_ eq '--name') or ($_ eq '-name')) { $nametog = 1; } } } } BEGIN { print"\n"; print'GPCSLOTS 2'; print"\n"; print' By The Entity Known As MikeeUSA'; print"\n"; print"\n"; print'This program is free software; you can redistribute it and/or'; print"\n"; print'modify it under the terms of the GNU General Public License'; print"\n"; print'as published by the Free Software Foundation; either version 2'; print"\n"; print'of the License, or (at your option) any later version.'; print"\n"; print"\n"; print'This program is distributed in the hope that it will be useful,'; print"\n"; print'but WITHOUT ANY WARRANTY; without even the implied warranty of'; print"\n"; print'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the'; print"\n"; print'GNU General Public License for more details.'; print"\n"; print"\n"; print'You should have received a copy of the GNU General Public License'; print"\n"; print'along with this program; if not, write to the Free Software'; print"\n"; print'Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.'; print"\n"; print"\n"; print'WWW: https://cat2.dynu.ca '; print"\n"; print'IRC: cat2.dynu.ca #linux '; print"\n"; 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"; print' '; print"\n"; print' '; print"\n"; print' '; print"\n"; print"$name"; print"\n"; print' GENERAL PUBLIC '; print"\n"; print' '; print"\n"; print' SSSSSS IIIIIIIIIII '; print"\n"; print' SSSSSSSSSS IIIIIIIIIIIII '; print"\n"; print' SSSS SSSS IIIII '; print"\n"; print' A SSS IIIII NNNN NNNNN '; print"\n"; print' AAA SSSS IIIII NNNNN NNN '; print"\n"; print' AAAAA SSSSSSSSS IIIII NNNNNN NNN '; print"\n"; print' AAAAAAA SSSSSSSSS IIIII NNNNNNN NNN '; print"\n"; print' CCCCCC AAAA AAAA SSSS IIIII NNN NNNN NNN OOOOOOO '; print"\n"; print' CCCCCCCCCC AAA AAA SSS IIIII NNN NNNN NNN OOOOOOOOOOO '; print"\n"; print' CCCC CCCC AAAAAAAAA SSSS SSSS IIIII NNN NNNNNNN OOOOO OOOOO'; print"\n"; print' CCC AAA AAA SSSSSSSSSS IIIIIIIIIIIII NNN NNNNNN OOOO OOOO'; print"\n"; print' CCC AAA AAA SSSSSS IIIIIIIIIII NNN NNNNN OOOO OOOO'; print"\n"; print' CCCC CCCC AAA AAA NNNNN NNNN OOOOO OOOOO'; print"\n"; print' CCCCCCCCCC OOOOOOOOOOO '; print"\n"; print' CCCCCC OOOOOOO '; print"\n"; print' '; print"\n"; print' '; print"\n"; print' '; print"\n"; print' [LOADING] '; print"\n"; print' '; print"\n"; print' '; print"\n"; print' '; print"\n"; print' '; print"\n"; print' '; print"\n"; } startup(); sub startup { colorset_normal(); testmusic(); beginmusic(); setslotrandnums(); $version = '0.4.5'; #0.4.5 in progress. $loadsavefile = 0; $buff0 = ''; #Used Often $buff1 = ''; $buff2 = ''; #Only used when Buff0 and 1 are concurrently in use $buff3 = ''; $buff4 = ''; $hrbonus = 0; $hrbonushlp = 0; $hrbonusstd = 100; #How many bonus rounds are given out on triple bonus symbol win. $hrbonushlpstd = 4;#Determines if there are increased odds of bonus after triple bells, Set to 1 more then the number of turns you want. $hrbulbcolor = 'null'; #Blackened Bulbs $ccrapswin = 0; $ccrapslose = 0; $ccrapstie = 0; $ccrapspoint = 0; $ccrapscraps = 0; $ccrapsnumberofrolls = 0; $ccrapsstart2 = ' '; $ccrapsadded = 0; $ccrapsstart2 = ' '; $sbtstart2 = ' '; $proadd = 0; $startmoney = 100; $coin = 1; #What Each Slot Machine Token is Worth in coin. $coineval = 0; #Do we evaluate what a token should be worth every play? $coinmultiple = 0; #If so, what has the user set this multiple to be (should be a less than 1 multiple) $money = $startmoney; $runmain = 1; $moneyexp = 0; $lvrmoney = 0; $lvrbet = 0; $lvrsetup = 0; # 0 = Monte Carlo Roulette, 1 = Roulette De Americana $lvrfuturecarlo = 0; # 0 = Classic Monte Carlo Roulette, 1 = Futuristic Spinner $lvrimprison = 0; $rllvrbet = 0; $rllvrsetup = 0; # 0 = Monte Carlo Roulette, 1 = Roulette De Americana $rllvrfuturecarlo = 0; # 0 = Classic Monte Carlo Roulette, 1 = Futuristic Spinner $sbtnumber = 0; $sbtbet = 0; $sbtmoney = 0; $ccrapsnumber = 0; $ccrapsbet = 0; $ccrapsmoney = 0; $ccrapssetup = 0; $spins = 0; $projkpot = 20000000; $projkpot2 = 1592837; $addmoney = 0; $ddaddmoney = 0; $ngemangemmoney = 0; $ruskiemoney = 0; $x = 'null'; $ddx = ' '; $ddstartreel = 1; $potluckplaylevel = 0; $potluckapotluckmoney = 0; $potluckxP1p = ' '; $potluckxP1Zp = ' '; $potluckxP2p = ' '; $potluckxP2Zp = ' '; $potluckxP2p4x1 = ' '; $potluckxP2p4x2 = ' '; $potluckxP3p = ' '; $potluckxP3Zp = ' '; $potluckxP3p4x1 = ' '; $potluckxP3p4x2 = ' '; $potluckxP4p = ' '; $potluckxP4Zp = ' '; $potluckxP5p = ' '; $potluckxP5Zp = ' '; $potluckxP6p = ' '; $potluckxP6Zp = ' '; $potluckxP7p = ' '; $potluckxP7Zp = ' '; $potluckxP8p = ' '; $potluckxP8Zp = ' '; $potluckstartreel = 1; $ngemsymbol = 0; $ngemplaylevel = 0; $ngemx12 = ' '; $ngemx23 = ' '; $ngemx34 = ' '; $ngemx45 = ' '; $ngemx123 = ' '; $ngemx234 = ' '; $ngemx345 = ' '; $ngemx1234 = ' '; $ngemx2345 = ' '; $ngemx12345 = ' '; $ngemstartreel = 1; $anybar = 0; $anybar1 = 0; $anybar2 = 0; $anybar3 = 0; $anycherry = 0; $anycherry1 = 0; $anycherry2 = 0; $anycherry3 = 0; $onecherry = 0; $nonep = 0; $startreel = 1; $anydollar = 0; $anydollar1 = 0; $anydollar2 = 0; $anydollar3 = 0; $reelspin = 0; $ddreelspin = 0; $ssreelspin = 0; $ngemreelspin = 0; $potluckreelspin = 0; $lvrreelspin = 0; $rllvrreelspin = 0; $ssaddmoney = 0; $ssaddmoney1 = 0; $ssaddmoney2 = 0; $ssaddmoney3 = 0; $ssaddmoney4 = 0; $ssaddmoney5 = 0; $ssx1 = 'null'; $ssx2 = 'null'; $ssx3 = 'null'; $ssx4 = 'null'; $ssx5 = 'null'; $sslines = 1; $ssmisalign1 = 0; $ssmisalign2 = 0; $ssmisalign3 = 0; $lvrstart1 = ' '; $lvrstart2 = ' '; $lvrwinnbr = 0; $rllvrstart1 = ' '; $rllvrstart2 = ' '; $rllvrwinnbr = 0; $hrstspins = 0; $ddstspins = 0; $ssstspins = 0; $ruskiestspin = 0; $lvrstspins = 0; $rllvrstspins = 0; $sbtstspins = 0; $ccrapsstspins = 0; $ngemstspins = 0; $potluckstspins = 0; $hrstwin = 0; $hrstlose = 0; $ngemstwin = 0; $ngemstlose = 0; $potluckstwin = 0; $potluckstlose = 0; $ruskieold = 0; $ddstwin = 0; $ddstlose = 0; $ssstwin = 0; $ssstlose = 0; $rrstwin = 0; $rrstlose = 0; $lvrstwin = 0; $lvrstlose = 0; $rllvrstwin = 0; $rllvrstlose = 0; $sbtstwin = 0; $sbtstlose = 0; $ccrapsstwin = 0; $ccrapsstlose = 0; $esegpenguinhrs = 0; $hrstmc = 0; $ddstmc = 0; $ssstmc = 0; $ngemstmc = 0; $potluckstmc = 0; $rrstmc = 0; $lvrstmc = 0; $rllvrstmc = 0; $sbtstmc = 0; $ccrapsstmc = 0; $hrstmc2 = 0; $ddstmc2 = 0; $ssstmc2 = 0; $rrstmc2 = 0; $lvrstmc2 = 0; $rllvrstmc2 = 0; $sbtstmc2 = 0; $ccrapsstmc2 = 0; $ngemstmc2 = 0; $potluckstmc2 = 0; $beepnum = 0; $banktruesavrte = 0.03; #Bank savings account interest rate. $banksavperiod = 1000; #Period, (Example X% per Annum) $banksavcpndintvl = 10000000; #How many turns before interest is compounded $banksavingintvl = 0; #Counter $banksavintrst = 0; #This period's interest $banksavmoney = 0; #The acctual account $banksavsprncpletrk = 0; #Tracks all deposits over the life of the account $banksavswthdrwtrk = 0; #Tracks all withdrawals over the life of the account $banksavsprncple = 0; #Current Deposited Principle $banksavecrintsttrk = 0; #Tracks Current Intrest (total - principle) $banksavintrsttrk = 0; #Tracks the total earned interest over the life of the account $bankdepst = 0; $bankwtdrl = 0; $bankstkbuy = 0; $bankstksell = 0; $bankstkpttotal = 0; $bankfndmorinfo = 0; ##$ssagaincmd; ##$ddagaincmd; ##$ngemagaincmd; ##$hragaincmd; $savefile = '.gpcs2-savefile'; $loadedsavefile = 0; $allowhtml = 1; #Set to 0 if you are going to use GPC-Slots 2 as a user's shell :) $allowsave = 1; #Set to 0 if you do not want a user to beable to save his progress. $htmlcolor0 = 'BLACK'; #background color $htmlcolor1 = 'GREY'; #text color $htmlcolor2 = 'LIGHTBLUE'; #logo a $htmlcolor3 = 'BLUE'; #logo b $htmlcolor4 = 'YELLOW'; #logo c $htmlcolor5 = 'RED'; #link color $htmlcolor6 = 'DARKGREY'; #link color $htmlcolor7 = 'GREY'; #text color $htmltitle = 'GPCSlots2-Stats'; @ptracker = ("$money"); if ($startmoney >= 500) { $htmldivide = ($startmoney/20); } else { $htmldivide = ($startmoney/10); } $htmldivide = sprintf("%.0f", $htmldivide ); commandargs(); computesverte(); if (($loadsavefile == 1) && ($allowsave == 1)) { loadsavefile(); zerosavefile(); $loadsavefile = 0; $loadedsavefile = 1; } stockmarketinit(); spinreel(); ddspinreel(); ssspinreel(); ngem45init(); ngemspinreel(); potluck45init(); potluckspinreel(); ruskieinit(); lvrnbrreset(); lvrspin(); rllvrnbrreset(); rllvrspin(); sbtresetnum(); sbtthrowdice(); ccrapsresetnum(); ccrapsthrowdice(); titlemain(); } sub setslotrandnums { #House Rules Reel Deel $hrrandnums = 107; #No Bonus 103 #Bonus 107 #Potluck $potluckrandnums = 53; #Old Standard 50 #Profitable to casino at 53 and above } sub colorset_normal { $bgcwhite = 'white'; $bgcblack = 'black'; $bgcred = 'red'; $bgcgreen = 'green'; $bgcblue = 'blue'; $bgccyan = 'cyan'; $bgcyellow = 'yellow'; $bgcmagenta = 'magenta'; $white = 'white'; $black = 'black'; $red = 'red'; $green = 'green'; $blue = 'blue'; $cyan = 'cyan'; $yellow = 'yellow'; $magenta = 'magenta'; $boldwhite = 'bold white'; $boldblack = 'bold black'; $boldred = 'bold red'; $boldgreen = 'bold green'; $boldblue = 'bold blue'; $boldcyan = 'bold cyan'; $boldyellow = 'bold yellow'; $boldmagenta = 'bold magenta'; $titlecolor = "$blue"; $decsscolor = "$green"; $sspx2 = "$boldgreen"; $sspx3 = "$boldgreen"; } sub colorset_dull { $bgcwhite = 'white'; $bgcblack = 'black'; $bgcred = 'red'; $bgcgreen = 'green'; $bgcblue = 'blue'; $bgccyan = 'cyan'; $bgcyellow = 'yellow'; $bgcmagenta = 'magenta'; $white = 'white'; $black = 'black'; $red = 'red'; $green = 'green'; $blue = 'blue'; $cyan = 'cyan'; $yellow = 'yellow'; $magenta = 'magenta'; $boldwhite = 'white'; $boldblack = 'black'; $boldred = 'red'; $boldgreen = 'green'; $boldblue = 'blue'; $boldcyan = 'cyan'; $boldyellow = 'yellow'; $boldmagenta = 'magenta'; $titlecolor = "$blue"; $decsscolor = "$green"; $sspx2 = "$boldgreen"; $sspx3 = "$boldgreen"; } sub colorset_bright { $bgcwhite = 'white'; $bgcblack = 'black'; $bgcred = 'red'; $bgcgreen = 'green'; $bgcblue = 'blue'; $bgccyan = 'cyan'; $bgcyellow = 'yellow'; $bgcmagenta = 'magenta'; $white = 'bold white'; $black = 'bold black'; $red = 'bold red'; $green = 'bold green'; $blue = 'bold blue'; $cyan = 'bold cyan'; $yellow = 'bold yellow'; $magenta = 'bold magenta'; $boldwhite = 'bold white'; $boldblack = 'bold black'; $boldred = 'bold red'; $boldgreen = 'bold green'; $boldblue = 'bold blue'; $boldcyan = 'bold cyan'; $boldyellow = 'bold yellow'; $boldmagenta = 'bold magenta'; $titlecolor = "$blue"; $decsscolor = "$green"; $sspx2 = "$boldgreen"; $sspx3 = "$boldgreen"; } sub colorset_inverse { $bgcwhite = 'black'; $bgcblack = 'white'; $bgcred = 'cyan'; $bgcgreen = 'magenta'; $bgcblue = 'yellow'; $bgccyan = 'red'; $bgcyellow = 'blue'; $bgcmagenta = 'green'; $white = 'black'; $black = 'white'; $red = 'cyan'; $green = 'magenta'; $blue = 'yellow'; $cyan = 'red'; $yellow = 'blue'; $magenta = 'green'; $boldwhite = 'bold black'; $boldblack = 'bold white'; $boldred = 'bold cyan'; $boldgreen = 'bold magenta'; $boldblue = 'bold yellow'; $boldcyan = 'bold red'; $boldyellow = 'bold blue'; $boldmagenta = 'bold green'; $titlecolor = "$blue"; $decsscolor = "$green"; $sspx2 = "$boldgreen"; $sspx3 = "$boldgreen"; } sub colorset_notld { $bgcwhite = 'red'; $bgcblack = 'black'; $bgcred = 'red'; $bgcgreen = 'red'; $bgcblue = 'red'; $bgccyan = 'red'; $bgcyellow = 'red'; $bgcmagenta = 'red'; $white = 'white'; $black = 'black'; $red = 'bold red'; $green = 'green'; $blue = 'blue'; $cyan = 'cyan'; $yellow = 'yellow'; $magenta = 'magenta'; $boldwhite = 'bold white'; $boldblack = 'bold black'; $boldred = 'bold red'; $boldgreen = 'bold green'; $boldblue = 'bold blue'; $boldcyan = 'bold cyan'; $boldyellow = 'bold yellow'; $boldmagenta = 'bold magenta'; $titlecolor = "$blue"; $decsscolor = "$green"; $sspx2 = "$boldgreen"; $sspx3 = "$boldgreen"; } sub colorset_lightsout { $bgcwhite = 'black'; $bgcblack = 'black'; $bgcred = 'black'; $bgcgreen = 'black'; $bgcblue = 'black'; $bgccyan = 'black'; $bgcyellow = 'black'; $bgcmagenta = 'black'; $white = 'white'; $black = 'black'; $red = 'red'; $green = 'green'; $blue = 'blue'; $cyan = 'cyan'; $yellow = 'yellow'; $magenta = 'magenta'; $boldwhite = 'bold white'; $boldblack = 'bold black'; $boldred = 'bold red'; $boldgreen = 'bold green'; $boldblue = 'bold blue'; $boldcyan = 'bold cyan'; $boldyellow = 'bold yellow'; $boldmagenta = 'bold magenta'; $titlecolor = "$blue"; $decsscolor = "$green"; $sspx2 = "$boldgreen"; $sspx3 = "$boldgreen"; } sub colorset_blackwhite { $bgcwhite = 'black'; $bgcblack = 'black'; $bgcred = 'black'; $bgcgreen = 'black'; $bgcblue = 'black'; $bgccyan = 'black'; $bgcyellow = 'black'; $bgcmagenta = 'black'; $white = 'white'; $black = 'white'; $red = 'white'; $green = 'white'; $blue = 'white'; $cyan = 'white'; $yellow = 'white'; $magenta = 'white'; $boldwhite = 'bold white'; $boldblack = 'bold white'; $boldred = 'bold white'; $boldgreen = 'bold white'; $boldblue = 'bold white'; $boldcyan = 'bold white'; $boldyellow = 'bold white'; $boldmagenta = 'bold white'; $titlecolor = "$blue"; $decsscolor = "$green"; $sspx2 = "$boldgreen"; $sspx3 = "$boldgreen"; } our $execution_of_commandargs; sub commandargs { if(!$execution_of_commandargs) { $SEP = '' } foreach(@ARGV) { if (($_ eq '-nan') or ($_ eq '--no-ansi')) { if ($compatANSI != 0) { $ENV{ANSI_COLORS_DISABLED} = 1; } $compatANSI = 0; } if (($_ eq '-an') or ($_ eq '--ansi')) { if ($compatANSI != 1) { delete $ENV{ANSI_COLORS_DISABLED}; } $compatANSI = 1; } if (($_ eq '-na') or ($_ eq '--no-animation')) { $animate = 0; } if (($_ eq '-a') or ($_ eq '--animation')) { $animate = 1; } if (($_ eq '-nt') or ($_ eq '--no-vt100')) { $compatVT100 = 0; } if (($_ eq '-t') or ($_ eq '--vt100')) { $compatVT100 = 1; } if (($_ eq '-nu') or ($_ eq '--no-unix')) { $compatUNIXY = 0; } if (($_ eq '-u') or ($_ eq '--unix')) { $compatUNIXY = 1; } if (($_ eq '-nsfx') or ($_ eq '--no-soundfx')) { $soundfx = 0; } if (($_ eq '-2') or ($_ eq '--dual')) { $SEP = "\377" if !$execution_of_commandargs; } if (($_ eq '-sfx') or ($_ eq '--soundfx')) { $soundfx = 1; } if (($_ eq '-npt') or ($_ eq '--no-playtracking')) { $playtrack = 0; } if (($_ eq '-pt') or ($_ eq '--playtracking')) { $playtrack = 1; } if (($_ eq '-nm') or ($_ eq '--no-music')) { if ($music == 1) { killmusic(); $music = 0; } else { $music = 0; } } if (($_ eq '-m') or ($_ eq '--music')) { if ($music == 0) { $music = 1; testmusic(); beginmusic(); } else { $music = 1; } } if (($_ eq '-as1') or ($_ eq '--animation-speed-1')) { $anispeed = 1; } if (($_ eq '-as2') or ($_ eq '--animation-speed-2')) { $anispeed = 2; } if (($_ eq '-as3') or ($_ eq '--animation-speed-3')) { $anispeed = 3; } if (($_ eq '-l') or ($_ eq '--load-savefile')) { $loadsavefile = 1; } } if(!$execution_of_commandargs and $SEP ne '') { binmode STDOUT, ':via(PrintWrapper)'; } $execution_of_commandargs = 1; } sub titlemain { while ($runmain == 1) { newlines(); titlescreen(); } } sub titlescreen { print colored(' ',"$boldyellow on_$bgcblack"); print"\n"; print colored(' ',"$boldyellow on_$bgcblack"); print"\n"; print colored("$name","$boldyellow on_$bgcblack"); print"\n"; print colored(" GENERAL PUBLIC ","$boldyellow on_$bgcblack"); print"\n"; print colored(" ","$boldyellow on_$bgcblack"); print"\n"; print colored(' SSSSSS IIIIIIIIIII ',"$titlecolor on_$bgcblack"); print"\n"; print colored(' SSSSSSSSSS IIIIIIIIIIIII ',"bold $titlecolor on_$bgcblack"); print"\n"; print colored(' SSSS SSSS IIIII ',"$titlecolor on_$bgcblack"); print"\n"; print colored(' A SSS IIIII NNNN NNNNN ',"bold $titlecolor on_$bgcblack"); print"\n"; print colored(' AAA SSSS IIIII NNNNN NNN ',"$titlecolor on_$bgcblack"); print"\n"; print colored(' AAAAA SSSSSSSSS IIIII NNNNNN NNN ',"bold $titlecolor on_$bgcblack"); print"\n"; print colored(' AAAAAAA SSSSSSSSS IIIII NNNNNNN NNN ',"$titlecolor on_$bgcblack"); print"\n"; print colored(' CCCCCC AAAA AAAA SSSS IIIII NNN NNNN NNN OOOOOOO ',"bold $titlecolor on_$bgcblack"); print"\n"; print colored(' CCCCCCCCCC AAA AAA SSS IIIII NNN NNNN NNN OOOOOOOOOOO ',"$titlecolor on_$bgcblack"); print"\n"; print colored(' CCCC CCCC AAAAAAAAA SSSS SSSS IIIII NNN NNNNNNN OOOOO OOOOO',"bold $titlecolor on_$bgcblack"); print"\n"; print colored(' CCC AAA AAA SSSSSSSSSS IIIIIIIIIIIII NNN NNNNNN OOOO OOOO',"$titlecolor on_$bgcblack"); print"\n"; print colored(' CCC AAA AAA SSSSSS IIIIIIIIIII NNN NNNNN OOOO OOOO',"bold $titlecolor on_$bgcblack"); print"\n"; print colored(' CCCC CCCC AAA AAA NNNNN NNNN OOOOO OOOOO',"$titlecolor on_$bgcblack"); print"\n"; print colored(' CCCCCCCCCC OOOOOOOOOOO ',"bold $titlecolor on_$bgcblack"); print"\n"; print colored(' CCCCCC OOOOOOO ',"$titlecolor on_$bgcblack"); print"\n"; print colored(' ',"$boldyellow on_$bgcblack"); print"\n"; if ($moneyexp > 9999999999999999999) { print colored(" Expended Cash: ".sprintf("%.18e", $moneyexp)." ","$white on_$bgcblack"); } elsif ($moneyexp >= 100000000000000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 10000000000000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 1000000000000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 100000000000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 10000000000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 1000000000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 100000000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 10000000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 1000000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 100000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 10000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 1000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 100000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 10000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 1000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 100) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 10) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } elsif ($moneyexp >= 0) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcblack"); } else { print colored(" Expended Cash: $moneyexp ","$white on_$bgcred"); } print colored(" version $version ","$boldblack on_$bgcblack"); print"\n"; tokeneval(); if ($coin > 9999999999999999999) { print colored(" Slotmachine Token Value: ".sprintf("%.18e", $coin)." ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 1000000000000000000) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 100000000000000000) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 10000000000000000) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 1000000000000000) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 100000000000000) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 10000000000000) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 1000000000000) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 100000000000) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 10000000000) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 1000000000) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 100000000) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 10000000) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 1000000) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 100000) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 10000) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 1000) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 100) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 10) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } elsif ($coin >= 0) { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcblack"); print"\n"; } else { print colored(" Slotmachine Token Value: $coin ","$white on_$bgcred"); print"\n"; } print colored(' ',"$boldwhite on_$bgcblack"); print"\n"; print colored('CHOOSE WHICH SLOT MACHINE YOU WISH TO PLAY ',"$boldwhite on_$bgcblack"); print"\n"; print colored('1) House Rules Reel Deal 5) PotLuck 9) Sic Bo Tai Sai ',"$boldwhite on_$bgcblack"); print"\n"; print colored('2) Double Blue Diamond 6) Russian Roulette 10) Casino Craps ',"$boldwhite on_$bgcblack"); print"\n"; if ($esegpenguinhrs != 1) { print colored('3) High Roller Sevens ',"$boldwhite on_$bgcblack"); } else { print colored('3) High Roller Penguins ',"$boldwhite on_$bgcblack"); } if ($lvrsetup == 0) { print colored('7) Monte Carlo Roulette ',"$boldwhite on_$bgcblack"); } else { print colored('7) Roulette De Americana',"$boldwhite on_$bgcblack"); } print colored(' 11) Bank ',"$boldwhite on_$bgcblack"); print"\n"; print colored('4) Twilight Mine 8) Real Vegas Roulette ',"$boldwhite on_$bgcblack"); if ($allowhtml == 1) { print colored('12) Status Printout ',"$boldwhite on_$bgcblack"); } else { print colored('12) N/A ',"$boldwhite on_$bgcblack"); } print"\n"; print color 'white'; $titlescreen = <STDIN>; chomp($titlescreen); print color 'reset'; if ($titlescreen == 1) { newlines(); main2(); } elsif ($titlescreen == 2) { newlines(); ddmain2(); } elsif ($titlescreen == 3) { newlines(); ssmain2(); } elsif ($titlescreen == 11) { newlines(); if ($music == 1) { killmusic(); $music = 1; bankbeginmusic(); } else { #NOTHING! } newlines(); bankmachine(); } elsif ($titlescreen == 12) { if ($allowhtml == 1) { newlines(); statsmachine(); } else { #Nothing } } elsif ($titlescreen == 4) { newlines(); ngemmain2(); } elsif ($titlescreen == 5) { newlines(); potluckmain2(); } elsif ($titlescreen == 6) { newlines(); if (($music == 1) and ($ruskieold == 0)) { killmusic(); $music = 1; rrbeginmusic(); } else { #NOTHING! } newlines(); ruskieroll2(); } elsif ($titlescreen == 7) { newlines(); lvrmainspin2(); } elsif ($titlescreen == 8) { newlines(); rllvrmainspin2(); } elsif ($titlescreen == 9) { newlines(); sbtmainspin2(); } elsif ($titlescreen == 10) { newlines(); ccrapsmainspin2(); } elsif (($titlescreen eq 'exit') or ($titlescreen eq 'EXIT') or ($titlescreen eq 'quit') or ($titlescreen eq 'QUIT')) { exitgame(); } elsif (($titlescreen eq 'decss') or ($titlescreen eq 'DECSS')) { newlines(); viewdecss(); } elsif (($titlescreen eq 'feminism') or ($titlescreen eq 'women') or ($titlescreen eq 'women\'s rights') or ($titlescreen eq '19th ammendment') or ($titlescreen eq 'women\'s vote') or ($titlescreen eq 'FEMINISM') or ($titlescreen eq 'WOMEN') or ($titlescreen eq 'WOMEN\'S RIGHTS') or ($titlescreen eq '19TH AMMENDMENT') or ($titlescreen eq 'WOMEN\'S VOTE')) { newlines(); nowomensrights(); } elsif (($titlescreen eq '-h') or ($titlescreen eq '--help') or ($titlescreen eq 'help') or ($titlescreen eq 'HELP') or ($titlescreen eq 'h') or ($titlescreen eq 'H')) { newlines(); help(); <STDIN>; } 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')) { newlines(); helpkeys(); <STDIN>; } elsif (($titlescreen eq 'highrollerpenguins') or ($titlescreen eq 'HIGHROLLERPENGUINS')) { if ($esegpenguinhrs == 0) { $esegpenguinhrs = 1; } else { $esegpenguinhrs = 0; } } elsif (($titlescreen eq 'twilightdiamonds') or ($titlescreen eq 'TWILIGHTDIAMONDS')) { if ($ngemsymbol == 0) { $ngemsymbol = 1; } else { $ngemsymbol = 0; } } elsif (($titlescreen eq 'overtheocean') or ($titlescreen eq 'OVERTHEOCEAN')) { if ($lvrsetup == 0) { $lvrsetup = 1; } else { $lvrsetup = 0; } } elsif (($titlescreen eq 'futurecarlo') or ($titlescreen eq 'FUTURECARLO')) { $lvrfuturecarlo = 1; } elsif (($titlescreen eq 'oldworldcharm') or ($titlescreen eq 'OLDWORLDCHARM')) { $lvrfuturecarlo = 0; } elsif (($titlescreen eq 'futurevegas') or ($titlescreen eq 'FUTUREVEGAS')) { $rllvrfuturecarlo = 1; } elsif (($titlescreen eq 'oldvegas') or ($titlescreen eq 'OLDVEGAS')) { $rllvrfuturecarlo = 0; } elsif (($titlescreen eq 'bluecraps') or ($titlescreen eq 'BLUECRAPS')) { $ccrapssetup = 0; } elsif (($titlescreen eq 'greencraps') or ($titlescreen eq 'GREENCRAPS')) { $ccrapssetup = 1; } elsif (($titlescreen eq 'cyancraps') or ($titlescreen eq 'CYANCRAPS')) { $ccrapssetup = 2; } elsif (($titlescreen eq 'highrollersevens') or ($titlescreen eq 'HIGHROLLERSEVENS')) { $esegpenguinhrs = 0; } elsif (($titlescreen eq 'twilightemeralds') or ($titlescreen eq 'TWILIGHTEMERALDS')) { $ngemsymbol = 0; } elsif (($titlescreen eq 'oldguard') or ($titlescreen eq 'OLDGUARD')) { $ruskieold = 1; } elsif (($titlescreen eq 'newguard') or ($titlescreen eq 'NEWGUARD')) { $ruskieold = 0; } elsif (($titlescreen eq 'lightsout') or ($titlescreen eq 'LIGHTSOUT')) { colorset_lightsout(); } elsif (($titlescreen eq 'lightson') or ($titlescreen eq 'LIGHTSON')) { colorset_normal(); } elsif (($titlescreen eq 'wedidnthavecolor') or ($titlescreen eq 'WEDIDNTHAVECOLOR')) { colorset_blackwhite(); } elsif (($titlescreen eq 'gammarayburst') or ($titlescreen eq 'GAMMARAYBURST')) { colorset_inverse(); } elsif (($titlescreen eq 'dulltimes') or ($titlescreen eq 'DULLTIMES')) { colorset_dull(); } elsif (($titlescreen eq 'brighttimes') or ($titlescreen eq 'BRIGHTTIMES')) { colorset_bright(); } elsif (($titlescreen eq 'nightofthelivingdead') or ($titlescreen eq 'NIGHTOFTHELIVINGDEAD')) { colorset_notld(); } else { @ARGV = $titlescreen; commandargs(); } return; } sub viewdecss { print colored(' BEHOLD ALL YEE WHOM ENTER! ILLEGAL PRIME NUMBER OF DECSS FROM EFDTT.C: ',"$boldyellow on_$bgcblack"); print"\n"; print colored(' ',"$boldyellow on_$bgcblack"); print"\n"; print colored(' 9454 7005113906 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 4445500929 6776927869 3366458905 0222897871 4950867838 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 0500658547 1078776889 6313320081 6447475865 9031815003 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 9822306942 1701682469 8468953527 7506293328 0780994198 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 5641052653 3345462508 4314006874 6551409510 2042852544 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 1264820432 9860820006 7866922287 2721350789 7567520105 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 6069007944 6509850383 1481013904 8399479601 6226100635 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 3638384224 3246104161 3899207128 5187220887 2165636447 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 9923851594 8762313652 6386601309 8356062871 2571853106 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 5809023364 7322143645 8421842236 2536427009 5557239142 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 1165512411 2039883768 2243428924 2349301261 7418161246 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 3034415778 2839809597 6436852468 9078864161 4306545276 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 8956715245 9477708733 4644014469 5871931815 7608776778 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 2573341499 4188265086 0668841859 9672379789 3766678068 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 2566994676 0998769793 4508344702 2603175841 3304926144 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 6761328219 9729121409 9335596945 7407499011 1540914866 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 1355366182 1056035804 0014112275 1532956922 4393582188 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 9493881197 1105655941 1852982478 7238592254 0525772073 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' 4123557637 2341117844 3887252022 3019576406 0843081469 ',"$decsscolor on_$bgcblack"); print"\n"; print colored(' ',"$boldyellow on_$bgcblack"); print"\n"; print colored('"Suppose you were to take a variant of efdtt.c, a program that will allow you to',"$boldyellow on_$bgcblack"); print"\n"; print colored(' play a DVD on a computer, and then convert each character in the code to its ',"$boldyellow on_$bgcblack"); print"\n"; print colored(' 7-bit ascii equivalent (the code contains standard characters, so the eight or ',"$boldyellow on_$bgcblack"); print"\n"; print colored('leading bit is zero). Finally, view this string of bits as a single number. What',"$boldyellow on_$bgcblack"); print"\n"; print colored(' do you get? This illegal prime!" ',"$boldyellow on_$bgcblack"); print"\n"; print colored(' This number was found to be a probable prime by Charles M. Hannum and proven ',"$boldblack on_$bgcblack"); print"\n"; print colored(' prime by Phil Carmody ',"$boldblack on_$bgcblack"); print"\n"; print color 'black'; $placeholder = <STDIN>; chomp($placeholder); print color 'reset'; return; } sub nowomensrights { print colored('>>>>ABEVTUGFSBEJBZRANYYYVOREGVRFSBEZRA>>>>ABEVTUGFSBEJBZRANYYYVOREGVRFSBEZRA>>>>',"$boldblack on_$bgcblack"); print"\n"; print colored('Just Say No To Women\'s Rights ',"$boldred on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$red on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$boldred on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$red on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$boldred on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$red on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$boldred on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$red on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$boldred on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$red on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$boldred on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$red on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$boldred on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights',"$red on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$boldred on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$red on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$boldred on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$red on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$boldred on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$red on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$boldred on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$red on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$boldred on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$red on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$boldred on_$bgcblack"); print"\n"; print colored(' Just Say No To Women\'s Rights ',"$red on_$bgcblack"); print"\n"; print colored('Just Say No To Women\'s Rights ',"$boldred on_$bgcblack"); print"\n"; print colored('>>>>ABEVTUGFSBEJBZRANYYYVOREGVRFSBEZRA>>>>ABEVTUGFSBEJBZRANYYYVOREGVRFSBEZRA>>>>',"$boldblack on_$bgcblack"); print"\n"; print color 'black'; $placeholder = <STDIN>; chomp($placeholder); print color 'reset'; return; } sub ptracker { if ($playtrack == 1) { push @ptracker, "$money"; } else { ##Nothing } if ($banksavmoney > 0) { cmpndschedule(); if ($banksavingintvl >= $banksavcpndintvl) { computesverte(); $banksavintrst = ($banksavmoney * $banksavrte); $banksavmoney = $banksavmoney + $banksavintrst; ##Below we track the interest earned and reset the interval timer $banksavintrsttrk = $banksavintrsttrk + $banksavintrst; $banksavecrintsttrk = $banksavecrintsttrk + $banksavintrst; $banksavingintvl = 0; } else { $banksavingintvl = $banksavingintvl + 1; } } stockmarket(); } sub computesverte { #What to pay each compound interval. #This differs depending on if the interval is larger or smaller than #the period (annum) (How often untill account gets full x% interest payed to it. $banksavrte = $banktruesavrte * ($banksavcpndintvl/$banksavperiod); if ($banksavrte > $banktruesavrte) { $banksavrte = $banktruesavrte; #If the computed per-interval-period interest rate goes above #the true interest rate, even though that is the amount that is due #we will discount it down to the true interest rate and treat #the compound-interval as the pay period. } ##print"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n"; ##print "$banksavrte".' = '."$banktruesavrte".' * ('."$banksavcpndintvl".'/'."$banksavperiod".')'."\n"; } sub cmpndschedule { $oldbanksavcpndintvl == $banksavcpndintvl; if ($banksavmoney >= 1000000000) { $banksavcpndintvl = 15; $banktruesavrte = 0.09; } elsif ($banksavmoney >= 100000000) { $banksavcpndintvl = 20; $banktruesavrte = 0.085; } elsif ($banksavmoney >= 10000000) { $banksavcpndintvl = 25; $banktruesavrte = 0.08; } elsif ($banksavmoney >= 5000000) { $banksavcpndintvl = 30; $banktruesavrte = 0.075; } elsif ($banksavmoney >= 2500000) { $banksavcpndintvl = 40; $banktruesavrte = 0.07; } elsif ($banksavmoney >= 1000000) { $banksavcpndintvl = 50; $banktruesavrte = 0.065; } elsif ($banksavmoney >= 500000) { $banksavcpndintvl = 100; $banktruesavrte = 0.06; } elsif ($banksavmoney >= 250000) { $banksavcpndintvl = 125; $banktruesavrte = 0.055; } elsif ($banksavmoney >= 100000) { $banksavcpndintvl = 150; $banktruesavrte = 0.05; } elsif ($banksavmoney >= 10000) { $banksavcpndintvl = 200; $banktruesavrte = 0.045; } elsif ($banksavmoney >= 7500) { $banksavcpndintvl = 500; $banktruesavrte = 0.04; } elsif ($banksavmoney >= 5000) { $banksavcpndintvl = 700; $banktruesavrte = 0.03; } elsif ($banksavmoney >= 2500) { $banksavcpndintvl = 1000; $banktruesavrte = 0.03; } elsif ($banksavmoney >= 1000) { $banksavcpndintvl = 2000; $banktruesavrte = 0.03; } elsif ($banksavmoney >= 750) { $banksavcpndintvl = 5000; $banktruesavrte = 0.03; } elsif ($banksavmoney >= 500) { $banksavcpndintvl = 7500; $banktruesavrte = 0.03; } elsif ($banksavmoney >= 250) { $banksavcpndintvl = 10000; $banktruesavrte = 0.03; } elsif ($banksavmoney >= 100) { $banksavcpndintvl = 50000; $banktruesavrte = 0.03; } elsif ($banksavmoney >= 75) { $banksavcpndintvl = 100000; $banktruesavrte = 0.03; } elsif ($banksavmoney >= 50) { $banksavcpndintvl = 500000; $banktruesavrte = 0.03; } elsif ($banksavmoney >= 25) { $banksavcpndintvl = 750000; $banktruesavrte = 0.03; } elsif ($banksavmoney >= 15) { $banksavcpndintvl = 1000000; $banktruesavrte = 0.03; } elsif ($banksavmoney >= 10) { $banksavcpndintvl = 5000000; $banktruesavrte = 0.03; } elsif ($banksavmoney >= 5) { $banksavcpndintvl = 10000000; $banktruesavrte = 0.03; } else { $banksavcpndintvl = 10000000; $banktruesavrte = 0.03; } ##If we have switched to a better (smaller) interval period, we reset the timer. if ($banksavcpndintvl < $oldbanksavcpndintvl) { if ($banksavingintvl >= $banksavcpndintvl) { ##If time left to compound interest is greater or equal ##to the new compound interest period, we reset the timer. $banksavingintvl = 0; } else { ##If the time left to compound the interest is less that ##the new compound interest period: ##Do nothing. It is in the best interest of the client ##that he keep his current interval time. } } } sub stockmarket { if ($stockcortick >= $stockcorset) { ##Time to reevaluate the market stockmarketset(); $stockcortick = 0; } fundretail(); fundindustry(); fundtech(); fundenergy(); fundtextile(); fundinvestment(); fundlending(); fundconstruction(); fundmining(); fundindex(); if ($stockmarketdebug == 1) { print "$stockmarketwhole\n"; print "$stockcortick".' of '."$stockcorset\n"; } $stocktick = $stocktick + 1; $stockcortick = $stockcortick + 1; } sub stockmarketinit { $stocktcst = 10; #Flat fee for each buy. $stocktcom = 0.10; #Plus commission percentage. $stocktcstsl = 6; #Flat fee for each sale. $stocktax = 0.05; #Cap-gains tax. $stocktick = 0; #Stock market clock. $stockcortick = 0; #Market correction tick $stockcorset = int(rand(100000)) + 5000; #How many ticks before market correction? @stockmarketwholetypes = ('volatile', 'mid', 'okgood', 'okbad', 'good', 'bad', 'great', 'terrible',); stockmarketset(); #Set what kind of market we're in (Bull, Bear, Neither, MegaBull, Incredi-Bear $stockbuff0 = ''; $stockbuff1 = ''; $stockbuff2 = ''; $stockbuff3 = ''; $stockmarketdebug = 0; #Print Stockmarket info on each turn? ##Retail Stocks Fund $fundretailshares = 0; #Shares player owns of fund. $fundretailsharevalue = rand(100); #Value of each share. $fundretailmode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly. $fundretailmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; @fundretailtracker = ("$fundretailsharevalue"); $fundretailcortick = 0; $fundretailcorset = int(rand(10000)) + 500; #How many ticks before sector correction? ##Industrial Stocks Fund $fundindustryshares = 0; #Shares player owns of fund. $fundindustrysharevalue = rand(200); #Value of each share. $fundindustrymode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly. $fundindustrymarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; @fundindustrytracker = ("$fundindustrysharevalue"); $fundindustrycortick = 0; $fundindustrycorset = int(rand(50000)) + 5000; #How many ticks before sector correction? ##Tech Stock Fund $fundtechshares = 0; #Shares player owns of fund. $fundtechsharevalue = rand(300); #Value of each share. $fundtechmode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly. $fundtechmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; @fundtechtracker = ("$fundtechsharevalue"); $fundtechcortick = 0; $fundtechcorset = int(rand(1000)) + 100; #How many ticks before sector correction? ##Energy Stock $fundenergyshares = 0; #Shares player owns of fund. $fundenergysharevalue = rand(1000); #Value of each share. $fundenergymode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly. $fundenergymarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; @fundenergytracker = ("$fundenergysharevalue"); $fundenergycortick = 0; $fundenergycorset = int(rand(10000)) + 1000; #How many ticks before sector correction? ##Textile Stocks Fund $fundtextileshares = 0; #Shares player owns of fund. $fundtextilesharevalue = rand(40); #Value of each share. $fundtextilemode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly. $fundtextilemarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; @fundtextiletracker = ("$fundtextilesharevalue"); $fundtextilecortick = 0; $fundtextilecorset = int(rand(3000)) + 1000; #How many ticks before sector correction? ##Investement Bank Stocks Fund $fundinvestmentshares = 0; #Shares player owns of fund. $fundinvestmentsharevalue = rand(2000); #Value of each share. $fundinvestmentmode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly. $fundinvestmentmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; @fundinvestmenttracker = ("$fundinvestmentsharevalue"); $fundinvestmentcortick = 0; $fundinvestmentcorset = int(rand(1000)) + 300; #How many ticks before sector correction? ##Lending Institution Stocks Fund $fundlendingshares = 0; #Shares player owns of fund. $fundlendingsharevalue = rand(100); #Value of each share. $fundlendingmode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly. $fundlendingmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; @fundlendingtracker = ("$fundlendingsharevalue"); $fundlendingcortick = 0; $fundlendingcorset = int(rand(5000)) + 2000; #How many ticks before sector correction? ##Construction Stocks Fund $fundconstructionshares = 0; #Shares player owns of fund. $fundconstructionsharevalue = rand(100); #Value of each share. $fundconstructionmode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly. $fundconstructionmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; @fundconstructiontracker = ("$fundconstructionsharevalue"); $fundconstructioncortick = 0; $fundconstructioncorset = int(rand(1000)) + 1000; #How many ticks before sector correction? ##Mining Stocks Fund $fundminingshares = 0; #Shares player owns of fund. $fundminingsharevalue = rand(100000); #Value of each share. $fundminingmode = int(rand(2)+4); # What mode the fund is in, gaining or losing, how badly. $fundminingmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; @fundminingtracker = ("$fundminingsharevalue"); $fundminingcortick = 0; $fundminingcorset = int(rand(2500)) + 500; #How many ticks before sector correction? ##Index Fund #Originally: 50000000000, 50000000000, 200000000000 if ($money >= 10000000000000000000000000000000000000000000000000) { $fundindexinvestper = int(rand(50000000000000000000000000000000000000000000000000000000)) + 50000000000000000000000000000000000000000000000000000000; #How much the index fund invests into each sector $fundnrmlz = int(rand(200000000000000000000000000000000000000000000000000000000)); #How much to divide the final number by to get initial share price } elsif ($money >= 10000000000000000000000000000000000000000000000) { $fundindexinvestper = int(rand(50000000000000000000000000000000000000000000000000000)) + 50000000000000000000000000000000000000000000000000000; #How much the index fund invests into each sector $fundnrmlz = int(rand(200000000000000000000000000000000000000000000000000000)); #How much to divide the final number by to get initial share price } elsif ($money >= 10000000000000000000000000000000000000000000) { $fundindexinvestper = int(rand(50000000000000000000000000000000000000000000000000)) + 50000000000000000000000000000000000000000000000000; #How much the index fund invests into each sector $fundnrmlz = int(rand(200000000000000000000000000000000000000000000000000)); #How much to divide the final number by to get initial share price } elsif ($money >= 10000000000000000000000000000000000000000) { $fundindexinvestper = int(rand(50000000000000000000000000000000000000000000000)) + 50000000000000000000000000000000000000000000000; #How much the index fund invests into each sector $fundnrmlz = int(rand(200000000000000000000000000000000000000000000000)); #How much to divide the final number by to get initial share price } elsif ($money >= 10000000000000000000000000000000000000) { $fundindexinvestper = int(rand(50000000000000000000000000000000000000000000)) + 50000000000000000000000000000000000000000000; #How much the index fund invests into each sector $fundnrmlz = int(rand(200000000000000000000000000000000000000000000)); #How much to divide the final number by to get initial share price } elsif ($money >= 10000000000000000000000000000000000) { $fundindexinvestper = int(rand(50000000000000000000000000000000000000000)) + 50000000000000000000000000000000000000000; #How much the index fund invests into each sector $fundnrmlz = int(rand(200000000000000000000000000000000000000000)); #How much to divide the final number by to get initial share price } elsif ($money >= 10000000000000000000000000000000) { $fundindexinvestper = int(rand(50000000000000000000000000000000000000)) + 50000000000000000000000000000000000000; #How much the index fund invests into each sector $fundnrmlz = int(rand(200000000000000000000000000000000000000)); #How much to divide the final number by to get initial share price } elsif ($money >= 10000000000000000000000000000) { $fundindexinvestper = int(rand(50000000000000000000000000000000000)) + 50000000000000000000000000000000000; #How much the index fund invests into each sector $fundnrmlz = int(rand(200000000000000000000000000000000000)); #How much to divide the final number by to get initial share price } elsif ($money >= 10000000000000000000000000) { $fundindexinvestper = int(rand(50000000000000000000000000000000)) + 50000000000000000000000000000000; #How much the index fund invests into each sector $fundnrmlz = int(rand(200000000000000000000000000000000)); #How much to divide the final number by to get initial share price } elsif ($money >= 10000000000000000000000) { $fundindexinvestper = int(rand(50000000000000000000000000000)) + 50000000000000000000000000000; #How much the index fund invests into each sector $fundnrmlz = int(rand(200000000000000000000000000000)); #How much to divide the final number by to get initial share price } elsif ($money >= 10000000000000000000) { $fundindexinvestper = int(rand(50000000000000000000000000)) + 50000000000000000000000000; #How much the index fund invests into each sector $fundnrmlz = int(rand(200000000000000000000000000)); #How much to divide the final number by to get initial share price } elsif ($money >= 10000000000000000) { $fundindexinvestper = int(rand(50000000000000000000000)) + 50000000000000000000000; #How much the index fund invests into each sector $fundnrmlz = int(rand(200000000000000000000000)); #How much to divide the final number by to get initial share price } elsif ($money >= 10000000000000) { $fundindexinvestper = int(rand(50000000000000000000)) + 50000000000000000000; #How much the index fund invests into each sector $fundnrmlz = int(rand(200000000000000000000)); #How much to divide the final number by to get initial share price } elsif ($money >= 10000000000) { $fundindexinvestper = int(rand(50000000000000000)) + 50000000000000000; #How much the index fund invests into each sector $fundnrmlz = int(rand(200000000000000000)); #How much to divide the final number by to get initial share price } else { $fundindexinvestper = int(rand(50000000000)) + 50000000000; #How much the index fund invests into each sector $fundnrmlz = int(rand(200000000000)); #How much to divide the final number by to get initial share price } $fundindexretail = floor($fundindexinvestper/$fundretailsharevalue); #How many shares of a sector the fund has purchased at the begining. $fundindexindustry = floor($fundindexinvestper/$fundindustrysharevalue); $fundindextech = floor($fundindexinvestper/$fundtechsharevalue); $fundindexenergy = floor($fundindexinvestper/$fundenergysharevalue); $fundindextextile = floor($fundindexinvestper/$fundtextilesharevalue); $fundindexinvestment = floor($fundindexinvestper/$fundinvestmentsharevalue); $fundindexlending = floor($fundindexinvestper/$fundlendingsharevalue); $fundindexconstruction = floor($fundindexinvestper/$fundconstructionsharevalue); $fundindexmining = floor($fundindexinvestper/$fundminingsharevalue); $fundindexshares = 0; fundindexvalue(); fundindexinitvalue(); @fundindextracker = ("$fundindexsharevalue"); $fundindexcortick = 0; } sub fundretail { if ($fundretailcortick >= $fundretailcorset) { ##Time to reevaluate the sector. $fundretailmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; $fundretailcortick = 0; } $stockbuff0 = $fundretailmode; if (2 >= $fundlendingmode) { $fundretailmode = $fundretailmode - 1; if (0 >= $fundretailmode) { $fundretailmode = 0; } #If Lending is down, retail is down. } if ($fundlendingmode >= 8) { $fundretailmode = $fundretailmode + int(rand(2)) + 1; if ($fundretailmode >= 10) { $fundretailmode = 10; } #If Lending is up, retail is up. } sharevalue(); #Writes to $stockbuff1 $stockbuff2 = $fundretailmarket; fundmode(); #Writes to $stockbuff0 $fundretailsharevalue = $fundretailsharevalue * ($stockbuff1); $fundretailmode = $stockbuff0; push @fundretailtracker, "$fundretailsharevalue"; if ($stockmarketdebug == 1) { print "Retail\n"; print "$fundretailsharevalue\n"; print "$fundretailmode\n"; print "$fundretailmarket\n"; print "$fundretailcorset\n\n"; } } sub fundindustry { if ($fundindustrycortick >= $fundindustrycorset) { ##Time to reevaluate the sector. $fundindustrymarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; $fundindustrycortick = 0; } $stockbuff0 = $fundindustrymode; sharevalue(); #Writes to $stockbuff1 $stockbuff2 = $fundindustrymarket; fundmode(); #Writes to $stockbuff0 $fundindustrysharevalue = $fundindustrysharevalue * ($stockbuff1); $fundindustrymode = $stockbuff0; push @fundindustrytracker, "$fundindustrysharevalue"; if ($stockmarketdebug == 1) { print "$fundindustrysharevalue\n"; print "$fundindustrymode\n"; print "$fundindustrymarket\n"; print "$fundindustrycorset\n\n"; } } sub fundtech { if ($fundtechcortick >= $fundtechcorset) { ##Time to reevaluate the sector. $fundtechmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; $fundtechcortick = 0; } $stockbuff0 = $fundtechmode; sharevalue(); #Writes to $stockbuff1 $stockbuff2 = $fundtechmarket; fundmode(); #Writes to $stockbuff0 $fundtechsharevalue = $fundtechsharevalue * ($stockbuff1); $fundtechmode = $stockbuff0; push @fundtechtracker, "$fundtechsharevalue"; if ($stockmarketdebug == 1) { print "Tech\n"; print "$fundtechsharevalue\n"; print "$fundtechmode\n"; print "$fundtechmarket\n"; print "$fundtechcorset\n\n"; } } sub fundenergy { if ($fundenergycortick >= $fundenergycorset) { ##Time to reevaluate the sector. $fundenergymarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; $fundenergycortick = 0; } $stockbuff0 = $fundenergymode; sharevalue(); #Writes to $stockbuff1 $stockbuff2 = $fundenergymarket; fundmode(); #Writes to $stockbuff0 $fundenergysharevalue = $fundenergysharevalue * ($stockbuff1); $fundenergymode = $stockbuff0; push @fundenergytracker, "$fundenergysharevalue"; if ($stockmarketdebug == 1) { print "Energy\n"; print "$fundenergysharevalue\n"; print "$fundenergymode\n"; print "$fundenergymarket\n"; print "$fundenergycorset\n\n"; } } sub fundtextile { if ($fundtextilecortick >= $fundtextilecorset) { ##Time to reevaluate the sector. $fundtextilemarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; $fundtextilecortick = 0; } $stockbuff0 = $fundtextilemode; sharevalue(); #Writes to $stockbuff1 $stockbuff2 = $fundtextilemarket; fundmode(); #Writes to $stockbuff0 $fundtextilesharevalue = $fundtextilesharevalue * ($stockbuff1); $fundtextilemode = $stockbuff0; push @fundtextiletracker, "$fundtextilesharevalue"; if ($stockmarketdebug == 1) { print "Textile\n"; print "$fundtextilesharevalue\n"; print "$fundtextilemode\n"; print "$fundtextilemarket\n"; print "$fundtextilecorset\n\n"; } } sub fundinvestment { if ($fundinvestmentcortick >= $fundinvestmentcorset) { ##Time to reevaluate the sector. $fundinvestmentmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; $fundinvestmentcortick = 0; } $stockbuff0 = $fundinvestmentmode; sharevalue(); #Writes to $stockbuff1 $stockbuff2 = $fundinvestmentmarket; fundmode(); #Writes to $stockbuff0 $fundinvestmentsharevalue = $fundinvestmentsharevalue * ($stockbuff1); $fundinvestmentmode = $stockbuff0; push @fundinvestmenttracker, "$fundinvestmentsharevalue"; if ($stockmarketdebug == 1) { print "Investment\n"; print "$fundinvestmentsharevalue\n"; print "$fundinvestmentmode\n"; print "$fundinvestmentmarket\n"; print "$fundinvestmentcorset\n\n"; } } sub fundlending { if ($fundlendingcortick >= $fundlendingcorset) { ##Time to reevaluate the sector. $fundlendingmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; $fundlendingcortick = 0; } $stockbuff0 = $fundlendingmode; sharevalue(); #Writes to $stockbuff1 $stockbuff2 = $fundlendingmarket; fundmode(); #Writes to $stockbuff0 $fundlendingsharevalue = $fundlendingsharevalue * ($stockbuff1); $fundlendingmode = $stockbuff0; push @fundlendingtracker, "$fundlendingsharevalue"; if ($stockmarketdebug == 1) { print "Lending\n"; print "$fundlendingsharevalue\n"; print "$fundlendingmode\n"; print "$fundlendingmarket\n"; print "$fundlendingcorset\n\n"; } } sub fundconstruction { if ($fundconstructioncortick >= $fundconstructioncorset) { ##Time to reevaluate the sector. $fundconstructionmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; $fundconstructioncortick = 0; } $stockbuff0 = $fundconstructionmode; if (2 >= $fundlendingmode) { $fundconstructionmode = $fundconstructionmode - int(rand(2)) + 1; if (0 >= $fundconstructionmode) { $fundconstructionmode = 0; } #If Lending is down, construction is down. } if ($fundlendingmode >= 9) { $fundconstructionmode = $fundconstructionmode + 1; if ($fundconstructionmode >= 10) { $fundconstructionmode = 10; } #If Lending is REALLY up, construction is up. } sharevalue(); #Writes to $stockbuff1 $stockbuff2 = $fundconstructionmarket; fundmode(); #Writes to $stockbuff0 $fundconstructionsharevalue = $fundconstructionsharevalue * ($stockbuff1); $fundconstructionmode = $stockbuff0; push @fundconstructiontracker, "$fundconstructionsharevalue"; if ($stockmarketdebug == 1) { print "Construction\n"; print "$fundconstructionsharevalue\n"; print "$fundconstructionmode\n"; print "$fundconstructionmarket\n"; print "$fundconstructioncorset\n\n"; } } sub fundmining { if ($fundminingcortick >= $fundminingcorset) { ##Time to reevaluate the sector. $fundminingmarket = @stockmarkettypes[(int(rand(@stockmarkettypes)))]; $fundminingcortick = 0; } $stockbuff0 = $fundminingmode; if ((2 >= $fundlendingmode) and ($fundinvestmentmode >= 7)) { $fundminingmode = $fundminingmode + 1; if ($fundminingmode >= 10) { $fundminingmode = 10; } #If Lending is down, but investment is somewhat up, mining is up. } if ($fundindustrymode >= 8) { $fundminingmode = $fundminingmode + int(rand(2)) + 1; if ($fundminingmode >= 10) { $fundminingmode = 10; } #If Industry is up, mining is up. } if ((2 >= $fundlendingmode) and (3 >= $fundretailmode)) { $fundminingmode = $fundminingmode - 1; if (0 >= $fundminingmode) { $fundminingmode = 0; } #If Lending is down, and retail is somewhat down, mining is down. if (2 >= $fundinvestmentmode) { $fundminingmode = $fundminingmode - 1; if (0 >= $fundminingmode) { $fundminingmode = 0; } #If Investment is down aswell, mining is more depressed #(only gold mining would be up, most other mining down) } } sharevalue(); #Writes to $stockbuff1 $stockbuff2 = $fundminingmarket; fundmode(); #Writes to $stockbuff0 $fundminingsharevalue = $fundminingsharevalue * ($stockbuff1); $fundminingmode = $stockbuff0; push @fundminingtracker, "$fundminingsharevalue"; if ($stockmarketdebug == 1) { print "Mining\n"; print "$fundminingsharevalue\n"; print "$fundminingmode\n"; print "$fundminingmarket\n"; print "$fundminingcorset\n\n"; } } sub fundindex { fundindexvalue(); push @fundindextracker, "$fundindexsharevalue"; if ($stockmarketdebug == 1) { print "Index::\n"; print "$fundindexsharevalue\n"; print "$fundindexcortick\n\n"; print "$fundindexretail\n" ."$fundindexindustry\n" ."$fundindextech\n" ."$fundindexenergy\n" ."$fundindextextile\n" ."$fundindexinvestment\n" ."$fundindexlending\n" ."$fundindexconstruction\n" ."$fundindexmining\n"; } } sub fundindexvalue { $fundindexsharevalue = ((($fundindexretail * $fundretailsharevalue) + ($fundindexindustry * $fundindustrysharevalue) + ($fundindextech * $fundtechsharevalue) + ($fundindexenergy * $fundenergysharevalue) + ($fundindextextile * $fundtextilesharevalue) + ($fundindexinvestment * $fundinvestmentsharevalue) + ($fundindexlending * $fundlendingsharevalue) + ($fundindexconstruction * $fundconstructionsharevalue) + ($fundindexmining * $fundminingsharevalue)) / $fundnrmlz); } sub fundindexinitvalue { #Just Records the inital value of these @fundindexvalueinit = (($fundindexretail * $fundretailsharevalue), ($fundindexindustry * $fundindustrysharevalue), ($fundindextech * $fundtechsharevalue), ($fundindexenergy * $fundenergysharevalue), ($fundindextextile * $fundtextilesharevalue), ($fundindexinvestment * $fundinvestmentsharevalue), ($fundindexlending * $fundlendingsharevalue), ($fundindexconstruction * $fundconstructionsharevalue), ($fundindexmining * $fundminingsharevalue)); if ($stockmarketdebug == 1) { foreach (@fundindexvalueinit) { print"!!!!!!!!!!!!!!!!!!!!! $_ \n" } } } sub stockmarketset { $stockmarketwhole = @stockmarketwholetypes[(int(rand(@stockmarketwholetypes)))]; if($stockmarketwhole eq 'volatile') { @stockmarkettypes = ('midmarket', 'upmarket', 'downmarket',); } elsif($stockmarketwhole eq 'mid') { @stockmarkettypes = ('midmarket', 'midmarket', 'midmarket', 'midmarket', 'midmarket', 'midmarket', 'upmarket', 'upmarket', 'downmarket', 'downmarket',); } elsif($stockmarketwhole eq 'okgood') { @stockmarkettypes = ('midmarket', 'midmarket', 'midmarket', 'midmarket', 'midmarket', 'midmarket', 'midmarket', 'upmarket', 'upmarket', 'upmarket', 'downmarket', 'downmarket',); } elsif($stockmarketwhole eq 'okbad') { @stockmarkettypes = ('midmarket', 'midmarket', 'midmarket', 'midmarket', 'midmarket', 'midmarket', 'midmarket', 'upmarket', 'upmarket', 'downmarket', 'downmarket', 'downmarket',); } elsif($stockmarketwhole eq 'good') { @stockmarkettypes = ('midmarket', 'midmarket', 'midmarket', 'midmarket', 'upmarket', 'upmarket', 'upmarket', 'downmarket',); } elsif($stockmarketwhole eq 'bad') { @stockmarkettypes = ('midmarket', 'midmarket', 'midmarket', 'midmarket', 'upmarket', 'downmarket', 'downmarket', 'downmarket', 'downmarket',); } elsif($stockmarketwhole eq 'great') { @stockmarkettypes = ('midmarket', 'midmarket', 'midmarket', 'midmarket', 'upmarket', 'upmarket', 'upmarket', 'upmarket', 'upmarket', 'downmarket', 'downmarket',); } elsif($stockmarketwhole eq 'terrible') { @stockmarkettypes = ('midmarket', 'midmarket', 'midmarket', 'downmarket', 'downmarket', 'downmarket', 'downmarket', 'upmarket', 'downmarket', 'downdownmarket', 'downdownmarket',); } else { @stockmarkettypes = ('midmarket', 'midmarket', 'midmarket',); } } sub sharevalue { ##Decideds if stock value will go up or down. if ($stockbuff0 == 0) { $stockbuff1 = ((0.9999) - (rand(0.0005))); } elsif ($stockbuff0 == 1) { $stockbuff1 = ((1) - (rand(0.0005))); } elsif ($stockbuff0 == 2) { $stockbuff1 = ((1) - (rand(0.0004))); } elsif ($stockbuff0 == 3) { $stockbuff1 = ((1) - (rand(0.0003))); } elsif ($stockbuff0 == 4) { $stockbuff1 = ((1) - (rand(0.0002))); } elsif ($stockbuff0 == 5) { #Midpoint $stockbuff1 = (rand(0.0002))+(0.9999); #Midpoint } elsif ($stockbuff0 == 6) { $stockbuff1 = (rand(0.0002))+(1); } elsif ($stockbuff0 == 7) { $stockbuff1 = (rand(0.0003))+(1); } elsif ($stockbuff0 == 8) { $stockbuff1 = (rand(0.0004))+(1); } elsif ($stockbuff0 == 9) { $stockbuff1 = (rand(0.0005))+(1); } elsif ($stockbuff0 == 10) { $stockbuff1 = (rand(0.0005))+(1.0001); } else { ##Shouldn't Happen $stockbuff1 = (rand(0.0002))+(0.9999); #Midpoint } } sub fundmode { if ($stockbuff2 eq 'midmarket') { midmarket(); } elsif ($stockbuff2 eq 'upmarket') { upmarket(); } elsif ($stockbuff2 eq 'downmarket') { downmarket(); } elsif ($stockbuff2 eq 'upupmarket') { upupmarket(); } elsif ($stockbuff2 eq 'downdownmarket') { downdownmarket(); } else { midmarket(); } $stockbuff0 = @stockbuffa0[(int(rand(@stockbuffa0)))]; ##Just incase, Shouldn't be needed. if ($stockbuff0 > 10) { $stockbuff0 == 10; } elsif ($stockbuff0 < 0) { $stockbuff0 == 0; } } sub midmarket { #Decides if fund will enter new mode. $stockbuff2 = ($stockbuff0 - 1); $stockbuff3 = ($stockbuff0 + 1); if ($stockbuff0 == 0) { @stockbuffa0 = ("$stockbuff3", "$stockbuff3", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff3", "$stockbuff3"); } elsif ($stockbuff0 == 10) { @stockbuffa0 = ("$stockbuff2", "$stockbuff2", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff2", "$stockbuff2"); } elsif (($stockbuff0 == 1) or ($stockbuff0 == 9)) { @stockbuffa0 = ("$stockbuff2", "$stockbuff2", "$stockbuff2", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff3", "$stockbuff3", "$stockbuff3"); } else { @stockbuffa0 = ("$stockbuff2", "$stockbuff2", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff3", "$stockbuff3"); } } sub downmarket { #Decides if fund will enter new mode. $stockbuff2 = ($stockbuff0 - 1); $stockbuff3 = ($stockbuff0 + 1); if ($stockbuff0 == 0) { @stockbuffa0 = ("$stockbuff3", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff3"); } elsif ($stockbuff0 == 10) { @stockbuffa0 = ("$stockbuff2", "$stockbuff2", "$stockbuff2", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff2", "$stockbuff2", "$stockbuff2"); } elsif (($stockbuff0 == 1) or ($stockbuff0 == 9)) { @stockbuffa0 = ("$stockbuff2", "$stockbuff2", "$stockbuff2", "$stockbuff2", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff3", "$stockbuff3", "$stockbuff3"); } else { @stockbuffa0 = ("$stockbuff2", "$stockbuff2", "$stockbuff2", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff3", "$stockbuff3"); } } sub upmarket { #Decides if fund will enter new mode. $stockbuff2 = ($stockbuff0 - 1); $stockbuff3 = ($stockbuff0 + 1); if ($stockbuff0 == 0) { @stockbuffa0 = ("$stockbuff3", "$stockbuff3", "$stockbuff3", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff3", "$stockbuff3", "$stockbuff3"); } elsif ($stockbuff0 == 10) { @stockbuffa0 = ("$stockbuff2", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff2"); } elsif (($stockbuff0 == 1) or ($stockbuff0 == 9)) { @stockbuffa0 = ("$stockbuff2", "$stockbuff2", "$stockbuff2", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff3", "$stockbuff3", "$stockbuff3", "$stockbuff3"); } else { @stockbuffa0 = ("$stockbuff2", "$stockbuff2", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff3", "$stockbuff3", "$stockbuff3"); } } sub downdownmarket { #Decides if fund will enter new mode. $stockbuff2 = ($stockbuff0 - 1); $stockbuff3 = ($stockbuff0 + 1); if ($stockbuff0 == 0) { @stockbuffa0 = ("$stockbuff3", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff3"); } elsif ($stockbuff0 == 10) { @stockbuffa0 = ("$stockbuff2", "$stockbuff2", "$stockbuff2", "$stockbuff2", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff2", "$stockbuff2", "$stockbuff2", "$stockbuff2"); } elsif (($stockbuff0 == 1) or ($stockbuff0 == 9)) { @stockbuffa0 = ("$stockbuff2", "$stockbuff2", "$stockbuff2", "$stockbuff2", "$stockbuff2", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff3", "$stockbuff3", "$stockbuff3"); } else { @stockbuffa0 = ("$stockbuff2", "$stockbuff2", "$stockbuff2", "$stockbuff2", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff3", "$stockbuff3"); } } sub upupmarket { #Decides if fund will enter new mode. $stockbuff2 = ($stockbuff0 - 1); $stockbuff3 = ($stockbuff0 + 1); if ($stockbuff0 == 0) { @stockbuffa0 = ("$stockbuff3", "$stockbuff3", "$stockbuff3", "$stockbuff3", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff3", "$stockbuff3", "$stockbuff3", "$stockbuff3"); } elsif ($stockbuff0 == 10) { @stockbuffa0 = ("$stockbuff2", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff2"); } elsif (($stockbuff0 == 1) or ($stockbuff0 == 9)) { @stockbuffa0 = ("$stockbuff2", "$stockbuff2", "$stockbuff2", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff3", "$stockbuff3", "$stockbuff3", "$stockbuff3", "$stockbuff3"); } else { @stockbuffa0 = ("$stockbuff2", "$stockbuff2", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff0", "$stockbuff3", "$stockbuff3", "$stockbuff3", "$stockbuff3"); } } ################################################################################################################################ ## GENRE: Slot Mahine ## NAME: House Rules Reel Deal ## AUTHOR: MikeeUSA sub main { resethrvars(); spinreel(); reeltrans(); #print"$hrrandnums\n"; #<-- Used for testing purposes, keep commented out <-- $x = "$svslot1"."$svslot2"."$svslot3"; if ($animate == 1) { $reelspin = 3; topscreen(); mainscreen(); displaywin(); smallpause(); newlines(); $reelspin = 2; topscreen(); mainscreen(); displaywin(); smallpause(); newlines(); $reelspin = 1; topscreen(); mainscreen(); displaywin(); smallpause(); newlines(); } $reelspin = 0; addmoney(); fundcalc(); topscreen(); mainscreen(); displaywin(); ptracker(); startinfo(); } sub main2 { resethrvars(); $x = ' '; reeltrans(); topscreen(); mainscreen(); ##addmoney(); #no reason for this to be here, what was I thinking? Don't uncomment. resethrvars(); if ($startreel == 1) { $startreel = 0; $addmoney = 0; } else { } displaywin(); startinfo(); } sub resethrvars { $addmoney = 0; $anybar = 0; $anybar1 = 0; $anybar2 = 0; $anybar3 = 0; $anycherry = 0; $anycherry1 = 0; $anycherry2 = 0; $anycherry3 = 0; $onecherry = 0; $nonep = 0; $anydollar = 0; $anydollar1 = 0; $anydollar2 = 0; $anydollar3 = 0; $reelspin = 0; } sub startinfo { tokeneval(); $startinfo = <STDIN>; chomp($startinfo); if (($startinfo eq 'a') or ($startinfo eq 'A')) { $startinfo = $hragaincmd; } elsif (($startinfo eq 'p') or ($startinfo eq 'P') or ($startinfo eq '1p') or ($startinfo eq '1P')) { $hragaincmd = $startinfo; } else { #Do Nothing } if (($startinfo eq 'p') or ($startinfo eq 'P') or ($startinfo eq '1p') or ($startinfo eq '1P')) { if ($money >= $coin) { $money = $money - $coin; $moneyexp = $moneyexp + $coin; $hrstmc2 = $hrstmc2 + $coin; $spins = $spins + 1; $hrstspins = $hrstspins + 1; $hrbulbcolor = 'null'; if ($proadd == 1) { $projkpot = $projkpot + $coin; $proadd = 0; } else { $proadd = 1; } if ($hrrandnums > 103) { if ($hrbonus > 0) { $hrbonus = $hrbonus - 1; } if ($hrbonushlp > 0) { $hrbonushlp = $hrbonushlp - 1; } elsif ($hrbonushlp == 0) { $hrrandnums = 107; } elsif ($hrbonushlp < 0) { $hrbonushlp = 0; $hrrandnums = 107; } } newlines(); main(); } else { newlines(); main2(); } } elsif (($startinfo eq 'exit') or ($startinfo eq 'EXIT') or ($startinfo eq 'quit') or ($startinfo eq 'QUIT')) { exitgame(); } elsif (($startinfo eq 'c') or ($startinfo eq 'C')) { return; } else { newlines(); main2(); } } sub newlines { if ($compatVT100 == 1) { print"\033[2J\n"; } else { 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"; } } sub testmusic { if ($music == 1) { if (system("$musicplayer -v $musictermquiet")) { $music = 0; } else { $music = 1; } } } sub beginmusic { if ($music == 1) { $mkillpid = fork(); unless ($mkillpid) { playmusic(); exit(); } } } sub rrbeginmusic { if ($music == 1) { $mkillpid = fork(); unless ($mkillpid) { rrplaymusic(); exit(); } } } sub bankbeginmusic { if ($music == 1) { $mkillpid = fork(); unless ($mkillpid) { bankplaymusic(); exit(); } } } sub playmusic { if ($music == 1) { $SIG{INT} = sub { exit(); }; #system("$musicplayer $musicvolumecmd$musicvolume $musicdir@musicfiles[0] $musictermquiet"); while ($music == 1) { system("$musicplayer $musicvolumecmd$musicvolume $musicdir@musicfiles[(int(rand(@musicfiles)))] $musictermquiet"); } } } sub rrplaymusic { if ($music == 1) { $SIG{INT} = sub { exit(); }; #system("$musicplayer $musicvolumecmd$musicvolume $musicdir@musicfiles[0] $musictermquiet"); while ($music == 1) { system("$musicplayer $musicvolumecmd$rrmusicvolume $musicdir@rrmusicfiles[(int(rand(@rrmusicfiles)))] $musictermquiet"); } } } sub bankplaymusic { if ($music == 1) { $SIG{INT} = sub { exit(); }; #system("$musicplayer $musicvolumecmd$musicvolume $musicdir@musicfiles[0] $musictermquiet"); while ($music == 1) { system("$musicplayer $musicvolumecmd$bankmusicvolume $musicdir@bankmusicfiles[(int(rand(@bankmusicfiles)))] $musictermquiet"); } } } sub beepalrm { #This will always add a newline. #If soundfx = 1 and beepnum > 0 then it will print a beep aswell #Be sure to set $beepnum to 0 at the end of your printed screen if ($soundfx == 1) { if ($beepnum > 0) { if ($beepnum == 1) { print"\a"; print"\n"; } else { print"\a"; print"\n"; if ($compatUNIXY == 1) { select undef, undef, undef, 0.15; } } $beepnum = $beepnum - 1; } else { print"\n"; } } else { print"\n"; } } sub medpause { if ($compatUNIXY == 1) { if ($anispeed == 3) { select undef, undef, undef, 1.80; } elsif ($anispeed == 2) { select undef, undef, undef, 1.20; } else { select undef, undef, undef, 0.60; } } else { sleep(1); } } sub smallpause { if ($compatUNIXY == 1) { if ($anispeed == 3) { select undef, undef, undef, 0.90; } elsif ($anispeed == 2) { select undef, undef, undef, 0.60; } else { select undef, undef, undef, 0.30; } } else { sleep(1); } } sub tinypause { if ($compatUNIXY == 1) { if ($anispeed == 3) { select undef, undef, undef, 0.45; } elsif ($anispeed == 2) { select undef, undef, undef, 0.30; } else { select undef, undef, undef, 0.15; } } else { sleep(1); } } sub p7pause { if ($compatUNIXY == 1) { if ($anispeed == 3) { select undef, undef, undef, 0.21; } elsif ($anispeed == 2) { select undef, undef, undef, 0.14; } else { select undef, undef, undef, 0.07; } } else { sleep(0); } } sub p4pause { if ($compatUNIXY == 1) { if ($anispeed == 3) { select undef, undef, undef, 0.12; } elsif ($anispeed == 2) { select undef, undef, undef, 0.08; } else { select undef, undef, undef, 0.04; } } else { sleep(0); } } sub spinreel { $slotsymbol1 = int(rand($hrrandnums)); $slotsymbol2 = int(rand($hrrandnums)); $slotsymbol3 = int(rand($hrrandnums)); } #2 sub symseven1 { print colored(' 7777777777777777 ',"$red on_$bgcwhite"); } sub symseven2 { print colored(' 7777777777777777 ',"$red on_$bgcwhite"); } sub symseven3 { print colored(' 777 777777 ',"$red on_$bgcwhite"); } sub symseven4 { print colored(' 777777 ',"$red on_$bgcwhite"); } sub symseven5 { print colored(' 777777 ',"$red on_$bgcwhite"); } sub symseven6 { print colored(' 777777 ',"$red on_$bgcwhite"); } sub symseven7 { print colored(' 7777777 ',"$red on_$bgcwhite"); } sub symseven8 { print colored(' 7777777 ',"$red on_$bgcwhite"); } sub symseven9 { print colored(' 77777777 ',"$red on_$bgcwhite"); } sub symseven10 { print colored(' 777777777 ',"$red on_$bgcwhite"); } sub symseven11 { print colored(' 777777777 ',"$red on_$bgcwhite"); } sub symseven12 { print colored(' 777777777 ',"$red on_$bgcwhite"); } sub symseven13 { print colored(' 777777777 ',"$red on_$bgcwhite"); } sub symseven14 { print colored(' 777777777 ',"$red on_$bgcwhite"); } #6 sub symdollar1 { print colored(' $$$$ ',"$green on_$bgcwhite"); } sub symdollar2 { print colored(' SSSSSSSSSS ',"$boldgreen on_$bgcwhite"); } sub symdollar3 { print colored(' SSSSSSSSSSSSSS ',"$boldgreen on_$bgcwhite"); } sub symdollar4 { print colored(' SSSS',"$boldgreen on_$bgcwhite"); print colored(' $$$$ ',"$green on_$bgcwhite"); print colored('SSSS ',"$boldgreen on_$bgcwhite"); } sub symdollar5 { print colored(' SSS',"$boldgreen on_$bgcwhite"); print colored(' $$$$ ',"$green on_$bgcwhite"); } sub symdollar6 { print colored(' SSSS',"$boldgreen on_$bgcwhite"); print colored(' $$$$ ',"$green on_$bgcwhite"); } sub symdollar7 { print colored(' SSSSS',"$boldgreen on_$bgcwhite"); print colored('$$$$',"$green on_$bgcwhite"); print colored('SSS ',"$boldgreen on_$bgcwhite"); } sub symdollar8 { print colored(' SSS',"$boldgreen on_$bgcwhite"); print colored('$$$$',"$green on_$bgcwhite"); print colored('SSSSS ',"$boldgreen on_$bgcwhite"); } sub symdollar9 { print colored(' $$$$',"$green on_$bgcwhite"); print colored(' SSSS ',"$boldgreen on_$bgcwhite"); } sub symdollar10 { print colored(' $$$$',"$green on_$bgcwhite"); print colored(' SSS ',"$boldgreen on_$bgcwhite"); } sub symdollar11 { print colored(' SSSS',"$boldgreen on_$bgcwhite"); print colored(' $$$$',"$green on_$bgcwhite"); print colored(' SSSS ',"$boldgreen on_$bgcwhite"); } sub symdollar12 { print colored(' SSSSSSSSSSSSSS ',"$boldgreen on_$bgcwhite"); } sub symdollar13 { print colored(' SSSSSSSSSS ',"$boldgreen on_$bgcwhite"); } sub symdollar14 { print colored(' $$$$ ',"$green on_$bgcwhite"); } sub symdollar1a { print colored(' $$$$ ',"$yellow on_$bgcwhite"); } sub symdollar2a { print colored(' SSSSSSSSSS ',"$boldyellow on_$bgcwhite"); } sub symdollar3a { print colored(' SSSSS',"$boldyellow on_$bgcwhite");print colored('S',"$boldyellow on_$bgcwhite"); print colored('SSSSSSSS ',"$boldyellow on_$bgcwhite"); } sub symdollar4a { print colored(' SSSS',"$boldyellow on_$bgcwhite"); print colored(' A$$Y ',"$yellow on_$bgcwhite"); print colored('SSSS ',"$boldyellow on_$bgcwhite"); } sub symdollar5a { print colored(' SSS',"$boldyellow on_$bgcwhite"); print colored(' L$$T ',"$yellow on_$bgcwhite"); } sub symdollar6a { print colored(' SSSS',"$boldyellow on_$bgcwhite"); print colored(' M$$H ',"$yellow on_$bgcwhite"); } sub symdollar7a { print colored(' SSSSS',"$boldyellow on_$bgcwhite"); print colored('I$$G',"$yellow on_$bgcwhite"); print colored('SSS ',"$boldyellow on_$bgcwhite"); } sub symdollar8a { print colored(' SSS',"$boldyellow on_$bgcwhite"); print colored('G$$I',"$yellow on_$bgcwhite"); print colored('SSSSS ',"$boldyellow on_$bgcwhite"); } sub symdollar9a { print colored(' H$$M',"$yellow on_$bgcwhite"); print colored(' SSSS ',"$boldyellow on_$bgcwhite"); } sub symdollar10a { print colored(' T$$L',"$yellow on_$bgcwhite"); print colored(' SSS ',"$boldyellow on_$bgcwhite"); } sub symdollar11a { print colored(' SSSS',"$boldyellow on_$bgcwhite"); print colored(' Y$$A',"$yellow on_$bgcwhite"); print colored(' SSSS ',"$boldyellow on_$bgcwhite"); } sub symdollar12a { print colored(' SSSSSSSS',"$boldyellow on_$bgcwhite"); print colored('S',"$boldyellow on_$bgcwhite"); print colored('SSSSS ',"$boldyellow on_$bgcwhite"); } sub symdollar13a { print colored(' SSSSSSSSSS ',"$boldyellow on_$bgcwhite"); } sub symdollar14a { print colored(' $$$$ ',"$yellow on_$bgcwhite"); } sub symdollar1b { print colored(' $$$$ ',"$boldblack on_$bgcwhite"); } sub symdollar2b { print colored(' SSSSSSSSSS ',"$boldwhite on_$bgcwhite"); } sub symdollar3b { print colored(' SSSSSSSSSSSSSS ',"$boldwhite on_$bgcwhite"); } sub symdollar4b { print colored(' SSSS',"$boldwhite on_$bgcwhite"); print colored(' $$$$ ',"$boldblack on_$bgcwhite"); print colored('SSSS ',"$boldwhite on_$bgcwhite"); } sub symdollar5b { print colored(' SSS',"$boldwhite on_$bgcwhite"); print colored(' $$$$ ',"$boldblack on_$bgcwhite"); } sub symdollar6b { print colored(' SSSS',"$boldwhite on_$bgcwhite"); print colored(' $$$$ ',"$boldblack on_$bgcwhite"); } sub symdollar7b { print colored(' SSSSS',"$boldwhite on_$bgcwhite"); print colored('$$$$',"$boldblack on_$bgcwhite"); print colored('SSS ',"$boldwhite on_$bgcwhite"); } sub symdollar8b { print colored(' SSS',"$boldwhite on_$bgcwhite"); print colored('$$$$',"$boldblack on_$bgcwhite"); print colored('SSSSS ',"$boldwhite on_$bgcwhite"); } sub symdollar9b { print colored(' $$$$',"$boldblack on_$bgcwhite"); print colored(' SSSS ',"$boldwhite on_$bgcwhite"); } sub symdollar10b { print colored(' $$$$',"$boldblack on_$bgcwhite"); print colored(' SSS ',"$boldwhite on_$bgcwhite"); } sub symdollar11b { print colored(' SSSS',"$boldwhite on_$bgcwhite"); print colored(' $$$$',"$boldblack on_$bgcwhite"); print colored(' SSSS ',"$boldwhite on_$bgcwhite"); } sub symdollar12b { print colored(' SSSSSSSSSSSSSS ',"$boldwhite on_$bgcwhite"); } sub symdollar13b { print colored(' SSSSSSSSSS ',"$boldwhite on_$bgcwhite"); } sub symdollar14b { print colored(' $$$$ ',"$boldblack on_$bgcwhite"); } sub symbar0 { print colored(' ',"$green on_$bgcwhite"); print colored(' ',"$boldwhite on_$bgcblack"); print colored(' ',"$green on_$bgcwhite"); } #5 sub symbar1 { print colored(' ',"$green on_$bgcwhite"); print colored(' B A R ',"$cyan on_$bgcblack"); print colored(' ',"$green on_$bgcwhite"); } #4 sub symbar2 { print colored(' ',"$green on_$bgcwhite"); print colored(' B A R ',"$boldmagenta on_$bgcblack"); print colored(' ',"$green on_$bgcwhite"); } #3 sub symbar3 { print colored(' ',"$green on_$bgcwhite"); print colored(' B A R ',"$boldyellow on_$bgcblack"); print colored(' ',"$green on_$bgcwhite"); } #1 sub symgnu5 { print colored(' ',"$green on_$bgcwhite"); print colored('* * * * * * * * *',"$boldwhite on_$bgcwhite"); print colored(' ',"$green on_$bgcwhite"); } sub symgnu6 { print colored(' ',"$green on_$bgcwhite"); print colored(' * * * * * * * * ',"$boldblue on_$bgcblue"); print colored(' ',"$green on_$bgcwhite"); } sub symgnu7 { print colored(' ',"$green on_$bgcwhite"); print colored('* * * G N U * * *',"$boldblue on_$bgcwhite"); print colored(' ',"$green on_$bgcwhite"); } sub symgnu8 { print colored(' ',"$green on_$bgcwhite"); print colored(' * * * * * * * * ',"$boldblue on_$bgcblue"); print colored(' ',"$green on_$bgcwhite"); } sub symgnu9 { print colored(' ',"$green on_$bgcwhite"); print colored('* * * * * * * * *',"$boldwhite on_$bgcwhite"); print colored(' ',"$green on_$bgcwhite"); } #10 sub symcherry2 { print colored(' xX ',"$boldgreen on_$bgcwhite"); } sub symcherry3 { print colored(' xX ',"$boldgreen on_$bgcwhite"); } sub symcherry4 { print colored(' xXXx ',"$boldgreen on_$bgcwhite"); } sub symcherry5 { print colored(' xX Xx ',"$boldgreen on_$bgcwhite"); } sub symcherry6 { print colored(' xX Xx ',"$boldgreen on_$bgcwhite"); } sub symcherry7 { print colored(' xX',"$boldgreen on_$bgcwhite"); print colored(' CCCCCC ',"$boldred on_$bgcwhite"); } sub symcherry8 { print colored(' xX',"$boldgreen on_$bgcwhite"); print colored(' CCCCCCCC ',"$boldred on_$bgcwhite"); } sub symcherry9 { print colored(' CCCCCC CCCCCCC',"$boldred on_$bgcwhite"); print colored('C ',"$red on_$bgcwhite"); } sub symcherry10 { print colored(' CCCCCCCC CCCCCC',"$boldred on_$bgcwhite"); print colored('CC ',"$red on_$bgcwhite"); } sub symcherry11 { print colored(' CCCCCCC',"$boldred on_$bgcwhite"); print colored('C CCCCCC ',"$red on_$bgcwhite"); } sub symcherry12 { print colored(' CCCCC',"$boldred on_$bgcwhite"); print colored('CCC ',"$red on_$bgcwhite"); } sub symcherry13 { print colored(' CCCCCC ',"$red on_$bgcwhite"); } #b sub symbonus3 { print colored(' 0 ',"$magenta on_$bgcwhite"); } sub symbonus4 { print colored(' 000 ',"$boldmagenta on_$bgcwhite"); } sub symbonus5 { print colored(' [BONUSBONU] ',"$red on_$bgcwhite"); } sub symbonus6 { print colored(' [SBONUSBON] ',"$boldred on_$bgcwhite"); } sub symbonus7 { print colored(' ',"$magenta on_$bgcwhite"); print colored(' ',"$magenta on_$bgcblue"); print colored(' B',"$boldyellow on_$bgcmagenta"); print colored(' ',"$magenta on_$bgcblue"); print colored(' N',"$boldyellow on_$bgcmagenta"); print colored(' ',"$magenta on_$bgcblue"); print colored(' S',"$boldyellow on_$bgcmagenta"); print colored(' ',"$magenta on_$bgcblue"); print colored(' ',"$blue on_$bgcmagenta"); print colored(' ',"$magenta on_$bgcwhite"); } sub symbonus8 { print colored(' ',"$magenta on_$bgcwhite"); print colored(' ',"$blue on_$bgcmagenta"); print colored(' ',"$magenta on_$bgcblue"); print colored(' O',"$boldyellow on_$bgcmagenta"); print colored(' ',"$magenta on_$bgcblue"); print colored(' U',"$boldyellow on_$bgcmagenta"); print colored(' ',"$magenta on_$bgcblue"); print colored(' ',"$blue on_$bgcmagenta"); print colored(' ',"$magenta on_$bgcblue"); print colored(' ',"$magenta on_$bgcwhite"); } sub symbonus9 { print colored(' \uSBONUSBo/ ',"$red on_$bgcwhite"); } sub symbonus10 { print colored(' ',"$magenta on_$bgcwhite"); print colored(' ',"$magenta on_$bgcblue"); print colored(' ',"$blue on_$bgcmagenta"); print colored(' ',"$boldyellow on_$bgcblue"); print colored('O ',"$boldyellow on_$bgcmagenta"); print colored(' ',"$boldyellow on_$bgcblue"); print colored('U ',"$boldyellow on_$bgcmagenta"); print colored(' ',"$magenta on_$bgcblue"); print colored(' ',"$blue on_$bgcmagenta"); print colored(' ',"$magenta on_$bgcwhite"); } sub symbonus11 { print colored(' ',"$magenta on_$bgcwhite"); print colored(' ',"$blue on_$bgcmagenta"); print colored(' ',"$boldyellow on_$bgcblue"); print colored('B ',"$boldyellow on_$bgcmagenta"); print colored(' ',"$boldyellow on_$bgcblue"); print colored('N ',"$boldyellow on_$bgcmagenta"); print colored(' ',"$boldyellow on_$bgcblue"); print colored('S ',"$boldyellow on_$bgcmagenta"); print colored(' ',"$magenta on_$bgcblue"); print colored(' ',"$magenta on_$bgcwhite"); } sub symbonus12 { print colored(' \nUs/ ',"$boldred on_$bgcwhite"); } sub symbonus13 { print colored(' \b/ ',"$red on_$bgcwhite"); } #9 sub symbell3 { print colored(' x ',"$boldyellow on_$bgcwhite"); } sub symbell4 { print colored(' xXx ',"$boldyellow on_$bgcwhite"); } sub symbell5 { print colored(' xXXXx ',"$boldyellow on_$bgcwhite"); } sub symbell6 { print colored(' xXXXXXx ',"$boldyellow on_$bgcwhite"); } sub symbell7 { print colored(' xXXXXXXXx ',"$boldyellow on_$bgcwhite"); } sub symbell8 { print colored(' XXXXXXXXX ',"$boldyellow on_$bgcwhite"); } sub symbell9 { print colored(' XXXXXXXXX ',"$boldyellow on_$bgcwhite"); } sub symbell10 { print colored(' XXXXXXXXX ',"$boldyellow on_$bgcwhite"); } sub symbell11 { print colored(' XXXXXXXXX ',"$boldyellow on_$bgcwhite"); } sub symbell12 { print colored(' 000 ',"$yellow on_$bgcwhite"); } sub symbell13 { print colored(' 0 ',"$yellow on_$bgcwhite"); } #8 sub symolive1 { print colored(' 00000 ',"$boldmagenta on_$bgcwhite"); } sub symolive2 { print colored(' 0000',"$boldmagenta on_$bgcwhite"); print colored('0000000 ',"$magenta on_$bgcwhite"); } 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"); } 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"); } 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"); } sub symolive6 { print colored('0',"$boldmagenta on_$bgcwhite"); print colored('000000000000000000 ',"$magenta on_$bgcwhite"); } sub symolive7 { print colored('0000000000000000000 ',"$magenta on_$bgcwhite"); } sub symolive8 { print colored('0000000000000000000 ',"$magenta on_$bgcwhite"); } sub symolive9 { print colored('0000000000000000000 ',"$magenta on_$bgcwhite"); } sub symolive10 { print colored('0000000000000000000 ',"$magenta on_$bgcwhite"); } sub symolive11 { print colored(' 00000000000000000 ',"$magenta on_$bgcwhite"); } sub symolive12 { print colored(' 000000000000000 ',"$magenta on_$bgcwhite"); } sub symolive13 { print colored(' 00000000000 ',"$magenta on_$bgcwhite"); } sub symolive14 { print colored(' 00000 ',"$magenta on_$bgcwhite"); } #7 sub symstar3 { if ($reel == 1) { $starcolor = "$boldred"; } elsif ($reel == 2) { $starcolor = "$boldwhite"; } else { $starcolor = "$boldblue"; } print colored(' * ',"$starcolor on_$bgcwhite"); } sub symstar4 { if ($reel == 1) { $starcolor = "$red"; } elsif ($reel == 2) { $starcolor = "$boldblack"; } else { $starcolor = "$blue"; } print colored(' *** ',"$starcolor on_$bgcwhite"); } sub symstar5 { if ($reel == 1) { $starcolor = "$boldred"; } elsif ($reel == 2) { $starcolor = "$boldwhite"; } else { $starcolor = "$boldblue"; } print colored(' ***** ',"$starcolor on_$bgcwhite"); } sub symstar6 { if ($reel == 1) { $starcolor = "$red"; } elsif ($reel == 2) { $starcolor = "$boldblack"; } else { $starcolor = "$blue"; } print colored(' ****************** ',"$starcolor on_$bgcwhite"); } sub symstar7 { if ($reel == 1) { $starcolor = "$boldred"; } elsif ($reel == 2) { $starcolor = "$boldwhite"; } else { $starcolor = "$boldblue"; } print colored(' ************** ',"$starcolor on_$bgcwhite"); } sub symstar8 { if ($reel == 1) { $starcolor = "$red"; } elsif ($reel == 2) { $starcolor = "$boldblack"; } else { $starcolor = "$blue"; } print colored(' ********** ',"$starcolor on_$bgcwhite"); } sub symstar9 { if ($reel == 1) { $starcolor = "$boldred"; } elsif ($reel == 2) { $starcolor = "$boldwhite"; } else { $starcolor = "$boldblue"; } print colored(' ********** ',"$starcolor on_$bgcwhite"); } sub symstar10 { if ($reel == 1) { $starcolor = "$red"; } elsif ($reel == 2) { $starcolor = "$boldblack"; } else { $starcolor = "$blue"; } print colored(' ***** ***** ',"$starcolor on_$bgcwhite"); } sub symstar11 { if ($reel == 1) { $starcolor = "$boldred"; } elsif ($reel == 2) { $starcolor = "$boldwhite"; } else { $starcolor = "$boldblue"; } print colored(' **** **** ',"$starcolor on_$bgcwhite"); } sub symstar12 { if ($reel == 1) { $starcolor = "$red"; } elsif ($reel == 2) { $starcolor = "$boldblack"; } else { $starcolor = "$blue"; } print colored(' ** ** ',"$starcolor on_$bgcwhite"); } sub symwhite { print colored(' ',"$boldyellow on_$bgcwhite"); } sub symspining { print colored('||||||||||||||||||||',"$boldwhite on_$bgcwhite"); } sub slot1 { if ($slot1 eq 'spining') { symspining(); } elsif ($slot1 == 2) { symseven1(); } elsif ($slot1 == 6) { symdollar1(); } elsif ($slot1 == 8) { symolive1(); } elsif ($slot1 == 11) { symseven10(); } elsif ($slot1 == 12) { symbar0(); } elsif ($slot1 == 13) { symcherry9(); } elsif ($slot1 == 14) { symbell10(); } elsif ($slot1 == 15) { symstar10(); } elsif ($slot1 == 16) { symdollar1a(); } elsif ($slot1 == 17) { symgnu8(); } elsif ($slot1 == 18) { symolive10(); } elsif ($slot1 == 19) { symdollar10(); } elsif ($slot1 == 21) { symdollar1b(); } else { symwhite(); } } sub slot2 { if ($slot2 eq 'spining') { symspining(); } elsif ($slot2 == 2) { symseven2(); } elsif ($slot2 == 3) { symbar0(); } elsif ($slot2 == 6) { symdollar2(); } elsif ($slot2 == 8) { symolive2(); } elsif ($slot2 == 10) { symcherry2(); } elsif ($slot2 == 11) { symseven11(); } elsif ($slot2 == 12) { symbar3(); } elsif ($slot2 == 13) { symcherry10(); } elsif ($slot2 == 14) { symbell11(); } elsif ($slot2 == 15) { symstar11(); } elsif ($slot2 == 16) { symdollar2a(); } elsif ($slot2 == 17) { symgnu9(); } elsif ($slot2 == 18) { symolive11(); } elsif ($slot2 == 19) { symdollar11(); } elsif ($slot2 == 20) { symbar0(); } elsif ($slot2 == 21) { symdollar2b(); } else { symwhite(); } } sub slot3 { if ($slot3 eq 'spining') { symspining(); } elsif ($slot3 == 2) { symseven3(); } elsif ($slot3 == 3) { symbar3(); } elsif ($slot3 == 6) { symdollar3(); } elsif ($slot3 == 7) { symstar3(); } elsif ($slot3 == 8) { symolive3(); } elsif ($slot3 == 9) { symbell3(); } elsif ($slot3 eq 'b') { symbonus3(); } elsif ($slot3 == 10) { symcherry3(); } elsif ($slot3 == 11) { symseven12(); } elsif ($slot3 == 12) { symbar0(); } elsif ($slot3 == 13) { symcherry11(); } elsif ($slot3 == 14) { symbell12(); } elsif ($slot3 == 15) { symstar12(); } elsif ($slot3 == 16) { symdollar3a(); } elsif ($slot3 == 18) { symolive12(); } elsif ($slot3 == 19) { symdollar12(); } elsif ($slot3 == 20) { symbar2(); } elsif ($slot3 == 21) { symdollar3b(); } else { symwhite(); } } sub slot4 { if ($slot4 eq 'spining') { symspining(); } elsif ($slot4 == 2) { symseven4(); } elsif ($slot4 == 3) { symbar0(); } elsif ($slot4 == 4) { symbar0(); } elsif ($slot4 == 6) { symdollar4(); } elsif ($slot4 == 7) { symstar4(); } elsif ($slot4 == 8) { symolive4(); } elsif ($slot4 == 9) { symbell4(); } elsif ($slot4 eq 'b') { symbonus4(); } elsif ($slot4 == 10) { symcherry4(); } elsif ($slot4 == 11) { symseven13(); } elsif ($slot4 == 13) { symcherry12(); } elsif ($slot4 == 14) { symbell13(); } elsif ($slot4 == 16) { symdollar4a(); } elsif ($slot4 == 18) { symolive13(); } elsif ($slot4 == 19) { symdollar13(); } elsif ($slot4 == 20) { symbar0(); } elsif ($slot4 == 21) { symdollar4b(); } else { symwhite(); } } sub slot5 { if ($slot5 eq 'spining') { symspining(); } elsif ($slot5 == 1) { symgnu5(); } elsif ($slot5 == 2) { symseven5(); } elsif ($slot5 == 4) { symbar2(); } elsif ($slot5 == 6) { symdollar5(); } elsif ($slot5 == 7) { symstar5(); } elsif ($slot5 == 8) { symolive5(); } elsif ($slot5 == 9) { symbell5(); } elsif ($slot5 eq 'b') { symbonus5(); } elsif ($slot5 == 10) { symcherry5(); } elsif ($slot5 == 11) { symseven14(); } elsif ($slot5 == 13) { symcherry13(); } elsif ($slot5 == 16) { symdollar5a(); } elsif ($slot5 == 18) { symolive14(); } elsif ($slot5 == 19) { symdollar14(); } elsif ($slot5 == 21) { symdollar5b(); } else { symwhite(); } } sub slot6 { if ($slot6 eq 'spining') { symspining(); } elsif ($slot6 == 1) { symgnu6(); } elsif ($slot6 == 2) { symseven6(); } elsif ($slot6 == 3) { symbar0(); } elsif ($slot6 == 4) { symbar0(); } elsif ($slot6 == 5) { symbar0(); } elsif ($slot6 == 6) { symdollar6(); } elsif ($slot6 == 7) { symstar6(); } elsif ($slot6 == 8) { symolive6(); } elsif ($slot6 == 9) { symbell6(); } elsif ($slot6 eq 'b') { symbonus6(); } elsif ($slot6 == 10) { symcherry6(); } elsif ($slot6 == 16) { symdollar6a(); } elsif ($slot6 == 21) { symdollar6b(); } else { symwhite(); } } sub slot7 { if ($slot7 eq 'spining') { symspining(); } elsif ($slot7 == 1) { symgnu7(); } elsif ($slot7 == 2) { symseven7(); } elsif ($slot7 == 3) { symbar3(); } elsif ($slot7 == 5) { symbar1(); } elsif ($slot7 == 6) { symdollar7(); } elsif ($slot7 == 7) { symstar7(); } elsif ($slot7 == 8) { symolive7(); } elsif ($slot7 == 9) { symbell7(); } elsif ($slot7 eq 'b') { symbonus7(); } elsif ($slot7 == 10) { symcherry7(); } elsif ($slot7 == 16) { symdollar7a(); } elsif ($slot7 == 21) { symdollar7b(); } else { symwhite(); } } sub slot8 { if ($slot8 eq 'spining') { symspining(); } elsif ($slot8 == 1) { symgnu8(); } elsif ($slot8 == 2) { symseven8(); } elsif ($slot8 == 3) { symbar0(); } elsif ($slot8 == 4) { symbar0(); } elsif ($slot8 == 5) { symbar0(); } elsif ($slot8 == 6) { symdollar8(); } elsif ($slot8 == 7) { symstar8(); } elsif ($slot8 == 8) { symolive8(); } elsif ($slot8 == 9) { symbell8(); } elsif ($slot8 eq 'b') { symbonus8(); } elsif ($slot8 == 10) { symcherry8(); } elsif ($slot8 == 16) { symdollar8a(); } elsif ($slot8 == 21) { symdollar8b(); } else { symwhite(); } } sub slot9 { if ($slot9 eq 'spining') { symspining(); } elsif ($slot9 == 1) { symgnu9(); } elsif ($slot9 == 2) { symseven9(); } elsif ($slot8 == 4) { symbar2(); } elsif ($slot9 == 6) { symdollar9(); } elsif ($slot9 == 7) { symstar9(); } elsif ($slot9 == 8) { symolive9(); } elsif ($slot9 == 9) { symbell9(); } elsif ($slot9 eq 'b') { symbonus9(); } elsif ($slot9 == 10) { symcherry9(); } elsif ($slot9 == 16) { symdollar9a(); } elsif ($slot9 == 21) { symdollar9b(); } else { symwhite(); } } sub slot10 { if ($slot10 eq 'spining') { symspining(); } elsif ($slot10 == 2) { symseven10(); } elsif ($slot10 == 3) { symbar0(); } elsif ($slot10 == 4) { symbar0(); } elsif ($slot10 == 6) { symdollar10(); } elsif ($slot10 == 7) { symstar10(); } elsif ($slot10 == 8) { symolive10(); } elsif ($slot10 == 9) { symbell10(); } elsif ($slot10 eq 'b') { symbonus10(); } elsif ($slot10 == 10) { symcherry10(); } elsif ($slot10 == 11) { symdollar1(); } elsif ($slot10 == 15) { symolive1(); } elsif ($slot10 == 16) { symdollar10a(); } elsif ($slot10 == 18) { symseven1(); } elsif ($slot10 == 21) { symdollar10b(); } else { symwhite(); } } sub slot11 { if ($slot11 eq 'spining') { symspining(); } elsif ($slot11 == 2) { symseven11(); } elsif ($slot11 == 3) { symbar3(); } elsif ($slot11 == 6) { symdollar11(); } elsif ($slot11 == 7) { symstar11(); } elsif ($slot11 == 8) { symolive11(); } elsif ($slot11 == 9) { symbell11(); } elsif ($slot11 eq 'b') { symbonus11(); } elsif ($slot11 == 10) { symcherry11(); } elsif ($slot11 == 11) { symdollar2(); } elsif ($slot11 == 15) { symolive2(); } elsif ($slot11 == 16) { symdollar11a(); } elsif ($slot11 == 18) { symseven2(); } elsif ($slot11 == 19) { symcherry2(); } elsif ($slot11 == 21) { symdollar11b(); } else { symwhite(); } } sub slot12 { if ($slot12 eq 'spining') { symspining(); } elsif ($slot12 == 2) { symseven12(); } elsif ($slot12 == 3) { symbar0(); } elsif ($slot12 == 6) { symdollar12(); } elsif ($slot12 == 7) { symstar12(); } elsif ($slot12 == 8) { symolive12(); } elsif ($slot12 == 9) { symbell12(); } elsif ($slot12 eq 'b') { symbonus12(); } elsif ($slot12 == 10) { symcherry12(); } elsif ($slot12 == 11) { symdollar3(); } elsif ($slot12 == 12) { symstar3(); } elsif ($slot12 == 12) { symbell3(); } elsif ($slot12 == 13) { symbell3(); } elsif ($slot12 == 15) { symolive3(); } elsif ($slot12 == 16) { symdollar12a(); } elsif ($slot12 == 17) { symdollar1(); } elsif ($slot12 == 18) { symseven3(); } elsif ($slot12 == 19) { symcherry3(); } elsif ($slot12 == 21) { symdollar12b(); } else { symwhite(); } } sub slot13 { if ($slot13 eq 'spining') { symspining(); } elsif ($slot13 == 2) { symseven13(); } elsif ($slot13 == 6) { symdollar13(); } elsif ($slot13 == 8) { symolive13(); } elsif ($slot13 == 9) { symbell13(); } elsif ($slot13 eq 'b') { symbonus13(); } elsif ($slot13 == 10) { symcherry13(); } elsif ($slot13 == 11) { symdollar4(); } elsif ($slot13 == 12) { symstar4(); } elsif ($slot13 == 13) { symbell4(); } elsif ($slot13 == 14) { symbar0(); } elsif ($slot13 == 15) { symolive4(); } elsif ($slot13 == 16) { symdollar13a(); } elsif ($slot13 == 17) { symdollar2(); } elsif ($slot13 == 18) { symseven4(); } elsif ($slot13 == 19) { symcherry4(); } elsif ($slot13 == 20) { symbar0(); } elsif ($slot13 == 21) { symdollar13b(); } else { symwhite(); } } sub slot14 { if ($slot14 eq 'spining') { symspining(); } elsif ($slot14 == 2) { symseven14(); } elsif ($slot14 == 6) { symdollar14(); } elsif ($slot14 == 8) { symolive14(); } elsif ($slot14 == 11) { symdollar5(); } elsif ($slot14 == 12) { symstar5(); } elsif ($slot14 == 13) { symbell5(); } elsif ($slot14 == 14) { symbar2(); } elsif ($slot14 == 15) { symolive5(); } elsif ($slot14 == 16) { symdollar14a(); } elsif ($slot14 == 17) { symdollar3(); } elsif ($slot14 == 18) { symseven5(); } elsif ($slot14 == 19) { symcherry5(); } elsif ($slot14 == 20) { symbar3(); } elsif ($slot14 == 21) { symdollar14b(); } else { symwhite(); } } sub reeltrans { if ($slotsymbol1 <= 18) { if ($hrbonus > 0) { #Change the cherry into a bell if bonus round is running $svslot1 = 9; } else { $svslot1 = 10; $anycherry1 = 1; $onecherry = 1; } } elsif ($slotsymbol1 <= 34) { $svslot1 = 9; } elsif ($slotsymbol1 <= 48) { $svslot1 = 8; } elsif ($slotsymbol1 <= 60) { $svslot1 = 7; } elsif ($slotsymbol1 <= 69) { $svslot1 = 6; $anydollar1 = 1; } elsif ($slotsymbol1 == 70) { $svslot1 = 21; $anydollar1 = 1; } elsif ($slotsymbol1 <= 78) { $svslot1 = 5; $anybar1 = 1; } elsif ($slotsymbol1 <= 84) { $svslot1 = 4; $anybar1 = 1; } elsif ($slotsymbol1 <= 88) { $svslot1 = 3; $anybar1 = 1; } elsif ($slotsymbol1 <= 90) { $svslot1 = 2; } elsif ($slotsymbol1 <= 91) { $svslot1 = 1; } elsif ($slotsymbol1 <= 92) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot1 = 9; } else { $svslot1 = 11; $nonep = 1; } } elsif ($slotsymbol1 <= 93) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot1 = 9; } else { $svslot1 = 12; $nonep = 1; } } elsif ($slotsymbol1 <= 94) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot1 = 9; } else { $svslot1 = 13; $nonep = 1; } } elsif ($slotsymbol1 <= 95) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot1 = 9; } else { $svslot1 = 14; $nonep = 1; } } elsif ($slotsymbol1 <= 96) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot1 = 9; } else { $svslot1 = 15; $nonep = 1; } } elsif ($slotsymbol1 <= 97) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot1 = 9; } else { $svslot1 = 17; $nonep = 1; } } elsif ($slotsymbol1 <= 98) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot1 = 9; } else { $svslot1 = 18; $nonep = 1; } } elsif ($slotsymbol1 <= 100) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot1 = 9; } else { $svslot1 = 19; $nonep = 1; } } elsif ($slotsymbol1 <= 102) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot1 = 9; } else { $svslot1 = 20; $nonep = 1; } } elsif ($slotsymbol1 <= 109) { #bonus $svslot1 = 'b'; } else { $svslot1 = 0; } if ($slotsymbol2 <= 18) { if ($hrbonus > 0) { #Change the cherry into a bell if bonus round is running $svslot2 = 9; } else { $svslot2 = 10; $anycherry2 = 1; } } elsif ($slotsymbol2 <= 34) { $svslot2 = 9; } elsif ($slotsymbol2 <= 48) { $svslot2 = 8; } elsif ($slotsymbol2 <= 60) { $svslot2 = 7; } elsif ($slotsymbol2 <= 69) { $svslot2 = 6; $anydollar2 = 1; } elsif ($slotsymbol2 == 70) { $svslot2 = 16; $anydollar2 = 1; } elsif ($slotsymbol2 <= 78) { $svslot2 = 5; $anybar2 = 1; } elsif ($slotsymbol2 <= 84) { $svslot2 = 4; $anybar2 = 1; } elsif ($slotsymbol2 <= 88) { $svslot2 = 3; $anybar2 = 1; } elsif ($slotsymbol2 <= 90) { $svslot2 = 2; } elsif ($slotsymbol2 <= 91) { $svslot2 = 1; } elsif ($slotsymbol2 <= 92) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot2 = 9; } else { $svslot2 = 11; $nonep = 1; } } elsif ($slotsymbol2 <= 93) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot2 = 9; } else { $svslot2 = 12; $nonep = 1; } } elsif ($slotsymbol2 <= 94) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot2 = 9; } else { $svslot2 = 13; $nonep = 1; } } elsif ($slotsymbol2 <= 95) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot2 = 9; } else { $svslot2 = 14; $nonep = 1; } } elsif ($slotsymbol2 <= 96) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot2 = 9; } else { $svslot2 = 15; $nonep = 1; } } elsif ($slotsymbol2 <= 97) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot2 = 9; } else { $svslot2 = 17; $nonep = 1; } } elsif ($slotsymbol2 <= 98) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot2 = 9; } else { $svslot2 = 18; $nonep = 1; } } elsif ($slotsymbol2 <= 100) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot2 = 9; } else { $svslot2 = 19; $nonep = 1; } } elsif ($slotsymbol2 <= 102) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot2 = 9; } else { $svslot2 = 20; $nonep = 1; } } elsif ($slotsymbol2 <= 109) { #bonus $svslot2 = 'b'; } else { $svslot2 = 0; } if ($slotsymbol3 <= 18) { if ($hrbonus > 0) { #Change the cherry into a bell if bonus round is running $svslot3 = 9; } else { $svslot3 = 10; $anycherry3 = 1; } } elsif ($slotsymbol3 <= 34) { $svslot3 = 9; } elsif ($slotsymbol3 <= 48) { $svslot3 = 8; } elsif ($slotsymbol3 <= 60) { $svslot3 = 7; } elsif ($slotsymbol3 <= 69) { $svslot3 = 6; $anydollar3 = 1; } elsif ($slotsymbol3 == 70) { $svslot3 = 21; $anydollar3 = 1; } elsif ($slotsymbol3 <= 78) { $svslot3 = 5; $anybar3 = 1; } elsif ($slotsymbol3 <= 84) { $svslot3 = 4; $anybar3 = 1; } elsif ($slotsymbol3 <= 88) { $svslot3 = 3; $anybar3 = 1; } elsif ($slotsymbol3 <= 90) { $svslot3 = 2; } elsif ($slotsymbol3 <= 91) { $svslot3 = 1; } elsif ($slotsymbol3 <= 92) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot3 = 9; } else { $svslot3 = 11; $nonep = 1; } } elsif ($slotsymbol3 <= 93) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot3 = 9; } else { $svslot3 = 12; $nonep = 1; } } elsif ($slotsymbol3 <= 94) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot3 = 9; } else { $svslot3 = 13; $nonep = 1; } } elsif ($slotsymbol3 <= 95) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot3 = 9; } else { $svslot3 = 14; $nonep = 1; } } elsif ($slotsymbol3 <= 96) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot3 = 9; } else { $svslot3 = 15; $nonep = 1; } } elsif ($slotsymbol3 <= 97) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot3 = 9; } else { $svslot3 = 17; $nonep = 1; } } elsif ($slotsymbol3 <= 98) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot3 = 9; } else { $svslot3 = 18; $nonep = 1; } } elsif ($slotsymbol3 <= 100) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot3 = 9; } else { $svslot3 = 19; $nonep = 1; } } elsif ($slotsymbol3 <= 102) { if ($hrbonus > 0) { #Change the misalign into a bell if bonus round is running $svslot3 = 9; } else { $svslot3 = 20; $nonep = 1; } } elsif ($slotsymbol3 <= 109) { #bonus $svslot3 = 'b'; } else { $svslot3 = 0; } $anydollar = $anydollar1 + $anydollar2 + $anydollar3; $anydollar1 = 0; $anydollar2 = 0; $anydollar3 = 0; $anybar = $anybar1 + $anybar2 + $anybar3; $anybar1 = 0; $anybar2 = 0; $anybar3 = 0; $anycherry = $anycherry1 + $anycherry2; $anycherry1 = 0; $anycherry2 = 0; } sub addmoney { if ($x eq "111") { $addmoney = 10000 * $coin; $beepnum = 8; $hrstwin = $hrstwin + 1; $hrbulbcolor = "$boldcyan"; } elsif ($x eq "222") { $addmoney = 2000 * $coin; $beepnum = 7; $hrstwin = $hrstwin + 1; $hrbulbcolor = "$red"; } elsif ($x eq "333") { $addmoney = 1000 * $coin; $beepnum = 6; $hrstwin = $hrstwin + 1; $hrbulbcolor = "$white"; } elsif ($x eq "334") { $addmoney = 600 * $coin; $beepnum = 6; $hrstwin = $hrstwin + 1; } elsif ($x eq "335") { $addmoney = 450 * $coin; $beepnum = 5; $hrstwin = $hrstwin + 1; } elsif ($x eq "444") { $addmoney = 300 * $coin; $beepnum = 5; $hrstwin = $hrstwin + 1; $hrbulbcolor = "$white"; } elsif ($x eq "445") { $addmoney = 200 * $coin; $beepnum = 4; $hrstwin = $hrstwin + 1; } elsif ($x eq "555") { $addmoney = 150 * $coin; $beepnum = 4; $hrstwin = $hrstwin + 1; $hrbulbcolor = "$white"; } elsif ($x eq "556") { $addmoney = 20 * $coin; $beepnum = 2; $hrstwin = $hrstwin + 1; } elsif ($x eq "557") { $addmoney = 18 * $coin; $beepnum = 2; $hrstwin = $hrstwin + 1; } elsif ($x eq "558") { $addmoney = 16 * $coin; $beepnum = 2; $hrstwin = $hrstwin + 1; } elsif ($x eq "559") { $addmoney = 14 * $coin; $beepnum = 2; $hrstwin = $hrstwin + 1; } elsif ($x eq "5510") { $addmoney = 12 * $coin; $beepnum = 2; $hrstwin = $hrstwin + 1; } elsif ($x eq "5516") { $addmoney = 20 * $coin; $beepnum = 2; $hrstwin = $hrstwin + 1; } elsif ($x eq "5521") { $addmoney = 20 * $coin; $beepnum = 2; $hrstwin = $hrstwin + 1; } elsif ($x eq "666") { $addmoney = 80 * $coin; $beepnum = 3; $hrstwin = $hrstwin + 1; $hrbulbcolor = "$white"; } elsif ($x eq "777") { $addmoney = 62 * $coin; $beepnum = 3; $hrstwin = $hrstwin + 1; $hrbulbcolor = "$white"; } elsif ($x eq "888") { $addmoney = 40 * $coin; $beepnum = 3; $hrstwin = $hrstwin + 1; $hrbulbcolor = "$white"; } elsif ($x eq "999") { $addmoney = 25 * $coin; $beepnum = 3; $hrstwin = $hrstwin + 1; $hrbulbcolor = "$white"; if (($hrrandnums > 103) and ($hrbonus == 0)) { #Only set if bonus is allowed and a bonus round isn't on $hrbonushlp = $hrbonushlpstd; $hrrandnums = 110; } } elsif ($x eq "101010") { $addmoney = 10 * $coin; $beepnum = 2; $hrstwin = $hrstwin + 1; $hrbulbcolor = "$white"; } elsif ($x eq "bbb") { $addmoney = 15 * $coin; $beepnum = 4; $hrstwin = $hrstwin + 1; $hrbonus = $hrbonus + $hrbonusstd; } elsif ($anybar == 3) { $addmoney = 22 * $coin; $beepnum = 2; $hrstwin = $hrstwin + 1; } elsif ($onecherry == 1) { if ($nonep >= 1) { #nothing $beepnum = 0; $hrstlose = $hrstlose + 1; } else { if ($anycherry == 2) { if ($anycherry3 >= 1) { #nothing $beepnum = 0; $hrstlose = $hrstlose + 1; } else { if ($nonep >= 1) { #nothing $beepnum = 0; $hrstlose = $hrstlose + 1; } else { $addmoney = 5 * $coin; $beepnum = 2; $hrstwin = $hrstwin + 1; } } } else { if ($anycherry3 >= 1) { #nothing $beepnum = 0; $hrstlose = $hrstlose + 1; } else { if ($nonep >= 1) { #nothing $beepnum = 0; $hrstlose = $hrstlose + 1; } else { $addmoney = 2 * $coin; $beepnum = 2; $hrstwin = $hrstwin + 1; } } } } } elsif ($anydollar == 3) { if ($x eq "6166") { $addmoney = 125 * $coin; $beepnum = 4; $hrstwin = $hrstwin + 1; } elsif ($x eq "211621") { $addmoney = 180 * $coin; $beepnum = 4; $hrstwin = $hrstwin + 1; } elsif ($x eq "21166") { $addmoney = 80 * $coin; $beepnum = 3; $hrstwin = $hrstwin + 1; } elsif ($x eq "61621") { $addmoney = 80 * $coin; $beepnum = 3; $hrstwin = $hrstwin + 1; } elsif ($x eq "6621") { $addmoney = 80 * $coin; $beepnum = 3; $hrstwin = $hrstwin + 1; } elsif ($x eq "2166") { $addmoney = 80 * $coin; $beepnum = 3; $hrstwin = $hrstwin + 1; } elsif ($x eq "21621") { $addmoney = 80 * $coin; $beepnum = 3; $hrstwin = $hrstwin + 1; } else { $beepnum = 0; $hrstlose = $hrstlose + 1; } } elsif ($svslot1 eq '9') { if ($hrbonus > 0) { #Since this only happens in the bonus round #there are never blank spaces #thus no need to check for blank reels ($nonep) if ($svslot2 eq '9') { $addmoney = 10 * $coin; $beepnum = 2; } else { $addmoney = 5 * $coin; $beepnum = 2; } $hrstwin = $hrstwin + 1; } } else { $addmoney = 0; $beepnum = 0; $hrstlose = $hrstlose + 1; } $anybar = 0; $onecherry = 0; $anycherry = 0; $anycherry3 = 0; $anydollar = 0; $nonep = 0; if ($startreel == 1) { $startreel = 0; $addmoney = 0; } else { } } sub fundcalc { $money = $money + $addmoney; $hrstmc = $hrstmc + $addmoney; } sub reel1 { $reel = 1; if ($reelspin == 3) { $slot1 = 'spining'; $slot2 = 'spining'; $slot3 = 'spining'; $slot4 = 'spining'; $slot5 = 'spining'; $slot6 = 'spining'; $slot7 = 'spining'; $slot8 = 'spining'; $slot9 = 'spining'; $slot10 = 'spining'; $slot11 = 'spining'; $slot12 = 'spining'; $slot13 = 'spining'; $slot14 = 'spining'; } else { $slot1 = $svslot1; $slot2 = $svslot1; $slot3 = $svslot1; $slot4 = $svslot1; $slot5 = $svslot1; $slot6 = $svslot1; $slot7 = $svslot1; $slot8 = $svslot1; $slot9 = $svslot1; $slot10 = $svslot1; $slot11 = $svslot1; $slot12 = $svslot1; $slot13 = $svslot1; $slot14 = $svslot1; } } sub reel2 { $reel = 2; if ($reelspin >= 2) { $slot1 = 'spining'; $slot2 = 'spining'; $slot3 = 'spining'; $slot4 = 'spining'; $slot5 = 'spining'; $slot6 = 'spining'; $slot7 = 'spining'; $slot8 = 'spining'; $slot9 = 'spining'; $slot10 = 'spining'; $slot11 = 'spining'; $slot12 = 'spining'; $slot13 = 'spining'; $slot14 = 'spining'; } else { $slot1 = $svslot2; $slot2 = $svslot2; $slot3 = $svslot2; $slot4 = $svslot2; $slot5 = $svslot2; $slot6 = $svslot2; $slot7 = $svslot2; $slot8 = $svslot2; $slot9 = $svslot2; $slot10 = $svslot2; $slot11 = $svslot2; $slot12 = $svslot2; $slot13 = $svslot2; $slot14 = $svslot2; } } sub reel3 { $reel = 3; if ($reelspin >= 1) { $slot1 = 'spining'; $slot2 = 'spining'; $slot3 = 'spining'; $slot4 = 'spining'; $slot5 = 'spining'; $slot6 = 'spining'; $slot7 = 'spining'; $slot8 = 'spining'; $slot9 = 'spining'; $slot10 = 'spining'; $slot11 = 'spining'; $slot12 = 'spining'; $slot13 = 'spining'; $slot14 = 'spining'; } else { $slot1 = $svslot3; $slot2 = $svslot3; $slot3 = $svslot3; $slot4 = $svslot3; $slot5 = $svslot3; $slot6 = $svslot3; $slot7 = $svslot3; $slot8 = $svslot3; $slot9 = $svslot3; $slot10 = $svslot3; $slot11 = $svslot3; $slot12 = $svslot3; $slot13 = $svslot3; $slot14 = $svslot3; } } sub midprint0 { midprintbulb0(); } sub midprint1 { print color 'reset'; print colored('< >',"$boldyellow on_$bgcgreen"); print color 'reset'; } sub midprint5 { print color 'reset'; print colored('|',"$boldblack on_$bgcblack"); print colored('PAY',"$boldblack on_$bgcblack"); print colored('LINE',"$white on_$bgcblack"); print colored('< >',"$boldyellow on_$bgcgreen"); print color 'reset'; } sub midprint4 { print color 'reset'; print colored('| ',"$boldblack on_$bgcblack"); midprintbulb0(); print color 'reset'; } sub midprintbulb0 { if ($hrbulbcolor eq 'null') { print color 'reset'; print colored('[ ]',"$boldblack on_$bgcblack"); print color 'reset'; } else { print color 'reset'; print colored('[',"$boldblack on_$bgcblack"); print colored('*',"$hrbulbcolor on_$bgcblack"); print colored(']',"$boldblack on_$bgcblack"); print color 'reset'; } } sub midprint4bl1 { print color 'reset'; print colored('| ',"$boldblack on_$bgcblack"); if ($hrbonushlp > 0) { print colored(' x ',"$boldyellow on_$bgcblack"); } else { print colored(' x ',"$white on_$bgcblack"); } midprintbulb0(); print color 'reset'; } sub midprint4bl2 { print color 'reset'; print colored('| ',"$boldblack on_$bgcblack"); if ($hrbonushlp > 0) { print colored(' xXx ',"$boldyellow on_$bgcblack"); } else { print colored(' xXx ',"$white on_$bgcblack"); } midprintbulb0(); print color 'reset'; } sub midprint4bl3 { print color 'reset'; print colored('| ',"$boldblack on_$bgcblack"); if ($hrbonushlp > 0) { print colored(' XXX ',"$boldyellow on_$bgcblack"); } else { print colored(' XXX ',"$white on_$bgcblack"); } midprintbulb0(); print color 'reset'; } sub midprint4bl4 { print color 'reset'; print colored('| ',"$boldblack on_$bgcblack"); if ($hrbonushlp > 0) { print colored(' 0 ',"$yellow on_$bgcblack"); } else { print colored(' 0 ',"$white on_$bgcblack"); } midprintbulb0(); print color 'reset'; } sub midprint4bo { print color 'reset'; print colored('| ',"$boldblack on_$bgcblack"); if ($hrbonus > 0) { print colored('BONUS',"$boldgreen on_$bgcblack"); } else { print colored('BONUS',"$boldblack on_$bgcblack"); } print colored(' ',"$boldblack on_$bgcblack"); midprintbulb0(); print color 'reset'; } sub midprint4bn { print color 'reset'; print colored('| ',"$boldblack on_$bgcblack"); if ($hrbonus > 10000) { print colored($hrbonus-1,"$green on_$bgcblack"); } elsif ($hrbonus > 1000) { print colored('0',"$green on_$bgcblack"); print colored($hrbonus-1,"$green on_$bgcblack"); } elsif ($hrbonus > 100) { print colored('00',"$green on_$bgcblack"); print colored($hrbonus-1,"$green on_$bgcblack"); } elsif ($hrbonus > 10) { print colored('000',"$green on_$bgcblack"); print colored($hrbonus-1,"$green on_$bgcblack"); } elsif ($hrbonus > 0) { print colored('0000',"$green on_$bgcblack"); print colored($hrbonus-1,"$green on_$bgcblack"); } else { print colored('00000',"$white on_$bgcblack"); } print colored(' ',"$boldblack on_$bgcblack"); midprintbulb0(); print color 'reset'; } sub midprint3 { print color 'reset'; print colored('|',"$boldblack on_$bgcblack"); print colored('PAY',"$white on_$bgcblack"); print colored('LINE',"$boldblack on_$bgcblack"); print colored('< >',"$boldyellow on_$bgcgreen"); print color 'reset'; } sub topprint0 { print color 'reset'; print colored('| ',"$boldblack on_$bgcblack"); #Over/Under Reel 1 midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0(); #Over/Under Reel 2 midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0(); #Over/Under Reel 3 midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0(); midprintbulb0(); print color 'reset'; } sub mainscreen { topprint0(); print"\n"; sub sep() { print $SEP; }; midprint4(); reel1(); sep; slot1(); sep; midprint0(); reel2(); sep; slot1(); sep; midprint0(); reel3(); sep; slot1(); sep; midprint0(); print"\n"; midprint4(); reel1(); sep; slot2(); sep; midprint0(); reel2(); sep; slot2(); sep; midprint0(); reel3(); sep; slot2(); sep; midprint0(); print"\n"; midprint4bo(); reel1(); sep; slot3(); sep; midprint0(); reel2(); sep; slot3(); sep; midprint0(); reel3(); sep; slot3(); sep; midprint0(); print"\n"; midprint4bn(); reel1(); sep; slot4(); sep; midprint0(); reel2(); sep; slot4(); sep; midprint0(); reel3(); sep; slot4(); sep; midprint0(); print"\n"; midprint4bo(); reel1(); sep; slot5(); sep; midprint0(); reel2(); sep; slot5(); sep; midprint0(); reel3(); sep; slot5(); sep; midprint0(); print"\n"; midprint4(); reel1(); sep; slot6(); sep; midprint0(); reel2(); sep; slot6(); sep; midprint0(); reel3(); sep; slot6(); sep; midprint0(); print"\n"; midprint3(); reel1(); sep; slot7(); sep; midprint1(); reel2(); sep; slot7(); sep; midprint1(); reel3(); sep; slot7(); sep; midprint1(); print"\n"; midprint5(); reel1(); sep; slot8(); sep; midprint1(); reel2(); sep; slot8(); sep; midprint1(); reel3(); sep; slot8(); sep; midprint1(); print"\n"; midprint4(); reel1(); sep; slot9(); sep; midprint0(); reel2(); sep; slot9(); sep; midprint0(); reel3(); sep; slot9(); sep; midprint0(); print"\n"; midprint4(); reel1(); sep; slot10(); sep; midprint0(); reel2(); sep; slot10(); sep; midprint0(); reel3(); sep; slot10(); sep; midprint0(); print"\n"; midprint4(); reel1(); sep; slot11(); sep; midprint0(); reel2(); sep; slot11(); sep; midprint0(); reel3(); sep; slot11(); sep; midprint0(); print"\n"; midprint4(); reel1(); sep; slot12(); sep; midprint0(); reel2(); sep; slot12(); sep; midprint0(); reel3(); sep; slot12(); sep; midprint0(); print"\n"; midprint4(); reel1(); sep; slot13(); sep; midprint0(); reel2(); sep; slot13(); sep; midprint0(); reel3(); sep; slot13(); sep; midprint0(); print"\n"; midprint4(); reel1(); sep; slot14(); sep; midprint0(); reel2(); sep; slot14(); sep; midprint0(); reel3(); sep; slot14(); sep; midprint0(); print"\n"; topprint0(); print"\n"; } sub displaywin { print colored('|------------------------------------------------------------------------------|',"$boldblack on_$bgcblack"); print"\n"; print colored('| ',"$boldblack on_$bgcblack"); print colored('WINNINGS ',"$boldblack on_$bgcblack"); print $SEP; if ($addmoney > 9999999999) { print colored(sprintf("%.4e", $addmoney),"$boldred on_$bgcred"); } elsif ($addmoney >= 1000000000) { print colored("$addmoney","$boldred on_$bgcred"); } elsif ($addmoney >= 100000000) { print colored(" $addmoney","$boldred on_$bgcred"); } elsif ($addmoney >= 10000000) { print colored(" $addmoney","$boldred on_$bgcred"); } elsif ($addmoney >= 1000000) { print colored(" $addmoney","$boldred on_$bgcred"); } elsif ($addmoney >= 100000) { print colored(" $addmoney","$boldred on_$bgcred"); } elsif ($addmoney >= 10000) { print colored(" $addmoney","$boldred on_$bgcred"); } elsif ($addmoney >= 1000) { print colored(" $addmoney","$boldred on_$bgcred"); } elsif ($addmoney >= 100) { print colored(" $addmoney","$boldred on_$bgcred"); } elsif ($addmoney >= 10) { print colored(" $addmoney","$boldred on_$bgcred"); } elsif ($addmoney >= 1) { print colored(" $addmoney","$boldred on_$bgcred"); } else { print colored(" $addmoney","$boldred on_$bgcred"); } print $SEP; print colored(' TOTAL FUNDS ',"$boldblack on_$bgcblack"); print $SEP; if ($money > 9999999999) { print colored(sprintf("%.4e", $money),"$boldgreen on_$bgcgreen"); } elsif ($money >= 1000000000) { print colored("$money","$boldgreen on_$bgcgreen"); } elsif ($money >= 100000000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 10000000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 1000000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 100000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 10000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 1000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 100) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 10) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 1) { print colored(" $money","$boldgreen on_$bgcgreen"); } else { print colored(" $money","$boldgreen on_$bgcgreen"); } print $SEP; # print colored(' INSERT TOKEN ',"$boldyellow on_$bgcblack"); print $SEP; print colored(' ---------- ',"$black on_$bgcyellow"); print $SEP; print colored(' |',"$boldblack on_$bgcblack"); beepalrm(); print colored('|------------------------------------------------------------------------------|',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldblack on_$bgcblack"); print colored(' HOUSE RULES REEL DEAL ',"$boldblue on_$bgcblue"); print colored('|',"$boldblack on_$bgcblack"); beepalrm(); print colored('|',"$boldblack on_$bgcblack"); print colored(' GNU GNU GNU ',"$boldblue on_$bgcblue"); print colored('= 10000 ',"$boldwhite on_$bgcblue"); print colored(' * ',"$red on_$bgcblue"); print colored(' * ',"$white on_$bgcblue"); print colored(' * ',"$boldblue on_$bgcblue"); print colored('= 62 ',"$boldwhite on_$bgcblue"); print colored('BAR',"$boldyellow on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$boldyellow on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$boldmagenta on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('= 600 ',"$boldwhite on_$bgcblue"); print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored(' $ ',"$green on_$bgcblue"); print colored('= 20',"$boldwhite on_$bgcblue"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('|',"$boldblack on_$bgcblack"); beepalrm(); print colored('|',"$boldblack on_$bgcblack"); print colored(' 7 7 7 ',"$red on_$bgcblue"); print colored('= 2000 ',"$boldwhite on_$bgcblue"); print colored(' O O O ',"$magenta on_$bgcblue"); print colored('= 40 ',"$boldwhite on_$bgcblue"); print colored('BAR',"$boldyellow on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$boldyellow on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('= 450 ',"$boldwhite on_$bgcblue"); print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored(' * ',"$boldblue on_$bgcblue"); print colored('= 18',"$boldwhite on_$bgcblue"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('|',"$boldblack on_$bgcblack"); beepalrm(); print colored('|',"$boldblack on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$boldyellow on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$boldyellow on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$boldyellow on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('= 1000 ',"$boldwhite on_$bgcblue"); print colored(' BEL BEL BEL ',"$boldyellow on_$bgcblue"); print colored('= 25 ',"$boldwhite on_$bgcblue"); print colored('BAR',"$boldmagenta on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$boldmagenta on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('= 200 ',"$boldwhite on_$bgcblue"); print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored(' O ',"$magenta on_$bgcblue"); print colored('= 16',"$boldwhite on_$bgcblue"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('|',"$boldblack on_$bgcblack"); beepalrm(); print colored('|',"$boldblack on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$boldmagenta on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$boldmagenta on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$boldmagenta on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('= 300 ',"$boldwhite on_$bgcblue"); print colored(' C C C ',"$boldred on_$bgcblue"); print colored('= 10 ',"$boldwhite on_$bgcblue"); print colored(' ANYBAR x3 ',"$white on_$bgcblue"); print colored('= 22 ',"$boldwhite on_$bgcblue"); print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BEL ',"$boldyellow on_$bgcblue"); print colored('= 14',"$boldwhite on_$bgcblue"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('|',"$boldblack on_$bgcblack"); beepalrm(); print colored('|',"$boldblack on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('= 150 ',"$boldwhite on_$bgcblue"); print colored(' C C ',"$boldred on_$bgcblue"); print colored(' ANY ',"$white on_$bgcblue"); print colored('= 5 ',"$boldwhite on_$bgcblue"); print colored(' $ ',"$green on_$bgcblue"); print colored('$',"$boldyellow on_$bgcblue"); print colored(' $ ',"$green on_$bgcblue"); print colored('= 125 ',"$boldwhite on_$bgcblue"); print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored('BAR',"$cyan on_$bgcblack"); print colored(' ',"$boldblack on_$bgcblue"); print colored(' C ',"$boldred on_$bgcblue"); print colored('= 12',"$boldwhite on_$bgcblue"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('|',"$boldblack on_$bgcblack"); beepalrm(); print colored('|',"$boldblack on_$bgcblack"); print colored(' $ $ $ ',"$green on_$bgcblue"); print colored('= 80 ',"$boldwhite on_$bgcblue"); print colored(' C ',"$boldred on_$bgcblue"); print colored('ANY ANY ',"$white on_$bgcblue"); print colored('= 2 ',"$boldwhite on_$bgcblue"); print colored(' $ ',"$boldwhite on_$bgcblue"); print colored('$',"$boldyellow on_$bgcblue"); print colored(' $ ',"$boldwhite on_$bgcblue"); print colored('= 180 ',"$boldwhite on_$bgcblue"); print colored('B',"$boldyellow on_$bgcmagenta"); print colored('N',"$boldyellow on_$bgccyan"); print colored('S',"$boldyellow on_$bgcmagenta"); print colored(' ',"$boldblack on_$bgcblue"); print colored('B',"$boldyellow on_$bgcmagenta"); print colored('N',"$boldyellow on_$bgccyan"); print colored('S',"$boldyellow on_$bgcmagenta"); print colored(' ',"$boldblack on_$bgcblue"); print colored('B',"$boldyellow on_$bgcmagenta"); print colored('N',"$boldyellow on_$bgccyan"); print colored('S',"$boldyellow on_$bgcmagenta"); print colored(' = 15 ',"$boldwhite on_$bgcblue"); print colored('|',"$boldblack on_$bgcblack"); beepalrm(); print colored('\\------------------------------------------------------------------------------/',"$boldblack on_$bgcblack"); beepalrm(); $beepnum = 0; } sub topscreen { print colored(' ______________________________________________________________________________ ',"$boldblack on_$bgcblack"); print"\n"; 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"; } ################################################################################################################################ ## GENRE: Slot Mahine ## NAME: Double Blue Diamond ## AUTHOR: MikeeUSA sub ddmain { ddresetvars(); ddspinreel(); ddreeltrans(); if ($animate == 1) { $ddreelspin = 3; ddtopprint(); ddmainscreen(); smallpause(); newlines(); $ddreelspin = 2; ddtopprint(); ddmainscreen(); tinypause(); newlines(); $ddreelspin = 1; ddtopprint(); ddmainscreen(); tinypause(); newlines(); } $ddreelspin = 0; ddtopprint(); $ddx = $ddsvslot1.$ddsvslot2.$ddsvslot3; ddaddmoney(); ddfundcalc(); ddmainscreen(); ptracker(); ddstartinfo(); } sub ddmain2 { ddresetvars(); ddreeltrans(); ddtopprint(); $ddx = ' '; #keep, a reset to null type job... well not quite null. ##ddaddmoney(); #Relic from the dark ages, Don't uncomment. ddmainscreen(); ddstartinfo(); } sub ddresetvars { $ddreelspin = 0; } sub ddstartinfo { tokeneval(); $ddstartinfo = <STDIN>; chomp($ddstartinfo); if (($ddstartinfo eq 'a') or ($ddstartinfo eq 'A')) { $ddstartinfo = $ddagaincmd; } elsif (($ddstartinfo eq 'p') or ($ddstartinfo eq 'P') or ($ddstartinfo eq '1p') or ($ddstartinfo eq '1P')) { $ddagaincmd = $ddstartinfo; } else { #Do Nothing } if (($ddstartinfo eq 'p') or ($ddstartinfo eq 'P') or ($ddstartinfo eq '1p') or ($ddstartinfo eq '1P')) { if ($money >= $coin) { $money = $money - $coin; $moneyexp = $moneyexp + $coin; $ddstmc2 = $ddstmc2 + $coin; $spins = $spins + 1; $ddstspins = $ddstspins + 1; if ($proadd == 1) { $projkpot = $projkpot + $coin; $proadd = 0; } else { $proadd = 1; } newlines(); ddmain(); } else { newlines(); ddmain2(); } } elsif (($ddstartinfo eq 'exit') or ($ddstartinfo eq 'EXIT') or ($ddstartinfo eq 'quit') or ($ddstartinfo eq 'QUIT')) { exitgame(); } elsif (($ddstartinfo eq 'c') or ($ddstartinfo eq 'C')) { return; } else { newlines(); ddmain2(); } } sub ddfundcalc { $money = $money + $ddaddmoney; $ddstmc = $ddstmc + $ddaddmoney; } sub ddslot2dia2 { if ($ddslot2 == 1) {$ddcolor = "bold $ddcolor"; } elsif ($ddslot2 == 11) {$ddcolor = "bold $ddcolor"; } else { } print colored(' ___________ ',"$ddcolor on_$bgcwhite"); } sub ddslot2dia3 { if ($ddslot3 == 1) {$ddcolor = "bold $ddcolor"; } elsif ($ddslot3 == 11) {$ddcolor = "bold $ddcolor"; } else { $ddcolort = "$boldblack"; } print colored(' _/_____|_____\ ',"$ddcolor on_$bgcwhite"); } 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"); } 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"); } 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"); } 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"); } 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"); } 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"); } 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"); } sub ddslot1dia3 { print colored(' ___________ ',"$ddcolor on_$bgcwhite"); } sub ddslot1dia4 { print colored(' /_____|_____\\ ',"$ddcolor on_$bgcwhite"); } sub ddslot1dia5 { $ddcolort = "$boldblack"; print colored(' \\** *',"$ddcolor on_$bgcwhite"); print colored('| 0 0/ ',"$ddcolort on_$bgcwhite"); } sub ddslot1dia6 { $ddcolort = "$boldblack"; print colored(' \\ * *',"$ddcolor on_$bgcwhite"); print colored('| 00/ ',"$ddcolort on_$bgcwhite"); } sub ddslot1dia7 { $ddcolort = "$boldblack"; print colored(' \\ * ',"$ddcolor on_$bgcwhite"); print colored('|0 / ',"$ddcolort on_$bgcwhite"); } sub ddslot1dia8 { $ddcolort = "$boldblack"; print colored(' \\ *',"$ddcolor on_$bgcwhite"); print colored('| 0/ ',"$ddcolort on_$bgcwhite"); } sub ddslot1dia9 { $ddcolort = "$boldblack"; print colored(' \\*',"$ddcolor on_$bgcwhite"); print colored('| / ',"$ddcolort on_$bgcwhite"); } sub ddslot1dia10 { $ddcolort = "$boldblack"; print colored(' \\',"$ddcolor on_$bgcwhite"); print colored('|/ ',"$ddcolort on_$bgcwhite"); } sub ddslot1jwl3 { print colored(' _______ ',"bold $ddcolor on_$bgcwhite"); } sub ddslot1jwl4 { print colored(' /\\* ***/',"bold $ddcolor on_$bgcwhite"); print colored('\\ ',"$ddcolor on_$bgcwhite"); } sub ddslot1jwl5 { print colored(' /__\\___/',"bold $ddcolor on_$bgcwhite"); print colored('__\\ ',"$ddcolor on_$bgcwhite"); } sub ddslot1jwl6 { print colored(' | *|',"bold $ddcolor on_$bgcwhite"); print colored(' 0| | ',"$ddcolor on_$bgcwhite"); } sub ddslot1jwl7 { print colored(' |* |',"bold $ddcolor on_$bgcwhite"); print colored('0 | | ',"$ddcolor on_$bgcwhite"); } sub ddslot1jwl8 { print colored(' |__|',"bold $ddcolor on_$bgcwhite"); print colored('___|__| ',"$ddcolor on_$bgcwhite"); } sub ddslot1jwl9 { print colored(' \ */ \ / ',"$ddcolor on_$bgcwhite"); } sub ddslot1jwl10 { print colored(' \/_____\/ ',"$ddcolor on_$bgcwhite"); } sub ddslot1emr2 { print colored(' /|',"bold $ddcolor on_$bgcwhite"); print colored('\ ',"$ddcolor on_$bgcwhite"); } sub ddslot1emr3 { print colored(' /*|',"bold $ddcolor on_$bgcwhite"); print colored('*\ ',"$ddcolor on_$bgcwhite"); } sub ddslot1emr4 { print colored(' /*/',"bold $ddcolor on_$bgcwhite"); print colored('0\ \ ',"$ddcolor on_$bgcwhite"); } sub ddslot1emr5 { print colored(' /*/',"bold $ddcolor on_$bgcwhite"); print colored('0 0\*\ ',"$ddcolor on_$bgcwhite"); } sub ddslot1emr6 { print colored(' /_/',"bold $ddcolor on_$bgcwhite"); print colored('0 000\_\ ',"$ddcolor on_$bgcwhite"); } sub ddslot1emr7 { print colored(' \*\000 0/*/ ',"$ddcolor on_$bgcwhite"); } sub ddslot1emr8 { print colored(' \ \ 00/*/ ',"$ddcolor on_$bgcwhite"); } sub ddslot1emr9 { print colored(' \*\0/ / ',"$ddcolor on_$bgcwhite"); } sub ddslot1emr10 { print colored(' \ |*/ ',"$ddcolor on_$bgcwhite"); } sub ddslot1emr11 { print colored(' \|/ ',"$ddcolor on_$bgcwhite"); } sub ddslot1gnt4 { print colored(' ___________ ',"$ddcolor on_$bgcwhite"); } sub ddslot1gnt5 { print colored(' |\ _______ /| ',"$ddcolor on_$bgcwhite"); } sub ddslot1gnt6 { print colored(' |*| 00 00|*| ',"$ddcolor on_$bgcwhite"); } sub ddslot1gnt7 { print colored(' |*|00 00 0|*| ',"$ddcolor on_$bgcwhite"); } sub ddslot1gnt8 { print colored(' |*|_______|*| ',"$ddcolor on_$bgcwhite"); } sub ddslot1gnt9 { print colored(' |/_________\| ',"$ddcolor on_$bgcwhite"); } sub ddslot1crs1 { print colored(' /|',"bold $ddcolor on_$bgcwhite"); print colored('\ ',"$ddcolor on_$bgcwhite"); } sub ddslot1crs2 { print colored(' /*|',"bold $ddcolor on_$bgcwhite"); print colored('0\ ',"$ddcolor on_$bgcwhite"); } sub ddslot1crs3 { print colored(' /__|',"bold $ddcolor on_$bgcwhite"); print colored('__\ ',"$ddcolor on_$bgcwhite"); } sub ddslot1crs4 { print colored(' |**|',"bold $ddcolor on_$bgcwhite"); print colored(' 0| ',"$ddcolor on_$bgcwhite"); } sub ddslot1crs5 { print colored(' |* |',"bold $ddcolor on_$bgcwhite"); print colored('0 | ',"$ddcolor on_$bgcwhite"); } sub ddslot1crs6 { print colored(' | *|',"bold $ddcolor on_$bgcwhite"); print colored(' 0| ',"$ddcolor on_$bgcwhite"); } sub ddslot1crs7 { print colored(' |__|',"bold $ddcolor on_$bgcwhite"); print colored('__| ',"$ddcolor on_$bgcwhite"); } sub ddslot1crs8 { print colored(' \* | 0/ ',"$ddcolor on_$bgcwhite"); } sub ddslot1crs9 { print colored(' \*|0/ ',"$ddcolor on_$bgcwhite"); } sub ddslot1crs10 { print colored(' \|/ ',"$ddcolor on_$bgcwhite"); } sub ddslotwhite { print colored(' ',"$ddcolor on_$bgcwhite"); } sub ddslotspining { print colored('||||||||||||||||',"$boldwhite on_$bgcwhite"); } sub ddspinreel { $ddslotsymbol1 = int(rand(56)); $ddslotsymbol2 = int(rand(56)); $ddslotsymbol3 = int(rand(56)); } sub ddreeltrans { if ($ddslotsymbol1 <= 12) { $ddsvslot1 = 7; $ddr1color = "$black"; } elsif ($ddslotsymbol1 <= 22) { $ddsvslot1 = 6; $ddr1color = "$boldyellow"; } elsif ($ddslotsymbol1 <= 30) { $ddsvslot1 = 5; $ddr1color = "$green"; } elsif ($ddslotsymbol1 <= 36) { $ddsvslot1 = 4; $ddr1color = "$red"; } elsif ($ddslotsymbol1 <= 40) { $ddsvslot1 = 3; $ddr1color = "$boldwhite"; } elsif ($ddslotsymbol1 <= 42) { $ddsvslot1 = 2; $ddr1color = "$boldwhite"; } elsif ($ddslotsymbol1 <= 43) { $ddsvslot1 = 1; $ddr1color = "$blue"; } elsif ($ddslotsymbol1 <= 46) { $ddsvslot1 = 8; $ddr1color = "$white"; } elsif ($ddslotsymbol1 <= 49) { $ddsvslot1 = 9; $ddr1color = "$white"; } elsif ($ddslotsymbol1 <= 52) { $ddsvslot1 = 10; $ddr1color = "$white"; } elsif ($ddslotsymbol1 <= 55) { $ddsvslot1 = 11; $ddr1color = "$white"; } else { $ddsvslot1 = 0; $ddr1color = "$white"; } if ($ddslotsymbol2 <= 12) { $ddsvslot2 = 7; $ddr2color = "$black"; } elsif ($ddslotsymbol2 <= 22) { $ddsvslot2 = 6; $ddr2color = "$boldyellow"; } elsif ($ddslotsymbol2 <= 30) { $ddsvslot2 = 5; $ddr2color = "$green"; } elsif ($ddslotsymbol2 <= 36) { $ddsvslot2 = 4; $ddr2color = "$red"; } elsif ($ddslotsymbol2 <= 40) { $ddsvslot2 = 3; $ddr2color = "$boldwhite"; } elsif ($ddslotsymbol2 <= 42) { $ddsvslot2 = 2; $ddr2color = "$boldwhite"; } elsif ($ddslotsymbol2 <= 43) { $ddsvslot2 = 1; $ddr2color = "$blue"; } elsif ($ddslotsymbol2 <= 46) { $ddsvslot2 = 8; $ddr2color = "$white"; } elsif ($ddslotsymbol2 <= 49) { $ddsvslot2 = 9; $ddr2color = "$white"; } elsif ($ddslotsymbol2 <= 52) { $ddsvslot2 = 10; $ddr2color = "$white"; } elsif ($ddslotsymbol2 <= 55) { $ddsvslot2 = 11; $ddr2color = "$white"; } else { $ddsvslot2 = 0; $ddr2color = "$white"; } if ($ddslotsymbol3 <= 12) { $ddsvslot3 = 7; $ddr3color = "$black"; } elsif ($ddslotsymbol3 <= 22) { $ddsvslot3 = 6; $ddr3color = "$boldyellow"; } elsif ($ddslotsymbol3 <= 30) { $ddsvslot3 = 5; $ddr3color = "$green"; } elsif ($ddslotsymbol3 <= 36) { $ddsvslot3 = 4; $ddr3color = "$red"; } elsif ($ddslotsymbol3 <= 40) { $ddsvslot3 = 3; $ddr3color = "$boldwhite"; } elsif ($ddslotsymbol3 <= 42) { $ddsvslot3 = 2; $ddr3color = "$boldwhite"; } elsif ($ddslotsymbol3 <= 43) { $ddsvslot3 = 1; $ddr3color = "$blue"; } elsif ($ddslotsymbol3 <= 46) { $ddsvslot3 = 8; $ddr3color = "$white"; } elsif ($ddslotsymbol3 <= 49) { $ddsvslot3 = 9; $ddr3color = "$white"; } elsif ($ddslotsymbol3 <= 52) { $ddsvslot3 = 10; $ddr3color = "$white"; } elsif ($ddslotsymbol3 <= 55) { $ddsvslot3 = 11; $ddr3color = "$white"; } else { $ddsvslot3 = 0; $ddr3color = "$white"; } } sub ddslot1 { if ($ddslot1 eq 'spining') { ddslotspining(); } elsif ($ddslot1 == 7) { ddslot1crs1(); } elsif ($ddslot1 == 8) { $ddcolor = "$black"; ddslot1crs8(); } elsif ($ddslot1 == 9) { $ddcolor = "$green"; ddslot1emr8(); } elsif ($ddslot1 == 10) { $ddcolor = "$boldyellow"; ddslot1gnt7(); } elsif ($ddslot1 == 11) { $ddcolor = "$blue"; ddslot2dia8(); } else { ddslotwhite(); } } sub ddslot2 { if ($ddslot2 eq 'spining') { ddslotspining(); } elsif ($ddslot2 == 1) { ddslot2dia2(); } elsif ($ddslot2 == 2) { ddslot2dia2(); } elsif ($ddslot2 == 5) { ddslot1emr2(); } elsif ($ddslot2 == 7) { ddslot1crs2(); } elsif ($ddslot2 == 8) { $ddcolor = "$black"; ddslot1crs9(); } elsif ($ddslot2 == 9) { $ddcolor = "$green"; ddslot1emr9(); } elsif ($ddslot2 == 10) { $ddcolor = "$boldyellow"; ddslot1gnt8(); } elsif ($ddslot1 == 11) { $ddcolor = "$blue"; ddslot2dia9(); } else { ddslotwhite(); } } sub ddslot3 { if ($ddslot3 eq 'spining') { ddslotspining(); } elsif ($ddslot3 == 1) { ddslot2dia3(); } elsif ($ddslot3 == 2) { ddslot2dia3(); } elsif ($ddslot3 == 3) { ddslot1dia3(); } elsif ($ddslot3 == 4) { ddslot1jwl3(); } elsif ($ddslot3 == 5) { ddslot1emr3(); } elsif ($ddslot3 == 7) { ddslot1crs3(); } elsif ($ddslot3 == 8) { $ddcolor = "$black"; ddslot1crs10(); } elsif ($ddslot3 == 9) { $ddcolor = "$green"; ddslot1emr10(); } elsif ($ddslot3 == 10) { $ddcolor = "$boldyellow"; ddslot1gnt9(); } elsif ($ddslot1 == 11) { $ddcolor = "$blue"; ddslot2dia10(); } else { ddslotwhite(); } } sub ddslot4 { if ($ddslot4 eq 'spining') { ddslotspining(); } elsif ($ddslot4 == 1) { ddslot2dia4(); } elsif ($ddslot4 == 2) { ddslot2dia4(); } elsif ($ddslot4 == 3) { ddslot1dia4(); } elsif ($ddslot4 == 4) { ddslot1jwl4(); } elsif ($ddslot4 == 5) { ddslot1emr4(); } elsif ($ddslot4 == 6) { ddslot1gnt4(); } elsif ($ddslot4 == 7) { ddslot1crs4(); } elsif ($ddslot4 == 9) { $ddcolor = "$green"; ddslot1emr11(); } else { ddslotwhite(); } } sub ddslot5 { if ($ddslot5 eq 'spining') { ddslotspining(); } elsif ($ddslot5 == 1) { ddslot2dia5(); } elsif ($ddslot5 == 2) { ddslot2dia5(); } elsif ($ddslot5 == 3) { ddslot1dia5(); } elsif ($ddslot5 == 4) { ddslot1jwl5(); } elsif ($ddslot5 == 5) { ddslot1emr5(); } elsif ($ddslot5 == 6) { ddslot1gnt5(); } elsif ($ddslot5 == 7) { ddslot1crs5(); } else { ddslotwhite(); } } sub ddslot6 { if ($ddslot6 eq 'spining') { ddslotspining(); } elsif ($ddslot6 == 1) { ddslot2dia6(); } elsif ($ddslot6 == 2) { ddslot2dia6(); } elsif ($ddslot6 == 3) { ddslot1dia6(); } elsif ($ddslot6 == 4) { ddslot1jwl6(); } elsif ($ddslot6 == 5) { ddslot1emr6(); } elsif ($ddslot6 == 6) { ddslot1gnt6(); } elsif ($ddslot6 == 7) { ddslot1crs6(); } else { ddslotwhite(); } } sub ddslot7 { if ($ddslot7 eq 'spining') { ddslotspining(); } elsif ($ddslot7 == 1) { ddslot2dia7(); } elsif ($ddslot7 == 2) { ddslot2dia7(); } elsif ($ddslot7 == 3) { ddslot1dia7(); } elsif ($ddslot7 == 4) { ddslot1jwl7(); } elsif ($ddslot7 == 5) { ddslot1emr7(); } elsif ($ddslot7 == 6) { ddslot1gnt7(); } elsif ($ddslot7 == 7) { ddslot1crs7(); } elsif ($ddslot7 == 11) { $ddcolor = "$black"; ddslot1crs1(); } else { ddslotwhite(); } } sub ddslot8 { if ($ddslot8 eq 'spining') { ddslotspining(); } elsif ($ddslot8 == 1) { ddslot2dia8(); } elsif ($ddslot8 == 2) { ddslot2dia8(); } elsif ($ddslot8 == 3) { ddslot1dia8(); } elsif ($ddslot8 == 4) { ddslot1jwl8(); } elsif ($ddslot8 == 5) { ddslot1emr8(); } elsif ($ddslot8 == 6) { ddslot1gnt8(); } elsif ($ddslot8 == 7) { ddslot1crs8(); } elsif ($ddslot8 == 11) { $ddcolor = "$black"; ddslot1crs2(); } else { ddslotwhite(); } } sub ddslot9 { if ($ddslot9 eq 'spining') { ddslotspining(); } elsif ($ddslot9 == 1) { ddslot2dia9(); } elsif ($ddslot9 == 2) { ddslot2dia9(); } elsif ($ddslot9 == 3) { ddslot1dia9(); } elsif ($ddslot9 == 4) { ddslot1jwl9(); } elsif ($ddslot9 == 5) { ddslot1emr9(); } elsif ($ddslot9 == 6) { ddslot1gnt9(); } elsif ($ddslot9 == 7) { ddslot1crs9(); } elsif ($ddslot9 == 8) { $ddcolor = "$red"; ddslot1jwl3(); } elsif ($ddslot9 == 9) { $ddcolor = "$boldwhite"; ddslot1dia3(); } elsif ($ddslot9 == 10) { $ddcolor = "$boldwhite"; ddslot1dia3(); } elsif ($ddslot9 == 11) { $ddcolor = "$black"; ddslot1crs3(); } else { ddslotwhite(); } } sub ddslot10 { if ($ddslot10 eq 'spining') { ddslotspining(); } elsif ($ddslot10 == 1) { ddslot2dia10(); } elsif ($ddslot10 == 2) { ddslot2dia10(); } elsif ($ddslot10 == 3) { ddslot1dia10(); } elsif ($ddslot10 == 4) { ddslot1jwl10(); } elsif ($ddslot10 == 5) { ddslot1emr10(); } elsif ($ddslot10 == 7) { ddslot1crs10(); } elsif ($ddslot10 == 8) { $ddcolor = "$red"; ddslot1jwl4(); } elsif ($ddslot10 == 9) { $ddcolor = "$boldwhite"; ddslot1dia4(); } elsif ($ddslot10 == 10) { $ddcolor = "$boldwhite"; ddslot1dia4(); } elsif ($ddslot10 == 11) { $ddcolor = "$black"; ddslot1crs4(); } else { ddslotwhite(); } } sub ddslot11 { if ($ddslot11 eq 'spining') { ddslotspining(); } elsif ($ddslot11 == 5) { ddslot1emr11(); } elsif ($ddslot11 == 8) { $ddcolor = "$red"; ddslot1jwl5(); } elsif ($ddslot11 == 9) { $ddcolor = "$boldwhite"; ddslot1dia5(); } elsif ($ddslot11 == 10) { $ddcolor = "$boldwhite"; ddslot1dia5(); } elsif ($ddslot11 == 11) { $ddcolor = "$black"; ddslot1crs5(); } else { ddslotwhite(); } } sub ddcolorr1 { $ddcolor = $ddr1color; } sub ddcolorr2 { $ddcolor = $ddr2color; } sub ddcolorr3 { $ddcolor = $ddr3color; } sub ddreel1 { $ddreel = 1; if ($ddreelspin == 3) { $ddslot1 = 'spining'; $ddslot2 = 'spining'; $ddslot3 = 'spining'; $ddslot4 = 'spining'; $ddslot5 = 'spining'; $ddslot6 = 'spining'; $ddslot7 = 'spining'; $ddslot8 = 'spining'; $ddslot9 = 'spining'; $ddslot10 = 'spining'; $ddslot11 = 'spining'; $ddslot12 = 'spining'; $ddslot13 = 'spining'; $ddslot14 = 'spining'; } else { $ddslot1 = $ddsvslot1; $ddslot2 = $ddsvslot1; $ddslot3 = $ddsvslot1; $ddslot4 = $ddsvslot1; $ddslot5 = $ddsvslot1; $ddslot6 = $ddsvslot1; $ddslot7 = $ddsvslot1; $ddslot8 = $ddsvslot1; $ddslot9 = $ddsvslot1; $ddslot10 = $ddsvslot1; $ddslot11 = $ddsvslot1; $ddslot12 = $ddsvslot1; $ddslot13 = $ddsvslot1; $ddslot14 = $ddsvslot1; } } sub ddreel2 { $ddreel = 2; if ($ddreelspin >= 2) { $ddslot1 = 'spining'; $ddslot2 = 'spining'; $ddslot3 = 'spining'; $ddslot4 = 'spining'; $ddslot5 = 'spining'; $ddslot6 = 'spining'; $ddslot7 = 'spining'; $ddslot8 = 'spining'; $ddslot9 = 'spining'; $ddslot10 = 'spining'; $ddslot11 = 'spining'; $ddslot12 = 'spining'; $ddslot13 = 'spining'; $ddslot14 = 'spining'; } else { $ddslot1 = $ddsvslot2; $ddslot2 = $ddsvslot2; $ddslot3 = $ddsvslot2; $ddslot4 = $ddsvslot2; $ddslot5 = $ddsvslot2; $ddslot6 = $ddsvslot2; $ddslot7 = $ddsvslot2; $ddslot8 = $ddsvslot2; $ddslot9 = $ddsvslot2; $ddslot10 = $ddsvslot2; $ddslot11 = $ddsvslot2; $ddslot12 = $ddsvslot2; $ddslot13 = $ddsvslot2; $ddslot14 = $ddsvslot2; } } sub ddreel3 { $ddreel = 3; if ($ddreelspin >= 1) { $ddslot1 = 'spining'; $ddslot2 = 'spining'; $ddslot3 = 'spining'; $ddslot4 = 'spining'; $ddslot5 = 'spining'; $ddslot6 = 'spining'; $ddslot7 = 'spining'; $ddslot8 = 'spining'; $ddslot9 = 'spining'; $ddslot10 = 'spining'; $ddslot11 = 'spining'; $ddslot12 = 'spining'; $ddslot13 = 'spining'; $ddslot14 = 'spining'; } else { $ddslot1 = $ddsvslot3; $ddslot2 = $ddsvslot3; $ddslot3 = $ddsvslot3; $ddslot4 = $ddsvslot3; $ddslot5 = $ddsvslot3; $ddslot6 = $ddsvslot3; $ddslot7 = $ddsvslot3; $ddslot8 = $ddsvslot3; $ddslot9 = $ddsvslot3; $ddslot10 = $ddsvslot3; $ddslot11 = $ddsvslot3; $ddslot12 = $ddsvslot3; $ddslot13 = $ddsvslot3; $ddslot14 = $ddsvslot3; } } sub ddmid0a { print color 'reset'; print colored('| []',"$boldblack on_$bgcblack"); print color 'reset'; } sub ddmid0 { print color 'reset'; print colored('[]',"$boldblack on_$bgcblack"); print color 'reset'; } sub ddmid0b { print color 'reset'; print colored('|',"$boldblack on_$bgcblack"); print colored(' PAY ',"$boldyellow on_$bgcblack"); print colored('[]',"$boldblack on_$bgcblack"); print color 'reset'; } sub ddmid0c { print color 'reset'; print colored('|',"$boldblack on_$bgcblack"); print colored('LINE ',"$boldyellow on_$bgcblack"); print colored('[]',"$boldblack on_$bgcblack"); print color 'reset'; } sub ddmid1a { print color 'reset'; print colored('| ',"$boldblack on_$bgcblack"); print colored('<>',"$boldblue on_$bgcblue"); print color 'reset'; } sub ddmid1 { print color 'reset'; print colored('<>',"$boldblue on_$bgcblue"); print color 'reset'; } sub ddslotb { print color 'reset'; print colored(' ',"$boldblack on_$bgcblack"); print colored('II',"$boldyellow on_$bgcyellow"); print colored(' ',"$black on_$bgcblack"); print colored('II',"$boldyellow on_$bgcyellow"); print colored(' |',"$boldblack on_$bgcblack"); print color 'reset'; } sub ddslota { print color 'reset'; print colored(' ',"$boldblack on_$bgcblack"); print colored('IIIII',"$boldyellow on_$bgcyellow"); print colored(' |',"$boldblack on_$bgcblack"); print color 'reset'; } sub ddaddmoney { if ($ddx eq "111") { $ddaddmoney = 1000 * $coin; $beepnum = 6; $ddstwin = $ddstwin + 1; } elsif ($ddx eq "222") { $ddaddmoney = 500 * $coin; $beepnum = 5; $ddstwin = $ddstwin + 1; } elsif ($ddx eq "333") { $ddaddmoney = 150 * $coin; $beepnum = 4; $ddstwin = $ddstwin + 1; } elsif ($ddx eq "444") { $ddaddmoney = 80 * $coin; $beepnum = 4; $ddstwin = $ddstwin + 1; } elsif ($ddx eq "555") { $ddaddmoney = 45 * $coin; $beepnum = 3; $ddstwin = $ddstwin + 1; } elsif ($ddx eq "666") { $ddaddmoney = 22 * $coin; $beepnum = 3; $ddstwin = $ddstwin + 1; } elsif ($ddx eq "777") { $ddaddmoney = 15 * $coin; $beepnum = 3; $ddstwin = $ddstwin + 1; } elsif ($ddx eq "121") { $ddaddmoney = 700 * $coin; $beepnum = 5; $ddstwin = $ddstwin + 1; } elsif ($ddx eq "212") { $ddaddmoney = 300 * $coin; $beepnum = 4; $ddstwin = $ddstwin + 1; } elsif ($ddx eq "141") { $ddaddmoney = 180 * $coin; $beepnum = 4; $ddstwin = $ddstwin + 1; } elsif ($ddx eq "252") { $ddaddmoney = 110 * $coin; $beepnum = 4; $ddstwin = $ddstwin + 1; } elsif ($ddx eq "454") { $ddaddmoney = 60 * $coin; $beepnum = 3; $ddstwin = $ddstwin + 1; } elsif ($ddx eq "545") { $ddaddmoney = 35 * $coin; $beepnum = 3; $ddstwin = $ddstwin + 1; } elsif ($ddx eq "464") { $ddaddmoney = 30 * $coin; $beepnum = 3; $ddstwin = $ddstwin + 1; } elsif ($ddx eq "646") { $ddaddmoney = 18 * $coin; $beepnum = 3; $ddstwin = $ddstwin + 1; } else { $ddaddmoney = 0; $beepnum = 0; $ddstlose = $ddstlose + 1; } } sub ddmainscreen { 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"; 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"; 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"; 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"; ddmid0b(); ddreel1(); ddcolorr1(); sep; ddslot5(); sep; ddmid0(); ddreel2(); ddcolorr2(); sep; ddslot5(); sep; ddmid0(); ddreel3(); ddcolorr3(); sep; ddslot5(); sep; ddmid0(); ddslota(); print"\n"; ddmid1a(); ddreel1(); ddcolorr1(); sep; ddslot6(); sep; ddmid1(); ddreel2(); ddcolorr2(); sep; ddslot6(); sep; ddmid1(); ddreel3(); ddcolorr3(); sep; ddslot6(); sep; ddmid1(); ddslotb(); print"\n"; ddmid0c(); ddreel1(); ddcolorr1(); sep; ddslot7(); sep; ddmid0(); ddreel2(); ddcolorr2(); sep; ddslot7(); sep; ddmid0(); ddreel3(); ddcolorr3(); sep; ddslot7(); sep; ddmid0(); ddslotb(); print"\n"; ddmid0a(); ddreel1(); ddcolorr1(); sep; ddslot8(); sep; ddmid0(); ddreel2(); ddcolorr2(); sep; ddslot8(); sep; ddmid0(); ddreel3(); ddcolorr3(); sep; ddslot8(); sep; ddmid0(); ddslotb(); beepalrm(); ddmid0a(); ddreel1(); ddcolorr1(); sep; ddslot9(); sep; ddmid0(); ddreel2(); ddcolorr2(); sep; ddslot9(); sep; ddmid0(); ddreel3(); ddcolorr3(); sep; ddslot9(); sep; ddmid0(); ddslotb(); beepalrm(); ddmid0a(); ddreel1(); ddcolorr1(); sep; ddslot10(); sep; ddmid0(); ddreel2(); ddcolorr2(); sep; ddslot10(); sep; ddmid0(); ddreel3(); ddcolorr3(); sep; ddslot10(); sep; ddmid0(); ddslota(); beepalrm(); 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(); print colored('| [][][][][][][][][][][][][][][][][][][][][][][][][][][][] INSERT TOKEN |',"$boldblack on_$bgcblack"); beepalrm(); print colored('|------------------------------------------------------------------------------|',"$boldblack on_$bgcblack"); beepalrm(); print colored('|',"$boldblack on_$bgcblack"); print colored(' DOUBLE BLUE DIAMOND ',"$blue on_$bgcgreen"); print colored('|',"$boldblack on_$bgcblack"); beepalrm(); print colored('\------------------------------------------------------------------------------/',"$boldblack on_$bgcblack"); beepalrm(); $beepnum = 0; } sub ddwinnings { print colored(' WINNINGS ',"$boldblack on_$bgcblack"); sep; if ($ddaddmoney > 9999999) { print colored(sprintf("%.1e", $ddaddmoney),"$boldred on_$bgcred"); } elsif ($ddaddmoney >= 1000000) { print colored("$ddaddmoney","$boldred on_$bgcred"); } elsif ($ddaddmoney >= 100000) { print colored(" $ddaddmoney","$boldred on_$bgcred"); } elsif ($ddaddmoney >= 10000) { print colored(" $ddaddmoney","$boldred on_$bgcred"); } elsif ($ddaddmoney >= 1000) { print colored(" $ddaddmoney","$boldred on_$bgcred"); } elsif ($ddaddmoney >= 100) { print colored(" $ddaddmoney","$boldred on_$bgcred"); } elsif ($ddaddmoney >= 10) { print colored(" $ddaddmoney","$boldred on_$bgcred"); } elsif ($ddaddmoney >= 1) { print colored(" $ddaddmoney","$boldred on_$bgcred"); } else { print colored(" $ddaddmoney","$boldred on_$bgcred"); } sep; } sub ddfunds { print colored(' FUNDS ',"$boldblack on_$bgcblack"); sep; if ($money > 9999999999) { print colored(sprintf("%.4e", $money),"$boldgreen on_$bgcgreen"); } elsif ($money >= 1000000000) { print colored("$money","$boldgreen on_$bgcgreen"); } elsif ($money >= 100000000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 10000000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 1000000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 100000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 10000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 1000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 100) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 10) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 1) { print colored(" $money","$boldgreen on_$bgcgreen"); } else { print colored(" $money","$boldgreen on_$bgcgreen"); } sep; } sub ddtopend { print colored(' ',"$white on_$bgcgreen"); print colored('|',"$boldblack on_$bgcblack"); } sub ddtopprint { print colored('/------------------------------------------------------------------------------\\',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldblack on_$bgcblack"); print colored(' DOUBLE BLUE DIAMOND ',"$blue on_$bgcgreen"); print colored('|',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldblack on_$bgcblack"); print colored(' ___ ',"$boldblue on_$bgcgreen"); print colored(' x3 = 1000',"$white on_$bgcgreen"); print colored(' ___ ',"$boldwhite on_$bgcgreen"); print colored(' x3 = 150 ',"$white on_$bgcgreen"); print colored(' /|\\ ',"$boldgreen on_$bgcgreen"); print colored(' x3 = 45 ',"$white on_$bgcgreen"); print colored(' /|\\ ',"$boldblack on_$bgcgreen"); print colored(' x3 = 15 ',"$white on_$bgcgreen"); print colored(' RB',"$red on_$bgcwhite"); print colored(' EM',"$boldgreen on_$bgcwhite"); print colored(' RB',"$red on_$bgcwhite"); print colored(' = 60 ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldblack on_$bgcblack"); print colored(' _/_|_\\',"$boldblue on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored('/_|_\\',"$boldwhite on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored('// \\\\',"$boldgreen on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored(' ||| ',"$boldblack on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored(' EM',"$boldgreen on_$bgcwhite"); print colored(' RB',"$red on_$bgcwhite"); print colored(' EM',"$boldgreen on_$bgcwhite"); print colored(' = 35 ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldblack on_$bgcblack"); print colored('/_|_\\',"$boldblue on_$bgcgreen"); print colored(' /',"$blue on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored('\\ | /',"$boldwhite on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored('\\\\ //',"$boldgreen on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored(' \\|/ ',"$boldblack on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored(' RB',"$red on_$bgcwhite"); print colored(' TZ',"$boldyellow on_$bgcwhite"); print colored(' RB',"$red on_$bgcwhite"); print colored(' = 30 ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldblack on_$bgcblack"); print colored('\\ ',"$boldblue on_$bgcgreen"); print colored('| // ',"$blue on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored(' \\|/ ',"$boldwhite on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored(' \\|/ ',"$boldgreen on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored(' TZ',"$boldyellow on_$bgcwhite"); print colored(' RB',"$red on_$bgcwhite"); print colored(' TZ',"$boldyellow on_$bgcwhite"); print colored(' = 18 ',"$boldblack on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldblack on_$bgcblack"); print colored(' \\',"$boldblue on_$bgcgreen"); print colored('|/ ',"$blue on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored(' |',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldblack on_$bgcblack"); print colored(' ___ ',"$boldwhite on_$bgcgreen"); print colored(' x3 = 500',"$white on_$bgcgreen"); print colored(' ___ ',"$red on_$bgcgreen"); print colored(' x3 = 80 ',"$white on_$bgcgreen"); print colored(' ___ ',"$boldyellow on_$bgcgreen"); print colored(' x3 = 22 ',"$white on_$bgcgreen"); print colored(' DD',"$boldblue on_$bgcblack"); print colored(' DD',"$boldwhite on_$bgcblack"); print colored(' DD',"$boldblue on_$bgcblack"); print colored(' = 700 ',"$white on_$bgcblack"); print colored(' |',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldblack on_$bgcblack"); print colored(' _/_|_\\',"$boldwhite on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored('/\_/\\',"$red on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored('|\_/|',"$boldyellow on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored(' DD',"$boldwhite on_$bgcblack"); print colored(' DD',"$boldblue on_$bgcblack"); print colored(' DD',"$boldwhite on_$bgcblack"); print colored(' = 300 ',"$white on_$bgcblack"); print colored(' |',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldblack on_$bgcblack"); print colored('/_|_\ /',"$boldwhite on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored('||_||',"$red on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored('||_|| ',"$boldyellow on_$bgcgreen"); print colored(' DD',"$boldblue on_$bgcblack"); print colored(' RB',"$red on_$bgcblack"); print colored(' DD',"$boldblue on_$bgcblack"); print colored(' = 180 ',"$white on_$bgcblack"); print colored(' |',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldblack on_$bgcblack"); print colored('\ | // ',"$boldwhite on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored('\/_\/',"$red on_$bgcgreen"); print colored(' ',"$white on_$bgcgreen"); print colored('|/_\| ',"$boldyellow on_$bgcgreen"); print colored(' DD',"$boldwhite on_$bgcblack"); print colored(' EM',"$boldgreen on_$bgcblack"); print colored(' DD',"$boldwhite on_$bgcblack"); print colored(' = 110 ',"$white on_$bgcblack"); print colored(' |',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldblack on_$bgcblack"); print colored(' \|/ ',"$boldwhite on_$bgcgreen"); print colored(' P = Play C = Return To Casino Men',"$boldgreen on_$bgcgreen"); print colored('u EXIT = Quit |',"$boldblack on_$bgcblack"); print"\n"; print colored('|------------------------------------------------------------------------------|',"$boldblack on_$bgcblack"); print"\n"; print colored('| [][][][][][][][][][][][][][][][][][][][][][][][][][][][] GPC-SLOTS 2 |',"$boldblack on_$bgcblack"); print"\n"; } ################################################################################################################################ ## GENRE: Slot Mahine ## NAME: High Roller Sevens ## AUTHOR: MikeeUSA sub ssmain { ssresetvars(); $ssaddmoney1 = 0; sslights(); ssspinreel(); ssreeltrans(); if ($animate == 1) { $ssreelspin = 3; ssmainscreen(); ssdisplaywin(); medpause(); newlines(); $ssreelspin = 2; ssmainscreen(); ssdisplaywin(); smallpause(); newlines(); $ssreelspin = 1; ssmainscreen(); ssdisplaywin(); smallpause(); newlines(); } $ssx1 = $sssvslot1.$sssvslot2.$sssvslot3; $ssx2 = $sssvslot1a.$sssvslot2a.$sssvslot3a; $ssx3 = $sssvslot1b.$sssvslot2b.$sssvslot3b; $ssx4 = $sssvslot1a.$sssvslot2.$sssvslot3b; $ssx5 = $sssvslot1b.$sssvslot2.$sssvslot3a; ssaddmoney(); sscalcfunds(); $ssreelspin = 0; ssmainscreen(); ssdisplaywin(); ptracker(); ssstartinfo(); } sub ssmain2 { ssresetvars(); $ssaddmoney1 = 0; $sslines = 1; sslights(); ssreeltrans(); ssmainscreen(); $ssx1 = 'null'; $ssx2 = 'null'; $ssx3 = 'null'; $ssx4 = 'null'; $ssx5 = 'null'; $ssaddmoney = 0; ssdisplaywin(); ssstartinfo(); } sub ssresetvars { $ssreelspin = 0; } sub ssaddmoney { $ssaddmoney1 = 0; $ssaddmoney2 = 0; $ssaddmoney3 = 0; $ssaddmoney4 = 0; $ssaddmoney5 = 0; if ($sslines == 3) { ssaddmoney1(); ssaddmoney2(); ssaddmoney3(); ssaddmoney4(); ssaddmoney5(); } elsif ($sslines == 2) { ssaddmoney1(); ssaddmoney2(); } elsif ($sslines == 1) { ssaddmoney1(); } else { } $ssaddmoney = $ssaddmoney1 + $ssaddmoney2 + $ssaddmoney3 + $ssaddmoney4 + $ssaddmoney5; } sub ssaddmoney1 { if (($ssmisalign1 == 1) or ($ssmisalign2 == 1) or ($ssmisalign3 == 1)) { $ssaddmoney1 = 0; $ssstlose = $ssstlose + 1; } elsif ($ssx1 eq "111") { if ($sslines == 3) { if (($coin * 500000) >= (($projkpot)*(0.50))) { $ssaddmoney1 = $projkpot + (500000 * $coin); #This is so winning the jackpot is always a big windfall } else { $ssaddmoney1 = $projkpot; } $projkpot = $projkpot2; $beepnum = 8; } else { $ssaddmoney1 = 500000 * $coin; $beepnum = 7; } $ssstwin = $ssstwin + 1; } elsif ($ssx1 eq "121") { $ssaddmoney1 = 12000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 6; } elsif ($ssx1 eq "222") { $ssaddmoney1 = 10000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 6; } elsif ($ssx1 eq "212") { $ssaddmoney1 = 8000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 6; } elsif ($ssx1 eq "333") { $ssaddmoney1 = 6000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 5; } elsif ($ssx1 eq "434") { $ssaddmoney1 = 4000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 5; } elsif ($ssx1 eq "444") { $ssaddmoney1 = 2000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 5; } elsif ($ssx1 eq "555") { $ssaddmoney1 = 700 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx1 eq "666") { $ssaddmoney1 = 400 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx1 eq "777") { $ssaddmoney1 = 250 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx1 eq "888") { $ssaddmoney1 = 130 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx1 eq "999") { $ssaddmoney1 = 80 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 3; } elsif ($ssx1 eq "101010") { $ssaddmoney1 = 20 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 3; } else { $ssaddmoney1 = 0; $ssstlose = $ssstlose + 1; } } sub ssaddmoney2 { if (($ssmisalign1 == 1) or ($ssmisalign2 == 1) or ($ssmisalign3 == 1)) { $ssaddmoney2 = 0; } elsif ($ssx2 eq "111") { $ssaddmoney2 = 500000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 7; } elsif ($ssx2 eq "121") { $ssaddmoney2 = 12000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 6; } elsif ($ssx2 eq "222") { $ssaddmoney2 = 10000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 6; } elsif ($ssx2 eq "212") { $ssaddmoney2 = 8000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 6; } elsif ($ssx2 eq "333") { $ssaddmoney2 = 6000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 5; } elsif ($ssx2 eq "434") { $ssaddmoney2 = 4000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 5; } elsif ($ssx2 eq "444") { $ssaddmoney2 = 2000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 5; } elsif ($ssx2 eq "555") { $ssaddmoney2 = 700 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx2 eq "666") { $ssaddmoney2 = 400 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx2 eq "777") { $ssaddmoney2 = 250 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx2 eq "888") { $ssaddmoney2 = 130 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx2 eq "999") { $ssaddmoney2 = 80 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 3; } elsif ($ssx2 eq "101010") { $ssaddmoney2 = 20 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 3; } else { $ssaddmoney2 = 0; $ssstlose = $ssstlose + 1; } } sub ssaddmoney3 { if (($ssmisalign1 == 1) or ($ssmisalign2 == 1) or ($ssmisalign3 == 1)) { $ssaddmoney3 = 0; } elsif ($ssx3 eq "111") { $ssaddmoney3 = 500000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 7; } elsif ($ssx3 eq "121") { $ssaddmoney3 = 12000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 6; } elsif ($ssx3 eq "222") { $ssaddmoney3 = 10000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 6; } elsif ($ssx3 eq "212") { $ssaddmoney3 = 8000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 6; } elsif ($ssx3 eq "333") { $ssaddmoney3 = 6000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 5; } elsif ($ssx3 eq "434") { $ssaddmoney3 = 4000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 5; } elsif ($ssx3 eq "444") { $ssaddmoney3 = 2000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 5; } elsif ($ssx3 eq "555") { $ssaddmoney3 = 700 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx3 eq "666") { $ssaddmoney3 = 400 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx3 eq "777") { $ssaddmoney3 = 250 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx3 eq "888") { $ssaddmoney3 = 130 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx3 eq "999") { $ssaddmoney3 = 80 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 3; } elsif ($ssx3 eq "101010") { $ssaddmoney3 = 20 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 3; } else { $ssaddmoney3 = 0; $ssstlose = $ssstlose + 1; } } sub ssaddmoney4 { if (($ssmisalign1 == 1) or ($ssmisalign2 == 1) or ($ssmisalign3 == 1)) { $ssaddmoney4 = 0; } elsif ($ssx4 eq "111") { $ssaddmoney4 = 500000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 7; } elsif ($ssx4 eq "121") { $ssaddmoney4 = 12000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 6; } elsif ($ssx4 eq "222") { $ssaddmoney4 = 10000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 6; } elsif ($ssx4 eq "212") { $ssaddmoney4 = 8000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 6; } elsif ($ssx4 eq "333") { $ssaddmoney4 = 6000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 5; } elsif ($ssx4 eq "434") { $ssaddmoney4 = 4000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 5; } elsif ($ssx4 eq "444") { $ssaddmoney4 = 2000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 5; } elsif ($ssx4 eq "555") { $ssaddmoney4 = 700 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx4 eq "666") { $ssaddmoney4 = 400 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx4 eq "777") { $ssaddmoney4 = 250 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx4 eq "888") { $ssaddmoney4 = 130 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx4 eq "999") { $ssaddmoney4 = 80 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 3; } elsif ($ssx4 eq "101010") { $ssaddmoney4 = 20 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 3; } else { $ssaddmoney4 = 0; $ssstlose = $ssstlose + 1; } } sub ssaddmoney5 { if (($ssmisalign1 == 1) or ($ssmisalign2 == 1) or ($ssmisalign3 == 1)) { $ssaddmoney5 = 0; } elsif ($ssx5 eq "111") { $ssaddmoney5 = 500000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 7; } elsif ($ssx5 eq "121") { $ssaddmoney5 = 12000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 6; } elsif ($ssx5 eq "222") { $ssaddmoney5 = 10000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 6; } elsif ($ssx5 eq "212") { $ssaddmoney5 = 8000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 6; } elsif ($ssx5 eq "333") { $ssaddmoney5 = 6000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 5; } elsif ($ssx5 eq "434") { $ssaddmoney5 = 4000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 5; } elsif ($ssx5 eq "444") { $ssaddmoney5 = 2000 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 5; } elsif ($ssx5 eq "555") { $ssaddmoney5 = 700 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx5 eq "666") { $ssaddmoney5 = 400 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx5 eq "777") { $ssaddmoney5 = 250 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx5 eq "888") { $ssaddmoney5 = 130 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 4; } elsif ($ssx5 eq "999") { $ssaddmoney5 = 80 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 3; } elsif ($ssx5 eq "101010") { $ssaddmoney5 = 20 * $coin; $ssstwin = $ssstwin + 1; $beepnum = 3; } else { $ssaddmoney5 = 0; $ssstlose = $ssstlose + 1; } } sub sscalcfunds { $money = $money + $ssaddmoney; $ssstmc = $ssstmc + $ssaddmoney; } sub sslights { if ($sslines == 1) { $sspx2 = "$boldgreen"; $sspx3 = "$boldgreen"; } elsif ($sslines == 2) { $sspx2 = "$boldyellow"; $sspx3 = "$boldgreen"; } elsif ($sslines == 3) { $sspx2 = "$boldyellow"; $sspx3 = "$boldyellow"; } else { $sspx2 = "$boldgreen"; $sspx3 = "$boldgreen"; } } sub ssstartinfo { tokeneval(); $ssstartinfo = <STDIN>; chomp($ssstartinfo); if (($ssstartinfo eq 'a') or ($ssstartinfo eq 'A')) { $ssstartinfo = $ssagaincmd; } elsif (($ssstartinfo eq 'p') or ($ssstartinfo eq 'P') or ($ssstartinfo eq '1p') or ($ssstartinfo eq '1P') or ($ssstartinfo eq '2p') or ($ssstartinfo eq '2P') or ($ssstartinfo eq '3p') or ($ssstartinfo eq '3P')) { $ssagaincmd = $ssstartinfo; } else { #Do Nothing } if (($ssstartinfo eq 'p') or ($ssstartinfo eq 'P') or ($ssstartinfo eq '1p') or ($ssstartinfo eq '1P')) { if ($money >= (5 * $coin)) { $money = $money - (5 * $coin); $moneyexp = $moneyexp + (5 * $coin); $ssstmc2 = $ssstmc2 + (5 * $coin); $spins = $spins + 1; $ssstspins = $ssstspins + 1; $sslines = 1; $projkpot = $projkpot + (2 * $coin); newlines(); ssmain(); } else { newlines(); ssmain2(); } } elsif (($ssstartinfo eq '2p') or ($ssstartinfo eq '2P')) { if ($money >= (10 * $coin)) { $money = $money - (10 * $coin); $moneyexp = $moneyexp + (10 * $coin); $ssstmc2 = $ssstmc2 + (10 * $coin); $spins = $spins + 1; $ssstspins = $ssstspins + 1; $sslines = 2; $projkpot = $projkpot + (7 * $coin); newlines(); ssmain(); } else { newlines(); ssmain2(); } } elsif (($ssstartinfo eq '3p') or ($ssstartinfo eq '3P')) { if ($money >= (15 * $coin)) { $money = $money - (15 * $coin); $moneyexp = $moneyexp + (15 * $coin); $ssstmc2 = $ssstmc2 + (15 * $coin); $spins = $spins + 1; $ssstspins = $ssstspins + 1; $sslines = 3; $projkpot = $projkpot + (11 * $coin); newlines(); ssmain(); } else { newlines(); ssmain2(); } } elsif (($ssstartinfo eq 'exit') or ($ssstartinfo eq 'EXIT') or ($ssstartinfo eq 'quit') or ($ssstartinfo eq 'QUIT')) { exitgame(); } elsif (($ssstartinfo eq 'c') or ($ssstartinfo eq 'C')) { print "\n"; return; } else { newlines(); ssmain2(); } } sub sssymseven1 { if ($esegpenguinhrs != 1) { print colored(' 7777777777777777 ',"$sscolor1 on_$bgcblack"); } else { print colored(' lINUx ',"$sscolor1 on_$bgcblack"); } } 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"); } } 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"); } } sub sssymseven4 { if ($esegpenguinhrs != 1) { print colored(' 777777 ',"$sscolor2 on_$bgcblack"); } else { print colored(' X-----L ',"$sscolor1 on_$bgcblack"); } } sub sssymseven5 { if ($esegpenguinhrs != 1) { print colored(' 777777 ',"$sscolor1 on_$bgcblack"); } else { print colored(' IN IN ',"$sscolor1 on_$bgcblack"); } } sub sssymseven6 { if ($esegpenguinhrs != 1) { print colored(' 777777 ',"$sscolor2 on_$bgcblack"); } else { print colored(' UXLINUX ',"$sscolor1 on_$bgcblack"); } } sub sssymseven7 { if ($esegpenguinhrs != 1) { print colored(' 777777 ',"$sscolor1 on_$bgcblack"); } else { print colored(' lINUXLINu ',"$sscolor1 on_$bgcblack"); } } sub sssymseven8 { if ($esegpenguinhrs != 1) { print colored(' 7777777 ',"$sscolor2 on_$bgcblack"); } else { print colored(' uXLINUXLINu ',"$sscolor1 on_$bgcblack"); } } sub sssymseven9 { if ($esegpenguinhrs != 1) { print colored(' 77777777 ',"$sscolor1 on_$bgcblack"); } else { print colored(' XLINUXLINUX ',"$sscolor1 on_$bgcblack"); } } sub sssymseven10 { if ($esegpenguinhrs != 1) { print colored(' 777777777 ',"$sscolor2 on_$bgcblack"); } else { print colored(' LINUXLINUXL ',"$sscolor1 on_$bgcblack"); } } sub sssymseven11 { if ($esegpenguinhrs != 1) { print colored(' 777777777 ',"$sscolor1 on_$bgcblack"); } else { print colored(' / XLINUXL \ ',"$sscolor1 on_$bgcblack"); } } sub sssymseven12 { if ($esegpenguinhrs != 1) { print colored(' 7777777777 ',"$sscolor2 on_$bgcblack"); } else { print colored(' \ UXLIN / ',"$sscolor1 on_$bgcblack"); } } sub sssymseven13 { if ($esegpenguinhrs != 1) { print colored(' 7777777777 ',"$sscolor1 on_$bgcblack"); } else { print colored(' \___INU___/ ',"$sscolor1 on_$bgcblack"); } } sub sssymseven1a { if ($esegpenguinhrs != 1) { print colored(' **************** ',"$sscolor1 on_$bgcblack"); } else { print colored(' ***** ',"$sscolor1 on_$bgcblack"); } } 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"); } } 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"); } } sub sssymseven4a { if ($esegpenguinhrs != 1) { print colored(' ****** ',"$sscolor2 on_$bgcblack"); } else { print colored(' *-----* ',"$sscolor2 on_$bgcblack"); } } sub sssymseven5a { if ($esegpenguinhrs != 1) { print colored(' ****** ',"$sscolor1 on_$bgcblack"); } else { print colored(' ** ** ',"$sscolor1 on_$bgcblack"); } } sub sssymseven6a { if ($esegpenguinhrs != 1) { print colored(' ****** ',"$sscolor2 on_$bgcblack"); } else { print colored(' ******* ',"$sscolor2 on_$bgcblack"); } } sub sssymseven7a { if ($esegpenguinhrs != 1) { print colored(' ****** ',"$sscolor1 on_$bgcblack"); } else { print colored(' ********* ',"$sscolor1 on_$bgcblack"); } } sub sssymseven8a { if ($esegpenguinhrs != 1) { print colored(' ****** ',"$sscolor2 on_$bgcblack"); } else { print colored(' *********** ',"$sscolor2 on_$bgcblack"); } } sub sssymseven9a { if ($esegpenguinhrs != 1) { print colored(' ****** ',"$sscolor1 on_$bgcblack"); } else { print colored(' *********** ',"$sscolor1 on_$bgcblack"); } } sub sssymseven10a { if ($esegpenguinhrs != 1) { print colored(' ****** ',"$sscolor2 on_$bgcblack"); } else { print colored(' *********** ',"$sscolor2 on_$bgcblack"); } } sub sssymseven11a { if ($esegpenguinhrs != 1) { print colored(' ****** ',"$sscolor1 on_$bgcblack"); } else { print colored(' /--*******--\ ',"$sscolor1 on_$bgcblack"); } } sub sssymseven12a { if ($esegpenguinhrs != 1) { print colored(' ****** ',"$sscolor2 on_$bgcblack"); } else { print colored(' \---*****---/ ',"$sscolor2 on_$bgcblack"); } } sub sssymseven13a { if ($esegpenguinhrs != 1) { print colored(' ****** ',"$sscolor1 on_$bgcblack"); } else { print colored(' \___***___/ ',"$sscolor1 on_$bgcblack"); } } sub sssymseven1b { if ($esegpenguinhrs != 1) { print colored(' 777777777 ',"$sscolor2 on_$bgcblack"); } else { print colored(' /~~~INU~~~\ ',"$sscolor2 on_$bgcblack"); } } 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"); } } 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"); } } 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"); } } 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"); } } 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"); } } 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"); } } 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"); } } 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"); } } 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"); } } 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"); } } 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"); } } 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"); } } sub sssymwhite { print colored(' ',"$black on_$bgcblack"); } sub sssymspining { print colored('||||||||||||||||||',"$boldblack on_$bgcblack"); } sub sssympayline { print colored('INE PAY',"$boldwhite on_$bgcgreen"); } sub ssspinreel { #incomplete don't go over 55 #later: why?, it's at 60 now, I must of completed it and forgot to remove this comment $ssslotsymbol1 = int(rand(65)); $ssslotsymbol1a = int(rand(65)); $ssslotsymbol1b = int(rand(65)); $ssslotsymbol2 = int(rand(65)); $ssslotsymbol2a = int(rand(65)); $ssslotsymbol2b = int(rand(65)); $ssslotsymbol3 = int(rand(65)); $ssslotsymbol3a = int(rand(65)); $ssslotsymbol3b = int(rand(65)); $ssmisalign1 = int(rand(60)); $ssmisalign2 = int(rand(60)); $ssmisalign3 = int(rand(60)); if ($ssmisalign1 <= 5) { $ssmisalign1 = 1; } else { $ssmisalign1 = 0; } if ($ssmisalign2 <= 5) { $ssmisalign2 = 1; } else { $ssmisalign2 = 0; } if ($ssmisalign3 <= 5) { $ssmisalign3 = 1; } else { $ssmisalign3 = 0; } } #sparkel # #bold black magenta bold black 1 #magenta bold black magenta 2 #green 3 #cyan 4 # #regular # #bold magenta 5 #bold green 6 #bold cyan 7 #bold yellow 8 #bold white 9 #red 10 sub sscolorrand { $ssslotcolorn = int(rand(45)); if ($ssslotcolorn <= 9) { $sscolorrand = "$red"; } elsif ($ssslotcolorn <= 18) { $sscolorrand = "$boldwhite"; } elsif ($ssslotcolorn <= 26) { $sscolorrand = "$boldyellow"; } elsif ($ssslotcolorn <= 33) { $sscolorrand = "$boldcyan"; } elsif ($ssslotcolorn <= 39) { $sscolorrand = "$boldgreen"; } else { $sscolorrand = "$boldmagenta"; } } sub ssreeltrans { if ($ssslotsymbol1 <= 9) { $sssvslot1 = 10; $ssr1colora = "$red"; $ssr1colorb = "$red"; } elsif ($ssslotsymbol1 <= 18) { $sssvslot1 = 9; $ssr1colora = "$boldwhite"; $ssr1colorb = "$boldwhite"; } elsif ($ssslotsymbol1 <= 26) { $sssvslot1 = 8; $ssr1colora = "$boldyellow"; $ssr1colorb = "$boldyellow"; } elsif ($ssslotsymbol1 <= 33) { $sssvslot1 = 7; $ssr1colora = "$blue"; $ssr1colorb = "$blue"; } elsif ($ssslotsymbol1 <= 39) { $sssvslot1 = 6; $ssr1colora = "$boldgreen"; $ssr1colorb = "$boldgreen"; } elsif ($ssslotsymbol1 <= 44) { $sssvslot1 = 5; $ssr1colora = "$boldmagenta"; $ssr1colorb = "$boldmagenta"; ##################################### } elsif ($ssslotsymbol1 <= 48) { $sssvslot1 = 4; $ssr1colora = "$cyan"; $ssr1colorb = "$boldcyan"; } elsif ($ssslotsymbol1 <= 51) { $sssvslot1 = 3; $ssr1colora = "$green"; $ssr1colorb = "$boldgreen"; } elsif ($ssslotsymbol1 <= 53) { $sssvslot1 = 2; $ssr1colora = "$magenta"; $ssr1colorb = "$boldmagenta"; } elsif ($ssslotsymbol1 == 54) { $sssvslot1 = 1; $ssr1colora = "$boldblack"; $ssr1colorb = "$boldwhite"; } elsif ($ssslotsymbol1 <= 58) { $sssvslot1 = 10; $ssr1colora = "$red"; $ssr1colorb = "$red"; } elsif ($ssslotsymbol1 >= 59) { $sssvslot1 = 12; $ssr1colora = "$white"; $ssr1colorb = "$cyan"; } else { $sssvslot1 = 0; $ssr1colora = "$white"; $ssr1colorb = "$white"; } if ($ssslotsymbol2 <= 9) { $sssvslot2 = 10; $ssr2colora = "$red"; $ssr2colorb = "$red"; } elsif ($ssslotsymbol2 <= 18) { $sssvslot2 = 9; $ssr2colora = "$boldwhite"; $ssr2colorb = "$boldwhite"; } elsif ($ssslotsymbol2 <= 26) { $sssvslot2 = 8; $ssr2colora = "$boldyellow"; $ssr2colorb = "$boldyellow"; } elsif ($ssslotsymbol2 <= 33) { $sssvslot2 = 7; $ssr2colora = "$blue"; $ssr2colorb = "$blue"; } elsif ($ssslotsymbol2 <= 39) { $sssvslot2 = 6; $ssr2colora = "$boldgreen"; $ssr2colorb = "$boldgreen"; } elsif ($ssslotsymbol2 <= 44) { $sssvslot2 = 5; $ssr2colora = "$boldmagenta"; $ssr2colorb = "$boldmagenta"; ##################################### } elsif ($ssslotsymbol2 <= 48) { $sssvslot2 = 4; $ssr2colora = "$boldcyan"; $ssr2colorb = "$cyan"; } elsif ($ssslotsymbol2 <= 51) { $sssvslot2 = 3; $ssr2colora = "$boldgreen"; $ssr2colorb = "$green"; } elsif ($ssslotsymbol2 <= 53) { $sssvslot2 = 2; $ssr2colora = "$boldwhite"; $ssr2colorb = "$boldblack"; } elsif ($ssslotsymbol2 == 54) { $sssvslot2 = 1; $ssr2colora = "$boldmagenta"; $ssr2colorb = "$magenta"; } elsif ($ssslotsymbol2 <= 58) { $sssvslot2 = 10; $ssr2colora = "$red"; $ssr2colorb = "$red"; } elsif ($ssslotsymbol2 >= 59) { $sssvslot2 = 12; $ssr2colora = "$cyan"; $ssr2colorb = "$white"; } else { $sssvslot2 = 0; $ssr2colora = "$white"; $ssr2colorb = "$white"; } if ($ssslotsymbol3 <= 9) { $sssvslot3 = 10; $ssr3colora = "$red"; $ssr3colorb = "$red"; } elsif ($ssslotsymbol3 <= 18) { $sssvslot3 = 9; $ssr3colora = "$boldwhite"; $ssr3colorb = "$boldwhite"; } elsif ($ssslotsymbol3 <= 26) { $sssvslot3 = 8; $ssr3colora = "$boldyellow"; $ssr3colorb = "$boldyellow"; } elsif ($ssslotsymbol3 <= 33) { $sssvslot3 = 7; $ssr3colora = "$blue"; $ssr3colorb = "$blue"; } elsif ($ssslotsymbol3 <= 39) { $sssvslot3 = 6; $ssr3colora = "$boldgreen"; $ssr3colorb = "$boldgreen"; } elsif ($ssslotsymbol3 <= 44) { $sssvslot3 = 5; $ssr3colora = "$boldmagenta"; $ssr3colorb = "$boldmagenta"; ##################################### } elsif ($ssslotsymbol3 <= 48) { $sssvslot3 = 4; $ssr3colora = "$cyan"; $ssr3colorb = "$boldcyan"; } elsif ($ssslotsymbol3 <= 51) { $sssvslot3 = 3; $ssr3colora = "$green"; $ssr3colorb = "$boldgreen"; } elsif ($ssslotsymbol3 <= 53) { $sssvslot3 = 2; $ssr3colora = "$magenta"; $ssr3colorb = "$boldmagenta"; } elsif ($ssslotsymbol3 == 54) { $sssvslot3 = 1; $ssr3colora = "$boldblack"; $ssr3colorb = "$boldwhite"; } elsif ($ssslotsymbol3 <= 58) { #4 More Red $sssvslot3 = 10; $ssr3colora = "$red"; $ssr3colorb = "$red"; } elsif ($ssslotsymbol3 >= 59) { $sssvslot3 = 12; $ssr3colora = "$white"; $ssr3colorb = "$cyan"; } else { $sssvslot3 = 0; $ssr3colora = "$white"; $ssr3colorb = "$white"; } if ($ssslotsymbol1a <= 9) { $sssvslot1a = 10; $ssr1coloraa = "$red"; $ssr1colorba = "$red"; } elsif ($ssslotsymbol1a <= 18) { $sssvslot1a = 9; $ssr1coloraa = "$boldwhite"; $ssr1colorba = "$boldwhite"; } elsif ($ssslotsymbol1a <= 26) { $sssvslot1a = 8; $ssr1coloraa = "$boldyellow"; $ssr1colorba = "$boldyellow"; } elsif ($ssslotsymbol1a <= 33) { $sssvslot1a = 7; $ssr1coloraa = "$blue"; $ssr1colorba = "$blue"; } elsif ($ssslotsymbol1a <= 39) { $sssvslot1a = 6; $ssr1coloraa = "$boldgreen"; $ssr1colorba = "$boldgreen"; } elsif ($ssslotsymbol1a <= 44) { $sssvslot1a = 5; $ssr1coloraa = "$boldmagenta"; $ssr1colorba = "$boldmagenta"; ##################################### } elsif ($ssslotsymbol1a <= 48) { $sssvslot1a = 4; $ssr1coloraa = "$cyan"; $ssr1colorba = "$boldcyan"; } elsif ($ssslotsymbol1a <= 51) { $sssvslot1a = 3; $ssr1coloraa = "$green"; $ssr1colorba = "$boldgreen"; } elsif ($ssslotsymbol1a <= 53) { $sssvslot1a = 2; $ssr1coloraa = "$magenta"; $ssr1colorba = "$boldmagenta"; } elsif ($ssslotsymbol1a == 54) { $sssvslot1a = 1; $ssr1coloraa = "$boldblack"; $ssr1colorba = "$boldwhite"; } elsif ($ssslotsymbol1a <= 58) { #4 More Red $sssvslot1a = 10; $ssr1coloraa = "$red"; $ssr1colorba = "$red"; } elsif ($ssslotsymbol1a >= 59) { $sssvslot1a = 12; $ssr1coloraa = "$white"; $ssr1colorba = "$cyan"; } else { $sssvslot1a = 0; $ssr1coloraa = "$white"; $ssr1colorba = "$white"; } if ($ssslotsymbol2a <= 9) { $sssvslot2a = 10; $ssr2coloraa = "$red"; $ssr2colorba = "$red"; } elsif ($ssslotsymbol2a <= 18) { $sssvslot2a = 9; $ssr2coloraa = "$boldwhite"; $ssr2colorba = "$boldwhite"; } elsif ($ssslotsymbol2a <= 26) { $sssvslot2a = 8; $ssr2coloraa = "$boldyellow"; $ssr2colorba = "$boldyellow"; } elsif ($ssslotsymbol2a <= 33) { $sssvslot2a = 7; $ssr2coloraa = "$blue"; $ssr2colorba = "$blue"; } elsif ($ssslotsymbol2a <= 39) { $sssvslot2a = 6; $ssr2coloraa = "$boldgreen"; $ssr2colorba = "$boldgreen"; } elsif ($ssslotsymbol2a <= 44) { $sssvslot2a = 5; $ssr2coloraa = "$boldmagenta"; $ssr2colorba = "$boldmagenta"; ##################################### } elsif ($ssslotsymbol2a <= 48) { $sssvslot2a = 4; $ssr2coloraa = "$boldcyan"; $ssr2colorba = "$cyan"; } elsif ($ssslotsymbol2a <= 51) { $sssvslot2a = 3; $ssr2coloraa = "$boldgreen"; $ssr2colorba = "$green"; } elsif ($ssslotsymbol2a <= 53) { $sssvslot2a = 2; $ssr2coloraa = "$boldwhite"; $ssr2colorba = "$boldblack"; } elsif ($ssslotsymbol2a == 54) { $sssvslot2a = 1; $ssr2coloraa = "$boldmagenta"; $ssr2colorba = "$magenta"; } elsif ($ssslotsymbol2a <= 58) { #4 More Red $sssvslot2a = 10; $ssr2coloraa = "$red"; $ssr2colorba = "$red"; } elsif ($ssslotsymbol2a >= 59) { $sssvslot2a = 12; $ssr2coloraa = "$cyan"; $ssr2colorba = "$white"; } else { $sssvslot2a = 0; $ssr2coloraa = "$white"; $ssr2colorba = "$white"; } if ($ssslotsymbol3a <= 9) { $sssvslot3a = 10; $ssr3coloraa = "$red"; $ssr3colorba = "$red"; } elsif ($ssslotsymbol3a <= 18) { $sssvslot3a = 9; $ssr3coloraa = "$boldwhite"; $ssr3colorba = "$boldwhite"; } elsif ($ssslotsymbol3a <= 26) { $sssvslot3a = 8; $ssr3coloraa = "$boldyellow"; $ssr3colorba = "$boldyellow"; } elsif ($ssslotsymbol3a <= 33) { $sssvslot3a = 7; $ssr3coloraa = "$blue"; $ssr3colorba = "$blue"; } elsif ($ssslotsymbol3a <= 39) { $sssvslot3a = 6; $ssr3coloraa = "$boldgreen"; $ssr3colorba = "$boldgreen"; } elsif ($ssslotsymbol3a <= 44) { $sssvslot3a = 5; $ssr3coloraa = "$boldmagenta"; $ssr3colorba = "$boldmagenta"; ##################################### } elsif ($ssslotsymbol3a <= 48) { $sssvslot3a = 4; $ssr3coloraa = "$cyan"; $ssr3colorba = "$boldcyan"; } elsif ($ssslotsymbol3a <= 51) { $sssvslot3a = 3; $ssr3coloraa = "$green"; $ssr3colorba = "$boldgreen"; } elsif ($ssslotsymbol3a <= 53) { $sssvslot3a = 2; $ssr3coloraa = "$magenta"; $ssr3colorba = "$boldmagenta"; } elsif ($ssslotsymbol3a == 54) { $sssvslot3a = 1; $ssr3coloraa = "$boldblack"; $ssr3colorba = "$boldwhite"; } elsif ($ssslotsymbol3a <= 58) { #4 More Red $sssvslot3a = 10; $ssr3coloraa = "$red"; $ssr3colorba = "$red"; } elsif ($ssslotsymbol3a >= 59) { $sssvslot3a = 12; $ssr3coloraa = "$white"; $ssr3colorba = "$cyan"; } else { $sssvslot3a = 0; $ssr3coloraa = "$white"; $ssr3colorba = "$white"; } if ($ssslotsymbol1b <= 9) { $sssvslot1b = 10; $ssr1colorab = "$red"; $ssr1colorbb = "$red"; } elsif ($ssslotsymbol1b <= 18) { $sssvslot1b = 9; $ssr1colorab = "$boldwhite"; $ssr1colorbb = "$boldwhite"; } elsif ($ssslotsymbol1b <= 26) { $sssvslot1b = 8; $ssr1colorab = "$boldyellow"; $ssr1colorbb = "$boldyellow"; } elsif ($ssslotsymbol1b <= 33) { $sssvslot1b = 7; $ssr1colorab = "$blue"; $ssr1colorbb = "$blue"; } elsif ($ssslotsymbol1b <= 39) { $sssvslot1b = 6; $ssr1colorab = "$boldgreen"; $ssr1colorbb = "$boldgreen"; } elsif ($ssslotsymbol1b <= 44) { $sssvslot1b = 5; $ssr1colorab = "$boldmagenta"; $ssr1colorbb = "$boldmagenta"; ##################################### } elsif ($ssslotsymbol1b <= 48) { $sssvslot1b = 4; $ssr1colorab = "$cyan"; $ssr1colorbb = "$boldcyan"; } elsif ($ssslotsymbol1b <= 51) { $sssvslot1b = 3; $ssr1colorab = "$green"; $ssr1colorbb = "$boldgreen"; } elsif ($ssslotsymbol1b <= 53) { $sssvslot1b = 2; $ssr1colorab = "$magenta"; $ssr1colorbb = "$boldmagenta"; } elsif ($ssslotsymbol1b == 54) { $sssvslot1b = 1; $ssr1colorab = "$boldblack"; $ssr1colorbb = "$boldwhite"; } elsif ($ssslotsymbol1b <= 58) { #4 More Red $sssvslot1b = 10; $ssr1colorab = "$red"; $ssr1colorbb = "$red"; } elsif ($ssslotsymbol1b >= 59) { $sssvslot1b = 12; $ssr1colorab = "$white"; $ssr1colorbb = "$cyan"; } else { $sssvslot1b = 0; $ssr1colorab = "$white"; $ssr1colorbb = "$white"; } if ($ssslotsymbol2b <= 9) { $sssvslot2b = 10; $ssr2colorab = "$red"; $ssr2colorbb = "$red"; } elsif ($ssslotsymbol2b <= 18) { $sssvslot2b = 9; $ssr2colorab = "$boldwhite"; $ssr2colorbb = "$boldwhite"; } elsif ($ssslotsymbol2b <= 26) { $sssvslot2b = 8; $ssr2colorab = "$boldyellow"; $ssr2colorbb = "$boldyellow"; } elsif ($ssslotsymbol2b <= 33) { $sssvslot2b = 7; $ssr2colorab = "$blue"; $ssr2colorbb = "$blue"; } elsif ($ssslotsymbol2b <= 39) { $sssvslot2b = 6; $ssr2colorab = "$boldgreen"; $ssr2colorbb = "$boldgreen"; } elsif ($ssslotsymbol2b <= 44) { $sssvslot2b = 5; $ssr2colorab = "$boldmagenta"; $ssr2colorbb = "$boldmagenta"; ##################################### } elsif ($ssslotsymbol2b <= 48) { $sssvslot2b = 4; $ssr2colorab = "$boldcyan"; $ssr2colorbb = "$cyan"; } elsif ($ssslotsymbol2b <= 51) { $sssvslot2b = 3; $ssr2colorab = "$boldgreen"; $ssr2colorbb = "$green"; } elsif ($ssslotsymbol2b <= 53) { $sssvslot2b = 2; $ssr2colorab = "$boldwhite"; $ssr2colorbb = "$boldblack"; } elsif ($ssslotsymbol2b == 54) { $sssvslot2b = 1; $ssr2colorab = "$boldmagenta"; $ssr2colorbb = "$magenta"; } elsif ($ssslotsymbol2b <= 58) { #4 More Red $sssvslot2b = 10; $ssr2colorab = "$red"; $ssr2colorbb = "$red"; } elsif ($ssslotsymbol2b >= 59) { $sssvslot2b = 12; $ssr2colorab = "$cyan"; $ssr2colorbb = "$white"; } else { $sssvslot2b = 0; $ssr2colorab = "$white"; $ssr2colorbb = "$white"; } if ($ssslotsymbol3b <= 9) { $sssvslot3b = 10; $ssr3colorab = "$red"; $ssr3colorbb = "$red"; } elsif ($ssslotsymbol3b <= 18) { $sssvslot3b = 9; $ssr3colorab = "$boldwhite"; $ssr3colorbb = "$boldwhite"; } elsif ($ssslotsymbol3b <= 26) { $sssvslot3b = 8; $ssr3colorab = "$boldyellow"; $ssr3colorbb = "$boldyellow"; } elsif ($ssslotsymbol3b <= 33) { $sssvslot3b = 7; $ssr3colorab = "$blue"; $ssr3colorbb = "$blue"; } elsif ($ssslotsymbol3b <= 39) { $sssvslot3b = 6; $ssr3colorab = "$boldgreen"; $ssr3colorbb = "$boldgreen"; } elsif ($ssslotsymbol3b <= 44) { $sssvslot3b = 5; $ssr3colorab = "$boldmagenta"; $ssr3colorbb = "$boldmagenta"; ##################################### } elsif ($ssslotsymbol3b <= 48) { $sssvslot3b = 4; $ssr3colorab = "$cyan"; $ssr3colorbb = "$boldcyan"; } elsif ($ssslotsymbol3b <= 51) { $sssvslot3b = 3; $ssr3colorab = "$green"; $ssr3colorbb = "$boldgreen"; } elsif ($ssslotsymbol3b <= 53) { $sssvslot3b = 2; $ssr3colorab = "$magenta"; $ssr3colorbb = "$boldmagenta"; } elsif ($ssslotsymbol3b == 54) { $sssvslot3b = 1; $ssr3colorab = "$boldblack"; $ssr3colorbb = "$boldwhite"; } elsif ($ssslotsymbol3b <= 58) { #4 More Red $sssvslot3b = 10; $ssr3colorab = "$red"; $ssr3colorbb = "$red"; } elsif ($ssslotsymbol3b >= 59) { $sssvslot3b = 12; $ssr3colorab = "$white"; $ssr3colorbb = "$cyan"; } else { $sssvslot3b = 0; $ssr3colorab = "$white"; $ssr3colorbb = "$white"; } } sub ssslotm5 { sssymseven3(); } sub ssslotm4 { sssymseven4(); } sub ssslotm3 { sssymseven5(); } sub ssslotm2 { sssymseven6(); } sub ssslotm1 { if ($ssslot1 eq 'spining') { sssymspining(); } elsif ($ssslot1 eq 'misaliga') { sssymwhite(); } elsif ($ssslot1 eq 'misalig') { if ($ssslotmis1 == 12) { sssymseven7b(); } elsif ($ssslotmis1 <= 4) { sssymseven7a(); } elsif ($ssslotmis1 >= 5) { sssymseven7(); } else { sssymwhite(); } } elsif ($ssslot1 eq 'misaligb') { sssymwhite(); } elsif ($ssslot1 == 11) { sssymseven7(); } else { sssymwhite(); } } sub ssslot1 { if ($ssslot1 eq 'spining') { sssymspining(); } elsif ($ssslot1 eq 'misaliga') { sssymwhite(); } elsif ($ssslot1 eq 'misalig') { if ($ssslotmis1 == 12) { sssymseven8b(); } elsif ($ssslotmis1 <= 4) { sssymseven8a(); } elsif ($ssslotmis1 >= 5) { sssymseven8(); } else { sssymwhite(); } } elsif ($ssslot1 eq 'misaligb') { if ($ssslotmis1 == 12) { sssymseven8b(); } elsif ($ssslotmis1 <= 4) { sssymseven8a(); } elsif ($ssslotmis1 >= 5) { sssymseven8(); } else { sssymwhite(); } } elsif ($ssslot1 == 12) { sssymseven1b(); } elsif ($ssslot1 <= 4) { sssymseven1a(); } elsif ($ssslot1 >= 5) { sssymseven1(); } else { sssymwhite(); } } sub ssslot2 { if ($ssslot2 eq 'spining') { sssymspining(); } elsif ($ssslot2 eq 'misaliga') { sssymwhite(); } elsif ($ssslot2 eq 'misalig') { if ($ssslotmis2 == 12) { sssymseven9b(); } elsif ($ssslotmis2 <= 4) { sssymseven9a(); } elsif ($ssslotmis2 >= 5) { sssymseven9(); } else { sssymwhite(); } } elsif ($ssslot2 eq 'misaligb') { if ($ssslotmis2 == 12) { sssymseven9b(); } elsif ($ssslotmis2 <= 4) { sssymseven9a(); } elsif ($ssslotmis2 >= 5) { sssymseven9(); } else { sssymwhite(); } } elsif ($ssslot2 == 12) { sssymseven2b(); } elsif ($ssslot2 <= 4) { sssymseven2a(); } elsif ($ssslot2 >= 5) { sssymseven2(); } else { sssymwhite(); } } sub ssslot3 { if ($ssslot3 eq 'spining') { sssymspining(); } elsif ($ssslot3 eq 'misaliga') { sssymwhite(); } elsif ($ssslot3 eq 'misalig') { if ($ssslotmis3 == 12) { sssymseven10b(); } elsif ($ssslotmis3 <= 4) { sssymseven10a(); } elsif ($ssslotmis3 >= 5) { sssymseven10(); } else { sssymwhite(); } } elsif ($ssslot3 eq 'misaligb') { if ($ssslotmis3 == 12) { sssymseven10b(); } elsif ($ssslotmis3 <= 4) { sssymseven10a(); } elsif ($ssslotmis3 >= 5) { sssymseven10(); } else { sssymwhite(); } } elsif ($ssslot3 == 12) { sssymseven3b(); } elsif ($ssslot3 <= 4) { sssymseven3a(); } elsif ($ssslot3 >= 5) { sssymseven3(); } else { sssymwhite(); } } sub ssslot4 { if ($ssslot4 eq 'spining') { sssymspining(); } elsif ($ssslot4 eq 'misaliga') { sssymwhite(); } elsif ($ssslot4 eq 'misalig') { if ($ssslotmis4 == 12) { sssymseven11b(); } elsif ($ssslotmis4 <= 4) { sssymseven11a(); } elsif ($ssslotmis4 >= 5) { sssymseven11(); } else { sssymwhite(); } } elsif ($ssslot4 eq 'misaligb') { if ($ssslotmis4 == 12) { sssymseven11b(); } elsif ($ssslotmis4 <= 4) { sssymseven11a(); } elsif ($ssslotmis4 >= 5) { sssymseven11(); } else { sssymwhite(); } } elsif ($ssslot4 == 12) { sssymseven4b(); } elsif ($ssslot4 <= 4) { sssymseven4a(); } elsif ($ssslot4 >= 5) { sssymseven4(); } else { sssymwhite(); } } sub ssslot5 { if ($ssslot5 eq 'spining') { sssymspining(); } elsif ($ssslot5 eq 'misaliga') { sssymwhite(); } elsif ($ssslot5 eq 'misalig') { if ($ssslotmis5 == 12) { sssymseven12b(); } elsif ($ssslotmis5 <= 4) { sssymseven12a(); } elsif ($ssslotmis5 >= 5) { sssymseven12(); } else { sssymwhite(); } } elsif ($ssslot5 eq 'misaligb') { sssymwhite(); } elsif ($ssslot5 == 12) { sssymseven5b(); } elsif ($ssslot5 <= 4) { sssymseven5a(); } elsif ($ssslot5 >= 5) { sssymseven5(); } else { sssymwhite(); } } sub ssslot6 { if ($ssslot6 eq 'spining') { sssymspining(); } elsif ($ssslot6 eq 'misaliga') { sssymwhite(); } elsif ($ssslot6 eq 'misalig') { if ($ssslotmis6 == 12) { sssymseven13b(); } elsif ($ssslotmis6 <= 4) { sssymseven13a(); } elsif ($ssslotmis6 >= 5) { sssymseven13(); } else { sssymwhite(); } } elsif ($ssslot6 eq 'misaligb') { sssymwhite(); } elsif ($ssslot6 == 12) { sssymseven6b(); } elsif ($ssslot6 <= 4) { sssymseven6a(); } elsif ($ssslot6 >= 5) { sssymseven6(); } else { sssymwhite(); } } sub ssslot7 { sssympayline(); } sub ssslot8 { if ($ssslot8 eq 'spining') { sssymspining(); } elsif ($ssslot8 eq 'misaliga') { sssymwhite(); } elsif ($ssslot8 eq 'misalig') { if ($ssslotmis8 == 12) { sssymseven1b(); } elsif ($ssslotmis8 <= 4) { sssymseven1a(); } elsif ($ssslotmis8 >= 5) { sssymseven1(); } else { sssymwhite(); } } elsif ($ssslot8 eq 'misaligb') { sssymwhite(); } elsif ($ssslot8 == 12) { sssymseven8b(); } elsif ($ssslot8 <= 4) { sssymseven8a(); } elsif ($ssslot8 >= 5) { sssymseven8(); } else { sssymwhite(); } } sub ssslot9 { if ($ssslot9 eq 'spining') { sssymspining(); } elsif ($ssslot9 eq 'misaliga') { sssymwhite(); } elsif ($ssslot9 eq 'misalig') { if ($ssslotmis9 == 12) { sssymseven2b(); } elsif ($ssslotmis9 <= 4) { sssymseven2a(); } elsif ($ssslotmis9 >= 5) { sssymseven2(); } else { sssymwhite(); } } elsif ($ssslot9 eq 'misaligb') { sssymwhite(); } elsif ($ssslot9 == 12) { sssymseven9b(); } elsif ($ssslot9 <= 4) { sssymseven9a(); } elsif ($ssslot9 >= 5) { sssymseven9(); } else { sssymwhite(); } } sub ssslot10 { if ($ssslot10 eq 'spining') { sssymspining(); } elsif ($ssslot10 eq 'misaliga') { if ($ssslotmis10 == 12) { sssymseven3b(); } elsif ($ssslotmis10 <= 4) { sssymseven3a(); } elsif ($ssslotmis10 >= 5) { sssymseven3(); } } elsif ($ssslot10 eq 'misalig') { if ($ssslotmis10 == 12) { sssymseven3b(); } elsif ($ssslotmis10 <= 4) { sssymseven3a(); } elsif ($ssslotmis10 >= 5) { sssymseven3(); } else { sssymwhite(); } } elsif ($ssslot10 eq 'misaligb') { sssymwhite(); } elsif ($ssslot10 == 12) { sssymseven10b(); } elsif ($ssslot10 <= 4) { sssymseven10a(); } elsif ($ssslot10 >= 5) { sssymseven10(); } else { sssymwhite(); } } sub ssslot11 { if ($ssslot11 eq 'spining') { sssymspining(); } elsif ($ssslot11 eq 'misaliga') { if ($ssslotmis11 == 12) { sssymseven4b(); } elsif ($ssslotmis11 <= 4) { sssymseven4a(); } elsif ($ssslotmis11 >= 5) { sssymseven4(); } else { sssymwhite(); } } elsif ($ssslot11 eq 'misalig') { if ($ssslotmis11 == 12) { sssymseven4b(); } elsif ($ssslotmis11 <= 4) { sssymseven4a(); } elsif ($ssslotmis11 >= 5) { sssymseven4(); } else { sssymwhite(); } } elsif ($ssslot11 eq 'misaligb') { sssymwhite(); } elsif ($ssslot11 == 12) { sssymseven11b(); } elsif ($ssslot11 <= 4) { sssymseven11a(); } elsif ($ssslot11 >= 5) { sssymseven11(); } else { sssymwhite(); } } sub ssslot12 { if ($ssslot12 eq 'spining') { sssymspining(); } elsif ($ssslot12 eq 'misaliga') { if ($ssslotmis12 == 12) { sssymseven5b(); } elsif ($ssslotmis12 <= 4) { sssymseven5a(); } elsif ($ssslotmis12 >= 5) { sssymseven5(); } else { sssymwhite(); } } elsif ($ssslot12 eq 'misalig') { if ($ssslotmis12 == 12) { sssymseven5b(); } elsif ($ssslotmis12 <= 4) { sssymseven5a(); } elsif ($ssslotmis12 >= 5) { sssymseven5(); } else { sssymwhite(); } } elsif ($ssslot12 eq 'misaligb') { sssymwhite(); } elsif ($ssslot12 == 12) { sssymseven12b(); } elsif ($ssslot12 <= 4) { sssymseven12a(); } elsif ($ssslot12 >= 5) { sssymseven12(); } else { sssymwhite(); } } sub ssslot13 { if ($ssslot13 eq 'spining') { sssymspining(); } elsif ($ssslot13 eq 'misaliga') { if ($ssslotmis13 == 12) { sssymseven6b(); } elsif ($ssslotmis13 <= 4) { sssymseven6a(); } elsif ($ssslotmis13 >= 5) { sssymseven6(); } else { sssymwhite(); } } elsif ($ssslot13 eq 'misalig') { if ($ssslotmis13 == 12) { sssymseven6b(); } elsif ($ssslotmis13 <= 4) { sssymseven6a(); } elsif ($ssslotmis13 >= 5) { sssymseven6(); } else { sssymwhite(); } } elsif ($ssslot13 eq 'misaligb') { sssymwhite(); } elsif ($ssslot13 == 12) { sssymseven13b(); } elsif ($ssslot13 <= 4) { sssymseven13a(); } elsif ($ssslot13 >= 5) { sssymseven13(); } else { sssymwhite(); } } sub ssslotp1 { if ($ssslot13 eq 'spining') { sssymspining(); } elsif ($ssslot13 eq 'misaliga') { sssymwhite(); } elsif ($ssslot13 eq 'misalig') { if ($ssslotmis13 == 12) { sssymseven7b(); } elsif ($ssslotmis13 <= 4) { sssymseven7a(); } elsif ($ssslotmis13 >= 5) { sssymseven7(); } else { sssymwhite(); } } elsif ($ssslot13 eq 'misaligb') { sssymwhite(); } elsif ($ssslot13 == 11) { sssymseven7(); } else { sssymwhite(); } } sub ssreel1 { $ssreel = 1; if ($ssreelspin == 3) { $ssslot1 = 'spining'; $ssslot2 = 'spining'; $ssslot3 = 'spining'; $ssslot4 = 'spining'; $ssslot5 = 'spining'; $ssslot6 = 'spining'; $ssslot7 = 'spining'; $ssslot8 = 'spining'; $ssslot9 = 'spining'; $ssslot10 = 'spining'; $ssslot11 = 'spining'; $ssslot12 = 'spining'; $ssslot13 = 'spining'; $ssslot14 = 'spining'; } elsif ($ssmisalign1 == 1) { $ssslot1 = 'misalig'; $ssslot2 = 'misalig'; $ssslot3 = 'misalig'; $ssslot4 = 'misalig'; $ssslot5 = 'misalig'; $ssslot6 = 'misalig'; $ssslot7 = 'misalig'; $ssslot8 = 'misalig'; $ssslot9 = 'misalig'; $ssslot10 = 'misalig'; $ssslot11 = 'misalig'; $ssslot12 = 'misalig'; $ssslot13 = 'misalig'; $ssslot14 = 'misalig'; $ssslotmis1 = $sssvslot1; $ssslotmis2 = $sssvslot1; $ssslotmis3 = $sssvslot1; $ssslotmis4 = $sssvslot1; $ssslotmis5 = $sssvslot1; $ssslotmis6 = $sssvslot1; $ssslotmis7 = $sssvslot1; $ssslotmis8 = $sssvslot1b; $ssslotmis9 = $sssvslot1b; $ssslotmis10 = $sssvslot1b; $ssslotmis11 = $sssvslot1b; $ssslotmis12 = $sssvslot1b; $ssslotmis13 = $sssvslot1b; $ssslotmis14 = $sssvslot1b; } else { $ssslot1 = $sssvslot1; $ssslot2 = $sssvslot1; $ssslot3 = $sssvslot1; $ssslot4 = $sssvslot1; $ssslot5 = $sssvslot1; $ssslot6 = $sssvslot1; $ssslot7 = $sssvslot1; $ssslot8 = $sssvslot1; $ssslot9 = $sssvslot1; $ssslot10 = $sssvslot1; $ssslot11 = $sssvslot1; $ssslot12 = $sssvslot1; $ssslot13 = $sssvslot1; $ssslot14 = $sssvslot1; } } sub ssreel2 { $ssreel = 2; if ($ssreelspin >= 2) { $ssslot1 = 'spining'; $ssslot2 = 'spining'; $ssslot3 = 'spining'; $ssslot4 = 'spining'; $ssslot5 = 'spining'; $ssslot6 = 'spining'; $ssslot7 = 'spining'; $ssslot8 = 'spining'; $ssslot9 = 'spining'; $ssslot10 = 'spining'; $ssslot11 = 'spining'; $ssslot12 = 'spining'; $ssslot13 = 'spining'; $ssslot14 = 'spining'; } elsif ($ssmisalign2 == 1) { $ssslot1 = 'misalig'; $ssslot2 = 'misalig'; $ssslot3 = 'misalig'; $ssslot4 = 'misalig'; $ssslot5 = 'misalig'; $ssslot6 = 'misalig'; $ssslot7 = 'misalig'; $ssslot8 = 'misalig'; $ssslot9 = 'misalig'; $ssslot10 = 'misalig'; $ssslot11 = 'misalig'; $ssslot12 = 'misalig'; $ssslot13 = 'misalig'; $ssslot14 = 'misalig'; $ssslotmis1 = $sssvslot2; $ssslotmis2 = $sssvslot2; $ssslotmis3 = $sssvslot2; $ssslotmis4 = $sssvslot2; $ssslotmis5 = $sssvslot2; $ssslotmis6 = $sssvslot2; $ssslotmis7 = $sssvslot2; $ssslotmis8 = $sssvslot2b; $ssslotmis9 = $sssvslot2b; $ssslotmis10 = $sssvslot2b; $ssslotmis11 = $sssvslot2b; $ssslotmis12 = $sssvslot2b; $ssslotmis13 = $sssvslot2b; $ssslotmis14 = $sssvslot2b; } else { $ssslot1 = $sssvslot2; $ssslot2 = $sssvslot2; $ssslot3 = $sssvslot2; $ssslot4 = $sssvslot2; $ssslot5 = $sssvslot2; $ssslot6 = $sssvslot2; $ssslot7 = $sssvslot2; $ssslot8 = $sssvslot2; $ssslot9 = $sssvslot2; $ssslot10 = $sssvslot2; $ssslot11 = $sssvslot2; $ssslot12 = $sssvslot2; $ssslot13 = $sssvslot2; $ssslot14 = $sssvslot2; } } sub ssreel3 { $ssreel = 3; if ($ssreelspin >= 1) { $ssslot1 = 'spining'; $ssslot2 = 'spining'; $ssslot3 = 'spining'; $ssslot4 = 'spining'; $ssslot5 = 'spining'; $ssslot6 = 'spining'; $ssslot7 = 'spining'; $ssslot8 = 'spining'; $ssslot9 = 'spining'; $ssslot10 = 'spining'; $ssslot11 = 'spining'; $ssslot12 = 'spining'; $ssslot13 = 'spining'; $ssslot14 = 'spining'; } elsif ($ssmisalign3 == 1) { $ssslot1 = 'misalig'; $ssslot2 = 'misalig'; $ssslot3 = 'misalig'; $ssslot4 = 'misalig'; $ssslot5 = 'misalig'; $ssslot6 = 'misalig'; $ssslot7 = 'misalig'; $ssslot8 = 'misalig'; $ssslot9 = 'misalig'; $ssslot10 = 'misalig'; $ssslot11 = 'misalig'; $ssslot12 = 'misalig'; $ssslot13 = 'misalig'; $ssslot14 = 'misalig'; $ssslotmis1 = $sssvslot3; $ssslotmis2 = $sssvslot3; $ssslotmis3 = $sssvslot3; $ssslotmis4 = $sssvslot3; $ssslotmis5 = $sssvslot3; $ssslotmis6 = $sssvslot3; $ssslotmis7 = $sssvslot3; $ssslotmis8 = $sssvslot3b; $ssslotmis9 = $sssvslot3b; $ssslotmis10 = $sssvslot3b; $ssslotmis11 = $sssvslot3b; $ssslotmis12 = $sssvslot3b; $ssslotmis13 = $sssvslot3b; $ssslotmis14 = $sssvslot3b; } else { $ssslot1 = $sssvslot3; $ssslot2 = $sssvslot3; $ssslot3 = $sssvslot3; $ssslot4 = $sssvslot3; $ssslot5 = $sssvslot3; $ssslot6 = $sssvslot3; $ssslot7 = $sssvslot3; $ssslot8 = $sssvslot3; $ssslot9 = $sssvslot3; $ssslot10 = $sssvslot3; $ssslot11 = $sssvslot3; $ssslot12 = $sssvslot3; $ssslot13 = $sssvslot3; $ssslot14 = $sssvslot3; } } sub ssreel1b { $ssreel = 7; if ($ssreelspin == 3) { $ssslot1 = 'spining'; $ssslot2 = 'spining'; $ssslot3 = 'spining'; $ssslot4 = 'spining'; $ssslot5 = 'spining'; $ssslot6 = 'spining'; $ssslot7 = 'spining'; $ssslot8 = 'spining'; $ssslot9 = 'spining'; $ssslot10 = 'spining'; $ssslot11 = 'spining'; $ssslot12 = 'spining'; $ssslot13 = 'spining'; $ssslot14 = 'spining'; } elsif ($ssmisalign1 == 1) { $ssslot1 = 'misaligb'; $ssslot2 = 'misaligb'; $ssslot3 = 'misaligb'; $ssslot4 = 'misaligb'; $ssslot5 = 'misaligb'; $ssslot6 = 'misaligb'; $ssslot7 = 'misaligb'; $ssslot8 = 'misaligb'; $ssslot9 = 'misaligb'; $ssslot10 = 'misaligb'; $ssslot11 = 'misaligb'; $ssslot12 = 'misaligb'; $ssslot13 = 'misaligb'; $ssslot14 = 'misaligb'; $ssslotmis1 = $sssvslot1b; $ssslotmis2 = $sssvslot1b; $ssslotmis3 = $sssvslot1b; $ssslotmis4 = $sssvslot1b; $ssslotmis5 = $sssvslot1b; $ssslotmis6 = $sssvslot1b; $ssslotmis7 = $sssvslot1b; $ssslotmis8 = $sssvslot1b; $ssslotmis9 = $sssvslot1b; $ssslotmis10 = $sssvslot1b; $ssslotmis11 = $sssvslot1b; $ssslotmis12 = $sssvslot1b; $ssslotmis13 = $sssvslot1b; $ssslotmis14 = $sssvslot1b; } else { $ssslot1 = $sssvslot1b; $ssslot2 = $sssvslot1b; $ssslot3 = $sssvslot1b; $ssslot4 = $sssvslot1b; $ssslot5 = $sssvslot1b; $ssslot6 = $sssvslot1b; $ssslot7 = $sssvslot1b; $ssslot8 = $sssvslot1b; $ssslot9 = $sssvslot1b; $ssslot10 = $sssvslot1b; $ssslot11 = $sssvslot1b; $ssslot12 = $sssvslot1b; $ssslot13 = $sssvslot1b; $ssslot14 = $sssvslot1b; } } sub ssreel2b { $ssreel = 8; if ($ssreelspin >= 2) { $ssslot1 = 'spining'; $ssslot2 = 'spining'; $ssslot3 = 'spining'; $ssslot4 = 'spining'; $ssslot5 = 'spining'; $ssslot6 = 'spining'; $ssslot7 = 'spining'; $ssslot8 = 'spining'; $ssslot9 = 'spining'; $ssslot10 = 'spining'; $ssslot11 = 'spining'; $ssslot12 = 'spining'; $ssslot13 = 'spining'; $ssslot14 = 'spining'; } elsif ($ssmisalign2 == 1) { $ssslot1 = 'misaligb'; $ssslot2 = 'misaligb'; $ssslot3 = 'misaligb'; $ssslot4 = 'misaligb'; $ssslot5 = 'misaligb'; $ssslot6 = 'misaligb'; $ssslot7 = 'misaligb'; $ssslot8 = 'misaligb'; $ssslot9 = 'misaligb'; $ssslot10 = 'misaligb'; $ssslot11 = 'misaligb'; $ssslot12 = 'misaligb'; $ssslot13 = 'misaligb'; $ssslot14 = 'misaligb'; $ssslotmis1 = $sssvslot2b; $ssslotmis2 = $sssvslot2b; $ssslotmis3 = $sssvslot2b; $ssslotmis4 = $sssvslot2b; $ssslotmis5 = $sssvslot2b; $ssslotmis6 = $sssvslot2b; $ssslotmis7 = $sssvslot2b; $ssslotmis8 = $sssvslot2b; $ssslotmis9 = $sssvslot2b; $ssslotmis10 = $sssvslot2b; $ssslotmis11 = $sssvslot2b; $ssslotmis12 = $sssvslot2b; $ssslotmis13 = $sssvslot2b; $ssslotmis14 = $sssvslot2b; } else { $ssslot1 = $sssvslot2b; $ssslot2 = $sssvslot2b; $ssslot3 = $sssvslot2b; $ssslot4 = $sssvslot2b; $ssslot5 = $sssvslot2b; $ssslot6 = $sssvslot2b; $ssslot7 = $sssvslot2b; $ssslot8 = $sssvslot2b; $ssslot9 = $sssvslot2b; $ssslot10 = $sssvslot2b; $ssslot11 = $sssvslot2b; $ssslot12 = $sssvslot2b; $ssslot13 = $sssvslot2b; $ssslot14 = $sssvslot2b; } } sub ssreel3b { $ssreel = 9; if ($ssreelspin >= 1) { $ssslot1 = 'spining'; $ssslot2 = 'spining'; $ssslot3 = 'spining'; $ssslot4 = 'spining'; $ssslot5 = 'spining'; $ssslot6 = 'spining'; $ssslot7 = 'spining'; $ssslot8 = 'spining'; $ssslot9 = 'spining'; $ssslot10 = 'spining'; $ssslot11 = 'spining'; $ssslot12 = 'spining'; $ssslot13 = 'spining'; $ssslot14 = 'spining'; } elsif ($ssmisalign3 == 1) { $ssslot1 = 'misaligb'; $ssslot2 = 'misaligb'; $ssslot3 = 'misaligb'; $ssslot4 = 'misaligb'; $ssslot5 = 'misaligb'; $ssslot6 = 'misaligb'; $ssslot7 = 'misaligb'; $ssslot8 = 'misaligb'; $ssslot9 = 'misaligb'; $ssslot10 = 'misaligb'; $ssslot11 = 'misaligb'; $ssslot12 = 'misaligb'; $ssslot13 = 'misaligb'; $ssslot14 = 'misaligb'; $ssslotmis1 = $sssvslot3b; $ssslotmis2 = $sssvslot3b; $ssslotmis3 = $sssvslot3b; $ssslotmis4 = $sssvslot3b; $ssslotmis5 = $sssvslot3b; $ssslotmis6 = $sssvslot3b; $ssslotmis7 = $sssvslot3b; $ssslotmis8 = $sssvslot3b; $ssslotmis9 = $sssvslot3b; $ssslotmis10 = $sssvslot3b; $ssslotmis11 = $sssvslot3b; $ssslotmis12 = $sssvslot3b; $ssslotmis13 = $sssvslot3b; $ssslotmis14 = $sssvslot3b; } else { $ssslot1 = $sssvslot3b; $ssslot2 = $sssvslot3b; $ssslot3 = $sssvslot3b; $ssslot4 = $sssvslot3b; $ssslot5 = $sssvslot3b; $ssslot6 = $sssvslot3b; $ssslot7 = $sssvslot3b; $ssslot8 = $sssvslot3b; $ssslot9 = $sssvslot3b; $ssslot10 = $sssvslot3b; $ssslot11 = $sssvslot3b; $ssslot12 = $sssvslot3b; $ssslot13 = $sssvslot3b; $ssslot14 = $sssvslot3b; } } sub ssreel1a { $ssreel = 4; if ($ssreelspin == 3) { $ssslot1 = 'spining'; $ssslot2 = 'spining'; $ssslot3 = 'spining'; $ssslot4 = 'spining'; $ssslot5 = 'spining'; $ssslot6 = 'spining'; $ssslot7 = 'spining'; $ssslot8 = 'spining'; $ssslot9 = 'spining'; $ssslot10 = 'spining'; $ssslot11 = 'spining'; $ssslot12 = 'spining'; $ssslot13 = 'spining'; $ssslot14 = 'spining'; } elsif ($ssmisalign1 == 1) { $ssslot1 = 'misaliga'; $ssslot2 = 'misaliga'; $ssslot3 = 'misaliga'; $ssslot4 = 'misaliga'; $ssslot5 = 'misaliga'; $ssslot6 = 'misaliga'; $ssslot7 = 'misaliga'; $ssslot8 = 'misaliga'; $ssslot9 = 'misaliga'; $ssslot10 = 'misaliga'; $ssslot11 = 'misaliga'; $ssslot12 = 'misaliga'; $ssslot13 = 'misaliga'; $ssslot14 = 'misaliga'; $ssslotmis1 = $sssvslot1; $ssslotmis2 = $sssvslot1; $ssslotmis3 = $sssvslot1; $ssslotmis4 = $sssvslot1; $ssslotmis5 = $sssvslot1; $ssslotmis6 = $sssvslot1; $ssslotmis7 = $sssvslot1; $ssslotmis8 = $sssvslot1; $ssslotmis9 = $sssvslot1; $ssslotmis10 = $sssvslot1; $ssslotmis11 = $sssvslot1; $ssslotmis12 = $sssvslot1; $ssslotmis13 = $sssvslot1; $ssslotmis14 = $sssvslot1; } else { $ssslot1 = $sssvslot1a; $ssslot2 = $sssvslot1a; $ssslot3 = $sssvslot1a; $ssslot4 = $sssvslot1a; $ssslot5 = $sssvslot1a; $ssslot6 = $sssvslot1a; $ssslot7 = $sssvslot1a; $ssslot8 = $sssvslot1a; $ssslot9 = $sssvslot1a; $ssslot10 = $sssvslot1a; $ssslot11 = $sssvslot1a; $ssslot12 = $sssvslot1a; $ssslot13 = $sssvslot1a; $ssslot14 = $sssvslot1a; } } sub ssreel2a { $ssreel = 5; if ($ssreelspin >= 2) { $ssslot1 = 'spining'; $ssslot2 = 'spining'; $ssslot3 = 'spining'; $ssslot4 = 'spining'; $ssslot5 = 'spining'; $ssslot6 = 'spining'; $ssslot7 = 'spining'; $ssslot8 = 'spining'; $ssslot9 = 'spining'; $ssslot10 = 'spining'; $ssslot11 = 'spining'; $ssslot12 = 'spining'; $ssslot13 = 'spining'; $ssslot14 = 'spining'; } elsif ($ssmisalign2 == 1) { $ssslot1 = 'misaliga'; $ssslot2 = 'misaliga'; $ssslot3 = 'misaliga'; $ssslot4 = 'misaliga'; $ssslot5 = 'misaliga'; $ssslot6 = 'misaliga'; $ssslot7 = 'misaliga'; $ssslot8 = 'misaliga'; $ssslot9 = 'misaliga'; $ssslot10 = 'misaliga'; $ssslot11 = 'misaliga'; $ssslot12 = 'misaliga'; $ssslot13 = 'misaliga'; $ssslot14 = 'misaliga'; $ssslotmis1 = $sssvslot2; $ssslotmis2 = $sssvslot2; $ssslotmis3 = $sssvslot2; $ssslotmis4 = $sssvslot2; $ssslotmis5 = $sssvslot2; $ssslotmis6 = $sssvslot2; $ssslotmis7 = $sssvslot2; $ssslotmis8 = $sssvslot2; $ssslotmis9 = $sssvslot2; $ssslotmis10 = $sssvslot2; $ssslotmis11 = $sssvslot2; $ssslotmis12 = $sssvslot2; $ssslotmis13 = $sssvslot2; $ssslotmis14 = $sssvslot2; } else { $ssslot1 = $sssvslot2a; $ssslot2 = $sssvslot2a; $ssslot3 = $sssvslot2a; $ssslot4 = $sssvslot2a; $ssslot5 = $sssvslot2a; $ssslot6 = $sssvslot2a; $ssslot7 = $sssvslot2a; $ssslot8 = $sssvslot2a; $ssslot9 = $sssvslot2a; $ssslot10 = $sssvslot2a; $ssslot11 = $sssvslot2a; $ssslot12 = $sssvslot2a; $ssslot13 = $sssvslot2a; $ssslot14 = $sssvslot2a; } } sub ssreel3a { $ssreel = 6; if ($ssreelspin >= 1) { $ssslot1 = 'spining'; $ssslot2 = 'spining'; $ssslot3 = 'spining'; $ssslot4 = 'spining'; $ssslot5 = 'spining'; $ssslot6 = 'spining'; $ssslot7 = 'spining'; $ssslot8 = 'spining'; $ssslot9 = 'spining'; $ssslot10 = 'spining'; $ssslot11 = 'spining'; $ssslot12 = 'spining'; $ssslot13 = 'spining'; $ssslot14 = 'spining'; } elsif ($ssmisalign3 == 1) { $ssslot1 = 'misaliga'; $ssslot2 = 'misaliga'; $ssslot3 = 'misaliga'; $ssslot4 = 'misaliga'; $ssslot5 = 'misaliga'; $ssslot6 = 'misaliga'; $ssslot7 = 'misaliga'; $ssslot8 = 'misaliga'; $ssslot9 = 'misaliga'; $ssslot10 = 'misaliga'; $ssslot11 = 'misaliga'; $ssslot12 = 'misaliga'; $ssslot13 = 'misaliga'; $ssslot14 = 'misaliga'; $ssslotmis1 = $sssvslot3; $ssslotmis2 = $sssvslot3; $ssslotmis3 = $sssvslot3; $ssslotmis4 = $sssvslot3; $ssslotmis5 = $sssvslot3; $ssslotmis6 = $sssvslot3; $ssslotmis7 = $sssvslot3; $ssslotmis8 = $sssvslot3; $ssslotmis9 = $sssvslot3; $ssslotmis10 = $sssvslot3; $ssslotmis11 = $sssvslot3; $ssslotmis12 = $sssvslot3; $ssslotmis13 = $sssvslot3; $ssslotmis14 = $sssvslot3; } else { $ssslot1 = $sssvslot3a; $ssslot2 = $sssvslot3a; $ssslot3 = $sssvslot3a; $ssslot4 = $sssvslot3a; $ssslot5 = $sssvslot3a; $ssslot6 = $sssvslot3a; $ssslot7 = $sssvslot3a; $ssslot8 = $sssvslot3a; $ssslot9 = $sssvslot3a; $ssslot10 = $sssvslot3a; $ssslot11 = $sssvslot3a; $ssslot12 = $sssvslot3a; $ssslot13 = $sssvslot3a; $ssslot14 = $sssvslot3a; } } sub sscolorr1 { $sscolor1 = $ssr1colora; $sscolor2 = $ssr1colorb; } sub sscolorr2 { $sscolor1 = $ssr2colora; $sscolor2 = $ssr2colorb; } sub sscolorr3 { $sscolor1 = $ssr3colora; $sscolor2 = $ssr3colorb; } sub sscolorr1m { if ($ssmisalign1 == 1) { $sscolor1 = $ssr1colorab; $sscolor2 = $ssr1colorbb; } else { $sscolor1 = $ssr1colora; $sscolor2 = $ssr1colorb; } } sub sscolorr2m { if ($ssmisalign2 == 1) { $sscolor1 = $ssr2colorab; $sscolor2 = $ssr2colorbb; } else { $sscolor1 = $ssr2colora; $sscolor2 = $ssr2colorb; } } sub sscolorr3m { if ($ssmisalign3 == 1) { $sscolor1 = $ssr3colorab; $sscolor2 = $ssr3colorbb; } else { $sscolor1 = $ssr3colora; $sscolor2 = $ssr3colorb; } } sub sscolorr1b { $sscolor1 = $ssr1colorab; $sscolor2 = $ssr1colorbb; } sub sscolorr2b { $sscolor1 = $ssr2colorab; $sscolor2 = $ssr2colorbb; } sub sscolorr3b { $sscolor1 = $ssr3colorab; $sscolor2 = $ssr3colorbb; } sub sscolorr1a { if ($ssmisalign1 == 1) { $sscolor1 = $ssr1colora; $sscolor2 = $ssr1colorb; } else { $sscolor1 = $ssr1coloraa; $sscolor2 = $ssr1colorba; } } sub sscolorr2a { if ($ssmisalign2 == 1) { $sscolor1 = $ssr2colora; $sscolor2 = $ssr2colorb; } else { $sscolor1 = $ssr2coloraa; $sscolor2 = $ssr2colorba; } } sub sscolorr3a { if ($ssmisalign3 == 1) { $sscolor1 = $ssr3colora; $sscolor2 = $ssr3colorb; } else { $sscolor1 = $ssr3coloraa; $sscolor2 = $ssr3colorba; } } sub ssmida1 { print colored('| ',"$boldred on_$bgcred"); } sub ssmidb1 { print colored('LINE',"$boldwhite on_$bgcgreen"); } sub ssmida0 { print colored('|',"$boldblue on_$bgcblue"); print colored(' |',"$boldred on_$bgcred"); } sub ssmida02 { print colored('|',"$boldblue on_$bgcblue"); print colored('[X2>',"$sspx2 on_$bgcgreen"); } sub ssmida03 { print colored('|',"$boldblue on_$bgcblue"); print colored('[X3>',"$sspx3 on_$bgcgreen"); } sub ssmida12 { print colored('<2X]',"$sspx2 on_$bgcgreen"); } sub ssmida13 { print colored('<3X]',"$sspx3 on_$bgcgreen"); } sub ssmida2 { print colored('-',"$sspx2 on_$bgcgreen"); } sub ssmida3 { print colored('-',"$sspx3 on_$bgcgreen"); } sub ssmidb0 { print colored('|',"$boldblue on_$bgcblue"); print colored('PAYL',"$boldwhite on_$bgcgreen"); } sub ssmida { print colored('|',"$boldred on_$bgcred"); } sub ssmidb { print colored('L',"$boldwhite on_$bgcgreen"); } sub ss13 { if ($ssslot1 != 11) { ssslot13(); } else { ssslotm2(); } } sub ss12 { if ($ssslot1 != 11) { ssslot12(); } else { ssslotm3(); } } sub ss11 { if ($ssslot1 != 11) { ssslot11(); } else { ssslotm4(); } } sub ss10 { if ($ssslot1 != 11) { ssslot10(); } else { ssslotm5(); } } sub ss1 { if ($ssslot1 != 11) { ssslot1(); } else { ssslotm2(); } } sub ss2 { if ($ssslot1 != 11) { ssslot2(); } else { ssslotm3(); } } sub ss3 { if ($ssslot1 != 11) { ssslot3(); } else { ssslotm4(); } } sub ss4 { if ($ssslot1 != 11) { ssslot10(); } else { ssslotm5(); } } sub ssmainscreen { print colored('/------------------------------------------------------------------------------\\',"$boldblue on_$bgcblue"); print"\n"; print colored('|',"$boldblue on_$bgcblue"); print colored(' \\------------------|------------------|------------------/ ',"$boldred on_$bgcred"); print colored(' 3P PROGRESSIVE ',"$boldblue on_$bgcblue"); print colored('|',"$boldblue on_$bgcblue"); print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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(); 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(); 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(); 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(); 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(); print colored('|',"$boldblue on_$bgcblue"); print colored(' /------------------|------------------|------------------\\ ',"$boldred on_$bgcred"); print colored(' ',"$boldblack on_$bgcred"); print colored('|',"$boldblue on_$bgcblue"); beepalrm(); 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(); 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(); $beepnum = 0; } sub ssdisplaywin { print colored('|',"$boldblue on_$bgcblue"); print colored(' WINNINGS ',"$boldyellow on_$bgcred"); sep; if ($ssaddmoney > 9999999999) { print colored(sprintf("%.4e", $ssaddmoney),"$boldblack on_$bgcwhite"); } elsif ($ssaddmoney >= 1000000000) { print colored("$ssaddmoney","$boldblack on_$bgcwhite"); } elsif ($ssaddmoney >= 100000000) { print colored(" $ssaddmoney","$boldblack on_$bgcwhite"); } elsif ($ssaddmoney >= 10000000) { print colored(" $ssaddmoney","$boldblack on_$bgcwhite"); } elsif ($ssaddmoney >= 1000000) { print colored(" $ssaddmoney","$boldblack on_$bgcwhite"); } elsif ($ssaddmoney >= 100000) { print colored(" $ssaddmoney","$boldblack on_$bgcwhite"); } elsif ($ssaddmoney >= 10000) { print colored(" $ssaddmoney","$boldblack on_$bgcwhite"); } elsif ($ssaddmoney >= 1000) { print colored(" $ssaddmoney","$boldblack on_$bgcwhite"); } elsif ($ssaddmoney >= 100) { print colored(" $ssaddmoney","$boldblack on_$bgcwhite"); } elsif ($ssaddmoney >= 10) { print colored(" $ssaddmoney","$boldblack on_$bgcwhite"); } elsif ($ssaddmoney >= 1) { print colored(" $ssaddmoney","$boldblack on_$bgcwhite"); } else { print colored(" $ssaddmoney","$boldblack on_$bgcwhite"); } sep; print colored(' TOTAL FUNDS ',"$boldyellow on_$bgcred"); sep; if ($money > 9999999999) { print colored(sprintf("%.4e", $money),"$boldgreen on_$bgcgreen"); } elsif ($money >= 1000000000) { print colored("$money","$boldgreen on_$bgcgreen"); } elsif ($money >= 100000000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 10000000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 1000000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 100000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 10000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 1000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 100) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 10) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 1) { print colored(" $money","$boldgreen on_$bgcgreen"); } else { print colored(" $money","$boldgreen on_$bgcgreen"); } sep; # print colored(' INSERT TOKENS ',"$boldyellow on_$bgcred"); sep; print colored(' ---------- ',"$black on_$bgcyellow"); sep; print colored(' ',"$boldblue on_$bgcred"); print colored('|----/',"$boldblue on_$bgcblue"); print"\n"; print colored('\\-------------------------------------------------------------------------/',"$boldblue on_$bgcblue"); STDOUT->flush(); } sub ssprojkpot { $jkclr = "$red"; sep; if ($projkpot > 999999999999) { print colored(sprintf("%.6e", $projkpot),"bold $jkclr on_$bgcred"); } elsif ($projkpot >= 100000000000) { print colored("$projkpot","bold $jkclr on_$bgcred"); } elsif ($projkpot >= 10000000000) { print colored(" $projkpot","bold $jkclr on_$bgcred"); } elsif ($projkpot >= 1000000000) { print colored(" $projkpot","bold $jkclr on_$bgcred"); } elsif ($projkpot >= 100000000) { print colored(" $projkpot","bold $jkclr on_$bgcred"); } elsif ($projkpot >= 10000000) { print colored(" $projkpot","bold $jkclr on_$bgcred"); } elsif ($projkpot >= 1000000) { print colored(" $projkpot","bold $jkclr on_$bgcred"); } elsif ($projkpot >= 100000) { print colored(" $projkpot","bold $jkclr on_$bgcred"); } elsif ($projkpot >= 10000) { print colored(" $projkpot","bold $jkclr on_$bgcred"); } elsif ($projkpot >= 1000) { print colored(" $projkpot","bold $jkclr on_$bgcred"); } elsif ($projkpot >= 100) { print colored(" $projkpot","bold $jkclr on_$bgcred"); } elsif ($projkpot >= 10) { print colored(" $projkpot","bold $jkclr on_$bgcred"); } elsif ($projkpot >= 1) { print colored(" $projkpot","bold $jkclr on_$bgcred"); } else { print colored(" $projkpot","bold $jkclr on_$bgcred"); } sep; } ################################################################################################################################ ## GENRE: Slot Mahine ## NAME: Twilight Mine ## AUTHOR: MikeeUSA sub ngemmain { ngemresetvars(); ngemspinreel(); ngemreeltrans(); if ($animate == 1) { $ngemreelspin = 5; ngemtopprint(); ngemmainscreen(); smallpause(); newlines(); $ngemreelspin = 4; ngemtopprint(); ngemmainscreen(); smallpause(); newlines(); $ngemreelspin = 3; ngemtopprint(); ngemmainscreen(); smallpause(); newlines(); if ($ngemplaylevel >= 2) { $ngemreelspin = 2; ngemtopprint(); ngemmainscreen(); smallpause(); newlines(); } if ($ngemplaylevel >= 3) { $ngemreelspin = 1; ngemtopprint(); ngemmainscreen(); smallpause(); newlines(); } } $ngemreelspin = 0; ngemtopprint(); $ngemx12 = $ngemsvslot1.$ngemsvslot2; $ngemx23 = $ngemsvslot2.$ngemsvslot3; $ngemx34 = $ngemsvslot3.$ngemsvslot4; $ngemx45 = $ngemsvslot4.$ngemsvslot5; $ngemx123 = $ngemsvslot1.$ngemsvslot2.$ngemsvslot3; $ngemx234 = $ngemsvslot2.$ngemsvslot3.$ngemsvslot4; $ngemx345 = $ngemsvslot3.$ngemsvslot4.$ngemsvslot5; $ngemx1234 = $ngemsvslot1.$ngemsvslot2.$ngemsvslot3.$ngemsvslot4; $ngemx2345 = $ngemsvslot2.$ngemsvslot3.$ngemsvslot4.$ngemsvslot5; $ngemx12345 = $ngemsvslot1.$ngemsvslot2.$ngemsvslot3.$ngemsvslot4.$ngemsvslot5; ngemangemmoney(); ngemfundcalc(); ngemmainscreen(); ptracker(); ngemstartinfo(); } sub ngemmain2 { $ngemplaylevel = 0; ngemresetvars(); ngemreeltrans(); ngemtopprint(); $ngemx123 = ' '; #keep, a reset to null type job... well not quite null. $ngemx12 = ' '; $ngemx23 = ' '; if ($ngemplaylevel >= 2) { $ngemx234 = ' '; $ngemx1234 = ' '; $ngemx34 = ' '; } if ($ngemplaylevel >= 3) { $ngemx345 = ' '; $ngemx2345 = ' '; $ngemx12345 = ' '; $ngemx45 = ' '; } ngemmainscreen(); ngemstartinfo(); } sub ngemresetvars { $ngemreelspin = 0; } sub ngemstartinfo { tokeneval(); $ngemstartinfo = <STDIN>; chomp($ngemstartinfo); if (($ngemstartinfo eq 'a') or ($ngemstartinfo eq 'A')) { $ngemstartinfo = $ngemagaincmd; } elsif (($ngemstartinfo eq 'p') or ($ngemstartinfo eq 'P') or ($ngemstartinfo eq '1p') or ($ngemstartinfo eq '1P') or ($ngemstartinfo eq '2p') or ($ngemstartinfo eq '2P') or ($ngemstartinfo eq '3p') or ($ngemstartinfo eq '3P')) { $ngemagaincmd = $ngemstartinfo; } else { #Do Nothing } if (($ngemstartinfo eq 'p') or ($ngemstartinfo eq 'P') or ($ngemstartinfo eq '1P') or ($ngemstartinfo eq '1p')) { if ($money >= (2 * $coin)) { $ngemplaylevel = 1; $money = $money - (2 * $coin); $moneyexp = $moneyexp + (2 * $coin); $ngemstmc2 = $ngemstmc2 + (2 * $coin); $spins = $spins + 1; $ngemstspins = $ngemstspins + 1; if ($proadd == 1) { $projkpot = $projkpot + (2 * $coin); $proadd = 0; } else { $proadd = 1; } newlines(); ngemmain(); } else { newlines(); ngemmain2(); } } elsif (($ngemstartinfo eq '2p') or ($ngemstartinfo eq '2P')) { if ($money >= (4 * $coin)) { $ngemplaylevel = 2; $money = $money - (4 * $coin); $moneyexp = $moneyexp + (4 * $coin); $ngemstmc2 = $ngemstmc2 + (4 * $coin); $spins = $spins + 1; $ngemstspins = $ngemstspins + 1; if ($proadd == 1) { $projkpot = $projkpot + (4 * $coin); $proadd = 0; } else { $proadd = 1; } newlines(); ngemmain(); } else { newlines(); ngemmain2(); } } elsif (($ngemstartinfo eq '3p') or ($ngemstartinfo eq '3P')) { if ($money >= (6 * $coin)) { $ngemplaylevel = 3; $money = $money - (6 * $coin); $moneyexp = $moneyexp + (6 * $coin); $ngemstmc2 = $ngemstmc2 + (6 * $coin); $spins = $spins + 1; $ngemstspins = $ngemstspins + 1; if ($proadd == 1) { $projkpot = $projkpot + (6 * $coin); $proadd = 0; } else { $proadd = 1; } newlines(); ngemmain(); } else { newlines(); ngemmain2(); } } elsif (($ngemstartinfo eq 'exit') or ($ngemstartinfo eq 'EXIT') or ($ngemstartinfo eq 'quit') or ($ngemstartinfo eq 'QUIT')) { exitgame(); } elsif (($ngemstartinfo eq 'c') or ($ngemstartinfo eq 'C')) { return; } else { newlines(); ngemmain2(); } } sub ngemfundcalc { $money = $money + $ngemangemmoney; $ngemstmc = $ngemstmc + $ngemangemmoney; } sub ngemslot1emr2 { if ($ngemsymbol != 1) { print colored(' /|',"bold $ngemcolor on_$bgcblack"); print colored('\ ',"$ngemcolor on_$bgcblack"); } else { print colored(' ___________ ',"bold $ngemcolor on_$bgcblack"); } } sub ngemslot1emr3 { if ($ngemsymbol != 1) { print colored(' /*|',"bold $ngemcolor on_$bgcblack"); print colored('*\ ',"$ngemcolor on_$bgcblack"); } else { print colored('/_____|_____\\ ',"bold $ngemcolor on_$bgcblack"); } } sub ngemslot1emr4 { if ($ngemsymbol != 1) { print colored(' /*/',"bold $ngemcolor on_$bgcblack"); print colored('0\ \ ',"$ngemcolor on_$bgcblack"); } else { print colored('\\** *',"bold $ngemcolor on_$bgcblack"); print colored('| 0 0/ ',"$ngemcolor on_$bgcblack"); } } sub ngemslot1emr5 { if ($ngemsymbol != 1) { print colored(' /*/',"bold $ngemcolor on_$bgcblack"); print colored('0 0\*\ ',"$ngemcolor on_$bgcblack"); } else { print colored(' \\ * *',"bold $ngemcolor on_$bgcblack"); print colored('| 00/ ',"$ngemcolor on_$bgcblack"); } } sub ngemslot1emr6 { if ($ngemsymbol != 1) { print colored(' /_/',"bold $ngemcolor on_$bgcblack"); print colored('0 000\_\ ',"$ngemcolor on_$bgcblack"); } else { print colored(' \\ * ',"bold $ngemcolor on_$bgcblack"); print colored('|0 / ',"$ngemcolor on_$bgcblack"); } } sub ngemslot1emr7 { if ($ngemsymbol != 1) { print colored(' \*\000 0/*/ ',"$ngemcolor on_$bgcblack"); } else { print colored(' \\ *',"bold $ngemcolor on_$bgcblack"); print colored('| 0/ ',"$ngemcolor on_$bgcblack"); } } sub ngemslot1emr8 { if ($ngemsymbol != 1) { print colored(' \ \ 00/*/ ',"$ngemcolor on_$bgcblack"); } else { print colored(' \\*',"bold $ngemcolor on_$bgcblack"); print colored('| / ',"$ngemcolor on_$bgcblack"); } } sub ngemslot1emr9 { if ($ngemsymbol != 1) { print colored(' \*\0/ / ',"$ngemcolor on_$bgcblack"); } else { print colored(' \\',"bold $ngemcolor on_$bgcblack"); print colored('|/ ',"$ngemcolor on_$bgcblack"); } } sub ngemslot1emr10 { if ($ngemsymbol != 1) { print colored(' \ |*/ ',"$ngemcolor on_$bgcblack"); } else { print colored(' ',"$ngemcolor on_$bgcblack"); } } sub ngemslot1emr11 { if ($ngemsymbol != 1) { print colored(' \|/ ',"$ngemcolor on_$bgcblack"); } else { print colored(' ',"$ngemcolor on_$bgcblack"); } } sub ngemslotwhite { print colored(' ',"$ngemcolor on_$bgcblack"); } sub ngemslotspining { print colored('||||||||||||||',"$boldblack on_$bgcblack"); } sub ngem45init { $ngemslotsymbol4 = int(rand(60)); $ngemslotsymbol5 = int(rand(60)); } sub ngemspinreel { $ngemslotsymbol1 = int(rand(60)); $ngemslotsymbol2 = int(rand(60)); $ngemslotsymbol3 = int(rand(60)); if ($ngemplaylevel >= 2) { $ngemslotsymbol4 = int(rand(60)); } if ($ngemplaylevel >= 3) { $ngemslotsymbol5 = int(rand(60)); } } sub ngemreeltrans { if ($ngemslotsymbol1 <= 12) { $ngemsvslot1 = 7; $ngemr1color = "$cyan"; } elsif ($ngemslotsymbol1 <= 22) { $ngemsvslot1 = 6; $ngemr1color = "$magenta"; } elsif ($ngemslotsymbol1 <= 30) { $ngemsvslot1 = 5; $ngemr1color = "$blue"; } elsif ($ngemslotsymbol1 <= 36) { $ngemsvslot1 = 4; $ngemr1color = "$yellow"; } elsif ($ngemslotsymbol1 <= 40) { $ngemsvslot1 = 3; $ngemr1color = "$red"; } elsif ($ngemslotsymbol1 <= 42) { $ngemsvslot1 = 2; $ngemr1color = "$white"; } elsif ($ngemslotsymbol1 <= 43) { $ngemsvslot1 = 1; $ngemr1color = "$green"; } elsif ($ngemslotsymbol1 <= 46) { $ngemsvslot1 = 8; $ngemr1color = "$white"; } elsif ($ngemslotsymbol1 <= 50) { $ngemsvslot1 = 9; $ngemr1color = "$white"; } elsif ($ngemslotsymbol1 <= 54) { $ngemsvslot1 = 10; $ngemr1color = "$white"; } elsif ($ngemslotsymbol1 <= 59) { $ngemsvslot1 = 11; $ngemr1color = "$white"; } else { $ngemsvslot1 = 0; $ngemr1color = "$white"; } if ($ngemslotsymbol2 <= 12) { $ngemsvslot2 = 7; $ngemr2color = "$cyan"; } elsif ($ngemslotsymbol2 <= 22) { $ngemsvslot2 = 6; $ngemr2color = "$magenta"; } elsif ($ngemslotsymbol2 <= 30) { $ngemsvslot2 = 5; $ngemr2color = "$blue"; } elsif ($ngemslotsymbol2 <= 36) { $ngemsvslot2 = 4; $ngemr2color = "$yellow"; } elsif ($ngemslotsymbol2 <= 40) { $ngemsvslot2 = 3; $ngemr2color = "$red"; } elsif ($ngemslotsymbol2 <= 42) { $ngemsvslot2 = 2; $ngemr2color = "$white"; } elsif ($ngemslotsymbol2 <= 43) { $ngemsvslot2 = 1; $ngemr2color = "$green"; } elsif ($ngemslotsymbol2 <= 46) { $ngemsvslot2 = 8; $ngemr2color = "$white"; } elsif ($ngemslotsymbol2 <= 50) { $ngemsvslot2 = 9; $ngemr2color = "$white"; } elsif ($ngemslotsymbol2 <= 54) { $ngemsvslot2 = 10; $ngemr2color = "$white"; } elsif ($ngemslotsymbol2 <= 59) { $ngemsvslot2 = 11; $ngemr2color = "$white"; } else { $ngemsvslot2 = 0; $ngemr2color = "$white"; } if ($ngemslotsymbol3 <= 12) { $ngemsvslot3 = 7; $ngemr3color = "$cyan"; } elsif ($ngemslotsymbol3 <= 22) { $ngemsvslot3 = 6; $ngemr3color = "$magenta"; } elsif ($ngemslotsymbol3 <= 30) { $ngemsvslot3 = 5; $ngemr3color = "$blue"; } elsif ($ngemslotsymbol3 <= 36) { $ngemsvslot3 = 4; $ngemr3color = "$yellow"; } elsif ($ngemslotsymbol3 <= 40) { $ngemsvslot3 = 3; $ngemr3color = "$red"; } elsif ($ngemslotsymbol3 <= 42) { $ngemsvslot3 = 2; $ngemr3color = "$white"; } elsif ($ngemslotsymbol3 <= 43) { $ngemsvslot3 = 1; $ngemr3color = "$green"; } elsif ($ngemslotsymbol3 <= 46) { $ngemsvslot3 = 8; $ngemr3color = "$white"; } elsif ($ngemslotsymbol3 <= 50) { $ngemsvslot3 = 9; $ngemr3color = "$white"; } elsif ($ngemslotsymbol3 <= 54) { $ngemsvslot3 = 10; $ngemr3color = "$white"; } elsif ($ngemslotsymbol3 <= 59) { $ngemsvslot3 = 11; $ngemr3color = "$white"; } else { $ngemsvslot3 = 0; $ngemr3color = "$white"; } if ($ngemslotsymbol4 <= 12) { $ngemsvslot4 = 7; $ngemr4color = "$cyan"; } elsif ($ngemslotsymbol4 <= 22) { $ngemsvslot4 = 6; $ngemr4color = "$magenta"; } elsif ($ngemslotsymbol4 <= 30) { $ngemsvslot4 = 5; $ngemr4color = "$blue"; } elsif ($ngemslotsymbol4 <= 36) { $ngemsvslot4 = 4; $ngemr4color = "$yellow"; } elsif ($ngemslotsymbol4 <= 40) { $ngemsvslot4 = 3; $ngemr4color = "$red"; } elsif ($ngemslotsymbol4 <= 42) { $ngemsvslot4 = 2; $ngemr4color = "$white"; } elsif ($ngemslotsymbol4 <= 43) { $ngemsvslot4 = 1; $ngemr4color = "$green"; } elsif ($ngemslotsymbol4 <= 46) { $ngemsvslot4 = 8; $ngemr4color = "$white"; } elsif ($ngemslotsymbol4 <= 50) { $ngemsvslot4 = 9; $ngemr4color = "$white"; } elsif ($ngemslotsymbol4 <= 54) { $ngemsvslot4 = 10; $ngemr4color = "$white"; } elsif ($ngemslotsymbol4 <= 59) { $ngemsvslot4 = 11; $ngemr4color = "$white"; } else { $ngemsvslot4 = 0; $ngemr4color = "$white"; } if ($ngemslotsymbol5 <= 12) { $ngemsvslot5 = 7; $ngemr5color = "$cyan"; } elsif ($ngemslotsymbol5 <= 22) { $ngemsvslot5 = 6; $ngemr5color = "$magenta"; } elsif ($ngemslotsymbol5 <= 30) { $ngemsvslot5 = 5; $ngemr5color = "$blue"; } elsif ($ngemslotsymbol5 <= 36) { $ngemsvslot5 = 4; $ngemr5color = "$yellow"; } elsif ($ngemslotsymbol5 <= 40) { $ngemsvslot5 = 3; $ngemr5color = "$red"; } elsif ($ngemslotsymbol5 <= 42) { $ngemsvslot5 = 2; $ngemr5color = "$white"; } elsif ($ngemslotsymbol5 <= 43) { $ngemsvslot5 = 1; $ngemr5color = "$green"; } elsif ($ngemslotsymbol5 <= 46) { $ngemsvslot5 = 8; $ngemr5color = "$white"; } elsif ($ngemslotsymbol5 <= 50) { $ngemsvslot5 = 9; $ngemr5color = "$white"; } elsif ($ngemslotsymbol5 <= 54) { $ngemsvslot5 = 10; $ngemr5color = "$white"; } elsif ($ngemslotsymbol5 <= 59) { $ngemsvslot5 = 11; $ngemr5color = "$white"; } else { $ngemsvslot5 = 0; $ngemr5color = "$white"; } } sub ngemslot1 { if ($ngemslot1 eq 'spining') { ngemslotspining(); } elsif ($ngemslot1 == 1) { ngemslot1emr2(); } elsif ($ngemslot1 == 3) { ngemslot1emr2(); } elsif ($ngemslot1 == 5) { ngemslot1emr2(); } elsif ($ngemslot1 == 7) { ngemslot1emr2(); } elsif ($ngemslot1 == 8) { $ngemcolor = "$yellow"; ngemslot1emr9(); } elsif ($ngemslot1 == 9) { $ngemcolor = "$magenta"; ngemslot1emr8(); } elsif ($ngemslot1 == 10) { $ngemcolor = "$magenta"; ngemslot1emr9(); } elsif ($ngemslot1 == 11) { $ngemcolor = "$white"; ngemslot1emr8(); } else { ngemslotwhite(); } } sub ngemslot2 { if ($ngemslot2 eq 'spining') { ngemslotspining(); } elsif ($ngemslot2 == 1) { ngemslot1emr3(); } elsif ($ngemslot2 == 2) { ngemslot1emr2(); } elsif ($ngemslot2 == 3) { ngemslot1emr3(); } elsif ($ngemslot2 == 4) { ngemslot1emr2(); } elsif ($ngemslot2 == 5) { ngemslot1emr3(); } elsif ($ngemslot2 == 6) { ngemslot1emr2(); } elsif ($ngemslot2 == 7) { ngemslot1emr3(); } elsif ($ngemslot2 == 8) { $ngemcolor = "$yellow"; ngemslot1emr10(); } elsif ($ngemslot2 == 9) { $ngemcolor = "$magenta"; ngemslot1emr9(); } elsif ($ngemslot2 == 10) { $ngemcolor = "$magenta"; ngemslot1emr10(); } elsif ($ngemslot2 == 11) { $ngemcolor = "$white"; ngemslot1emr9(); } else { ngemslotwhite(); } } sub ngemslot3 { if ($ngemslot3 eq 'spining') { ngemslotspining(); } elsif ($ngemslot3 == 1) { ngemslot1emr4(); } elsif ($ngemslot3 == 2) { ngemslot1emr3(); } elsif ($ngemslot3 == 3) { ngemslot1emr4(); } elsif ($ngemslot3 == 4) { ngemslot1emr3(); } elsif ($ngemslot3 == 5) { ngemslot1emr4(); } elsif ($ngemslot3 == 6) { ngemslot1emr3(); } elsif ($ngemslot3 == 7) { ngemslot1emr4(); } elsif ($ngemslot3 == 8) { $ngemcolor = "$yellow"; ngemslot1emr11(); } elsif ($ngemslot3 == 9) { $ngemcolor = "$magenta"; ngemslot1emr10(); } elsif ($ngemslot3 == 10) { $ngemcolor = "$magenta"; ngemslot1emr11(); } elsif ($ngemslot3 == 11) { $ngemcolor = "$white"; ngemslot1emr10(); } else { ngemslotwhite(); } } sub ngemslot4 { if ($ngemslot4 eq 'spining') { ngemslotspining(); } elsif ($ngemslot4 == 1) { ngemslot1emr5(); } elsif ($ngemslot4 == 2) { ngemslot1emr4(); } elsif ($ngemslot4 == 3) { ngemslot1emr5(); } elsif ($ngemslot4 == 4) { ngemslot1emr4(); } elsif ($ngemslot4 == 5) { ngemslot1emr5(); } elsif ($ngemslot4 == 6) { ngemslot1emr4(); } elsif ($ngemslot4 == 7) { ngemslot1emr5(); } elsif ($ngemslot4 == 9) { $ngemcolor = "$magenta"; ngemslot1emr11(); } elsif ($ngemslot4 == 11) { $ngemcolor = "$white"; ngemslot1emr11(); } else { ngemslotwhite(); } } sub ngemslot5 { if ($ngemslot5 eq 'spining') { ngemslotspining(); } elsif ($ngemslot5 == 1) { ngemslot1emr6(); } elsif ($ngemslot5 == 2) { ngemslot1emr5(); } elsif ($ngemslot5 == 3) { ngemslot1emr6(); } elsif ($ngemslot5 == 4) { ngemslot1emr5(); } elsif ($ngemslot5 == 5) { ngemslot1emr6(); } elsif ($ngemslot5 == 6) { ngemslot1emr5(); } elsif ($ngemslot5 == 7) { ngemslot1emr6(); } else { ngemslotwhite(); } } sub ngemslot6 { if ($ngemslot6 eq 'spining') { ngemslotspining(); } elsif ($ngemslot6 == 1) { ngemslot1emr7(); } elsif ($ngemslot6 == 2) { ngemslot1emr6(); } elsif ($ngemslot6 == 3) { ngemslot1emr7(); } elsif ($ngemslot6 == 4) { ngemslot1emr6(); } elsif ($ngemslot6 == 5) { ngemslot1emr7(); } elsif ($ngemslot6 == 6) { ngemslot1emr6(); } elsif ($ngemslot6 == 7) { ngemslot1emr7(); } else { ngemslotwhite(); } } sub ngemslot7 { if ($ngemslot7 eq 'spining') { ngemslotspining(); } elsif ($ngemslot7 == 1) { ngemslot1emr8(); } elsif ($ngemslot7 == 2) { ngemslot1emr7(); } elsif ($ngemslot7 == 3) { ngemslot1emr8(); } elsif ($ngemslot7 == 4) { ngemslot1emr7(); } elsif ($ngemslot7 == 5) { ngemslot1emr8(); } elsif ($ngemslot7 == 6) { ngemslot1emr7(); } elsif ($ngemslot7 == 7) { ngemslot1emr8(); } else { ngemslotwhite(); } } sub ngemslot8 { if ($ngemslot8 eq 'spining') { ngemslotspining(); } elsif ($ngemslot8 == 1) { ngemslot1emr9(); } elsif ($ngemslot8 == 2) { ngemslot1emr8(); } elsif ($ngemslot8 == 3) { ngemslot1emr9(); } elsif ($ngemslot8 == 4) { ngemslot1emr8(); } elsif ($ngemslot8 == 5) { ngemslot1emr9(); } elsif ($ngemslot8 == 6) { ngemslot1emr8(); } elsif ($ngemslot8 == 7) { ngemslot1emr9(); } elsif ($ngemslot8 == 8) { $ngemcolor = "$cyan"; ngemslot1emr2(); } elsif ($ngemslot8 == 10) { $ngemcolor = "$green"; ngemslot1emr2(); } else { ngemslotwhite(); } } sub ngemslot9 { if ($ngemslot9 eq 'spining') { ngemslotspining(); } elsif ($ngemslot9 == 1) { ngemslot1emr10(); } elsif ($ngemslot9 == 2) { ngemslot1emr9(); } elsif ($ngemslot9 == 3) { ngemslot1emr10(); } elsif ($ngemslot9 == 4) { ngemslot1emr9(); } elsif ($ngemslot9 == 5) { ngemslot1emr10(); } elsif ($ngemslot9 == 6) { ngemslot1emr9(); } elsif ($ngemslot9 == 7) { ngemslot1emr10(); } elsif ($ngemslot9 == 8) { $ngemcolor = "$cyan"; ngemslot1emr3(); } elsif ($ngemslot9 == 9) { $ngemcolor = "$blue"; ngemslot1emr2(); } elsif ($ngemslot9 == 10) { $ngemcolor = "$green"; ngemslot1emr3(); } elsif ($ngemslot9 == 11) { $ngemcolor = "$red"; ngemslot1emr2(); } else { ngemslotwhite(); } } sub ngemslot10 { if ($ngemslot10 eq 'spining') { ngemslotspining(); } elsif ($ngemslot10 == 1) { ngemslot1emr11(); } elsif ($ngemslot10 == 2) { ngemslot1emr10(); } elsif ($ngemslot10 == 3) { ngemslot1emr11(); } elsif ($ngemslot10 == 4) { ngemslot1emr10(); } elsif ($ngemslot10 == 5) { ngemslot1emr11(); } elsif ($ngemslot10 == 6) { ngemslot1emr10(); } elsif ($ngemslot10 == 7) { ngemslot1emr11(); } elsif ($ngemslot10 == 8) { $ngemcolor = "$cyan"; ngemslot1emr4(); } elsif ($ngemslot10 == 9) { $ngemcolor = "$blue"; ngemslot1emr3(); } elsif ($ngemslot10 == 10) { $ngemcolor = "$green"; ngemslot1emr4(); } elsif ($ngemslot10 == 11) { $ngemcolor = "$red"; ngemslot1emr3(); } else { ngemslotwhite(); } } sub ngemslot11 { if ($ngemslot11 eq 'spining') { ngemslotspining(); } elsif ($ngemslot11 == 2) { ngemslot1emr11(); } elsif ($ngemslot11 == 4) { ngemslot1emr11(); } elsif ($ngemslot11 == 6) { ngemslot1emr11(); } elsif ($ngemslot11 == 8) { $ngemcolor = "$cyan"; ngemslot1emr5(); } elsif ($ngemslot11 == 9) { $ngemcolor = "$blue"; ngemslot1emr4(); } elsif ($ngemslot11 == 10) { $ngemcolor = "$green"; ngemslot1emr5(); } elsif ($ngemslot11 == 11) { $ngemcolor = "$red"; ngemslot1emr4(); } else { ngemslotwhite(); } } sub ngemcolorr1 { $ngemcolor = $ngemr1color; } sub ngemcolorr2 { $ngemcolor = $ngemr2color; } sub ngemcolorr3 { $ngemcolor = $ngemr3color; } sub ngemcolorr4 { $ngemcolor = $ngemr4color; } sub ngemcolorr5 { $ngemcolor = $ngemr5color; } sub ngemreel1 { $ngemreel = 1; if ($ngemreelspin == 5) { $ngemslot1 = 'spining'; $ngemslot2 = 'spining'; $ngemslot3 = 'spining'; $ngemslot4 = 'spining'; $ngemslot5 = 'spining'; $ngemslot6 = 'spining'; $ngemslot7 = 'spining'; $ngemslot8 = 'spining'; $ngemslot9 = 'spining'; $ngemslot10 = 'spining'; $ngemslot11 = 'spining'; $ngemslot12 = 'spining'; $ngemslot13 = 'spining'; $ngemslot14 = 'spining'; } else { $ngemslot1 = $ngemsvslot1; $ngemslot2 = $ngemsvslot1; $ngemslot3 = $ngemsvslot1; $ngemslot4 = $ngemsvslot1; $ngemslot5 = $ngemsvslot1; $ngemslot6 = $ngemsvslot1; $ngemslot7 = $ngemsvslot1; $ngemslot8 = $ngemsvslot1; $ngemslot9 = $ngemsvslot1; $ngemslot10 = $ngemsvslot1; $ngemslot11 = $ngemsvslot1; $ngemslot12 = $ngemsvslot1; $ngemslot13 = $ngemsvslot1; $ngemslot14 = $ngemsvslot1; } } sub ngemreel2 { $ngemreel = 2; if ($ngemreelspin >= 4) { $ngemslot1 = 'spining'; $ngemslot2 = 'spining'; $ngemslot3 = 'spining'; $ngemslot4 = 'spining'; $ngemslot5 = 'spining'; $ngemslot6 = 'spining'; $ngemslot7 = 'spining'; $ngemslot8 = 'spining'; $ngemslot9 = 'spining'; $ngemslot10 = 'spining'; $ngemslot11 = 'spining'; $ngemslot12 = 'spining'; $ngemslot13 = 'spining'; $ngemslot14 = 'spining'; } else { $ngemslot1 = $ngemsvslot2; $ngemslot2 = $ngemsvslot2; $ngemslot3 = $ngemsvslot2; $ngemslot4 = $ngemsvslot2; $ngemslot5 = $ngemsvslot2; $ngemslot6 = $ngemsvslot2; $ngemslot7 = $ngemsvslot2; $ngemslot8 = $ngemsvslot2; $ngemslot9 = $ngemsvslot2; $ngemslot10 = $ngemsvslot2; $ngemslot11 = $ngemsvslot2; $ngemslot12 = $ngemsvslot2; $ngemslot13 = $ngemsvslot2; $ngemslot14 = $ngemsvslot2; } } sub ngemreel3 { $ngemreel = 3; if ($ngemreelspin >= 3) { $ngemslot1 = 'spining'; $ngemslot2 = 'spining'; $ngemslot3 = 'spining'; $ngemslot4 = 'spining'; $ngemslot5 = 'spining'; $ngemslot6 = 'spining'; $ngemslot7 = 'spining'; $ngemslot8 = 'spining'; $ngemslot9 = 'spining'; $ngemslot10 = 'spining'; $ngemslot11 = 'spining'; $ngemslot12 = 'spining'; $ngemslot13 = 'spining'; $ngemslot14 = 'spining'; } else { $ngemslot1 = $ngemsvslot3; $ngemslot2 = $ngemsvslot3; $ngemslot3 = $ngemsvslot3; $ngemslot4 = $ngemsvslot3; $ngemslot5 = $ngemsvslot3; $ngemslot6 = $ngemsvslot3; $ngemslot7 = $ngemsvslot3; $ngemslot8 = $ngemsvslot3; $ngemslot9 = $ngemsvslot3; $ngemslot10 = $ngemsvslot3; $ngemslot11 = $ngemsvslot3; $ngemslot12 = $ngemsvslot3; $ngemslot13 = $ngemsvslot3; $ngemslot14 = $ngemsvslot3; } } sub ngemreel4 { $ngemreel = 4; if (($ngemreelspin >= 2) and ($ngemplaylevel >= 2)) { $ngemslot1 = 'spining'; $ngemslot2 = 'spining'; $ngemslot3 = 'spining'; $ngemslot4 = 'spining'; $ngemslot5 = 'spining'; $ngemslot6 = 'spining'; $ngemslot7 = 'spining'; $ngemslot8 = 'spining'; $ngemslot9 = 'spining'; $ngemslot10 = 'spining'; $ngemslot11 = 'spining'; $ngemslot12 = 'spining'; $ngemslot13 = 'spining'; $ngemslot14 = 'spining'; } else { $ngemslot1 = $ngemsvslot4; $ngemslot2 = $ngemsvslot4; $ngemslot3 = $ngemsvslot4; $ngemslot4 = $ngemsvslot4; $ngemslot5 = $ngemsvslot4; $ngemslot6 = $ngemsvslot4; $ngemslot7 = $ngemsvslot4; $ngemslot8 = $ngemsvslot4; $ngemslot9 = $ngemsvslot4; $ngemslot10 = $ngemsvslot4; $ngemslot11 = $ngemsvslot4; $ngemslot12 = $ngemsvslot4; $ngemslot13 = $ngemsvslot4; $ngemslot14 = $ngemsvslot4; } } sub ngemreel5 { $ngemreel = 5; if (($ngemreelspin >= 1) and ($ngemplaylevel >= 3)) { $ngemslot1 = 'spining'; $ngemslot2 = 'spining'; $ngemslot3 = 'spining'; $ngemslot4 = 'spining'; $ngemslot5 = 'spining'; $ngemslot6 = 'spining'; $ngemslot7 = 'spining'; $ngemslot8 = 'spining'; $ngemslot9 = 'spining'; $ngemslot10 = 'spining'; $ngemslot11 = 'spining'; $ngemslot12 = 'spining'; $ngemslot13 = 'spining'; $ngemslot14 = 'spining'; } else { $ngemslot1 = $ngemsvslot5; $ngemslot2 = $ngemsvslot5; $ngemslot3 = $ngemsvslot5; $ngemslot4 = $ngemsvslot5; $ngemslot5 = $ngemsvslot5; $ngemslot6 = $ngemsvslot5; $ngemslot7 = $ngemsvslot5; $ngemslot8 = $ngemsvslot5; $ngemslot9 = $ngemsvslot5; $ngemslot10 = $ngemsvslot5; $ngemslot11 = $ngemsvslot5; $ngemslot12 = $ngemsvslot5; $ngemslot13 = $ngemsvslot5; $ngemslot14 = $ngemsvslot5; } } sub ngemmid0 { print color 'reset'; print colored('|',"$boldmagenta on_$bgcmagenta"); print color 'reset'; } sub ngemmid1a { print color 'reset'; print colored('<',"$boldblue on_$bgcblue"); print color 'reset'; } sub ngemmid1 { print color 'reset'; print colored('>',"$boldblue on_$bgcblue"); print color 'reset'; } sub ngemslotb { print color 'reset'; print colored('I',"$boldwhite on_$bgcwhite"); print colored(' ',"$black on_$bgcblack"); print colored('I',"$boldwhite on_$bgcwhite"); print colored('|',"$boldmagenta on_$bgcmagenta"); print color 'reset'; } sub ngemslota { print color 'reset'; print colored('III',"$boldwhite on_$bgcwhite"); print colored('|',"$boldmagenta on_$bgcmagenta"); print color 'reset'; } sub ngemangemmoney { if ($ngemx123 eq "111") { $ngemangemmoney = 2560 * $coin; $beepnum = 4; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx123 eq "222") { $ngemangemmoney = 640 * $coin; $beepnum = 3; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx123 eq "333") { $ngemangemmoney = 320 * $coin; $beepnum = 3; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx123 eq "444") { $ngemangemmoney = 160 * $coin; $beepnum = 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx123 eq "555") { $ngemangemmoney = 80 * $coin; $beepnum = 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx123 eq "666") { $ngemangemmoney = 40 * $coin; $beepnum = 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx123 eq "777") { $ngemangemmoney = 20 * $coin; $beepnum = 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx123 eq "545") { $ngemangemmoney = 60 * $coin; $beepnum = 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx123 eq "656") { $ngemangemmoney = 30 * $coin; $beepnum = 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx123 eq "767") { $ngemangemmoney = 15 * $coin; $beepnum = 2; $ngemstwin = $ngemstwin + 1; } else { $ngemangemmoney = 0; $beepnum = 0; } if ($ngemx12 eq "11") { $ngemangemmoney = $ngemangemmoney + (24 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx12 eq "22") { $ngemangemmoney = $ngemangemmoney + (10 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx12 eq "33") { $ngemangemmoney = $ngemangemmoney + (8 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx12 eq "44") { $ngemangemmoney = $ngemangemmoney + (6 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } else { #nothing } if ($ngemx23 eq "11") { $ngemangemmoney = $ngemangemmoney + (24 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx23 eq "22") { $ngemangemmoney = $ngemangemmoney + (10 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx23 eq "33") { $ngemangemmoney = $ngemangemmoney + (8 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx23 eq "44") { $ngemangemmoney = $ngemangemmoney + (6 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } else { #nothing } if ($ngemsvslot1 eq "1") { $ngemangemmoney = $ngemangemmoney + (4 * $coin); $ngemstwin = $ngemstwin + 1; } elsif ($ngemsvslot1 eq "2") { $ngemangemmoney = $ngemangemmoney + (2 * $coin); $ngemstwin = $ngemstwin + 1; } else { #nothing } if ($ngemsvslot2 eq "1") { $ngemangemmoney = $ngemangemmoney + (4 * $coin); $ngemstwin = $ngemstwin + 1; } elsif ($ngemsvslot2 eq "2") { $ngemangemmoney = $ngemangemmoney + (2 * $coin); $ngemstwin = $ngemstwin + 1; } else { #nothing } if ($ngemsvslot3 eq "1") { $ngemangemmoney = $ngemangemmoney + (4 * $coin); $ngemstwin = $ngemstwin + 1; } elsif ($ngemsvslot3 eq "2") { $ngemangemmoney = $ngemangemmoney + (2 * $coin); $ngemstwin = $ngemstwin + 1; } else { #nothing } if ($ngemplaylevel >= 2) { if ($ngemsvslot4 eq "1") { $ngemangemmoney = $ngemangemmoney + (4 * $coin); $ngemstwin = $ngemstwin + 1; } elsif ($ngemsvslot4 eq "2") { $ngemangemmoney = $ngemangemmoney + (2 * $coin); $ngemstwin = $ngemstwin + 1; } else { #nothing } if ($ngemx34 eq "11") { $ngemangemmoney = $ngemangemmoney + (24 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx34 eq "22") { $ngemangemmoney = $ngemangemmoney + (10 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx34 eq "33") { $ngemangemmoney = $ngemangemmoney + (8 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx34 eq "44") { $ngemangemmoney = $ngemangemmoney + (6 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } else { #nothing } if ($ngemx234 eq "111") { $ngemangemmoney = $ngemangemmoney + (2560 * $coin); $beepnum = $beepnum + 4; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx234 eq "222") { $ngemangemmoney = $ngemangemmoney + (640 * $coin); $beepnum = $beepnum + 3; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx234 eq "333") { $ngemangemmoney = $ngemangemmoney + (320 * $coin); $beepnum = $beepnum + 3; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx234 eq "444") { $ngemangemmoney = $ngemangemmoney + (160 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx234 eq "555") { $ngemangemmoney = $ngemangemmoney + (80 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx234 eq "666") { $ngemangemmoney = $ngemangemmoney + (40 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx234 eq "777") { $ngemangemmoney = $ngemangemmoney + (20 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx234 eq "545") { $ngemangemmoney = $ngemangemmoney + (60 * $coin); $beepnum = 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx234 eq "656") { $ngemangemmoney = $ngemangemmoney + (30 * $coin); $beepnum = 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx234 eq "767") { $ngemangemmoney = $ngemangemmoney + (15 * $coin); $beepnum = 2; $ngemstwin = $ngemstwin + 1; } else { #nothing } # if ($ngemx1234 eq "1111") { $ngemangemmoney = $ngemangemmoney + (7640 * $coin); $beepnum = $beepnum + 5; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx1234 eq "2222") { $ngemangemmoney = $ngemangemmoney + (1920 * $coin); $beepnum = $beepnum + 4; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx1234 eq "3333") { $ngemangemmoney = $ngemangemmoney + (960 * $coin); $beepnum = $beepnum + 4; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx1234 eq "4444") { $ngemangemmoney = $ngemangemmoney + (480 * $coin); $beepnum = $beepnum + 3; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx1234 eq "5555") { $ngemangemmoney = $ngemangemmoney + (240 * $coin); $beepnum = $beepnum + 3; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx1234 eq "6666") { $ngemangemmoney = $ngemangemmoney + (120 * $coin); $beepnum = $beepnum + 3; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx1234 eq "7777") { $ngemangemmoney = $ngemangemmoney + (60 * $coin); $beepnum = $beepnum + 3; $ngemstwin = $ngemstwin + 1; } else { #nothing } } if ($ngemplaylevel >= 3) { if ($ngemsvslot5 eq "1") { $ngemangemmoney = $ngemangemmoney + (4 * $coin); $ngemstwin = $ngemstwin + 1; } elsif ($ngemsvslot5 eq "2") { $ngemangemmoney = $ngemangemmoney + (2 * $coin); $ngemstwin = $ngemstwin + 1; } else { #nothing } if ($ngemx45 eq "11") { $ngemangemmoney = $ngemangemmoney + (24 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx45 eq "22") { $ngemangemmoney = $ngemangemmoney + (10 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx45 eq "33") { $ngemangemmoney = $ngemangemmoney + (8 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx45 eq "44") { $ngemangemmoney = $ngemangemmoney + (6 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } else { #nothing } if ($ngemx345 eq "111") { $ngemangemmoney = $ngemangemmoney + (2560 * $coin); $beepnum = $beepnum + 4; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx345 eq "222") { $ngemangemmoney = $ngemangemmoney + (640 * $coin); $beepnum = $beepnum + 3; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx345 eq "333") { $ngemangemmoney = $ngemangemmoney + (320 * $coin); $beepnum = $beepnum + 3; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx345 eq "444") { $ngemangemmoney = $ngemangemmoney + (160 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx345 eq "555") { $ngemangemmoney = $ngemangemmoney + (80 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx345 eq "666") { $ngemangemmoney = $ngemangemmoney + (40 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx345 eq "777") { $ngemangemmoney = $ngemangemmoney + (20 * $coin); $beepnum = $beepnum + 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx345 eq "545") { $ngemangemmoney = $ngemangemmoney + (60 * $coin); $beepnum = 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx345 eq "656") { $ngemangemmoney = $ngemangemmoney + (30 * $coin); $beepnum = 2; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx345 eq "767") { $ngemangemmoney = $ngemangemmoney + (15 * $coin); $beepnum = 2; $ngemstwin = $ngemstwin + 1; } else { #NNNNOOOOOTTTHHIINNGG!!!! } # if ($ngemx2345 eq "1111") { $ngemangemmoney = $ngemangemmoney + (7640 * $coin); $beepnum = $beepnum + 5; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx2345 eq "2222") { $ngemangemmoney = $ngemangemmoney + (1920 * $coin); $beepnum = $beepnum + 4; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx2345 eq "3333") { $ngemangemmoney = $ngemangemmoney + (960 * $coin); $beepnum = $beepnum + 4; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx2345 eq "4444") { $ngemangemmoney = $ngemangemmoney + (480 * $coin); $beepnum = $beepnum + 3; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx2345 eq "5555") { $ngemangemmoney = $ngemangemmoney + (240 * $coin); $beepnum = $beepnum + 3; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx2345 eq "6666") { $ngemangemmoney = $ngemangemmoney + (120 * $coin); $beepnum = $beepnum + 3; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx2345 eq "7777") { $ngemangemmoney = $ngemangemmoney + (60 * $coin); $beepnum = $beepnum + 3; $ngemstwin = $ngemstwin + 1; } else { #nothing } # if ($ngemx12345 eq "11111") { $ngemangemmoney = $ngemangemmoney + (15360 * $coin); $beepnum = $beepnum + 5; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx12345 eq "22222") { $ngemangemmoney = $ngemangemmoney + (3840 * $coin); $beepnum = $beepnum + 4; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx12345 eq "33333") { $ngemangemmoney = $ngemangemmoney + (1920 * $coin); $beepnum = $beepnum + 4; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx12345 eq "44444") { $ngemangemmoney = $ngemangemmoney + (960 * $coin); $beepnum = $beepnum + 3; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx12345 eq "55555") { $ngemangemmoney = $ngemangemmoney + (480 * $coin); $beepnum = $beepnum + 3; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx12345 eq "66666") { $ngemangemmoney = $ngemangemmoney + (240 * $coin); $beepnum = $beepnum + 3; $ngemstwin = $ngemstwin + 1; } elsif ($ngemx12345 eq "77777") { $ngemangemmoney = $ngemangemmoney + (120 * $coin); $beepnum = $beepnum + 3; $ngemstwin = $ngemstwin + 1; } else { #NOTHING! } } if ($beepnum == 0) { if (($ngemsvslot1 eq "1") or ($ngemsvslot1 eq "2")) { $beepnum = 2; } if (($ngemsvslot2 eq "1") or ($ngemsvslot2 eq "2")) { $beepnum = 2; } if (($ngemsvslot3 eq "1") or ($ngemsvslot3 eq "2")) { $beepnum = 2; } if ($ngemplaylevel >= 2) { if (($ngemsvslot4 eq "1") or ($ngemsvslot4 eq "2")) { $beepnum = 2; } } if ($ngemplaylevel >= 3) { if (($ngemsvslot5 eq "1") or ($ngemsvslot5 eq "2")) { $beepnum = 2; } } } if ($ngemangemmoney == 0) { $ngemstlose = $ngemstlose + 1; } } sub ngemmainscreen { 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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(); 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(); 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(); 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(); print colored('|--------------|--------------|--------------|--------------|--------------| |',"$boldmagenta on_$bgcmagenta"); beepalrm(); print colored('|--------------------------------------------------------------------------| |',"$boldmagenta on_$bgcmagenta"); beepalrm(); print colored('|',"$boldmagenta on_$bgcmagenta"); ngemwinnings(); ngemfunds(); print colored(' GPC-SLOTS 2 |',"$boldmagenta on_$bgcmagenta"); beepalrm(); print colored('\------------------------------------------------------------------------------/',"$boldmagenta on_$bgcmagenta"); beepalrm(); $beepnum = 0; } sub ngemwinnings { print colored(' WINNINGS ',"$boldmagenta on_$bgcmagenta"); sep; if ($ngemangemmoney > 9999999999) { print colored(sprintf("%.4e", $ngemangemmoney),"$boldcyan on_$bgccyan"); } elsif ($ngemangemmoney >= 1000000000) { print colored("$ngemangemmoney","$boldcyan on_$bgccyan"); } elsif ($ngemangemmoney >= 100000000) { print colored(" $ngemangemmoney","$boldcyan on_$bgccyan"); } elsif ($ngemangemmoney >= 10000000) { print colored(" $ngemangemmoney","$boldcyan on_$bgccyan"); } elsif ($ngemangemmoney >= 1000000) { print colored(" $ngemangemmoney","$boldcyan on_$bgccyan"); } elsif ($ngemangemmoney >= 100000) { print colored(" $ngemangemmoney","$boldcyan on_$bgccyan"); } elsif ($ngemangemmoney >= 10000) { print colored(" $ngemangemmoney","$boldcyan on_$bgccyan"); } elsif ($ngemangemmoney >= 1000) { print colored(" $ngemangemmoney","$boldcyan on_$bgccyan"); } elsif ($ngemangemmoney >= 100) { print colored(" $ngemangemmoney","$boldcyan on_$bgccyan"); } elsif ($ngemangemmoney >= 10) { print colored(" $ngemangemmoney","$boldcyan on_$bgccyan"); } elsif ($ngemangemmoney >= 1) { print colored(" $ngemangemmoney","$boldcyan on_$bgccyan"); } else { print colored(" $ngemangemmoney","$boldcyan on_$bgccyan"); } sep; } sub ngemfunds { print colored(' FUNDS ',"$boldmagenta on_$bgcmagenta"); sep; if ($money > 9999999999) { print colored(sprintf("%.4e", $money),"$boldcyan on_$bgccyan"); } elsif ($money >= 1000000000) { print colored("$money","$boldcyan on_$bgccyan"); } elsif ($money >= 100000000) { print colored(" $money","$boldcyan on_$bgccyan"); } elsif ($money >= 10000000) { print colored(" $money","$boldcyan on_$bgccyan"); } elsif ($money >= 1000000) { print colored(" $money","$boldcyan on_$bgccyan"); } elsif ($money >= 100000) { print colored(" $money","$boldcyan on_$bgccyan"); } elsif ($money >= 10000) { print colored(" $money","$boldcyan on_$bgccyan"); } elsif ($money >= 1000) { print colored(" $money","$boldcyan on_$bgccyan"); } elsif ($money >= 100) { print colored(" $money","$boldcyan on_$bgccyan"); } elsif ($money >= 10) { print colored(" $money","$boldcyan on_$bgccyan"); } elsif ($money >= 1) { print colored(" $money","$boldcyan on_$bgccyan"); } else { print colored(" $money","$boldcyan on_$bgccyan"); } sep; } sub ngemtopend { print colored(' ',"$white on_$bgcgreen"); print colored('|',"$boldblack on_$bgcblack"); } sub ngemtopprint { print colored('/---------------------------------------',"$boldmagenta on_$bgcmagenta"); print colored('---------------------------------------\\',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldmagenta on_$bgcmagenta"); print colored('GEM',"$boldgreen on_$bgcmagenta"); print colored(' = 2560',"$white on_$bgcmagenta"); print colored(' GEMS',"$boldgreen on_$bgcmagenta"); print colored(' = 7640',"$white on_$bgcmagenta"); print colored(' GEMSS',"$boldgreen on_$bgcmagenta"); print colored(' = 15360 ',"$white on_$bgcmagenta"); print colored(' *',"$boldwhite on_$bgcblack"); print colored(' Twilight Mine ',"$boldcyan on_$bgcblack"); print colored('* ',"$boldwhite on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldmagenta on_$bgcmagenta"); print colored('GEM',"$boldwhite on_$bgcmagenta"); print colored(' = 640 ',"$white on_$bgcmagenta"); print colored('*',"$boldmagenta on_$bgcmagenta"); print colored(' GEMS',"$boldwhite on_$bgcmagenta"); print colored(' = 1920',"$white on_$bgcmagenta"); print colored(' GEMSS',"$boldwhite on_$bgcmagenta"); print colored(' = 3840 ',"$white on_$bgcmagenta"); # print colored(' 2 Tokens - 1 Credit : P ',"$boldblack on_$bgcblack"); print colored('*',"$boldwhite on_$bgcblack"); print colored(' WINNINGS |',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldmagenta on_$bgcmagenta"); print colored('GEM',"$boldred on_$bgcmagenta"); print colored(' = 320',"$white on_$bgcmagenta"); print colored(' GEMS',"$boldred on_$bgcmagenta"); print colored(' = 960',"$white on_$bgcmagenta"); print colored(' GEMSS',"$boldred on_$bgcmagenta"); print colored(' = 1920 ',"$white on_$bgcmagenta"); # print colored('*',"$boldmagenta on_$bgcmagenta"); print colored(' 4 Tokens - 2 Credits : 2P ARE ',"$boldblack on_$bgcblack"); print colored('*',"$boldwhite on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldmagenta on_$bgcmagenta"); print colored('GEM',"$boldyellow on_$bgcmagenta"); print colored(' = 160',"$white on_$bgcmagenta"); print colored(' GEMS',"$boldyellow on_$bgcmagenta"); print colored(' = 480',"$white on_$bgcmagenta"); print colored(' *',"$boldmagenta on_$bgcmagenta"); print colored(' GEMSS',"$boldyellow on_$bgcmagenta"); print colored(' = 960 ',"$white on_$bgcmagenta"); print colored(' 6 Tokens - 3 Credits : 3P COMPOUNDED |',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldmagenta on_$bgcmagenta"); print colored('GEM',"$boldblue on_$bgcmagenta"); print colored(' = 80',"$white on_$bgcmagenta"); print colored(' *',"$boldmagenta on_$bgcmagenta"); print colored(' GEMS',"$boldblue on_$bgcmagenta"); print colored(' = 240',"$white on_$bgcmagenta"); print colored(' GEMSS',"$boldblue on_$bgcmagenta"); print colored(' = 480 ',"$white on_$bgcmagenta"); print colored(' * ',"$boldwhite on_$bgcblack"); print colored('|',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldmagenta on_$bgcmagenta"); print colored('GEM',"$boldmagenta on_$bgcmagenta"); print colored(' = 40',"$white on_$bgcmagenta"); print colored(' GEMS',"$boldmagenta on_$bgcmagenta"); print colored(' = 120',"$white on_$bgcmagenta"); print colored(' *GEMSS',"$boldmagenta on_$bgcmagenta"); print colored(' = 240 ',"$white on_$bgcmagenta"); print colored(' C = Return To Casino Menu ',"$boldblack on_$bgcblack"); print colored('*',"$boldwhite on_$bgcblack"); print colored(' |',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldmagenta on_$bgcmagenta"); print colored('GEM',"$boldcyan on_$bgcmagenta"); print colored(' = 20',"$white on_$bgcmagenta"); print colored(' GEMS',"$boldcyan on_$bgcmagenta"); print colored(' = 60',"$white on_$bgcmagenta"); print colored(' GEMSS',"$boldcyan on_$bgcmagenta"); print colored(' = 120 ',"$white on_$bgcmagenta"); print colored(' EXIT = Quit ',"$boldblack on_$bgcblack"); print colored('*',"$boldwhite on_$bgcblack"); print colored(' |',"$boldblack on_$bgcblack"); print"\n"; print colored('|',"$boldmagenta on_$bgcmagenta"); print colored('G',"$boldblue on_$bgcmagenta"); print colored('E',"$boldyellow on_$bgcmagenta"); print colored('M',"$boldblue on_$bgcmagenta"); print colored(' = 60',"$white on_$bgcmagenta"); print colored(' * ',"$boldmagenta on_$bgcmagenta"); print colored('GE',"$boldgreen on_$bgcmagenta"); print colored(' = 24',"$white on_$bgcmagenta"); print colored(' GE',"$boldred on_$bgcmagenta"); print colored(' = 8 ',"$white on_$bgcmagenta"); print colored(' G',"$boldgreen on_$bgcmagenta"); print colored(' =',"$white on_$bgcmagenta"); print colored('*',"$boldmagenta on_$bgcmagenta"); print colored('4',"$white on_$bgcmagenta"); print colored(' * |',"$boldmagenta on_$bgcmagenta"); print"\n"; print colored('|',"$boldmagenta on_$bgcmagenta"); print colored('G',"$boldmagenta on_$bgcmagenta"); print colored('E',"$boldblue on_$bgcmagenta"); print colored('M',"$boldmagenta on_$bgcmagenta"); print colored(' = 30',"$white on_$bgcmagenta"); print colored(' ',"$boldmagenta on_$bgcmagenta"); print colored('G',"$boldcyan on_$bgcmagenta"); print colored('E',"$boldmagenta on_$bgcmagenta"); print colored('M',"$boldcyan on_$bgcmagenta"); print colored(' = 15',"$white on_$bgcmagenta"); print colored(' GE',"$boldwhite on_$bgcmagenta"); print colored(' = 10',"$white on_$bgcmagenta"); print colored(' GE',"$boldyellow on_$bgcmagenta"); print colored(' = 6',"$white on_$bgcmagenta"); print colored(' *',"$boldmagenta on_$bgcmagenta"); print colored(' G',"$boldwhite on_$bgcmagenta"); print colored(' = 2',"$white on_$bgcmagenta"); print colored(' * * |',"$boldmagenta on_$bgcmagenta"); print"\n"; print colored('|------------------------------------------------------------------------------|',"$boldmagenta on_$bgcmagenta"); print"\n"; print colored('|',"$boldmagenta on_$bgcmagenta"); if ($ngemplaylevel >= 1) { print colored(' 1 CREDIT ',"$boldwhite on_$bgcmagenta"); } else { print colored(' 1 CREDIT ',"$boldmagenta on_$bgcmagenta"); } print colored(' ',"$boldmagenta on_$bgcmagenta"); if ($ngemplaylevel >= 1) { print colored(' 1 CREDIT ',"$boldwhite on_$bgcmagenta"); } else { print colored(' 1 CREDIT ',"$boldmagenta on_$bgcmagenta"); } print colored(' ',"$boldmagenta on_$bgcmagenta"); if ($ngemplaylevel >= 1) { print colored(' 1 CREDIT ',"$boldwhite on_$bgcmagenta"); } else { print colored(' 1 CREDIT ',"$boldmagenta on_$bgcmagenta"); } print colored(' ',"$boldmagenta on_$bgcmagenta"); if ($ngemplaylevel >= 2) { print colored(' 2 CREDITS ',"$boldwhite on_$bgcmagenta"); } else { print colored(' 2 CREDITS ',"$boldmagenta on_$bgcmagenta"); } print colored(' ',"$boldmagenta on_$bgcmagenta"); if ($ngemplaylevel >= 3) { print colored(' 3 CREDITS ',"$boldwhite on_$bgcmagenta"); } else { print colored(' 3 CREDITS ',"$boldmagenta on_$bgcmagenta"); } print colored(' |',"$boldmagenta on_$bgcmagenta"); print"\n"; print colored('|--------------------------------------------------------------------------| |',"$boldmagenta on_$bgcmagenta"); print"\n"; print colored('|--------------|--------------|--------------|--------------|--------------| |',"$boldmagenta on_$bgcmagenta"); print"\n"; } ################################################################################################################################ ## GENRE: Slot Mahine ## NAME: PotLuck ## AUTHOR: MikeeUSA sub potluckmain { potluckresetvars(); potluckspinreel(); potluckreeltrans(); if ($animate == 1) { $potluckreelspin = 9; potluckmainscreen(); smallpause(); newlines(); $potluckreelspin = 8; potluckmainscreen(); smallpause(); newlines(); $potluckreelspin = 7; potluckmainscreen(); smallpause(); newlines(); if ($potluckplaylevel >= 2) { $potluckreelspin = 6; potluckmainscreen(); smallpause(); newlines(); $potluckreelspin = 5; potluckmainscreen(); smallpause(); newlines(); $potluckreelspin = 4; potluckmainscreen(); smallpause(); newlines(); } if ($potluckplaylevel >= 3) { $potluckreelspin = 3; potluckmainscreen(); smallpause(); newlines(); $potluckreelspin = 2; potluckmainscreen(); smallpause(); newlines(); $potluckreelspin = 1; potluckmainscreen(); smallpause(); newlines(); } } $potluckreelspin = 0; $potluckxP1p = $potlucksvslot1.$potlucksvslot2.$potlucksvslot3; $potluckxP1Zp = $potlucksvslot1.$potlucksvslot2; $potluckxP2p = $potlucksvslot4.$potlucksvslot5.$potlucksvslot6; $potluckxP2Zp = $potlucksvslot4.$potlucksvslot5; $potluckxP2p4x1 = $potlucksvslot1.$potlucksvslot2.$potlucksvslot4.$potlucksvslot5; $potluckxP2p4x2 = $potlucksvslot2.$potlucksvslot3.$potlucksvslot5.$potlucksvslot6; $potluckxP3p = $potlucksvslot7.$potlucksvslot8.$potlucksvslot9; $potluckxP3Zp = $potlucksvslot7.$potlucksvslot8; $potluckxP3p4x1 = $potlucksvslot1.$potlucksvslot2.$potlucksvslot7.$potlucksvslot8; $potluckxP3p4x2 = $potlucksvslot2.$potlucksvslot3.$potlucksvslot8.$potlucksvslot9; $potluckxP4p = $potlucksvslot7.$potlucksvslot2.$potlucksvslot6; $potluckxP4Zp = $potlucksvslot7.$potlucksvslot2; $potluckxP5p = $potlucksvslot4.$potlucksvslot2.$potlucksvslot9; $potluckxP5Zp = $potlucksvslot4.$potlucksvslot2; $potluckxP6p = $potlucksvslot7.$potlucksvslot1.$potlucksvslot4; $potluckxP6Zp = $potlucksvslot7.$potlucksvslot1; $potluckxP7p = $potlucksvslot8.$potlucksvslot2.$potlucksvslot5; $potluckxP7Zp = $potlucksvslot8.$potlucksvslot2; $potluckxP8p = $potlucksvslot9.$potlucksvslot3.$potlucksvslot6; $potluckxP8Zp = $potlucksvslot9.$potlucksvslot3; potluckapotluckmoney(); potluckfundcalc(); potluckmainscreen(); ptracker(); potluckstartinfo(); } sub potluckmain2 { $potluckplaylevel = 0; potluckresetvars(); potluckreeltrans(); $potluckxP1p = ' '; #keep, a reset to null type job... well not quite null. $potluckxP1Zp = ' '; if ($potluckplaylevel >= 2) { $potluckxP2p = ' '; $potluckxP2Zp = ' '; } if ($potluckplaylevel >= 3) { $potluckxP3p = ' '; $potluckxP3Zp = ' '; } if ($potluckplaylevel >= 4) { $potluckxP4p = ' '; $potluckxP4Zp = ' '; } if ($potluckplaylevel >= 5) { $potluckxP5p = ' '; $potluckxP5Zp = ' '; } if ($potluckplaylevel >= 6) { $potluckxP6p = ' '; $potluckxP6Zp = ' '; } if ($potluckplaylevel >= 7) { $potluckxP7p = ' '; $potluckxP7Zp = ' '; } if ($potluckplaylevel >= 8) { $potluckxP8p = ' '; $potluckxP8Zp = ' '; $potluckxP2p4x1 = ' '; $potluckxP2p4x2 = ' '; $potluckxP3p4x1 = ' '; $potluckxP3p4x2 = ' '; } potluckmainscreen(); potluckstartinfo(); } sub potluckresetvars { $potluckreelspin = 0; } sub potluckstartinfo { tokeneval(); $potluckstartinfo = <STDIN>; chomp($potluckstartinfo); if (($potluckstartinfo eq 'a') or ($potluckstartinfo eq 'A')) { $potluckstartinfo = $potluckagaincmd; } elsif (($potluckstartinfo eq 'p') or ($potluckstartinfo eq 'P') or ($potluckstartinfo eq '1p') or ($potluckstartinfo eq '1P') or ($potluckstartinfo eq '2p') or ($potluckstartinfo eq '2P') or ($potluckstartinfo eq '3p') or ($potluckstartinfo eq '3P') or ($potluckstartinfo eq '4p') or ($potluckstartinfo eq '4P') or ($potluckstartinfo eq '5p') or ($potluckstartinfo eq '5P') or ($potluckstartinfo eq '6p') or ($potluckstartinfo eq '6P') or ($potluckstartinfo eq '7p') or ($potluckstartinfo eq '7P') or ($potluckstartinfo eq '8p') or ($potluckstartinfo eq '8P')) { $potluckagaincmd = $potluckstartinfo; } else { #Do Nothing } if (($potluckstartinfo eq 'p') or ($potluckstartinfo eq 'P') or ($potluckstartinfo eq '1p') or ($potluckstartinfo eq '1P')) { if ($money >= $coin) { $potluckplaylevel = 1; $money = $money - $coin; $moneyexp = $moneyexp + $coin; $potluckstmc2 = $potluckstmc2 + $coin; $spins = $spins + 1; $potluckstspins = $potluckstspins + 1; if ($proadd == 1) { $projkpot = $projkpot + $coin; $proadd = 0; } else { $proadd = 1; } newlines(); potluckmain(); } else { newlines(); potluckmain2(); } } elsif (($potluckstartinfo eq '2p') or ($potluckstartinfo eq '2P')) { if ($money >= (2 * $coin)) { $potluckplaylevel = 2; $money = $money - (2 * $coin); $moneyexp = $moneyexp + (2 * $coin); $potluckstmc2 = $potluckstmc2 + (2 * $coin); $spins = $spins + 1; $potluckstspins = $potluckstspins + 1; if ($proadd == 1) { $projkpot = $projkpot + (2 * $coin); $proadd = 0; } else { $proadd = 1; } newlines(); potluckmain(); } else { newlines(); potluckmain2(); } } elsif (($potluckstartinfo eq '3p') or ($potluckstartinfo eq '3P')) { if ($money >= (3 * $coin)) { $potluckplaylevel = 3; $money = $money - (3 * $coin); $moneyexp = $moneyexp + (3 * $coin); $potluckstmc2 = $potluckstmc2 + (3 * $coin); $spins = $spins + 1; $potluckstspins = $potluckstspins + 1; if ($proadd == 1) { $projkpot = $projkpot + (3 * $coin); $proadd = 0; } else { $proadd = 1; } newlines(); potluckmain(); } else { newlines(); potluckmain2(); } } elsif (($potluckstartinfo eq '4p') or ($potluckstartinfo eq '4P')) { if ($money >= (4 * $coin)) { $potluckplaylevel = 4; $money = $money - (4 * $coin); $moneyexp = $moneyexp + (4 * $coin); $potluckstmc2 = $potluckstmc2 + (4 * $coin); $spins = $spins + 1; $potluckstspins = $potluckstspins + 1; if ($proadd == 1) { $projkpot = $projkpot + (4 * $coin); $proadd = 0; } else { $proadd = 1; } newlines(); potluckmain(); } else { newlines(); potluckmain2(); } } elsif (($potluckstartinfo eq '5p') or ($potluckstartinfo eq '5P')) { if ($money >= (5 * $coin)) { $potluckplaylevel = 5; $money = $money - (5 * $coin); $moneyexp = $moneyexp + (5 * $coin); $potluckstmc2 = $potluckstmc2 + (5 * $coin); $spins = $spins + 1; $potluckstspins = $potluckstspins + 1; if ($proadd == 1) { $projkpot = $projkpot + (5 * $coin); $proadd = 0; } else { $proadd = 1; } newlines(); potluckmain(); } else { newlines(); potluckmain2(); } } elsif (($potluckstartinfo eq '6p') or ($potluckstartinfo eq '6P')) { if ($money >= (6 * $coin)) { $potluckplaylevel = 6; $money = $money - (6 * $coin); $moneyexp = $moneyexp + (6 * $coin); $potluckstmc2 = $potluckstmc2 + (6 * $coin); $spins = $spins + 1; $potluckstspins = $potluckstspins + 1; if ($proadd == 1) { $projkpot = $projkpot + (6 * $coin); $proadd = 0; } else { $proadd = 1; } newlines(); potluckmain(); } else { newlines(); potluckmain2(); } } elsif (($potluckstartinfo eq '7p') or ($potluckstartinfo eq '7P')) { if ($money >= (7 * $coin)) { $potluckplaylevel = 7; $money = $money - (7 * $coin); $moneyexp = $moneyexp + (7 * $coin); $potluckstmc2 = $potluckstmc2 + (7 * $coin); $spins = $spins + 1; $potluckstspins = $potluckstspins + 1; if ($proadd == 1) { $projkpot = $projkpot + (7 * $coin); $proadd = 0; } else { $proadd = 1; } newlines(); potluckmain(); } else { newlines(); potluckmain2(); } } elsif (($potluckstartinfo eq '8p') or ($potluckstartinfo eq '8P')) { if ($money >= (8 * $coin)) { $potluckplaylevel = 8; $money = $money - (8 * $coin); $moneyexp = $moneyexp + (8 * $coin); $potluckstmc2 = $potluckstmc2 + (8 * $coin); $spins = $spins + 1; $potluckstspins = $potluckstspins + 1; if ($proadd == 1) { $projkpot = $projkpot + (8 * $coin); $proadd = 0; } else { $proadd = 1; } newlines(); potluckmain(); } else { newlines(); potluckmain2(); } } elsif (($potluckstartinfo eq 'exit') or ($potluckstartinfo eq 'EXIT') or ($potluckstartinfo eq 'quit') or ($potluckstartinfo eq 'QUIT')) { exitgame(); } elsif (($potluckstartinfo eq 'c') or ($potluckstartinfo eq 'C')) { return; } else { newlines(); potluckmain2(); } } sub potluckfundcalc { $money = $money + $potluckapotluckmoney; $potluckstmc = $potluckstmc + $potluckapotluckmoney; } sub potluckslot1dheart1 { print colored(' //\\\\//\\\\ ',"$magenta on_$bgcwhite"); } sub potluckslot1dheart2 { print colored(' //*',"$magenta on_$bgcwhite"); print colored('/\/\\',"$boldmagenta on_$bgcwhite"); print colored('*\\\\ ',"$magenta on_$bgcwhite"); } sub potluckslot1dheart3 { print colored(' \\\\*',"$magenta on_$bgcwhite"); print colored('\**/',"$boldmagenta on_$bgcwhite"); print colored('*// ',"$magenta on_$bgcwhite"); } sub potluckslot1dheart4 { print colored(' \\\\*',"$magenta on_$bgcwhite"); print colored('\/',"$boldmagenta on_$bgcwhite"); print colored('*// ',"$magenta on_$bgcwhite"); } sub potluckslot1dheart5 { print colored(' \\\\**// ',"$magenta on_$bgcwhite"); } sub potluckslot1dheart6 { print colored(' \\\\// ',"$magenta on_$bgcwhite"); } sub potluckslot1dheart1b4{ print colored('4444',"$boldwhite on_$bgcwhite"); print colored('//\\\\//\\\\',"$magenta on_$bgcwhite"); print colored('4444',"$boldwhite on_$bgcwhite"); } 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"); } 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"); } 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"); } sub potluckslot1dheart5b4{ print colored(' 4',"$boldwhite on_$bgcwhite"); print colored(' \\\\**//',"$magenta on_$bgcwhite"); print colored('4 ',"$boldwhite on_$bgcwhite"); } sub potluckslot1dheart6b4{ print colored('444444',"$boldwhite on_$bgcwhite"); print colored('\\\\//',"$magenta on_$bgcwhite"); print colored('444444',"$boldwhite on_$bgcwhite"); } sub potluckslot1swrd1 { print colored(' /#\/#\ ',"$boldred on_$bgcwhite"); } sub potluckslot1swrd2 { print colored(' ___',"$boldblack on_$bgcwhite"); print colored('/#*##*#\\',"$boldred on_$bgcwhite"); print colored('|| ',"$boldyellow on_$bgcwhite"); } sub potluckslot1swrd3 { print colored('/_/_/_/_/_/_',"$boldblack on_$bgcwhite"); print colored('||==',"$boldyellow on_$bgcwhite"); } sub potluckslot1swrd4 { print colored('\_\_\_\_\_\_',"$boldblack on_$bgcwhite"); print colored('||==',"$boldyellow on_$bgcwhite"); } sub potluckslot1swrd5 { print colored(' ..',"$red on_$bgcwhite"); print colored('\##/ ',"$boldred on_$bgcwhite"); print colored('|| ',"$boldyellow on_$bgcwhite"); } sub potluckslot1swrd6 { print colored(' ...',"$red on_$bgcwhite"); print colored(' \/ ',"$boldred on_$bgcwhite"); } sub potluckslot1spad1 { print colored(' /*\ ',"$black on_$bgcwhite"); } sub potluckslot1spad2 { print colored(' /%S*\ ',"$black on_$bgcwhite"); } sub potluckslot1spad3 { print colored(' /%S~S*\ ',"$black on_$bgcwhite"); } sub potluckslot1spad4 { print colored(' /%S~S~S*\ ',"$black on_$bgcwhite"); } sub potluckslot1spad5 { print colored(' \__/|\__/ ',"$black on_$bgcwhite"); } sub potluckslot1spad6 { print colored(' /_\ ',"$black on_$bgcwhite"); } sub potluckslot1spad1b2{ print colored(' 22222 ',"$boldwhite on_$bgcwhite"); } sub potluckslot1spad2b2{ print colored(' 2',"$boldwhite on_$bgcwhite"); print colored('/%S*\\',"$black on_$bgcwhite"); print colored('2 ',"$boldwhite on_$bgcwhite"); } sub potluckslot1spad3b2{ print colored(' /%S~',"$black on_$bgcwhite"); print colored('22',"$boldwhite on_$bgcwhite"); print colored('\ ',"$black on_$bgcwhite"); } sub potluckslot1spad4b2{ print colored(' /%S',"$black on_$bgcwhite"); print colored('22',"$boldwhite on_$bgcwhite"); print colored('~S*\ ',"$black on_$bgcwhite"); } sub potluckslot1spad5b2{ print colored(' \\',"$black on_$bgcwhite"); print colored('22',"$boldwhite on_$bgcwhite"); print colored('/|\__/ ',"$black on_$bgcwhite"); } sub potluckslot1spad6b2{ print colored(' 22',"$boldwhite on_$bgcwhite"); print colored('/_\\',"$black on_$bgcwhite"); print colored('22 ',"$boldwhite on_$bgcwhite"); } sub potluckslot1clov1 { print colored(' /O\ ',"$green on_$bgcwhite"); } sub potluckslot1clov2 { print colored(' __/OOO\__ ',"$green on_$bgcwhite"); } sub potluckslot1clov3 { print colored(' /OO0OOO0Oo\ ',"$green on_$bgcwhite"); } sub potluckslot1clov4 { print colored(' |OOOOOOOOO| ',"$green on_$bgcwhite"); } sub potluckslot1clov5 { print colored(' \__/ 00\__/ ',"$green on_$bgcwhite"); } sub potluckslot1clov6 { print colored(' 00 ',"$green on_$bgcwhite"); } sub potluckslot1heart1 { print colored(' /#\/#\ ',"$red on_$bgcwhite"); } sub potluckslot1heart2 { print colored(' /#*##*#\ ',"$red on_$bgcwhite"); } sub potluckslot1heart3 { print colored(' \#****#/ ',"$red on_$bgcwhite"); } sub potluckslot1heart4 { print colored(' \#**#/ ',"$red on_$bgcwhite"); } sub potluckslot1heart5 { print colored(' \##/ ',"$red on_$bgcwhite"); } sub potluckslot1heart6 { print colored(' \/ ',"$red on_$bgcwhite"); } sub potluckslot1coin1 { print colored(' SSSSS ',"$boldwhite on_$bgcwhite"); } sub potluckslot1coin2 { print colored(' GGGGG',"$boldyellow on_$bgcwhite"); print colored('ssssSS ',"$boldwhite on_$bgcwhite"); } sub potluckslot1coin3 { print colored(' GGgggggGG',"$boldyellow on_$bgcwhite"); print colored('sssS ',"$boldwhite on_$bgcwhite"); } sub potluckslot1coin4 { print colored(' GgggggggG',"$boldyellow on_$bgcwhite"); print colored('ssSS ',"$boldwhite on_$bgcwhite"); } sub potluckslot1coin5 { print colored(' GGgggggGG',"$boldyellow on_$bgcwhite"); print colored('SS',"$boldwhite on_$bgcwhite"); print colored('ss ',"$boldblack on_$bgcwhite"); } sub potluckslot1coin6 { print colored(' GGGGG',"$boldyellow on_$bgcwhite"); print colored('gg',"$yellow on_$bgcwhite"); print colored('ss ',"$boldblack on_$bgcwhite"); } sub potluckslot1coin1bh{ print colored(' IIIII ',"$boldblack on_$bgcwhite"); } sub potluckslot1coin2bh{ print colored(' CCCCC',"$yellow on_$bgcwhite"); print colored('iiiiII ',"$boldblack on_$bgcwhite"); } 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"); } 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"); } 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"); } sub potluckslot1coin6bh{ print colored(' CCCCC',"$yellow on_$bgcwhite"); print colored('cc',"$boldyellow on_$bgcwhite"); print colored('ii ',"$black on_$bgcwhite"); } sub potluckslot1coin1bs{ print colored(' SSSSS ',"$boldwhite on_$bgcwhite"); } sub potluckslot1coin2bs{ print colored(' IIIII',"$boldblack on_$bgcwhite"); print colored('ssssSS ',"$boldwhite on_$bgcwhite"); } 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"); } 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"); } 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"); } sub potluckslot1coin6bs{ print colored(' IIIII',"$boldblack on_$bgcwhite"); print colored('ii',"$black on_$bgcwhite"); print colored('ss ',"$boldblack on_$bgcwhite"); } sub potluckslot1hsho1 { print colored(' \###/ \###/ ',"$yellow on_$bgcwhite"); } 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"); } sub potluckslot1hsho3 { print colored(' |#| |#| ',"$yellow on_$bgcwhite"); } 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"); } sub potluckslot1hsho5 { print colored(' \######/ ',"$yellow on_$bgcwhite"); } sub potluckslot1hsho6 { print colored(' \##/ ',"$yellow on_$bgcwhite"); } sub potluckslot12xmulti3 { print colored(' ',"$white on_$bgcwhite"); print colored('!2X!2X!!X2!X2!',"$boldwhite on_$bgcblack"); print colored(' ',"$white on_$bgcwhite"); } sub potluckslot12xmulti4 { print colored(' ',"$white on_$bgcwhite"); print colored('!!MULTIPLIER!!',"$boldwhite on_$bgcblack"); print colored(' ',"$white on_$bgcwhite"); } sub potluckslot13xmulti3 { print colored(' ',"$white on_$bgcwhite"); print colored('!3X!3X!!X3!X3!',"$boldyellow on_$bgcgreen"); print colored(' ',"$white on_$bgcwhite"); } sub potluckslot13xmulti4 { print colored(' ',"$white on_$bgcwhite"); print colored('!!MULTIPLIER!!',"$boldyellow on_$bgcgreen"); print colored(' ',"$white on_$bgcwhite"); } sub potluckslotwhite { print colored(' ',"$white on_$bgcwhite"); } sub potluckslotspining { print colored('||||||||||||||||',"$boldwhite on_$bgcwhite"); } sub potluck45init { $potluckslotsymbol4 = int(rand($potluckrandnums)); $potluckslotsymbol5 = int(rand($potluckrandnums)); $potluckslotsymbol6 = int(rand($potluckrandnums)); $potluckslotsymbol7 = int(rand($potluckrandnums)); $potluckslotsymbol8 = int(rand($potluckrandnums)); $potluckslotsymbol9 = int(rand($potluckrandnums)); $potluckslotdh4 = int(rand(2)); $potluckslotdh5 = int(rand(2)); $potluckslotdh6 = int(rand(2)); $potluckslotdh7 = int(rand(2)); $potluckslotdh8 = int(rand(2)); $potluckslotdh9 = int(rand(2)); $potluckslotbns4 = int(rand(10)); $potluckslotbns5 = int(rand(10)); $potluckslotbns6 = int(rand(10)); $potluckslotbns7 = int(rand(10)); $potluckslotbns8 = int(rand(10)); $potluckslotbns9 = int(rand(10)); } sub potluckspinreel { $potluckslotsymbol1 = int(rand($potluckrandnums)); $potluckslotsymbol2 = int(rand($potluckrandnums)); $potluckslotsymbol3 = int(rand($potluckrandnums)); $potluckslotdh1 = int(rand(2)); $potluckslotdh2 = int(rand(2)); $potluckslotdh3 = int(rand(2)); $potluckslotbns1 = int(rand(10)); $potluckslotbns2 = int(rand(10)); $potluckslotbns3 = int(rand(10)); if ($potluckplaylevel >= 2) { $potluckslotsymbol4 = int(rand($potluckrandnums)); $potluckslotsymbol5 = int(rand($potluckrandnums)); $potluckslotsymbol6 = int(rand($potluckrandnums)); $potluckslotdh4 = int(rand(2)); $potluckslotdh5 = int(rand(2)); $potluckslotdh6 = int(rand(2)); $potluckslotbns4 = int(rand(10)); $potluckslotbns5 = int(rand(10)); $potluckslotbns6 = int(rand(10)); } if ($potluckplaylevel >= 3) { $potluckslotsymbol7 = int(rand($potluckrandnums)); $potluckslotsymbol8 = int(rand($potluckrandnums)); $potluckslotsymbol9 = int(rand($potluckrandnums)); $potluckslotdh7 = int(rand(2)); $potluckslotdh8 = int(rand(2)); $potluckslotdh9 = int(rand(2)); $potluckslotbns7 = int(rand(10)); $potluckslotbns8 = int(rand(10)); $potluckslotbns9 = int(rand(10)); } if ($potluckplaylevel >= 6) { $potluckslotsymbolX2M = int(rand(10)); } else { $potluckslotsymbolX2M = 0; } if ($potluckplaylevel == 8) { if ($potluckslotsymbolX2M != 5) { $potluckslotsymbolX3M = int(rand(15)); } else { $potluckslotsymbolX3M = 0; } } else { $potluckslotsymbolX3M = 0; } } sub potluckreeltrans { $potluckslotmltp = 0; #Reset this, will determine bonus multiple $potluckslotdivd = 0; #Reset this, will determine bonus reducing multiple if ($potluckslotsymbol1 <= 4) { $potlucksvslot1 = 7; } elsif ($potluckslotsymbol1 <= 8) { $potlucksvslot1 = 8; } elsif ($potluckslotsymbol1 <= 10) { $potlucksvslot1 = 'x'; } elsif ($potluckslotsymbol1 <= 12) { $potlucksvslot1 = 9; } elsif ($potluckslotsymbol1 <= 22) { $potlucksvslot1 = 6; } elsif ($potluckslotsymbol1 <= 30) { $potlucksvslot1 = 5; if ($potluckslotbns1 == 4) { $potluckslotdivd = $potluckslotdivd + 2; } elsif ($potluckslotbns1 == 6) { $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333; } } elsif ($potluckslotsymbol1 <= 36) { $potlucksvslot1 = 4; } elsif ($potluckslotsymbol1 <= 40) { $potlucksvslot1 = 3; } elsif ($potluckslotsymbol1 <= 42) { $potlucksvslot1 = 2; if ($potluckslotbns1 == 7) { $potluckslotmltp = $potluckslotmltp + 2; } } elsif ($potluckslotsymbol1 == 43) { $potlucksvslot1 = 1; } elsif (($potluckslotsymbol1 == 44) && ($potluckslotdh1 == 1)) { $potlucksvslot1 = 'd'; if ($potluckslotbns1 == 7) { $potluckslotmltp = $potluckslotmltp + 4; } } elsif ($potluckslotsymbol1 >= 44) { $potlucksvslot1 = 7; } else { $potlucksvslot1 = 0; } if ($potluckslotsymbol2 <= 4) { $potlucksvslot2 = 7; $potluckslotsymbolX2M = 0; $potluckslotsymbolX3M = 0; } elsif ($potluckslotsymbol2 <= 8) { $potlucksvslot2 = 8; $potluckslotsymbolX2M = 0; $potluckslotsymbolX3M = 0; } elsif ($potluckslotsymbol2 <= 10) { $potlucksvslot2 = 'x'; $potluckslotsymbolX2M = 0; $potluckslotsymbolX3M = 0; } elsif ($potluckslotsymbol2 <= 12) { $potlucksvslot2 = 9; $potluckslotsymbolX2M = 0; $potluckslotsymbolX3M = 0; } elsif ($potluckslotsymbol2 <= 22) { $potlucksvslot2 = 6; } elsif ($potluckslotsymbol2 <= 30) { $potlucksvslot2 = 5; if ($potluckslotbns2 == 4) { $potluckslotdivd = $potluckslotdivd + 2; } elsif ($potluckslotbns2 == 6) { $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333; } } elsif ($potluckslotsymbol2 <= 36) { $potlucksvslot2 = 4; } elsif ($potluckslotsymbol2 <= 40) { $potlucksvslot2 = 3; } elsif ($potluckslotsymbol2 <= 42) { $potlucksvslot2 = 2; if ($potluckslotbns2 == 7) { $potluckslotmltp = $potluckslotmltp + 2; } } elsif ($potluckslotsymbol2 == 43) { $potlucksvslot2 = 1; } elsif (($potluckslotsymbol2 == 44) && ($potluckslotdh2 == 1)) { $potlucksvslot2 = 'd'; if ($potluckslotbns2 == 7) { $potluckslotmltp = $potluckslotmltp + 4; } } elsif ($potluckslotsymbol2 >= 44) { $potlucksvslot2 = 8; $potluckslotsymbolX2M = 0; $potluckslotsymbolX3M = 0; } else { $potlucksvslot2 = 0; } if ($potluckslotsymbol3 <= 4) { $potlucksvslot3 = 7; } elsif ($potluckslotsymbol3 <= 8) { $potlucksvslot3 = 8; } elsif ($potluckslotsymbol3 <= 10) { $potlucksvslot3 = 'x'; } elsif ($potluckslotsymbol3 <= 12) { $potlucksvslot3 = 9; } elsif ($potluckslotsymbol3 <= 22) { $potlucksvslot3 = 6; } elsif ($potluckslotsymbol3 <= 30) { $potlucksvslot3 = 5; if ($potluckslotbns3 == 4) { $potluckslotdivd = $potluckslotdivd + 2; } elsif ($potluckslotbns3 == 6) { $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333; } } elsif ($potluckslotsymbol3 <= 36) { $potlucksvslot3 = 4; } elsif ($potluckslotsymbol3 <= 40) { $potlucksvslot3 = 3; } elsif ($potluckslotsymbol3 <= 42) { $potlucksvslot3 = 2; if ($potluckslotbns3 == 7) { $potluckslotmltp = $potluckslotmltp + 2; } } elsif ($potluckslotsymbol3 == 43) { $potlucksvslot3 = 1; } elsif (($potluckslotsymbol3 == 44) && ($potluckslotdh3 == 1)) { $potlucksvslot3 = 'd'; if ($potluckslotbns3 == 7) { $potluckslotmltp = $potluckslotmltp + 4; } } elsif ($potluckslotsymbol3 >= 44) { $potlucksvslot3 = 9; } else { $potlucksvslot3 = 0; } if ($potluckslotsymbol4 <= 4) { $potlucksvslot4 = 7; } elsif ($potluckslotsymbol4 <= 8) { $potlucksvslot4 = 8; } elsif ($potluckslotsymbol4 <= 10) { $potlucksvslot4 = 'x'; } elsif ($potluckslotsymbol4 <= 12) { $potlucksvslot4 = 9; } elsif ($potluckslotsymbol4 <= 22) { $potlucksvslot4 = 6; } elsif ($potluckslotsymbol4 <= 30) { $potlucksvslot4 = 5; if (($potluckplaylevel >= 2) && ($potluckslotbns4 == 4)) { #Playlevel must be 2 lines or greater to spin these reels $potluckslotdivd = $potluckslotdivd + 2; } elsif (($potluckplaylevel >= 2) && ($potluckslotbns4 == 6)) { $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333; } } elsif ($potluckslotsymbol4 <= 36) { $potlucksvslot4 = 4; } elsif ($potluckslotsymbol4 <= 40) { $potlucksvslot4 = 3; } elsif ($potluckslotsymbol4 <= 42) { $potlucksvslot4 = 2; if (($potluckplaylevel >= 2) && ($potluckslotbns4 == 7)) { #Playlevel must be 2 lines or greater to spin these reels $potluckslotmltp = $potluckslotmltp + 2; } } elsif ($potluckslotsymbol4 == 43) { $potlucksvslot4 = 1; } elsif (($potluckslotsymbol4 == 44) && ($potluckslotdh4 == 1)) { $potlucksvslot4 = 'd'; if (($potluckplaylevel >= 2) && ($potluckslotbns4 == 7)) { #Playlevel must be 2 lines or greater to spin these reels $potluckslotmltp = $potluckslotmltp + 4; } } elsif ($potluckslotsymbol4 >= 44) { $potlucksvslot4 = 9; } else { $potlucksvslot4 = 0; } if ($potluckslotsymbol5 <= 4) { $potlucksvslot5 = 7; } elsif ($potluckslotsymbol5 <= 8) { $potlucksvslot5 = 8; } elsif ($potluckslotsymbol5 <= 10) { $potlucksvslot5 = 'x'; } elsif ($potluckslotsymbol5 <= 12) { $potlucksvslot5 = 9; } elsif ($potluckslotsymbol5 <= 22) { $potlucksvslot5 = 6; } elsif ($potluckslotsymbol5 <= 30) { $potlucksvslot5 = 5; if (($potluckplaylevel >= 2) && ($potluckslotbns5 == 4)) { #Playlevel must be 2 lines or greater to spin these reels $potluckslotdivd = $potluckslotdivd + 2; } elsif (($potluckplaylevel >= 2) && ($potluckslotbns5 == 6)) { $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333; } } elsif ($potluckslotsymbol5 <= 36) { $potlucksvslot5 = 4; } elsif ($potluckslotsymbol5 <= 40) { $potlucksvslot5 = 3; } elsif ($potluckslotsymbol5 <= 42) { $potlucksvslot5 = 2; if (($potluckplaylevel >= 2) && ($potluckslotbns5 == 7)) { #Playlevel must be 2 lines or greater to spin these reels $potluckslotmltp = $potluckslotmltp + 2; } } elsif ($potluckslotsymbol5 == 43) { $potlucksvslot5 = 1; } elsif (($potluckslotsymbol5 == 44) && ($potluckslotdh5 == 1)) { $potlucksvslot5 = 'd'; if (($potluckplaylevel >= 2) && ($potluckslotbns5 == 7)) { #Playlevel must be 2 lines or greater to spin these reels $potluckslotmltp = $potluckslotmltp + 4; } } elsif ($potluckslotsymbol5 >= 44) { $potlucksvslot5 = 8; } else { $potlucksvslot5 = 0; } if ($potluckslotsymbol6 <= 4) { $potlucksvslot6 = 7; } elsif ($potluckslotsymbol6 <= 8) { $potlucksvslot6 = 8; } elsif ($potluckslotsymbol6 <= 10) { $potlucksvslot6 = 'x'; } elsif ($potluckslotsymbol6 <= 12) { $potlucksvslot6 = 9; } elsif ($potluckslotsymbol6 <= 22) { $potlucksvslot6 = 6; } elsif ($potluckslotsymbol6 <= 30) { $potlucksvslot6 = 5; if (($potluckplaylevel >= 2) && ($potluckslotbns6 == 4)) { #Playlevel must be 2 lines or greater to spin these reels $potluckslotdivd = $potluckslotdivd + 2; } elsif (($potluckplaylevel >= 2) && ($potluckslotbns6 == 6)) { $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333; } } elsif ($potluckslotsymbol6 <= 36) { $potlucksvslot6 = 4; } elsif ($potluckslotsymbol6 <= 40) { $potlucksvslot6 = 3; } elsif ($potluckslotsymbol6 <= 42) { $potlucksvslot6 = 2; if (($potluckplaylevel >= 2) && ($potluckslotbns6 == 7)) { #Playlevel must be 2 lines or greater to spin these reels $potluckslotmltp = $potluckslotmltp + 2; } } elsif ($potluckslotsymbol6 == 43) { $potlucksvslot6 = 1; } elsif (($potluckslotsymbol6 == 44) && ($potluckslotdh6 == 1)) { $potlucksvslot6 = 'd'; if (($potluckplaylevel >= 2) && ($potluckslotbns6 == 7)) { #Playlevel must be 2 lines or greater to spin these reels $potluckslotmltp = $potluckslotmltp + 4; } } elsif ($potluckslotsymbol6 >= 44) { $potlucksvslot6 = 7; } else { $potlucksvslot6 = 0; } if ($potluckslotsymbol7 <= 4) { $potlucksvslot7 = 7; } elsif ($potluckslotsymbol7 <= 8) { $potlucksvslot7 = 8; } elsif ($potluckslotsymbol7 <= 10) { $potlucksvslot7 = 'x'; } elsif ($potluckslotsymbol7 <= 12) { $potlucksvslot7 = 9; } elsif ($potluckslotsymbol7 <= 22) { $potlucksvslot7 = 6; } elsif ($potluckslotsymbol7 <= 30) { $potlucksvslot7 = 5; if (($potluckplaylevel >= 3) && ($potluckslotbns7 == 4)) { #Playlevel must be 3 lines or greater to spin these reels $potluckslotdivd = $potluckslotdivd + 2; } elsif (($potluckplaylevel >= 3) && ($potluckslotbns7 == 6)) { $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333; } } elsif ($potluckslotsymbol7 <= 36) { $potlucksvslot7 = 4; } elsif ($potluckslotsymbol7 <= 40) { $potlucksvslot7 = 3; } elsif ($potluckslotsymbol7 <= 42) { $potlucksvslot7 = 2; if (($potluckplaylevel >= 3) && ($potluckslotbns7 == 7)) { #Playlevel must be 3 lines or greater to spin these reels $potluckslotmltp = $potluckslotmltp + 2; } } elsif ($potluckslotsymbol7 == 43) { $potlucksvslot7 = 1; } elsif (($potluckslotsymbol7 == 44) && ($potluckslotdh7 == 1)) { $potlucksvslot7 = 'd'; if (($potluckplaylevel >= 3) && ($potluckslotbns7 == 7)) { #Playlevel must be 3 lines or greater to spin these reels $potluckslotmltp = $potluckslotmltp + 4; } } elsif ($potluckslotsymbol7 >= 44) { $potlucksvslot7 = 8; } else { $potlucksvslot7 = 0; } if ($potluckslotsymbol8 <= 4) { $potlucksvslot8 = 7; } elsif ($potluckslotsymbol8 <= 8) { $potlucksvslot8 = 8; } elsif ($potluckslotsymbol8 <= 10) { $potlucksvslot8 = 'x'; } elsif ($potluckslotsymbol8 <= 12) { $potlucksvslot8 = 9; } elsif ($potluckslotsymbol8 <= 22) { $potlucksvslot8 = 6; } elsif ($potluckslotsymbol8 <= 30) { $potlucksvslot8 = 5; if (($potluckplaylevel >= 3) && ($potluckslotbns8 == 4)) { #Playlevel must be 3 lines or greater to spin these reels $potluckslotdivd = $potluckslotdivd + 2; } elsif (($potluckplaylevel >= 3) && ($potluckslotbns8 == 6)) { $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333; } } elsif ($potluckslotsymbol8 <= 36) { $potlucksvslot8 = 4; } elsif ($potluckslotsymbol8 <= 40) { $potlucksvslot8 = 3; } elsif ($potluckslotsymbol8 <= 42) { $potlucksvslot8 = 2; if (($potluckplaylevel >= 3) && ($potluckslotbns8 == 7)) { #Playlevel must be 3 lines or greater to spin these reels $potluckslotmltp = $potluckslotmltp + 2; } } elsif ($potluckslotsymbol8 == 43) { $potlucksvslot8 = 1; } elsif (($potluckslotsymbol8 == 44) && ($potluckslotdh8 == 1)) { $potlucksvslot8 = 'd'; if (($potluckplaylevel >= 3) && ($potluckslotbns8 == 7)) { #Playlevel must be 3 lines or greater to spin these reels $potluckslotmltp = $potluckslotmltp + 4; } } elsif ($potluckslotsymbol8 >= 44) { $potlucksvslot8 = 7; } else { $potlucksvslot8 = 0; } if ($potluckslotsymbol9 <= 4) { $potlucksvslot9 = 7; } elsif ($potluckslotsymbol9 <= 8) { $potlucksvslot9 = 8; } elsif ($potluckslotsymbol9 <= 10) { $potlucksvslot9 = 'x'; } elsif ($potluckslotsymbol9 <= 12) { $potlucksvslot9 = 9; } elsif ($potluckslotsymbol9 <= 22) { $potlucksvslot9 = 6; } elsif ($potluckslotsymbol9 <= 30) { $potlucksvslot9 = 5; if (($potluckplaylevel >= 3) && ($potluckslotbns9 == 4)) { #Playlevel must be 3 lines or greater to spin these reels $potluckslotdivd = $potluckslotdivd + 2; } elsif (($potluckplaylevel >= 3) && ($potluckslotbns9 == 6)) { $potluckslotdivd = $potluckslotdivd + 1.33333333333333333333; } } elsif ($potluckslotsymbol9 <= 36) { $potlucksvslot9 = 4; } elsif ($potluckslotsymbol9 <= 40) { $potlucksvslot9 = 3; } elsif ($potluckslotsymbol9 <= 42) { $potlucksvslot9 = 2; if (($potluckplaylevel >= 3) && ($potluckslotbns9 == 7)) { #Playlevel must be 3 lines or greater to spin these reels $potluckslotmltp = $potluckslotmltp + 2; } } elsif ($potluckslotsymbol9 == 43) { $potlucksvslot9 = 1; } elsif (($potluckslotsymbol9 == 44) && ($potluckslotdh9 == 1)) { $potlucksvslot9 = 'd'; if (($potluckplaylevel >= 3) && ($potluckslotbns9 == 7)) { #Playlevel must be 3 lines or greater to spin these reels $potluckslotmltp = $potluckslotmltp + 4; } } elsif ($potluckslotsymbol9 >= 44) { $potlucksvslot9 = 9; } else { $potlucksvslot9 = 0; } } sub potluckslot1 { if ($potluckslot1 eq 'spining') { potluckslotspining(); } elsif ($potluckslot1 eq 'd') { potluckslot1dheart1(); } elsif ($potluckslot1 eq 'd4') { potluckslot1dheart1b4(); } elsif ($potluckslot1 eq 's2') { potluckslot1spad1b2(); } elsif ($potluckslot1 eq 'ch') { potluckslot1coin1bh(); } elsif ($potluckslot1 eq 'sh') { potluckslot1coin1bs(); } elsif ($potluckslot1 == 1) { potluckslot1swrd1(); } elsif ($potluckslot1 == 2) { potluckslot1spad1(); } elsif ($potluckslot1 == 3) { potluckslot1clov1(); } elsif ($potluckslot1 == 4) { potluckslot1heart1(); } elsif ($potluckslot1 == 5) { potluckslot1coin1(); } elsif ($potluckslot1 == 6) { potluckslot1hsho1(); } elsif ($potluckslot1 == 7) { potluckslot1hsho5(); } elsif ($potluckslot1 == 8) { potluckslot1swrd5(); } elsif ($potluckslot1 == 9) { potluckslot1coin5(); } elsif ($potluckslot1 eq 'x') { potluckslot1dheart5(); } else { potluckslotwhite(); } } sub potluckslot2 { if ($potluckslot2 eq 'spining') { potluckslotspining(); } elsif ($potluckslot2 eq 'd') { potluckslot1dheart2(); } elsif ($potluckslot2 eq 'd4') { potluckslot1dheart2b4(); } elsif ($potluckslot2 eq 's2') { potluckslot1spad2b2(); } elsif ($potluckslot2 eq 'ch') { potluckslot1coin2bh(); } elsif ($potluckslot2 eq 'sh') { potluckslot1coin2bs(); } elsif ($potluckslot2 == 1) { potluckslot1swrd2(); } elsif ($potluckslot2 == 2) { potluckslot1spad2(); } elsif ($potluckslot2 == 3) { potluckslot1clov2(); } elsif ($potluckslot2 == 4) { potluckslot1heart2(); } elsif ($potluckslot2 == 5) { potluckslot1coin2(); } elsif ($potluckslot2 == 6) { potluckslot1hsho2(); } elsif ($potluckslot2 == 7) { potluckslot1hsho6(); } elsif ($potluckslot2 == 8) { potluckslot1swrd6(); } elsif ($potluckslot1 == 9) { potluckslot1coin6(); } elsif ($potluckslot2 eq 'x') { potluckslot1dheart6(); } else { potluckslotwhite(); } } sub potluckslot3 { if ($potluckslot3 eq 'spining') { potluckslotspining(); } elsif ($potluckslot3 eq '2xmulti') { potluckslot12xmulti3(); } elsif ($potluckslot3 eq '3xmulti') { potluckslot13xmulti3(); } elsif ($potluckslot3 eq 'd') { potluckslot1dheart3(); } elsif ($potluckslot3 eq 'd4') { potluckslot1dheart3b4(); } elsif ($potluckslot3 eq 's2') { potluckslot1spad3b2(); } elsif ($potluckslot3 eq 'ch') { potluckslot1coin3bh(); } elsif ($potluckslot3 eq 'sh') { potluckslot1coin3bs(); } elsif ($potluckslot3 == 1) { potluckslot1swrd3(); } elsif ($potluckslot3 == 2) { potluckslot1spad3(); } elsif ($potluckslot3 == 3) { potluckslot1clov3(); } elsif ($potluckslot3 == 4) { potluckslot1heart3(); } elsif ($potluckslot3 == 5) { potluckslot1coin3(); } elsif ($potluckslot3 == 6) { potluckslot1hsho3(); } else { potluckslotwhite(); } } sub potluckslot4 { if ($potluckslot4 eq 'spining') { potluckslotspining(); } elsif ($potluckslot4 eq '2xmulti') { potluckslot12xmulti4(); } elsif ($potluckslot4 eq '3xmulti') { potluckslot13xmulti4(); } elsif ($potluckslot4 eq 'd') { potluckslot1dheart4(); } elsif ($potluckslot4 eq 'd4') { potluckslot1dheart4b4(); } elsif ($potluckslot4 eq 's2') { potluckslot1spad4b2(); } elsif ($potluckslot4 eq 'ch') { potluckslot1coin4bh(); } elsif ($potluckslot4 eq 'sh') { potluckslot1coin4bs(); } elsif ($potluckslot4 == 1) { potluckslot1swrd4(); } elsif ($potluckslot4 == 2) { potluckslot1spad4(); } elsif ($potluckslot4 == 3) { potluckslot1clov4(); } elsif ($potluckslot4 == 4) { potluckslot1heart4(); } elsif ($potluckslot4 == 5) { potluckslot1coin4(); } elsif ($potluckslot4 == 6) { potluckslot1hsho4(); } else { potluckslotwhite(); } } sub potluckslot5 { if ($potluckslot5 eq 'spining') { potluckslotspining(); } elsif ($potluckslot5 eq 'd') { potluckslot1dheart5(); } elsif ($potluckslot5 eq 'd4') { potluckslot1dheart5b4(); } elsif ($potluckslot5 eq 's2') { potluckslot1spad5b2(); } elsif ($potluckslot5 eq 'ch') { potluckslot1coin5bh(); } elsif ($potluckslot5 eq 'sh') { potluckslot1coin5bs(); } elsif ($potluckslot5 == 1) { potluckslot1swrd5(); } elsif ($potluckslot5 == 2) { potluckslot1spad5(); } elsif ($potluckslot5 == 3) { potluckslot1clov5(); } elsif ($potluckslot5 == 4) { potluckslot1heart5(); } elsif ($potluckslot5 == 5) { potluckslot1coin5(); } elsif ($potluckslot5 == 6) { potluckslot1hsho5(); } elsif ($potluckslot5 == 7) { potluckslot1heart1(); } elsif ($potluckslot5 == 8) { potluckslot1clov1(); } elsif ($potluckslot5 == 9) { potluckslot1spad1(); } elsif ($potluckslot5 eq 'x') { potluckslot1coin1(); } else { potluckslotwhite(); } } sub potluckslot6 { if ($potluckslot6 eq 'spining') { potluckslotspining(); } elsif ($potluckslot6 eq 'd') { potluckslot1dheart6(); } elsif ($potluckslot6 eq 'd4') { potluckslot1dheart6b4(); } elsif ($potluckslot6 eq 's2') { potluckslot1spad6b2(); } elsif ($potluckslot6 eq 'ch') { potluckslot1coin6bh(); } elsif ($potluckslot6 eq 'sh') { potluckslot1coin6bs(); } elsif ($potluckslot6 == 1) { potluckslot1swrd6(); } elsif ($potluckslot6 == 2) { potluckslot1spad6(); } elsif ($potluckslot6 == 3) { potluckslot1clov6(); } elsif ($potluckslot6 == 4) { potluckslot1heart6(); } elsif ($potluckslot6 == 5) { potluckslot1coin6(); } elsif ($potluckslot6 == 6) { potluckslot1hsho6(); } elsif ($potluckslot6 == 7) { potluckslot1heart2(); } elsif ($potluckslot6 == 8) { potluckslot1clov2(); } elsif ($potluckslot6 == 9) { potluckslot1spad2(); } elsif ($potluckslot6 eq 'x') { potluckslot1coin2(); } else { potluckslotwhite(); } } sub potluckreel1 { $potluckreel = 1; if ((($potluckreelspin == 9) and ($potluckplaylevel <= 3)) or (($potluckreelspin >= 6) and ($potluckplaylevel >= 4))) { $potluckslot1 = 'spining'; $potluckslot2 = 'spining'; $potluckslot3 = 'spining'; $potluckslot4 = 'spining'; $potluckslot5 = 'spining'; $potluckslot6 = 'spining'; } elsif (($potlucksvslot1 == 2) && ($potluckslotbns1 == 7)) { $potluckslot1 = 's2'; $potluckslot2 = 's2'; $potluckslot3 = 's2'; $potluckslot4 = 's2'; $potluckslot5 = 's2'; $potluckslot6 = 's2'; } elsif (($potlucksvslot1 == 5) && ($potluckslotbns1 == 4)) { $potluckslot1 = 'ch'; $potluckslot2 = 'ch'; $potluckslot3 = 'ch'; $potluckslot4 = 'ch'; $potluckslot5 = 'ch'; $potluckslot6 = 'ch'; } elsif (($potlucksvslot1 == 5) && ($potluckslotbns1 == 6)) { $potluckslot1 = 'sh'; $potluckslot2 = 'sh'; $potluckslot3 = 'sh'; $potluckslot4 = 'sh'; $potluckslot5 = 'sh'; $potluckslot6 = 'sh'; } elsif (($potlucksvslot1 eq 'd') && ($potluckslotbns1 == 7)) { $potluckslot1 = 'd4'; $potluckslot2 = 'd4'; $potluckslot3 = 'd4'; $potluckslot4 = 'd4'; $potluckslot5 = 'd4'; $potluckslot6 = 'd4'; } else { $potluckslot1 = $potlucksvslot1; $potluckslot2 = $potlucksvslot1; $potluckslot3 = $potlucksvslot1; $potluckslot4 = $potlucksvslot1; $potluckslot5 = $potlucksvslot1; $potluckslot6 = $potlucksvslot1; } } sub potluckreel2 { $potluckreel = 2; if ((($potluckreelspin >= 8) and ($potluckplaylevel <= 3)) or (($potluckreelspin >= 4) and ($potluckplaylevel >= 4))) { $potluckslot1 = 'spining'; $potluckslot2 = 'spining'; $potluckslot3 = 'spining'; $potluckslot4 = 'spining'; $potluckslot5 = 'spining'; $potluckslot6 = 'spining'; } elsif (($potlucksvslot2 == 2) && ($potluckslotbns2 == 7)) { $potluckslot1 = 's2'; $potluckslot2 = 's2'; if ($potluckslotsymbolX2M == 5) { $potluckslot3 = '2xmulti'; $potluckslot4 = '2xmulti'; } elsif ($potluckslotsymbolX3M == 12) { $potluckslot3 = '3xmulti'; $potluckslot4 = '3xmulti'; } else { $potluckslot3 = 's2'; $potluckslot4 = 's2'; } $potluckslot5 = 's2'; $potluckslot6 = 's2'; } elsif (($potlucksvslot2 == 5) && ($potluckslotbns2 == 4)) { $potluckslot1 = 'ch'; $potluckslot2 = 'ch'; if ($potluckslotsymbolX2M == 5) { $potluckslot3 = '2xmulti'; $potluckslot4 = '2xmulti'; } elsif ($potluckslotsymbolX3M == 12) { $potluckslot3 = '3xmulti'; $potluckslot4 = '3xmulti'; } else { $potluckslot3 = 'ch'; $potluckslot4 = 'ch'; } $potluckslot5 = 'ch'; $potluckslot6 = 'ch'; } elsif (($potlucksvslot2 == 5) && ($potluckslotbns2 == 6)) { $potluckslot1 = 'sh'; $potluckslot2 = 'sh'; if ($potluckslotsymbolX2M == 5) { $potluckslot3 = '2xmulti'; $potluckslot4 = '2xmulti'; } elsif ($potluckslotsymbolX3M == 12) { $potluckslot3 = '3xmulti'; $potluckslot4 = '3xmulti'; } else { $potluckslot3 = 'sh'; $potluckslot4 = 'sh'; } $potluckslot5 = 'sh'; $potluckslot6 = 'sh'; } elsif (($potlucksvslot2 eq 'd') && ($potluckslotbns2 == 7)) { $potluckslot1 = 'd4'; $potluckslot2 = 'd4'; if ($potluckslotsymbolX2M == 5) { $potluckslot3 = '2xmulti'; $potluckslot4 = '2xmulti'; } elsif ($potluckslotsymbolX3M == 12) { $potluckslot3 = '3xmulti'; $potluckslot4 = '3xmulti'; } else { $potluckslot3 = 'd4'; $potluckslot4 = 'd4'; } $potluckslot5 = 'd4'; $potluckslot6 = 'd4'; } else { $potluckslot1 = $potlucksvslot2; $potluckslot2 = $potlucksvslot2; if ($potluckslotsymbolX2M == 5) { $potluckslot3 = '2xmulti'; $potluckslot4 = '2xmulti'; } elsif ($potluckslotsymbolX3M == 12) { $potluckslot3 = '3xmulti'; $potluckslot4 = '3xmulti'; } else { $potluckslot3 = $potlucksvslot2; $potluckslot4 = $potlucksvslot2; } $potluckslot5 = $potlucksvslot2; $potluckslot6 = $potlucksvslot2; } } sub potluckreel3 { $potluckreel = 3; if ((($potluckreelspin >= 7) and ($potluckplaylevel <= 3)) or (($potluckreelspin >= 7) and ($potluckplaylevel >= 4))) { $potluckslot1 = 'spining'; $potluckslot2 = 'spining'; $potluckslot3 = 'spining'; $potluckslot4 = 'spining'; $potluckslot5 = 'spining'; $potluckslot6 = 'spining'; } elsif (($potlucksvslot3 == 2) && ($potluckslotbns3 == 7)) { $potluckslot1 = 's2'; $potluckslot2 = 's2'; $potluckslot3 = 's2'; $potluckslot4 = 's2'; $potluckslot5 = 's2'; $potluckslot6 = 's2'; } elsif (($potlucksvslot3 == 5) && ($potluckslotbns3 == 4)) { $potluckslot1 = 'ch'; $potluckslot2 = 'ch'; $potluckslot3 = 'ch'; $potluckslot4 = 'ch'; $potluckslot5 = 'ch'; $potluckslot6 = 'ch'; } elsif (($potlucksvslot3 == 5) && ($potluckslotbns3 == 6)) { $potluckslot1 = 'sh'; $potluckslot2 = 'sh'; $potluckslot3 = 'sh'; $potluckslot4 = 'sh'; $potluckslot5 = 'sh'; $potluckslot6 = 'sh'; } elsif (($potlucksvslot3 eq 'd') && ($potluckslotbns3 == 7)) { $potluckslot1 = 'd4'; $potluckslot2 = 'd4'; $potluckslot3 = 'd4'; $potluckslot4 = 'd4'; $potluckslot5 = 'd4'; $potluckslot6 = 'd4'; } else { $potluckslot1 = $potlucksvslot3; $potluckslot2 = $potlucksvslot3; $potluckslot3 = $potlucksvslot3; $potluckslot4 = $potlucksvslot3; $potluckslot5 = $potlucksvslot3; $potluckslot6 = $potlucksvslot3; } } sub potluckreel4 { $potluckreel = 4; if ((($potluckreelspin >= 6) and (($potluckplaylevel == 2) or ($potluckplaylevel == 3))) or (($potluckreelspin >= 8) and ($potluckplaylevel >= 4))) { $potluckslot1 = 'spining'; $potluckslot2 = 'spining'; $potluckslot3 = 'spining'; $potluckslot4 = 'spining'; $potluckslot5 = 'spining'; $potluckslot6 = 'spining'; } elsif (($potlucksvslot4 == 2) && ($potluckslotbns4 == 7)) { $potluckslot1 = 's2'; $potluckslot2 = 's2'; $potluckslot3 = 's2'; $potluckslot4 = 's2'; $potluckslot5 = 's2'; $potluckslot6 = 's2'; } elsif (($potlucksvslot4 == 5) && ($potluckslotbns4 == 4)) { $potluckslot1 = 'ch'; $potluckslot2 = 'ch'; $potluckslot3 = 'ch'; $potluckslot4 = 'ch'; $potluckslot5 = 'ch'; $potluckslot6 = 'ch'; } elsif (($potlucksvslot4 == 5) && ($potluckslotbns4 == 6)) { $potluckslot1 = 'sh'; $potluckslot2 = 'sh'; $potluckslot3 = 'sh'; $potluckslot4 = 'sh'; $potluckslot5 = 'sh'; $potluckslot6 = 'sh'; } elsif (($potlucksvslot4 eq 'd') && ($potluckslotbns4 == 7)) { $potluckslot1 = 'd4'; $potluckslot2 = 'd4'; $potluckslot3 = 'd4'; $potluckslot4 = 'd4'; $potluckslot5 = 'd4'; $potluckslot6 = 'd4'; } else { $potluckslot1 = $potlucksvslot4; $potluckslot2 = $potlucksvslot4; $potluckslot3 = $potlucksvslot4; $potluckslot4 = $potlucksvslot4; $potluckslot5 = $potlucksvslot4; $potluckslot6 = $potlucksvslot4; } } sub potluckreel5 { $potluckreel = 5; if ((($potluckreelspin >= 5) and (($potluckplaylevel == 2) or ($potluckplaylevel == 3))) or (($potluckreelspin >= 1) and ($potluckplaylevel >= 4))) { $potluckslot1 = 'spining'; $potluckslot2 = 'spining'; $potluckslot3 = 'spining'; $potluckslot4 = 'spining'; $potluckslot5 = 'spining'; $potluckslot6 = 'spining'; } elsif (($potlucksvslot5 == 2) && ($potluckslotbns5 == 7)) { $potluckslot1 = 's2'; $potluckslot2 = 's2'; $potluckslot3 = 's2'; $potluckslot4 = 's2'; $potluckslot5 = 's2'; $potluckslot6 = 's2'; } elsif (($potlucksvslot5 == 5) && ($potluckslotbns5 == 4)) { $potluckslot1 = 'ch'; $potluckslot2 = 'ch'; $potluckslot3 = 'ch'; $potluckslot4 = 'ch'; $potluckslot5 = 'ch'; $potluckslot6 = 'ch'; } elsif (($potlucksvslot5 == 5) && ($potluckslotbns5 == 6)) { $potluckslot1 = 'sh'; $potluckslot2 = 'sh'; $potluckslot3 = 'sh'; $potluckslot4 = 'sh'; $potluckslot5 = 'sh'; $potluckslot6 = 'sh'; } elsif (($potlucksvslot5 eq 'd') && ($potluckslotbns5 == 7)) { $potluckslot1 = 'd4'; $potluckslot2 = 'd4'; $potluckslot3 = 'd4'; $potluckslot4 = 'd4'; $potluckslot5 = 'd4'; $potluckslot6 = 'd4'; } else { $potluckslot1 = $potlucksvslot5; $potluckslot2 = $potlucksvslot5; $potluckslot3 = $potlucksvslot5; $potluckslot4 = $potlucksvslot5; $potluckslot5 = $potlucksvslot5; $potluckslot6 = $potlucksvslot5; } } sub potluckreel6 { $potluckreel = 6; if ((($potluckreelspin >= 4) and (($potluckplaylevel == 2) or ($potluckplaylevel == 3))) or (($potluckreelspin >= 3) and ($potluckplaylevel >= 4))) { $potluckslot1 = 'spining'; $potluckslot2 = 'spining'; $potluckslot3 = 'spining'; $potluckslot4 = 'spining'; $potluckslot5 = 'spining'; $potluckslot6 = 'spining'; } elsif (($potlucksvslot6 == 2) && ($potluckslotbns6 == 7)) { $potluckslot1 = 's2'; $potluckslot2 = 's2'; $potluckslot3 = 's2'; $potluckslot4 = 's2'; $potluckslot5 = 's2'; $potluckslot6 = 's2'; } elsif (($potlucksvslot6 == 5) && ($potluckslotbns6 == 4)) { $potluckslot1 = 'ch'; $potluckslot2 = 'ch'; $potluckslot3 = 'ch'; $potluckslot4 = 'ch'; $potluckslot5 = 'ch'; $potluckslot6 = 'ch'; } elsif (($potlucksvslot6 == 5) && ($potluckslotbns6 == 6)) { $potluckslot1 = 'sh'; $potluckslot2 = 'sh'; $potluckslot3 = 'sh'; $potluckslot4 = 'sh'; $potluckslot5 = 'sh'; $potluckslot6 = 'sh'; } elsif (($potlucksvslot6 eq 'd') && ($potluckslotbns6 == 7)) { $potluckslot1 = 'd4'; $potluckslot2 = 'd4'; $potluckslot3 = 'd4'; $potluckslot4 = 'd4'; $potluckslot5 = 'd4'; $potluckslot6 = 'd4'; } else { $potluckslot1 = $potlucksvslot6; $potluckslot2 = $potlucksvslot6; $potluckslot3 = $potlucksvslot6; $potluckslot4 = $potlucksvslot6; $potluckslot5 = $potlucksvslot6; $potluckslot6 = $potlucksvslot6; } } sub potluckreel7 { $potluckreel = 7; if ((($potluckreelspin >= 3) and ($potluckplaylevel == 3)) or (($potluckreelspin >= 2) and ($potluckplaylevel >= 4))) { $potluckslot1 = 'spining'; $potluckslot2 = 'spining'; $potluckslot3 = 'spining'; $potluckslot4 = 'spining'; $potluckslot5 = 'spining'; $potluckslot6 = 'spining'; } elsif (($potlucksvslot7 == 2) && ($potluckslotbns7 == 7)) { $potluckslot1 = 's2'; $potluckslot2 = 's2'; $potluckslot3 = 's2'; $potluckslot4 = 's2'; $potluckslot5 = 's2'; $potluckslot6 = 's2'; } elsif (($potlucksvslot7 == 5) && ($potluckslotbns7 == 4)) { $potluckslot1 = 'ch'; $potluckslot2 = 'ch'; $potluckslot3 = 'ch'; $potluckslot4 = 'ch'; $potluckslot5 = 'ch'; $potluckslot6 = 'ch'; } elsif (($potlucksvslot7 == 5) && ($potluckslotbns7 == 6)) { $potluckslot1 = 'sh'; $potluckslot2 = 'sh'; $potluckslot3 = 'sh'; $potluckslot4 = 'sh'; $potluckslot5 = 'sh'; $potluckslot6 = 'sh'; } elsif (($potlucksvslot7 eq 'd') && ($potluckslotbns7 == 7)) { $potluckslot1 = 'd4'; $potluckslot2 = 'd4'; $potluckslot3 = 'd4'; $potluckslot4 = 'd4'; $potluckslot5 = 'd4'; $potluckslot6 = 'd4'; } else { $potluckslot1 = $potlucksvslot7; $potluckslot2 = $potlucksvslot7; $potluckslot3 = $potlucksvslot7; $potluckslot4 = $potlucksvslot7; $potluckslot5 = $potlucksvslot7; $potluckslot6 = $potlucksvslot7; } } sub potluckreel8 { $potluckreel = 8; if ((($potluckreelspin >= 2) and ($potluckplaylevel == 3)) or (($potluckreelspin == 9) and ($potluckplaylevel >= 4))) { $potluckslot1 = 'spining'; $potluckslot2 = 'spining'; $potluckslot3 = 'spining'; $potluckslot4 = 'spining'; $potluckslot5 = 'spining'; $potluckslot6 = 'spining'; } elsif (($potlucksvslot8 == 2) && ($potluckslotbns8 == 7)) { $potluckslot1 = 's2'; $potluckslot2 = 's2'; $potluckslot3 = 's2'; $potluckslot4 = 's2'; $potluckslot5 = 's2'; $potluckslot6 = 's2'; } elsif (($potlucksvslot8 == 5) && ($potluckslotbns8 == 4)) { $potluckslot1 = 'ch'; $potluckslot2 = 'ch'; $potluckslot3 = 'ch'; $potluckslot4 = 'ch'; $potluckslot5 = 'ch'; $potluckslot6 = 'ch'; } elsif (($potlucksvslot8 == 5) && ($potluckslotbns8 == 6)) { $potluckslot1 = 'sh'; $potluckslot2 = 'sh'; $potluckslot3 = 'sh'; $potluckslot4 = 'sh'; $potluckslot5 = 'sh'; $potluckslot6 = 'sh'; } elsif (($potlucksvslot8 eq 'd') && ($potluckslotbns8 == 7)) { $potluckslot1 = 'd4'; $potluckslot2 = 'd4'; $potluckslot3 = 'd4'; $potluckslot4 = 'd4'; $potluckslot5 = 'd4'; $potluckslot6 = 'd4'; } else { $potluckslot1 = $potlucksvslot8; $potluckslot2 = $potlucksvslot8; $potluckslot3 = $potlucksvslot8; $potluckslot4 = $potlucksvslot8; $potluckslot5 = $potlucksvslot8; $potluckslot6 = $potlucksvslot8; } } sub potluckreel9 { $potluckreel = 8; if ((($potluckreelspin >= 1) and ($potluckplaylevel == 3)) or (($potluckreelspin >= 5) and ($potluckplaylevel >= 4))) { $potluckslot1 = 'spining'; $potluckslot2 = 'spining'; $potluckslot3 = 'spining'; $potluckslot4 = 'spining'; $potluckslot5 = 'spining'; $potluckslot6 = 'spining'; } elsif (($potlucksvslot9 == 2) && ($potluckslotbns9 == 7)) { $potluckslot1 = 's2'; $potluckslot2 = 's2'; $potluckslot3 = 's2'; $potluckslot4 = 's2'; $potluckslot5 = 's2'; $potluckslot6 = 's2'; } elsif (($potlucksvslot9 == 5) && ($potluckslotbns9 == 4)) { $potluckslot1 = 'ch'; $potluckslot2 = 'ch'; $potluckslot3 = 'ch'; $potluckslot4 = 'ch'; $potluckslot5 = 'ch'; $potluckslot6 = 'ch'; } elsif (($potlucksvslot9 == 5) && ($potluckslotbns9 == 6)) { $potluckslot1 = 'sh'; $potluckslot2 = 'sh'; $potluckslot3 = 'sh'; $potluckslot4 = 'sh'; $potluckslot5 = 'sh'; $potluckslot6 = 'sh'; } elsif (($potlucksvslot9 eq 'd') && ($potluckslotbns9 == 7)) { $potluckslot1 = 'd4'; $potluckslot2 = 'd4'; $potluckslot3 = 'd4'; $potluckslot4 = 'd4'; $potluckslot5 = 'd4'; $potluckslot6 = 'd4'; } else { $potluckslot1 = $potlucksvslot9; $potluckslot2 = $potlucksvslot9; $potluckslot3 = $potlucksvslot9; $potluckslot4 = $potlucksvslot9; $potluckslot5 = $potlucksvslot9; $potluckslot6 = $potlucksvslot9; } } sub potluckmid0 { print color 'reset'; print colored('||',"$boldblack on_$bgcblack"); print color 'reset'; } sub potluckmid1 { print color 'reset'; print colored('-------',"$boldyellow on_$bgcyellow"); print color 'reset'; } sub potluckmid4 { print color 'reset'; print colored('-------------------',"$boldyellow on_$bgcyellow"); print color 'reset'; } sub potluckmid2 { print color 'reset'; print colored('--',"$boldyellow on_$bgcyellow"); print color 'reset'; } sub potluckmid3 { print color 'reset'; print colored('-',"$boldyellow on_$bgcyellow"); print color 'reset'; } sub potluckend0 { print color 'reset'; print colored('---',"$boldyellow on_$bgcyellow"); print color 'reset'; } sub potluckendp1 { if ($potluckplaylevel >= 1) { print colored('1P',"$boldwhite on_$bgcyellow"); } else { print colored('1P',"$boldblack on_$bgcyellow"); } } sub potluckendp2 { if ($potluckplaylevel >= 2) { print colored('2P',"$boldwhite on_$bgcyellow"); } else { print colored('2P',"$boldblack on_$bgcyellow"); } } sub potluckendp3 { if ($potluckplaylevel >= 3) { print colored('3P',"$boldwhite on_$bgcyellow"); } else { print colored('3P',"$boldblack on_$bgcyellow"); } } sub potluckendp4 { if ($potluckplaylevel >= 4) { print colored('4P',"$boldwhite on_$bgcyellow"); } else { print colored('4P',"$boldblack on_$bgcyellow"); } } sub potluckendp5 { if ($potluckplaylevel >= 5) { print colored('5P',"$boldwhite on_$bgcyellow"); } else { print colored('5P',"$boldblack on_$bgcyellow"); } } sub potluckendp6 { if ($potluckplaylevel >= 6) { print colored('6P',"$boldwhite on_$bgcyellow"); } else { print colored('6P',"$boldblack on_$bgcyellow"); } } sub potluckendp7 { if ($potluckplaylevel >= 7) { print colored('7P',"$boldwhite on_$bgcyellow"); } else { print colored('7P',"$boldblack on_$bgcyellow"); } } sub potluckendp8 { if ($potluckplaylevel >= 8) { print colored('8P',"$boldwhite on_$bgcyellow"); } else { print colored('8P',"$boldblack on_$bgcyellow"); } } sub potluckend1 { print color 'reset'; print colored('|',"$boldblack on_$bgcblack"); print color 'reset'; } sub potluckend2 { print color 'reset'; print colored('--',"$boldyellow on_$bgcyellow"); print color 'reset'; } sub potluckslotb { print color 'reset'; print colored('I',"$boldwhite on_$bgcwhite"); print colored(' ',"$black on_$bgcblack"); print colored('I',"$boldwhite on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print color 'reset'; } sub potluckslota { print color 'reset'; print colored('III',"$boldwhite on_$bgcwhite"); print colored('|',"$boldblack on_$bgcblack"); print color 'reset'; } sub potluckmulti1wldend0 { print color 'reset'; print colored('Single-Symbol-Wilds',"$white on_$bgcyellow"); print color 'reset'; } sub potluckmulti2wldend0 { print color 'reset'; print colored('NA',"$boldblack on_$bgcyellow"); print colored('-',"$boldyellow on_$bgcyellow"); print colored('NA',"$boldblack on_$bgcyellow"); print colored('-',"$boldyellow on_$bgcyellow"); print colored('8P',"$white on_$bgcyellow"); print colored('----',"$boldyellow on_$bgcyellow"); print colored('SWRD',"$boldred on_$bgcyellow"); print colored('---',"$boldyellow on_$bgcyellow"); print color 'reset'; } sub potluckmulti1end0 { print color 'reset'; print colored('PossibleMultipliers',"$white on_$bgcyellow"); print color 'reset'; } sub potluckmulti2end0 { print color 'reset'; print colored('6P',"$white on_$bgcyellow"); print colored('-',"$boldyellow on_$bgcyellow"); print colored('7P',"$white on_$bgcyellow"); print colored('-',"$boldyellow on_$bgcyellow"); print colored('8P',"$white on_$bgcyellow"); print colored('------',"$boldyellow on_$bgcyellow"); print colored('2X',"$boldwhite on_$bgcblack"); print colored('---',"$boldyellow on_$bgcyellow"); print color 'reset'; } sub potluckmulti3end0 { print color 'reset'; print colored('NA',"$boldblack on_$bgcyellow"); print colored('-',"$boldyellow on_$bgcyellow"); print colored('NA',"$boldblack on_$bgcyellow"); print colored('-',"$boldyellow on_$bgcyellow"); print colored('8P',"$white on_$bgcyellow"); print colored('------',"$boldyellow on_$bgcyellow"); print colored('3X',"$boldyellow on_$bgcgreen"); print colored('---',"$boldyellow on_$bgcyellow"); print color 'reset'; } sub potluckapotluckmoney { if ($potluckxP1p eq "ddd") { $potluckapotluckmoney = 3000 * $coin; $beepnum = 5; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP1p eq "111") { $potluckapotluckmoney = 900 * $coin; $beepnum = 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP1p eq "222") { $potluckapotluckmoney = 650 * $coin; $beepnum = 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP1p eq "333") { $potluckapotluckmoney = 300 * $coin; $beepnum = 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP1p eq "444") { $potluckapotluckmoney = 100 * $coin; $beepnum = 3; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP1p eq "555") { $potluckapotluckmoney = 30 * $coin; $beepnum = 3; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP1p eq "666") { $potluckapotluckmoney = 10 * $coin; $beepnum = 3; $potluckstwin = $potluckstwin + 1; } else { $potluckapotluckmoney = 0; $beepnum = 0; } if (($potluckxP1Zp eq "55") and ($potluckxP1p ne "555")) { $potluckapotluckmoney = $potluckapotluckmoney + (4 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } else { #ZZzzz } if ($potluckplaylevel >= 2) { if ($potluckxP2p eq "ddd") { $potluckapotluckmoney = $potluckapotluckmoney + (3000 * $coin); $beepnum = $beepnum + 5; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP2p eq "111") { $potluckapotluckmoney = $potluckapotluckmoney + (900 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP2p eq "222") { $potluckapotluckmoney = $potluckapotluckmoney + (650 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP2p eq "333") { $potluckapotluckmoney = $potluckapotluckmoney + (300 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP2p eq "444") { $potluckapotluckmoney = $potluckapotluckmoney + (100 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP2p eq "555") { $potluckapotluckmoney = $potluckapotluckmoney + (30 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP2p eq "666") { $potluckapotluckmoney = $potluckapotluckmoney + (10 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } else { #NO-THING!!! } if (($potluckxP2Zp eq "55") and ($potluckxP2p ne "555")) { $potluckapotluckmoney = $potluckapotluckmoney + (4 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } else { #ZZzzz } } if ($potluckplaylevel >= 3) { if ($potluckxP3p eq "ddd") { $potluckapotluckmoney = $potluckapotluckmoney + (3000 * $coin); $beepnum = $beepnum + 5; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP3p eq "111") { $potluckapotluckmoney = $potluckapotluckmoney + (900 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP3p eq "222") { $potluckapotluckmoney = $potluckapotluckmoney + (650 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP3p eq "333") { $potluckapotluckmoney = $potluckapotluckmoney + (300 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP3p eq "444") { $potluckapotluckmoney = $potluckapotluckmoney + (100 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP3p eq "555") { $potluckapotluckmoney = $potluckapotluckmoney + (30 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP3p eq "666") { $potluckapotluckmoney = $potluckapotluckmoney + (10 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } else { #NO-THING!!! } if (($potluckxP3Zp eq "55") and ($potluckxP3p ne "555")) { $potluckapotluckmoney = $potluckapotluckmoney + (4 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } else { #ZZzzz } } if ($potluckplaylevel >= 4) { if ($potluckxP4p eq "ddd") { $potluckapotluckmoney = $potluckapotluckmoney + (3000 * $coin); $beepnum = $beepnum + 5; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP4p eq "111") { $potluckapotluckmoney = $potluckapotluckmoney + (900 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP4p eq "222") { $potluckapotluckmoney = $potluckapotluckmoney + (650 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP4p eq "333") { $potluckapotluckmoney = $potluckapotluckmoney + (300 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP4p eq "444") { $potluckapotluckmoney = $potluckapotluckmoney + (100 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP4p eq "555") { $potluckapotluckmoney = $potluckapotluckmoney + (30 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP4p eq "666") { $potluckapotluckmoney = $potluckapotluckmoney + (10 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } else { #NO-THING!!! } if (($potluckxP4Zp eq "55") and ($potluckxP4p ne "555")) { $potluckapotluckmoney = $potluckapotluckmoney + (4 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } else { #ZZzzz } } if ($potluckplaylevel >= 5) { if ($potluckxP5p eq "ddd") { $potluckapotluckmoney = $potluckapotluckmoney + (3000 * $coin); $beepnum = $beepnum + 5; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP5p eq "111") { $potluckapotluckmoney = $potluckapotluckmoney + (900 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP5p eq "222") { $potluckapotluckmoney = $potluckapotluckmoney + (650 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP5p eq "333") { $potluckapotluckmoney = $potluckapotluckmoney + (300 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP5p eq "444") { $potluckapotluckmoney = $potluckapotluckmoney + (100 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP5p eq "555") { $potluckapotluckmoney = $potluckapotluckmoney + (30 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP5p eq "666") { $potluckapotluckmoney = $potluckapotluckmoney + (10 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } else { #NO-THING!!! } if (($potluckxP5Zp eq "55") and ($potluckxP5p ne "555")) { $potluckapotluckmoney = $potluckapotluckmoney + (4 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } else { #ZZzzz } } if ($potluckplaylevel >= 6) { if ($potluckxP6p eq "ddd") { $potluckapotluckmoney = $potluckapotluckmoney + (3000 * $coin); $beepnum = $beepnum + 5; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP6p eq "111") { $potluckapotluckmoney = $potluckapotluckmoney + (900 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP6p eq "222") { $potluckapotluckmoney = $potluckapotluckmoney + (650 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP6p eq "333") { $potluckapotluckmoney = $potluckapotluckmoney + (300 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP6p eq "444") { $potluckapotluckmoney = $potluckapotluckmoney + (100 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP6p eq "555") { $potluckapotluckmoney = $potluckapotluckmoney + (30 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP6p eq "666") { $potluckapotluckmoney = $potluckapotluckmoney + (10 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } else { #NO-THING!!! } if (($potluckxP6Zp eq "55") and ($potluckxP6p ne "555")) { $potluckapotluckmoney = $potluckapotluckmoney + (4 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } else { #ZZzzz } } if ($potluckplaylevel >= 7) { if ($potluckxP7p eq "ddd") { $potluckapotluckmoney = $potluckapotluckmoney + (3000 * $coin); $beepnum = $beepnum + 5; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP7p eq "111") { $potluckapotluckmoney = $potluckapotluckmoney + (900 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP7p eq "222") { $potluckapotluckmoney = $potluckapotluckmoney + (650 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP7p eq "333") { $potluckapotluckmoney = $potluckapotluckmoney + (300 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP7p eq "444") { $potluckapotluckmoney = $potluckapotluckmoney + (100 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP7p eq "555") { $potluckapotluckmoney = $potluckapotluckmoney + (30 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP7p eq "666") { $potluckapotluckmoney = $potluckapotluckmoney + (10 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } else { #NO-THING!!! } if (($potluckxP7Zp eq "55") and ($potluckxP7p ne "555")) { $potluckapotluckmoney = $potluckapotluckmoney + (4 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } else { #ZZzzz } } if ($potluckplaylevel >= 8) { if ($potluckxP8p eq "ddd") { $potluckapotluckmoney = $potluckapotluckmoney + (3000 * $coin); $beepnum = $beepnum + 5; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP8p eq "111") { $potluckapotluckmoney = $potluckapotluckmoney + (900 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP8p eq "222") { $potluckapotluckmoney = $potluckapotluckmoney + (650 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP8p eq "333") { $potluckapotluckmoney = $potluckapotluckmoney + (300 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP8p eq "444") { $potluckapotluckmoney = $potluckapotluckmoney + (100 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP8p eq "555") { $potluckapotluckmoney = $potluckapotluckmoney + (30 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP8p eq "666") { $potluckapotluckmoney = $potluckapotluckmoney + (10 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } else { #NO-THING!!! } if (($potluckxP2p4x1 eq "dddd") or ($potluckxP2p4x1 eq "ddd1") or ($potluckxP2p4x1 eq "dd1d") or ($potluckxP2p4x1 eq "d1dd") or ($potluckxP2p4x1 eq "1ddd")) { $potluckapotluckmoney = $potluckapotluckmoney + (1000 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP2p4x1 eq "1111") { $potluckapotluckmoney = $potluckapotluckmoney + (450 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP2p4x1 eq "2222") or ($potluckxP2p4x1 eq "2221") or ($potluckxP2p4x1 eq "2212") or ($potluckxP2p4x1 eq "2122") or ($potluckxP2p4x1 eq "1222")) { $potluckapotluckmoney = $potluckapotluckmoney + (325 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP2p4x1 eq "3333") or ($potluckxP2p4x1 eq "3331") or ($potluckxP2p4x1 eq "3313") or ($potluckxP2p4x1 eq "3133") or ($potluckxP2p4x1 eq "1333")) { $potluckapotluckmoney = $potluckapotluckmoney + (150 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP2p4x1 eq "4444") or ($potluckxP2p4x1 eq "4441") or ($potluckxP2p4x1 eq "4414") or ($potluckxP2p4x1 eq "4144") or ($potluckxP2p4x1 eq "1444")) { $potluckapotluckmoney = $potluckapotluckmoney + (50 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP2p4x1 eq "5555") or ($potluckxP2p4x1 eq "5551") or ($potluckxP2p4x1 eq "5515") or ($potluckxP2p4x1 eq "5155") or ($potluckxP2p4x1 eq "1555")) { $potluckapotluckmoney = $potluckapotluckmoney + (15 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP2p4x1 eq "6666") or ($potluckxP2p4x1 eq "6661") or ($potluckxP2p4x1 eq "6616") or ($potluckxP2p4x1 eq "6166") or ($potluckxP2p4x1 eq "1666")) { $potluckapotluckmoney = $potluckapotluckmoney + (5 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } else { #NO-THING!!! } if (($potluckxP2p4x2 eq "dddd") or ($potluckxP2p4x2 eq "ddd1") or ($potluckxP2p4x2 eq "dd1d") or ($potluckxP2p4x2 eq "d1dd") or ($potluckxP2p4x2 eq "1ddd")) { $potluckapotluckmoney = $potluckapotluckmoney + (1000 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP2p4x2 eq "1111") { $potluckapotluckmoney = $potluckapotluckmoney + (450 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP2p4x2 eq "2222") or ($potluckxP2p4x2 eq "2221") or ($potluckxP2p4x2 eq "2212") or ($potluckxP2p4x2 eq "2122") or ($potluckxP2p4x2 eq "1222")) { $potluckapotluckmoney = $potluckapotluckmoney + (325 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP2p4x2 eq "3333") or ($potluckxP2p4x2 eq "3331") or ($potluckxP2p4x2 eq "3313") or ($potluckxP2p4x2 eq "3133") or ($potluckxP2p4x2 eq "1333")) { $potluckapotluckmoney = $potluckapotluckmoney + (150 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP2p4x2 eq "4444") or ($potluckxP2p4x2 eq "4441") or ($potluckxP2p4x2 eq "4414") or ($potluckxP2p4x2 eq "4144") or ($potluckxP2p4x2 eq "1444")) { $potluckapotluckmoney = $potluckapotluckmoney + (50 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP2p4x2 eq "5555") or ($potluckxP2p4x2 eq "5551") or ($potluckxP2p4x2 eq "5515") or ($potluckxP2p4x2 eq "5155") or ($potluckxP2p4x2 eq "1555")) { $potluckapotluckmoney = $potluckapotluckmoney + (15 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP2p4x2 eq "6666") or ($potluckxP2p4x2 eq "6661") or ($potluckxP2p4x2 eq "6616") or ($potluckxP2p4x2 eq "6166") or ($potluckxP2p4x2 eq "1666")) { $potluckapotluckmoney = $potluckapotluckmoney + (5 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } else { #NO-THING!!! } if (($potluckxP3p4x1 eq "dddd") or ($potluckxP3p4x1 eq "ddd1") or ($potluckxP3p4x1 eq "dd1d") or ($potluckxP3p4x1 eq "d1dd") or ($potluckxP3p4x1 eq "1ddd")) { $potluckapotluckmoney = $potluckapotluckmoney + (1000 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP3p4x1 eq "1111") { $potluckapotluckmoney = $potluckapotluckmoney + (450 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP3p4x1 eq "2222") or ($potluckxP3p4x1 eq "2221") or ($potluckxP3p4x1 eq "2212") or ($potluckxP3p4x1 eq "2122") or ($potluckxP3p4x1 eq "1222")) { $potluckapotluckmoney = $potluckapotluckmoney + (325 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP3p4x1 eq "3333") or ($potluckxP3p4x1 eq "3331") or ($potluckxP3p4x1 eq "3313") or ($potluckxP3p4x1 eq "3133") or ($potluckxP3p4x1 eq "1333")) { $potluckapotluckmoney = $potluckapotluckmoney + (150 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP3p4x1 eq "4444") or ($potluckxP3p4x1 eq "4441") or ($potluckxP3p4x1 eq "4414") or ($potluckxP3p4x1 eq "4144") or ($potluckxP3p4x1 eq "1444")) { $potluckapotluckmoney = $potluckapotluckmoney + (50 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP3p4x1 eq "5555") or ($potluckxP3p4x1 eq "5551") or ($potluckxP3p4x1 eq "5515") or ($potluckxP3p4x1 eq "5155") or ($potluckxP3p4x1 eq "1555")) { $potluckapotluckmoney = $potluckapotluckmoney + (15 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP3p4x1 eq "6666") or ($potluckxP3p4x1 eq "6661") or ($potluckxP3p4x1 eq "6616") or ($potluckxP3p4x1 eq "6166") or ($potluckxP3p4x1 eq "1666")) { $potluckapotluckmoney = $potluckapotluckmoney + (5 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } else { #NO-THING!!! } if (($potluckxP3p4x2 eq "dddd") or ($potluckxP3p4x2 eq "ddd1") or ($potluckxP3p4x2 eq "dd1d") or ($potluckxP3p4x2 eq "d1dd") or ($potluckxP3p4x2 eq "1ddd")) { $potluckapotluckmoney = $potluckapotluckmoney + (1000 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } elsif ($potluckxP3p4x2 eq "1111") { $potluckapotluckmoney = $potluckapotluckmoney + (450 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP3p4x2 eq "2222") or ($potluckxP3p4x2 eq "2221") or ($potluckxP3p4x2 eq "2212") or ($potluckxP3p4x2 eq "2122") or ($potluckxP3p4x2 eq "1222")) { $potluckapotluckmoney = $potluckapotluckmoney + (325 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP3p4x2 eq "3333") or ($potluckxP3p4x2 eq "3331") or ($potluckxP3p4x2 eq "3313") or ($potluckxP3p4x2 eq "3133") or ($potluckxP3p4x2 eq "1333")) { $potluckapotluckmoney = $potluckapotluckmoney + (150 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP3p4x2 eq "4444") or ($potluckxP3p4x2 eq "4441") or ($potluckxP3p4x2 eq "4414") or ($potluckxP3p4x2 eq "4144") or ($potluckxP3p4x2 eq "1444")) { $potluckapotluckmoney = $potluckapotluckmoney + (50 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP3p4x2 eq "5555") or ($potluckxP3p4x2 eq "5551") or ($potluckxP3p4x2 eq "5515") or ($potluckxP3p4x2 eq "5155") or ($potluckxP3p4x2 eq "1555")) { $potluckapotluckmoney = $potluckapotluckmoney + (15 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } elsif (($potluckxP3p4x2 eq "6666") or ($potluckxP3p4x2 eq "6661") or ($potluckxP3p4x2 eq "6616") or ($potluckxP3p4x2 eq "6166") or ($potluckxP3p4x2 eq "1666")) { $potluckapotluckmoney = $potluckapotluckmoney + (5 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } else { #NO-THING!!! } if (($potluckxP8Zp eq "55") and ($potluckxP8p ne "555")) { $potluckapotluckmoney = $potluckapotluckmoney + (4 * $coin); $beepnum = $beepnum + 2; $potluckstwin = $potluckstwin + 1; } else { #ZZzzz } if ($potluckxP8p eq '1dd'){ plkwind(); } if ($potluckxP8p eq 'd1d'){ plkwind(); } if ($potluckxP8p eq 'dd1'){ plkwind(); } if ($potluckxP7p eq '1dd'){ plkwind(); } if ($potluckxP7p eq 'd1d'){ plkwind(); } if ($potluckxP7p eq 'dd1'){ plkwind(); } if ($potluckxP6p eq '1dd'){ plkwind(); } if ($potluckxP6p eq 'd1d'){ plkwind(); } if ($potluckxP6p eq 'dd1'){ plkwind(); } if ($potluckxP5p eq '1dd'){ plkwind(); } if ($potluckxP5p eq 'd1d'){ plkwind(); } if ($potluckxP5p eq 'dd1'){ plkwind(); } if ($potluckxP4p eq '1dd'){ plkwind(); } if ($potluckxP4p eq 'd1d'){ plkwind(); } if ($potluckxP4p eq 'dd1'){ plkwind(); } if ($potluckxP3p eq '1dd'){ plkwind(); } if ($potluckxP3p eq 'd1d'){ plkwind(); } if ($potluckxP3p eq 'dd1'){ plkwind(); } if ($potluckxP2p eq '1dd'){ plkwind(); } if ($potluckxP2p eq 'd1d'){ plkwind(); } if ($potluckxP2p eq 'dd1'){ plkwind(); } if ($potluckxP1p eq '1dd'){ plkwind(); } if ($potluckxP1p eq 'd1d'){ plkwind(); } if ($potluckxP1p eq 'dd1') { plkwind(); #1s absent as redundant #2s } if ($potluckxP8p eq '122'){ plkwin2(); } if ($potluckxP8p eq '212'){ plkwin2(); } if ($potluckxP8p eq '221'){ plkwin2(); } if ($potluckxP7p eq '122'){ plkwin2(); } if ($potluckxP7p eq '212'){ plkwin2(); } if ($potluckxP7p eq '221'){ plkwin2(); } if ($potluckxP6p eq '122'){ plkwin2(); } if ($potluckxP6p eq '212'){ plkwin2(); } if ($potluckxP6p eq '221'){ plkwin2(); } if ($potluckxP5p eq '122'){ plkwin2(); } if ($potluckxP5p eq '212'){ plkwin2(); } if ($potluckxP5p eq '221'){ plkwin2(); } if ($potluckxP4p eq '122'){ plkwin2(); } if ($potluckxP4p eq '212'){ plkwin2(); } if ($potluckxP4p eq '221'){ plkwin2(); } if ($potluckxP3p eq '122'){ plkwin2(); } if ($potluckxP3p eq '212'){ plkwin2(); } if ($potluckxP3p eq '221'){ plkwin2(); } if ($potluckxP2p eq '122'){ plkwin2(); } if ($potluckxP2p eq '212'){ plkwin2(); } if ($potluckxP2p eq '221'){ plkwin2(); } if ($potluckxP1p eq '122'){ plkwin2(); } if ($potluckxP1p eq '212'){ plkwin2(); } if ($potluckxP1p eq '221') { plkwin2(); #3s } if ($potluckxP8p eq '133'){ plkwin3(); } if ($potluckxP8p eq '313'){ plkwin3(); } if ($potluckxP8p eq '331'){ plkwin3(); } if ($potluckxP7p eq '133'){ plkwin3(); } if ($potluckxP7p eq '313'){ plkwin3(); } if ($potluckxP7p eq '331'){ plkwin3(); } if ($potluckxP6p eq '133'){ plkwin3(); } if ($potluckxP6p eq '313'){ plkwin3(); } if ($potluckxP6p eq '331'){ plkwin3(); } if ($potluckxP5p eq '133'){ plkwin3(); } if ($potluckxP5p eq '313'){ plkwin3(); } if ($potluckxP5p eq '331'){ plkwin3(); } if ($potluckxP4p eq '133'){ plkwin3(); } if ($potluckxP4p eq '313'){ plkwin3(); } if ($potluckxP4p eq '331'){ plkwin3(); } if ($potluckxP3p eq '133'){ plkwin3(); } if ($potluckxP3p eq '313'){ plkwin3(); } if ($potluckxP3p eq '331'){ plkwin3(); } if ($potluckxP2p eq '133'){ plkwin3(); } if ($potluckxP2p eq '313'){ plkwin3(); } if ($potluckxP2p eq '331'){ plkwin3(); } if ($potluckxP1p eq '133'){ plkwin3(); } if ($potluckxP1p eq '313'){ plkwin3(); } if ($potluckxP1p eq '331') { plkwin3(); #4s } if ($potluckxP8p eq '144'){ plkwin4(); } if ($potluckxP8p eq '414'){ plkwin4(); } if ($potluckxP8p eq '441'){ plkwin4(); } if ($potluckxP7p eq '144'){ plkwin4(); } if ($potluckxP7p eq '414'){ plkwin4(); } if ($potluckxP7p eq '441'){ plkwin4(); } if ($potluckxP6p eq '144'){ plkwin4(); } if ($potluckxP6p eq '414'){ plkwin4(); } if ($potluckxP6p eq '441'){ plkwin4(); } if ($potluckxP5p eq '144'){ plkwin4(); } if ($potluckxP5p eq '414'){ plkwin4(); } if ($potluckxP5p eq '441'){ plkwin4(); } if ($potluckxP4p eq '144'){ plkwin4(); } if ($potluckxP4p eq '414'){ plkwin4(); } if ($potluckxP4p eq '441'){ plkwin4(); } if ($potluckxP3p eq '144'){ plkwin4(); } if ($potluckxP3p eq '414'){ plkwin4(); } if ($potluckxP3p eq '441'){ plkwin4(); } if ($potluckxP2p eq '144'){ plkwin4(); } if ($potluckxP2p eq '414'){ plkwin4(); } if ($potluckxP2p eq '441'){ plkwin4(); } if ($potluckxP1p eq '144'){ plkwin4(); } if ($potluckxP1p eq '414'){ plkwin4(); } if ($potluckxP1p eq '441') { plkwin4(); #5s } if ($potluckxP8p eq '155'){ plkwin5(); } if ($potluckxP8p eq '515'){ plkwin5(); } if ($potluckxP8p eq '551'){ plkwin5(); } if ($potluckxP7p eq '155'){ plkwin5(); } if ($potluckxP7p eq '515'){ plkwin5(); } if ($potluckxP7p eq '551'){ plkwin5(); } if ($potluckxP6p eq '155'){ plkwin5(); } if ($potluckxP6p eq '515'){ plkwin5(); } if ($potluckxP6p eq '551'){ plkwin5(); } if ($potluckxP5p eq '155'){ plkwin5(); } if ($potluckxP5p eq '515'){ plkwin5(); } if ($potluckxP5p eq '551'){ plkwin5(); } if ($potluckxP4p eq '155'){ plkwin5(); } if ($potluckxP4p eq '515'){ plkwin5(); } if ($potluckxP4p eq '551'){ plkwin5(); } if ($potluckxP3p eq '155'){ plkwin5(); } if ($potluckxP3p eq '515'){ plkwin5(); } if ($potluckxP3p eq '551'){ plkwin5(); } if ($potluckxP2p eq '155'){ plkwin5(); } if ($potluckxP2p eq '515'){ plkwin5(); } if ($potluckxP2p eq '551'){ plkwin5(); } if ($potluckxP1p eq '155'){ plkwin5(); } if ($potluckxP1p eq '515'){ plkwin5(); } if ($potluckxP1p eq '551') { plkwin5(); #6 } if ($potluckxP8p eq '166'){ plkwin6(); } if ($potluckxP8p eq '616'){ plkwin6(); } if ($potluckxP8p eq '661'){ plkwin6(); } if ($potluckxP7p eq '166'){ plkwin6(); } if ($potluckxP7p eq '616'){ plkwin6(); } if ($potluckxP7p eq '661'){ plkwin6(); } if ($potluckxP6p eq '166'){ plkwin6(); } if ($potluckxP6p eq '616'){ plkwin6(); } if ($potluckxP6p eq '661'){ plkwin6(); } if ($potluckxP5p eq '166'){ plkwin6(); } if ($potluckxP5p eq '616'){ plkwin6(); } if ($potluckxP5p eq '661'){ plkwin6(); } if ($potluckxP4p eq '166'){ plkwin6(); } if ($potluckxP4p eq '616'){ plkwin6(); } if ($potluckxP4p eq '661'){ plkwin6(); } if ($potluckxP3p eq '166'){ plkwin6(); } if ($potluckxP3p eq '616'){ plkwin6(); } if ($potluckxP3p eq '661'){ plkwin6(); } if ($potluckxP2p eq '166'){ plkwin6(); } if ($potluckxP2p eq '616'){ plkwin6(); } if ($potluckxP2p eq '661'){ plkwin6(); } if ($potluckxP1p eq '166'){ plkwin6(); } if ($potluckxP1p eq '616'){ plkwin6(); } if ($potluckxP1p eq '661') { plkwin6(); } #End. } if ($potluckapotluckmoney == 0) { $potluckstlose = $potluckstlose + 1; } else { if ($potluckslotmltp > 0) { $potluckapotluckmoney = ($potluckapotluckmoney * $potluckslotmltp); } if ($potluckslotsymbolX2M == 5) { $potluckapotluckmoney = ($potluckapotluckmoney * 2); } elsif ($potluckslotsymbolX3M == 12) { $potluckapotluckmoney = ($potluckapotluckmoney * 3); } #Here we apply the reductive multipliers, if any if (($potluckslotdivd > 0) && ($potluckapotluckmoney > 0)) { $potluckapotluckmoney = ($potluckapotluckmoney / $potluckslotdivd); $potluckapotluckmoney = sprintf("%.0f", $potluckapotluckmoney ); #make sure full number; } } } sub plkwind { $potluckapotluckmoney = $potluckapotluckmoney + (3000 * $coin); $beepnum = $beepnum + 5; $potluckstwin = $potluckstwin + 1; } sub plkwin2 { $potluckapotluckmoney = $potluckapotluckmoney + (650 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } sub plkwin3 { $potluckapotluckmoney = $potluckapotluckmoney + (300 * $coin); $beepnum = $beepnum + 4; $potluckstwin = $potluckstwin + 1; } sub plkwin4 { $potluckapotluckmoney = $potluckapotluckmoney + (100 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } sub plkwin5 { $potluckapotluckmoney = $potluckapotluckmoney + (30 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } sub plkwin6 { $potluckapotluckmoney = $potluckapotluckmoney + (10 * $coin); $beepnum = $beepnum + 3; $potluckstwin = $potluckstwin + 1; } sub potluckmainscreen { print colored('/------------------------------------------------------------------------------\\',"$boldblack on_$bgcblack"); print"\n"; potluckend1(); print colored(' ',"$boldblack on_$bgcyellow"); print colored('P',"$boldgreen on_$bgcyellow"); print colored('o',"$boldwhite on_$bgcyellow"); print colored('t',"$boldgreen on_$bgcyellow"); print colored('L',"$boldwhite on_$bgcyellow"); print colored('u',"$boldgreen on_$bgcyellow"); print colored('c',"$boldwhite on_$bgcyellow"); print colored('k',"$boldgreen on_$bgcyellow"); print colored(' C = Return To Casino Menu EXIT = quit ',"$boldyellow on_$bgcyellow"); potluckend1(); print"\n"; potluckend1(); print colored(' 1P = 1 Token 2P = 2 Tokens 3P = 3 Tokens....8P = 8 Tokens',"$boldyellow on_$bgcyellow"); potluckend1(); print"\n"; print colored('|------------------------------------------------------------------------------|',"$boldblack on_$bgcblack"); print"\n"; potluckend1(); print colored('DHRT',"$magenta on_$bgcyellow"); potluckmid3(); print colored('DHRT',"$magenta on_$bgcyellow"); potluckmid3(); print colored('DHRT',"$magenta on_$bgcyellow"); print colored('=3k',"$white on_$bgcyellow"); potluckendp4(); potluckmid2(); potluckmid1(); potluckendp6(); potluckmid1(); potluckmid2(); potluckmid1(); potluckendp7(); potluckmid1(); potluckmid2(); potluckmid1(); potluckendp8(); potluckmid2(); potluckmid1(); potluckendp5(); potluckmid3(); potluckend1(); print"\n"; if ($potluckplaylevel >= 8) { potluckend1(); potluckmid3(); print colored('DHRT',"$magenta on_$bgcyellow"); potluckmid3(); print colored('x4',"$magenta on_$bgcyellow"); potluckmid3(); print colored('BOX',"$magenta on_$bgcyellow"); potluckmid3(); print colored('=1k',"$white on_$bgcyellow"); } else { potluckend1(); potluckmid3(); print colored('DHRT',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('x4',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('BOX',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('=1k',"$boldblack on_$bgcyellow"); } potluckend0(); print colored('||================||================||================||',"$boldblack on_$bgcblack"); potluckend0(); potluckend1(); print"\n"; potluckend1(); print colored('SWRD',"$boldred on_$bgcyellow"); potluckmid3(); print colored('SWRD',"$boldred on_$bgcyellow"); potluckmid3(); print colored('SWRD',"$boldred on_$bgcyellow"); print colored('=900',"$white on_$bgcyellow"); potluckmid3(); potluckmid0(); potluckreel7(); sep; potluckslot1(); sep; potluckmid0(); potluckreel8(); sep; potluckslot1(); sep; potluckmid0(); potluckreel9(); sep; potluckslot1(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n"; if ($potluckplaylevel >= 8) { potluckend1(); potluckmid3(); print colored('SWRD',"$boldred on_$bgcyellow"); potluckmid3(); print colored('x4',"$boldred on_$bgcyellow"); potluckmid3(); print colored('BOX',"$boldred on_$bgcyellow"); potluckmid3(); print colored('=450',"$white on_$bgcyellow"); } else { potluckend1(); potluckmid3(); print colored('SWRD',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('x4',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('BOX',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('=450',"$boldblack on_$bgcyellow"); } potluckmid3(); potluckmid3(); potluckmid0(); potluckreel7(); sep; potluckslot2(); sep; potluckmid0(); potluckreel8(); sep; potluckslot2(); sep; potluckmid0(); potluckreel9(); sep; potluckslot2(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n"; potluckend1(); print colored('SPAD',"$black on_$bgcyellow"); potluckmid3(); print colored('SPAD',"$black on_$bgcyellow"); potluckmid3(); print colored('SPAD',"$black on_$bgcyellow"); print colored('=650',"$white on_$bgcyellow"); potluckmid3(); potluckmid0(); potluckreel7(); sep; potluckslot3(); sep; potluckmid0(); potluckreel8(); sep; potluckslot3(); sep; potluckmid0(); potluckreel9(); sep; potluckslot3(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n"; if ($potluckplaylevel >= 8) { potluckend1(); potluckmid3(); print colored('SPAD',"$black on_$bgcyellow"); potluckmid3(); print colored('x4',"$black on_$bgcyellow"); potluckmid3(); print colored('BOX',"$black on_$bgcyellow"); potluckmid3(); print colored('=325',"$white on_$bgcyellow"); } else { potluckend1(); potluckmid3(); print colored('SPAD',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('x4',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('BOX',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('=325',"$boldblack on_$bgcyellow"); } potluckendp3(); potluckmid0(); potluckreel7(); sep; potluckslot4(); sep; potluckmid0(); potluckreel8(); sep; potluckslot4(); sep; potluckmid0(); potluckreel9(); sep; potluckslot4(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n"; potluckend1(); print colored('CLOV',"$green on_$bgcyellow"); potluckmid3(); print colored('CLOV',"$green on_$bgcyellow"); potluckmid3(); print colored('CLOV',"$green on_$bgcyellow"); print colored('=300',"$white on_$bgcyellow"); potluckmid3(); potluckmid0(); potluckreel7(); sep; potluckslot5(); sep; potluckmid0(); potluckreel8(); sep; potluckslot5(); sep; potluckmid0(); potluckreel9(); sep; potluckslot5(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n"; if ($potluckplaylevel >= 8) { potluckend1(); potluckmid3(); print colored('CLOV',"$green on_$bgcyellow"); potluckmid3(); print colored('x4',"$green on_$bgcyellow"); potluckmid3(); print colored('BOX',"$green on_$bgcyellow"); potluckmid3(); print colored('=150',"$white on_$bgcyellow"); } else { potluckend1(); potluckmid3(); print colored('CLOV',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('x4',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('BOX',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('=150',"$boldblack on_$bgcyellow"); } potluckmid3(); potluckmid3(); potluckmid0(); potluckreel7(); sep; potluckslot6(); sep; potluckmid0(); potluckreel8(); sep; potluckslot6(); sep; potluckmid0(); potluckreel9(); sep; potluckslot6(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n"; potluckend1(); print colored('HERT',"$red on_$bgcyellow"); potluckmid3(); print colored('HERT',"$red on_$bgcyellow"); potluckmid3(); print colored('HERT',"$red on_$bgcyellow"); print colored('=100',"$white on_$bgcyellow"); potluckmid3(); print colored('||================||================||================||',"$boldblack on_$bgcblack"); potluckend0(); potluckend1(); print"\n"; if ($potluckplaylevel >= 8) { potluckend1(); potluckmid3(); print colored('HERT',"$red on_$bgcyellow"); potluckmid3(); print colored('x4',"$red on_$bgcyellow"); potluckmid3(); print colored('BOX',"$red on_$bgcyellow"); potluckmid3(); print colored('=50',"$white on_$bgcyellow"); } else { potluckend1(); potluckmid3(); print colored('HERT',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('x4',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('BOX',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('=50',"$boldblack on_$bgcyellow"); } potluckmid3(); potluckmid3(); potluckmid3(); potluckmid0(); potluckreel1(); sep; potluckslot1(); sep; potluckmid0(); potluckreel2(); sep; potluckslot1(); sep; potluckmid0(); potluckreel3(); sep; potluckslot1(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n"; potluckend1(); print colored('COIN',"$boldwhite on_$bgcyellow"); potluckmid3(); print colored('COIN',"$boldwhite on_$bgcyellow"); potluckmid3(); print colored('COIN',"$boldwhite on_$bgcyellow"); print colored('=30',"$white on_$bgcyellow"); potluckmid2(); potluckmid0(); potluckreel1(); sep; potluckslot2(); sep; potluckmid0(); potluckreel2(); sep; potluckslot2(); sep; potluckmid0(); potluckreel3(); sep; potluckslot2(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n"; if ($potluckplaylevel >= 8) { potluckend1(); potluckmid3(); print colored('COIN',"$boldwhite on_$bgcyellow"); potluckmid3(); print colored('x4',"$boldwhite on_$bgcyellow"); potluckmid3(); print colored('BOX',"$boldwhite on_$bgcyellow"); potluckmid3(); print colored('=15',"$white on_$bgcyellow"); } else { potluckend1(); potluckmid3(); print colored('COIN',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('x4',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('BOX',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('=15',"$boldblack on_$bgcyellow"); } potluckmid3(); potluckmid3(); potluckmid3(); potluckmid0(); potluckreel1(); sep; potluckslot3(); sep; potluckmid0(); potluckreel2(); sep; potluckslot3(); sep; potluckmid0(); potluckreel3(); sep; potluckslot3(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n"; potluckend1(); print colored('SHOE',"$boldyellow on_$bgcyellow"); potluckmid3(); print colored('SHOE',"$boldyellow on_$bgcyellow"); potluckmid3(); print colored('SHOE',"$boldyellow on_$bgcyellow"); print colored('=10',"$white on_$bgcyellow"); potluckendp1(); potluckmid0(); potluckreel1(); sep; potluckslot4(); sep; potluckmid0(); potluckreel2(); sep; potluckslot4(); sep; potluckmid0(); potluckreel3(); sep; potluckslot4(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n"; if ($potluckplaylevel >= 8) { potluckend1(); potluckmid3(); print colored('SHOE',"$boldyellow on_$bgcyellow"); potluckmid3(); print colored('x4',"$boldyellow on_$bgcyellow"); potluckmid3(); print colored('BOX',"$boldyellow on_$bgcyellow"); potluckmid3(); print colored('=5',"$white on_$bgcyellow"); } else { potluckend1(); potluckmid3(); print colored('SHOE',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('x4',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('BOX',"$boldblack on_$bgcyellow"); potluckmid3(); print colored('=5',"$boldblack on_$bgcyellow"); } potluckmid3(); potluckmid3(); potluckmid3(); potluckmid3(); potluckmid0(); potluckreel1(); sep; potluckslot5(); sep; potluckmid0(); potluckreel2(); sep; potluckslot5(); sep; potluckmid0(); potluckreel3(); sep; potluckslot5(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n"; potluckend1(); print colored('COIN',"$boldwhite on_$bgcyellow"); potluckmid3(); print colored('COIN',"$boldwhite on_$bgcyellow"); potluckmid3(); print colored('ANY',"$white on_$bgcyellow"); potluckmid3(); print colored('=4',"$white on_$bgcyellow"); potluckend0(); potluckmid0(); potluckreel1(); sep; potluckslot6(); sep; potluckmid0(); potluckreel2(); sep; potluckslot6(); sep; potluckmid0(); potluckreel3(); sep; potluckslot6(); sep; potluckmid0(); potluckend0(); potluckend1(); print"\n"; potluckend1(); potluckmid4(); print colored('||================||================||================||',"$boldblack on_$bgcblack"); potluckend0(); potluckend1(); print"\n"; potluckend1(); potluckmulti1end0(); potluckmid0(); potluckreel4(); sep; potluckslot1(); sep; potluckmid0(); potluckreel5(); sep; potluckslot1(); sep; potluckmid0(); potluckreel6(); sep; potluckslot1(); sep; potluckmid0(); potluckslota(); print"\n"; potluckend1(); potluckmulti2end0(); potluckmid0(); potluckreel4(); sep; potluckslot2(); sep; potluckmid0(); potluckreel5(); sep; potluckslot2(); sep; potluckmid0(); potluckreel6(); sep; potluckslot2(); sep; potluckmid0(); potluckslotb(); beepalrm(); potluckend1(); potluckmulti3end0(); potluckmid0(); potluckreel4(); sep; potluckslot3(); sep; potluckmid0(); potluckreel5(); sep; potluckslot3(); sep; potluckmid0(); potluckreel6(); sep; potluckslot3(); sep; potluckmid0(); potluckslotb(); beepalrm(); potluckend1(); potluckmid1(); potluckmid1(); potluckend0(); potluckendp2(); potluckmid0(); potluckreel4(); sep; potluckslot4(); sep; potluckmid0(); potluckreel5(); sep; potluckslot4(); sep; potluckmid0(); potluckreel6(); sep; potluckslot4(); sep; potluckmid0(); potluckslotb(); beepalrm(); potluckend1(); potluckmulti1wldend0(); potluckmid0(); potluckreel4(); sep; potluckslot5(); sep; potluckmid0(); potluckreel5(); sep; potluckslot5(); sep; potluckmid0(); potluckreel6(); sep; potluckslot5(); sep; potluckmid0(); potluckslotb(); beepalrm(); potluckend1(); potluckmulti2wldend0(); potluckmid0(); potluckreel4(); sep; potluckslot6(); sep; potluckmid0(); potluckreel5(); sep; potluckslot6(); sep; potluckmid0(); potluckreel6(); sep; potluckslot6(); sep; potluckmid0(); potluckslota(); beepalrm(); print colored('|-------------------',"$boldblack on_$bgcblack"); print colored('--================--================--================--',"$boldblack on_$bgcblack"); print colored('---|',"$boldblack on_$bgcblack"); beepalrm(); potluckend1(); print colored(' GPC-SLOTS 2 ',"$boldyellow on_$bgcyellow"); potluckwinnings(); potluckfunds(); potluckend1(); beepalrm(); print colored('\------------------------------------------------------------------------------/',"$boldblack on_$bgcblack"); beepalrm(); $beepnum = 0; } sub potluckwinnings { print colored(' WINNINGS ',"$boldyellow on_$bgcyellow"); sep; if ($potluckapotluckmoney > 9999999999) { print colored(sprintf("%.4e", $potluckapotluckmoney),"$boldcyan on_$bgccyan"); } elsif ($potluckapotluckmoney >= 1000000000) { print colored("$potluckapotluckmoney","$boldcyan on_$bgccyan"); } elsif ($potluckapotluckmoney >= 100000000) { print colored(" $potluckapotluckmoney","$boldcyan on_$bgccyan"); } elsif ($potluckapotluckmoney >= 10000000) { print colored(" $potluckapotluckmoney","$boldcyan on_$bgccyan"); } elsif ($potluckapotluckmoney >= 1000000) { print colored(" $potluckapotluckmoney","$boldcyan on_$bgccyan"); } elsif ($potluckapotluckmoney >= 100000) { print colored(" $potluckapotluckmoney","$boldcyan on_$bgccyan"); } elsif ($potluckapotluckmoney >= 10000) { print colored(" $potluckapotluckmoney","$boldcyan on_$bgccyan"); } elsif ($potluckapotluckmoney >= 1000) { print colored(" $potluckapotluckmoney","$boldcyan on_$bgccyan"); } elsif ($potluckapotluckmoney >= 100) { print colored(" $potluckapotluckmoney","$boldcyan on_$bgccyan"); } elsif ($potluckapotluckmoney >= 10) { print colored(" $potluckapotluckmoney","$boldcyan on_$bgccyan"); } elsif ($potluckapotluckmoney >= 1) { print colored(" $potluckapotluckmoney","$boldcyan on_$bgccyan"); } else { print colored(" $potluckapotluckmoney","$boldcyan on_$bgccyan"); } sep; } sub potluckfunds { print colored(' FUNDS ',"$boldyellow on_$bgcyellow"); sep; if ($money > 9999999999) { print colored(sprintf("%.4e", $money),"$boldcyan on_$bgccyan"); } elsif ($money >= 1000000000) { print colored("$money","$boldcyan on_$bgccyan"); } elsif ($money >= 100000000) { print colored(" $money","$boldcyan on_$bgccyan"); } elsif ($money >= 10000000) { print colored(" $money","$boldcyan on_$bgccyan"); } elsif ($money >= 1000000) { print colored(" $money","$boldcyan on_$bgccyan"); } elsif ($money >= 100000) { print colored(" $money","$boldcyan on_$bgccyan"); } elsif ($money >= 10000) { print colored(" $money","$boldcyan on_$bgccyan"); } elsif ($money >= 1000) { print colored(" $money","$boldcyan on_$bgccyan"); } elsif ($money >= 100) { print colored(" $money","$boldcyan on_$bgccyan"); } elsif ($money >= 10) { print colored(" $money","$boldcyan on_$bgccyan"); } elsif ($money >= 1) { print colored(" $money","$boldcyan on_$bgccyan"); } else { print colored(" $money","$boldcyan on_$bgccyan"); } sep; } ################################################################################################################################ ## GENRE: Roulette ## NAME: Russian Roulette: 25 or Life ## AUTHOR: MikeeUSA sub ruskieinit { $ruskierand = int(rand(6)); $ruskie2rand = 42; } sub ruskietop { if ($ruskieold == 1) { print colored('/--------------',"$boldblack on_$bgcblack"); print colored('--------------------------------------------------',"$boldmagenta on_$bgcmagenta"); print colored('--------------\\',"$boldblack on_$bgcblack"); print"\n"; print colored('| P = PLAY ',"$boldblack on_$bgcblack"); print colored(' GPC-SLOTS 2 ',"$black on_$bgcmagenta"); print colored(' C = RETURN |',"$boldblack on_$bgcblack"); print"\n"; print colored('| EXIT = QUIT ',"$boldblack on_$bgcblack"); print colored(' /--------------------------------\\ ',"$boldmagenta on_$bgcmagenta"); print colored('TO CASINO MENU|',"$boldblack on_$bgcblack"); print"\n"; } else { print colored('/--------------',"$boldblack on_$bgcblack"); print colored('--------------------------------------------------',"$boldred on_$bgcred"); print colored('--------------\\',"$boldblack on_$bgcblack"); print"\n"; print colored('| P = PLAY ',"$boldblack on_$bgcblack"); print colored(' GPC-SLOTS 2 ',"$black on_$bgcred"); print colored(' C = RETURN |',"$boldblack on_$bgcblack"); print"\n"; print colored('| EXIT = QUIT ',"$boldblack on_$bgcblack"); print colored(' /--------------------------------\\ ',"$boldred on_$bgcred"); print colored('TO CASINO MENU|',"$boldblack on_$bgcblack"); print"\n"; } } sub ruskie0rlv { if ($ruskieold == 1) { print colored('| |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('| |',"$boldmagenta on_$bgcmagenta"); print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; print colored('| 5555 |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldmagenta on_$bgcmagenta");print"\n"; } else { ruskieleft1(); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft2(); print colored('---------------',"$boldblack on_$bgcblack"); print colored('/\\',"$boldblack on_$bgcwhite"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft3(); print colored('------------',"$boldblack on_$bgcblack"); print colored('/ ____ \\',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; ruskieleft11(); print colored('---',"$boldblack on_$bgcblack"); print colored('\\ |||| /',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('| |',"$boldred on_$bgcred");print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; ruskieleft20(); print colored('------------',"$boldblack on_$bgcblack"); print colored('\\______/',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft21(); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred");print"\n"; } } sub ruskie1rlv { if ($ruskieold == 1) { print colored('| |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('| |',"$boldmagenta on_$bgcmagenta"); print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; print colored('| 5555 |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldmagenta on_$bgcmagenta");print"\n"; } else { ruskieleft1(); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft2(); print colored('---------------',"$boldblack on_$bgcblack"); print colored('/\\',"$boldblack on_$bgcwhite"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft3(); print colored('------------',"$boldblack on_$bgcblack"); print colored('/ ____ \\',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; ruskieleft11(); print colored('---',"$boldblack on_$bgcblack"); print colored('\\ |||| /',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('| |',"$boldred on_$bgcred");print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; ruskieleft20(); print colored('------------',"$boldblack on_$bgcblack"); print colored('\\______/',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft21(); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred");print"\n"; } } sub ruskie2rlv { if ($ruskieold == 1) { print colored('| |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('| |',"$boldmagenta on_$bgcmagenta"); print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; print colored('| 5555 |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldmagenta on_$bgcmagenta");print"\n"; } else { ruskieleft1(); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft2(); print colored('---------------',"$boldblack on_$bgcblack"); print colored('/\\',"$boldblack on_$bgcwhite"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft3(); print colored('------------',"$boldblack on_$bgcblack"); print colored('/ ____ \\',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; ruskieleft11(); print colored('---',"$boldblack on_$bgcblack"); print colored('\\ |||| /',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('| |',"$boldred on_$bgcred");print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; ruskieleft20(); print colored('------------',"$boldblack on_$bgcblack"); print colored('\\______/',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft21(); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred");print"\n"; } } sub ruskie3rlv { if ($ruskieold == 1) { print colored('| |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('| |',"$boldmagenta on_$bgcmagenta"); print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; print colored('| 5555 |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldmagenta on_$bgcmagenta");print"\n"; } else { ruskieleft1(); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft2(); print colored('---------------',"$boldblack on_$bgcblack"); print colored('/\\',"$boldblack on_$bgcwhite"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft3(); print colored('------------',"$boldblack on_$bgcblack"); print colored('/ ____ \\',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; ruskieleft11(); print colored('---',"$boldblack on_$bgcblack"); print colored('\\ |||| /',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('| |',"$boldred on_$bgcred");print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; ruskieleft20(); print colored('------------',"$boldblack on_$bgcblack"); print colored('\\______/',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft21(); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred");print"\n"; } } sub ruskie4rlv { if ($ruskieold == 1) { print colored('| |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('| |',"$boldmagenta on_$bgcmagenta"); print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; print colored('| 5555 |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldmagenta on_$bgcmagenta");print"\n"; } else { ruskieleft1(); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft2(); print colored('---------------',"$boldblack on_$bgcblack"); print colored('/\\',"$boldblack on_$bgcwhite"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft3(); print colored('------------',"$boldblack on_$bgcblack"); print colored('/ ____ \\',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; ruskieleft11(); print colored('---',"$boldblack on_$bgcblack"); print colored('\\ |||| /',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('| |',"$boldred on_$bgcred");print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; ruskieleft20(); print colored('------------',"$boldblack on_$bgcblack"); print colored('\\______/',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft21(); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred");print"\n"; } } sub ruskie5rlv { if ($ruskieold == 1) { print colored('| |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('| |',"$boldmagenta on_$bgcmagenta"); print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; print colored('| 5555 |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldmagenta on_$bgcmagenta");print"\n"; } else { ruskieleft1(); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft2(); print colored('---------------',"$boldblack on_$bgcblack"); print colored('/\\',"$boldblack on_$bgcwhite"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft3(); print colored('------------',"$boldblack on_$bgcblack"); print colored('/ ____ \\',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; ruskieleft11(); print colored('---',"$boldblack on_$bgcblack"); print colored('\\ |||| /',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('| |',"$boldred on_$bgcred");print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; ruskieleft20(); print colored('------------',"$boldblack on_$bgcblack"); print colored('\\______/',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft21(); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred");print"\n"; } } sub ruskie6rlv { if ($ruskieold == 1) { print colored('| |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('| |',"$boldmagenta on_$bgcmagenta"); print"\n"; 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"; 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"; print colored('| 222 222 |',"$boldmagenta on_$bgcmagenta"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('/ /',"$boldblack on_$bgcwhite"); print colored('.*,X',"$boldyellow on_$bgcred"); print colored('\ \\',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('| 25 or Your Life |',"$boldmagenta on_$bgcmagenta");print"\n"; print colored('| 222 |',"$boldmagenta on_$bgcmagenta"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('',"$boldblack on_$bgcwhite"); print colored('|*>~>|',"$boldyellow on_$bgcred"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('| |',"$boldmagenta on_$bgcmagenta");print"\n"; print colored('| 2222 |',"$boldmagenta on_$bgcmagenta"); print colored('----------',"$boldblack on_$bgcblack"); print colored('/\\ \\',"$boldblack on_$bgcwhite"); print colored('x\/#',"$boldyellow on_$bgcred"); print colored('/ /\\',"$boldblack on_$bgcwhite"); print colored('----------',"$boldblack on_$bgcblack");print colored('| |',"$boldmagenta on_$bgcmagenta");print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; print colored('| 5555 |',"$boldmagenta on_$bgcmagenta"); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldmagenta on_$bgcmagenta");print"\n"; } else { ruskieleft1(); print colored('--------------------------------',"$boldblack on_$bgcblack");print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft2(); print colored('---------------',"$boldblack on_$bgcblack"); print colored('/\\',"$boldblack on_$bgcwhite"); print colored('---------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft3(); print colored('------------',"$boldblack on_$bgcblack"); print colored('/ ____ \\',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft4(); print colored('-----------',"$boldblack on_$bgcblack"); print colored('/ /',"$boldblack on_$bgcwhite"); print colored('.*,X',"$boldyellow on_$bgcred"); print colored('\ \\',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('| 25 or Your Life |',"$boldred on_$bgcred");print"\n"; ruskieleft5(); print colored('-----------',"$boldblack on_$bgcblack"); print colored('| ',"$boldblack on_$bgcwhite"); print colored('',"$boldblack on_$bgcwhite"); print colored('|*>~>|',"$boldyellow on_$bgcred"); print colored(' |',"$boldblack on_$bgcwhite"); print colored('-----------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred");print"\n"; ruskieleft6(); print colored('----------',"$boldblack on_$bgcblack"); print colored('/\\ \\',"$boldblack on_$bgcwhite"); print colored('x\/#',"$boldyellow on_$bgcred"); print colored('/ /\\',"$boldblack on_$bgcwhite"); print colored('----------',"$boldblack on_$bgcblack");print colored('| |',"$boldred on_$bgcred");print"\n"; 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"; 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"; 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"; 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"; ruskieleft11(); print colored('---',"$boldblack on_$bgcblack"); print colored('\\ |||| /',"$boldblack on_$bgcwhite"); print colored('---',"$boldblack on_$bgcblack");print colored('| |',"$boldred on_$bgcred");print"\n"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; 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"; ruskieleft20(); print colored('------------',"$boldblack on_$bgcblack"); print colored('\\______/',"$boldblack on_$bgcwhite"); print colored('------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred"); print"\n"; ruskieleft21(); print colored('--------------------------------',"$boldblack on_$bgcblack"); print colored('| |',"$boldred on_$bgcred");print"\n"; } } sub ruskiebottom { if ($ruskieold == 1) { print colored('| 5555 \\--------------------------------/ |',"$boldmagenta on_$bgcmagenta"); print"\n"; print colored('| 5555 ',"$boldmagenta on_$bgcmagenta"); print colored(' |',"$boldblack on_$bgcblack"); print"\n"; print colored('| 555555555555 ',"$boldmagenta on_$bgcmagenta"); print colored('<> RUSSIAN ROULETTE <> ',"$boldyellow on_$bgcmagenta"); print colored(' FUNDS ',"$boldblack on_$bgcblack"); ruskietotal(); print colored(' |',"$boldblack on_$bgcblack"); print"\n"; print colored('| ',"$boldmagenta on_$bgcmagenta"); print colored(' |',"$boldblack on_$bgcblack"); print"\n"; print colored('\__________________________________________________________',"$boldmagenta on_$bgcmagenta"); print colored('____________________/',"$boldblack on_$bgcblack"); print"\n"; } else { print colored('|',"$boldred on_$bgcred"); print colored(' *** ',"$boldyellow on_$bgcred"); print colored(' 5555 \\--------------------------------/ |',"$boldred on_$bgcred"); print"\n"; print colored('|',"$boldred on_$bgcred"); print colored(' * *',"$boldyellow on_$bgcred"); print colored(' 5555 ',"$boldred on_$bgcred"); print colored(' |',"$boldblack on_$bgcblack"); print"\n"; print colored('| 555555555555 ',"$boldred on_$bgcred"); print colored(' RUSSIAN ROULETTE ',"$boldred on_$bgcred"); print colored(' FUNDS ',"$boldblack on_$bgcblack"); ruskietotal(); print colored(' |',"$boldblack on_$bgcblack"); print"\n"; print colored('| ',"$boldred on_$bgcred"); print colored(' |',"$boldblack on_$bgcblack"); print"\n"; print colored('\__________________________________________________________',"$boldred on_$bgcred"); print colored('____________________/',"$boldblack on_$bgcblack"); print"\n"; } } sub ruskiebutton1 { print colored('IIIIIIIIIIIIIII',"$boldblack on_$bgcwhite"); } sub ruskiebutton2 { print colored('I',"$boldblack on_$bgcwhite"); print colored('| . . . . . |',"$boldblack on_$bgcblack"); print colored('I',"$boldblack on_$bgcwhite"); } sub ruskiebutton4 { print colored('I',"$boldblack on_$bgcwhite"); print colored('| . PRESS . |',"$boldblack on_$bgcblack"); print colored('I',"$boldblack on_$bgcwhite"); } sub ruskiebutton6 { print colored('I',"$boldblack on_$bgcwhite"); print colored('| . . . . . |',"$boldblack on_$bgcblack"); print colored('I',"$boldblack on_$bgcwhite"); } sub ruskiebutton7 { print colored('I',"$boldblack on_$bgcwhite"); print colored('|___________|',"$boldblack on_$bgcblack"); print colored('I',"$boldblack on_$bgcwhite"); } sub ruskiebutton8 { print colored('IIIIIIIIIIIIIII',"$boldblack on_$bgcwhite"); } sub ruskieleft1 { print colored('| |',"$boldred on_$bgcred"); } sub ruskieleft2 { print colored('| 2222222 |',"$boldred on_$bgcred"); } sub ruskieleft3 { print colored('| 2222222222222 |',"$boldred on_$bgcred"); } sub ruskieleft4 { print colored('| 222 222 |',"$boldred on_$bgcred"); } sub ruskieleft5 { print colored('| 222 |',"$boldred on_$bgcred"); } sub ruskieleft6 { print colored('| 2222 |',"$boldred on_$bgcred"); } sub ruskieleft7 { print colored('| 2222 |',"$boldred on_$bgcred"); } sub ruskieleft8 { print colored('| 2222 |',"$boldred on_$bgcred"); } sub ruskieleft9 { print colored('| 2222 |',"$boldred on_$bgcred"); } sub ruskieleft10 { print colored('| 2222 |',"$boldred on_$bgcred"); } sub ruskieleft11 { print colored('| 222222222222222 |',"$boldred on_$bgcred"); } sub ruskieleft12 { print colored('| |',"$boldred on_$bgcred"); } sub ruskieleft13 { print colored('| 555555555555555 |',"$boldred on_$bgcred"); } sub ruskieleft14 { print colored('| 555555555555555 |',"$boldred on_$bgcred"); } sub ruskieleft15 { print colored('| 5555 |',"$boldred on_$bgcred"); } sub ruskieleft16 { print colored('| 5555 |',"$boldred on_$bgcred"); } sub ruskieleft17 { print colored('| 5555 |',"$boldred on_$bgcred"); } sub ruskieleft18 { print colored('| 55555555 |',"$boldred on_$bgcred"); } sub ruskieleft19 { print colored('| 555555555 |',"$boldred on_$bgcred"); } sub ruskieleft20 { print colored('|',"$boldred on_$bgcred"); print colored(' * ',"$boldyellow on_$bgcred"); print colored(' 5555 |',"$boldred on_$bgcred"); } sub ruskieleft21 { print colored('|',"$boldred on_$bgcred"); print colored(' *****',"$boldyellow on_$bgcred"); print colored(' 5555 |',"$boldred on_$bgcred"); } sub ruskiemain { if ($ruskierand == 0) { ruskie1rlv(); } elsif ($ruskierand == 1) { ruskie2rlv(); } elsif ($ruskierand == 2) { ruskie3rlv(); } elsif ($ruskierand == 3) { ruskie4rlv(); } elsif ($ruskierand == 4) { ruskie5rlv(); } elsif ($ruskierand == 5) { if ($ruskie2rand == 42) { ruskie0rlv(); } else { ruskie6rlv(); ruskiebottom(); if ($soundfx == 1) { print"\a"; } $ruskiedie = <STDIN>; chomp($ruskiedie); ruskiedeath(); } } else { ruskie0rlv(); } } sub ruskiepay { if ($money >= 10000000000000000000000000) { $ruskiemulti = $money * 0.01; } elsif ($money >= 1000000000000000000000000) { $ruskiemulti = 10000000000000000000000; } elsif ($money >= 100000000000000000000000) { $ruskiemulti = 1000000000000000000000; } elsif ($money >= 10000000000000000000000) { $ruskiemulti = 100000000000000000000; } elsif ($money >= 1000000000000000000000) { $ruskiemulti = 10000000000000000000; } elsif ($money >= 100000000000000000000) { $ruskiemulti = 1000000000000000000; } elsif ($money >= 10000000000000000000) { $ruskiemulti = 100000000000000000; } elsif ($money >= 1000000000000000000) { $ruskiemulti = 10000000000000000; } elsif ($money >= 100000000000000000) { $ruskiemulti = 1000000000000000; } elsif ($money >= 10000000000000000) { $ruskiemulti = 100000000000000; } elsif ($money >= 1000000000000000) { $ruskiemulti = 10000000000000; } elsif ($money >= 100000000000000) { $ruskiemulti = 1000000000000; } elsif ($money >= 10000000000000) { $ruskiemulti = 100000000000; } elsif ($money >= 1000000000000) { $ruskiemulti = 10000000000; } elsif ($money >= 100000000000) { $ruskiemulti = 1000000000; } elsif ($money >= 10000000000) { $ruskiemulti = 100000000; } elsif ($money >= 1000000000) { $ruskiemulti = 10000000; } elsif ($money >= 100000000) { $ruskiemulti = 1000000; } elsif ($money >= 10000000) { $ruskiemulti = 100000; } elsif ($money >= 1000000) { $ruskiemulti = 10000; } elsif ($money >= 100000) { $ruskiemulti = 1000; } elsif ($money >= 10000) { $ruskiemulti = 100; } elsif ($money >= 1000) { $ruskiemulti = 10; } else { $ruskiemulti = 1; } if ($ruskierand == 0) { $ruskiemoney = 25 * $ruskiemulti; $rrstwin = $rrstwin + 1; } elsif ($ruskierand == 1) { $ruskiemoney = 25 * $ruskiemulti; $rrstwin = $rrstwin + 1; } elsif ($ruskierand == 2) { $ruskiemoney = 25 * $ruskiemulti; $rrstwin = $rrstwin + 1; } elsif ($ruskierand == 3) { $ruskiemoney = 25 * $ruskiemulti; $rrstwin = $rrstwin + 1; } elsif ($ruskierand == 4) { $ruskiemoney = 25 * $ruskiemulti; $rrstwin = $rrstwin + 1; } elsif ($ruskierand == 5) { if ($ruskie2rand == 42) { $ruskiemoney = 250 * $ruskiemulti; $rrstwin = $rrstwin + 1; } else { $ruskiemoney = 0; $rrstlose = $rrstlose + 1; $rrstmc2 = 'life'; } } else { $ruskiemoney = 25; $rrstwin = $rrstwin + 1; } $money = $money + $ruskiemoney; $rrstmc = $rrstmc + $ruskiemoney; $ruskiemoney = 0; } sub ruskiestart { $ruskiestartinfo = <STDIN>; chomp($ruskiestartinfo); if (($ruskiestartinfo eq 'p') or ($ruskiestartinfo eq 'P') or ($ruskiestartinfo eq 'a') or ($ruskiestartinfo eq 'A')) { $ruskiestspin = $ruskiestspin + 1; ruskieroll(); } elsif (($ruskiestartinfo eq 'exit') or ($ruskiestartinfo eq 'EXIT') or ($ruskiestartinfo eq 'quit') or ($ruskiestartinfo eq 'QUIT')) { exitgame(); } elsif (($ruskiestartinfo eq 'c') or ($ruskiestartinfo eq 'C')) { newlines(); if (($music == 1) and ($ruskieold == 0)) { killmusic(); $music = 1; beginmusic(); } else { #NOTHING! } return; } else { ruskieroll2(); } } sub ruskiespin { $ruskierand = int(rand(6)); $ruskie2rand = int(rand(80)); } sub ruskieroll2 { newlines(); ruskietop(); ruskiemain(); ruskiebottom(); ruskiestart(); } sub ruskieroll { newlines(); if ($animate == 1) { ruskiespin(); $ruskie2rand = 42; ruskietop(); ruskiemain(); ruskiebottom(); tinypause(); newlines(); ruskiespin(); $ruskie2rand = 42; ruskietop(); ruskiemain(); ruskiebottom(); tinypause(); newlines(); ruskiespin(); $ruskie2rand = 42; ruskietop(); ruskiemain(); ruskiebottom(); tinypause(); newlines(); ruskiespin(); $ruskie2rand = 42; ruskietop(); ruskiemain(); ruskiebottom(); tinypause(); newlines(); } ruskiespin(); ruskietop(); ruskiemain(); ruskiepay(); ruskiebottom(); ptracker(); ruskiestart(); } sub ruskietotal { sep; if ($money > 9999999999) { print colored(sprintf("%.4e", $money),"$boldgreen on_$bgcgreen"); } elsif ($money >= 1000000000) { print colored("$money","$boldgreen on_$bgcgreen"); } elsif ($money >= 100000000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 10000000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 1000000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 100000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 10000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 1000) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 100) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 10) { print colored(" $money","$boldgreen on_$bgcgreen"); } elsif ($money >= 1) { print colored(" $money","$boldgreen on_$bgcgreen"); } else { print colored(" $money","$boldgreen on_$bgcgreen"); } sep; } sub ruskiedeath { newlines(); killmusic(); if ($allowsave == 1) { zerosavefile(); } newlines(); $titlecolor = "$blue"; print colored(' ',"$boldyellow on_$bgcred"); print"\n"; print colored(' ',"$boldyellow on_$bgcred"); print"\n"; print colored(' ',"$boldyellow on_$bgcred"); print"\n"; print colored("$namedeath","$boldyellow on_$bgcred"); print"\n"; print colored(" GENERAL PUBLIC ","$boldyellow on_$bgcred"); print"\n"; print colored(" ","$boldyellow on_$bgcred"); print"\n"; print colored(' SSSSSS IIIIIIIIIII ',"$titlecolor on_$bgcred"); print"\n"; print colored(' SSSSSSSSSS IIIIIIIIIIIII ',"bold $titlecolor on_$bgcred"); print"\n"; print colored(' SSSS SSSS IIIII ',"$titlecolor on_$bgcred"); print"\n"; print colored(' A SSS IIIII NNNN NNNNN ',"bold $titlecolor on_$bgcred"); print"\n"; print colored(' AAA SSSS IIIII NNNNN NNN ',"$titlecolor on_$bgcred"); print"\n"; print colored(' AAAAA SSSSSSSSS IIIII NNNNNN NNN ',"bold $titlecolor on_$bgcred"); print"\n"; print colored(' AAAAAAA SSSSSSSSS IIIII NNNNNNN NNN ',"$titlecolor on_$bgcred"); print"\n"; print colored(' CCCCCC AAAA AAAA SSSS IIIII NNN NNNN NNN OOOOOOO ',"bold $titlecolor on_$bgcred"); print"\n"; print colored(' CCCCCCCCCC AAA AAA SSS IIIII NNN NNNN NNN OOOOOOOOOOO ',"$titlecolor on_$bgcred"); print"\n"; print colored(' CCCC CCCC AAAAAAAAA SSSS SSSS IIIII NNN NNNNNNN OOOOO OOOOO',"bold $titlecolor on_$bgcred"); print"\n"; print colored(' CCC AAA AAA SSSSSSSSSS IIIIIIIIIIIII NNN NNNNNN OOOO OOOO',"$titlecolor on_$bgcred"); print"\n"; print colored(' CCC AAA AAA SSSSSS IIIIIIIIIII NNN NNNNN OOOO OOOO',"bold $titlecolor on_$bgcred"); print"\n"; print colored(' CCCC CCCC AAA AAA NNNNN NNNN OOOOO OOOOO',"$titlecolor on_$bgcred"); print"\n"; print colored(' CCCCCCCCCC OOOOOOOOOOO ',"bold $titlecolor on_$bgcred"); print"\n"; print colored(' CCCCCC OOOOOOO ',"$titlecolor on_$bgcred"); print"\n"; print colored(' ',"$boldyellow on_$bgcred"); print"\n"; print colored(" version $version ","$boldblack on_$bgcred"); print"\n"; if ($moneyexp >= 10000000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcred"); print"\n"; } elsif ($moneyexp >= 1000000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcred"); print"\n"; } elsif ($moneyexp >= 100000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcred"); print"\n"; } elsif ($moneyexp >= 10000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcred"); print"\n"; } elsif ($moneyexp >= 1000000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcred"); print"\n"; } elsif ($moneyexp >= 100000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcred"); print"\n"; } elsif ($moneyexp >= 10000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcred"); print"\n"; } elsif ($moneyexp >= 1000) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcred"); print"\n"; } elsif ($moneyexp >= 100) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcred"); print"\n"; } elsif ($moneyexp >= 10) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcred"); print"\n"; } elsif ($moneyexp >= 0) { print colored(" Expended Cash: $moneyexp ","$white on_$bgcred"); print"\n"; } else { print colored(" Expended Cash: $moneyexp ","$white on_$bgcred"); print"\n"; } if ($money >= 10000000000) { print colored(" Aquired Wealth: $money ","$white on_$bgcred"); print"\n"; } elsif ($money >= 1000000000) { print colored(" Aquired Wealth: $money ","$white on_$bgcred"); print"\n"; } elsif ($money >= 100000000) { print colored(" Aquired Wealth: $money ","$white on_$bgcred"); print"\n"; } elsif ($money >= 10000000) { print colored(" Aquired Wealth: $money ","$white on_$bgcred"); print"\n"; } elsif ($moneyexp >= 1000000) { print colored(" Aquired Wealth: $money ","$white on_$bgcred"); print"\n"; } elsif ($money >= 100000) { print colored(" Aquired Wealth: $money ","$white on_$bgcred"); print"\n"; } elsif ($money >= 10000) { print colored(" Aquired Wealth: $money ","$white on_$bgcred"); print"\n"; } elsif ($money >= 1000) { print colored(" Aquired Wealth: $money ","$white on_$bgcred"); print"\n"; } elsif ($money >= 100) { print colored(" Aquired Wealth: $money ","$white on_$bgcred"); print"\n"; } elsif ($money >= 10) { print colored(" Aquired Wealth: $money ","$white on_$bgcred"); print"\n"; } elsif ($money >= 0) { print colored(" Aquired Wealth: $money ","$white on_$bgcred"); print"\n"; } else { print colored(" Aquired Wealth: $money ","$white on_$bgcred"); print"\n"; } print colored(' ',"$boldyellow on_$bgcred"); print"\n"; print colored(' ',"$boldyellow on_$bgcred"); print"\n"; print colored(' ',"$boldyellow on_$bgcred"); print"\n"; print colored(' ',"$boldyellow on_$bgcred"); print"\n"; sleep(2); exit(); } ################################################################################################################################ ## GENRE: Roulette ## NAME: Monte Carlo Roulette ## AUTHOR: MikeeUSA sub lvrmainspin1 { lvrreset(); lvrcolorsg(); if ($animate == 1) { $lvrreelspin = 2; lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); p4pause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); p4pause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); p4pause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); p4pause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); p4pause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); p4pause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); p4pause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); p4pause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); p7pause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); p7pause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); p7pause(); newlines(); $lvrreelspin = 1; lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); p7pause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); p7pause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); p7pause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); p7pause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); tinypause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); tinypause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); tinypause(); newlines(); lvrstdcomp(); lvrspin(); lvrwheel(); lvrprintmain(); smallpause(); newlines(); } $lvrreelspin = 0; lvrstdcomp(); lvrspin(); lvrwheel(); lvraddmoney(); if ((($lvrstart2 eq 'T1') or ($lvrstart2 eq 'T2') or ($lvrstart2 eq 'T3') or ($lvrstart2 eq 'F1') or ($lvrstart2 eq 'F2') or ($lvrstart2 eq 'F3') or ($lvrstart2 eq 'F4')) and (($lvrwinnbr == 37))) { if (($lvrsetup == 0) and ($lvrimprison != 0)) { lvrnbrreset(); $lvrstart2 = ' '; } } lvrprintmain(); ptracker(); lvrstdin1(); } sub lvrmainspin2 { lvrreset(); lvrcolorsg(); lvrstdcomp(); lvrwheel(); lvrprintmain(); lvrstdin1(); } sub lvrnbrspin3 { lvrreset(); lvrcolorsg(); lvrnbrcomp(); lvrwheel(); lvrprintmain(); $lvrstart2 = <STDIN>; chomp($lvrstart2); lvrnbrreset(); if ($lvrstart2 eq '0') { $lvrb0p = 1; } elsif ($lvrstart2 eq '1') { $lvrb1p = 1; } elsif ($lvrstart2 eq '2') { $lvrb2p = 1; } elsif ($lvrstart2 eq '3') { $lvrb3p = 1; } elsif ($lvrstart2 eq '4') { $lvrb4p = 1; } elsif ($lvrstart2 eq '5') { $lvrb5p = 1; } elsif ($lvrstart2 eq '6') { $lvrb6p = 1; } elsif ($lvrstart2 eq '7') { $lvrb7p = 1; } elsif ($lvrstart2 eq '8') { $lvrb8p = 1; } elsif ($lvrstart2 eq '9') { $lvrb9p = 1; } elsif ($lvrstart2 eq '10') { $lvrb10p = 1; } elsif ($lvrstart2 eq '11') { $lvrb11p = 1; } elsif ($lvrstart2 eq '12') { $lvrb12p = 1; } elsif ($lvrstart2 eq '13') { $lvrb13p = 1; } elsif ($lvrstart2 eq '14') { $lvrb14p = 1; } elsif ($lvrstart2 eq '15') { $lvrb15p = 1; } elsif ($lvrstart2 eq '16') { $lvrb16p = 1; } elsif ($lvrstart2 eq '17') { $lvrb17p = 1; } elsif ($lvrstart2 eq '18') { $lvrb18p = 1; } elsif ($lvrstart2 eq '19') { $lvrb19p = 1; } elsif ($lvrstart2 eq '20') { $lvrb20p = 1; } elsif ($lvrstart2 eq '21') { $lvrb21p = 1; } elsif ($lvrstart2 eq '22') { $lvrb22p = 1; } elsif ($lvrstart2 eq '23') { $lvrb23p = 1; } elsif ($lvrstart2 eq '24') { $lvrb24p = 1; } elsif ($lvrstart2 eq '25') { $lvrb25p = 1; } elsif ($lvrstart2 eq '26') { $lvrb26p = 1; } elsif ($lvrstart2 eq '27') { $lvrb27p = 1; } elsif ($lvrstart2 eq '28') { $lvrb28p = 1; } elsif ($lvrstart2 eq '29') { $lvrb29p = 1; } elsif ($lvrstart2 eq '30') { $lvrb30p = 1; } elsif ($lvrstart2 eq '31') { $lvrb31p = 1; } elsif ($lvrstart2 eq '32') { $lvrb32p = 1; } elsif ($lvrstart2 eq '33') { $lvrb33p = 1; } elsif ($lvrstart2 eq '34') { $lvrb34p = 1; } elsif ($lvrstart2 eq '35') { $lvrb35p = 1; } elsif ($lvrstart2 eq '36') { $lvrb36p = 1; } elsif (($lvrstart2 eq 'even') or ($lvrstart2 eq 'EVEN')) { $lvrstart2 = 'EVEN'; $lvrb2p = 1; $lvrb4p = 1; $lvrb6p = 1; $lvrb8p = 1; $lvrb10p = 1; $lvrb12p = 1; $lvrb14p = 1; $lvrb16p = 1; $lvrb18p = 1; $lvrb20p = 1; $lvrb22p = 1; $lvrb24p = 1; $lvrb26p = 1; $lvrb28p = 1; $lvrb30p = 1; $lvrb32p = 1; $lvrb34p = 1; $lvrb36p = 1; } elsif (($lvrstart2 eq 'odd') or ($lvrstart2 eq 'ODD')) { $lvrstart2 = 'ODD'; $lvrb1p = 1; $lvrb3p = 1; $lvrb5p = 1; $lvrb7p = 1; $lvrb9p = 1; $lvrb11p = 1; $lvrb13p = 1; $lvrb15p = 1; $lvrb17p = 1; $lvrb19p = 1; $lvrb21p = 1; $lvrb23p = 1; $lvrb25p = 1; $lvrb27p = 1; $lvrb29p = 1; $lvrb31p = 1; $lvrb33p = 1; $lvrb35p = 1; } elsif (($lvrstart2 eq 'lower18') or ($lvrstart2 eq 'LOWER18')) { $lvrstart2 = 'LOWER18'; $lvrb1p = 1; $lvrb2p = 1; $lvrb3p = 1; $lvrb4p = 1; $lvrb5p = 1; $lvrb6p = 1; $lvrb7p = 1; $lvrb8p = 1; $lvrb9p = 1; $lvrb10p = 1; $lvrb11p = 1; $lvrb12p = 1; $lvrb13p = 1; $lvrb14p = 1; $lvrb15p = 1; $lvrb16p = 1; $lvrb17p = 1; $lvrb18p = 1; } elsif (($lvrstart2 eq 'upper18') or ($lvrstart2 eq 'UPPER18')) { $lvrstart2 = 'UPPER18'; $lvrb19p = 1; $lvrb20p = 1; $lvrb21p = 1; $lvrb22p = 1; $lvrb23p = 1; $lvrb24p = 1; $lvrb25p = 1; $lvrb26p = 1; $lvrb27p = 1; $lvrb28p = 1; $lvrb29p = 1; $lvrb30p = 1; $lvrb31p = 1; $lvrb32p = 1; $lvrb33p = 1; $lvrb34p = 1; $lvrb35p = 1; $lvrb36p = 1; } elsif (($lvrstart2 eq 'c1') or ($lvrstart2 eq 'C1')) { $lvrstart2 = 'C1'; $lvrb1p = 1; $lvrb4p = 1; $lvrb7p = 1; $lvrb10p = 1; $lvrb13p = 1; $lvrb16p = 1; $lvrb19p = 1; $lvrb22p = 1; $lvrb25p = 1; $lvrb28p = 1; $lvrb31p = 1; $lvrb34p = 1; } elsif (($lvrstart2 eq 'c2') or ($lvrstart2 eq 'C2')) { $lvrstart2 = 'C2'; $lvrb2p = 1; $lvrb5p = 1; $lvrb8p = 1; $lvrb11p = 1; $lvrb14p = 1; $lvrb17p = 1; $lvrb20p = 1; $lvrb23p = 1; $lvrb26p = 1; $lvrb29p = 1; $lvrb32p = 1; $lvrb35p = 1; } elsif (($lvrstart2 eq 'c3') or ($lvrstart2 eq 'C3')) { $lvrstart2 = 'C3'; $lvrb3p = 1; $lvrb6p = 1; $lvrb9p = 1; $lvrb12p = 1; $lvrb15p = 1; $lvrb18p = 1; $lvrb21p = 1; $lvrb24p = 1; $lvrb27p = 1; $lvrb30p = 1; $lvrb33p = 1; $lvrb36p = 1; } elsif (($lvrstart2 eq 'g1') or ($lvrstart2 eq 'G1')) { $lvrstart2 = 'G1'; $lvrb1p = 1; $lvrb2p = 1; $lvrb3p = 1; $lvrb4p = 1; $lvrb5p = 1; $lvrb6p = 1; $lvrb7p = 1; $lvrb8p = 1; $lvrb9p = 1; } elsif (($lvrstart2 eq 'g2') or ($lvrstart2 eq 'G2')) { $lvrstart2 = 'G2'; $lvrb10p = 1; $lvrb11p = 1; $lvrb12p = 1; $lvrb13p = 1; $lvrb14p = 1; $lvrb15p = 1; $lvrb16p = 1; $lvrb17p = 1; $lvrb18p = 1; } elsif (($lvrstart2 eq 'g3') or ($lvrstart2 eq 'G3')) { $lvrstart2 = 'G3'; $lvrb19p = 1; $lvrb20p = 1; $lvrb21p = 1; $lvrb22p = 1; $lvrb23p = 1; $lvrb24p = 1; $lvrb25p = 1; $lvrb26p = 1; $lvrb27p = 1; } elsif (($lvrstart2 eq 'g4') or ($lvrstart2 eq 'G4')) { $lvrstart2 = 'G4'; $lvrb28p = 1; $lvrb29p = 1; $lvrb30p = 1; $lvrb31p = 1; $lvrb32p = 1; $lvrb33p = 1; $lvrb34p = 1; $lvrb35p = 1; $lvrb36p = 1; } elsif (($lvrstart2 eq 'l1') or ($lvrstart2 eq 'L1')) { $lvrstart2 = 'L1'; $lvrb1p = 1; $lvrb2p = 1; $lvrb3p = 1; } elsif (($lvrstart2 eq 'l2') or ($lvrstart2 eq 'L2')) { $lvrstart2 = 'L2'; $lvrb4p = 1; $lvrb5p = 1; $lvrb6p = 1; } elsif (($lvrstart2 eq 'l3') or ($lvrstart2 eq 'L3')) { $lvrstart2 = 'L3'; $lvrb7p = 1; $lvrb8p = 1; $lvrb9p = 1; } elsif (($lvrstart2 eq 'l4') or ($lvrstart2 eq 'L4')) { $lvrstart2 = 'L4'; $lvrb10p = 1; $lvrb11p = 1; $lvrb12p = 1; } elsif (($lvrstart2 eq 'l5') or ($lvrstart2 eq 'L5')) { $lvrstart2 = 'L5'; $lvrb13p = 1; $lvrb14p = 1; $lvrb15p = 1; } elsif (($lvrstart2 eq 'l6') or ($lvrstart2 eq 'L6')) { $lvrstart2 = 'L6'; $lvrb16p = 1; $lvrb17p = 1; $lvrb18p = 1; } elsif (($lvrstart2 eq 'l7') or ($lvrstart2 eq 'L7')) { $lvrstart2 = 'L7'; $lvrb19p = 1; $lvrb20p = 1; $lvrb21p = 1; } elsif (($lvrstart2 eq 'l8') or ($lvrstart2 eq 'L8')) { $lvrstart2 = 'L8'; $lvrb22p = 1; $lvrb23p = 1; $lvrb24p = 1; } elsif (($lvrstart2 eq 'l9') or ($lvrstart2 eq 'L9')) { $lvrstart2 = 'L9'; $lvrb25p = 1; $lvrb26p = 1; $lvrb27p = 1; } elsif (($lvrstart2 eq 'l10') or ($lvrstart2 eq 'L10')) { $lvrstart2 = 'L10'; $lvrb28p = 1; $lvrb29p = 1; $lvrb30p = 1; } elsif (($lvrstart2 eq 'l11') or ($lvrstart2 eq 'L11')) { $lvrstart2 = 'L11'; $lvrb31p = 1; $lvrb32p = 1; $lvrb33p = 1; } elsif (($lvrstart2 eq 'l12') or ($lvrstart2 eq 'L12')) { $lvrstart2 = 'L12'; $lvrb34p = 1; $lvrb35p = 1; $lvrb36p = 1; } elsif (($lvrstart2 eq 'zc') or ($lvrstart2 eq 'ZC')) { $lvrstart2 = 'ZC'; $lvrb0p = 1; $lvrb1p = 1; $lvrb2p = 1; $lvrb3p = 1; } elsif (($lvrstart2 eq 'f1') or ($lvrstart2 eq 'F1')) { if (($lvrsetup == 0) and ($lvrimprison != 0)) { $lvrstart2 = ' '; } else { $lvrstart2 = 'F1'; $lvrb1p = 1; $lvrb2p = 1; $lvrb3p = 1; $lvrb4p = 1; $lvrb5p = 1; $lvrb6p = 1; $lvrb7p = 1; $lvrb8p = 1; $lvrb9p = 1; $lvrb10p = 1; $lvrb11p = 1; $lvrb12p = 1; $lvrb13p = 1; $lvrb14p = 1; $lvrb15p = 1; $lvrb16p = 1; $lvrb17p = 1; $lvrb18p = 1; $lvrb19p = 1; $lvrb20p = 1; $lvrb21p = 1; $lvrb22p = 1; $lvrb23p = 1; $lvrb24p = 1; $lvrb25p = 1; $lvrb26p = 1; $lvrb27p = 1; } } elsif (($lvrstart2 eq 'f2') or ($lvrstart2 eq 'F2')) { if (($lvrsetup == 0) and ($lvrimprison != 0)) { $lvrstart2 = ' '; } else { $lvrstart2 = 'F2'; $lvrb10p = 1; $lvrb11p = 1; $lvrb12p = 1; $lvrb13p = 1; $lvrb14p = 1; $lvrb15p = 1; $lvrb16p = 1; $lvrb17p = 1; $lvrb18p = 1; $lvrb19p = 1; $lvrb20p = 1; $lvrb21p = 1; $lvrb22p = 1; $lvrb23p = 1; $lvrb24p = 1; $lvrb25p = 1; $lvrb26p = 1; $lvrb27p = 1; $lvrb28p = 1; $lvrb29p = 1; $lvrb30p = 1; $lvrb31p = 1; $lvrb32p = 1; $lvrb33p = 1; $lvrb34p = 1; $lvrb35p = 1; $lvrb36p = 1; } } elsif (($lvrstart2 eq 'f3') or ($lvrstart2 eq 'F3')) { if (($lvrsetup == 0) and ($lvrimprison != 0)) { $lvrstart2 = ' '; } else { $lvrstart2 = 'F3'; $lvrb1p = 1; $lvrb2p = 1; $lvrb3p = 1; $lvrb4p = 1; $lvrb5p = 1; $lvrb6p = 1; $lvrb7p = 1; $lvrb8p = 1; $lvrb9p = 1; $lvrb19p = 1; $lvrb20p = 1; $lvrb21p = 1; $lvrb22p = 1; $lvrb23p = 1; $lvrb24p = 1; $lvrb25p = 1; $lvrb26p = 1; $lvrb27p = 1; $lvrb28p = 1; $lvrb29p = 1; $lvrb30p = 1; $lvrb31p = 1; $lvrb32p = 1; $lvrb33p = 1; $lvrb34p = 1; $lvrb35p = 1; $lvrb36p = 1; } } elsif (($lvrstart2 eq 'f4') or ($lvrstart2 eq 'F4')) { if (($lvrsetup == 0) and ($lvrimprison != 0)) { $lvrstart2 = ' '; } else { $lvrstart2 = 'F4'; $lvrb1p = 1; $lvrb2p = 1; $lvrb3p = 1; $lvrb4p = 1; $lvrb5p = 1; $lvrb6p = 1; $lvrb7p = 1; $lvrb8p = 1; $lvrb9p = 1; $lvrb10p = 1; $lvrb11p = 1; $lvrb12p = 1; $lvrb13p = 1; $lvrb14p = 1; $lvrb15p = 1; $lvrb16p = 1; $lvrb17p = 1; $lvrb18p = 1; $lvrb28p = 1; $lvrb29p = 1; $lvrb30p = 1; $lvrb31p = 1; $lvrb32p = 1; $lvrb33p = 1; $lvrb34p = 1; $lvrb35p = 1; $lvrb36p = 1; } } elsif (($lvrstart2 eq 't1') or ($lvrstart2 eq 'T1')) { if (($lvrsetup == 0) and ($lvrimprison != 0)) { $lvrstart2 = ' '; } else { $lvrstart2 = 'T1'; $lvrb1p = 1; $lvrb2p = 1; $lvrb3p = 1; $lvrb4p = 1; $lvrb5p = 1; $lvrb6p = 1; $lvrb7p = 1; $lvrb8p = 1; $lvrb9p = 1; $lvrb10p = 1; $lvrb11p = 1; $lvrb12p = 1; $lvrb13p = 1; $lvrb14p = 1; $lvrb15p = 1; $lvrb16p = 1; $lvrb17p = 1; $lvrb18p = 1; $lvrb19p = 1; $lvrb20p = 1; $lvrb21p = 1; $lvrb22p = 1; $lvrb23p = 1; $lvrb24p = 1; } } elsif (($lvrstart2 eq 't2') or ($lvrstart2 eq 'T2')) { if (($lvrsetup == 0) and ($lvrimprison != 0)) { $lvrstart2 = ' '; } else { $lvrstart2 = 'T2'; $lvrb7p = 1; $lvrb8p = 1; $lvrb9p = 1; $lvrb10p = 1; $lvrb11p = 1; $lvrb12p = 1; $lvrb13p = 1; $lvrb14p = 1; $lvrb15p = 1; $lvrb16p = 1; $lvrb17p = 1; $lvrb18p = 1; $lvrb19p = 1; $lvrb20p = 1; $lvrb21p = 1; $lvrb22p = 1; $lvrb23p = 1; $lvrb24p = 1; $lvrb25p = 1; $lvrb26p = 1; $lvrb27p = 1; $lvrb28p = 1; $lvrb29p = 1; $lvrb30p = 1; } } elsif (($lvrstart2 eq 't3') or ($lvrstart2 eq 'T3')) { if (($lvrsetup == 0) and ($lvrimprison != 0)) { $lvrstart2 = ' '; } else { $lvrstart2 = 'T3'; $lvrb13p = 1; $lvrb14p = 1; $lvrb15p = 1; $lvrb16p = 1; $lvrb17p = 1; $lvrb18p = 1; $lvrb19p = 1; $lvrb20p = 1; $lvrb21p = 1; $lvrb22p = 1; $lvrb23p = 1; $lvrb24p = 1; $lvrb25p = 1; $lvrb26p = 1; $lvrb27p = 1; $lvrb28p = 1; $lvrb29p = 1; $lvrb30p = 1; $lvrb31p = 1; $lvrb32p = 1; $lvrb33p = 1; $lvrb34p = 1; $lvrb35p = 1; $lvrb36p = 1; } } elsif (($lvrsetup == 0) and (($lvrstart2 eq 'p2') or ($lvrstart2 eq 'P2'))) { $lvrstart2 = 'P2'; $lvrb2p = 1; $lvrb4p = 1; $lvrb8p = 1; $lvrb16p = 1; $lvrb32p = 1; } elsif (($lvrstart2 eq 'v') or ($lvrstart2 eq 'V') or ($lvrstart2 eq 'voisins') or ($lvrstart2 eq 'VOISINS')) { $lvrstart2 = 'VOISINS'; $lvrbVOIp = 1; $lvrb0p = 1; $lvrb2p = 1; $lvrb3p = 1; $lvrb4p = 1; $lvrb7p = 1; $lvrb12p = 1; $lvrb15p = 1; $lvrb18p = 1; $lvrb21p = 1; $lvrb19p = 1; $lvrb22p = 1; $lvrb25p = 1; $lvrb26p = 1; $lvrb28p = 1; $lvrb29p = 1; $lvrb32p = 1; $lvrb35p = 1; } elsif (($lvrstart2 eq 't') or ($lvrstart2 eq 'T') or ($lvrstart2 eq 'tiers') or ($lvrstart2 eq 'TIERS')) { $lvrstart2 = 'TIERS'; $lvrbTIEp = 1; $lvrb5p = 1; $lvrb8p = 1; $lvrb10p = 1; $lvrb11p = 1; $lvrb13p = 1; $lvrb16p = 1; $lvrb23p = 1; $lvrb24p = 1; $lvrb27p = 1; $lvrb30p = 1; $lvrb33p = 1; $lvrb36p = 1; } elsif (($lvrstart2 eq 'o') or ($lvrstart2 eq 'O') or ($lvrstart2 eq 'orphelins') or ($lvrstart2 eq 'ORPHELINS') or ($lvrstart2 eq 'orphans') or ($lvrstart2 eq 'ORPHANS')) { $lvrstart2 = 'ORPHELINS'; $lvrbORPp = 1; $lvrb1p = 1; $lvrb6p = 1; $lvrb9p = 1; $lvrb14p = 1; $lvrb17p = 1; $lvrb20p = 1; $lvrb31p = 1; $lvrb34p = 1; } elsif ((($lvrstart2 eq 'red') and ($lvrsetup == 0) and ($lvrfuturecarlo != 1)) or (($lvrstart2 eq 'RED') and ($lvrsetup == 0) and ($lvrfuturecarlo != 1))) { $lvrstart2 = 'RED'; $lvrbRp = 1; } elsif ((($lvrstart2 eq 'magenta') and ($lvrsetup == 0) and ($lvrfuturecarlo == 1)) or (($lvrstart2 eq 'MAGENTA') and ($lvrsetup == 0) and ($lvrfuturecarlo == 1))) { $lvrstart2 = 'RED'; $lvrbRp = 1; } elsif ((($lvrstart2 eq 'blue') and ($lvrsetup == 1)) or (($lvrstart2 eq 'BLUE') and ($lvrsetup == 1))) { $lvrstart2 = 'RED'; $lvrbRp = 1; } elsif ((($lvrstart2 eq 'blue') and ($lvrsetup == 0) and ($lvrfuturecarlo == 1)) or (($lvrstart2 eq 'BLUE') and ($lvrsetup == 0) and ($lvrfuturecarlo == 1))) { $lvrstart2 = 'BLACK'; $lvrbBp = 1; } elsif (($lvrstart2 eq 'black') or ($lvrstart2 eq 'BLACK')) { if (($lvrsetup == 0) and ($lvrfuturecarlo != 1)) { $lvrstart2 = 'BLACK'; $lvrbBp = 1; } elsif ($lvrsetup == 1) { $lvrstart2 = 'BLACK'; $lvrbBp = 1; } else { $lvrstart2 = ' '; } } else { $lvrstart2 = ' '; } newlines(); lvrmainspin2(); } sub lvrreset { $lvraddmoney = 0; $lvrmoney = 0; $lvrreelspin = 0; if (($lvrsetup != 0) and ($lvrstart2 eq 'P2')) { $lvrb2p = 0; $lvrb4p = 0; $lvrb8p = 0; $lvrb16p = 0; $lvrb32p = 0; $lvrstart2 = ' '; } } sub lvraddmoney { if (($lvrwinnbr eq '37') and ($lvrstart2 eq '0')) { $lvraddmoney = $lvrbet * 36; $lvrstwin = $lvrstwin + 1; } elsif ($lvrstart2 eq 'EVEN') { if (($lvrwinnbr eq '2') or ($lvrwinnbr eq '4') or ($lvrwinnbr eq '6') or ($lvrwinnbr eq '8') or ($lvrwinnbr eq '10') or ($lvrwinnbr eq '12') or ($lvrwinnbr eq '14') or ($lvrwinnbr eq '16') or ($lvrwinnbr eq '18') or ($lvrwinnbr eq '20') or ($lvrwinnbr eq '22') or ($lvrwinnbr eq '24') or ($lvrwinnbr eq '26') or ($lvrwinnbr eq '28') or ($lvrwinnbr eq '30') or ($lvrwinnbr eq '32') or ($lvrwinnbr eq '34') or ($lvrwinnbr eq '36')) { $lvraddmoney = $lvrbet * 2; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'ODD') { if (($lvrwinnbr eq '1') or ($lvrwinnbr eq '3') or ($lvrwinnbr eq '5') or ($lvrwinnbr eq '7') or ($lvrwinnbr eq '9') or ($lvrwinnbr eq '11') or ($lvrwinnbr eq '13') or ($lvrwinnbr eq '15') or ($lvrwinnbr eq '17') or ($lvrwinnbr eq '19') or ($lvrwinnbr eq '21') or ($lvrwinnbr eq '23') or ($lvrwinnbr eq '25') or ($lvrwinnbr eq '27') or ($lvrwinnbr eq '29') or ($lvrwinnbr eq '31') or ($lvrwinnbr eq '33') or ($lvrwinnbr eq '35')) { $lvraddmoney = $lvrbet * 2; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'LOWER18') { if (($lvrwinnbr eq '1') or ($lvrwinnbr eq '2') or ($lvrwinnbr eq '3') or ($lvrwinnbr eq '4') or ($lvrwinnbr eq '5') or ($lvrwinnbr eq '6') or ($lvrwinnbr eq '7') or ($lvrwinnbr eq '8') or ($lvrwinnbr eq '9') or ($lvrwinnbr eq '10') or ($lvrwinnbr eq '11') or ($lvrwinnbr eq '12') or ($lvrwinnbr eq '13') or ($lvrwinnbr eq '14') or ($lvrwinnbr eq '15') or ($lvrwinnbr eq '16') or ($lvrwinnbr eq '17') or ($lvrwinnbr eq '18')) { $lvraddmoney = $lvrbet * 2; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'UPPER18') { if (($lvrwinnbr eq '19') or ($lvrwinnbr eq '20') or ($lvrwinnbr eq '21') or ($lvrwinnbr eq '22') or ($lvrwinnbr eq '23') or ($lvrwinnbr eq '24') or ($lvrwinnbr eq '25') or ($lvrwinnbr eq '26') or ($lvrwinnbr eq '27') or ($lvrwinnbr eq '28') or ($lvrwinnbr eq '29') or ($lvrwinnbr eq '30') or ($lvrwinnbr eq '31') or ($lvrwinnbr eq '32') or ($lvrwinnbr eq '33') or ($lvrwinnbr eq '34') or ($lvrwinnbr eq '35') or ($lvrwinnbr eq '36')) { $lvraddmoney = $lvrbet * 2; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'BLACK') { if (($lvrwinnbr eq '15') or ($lvrwinnbr eq '4') or ($lvrwinnbr eq '2') or ($lvrwinnbr eq '17') or ($lvrwinnbr eq '6') or ($lvrwinnbr eq '13') or ($lvrwinnbr eq '11') or ($lvrwinnbr eq '8') or ($lvrwinnbr eq '10') or ($lvrwinnbr eq '24') or ($lvrwinnbr eq '33') or ($lvrwinnbr eq '20') or ($lvrwinnbr eq '31') or ($lvrwinnbr eq '22') or ($lvrwinnbr eq '29') or ($lvrwinnbr eq '28') or ($lvrwinnbr eq '35') or ($lvrwinnbr eq '26')) { $lvraddmoney = $lvrbet * 2; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'RED') { if (($lvrwinnbr eq '32') or ($lvrwinnbr eq '19') or ($lvrwinnbr eq '21') or ($lvrwinnbr eq '25') or ($lvrwinnbr eq '34') or ($lvrwinnbr eq '27') or ($lvrwinnbr eq '36') or ($lvrwinnbr eq '30') or ($lvrwinnbr eq '23') or ($lvrwinnbr eq '5') or ($lvrwinnbr eq '16') or ($lvrwinnbr eq '1') or ($lvrwinnbr eq '14') or ($lvrwinnbr eq '9') or ($lvrwinnbr eq '18') or ($lvrwinnbr eq '7') or ($lvrwinnbr eq '12') or ($lvrwinnbr eq '3')) { $lvraddmoney = $lvrbet * 2; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'C1') { if (($lvrwinnbr eq '1') or ($lvrwinnbr eq '4') or ($lvrwinnbr eq '7') or ($lvrwinnbr eq '10') or ($lvrwinnbr eq '13') or ($lvrwinnbr eq '16') or ($lvrwinnbr eq '19') or ($lvrwinnbr eq '22') or ($lvrwinnbr eq '25') or ($lvrwinnbr eq '28') or ($lvrwinnbr eq '31') or ($lvrwinnbr eq '34')) { $lvraddmoney = $lvrbet * 3; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'C2') { if (($lvrwinnbr eq '2') or ($lvrwinnbr eq '5') or ($lvrwinnbr eq '8') or ($lvrwinnbr eq '11') or ($lvrwinnbr eq '14') or ($lvrwinnbr eq '17') or ($lvrwinnbr eq '20') or ($lvrwinnbr eq '23') or ($lvrwinnbr eq '26') or ($lvrwinnbr eq '29') or ($lvrwinnbr eq '32') or ($lvrwinnbr eq '35')) { $lvraddmoney = $lvrbet * 3; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'C3') { if (($lvrwinnbr eq '3') or ($lvrwinnbr eq '6') or ($lvrwinnbr eq '9') or ($lvrwinnbr eq '12') or ($lvrwinnbr eq '15') or ($lvrwinnbr eq '18') or ($lvrwinnbr eq '21') or ($lvrwinnbr eq '24') or ($lvrwinnbr eq '27') or ($lvrwinnbr eq '30') or ($lvrwinnbr eq '33') or ($lvrwinnbr eq '36')) { $lvraddmoney = $lvrbet * 3; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'G1') { if (($lvrwinnbr eq '1') or ($lvrwinnbr eq '2') or ($lvrwinnbr eq '3') or ($lvrwinnbr eq '4') or ($lvrwinnbr eq '5') or ($lvrwinnbr eq '6') or ($lvrwinnbr eq '7') or ($lvrwinnbr eq '8') or ($lvrwinnbr eq '9')) { $lvraddmoney = $lvrbet * 4; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'G2') { if (($lvrwinnbr eq '10') or ($lvrwinnbr eq '11') or ($lvrwinnbr eq '12') or ($lvrwinnbr eq '13') or ($lvrwinnbr eq '14') or ($lvrwinnbr eq '15') or ($lvrwinnbr eq '16') or ($lvrwinnbr eq '17') or ($lvrwinnbr eq '18')) { $lvraddmoney = $lvrbet * 4; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'G3') { if (($lvrwinnbr eq '19') or ($lvrwinnbr eq '20') or ($lvrwinnbr eq '21') or ($lvrwinnbr eq '22') or ($lvrwinnbr eq '23') or ($lvrwinnbr eq '24') or ($lvrwinnbr eq '25') or ($lvrwinnbr eq '26') or ($lvrwinnbr eq '27')) { $lvraddmoney = $lvrbet * 4; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'G4') { if (($lvrwinnbr eq '28') or ($lvrwinnbr eq '29') or ($lvrwinnbr eq '30') or ($lvrwinnbr eq '31') or ($lvrwinnbr eq '32') or ($lvrwinnbr eq '33') or ($lvrwinnbr eq '34') or ($lvrwinnbr eq '35') or ($lvrwinnbr eq '36')) { $lvraddmoney = $lvrbet * 4; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'L1') { if (($lvrwinnbr eq '1') or ($lvrwinnbr eq '2') or ($lvrwinnbr eq '3')) { $lvraddmoney = $lvrbet * 12; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'L2') { if (($lvrwinnbr eq '4') or ($lvrwinnbr eq '5') or ($lvrwinnbr eq '6')) { $lvraddmoney = $lvrbet * 12; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'L3') { if (($lvrwinnbr eq '7') or ($lvrwinnbr eq '8') or ($lvrwinnbr eq '9')) { $lvraddmoney = $lvrbet * 12; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'L4') { if (($lvrwinnbr eq '10') or ($lvrwinnbr eq '11') or ($lvrwinnbr eq '12')) { $lvraddmoney = $lvrbet * 12; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'L5') { if (($lvrwinnbr eq '13') or ($lvrwinnbr eq '14') or ($lvrwinnbr eq '15')) { $lvraddmoney = $lvrbet * 12; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'L6') { if (($lvrwinnbr eq '16') or ($lvrwinnbr eq '17') or ($lvrwinnbr eq '18')) { $lvraddmoney = $lvrbet * 12; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'L7') { if (($lvrwinnbr eq '19') or ($lvrwinnbr eq '20') or ($lvrwinnbr eq '21')) { $lvraddmoney = $lvrbet * 12; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'L8') { if (($lvrwinnbr eq '22') or ($lvrwinnbr eq '23') or ($lvrwinnbr eq '24')) { $lvraddmoney = $lvrbet * 12; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'L9') { if (($lvrwinnbr eq '25') or ($lvrwinnbr eq '26') or ($lvrwinnbr eq '27')) { $lvraddmoney = $lvrbet * 12; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'L10') { if (($lvrwinnbr eq '28') or ($lvrwinnbr eq '29') or ($lvrwinnbr eq '30')) { $lvraddmoney = $lvrbet * 12; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'L11') { if (($lvrwinnbr eq '31') or ($lvrwinnbr eq '32') or ($lvrwinnbr eq '33')) { $lvraddmoney = $lvrbet * 12; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'L12') { if (($lvrwinnbr eq '34') or ($lvrwinnbr eq '35') or ($lvrwinnbr eq '36')) { $lvraddmoney = $lvrbet * 12; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'ZC') { #37 = 0 if (($lvrwinnbr eq '37') or ($lvrwinnbr eq '1') or ($lvrwinnbr eq '2') or ($lvrwinnbr eq '3')) { $lvraddmoney = $lvrbet * 9; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'F1') { if (($lvrwinnbr eq '1') or ($lvrwinnbr eq '2') or ($lvrwinnbr eq '4') or ($lvrwinnbr eq '5') or ($lvrwinnbr eq '6') or ($lvrwinnbr eq '7') or ($lvrwinnbr eq '8') or ($lvrwinnbr eq '9') or ($lvrwinnbr eq '10') or ($lvrwinnbr eq '11') or ($lvrwinnbr eq '12') or ($lvrwinnbr eq '13') or ($lvrwinnbr eq '14') or ($lvrwinnbr eq '15') or ($lvrwinnbr eq '16') or ($lvrwinnbr eq '17') or ($lvrwinnbr eq '18') or ($lvrwinnbr eq '19') or ($lvrwinnbr eq '20') or ($lvrwinnbr eq '21') or ($lvrwinnbr eq '22') or ($lvrwinnbr eq '23') or ($lvrwinnbr eq '24') or ($lvrwinnbr eq '25') or ($lvrwinnbr eq '26') or ($lvrwinnbr eq '27')) { $lvraddmoney = ($lvrbet + ($lvrbet/3)); $lvraddmoney = int($lvraddmoney); $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'F2') { if (($lvrwinnbr eq '10') or ($lvrwinnbr eq '11') or ($lvrwinnbr eq '12') or ($lvrwinnbr eq '13') or ($lvrwinnbr eq '14') or ($lvrwinnbr eq '15') or ($lvrwinnbr eq '16') or ($lvrwinnbr eq '17') or ($lvrwinnbr eq '18') or ($lvrwinnbr eq '19') or ($lvrwinnbr eq '20') or ($lvrwinnbr eq '21') or ($lvrwinnbr eq '22') or ($lvrwinnbr eq '23') or ($lvrwinnbr eq '24') or ($lvrwinnbr eq '25') or ($lvrwinnbr eq '26') or ($lvrwinnbr eq '27') or ($lvrwinnbr eq '28') or ($lvrwinnbr eq '29') or ($lvrwinnbr eq '30') or ($lvrwinnbr eq '31') or ($lvrwinnbr eq '32') or ($lvrwinnbr eq '33') or ($lvrwinnbr eq '34') or ($lvrwinnbr eq '35') or ($lvrwinnbr eq '36')) { $lvraddmoney = ($lvrbet + ($lvrbet/3)); $lvraddmoney = int($lvraddmoney); $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'F3') { if (($lvrwinnbr eq '1') or ($lvrwinnbr eq '2') or ($lvrwinnbr eq '4') or ($lvrwinnbr eq '5') or ($lvrwinnbr eq '6') or ($lvrwinnbr eq '7') or ($lvrwinnbr eq '8') or ($lvrwinnbr eq '9') or ($lvrwinnbr eq '19') or ($lvrwinnbr eq '20') or ($lvrwinnbr eq '21') or ($lvrwinnbr eq '22') or ($lvrwinnbr eq '23') or ($lvrwinnbr eq '24') or ($lvrwinnbr eq '25') or ($lvrwinnbr eq '26') or ($lvrwinnbr eq '27') or ($lvrwinnbr eq '28') or ($lvrwinnbr eq '29') or ($lvrwinnbr eq '30') or ($lvrwinnbr eq '31') or ($lvrwinnbr eq '32') or ($lvrwinnbr eq '33') or ($lvrwinnbr eq '34') or ($lvrwinnbr eq '35') or ($lvrwinnbr eq '36')) { $lvraddmoney = ($lvrbet + ($lvrbet/3)); $lvraddmoney = int($lvraddmoney); $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'F4') { if (($lvrwinnbr eq '1') or ($lvrwinnbr eq '2') or ($lvrwinnbr eq '4') or ($lvrwinnbr eq '5') or ($lvrwinnbr eq '6') or ($lvrwinnbr eq '7') or ($lvrwinnbr eq '8') or ($lvrwinnbr eq '9') or ($lvrwinnbr eq '10') or ($lvrwinnbr eq '11') or ($lvrwinnbr eq '12') or ($lvrwinnbr eq '13') or ($lvrwinnbr eq '14') or ($lvrwinnbr eq '15') or ($lvrwinnbr eq '16') or ($lvrwinnbr eq '17') or ($lvrwinnbr eq '18') or ($lvrwinnbr eq '28') or ($lvrwinnbr eq '29') or ($lvrwinnbr eq '30') or ($lvrwinnbr eq '31') or ($lvrwinnbr eq '32') or ($lvrwinnbr eq '33') or ($lvrwinnbr eq '34') or ($lvrwinnbr eq '35') or ($lvrwinnbr eq '36')) { $lvraddmoney = ($lvrbet + ($lvrbet/3)); $lvraddmoney = int($lvraddmoney); $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'T1') { if (($lvrwinnbr eq '1') or ($lvrwinnbr eq '2') or ($lvrwinnbr eq '3') or ($lvrwinnbr eq '4') or ($lvrwinnbr eq '5') or ($lvrwinnbr eq '6') or ($lvrwinnbr eq '7') or ($lvrwinnbr eq '8') or ($lvrwinnbr eq '9') or ($lvrwinnbr eq '10') or ($lvrwinnbr eq '11') or ($lvrwinnbr eq '12') or ($lvrwinnbr eq '13') or ($lvrwinnbr eq '14') or ($lvrwinnbr eq '15') or ($lvrwinnbr eq '16') or ($lvrwinnbr eq '17') or ($lvrwinnbr eq '18') or ($lvrwinnbr eq '19') or ($lvrwinnbr eq '20') or ($lvrwinnbr eq '21') or ($lvrwinnbr eq '22') or ($lvrwinnbr eq '23') or ($lvrwinnbr eq '24')) { $lvraddmoney = $lvrbet * 1.5; $lvraddmoney = int($lvraddmoney); $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'T2') { if (($lvrwinnbr eq '7') or ($lvrwinnbr eq '8') or ($lvrwinnbr eq '9') or ($lvrwinnbr eq '10') or ($lvrwinnbr eq '11') or ($lvrwinnbr eq '12') or ($lvrwinnbr eq '13') or ($lvrwinnbr eq '14') or ($lvrwinnbr eq '15') or ($lvrwinnbr eq '16') or ($lvrwinnbr eq '17') or ($lvrwinnbr eq '18') or ($lvrwinnbr eq '19') or ($lvrwinnbr eq '20') or ($lvrwinnbr eq '21') or ($lvrwinnbr eq '22') or ($lvrwinnbr eq '23') or ($lvrwinnbr eq '24') or ($lvrwinnbr eq '25') or ($lvrwinnbr eq '26') or ($lvrwinnbr eq '27') or ($lvrwinnbr eq '28') or ($lvrwinnbr eq '29') or ($lvrwinnbr eq '30')) { $lvraddmoney = $lvrbet * 1.5; $lvraddmoney = int($lvraddmoney); $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'T3') { if (($lvrwinnbr eq '13') or ($lvrwinnbr eq '14') or ($lvrwinnbr eq '15') or ($lvrwinnbr eq '16') or ($lvrwinnbr eq '17') or ($lvrwinnbr eq '18') or ($lvrwinnbr eq '19') or ($lvrwinnbr eq '20') or ($lvrwinnbr eq '21') or ($lvrwinnbr eq '22') or ($lvrwinnbr eq '23') or ($lvrwinnbr eq '24') or ($lvrwinnbr eq '25') or ($lvrwinnbr eq '26') or ($lvrwinnbr eq '27') or ($lvrwinnbr eq '28') or ($lvrwinnbr eq '29') or ($lvrwinnbr eq '30') or ($lvrwinnbr eq '31') or ($lvrwinnbr eq '32') or ($lvrwinnbr eq '33') or ($lvrwinnbr eq '34') or ($lvrwinnbr eq '35') or ($lvrwinnbr eq '36')) { $lvraddmoney = $lvrbet * 1.5; $lvraddmoney = int($lvraddmoney); $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq 'VOISINS') { $buff0 = ($lvrbet/9); if (($lvrwinnbr eq '4') or ($lvrwinnbr eq '7') or ($lvrwinnbr eq '12') or ($lvrwinnbr eq '15') or ($lvrwinnbr eq '18') or ($lvrwinnbr eq '21') or ($lvrwinnbr eq '19') or ($lvrwinnbr eq '22') or ($lvrwinnbr eq '32') or ($lvrwinnbr eq '35')) { #The Splits (1 "chip" on each of the splits) $lvraddmoney = $buff0 * 18; $lvraddmoney = int($lvraddmoney); $lvrstwin = $lvrstwin + 1; } elsif (($lvrwinnbr eq '25') or ($lvrwinnbr eq '26') or ($lvrwinnbr eq '28') or ($lvrwinnbr eq '29')) { #The corner (2 "chips" on the corner) $lvraddmoney = $buff0 * 18; $lvraddmoney = int($lvraddmoney); $lvrstwin = $lvrstwin + 1; } elsif (($lvrwinnbr eq '37') or ($lvrwinnbr eq '2') or ($lvrwinnbr eq '3')) { #The triple (2 "chips" on the triple) #37 is zero (green) $lvraddmoney = $buff0 * 24; $lvraddmoney = int($lvraddmoney); $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } $buff0 = ''; } elsif ($lvrstart2 eq 'TIERS') { $buff0 = ($lvrbet/6); if (($lvrwinnbr eq '5') or ($lvrwinnbr eq '8') or ($lvrwinnbr eq '10') or ($lvrwinnbr eq '11') or ($lvrwinnbr eq '13') or ($lvrwinnbr eq '16') or ($lvrwinnbr eq '23') or ($lvrwinnbr eq '24') or ($lvrwinnbr eq '27') or ($lvrwinnbr eq '30') or ($lvrwinnbr eq '33') or ($lvrwinnbr eq '36')) { #The Splits (1 "chip" on each of the splits) $lvraddmoney = $buff0 * 18; $lvraddmoney = int($lvraddmoney); $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } $buff0 = ''; } elsif ($lvrstart2 eq 'ORPHELINS') { $buff0 = ($lvrbet/5); if (($lvrwinnbr eq '1') or ($lvrwinnbr eq '17')) { #The Straight Up (1 "chip" on "1") #17 is a split that is in both 14/17 and 17/20 thus would win both $lvraddmoney = $buff0 * 36; $lvraddmoney = int($lvraddmoney); $lvrstwin = $lvrstwin + 1; } elsif (($lvrwinnbr eq '6') or ($lvrwinnbr eq '9') or ($lvrwinnbr eq '14') or ($lvrwinnbr eq '20') or ($lvrwinnbr eq '31') or ($lvrwinnbr eq '34')) { #The Splits (1 "chip" on each of the splits) $lvraddmoney = $buff0 * 18; $lvraddmoney = int($lvraddmoney); $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } $buff0 = ''; } elsif (($lvrsetup == 0) and ($lvrstart2 eq 'P2')) { #Valid for only Monte Carlo Roulette if (($lvrwinnbr eq '2') or ($lvrwinnbr eq '4') or ($lvrwinnbr eq '8') or ($lvrwinnbr eq '16') or ($lvrwinnbr eq '32')) { $lvraddmoney = $lvrbet * 7; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } } elsif ($lvrstart2 eq $lvrwinnbr) { $lvraddmoney = $lvrbet * 36; $lvrstwin = $lvrstwin + 1; } else { $lvraddmoney = 0; $lvrstlose = $lvrstlose + 1; } if ($lvrsetup == 1) { $lvrimprison = 0; } elsif ($lvraddmoney == 0) { if ($lvrwinnbr eq '37') { $lvrimprison = $lvrimprison + $lvrbet; } else { $lvrimprison = 0; } } elsif (($lvraddmoney > 0) and ($lvrimprison > 0)) { if ($lvrbet >= $lvrimprison) { $lvraddmoney = $lvraddmoney + $lvrimprison; } $lvrimprison = 0; } $lvrstmc = $lvrstmc + $lvraddmoney; $lvrmoney = $lvraddmoney; $money = $money + $lvraddmoney; } sub lvrbetspin4 { lvrreset(); lvrcolorsg(); lvrbetcomp(); lvrwheel(); lvrprintmain(); $lvrstart3 = <STDIN>; chomp($lvrstart3); if ($lvrstart3 > $money) { $lvrbet = 0; } elsif ($lvrstart3 <= 849) { $lvrbet = 0; #Table minimum is 850 } else { $lvrbet = sprintf("%.0f", $lvrstart3 ) } newlines(); lvrmainspin2(); } sub lvrnbrreset { $lvrbVOIp = 0; $lvrbTIEp = 0; $lvrbORPp = 0; $lvrbRp = 0; $lvrbBp = 0; $lvrb0p = 0; $lvrb1p = 0; $lvrb2p = 0; $lvrb3p = 0; $lvrb4p = 0; $lvrb5p = 0; $lvrb6p = 0; $lvrb7p = 0; $lvrb8p = 0; $lvrb9p = 0; $lvrb10p = 0; $lvrb11p = 0; $lvrb12p = 0; $lvrb13p = 0; $lvrb14p = 0; $lvrb15p = 0; $lvrb16p = 0; $lvrb17p = 0; $lvrb18p = 0; $lvrb19p = 0; $lvrb20p = 0; $lvrb21p = 0; $lvrb22p = 0; $lvrb23p = 0; $lvrb24p = 0; $lvrb25p = 0; $lvrb26p = 0; $lvrb27p = 0; $lvrb28p = 0; $lvrb29p = 0; $lvrb30p = 0; $lvrb31p = 0; $lvrb32p = 0; $lvrb33p = 0; $lvrb34p = 0; $lvrb35p = 0; $lvrb36p = 0; } sub lvrstdin1 { $lvrstart1 = <STDIN>; chomp($lvrstart1); if (($lvrstart1 eq 'P') or ($lvrstart1 eq 'p') or ($lvrstart1 eq 'a') or ($lvrstart1 eq 'A')) { if ($lvrstart2 eq ' ') { newlines(); lvrmainspin2(); } elsif ($lvrbet == 0) { newlines(); lvrmainspin2(); } elsif ($money >= $lvrbet) { $money = $money - $lvrbet; $moneyexp = $moneyexp + $lvrbet; $lvrstmc2 = $lvrstmc2 + $lvrbet; $lvrstspins = $lvrstspins + 1; newlines(); lvrmainspin1(); } else { newlines(); lvrmainspin2(); } } elsif (($lvrstart1 eq 'N') or ($lvrstart1 eq 'n')) { newlines(); lvrnbrspin3(); } elsif (($lvrstart1 eq 'B') or ($lvrstart1 eq 'b')) { newlines(); lvrbetspin4(); } elsif (($lvrstart1 eq 'C') or ($lvrstart1 eq 'c')) { print "\n"; return; } elsif (($lvrstart1 eq 'EXIT') or ($lvrstart1 eq 'exit') or ($lvrstart1 eq 'QUIT') or ($lvrstart1 eq 'quit')) { exitgame(); } else { newlines(); lvrmainspin2(); } } sub lvrcolorsg { if ($lvrsetup == 0) { if ($lvrfuturecarlo == 1) { lvrcolorfuturecarlo(); } else { lvrcolormontecarlo(); } } else { lvrcoloramerican(); } } sub lvrcolormontecarlo { $lvrredvar = ' R E D '; $lvrblkvar = ' B L K '; $lvrcolor1 = "$bgcgreen"; #0 background $lvrcolor2 = "$bgcblack"; #black background $lvrcolor3 = "$bgcred"; #red background $lvrcolor4 = "$boldwhite"; #wheel forground $lvrcolor5 = "$bgcwhite"; #divider background $lvrcolor6 = "$boldwhite"; #divider forground $lvrcolor7 = "$bgccyan"; #border background $lvrcolor8 = "$boldcyan"; #border forground $lvrcolor9 = "$bgcblack"; #wheel2 background $lvrcolor10 = "$boldblack"; #wheel2 forground $lvrcolor11 = "$boldwhite"; #wheel2 forground $lvrcolor12 = "$white"; #wheel2 ball forground $lvrcolor13 = "$boldgreen"; #total forground $lvrcolor14 = "$bgcgreen"; #total background $lvrcolor15 = "$blue"; #title forground $lvrcolor16 = "$boldwhite"; #total number forground $lvrcolor17 = "$bgccyan"; #title number background $lvrcolor18 = "$boldyellow";#total highlight number forground $lvrcolor19 = "$bgcblue"; #title highlight number background $lvrcolor20 = "$boldblack"; #computer border forground $lvrcolor21 = "$bgcwhite"; #computer border background $lvrcolor22 = "$boldwhite"; #computer forground 1 $lvrcolor23 = "$bgcblue"; #computer background 1 $lvrcolor24 = "$boldwhite"; #computer forground 2 $lvrcolor25 = "$bgcblue"; #computer background 2 } sub lvrcolorfuturecarlo { $lvrredvar = ' MAGENTA'; $lvrblkvar = ' BLUE '; $lvrcolor1 = "$bgccyan"; #0 background $lvrcolor2 = "$bgcblue"; #black background $lvrcolor3 = "$bgcmagenta"; #red background $lvrcolor4 = "$boldwhite"; #wheel forground $lvrcolor5 = "$bgcwhite"; #divider background $lvrcolor6 = "$boldwhite"; #divider forground $lvrcolor7 = "$bgccyan"; #border background $lvrcolor8 = "$boldcyan"; #border forground $lvrcolor9 = "$bgcblack"; #wheel2 background $lvrcolor10 = "$boldblack"; #wheel2 forground $lvrcolor11 = "$boldwhite"; #wheel2 forground $lvrcolor12 = "$white"; #wheel2 ball forground $lvrcolor13 = "$boldgreen"; #total forground $lvrcolor14 = "$bgcgreen"; #total background $lvrcolor15 = "$blue"; #title forground $lvrcolor16 = "$boldwhite"; #total number forground $lvrcolor17 = "$bgccyan"; #title number background $lvrcolor18 = "$boldyellow";#total highlight number forground $lvrcolor19 = "$bgcblue"; #title highlight number background $lvrcolor20 = "$boldblack"; #computer border forground $lvrcolor21 = "$bgcwhite"; #computer border background $lvrcolor22 = "$boldwhite"; #computer forground 1 $lvrcolor23 = "$bgcblue"; #computer background 1 $lvrcolor24 = "$boldwhite"; #computer forground 2 $lvrcolor25 = "$bgcblue"; #computer background 2 } sub lvrcoloramerican { $lvrredvar = ' B L U '; $lvrblkvar = ' B L K '; $lvrcolor1 = "$bgcred"; #0 background $lvrcolor2 = "$bgcblack"; #black background $lvrcolor3 = "$bgcblue"; #red background $lvrcolor4 = "$boldwhite"; #wheel forground $lvrcolor5 = "$bgcwhite"; #divider background $lvrcolor6 = "$boldwhite"; #divider forground $lvrcolor7 = "$bgcwhite"; #border background $lvrcolor8 = "$boldwhite"; #border forground $lvrcolor9 = "$bgcblack"; #wheel2 background $lvrcolor10 = "$boldblack"; #wheel2 forground $lvrcolor11 = "$boldwhite"; #wheel2 forground $lvrcolor12 = "$white"; #wheel2 ball forground $lvrcolor13 = "$boldblue"; #total forground $lvrcolor14 = "$bgcblue"; #total background $lvrcolor15 = "$blue"; #title forground $lvrcolor16 = "$boldblue"; #total number forground $lvrcolor17 = "$bgcwhite"; #title number background $lvrcolor18 = "$boldwhite"; #total highlight number forground $lvrcolor19 = "$bgcblue"; #title highlight number background $lvrcolor20 = "$boldblack"; #computer border forground $lvrcolor21 = "$bgcblack"; #computer border background $lvrcolor22 = "$boldwhite"; #computer forground 1 $lvrcolor23 = "$bgcred"; #computer background 1 $lvrcolor24 = "$blue"; #computer forground 2 $lvrcolor25 = "$bgcwhite"; #computer background 2 } sub lvrcolorcA { $lvrnbr = $lvrslotA; $lvrC1 = $lvrcolor4; $lvrC2 = $lvrcolorA; } sub lvrcolorcB { $lvrnbr = $lvrslotB; $lvrC1 = $lvrcolor4; $lvrC2 = $lvrcolorB; } sub lvrcolorcC { $lvrnbr = $lvrslotC; $lvrC1 = $lvrcolor4; $lvrC2 = $lvrcolorC; } sub lvrcolorcD { $lvrnbr = $lvrslotD; $lvrC1 = $lvrcolor4; $lvrC2 = $lvrcolorD; } sub lvrcolorcE { $lvrnbr = $lvrslotE; $lvrC1 = $lvrcolor4; $lvrC2 = $lvrcolorE; } sub lvrspin { $lvrwinnbr = int(rand(41)); if ($lvrwinnbr == 0) { lvrspin(); } elsif ($lvrwinnbr >= 38) { lvrspin(); } } sub lvrslot1 { sep; print colored(' ',"$lvrC1 on_$lvrC2"); sep; } sub lvrslot2 { sep; print colored(" $lvrnbr ","$lvrC1 on_$lvrC2"); sep; } sub lvrslot3 { sep; print colored('-----------',"$lvrcolor6 on_$lvrcolor5"); sep; } sub lvrslot4 { sep; print colored(' ',"$lvrcolor6 on_$lvrcolor5"); sep; } sub lvrslot5 { print colored('|',"$lvrcolor8 on_$lvrcolor7"); } sub lvrslot6 { sep; print colored('-----------',"$lvrcolor10 on_$lvrcolor9"); sep; } sub lvrslot7 { sep; print colored(' ',"$lvrcolor10 on_$lvrcolor9"); sep; } sub lvrslot8 { sep; if ($lvrreelspin == 0) { print colored(' /\\|/\\ ',"$lvrcolor11 on_$lvrcolor9"); } elsif ($lvrreelspin == 1) { print colored(' /\\|/\\ ',"$lvrcolor12 on_$lvrcolor9"); } else { print colored(' ',"$lvrcolor12 on_$lvrcolor9"); } sep; } sub lvrslot9 { sep; if ($lvrreelspin == 0) { print colored(' |-X',"$lvrcolor11 on_$lvrcolor9"); print colored('-| ',"$lvrcolor12 on_$lvrcolor9"); } elsif ($lvrreelspin == 1) { print colored(' |-X-| ',"$lvrcolor12 on_$lvrcolor9"); } else { print colored(' ',"$lvrcolor12 on_$lvrcolor9"); } sep; } sub lvrslot10 { sep; if ($lvrreelspin == 0) { print colored(' \\/',"$lvrcolor11 on_$lvrcolor9"); print colored('|\\/ ',"$lvrcolor12 on_$lvrcolor9"); } elsif ($lvrreelspin == 1) { print colored(' \\/|\\/ ',"$lvrcolor12 on_$lvrcolor9"); } else { print colored(' ',"$lvrcolor12 on_$lvrcolor9"); } sep; } sub lvrwheel { if ($lvrwinnbr == 37) { $lvrslotA = '1 5'; $lvrcolorA = $lvrcolor2; $lvrslotB = '3 2'; $lvrcolorB = $lvrcolor3; $lvrslotC = ' 0 '; $lvrcolorC = $lvrcolor1; $lvrslotD = '2 6'; $lvrcolorD = $lvrcolor2; $lvrslotE = ' 3 '; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 32) { $lvrslotA = '1 9'; $lvrcolorA = $lvrcolor3; $lvrslotB = '1 5'; $lvrcolorB = $lvrcolor2; $lvrslotC = '3 2'; $lvrcolorC = $lvrcolor3; $lvrslotD = ' 0 '; $lvrcolorD = $lvrcolor1; $lvrslotE = '2 6'; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 15) { $lvrslotA = ' 4 '; $lvrcolorA = $lvrcolor2; $lvrslotB = '1 9'; $lvrcolorB = $lvrcolor3; $lvrslotC = '1 5'; $lvrcolorC = $lvrcolor2; $lvrslotD = '3 2'; $lvrcolorD = $lvrcolor3; $lvrslotE = ' 0 '; $lvrcolorE = $lvrcolor1; } elsif ($lvrwinnbr == 19) { $lvrslotA = '2 1'; $lvrcolorA = $lvrcolor3; $lvrslotB = ' 4 '; $lvrcolorB = $lvrcolor2; $lvrslotC = '1 9'; $lvrcolorC = $lvrcolor3; $lvrslotD = '1 5'; $lvrcolorD = $lvrcolor2; $lvrslotE = '3 2'; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 4) { $lvrslotA = ' 2 '; $lvrcolorA = $lvrcolor2; $lvrslotB = '2 1'; $lvrcolorB = $lvrcolor3; $lvrslotC = ' 4 '; $lvrcolorC = $lvrcolor2; $lvrslotD = '1 9'; $lvrcolorD = $lvrcolor3; $lvrslotE = '1 5'; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 21) { $lvrslotA = '2 5'; $lvrcolorA = $lvrcolor3; $lvrslotB = ' 2 '; $lvrcolorB = $lvrcolor2; $lvrslotC = '2 1'; $lvrcolorC = $lvrcolor3; $lvrslotD = ' 4 '; $lvrcolorD = $lvrcolor2; $lvrslotE = '1 9'; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 2) { $lvrslotA = '1 7'; $lvrcolorA = $lvrcolor2; $lvrslotB = '2 5'; $lvrcolorB = $lvrcolor3; $lvrslotC = ' 2 '; $lvrcolorC = $lvrcolor2; $lvrslotD = '2 1'; $lvrcolorD = $lvrcolor3; $lvrslotE = ' 4 '; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 25) { $lvrslotA = '3 4'; $lvrcolorA = $lvrcolor3; $lvrslotB = '1 7'; $lvrcolorB = $lvrcolor2; $lvrslotC = '2 5'; $lvrcolorC = $lvrcolor3; $lvrslotD = ' 2 '; $lvrcolorD = $lvrcolor2; $lvrslotE = '2 1'; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 17) { $lvrslotA = ' 6 '; $lvrcolorA = $lvrcolor2; $lvrslotB = '3 4'; $lvrcolorB = $lvrcolor3; $lvrslotC = '1 7'; $lvrcolorC = $lvrcolor2; $lvrslotD = '2 5'; $lvrcolorD = $lvrcolor3; $lvrslotE = ' 2 '; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 34) { $lvrslotA = '2 7'; $lvrcolorA = $lvrcolor3; $lvrslotB = ' 6 '; $lvrcolorB = $lvrcolor2; $lvrslotC = '3 4'; $lvrcolorC = $lvrcolor3; $lvrslotD = '1 7'; $lvrcolorD = $lvrcolor2; $lvrslotE = '2 5'; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 6) { $lvrslotA = '1 3'; $lvrcolorA = $lvrcolor2; $lvrslotB = '2 7'; $lvrcolorB = $lvrcolor3; $lvrslotC = ' 6 '; $lvrcolorC = $lvrcolor2; $lvrslotD = '3 4'; $lvrcolorD = $lvrcolor3; $lvrslotE = '1 7'; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 27) { $lvrslotA = '3 6'; $lvrcolorA = $lvrcolor3; $lvrslotB = '1 3'; $lvrcolorB = $lvrcolor2; $lvrslotC = '2 7'; $lvrcolorC = $lvrcolor3; $lvrslotD = ' 6 '; $lvrcolorD = $lvrcolor2; $lvrslotE = '3 4'; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 13) { $lvrslotA = '1 1'; $lvrcolorA = $lvrcolor2; $lvrslotB = '3 6'; $lvrcolorB = $lvrcolor3; $lvrslotC = '1 3'; $lvrcolorC = $lvrcolor2; $lvrslotD = '2 7'; $lvrcolorD = $lvrcolor3; $lvrslotE = ' 6 '; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 36) { $lvrslotA = '3 0'; $lvrcolorA = $lvrcolor3; $lvrslotB = '1 1'; $lvrcolorB = $lvrcolor2; $lvrslotC = '3 6'; $lvrcolorC = $lvrcolor3; $lvrslotD = '1 3'; $lvrcolorD = $lvrcolor2; $lvrslotE = '2 7'; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 11) { $lvrslotA = ' 8 '; $lvrcolorA = $lvrcolor2; $lvrslotB = '3 0'; $lvrcolorB = $lvrcolor3; $lvrslotC = '1 1'; $lvrcolorC = $lvrcolor2; $lvrslotD = '3 6'; $lvrcolorD = $lvrcolor3; $lvrslotE = '1 3'; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 30) { $lvrslotA = '2 3'; $lvrcolorA = $lvrcolor3; $lvrslotB = ' 8 '; $lvrcolorB = $lvrcolor2; $lvrslotC = '3 0'; $lvrcolorC = $lvrcolor3; $lvrslotD = '1 1'; $lvrcolorD = $lvrcolor2; $lvrslotE = '3 6'; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 8) { $lvrslotA = '1 0'; $lvrcolorA = $lvrcolor2; $lvrslotB = '2 3'; $lvrcolorB = $lvrcolor3; $lvrslotC = ' 8 '; $lvrcolorC = $lvrcolor2; $lvrslotD = '3 0'; $lvrcolorD = $lvrcolor3; $lvrslotE = '1 1'; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 23) { $lvrslotA = ' 5 '; $lvrcolorA = $lvrcolor3; $lvrslotB = '1 0'; $lvrcolorB = $lvrcolor2; $lvrslotC = '2 3'; $lvrcolorC = $lvrcolor3; $lvrslotD = ' 8 '; $lvrcolorD = $lvrcolor2; $lvrslotE = '3 0'; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 10) { $lvrslotA = '2 4'; $lvrcolorA = $lvrcolor2; $lvrslotB = ' 5 '; $lvrcolorB = $lvrcolor3; $lvrslotC = '1 0'; $lvrcolorC = $lvrcolor2; $lvrslotD = '2 3'; $lvrcolorD = $lvrcolor3; $lvrslotE = ' 8 '; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 5) { $lvrslotA = '1 6'; $lvrcolorA = $lvrcolor3; $lvrslotB = '2 4'; $lvrcolorB = $lvrcolor2; $lvrslotC = ' 5 '; $lvrcolorC = $lvrcolor3; $lvrslotD = '1 0'; $lvrcolorD = $lvrcolor2; $lvrslotE = '2 3'; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 24) { $lvrslotA = '3 3'; $lvrcolorA = $lvrcolor2; $lvrslotB = '1 6'; $lvrcolorB = $lvrcolor3; $lvrslotC = '2 4'; $lvrcolorC = $lvrcolor2; $lvrslotD = ' 5 '; $lvrcolorD = $lvrcolor3; $lvrslotE = '1 0'; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 16) { $lvrslotA = ' 1 '; $lvrcolorA = $lvrcolor3; $lvrslotB = '3 3'; $lvrcolorB = $lvrcolor2; $lvrslotC = '1 6'; $lvrcolorC = $lvrcolor3; $lvrslotD = '2 4'; $lvrcolorD = $lvrcolor2; $lvrslotE = ' 5 '; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 33) { $lvrslotA = '2 0'; $lvrcolorA = $lvrcolor2; $lvrslotB = ' 1 '; $lvrcolorB = $lvrcolor3; $lvrslotC = '3 3'; $lvrcolorC = $lvrcolor2; $lvrslotD = '1 6'; $lvrcolorD = $lvrcolor3; $lvrslotE = '2 4'; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 1) { $lvrslotA = '1 4'; $lvrcolorA = $lvrcolor3; $lvrslotB = '2 0'; $lvrcolorB = $lvrcolor2; $lvrslotC = ' 1 '; $lvrcolorC = $lvrcolor3; $lvrslotD = '3 3'; $lvrcolorD = $lvrcolor2; $lvrslotE = '1 6'; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 20) { $lvrslotA = '3 1'; $lvrcolorA = $lvrcolor2; $lvrslotB = '1 4'; $lvrcolorB = $lvrcolor3; $lvrslotC = '2 0'; $lvrcolorC = $lvrcolor2; $lvrslotD = ' 1 '; $lvrcolorD = $lvrcolor3; $lvrslotE = '3 3'; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 14) { $lvrslotA = ' 9 '; $lvrcolorA = $lvrcolor3; $lvrslotB = '3 1'; $lvrcolorB = $lvrcolor2; $lvrslotC = '1 4'; $lvrcolorC = $lvrcolor3; $lvrslotD = '2 0'; $lvrcolorD = $lvrcolor2; $lvrslotE = ' 1 '; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 31) { $lvrslotA = '2 2'; $lvrcolorA = $lvrcolor2; $lvrslotB = ' 9 '; $lvrcolorB = $lvrcolor3; $lvrslotC = '3 1'; $lvrcolorC = $lvrcolor2; $lvrslotD = '1 4'; $lvrcolorD = $lvrcolor3; $lvrslotE = '2 0'; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 9) { $lvrslotA = '1 8'; $lvrcolorA = $lvrcolor3; $lvrslotB = '2 2'; $lvrcolorB = $lvrcolor2; $lvrslotC = ' 9 '; $lvrcolorC = $lvrcolor3; $lvrslotD = '3 1'; $lvrcolorD = $lvrcolor2; $lvrslotE = '1 4'; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 22) { $lvrslotA = '2 9'; $lvrcolorA = $lvrcolor2; $lvrslotB = '1 8'; $lvrcolorB = $lvrcolor3; $lvrslotC = '2 2'; $lvrcolorC = $lvrcolor2; $lvrslotD = ' 9 '; $lvrcolorD = $lvrcolor3; $lvrslotE = '3 1'; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 18) { $lvrslotA = ' 7 '; $lvrcolorA = $lvrcolor3; $lvrslotB = '2 9'; $lvrcolorB = $lvrcolor2; $lvrslotC = '1 8'; $lvrcolorC = $lvrcolor3; $lvrslotD = '2 2'; $lvrcolorD = $lvrcolor2; $lvrslotE = ' 9 '; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 29) { $lvrslotA = '2 8'; $lvrcolorA = $lvrcolor2; $lvrslotB = ' 7 '; $lvrcolorB = $lvrcolor3; $lvrslotC = '2 9'; $lvrcolorC = $lvrcolor2; $lvrslotD = '1 8'; $lvrcolorD = $lvrcolor3; $lvrslotE = '2 2'; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 7) { $lvrslotA = '1 2'; $lvrcolorA = $lvrcolor3; $lvrslotB = '2 8'; $lvrcolorB = $lvrcolor2; $lvrslotC = ' 7 '; $lvrcolorC = $lvrcolor3; $lvrslotD = '2 9'; $lvrcolorD = $lvrcolor2; $lvrslotE = '1 8'; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 28) { $lvrslotA = '3 5'; $lvrcolorA = $lvrcolor2; $lvrslotB = '1 2'; $lvrcolorB = $lvrcolor3; $lvrslotC = '2 8'; $lvrcolorC = $lvrcolor2; $lvrslotD = ' 7 '; $lvrcolorD = $lvrcolor3; $lvrslotE = '2 9'; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 12) { $lvrslotA = ' 3 '; $lvrcolorA = $lvrcolor3; $lvrslotB = '3 5'; $lvrcolorB = $lvrcolor2; $lvrslotC = '1 2'; $lvrcolorC = $lvrcolor3; $lvrslotD = '2 8'; $lvrcolorD = $lvrcolor2; $lvrslotE = ' 7 '; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 35) { $lvrslotA = '2 6'; $lvrcolorA = $lvrcolor2; $lvrslotB = ' 3 '; $lvrcolorB = $lvrcolor3; $lvrslotC = '3 5'; $lvrcolorC = $lvrcolor2; $lvrslotD = '1 2'; $lvrcolorD = $lvrcolor3; $lvrslotE = '2 8'; $lvrcolorE = $lvrcolor2; } elsif ($lvrwinnbr == 3) { $lvrslotA = ' 0 '; $lvrcolorA = $lvrcolor1; $lvrslotB = '2 6'; $lvrcolorB = $lvrcolor2; $lvrslotC = ' 3 '; $lvrcolorC = $lvrcolor3; $lvrslotD = '3 5'; $lvrcolorD = $lvrcolor2; $lvrslotE = '1 2'; $lvrcolorE = $lvrcolor3; } elsif ($lvrwinnbr == 26) { $lvrslotA = '3 2'; $lvrcolorA = $lvrcolor3; $lvrslotB = ' 0 '; $lvrcolorB = $lvrcolor1; $lvrslotC = '2 6'; $lvrcolorC = $lvrcolor2; $lvrslotD = ' 3 '; $lvrcolorD = $lvrcolor3; $lvrslotE = '3 5'; $lvrcolorE = $lvrcolor2; } else { $lvrslotA = '0?0'; $lvrcolorA = $lvrcolor2; $lvrslotB = '?0?'; $lvrcolorB = $lvrcolor3; $lvrslotC = '0?0'; $lvrcolorC = $lvrcolor1; $lvrslotD = '?0?'; $lvrcolorD = $lvrcolor3; $lvrslotE = '0?0'; $lvrcolorE = $lvrcolor2; } } sub lvrprintmain { lvrmedian1(); print"\n"; lvrcolorcA(); lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrstatusbar2(); print"\n"; lvrslot5(); lvrslot4(); lvrslot2(); lvrslot4(); lvrslot7(); lvrslot5(); if ($lvrsetup == 0) { lvrstatusbar3prison(); } else { lvrstatusbar3(); } print"\n"; lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrstatusbar4(); print"\n"; lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrstatusbar5(); print"\n"; lvrslot5(); lvrslot3(); lvrslot6(); lvrslot5();lvrspace1rt1(); lvrb000(); lvrstatusbar6(); print"\n"; lvrcolorcB(); lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrspace1rt2(); lvrb00(); lvrstatusbar7(); print"\n"; lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrspace1rt3(); lvrb0(); lvrstatusbar8(); print"\n"; lvrslot5(); lvrslot4(); lvrslot2(); lvrslot4(); lvrslot7(); lvrslot5(); lvrspace1rt4(); lvrb1(); lvrstatusbar9(); print"\n"; lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrspace1rt5(); lvrb2(); lvrstatusbar10(); print"\n"; lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrspace1rt6(); lvrb3(); lvrstatusbar11(); print"\n"; lvrslot5(); lvrslot3(); lvrslot6(); lvrslot5(); lvrspace1rt7(); lvrb0(); lvrstatusbar12(); print"\n"; lvrcolorcC(); lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrspace1rt8(); lvrb4(); lvrstatusbar13(); print"\n"; lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot8(); lvrslot5(); lvrspace1rt9(); lvrb5(); lvrstatusbar14(); print"\n"; lvrslot5(); lvrslot4(); lvrslot2(); lvrslot4(); lvrslot9(); lvrslot5(); lvrspace1rt10(); lvrb6(); lvrstatusbar15(); print"\n"; lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot10(); lvrslot5(); lvrspace1rt11(); lvrb0(); lvrstatusbar16(); print"\n"; lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrspace1rt12(); lvrb7(); lvrstatusbar17(); print"\n"; lvrslot5(); lvrslot3(); lvrslot6(); lvrslot5(); lvrspace1rt13(); lvrb8(); lvrstatusbar18(); print"\n"; lvrcolorcD(); lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrspace1rt14(); lvrb9(); lvrstatusbar19(); print"\n"; lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrspace1rt15(); lvrb0(); lvrstatusbar20(); print"\n"; lvrslot5(); lvrslot4(); lvrslot2(); lvrslot4(); lvrslot7(); lvrslot5(); lvrspace1rt16(); lvrb10(); lvrstatusbar21(); print"\n"; lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrspace1rt17(); lvrb11(); lvrstatusbar22(); print"\n"; lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrspace1rt18(); lvrb12(); lvrstatusbar23(); print"\n"; lvrslot5(); lvrslot3(); lvrslot6(); lvrslot5(); lvrspace1rt19(); lvrb0(); lvrstatusbar24(); print"\n"; lvrcolorcE(); lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrspace1rt20(); lvrb00000(); lvrstatusbar25(); print"\n"; lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrspace1rt21(); lvrb0000(); lvrstatusbar26(); print"\n"; lvrslot5(); lvrslot4(); lvrslot2(); lvrslot4(); lvrslot7(); lvrslot5(); lvrstatusbar3();print"\n"; lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrstatusbar(); print"\n"; lvrslot5(); lvrslot4(); lvrslot1(); lvrslot4(); lvrslot7(); lvrslot5(); lvrmedian3(); print"\n"; lvrmedian2(); STDOUT->flush(); } sub lvrmedian1 { print colored('/------------------------------------------------------------------------------\\',"$lvrcolor8 on_$lvrcolor7"); } sub lvrmedian2 { print colored('\\----------------------/',"$lvrcolor8 on_$lvrcolor7"); } sub lvrmedian3 { print colored('-------------------------------------------------------/',"$lvrcolor8 on_$lvrcolor7"); } sub lvrstatusbar { print colored(' WINNINGS ',"$lvrcolor8 on_$lvrcolor7"); lvrwinnings(); print colored(' TOTAL FUNDS ',"$lvrcolor8 on_$lvrcolor7"); lvrtotal(); print colored(' ',"$lvrcolor8 on_$lvrcolor7"); lvrslot5(); } sub lvrstatusbar2 { if ($lvrsetup == 0) { print colored(' Monte Carlo Roulette ',"$lvrcolor15 on_$lvrcolor7"); } else { print colored(' Roulette De Americana ',"$lvrcolor15 on_$lvrcolor7"); } print colored(' BET ',"$lvrcolor8 on_$lvrcolor7"); lvrbet(); print colored(' ',"$lvrcolor8 on_$lvrcolor7"); lvrslot5(); } sub lvrstatusbar3prison { # print colored(' Table Minimum: 850 PRISON ',"$lvrcolor8 on_$lvrcolor7"); lvrenprison(); print colored(' ',"$lvrcolor8 on_$lvrcolor7"); lvrslot5(); } sub lvrstatusbar3 { # print colored(' |',"$lvrcolor8 on_$lvrcolor7"); } sub lvrstatusbar4 { # print colored(' P = PLAY B = CHANGE BET N = CHANGE NUMBERS |',"$lvrcolor8 on_$lvrcolor7"); } sub lvrstatusbar5 { # print colored(' C = RETURN TO CASINO MENU ',"$lvrcolor8 on_$lvrcolor7"); print colored('/-------------------------|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar6 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('//',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp1","$lvrcolor22 on_$lvrcolor23"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar7 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp2","$lvrcolor24 on_$lvrcolor25"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar8 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp3","$lvrcolor22 on_$lvrcolor23"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar9 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp4","$lvrcolor24 on_$lvrcolor25"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar10 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp5","$lvrcolor22 on_$lvrcolor23"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar11 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp6","$lvrcolor24 on_$lvrcolor25"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar12 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp7","$lvrcolor22 on_$lvrcolor23"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar13 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp8","$lvrcolor24 on_$lvrcolor25"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar14 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp9","$lvrcolor22 on_$lvrcolor23"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar15 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp10","$lvrcolor24 on_$lvrcolor25"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar16 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp11","$lvrcolor22 on_$lvrcolor23"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar17 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp12","$lvrcolor24 on_$lvrcolor25"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar18 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp13","$lvrcolor22 on_$lvrcolor23"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar19 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp14","$lvrcolor24 on_$lvrcolor25"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar20 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp15","$lvrcolor22 on_$lvrcolor23"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar21 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp16","$lvrcolor24 on_$lvrcolor25"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar22 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp17","$lvrcolor22 on_$lvrcolor23"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar23 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp18","$lvrcolor24 on_$lvrcolor25"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar24 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp19","$lvrcolor22 on_$lvrcolor23"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar25 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('\\\\',"$lvrcolor20 on_$lvrcolor21"); print colored("$lvrcomp20","$lvrcolor24 on_$lvrcolor25"); print colored('|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstatusbar26 { # print colored(' ',"$lvrcolor8 on_$lvrcolor7"); print colored('\-------------------------|',"$lvrcolor20 on_$lvrcolor21"); } sub lvrstdcomp { if ($lvrsetup == 0) { $lvrcomp1 = ' '; $lvrcomp2 = ' Single Numbers Pay 36X '; $lvrcomp3 = ' '; $lvrcomp4 = ' Columns Pay 3X '; $lvrcomp5 = ' '; $lvrcomp6 = ' Even / Odd Pays 2X '; $lvrcomp7 = ' '; if ($lvrfuturecarlo == 1) { $lvrcomp8 = ' Magenta / Blue Pays 2X '; } else { $lvrcomp8 = ' Red / Black Pays 2X '; } $lvrcomp9 = ' '; $lvrcomp10 = ' Double Thirds Pay 1.5X '; $lvrcomp11 = ' '; $lvrcomp12 = ' Triple Fourths Pay 1.3X '; $lvrcomp13 = ' '; $lvrcomp14 = ' Groups Pay 4X '; $lvrcomp15 = ' '; $lvrcomp16 = ' Lines Pay 12X '; $lvrcomp17 = ' '; $lvrcomp18 = ' Powers of 2 Pay 7X '; $lvrcomp19 = ' '; $lvrcomp20 = ' Zero Corner Pays 9X '; } else { $lvrcomp1 = ' '; $lvrcomp2 = ' Single Numbers Pay 36X '; $lvrcomp3 = ' '; $lvrcomp4 = ' Columns Pay 3X '; $lvrcomp5 = ' '; $lvrcomp6 = ' Odds or Evens Pays 2X '; $lvrcomp7 = ' '; $lvrcomp8 = ' Blue Pays 2X '; $lvrcomp9 = ' '; $lvrcomp10 = ' Black Pays 2X '; $lvrcomp11 = ' '; $lvrcomp12 = ' Double Thirds Pay 1.5X '; $lvrcomp13 = ' '; $lvrcomp14 = ' Triple Fourths Pay 1.3X '; $lvrcomp15 = ' '; $lvrcomp16 = ' Groups Pay 4X '; $lvrcomp17 = ' '; $lvrcomp18 = ' Lines Pay 12X '; $lvrcomp19 = ' '; $lvrcomp20 = ' Zero Corner Pays 9X '; } } sub lvrbetcomp { $lvrcomp1 = ' '; $lvrcomp2 = ' '; $lvrcomp3 = ' Enter Your Bet: '; $lvrcomp4 = ' '; $lvrcomp5 = ' '; $lvrcomp6 = ' '; $lvrcomp7 = ' '; $lvrcomp8 = ' '; $lvrcomp9 = ' '; $lvrcomp10 = ' '; $lvrcomp11 = ' '; $lvrcomp12 = ' '; $lvrcomp13 = ' '; $lvrcomp14 = ' '; $lvrcomp15 = ' '; $lvrcomp16 = ' '; $lvrcomp17 = ' '; $lvrcomp18 = ' '; $lvrcomp19 = ' '; $lvrcomp20 = ' '; } sub lvrnbrcomp { $lvrcomp1 = ' Choose Numbers: '; $lvrcomp2 = '*Enter A Number To Play # '; $lvrcomp3 = '*Enter C1, C2, or C3 To '; $lvrcomp4 = ' Play Column 1, 2, or 3 '; $lvrcomp5 = '*Enter T1, T2, or T3 To '; $lvrcomp6 = ' Play 2/3 Of The Wheel '; $lvrcomp7 = '*Enter F1..F4 To Play 3/4 '; $lvrcomp8 = '*Enter EVEN To Play Even '; $lvrcomp9 = '*Enter ODD To Play Odd '; if ($lvrsetup == 0) { if ($lvrfuturecarlo == 1) { $lvrcomp10 = '*Enter MAGENTA To Play Mag'; $lvrcomp11 = '*Enter BLUE To Play Blue '; } else { $lvrcomp10 = '*Enter RED To Play Red '; $lvrcomp11 = '*Enter BLACK To Play Black'; } } else { $lvrcomp10 = '*Enter BLUE To Play Blue '; $lvrcomp11 = '*Enter BLACK To Play Black'; } $lvrcomp12 = '*Enter LOWER18 To Play Top'; $lvrcomp13 = '*Enter UPPER18 To Play Bot'; $lvrcomp14 = '*Enter G1..G4 ToPlayGroup'; $lvrcomp15 = '*Enter L1..L12 ToPlay Line'; $lvrcomp16 = '*Enter V, O, or T To Play'; $lvrcomp17 = ' Voisins, Orphelins, Tier'; if ($lvrsetup == 0) { $lvrcomp18 = '*Enter P2 To Play Powers '; $lvrcomp19 = ' Of Two '; $lvrcomp20 = '*Enter ZC To Play ZeroCnr'; } else { $lvrcomp18 = '*Enter ZC To Play ZeroCnr '; $lvrcomp19 = ' '; $lvrcomp20 = ' '; } } sub lvrtotal { sep; if ($money > 9999999999) { print colored(sprintf("%.4e", $money),"$lvrcolor13 on_$lvrcolor14"); } elsif ($money >= 1000000000) { print colored("$money","$lvrcolor13 on_$lvrcolor14"); } elsif ($money >= 100000000) { print colored(" $money","$lvrcolor13 on_$lvrcolor14"); } elsif ($money >= 10000000) { print colored(" $money","$lvrcolor13 on_$lvrcolor14"); } elsif ($money >= 1000000) { print colored(" $money","$lvrcolor13 on_$lvrcolor14"); } elsif ($money >= 100000) { print colored(" $money","$lvrcolor13 on_$lvrcolor14"); } elsif ($money >= 10000) { print colored(" $money","$lvrcolor13 on_$lvrcolor14"); } elsif ($money >= 1000) { print colored(" $money","$lvrcolor13 on_$lvrcolor14"); } elsif ($money >= 100) { print colored(" $money","$lvrcolor13 on_$lvrcolor14"); } elsif ($money >= 10) { print colored(" $money","$lvrcolor13 on_$lvrcolor14"); } elsif ($money >= 1) { print colored(" $money","$lvrcolor13 on_$lvrcolor14"); } else { print colored(" $money","$lvrcolor13 on_$lvrcolor14"); } sep; } sub lvrwinnings { sep; if ($lvrmoney > 9999999999) { print colored(sprintf("%.4e", $lvrmoney),"$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrmoney >= 1000000000) { print colored("$lvrmoney","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrmoney >= 100000000) { print colored(" $lvrmoney","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrmoney >= 10000000) { print colored(" $lvrmoney","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrmoney >= 1000000) { print colored(" $lvrmoney","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrmoney >= 100000) { print colored(" $lvrmoney","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrmoney >= 10000) { print colored(" $lvrmoney","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrmoney >= 1000) { print colored(" $lvrmoney","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrmoney >= 100) { print colored(" $lvrmoney","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrmoney >= 10) { print colored(" $lvrmoney","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrmoney >= 1) { print colored(" $lvrmoney","$lvrcolor13 on_$lvrcolor14"); } else { print colored(" $lvrmoney","$lvrcolor13 on_$lvrcolor14"); } sep; } sub lvrenprison { sep; if ($lvrimprison > 9999999999) { print colored(sprintf("%.4e", $lvrimprison),"$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrimprison >= 1000000000) { print colored("$lvrimprison","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrimprison >= 100000000) { print colored(" $lvrimprison","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrimprison >= 10000000) { print colored(" $lvrimprison","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrimprison >= 1000000) { print colored(" $lvrimprison","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrimprison >= 100000) { print colored(" $lvrimprison","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrimprison >= 10000) { print colored(" $lvrimprison","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrimprison >= 1000) { print colored(" $lvrimprison","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrimprison >= 100) { print colored(" $lvrimprison","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrimprison >= 10) { print colored(" $lvrimprison","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrimprison >= 1) { print colored(" $lvrimprison","$lvrcolor13 on_$lvrcolor14"); } else { print colored(" $lvrimprison","$lvrcolor13 on_$lvrcolor14"); } sep; } sub lvrbet { sep; if ($lvrbet > 9999999999) { print colored(sprintf("%.4e", $lvrbet),"$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrbet >= 1000000000) { print colored("$lvrbet","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrbet >= 100000000) { print colored(" $lvrbet","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrbet >= 10000000) { print colored(" $lvrbet","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrbet >= 1000000) { print colored(" $lvrbet","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrbet >= 100000) { print colored(" $lvrbet","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrbet >= 10000) { print colored(" $lvrbet","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrbet >= 1000) { print colored(" $lvrbet","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrbet >= 100) { print colored(" $lvrbet","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrbet >= 10) { print colored(" $lvrbet","$lvrcolor13 on_$lvrcolor14"); } elsif ($lvrbet >= 1) { print colored(" $lvrbet","$lvrcolor13 on_$lvrcolor14"); } else { print colored(" $lvrbet","$lvrcolor13 on_$lvrcolor14"); } sep; } sub lvrspace1 { print colored(' ',"$lvrcolor8 on_$lvrcolor7"); } sub lvrspace1rt1 { print colored(' /-\\',"$lvrcolor8 on_$lvrcolor7"); } sub lvrspace1rt2 { print colored(' |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbVOIp == 1) { print colored('V',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('V',"$lvrcolor16 on_$lvrcolor17"); } print colored(' ',"$lvrcolor8 on_$lvrcolor7"); } sub lvrspace1rt3 { print colored(' |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbVOIp == 1) { print colored('O',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('O',"$lvrcolor16 on_$lvrcolor17"); } print colored(' ',"$lvrcolor8 on_$lvrcolor7"); } sub lvrspace1rt4 { print colored(' |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbVOIp == 1) { print colored('I',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('I',"$lvrcolor16 on_$lvrcolor17"); } print colored(' ',"$lvrcolor8 on_$lvrcolor7"); } sub lvrspace1rt5 { print colored(' |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbVOIp == 1) { print colored('S',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('S',"$lvrcolor16 on_$lvrcolor17"); } print colored(' ',"$lvrcolor8 on_$lvrcolor7"); } sub lvrspace1rt6 { print colored(' |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbVOIp == 1) { print colored('I',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('I',"$lvrcolor16 on_$lvrcolor17"); } print colored('| ',"$lvrcolor8 on_$lvrcolor7"); } sub lvrspace1rt7 { print colored(' |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbVOIp == 1) { print colored('N',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('N',"$lvrcolor16 on_$lvrcolor17"); } print colored('| ',"$lvrcolor8 on_$lvrcolor7"); } sub lvrspace1rt8 { print colored(' |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbVOIp == 1) { print colored('S',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('S',"$lvrcolor16 on_$lvrcolor17"); } print colored('|',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbORPp == 1) { print colored('O',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('O',"$lvrcolor16 on_$lvrcolor17"); } } sub lvrspace1rt9 { print colored(' | |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbORPp == 1) { print colored('R',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('R',"$lvrcolor16 on_$lvrcolor17"); } } sub lvrspace1rt10 { print colored(' | |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbORPp == 1) { print colored('P',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('P',"$lvrcolor16 on_$lvrcolor17"); } } sub lvrspace1rt11 { print colored(' | |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbORPp == 1) { print colored('H',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('H',"$lvrcolor16 on_$lvrcolor17"); } } sub lvrspace1rt12 { print colored(' | |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbORPp == 1) { print colored('E',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('E',"$lvrcolor16 on_$lvrcolor17"); } } sub lvrspace1rt13 { print colored(' | |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbORPp == 1) { print colored('L',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('L',"$lvrcolor16 on_$lvrcolor17"); } } sub lvrspace1rt14 { print colored(' | |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbORPp == 1) { print colored('I',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('I',"$lvrcolor16 on_$lvrcolor17"); } } sub lvrspace1rt15 { print colored(' | |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbORPp == 1) { print colored('N',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('N',"$lvrcolor16 on_$lvrcolor17"); } } sub lvrspace1rt16 { print colored(' |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbTIEp == 1) { print colored('T',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('T',"$lvrcolor16 on_$lvrcolor17"); } print colored('|',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbORPp == 1) { print colored('S',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('S',"$lvrcolor16 on_$lvrcolor17"); } } sub lvrspace1rt17 { print colored(' |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbTIEp == 1) { print colored('I',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('I',"$lvrcolor16 on_$lvrcolor17"); } print colored(' ',"$lvrcolor8 on_$lvrcolor7"); } sub lvrspace1rt18 { print colored(' |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbTIEp == 1) { print colored('E',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('E',"$lvrcolor16 on_$lvrcolor17"); } print colored(' ',"$lvrcolor8 on_$lvrcolor7"); } sub lvrspace1rt19 { print colored(' |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbTIEp == 1) { print colored('R',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('R',"$lvrcolor16 on_$lvrcolor17"); } print colored(' ',"$lvrcolor8 on_$lvrcolor7"); } sub lvrspace1rt20 { print colored(' |',"$lvrcolor8 on_$lvrcolor7"); if ($lvrbTIEp == 1) { print colored('S',"$lvrcolor18 on_$lvrcolor19"); } else { print colored('S',"$lvrcolor16 on_$lvrcolor17"); } print colored(' ',"$lvrcolor8 on_$lvrcolor7"); } sub lvrspace1rt21 { print colored(' \\-/',"$lvrcolor8 on_$lvrcolor7"); } sub lvrb0000 { print colored('\\-----------------/',"$lvrcolor8 on_$lvrcolor7"); } sub lvrb000 { print colored('/-----------------\\',"$lvrcolor8 on_$lvrcolor7"); } sub lvrb00 { if ($lvrsetup == 1) { #Roulette De Americana lvrslot5(); if ($lvrb0p == 1) { print colored(' 0 ',"$lvrcolor18 on_$red"); } else { print colored(' 0 ',"$boldred on_$lvrcolor17"); } lvrslot5(); } else { #Monte Carlo Roulette lvrslot5(); if ($lvrb0p == 1) { print colored(' 0 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 0 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); } } sub lvrb00000 { lvrslot5(); if ($lvrbRp == 1) { print colored("$lvrredvar","$lvrcolor18 on_$lvrcolor19"); } else { print colored("$lvrredvar","$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrbBp == 1) { print colored("$lvrblkvar","$lvrcolor18 on_$lvrcolor19"); } else { print colored("$lvrblkvar","$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); } sub lvrb0 { print colored('|-----------------|',"$lvrcolor8 on_$lvrcolor7"); } sub lvrb1 { lvrslot5(); if ($lvrb1p == 1) { print colored(' 1 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 1 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb2p == 1) { print colored(' 2 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 2 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb3p == 1) { print colored(' 3 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 3 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); } sub lvrb2 { lvrslot5(); if ($lvrb4p == 1) { print colored(' 4 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 4 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb5p == 1) { print colored(' 5 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 5 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb6p == 1) { print colored(' 6 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 6 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); } sub lvrb3 { lvrslot5(); if ($lvrb7p == 1) { print colored(' 7 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 7 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb8p == 1) { print colored(' 8 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 8 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb9p == 1) { print colored(' 9 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 9 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); } sub lvrb4 { lvrslot5(); if ($lvrb10p == 1) { print colored(' 1 0 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 1 0 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb11p == 1) { print colored(' 1 1 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 1 1 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb12p == 1) { print colored(' 1 2 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 1 2 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); } sub lvrb5 { lvrslot5(); if ($lvrb13p == 1) { print colored(' 1 3 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 1 3 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb14p == 1) { print colored(' 1 4 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 1 4 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb15p == 1) { print colored(' 1 5 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 1 5 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); } sub lvrb6 { lvrslot5(); if ($lvrb16p == 1) { print colored(' 1 6 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 1 6 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb17p == 1) { print colored(' 1 7 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 1 7 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb18p == 1) { print colored(' 1 8 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 1 8 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); } sub lvrb7 { lvrslot5(); if ($lvrb19p == 1) { print colored(' 1 9 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 1 9 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb20p == 1) { print colored(' 2 0 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 2 0 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb21p == 1) { print colored(' 2 1 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 2 1 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); } sub lvrb8 { lvrslot5(); if ($lvrb22p == 1) { print colored(' 2 2 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 2 2 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb23p == 1) { print colored(' 2 3 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 2 3 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb24p == 1) { print colored(' 2 4 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 2 4 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); } sub lvrb9 { lvrslot5(); if ($lvrb25p == 1) { print colored(' 2 5 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 2 5 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb26p == 1) { print colored(' 2 6 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 2 6 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb27p == 1) { print colored(' 2 7 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 2 7 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); } sub lvrb10 { lvrslot5(); if ($lvrb28p == 1) { print colored(' 2 8 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 2 8 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb29p == 1) { print colored(' 2 9 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 2 9 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb30p == 1) { print colored(' 3 0 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 3 0 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); } sub lvrb11 { lvrslot5(); if ($lvrb31p == 1) { print colored(' 3 1 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 3 1 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb32p == 1) { print colored(' 3 2 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 3 2 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb33p == 1) { print colored(' 3 3 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 3 3 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); } sub lvrb12 { lvrslot5(); if ($lvrb34p == 1) { print colored(' 3 4 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 3 4 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb35p == 1) { print colored(' 3 5 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 3 5 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); if ($lvrb36p == 1) { print colored(' 3 6 ',"$lvrcolor18 on_$lvrcolor19"); } else { print colored(' 3 6 ',"$lvrcolor16 on_$lvrcolor17"); } lvrslot5(); } ################################################################################################################################ ## GENRE: Roulette ## NAME: Real Vegas Roulette ## AUTHOR: MikeeUSA sub rllvrmainspin1 { rllvrreset(); rllvrcolorsg(); if ($animate == 1) { $rllvrreelspin = 2; rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); p4pause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); p4pause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); p4pause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); p4pause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); p4pause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); p4pause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); p4pause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); p4pause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); p7pause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); p7pause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); p7pause(); newlines(); $rllvrreelspin = 1; rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); p7pause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); p7pause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); p7pause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); p7pause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); tinypause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); tinypause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); tinypause(); newlines(); rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvrprintmain(); smallpause(); newlines(); } $rllvrreelspin = 0; rllvrstdcomp(); rllvrspin(); rllvrwheel(); rllvraddmoney(); rllvrprintmain(); ptracker(); rllvrstdin1(); } sub rllvrmainspin2 { rllvrreset(); rllvrcolorsg(); rllvrstdcomp(); rllvrwheel(); rllvrprintmain(); rllvrstdin1(); } sub rllvrnbrspin3 { rllvrreset(); rllvrcolorsg(); rllvrnbrcomp(); rllvrwheel(); rllvrprintmain(); $rllvrstart2 = <STDIN>; chomp($rllvrstart2); rllvrnbrreset(); if ($rllvrstart2 eq '00') { $rllvrb00p = 1; } elsif ($rllvrstart2 eq '0') { $rllvrb0p = 1; } elsif ($rllvrstart2 eq '1') { $rllvrb1p = 1; } elsif ($rllvrstart2 eq '2') { $rllvrb2p = 1; } elsif ($rllvrstart2 eq '3') { $rllvrb3p = 1; } elsif ($rllvrstart2 eq '4') { $rllvrb4p = 1; } elsif ($rllvrstart2 eq '5') { $rllvrb5p = 1; } elsif ($rllvrstart2 eq '6') { $rllvrb6p = 1; } elsif ($rllvrstart2 eq '7') { $rllvrb7p = 1; } elsif ($rllvrstart2 eq '8') { $rllvrb8p = 1; } elsif ($rllvrstart2 eq '9') { $rllvrb9p = 1; } elsif ($rllvrstart2 eq '10') { $rllvrb10p = 1; } elsif ($rllvrstart2 eq '11') { $rllvrb11p = 1; } elsif ($rllvrstart2 eq '12') { $rllvrb12p = 1; } elsif ($rllvrstart2 eq '13') { $rllvrb13p = 1; } elsif ($rllvrstart2 eq '14') { $rllvrb14p = 1; } elsif ($rllvrstart2 eq '15') { $rllvrb15p = 1; } elsif ($rllvrstart2 eq '16') { $rllvrb16p = 1; } elsif ($rllvrstart2 eq '17') { $rllvrb17p = 1; } elsif ($rllvrstart2 eq '18') { $rllvrb18p = 1; } elsif ($rllvrstart2 eq '19') { $rllvrb19p = 1; } elsif ($rllvrstart2 eq '20') { $rllvrb20p = 1; } elsif ($rllvrstart2 eq '21') { $rllvrb21p = 1; } elsif ($rllvrstart2 eq '22') { $rllvrb22p = 1; } elsif ($rllvrstart2 eq '23') { $rllvrb23p = 1; } elsif ($rllvrstart2 eq '24') { $rllvrb24p = 1; } elsif ($rllvrstart2 eq '25') { $rllvrb25p = 1; } elsif ($rllvrstart2 eq '26') { $rllvrb26p = 1; } elsif ($rllvrstart2 eq '27') { $rllvrb27p = 1; } elsif ($rllvrstart2 eq '28') { $rllvrb28p = 1; } elsif ($rllvrstart2 eq '29') { $rllvrb29p = 1; } elsif ($rllvrstart2 eq '30') { $rllvrb30p = 1; } elsif ($rllvrstart2 eq '31') { $rllvrb31p = 1; } elsif ($rllvrstart2 eq '32') { $rllvrb32p = 1; } elsif ($rllvrstart2 eq '33') { $rllvrb33p = 1; } elsif ($rllvrstart2 eq '34') { $rllvrb34p = 1; } elsif ($rllvrstart2 eq '35') { $rllvrb35p = 1; } elsif ($rllvrstart2 eq '36') { $rllvrb36p = 1; } elsif (($rllvrstart2 eq 'even') or ($rllvrstart2 eq 'EVEN')) { $rllvrstart2 = 'EVEN'; $rllvrb2p = 1; $rllvrb4p = 1; $rllvrb6p = 1; $rllvrb8p = 1; $rllvrb10p = 1; $rllvrb12p = 1; $rllvrb14p = 1; $rllvrb16p = 1; $rllvrb18p = 1; $rllvrb20p = 1; $rllvrb22p = 1; $rllvrb24p = 1; $rllvrb26p = 1; $rllvrb28p = 1; $rllvrb30p = 1; $rllvrb32p = 1; $rllvrb34p = 1; $rllvrb36p = 1; } elsif (($rllvrstart2 eq 'odd') or ($rllvrstart2 eq 'ODD')) { $rllvrstart2 = 'ODD'; $rllvrb1p = 1; $rllvrb3p = 1; $rllvrb5p = 1; $rllvrb7p = 1; $rllvrb9p = 1; $rllvrb11p = 1; $rllvrb13p = 1; $rllvrb15p = 1; $rllvrb17p = 1; $rllvrb19p = 1; $rllvrb21p = 1; $rllvrb23p = 1; $rllvrb25p = 1; $rllvrb27p = 1; $rllvrb29p = 1; $rllvrb31p = 1; $rllvrb33p = 1; $rllvrb35p = 1; } elsif (($rllvrstart2 eq 'lower18') or ($rllvrstart2 eq 'LOWER18')) { $rllvrstart2 = 'LOWER18'; $rllvrb1p = 1; $rllvrb2p = 1; $rllvrb3p = 1; $rllvrb4p = 1; $rllvrb5p = 1; $rllvrb6p = 1; $rllvrb7p = 1; $rllvrb8p = 1; $rllvrb9p = 1; $rllvrb10p = 1; $rllvrb11p = 1; $rllvrb12p = 1; $rllvrb13p = 1; $rllvrb14p = 1; $rllvrb15p = 1; $rllvrb16p = 1; $rllvrb17p = 1; $rllvrb18p = 1; } elsif (($rllvrstart2 eq 'upper18') or ($rllvrstart2 eq 'UPPER18')) { $rllvrstart2 = 'UPPER18'; $rllvrb19p = 1; $rllvrb20p = 1; $rllvrb21p = 1; $rllvrb22p = 1; $rllvrb23p = 1; $rllvrb24p = 1; $rllvrb25p = 1; $rllvrb26p = 1; $rllvrb27p = 1; $rllvrb28p = 1; $rllvrb29p = 1; $rllvrb30p = 1; $rllvrb31p = 1; $rllvrb32p = 1; $rllvrb33p = 1; $rllvrb34p = 1; $rllvrb35p = 1; $rllvrb36p = 1; } elsif (($rllvrstart2 eq 'c1') or ($rllvrstart2 eq 'C1')) { $rllvrstart2 = 'C1'; $rllvrb1p = 1; $rllvrb4p = 1; $rllvrb7p = 1; $rllvrb10p = 1; $rllvrb13p = 1; $rllvrb16p = 1; $rllvrb19p = 1; $rllvrb22p = 1; $rllvrb25p = 1; $rllvrb28p = 1; $rllvrb31p = 1; $rllvrb34p = 1; } elsif (($rllvrstart2 eq 'c2') or ($rllvrstart2 eq 'C2')) { $rllvrstart2 = 'C2'; $rllvrb2p = 1; $rllvrb5p = 1; $rllvrb8p = 1; $rllvrb11p = 1; $rllvrb14p = 1; $rllvrb17p = 1; $rllvrb20p = 1; $rllvrb23p = 1; $rllvrb26p = 1; $rllvrb29p = 1; $rllvrb32p = 1; $rllvrb35p = 1; } elsif (($rllvrstart2 eq 'c3') or ($rllvrstart2 eq 'C3')) { $rllvrstart2 = 'C3'; $rllvrb3p = 1; $rllvrb6p = 1; $rllvrb9p = 1; $rllvrb12p = 1; $rllvrb15p = 1; $rllvrb18p = 1; $rllvrb21p = 1; $rllvrb24p = 1; $rllvrb27p = 1; $rllvrb30p = 1; $rllvrb33p = 1; $rllvrb36p = 1; } elsif (($rllvrstart2 eq 'g1') or ($rllvrstart2 eq 'G1')) { $rllvrstart2 = 'G1'; $rllvrb1p = 1; $rllvrb2p = 1; $rllvrb3p = 1; $rllvrb4p = 1; $rllvrb5p = 1; $rllvrb6p = 1; $rllvrb7p = 1; $rllvrb8p = 1; $rllvrb9p = 1; } elsif (($rllvrstart2 eq 'g2') or ($rllvrstart2 eq 'G2')) { $rllvrstart2 = 'G2'; $rllvrb10p = 1; $rllvrb11p = 1; $rllvrb12p = 1; $rllvrb13p = 1; $rllvrb14p = 1; $rllvrb15p = 1; $rllvrb16p = 1; $rllvrb17p = 1; $rllvrb18p = 1; } elsif (($rllvrstart2 eq 'g3') or ($rllvrstart2 eq 'G3')) { $rllvrstart2 = 'G3'; $rllvrb19p = 1; $rllvrb20p = 1; $rllvrb21p = 1; $rllvrb22p = 1; $rllvrb23p = 1; $rllvrb24p = 1; $rllvrb25p = 1; $rllvrb26p = 1; $rllvrb27p = 1; } elsif (($rllvrstart2 eq 'g4') or ($rllvrstart2 eq 'G4')) { $rllvrstart2 = 'G4'; $rllvrb28p = 1; $rllvrb29p = 1; $rllvrb30p = 1; $rllvrb31p = 1; $rllvrb32p = 1; $rllvrb33p = 1; $rllvrb34p = 1; $rllvrb35p = 1; $rllvrb36p = 1; } elsif (($rllvrstart2 eq 'l1') or ($rllvrstart2 eq 'L1')) { $rllvrstart2 = 'L1'; $rllvrb1p = 1; $rllvrb2p = 1; $rllvrb3p = 1; } elsif (($rllvrstart2 eq 'l2') or ($rllvrstart2 eq 'L2')) { $rllvrstart2 = 'L2'; $rllvrb4p = 1; $rllvrb5p = 1; $rllvrb6p = 1; } elsif (($rllvrstart2 eq 'l3') or ($rllvrstart2 eq 'L3')) { $rllvrstart2 = 'L3'; $rllvrb7p = 1; $rllvrb8p = 1; $rllvrb9p = 1; } elsif (($rllvrstart2 eq 'l4') or ($rllvrstart2 eq 'L4')) { $rllvrstart2 = 'L4'; $rllvrb10p = 1; $rllvrb11p = 1; $rllvrb12p = 1; } elsif (($rllvrstart2 eq 'l5') or ($rllvrstart2 eq 'L5')) { $rllvrstart2 = 'L5'; $rllvrb13p = 1; $rllvrb14p = 1; $rllvrb15p = 1; } elsif (($rllvrstart2 eq 'l6') or ($rllvrstart2 eq 'L6')) { $rllvrstart2 = 'L6'; $rllvrb16p = 1; $rllvrb17p = 1; $rllvrb18p = 1; } elsif (($rllvrstart2 eq 'l7') or ($rllvrstart2 eq 'L7')) { $rllvrstart2 = 'L7'; $rllvrb19p = 1; $rllvrb20p = 1; $rllvrb21p = 1; } elsif (($rllvrstart2 eq 'l8') or ($rllvrstart2 eq 'L8')) { $rllvrstart2 = 'L8'; $rllvrb22p = 1; $rllvrb23p = 1; $rllvrb24p = 1; } elsif (($rllvrstart2 eq 'l9') or ($rllvrstart2 eq 'L9')) { $rllvrstart2 = 'L9'; $rllvrb25p = 1; $rllvrb26p = 1; $rllvrb27p = 1; } elsif (($rllvrstart2 eq 'l10') or ($rllvrstart2 eq 'L10')) { $rllvrstart2 = 'L10'; $rllvrb28p = 1; $rllvrb29p = 1; $rllvrb30p = 1; } elsif (($rllvrstart2 eq 'l11') or ($rllvrstart2 eq 'L11')) { $rllvrstart2 = 'L11'; $rllvrb31p = 1; $rllvrb32p = 1; $rllvrb33p = 1; } elsif (($rllvrstart2 eq 'l12') or ($rllvrstart2 eq 'L12')) { $rllvrstart2 = 'L12'; $rllvrb34p = 1; $rllvrb35p = 1; $rllvrb36p = 1; } elsif (($rllvrstart2 eq 'z') or ($rllvrstart2 eq 'Z')) { $rllvrstart2 = 'Z'; $rllvrb00p = 1; $rllvrb0p = 1; } elsif (($rllvrstart2 eq 'f1') or ($rllvrstart2 eq 'F1')) { $rllvrstart2 = 'F1'; $rllvrb1p = 1; $rllvrb2p = 1; $rllvrb3p = 1; $rllvrb4p = 1; $rllvrb5p = 1; $rllvrb6p = 1; $rllvrb7p = 1; $rllvrb8p = 1; $rllvrb9p = 1; $rllvrb10p = 1; $rllvrb11p = 1; $rllvrb12p = 1; $rllvrb13p = 1; $rllvrb14p = 1; $rllvrb15p = 1; $rllvrb16p = 1; $rllvrb17p = 1; $rllvrb18p = 1; $rllvrb19p = 1; $rllvrb20p = 1; $rllvrb21p = 1; $rllvrb22p = 1; $rllvrb23p = 1; $rllvrb24p = 1; $rllvrb25p = 1; $rllvrb26p = 1; $rllvrb27p = 1; } elsif (($rllvrstart2 eq 'f2') or ($rllvrstart2 eq 'F2')) { $rllvrstart2 = 'F2'; $rllvrb10p = 1; $rllvrb11p = 1; $rllvrb12p = 1; $rllvrb13p = 1; $rllvrb14p = 1; $rllvrb15p = 1; $rllvrb16p = 1; $rllvrb17p = 1; $rllvrb18p = 1; $rllvrb19p = 1; $rllvrb20p = 1; $rllvrb21p = 1; $rllvrb22p = 1; $rllvrb23p = 1; $rllvrb24p = 1; $rllvrb25p = 1; $rllvrb26p = 1; $rllvrb27p = 1; $rllvrb28p = 1; $rllvrb29p = 1; $rllvrb30p = 1; $rllvrb31p = 1; $rllvrb32p = 1; $rllvrb33p = 1; $rllvrb34p = 1; $rllvrb35p = 1; $rllvrb36p = 1; } elsif (($rllvrstart2 eq 'f3') or ($rllvrstart2 eq 'F3')) { $rllvrstart2 = 'F3'; $rllvrb1p = 1; $rllvrb2p = 1; $rllvrb3p = 1; $rllvrb4p = 1; $rllvrb5p = 1; $rllvrb6p = 1; $rllvrb7p = 1; $rllvrb8p = 1; $rllvrb9p = 1; $rllvrb19p = 1; $rllvrb20p = 1; $rllvrb21p = 1; $rllvrb22p = 1; $rllvrb23p = 1; $rllvrb24p = 1; $rllvrb25p = 1; $rllvrb26p = 1; $rllvrb27p = 1; $rllvrb28p = 1; $rllvrb29p = 1; $rllvrb30p = 1; $rllvrb31p = 1; $rllvrb32p = 1; $rllvrb33p = 1; $rllvrb34p = 1; $rllvrb35p = 1; $rllvrb36p = 1; } elsif (($rllvrstart2 eq 'f4') or ($rllvrstart2 eq 'F4')) { $rllvrstart2 = 'F4'; $rllvrb1p = 1; $rllvrb2p = 1; $rllvrb3p = 1; $rllvrb4p = 1; $rllvrb5p = 1; $rllvrb6p = 1; $rllvrb7p = 1; $rllvrb8p = 1; $rllvrb9p = 1; $rllvrb10p = 1; $rllvrb11p = 1; $rllvrb12p = 1; $rllvrb13p = 1; $rllvrb14p = 1; $rllvrb15p = 1; $rllvrb16p = 1; $rllvrb17p = 1; $rllvrb18p = 1; $rllvrb28p = 1; $rllvrb29p = 1; $rllvrb30p = 1; $rllvrb31p = 1; $rllvrb32p = 1; $rllvrb33p = 1; $rllvrb34p = 1; $rllvrb35p = 1; $rllvrb36p = 1; } elsif (($rllvrstart2 eq 't1') or ($rllvrstart2 eq 'T1')) { $rllvrstart2 = 'T1'; $rllvrb1p = 1; $rllvrb2p = 1; $rllvrb3p = 1; $rllvrb4p = 1; $rllvrb5p = 1; $rllvrb6p = 1; $rllvrb7p = 1; $rllvrb8p = 1; $rllvrb9p = 1; $rllvrb10p = 1; $rllvrb11p = 1; $rllvrb12p = 1; $rllvrb13p = 1; $rllvrb14p = 1; $rllvrb15p = 1; $rllvrb16p = 1; $rllvrb17p = 1; $rllvrb18p = 1; $rllvrb19p = 1; $rllvrb20p = 1; $rllvrb21p = 1; $rllvrb22p = 1; $rllvrb23p = 1; $rllvrb24p = 1; } elsif (($rllvrstart2 eq 't2') or ($rllvrstart2 eq 'T2')) { $rllvrstart2 = 'T2'; $rllvrb7p = 1; $rllvrb8p = 1; $rllvrb9p = 1; $rllvrb10p = 1; $rllvrb11p = 1; $rllvrb12p = 1; $rllvrb13p = 1; $rllvrb14p = 1; $rllvrb15p = 1; $rllvrb16p = 1; $rllvrb17p = 1; $rllvrb18p = 1; $rllvrb19p = 1; $rllvrb20p = 1; $rllvrb21p = 1; $rllvrb22p = 1; $rllvrb23p = 1; $rllvrb24p = 1; $rllvrb25p = 1; $rllvrb26p = 1; $rllvrb27p = 1; $rllvrb28p = 1; $rllvrb29p = 1; $rllvrb30p = 1; } elsif (($rllvrstart2 eq 't3') or ($rllvrstart2 eq 'T3')) { $rllvrstart2 = 'T3'; $rllvrb13p = 1; $rllvrb14p = 1; $rllvrb15p = 1; $rllvrb16p = 1; $rllvrb17p = 1; $rllvrb18p = 1; $rllvrb19p = 1; $rllvrb20p = 1; $rllvrb21p = 1; $rllvrb22p = 1; $rllvrb23p = 1; $rllvrb24p = 1; $rllvrb25p = 1; $rllvrb26p = 1; $rllvrb27p = 1; $rllvrb28p = 1; $rllvrb29p = 1; $rllvrb30p = 1; $rllvrb31p = 1; $rllvrb32p = 1; $rllvrb33p = 1; $rllvrb34p = 1; $rllvrb35p = 1; $rllvrb36p = 1; } elsif (($rllvrsetup == 0) and (($rllvrstart2 eq 'p2') or ($rllvrstart2 eq 'P2'))) { $rllvrstart2 = 'P2'; $rllvrb2p = 1; $rllvrb4p = 1; $rllvrb8p = 1; $rllvrb16p = 1; $rllvrb32p = 1; } elsif ((($rllvrstart2 eq 'red') and ($rllvrsetup == 0) and ($rllvrfuturecarlo != 1)) or (($rllvrstart2 eq 'RED') and ($rllvrsetup == 0) and ($rllvrfuturecarlo != 1))) { $rllvrstart2 = 'RED'; $rllvrbRp = 1; } elsif ((($rllvrstart2 eq 'magenta') and ($rllvrsetup == 0) and ($rllvrfuturecarlo == 1)) or (($rllvrstart2 eq 'MAGENTA') and ($rllvrsetup == 0) and ($rllvrfuturecarlo == 1))) { $rllvrstart2 = 'RED'; $rllvrbRp = 1; } elsif ((($rllvrstart2 eq 'blue') and ($rllvrsetup == 1)) or (($rllvrstart2 eq 'BLUE') and ($rllvrsetup == 1))) { $rllvrstart2 = 'RED'; $rllvrbRp = 1; } elsif ((($rllvrstart2 eq 'blue') and ($rllvrsetup == 0) and ($rllvrfuturecarlo == 1)) or (($rllvrstart2 eq 'BLUE') and ($rllvrsetup == 0) and ($rllvrfuturecarlo == 1))) { $rllvrstart2 = 'BLACK'; $rllvrbBp = 1; } elsif (($rllvrstart2 eq 'black') or ($rllvrstart2 eq 'BLACK')) { if (($rllvrsetup == 0) and ($rllvrfuturecarlo != 1)) { $rllvrstart2 = 'BLACK'; $rllvrbBp = 1; } elsif ($rllvrsetup == 1) { $rllvrstart2 = 'BLACK'; $rllvrbBp = 1; } else { $rllvrstart2 = ' '; } } else { $rllvrstart2 = ' '; } newlines(); rllvrmainspin2(); } sub rllvrreset { $rllvraddmoney = 0; $rllvrmoney = 0; $rllvrreelspin = 0; if (($rllvrsetup != 0) and ($rllvrstart2 eq 'P2')) { $rllvrb2p = 0; $rllvrb4p = 0; $rllvrb8p = 0; $rllvrb16p = 0; $rllvrb32p = 0; $rllvrstart2 = ' '; } } sub rllvraddmoney { if (($rllvrwinnbr eq '37') and ($rllvrstart2 eq '00')) { $rllvraddmoney = $rllvrbet * 36; $rllvrstwin = $rllvrstwin + 1; } elsif (($rllvrwinnbr eq '38') and ($rllvrstart2 eq '0')) { $rllvraddmoney = $rllvrbet * 36; $rllvrstwin = $rllvrstwin + 1; } elsif ($rllvrstart2 eq 'EVEN') { if (($rllvrwinnbr eq '2') or ($rllvrwinnbr eq '4') or ($rllvrwinnbr eq '6') or ($rllvrwinnbr eq '8') or ($rllvrwinnbr eq '10') or ($rllvrwinnbr eq '12') or ($rllvrwinnbr eq '14') or ($rllvrwinnbr eq '16') or ($rllvrwinnbr eq '18') or ($rllvrwinnbr eq '20') or ($rllvrwinnbr eq '22') or ($rllvrwinnbr eq '24') or ($rllvrwinnbr eq '26') or ($rllvrwinnbr eq '28') or ($rllvrwinnbr eq '30') or ($rllvrwinnbr eq '32') or ($rllvrwinnbr eq '34') or ($rllvrwinnbr eq '36')) { $rllvraddmoney = $rllvrbet * 2; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'ODD') { if (($rllvrwinnbr eq '1') or ($rllvrwinnbr eq '3') or ($rllvrwinnbr eq '5') or ($rllvrwinnbr eq '7') or ($rllvrwinnbr eq '9') or ($rllvrwinnbr eq '11') or ($rllvrwinnbr eq '13') or ($rllvrwinnbr eq '15') or ($rllvrwinnbr eq '17') or ($rllvrwinnbr eq '19') or ($rllvrwinnbr eq '21') or ($rllvrwinnbr eq '23') or ($rllvrwinnbr eq '25') or ($rllvrwinnbr eq '27') or ($rllvrwinnbr eq '29') or ($rllvrwinnbr eq '31') or ($rllvrwinnbr eq '33') or ($rllvrwinnbr eq '35')) { $rllvraddmoney = $rllvrbet * 2; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'LOWER18') { if (($rllvrwinnbr eq '1') or ($rllvrwinnbr eq '2') or ($rllvrwinnbr eq '3') or ($rllvrwinnbr eq '4') or ($rllvrwinnbr eq '5') or ($rllvrwinnbr eq '6') or ($rllvrwinnbr eq '7') or ($rllvrwinnbr eq '8') or ($rllvrwinnbr eq '9') or ($rllvrwinnbr eq '10') or ($rllvrwinnbr eq '11') or ($rllvrwinnbr eq '12') or ($rllvrwinnbr eq '13') or ($rllvrwinnbr eq '14') or ($rllvrwinnbr eq '15') or ($rllvrwinnbr eq '16') or ($rllvrwinnbr eq '17') or ($rllvrwinnbr eq '18')) { $rllvraddmoney = $rllvrbet * 2; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'UPPER18') { if (($rllvrwinnbr eq '19') or ($rllvrwinnbr eq '20') or ($rllvrwinnbr eq '21') or ($rllvrwinnbr eq '22') or ($rllvrwinnbr eq '23') or ($rllvrwinnbr eq '24') or ($rllvrwinnbr eq '25') or ($rllvrwinnbr eq '26') or ($rllvrwinnbr eq '27') or ($rllvrwinnbr eq '28') or ($rllvrwinnbr eq '29') or ($rllvrwinnbr eq '30') or ($rllvrwinnbr eq '31') or ($rllvrwinnbr eq '32') or ($rllvrwinnbr eq '33') or ($rllvrwinnbr eq '34') or ($rllvrwinnbr eq '35') or ($rllvrwinnbr eq '36')) { $rllvraddmoney = $rllvrbet * 2; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'BLACK') { if (($rllvrwinnbr eq '28') or ($rllvrwinnbr eq '26') or ($rllvrwinnbr eq '11') or ($rllvrwinnbr eq '20') or ($rllvrwinnbr eq '17') or ($rllvrwinnbr eq '22') or ($rllvrwinnbr eq '15') or ($rllvrwinnbr eq '24') or ($rllvrwinnbr eq '13') or ($rllvrwinnbr eq '10') or ($rllvrwinnbr eq '29') or ($rllvrwinnbr eq '8') or ($rllvrwinnbr eq '31') or ($rllvrwinnbr eq '6') or ($rllvrwinnbr eq '33') or ($rllvrwinnbr eq '4') or ($rllvrwinnbr eq '35') or ($rllvrwinnbr eq '2')) { $rllvraddmoney = $rllvrbet * 2; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'RED') { if (($rllvrwinnbr eq '9') or ($rllvrwinnbr eq '30') or ($rllvrwinnbr eq '7') or ($rllvrwinnbr eq '32') or ($rllvrwinnbr eq '5') or ($rllvrwinnbr eq '34') or ($rllvrwinnbr eq '3') or ($rllvrwinnbr eq '36') or ($rllvrwinnbr eq '1') or ($rllvrwinnbr eq '27') or ($rllvrwinnbr eq '25') or ($rllvrwinnbr eq '12') or ($rllvrwinnbr eq '19') or ($rllvrwinnbr eq '18') or ($rllvrwinnbr eq '21') or ($rllvrwinnbr eq '16') or ($rllvrwinnbr eq '23') or ($rllvrwinnbr eq '14')) { $rllvraddmoney = $rllvrbet * 2; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'C1') { if (($rllvrwinnbr eq '1') or ($rllvrwinnbr eq '4') or ($rllvrwinnbr eq '7') or ($rllvrwinnbr eq '10') or ($rllvrwinnbr eq '13') or ($rllvrwinnbr eq '16') or ($rllvrwinnbr eq '19') or ($rllvrwinnbr eq '22') or ($rllvrwinnbr eq '25') or ($rllvrwinnbr eq '28') or ($rllvrwinnbr eq '31') or ($rllvrwinnbr eq '34')) { $rllvraddmoney = $rllvrbet * 3; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'C2') { if (($rllvrwinnbr eq '2') or ($rllvrwinnbr eq '5') or ($rllvrwinnbr eq '8') or ($rllvrwinnbr eq '11') or ($rllvrwinnbr eq '14') or ($rllvrwinnbr eq '17') or ($rllvrwinnbr eq '20') or ($rllvrwinnbr eq '23') or ($rllvrwinnbr eq '26') or ($rllvrwinnbr eq '29') or ($rllvrwinnbr eq '32') or ($rllvrwinnbr eq '35')) { $rllvraddmoney = $rllvrbet * 3; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'C3') { if (($rllvrwinnbr eq '3') or ($rllvrwinnbr eq '6') or ($rllvrwinnbr eq '9') or ($rllvrwinnbr eq '12') or ($rllvrwinnbr eq '15') or ($rllvrwinnbr eq '18') or ($rllvrwinnbr eq '21') or ($rllvrwinnbr eq '24') or ($rllvrwinnbr eq '27') or ($rllvrwinnbr eq '30') or ($rllvrwinnbr eq '33') or ($rllvrwinnbr eq '36')) { $rllvraddmoney = $rllvrbet * 3; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'G1') { if (($rllvrwinnbr eq '1') or ($rllvrwinnbr eq '2') or ($rllvrwinnbr eq '3') or ($rllvrwinnbr eq '4') or ($rllvrwinnbr eq '5') or ($rllvrwinnbr eq '6') or ($rllvrwinnbr eq '7') or ($rllvrwinnbr eq '8') or ($rllvrwinnbr eq '9')) { $rllvraddmoney = $rllvrbet * 4; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'G2') { if (($rllvrwinnbr eq '10') or ($rllvrwinnbr eq '11') or ($rllvrwinnbr eq '12') or ($rllvrwinnbr eq '13') or ($rllvrwinnbr eq '14') or ($rllvrwinnbr eq '15') or ($rllvrwinnbr eq '16') or ($rllvrwinnbr eq '17') or ($rllvrwinnbr eq '18')) { $rllvraddmoney = $rllvrbet * 4; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'G3') { if (($rllvrwinnbr eq '19') or ($rllvrwinnbr eq '20') or ($rllvrwinnbr eq '21') or ($rllvrwinnbr eq '22') or ($rllvrwinnbr eq '23') or ($rllvrwinnbr eq '24') or ($rllvrwinnbr eq '25') or ($rllvrwinnbr eq '26') or ($rllvrwinnbr eq '27')) { $rllvraddmoney = $rllvrbet * 4; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'G4') { if (($rllvrwinnbr eq '28') or ($rllvrwinnbr eq '29') or ($rllvrwinnbr eq '30') or ($rllvrwinnbr eq '31') or ($rllvrwinnbr eq '32') or ($rllvrwinnbr eq '33') or ($rllvrwinnbr eq '34') or ($rllvrwinnbr eq '35') or ($rllvrwinnbr eq '36')) { $rllvraddmoney = $rllvrbet * 4; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'L1') { if (($rllvrwinnbr eq '1') or ($rllvrwinnbr eq '2') or ($rllvrwinnbr eq '3')) { $rllvraddmoney = $rllvrbet * 12; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'L2') { if (($rllvrwinnbr eq '4') or ($rllvrwinnbr eq '5') or ($rllvrwinnbr eq '6')) { $rllvraddmoney = $rllvrbet * 12; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'L3') { if (($rllvrwinnbr eq '7') or ($rllvrwinnbr eq '8') or ($rllvrwinnbr eq '9')) { $rllvraddmoney = $rllvrbet * 12; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'L4') { if (($rllvrwinnbr eq '10') or ($rllvrwinnbr eq '11') or ($rllvrwinnbr eq '12')) { $rllvraddmoney = $rllvrbet * 12; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'L5') { if (($rllvrwinnbr eq '13') or ($rllvrwinnbr eq '14') or ($rllvrwinnbr eq '15')) { $rllvraddmoney = $rllvrbet * 12; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'L6') { if (($rllvrwinnbr eq '16') or ($rllvrwinnbr eq '17') or ($rllvrwinnbr eq '18')) { $rllvraddmoney = $rllvrbet * 12; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'L7') { if (($rllvrwinnbr eq '19') or ($rllvrwinnbr eq '20') or ($rllvrwinnbr eq '21')) { $rllvraddmoney = $rllvrbet * 12; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'L8') { if (($rllvrwinnbr eq '22') or ($rllvrwinnbr eq '23') or ($rllvrwinnbr eq '24')) { $rllvraddmoney = $rllvrbet * 12; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'L9') { if (($rllvrwinnbr eq '25') or ($rllvrwinnbr eq '26') or ($rllvrwinnbr eq '27')) { $rllvraddmoney = $rllvrbet * 12; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'L10') { if (($rllvrwinnbr eq '28') or ($rllvrwinnbr eq '29') or ($rllvrwinnbr eq '30')) { $rllvraddmoney = $rllvrbet * 12; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'L11') { if (($rllvrwinnbr eq '31') or ($rllvrwinnbr eq '32') or ($rllvrwinnbr eq '33')) { $rllvraddmoney = $rllvrbet * 12; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'L12') { if (($rllvrwinnbr eq '34') or ($rllvrwinnbr eq '35') or ($rllvrwinnbr eq '36')) { $rllvraddmoney = $rllvrbet * 12; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'Z') { #37 = 0, 38 = 00 if (($rllvrwinnbr eq '37') or ($rllvrwinnbr eq '38')) { $rllvraddmoney = $rllvrbet * 18; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'F1') { if (($rllvrwinnbr eq '1') or ($rllvrwinnbr eq '2') or ($rllvrwinnbr eq '4') or ($rllvrwinnbr eq '5') or ($rllvrwinnbr eq '6') or ($rllvrwinnbr eq '7') or ($rllvrwinnbr eq '8') or ($rllvrwinnbr eq '9') or ($rllvrwinnbr eq '10') or ($rllvrwinnbr eq '11') or ($rllvrwinnbr eq '12') or ($rllvrwinnbr eq '13') or ($rllvrwinnbr eq '14') or ($rllvrwinnbr eq '15') or ($rllvrwinnbr eq '16') or ($rllvrwinnbr eq '17') or ($rllvrwinnbr eq '18') or ($rllvrwinnbr eq '19') or ($rllvrwinnbr eq '20') or ($rllvrwinnbr eq '21') or ($rllvrwinnbr eq '22') or ($rllvrwinnbr eq '23') or ($rllvrwinnbr eq '24') or ($rllvrwinnbr eq '25') or ($rllvrwinnbr eq '26') or ($rllvrwinnbr eq '27')) { $rllvraddmoney = ($rllvrbet + ($rllvrbet/3)); $rllvraddmoney = int($rllvraddmoney); $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'F2') { if (($rllvrwinnbr eq '10') or ($rllvrwinnbr eq '11') or ($rllvrwinnbr eq '12') or ($rllvrwinnbr eq '13') or ($rllvrwinnbr eq '14') or ($rllvrwinnbr eq '15') or ($rllvrwinnbr eq '16') or ($rllvrwinnbr eq '17') or ($rllvrwinnbr eq '18') or ($rllvrwinnbr eq '19') or ($rllvrwinnbr eq '20') or ($rllvrwinnbr eq '21') or ($rllvrwinnbr eq '22') or ($rllvrwinnbr eq '23') or ($rllvrwinnbr eq '24') or ($rllvrwinnbr eq '25') or ($rllvrwinnbr eq '26') or ($rllvrwinnbr eq '27') or ($rllvrwinnbr eq '28') or ($rllvrwinnbr eq '29') or ($rllvrwinnbr eq '30') or ($rllvrwinnbr eq '31') or ($rllvrwinnbr eq '32') or ($rllvrwinnbr eq '33') or ($rllvrwinnbr eq '34') or ($rllvrwinnbr eq '35') or ($rllvrwinnbr eq '36')) { $rllvraddmoney = ($rllvrbet + ($rllvrbet/3)); $rllvraddmoney = int($rllvraddmoney); $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'F3') { if (($rllvrwinnbr eq '1') or ($rllvrwinnbr eq '2') or ($rllvrwinnbr eq '4') or ($rllvrwinnbr eq '5') or ($rllvrwinnbr eq '6') or ($rllvrwinnbr eq '7') or ($rllvrwinnbr eq '8') or ($rllvrwinnbr eq '9') or ($rllvrwinnbr eq '19') or ($rllvrwinnbr eq '20') or ($rllvrwinnbr eq '21') or ($rllvrwinnbr eq '22') or ($rllvrwinnbr eq '23') or ($rllvrwinnbr eq '24') or ($rllvrwinnbr eq '25') or ($rllvrwinnbr eq '26') or ($rllvrwinnbr eq '27') or ($rllvrwinnbr eq '28') or ($rllvrwinnbr eq '29') or ($rllvrwinnbr eq '30') or ($rllvrwinnbr eq '31') or ($rllvrwinnbr eq '32') or ($rllvrwinnbr eq '33') or ($rllvrwinnbr eq '34') or ($rllvrwinnbr eq '35') or ($rllvrwinnbr eq '36')) { $rllvraddmoney = ($rllvrbet + ($rllvrbet/3)); $rllvraddmoney = int($rllvraddmoney); $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'F4') { if (($rllvrwinnbr eq '1') or ($rllvrwinnbr eq '2') or ($rllvrwinnbr eq '4') or ($rllvrwinnbr eq '5') or ($rllvrwinnbr eq '6') or ($rllvrwinnbr eq '7') or ($rllvrwinnbr eq '8') or ($rllvrwinnbr eq '9') or ($rllvrwinnbr eq '10') or ($rllvrwinnbr eq '11') or ($rllvrwinnbr eq '12') or ($rllvrwinnbr eq '13') or ($rllvrwinnbr eq '14') or ($rllvrwinnbr eq '15') or ($rllvrwinnbr eq '16') or ($rllvrwinnbr eq '17') or ($rllvrwinnbr eq '18') or ($rllvrwinnbr eq '28') or ($rllvrwinnbr eq '29') or ($rllvrwinnbr eq '30') or ($rllvrwinnbr eq '31') or ($rllvrwinnbr eq '32') or ($rllvrwinnbr eq '33') or ($rllvrwinnbr eq '34') or ($rllvrwinnbr eq '35') or ($rllvrwinnbr eq '36')) { $rllvraddmoney = ($rllvrbet + ($rllvrbet/3)); $rllvraddmoney = int($rllvraddmoney); $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'T1') { if (($rllvrwinnbr eq '1') or ($rllvrwinnbr eq '2') or ($rllvrwinnbr eq '3') or ($rllvrwinnbr eq '4') or ($rllvrwinnbr eq '5') or ($rllvrwinnbr eq '6') or ($rllvrwinnbr eq '7') or ($rllvrwinnbr eq '8') or ($rllvrwinnbr eq '9') or ($rllvrwinnbr eq '10') or ($rllvrwinnbr eq '11') or ($rllvrwinnbr eq '12') or ($rllvrwinnbr eq '13') or ($rllvrwinnbr eq '14') or ($rllvrwinnbr eq '15') or ($rllvrwinnbr eq '16') or ($rllvrwinnbr eq '17') or ($rllvrwinnbr eq '18') or ($rllvrwinnbr eq '19') or ($rllvrwinnbr eq '20') or ($rllvrwinnbr eq '21') or ($rllvrwinnbr eq '22') or ($rllvrwinnbr eq '23') or ($rllvrwinnbr eq '24')) { $rllvraddmoney = $rllvrbet * 1.5; $rllvraddmoney = int($rllvraddmoney); $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'T2') { if (($rllvrwinnbr eq '7') or ($rllvrwinnbr eq '8') or ($rllvrwinnbr eq '9') or ($rllvrwinnbr eq '10') or ($rllvrwinnbr eq '11') or ($rllvrwinnbr eq '12') or ($rllvrwinnbr eq '13') or ($rllvrwinnbr eq '14') or ($rllvrwinnbr eq '15') or ($rllvrwinnbr eq '16') or ($rllvrwinnbr eq '17') or ($rllvrwinnbr eq '18') or ($rllvrwinnbr eq '19') or ($rllvrwinnbr eq '20') or ($rllvrwinnbr eq '21') or ($rllvrwinnbr eq '22') or ($rllvrwinnbr eq '23') or ($rllvrwinnbr eq '24') or ($rllvrwinnbr eq '25') or ($rllvrwinnbr eq '26') or ($rllvrwinnbr eq '27') or ($rllvrwinnbr eq '28') or ($rllvrwinnbr eq '29') or ($rllvrwinnbr eq '30')) { $rllvraddmoney = $rllvrbet * 1.5; $rllvraddmoney = int($rllvraddmoney); $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq 'T3') { if (($rllvrwinnbr eq '13') or ($rllvrwinnbr eq '14') or ($rllvrwinnbr eq '15') or ($rllvrwinnbr eq '16') or ($rllvrwinnbr eq '17') or ($rllvrwinnbr eq '18') or ($rllvrwinnbr eq '19') or ($rllvrwinnbr eq '20') or ($rllvrwinnbr eq '21') or ($rllvrwinnbr eq '22') or ($rllvrwinnbr eq '23') or ($rllvrwinnbr eq '24') or ($rllvrwinnbr eq '25') or ($rllvrwinnbr eq '26') or ($rllvrwinnbr eq '27') or ($rllvrwinnbr eq '28') or ($rllvrwinnbr eq '29') or ($rllvrwinnbr eq '30') or ($rllvrwinnbr eq '31') or ($rllvrwinnbr eq '32') or ($rllvrwinnbr eq '33') or ($rllvrwinnbr eq '34') or ($rllvrwinnbr eq '35') or ($rllvrwinnbr eq '36')) { $rllvraddmoney = $rllvrbet * 1.5; $rllvraddmoney = int($rllvraddmoney); $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif (($rllvrsetup == 0) and ($rllvrstart2 eq 'P2')) { #Valid for only Monte Carlo Roulette if (($rllvrwinnbr eq '2') or ($rllvrwinnbr eq '4') or ($rllvrwinnbr eq '8') or ($rllvrwinnbr eq '16') or ($rllvrwinnbr eq '32')) { $rllvraddmoney = $rllvrbet * 7; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } } elsif ($rllvrstart2 eq $rllvrwinnbr) { $rllvraddmoney = $rllvrbet * 36; $rllvrstwin = $rllvrstwin + 1; } else { $rllvraddmoney = 0; $rllvrstlose = $rllvrstlose + 1; } $rllvrstmc = $rllvrstmc + $rllvraddmoney; $rllvrmoney = $rllvraddmoney; $money = $money + $rllvraddmoney; } sub rllvrbetspin4 { rllvrreset(); rllvrcolorsg(); rllvrbetcomp(); rllvrwheel(); rllvrprintmain(); $rllvrstart3 = <STDIN>; chomp($rllvrstart3); if ($rllvrstart3 > $money) { $rllvrbet = 0; } elsif ($rllvrstart3 <= 0) { $rllvrbet = 0; } else { $rllvrbet = sprintf("%.0f", $rllvrstart3 ) } newlines(); rllvrmainspin2(); } sub rllvrnbrreset { $rllvrbRp = 0; $rllvrbBp = 0; $rllvrb00p = 0; $rllvrb0p = 0; $rllvrb1p = 0; $rllvrb2p = 0; $rllvrb3p = 0; $rllvrb4p = 0; $rllvrb5p = 0; $rllvrb6p = 0; $rllvrb7p = 0; $rllvrb8p = 0; $rllvrb9p = 0; $rllvrb10p = 0; $rllvrb11p = 0; $rllvrb12p = 0; $rllvrb13p = 0; $rllvrb14p = 0; $rllvrb15p = 0; $rllvrb16p = 0; $rllvrb17p = 0; $rllvrb18p = 0; $rllvrb19p = 0; $rllvrb20p = 0; $rllvrb21p = 0; $rllvrb22p = 0; $rllvrb23p = 0; $rllvrb24p = 0; $rllvrb25p = 0; $rllvrb26p = 0; $rllvrb27p = 0; $rllvrb28p = 0; $rllvrb29p = 0; $rllvrb30p = 0; $rllvrb31p = 0; $rllvrb32p = 0; $rllvrb33p = 0; $rllvrb34p = 0; $rllvrb35p = 0; $rllvrb36p = 0; } sub rllvrstdin1 { $rllvrstart1 = <STDIN>; chomp($rllvrstart1); if (($rllvrstart1 eq 'P') or ($rllvrstart1 eq 'p') or ($rllvrstart1 eq 'a') or ($rllvrstart1 eq 'A')) { if ($rllvrstart2 eq ' ') { newlines(); rllvrmainspin2(); } elsif ($rllvrbet == 0) { newlines(); rllvrmainspin2(); } elsif ($money >= $rllvrbet) { $money = $money - $rllvrbet; $moneyexp = $moneyexp + $rllvrbet; $rllvrstmc2 = $rllvrstmc2 + $rllvrbet; $rllvrstspins = $rllvrstspins + 1; newlines(); rllvrmainspin1(); } else { newlines(); rllvrmainspin2(); } } elsif (($rllvrstart1 eq 'N') or ($rllvrstart1 eq 'n')) { newlines(); rllvrnbrspin3(); } elsif (($rllvrstart1 eq 'B') or ($rllvrstart1 eq 'b')) { newlines(); rllvrbetspin4(); } elsif (($rllvrstart1 eq 'C') or ($rllvrstart1 eq 'c')) { print "\n"; return; } elsif (($rllvrstart1 eq 'EXIT') or ($rllvrstart1 eq 'exit') or ($rllvrstart1 eq 'QUIT') or ($rllvrstart1 eq 'quit')) { exitgame(); } else { newlines(); rllvrmainspin2(); } } sub rllvrcolorsg { if ($rllvrsetup == 0) { if ($rllvrfuturecarlo == 1) { rllvrcolorfuturecarlo(); } else { rllvrcolormontecarlo(); } } else { rllvrcoloramerican(); } } sub rllvrcolormontecarlo { $rllvrredvar = ' R E D '; $rllvrblkvar = ' B L K '; $rllvrcolor1 = "$bgcgreen"; #0 background $rllvrcolor2 = "$bgcblack"; #black background $rllvrcolor3 = "$bgcred"; #red background $rllvrcolor2b = "$boldblack"; #black foreground $rllvrcolor3b = "$boldred"; #red foreground $rllvrcolor4 = "$boldyellow"; #0 forground $rllvrcolor5 = "$bgcwhite"; #divider background $rllvrcolor6 = "$boldwhite"; #divider forground $rllvrcolor7 = "$bgcblack"; #border background $rllvrcolor8 = "$boldblack"; #border forground $rllvrcolor9 = "$bgcgreen"; #wheel2 background $rllvrcolor10 = "$boldgreen"; #wheel2 forground $rllvrcolor11 = "$boldwhite"; #wheel2 forground $rllvrcolor12 = "$white"; #wheel2 ball forground $rllvrcolor13 = "$boldgreen"; #total forground $rllvrcolor14 = "$bgcgreen"; #total background $rllvrcolor15 = "$boldyellow"; #title forground $rllvrcolor16 = "$white"; #total number forground $rllvrcolor17 = "$bgcblack"; #title number background $rllvrcolor18 = "$boldyellow";#total highlight number forground $rllvrcolor19 = "$bgcwhite"; #title highlight number background $rllvrcolor20 = "$boldblack"; #computer border forground $rllvrcolor21 = "$bgcwhite"; #computer border background $rllvrcolor22 = "$black"; #computer forground 1 $rllvrcolor23 = "$bgcred"; #computer background 1 $rllvrcolor24 = "$black"; #computer forground 2 $rllvrcolor25 = "$bgcred"; #computer background 2 } sub rllvrcolorfuturecarlo { $rllvrredvar = ' MAGENTA'; $rllvrblkvar = ' BLUE '; $rllvrcolor1 = "$bgcgreen"; #0 background $rllvrcolor2 = "$bgcblue"; #black background $rllvrcolor3 = "$bgcmagenta"; #red background $rllvrcolor2b = "$boldyellow"; #black foreground $rllvrcolor3b = "$boldgreen"; #red foreground $rllvrcolor4 = "$boldmagenta"; #0 forground $rllvrcolor5 = "$bgcwhite"; #divider background $rllvrcolor6 = "$boldwhite"; #divider forground $rllvrcolor7 = "$bgcmagenta"; #border background $rllvrcolor8 = "$boldmagenta"; #border forground $rllvrcolor9 = "$bgcblack"; #wheel2 background $rllvrcolor10 = "$boldblack"; #wheel2 forground $rllvrcolor11 = "$boldwhite"; #wheel2 forground $rllvrcolor12 = "$white"; #wheel2 ball forground $rllvrcolor13 = "$boldgreen"; #total forground $rllvrcolor14 = "$bgcgreen"; #total background $rllvrcolor15 = "$boldyellow"; #title forground $rllvrcolor16 = "$boldwhite"; #total number forground $rllvrcolor17 = "$bgcmagenta"; #title number background $rllvrcolor18 = "$boldyellow";#total highlight number forground $rllvrcolor19 = "$bgccyan"; #title highlight number background $rllvrcolor20 = "$boldblack"; #computer border forground $rllvrcolor21 = "$bgcwhite"; #computer border background $rllvrcolor22 = "$black"; #computer forground 1 $rllvrcolor23 = "$bgccyan"; #computer background 1 $rllvrcolor24 = "$black"; #computer forground 2 $rllvrcolor25 = "$bgccyan"; #computer background 2 } sub rllvrcoloramerican { $rllvrredvar = ' B L U '; $rllvrblkvar = ' B L K '; $rllvrcolor1 = "$bgcred"; #0 background $rllvrcolor2 = "$bgcblack"; #black background $rllvrcolor3 = "$bgcblue"; #red background $rllvrcolor2b = "$boldblue"; #black foreground $rllvrcolor3b = "$boldblack"; #red foreground $rllvrcolor4 = "$boldwhite"; #0 forground $rllvrcolor5 = "$bgcwhite"; #divider background $rllvrcolor6 = "$boldwhite"; #divider forground $rllvrcolor7 = "$bgcwhite"; #border background $rllvrcolor8 = "$boldwhite"; #border forground $rllvrcolor9 = "$bgcblack"; #wheel2 background $rllvrcolor10 = "$boldblack"; #wheel2 forground $rllvrcolor11 = "$boldwhite"; #wheel2 forground $rllvrcolor12 = "$white"; #wheel2 ball forground $rllvrcolor13 = "$boldblue"; #total forground $rllvrcolor14 = "$bgcblue"; #total background $rllvrcolor15 = "$blue"; #title forground $rllvrcolor16 = "$boldblue"; #total number forground $rllvrcolor17 = "$bgcwhite"; #title number background $rllvrcolor18 = "$boldwhite"; #total highlight number forground $rllvrcolor19 = "$bgcblue"; #title highlight number background $rllvrcolor20 = "$boldblack"; #computer border forground $rllvrcolor21 = "$bgcblack"; #computer border background $rllvrcolor22 = "$boldwhite"; #computer forground 1 $rllvrcolor23 = "$bgcred"; #computer background 1 $rllvrcolor24 = "$blue"; #computer forground 2 $rllvrcolor25 = "$bgcwhite"; #computer background 2 } sub rllvrcolorcA { $rllvrnbr = $rllvrslotA; $rllvrC1 = $rllvrcolorAb; $rllvrC2 = $rllvrcolorA; } sub rllvrcolorcB { $rllvrnbr = $rllvrslotB; $rllvrC1 = $rllvrcolorBb; $rllvrC2 = $rllvrcolorB; } sub rllvrcolorcC { $rllvrnbr = $rllvrslotC; $rllvrC1 = $rllvrcolorCb; $rllvrC2 = $rllvrcolorC; } sub rllvrcolorcD { $rllvrnbr = $rllvrslotD; $rllvrC1 = $rllvrcolorDb; $rllvrC2 = $rllvrcolorD; } sub rllvrcolorcE { $rllvrnbr = $rllvrslotE; $rllvrC1 = $rllvrcolorEb; $rllvrC2 = $rllvrcolorE; } sub rllvrspin { $rllvrwinnbr = int(rand(42)); if ($rllvrwinnbr == 0) { rllvrspin(); } elsif ($rllvrwinnbr >= 39) { rllvrspin(); } } sub rllvrslot1 { sep; print colored(' ',"$rllvrC1 on_$rllvrC2"); sep; } sub rllvrslot2 { sep; print colored(" $rllvrnbr ","$rllvrC1 on_$rllvrC2"); sep; } sub rllvrslot3 { sep; print colored('-----------',"$rllvrcolor6 on_$rllvrcolor5"); sep; } sub rllvrslot4 { sep; print colored(' ',"$rllvrcolor6 on_$rllvrcolor5"); sep; } sub rllvrslot5 { print colored('|',"$rllvrcolor8 on_$rllvrcolor7"); } sub rllvrslot6 { sep; print colored('-----------',"$rllvrcolor10 on_$rllvrcolor9"); sep; } sub rllvrslot7 { sep; print colored(' ',"$rllvrcolor10 on_$rllvrcolor9"); sep; } sub rllvrslot8 { sep; if ($rllvrreelspin == 0) { print colored(' /\\|/\\ ',"$rllvrcolor11 on_$rllvrcolor9"); } elsif ($rllvrreelspin == 1) { print colored(' /\\|/\\ ',"$rllvrcolor12 on_$rllvrcolor9"); } else { print colored(' ',"$rllvrcolor12 on_$rllvrcolor9"); } sep; } sub rllvrslot9 { sep; if ($rllvrreelspin == 0) { print colored(' |-X',"$rllvrcolor11 on_$rllvrcolor9"); print colored('-| ',"$rllvrcolor12 on_$rllvrcolor9"); } elsif ($rllvrreelspin == 1) { print colored(' |-X-| ',"$rllvrcolor12 on_$rllvrcolor9"); } else { print colored(' ',"$rllvrcolor12 on_$rllvrcolor9"); } sep; } sub rllvrslot10 { sep; if ($rllvrreelspin == 0) { print colored(' \\/',"$rllvrcolor11 on_$rllvrcolor9"); print colored('|\\/ ',"$rllvrcolor12 on_$rllvrcolor9"); } elsif ($rllvrreelspin == 1) { print colored(' \\/|\\/ ',"$rllvrcolor12 on_$rllvrcolor9"); } else { print colored(' ',"$rllvrcolor12 on_$rllvrcolor9"); } sep; } sub rllvrwheel { if ($rllvrwinnbr == 38) { $rllvrslotA = ' 9 '; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = '2 8'; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = ' 0 '; $rllvrcolorC = $rllvrcolor1; $rllvrslotD = ' 2 '; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = '1 4'; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 28) { $rllvrslotA = '2 6'; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = ' 9 '; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = '2 8'; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = ' 0 '; $rllvrcolorD = $rllvrcolor1; $rllvrslotE = ' 2 '; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 9) { $rllvrslotA = '3 0'; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = '2 6'; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = ' 9 '; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = '2 8'; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = ' 0 '; $rllvrcolorE = $rllvrcolor1; } elsif ($rllvrwinnbr == 26) { $rllvrslotA = '1 1'; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = '3 0'; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = '2 6'; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = ' 9 '; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = '2 8'; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 30) { $rllvrslotA = ' 7 '; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = '1 1'; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = '3 0'; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = '2 6'; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = ' 9 '; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 11) { $rllvrslotA = '2 0'; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = ' 7 '; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = '1 1'; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = '3 0'; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = '2 6'; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 7) { $rllvrslotA = '3 2'; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = '2 0'; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = ' 7 '; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = '1 1'; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = '3 0'; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 20) { $rllvrslotA = '1 7'; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = '3 2'; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = '2 0'; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = ' 7 '; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = '1 1'; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 32) { $rllvrslotA = ' 5 '; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = '1 7'; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = '3 2'; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = '2 0'; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = ' 7 '; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 17) { $rllvrslotA = '2 2'; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = ' 5 '; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = '1 7'; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = '3 2'; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = '2 0'; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 5) { $rllvrslotA = '3 4'; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = '2 2'; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = ' 5 '; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = '1 7'; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = '3 2'; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 22) { $rllvrslotA = '1 5'; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = '3 4'; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = '2 2'; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = ' 5 '; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = '1 7'; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 34) { $rllvrslotA = ' 3 '; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = '1 5'; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = '3 4'; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = '2 2'; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = ' 5 '; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 15) { $rllvrslotA = '2 4'; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = ' 3 '; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = '1 5'; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = '3 4'; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = '2 2'; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 3) { $rllvrslotA = '3 6'; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = '2 4'; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = ' 3 '; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = '1 5'; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = '3 4'; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 24) { $rllvrslotA = '1 3'; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = '3 6'; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = '2 4'; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = ' 3 '; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = '1 5'; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 36) { $rllvrslotA = ' 1 '; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = '1 3'; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = '3 6'; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = '2 4'; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = ' 3 '; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 13) { $rllvrslotA = '0 0'; $rllvrcolorA = $rllvrcolor1; $rllvrslotB = ' 1 '; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = '1 3'; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = '3 6'; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = '2 4'; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 1) { $rllvrslotA = '2 7'; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = '0 0'; $rllvrcolorB = $rllvrcolor1; $rllvrslotC = ' 1 '; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = '1 3'; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = '3 6'; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 37) { $rllvrslotA = '1 0'; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = '2 7'; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = '0 0'; $rllvrcolorC = $rllvrcolor1; $rllvrslotD = ' 1 '; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = '1 3'; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 27) { $rllvrslotA = '2 5'; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = '1 0'; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = '2 7'; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = '0 0'; $rllvrcolorD = $rllvrcolor1; $rllvrslotE = ' 1 '; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 10) { $rllvrslotA = '2 9'; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = '2 5'; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = '1 0'; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = '2 7'; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = '0 0'; $rllvrcolorE = $rllvrcolor1; } elsif ($rllvrwinnbr == 25) { $rllvrslotA = '1 2'; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = '2 9'; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = '2 5'; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = '1 0'; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = '2 7'; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 29) { $rllvrslotA = ' 8 '; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = '1 2'; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = '2 9'; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = '2 5'; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = '1 0'; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 12) { $rllvrslotA = '1 9'; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = ' 8 '; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = '1 2'; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = '2 9'; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = '2 5'; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 8) { $rllvrslotA = '3 1'; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = '1 9'; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = ' 8 '; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = '1 2'; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = '2 9'; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 19) { $rllvrslotA = '1 8'; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = '3 1'; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = '1 9'; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = ' 8 '; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = '1 2'; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 31) { $rllvrslotA = ' 6 '; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = '1 8'; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = '3 1'; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = '1 9'; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = ' 8 '; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 18) { $rllvrslotA = '2 1'; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = ' 6 '; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = '1 8'; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = '3 1'; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = '1 9'; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 6) { $rllvrslotA = '3 3'; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = '2 1'; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = ' 6 '; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = '1 8'; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = '3 1'; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 21) { $rllvrslotA = '1 6'; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = '3 3'; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = '2 1'; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = ' 6 '; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = '1 8'; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 33) { $rllvrslotA = ' 4 '; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = '1 6'; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = '3 3'; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = '2 1'; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = ' 6 '; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 16) { $rllvrslotA = '2 3'; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = ' 4 '; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = '1 6'; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = '3 3'; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = '2 1'; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 4) { $rllvrslotA = '3 5'; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = '2 3'; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = ' 4 '; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = '1 6'; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = '3 3'; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 23) { $rllvrslotA = '1 4'; $rllvrcolorA = $rllvrcolor3; $rllvrslotB = '3 5'; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = '2 3'; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = ' 4 '; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = '1 6'; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 35) { $rllvrslotA = ' 2 '; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = '1 4'; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = '3 5'; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = '2 3'; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = ' 4 '; $rllvrcolorE = $rllvrcolor2; } elsif ($rllvrwinnbr == 14) { $rllvrslotA = ' 0 '; $rllvrcolorA = $rllvrcolor1; $rllvrslotB = ' 2 '; $rllvrcolorB = $rllvrcolor2; $rllvrslotC = '1 4'; $rllvrcolorC = $rllvrcolor3; $rllvrslotD = '3 5'; $rllvrcolorD = $rllvrcolor2; $rllvrslotE = '2 3'; $rllvrcolorE = $rllvrcolor3; } elsif ($rllvrwinnbr == 2) { $rllvrslotA = '2 8'; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = ' 0 '; $rllvrcolorB = $rllvrcolor1; $rllvrslotC = ' 2 '; $rllvrcolorC = $rllvrcolor2; $rllvrslotD = '1 4'; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = '3 5'; $rllvrcolorE = $rllvrcolor2; } else { $rllvrslotA = '0?0'; $rllvrcolorA = $rllvrcolor2; $rllvrslotB = '?0?'; $rllvrcolorB = $rllvrcolor3; $rllvrslotC = '0?0'; $rllvrcolorC = $rllvrcolor1; $rllvrslotD = '?0?'; $rllvrcolorD = $rllvrcolor3; $rllvrslotE = '0?0'; $rllvrcolorE = $rllvrcolor2; } if ($rllvrcolorA eq $rllvrcolor2) { $rllvrcolorAb = $rllvrcolor2b; } elsif ($rllvrcolorA eq $rllvrcolor3) { $rllvrcolorAb = $rllvrcolor3b; } elsif ($rllvrcolorA eq $rllvrcolor1) { $rllvrcolorAb = $rllvrcolor4; } if ($rllvrcolorB eq $rllvrcolor2) { $rllvrcolorBb = $rllvrcolor2b; } elsif ($rllvrcolorB eq $rllvrcolor3) { $rllvrcolorBb = $rllvrcolor3b; } elsif ($rllvrcolorB eq $rllvrcolor1) { $rllvrcolorBb = $rllvrcolor4; } if ($rllvrcolorC eq $rllvrcolor2) { $rllvrcolorCb = $rllvrcolor2b; } elsif ($rllvrcolorC eq $rllvrcolor3) { $rllvrcolorCb = $rllvrcolor3b; } elsif ($rllvrcolorC eq $rllvrcolor1) { $rllvrcolorCb = $rllvrcolor4; } if ($rllvrcolorD eq $rllvrcolor2) { $rllvrcolorDb = $rllvrcolor2b; } elsif ($rllvrcolorD eq $rllvrcolor3) { $rllvrcolorDb = $rllvrcolor3b; } elsif ($rllvrcolorD eq $rllvrcolor1) { $rllvrcolorDb = $rllvrcolor4; } if ($rllvrcolorE eq $rllvrcolor2) { $rllvrcolorEb = $rllvrcolor2b; } elsif ($rllvrcolorE eq $rllvrcolor3) { $rllvrcolorEb = $rllvrcolor3b; } elsif ($rllvrcolorE eq $rllvrcolor1) { $rllvrcolorEb = $rllvrcolor4; } } sub rllvrprintmain { rllvrmedian1(); print"\n"; rllvrcolorcA(); rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrstatusbar2(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot2(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrstatusbar3(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrstatusbar4(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrstatusbar5(); print"\n"; rllvrslot5(); rllvrslot3(); rllvrslot6(); rllvrslot5();rllvrspace1(); rllvrb000(); rllvrstatusbar6(); print"\n"; rllvrcolorcB(); rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrspace1(); rllvrb00(); rllvrstatusbar7(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrspace1(); rllvrb0(); rllvrstatusbar8(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot2(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrspace1(); rllvrb1(); rllvrstatusbar9(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrspace1(); rllvrb2(); rllvrstatusbar10(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrspace1(); rllvrb3(); rllvrstatusbar11(); print"\n"; rllvrslot5(); rllvrslot3(); rllvrslot6(); rllvrslot5(); rllvrspace1(); rllvrb0(); rllvrstatusbar12(); print"\n"; rllvrcolorcC(); rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrspace1(); rllvrb4(); rllvrstatusbar13(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot8(); rllvrslot5(); rllvrspace1(); rllvrb5(); rllvrstatusbar14(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot2(); rllvrslot4(); rllvrslot9(); rllvrslot5(); rllvrspace1(); rllvrb6(); rllvrstatusbar15(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot10(); rllvrslot5(); rllvrspace1(); rllvrb0(); rllvrstatusbar16(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrspace1(); rllvrb7(); rllvrstatusbar17(); print"\n"; rllvrslot5(); rllvrslot3(); rllvrslot6(); rllvrslot5(); rllvrspace1(); rllvrb8(); rllvrstatusbar18(); print"\n"; rllvrcolorcD(); rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrspace1(); rllvrb9(); rllvrstatusbar19(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrspace1(); rllvrb0(); rllvrstatusbar20(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot2(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrspace1(); rllvrb10(); rllvrstatusbar21(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrspace1(); rllvrb11(); rllvrstatusbar22(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrspace1(); rllvrb12(); rllvrstatusbar23(); print"\n"; rllvrslot5(); rllvrslot3(); rllvrslot6(); rllvrslot5(); rllvrspace1(); rllvrb0(); rllvrstatusbar24(); print"\n"; rllvrcolorcE(); rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrspace1(); rllvrb00000(); rllvrstatusbar25(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrspace1(); rllvrb0000(); rllvrstatusbar26(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot2(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrstatusbar3();print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrstatusbar(); print"\n"; rllvrslot5(); rllvrslot4(); rllvrslot1(); rllvrslot4(); rllvrslot7(); rllvrslot5(); rllvrmedian3(); print"\n"; rllvrmedian2(); STDOUT->flush(); } sub rllvrmedian1 { print colored('/------------------------------------------------------------------------------\\',"$rllvrcolor8 on_$rllvrcolor7"); } sub rllvrmedian2 { print colored('\\----------------------/',"$rllvrcolor8 on_$rllvrcolor7"); } sub rllvrmedian3 { print colored('-------------------------------------------------------/',"$rllvrcolor8 on_$rllvrcolor7"); } sub rllvrstatusbar { print colored(' WINNINGS ',"$rllvrcolor8 on_$rllvrcolor7"); rllvrwinnings(); print colored(' TOTAL FUNDS ',"$rllvrcolor8 on_$rllvrcolor7"); rllvrtotal(); print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); rllvrslot5(); } sub rllvrstatusbar2 { if ($rllvrsetup == 0) { print colored(' Real Vegas Roulette ',"$rllvrcolor15 on_$rllvrcolor7"); } else { print colored(' Roulette De Americana ',"$rllvrcolor15 on_$rllvrcolor7"); } print colored(' BET ',"$rllvrcolor8 on_$rllvrcolor7"); rllvrbet(); print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); rllvrslot5(); } sub rllvrstatusbar3 { # print colored(' |',"$rllvrcolor8 on_$rllvrcolor7"); } sub rllvrstatusbar4 { # print colored(' P = PLAY B = CHANGE BET N = CHANGE NUMBERS |',"$rllvrcolor8 on_$rllvrcolor7"); } sub rllvrstatusbar5 { # print colored(' C = RETURN TO CASINO MENU ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('/-------------------------|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar6 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('//',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp1","$rllvrcolor22 on_$rllvrcolor23"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar7 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp2","$rllvrcolor24 on_$rllvrcolor25"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar8 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp3","$rllvrcolor22 on_$rllvrcolor23"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar9 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp4","$rllvrcolor24 on_$rllvrcolor25"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar10 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp5","$rllvrcolor22 on_$rllvrcolor23"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar11 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp6","$rllvrcolor24 on_$rllvrcolor25"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar12 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp7","$rllvrcolor22 on_$rllvrcolor23"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar13 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp8","$rllvrcolor24 on_$rllvrcolor25"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar14 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp9","$rllvrcolor22 on_$rllvrcolor23"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar15 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp10","$rllvrcolor24 on_$rllvrcolor25"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar16 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp11","$rllvrcolor22 on_$rllvrcolor23"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar17 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp12","$rllvrcolor24 on_$rllvrcolor25"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar18 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp13","$rllvrcolor22 on_$rllvrcolor23"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar19 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp14","$rllvrcolor24 on_$rllvrcolor25"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar20 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp15","$rllvrcolor22 on_$rllvrcolor23"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar21 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp16","$rllvrcolor24 on_$rllvrcolor25"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar22 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp17","$rllvrcolor22 on_$rllvrcolor23"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar23 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp18","$rllvrcolor24 on_$rllvrcolor25"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar24 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp19","$rllvrcolor22 on_$rllvrcolor23"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar25 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('\\\\',"$rllvrcolor20 on_$rllvrcolor21"); print colored("$rllvrcomp20","$rllvrcolor24 on_$rllvrcolor25"); print colored('|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstatusbar26 { # print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); print colored('\-------------------------|',"$rllvrcolor20 on_$rllvrcolor21"); } sub rllvrstdcomp { if ($rllvrsetup == 0) { $rllvrcomp1 = ' '; $rllvrcomp2 = ' Single Numbers Pay 36X '; $rllvrcomp3 = ' '; $rllvrcomp4 = ' Columns Pay 3X '; $rllvrcomp5 = ' '; $rllvrcomp6 = ' Even / Odd Pays 2X '; $rllvrcomp7 = ' '; if ($rllvrfuturecarlo == 1) { $rllvrcomp8 = ' Magenta / Blue Pays 2X '; } else { $rllvrcomp8 = ' Red / Black Pays 2X '; } $rllvrcomp9 = ' '; $rllvrcomp10 = ' Double Thirds Pay 1.5X '; $rllvrcomp11 = ' '; $rllvrcomp12 = ' Triple Fourths Pay 1.3X '; $rllvrcomp13 = ' '; $rllvrcomp14 = ' Groups Pay 4X '; $rllvrcomp15 = ' '; $rllvrcomp16 = ' Lines Pay 12X '; $rllvrcomp17 = ' '; $rllvrcomp18 = ' Powers of 2 Pay 7X '; $rllvrcomp19 = ' '; $rllvrcomp20 = ' Zeroes Pay 18X '; } else { $rllvrcomp1 = ' '; $rllvrcomp2 = ' Single Numbers Pay 36X '; $rllvrcomp3 = ' '; $rllvrcomp4 = ' Columns Pay 3X '; $rllvrcomp5 = ' '; $rllvrcomp6 = ' Odds or Evens Pays 2X '; $rllvrcomp7 = ' '; $rllvrcomp8 = ' Blue Pays 2X '; $rllvrcomp9 = ' '; $rllvrcomp10 = ' Black Pays 2X '; $rllvrcomp11 = ' '; $rllvrcomp12 = ' Double Thirds Pay 1.5X '; $rllvrcomp13 = ' '; $rllvrcomp14 = ' Triple Fourths Pay 1.3X '; $rllvrcomp15 = ' '; $rllvrcomp16 = ' Groups Pay 4X '; $rllvrcomp17 = ' '; $rllvrcomp18 = ' Lines Pay 12X '; $rllvrcomp19 = ' '; $rllvrcomp20 = ' Zeroes Pay 18X '; } } sub rllvrbetcomp { $rllvrcomp1 = ' '; $rllvrcomp2 = ' '; $rllvrcomp3 = ' Enter Your Bet: '; $rllvrcomp4 = ' '; $rllvrcomp5 = ' '; $rllvrcomp6 = ' '; $rllvrcomp7 = ' '; $rllvrcomp8 = ' '; $rllvrcomp9 = ' '; $rllvrcomp10 = ' '; $rllvrcomp11 = ' '; $rllvrcomp12 = ' '; $rllvrcomp13 = ' '; $rllvrcomp14 = ' '; $rllvrcomp15 = ' '; $rllvrcomp16 = ' '; $rllvrcomp17 = ' '; $rllvrcomp18 = ' '; $rllvrcomp19 = ' '; $rllvrcomp20 = ' '; } sub rllvrnbrcomp { $rllvrcomp1 = ' Choose Numbers: '; $rllvrcomp2 = '*Enter A Number To Play # '; $rllvrcomp3 = '*Enter C1, C2, or C3 To '; $rllvrcomp4 = ' Play Column 1, 2, or 3 '; $rllvrcomp5 = '*Enter T1, T2, or T3 To '; $rllvrcomp6 = ' Play 2/3 Of The Wheel '; $rllvrcomp7 = '*Enter F1..F4 To Play 3/4 '; $rllvrcomp8 = '*Enter EVEN To Play Even '; $rllvrcomp9 = '*Enter ODD To Play Odd '; if ($rllvrsetup == 0) { if ($rllvrfuturecarlo == 1) { $rllvrcomp10 = '*Enter MAGENTA To Play Mag'; $rllvrcomp11 = '*Enter BLUE To Play Blue '; } else { $rllvrcomp10 = '*Enter RED To Play Red '; $rllvrcomp11 = '*Enter BLACK To Play Black'; } } else { $rllvrcomp10 = '*Enter BLUE To Play Blue '; $rllvrcomp11 = '*Enter BLACK To Play Black'; } $rllvrcomp12 = '*Enter LOWER18 To Play Top'; $rllvrcomp13 = '*Enter UPPER18 To Play Bot'; $rllvrcomp14 = '*Enter G1, G2, G3, or G4 '; $rllvrcomp15 = ' To Play Group 1,2,3,or 4'; $rllvrcomp16 = '*Enter L1,L2...L12 To Play'; $rllvrcomp17 = ' Lines 1, 2 ... 12 '; if ($rllvrsetup == 0) { $rllvrcomp18 = '*Enter P2 To Play Powers '; $rllvrcomp19 = ' Of Two '; $rllvrcomp20 = '*Enter Z To Play Zeroes '; } else { $rllvrcomp18 = '*Enter Z To Play Zeroes '; $rllvrcomp19 = ' '; $rllvrcomp20 = ' '; } } sub rllvrtotal { sep; if ($money > 9999999999) { print colored(sprintf("%.4e", $money),"$rllvrcolor13 on_$rllvrcolor14"); } elsif ($money >= 1000000000) { print colored("$money","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($money >= 100000000) { print colored(" $money","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($money >= 10000000) { print colored(" $money","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($money >= 1000000) { print colored(" $money","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($money >= 100000) { print colored(" $money","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($money >= 10000) { print colored(" $money","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($money >= 1000) { print colored(" $money","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($money >= 100) { print colored(" $money","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($money >= 10) { print colored(" $money","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($money >= 1) { print colored(" $money","$rllvrcolor13 on_$rllvrcolor14"); } else { print colored(" $money","$rllvrcolor13 on_$rllvrcolor14"); } sep; } sub rllvrwinnings { sep; if ($rllvrmoney > 9999999999) { print colored(sprintf("%.4e", $rllvrmoney),"$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrmoney >= 1000000000) { print colored("$rllvrmoney","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrmoney >= 100000000) { print colored(" $rllvrmoney","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrmoney >= 10000000) { print colored(" $rllvrmoney","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrmoney >= 1000000) { print colored(" $rllvrmoney","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrmoney >= 100000) { print colored(" $rllvrmoney","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrmoney >= 10000) { print colored(" $rllvrmoney","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrmoney >= 1000) { print colored(" $rllvrmoney","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrmoney >= 100) { print colored(" $rllvrmoney","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrmoney >= 10) { print colored(" $rllvrmoney","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrmoney >= 1) { print colored(" $rllvrmoney","$rllvrcolor13 on_$rllvrcolor14"); } else { print colored(" $rllvrmoney","$rllvrcolor13 on_$rllvrcolor14"); } sep; } sub rllvrbet { sep; if ($rllvrbet > 9999999999) { print colored(sprintf("%.4e", $rllvrbet),"$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrbet >= 1000000000) { print colored("$rllvrbet","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrbet >= 100000000) { print colored(" $rllvrbet","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrbet >= 10000000) { print colored(" $rllvrbet","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrbet >= 1000000) { print colored(" $rllvrbet","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrbet >= 100000) { print colored(" $rllvrbet","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrbet >= 10000) { print colored(" $rllvrbet","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrbet >= 1000) { print colored(" $rllvrbet","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrbet >= 100) { print colored(" $rllvrbet","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrbet >= 10) { print colored(" $rllvrbet","$rllvrcolor13 on_$rllvrcolor14"); } elsif ($rllvrbet >= 1) { print colored(" $rllvrbet","$rllvrcolor13 on_$rllvrcolor14"); } else { print colored(" $rllvrbet","$rllvrcolor13 on_$rllvrcolor14"); } sep; } sub rllvrspace1 { print colored(' ',"$rllvrcolor8 on_$rllvrcolor7"); } sub rllvrb0000 { print colored('\\-----------------/',"$rllvrcolor8 on_$rllvrcolor7"); } sub rllvrb000 { print colored('/-----------------\\',"$rllvrcolor8 on_$rllvrcolor7"); } sub rllvrb00 { if ($rllvrsetup == 1) { #Roulette De Americana rllvrslot5(); if ($rllvrb0p == 1) { print colored(' 0 ',"$rllvrcolor18 on_$red"); } else { print colored(' 0 ',"$boldred on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb00p == 1) { print colored(' 0 0 ',"$rllvrcolor18 on_$red"); } else { print colored(' 0 0 ',"$boldred on_$rllvrcolor17"); } rllvrslot5(); } else { #Monte Carlo Roulette rllvrslot5(); if ($rllvrb0p == 1) { print colored(' 0 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 0 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb00p == 1) { print colored(' 0 0 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 0 0 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); } } sub rllvrb00000 { rllvrslot5(); if ($rllvrbRp == 1) { print colored("$rllvrredvar","$rllvrcolor18 on_$rllvrcolor19"); } else { print colored("$rllvrredvar","$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrbBp == 1) { print colored("$rllvrblkvar","$rllvrcolor18 on_$rllvrcolor19"); } else { print colored("$rllvrblkvar","$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); } sub rllvrb0 { print colored('|-----------------|',"$rllvrcolor8 on_$rllvrcolor7"); } sub rllvrb1 { rllvrslot5(); if ($rllvrb1p == 1) { print colored(' 1 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 1 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb2p == 1) { print colored(' 2 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 2 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb3p == 1) { print colored(' 3 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 3 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); } sub rllvrb2 { rllvrslot5(); if ($rllvrb4p == 1) { print colored(' 4 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 4 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb5p == 1) { print colored(' 5 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 5 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb6p == 1) { print colored(' 6 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 6 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); } sub rllvrb3 { rllvrslot5(); if ($rllvrb7p == 1) { print colored(' 7 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 7 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb8p == 1) { print colored(' 8 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 8 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb9p == 1) { print colored(' 9 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 9 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); } sub rllvrb4 { rllvrslot5(); if ($rllvrb10p == 1) { print colored(' 1 0 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 1 0 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb11p == 1) { print colored(' 1 1 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 1 1 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb12p == 1) { print colored(' 1 2 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 1 2 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); } sub rllvrb5 { rllvrslot5(); if ($rllvrb13p == 1) { print colored(' 1 3 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 1 3 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb14p == 1) { print colored(' 1 4 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 1 4 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb15p == 1) { print colored(' 1 5 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 1 5 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); } sub rllvrb6 { rllvrslot5(); if ($rllvrb16p == 1) { print colored(' 1 6 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 1 6 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb17p == 1) { print colored(' 1 7 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 1 7 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb18p == 1) { print colored(' 1 8 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 1 8 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); } sub rllvrb7 { rllvrslot5(); if ($rllvrb19p == 1) { print colored(' 1 9 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 1 9 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb20p == 1) { print colored(' 2 0 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 2 0 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb21p == 1) { print colored(' 2 1 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 2 1 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); } sub rllvrb8 { rllvrslot5(); if ($rllvrb22p == 1) { print colored(' 2 2 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 2 2 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb23p == 1) { print colored(' 2 3 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 2 3 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb24p == 1) { print colored(' 2 4 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 2 4 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); } sub rllvrb9 { rllvrslot5(); if ($rllvrb25p == 1) { print colored(' 2 5 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 2 5 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb26p == 1) { print colored(' 2 6 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 2 6 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb27p == 1) { print colored(' 2 7 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 2 7 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); } sub rllvrb10 { rllvrslot5(); if ($rllvrb28p == 1) { print colored(' 2 8 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 2 8 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb29p == 1) { print colored(' 2 9 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 2 9 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb30p == 1) { print colored(' 3 0 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 3 0 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); } sub rllvrb11 { rllvrslot5(); if ($rllvrb31p == 1) { print colored(' 3 1 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 3 1 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb32p == 1) { print colored(' 3 2 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 3 2 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb33p == 1) { print colored(' 3 3 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 3 3 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); } sub rllvrb12 { rllvrslot5(); if ($rllvrb34p == 1) { print colored(' 3 4 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 3 4 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb35p == 1) { print colored(' 3 5 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 3 5 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); if ($rllvrb36p == 1) { print colored(' 3 6 ',"$rllvrcolor18 on_$rllvrcolor19"); } else { print colored(' 3 6 ',"$rllvrcolor16 on_$rllvrcolor17"); } rllvrslot5(); } ################################################################################################################################ ## GENRE: Dice ## NAME: Sic Bo Tai Sai ## AUTHOR: MikeeUSA sub sbtresetnum { $sbtRtotal4 = 0; $sbtRtotal5 = 0; $sbtRtotal6 = 0; $sbtRtotal7 = 0; $sbtRtotal8 = 0; $sbtRtotal9 = 0; $sbtRtotal10 = 0; $sbtRtotal11 = 0; $sbtRtotal12 = 0; $sbtRtotal13 = 0; $sbtRtotal14 = 0; $sbtRtotal15 = 0; $sbtRtotal16 = 0; $sbtRtotal17 = 0; $sbtRtotalSM = 0; $sbtRtotalBG = 0; $sbtRtotalANYTRI = 0; $sbtRtotalSPFTRI = 0; $sbtRtotalSPFDOB = 0; $sbtRtotalNUMBER = 0; } sub sbtmainspin1 { sbtreset(); sbtcompvars1(); sbtcolors(); if ($animate == 1) { $sbtcolorD0 = $sbtcolorD2; sbtthrowdice(); sbtmainprint(); p7pause(); newlines(); sbtthrowdice(); sbtmainprint(); p7pause(); newlines(); sbtthrowdice(); sbtmainprint(); p7pause(); newlines(); sbtthrowdice(); sbtmainprint(); p7pause(); newlines(); sbtthrowdice(); sbtmainprint(); p7pause(); newlines(); sbtthrowdice(); sbtmainprint(); p7pause(); newlines(); sbtthrowdice(); sbtmainprint(); p7pause(); newlines(); sbtthrowdice(); sbtmainprint(); p7pause(); newlines(); sbtthrowdice(); sbtmainprint(); p7pause(); newlines(); sbtthrowdice(); sbtmainprint(); p7pause(); newlines(); sbtcolors(); } sbtthrowdice(); sbtaddmoney(); sbtmainprint(); ptracker(); sbtstdin1(); } sub sbtmainspin2 { sbtreset(); sbtcompvars1(); sbtcolors(); sbtmainprint(); sbtstdin1(); } sub sbtmainspin3 { sbtreset(); sbtcompvars2(); sbtcolors(); sbtmainprint(); $sbtstart2 = <STDIN>; chomp($sbtstart2); sbtresetnum(); if (($sbtstart2 eq 't4') or ($sbtstart2 eq 'T4')) { $sbtstart2 = 'T4'; $sbtRtotal4 = 1; } elsif (($sbtstart2 eq 't5') or ($sbtstart2 eq 'T5')) { $sbtstart2 = 'T5'; $sbtRtotal5 = 1; } elsif (($sbtstart2 eq 't6') or ($sbtstart2 eq 'T6')) { $sbtstart2 = 'T6'; $sbtRtotal6 = 1; } elsif (($sbtstart2 eq 't7') or ($sbtstart2 eq 'T7')) { $sbtstart2 = 'T7'; $sbtRtotal7 = 1; } elsif (($sbtstart2 eq 't8') or ($sbtstart2 eq 'T8')) { $sbtstart2 = 'T8'; $sbtRtotal8 = 1; } elsif (($sbtstart2 eq 't9') or ($sbtstart2 eq 'T9')) { $sbtstart2 = 'T9'; $sbtRtotal9 = 1; } elsif (($sbtstart2 eq 't10') or ($sbtstart2 eq 'T10')) { $sbtstart2 = 'T10'; $sbtRtotal10 = 1; } elsif (($sbtstart2 eq 't11') or ($sbtstart2 eq 'T11')) { $sbtstart2 = 'T11'; $sbtRtotal11 = 1; } elsif (($sbtstart2 eq 't12') or ($sbtstart2 eq 'T12')) { $sbtstart2 = 'T12'; $sbtRtotal12 = 1; } elsif (($sbtstart2 eq 't13') or ($sbtstart2 eq 'T13')) { $sbtstart2 = 'T13'; $sbtRtotal13 = 1; } elsif (($sbtstart2 eq 't14') or ($sbtstart2 eq 'T14')) { $sbtstart2 = 'T14'; $sbtRtotal14 = 1; } elsif (($sbtstart2 eq 't15') or ($sbtstart2 eq 'T15')) { $sbtstart2 = 'T15'; $sbtRtotal15 = 1; } elsif (($sbtstart2 eq 't16') or ($sbtstart2 eq 'T16')) { $sbtstart2 = 'T16'; $sbtRtotal16 = 1; } elsif (($sbtstart2 eq 't17') or ($sbtstart2 eq 'T17')) { $sbtstart2 = 'T17'; $sbtRtotal17 = 1; } elsif (($sbtstart2 eq 'anytri') or ($sbtstart2 eq 'ANYTRI')) { $sbtstart2 = 'ANYTRI'; $sbtRtotalANYTRI = 1; } elsif (($sbtstart2 eq 'small') or ($sbtstart2 eq 'SMALL')) { $sbtstart2 = 'SMALL'; $sbtRtotalSM = 1; } elsif (($sbtstart2 eq 'big') or ($sbtstart2 eq 'BIG')) { $sbtstart2 = 'BIG'; $sbtRtotalBG = 1; } elsif (($sbtstart2 eq 'st1') or ($sbtstart2 eq 'ST1')) { $sbtstart2 = 'ST1'; $sbtRtotalSPFTRI = 1; } elsif (($sbtstart2 eq 'st2') or ($sbtstart2 eq 'ST2')) { $sbtstart2 = 'ST2'; $sbtRtotalSPFTRI = 2; } elsif (($sbtstart2 eq 'st3') or ($sbtstart2 eq 'ST3')) { $sbtstart2 = 'ST3'; $sbtRtotalSPFTRI = 3; } elsif (($sbtstart2 eq 'st4') or ($sbtstart2 eq 'ST4')) { $sbtstart2 = 'ST4'; $sbtRtotalSPFTRI = 4; } elsif (($sbtstart2 eq 'st5') or ($sbtstart2 eq 'ST5')) { $sbtstart2 = 'ST5'; $sbtRtotalSPFTRI = 5; } elsif (($sbtstart2 eq 'st6') or ($sbtstart2 eq 'ST6')) { $sbtstart2 = 'ST6'; $sbtRtotalSPFTRI = 6; } elsif (($sbtstart2 eq 'sd1') or ($sbtstart2 eq 'SD1')) { $sbtstart2 = 'SD1'; $sbtRtotalSPFDOB = 1; } elsif (($sbtstart2 eq 'sd2') or ($sbtstart2 eq 'SD2')) { $sbtstart2 = 'SD2'; $sbtRtotalSPFDOB = 2; } elsif (($sbtstart2 eq 'sd3') or ($sbtstart2 eq 'SD3')) { $sbtstart2 = 'SD3'; $sbtRtotalSPFDOB = 3; } elsif (($sbtstart2 eq 'sd4') or ($sbtstart2 eq 'SD4')) { $sbtstart2 = 'SD4'; $sbtRtotalSPFDOB = 4; } elsif (($sbtstart2 eq 'sd5') or ($sbtstart2 eq 'SD5')) { $sbtstart2 = 'SD5'; $sbtRtotalSPFDOB = 5; } elsif (($sbtstart2 eq 'sd6') or ($sbtstart2 eq 'SD6')) { $sbtstart2 = 'SD6'; $sbtRtotalSPFDOB = 6; } elsif (($sbtstart2 eq 'n1') or ($sbtstart2 eq 'N1')) { $sbtstart2 = 'N1'; $sbtRtotalNUMBER = 1; } elsif (($sbtstart2 eq 'n2') or ($sbtstart2 eq 'N2')) { $sbtstart2 = 'N2'; $sbtRtotalNUMBER = 2; } elsif (($sbtstart2 eq 'n3') or ($sbtstart2 eq 'N3')) { $sbtstart2 = 'N3'; $sbtRtotalNUMBER = 3; } elsif (($sbtstart2 eq 'n4') or ($sbtstart2 eq 'N4')) { $sbtstart2 = 'N4'; $sbtRtotalNUMBER = 4; } elsif (($sbtstart2 eq 'n5') or ($sbtstart2 eq 'N5')) { $sbtstart2 = 'N5'; $sbtRtotalNUMBER = 5; } elsif (($sbtstart2 eq 'n6') or ($sbtstart2 eq 'N6')) { $sbtstart2 = 'N6'; $sbtRtotalNUMBER = 6; } else { $sbtstart2 = ' '; } newlines(); sbtmainspin2(); } sub sbtaddmoney { $sbtdrand4 = ("$sbtdrand1"."$sbtdrand2"."$sbtdrand3"); $sbtadded = ($sbtdrand1 + $sbtdrand2 + $sbtdrand3); if (($sbtadded eq 4) && ($sbtstart2 eq 'T4')) { $sbtaddmoney = $sbtbet * 61; $sbtstwin = $sbtstwin + 1; } elsif (($sbtadded eq 5) && ($sbtstart2 eq 'T5')) { $sbtaddmoney = $sbtbet * 31; $sbtstwin = $sbtstwin + 1; } elsif (($sbtadded eq 6) && ($sbtstart2 eq 'T6')) { $sbtaddmoney = $sbtbet * 19; $sbtstwin = $sbtstwin + 1; } elsif (($sbtadded eq 7) && ($sbtstart2 eq 'T7')) { $sbtaddmoney = $sbtbet * 13; $sbtstwin = $sbtstwin + 1; } elsif (($sbtadded eq 8) && ($sbtstart2 eq 'T8')) { $sbtaddmoney = $sbtbet * 9; $sbtstwin = $sbtstwin + 1; } elsif (($sbtadded eq 9) && ($sbtstart2 eq 'T9')) { $sbtaddmoney = $sbtbet * 8; $sbtstwin = $sbtstwin + 1; } elsif (($sbtadded eq 10) && ($sbtstart2 eq 'T10')) { $sbtaddmoney = $sbtbet * 7; $sbtstwin = $sbtstwin + 1; } elsif (($sbtadded eq 11) && ($sbtstart2 eq 'T11')) { $sbtaddmoney = $sbtbet * 7; $sbtstwin = $sbtstwin + 1; } elsif (($sbtadded eq 12) && ($sbtstart2 eq 'T12')) { $sbtaddmoney = $sbtbet * 8; $sbtstwin = $sbtstwin + 1; } elsif (($sbtadded eq 13) && ($sbtstart2 eq 'T13')) { $sbtaddmoney = $sbtbet * 9; $sbtstwin = $sbtstwin + 1; } elsif (($sbtadded eq 14) && ($sbtstart2 eq 'T14')) { $sbtaddmoney = $sbtbet * 13; $sbtstwin = $sbtstwin + 1; } elsif (($sbtadded eq 15) && ($sbtstart2 eq 'T15')) { $sbtaddmoney = $sbtbet * 19; $sbtstwin = $sbtstwin + 1; } elsif (($sbtadded eq 16) && ($sbtstart2 eq 'T16')) { $sbtaddmoney = $sbtbet * 31; $sbtstwin = $sbtstwin + 1; } elsif (($sbtadded eq 17) && ($sbtstart2 eq 'T17')) { $sbtaddmoney = $sbtbet * 31; $sbtstwin = $sbtstwin + 1; } elsif (($sbtadded > 10) && ($sbtstart2 eq 'BIG')) { if (($sbtdrand4 eq 111) or ($sbtdrand4 eq 222) or ($sbtdrand4 eq 333) or ($sbtdrand4 eq 444) or ($sbtdrand4 eq 555) or ($sbtdrand4 eq 666)) { $sbtaddmoney = 0; $sbtstlose = $sbtstlose + 1; } else { $sbtaddmoney = $sbtbet * 2; $sbtstwin = $sbtstwin + 1; } } elsif (($sbtadded < 11) && ($sbtstart2 eq 'SMALL')) { if (($sbtdrand4 eq 111) or ($sbtdrand4 eq 222) or ($sbtdrand4 eq 333) or ($sbtdrand4 eq 444) or ($sbtdrand4 eq 555) or ($sbtdrand4 eq 666)) { $sbtaddmoney = 0; $sbtstlose = $sbtstlose + 1; } else { $sbtaddmoney = $sbtbet * 2; $sbtstwin = $sbtstwin + 1; } } elsif ((($sbtstart2 eq 'ANYTRI') && ($sbtdrand4 eq 111)) or (($sbtstart2 eq 'ANYTRI') && ($sbtdrand4 eq 222)) or (($sbtstart2 eq 'ANYTRI') && ($sbtdrand4 eq 333)) or (($sbtstart2 eq 'ANYTRI') && ($sbtdrand4 eq 444)) or (($sbtstart2 eq 'ANYTRI') && ($sbtdrand4 eq 555)) or (($sbtstart2 eq 'ANYTRI') && ($sbtdrand4 eq 666))) { $sbtaddmoney = $sbtbet * 31; $sbtstwin = $sbtstwin + 1; } elsif (($sbtstart2 eq 'ST1') && ($sbtdrand4 eq 111)) { $sbtaddmoney = $sbtbet * 180; $sbtstwin = $sbtstwin + 1; } elsif (($sbtstart2 eq 'ST2') && ($sbtdrand4 eq 222)) { $sbtaddmoney = $sbtbet * 180; $sbtstwin = $sbtstwin + 1; } elsif (($sbtstart2 eq 'ST3') && ($sbtdrand4 eq 333)) { $sbtaddmoney = $sbtbet * 180; $sbtstwin = $sbtstwin + 1; } elsif (($sbtstart2 eq 'ST4') && ($sbtdrand4 eq 444)) { $sbtaddmoney = $sbtbet * 180; $sbtstwin = $sbtstwin + 1; } elsif (($sbtstart2 eq 'ST5') && ($sbtdrand4 eq 555)) { $sbtaddmoney = $sbtbet * 180; $sbtstwin = $sbtstwin + 1; } elsif (($sbtstart2 eq 'ST6') && ($sbtdrand4 eq 666)) { $sbtaddmoney = $sbtbet * 180; $sbtstwin = $sbtstwin + 1; } elsif ($sbtstart2 eq 'SD1') { if ((($sbtdrand1 eq 1) && ($sbtdrand2 eq 1)) or (($sbtdrand2 eq 1) && ($sbtdrand3 eq 1)) or (($sbtdrand1 eq 1) && ($sbtdrand3 eq 1))) { $sbtaddmoney = $sbtbet * 11; $sbtstwin = $sbtstwin + 1; } else { $sbtaddmoney = 0; $sbtstlose = $sbtstlose + 1; } } elsif ($sbtstart2 eq 'SD2') { if ((($sbtdrand1 eq 2) && ($sbtdrand2 eq 2)) or (($sbtdrand2 eq 2) && ($sbtdrand3 eq 2)) or (($sbtdrand1 eq 2) && ($sbtdrand3 eq 2))) { $sbtaddmoney = $sbtbet * 11; $sbtstwin = $sbtstwin + 1; } else { $sbtaddmoney = 0; $sbtstlose = $sbtstlose + 1; } } elsif ($sbtstart2 eq 'SD3') { if ((($sbtdrand1 eq 3) && ($sbtdrand2 eq 3)) or (($sbtdrand2 eq 3) && ($sbtdrand3 eq 3)) or (($sbtdrand1 eq 3) && ($sbtdrand3 eq 3))) { $sbtaddmoney = $sbtbet * 11; $sbtstwin = $sbtstwin + 1; } else { $sbtaddmoney = 0; $sbtstlose = $sbtstlose + 1; } } elsif ($sbtstart2 eq 'SD4') { if ((($sbtdrand1 eq 4) && ($sbtdrand2 eq 4)) or (($sbtdrand2 eq 4) && ($sbtdrand3 eq 4)) or (($sbtdrand1 eq 4) && ($sbtdrand3 eq 4))) { $sbtaddmoney = $sbtbet * 11; $sbtstwin = $sbtstwin + 1; } else { $sbtaddmoney = 0; $sbtstlose = $sbtstlose + 1; } } elsif ($sbtstart2 eq 'SD5') { if ((($sbtdrand1 eq 5) && ($sbtdrand2 eq 5)) or (($sbtdrand2 eq 5) && ($sbtdrand3 eq 5)) or (($sbtdrand1 eq 5) && ($sbtdrand3 eq 5))) { $sbtaddmoney = $sbtbet * 11; $sbtstwin = $sbtstwin + 1; } else { $sbtaddmoney = 0; $sbtstlose = $sbtstlose + 1; } } elsif ($sbtstart2 eq 'SD6') { if ((($sbtdrand1 eq 6) && ($sbtdrand2 eq 6)) or (($sbtdrand2 eq 6) && ($sbtdrand3 eq 6)) or (($sbtdrand1 eq 6) && ($sbtdrand3 eq 6))) { $sbtaddmoney = $sbtbet * 11; $sbtstwin = $sbtstwin + 1; } else { $sbtaddmoney = 0; $sbtstlose = $sbtstlose + 1; } } elsif ($sbtstart2 eq 'N1') { if ($sbtdrand4 eq 111) { $sbtaddmoney = $sbtbet * 11; $sbtstwin = $sbtstwin + 1; } elsif ((($sbtdrand1 eq 1) && ($sbtdrand2 eq 1)) or (($sbtdrand2 eq 1) && ($sbtdrand3 eq 1)) or (($sbtdrand1 eq 1) && ($sbtdrand3 eq 1))) { $sbtaddmoney = $sbtbet * 3; $sbtstwin = $sbtstwin + 1; } elsif (($sbtdrand1 eq 1) or ($sbtdrand2 eq 1) or ($sbtdrand3 eq 1)) { $sbtaddmoney = $sbtbet * 2; $sbtstwin = $sbtstwin + 1; } else { $sbtaddmoney = 0; $sbtstlose = $sbtstlose + 1; } } elsif ($sbtstart2 eq 'N2') { if ($sbtdrand4 eq 222) { $sbtaddmoney = $sbtbet * 11; $sbtstwin = $sbtstwin + 1; } elsif ((($sbtdrand1 eq 2) && ($sbtdrand2 eq 2)) or (($sbtdrand2 eq 2) && ($sbtdrand3 eq 2)) or (($sbtdrand1 eq 2) && ($sbtdrand3 eq 2))) { $sbtaddmoney = $sbtbet * 3; $sbtstwin = $sbtstwin + 1; } elsif (($sbtdrand1 eq 2) or ($sbtdrand2 eq 2) or ($sbtdrand3 eq 2)) { $sbtaddmoney = $sbtbet * 2; $sbtstwin = $sbtstwin + 1; } else { $sbtaddmoney = 0; $sbtstlose = $sbtstlose + 1; } } elsif ($sbtstart2 eq 'N3') { if ($sbtdrand4 eq 333) { $sbtaddmoney = $sbtbet * 11; $sbtstwin = $sbtstwin + 1; } elsif ((($sbtdrand1 eq 3) && ($sbtdrand2 eq 3)) or (($sbtdrand2 eq 3) && ($sbtdrand3 eq 3)) or (($sbtdrand1 eq 3) && ($sbtdrand3 eq 3))) { $sbtaddmoney = $sbtbet * 3; $sbtstwin = $sbtstwin + 1; } elsif (($sbtdrand1 eq 3) or ($sbtdrand2 eq 3) or ($sbtdrand3 eq 3)) { $sbtaddmoney = $sbtbet * 2; $sbtstwin = $sbtstwin + 1; } else { $sbtaddmoney = 0; $sbtstlose = $sbtstlose + 1; } } elsif ($sbtstart2 eq 'N4') { if ($sbtdrand4 eq 444) { $sbtaddmoney = $sbtbet * 11; $sbtstwin = $sbtstwin + 1; } elsif ((($sbtdrand1 eq 4) && ($sbtdrand2 eq 4)) or (($sbtdrand2 eq 4) && ($sbtdrand3 eq 4)) or (($sbtdrand1 eq 4) && ($sbtdrand3 eq 4))) { $sbtaddmoney = $sbtbet * 3; $sbtstwin = $sbtstwin + 1; } elsif (($sbtdrand1 eq 4) or ($sbtdrand2 eq 4) or ($sbtdrand3 eq 4)) { $sbtaddmoney = $sbtbet * 2; $sbtstwin = $sbtstwin + 1; } else { $sbtaddmoney = 0; $sbtstlose = $sbtstlose + 1; } } elsif ($sbtstart2 eq 'N5') { if ($sbtdrand4 eq 555) { $sbtaddmoney = $sbtbet * 11; $sbtstwin = $sbtstwin + 1; } elsif ((($sbtdrand1 eq 5) && ($sbtdrand2 eq 5)) or (($sbtdrand2 eq 5) && ($sbtdrand3 eq 5)) or (($sbtdrand1 eq 5) && ($sbtdrand3 eq 5))) { $sbtaddmoney = $sbtbet * 3; $sbtstwin = $sbtstwin + 1; } elsif (($sbtdrand1 eq 5) or ($sbtdrand2 eq 5) or ($sbtdrand3 eq 5)) { $sbtaddmoney = $sbtbet * 2; $sbtstwin = $sbtstwin + 1; } else { $sbtaddmoney = 0; $sbtstlose = $sbtstlose + 1; } } elsif ($sbtstart2 eq 'N6') { if ($sbtdrand4 eq 666) { $sbtaddmoney = $sbtbet * 11; $sbtstwin = $sbtstwin + 1; } elsif ((($sbtdrand1 eq 6) && ($sbtdrand2 eq 6)) or (($sbtdrand2 eq 6) && ($sbtdrand3 eq 6)) or (($sbtdrand1 eq 6) && ($sbtdrand3 eq 6))) { $sbtaddmoney = $sbtbet * 3; $sbtstwin = $sbtstwin + 1; } elsif (($sbtdrand1 eq 6) or ($sbtdrand2 eq 6) or ($sbtdrand3 eq 6)) { $sbtaddmoney = $sbtbet * 2; $sbtstwin = $sbtstwin + 1; } else { $sbtaddmoney = 0; $sbtstlose = $sbtstlose + 1; } } else { $sbtaddmoney = 0; $sbtstlose = $sbtstlose + 1; } $sbtstmc = $sbtstmc + $sbtaddmoney; $sbtmoney = $sbtaddmoney; $money = $money + $sbtaddmoney; } sub sbtreset { $sbtaddmoney = 0; $sbtmoney = 0; } sub sbtmainspin4 { sbtreset(); sbtcompvars3(); sbtcolors(); sbtmainprint(); $sbtstart3 = <STDIN>; chomp($sbtstart3); if ($sbtstart3 > $money) { $sbtbet = 0; } elsif ($sbtstart3 <= 0) { $sbtbet = 0; } else { $sbtbet = sprintf("%.0f", $sbtstart3 ) } newlines(); sbtmainspin2(); } sub sbtcolors { $sbtcolorD0 = "$black"; $sbtcolorD1 = "$bgcwhite"; $sbtcolorD2 = "$boldblack"; $sbtcolor0 = "$boldyellow"; $sbtcolor1 = "$bgcgreen"; #red $Table background $sbtcolor2 = "$yellow"; $sbtcolor3 = "$boldwhite"; $sbtcolor4 = "$green"; $sbtcolor5 = "$bgcblack"; $sbtcolor6 = "$white"; $sbtcolor7 = "$bgcyellow"; $sbtcolor8 = "$boldyellow"; #Total Deactivated For $sbtcolor9 = "$bgcblack"; #Total Deactivated Back $sbtcolor10 = "$red"; #Total Activated For $sbtcolor11 = "$bgcwhite"; #Total Activated Back $sbtcolor12 = "$boldred"; $sbtcolor13 = "$boldblack"; $sbtcolor14 = "$boldwhite"; $sbtcolor15 = "$boldgreen"; $sbtcolor16 = "$bgcgreen"; #Specific tri/double "LCD" back $sbtcolor17 = "$boldblack"; $sbtcolor18 = "$bgcwhite"; $sbtcolor19 = "$boldgreen"; $sbtcolor20 = "$bgcblack"; $sbtcolor21 = "$boldred"; $sbtcolor22 = "$bgcred"; #N U M B E R B E T "LCD" back } sub sbtstdin1 { $sbtstart1 = <STDIN>; chomp($sbtstart1); if (($sbtstart1 eq 'P') or ($sbtstart1 eq 'p') or ($sbtstart1 eq 'a') or ($sbtstart1 eq 'A')) { if ($sbtstart2 eq ' ') { newlines(); sbtmainspin2(); } elsif ($sbtbet == 0) { newlines(); sbtmainspin2(); } elsif ($money >= $sbtbet) { $money = $money - $sbtbet; $moneyexp = $moneyexp + $sbtbet; $sbtstmc2 = $sbtstmc2 + $sbtbet; $sbtstspins = $sbtstspins + 1; newlines(); sbtmainspin1(); } else { newlines(); sbtmainspin2(); } } elsif (($sbtstart1 eq 'N') or ($sbtstart1 eq 'n')) { newlines(); sbtmainspin3(); } elsif (($sbtstart1 eq 'B') or ($sbtstart1 eq 'b')) { newlines(); sbtmainspin4(); } elsif (($sbtstart1 eq 'C') or ($sbtstart1 eq 'c')) { return; } elsif (($sbtstart1 eq 'EXIT') or ($sbtstart1 eq 'exit') or ($sbtstart1 eq 'QUIT') or ($sbtstart1 eq 'quit')) { exitgame(); } else { newlines(); sbtmainspin2(); } } sub sbtdbet { sep; if ($sbtbet > 9999999999) { print colored(sprintf("%.4e", $sbtbet),"$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtbet >= 1000000000) { print colored("$sbtbet","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtbet >= 100000000) { print colored(" $sbtbet","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtbet >= 10000000) { print colored(" $sbtbet","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtbet >= 1000000) { print colored(" $sbtbet","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtbet >= 100000) { print colored(" $sbtbet","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtbet >= 10000) { print colored(" $sbtbet","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtbet >= 1000) { print colored(" $sbtbet","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtbet >= 100) { print colored(" $sbtbet","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtbet >= 10) { print colored(" $sbtbet","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtbet >= 1) { print colored(" $sbtbet","$sbtcolor4 on_$sbtcolor5"); } else { print colored(" $sbtbet","$sbtcolor4 on_$sbtcolor5"); } sep; } sub sbtdmoney { sep; if ($money > 9999999999) { print colored(sprintf("%.4e", $money),"$sbtcolor4 on_$sbtcolor5"); } elsif ($money >= 1000000000) { print colored("$money","$sbtcolor4 on_$sbtcolor5"); } elsif ($money >= 100000000) { print colored(" $money","$sbtcolor4 on_$sbtcolor5"); } elsif ($money >= 10000000) { print colored(" $money","$sbtcolor4 on_$sbtcolor5"); } elsif ($money >= 1000000) { print colored(" $money","$sbtcolor4 on_$sbtcolor5"); } elsif ($money >= 100000) { print colored(" $money","$sbtcolor4 on_$sbtcolor5"); } elsif ($money >= 10000) { print colored(" $money","$sbtcolor4 on_$sbtcolor5"); } elsif ($money >= 1000) { print colored(" $money","$sbtcolor4 on_$sbtcolor5"); } elsif ($money >= 100) { print colored(" $money","$sbtcolor4 on_$sbtcolor5"); } elsif ($money >= 10) { print colored(" $money","$sbtcolor4 on_$sbtcolor5"); } elsif ($money >= 1) { print colored(" $money","$sbtcolor4 on_$sbtcolor5"); } else { print colored(" $money","$sbtcolor4 on_$sbtcolor5"); } sep; } sub sbtdwinnings { sep; if ($sbtmoney > 9999999999) { print colored(sprintf("%.4e", $sbtmoney),"$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtmoney >= 1000000000) { print colored("$sbtmoney","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtmoney >= 100000000) { print colored(" $sbtmoney","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtmoney >= 10000000) { print colored(" $sbtmoney","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtmoney >= 1000000) { print colored(" $sbtmoney","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtmoney >= 100000) { print colored(" $sbtmoney","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtmoney >= 10000) { print colored(" $sbtmoney","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtmoney >= 1000) { print colored(" $sbtmoney","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtmoney >= 100) { print colored(" $sbtmoney","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtmoney >= 10) { print colored(" $sbtmoney","$sbtcolor4 on_$sbtcolor5"); } elsif ($sbtmoney >= 1) { print colored(" $sbtmoney","$sbtcolor4 on_$sbtcolor5"); } else { print colored(" $sbtmoney","$sbtcolor4 on_$sbtcolor5"); } sep; } sub sbtmedian4 { sbtblock5(); if ($sbtRtotal4 == 1) { print colored(' 4 ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' 4 ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal5 == 1) { print colored(' 5 ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' 5 ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal6 == 1) { print colored(' 6 ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' 6 ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal7 == 1) { print colored(' 7 ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' 7 ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal8 == 1) { print colored(' 8 ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' 8 ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal9 == 1) { print colored(' 9 ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' 9 ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal10 == 1) { print colored(' 1 0 ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' 1 0 ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); } sub sbtmedian5 { sbtblock5(); if ($sbtRtotal4 == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal5 == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal6 == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal7 == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal8 == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal9 == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal10 == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); } sub sbtmedian6 { sbtblock5(); if ($sbtRtotal4 == 1) { print colored('PAYs61X',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('PAYs61X',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal5 == 1) { print colored('PAYs31X',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('PAYs31X',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal6 == 1) { print colored('PAYs19X',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('PAYs19X',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal7 == 1) { print colored('PAYs13X',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('PAYs13X',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal8 == 1) { print colored('PAYs 9X',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('PAYs 9X',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal9 == 1) { print colored('PAYs 8X',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('PAYs 8X',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal10 == 1) { print colored('PAYs 7X',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('PAYs 7X',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); } # sub sbtmedian7 { sbtblock5(); if ($sbtRtotal11 == 1) { print colored(' 1 1 ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' 1 1 ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal12 == 1) { print colored(' 1 2 ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' 1 2 ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal13 == 1) { print colored(' 1 3 ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' 1 3 ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal14 == 1) { print colored(' 1 4 ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' 1 4 ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal15 == 1) { print colored(' 1 5 ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' 1 5 ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal16 == 1) { print colored(' 1 6 ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' 1 6 ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal17 == 1) { print colored(' 1 7 ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' 1 7 ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); } sub sbtmedian8 { sbtblock5(); if ($sbtRtotal11 == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal12 == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal13 == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal14 == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal15 == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal16 == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal17 == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); } sub sbtmedian9 { sbtblock5(); if ($sbtRtotal11 == 1) { print colored('PAYs 7X',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('PAYs 7X',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal12 == 1) { print colored('PAYs 8X',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('PAYs 8X',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal13 == 1) { print colored('PAYs 9X',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('PAYs 9X',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal14 == 1) { print colored('PAYs13X',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('PAYs13X',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal15 == 1) { print colored('PAYs19X',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('PAYs19X',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal16 == 1) { print colored('PAYs31X',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('PAYs31X',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotal17 == 1) { print colored('PAYs61X',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('PAYs61X',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); } sub sbtmedian11 { sbtblock5(); print colored(' L ',"$sbtcolor6 on_$sbtcolor7"); if ($sbtRtotalSM == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotalBG == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } print colored(' ',"$sbtcolor6 on_$sbtcolor7"); sbtblock5(); } sub sbtmedian12 { sbtblock5(); print colored(' L ',"$sbtcolor6 on_$sbtcolor7"); if ($sbtRtotalSM == 1) { print colored(' PAYs 2X ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' PAYs 2X ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotalBG == 1) { print colored(' Over 10 ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' Over 10 ',"$sbtcolor10 on_$sbtcolor11"); } print colored(' G ',"$sbtcolor6 on_$sbtcolor7"); sbtblock5(); } sub sbtmedian13 { sbtblock5(); print colored(' A ',"$sbtcolor6 on_$sbtcolor7"); if ($sbtRtotalSM == 1) { print colored(' SANS ',"$sbtcolor13 on_$sbtcolor9"); } else { print colored(' SANS ',"$sbtcolor14 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotalBG == 1) { print colored(' TRIPLETS',"$sbtcolor13 on_$sbtcolor9"); } else { print colored(' TRIPLETS',"$sbtcolor14 on_$sbtcolor11"); } print colored(' I ',"$sbtcolor6 on_$sbtcolor7"); sbtblock5(); } sub sbtmedian14 { sbtblock5(); print colored(' M ',"$sbtcolor6 on_$sbtcolor7"); if ($sbtRtotalSM == 1) { print colored(' Under 11',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' Under 11',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotalBG == 1) { print colored(' PAYs 2X ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' PAYs 2X ',"$sbtcolor10 on_$sbtcolor11"); } print colored(' B ',"$sbtcolor6 on_$sbtcolor7"); sbtblock5(); } sub sbtmedian15 { sbtblock5(); print colored(' S ',"$sbtcolor6 on_$sbtcolor7"); if ($sbtRtotalSM == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); if ($sbtRtotalBG == 1) { print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } print colored(' ',"$sbtcolor6 on_$sbtcolor7"); sbtblock5(); } sub sbtmedian16 { print colored(' ANY ',"$sbtcolor6 on_$sbtcolor7"); sbtblock5(); } sub sbtmedian17 { if ($sbtRtotalANYTRI == 1) { print colored(' P T',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' P T',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); } sub sbtmedian18 { if ($sbtRtotalANYTRI == 1) { print colored(' A R',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' A R',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); } sub sbtmedian19 { if ($sbtRtotalANYTRI == 1) { print colored('A Y I',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('A Y I',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); } sub sbtmedian20 { if ($sbtRtotalANYTRI == 1) { print colored('N P',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('N P',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); } sub sbtmedian21 { if ($sbtRtotalANYTRI == 1) { print colored('Y 3 L',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('Y 3 L',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); } sub sbtmedian22 { if ($sbtRtotalANYTRI == 1) { print colored(' 1 E',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' 1 E',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); } sub sbtmedian23 { if ($sbtRtotalANYTRI == 1) { print colored(' X T',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' X T',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); } sub sbtmedian24 { print colored(' TRI ',"$sbtcolor6 on_$sbtcolor7"); sbtblock5(); } sub sbtmedian25 { sbtblock5(); print colored(' T R I P L E T ',"$sbtcolor6 on_$sbtcolor7"); sbtblock5(); } sub sbtmedian26 { sbtblock5(); if ($sbtRtotalSPFTRI == 1) { print colored(' P A Y s ',"$sbtcolor8 on_$sbtcolor9"); print colored('111',"$sbtcolor15 on_$sbtcolor16"); print colored(' 1 8 0 X',"$sbtcolor8 on_$sbtcolor9"); } elsif ($sbtRtotalSPFTRI == 2) { print colored(' P A Y s ',"$sbtcolor8 on_$sbtcolor9"); print colored('222',"$sbtcolor15 on_$sbtcolor16"); print colored(' 1 8 0 X',"$sbtcolor8 on_$sbtcolor9"); } elsif ($sbtRtotalSPFTRI == 3) { print colored(' P A Y s ',"$sbtcolor8 on_$sbtcolor9"); print colored('333',"$sbtcolor15 on_$sbtcolor16"); print colored(' 1 8 0 X',"$sbtcolor8 on_$sbtcolor9"); } elsif ($sbtRtotalSPFTRI == 4) { print colored(' P A Y s ',"$sbtcolor8 on_$sbtcolor9"); print colored('444',"$sbtcolor15 on_$sbtcolor16"); print colored(' 1 8 0 X',"$sbtcolor8 on_$sbtcolor9"); } elsif ($sbtRtotalSPFTRI == 5) { print colored(' P A Y s ',"$sbtcolor8 on_$sbtcolor9"); print colored('555',"$sbtcolor15 on_$sbtcolor16"); print colored(' 1 8 0 X',"$sbtcolor8 on_$sbtcolor9"); } elsif ($sbtRtotalSPFTRI == 6) { print colored(' P A Y s ',"$sbtcolor8 on_$sbtcolor9"); print colored('666',"$sbtcolor15 on_$sbtcolor16"); print colored(' 1 8 0 X',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' P A Y s ',"$sbtcolor10 on_$sbtcolor11"); print colored('---',"$sbtcolor15 on_$sbtcolor16"); print colored(' 1 8 0 X',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); } sub sbtmedian27 { sbtblock5(); print colored(' S P E C I F I C ',"$sbtcolor6 on_$sbtcolor7"); sbtblock5(); } sub sbtmedian28 { sbtblock5(); if ($sbtRtotalSPFDOB == 1) { print colored(' P A Y s ',"$sbtcolor8 on_$sbtcolor9"); print colored('1-1',"$sbtcolor15 on_$sbtcolor16"); print colored(' 1 1 X',"$sbtcolor8 on_$sbtcolor9"); } elsif ($sbtRtotalSPFDOB == 2) { print colored(' P A Y s ',"$sbtcolor8 on_$sbtcolor9"); print colored('2-2',"$sbtcolor15 on_$sbtcolor16"); print colored(' 1 1 X',"$sbtcolor8 on_$sbtcolor9"); } elsif ($sbtRtotalSPFDOB == 3) { print colored(' P A Y s ',"$sbtcolor8 on_$sbtcolor9"); print colored('3-3',"$sbtcolor15 on_$sbtcolor16"); print colored(' 1 1 X',"$sbtcolor8 on_$sbtcolor9"); } elsif ($sbtRtotalSPFDOB == 4) { print colored(' P A Y s ',"$sbtcolor8 on_$sbtcolor9"); print colored('4-4',"$sbtcolor15 on_$sbtcolor16"); print colored(' 1 1 X',"$sbtcolor8 on_$sbtcolor9"); } elsif ($sbtRtotalSPFDOB == 5) { print colored(' P A Y s ',"$sbtcolor8 on_$sbtcolor9"); print colored('5-5',"$sbtcolor15 on_$sbtcolor16"); print colored(' 1 1 X',"$sbtcolor8 on_$sbtcolor9"); } elsif ($sbtRtotalSPFDOB == 6) { print colored(' P A Y s ',"$sbtcolor8 on_$sbtcolor9"); print colored('6-6',"$sbtcolor15 on_$sbtcolor16"); print colored(' 1 1 X',"$sbtcolor8 on_$sbtcolor9"); } else { print colored(' P A Y s ',"$sbtcolor10 on_$sbtcolor11"); print colored('---',"$sbtcolor15 on_$sbtcolor16"); print colored(' 1 1 X',"$sbtcolor10 on_$sbtcolor11"); } sbtblock5(); } sub sbtmedian29 { sbtblock5(); print colored(' D O U B L E ',"$sbtcolor6 on_$sbtcolor7"); sbtblock5(); } sub sbtmedian30 { sbtblock5(); print colored(' N U M B E R B E T ',"$sbtcolor6 on_$sbtcolor7"); print colored(' ',"$sbtcolor0 on_$sbtcolor1"); } sub sbtmedian31 { sbtblock5(); if ($sbtRtotalNUMBER == 1) { print colored('PAYs 2X 3X or 11X on ',"$sbtcolor8 on_$sbtcolor9"); print colored('1',"$sbtcolor21 on_$sbtcolor22"); print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } elsif ($sbtRtotalNUMBER == 2) { print colored('PAYs 2X 3X or 11X on ',"$sbtcolor8 on_$sbtcolor9"); print colored('2',"$sbtcolor21 on_$sbtcolor22"); print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } elsif ($sbtRtotalNUMBER == 3) { print colored('PAYs 2X 3X or 11X on ',"$sbtcolor8 on_$sbtcolor9"); print colored('3',"$sbtcolor21 on_$sbtcolor22"); print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } elsif ($sbtRtotalNUMBER == 4) { print colored('PAYs 2X 3X or 11X on ',"$sbtcolor8 on_$sbtcolor9"); print colored('4',"$sbtcolor21 on_$sbtcolor22"); print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } elsif ($sbtRtotalNUMBER == 5) { print colored('PAYs 2X 3X or 11X on ',"$sbtcolor8 on_$sbtcolor9"); print colored('5',"$sbtcolor21 on_$sbtcolor22"); print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } elsif ($sbtRtotalNUMBER == 6) { print colored('PAYs 2X 3X or 11X on ',"$sbtcolor8 on_$sbtcolor9"); print colored('6',"$sbtcolor21 on_$sbtcolor22"); print colored(' ',"$sbtcolor8 on_$sbtcolor9"); } else { print colored('PAYs 2X 3X or 11X on ',"$sbtcolor10 on_$sbtcolor11"); print colored('-',"$sbtcolor21 on_$sbtcolor22"); print colored(' ',"$sbtcolor10 on_$sbtcolor11"); } } sub sbtmedian0 { print colored('/------------------------------------------------------------------------------\\',"$sbtcolor0 on_$sbtcolor1"); } sub sbtmedian1 { print colored('|-----------------------------------/',"$sbtcolor0 on_$sbtcolor1"); } sub sbtmedian2 { print colored('\\---------------------------------------------------------------',"$sbtcolor0 on_$sbtcolor1"); } sub sbtmedian3 { # print colored(' ',"$sbtcolor12 on_$sbtcolor1"); } sub sbtmedian10 { print colored(' ',"$sbtcolor12 on_$sbtcolor1"); } sub sbtblock0 { print colored('|',"$sbtcolor0 on_$sbtcolor1"); } sub sbtblock1 { print colored(' ',"$sbtcolor0 on_$sbtcolor1"); } sub sbtblock2 { print colored(' ',"$sbtcolor0 on_$sbtcolor1"); } sub sbtblock3 { print colored(' ',"$sbtcolor0 on_$sbtcolor1"); } sub sbtblock4 { print colored(' Sic Bo Tai Sai ',"$sbtcolor3 on_$sbtcolor1"); print colored(' BET',"$sbtcolor0 on_$sbtcolor1"); } sub sbtblock5 { print colored(' ',"$sbtcolor0 on_$sbtcolor1"); } sub sbtblock6 { print colored(' TOTAL ',"$sbtcolor6 on_$sbtcolor7"); } sub sbtblock7 { print colored('FUNDS',"$sbtcolor0 on_$sbtcolor1"); } sub sbtblock8 { print colored('WINNINGS',"$sbtcolor0 on_$sbtcolor1"); } sub sbtblock9 { print colored(' ',"$sbtcolor0 on_$sbtcolor1"); } sub sbtblock10 { print colored('---------------/',"$sbtcolor17 on_$sbtcolor18"); } sub sbtblock11 { print colored('/--------------|',"$sbtcolor17 on_$sbtcolor18"); } sub sbtblock12 { print colored('|',"$sbtcolor17 on_$sbtcolor18"); } sub sbtswitch1 { $sbtnumber = $sbtdrand1; } sub sbtswitch2 { $sbtnumber = $sbtdrand2; } sub sbtswitch3 { $sbtnumber = $sbtdrand3; } sub sbtcompprint1 { print colored("$sbtcompvar1","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint2 { print colored("$sbtcompvar2","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint3 { print colored("$sbtcompvar3","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint4 { print colored("$sbtcompvar4","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint5 { print colored("$sbtcompvar5","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint6 { print colored("$sbtcompvar6","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint7 { print colored("$sbtcompvar7","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint8 { print colored("$sbtcompvar8","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint9 { print colored("$sbtcompvar9","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint10 { print colored("$sbtcompvar10","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint11 { print colored("$sbtcompvar11","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint12 { print colored("$sbtcompvar12","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint13 { print colored("$sbtcompvar13","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint14 { print colored("$sbtcompvar14","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint15 { print colored("$sbtcompvar15","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint16 { print colored("$sbtcompvar16","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint17 { print colored("$sbtcompvar17","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint18 { print colored("$sbtcompvar18","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint19 { print colored("$sbtcompvar19","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint20 { print colored("$sbtcompvar20","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompprint21 { print colored("$sbtcompvar21","$sbtcolor19 on_$sbtcolor20"); } sub sbtcompvars1 { $sbtcompvar1 = ' '; $sbtcompvar2 = ' P = PLAY '; $sbtcompvar3 = ' '; $sbtcompvar4 = ' B = CHANGE '; $sbtcompvar5 = ' BET '; $sbtcompvar6 = ' '; $sbtcompvar7 = ' N = CHANGE '; $sbtcompvar8 = ' NUMBERS '; $sbtcompvar9 = ' '; $sbtcompvar10 = ' C = RETURN '; $sbtcompvar11 = ' TO '; $sbtcompvar12 = ' CASINO '; $sbtcompvar13 = ' MENU '; $sbtcompvar14 = ' '; $sbtcompvar15 = ' EXIT = QUIT '; $sbtcompvar16 = ' '; $sbtcompvar17 = ' '; $sbtcompvar18 = ' '; $sbtcompvar19 = ' '; $sbtcompvar20 = ' '; $sbtcompvar21 = ' '; } sub sbtcompvars2 { $sbtcompvar1 = 'To Play Number'; $sbtcompvar2 = ' Enter N1..N6 '; $sbtcompvar3 = 'To Play Big '; $sbtcompvar4 = ' Enter BIG '; $sbtcompvar5 = 'To Play Small '; $sbtcompvar6 = ' Enter SMALL '; $sbtcompvar7 = ' '; $sbtcompvar8 = 'To Play Total '; $sbtcompvar9 = ' Enter T4..T17'; $sbtcompvar10 = ' '; $sbtcompvar11 = 'To Play Any '; $sbtcompvar12 = ' Triplet Enter'; $sbtcompvar13 = ' ANYTRI '; $sbtcompvar14 = ' '; $sbtcompvar15 = 'To Play A '; $sbtcompvar16 = ' Specific Tri '; $sbtcompvar17 = ' Enter ST1.ST6'; $sbtcompvar18 = ' '; $sbtcompvar19 = 'To Play A '; $sbtcompvar20 = 'SpecificDouble'; $sbtcompvar21 = 'Enter SD1..SD6'; } sub sbtcompvars3 { $sbtcompvar1 = ' '; $sbtcompvar2 = ' '; $sbtcompvar3 = ' Enter Your '; $sbtcompvar4 = ' Bet: '; $sbtcompvar5 = ' '; $sbtcompvar6 = ' '; $sbtcompvar7 = ' '; $sbtcompvar8 = ' '; $sbtcompvar9 = ' '; $sbtcompvar10 = ' '; $sbtcompvar11 = ' '; $sbtcompvar12 = ' '; $sbtcompvar13 = ' '; $sbtcompvar14 = ' '; $sbtcompvar15 = ' '; $sbtcompvar16 = ' '; $sbtcompvar17 = ' '; $sbtcompvar18 = ' '; $sbtcompvar19 = ' '; $sbtcompvar20 = ' '; $sbtcompvar21 = ' '; } sub sbtthrowdice { $sbtdrand1 = ((int(rand(6))) + 1); $sbtdrand2 = ((int(rand(6))) + 1); $sbtdrand3 = ((int(rand(6))) + 1); } sub sbtdie0 { print colored(' ',"$sbtcolorD0 on_$sbtcolorD1"); } sub sbtdie1 { print colored(' * ',"$sbtcolorD0 on_$sbtcolorD1"); } sub sbtdie2 { print colored(' * ',"$sbtcolorD0 on_$sbtcolorD1"); } sub sbtdie3 { print colored(' * ',"$sbtcolorD0 on_$sbtcolorD1"); } sub sbtdie4 { print colored(' * * ',"$sbtcolorD0 on_$sbtcolorD1"); } sub sbtprintD0 { sbtdie0(); } sub sbtprintD1 { if (($sbtnumber == 2) or ($sbtnumber == 3)) { sbtdie2(); } elsif (($sbtnumber == 4) or ($sbtnumber == 5) or ($sbtnumber == 6)) { sbtdie4(); } else { sbtdie0(); } } sub sbtprintD2 { if (($sbtnumber == 1) or ($sbtnumber == 3) or ($sbtnumber == 5)) { sbtdie1(); } elsif ($sbtnumber == 6) { sbtdie4(); } else { sbtdie0(); } } sub sbtprintD3 { if (($sbtnumber == 2) or ($sbtnumber == 3)) { sbtdie3(); } elsif (($sbtnumber == 4) or ($sbtnumber == 5) or ($sbtnumber == 6)) { sbtdie4(); } else { sbtdie0(); } } sub sbtmainprint { sbtmedian0(); print"\n"; sbtblock0(); sbtblock2(); sbtblock0(); sbtblock4(); sbtdbet(); sbtblock0(); print"\n"; sbtblock0(); sbtblock1(); sbtprintD0(); sbtblock1(); sbtprintD0(); sbtblock1(); sbtblock0(); sbtmedian30(); sbtblock0(); print"\n"; sbtblock0(); sbtblock1(); sbtswitch1(); sbtprintD1(); sbtblock1(); sbtswitch2(); sbtprintD1(); sbtblock1(); sbtblock0(); sbtmedian31(); sbtblock8(); sbtdwinnings(); sbtblock0(); print"\n"; sbtblock0(); sbtblock1(); sbtprintD0(); sbtblock1(); sbtprintD0(); sbtblock1(); sbtblock0(); sbtblock9(); sbtblock0(); print"\n"; sbtblock0(); sbtblock1(); sbtswitch1(); sbtprintD2(); sbtblock1(); sbtswitch2(); sbtprintD2(); sbtblock1(); sbtblock0(); sbtmedian27(); sbtblock7(); sbtdmoney(); sbtblock0(); print"\n"; sbtblock0(); sbtblock1(); sbtprintD0(); sbtblock1(); sbtprintD0(); sbtblock1(); sbtblock0(); sbtmedian28(); sbtblock11(); print"\n"; sbtblock0(); sbtblock1(); sbtswitch1(); sbtprintD3(); sbtblock1(); sbtswitch2(); sbtprintD3(); sbtblock1(); sbtblock0(); sbtmedian29(); sbtblock12(); sbtcompprint1(); sbtblock12(); print"\n"; sbtblock0(); sbtblock1(); sbtprintD0(); sbtblock1(); sbtprintD0(); sbtblock1(); sbtblock0(); sbtmedian10(); sbtblock12(); sbtcompprint2(); sbtblock12(); print"\n"; sbtblock0(); sbtblock2(); sbtblock0(); sbtmedian27(); sbtblock12(); sbtcompprint3(); sbtblock12(); print"\n"; sbtblock0(); sbtblock3(); sbtprintD0(); sbtblock3(); sbtblock0(); sbtmedian26(); sbtblock12(); sbtcompprint4(); sbtblock12(); print"\n"; sbtblock0(); sbtblock3(); sbtswitch3(); sbtprintD1(); sbtblock3(); sbtblock0(); sbtmedian25(); sbtblock12(); sbtcompprint5(); sbtblock12(); print"\n"; sbtblock0(); sbtblock3(); sbtprintD0(); sbtblock3(); sbtblock0(); sbtmedian10(); sbtblock12(); sbtcompprint6(); sbtblock12(); print"\n"; sbtblock0(); sbtblock3(); sbtswitch3(); sbtprintD2(); sbtblock3(); sbtblock0(); sbtmedian15(); sbtblock12(); sbtcompprint7(); sbtblock12(); print"\n"; sbtblock0(); sbtblock3(); sbtprintD0(); sbtblock3(); sbtblock0(); sbtmedian14(); sbtblock12(); sbtcompprint8(); sbtblock12(); print"\n"; sbtblock0(); sbtblock3(); sbtswitch3(); sbtprintD3(); sbtblock3(); sbtblock0(); sbtmedian13(); sbtblock12(); sbtcompprint9(); sbtblock12(); print"\n"; sbtblock0(); sbtblock3(); sbtprintD0(); sbtblock3(); sbtblock0(); sbtmedian12(); sbtblock12(); sbtcompprint10(); sbtblock12(); print"\n"; sbtblock0(); sbtblock2(); sbtblock0(); sbtmedian11(); sbtblock12(); sbtcompprint11(); sbtblock12(); print"\n"; sbtmedian1(); sbtmedian10(); sbtblock12(); sbtcompprint12(); sbtblock12(); print"\n"; sbtblock0(); sbtblock5(); sbtblock6(); sbtblock5(); sbtblock6(); sbtblock5(); sbtblock6(); sbtblock5(); sbtblock6(); sbtblock5(); sbtblock6(); sbtblock5(); sbtblock6(); sbtblock5(); sbtblock6(); sbtblock5(); sbtmedian16(); sbtblock12(); sbtcompprint13(); sbtblock12(); print"\n"; sbtblock0(); sbtmedian4(); sbtmedian17(); sbtblock12(); sbtcompprint14(); sbtblock12(); print"\n"; sbtblock0(); sbtmedian5(); sbtmedian18(); sbtblock12(); sbtcompprint15(); sbtblock12(); print"\n"; sbtblock0(); sbtmedian6(); sbtmedian19(); sbtblock12(); sbtcompprint16(); sbtblock12(); print"\n"; sbtblock0(); sbtmedian3(); sbtmedian20(); sbtblock12(); sbtcompprint17(); sbtblock12(); print"\n"; sbtblock0(); sbtblock5(); sbtblock6(); sbtblock5(); sbtblock6(); sbtblock5(); sbtblock6(); sbtblock5(); sbtblock6(); sbtblock5(); sbtblock6(); sbtblock5(); sbtblock6(); sbtblock5(); sbtblock6(); sbtblock5(); sbtmedian21(); sbtblock12(); sbtcompprint18(); sbtblock12(); print"\n"; sbtblock0(); sbtmedian7(); sbtmedian22(); sbtblock12(); sbtcompprint19(); sbtblock12(); print"\n"; sbtblock0(); sbtmedian8(); sbtmedian23(); sbtblock12(); sbtcompprint20(); sbtblock12(); print"\n"; sbtblock0(); sbtmedian9(); sbtmedian24(); sbtblock12(); sbtcompprint21(); sbtblock12(); print"\n"; sbtmedian2(); sbtblock10(); print"\n" } ################################################################################################################################ ################################################################################################################################ ## GENRE: Dice ## NAME: Casino Craps ## AUTHOR: MikeeUSA sub ccrapsresetnum { $ccrapsRtotalAC = 0; $ccrapsRtotalA7 = 0; $ccrapsRtotalFI = 0; $ccrapsRtotalPL = 0; $ccrapsRtotalDPL = 0; $ccrapsRtotalBIG6 = 0; $ccrapsRtotalBIG8 = 0; $ccrapsRtotalH10 = 0; $ccrapsRtotalH8 = 0; $ccrapsRtotalH6 = 0; $ccrapsRtotalH4 = 0; $ccrapsRtotalO2 = 0; $ccrapsRtotalO3 = 0; $ccrapsRtotalO11 = 0; $ccrapsRtotalO12 = 0; } sub ccrapsnewgameset { $ccrapsnumberofrolls = 0; $ccrapspoint = 0; #Hasn't been decided } sub ccrapsnewgamesetall { ccrapsnewgameset(); $ccrapscraps = 0; $ccrapslose = 0; $ccrapswin = 0; $ccrapstie = 0; $ccrapsnumberofrolls = 0; } sub ccrapscrapsrolled1 { if ($ccrapscraps == 1) { ccrapsnewgameset(); } } sub ccrapscrapsrolled2 { if ($ccrapscraps == 1) { $ccrapscraps = 0; } } sub ccrapsloserolled1 { if ($ccrapslose == 1) { ccrapsnewgameset(); } } sub ccrapsloserolled2 { if ($ccrapslose == 1) { $ccrapslose = 0; } } sub ccrapswinrolled1 { if ($ccrapswin == 1) { ccrapsnewgameset(); } } sub ccrapswinrolled2 { if ($ccrapswin == 1) { $ccrapswin = 0; } } sub ccrapstierolled1 { if ($ccrapstie == 1) { ccrapsnewgameset(); } } sub ccrapstierolled2 { if ($ccrapstie == 1) { $ccrapstie = 0; } } sub ccrapsnfrnc { if ($ccrapsnumberofrolls != 0) { $ccrapscraps = 0; } } sub ccrapsmainspin1 { ccrapscrapsrolled2(); ccrapsloserolled2(); ccrapswinrolled2(); ccrapstierolled2(); ccrapsreset(); ccrapscolors(); ccrapsscrollset1(); if ($animate == 1) { $ccrapscolorD0 = $ccrapscolorD2; ccrapsthrowdice(); ccrapsmainprint(); p7pause(); newlines(); ccrapsthrowdice(); ccrapsmainprint(); p7pause(); newlines(); ccrapsthrowdice(); ccrapsmainprint(); p7pause(); newlines(); ccrapsthrowdice(); ccrapsmainprint(); p7pause(); newlines(); ccrapsthrowdice(); ccrapsmainprint(); p7pause(); newlines(); ccrapsthrowdice(); ccrapsmainprint(); p7pause(); newlines(); ccrapsthrowdice(); ccrapsmainprint(); p7pause(); newlines(); ccrapscolors(); } ccrapsthrowdice(); ccrapsaddmoney(); ccrapsmainprint(); ptracker(); ccrapscrapsrolled1(); ccrapsloserolled1(); ccrapswinrolled1(); ccrapstierolled1(); ccrapsstdin1(); } sub ccrapsmainspin2 { ccrapsreset(); ccrapscolors(); ccrapsscrollset1(); ccrapsmainprint(); ccrapsstdin1(); } sub ccrapsmainspin3 { ccrapsreset(); ccrapscolors(); ccrapsscrollset2(); ccrapsmainprint(); $ccrapsstart2 = <STDIN>; chomp($ccrapsstart2); ccrapsresetnum(); if (($ccrapsstart2 eq 'o12') or ($ccrapsstart2 eq 'O12')) { $ccrapsstart2 = 'O12'; $ccrapsRtotalO12 = 1; } elsif (($ccrapsstart2 eq 'o11') or ($ccrapsstart2 eq 'O11')) { $ccrapsstart2 = 'O11'; $ccrapsRtotalO11 = 1; } elsif (($ccrapsstart2 eq 'o3') or ($ccrapsstart2 eq 'O3')) { $ccrapsstart2 = 'O3'; $ccrapsRtotalO3 = 1; } elsif (($ccrapsstart2 eq 'o2') or ($ccrapsstart2 eq 'O2')) { $ccrapsstart2 = 'O2'; $ccrapsRtotalO2 = 1; } elsif (($ccrapsstart2 eq 'ac') or ($ccrapsstart2 eq 'AC')) { $ccrapsstart2 = 'AC'; $ccrapsRtotalAC = 1; } elsif (($ccrapsstart2 eq 'a7') or ($ccrapsstart2 eq 'A7')) { $ccrapsstart2 = 'A7'; $ccrapsRtotalA7 = 1; } elsif (($ccrapsstart2 eq 'fi') or ($ccrapsstart2 eq 'FI')) { $ccrapsstart2 = 'FI'; $ccrapsRtotalFI = 1; } elsif (($ccrapsstart2 eq 'h4') or ($ccrapsstart2 eq 'H4')) { $ccrapsstart2 = 'H4'; $ccrapsRtotalH4 = 1; ccrapsnewgamesetall(); #So player can't change his odds } elsif (($ccrapsstart2 eq 'h6') or ($ccrapsstart2 eq 'H6')) { $ccrapsstart2 = 'H6'; $ccrapsRtotalH6 = 1; ccrapsnewgamesetall(); #So player can't change his odds } elsif (($ccrapsstart2 eq 'h8') or ($ccrapsstart2 eq 'H8')) { $ccrapsstart2 = 'H8'; $ccrapsRtotalH8 = 1; ccrapsnewgamesetall(); #So player can't change his odds } elsif (($ccrapsstart2 eq 'h10') or ($ccrapsstart2 eq 'H10')) { $ccrapsstart2 = 'H10'; $ccrapsRtotalH10 = 1; ccrapsnewgamesetall(); #So player can't change his odds } elsif (($ccrapsstart2 eq 'pl') or ($ccrapsstart2 eq 'PL')) { $ccrapsstart2 = 'PL'; $ccrapsRtotalPL = 1; ccrapsnewgamesetall(); #So player can't change his odds } elsif (($ccrapsstart2 eq 'dpl') or ($ccrapsstart2 eq 'DPL')) { $ccrapsstart2 = 'DPL'; $ccrapsRtotalDPL = 1; ccrapsnewgamesetall(); #So player can't change his odds } elsif (($ccrapsstart2 eq 'big6') or ($ccrapsstart2 eq 'BIG6')) { $ccrapsstart2 = 'BIG6'; $ccrapsRtotalBIG6 = 1; ccrapsnewgamesetall(); #So player can't change his odds } elsif (($ccrapsstart2 eq 'big8') or ($ccrapsstart2 eq 'BIG8')) { $ccrapsstart2 = 'BIG8'; $ccrapsRtotalBIG8 = 1; ccrapsnewgamesetall(); #So player can't change his odds } else { $ccrapsstart2 = ' '; } newlines(); ccrapsmainspin2(); } sub ccrapsaddmoney { $ccrapsdrand4 = ("$ccrapsdrand1"."$ccrapsdrand2"); $ccrapsadded = ($ccrapsdrand1 + $ccrapsdrand2); if ($ccrapspoint == 0) { if (($ccrapsadded != 2) and ($ccrapsadded != 3) and ($ccrapsadded != 12) and ($ccrapsadded != 7) and ($ccrapsadded != 11)) { $ccrapspoint = $ccrapsadded; } } if (($ccrapsadded == 2) or ($ccrapsadded == 3) or ($ccrapsadded == 12)) { $ccrapscraps = 1; } if ((($ccrapsadded == 2) or ($ccrapsadded == 3) or ($ccrapsadded == 12)) && ($ccrapsstart2 eq 'AC')) { $ccrapsaddmoney = $ccrapsbet * 8; $ccrapsstwin = $ccrapsstwin + 1; } elsif (($ccrapsadded == 7) && ($ccrapsstart2 eq 'A7')) { $ccrapsaddmoney = $ccrapsbet * 5; $ccrapsstwin = $ccrapsstwin + 1; } elsif (($ccrapsadded == 11) && ($ccrapsstart2 eq 'O11')) { $ccrapsaddmoney = $ccrapsbet * 17; $ccrapsstwin = $ccrapsstwin + 1; } elsif (($ccrapsadded == 12) && ($ccrapsstart2 eq 'O12')) { $ccrapsaddmoney = $ccrapsbet * 31; $ccrapsstwin = $ccrapsstwin + 1; } elsif (($ccrapsadded == 2) && ($ccrapsstart2 eq 'O2')) { $ccrapsaddmoney = $ccrapsbet * 30; $ccrapsstwin = $ccrapsstwin + 1; } elsif (($ccrapsadded == 3) && ($ccrapsstart2 eq 'O3')) { $ccrapsaddmoney = $ccrapsbet * 16; $ccrapsstwin = $ccrapsstwin + 1; } elsif (($ccrapsadded == 2) && ($ccrapsstart2 eq 'FI')) { $ccrapsaddmoney = $ccrapsbet * 3; $ccrapsstwin = $ccrapsstwin + 1; } elsif (($ccrapsadded == 12) && ($ccrapsstart2 eq 'FI')) { $ccrapsaddmoney = $ccrapsbet * 3; $ccrapsstwin = $ccrapsstwin + 1; } elsif (($ccrapsadded == 3) && ($ccrapsstart2 eq 'FI')) { $ccrapsaddmoney = $ccrapsbet * 2; $ccrapsstwin = $ccrapsstwin + 1; } elsif (($ccrapsadded == 4) && ($ccrapsstart2 eq 'FI')) { $ccrapsaddmoney = $ccrapsbet * 2; $ccrapsstwin = $ccrapsstwin + 1; } elsif (($ccrapsadded == 9) && ($ccrapsstart2 eq 'FI')) { $ccrapsaddmoney = $ccrapsbet * 2; $ccrapsstwin = $ccrapsstwin + 1; } elsif (($ccrapsadded == 10) && ($ccrapsstart2 eq 'FI')) { $ccrapsaddmoney = $ccrapsbet * 2; $ccrapsstwin = $ccrapsstwin + 1; } elsif (($ccrapsadded == 11) && ($ccrapsstart2 eq 'FI')) { $ccrapsaddmoney = $ccrapsbet * 2; $ccrapsstwin = $ccrapsstwin + 1; } elsif ($ccrapsstart2 eq 'BIG6') { ccrapsnfrnc(); #not first roll, thus not craps if ($ccrapsnumberofrolls == 0) { if (($ccrapsadded == 7)) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } elsif ($ccrapscraps == 1) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } else { $ccrapsaddmoney = 0; } } else { if ($ccrapsadded == 7) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } elsif ($ccrapsadded == 6) { $ccrapswin = 1; $ccrapsaddmoney = $ccrapsbet * 2; $ccrapsstwin = $ccrapsstwin + 1; } else { $ccrapsaddmoney = 0; } } } elsif ($ccrapsstart2 eq 'BIG8') { ccrapsnfrnc(); #not first roll, thus not craps if ($ccrapsnumberofrolls == 0) { if (($ccrapsadded == 7)) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } elsif ($ccrapscraps == 1) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } else { $ccrapsaddmoney = 0; } } else { if ($ccrapsadded == 8) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } elsif ($ccrapsadded == 6) { $ccrapswin = 1; $ccrapsaddmoney = $ccrapsbet * 2; $ccrapsstwin = $ccrapsstwin + 1; } else { $ccrapsaddmoney = 0; } } } elsif ($ccrapsstart2 eq 'PL') { ccrapsnfrnc(); #not first roll, thus not craps if ($ccrapsnumberofrolls == 0) { if (($ccrapsadded == 11) or ($ccrapsadded == 7)) { $ccrapscraps = 0; $ccrapswin = 1; $ccrapsaddmoney = $ccrapsbet * 2; $ccrapsstwin = $ccrapsstwin + 1; } elsif ($ccrapscraps == 1) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } else { $ccrapsaddmoney = 0; } } else { if ($ccrapsadded == 7) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } elsif ($ccrapsadded == $ccrapspoint) { $ccrapswin = 1; $ccrapsaddmoney = $ccrapsbet * 2; $ccrapsstwin = $ccrapsstwin + 1; } else { $ccrapsaddmoney = 0; } } } elsif ($ccrapsstart2 eq 'DPL') { ccrapsnfrnc(); #not first roll, thus not craps if ($ccrapsnumberofrolls == 0) { if (($ccrapsadded == 11) or ($ccrapsadded == 7)) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } elsif ($ccrapsadded == 12) { $ccrapstie = 1; $ccrapsaddmoney = $ccrapsbet; } elsif ($ccrapscraps == 1) { $ccrapscraps = 0; $ccrapswin = 1; $ccrapsaddmoney = $ccrapsbet * 2; $ccrapsstwin = $ccrapsstwin + 1; } else { $ccrapsaddmoney = 0; } } else { if ($ccrapsadded == 7) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } elsif ($ccrapsadded == $ccrapspoint) { $ccrapswin = 1; $ccrapsaddmoney = $ccrapsbet * 2; $ccrapsstwin = $ccrapsstwin + 1; } else { $ccrapsaddmoney = 0; } } } elsif ($ccrapsstart2 eq 'H4') { ccrapsnfrnc(); #not first roll, thus not craps if ($ccrapsdrand4 eq '22') { $ccrapswin = 1; $ccrapsaddmoney = $ccrapsbet * 9; $ccrapsstwin = $ccrapsstwin + 1; } elsif (($ccrapsadded == 4) or ($ccrapsadded == 7)) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } elsif ($ccrapscraps == 1) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } else { #Continue $ccrapsaddmoney = 0; } } elsif ($ccrapsstart2 eq 'H6') { ccrapsnfrnc(); #not first roll, thus not craps if ($ccrapsdrand4 eq '33') { $ccrapswin = 1; $ccrapsaddmoney = $ccrapsbet * 11; $ccrapsstwin = $ccrapsstwin + 1; } elsif (($ccrapsadded == 6) or ($ccrapsadded == 7)) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } elsif ($ccrapscraps == 1) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } else { #Continue $ccrapsaddmoney = 0; } } elsif ($ccrapsstart2 eq 'H8') { ccrapsnfrnc(); #not first roll, thus not craps if ($ccrapsdrand4 eq '44') { $ccrapswin = 1; $ccrapsaddmoney = $ccrapsbet * 10; $ccrapsstwin = $ccrapsstwin + 1; } elsif (($ccrapsadded == 8) or ($ccrapsadded == 7)) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } elsif ($ccrapscraps == 1) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } else { #Continue $ccrapsaddmoney = 0; } } elsif ($ccrapsstart2 eq 'H10') { ccrapsnfrnc(); #not first roll, thus not craps if ($ccrapsdrand4 eq '55') { $ccrapswin = 1; $ccrapsaddmoney = $ccrapsbet * 8; $ccrapsstwin = $ccrapsstwin + 1; } elsif (($ccrapsadded == 10) or ($ccrapsadded == 7)) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } elsif ($ccrapscraps == 1) { $ccrapslose = 1; $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } else { #Continue $ccrapsaddmoney = 0; } } else { $ccrapsaddmoney = 0; $ccrapsstlose = $ccrapsstlose + 1; } $ccrapsnumberofrolls = $ccrapsnumberofrolls + 1; $ccrapsstmc = $ccrapsstmc + $ccrapsaddmoney; $ccrapsmoney = $ccrapsaddmoney; $money = $money + $ccrapsaddmoney; } sub ccrapsreset { $ccrapsaddmoney = 0; $ccrapsmoney = 0; } sub ccrapsmainspin4 { ccrapsreset(); ccrapscolors(); if (($ccrapsnumberofrolls > 0) and (($ccrapsstart2 eq 'BIG6') or ($ccrapsstart2 eq 'BIG8') or ($ccrapsstart2 eq 'PL') or ($ccrapsstart2 eq 'DPL') or ($ccrapsstart2 eq 'H4') or ($ccrapsstart2 eq 'H6') or ($ccrapsstart2 eq 'H8') or ($ccrapsstart2 eq 'H10'))) { ccrapsscrollset3a(); } else { ccrapsscrollset3(); } ccrapsmainprint(); $ccrapsstart3 = <STDIN>; chomp($ccrapsstart3); if (($ccrapsnumberofrolls > 0) and (($ccrapsstart2 eq 'BIG6') or ($ccrapsstart2 eq 'BIG8') or ($ccrapsstart2 eq 'PL') or ($ccrapsstart2 eq 'DPL') or ($ccrapsstart2 eq 'H4') or ($ccrapsstart2 eq 'H6') or ($ccrapsstart2 eq 'H8') or ($ccrapsstart2 eq 'H10'))) { #Not allowed to change bet while play is in progress } elsif ($ccrapsstart3 > $money) { $ccrapsbet = 0; } elsif ($ccrapsstart3 <= 0) { $ccrapsbet = 0; } else { $ccrapsbet = sprintf("%.0f", $ccrapsstart3 ) } newlines(); ccrapsmainspin2(); } sub ccrapscolors { if ($ccrapssetup == 0) { ccrapscolorsblue(); } elsif ($ccrapssetup == 1) { ccrapscolorsgreen(); } else { ccrapscolorscyan(); } } sub ccrapscolorsblue { $ccrapscolorD0 = "$boldwhite"; $ccrapscolorD1 = "$bgcmagenta"; $ccrapscolorD2 = "$white"; $ccrapscolor0 = "$boldblue"; #Table forground $ccrapscolor1 = "$bgcblue"; #Table background $ccrapscolor2 = "$yellow"; $ccrapscolor3 = "$bgccyan"; #selection color $ccrapscolor4 = "$green"; #LCD forground $ccrapscolor5 = "$bgcblack"; #LCD Background } sub ccrapscolorsgreen { $ccrapscolorD0 = "$boldwhite"; $ccrapscolorD1 = "$bgcmagenta"; $ccrapscolorD2 = "$white"; $ccrapscolor0 = "$boldgreen"; #Table forground $ccrapscolor1 = "$bgcgreen"; #Table background $ccrapscolor2 = "$yellow"; $ccrapscolor3 = "$bgcmagenta"; #selection color $ccrapscolor4 = "$green"; #LCD forground $ccrapscolor5 = "$bgcblack"; #LCD Background } sub ccrapscolorscyan { $ccrapscolorD0 = "$boldwhite"; $ccrapscolorD1 = "$bgcblack"; $ccrapscolorD2 = "$white"; $ccrapscolor0 = "$boldcyan"; #Table forground $ccrapscolor1 = "$bgccyan"; #Table background $ccrapscolor2 = "$yellow"; $ccrapscolor3 = "$bgcblue"; #selection color $ccrapscolor4 = "$blue"; #LCD forground $ccrapscolor5 = "$bgcblack"; #LCD Background } sub ccrapsstdin1 { $ccrapsstart1 = <STDIN>; chomp($ccrapsstart1); if (($ccrapsstart1 eq 'P') or ($ccrapsstart1 eq 'p') or ($ccrapsstart1 eq 'a') or ($ccrapsstart1 eq 'A')) { if ($ccrapsstart2 eq ' ') { newlines(); ccrapsmainspin2(); } elsif ($ccrapsbet == 0) { newlines(); ccrapsmainspin2(); } elsif (($ccrapsnumberofrolls > 0) and (($ccrapsstart2 eq 'BIG6') or ($ccrapsstart2 eq 'BIG8') or ($ccrapsstart2 eq 'PL') or ($ccrapsstart2 eq 'DPL') or ($ccrapsstart2 eq 'H4') or ($ccrapsstart2 eq 'H6') or ($ccrapsstart2 eq 'H8') or ($ccrapsstart2 eq 'H10'))) { #Continuing our bet newlines(); ccrapsmainspin1(); } elsif ($money >= $ccrapsbet) { $money = $money - $ccrapsbet; $moneyexp = $moneyexp + $ccrapsbet; $ccrapsstmc2 = $ccrapsstmc2 + $ccrapsbet; $ccrapsstspins = $ccrapsstspins + 1; newlines(); ccrapsmainspin1(); } else { newlines(); ccrapsmainspin2(); } } elsif (($ccrapsstart1 eq 'N') or ($ccrapsstart1 eq 'n')) { newlines(); ccrapsmainspin3(); } elsif (($ccrapsstart1 eq 'B') or ($ccrapsstart1 eq 'b')) { newlines(); ccrapsmainspin4(); } elsif (($ccrapsstart1 eq 'C') or ($ccrapsstart1 eq 'c')) { return; } elsif (($ccrapsstart1 eq 'EXIT') or ($ccrapsstart1 eq 'exit') or ($ccrapsstart1 eq 'QUIT') or ($ccrapsstart1 eq 'quit')) { exitgame(); } else { newlines(); ccrapsmainspin2(); } } sub ccrapsdbet { sep; if ($ccrapsbet > 9999999999) { print colored(sprintf("%.4e", $ccrapsbet),"$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsbet >= 1000000000) { print colored("$ccrapsbet","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsbet >= 100000000) { print colored(" $ccrapsbet","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsbet >= 10000000) { print colored(" $ccrapsbet","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsbet >= 1000000) { print colored(" $ccrapsbet","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsbet >= 100000) { print colored(" $ccrapsbet","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsbet >= 10000) { print colored(" $ccrapsbet","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsbet >= 1000) { print colored(" $ccrapsbet","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsbet >= 100) { print colored(" $ccrapsbet","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsbet >= 10) { print colored(" $ccrapsbet","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsbet >= 1) { print colored(" $ccrapsbet","$ccrapscolor4 on_$ccrapscolor5"); } else { print colored(" $ccrapsbet","$ccrapscolor4 on_$ccrapscolor5"); } sep; } sub ccrapsdmoney { sep; if ($money > 9999999999) { print colored(sprintf("%.4e", $money),"$ccrapscolor4 on_$ccrapscolor5"); } elsif ($money >= 1000000000) { print colored("$money","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($money >= 100000000) { print colored(" $money","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($money >= 10000000) { print colored(" $money","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($money >= 1000000) { print colored(" $money","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($money >= 100000) { print colored(" $money","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($money >= 10000) { print colored(" $money","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($money >= 1000) { print colored(" $money","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($money >= 100) { print colored(" $money","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($money >= 10) { print colored(" $money","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($money >= 1) { print colored(" $money","$ccrapscolor4 on_$ccrapscolor5"); } else { print colored(" $money","$ccrapscolor4 on_$ccrapscolor5"); } sep; } sub ccrapsdpoint { sep; if ($ccrapscraps == 1) { print colored('CRAPS!',"$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapslose == 1) { print colored(' LOSE',"$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapswin == 1) { print colored(' WIN!',"$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapstie == 1) { print colored(' TIE',"$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapspoint == 0) { print colored(' N/A',"$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapspoint >= 10) { print colored(" $ccrapspoint","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapspoint >= 1) { print colored(" $ccrapspoint","$ccrapscolor4 on_$ccrapscolor5"); } else { print colored(" $ccrapspoint","$ccrapscolor4 on_$ccrapscolor5"); } sep; } sub ccrapsdtotal { sep; if ($ccrapsadded == 0) { print colored(' 0',"$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsadded >= 10) { print colored("$ccrapsadded","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsadded >= 1) { print colored(" $ccrapsadded","$ccrapscolor4 on_$ccrapscolor5"); } else { print colored(" $ccrapsadded","$ccrapscolor4 on_$ccrapscolor5"); } sep; } sub ccrapsdwinnings { sep; if ($ccrapsmoney > 9999999999) { print colored(sprintf("%.4e", $ccrapsmoney),"$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsmoney >= 1000000000) { print colored("$ccrapsmoney","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsmoney >= 100000000) { print colored(" $ccrapsmoney","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsmoney >= 10000000) { print colored(" $ccrapsmoney","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsmoney >= 1000000) { print colored(" $ccrapsmoney","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsmoney >= 100000) { print colored(" $ccrapsmoney","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsmoney >= 10000) { print colored(" $ccrapsmoney","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsmoney >= 1000) { print colored(" $ccrapsmoney","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsmoney >= 100) { print colored(" $ccrapsmoney","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsmoney >= 10) { print colored(" $ccrapsmoney","$ccrapscolor4 on_$ccrapscolor5"); } elsif ($ccrapsmoney >= 1) { print colored(" $ccrapsmoney","$ccrapscolor4 on_$ccrapscolor5"); } else { print colored(" $ccrapsmoney","$ccrapscolor4 on_$ccrapscolor5"); } sep; } sub ccrapsscrollset1 { ################ ## $ccrapsscrolll1 = ' CASINO '; $ccrapsscrolll2 = ' P = Play CCCCC RRRR AA PPPPP SSSSS '; $ccrapsscrolll3 = ' B = Change Bet CC RR R AAAA PP P SS '; $ccrapsscrolll4 = ' N = Change Numbers CC RR R AA AA PPPPP SSSS '; $ccrapsscrolll5 = ' C = Return to Casino Menu CC RRRR AAAAAA PP SS '; $ccrapsscrolll6 = ' EXIT = Quit CCCCC RR R AA AA PP SSSSS '; $ccrapsscrolll7 = ' R '; } sub ccrapsscrollset2 { ################ ## $ccrapsscrolll1 = ' To Play Big 6 or Big 8 enter BIG6 or BIG8 '; $ccrapsscrolll2 = ' To Play a Hard Way bet enter H10, H8, H6, or H4 '; $ccrapsscrolll3 = ' To Play a One Roll bet enter O12, O11, O3, or O2 '; $ccrapsscrolll4 = ' To Play Pass Line enter PL '; $ccrapsscrolll5 = ' To Play Don\'t Pass Line enter DPL '; $ccrapsscrolll6 = ' To Play AnyCraps enter AC '; $ccrapsscrolll7 = ' To Play AnySevens enter A7 '; } sub ccrapsscrollset3 { ################ ## $ccrapsscrolll1 = ' '; $ccrapsscrolll2 = ' Enter Your Bet: '; $ccrapsscrolll3 = ' '; $ccrapsscrolll4 = ' '; $ccrapsscrolll5 = ' '; $ccrapsscrolll6 = ' '; $ccrapsscrolll7 = ' '; } sub ccrapsscrollset3a { ################ ## $ccrapsscrolll1 = ' '; $ccrapsscrolll2 = ' Cannot Change Bet While Play Is In Progress '; $ccrapsscrolll3 = ' '; $ccrapsscrolll4 = ' '; $ccrapsscrolll5 = ' '; $ccrapsscrolll6 = ' '; $ccrapsscrolll7 = ' '; } sub ccrapsblockscroll1 { print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); sep; print colored("$ccrapsscrolll1","$ccrapscolor4 on_$ccrapscolor5"); sep; print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblockscroll2 { print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); sep; print colored("$ccrapsscrolll2","$ccrapscolor4 on_$ccrapscolor5"); sep; print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblockscroll3 { print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); sep; print colored("$ccrapsscrolll3","$ccrapscolor4 on_$ccrapscolor5"); sep; print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblockscroll4 { print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); sep; print colored("$ccrapsscrolll4","$ccrapscolor4 on_$ccrapscolor5"); sep; print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblockscroll5 { print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); sep; print colored("$ccrapsscrolll5","$ccrapscolor4 on_$ccrapscolor5"); sep; print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblockscroll6 { print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); sep; print colored("$ccrapsscrolll6","$ccrapscolor4 on_$ccrapscolor5"); sep; print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblockscroll7 { print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); sep; print colored("$ccrapsscrolll7","$ccrapscolor4 on_$ccrapscolor5"); sep; print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblockhw0 { print colored('---------------',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblockhard4A { if ($ccrapsRtotalH4 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('H',"$boldwhite on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('P',"$ccrapscolor0 on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('9',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhard4B { if ($ccrapsRtotalH4 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('4',"$boldwhite on_$buff0"); print colored(' ',"$black on_$bgcwhite"); print colored('A',"$ccrapscolor0 on_$buff0"); print colored(' ',"$black on_$bgcwhite"); print colored('X',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhard4C { if ($ccrapsRtotalH4 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored(' ',"$boldwhite on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('Y',"$ccrapscolor0 on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored(' ',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhard6A { if ($ccrapsRtotalH6 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('H',"$boldwhite on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('P',"$ccrapscolor0 on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('1',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhard6B { if ($ccrapsRtotalH6 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('6',"$boldwhite on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('A',"$ccrapscolor0 on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('1',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhard6C { if ($ccrapsRtotalH6 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored(' ',"$boldwhite on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('Y',"$ccrapscolor0 on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('X',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhard8A { if ($ccrapsRtotalH8 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('H',"$boldwhite on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('P',"$ccrapscolor0 on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('1',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhard8B { if ($ccrapsRtotalH8 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('8',"$boldwhite on_$buff0"); print colored(' ',"$black on_$bgcwhite"); print colored('A',"$ccrapscolor0 on_$buff0"); print colored(' ',"$black on_$bgcwhite"); print colored('0',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhard8C { if ($ccrapsRtotalH8 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored(' ',"$boldwhite on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('Y',"$ccrapscolor0 on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('X',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhard10A { if ($ccrapsRtotalH10 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('H',"$boldwhite on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('P',"$ccrapscolor0 on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('8',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhard10B { if ($ccrapsRtotalH10 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('1',"$boldwhite on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('A',"$ccrapscolor0 on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('X',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhard10C { if ($ccrapsRtotalH10 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('0',"$boldwhite on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('Y',"$ccrapscolor0 on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored(' ',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhw11A { if ($ccrapsRtotalO2 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('O',"$boldwhite on_$buff0"); print colored(' ',"$black on_$bgcwhite"); print colored('P',"$ccrapscolor0 on_$buff0"); print colored(' ',"$black on_$bgcwhite"); print colored('3',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhw11B { if ($ccrapsRtotalO2 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('2',"$boldwhite on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('A',"$ccrapscolor0 on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('0',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhw11C { if ($ccrapsRtotalO2 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored(' ',"$ccrapscolor0 on_$buff0"); print colored(' ',"$black on_$bgcwhite"); print colored('Y',"$ccrapscolor0 on_$buff0"); print colored(' ',"$black on_$bgcwhite"); print colored('X',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhw12A { if ($ccrapsRtotalO3 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('O',"$boldwhite on_$buff0"); print colored(' ',"$black on_$bgcwhite"); print colored('P',"$ccrapscolor0 on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('1',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhw12B { if ($ccrapsRtotalO3 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('3',"$boldwhite on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('A',"$ccrapscolor0 on_$buff0"); print colored(' ',"$black on_$bgcwhite"); print colored('6',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhw12C { if ($ccrapsRtotalO3 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored(' ',"$ccrapscolor0 on_$buff0"); print colored(' ',"$black on_$bgcwhite"); print colored('Y',"$ccrapscolor0 on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('X',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhw66A { if ($ccrapsRtotalO12 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('O',"$boldwhite on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('P',"$ccrapscolor0 on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('3',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhw66B { if ($ccrapsRtotalO12 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('1',"$boldwhite on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('A',"$ccrapscolor0 on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('1',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhw66C { if ($ccrapsRtotalO12 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('2',"$boldwhite on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('Y',"$ccrapscolor0 on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('X',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhw65A { if ($ccrapsRtotalO11 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('O',"$boldwhite on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('P',"$ccrapscolor0 on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('1',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhw65B { if ($ccrapsRtotalO11 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('1',"$boldwhite on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('A',"$ccrapscolor0 on_$buff0"); print colored(' * ',"$black on_$bgcwhite"); print colored('7',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockhw65C { if ($ccrapsRtotalO11 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('1',"$boldwhite on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('Y',"$ccrapscolor0 on_$buff0"); print colored(' * * ',"$black on_$bgcwhite"); print colored('X',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockBIG68A { if ($ccrapsRtotalBIG6 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('B',"$boldwhite on_$buff0"); print colored(' BIG ',"$ccrapscolor0 on_$buff0"); print colored(' / ',"$ccrapscolor0 on_$ccrapscolor1"); $buff0 = ''; if ($ccrapsRtotalBIG8 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored(' BIG ',"$ccrapscolor0 on_$buff0"); print colored('B',"$boldwhite on_$buff0"); $buff0 = ''; } sub ccrapsblockBIG68B { if ($ccrapsRtotalBIG6 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('I',"$boldwhite on_$buff0"); print colored(' 6 ',"$ccrapscolor0 on_$buff0"); print colored(' / ',"$ccrapscolor0 on_$ccrapscolor1"); $buff0 = ''; if ($ccrapsRtotalBIG8 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored(' 8 ',"$ccrapscolor0 on_$buff0"); print colored('I',"$boldwhite on_$buff0"); $buff0 = ''; } sub ccrapsblockBIG68C { if ($ccrapsRtotalBIG6 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('G',"$boldwhite on_$buff0"); print colored(' ',"$ccrapscolor0 on_$buff0"); print colored(' / ',"$ccrapscolor0 on_$ccrapscolor1"); $buff0 = ''; if ($ccrapsRtotalBIG8 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored(' ',"$ccrapscolor0 on_$buff0"); print colored('G',"$boldwhite on_$buff0"); $buff0 = ''; } sub ccrapsblockBIG68D { if ($ccrapsRtotalBIG6 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('6',"$boldwhite on_$buff0"); print colored(' PAYS 2X ',"$ccrapscolor0 on_$buff0"); print colored(' / ',"$ccrapscolor0 on_$ccrapscolor1"); $buff0 = ''; if ($ccrapsRtotalBIG8 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored(' PAYS 2X ',"$ccrapscolor0 on_$buff0"); print colored('8',"$boldwhite on_$buff0"); $buff0 = ''; } sub ccrapsblockANYC7 { if ($ccrapsRtotalAC == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('AC',"$boldwhite on_$buff0"); print colored(' AC PAYS 8X ',"$ccrapscolor0 on_$buff0"); $buff0 = ''; print colored('|',"$ccrapscolor0 on_$ccrapscolor1"); if ($ccrapsRtotalA7 == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored(' A7 PAYS 5X ',"$ccrapscolor0 on_$buff0"); print colored('A7',"$boldwhite on_$buff0"); $buff0 = ''; } sub ccrapsblockPLbA { if ($ccrapsRtotalPL == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('P',"$boldwhite on_$buff0"); print colored(' PASS LINE BET ',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockPLbB { if ($ccrapsRtotalPL == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('L',"$boldwhite on_$buff0"); print colored(' PAYS 2X ',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockDPLbA { if ($ccrapsRtotalDPL == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('D',"$boldwhite on_$buff0"); print colored(' DON\'T PASS LINE BET ',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockDPLbB { if ($ccrapsRtotalDPL == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('P',"$boldwhite on_$buff0"); print colored(' ',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockDPLbC { if ($ccrapsRtotalDPL == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('L',"$boldwhite on_$buff0"); print colored(' PAYS 2X ',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockFIbA { if ($ccrapsRtotalFI == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('F',"$boldwhite on_$buff0"); print colored(' FIELD BET 2 OR 12 PAYS 3X',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockFIbB { if ($ccrapsRtotalFI == 1) { $buff0 = $ccrapscolor3 } else { $buff0 = $ccrapscolor1; } print colored('I',"$boldwhite on_$buff0"); print colored(' 3 4 9 10 OR 11 PAYS 2X',"$ccrapscolor0 on_$buff0"); $buff0 = ''; } sub ccrapsblockend0 { print colored('>',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblockend1 { print colored('<',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblock0 { print colored('|',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblock1 { print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblock2 { print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblock3 { print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblock4 { print colored(' ',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblock5 { print colored('-',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblock6 { print colored(' BET ',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblock7 { print colored(' FUNDS ',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblock8 { print colored(' WINNINGS ',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblock9 { print colored(' POINT ',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsblock10 { print colored(' TOTAL ',"$ccrapscolor0 on_$ccrapscolor1"); } sub ccrapsswitch1 { $ccrapsnumber = $ccrapsdrand1; } sub ccrapsswitch2 { $ccrapsnumber = $ccrapsdrand2; } sub ccrapsthrowdice { $ccrapsdrand1 = ((int(rand(6))) + 1); $ccrapsdrand2 = ((int(rand(6))) + 1); } sub ccrapsdie0 { print colored(' ',"$ccrapscolorD0 on_$ccrapscolorD1"); } sub ccrapsdie1 { print colored(' (O) ',"$ccrapscolorD0 on_$ccrapscolorD1"); } sub ccrapsdie2 { print colored(' (O) ',"$ccrapscolorD0 on_$ccrapscolorD1"); } sub ccrapsdie3 { print colored(' (O) ',"$ccrapscolorD0 on_$ccrapscolorD1"); } sub ccrapsdie4 { print colored(' (O) (O) ',"$ccrapscolorD0 on_$ccrapscolorD1"); } sub ccrapsprintD0 { ccrapsdie0(); } sub ccrapsprintD1 { if (($ccrapsnumber == 2) or ($ccrapsnumber == 3)) { ccrapsdie2(); } elsif (($ccrapsnumber == 4) or ($ccrapsnumber == 5) or ($ccrapsnumber == 6)) { ccrapsdie4(); } else { ccrapsdie0(); } } sub ccrapsprintD2 { if (($ccrapsnumber == 1) or ($ccrapsnumber == 3) or ($ccrapsnumber == 5)) { ccrapsdie1(); } elsif ($ccrapsnumber == 6) { ccrapsdie4(); } else { ccrapsdie0(); } } sub ccrapsprintD3 { if (($ccrapsnumber == 2) or ($ccrapsnumber == 3)) { ccrapsdie3(); } elsif (($ccrapsnumber == 4) or ($ccrapsnumber == 5) or ($ccrapsnumber == 6)) { ccrapsdie4(); } else { ccrapsdie0(); } } sub ccrapsmainprint { print colored('/------------------------------------------------------------------------------\\',"$ccrapscolor0 on_$ccrapscolor1"); print"\n"; ccrapsblockend0(); ccrapsblock6(); ccrapsdbet(); ccrapsblock8(); ccrapsdwinnings(); ccrapsblock7(); ccrapsdmoney(); ccrapsblock9(); ccrapsdpoint(); ccrapsblock10(); ccrapsdtotal(); ccrapsblock1(); ccrapsblockend1(); print"\n"; print colored('> <',"$ccrapscolor0 on_$ccrapscolor1"); print"\n"; ccrapsblockend0(); ccrapsblockscroll1(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockscroll2(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockscroll3(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockscroll4(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockscroll5(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockscroll6(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockscroll7(); ccrapsblockend1(); print"\n"; print colored('> <',"$ccrapscolor0 on_$ccrapscolor1"); print"\n"; print colored('> .--------------------------------------------------------------<',"$ccrapscolor0 on_$ccrapscolor1"); print"\n"; ccrapsblockend0(); ccrapsblockhw0(); ccrapsblock0(); ccrapsblockANYC7(); ccrapsblock0(); ccrapsblockFIbA(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockhard10A(); ccrapsblock0(); ccrapsblockhw0(); ccrapsblock5(); ccrapsblockhw0(); ccrapsblock0(); ccrapsblockFIbB(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockhard10B(); ccrapsblock0(); ccrapsblockDPLbA(); ccrapsblock0(); print colored('------------------------------',"$ccrapscolor0 on_$ccrapscolor1"); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockhard10C(); ccrapsblock0(); ccrapsblockDPLbB(); ccrapsblock0(); ccrapsblockBIG68A(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockhw0(); ccrapsblock0(); ccrapsblockDPLbC(); ccrapsblock0(); ccrapsblockBIG68B(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockhard6A(); ccrapsblock0(); ccrapsblockhw0(); ccrapsblock5(); ccrapsblockhw0(); ccrapsblock0(); ccrapsblockBIG68C(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockhard6B(); ccrapsblock0(); ccrapsblockPLbA(); ccrapsblock0(); ccrapsblockBIG68D(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockhard6C(); ccrapsblock0(); ccrapsblockPLbB(); ccrapsblock0(); print colored('------------------------------',"$ccrapscolor0 on_$ccrapscolor1"); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockhw0(); ccrapsblock0(); ccrapsblockhw0(); ccrapsblock5(); ccrapsblockhw0(); ccrapsblock0(); ccrapsblock2(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockhard8A(); ccrapsblock0(); ccrapsblockhw12A(); ccrapsblock0(); ccrapsblockhw66A(); ccrapsblock0(); ccrapsblock1(); ccrapsprintD0(); ccrapsblock4(); ccrapsprintD0(); ccrapsblock1(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockhard8B(); ccrapsblock0(); ccrapsblockhw12B(); ccrapsblock0(); ccrapsblockhw66B(); ccrapsblock0(); ccrapsblock1(); ccrapsswitch1(); ccrapsprintD1(); ccrapsblock4(); ccrapsswitch2(); ccrapsprintD1(); ccrapsblock1(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockhard8C(); ccrapsblock0(); ccrapsblockhw12C(); ccrapsblock0(); ccrapsblockhw66C(); ccrapsblock0(); ccrapsblock1(); ccrapsprintD0(); ccrapsblock4(); ccrapsprintD0(); ccrapsblock1(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockhw0(); ccrapsblock0(); ccrapsblockhw0(); ccrapsblock0(); ccrapsblockhw0(); ccrapsblock0(); ccrapsblock1(); ccrapsswitch1(); ccrapsprintD2(); ccrapsblock4(); ccrapsswitch2(); ccrapsprintD2(); ccrapsblock1(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockhard4A(); ccrapsblock0();ccrapsblockhw11A(); ccrapsblock0(); ccrapsblockhw65A(); ccrapsblock0(); ccrapsblock1(); ccrapsprintD0(); ccrapsblock4(); ccrapsprintD0(); ccrapsblock1(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockhard4B(); ccrapsblock0();ccrapsblockhw11B(); ccrapsblock0(); ccrapsblockhw65B(); ccrapsblock0(); ccrapsblock1(); ccrapsswitch1(); ccrapsprintD3(); ccrapsblock4(); ccrapsswitch2(); ccrapsprintD3(); ccrapsblock1(); ccrapsblockend1(); print"\n"; ccrapsblockend0(); ccrapsblockhard4C(); ccrapsblock0();ccrapsblockhw11C(); ccrapsblock0(); ccrapsblockhw65C(); ccrapsblock0(); ccrapsblock1(); ccrapsprintD0(); ccrapsblock4(); ccrapsprintD0(); ccrapsblock1(); ccrapsblockend1(); print"\n"; print colored('\\_______________|_______________|_______________|______________________________/',"$ccrapscolor0 on_$ccrapscolor1"); print"\n"; } ################################################################################################################################ sub bankmachine { bankblanktitle(); bankblanktop(); bankblankyellow(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Welcome to the General Public Bank, Here are your ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Banking Options: ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' 1) Set Value of Slotmachine Tokens ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' 2) Financial Report ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' 3) Savings Account Deposit ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' 4) Savings Account Withdrawal ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' 5) Stock Investment ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; bankblankyellow(); if ($allowsave == 1) { print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' 6) Cashout ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); if ($loadedsavefile == 1) { print colored(' 7) Cashin ',"$boldblack on_$bgcblack"); } else { print colored(' 7) Cashin ',"$white on_$bgcblack"); } print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; } else { bankblankwhite(); bankblankyellow(); } bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' print colored(' Press "C" To Return to Casino Menu ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; bankblankyellow(); bankblankbottom(); bankblanktitle(); bankstartinfo(); } sub bankerror { bankblanktitle(); bankblanktop(); bankblankyellow(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ERROR ',"$red on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(" $buff0 ","$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(" $buff2 ","$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankbottom(); bankblanktitle(); $buff0 = <STDIN>; $buff0 = ''; } sub bankinfo { bankblanktitle(); bankblanktop(); bankblankyellow(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' INFO ',"$green on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(" $buff0 ","$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(" $buff2 ","$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankbottom(); bankblanktitle(); $buff0 = <STDIN>; $buff0 = ''; } sub bankstockedit { bankblanktitle(); bankblanktop(); bankblankyellow(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Please select which market fund you would like to invest in/divest from. ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Name of Fund: Current Share Price: Number of Shares You Own: ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $fundretailsharevalue; bankcropsinglestat(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' 1) Retail ',"$white on_$bgcblack"); print colored("$buff0","$boldgreen on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; $buff0 = $fundretailshares; bankcropsinglestatbk(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$boldwhite on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $fundindustrysharevalue; bankcropsinglestat(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' 2) Industrial ',"$white on_$bgcblack"); print colored("$buff0","$boldgreen on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; $buff0 = $fundindustryshares; bankcropsinglestatbk(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$boldwhite on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $fundtechsharevalue; bankcropsinglestat(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' 3) Technology ',"$white on_$bgcblack"); print colored("$buff0","$boldgreen on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; $buff0 = $fundtechshares; bankcropsinglestatbk(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$boldwhite on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $fundenergysharevalue; bankcropsinglestat(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' 4) Energy ',"$white on_$bgcblack"); print colored("$buff0","$boldgreen on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; $buff0 = $fundenergyshares; bankcropsinglestatbk(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$boldwhite on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $fundtextilesharevalue; bankcropsinglestat(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' 5) Textile ',"$white on_$bgcblack"); print colored("$buff0","$boldgreen on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; $buff0 = $fundtextileshares; bankcropsinglestatbk(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$boldwhite on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $fundinvestmentsharevalue; bankcropsinglestat(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' 6) Investment House ',"$white on_$bgcblack"); print colored("$buff0","$boldgreen on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; $buff0 = $fundinvestmentshares; bankcropsinglestatbk(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$boldwhite on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $fundlendingsharevalue; bankcropsinglestat(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' 7) Lending ',"$white on_$bgcblack"); print colored("$buff0","$boldgreen on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; $buff0 = $fundlendingshares; bankcropsinglestatbk(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$boldwhite on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $fundconstructionsharevalue; bankcropsinglestat(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' 8) Construction ',"$white on_$bgcblack"); print colored("$buff0","$boldgreen on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; $buff0 = $fundconstructionshares; bankcropsinglestatbk(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$boldwhite on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $fundminingsharevalue; bankcropsinglestat(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' 9) Mining ',"$white on_$bgcblack"); print colored("$buff0","$boldgreen on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; $buff0 = $fundminingshares; bankcropsinglestatbk(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$boldwhite on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $fundindexsharevalue; bankcropsinglestat(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' 10) Index ',"$white on_$bgcblack"); print colored("$buff0","$boldgreen on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; $buff0 = $fundindexshares; bankcropsinglestatbk(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$boldwhite on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' print colored(' Press "C" To Return to Previous Screen ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; bankblankyellow(); bankblankbottom(); bankblanktitle(); $buff0 = ''; $buff0 = <STDIN>; chomp($buff0); if ($buff0 ne '') { if (($buff0 eq 'c') or ($buff0 eq 'C')) { newlines(); return; } elsif (($buff0 >= 1) and ($buff0 <= 10)) { #If one of the market funds were selected $bankstocktoedit = $buff0; #What stock we're editing; newlines(); bankfundedit(); } } newlines(); bankstockedit(); } sub bankfundedit { bankblanktitle(); bankblanktop(); bankblankyellow(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' PORTFOLIO MANAGMENT ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; bankstockinfo(); bankblankwhite(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' if (($bankstocktoedit == 10) and ($fundindexshares >= 1)) { print colored(' 1) Buy Shares 3) Info ',"$white on_$bgcblack"); #You get the extra info if you are invested in the index fund } else { print colored(' 1) Buy Shares ',"$white on_$bgcblack"); } print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' print colored(' 2) Sell Shares ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; bankblankyellow(); bankblankbottom(); bankblanktitle(); $buff0 = ''; $buff0 = <STDIN>; chomp($buff0); #$buff0 =~ s/\D//g; #Remove non digits #$buff0 =~ s/^0*//; #Remove leading zeroes if ($buff0 ne '') { if (($buff0 == 1) or ($buff0 eq 'b') or ($buff0 eq 'B')) { newlines(); bankstockbuy(); #$bankstocktoedit is unchanged so it will be picked up next } elsif (($buff0 == 2) or ($buff0 eq 's') or ($buff0 eq 'S')) { newlines(); bankstocksell(); #$bankstocktoedit is unchanged so it will be picked up next } elsif ( (($bankstocktoedit == 10) and ($fundindexshares >= 1)) and (($buff0 == 3) or ($buff0 eq 'i') or ($buff0 eq 'I')) ) { $bankfndmorinfo = 1; newlines(); bankfundedit(); $bankfndmorinfo = 0; } } newlines(); ##We just return to bankfundedit(); if nothing was done. } sub bankstockbuy { bankblanktitle(); bankblanktop(); bankblankyellow(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' PORTFOLIO MANAGMENT Buy Shares ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; bankstockinfo(); bankblankwhite(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' print colored(' Enter the amount of shares you wish to buy. ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; bankblankyellow(); bankblankbottom(); bankblanktitle(); print"enter share amount [$bankstkbuy]: "; $buff0 = ''; $buff0 = <STDIN>; chomp($buff0); $buff0 =~ s/\D//g; #Remove non digits $buff0 =~ s/^0*//; #Remove leading zeroes $bankstkerr = 0; #No error yet. $bankstkamnt = 0; #Amount of shares owned. Zero untill transaction $bankstkcst = 0; #Cost of stocks + Commisson + Flat Fee. Zero untill transaction $bankstkvalue = 0; #Zero untill transaction. if ($buff0 ne '') { if (0 < $buff0) { ##Here we transfer the info into the generic variables if ($bankstocktoedit == 1) { $bankstkvalue = $fundretailsharevalue; $bankstkamnt = $fundretailshares; } elsif ($bankstocktoedit == 2) { $bankstkvalue = $fundindustrysharevalue; $bankstkamnt = $fundindustryshares; } elsif ($bankstocktoedit == 3) { $bankstkvalue = $fundtechsharevalue; $bankstkamnt = $fundtechshares; } elsif ($bankstocktoedit == 4) { $bankstkvalue = $fundenergysharevalue; $bankstkamnt = $fundenergyshares; } elsif ($bankstocktoedit == 5) { $bankstkvalue = $fundtextilesharevalue; $bankstkamnt = $fundtextileshares; } elsif ($bankstocktoedit == 6) { $bankstkvalue = $fundinvestmentsharevalue; $bankstkamnt = $fundinvestmentshares; } elsif ($bankstocktoedit == 7) { $bankstkvalue = $fundlendingsharevalue; $bankstkamnt = $fundlendingshares; } elsif ($bankstocktoedit == 8) { $bankstkvalue = $fundconstructionsharevalue; $bankstkamnt = $fundconstructionshares; } elsif ($bankstocktoedit == 9) { $bankstkvalue = $fundminingsharevalue; $bankstkamnt = $fundminingshares; } elsif ($bankstocktoedit == 10) { $bankstkvalue = $fundindexsharevalue; $bankstkamnt = $fundindexshares; } else { $bankstkerr = 1; } ##Ok now we operate, later we will transfer back $bankstkbuy = $buff0; $bankstkcst = (($bankstkbuy * $bankstkvalue) + ceil(($stocktcom * ($bankstkbuy * $bankstkvalue))) + ($stocktcst)); #Cost of stocks + Commisson + Flat Fee $bankstkcst = ceil($bankstkcst); #Round cost up to nearest whole number. if ($bankstkerr == 1) { #Do Nothing but complain $buff0 = "Sorry, Fund Number: $bankstocktoedit"; $buff2 = 'is currently not a valid entry.'; bankcropmessage0(); bankcropmessage2(); newlines(); bankerror(); $buff0 = ''; $buff1 = ''; $buff2 = ''; $bankstkerr = 0; } elsif ($money >= $bankstkcst) { ##The transaction $money = $money - $bankstkcst; #Payment. $bankstkamnt = $bankstkamnt + $bankstkbuy; #Stock amount is now what you asked for. ##Tracking info #Lets not track this if ($bankstocktoedit == 1) { $fundretailshares = $bankstkamnt; } elsif ($bankstocktoedit == 2) { $fundindustryshares = $bankstkamnt; } elsif ($bankstocktoedit == 3) { $fundtechshares = $bankstkamnt; } elsif ($bankstocktoedit == 4) { $fundenergyshares = $bankstkamnt; } elsif ($bankstocktoedit == 5) { $fundtextileshares = $bankstkamnt; } elsif ($bankstocktoedit == 6) { $fundinvestmentshares = $bankstkamnt; } elsif ($bankstocktoedit == 7) { $fundlendingshares = $bankstkamnt; } elsif ($bankstocktoedit == 8) { $fundconstructionshares = $bankstkamnt; } elsif ($bankstocktoedit == 9) { $fundminingshares = $bankstkamnt; } elsif ($bankstocktoedit == 10) { $fundindexshares = $bankstkamnt; } else { #Give Money Back if transaction impossible. $money = $money + $bankstkcst; #Restitution. } $buff0 = "Purchase of $bankstkbuy shares cost: $bankstkcst"; $buff3 = ($bankstkbuy * $bankstkvalue); $buff4 = ceil(($stocktcom * ($bankstkbuy * $bankstkvalue))); $buff2 = "Total Stock Cost: $buff3". " Plus Commission: $buff4". " Plus Fee: $stocktcst"; bankcropmessage0(); bankcropmessage2(); newlines(); bankinfo(); $buff0 = ''; $buff1 = ''; $buff2 = ''; $buff3 = ''; $buff4 = ''; } else { #Do Nothing but complain $buff0 = "Attempted purchase: $bankstkcst"; $buff2 = 'is greater than current cash funds.'; bankcropmessage0(); bankcropmessage2(); newlines(); bankerror(); $buff0 = ''; $buff1 = ''; $buff2 = ''; } } else { #Do Nothing but complain #This won't occur due to the stripping out of non digit chars though #Nice to have an error if it does somehow. $buff0 = "Purchase cannot be zero or negative."; $buff2 = ''; bankcropmessage0(); bankcropmessage2(); newlines(); bankerror(); $buff0 = ''; $buff1 = ''; $buff2 = ''; } } else { #Do Nothing } $buff0 = ''; $bankstkbuy = 0; $bankstkamnt = 0; $bankstkcst = 0; $bankstkvalue = 0; newlines(); bankfundedit(); } sub bankstocksell { bankblanktitle(); bankblanktop(); bankblankyellow(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' PORTFOLIO MANAGMENT Sell Shares ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; bankstockinfo(); bankblankwhite(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' print colored(' Enter the amount of shares you wish to sell. ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; bankblankyellow(); bankblankbottom(); bankblanktitle(); print"enter share amount [$bankstksell]: "; $buff0 = ''; $buff0 = <STDIN>; chomp($buff0); $buff0 =~ s/\D//g; #Remove non digits $buff0 =~ s/^0*//; #Remove leading zeroes $bankstkerr = 0; #No error yet. $bankstkamnt = 0; #Amount of shares owned. Zero untill transaction. $bankstkcst = 0; #Sale of stocks - Tax - Flat fee. Zero untill transaction. $bankstkvalue = 0; #Zero untill transaction. if ($buff0 ne '') { if (0 < $buff0) { ##Here we transfer the info into the generic variables if ($bankstocktoedit == 1) { $bankstkvalue = $fundretailsharevalue; $bankstkamnt = $fundretailshares; } elsif ($bankstocktoedit == 2) { $bankstkvalue = $fundindustrysharevalue; $bankstkamnt = $fundindustryshares; } elsif ($bankstocktoedit == 3) { $bankstkvalue = $fundtechsharevalue; $bankstkamnt = $fundtechshares; } elsif ($bankstocktoedit == 4) { $bankstkvalue = $fundenergysharevalue; $bankstkamnt = $fundenergyshares; } elsif ($bankstocktoedit == 5) { $bankstkvalue = $fundtextilesharevalue; $bankstkamnt = $fundtextileshares; } elsif ($bankstocktoedit == 6) { $bankstkvalue = $fundinvestmentsharevalue; $bankstkamnt = $fundinvestmentshares; } elsif ($bankstocktoedit == 7) { $bankstkvalue = $fundlendingsharevalue; $bankstkamnt = $fundlendingshares; } elsif ($bankstocktoedit == 8) { $bankstkvalue = $fundconstructionsharevalue; $bankstkamnt = $fundconstructionshares; } elsif ($bankstocktoedit == 9) { $bankstkvalue = $fundminingsharevalue; $bankstkamnt = $fundminingshares; } elsif ($bankstocktoedit == 10) { $bankstkvalue = $fundindexsharevalue; $bankstkamnt = $fundindexshares; } else { $bankstkerr = 1; } ##Ok now we operate, later we will transfer back $bankstksell = $buff0; $bankstkcst = (($bankstksell * $bankstkvalue) - (ceil($stocktax * ($bankstksell * $bankstkvalue))) - $stocktcstsl); #Socialism comes to steal from you. It rounds up. #And then a flat fee. $bankstkcst = floor($bankstkcst); #Round money from sale down to nearest whole number. if (0 > $bankstkcst) { $bankstkcst = 0; #We won't make a sale a complete loss. } if ($bankstkerr == 1) { #Do Nothing but complain $buff0 = "Sorry, Fund Number: $bankstocktoedit"; $buff2 = 'is currently not a valid entry.'; bankcropmessage0(); bankcropmessage2(); newlines(); bankerror(); $buff0 = ''; $buff1 = ''; $buff2 = ''; $bankstkerr = 0; } elsif ($bankstkamnt >= $bankstksell) { #Can't sell more than you have. ##The transaction $money = $money + $bankstkcst; #Sale. $bankstkamnt = $bankstkamnt - $bankstksell; #Stock amount is less your sale. ##Tracking info #Lets not track this if ($bankstocktoedit == 1) { $fundretailshares = $bankstkamnt; } elsif ($bankstocktoedit == 2) { $fundindustryshares = $bankstkamnt; } elsif ($bankstocktoedit == 3) { $fundtechshares = $bankstkamnt; } elsif ($bankstocktoedit == 4) { $fundenergyshares = $bankstkamnt; } elsif ($bankstocktoedit == 5) { $fundtextileshares = $bankstkamnt; } elsif ($bankstocktoedit == 6) { $fundinvestmentshares = $bankstkamnt; } elsif ($bankstocktoedit == 7) { $fundlendingshares = $bankstkamnt; } elsif ($bankstocktoedit == 8) { $fundconstructionshares = $bankstkamnt; } elsif ($bankstocktoedit == 9) { $fundminingshares = $bankstkamnt; } elsif ($bankstocktoedit == 10) { $fundindexshares = $bankstkamnt; } else { #Give Money Back if transaction impossible. $money = $money + $bankstkcst; #Restitution. } $buff0 = "Sale of $bankstksell shares valued at: $bankstkcst"; $buff3 = ($bankstksell * $bankstkvalue); $buff4 = ceil(($stocktax * ($bankstksell * $bankstkvalue))); $buff2 = "Total Stock Value: $buff3". " Minus Tax: $buff4". " Minus Fee: $stocktcstsl"; bankcropmessage0(); bankcropmessage2(); newlines(); bankinfo(); $buff0 = ''; $buff1 = ''; $buff2 = ''; $buff3 = ''; $buff4 = ''; } else { #Do Nothing but complain $buff0 = "Attempted sale: $bankstksell"; $buff2 = 'is greater than current share holdings.'; bankcropmessage0(); bankcropmessage2(); newlines(); bankerror(); $buff0 = ''; $buff1 = ''; $buff2 = ''; } } else { #Do Nothing but complain #This won't occur due to the stripping out of non digit chars though #Nice to have an error if it does somehow. $buff0 = "Sale ammount cannot be zero or negative."; $buff2 = ''; bankcropmessage0(); bankcropmessage2(); newlines(); bankerror(); $buff0 = ''; $buff1 = ''; $buff2 = ''; } } else { #Do Nothing } $buff0 = ''; $bankstksell = 0; $bankstkamnt = 0; $bankstkcst = 0; $bankstkvalue = 0; newlines(); bankfundedit(); } sub bankstocktrk { if ($bankstocktoedit == 1) { $buff0 = @fundretailtracker["$buff1"]; } elsif ($bankstocktoedit == 2) { $buff0 = @fundindustrytracker["$buff1"]; } elsif ($bankstocktoedit == 3) { $buff0 = @fundtechtracker["$buff1"]; } elsif ($bankstocktoedit == 4) { $buff0 = @fundenergytracker["$buff1"]; } elsif ($bankstocktoedit == 5) { $buff0 = @fundtextiletracker["$buff1"]; } elsif ($bankstocktoedit == 6) { $buff0 = @fundinvestmenttracker["$buff1"]; } elsif ($bankstocktoedit == 7) { $buff0 = @fundlendingtracker["$buff1"]; } elsif ($bankstocktoedit == 8) { $buff0 = @fundconstructiontracker["$buff1"]; } elsif ($bankstocktoedit == 9) { $buff0 = @fundminingtracker["$buff1"]; } elsif ($bankstocktoedit == 10) { $buff0 = @fundindextracker["$buff1"]; } else { $bankstocktoedit = 1; $bankstocksv = $fundretailtracker["$buff1"]; } } sub bankstockinfo { print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Name of Fund: Current Share Price: Number of Shares You Own: ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); if ($bankstocktoedit == 1) { $buff0 = $fundretailsharevalue; print colored(' Retail ',"$white on_$bgcblack"); } elsif ($bankstocktoedit == 2) { $buff0 = $fundindustrysharevalue; print colored(' Industrial ',"$white on_$bgcblack"); } elsif ($bankstocktoedit == 3) { $buff0 = $fundtechsharevalue; print colored(' Technology ',"$white on_$bgcblack"); } elsif ($bankstocktoedit == 4) { $buff0 = $fundenergysharevalue; print colored(' Energy ',"$white on_$bgcblack"); } elsif ($bankstocktoedit == 5) { $buff0 = $fundtextilesharevalue; print colored(' Textile ',"$white on_$bgcblack"); } elsif ($bankstocktoedit == 6) { $buff0 = $fundinvestmentsharevalue; print colored(' Investment House ',"$white on_$bgcblack"); } elsif ($bankstocktoedit == 7) { $buff0 = $fundlendingsharevalue; print colored(' Lending ',"$white on_$bgcblack"); } elsif ($bankstocktoedit == 8) { $buff0 = $fundconstructionsharevalue; print colored(' Construction ',"$white on_$bgcblack"); } elsif ($bankstocktoedit == 9) { $buff0 = $fundminingsharevalue; print colored(' Mining ',"$white on_$bgcblack"); } elsif ($bankstocktoedit == 10) { $buff0 = $fundindexsharevalue; print colored(' Index ',"$white on_$bgcblack"); } else { $bankstocktoedit = 1; $bankstocksv = $fundretailsharevalue; print colored(' ERROR ',"$white on_$bgcblack"); } bankcropsinglestat(); print colored("$buff0","$boldgreen on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; if ($bankstocktoedit == 1) { $buff0 = $fundretailshares; } elsif ($bankstocktoedit == 2) { $buff0 = $fundindustryshares; } elsif ($bankstocktoedit == 3) { $buff0 = $fundtechshares; } elsif ($bankstocktoedit == 4) { $buff0 = $fundenergyshares; } elsif ($bankstocktoedit == 5) { $buff0 = $fundtextileshares; } elsif ($bankstocktoedit == 6) { $buff0 = $fundinvestmentshares; } elsif ($bankstocktoedit == 7) { $buff0 = $fundlendingshares; } elsif ($bankstocktoedit == 8) { $buff0 = $fundconstructionshares; } elsif ($bankstocktoedit == 9) { $buff0 = $fundminingshares; } elsif ($bankstocktoedit == 10) { $buff0 = $fundindexshares; } else { $bankstocktoedit = 1; $bankstocksv = $fundretailshares; } bankcropsinglestatbk(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$boldwhite on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; if ($bankfndmorinfo == 1) { bankindexfndnfo(); } else { bankstockhist(); } } sub bankindexfndnfo { print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); # print colored(' Sector Init Shares Init Value Current Value ',"$white on_$bgcblack"); print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; $bankfndnfovlutly = 0; #Tally for current values of Stock * Value. (Total) ### print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Retail ',"$red on_$bgcblack"); $buff0 = $fundindexretail; #Number of shares fund purchased bankindexfndstatbk(); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = @fundindexvalueinit[0]; #Initial Value $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = ($fundindexretail * $fundretailsharevalue); #Current Value $bankfndnfovlutly = $bankfndnfovlutly + $buff0; if ($buff0 >= @fundindexvalueinit[0]) { $buff2 = $boldblack; } else { $buff2 = $red; } $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$buff2 on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff2 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; ##### ### print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Industry ',"$red on_$bgcblack"); $buff0 = $fundindexindustry; #Number of shares fund purchased bankindexfndstatbk(); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = @fundindexvalueinit[1]; #Initial Value $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = ($fundindexindustry * $fundindustrysharevalue); #Current Value $bankfndnfovlutly = $bankfndnfovlutly + $buff0; if ($buff0 >= @fundindexvalueinit[1]) { $buff2 = $boldblack; } else { $buff2 = $red; } $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$buff2 on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff2 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; ##### ### print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Tech ',"$red on_$bgcblack"); $buff0 = $fundindextech; #Number of shares fund purchased bankindexfndstatbk(); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = @fundindexvalueinit[2]; #Initial Value $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = ($fundindextech * $fundtechsharevalue); #Current Value $bankfndnfovlutly = $bankfndnfovlutly + $buff0; if ($buff0 >= @fundindexvalueinit[2]) { $buff2 = $boldblack; } else { $buff2 = $red; } $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$buff2 on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff2 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; ##### ### print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Energy ',"$boldred on_$bgcblack"); $buff0 = $fundindexenergy; #Number of shares fund purchased bankindexfndstatbk(); print colored("$buff0","$boldred on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = @fundindexvalueinit[3]; #Initial Value $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$boldred on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = ($fundindexenergy * $fundenergysharevalue); #Current Value $bankfndnfovlutly = $bankfndnfovlutly + $buff0; if ($buff0 >= @fundindexvalueinit[3]) { $buff2 = $boldblack; } else { $buff2 = $red; } $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$buff2 on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff2 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; ##### ### print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Textile ',"$boldred on_$bgcblack"); $buff0 = $fundindextextile; #Number of shares fund purchased bankindexfndstatbk(); print colored("$buff0","$boldred on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = @fundindexvalueinit[4]; #Initial Value $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$boldred on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = ($fundindextextile * $fundtextilesharevalue); #Current Value $bankfndnfovlutly = $bankfndnfovlutly + $buff0; if ($buff0 >= @fundindexvalueinit[4]) { $buff2 = $boldblack; } else { $buff2 = $red; } $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$buff2 on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff2 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; ##### ### print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Investment ',"$boldred on_$bgcblack"); $buff0 = $fundindexinvestment; #Number of shares fund purchased bankindexfndstatbk(); print colored("$buff0","$boldred on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = @fundindexvalueinit[5]; #Initial Value $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$boldred on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = ($fundindexinvestment * $fundinvestmentsharevalue); #Current Value $bankfndnfovlutly = $bankfndnfovlutly + $buff0; if ($buff0 >= @fundindexvalueinit[5]) { $buff2 = $boldblack; } else { $buff2 = $red; } $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$buff2 on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff2 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; ##### ### print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Lending ',"$red on_$bgcblack"); $buff0 = $fundindexlending; #Number of shares fund purchased bankindexfndstatbk(); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = @fundindexvalueinit[6]; #Initial Value $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = ($fundindexlending * $fundlendingsharevalue); #Current Value $bankfndnfovlutly = $bankfndnfovlutly + $buff0; if ($buff0 >= @fundindexvalueinit[6]) { $buff2 = $boldblack; } else { $buff2 = $red; } $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$buff2 on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff2 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; ##### ### print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Construction',"$red on_$bgcblack"); $buff0 = $fundindexconstruction; #Number of shares fund purchased bankindexfndstatbk(); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = @fundindexvalueinit[7]; #Initial Value $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = ($fundindexconstruction * $fundconstructionsharevalue); #Current Value $bankfndnfovlutly = $bankfndnfovlutly + $buff0; if ($buff0 >= @fundindexvalueinit[7]) { $buff2 = $boldblack; } else { $buff2 = $red; } $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$buff2 on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff2 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; ##### ### print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Mining ',"$red on_$bgcblack"); $buff0 = $fundindexmining; #Number of shares fund purchased bankindexfndstatbk(); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = @fundindexvalueinit[8]; #Initial Value $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = ($fundindexmining * $fundminingsharevalue); #Current Value $bankfndnfovlutly = $bankfndnfovlutly + $buff0; if ($buff0 >= @fundindexvalueinit[8]) { $buff2 = $boldblack; } else { $buff2 = $red; } $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$buff2 on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff2 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; ##### bankblankgreen(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); # print colored(' TOTAL ....................',"$white on_$bgcblack"); $buff3 = ''; foreach (@fundindexvalueinit) { $buff3 = $buff3 + $_; } $buff0 = $buff3; #Total kept for comparison in a min $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$white on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff2 = ''; if ($bankfndnfovlutly >= $buff3) { $buff2 = $boldblack; } else { $buff2 = $red; } $buff0 = ($bankfndnfovlutly); #Current Total Value $buff0 = sprintf "%.3f",$buff0; #Format to 3 decimal places bankindexfndstatbk(); print colored("$buff0","$buff2 on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff2 = ''; $buff3 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $bankfndnfovlutly = 0; #Reset to 0 since we're done with it. bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow() } sub bankindexfndstatbk { $numchars = 0; if ($buff0 > 999999999999999.999) { $buff0 = sprintf "%.13e",$buff0; #Format to scientific notation } while ($buff0 =~ /[a-zA-Z0-9_ \:\?\.\,\"\;\`\~\\\/\[\]\{\}\!\@\#\$\%\^\&\*\-\_\=\+\(\)]/g) { $numchars = $numchars + 1; } $buff1 = ' 'x(20 - (($numchars))); $numchars = 0; $buff0 = "$buff1"."$buff0"; } sub bankindexfndstat { $numchars = 0; while ($buff0 =~ /[a-zA-Z0-9_ \:\?\.\,\"\;\`\~\\\/\[\]\{\}\!\@\#\$\%\^\&\*\-\_\=\+\(\)]/g) { $numchars = $numchars + 1; } $buff1 = ' 'x(20 - (($numchars))); $numchars = 0; $buff0 = "$buff0"."$buff1"; } sub bankstockhist { print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Historical Performance: ',"$white on_$bgcblack"); print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; if ($stocktick > 10) { $buff1 = ($stocktick - 10); bankstocktrk(); } else { $buff0 = 'N/A'; } bankcropsinglestat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Time -10 ',"$red on_$bgcblack"); print colored("$buff0","$boldred on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; if ($stocktick > 50) { $buff1 = ($stocktick - 50); bankstocktrk(); } else { $buff0 = 'N/A'; } bankcropsinglestat(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Time -50 ',"$red on_$bgcblack"); print colored("$buff0","$boldred on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; if ($stocktick > 100) { $buff1 = ($stocktick - 100); bankstocktrk(); } else { $buff0 = 'N/A'; } bankcropsinglestat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Time -100 ',"$red on_$bgcblack"); print colored("$buff0","$boldred on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; if ($stocktick > 150) { $buff1 = ($stocktick - 150); bankstocktrk(); } else { $buff0 = 'N/A'; } bankcropsinglestat(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Time -150 ',"$red on_$bgcblack"); print colored("$buff0","$boldred on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; if ($stocktick > 200) { $buff1 = ($stocktick - 200); bankstocktrk(); } else { $buff0 = 'N/A'; } bankcropsinglestat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Time -200 ',"$red on_$bgcblack"); print colored("$buff0","$boldred on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; if ($stocktick > 500) { $buff1 = ($stocktick - 500); bankstocktrk(); } else { $buff0 = 'N/A'; } bankcropsinglestat(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Time -500 ',"$boldred on_$bgcblack"); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; if ($stocktick > 1000) { $buff1 = ($stocktick - 1000); bankstocktrk(); } else { $buff0 = 'N/A'; } bankcropsinglestat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Time -1000 ',"$boldred on_$bgcblack"); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; if ($stocktick > 1500) { $buff1 = ($stocktick - 1500); bankstocktrk(); } else { $buff0 = 'N/A'; } bankcropsinglestat(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Time -1500 ',"$boldred on_$bgcblack"); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; if ($stocktick > 2000) { $buff1 = ($stocktick - 2000); bankstocktrk(); } else { $buff0 = 'N/A'; } bankcropsinglestat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Time -2000 ',"$boldred on_$bgcblack"); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; if ($stocktick > 5000) { $buff1 = ($stocktick - 5000); bankstocktrk(); } else { $buff0 = 'N/A'; } bankcropsinglestat(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Time -5000 ',"$boldred on_$bgcblack"); print colored("$buff0","$red on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; if ($stocktick > 10000) { $buff1 = ($stocktick - 10000); bankstocktrk(); } else { $buff0 = 'N/A'; } bankcropsinglestat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Time -10000 ',"$red on_$bgcblack"); print colored("$buff0","$boldred on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; if ($stocktick > 50000) { $buff1 = ($stocktick - 50000); bankstocktrk(); } else { $buff0 = 'N/A'; } bankcropsinglestat(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Time -50000 ',"$red on_$bgcblack"); print colored("$buff0","$boldred on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; if ($stocktick > 100000) { $buff1 = ($stocktick - 100000); bankstocktrk(); } else { $buff0 = 'N/A'; } bankcropsinglestat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Time -100000 ',"$red on_$bgcblack"); print colored("$buff0","$boldred on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; if ($stocktick > 150000) { $buff1 = ($stocktick - 150000); bankstocktrk(); } else { $buff0 = 'N/A'; } bankcropsinglestat(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Time -150000 ',"$red on_$bgcblack"); print colored("$buff0","$boldred on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; if ($stocktick > 200000) { $buff1 = ($stocktick - 200000); bankstocktrk(); } else { $buff0 = 'N/A'; } bankcropsinglestat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Time -200000 ',"$red on_$bgcblack"); print colored("$buff0","$boldred on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; } sub banksavdeposit { bankblanktitle(); bankblanktop(); bankblankyellow(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); # # #' #' print colored(' SAVINGS DEPOSIT Interest Rate Compounding Interval ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; $buff0 = $banktruesavrte; bankcropstat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$blue on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $banksavcpndintvl; bankcropstat(); print colored(' ',"$boldblack on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); # # #' #' print colored(' Last Intvl Interest Current Account Total ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; $buff0 = $banksavintrst; bankcropstat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$boldwhite on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $banksavmoney; bankcropstat(); print colored(' ',"$boldblack on_$bgcblack"); print colored("$buff0","$green on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); # # #' #' print colored(' Current Total Interest Current Deposited Principle',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; $buff0 = $banksavecrintsttrk; bankcropstat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $banksavsprncple; bankcropstat(); print colored(' ',"$boldblack on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); # # #' #' print colored(' Total Interest Earned Total Deposits ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; $buff0 = $banksavintrsttrk; bankcropstat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $banksavsprncpletrk; bankcropstat(); print colored(' ',"$boldblack on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; bankblankwhite(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' print colored(' Enter deposit amount. ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Compound Interest Clock ',"$boldblack on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = "$banksavingintvl".' / '."$banksavcpndintvl"; bankcropmessage0(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(" $buff0 ","$boldblack on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; $buff0 = ''; $buff1 = ''; bankblankyellow(); bankblankbottom(); bankblanktitle(); print"enter deposit amount [$bankdepst]: "; $buff0 = ''; $buff0 = <STDIN>; chomp($buff0); $buff0 =~ s/\D//g; #Remove non digits $buff0 =~ s/^0*//; #Remove leading zeroes if ($buff0 ne '') { if (0 < $buff0) { $bankdepst = $buff0; if ($money >= $bankdepst) { ##The transaction $money = $money - $bankdepst; $banksavmoney = $banksavmoney + $bankdepst; ##Tracking info $banksavsprncpletrk = $banksavsprncpletrk + $bankdepst; $banksavsprncple = $banksavsprncple + $bankdepst; } else { #Do Nothing but complain $buff0 = "Attempted deposit: $bankdepst"; $buff2 = 'is greater than current cash funds.'; bankcropmessage0(); bankcropmessage2(); newlines(); bankerror(); $buff0 = ''; $buff1 = ''; $buff2 = ''; } } else { #Do Nothing but complain #This won't occur due to the stripping out of non digit chars though #Nice to have an error if it does somehow. $buff0 = "Deposit cannot be zero or negative."; $buff2 = ''; bankcropmessage0(); bankcropmessage2(); newlines(); bankerror(); $buff0 = ''; $buff1 = ''; $buff2 = ''; } } else { #Do Nothing } $buff0 = ''; $bankdepst = 0; } sub banksavwithdraw { bankblanktitle(); bankblanktop(); bankblankyellow(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); # # #' #' print colored(' SAVINGS WITHDRAWAL Interest Rate Compounding Interval ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; $buff0 = $banktruesavrte; bankcropstat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$blue on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $banksavcpndintvl; bankcropstat(); print colored(' ',"$boldblack on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); # # #' #' print colored(' Last Intvl Interest Current Account Total ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; $buff0 = $banksavintrst; bankcropstat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$boldwhite on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $banksavmoney; bankcropstat(); print colored(' ',"$boldblack on_$bgcblack"); print colored("$buff0","$green on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); # # #' #' print colored(' Current Total Interest Current Deposited Principle',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; $buff0 = $banksavecrintsttrk; bankcropstat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $banksavsprncple; bankcropstat(); print colored(' ',"$boldblack on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); # # #' #' print colored(' Total Interest Earned Total Withdrawls ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; $buff0 = $banksavintrsttrk; bankcropstat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $banksavswthdrwtrk; bankcropstat(); print colored(' ',"$boldblack on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; bankblankwhite(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' print colored(' Enter withdrawal amount. ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Compound Interest Clock ',"$boldblack on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = "$banksavingintvl".' / '."$banksavcpndintvl"; bankcropmessage0(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(" $buff0 ","$boldblack on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; $buff0 = ''; $buff1 = ''; bankblankyellow(); bankblankbottom(); bankblanktitle(); print"enter withdrawal amount [$bankwtdrl]: "; $buff0 = ''; $buff0 = <STDIN>; chomp($buff0); $buff0 =~ s/\D//g; #Remove non digits $buff0 =~ s/^0*//; #Remove leading zeroes if ($buff0 ne '') { if (0 < $buff0) { $bankwtdrl = $buff0; if ($banksavmoney >= $bankwtdrl) { ##The transaction $banksavmoney = $banksavmoney - $bankwtdrl; $money = $money + $bankwtdrl; ##Tracking info $banksavswthdrwtrk = $banksavswthdrwtrk + $bankwtdrl; ##Current Total Intrest (total - principle) ## is withdrawn from statistic first $banksavecrintsttrk = $banksavecrintsttrk - $bankwtdrl; if (0 > $banksavecrintsttrk) { ##If $banksavecrintsttrk is now negative, ## we add it to $banksavsprncple ## (which is a subtraction since it's negative) ##First we dipped into the intrest, then the principle $banksavsprncple = $banksavsprncple + $banksavecrintsttrk; $banksavecrintsttrk = 0; } } else { #Do Nothing but complain $buff0 = "Attempted withdrawl: $bankwtdrl"; $buff2 = 'is greater than current account funds.'; bankcropmessage0(); bankcropmessage2(); newlines(); bankerror(); $buff0 = ''; $buff1 = ''; $buff2 = ''; } } else { #Do Nothing but complain #This won't occur due to the stripping out of non digit chars though #Nice to have an error if it does somehow. $buff0 = "Withdrawl cannot be zero or negative."; $buff2 = ''; bankcropmessage0(); bankcropmessage2(); newlines(); bankerror(); $buff0 = ''; $buff1 = ''; $buff2 = ''; } } else { #Do Nothing } $buff0 = ''; $bankwtdrl = 0; } sub banktokenmachine { tokeneval(); bankblanktitle(); bankblanktop(); bankblankyellow(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' print colored(' Enter the value of the slotmachine tokens you wish to use: ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; bankblankyellow(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Either a set numerical value: 5 ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Or an automatically updated multiplicative value of your total: m0.01 ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankbottom(); bankblanktitle(); print"enter slotmachine token value [$coin]: "; $buff0 = <STDIN>; chomp($buff0); $buff1 = ''; $buff2 = ''; ($buff1, $buff2) = split(//,$buff0, 2); if (($buff1 eq 'm') and ($buff2 ne '') and ($buff2 > 0)) { $buff2 =~ s/\W!\.//g; if (($buff2 * $money) <= $money) { #Only enable token evaluation if the multiple is less than or equal to total cash $coineval = 1; $coinmultiple = $buff2; tokeneval(); } } elsif (($buff0 ne '') and ($buff0 ne 'c') and ($buff0 ne 'C')) { $coineval = 0; $buff0 =~ s/\D//g; #Remove non digits $buff0 =~ s/^0*//; #Remove leading zeroes if ($buff0 ne '') { $coin = $buff0; } } if (1 >= $coin) { $coin = 1; } } sub tokeneval { if ($coineval == 1) { $coin = $money * $coinmultiple; $coin = sprintf("%.0f", $coin ); #make sure full number; if (1 >= $coin) { $coin = 1; } } } sub bankcashin { bankblanktitle(); bankblanktop(); bankblankyellow(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' print colored(' Do you wish to cashin? ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhiteshort();print colored(' oooo',"$cyan on_$bgcblack");print colored('| |',"$boldwhite on_$bgcwhite");print colored('oooo ',"$cyan on_$bgcblack"); bankblankwhiteshortend(); bankblankyellowshort();print colored(' ooooooo',"$cyan on_$bgcblack");print colored('| |',"$boldwhite on_$bgcwhite");print colored('ooooooo ',"$cyan on_$bgcblack"); bankblankyellowshortend(); bankblankgreenshort();print colored(' oooooooo',"$cyan on_$bgcblack");print colored('| |',"$boldwhite on_$bgcwhite");print colored('oooooooo ',"$cyan on_$bgcblack"); bankblankgreenshortend(); bankblankyellowshort();print colored(' o',"$boldcyan on_$bgcblack");print colored('oooooooo',"$cyan on_$bgcblack");print colored('| |',"$boldwhite on_$bgcwhite");print colored('oooooooo ',"$cyan on_$bgcblack"); bankblankyellowshortend(); bankblankwhiteshort();print colored('o',"$boldcyan on_$bgcblack");print colored('ooooooo',"$cyan on_$bgcblack");print colored(' ',"$boldwhite on_$bgcwhite");print colored('ooooooo',"$cyan on_$bgcblack"); bankblankwhiteshortend(); bankblankyellowshort();print colored(' ',"$boldwhite on_$bgcwhite");print colored('======= 1 =======',"$boldwhite on_$bgcwhite"); bankblankyellowshortend(); bankblankgreenshort();print colored(' ',"$boldwhite on_$bgcwhite");print colored('======= K =======',"$boldwhite on_$bgcwhite"); bankblankgreenshortend(); bankblankyellowshort();print colored('o',"$boldcyan on_$bgcblack");print colored('ooooooo',"$cyan on_$bgcblack");print colored(' ',"$boldwhite on_$bgcwhite");print colored('ooooooo',"$cyan on_$bgcblack"); bankblankyellowshortend(); bankblankwhiteshort();print colored(' o',"$boldcyan on_$bgcblack");print colored('oooooooo',"$cyan on_$bgcblack");print colored('| |',"$boldwhite on_$bgcwhite");print colored('oooooooo ',"$cyan on_$bgcblack"); bankblankwhiteshortend(); bankblankyellowshort();print colored(' o',"$boldcyan on_$bgcblack");print colored('oooooooo',"$cyan on_$bgcblack");print colored('| |',"$boldwhite on_$bgcwhite");print colored('oooooooo ',"$cyan on_$bgcblack"); bankblankyellowshortend(); bankblankgreenshort();print colored(' o',"$boldcyan on_$bgcblack");print colored('ooooooo',"$cyan on_$bgcblack");print colored('| |',"$boldwhite on_$bgcwhite");print colored('ooooooo ',"$cyan on_$bgcblack"); bankblankgreenshortend(); bankblankyellowshort();print colored(' ooo',"$boldcyan on_$bgcblack");print colored('oooo',"$cyan on_$bgcblack");print colored('| |',"$boldwhite on_$bgcwhite");print colored('oooo ',"$cyan on_$bgcblack"); bankblankyellowshortend(); bankblankwhiteshort();print colored(' oooo',"$boldcyan on_$bgcblack");print colored(' ',"$boldwhite on_$bgcwhite");print colored('ooo ',"$boldcyan on_$bgcblack"); bankblankwhiteshortend(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankbottom(); bankblanktitle(); print"cashin [y/n]: "; $buff0 = <STDIN>; chomp($buff0); if (($buff0 eq 'y') or ($buff0 eq 'Y') or ($buff0 eq 'yes') or ($buff0 eq 'YES')) { loadsavefile(); zerosavefile(); zeroaccounts(); $loadedsavefile = 1; } } sub bankcashout { bankblanktitle(); bankblanktop(); bankblankyellow(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' print colored(' Do you wish to cashout? ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhite(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankwhiteshort();print colored(' oooo',"$red on_$bgcblack");print colored('| |',"$boldwhite on_$bgcwhite");print colored('oooo ',"$red on_$bgcblack"); bankblankwhiteshortend(); bankblankyellowshort();print colored(' ooooooo',"$red on_$bgcblack");print colored('| |',"$boldwhite on_$bgcwhite");print colored('ooooooo ',"$red on_$bgcblack"); bankblankyellowshortend(); bankblankgreenshort();print colored(' oooooooo',"$red on_$bgcblack");print colored('| |',"$boldwhite on_$bgcwhite");print colored('oooooooo ',"$red on_$bgcblack"); bankblankgreenshortend(); bankblankyellowshort();print colored(' o',"$boldred on_$bgcblack");print colored('oooooooo',"$red on_$bgcblack");print colored('| |',"$boldwhite on_$bgcwhite");print colored('oooooooo ',"$red on_$bgcblack"); bankblankyellowshortend(); bankblankwhiteshort();print colored('o',"$boldred on_$bgcblack");print colored('ooooooo',"$red on_$bgcblack");print colored(' ',"$boldwhite on_$bgcwhite");print colored('ooooooo',"$red on_$bgcblack"); bankblankwhiteshortend(); bankblankyellowshort();print colored(' ',"$boldwhite on_$bgcwhite");print colored('======= 5 =======',"$boldwhite on_$bgcwhite"); bankblankyellowshortend(); bankblankgreenshort();print colored(' ',"$boldwhite on_$bgcwhite");print colored('======= 0 =======',"$boldwhite on_$bgcwhite"); bankblankgreenshortend(); bankblankyellowshort();print colored('o',"$boldred on_$bgcblack");print colored('ooooooo',"$red on_$bgcblack");print colored(' ',"$boldwhite on_$bgcwhite");print colored('ooooooo',"$red on_$bgcblack"); bankblankyellowshortend(); bankblankwhiteshort();print colored(' o',"$boldred on_$bgcblack");print colored('oooooooo',"$red on_$bgcblack");print colored('| |',"$boldwhite on_$bgcwhite");print colored('oooooooo ',"$red on_$bgcblack"); bankblankwhiteshortend(); bankblankyellowshort();print colored(' o',"$boldred on_$bgcblack");print colored('oooooooo',"$red on_$bgcblack");print colored('| |',"$boldwhite on_$bgcwhite");print colored('oooooooo ',"$red on_$bgcblack"); bankblankyellowshortend(); bankblankgreenshort();print colored(' o',"$boldred on_$bgcblack");print colored('ooooooo',"$red on_$bgcblack");print colored('| |',"$boldwhite on_$bgcwhite");print colored('ooooooo ',"$red on_$bgcblack"); bankblankgreenshortend(); bankblankyellowshort();print colored(' ooo',"$boldred on_$bgcblack");print colored('oooo',"$red on_$bgcblack");print colored('| |',"$boldwhite on_$bgcwhite");print colored('oooo ',"$red on_$bgcblack"); bankblankyellowshortend(); bankblankwhiteshort();print colored(' oooo',"$boldred on_$bgcblack");print colored(' ',"$boldwhite on_$bgcwhite");print colored('ooo ',"$boldred on_$bgcblack"); bankblankwhiteshortend(); bankblankyellow(); bankblankgreen(); bankblankyellow(); bankblankbottom(); bankblanktitle(); print"cashout [y/n]: "; $buff0 = <STDIN>; chomp($buff0); if (($buff0 eq 'y') or ($buff0 eq 'Y') or ($buff0 eq 'yes') or ($buff0 eq 'YES')) { printsavefile(); zeroaccounts(); $money = 0; } } sub findbankstkpttotal { $bankstkpttotal = (($fundretailsharevalue * $fundretailshares) + ($fundindustrysharevalue * $fundindustryshares) + ($fundtechsharevalue * $fundtechshares) + ($fundenergysharevalue * $fundenergyshares) + ($fundtextilesharevalue * $fundtextileshares) + ($fundinvestmentsharevalue * $fundinvestmentshares) + ($fundlendingsharevalue * $fundlendingshares) + ($fundconstructionsharevalue * $fundconstructionshares) + ($fundminingsharevalue * $fundminingshares) + ($fundindexsharevalue * $fundindexshares)); } sub bankfinarept { bankblanktitle(); bankblanktop(); bankblankyellow(); bankblankwhite(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' print colored(' Cumulative Winnings Expended Cash ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $hrstmc; bankcropstat(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' House Rules Reel Deal: ',"$white on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $hrstmc2; bankcropstat(); print colored('(',"$boldblack on_$bgcblack"); print colored("$buff0","$red on_$bgcblack"); print colored(') ',"$boldblack on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; $buff0 = $ddstmc; bankcropstat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Double Blue Diamond: ',"$white on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $ddstmc2; bankcropstat(); print colored('(',"$boldblack on_$bgcblack"); print colored("$buff0","$red on_$bgcblack"); print colored(') ',"$boldblack on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $ssstmc; bankcropstat(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' High Roller Sevens: ',"$white on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $ssstmc2; bankcropstat(); print colored('(',"$boldblack on_$bgcblack"); print colored("$buff0","$red on_$bgcblack"); print colored(') ',"$boldblack on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; $buff0 = $ngemstmc; bankcropstat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Twilight Mine: ',"$white on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $ngemstmc2; bankcropstat(); print colored('(',"$boldblack on_$bgcblack"); print colored("$buff0","$red on_$bgcblack"); print colored(') ',"$boldblack on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $potluckstmc; bankcropstat(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' PotLuck: ',"$white on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $potluckstmc2; bankcropstat(); print colored('(',"$boldblack on_$bgcblack"); print colored("$buff0","$red on_$bgcblack"); print colored(') ',"$boldblack on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; $buff0 = $rrstmc; bankcropstat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Russian Roulette: ',"$white on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $rrstmc2; bankcropstat(); print colored('(',"$boldblack on_$bgcblack"); print colored("$buff0","$red on_$bgcblack"); print colored(') ',"$boldblack on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $lvrstmc; bankcropstat(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Monte Carlo Roulette: ',"$white on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $lvrstmc2; bankcropstat(); print colored('(',"$boldblack on_$bgcblack"); print colored("$buff0","$red on_$bgcblack"); print colored(') ',"$boldblack on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; $buff0 = $rllvrstmc; bankcropstat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Real Vegas Roulette: ',"$white on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $rllvrstmc2; bankcropstat(); print colored('(',"$boldblack on_$bgcblack"); print colored("$buff0","$red on_$bgcblack"); print colored(') ',"$boldblack on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $sbtstmc; bankcropstat(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Sic Bo Tai Sai: ',"$white on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $sbtstmc2; bankcropstat(); print colored('(',"$boldblack on_$bgcblack"); print colored("$buff0","$red on_$bgcblack"); print colored(') ',"$boldblack on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; $buff0 = $ccrapsstmc; bankcropstat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' Casino Craps: ',"$white on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $ccrapsstmc2; bankcropstat(); print colored('(',"$boldblack on_$bgcblack"); print colored("$buff0","$red on_$bgcblack"); print colored(') ',"$boldblack on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; bankblankwhite(); moneyclock(); $buff0 = $totalmc; bankcropstat(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' TOTAL: ',"$white on_$bgcblack"); print colored("$buff0","$white on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $moneyexp; bankcropstat(); print colored('(',"$boldblack on_$bgcblack"); print colored("$buff0","$red on_$bgcblack"); print colored(') ',"$boldblack on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; bankblankgreen(); print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' print colored(' Stock Portfolio Value ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; findbankstkpttotal(); $buff0 = $bankstkpttotal; bankcropsinglestat(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$boldwhite on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' print colored(' Current Savings Current Account Principle ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $banksavmoney; bankcropstat(); print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$boldwhite on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $banksavsprncple; bankcropstat(); print colored(' ',"$boldblack on_$bgcblack"); print colored("$buff0","$green on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); #' print colored(' Current Cash Initial Cash ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; $buff0 = $money; bankcropstat(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored("$buff0","$boldwhite on_$bgcblack"); $buff0 = ''; $buff1 = ''; $buff0 = $startmoney; bankcropstat(); print colored(' ',"$boldblack on_$bgcblack"); print colored("$buff0","$green on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; bankblankyellow(); $buff0 = (($money) + (int($banksavmoney)) + (floor($bankstkpttotal))); bankcropsinglestat(); print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' TOTAL ESTATE VALUE: ',"$white on_$bgcblack"); print colored("$buff0","$boldyellow on_$bgcblack"); $buff0 = ''; $buff1 = ''; print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; bankblankyellow(); bankblankbottom(); bankblanktitle(); $buff0 = <STDIN>; $buff0 = ''; } sub bankcropsinglestat { $numchars = 0; while ($buff0 =~ /[a-zA-Z0-9_ \:\?\.\,\"\;\`\~\\\/\[\]\{\}\!\@\#\$\%\^\&\*\-\_\=\+\(\)]/g) { $numchars = $numchars + 1; } $buff1 = ' 'x(48 - (($numchars))); $numchars = 0; $buff0 = "$buff0"."$buff1"; } sub bankcropsinglestatbk { $numchars = 0; while ($buff0 =~ /[a-zA-Z0-9_ \:\?\.\,\"\;\`\~\\\/\[\]\{\}\!\@\#\$\%\^\&\*\-\_\=\+\(\)]/g) { $numchars = $numchars + 1; } $buff1 = ' 'x(48 - (($numchars))); $numchars = 0; $buff0 = "$buff1"."$buff0"; } sub bankcropstat { $numchars = 0; while ($buff0 =~ /[a-zA-Z0-9_ \:\?\.\,\"\;\`\~\\\/\[\]\{\}\!\@\#\$\%\^\&\*\-\_\=\+\(\)]/g) { $numchars = $numchars + 1; } $buff1 = ' 'x(23 - (($numchars))); $numchars = 0; $buff0 = "$buff0"."$buff1"; } sub bankcropstatbk { $numchars = 0; while ($buff0 =~ /[a-zA-Z0-9_ \:\?\.\,\"\;\`\~\\\/\[\]\{\}\!\@\#\$\%\^\&\*\-\_\=\+\(\)]/g) { $numchars = $numchars + 1; } $buff1 = ' 'x(23 - (($numchars))); $numchars = 0; $buff0 = "$buff1"."$buff0"; } sub bankcropmessage0 { $numchars = 0; while ($buff0 =~ /[a-zA-Z0-9_ \:\?\.\,\"\;\`\~\\\/\[\]\{\}\!\@\#\$\%\^\&\*\-\_\=\+\(\)]/g) { $numchars = $numchars + 1; } $buff1 = ' 'x(72 - (($numchars))); $numchars = 0; $buff0 = "$buff0"."$buff1"; } sub bankcropmessage2 { $numchars = 0; while ($buff2 =~ /[a-zA-Z0-9_ \:\?\.\,\"\;\`\~\\\/\[\]\{\}\!\@\#\$\%\^\&\*\-\_\=\+\(\)]/g) { $numchars = $numchars + 1; } $buff1 = ' 'x(72 - (($numchars))); $numchars = 0; $buff2 = "$buff2"."$buff1"; } sub bankblankyellow { print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; } sub bankblankwhite { print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; } sub bankblankgreen { print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; } sub bankblankwhiteshort { print colored('$',"$boldwhite on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); } sub bankblankwhiteshortend { print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; } sub bankblankyellowshort { print colored('$',"$boldyellow on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); } sub bankblankyellowshortend { print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; } sub bankblankgreenshort { print colored('$',"$boldgreen on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored(' ',"$white on_$bgcblack"); } sub bankblankgreenshortend { print colored(' ',"$white on_$bgcblack"); print colored('|',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; } sub bankblanktop { print colored('$',"$boldgreen on_$bgcblack"); print colored('\\----------------------------------------------------------------------------/',"$boldwhite on_$bgcwhite"); print colored('$',"$boldgreen on_$bgcblack"); print"\n"; } sub bankblankbottom { print colored('$',"$boldwhite on_$bgcblack"); print colored('/----------------------------------------------------------------------------\\',"$boldwhite on_$bgcwhite"); print colored('$',"$boldwhite on_$bgcblack"); print"\n"; } sub bankblanktitle { print colored('$',"$boldyellow on_$bgcblack"); print colored('BANK',"$boldgreen on_$bgcblack"); print colored('$',"$boldyellow on_$bgcblack"); print colored('BANK',"$boldwhite on_$bgcblack"); print colored('$',"$boldyellow on_$bgcblack"); print colored('BANK',"$boldgreen on_$bgcblack"); print colored('$',"$boldyellow on_$bgcblack"); print colored('BANK',"$boldwhite on_$bgcblack"); print colored('$',"$boldyellow on_$bgcblack"); print colored('BANK',"$boldgreen on_$bgcblack"); print colored('$',"$boldyellow on_$bgcblack"); print colored('BANK',"$boldwhite on_$bgcblack"); print colored('$',"$boldyellow on_$bgcblack"); print colored('BANK',"$boldgreen on_$bgcblack"); print colored('$.$.$$.$.$',"$boldyellow on_$bgcblack"); print colored('BANK',"$boldgreen on_$bgcblack"); print colored('$',"$boldyellow on_$bgcblack"); print colored('BANK',"$boldwhite on_$bgcblack"); print colored('$',"$boldyellow on_$bgcblack"); print colored('BANK',"$boldgreen on_$bgcblack"); print colored('$',"$boldyellow on_$bgcblack"); print colored('BANK',"$boldwhite on_$bgcblack"); print colored('$',"$boldyellow on_$bgcblack"); print colored('BANK',"$boldgreen on_$bgcblack"); print colored('$',"$boldyellow on_$bgcblack"); print colored('BANK',"$boldwhite on_$bgcblack"); print colored('$',"$boldyellow on_$bgcblack"); print colored('BANK',"$boldgreen on_$bgcblack"); print colored('$',"$boldyellow on_$bgcblack"); print"\n"; } sub bankstartinfo { $bankstartinfo = <STDIN>; chomp($bankstartinfo); if ($bankstartinfo eq '1') { newlines(); banktokenmachine(); newlines(); bankmachine(); } elsif ($bankstartinfo eq '2') { newlines(); bankfinarept(); newlines(); bankmachine(); } elsif ($bankstartinfo eq '3') { newlines(); banksavdeposit(); newlines(); bankmachine(); } elsif ($bankstartinfo eq '4') { newlines(); banksavwithdraw(); newlines(); bankmachine(); } elsif ($bankstartinfo eq '5') { newlines(); bankstockedit(); newlines(); bankmachine(); } elsif (($bankstartinfo eq '6') && ($allowsave == 1)) { newlines(); bankcashout(); newlines(); bankmachine(); } elsif (($bankstartinfo eq '7') && ($allowsave == 1) && ($loadedsavefile == 0)) { newlines(); bankcashin(); newlines(); bankmachine(); } elsif (($bankstartinfo eq 'exit') or ($bankstartinfo eq 'EXIT') or ($bankstartinfo eq 'quit') or ($bankstartinfo eq 'QUIT')) { exitgame(); } elsif (($bankstartinfo eq "c") or ($bankstartinfo eq "C")) { newlines(); if ($music == 1) { killmusic(); $music = 1; beginmusic(); } else { #NOTHING! } return; } else { newlines(); bankmachine(); } } ################################################################################################################################ sub print2html { winlosecalc(); moneyclock(); $htmllogo1 = '[BR]'."$name".'[BR] GENERAL PUBLIC [BR][BR]'; $htmllogo2 = ' SSSSSS IIIIIIIIIII [BR]'; $htmllogo3 = ' SSSSSSSSSS IIIIIIIIIIIII [BR]'; $htmllogo4 = ' SSSS SSSS IIIII [BR]'; $htmllogo5 = ' A SSS IIIII NNNN NNNNN [BR]'; $htmllogo6 = ' AAA SSSS IIIII NNNNN NNN [BR]'; $htmllogo7 = ' AAAAA SSSSSSSSS IIIII NNNNNN NNN [BR]'; $htmllogo8 = ' AAAAAAA SSSSSSSSS IIIII NNNNNNN NNN [BR]'; $htmllogo9 = ' CCCCCC AAAA AAAA SSSS IIIII NNN NNNN NNN OOOOOOO [BR]'; $htmllogo10 = ' CCCCCCCCCC AAA AAA SSS IIIII NNN NNNN NNN OOOOOOOOOOO [BR]'; $htmllogo11 = ' CCCC CCCC AAAAAAAAA SSSS SSSS IIIII NNN NNNNNNN OOOOO OOOOO[BR]'; $htmllogo12 = ' CCC AAA AAA SSSSSSSSSS IIIIIIIIIIIII NNN NNNNNN OOOO OOOO[BR]'; $htmllogo13 = ' CCC AAA AAA SSSSSS IIIIIIIIIII NNN NNNNN OOOO OOOO[BR]'; $htmllogo14 = ' CCCC CCCC AAA AAA NNNNN NNNN OOOOO OOOOO[BR]'; $htmllogo15 = ' CCCCCCCCCC OOOOOOOOOOO [BR]'; $htmllogo16 = ' CCCCCC OOOOOOO [BR]'; $htmllogo17 = " version $version [BR][BR]"; $htmllogo1 =~ s/ / /g; $htmllogo2 =~ s/ / /g; $htmllogo3 =~ s/ / /g; $htmllogo4 =~ s/ / /g; $htmllogo5 =~ s/ / /g; $htmllogo6 =~ s/ / /g; $htmllogo7 =~ s/ / /g; $htmllogo8 =~ s/ / /g; $htmllogo9 =~ s/ / /g; $htmllogo10 =~ s/ / /g; $htmllogo11 =~ s/ / /g; $htmllogo12 =~ s/ / /g; $htmllogo13 =~ s/ / /g; $htmllogo14 =~ s/ / /g; $htmllogo15 =~ s/ / /g; $htmllogo16 =~ s/ / /g; $htmllogo17 =~ s/ / /g; $htmllogo1 =~ s/\[BR\]/<br>\n/g; $htmllogo2 =~ s/\[BR\]/<br>\n/g; $htmllogo3 =~ s/\[BR\]/<br>\n/g; $htmllogo4 =~ s/\[BR\]/<br>\n/g; $htmllogo5 =~ s/\[BR\]/<br>\n/g; $htmllogo6 =~ s/\[BR\]/<br>\n/g; $htmllogo7 =~ s/\[BR\]/<br>\n/g; $htmllogo8 =~ s/\[BR\]/<br>\n/g; $htmllogo9 =~ s/\[BR\]/<br>\n/g; $htmllogo10 =~ s/\[BR\]/<br>\n/g; $htmllogo11 =~ s/\[BR\]/<br>\n/g; $htmllogo12 =~ s/\[BR\]/<br>\n/g; $htmllogo13 =~ s/\[BR\]/<br>\n/g; $htmllogo14 =~ s/\[BR\]/<br>\n/g; $htmllogo15 =~ s/\[BR\]/<br>\n/g; $htmllogo16 =~ s/\[BR\]/<br>\n/g; $htmllogo17 =~ s/\[BR\]/<br>\n/g; $htmlstats = '[BR][Total Times Slot Reels Were Spun:] '."$spins".'[BR][Total Expended Cash:] '."$moneyexp".'[BR][Money at Start:] '."$startmoney".'[BR][Aquired Wealth:] '."$money".'[BR][BR][Total Wins:] '."$winstat".'[BR][Total Losses:] '."$losestat".'[BR][Cumulative Total Winnings:] '."$totalmc".'[BR][BR][House Rules Reel Deal]'.'[BR][Wins:] '."$hrstwin".'[BR][Losses:] '."$hrstlose". '[BR][Spins:] '."$hrstspins".'[BR][Cumulative Winnings:] '."$hrstmc".'[BR][Expended Cash:] '."$hrstmc2".'[BR][BR][Double Blue Diamond]'.'[BR][Wins:] '."$ddstwin".'[BR][Losses:] '."$ddstlose".'[BR][Spins:] '."$ddstspins".'[BR][Cumulative Winnings:] '."$ddstmc".'[BR][Expended Cash:] '."$ddstmc2".'[BR][BR][High Roller Sevens]'.'[BR][Wins:] '."$ssstwin".'[BR][Losses:] '."$ssstlose".'[BR][Spins:] '."$ssstspins".'[BR][Cumulative Winnings:] '."$ssstmc".'[BR][Expended Cash:] '."$ssstmc2".'[BR][BR][Twilight Mine]'.'[BR][Wins:] '."$ngemstwin".'[BR][Losses:] '."$ngemstlose".'[BR][Spins:] '."$ngemstspins".'[BR][Cumulative Winnings:] '."$ngemstmc".'[BR][Expended Cash:] '."$ngemstmc2".'[BR][BR][PotLuck]'.'[BR][Wins:] '."$potluckstwin".'[BR][Losses:] '."$potluckstlose".'[BR][Spins:] '."$potluckstspins".'[BR][Cumulative Winnings:] '."$potluckstmc".'[BR][Expended Cash:] '."$potluckstmc2".'[BR][BR][Russian Roulette 25 or Life]'.'[BR][Wins:] '."$rrstwin".'[BR][Losses:] '."$rrstlose".'[BR][Spins:] '."$ruskiestspin".'[BR][Cumulative Winnings:] '."$rrstmc".'[BR][Expended:] '."$rrstmc2".'[BR][BR][Monte Carlo Roulette]'.'[BR][Wins:] '."$lvrstwin".'[BR][Losses:] '."$lvrstlose".'[BR][Spins:]'."$lvrstspins".'[BR][Cumulative Winnings:] '."$lvrstmc".'[BR][Expended Cash:] '."$lvrstmc2".'[BR][BR][Real Vegas Roulette]'.'[BR][Wins:] '."$rllvrstwin".'[BR][Losses:] '."$rllvrstlose".'[BR][Spins:]'."$rllvrstspins".'[BR][Cumulative Winnings:] '."$rllvrstmc".'[BR][Expended Cash:] '."$rllvrstmc2".'[BR][BR][Sic Bo Tai Sai]'.'[BR][Wins:] '."$sbtstwin".'[BR][Losses:] '."$sbtstlose".'[BR][Spins:]'."$sbtstspins".'[BR][Cumulative Winnings:] '."$sbtstmc".'[BR][Expended Cash:] '."$sbtstmc2".'[BR][BR][Casino Craps]'.'[BR][Wins:] '."$ccrapsstwin".'[BR][Losses:] '."$ccrapsstlose".'[BR][Spins:]'."$ccrapsstspins".'[BR][Cumulative Winnings:] '."$ccrapsstmc".'[BR][Expended Cash:] '."$ccrapsstmc2".'[BR]'; $htmlstats =~ s/\[BR\]/<br>\n/g; $htmlstats =~ s/ / /g; $htmlheader = '<!DOCTYPE HTML PUBLIC "html.dtd">[BR]<html>[BR]<head>[BR]<title>'."$htmltitle".'</title>[BR]<style TYPE="text/css">[BR]</STYLE>[BR]</head>[BR]<body><body BGCOLOR="'."$htmlcolor0".'" TEXT="'."$htmlcolor1".'" LINK='."$htmlcolor5".'>'; $htmlbody = '<tt><font COLOR='."$htmlcolor4".'>'."$htmllogo1".'</font><font COLOR='."$htmlcolor3".'>'."$htmllogo2".'</font><font COLOR='."$htmlcolor2".'>'."$htmllogo3".'</font><font COLOR='."$htmlcolor3".'>'."$htmllogo4".'</font><font COLOR='."$htmlcolor2".'>'."$htmllogo5".'</font><font COLOR='."$htmlcolor3".'>'."$htmllogo6".'</font><font COLOR='."$htmlcolor2".'>'."$htmllogo7".'</font><font COLOR='."$htmlcolor3".'>'."$htmllogo8".'</font><font COLOR='."$htmlcolor2".'>'."$htmllogo9".'</font><font COLOR='."$htmlcolor3".'>'."$htmllogo10".'</font><font COLOR='."$htmlcolor2".'>'."$htmllogo11".'</font><font COLOR='."$htmlcolor3".'>'."$htmllogo12".'</font><font COLOR='."$htmlcolor2".'>'."$htmllogo13".'</font><font COLOR='."$htmlcolor3".'>'."$htmllogo14".'</font><font COLOR='."$htmlcolor2".'>'."$htmllogo15".'</font><font COLOR='."$htmlcolor3".'>'."$htmllogo16".'</font><font COLOR='."$htmlcolor7".'>'."$htmllogo17".'</tt>'."$htmlstats"; $htmlfooter = '<br>[BR]<br>[BR]<font SIZE="-1" COLOR='."$htmlcolor6".'>::Generated By GPC-Slots 2:: - ::WEB[<a HREF="https://cat2.dynu.ca">CAEthaver2</a>]:: - ::IRC[<i>#linux</i> @ <b>cat2.dynu.ca</b>]:: - ::FORUMS[<a HREF="https://cat2.dynu.ca/bb/index.php">CAEthaver2 General Forums</a>]:: - ::RPG1[written by MikeeUSA]::</font><br>[BR]</body>[BR]</html>[BR]'; $htmlfooter =~ s/\[BR\]/\n/g; $htmlheader =~ s/\[BR\]/\n/g; if ($playtrack == 1) { $htmlgraph = "<br>\n[Progress Graph]\n<br>\n<table width=\"100%\" border='0'>\n<tbody>\n<tr>\n<td>\n<table border='0'>\n<tbody>\n<tr valign=\"bottom\">\n"; @ptracker2 = @ptracker; foreach (@ptracker2) { $htmlgraph = "$htmlgraph"."<td>\n<tt>\n"; if ($_ >= ($startmoney * 500)) { #50000+ $htmlgraph = "$htmlgraph"."<font color=\"white\">\n"; } elsif ($_ >= ($startmoney * 100)) {#10000-49999 $htmlgraph = "$htmlgraph"."<font color=\"purple\">\n"; } elsif ($_ >= ($startmoney * 50)) { #5000-9999 $htmlgraph = "$htmlgraph"."<font color=\"blue\">\n"; } elsif ($_ >= ($startmoney * 10)) { #1000-4999 $htmlgraph = "$htmlgraph"."<font color=\"cyan\">\n"; } elsif ($_ >= ($startmoney * 5)) { #500-999 $htmlgraph = "$htmlgraph"."<font color=\"green\">\n"; } elsif ($_ >= ($startmoney * 1)) { #100-499 $htmlgraph = "$htmlgraph"."<font color=\"yellow\">\n"; } elsif ($_ >= ($startmoney * 0.5)) { #50-99 $htmlgraph = "$htmlgraph"."<font color=\"orange\">\n"; } elsif ($_ >= ($startmoney * 0.1)) { #10-49 $htmlgraph = "$htmlgraph"."<font color=\"red\">\n"; } else { $htmlgraph = "$htmlgraph"."<font color=\"darkred\">\n"; } $htmlgraph2 = ""; if ($htmlgraphnums == 1) { if ($_ >= $htmldivide) { $htmlgraph2 = (("[_|_]<br>\n") x (sprintf("%.0f", $_ )/$htmldivide)); $htmlgraph = "$htmlgraph"."$htmlgraph2"; } elsif (($_ < ($htmldivide)) and ($_ >= ($htmldivide/2))) { $htmlgraph2 = (".---.<br>\n"); $htmlgraph = "$htmlgraph"."$htmlgraph2"; } elsif (($_ < ($htmldivide/2)) and ($_ >= ($htmldivide/10))) { $htmlgraph2 = ("_____<br>\n"); $htmlgraph = "$htmlgraph"."$htmlgraph2"; } $htmlgraph = "$htmlgraph"."-----<br>$_<br>\n</font>\n</tt>\n</td>\n"; } else { if ($_ >= $htmldivide) { $htmlgraph2 = (("[_]<br>\n") x (sprintf("%.0f", $_ )/$htmldivide)); $htmlgraph = "$htmlgraph"."$htmlgraph2"; } elsif (($_ < ($htmldivide)) and ($_ >= ($htmldivide/2))) { $htmlgraph2 = (".-.<br>\n"); $htmlgraph = "$htmlgraph"."$htmlgraph2"; } elsif (($_ < ($htmldivide/2)) and ($_ >= ($htmldivide/10))) { $htmlgraph2 = ("___<br>\n"); $htmlgraph = "$htmlgraph"."$htmlgraph2"; } $htmlgraph = "$htmlgraph"."---<br>$_<br>\n</font>\n</tt>\n</td>\n"; } } $htmlgraph = "$htmlgraph"."</tr>\n</tbody>\n</table>\n</tr>\n</td>\n</tbody>\n</table>\n<br>\nKey: [_] = $htmldivide<br>\n"; } else { $htmlgraph = "<br>\n"; } $htmldoc = "$htmlheader"."$htmlbody"."$htmlgraph"."$htmlfooter"; open FILE,"> $htmldumpfile" or print"\nWARNING: Could Not Open $htmldumpfile \n"; print FILE "$htmldoc" or print"\nWARNING: Could Not Write To $htmldumpfile \n"; close FILE or print"\nWARNING: Could Not Even Close $htmldumpfile \n"; } sub printsavefile { findbankstkpttotal(); #Note: saving takes into accout tax and fees for selling stocks etc if ($bankstkpttotal > 0) { $savestring = ($money + $banksavmoney + (($bankstkpttotal - ($bankstkpttotal * $stocktax)) - $stocktcstsl))."_"."$startmoney"; } else { $savestring = ($money + $banksavmoney)."_"."$startmoney"; } padsavestring(); encodesavestring(); open FILE,"> $savefile" or print"\nWARNING: Could Not Open $savefile \n"; print FILE "$savestring" or print"\nWARNING: Could Not Write To $savefile \n"; close FILE or print"\nWARNING: Could Not Even Close $savefile \n"; } sub padsavestring { $buff0 = length($savestring); $savestring = "$savestring"."_"."$buff0"."\n"; $buff0 = ''; } sub zerosavefile { findbankstkpttotal(); $savestring = '0_'."$startmoney"; padsavestring(); encodesavestring(); open FILE,"> $savefile" or print"\nWARNING: Could Not Open $savefile \n"; print FILE "$savestring" or print"\nWARNING: Could Not Write To $savefile \n"; close FILE or print"\nWARNING: Could Not Even Close $savefile \n"; } sub zeroaccounts { $fundretailshares = 0; $fundindustryshares = 0; $fundtechshares = 0; $fundenergyshares = 0; $fundtextileshares = 0; $fundinvestmentshares = 0; $fundlendingshares = 0; $fundconstructionshares = 0; $fundminingshares = 0; $fundindexshares = 0; $loadedsavefile = 0; $banksavintrst = 0; #This period's interest $banksavmoney = 0; #The acctual account $banksavsprncpletrk = 0; #Tracks all deposits over the life of the account $banksavswthdrwtrk = 0; #Tracks all withdrawals over the life of the account $banksavsprncple = 0; #Current Deposited Principle $banksavecrintsttrk = 0; #Tracks Current Intrest (total - principle) $banksavintrsttrk = 0; #Tracks the total earned interest over the life of the account $bankdepst = 0; $bankwtdrl = 0; $bankstkbuy = 0; $bankstksell = 0; $bankstkpttotal = 0; $bankfndmorinfo = 0; } sub encodesavestring { $savestring =~ s/\./t/g; $savestring =~ s/\+/y/g; $savestring =~ s/e/r/g; $savestring =~ s/0/a/g; $savestring =~ s/2/c/g; $savestring =~ s/4/e/g; $savestring =~ s/1/g/g; $savestring =~ s/6/i/g; $savestring =~ s/3/k/g; $savestring =~ s/5/m/g; $savestring =~ s/8/o/g; $savestring =~ s/9/q/g; $savestring =~ s/7/s/g; $savestring =~ s/_/u/g; } sub decodesavestring { $savestring =~ s/a/0/g; $savestring =~ s/c/2/g; $savestring =~ s/e/4/g; $savestring =~ s/g/1/g; $savestring =~ s/i/6/g; $savestring =~ s/k/3/g; $savestring =~ s/m/5/g; $savestring =~ s/o/8/g; $savestring =~ s/q/9/g; $savestring =~ s/s/7/g; $savestring =~ s/u/_/g; $savestring =~ s/r/e/g; $savestring =~ s/y/\+/g; $savestring =~ s/t/\./g; } sub loadsavefile { $savestring = ""; open FILE,"< $savefile" or $fail = 1; if ($fail == 0) { while ($line = <FILE>) { chomp($line); $savestring = "$savestring"."$line"; } } close FILE or $fail = 1; chomp($savestring); decodesavestring(); #print"$savestring"."\n"; $savestring =~ s/\W!\.//g; #print"$savestring"."\n"; ($buff2, $buff1, $buff0) = split(/_/,$savestring, 3); #print "$buff2, $buff1, $buff0"."\n"; if (length("$buff2"."_"."$buff1") == $buff0) { $money = $buff2; $startmoney = $buff1; #print "$savestring $money $startmoney"."\n"; $buff0 = ''; $buff1 = ''; $buff2 = ''; } else { print"\nWARNING: $savefile Corrupt or tampered with\n"; } } sub statsmachine { print colored(' ',"$boldblack on_$bgcblack"); print"\n"; print colored(' ',"$boldblack on_$bgcblack"); print"\n"; print colored(' ___________________________________________________ ________________________ ',"$boldblack on_$bgcblack"); print"\n"; print colored('/ ________________________________________________ \\ / _____________________ \\',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' _ ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' -------[_]------- ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' Notice: Printing Stats Costs 20 Coins ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored('_____________________',"$boldwhite on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' Press "P" To Print ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' Press "C" To Return to Casino Menu ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored('_____________________',"$boldwhite on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored('_____________________',"$boldwhite on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' | ',"$boldwhite on_$bgcwhite"); print colored('___________',"$boldblack on_$bgcwhite"); print colored(' | ',"$boldwhite on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' |_____________| ',"$boldwhite on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| ------------------------------------------------ | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| ',"$boldblack on_$bgcblack"); print colored('CAEthaver2 Systems',"$boldblue on_$bgcblack"); print colored('[',"$boldblack on_$bgcblack"); print colored('|||',"$boldred on_$bgcred"); print colored('] ',"$boldblack on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('\___________________________________________________/| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' ____________________________________________ ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' / [1] [2] [3] [4] [5] [6] [7] [8] [9] [0] [|]\ ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' |[Q] [W] [E] [R] [T] [Y] [U] [I] [O] [P] [-] | ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' /[CAPS] [A] [S] [D] [F] [G] [H] [J] [K] [L] [+]\ ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' |[SHIFT] [Z] [X] [C] [V] [B] [N] [M] [<] [>] [?]| ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' /[CTRL] [ALT] [____________________] [ALT] [ENTER]\\ ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' \\_________________________________________________/ ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' ',"$white on_$bgcblack"); print colored('\\_________________________/',"$boldblack on_$bgcblack"); print"\n"; save2startinfo(); } sub save2startinfo { $sv2startinfo = <STDIN>; chomp($sv2startinfo); if (($sv2startinfo eq 'p') or ($sv2startinfo eq 'P')) { if ($money >= 20) { $money = $money - 20; $moneyexp = $moneyexp + 20; newlines(); if ($playtrack == 1) { save2setkey(); newlines(); } save2html(); newlines(); statsmachine(); } else { newlines(); statsmachine(); } } elsif (($sv2startinfo eq 'exit') or ($sv2startinfo eq 'EXIT') or ($sv2startinfo eq 'quit') or ($sv2startinfo eq 'QUIT')) { exitgame(); } elsif ($sv2startinfo eq "c") { return; } elsif ($sv2startinfo eq "C") { return; } else { newlines(); statsmachine(); } } sub save2setkey { print colored(' ',"$boldblack on_$bgcblack"); print"\n"; print colored(' ',"$boldblack on_$bgcblack"); print"\n"; print colored(' ___________________________________________________ ________________________ ',"$boldblack on_$bgcblack"); print"\n"; print colored('/ ________________________________________________ \\ / _____________________ \\',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' _ ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' -------[_]------- ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' Enter Key Value For Game Progress Graph ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored('_____________________',"$boldwhite on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored('_____________________',"$boldwhite on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored('_____________________',"$boldwhite on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' | ',"$boldwhite on_$bgcwhite"); print colored('___________',"$boldblack on_$bgcwhite"); print colored(' | ',"$boldwhite on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' |_____________| ',"$boldwhite on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| ------------------------------------------------ | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| ',"$boldblack on_$bgcblack"); print colored('CAEthaver2 Systems',"$boldblue on_$bgcblack"); print colored('[',"$boldblack on_$bgcblack"); print colored('|||',"$boldred on_$bgcred"); print colored('] ',"$boldblack on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('\___________________________________________________/| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' ____________________________________________ ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' / [1] [2] [3] [4] [5] [6] [7] [8] [9] [0] [|]\ ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' |[Q] [W] [E] [R] [T] [Y] [U] [I] [O] [P] [-] | ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' /[CAPS] [A] [S] [D] [F] [G] [H] [J] [K] [L] [+]\ ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' |[SHIFT] [Z] [X] [C] [V] [B] [N] [M] [<] [>] [?]| ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' /[CTRL] [ALT] [____________________] [ALT] [ENTER]\\ ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' \\_________________________________________________/ ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' ',"$white on_$bgcblack"); print colored('\\_________________________/',"$boldblack on_$bgcblack"); print"\n"; print color "reset"; print"enter key value [$htmldivide]: "; $buff0 = <STDIN>; chomp($buff0); $buff0 =~ s/\D//g; if ($buff0 ne '') { $htmldivide = $buff0; } } sub save2html { print colored(' ',"$boldblack on_$bgcblack"); print"\n"; print colored(' ',"$boldblack on_$bgcblack"); print"\n"; print colored(' ___________________________________________________ ________________________ ',"$boldblack on_$bgcblack"); print"\n"; print colored('/ ________________________________________________ \\ / _____________________ \\',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' _ ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' -------[_]------- ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' Notice: Stats Will Now Be Printed To A File ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored('_____________________',"$boldwhite on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' Enter Filename (gpcs2-st.html Is The Default) ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored('_____________________',"$boldwhite on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored('_____________________',"$boldwhite on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' | ',"$boldwhite on_$bgcwhite"); print colored('___________',"$boldblack on_$bgcwhite"); print colored(' | ',"$boldwhite on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' |_____________| ',"$boldwhite on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$boldwhite on_$bgcblue"); print colored('| | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| ------------------------------------------------ | |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('| ',"$boldblack on_$bgcblack"); print colored('CAEthaver2 Systems',"$boldblue on_$bgcblack"); print colored('[',"$boldblack on_$bgcblack"); print colored('|||',"$boldred on_$bgcred"); print colored('] ',"$boldblack on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored('\___________________________________________________/| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' ____________________________________________ ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' / [1] [2] [3] [4] [5] [6] [7] [8] [9] [0] [|]\ ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' |[Q] [W] [E] [R] [T] [Y] [U] [I] [O] [P] [-] | ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' /[CAPS] [A] [S] [D] [F] [G] [H] [J] [K] [L] [+]\ ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' |[SHIFT] [Z] [X] [C] [V] [B] [N] [M] [<] [>] [?]| ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' /[CTRL] [ALT] [____________________] [ALT] [ENTER]\\ ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' \\_________________________________________________/ ',"$white on_$bgcblack"); print colored('| |',"$boldblack on_$bgcblack"); print colored(' ',"$black on_$bgcwhite"); print colored('| |',"$boldblack on_$bgcblack"); print"\n"; print colored(' ',"$white on_$bgcblack"); print colored('\\_________________________/',"$boldblack on_$bgcblack"); print"\n"; print color "reset"; print'enter filename [gpcs2-st.html]: '; $htmlsave = <STDIN>; chomp($htmlsave); if ($htmlsave eq "") { $htmldumpfile = 'gpcs2-st.html'; } else { $htmlsave =~ s/\./__________THISISAPERIOD__________/g; $htmlsave =~ s/\W//g; $htmlsave =~ s/__________THISISAPERIOD__________/\./g; $htmldumpfile = $htmlsave; } print2html(); newlines(); } sub winlosecalc { $winstat = ($hrstwin + $ddstwin + $ngemstwin + $ssstwin + $rrstwin + $lvrstwin + $rllvrstwin + $sbtstwin + $ccrapsstwin); $losestat = ($hrstlose + $ddstlose + $ngemstlose + $ssstlose + $rrstlose + $lvrstlose + $rllvrstlose + $sbtstlose + $ccrapsstlose); } sub moneyclock { $totalmc = ($hrstmc + $ddstmc + $ngemstmc + $ssstmc + $rrstmc + $lvrstmc + $rllvrstmc + $sbtstmc + $ccrapsstmc); } sub killmusic { if ($music == 1) { $music = 0; kill 9, $mkillpid; system("killall -9 $musicplayer > /dev/null"); smallpause(); waitpid($mkillpid, 0); } } sub exitgame { killmusic(); if (($loadedsavefile == 1) && ($allowsave == 1)) { printsavefile(); } newlines(); print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(" Thank You For Playing GPCSlots 2 v$version ","$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' Author: MikeeUSA ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' Web Site: https://cat2.dynu.ca or https://caethaver2.dynu.ca ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' IRC Channel: #linux on cat2.dynu.ca ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' Web Forum: https://cat2.dynu.ca/bb or https://caethaver2.dynu.ca/bb ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' Get The Newest Version At https://cat2.dynu.ca/cat2/gpcs2.html ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' Or At https://caethaver2.dynu.ca/cat2/gpcs2.html ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' CAEthaver2 ',"$boldblue on_$bgcwhite"); print"\n"; print colored(' ',"$boldblue on_$bgcwhite"); print"\n"; exit(); } #GPCSLOTS 2 by MikeeUSA #https://cat2.dynu.ca or https://caethaver2.dynu.ca #Feminism Delenda Est.