#!/usr/bin/perl -w
my
$szmd
=
shift
|| 0;
my
$ppth
=
'.'
;
my
$wins
=
''
;
my
$ties
=
''
;
my
$loss
=
''
;
my
$limt
=
''
;
my
$runs
=
''
;
my
$ipth
=
'../crdz'
;
my
$mwin
= MainWindow->new();
my
$fram
=
$mwin
->Frame(
-background
=>
'#03071B'
)->grid();
my
@sutz
=
qw( s h d c )
;
my
@rnkz
=
qw( A K Q J T 9 8 7 6 5 4 3 2 )
;
my
%ztus
;
for
(
my
$indx
= 1;
$indx
<=
@sutz
;
$indx
++) {
$ztus
{
$sutz
[
$indx
- 1]} =
$indx
; }
my
%zknr
;
for
(
my
$indx
= 1;
$indx
<=
@rnkz
;
$indx
++) {
$zknr
{
$rnkz
[
$indx
- 1]} =
$indx
; }
my
$shrt
=
''
;
my
$shfl
=
''
;
my
$shtr
=
''
;
my
$shrv
=
''
;
my
$colm
= 0;
my
@imgz
= ();
my
@lblz
= ();
my
@crdz
= ();
my
$lppx
=
''
;
my
$roww
= 0;
my
$oppo
= 1;
my
$pott
= 0;
my
$lilb
= 1;
my
$bigb
= 2;
my
$ltxt
=
''
;
my
$xpth
;
my
$fnt0
=
'times 20 bold'
;
my
$fnt1
=
'courier 20 bold'
;
my
$sufx
=
'.bmp'
;
my
$sufp
=
'_i'
;
unless
(
$szmd
) {
$sufx
=
'-vga.bmp'
;
$sufp
=
''
;
}
sub
CkStats {
$shrt
=
''
;
$shfl
=
''
;
$shtr
=
''
;
$shrv
=
''
;
if
(
@crdz
>= 2) {
if
(
$zknr
{
substr
(
$crdz
[0], 0, 1)} <=
$zknr
{
substr
(
$crdz
[1], 0, 1)}) {
$shrt
=
substr
(
$crdz
[0], 0, 1) .
substr
(
$crdz
[1], 0, 1);
}
else
{
$shrt
=
substr
(
$crdz
[1], 0, 1) .
substr
(
$crdz
[0], 0, 1);
}
$shrt
.=
's'
if
(
substr
(
$crdz
[0], 1, 1) eq
substr
(
$crdz
[1], 1, 1));
if
(
@crdz
>= 5) {
if
(
$zknr
{
substr
(
$crdz
[2], 0, 1)} <
$zknr
{
substr
(
$crdz
[3], 0, 1)}) {
if
(
$zknr
{
substr
(
$crdz
[3], 0, 1)} <
$zknr
{
substr
(
$crdz
[4], 0, 1)}) {
$shfl
=
substr
(
$crdz
[2], 0, 1) .
substr
(
$crdz
[3], 0, 1) .
substr
(
$crdz
[4], 0, 1);
}
elsif
(
$zknr
{
substr
(
$crdz
[2], 0, 1)} <
$zknr
{
substr
(
$crdz
[4], 0, 1)}) {
$shfl
=
substr
(
$crdz
[2], 0, 1) .
substr
(
$crdz
[4], 0, 1) .
substr
(
$crdz
[3], 0, 1);
}
else
{
$shfl
=
substr
(
$crdz
[4], 0, 1) .
substr
(
$crdz
[2], 0, 1) .
substr
(
$crdz
[3], 0, 1);
}
}
else
{
if
(
$zknr
{
substr
(
$crdz
[2], 0, 1)} <
$zknr
{
substr
(
$crdz
[4], 0, 1)}) {
$shfl
=
substr
(
$crdz
[3], 0, 1) .
substr
(
$crdz
[2], 0, 1) .
substr
(
$crdz
[4], 0, 1);
}
elsif
(
$zknr
{
substr
(
$crdz
[3], 0, 1)} <
$zknr
{
substr
(
$crdz
[4], 0, 1)}) {
$shfl
=
substr
(
$crdz
[3], 0, 1) .
substr
(
$crdz
[4], 0, 1) .
substr
(
$crdz
[2], 0, 1);
}
else
{
$shfl
=
substr
(
$crdz
[4], 0, 1) .
substr
(
$crdz
[3], 0, 1) .
substr
(
$crdz
[2], 0, 1);
}
}
$shfl
.=
's'
if
(
substr
(
$crdz
[2], 1, 1) eq
substr
(
$crdz
[3], 1, 1) &&
substr
(
$crdz
[3], 1, 1) eq
substr
(
$crdz
[4], 1, 1));
if
(
@crdz
>= 6) {
$shtr
=
substr
(
$crdz
[5], 0, 1);
if
(
@crdz
== 7) {
$shrv
=
substr
(
$crdz
[6], 0, 1);
}
}
}
}
$wins
=
''
;
$ties
=
''
;
$loss
=
''
;
$limt
=
''
;
$runs
=
''
;
$ltxt
=
''
;
if
(
$shrt
) {
if
(
$shfl
) {
if
(
$shtr
) {
if
(
$shrv
) {
if
(-r
"$ppth/h$shrt/f$shfl.ppx"
) {
unless
(
$lppx
eq
"$ppth/h$shrt/f$shfl.ppx"
) {
$lppx
=
"$ppth/h$shrt/f$shfl.ppx"
;
$xpth
= XML::XPath->new(
'filename'
=>
$lppx
);
}
if
(
$xpth
->
exists
(
"/f$shfl/t$shtr/r$shrv"
)) {
my
$wval
=
$xpth
->findvalue(
"/f$shfl/t$shtr/r$shrv/\@w"
);
my
$tval
=
$xpth
->findvalue(
"/f$shfl/t$shtr/r$shrv/\@t"
);
my
$lval
=
$xpth
->findvalue(
"/f$shfl/t$shtr/r$shrv/\@l"
);
my
$summ
=
"$wval"
+
"$tval"
+
"$lval"
;
$wins
= (
"$wval"
/
$summ
);
$ties
= (
"$tval"
/
$summ
);
$loss
= (
"$lval"
/
$summ
);
}
else
{
$wins
=
'NA'
;
$ties
=
'NA'
;
$loss
=
'NA'
;
}
}
else
{
$wins
=
'NA'
;
$ties
=
'NA'
;
$loss
=
'NA'
;
}
}
elsif
(-r
"$ppth/h$shrt/f$shfl.ppx"
) {
unless
(
$lppx
eq
"$ppth/h$shrt/f$shfl.ppx"
) {
$lppx
=
"$ppth/h$shrt/f$shfl.ppx"
;
$xpth
= XML::XPath->new(
'filename'
=>
$lppx
);
}
if
(
$xpth
->
exists
(
"/f$shfl/t$shtr"
)) {
my
$wval
=
$xpth
->findvalue(
"/f$shfl/t$shtr/\@w"
);
my
$tval
=
$xpth
->findvalue(
"/f$shfl/t$shtr/\@t"
);
my
$lval
=
$xpth
->findvalue(
"/f$shfl/t$shtr/\@l"
);
my
$summ
=
"$wval"
+
"$tval"
+
"$lval"
;
$wins
= (
"$wval"
/
$summ
);
$ties
= (
"$tval"
/
$summ
);
$loss
= (
"$lval"
/
$summ
);
}
else
{
$wins
=
'NA'
;
$ties
=
'NA'
;
$loss
=
'NA'
;
}
}
else
{
$wins
=
'NA'
;
$ties
=
'NA'
;
$loss
=
'NA'
;
}
}
elsif
(-r
"$ppth/h$shrt/f$shfl.ppx"
) {
unless
(
$lppx
eq
"$ppth/h$shrt/f$shfl.ppx"
) {
$lppx
=
"$ppth/h$shrt/f$shfl.ppx"
;
$xpth
= XML::XPath->new(
'filename'
=>
$lppx
);
}
if
(
$xpth
->
exists
(
"/f$shfl"
)) {
my
$wval
=
$xpth
->findvalue(
"/f$shfl/\@w"
);
my
$tval
=
$xpth
->findvalue(
"/f$shfl/\@t"
);
my
$lval
=
$xpth
->findvalue(
"/f$shfl/\@l"
);
my
$summ
=
"$wval"
+
"$tval"
+
"$lval"
;
$wins
= (
"$wval"
/
$summ
);
$ties
= (
"$tval"
/
$summ
);
$loss
= (
"$lval"
/
$summ
);
}
else
{
$wins
=
'NA'
;
$ties
=
'NA'
;
$loss
=
'NA'
;
}
}
else
{
$wins
=
'NA'
;
$ties
=
'NA'
;
$loss
=
'NA'
;
}
}
elsif
(-r
"$ppth/h.ppx"
) {
unless
(
$lppx
eq
"$ppth/h.ppx"
) {
$lppx
=
"$ppth/h.ppx"
;
$xpth
= XML::XPath->new(
'filename'
=>
$lppx
);
}
if
(
$xpth
->
exists
(
"/h/h$shrt"
)) {
my
$wval
=
$xpth
->findvalue(
"/h/h$shrt/\@w"
);
my
$tval
=
$xpth
->findvalue(
"/h/h$shrt/\@t"
);
my
$lval
=
$xpth
->findvalue(
"/h/h$shrt/\@l"
);
my
$summ
=
"$wval"
+
"$tval"
+
"$lval"
;
$wins
= (
"$wval"
/
$summ
);
$ties
= (
"$tval"
/
$summ
);
$loss
= (
"$lval"
/
$summ
);
}
else
{
$wins
=
'NA'
;
$ties
=
'NA'
;
$loss
=
'NA'
;
}
}
else
{
$wins
=
'NA'
;
$ties
=
'NA'
;
$loss
=
'NA'
;
}
}
if
(
$oppo
> 1 &&
$wins
!~ /^(NA)?$/ &&
$wins
< 1) {
my
$swin
=
$wins
;
foreach
(1..
$oppo
) {
my
$dwin
=
$wins
;
$wins
*=
$swin
;
$wins
+=
$dwin
;
$wins
/= 2;
}
$ties
+= (
$ties
* (1 -
$wins
))
if
(
$ties
+ (
$ties
* (1 -
$wins
)) < (1 -
$wins
));
$loss
= (1 -
$wins
-
$ties
);
}
$limt
=
sprintf
(
"\$%7.2f"
, (
$wins
*
$pott
))
unless
(
$wins
=~ /^(NA)?$/);
$ltxt
=
"pott: \$$pott limt: $limt"
unless
(
$wins
=~ /^(NA)?$/);
$wins
=
sprintf
(
"%8.4f%%"
, (
$wins
* 100))
unless
(
$wins
=~ /^(NA)?$/);
$ties
=
sprintf
(
"%8.4f%%"
, (
$ties
* 100))
unless
(
$ties
=~ /^(NA)?$/);
$loss
=
sprintf
(
"%8.4f%%"
, (
$loss
* 100))
unless
(
$loss
=~ /^(NA)?$/);
if
(-r
"$ppth/h.ppx"
) {
unless
(
$lppx
eq
"$ppth/h.ppx"
) {
$lppx
=
"$ppth/h.ppx"
;
$xpth
= XML::XPath->new(
'filename'
=>
$lppx
);
}
if
(
$xpth
->
exists
(
"/h"
)) {
my
$wval
=
$xpth
->findvalue(
"/h/\@w"
);
my
$tval
=
$xpth
->findvalue(
"/h/\@t"
);
my
$lval
=
$xpth
->findvalue(
"/h/\@l"
);
my
$summ
=
"$wval"
+
"$tval"
+
"$lval"
;
if
(
defined
(
$summ
) &&
$summ
) {
$summ
=
reverse
(
$summ
);
$summ
=~ s/(.{3})/$1,/g;
$summ
=
reverse
(
$summ
);
$summ
=~ s/^,//;
}
$runs
=
$summ
;
}
else
{
$runs
=
''
;
}
}
else
{
$runs
=
''
;
}
}
sub
HndlCrdz {
my
$self
=
shift
() ||
return
();
my
$newc
=
shift
() ||
return
();
my
@posi
= (2, 3, 5, 6, 7, 9, 11);
if
(
$newc
=~ /^o(\d)$/) {
if
($1) {
$oppo
= $1; }
else
{
$oppo
++;
$oppo
= 1
if
(
$oppo
== 10); }
$imgz
[0][5]->
delete
();
$lblz
[0][5]->destroy();
$imgz
[0][5] =
$mwin
->Photo(
-file
=>
"$ipth/o$oppo$sufx"
);
$lblz
[0][5] =
$fram
->Label(
-image
=>
$imgz
[0][5],
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
)->grid(
-row
=> 5,
-column
=> 0,
-sticky
=>
'n'
);
$lblz
[0][5]->
bind
(
'<Button-1>'
=> [ \
&HndlCrdz
,
'o0'
]);
}
elsif
(
$newc
!~ /^p\d$/ &&
@crdz
< 7) {
push
(
@crdz
,
$newc
);
(
$imgz
[
$posi
[
$#crdz
]][5],
$imgz
[
$zknr
{
substr
(
$newc
, 0, 1)} - 1][
$ztus
{
substr
(
$newc
, 1, 1)}]) =
(
$imgz
[
$zknr
{
substr
(
$newc
, 0, 1)} - 1][
$ztus
{
substr
(
$newc
, 1, 1)}],
$imgz
[
$posi
[
$#crdz
]][5]);
(
$lblz
[
$posi
[
$#crdz
]][5],
$lblz
[
$zknr
{
substr
(
$newc
, 0, 1)} - 1][
$ztus
{
substr
(
$newc
, 1, 1)}]) =
(
$lblz
[
$zknr
{
substr
(
$newc
, 0, 1)} - 1][
$ztus
{
substr
(
$newc
, 1, 1)}],
$lblz
[
$posi
[
$#crdz
]][5]);
$lblz
[
$posi
[
$#crdz
]][5]->grid(
-row
=> 5,
-column
=>
$posi
[
$#crdz
],
-sticky
=>
'n'
);
$lblz
[
$zknr
{
substr
(
$newc
, 0, 1)} - 1][
$ztus
{
substr
(
$newc
, 1, 1)}]->grid(
-row
=>
$ztus
{
substr
(
$newc
, 1, 1)},
-column
=> (
$zknr
{
substr
(
$newc
, 0, 1)} - 1),
-sticky
=>
'n'
);
$lblz
[
$posi
[
$#crdz
]][5]->
bind
(
'<Button-1>'
=> [ \
&HndlCrdz
,
"p$#crdz"
]);
}
else
{
$pott
= 0;
my
$ppos
= 0;
if
(
$newc
=~ /^p(\d)$/) {
$ppos
= $1; }
while
(
@crdz
>
$ppos
) {
my
$card
=
$crdz
[-1];
(
$imgz
[
$posi
[
$#crdz
]][5],
$imgz
[
$zknr
{
substr
(
$card
, 0, 1)} - 1][
$ztus
{
substr
(
$card
, 1, 1)}]) =
(
$imgz
[
$zknr
{
substr
(
$card
, 0, 1)} - 1][
$ztus
{
substr
(
$card
, 1, 1)}],
$imgz
[
$posi
[
$#crdz
]][5]);
(
$lblz
[
$posi
[
$#crdz
]][5],
$lblz
[
$zknr
{
substr
(
$card
, 0, 1)} - 1][
$ztus
{
substr
(
$card
, 1, 1)}]) =
(
$lblz
[
$zknr
{
substr
(
$card
, 0, 1)} - 1][
$ztus
{
substr
(
$card
, 1, 1)}],
$lblz
[
$posi
[
$#crdz
]][5]);
$lblz
[
$posi
[
$#crdz
]][5]->grid(
-row
=> 5,
-column
=>
$posi
[
$#crdz
],
-sticky
=>
'n'
);
$lblz
[
$zknr
{
substr
(
$card
, 0, 1)} - 1][
$ztus
{
substr
(
$card
, 1, 1)}]->grid(
-row
=>
$ztus
{
substr
(
$card
, 1, 1)},
-column
=> (
$zknr
{
substr
(
$card
, 0, 1)} - 1),
-sticky
=>
'n'
);
$lblz
[
$zknr
{
substr
(
$card
, 0, 1)} - 1][
$ztus
{
substr
(
$card
, 1, 1)}]->
bind
(
'<Button-1>'
=> [ \
&HndlCrdz
,
$card
]);
pop
(
@crdz
);
}
}
CkStats();
}
sub
UpdtPott {
my
$lorb
=
shift
() ||
return
();
my
$porm
=
shift
() ||
return
();
my
$ppot
=
$pott
;
if
(
$lorb
eq
'lil'
) {
if
(
$porm
eq
'+'
) {
$pott
+=
$lilb
; }
else
{
$pott
-=
$lilb
; }
}
else
{
if
(
$porm
eq
'+'
) {
$pott
+=
$bigb
; }
else
{
$pott
-=
$bigb
; }
}
CkStats()
if
(
$ppot
!=
$pott
);
}
sub
DrawCrdz {
for
(
$colm
= 0;
$colm
<
@rnkz
;
$colm
++) {
my
$rank
=
$rnkz
[
$colm
];
my
$imag
;
my
$labl
;
if
(
$colm
== 0) {
$imag
=
$mwin
->Photo(
-file
=>
"$ipth/o1$sufx"
);
$labl
=
$fram
->Label(
-image
=>
$imag
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
)->grid(
-row
=> 0,
-column
=>
$colm
,
-sticky
=>
'n'
);
$labl
->
bind
(
'<Button-1>'
=> [ \
&HndlCrdz
,
'o1'
]);
}
elsif
(
$colm
== 1) {
my
$bfrm
=
$fram
->Frame(
-background
=>
'#03071B'
)->grid(
-row
=> 0,
-column
=>
$colm
,
-sticky
=>
'n'
);
$bfrm
->Label(
-text
=>
'Lil:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
)->grid(
-row
=> 0,
-column
=> 0,
-sticky
=>
'n'
);
$bfrm
->Button(
-text
=>
'-'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-command
=> [ \
&UpdtPott
,
'lil'
,
'-'
])->grid(
-row
=> 1,
-column
=> 0,
-sticky
=>
'n'
);
$bfrm
->Label(
-text
=>
'Big:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
)->grid(
-row
=> 2,
-column
=> 0,
-sticky
=>
'n'
);
$bfrm
->Button(
-text
=>
'-'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-command
=> [ \
&UpdtPott
,
'big'
,
'-'
])->grid(
-row
=> 3,
-column
=> 0,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 2) {
my
$bfrm
=
$fram
->Frame(
-background
=>
'#03071B'
)->grid(
-row
=> 0,
-column
=>
$colm
,
-sticky
=>
'n'
);
$bfrm
->Label(
-text
=>
'Lil:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
)->grid(
-row
=> 0,
-column
=> 0,
-sticky
=>
'n'
);
$bfrm
->Entry(
-width
=> 3,
-textvariable
=> \
$lilb
)->grid(
-row
=> 1,
-column
=> 0,
-sticky
=>
'n'
);
$bfrm
->Label(
-text
=>
'Big:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
)->grid(
-row
=> 2,
-column
=> 0,
-sticky
=>
'n'
);
$bfrm
->Entry(
-width
=> 3,
-textvariable
=> \
$bigb
)->grid(
-row
=> 3,
-column
=> 0,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 3) {
my
$bfrm
=
$fram
->Frame(
-background
=>
'#03071B'
)->grid(
-row
=> 0,
-column
=>
$colm
,
-sticky
=>
'n'
);
$bfrm
->Label(
-text
=>
'Lil:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
)->grid(
-row
=> 0,
-column
=> 0,
-sticky
=>
'n'
);
$bfrm
->Button(
-text
=>
'+'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-command
=> [ \
&UpdtPott
,
'lil'
,
'+'
])->grid(
-row
=> 1,
-column
=> 0,
-sticky
=>
'n'
);
$bfrm
->Label(
-text
=>
'Big:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
)->grid(
-row
=> 2,
-column
=> 0,
-sticky
=>
'n'
);
$bfrm
->Button(
-text
=>
'+'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-command
=> [ \
&UpdtPott
,
'big'
,
'+'
])->grid(
-row
=> 3,
-column
=> 0,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 4) {
my
$bfrm
=
$fram
->Frame(
-background
=>
'#03071B'
)->grid(
-row
=> 0,
-column
=>
$colm
,
-sticky
=>
'n'
);
$labl
=
$bfrm
->Label(
-text
=>
'Pot:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
)->grid(
-row
=> 0,
-column
=> 0,
-sticky
=>
'n'
);
$bfrm
->Entry(
-width
=> 3,
-textvariable
=> \
$pott
)->grid(
-row
=> 1,
-column
=> 0,
-sticky
=>
'n'
);
}
elsif
(
$colm
> 4) {
$imag
=
$mwin
->Photo(
-file
=>
"$ipth/o"
. (14 -
$colm
) .
$sufx
);
$labl
=
$fram
->Label(
-image
=>
$imag
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
)->grid(
-row
=> 0,
-column
=>
$colm
,
-sticky
=>
'n'
);
$labl
->
bind
(
'<Button-1>'
=> [ \
&HndlCrdz
,
'o'
. (14 -
$colm
) ]);
}
else
{
$imag
=
$mwin
->Photo(
-file
=>
"$ipth/blnk$sufx"
);
$labl
=
$fram
->Label(
-image
=>
$imag
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
)->grid(
-row
=> 0,
-column
=>
$colm
,
-sticky
=>
'n'
);
}
$imgz
[
$colm
][0] =
$imag
;
$lblz
[
$colm
][0] =
$labl
;
for
(
$roww
= 1;
$roww
<=
@sutz
;
$roww
++) {
my
$suit
=
$sutz
[
$roww
- 1];
my
$xist
= 0;
for
(
my
$indx
= 0;
$indx
<
@crdz
;
$indx
++) {
if
(
$crdz
[
$indx
] eq
"$rank$suit"
) {
$xist
= 1;
last
(); }
}
if
(
$xist
) {
$imag
=
$mwin
->Photo(
-file
=>
"$ipth/blnk$sufx"
);
$labl
=
$fram
->Label(
-image
=>
$imag
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
)->grid(
-row
=>
$roww
,
-column
=>
$colm
,
-sticky
=>
'n'
);
}
else
{
$imag
=
$mwin
->Photo(
-file
=>
"$ipth/$rank$suit$sufp$sufx"
);
$labl
=
$fram
->Label(
-image
=>
$imag
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
)->grid(
-row
=>
$roww
,
-column
=>
$colm
,
-sticky
=>
'n'
);
$labl
->
bind
(
'<Button-1>'
=> [ \
&HndlCrdz
,
"$rank$suit"
]);
}
$imgz
[
$colm
][
$roww
] =
$imag
;
$lblz
[
$colm
][
$roww
] =
$labl
;
}
if
(
$colm
== 0) {
$imag
=
$mwin
->Photo(
-file
=>
"$ipth/o$oppo$sufx"
);
$labl
=
$fram
->Label(
-image
=>
$imag
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
)->grid(
-row
=> 5,
-column
=>
$colm
,
-sticky
=>
'n'
);
$labl
->
bind
(
'<Button-1>'
=> [ \
&HndlCrdz
,
'o0'
]);
}
else
{
$imag
=
$mwin
->Photo(
-file
=>
"$ipth/blnk$sufx"
);
$labl
=
$fram
->Label(
-image
=>
$imag
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
)->grid(
-row
=> 5,
-column
=>
$colm
,
-sticky
=>
'n'
);
}
$imgz
[
$colm
][5] =
$imag
;
$lblz
[
$colm
][5] =
$labl
;
if
(
$szmd
) {
if
(
$colm
== 0) {
$labl
=
$fram
->Label(
-text
=>
'oppo:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 6,
-column
=>
$colm
,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 1) {
$labl
=
$fram
->Label(
-textvariable
=> \
$oppo
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 6,
-column
=>
$colm
,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 2) {
$labl
=
$fram
->Label(
-text
=>
'hole:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 6,
-column
=>
$colm
,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 3) {
$labl
=
$fram
->Label(
-textvariable
=> \
$shrt
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 6,
-column
=>
$colm
,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 5) {
$labl
=
$fram
->Label(
-text
=>
'flop:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 6,
-column
=>
$colm
,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 6) {
$labl
=
$fram
->Label(
-textvariable
=> \
$shfl
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 6,
-column
=>
$colm
,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 8) {
$labl
=
$fram
->Label(
-text
=>
'turn:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 6,
-column
=>
$colm
,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 9) {
$labl
=
$fram
->Label(
-textvariable
=> \
$shtr
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 6,
-column
=>
$colm
,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 10) {
$labl
=
$fram
->Label(
-text
=>
'rivr:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 6,
-column
=>
$colm
,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 11) {
$labl
=
$fram
->Label(
-textvariable
=> \
$shrv
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 6,
-column
=>
$colm
,
-sticky
=>
'n'
);
}
$lblz
[
$colm
][6] =
$labl
;
if
(
$colm
== 0) {
$labl
=
$fram
->Label(
-text
=>
'wins:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 7,
-column
=>
$colm
,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 1) {
$labl
=
$fram
->Label(
-textvariable
=> \
$wins
,
-background
=>
'#03071B'
,
-foreground
=>
'#D8F8F0'
,
-font
=>
"$fnt1"
)->grid(
-row
=> 7,
-column
=>
$colm
,
-columnspan
=> 2,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 3) {
$labl
=
$fram
->Label(
-text
=>
'ties:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 7,
-column
=>
$colm
,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 4) {
$labl
=
$fram
->Label(
-textvariable
=> \
$ties
,
-background
=>
'#03071B'
,
-foreground
=>
'#38B8F8'
,
-font
=>
"$fnt1"
)->grid(
-row
=> 7,
-column
=>
$colm
,
-columnspan
=> 2,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 6) {
$labl
=
$fram
->Label(
-text
=>
'loss:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 7,
-column
=>
$colm
,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 7) {
$labl
=
$fram
->Label(
-textvariable
=> \
$loss
,
-background
=>
'#03071B'
,
-foreground
=>
'#F83880'
,
-font
=>
"$fnt1"
)->grid(
-row
=> 7,
-column
=>
$colm
,
-columnspan
=> 2,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 9) {
$labl
=
$fram
->Label(
-textvariable
=> \
$ltxt
,
-background
=>
'#03071B'
,
-foreground
=>
'#88F8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 7,
-column
=>
$colm
,
-columnspan
=> 4,
-sticky
=>
'n'
);
}
$lblz
[
$colm
][7] =
$labl
;
}
else
{
if
(
$colm
== 0) {
$labl
=
$fram
->Label(
-text
=>
'oppo:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 6,
-column
=>
$colm
,
-columnspan
=> 2,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 2) {
$labl
=
$fram
->Label(
-textvariable
=> \
$oppo
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 6,
-column
=>
$colm
,
-columnspan
=> 1,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 3) {
$labl
=
$fram
->Label(
-text
=>
'hole:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 6,
-column
=>
$colm
,
-columnspan
=> 2,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 5) {
$labl
=
$fram
->Label(
-textvariable
=> \
$shrt
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 6,
-column
=>
$colm
,
-columnspan
=> 3,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 8) {
$labl
=
$fram
->Label(
-text
=>
'flop:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 6,
-column
=>
$colm
,
-columnspan
=> 2,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 10) {
$labl
=
$fram
->Label(
-textvariable
=> \
$shfl
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 6,
-column
=>
$colm
,
-columnspan
=> 3,
-sticky
=>
'n'
);
}
$lblz
[
$colm
][6] =
$labl
;
if
(
$colm
== 3) {
$labl
=
$fram
->Label(
-text
=>
'turn:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 7,
-column
=>
$colm
,
-columnspan
=> 2,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 5) {
$labl
=
$fram
->Label(
-textvariable
=> \
$shtr
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 7,
-column
=>
$colm
,
-columnspan
=> 3,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 8) {
$labl
=
$fram
->Label(
-text
=>
'rivr:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 7,
-column
=>
$colm
,
-columnspan
=> 2,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 10) {
$labl
=
$fram
->Label(
-textvariable
=> \
$shrv
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 7,
-column
=>
$colm
,
-columnspan
=> 3,
-sticky
=>
'n'
);
}
$lblz
[
$colm
][7] =
$labl
;
if
(
$colm
== 0) {
$labl
=
$fram
->Label(
-text
=>
'wins:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 8,
-column
=>
$colm
,
-columnspan
=> 2,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 2) {
$labl
=
$fram
->Label(
-textvariable
=> \
$wins
,
-background
=>
'#03071B'
,
-foreground
=>
'#D8F8F0'
,
-font
=>
"$fnt1"
)->grid(
-row
=> 8,
-column
=>
$colm
,
-columnspan
=> 4,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 6) {
$labl
=
$fram
->Label(
-text
=>
'ties:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 8,
-column
=>
$colm
,
-columnspan
=> 2,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 8) {
$labl
=
$fram
->Label(
-textvariable
=> \
$ties
,
-background
=>
'#03071B'
,
-foreground
=>
'#38B8F8'
,
-font
=>
"$fnt1"
)->grid(
-row
=> 8,
-column
=>
$colm
,
-columnspan
=> 4,
-sticky
=>
'n'
);
}
$lblz
[
$colm
][8] =
$labl
;
if
(
$colm
== 0) {
$labl
=
$fram
->Label(
-text
=>
'loss:'
,
-background
=>
'#03071B'
,
-foreground
=>
'#88B8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 9,
-column
=>
$colm
,
-columnspan
=> 2,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 2) {
$labl
=
$fram
->Label(
-textvariable
=> \
$loss
,
-background
=>
'#03071B'
,
-foreground
=>
'#F83880'
,
-font
=>
"$fnt1"
)->grid(
-row
=> 9,
-column
=>
$colm
,
-columnspan
=> 4,
-sticky
=>
'n'
);
}
elsif
(
$colm
== 7) {
$labl
=
$fram
->Label(
-textvariable
=> \
$ltxt
,
-background
=>
'#03071B'
,
-foreground
=>
'#88F8D0'
,
-font
=>
"$fnt0"
)->grid(
-row
=> 9,
-column
=>
$colm
,
-columnspan
=> 6,
-sticky
=>
'n'
);
}
$lblz
[
$colm
][9] =
$labl
;
}
}
}
DrawCrdz();
MainLoop();