- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
sub player_win{
my $self = shift;
my ($T, $U) = @_;
my $H = $self->file_to_hash($T);
my $WIN = 0;
my ($i, $k, $c, $z) = (0, 0, 0, 0);
if( $T->{_MAX_COUNT} == 32 ){
for($i = 0; $i < 2; $i++){
for($k = 0; $k < 2; $k++){
for($c = 0; $c < 2; $c++){
for($z = 0; $z < 2; $z++){
foreach(0..1){
if($H->{data}->{grid}->{f1}->{f2}[$i]->{f4}[$k]->{f8}[$c]->{f16}[$z]->{ppl}[$_]->{id} == $U->{_ID}){
if($H->{data}->{grid}->{f1}->{f2}[$i]->{f4}[$k]->{f8}[$c]->{f16}[$z]->{id} == 0){
$H->{data}->{grid}->{f1}->{f2}[$i]->{f4}[$k]->{f8}[$c]->{f16}[$z]->{id} = $U->{_ID};
$WIN = $H->{data}->{grid}->{f1}->{f2}[$i]->{f4}[$k]->{f8}[$c]->{f16}[0]->{id} if $z == 1;
$WIN = $H->{data}->{grid}->{f1}->{f2}[$i]->{f4}[$k]->{f8}[$c]->{f16}[1]->{id} if $z == 0;
} elsif($H->{data}->{grid}->{f1}->{f2}[$i]->{f4}[$k]->{f8}[$c]->{id} == 0){
$H->{data}->{grid}->{f1}->{f2}[$i]->{f4}[$k]->{f8}[$c]->{id} = $U->{_ID};
$WIN = $H->{data}->{grid}->{f1}->{f2}[$i]->{f4}[$k]->{f8}[0]->{id} if $c == 1;
$WIN = $H->{data}->{grid}->{f1}->{f2}[$i]->{f4}[$k]->{f8}[1]->{id} if $c == 0;
} elsif ($H->{data}->{grid}->{f1}->{f2}[$i]->{f4}[$k]->{id} == 0){
$H->{data}->{grid}->{f1}->{f2}[$i]->{f4}[$k]->{id} = $U->{_ID};
$WIN = $H->{data}->{grid}->{f1}->{f2}[$i]->{f4}[0]->{id} if $k == 1;
$WIN = $H->{data}->{grid}->{f1}->{f2}[$i]->{f4}[1]->{id} if $k == 0;
} elsif ($H->{data}->{grid}->{f1}->{f2}[$i]->{id} == 0){
$H->{data}->{grid}->{f1}->{f2}[$i]->{id} = $U->{_ID};
$WIN = $H->{data}->{grid}->{f1}->{f2}[0]->{id} if $i == 1;
$WIN = $H->{data}->{grid}->{f1}->{f2}[1]->{id} if $i == 0;
} elsif ($H->{data}->{grid}->{f1}->{id} == 0){
$H->{data}->{grid}->{f1}->{id} = $U->{_ID};
$WIN = -1;
}
}
}
}
}
}
}
} elsif( $T->{_MAX_COUNT} == 16 ){
for($i = 0; $i < 2; $i++){
for($k = 0; $k < 2; $k++){
for($c = 0; $c < 2; $c++){
foreach(0..1){
if($H->{data}->{grid}->{f1}->{f2}[$c]->{f4}[$k]->{f8}[$i]->{ppl}[$_]->{id} == $U->{_ID}){
if($H->{data}->{grid}->{f1}->{f2}[$c]->{f4}[$k]->{f8}[$i]->{id} == 0){
$H->{data}->{grid}->{f1}->{f2}[$c]->{f4}[$k]->{f8}[$i]->{id} = $U->{_ID};
$WIN = $H->{data}->{grid}->{f1}->{f2}[$c]->{f4}[$k]->{f8}[0]->{id} if $i == 1;
$WIN = $H->{data}->{grid}->{f1}->{f2}[$c]->{f4}[$k]->{f8}[1]->{id} if $i == 0;
} elsif ($H->{data}->{grid}->{f1}->{f2}[$c]->{f4}[$k]->{id} == 0){
$H->{data}->{grid}->{f1}->{f2}[$c]->{f4}[$k]->{id} = $U->{_ID};
$WIN = $H->{data}->{grid}->{f1}->{f2}[$c]->{f4}[0]->{id} if $k == 1;
$WIN = $H->{data}->{grid}->{f1}->{f2}[$c]->{f4}[1]->{id} if $k == 0;
} elsif ($H->{data}->{grid}->{f1}->{f2}[$c]->{id} == 0){
$H->{data}->{grid}->{f1}->{f2}[$c]->{id} = $U->{_ID};
$WIN = $H->{data}->{grid}->{f1}->{f2}[0]->{id} if $c == 1;
$WIN = $H->{data}->{grid}->{f1}->{f2}[1]->{id} if $c == 0;
} elsif ($H->{data}->{grid}->{f1}->{id} == 0){
$H->{data}->{grid}->{f1}->{id} = $U->{_ID};
$WIN = -1;
}
}
}
}
}
}
} elsif($T->{_MAX_COUNT} == 8){
for($k = 0; $k < 2; $k++){
for($c = 0; $c < 2; $c++){
foreach(0..1){
if($H->{data}->{grid}->{f1}->{f2}[$c]->{f4}[$k]->{ppl}[$_]->{id} == $U->{_ID}){
if($H->{data}->{grid}->{f1}->{f2}[$c]->{f4}[$k]->{id} == 0){
$H->{data}->{grid}->{f1}->{f2}[$c]->{f4}[$k]->{id} = $U->{_ID};
$WIN = $H->{data}->{grid}->{f1}->{f2}[$c]->{f4}[0]->{id} if $k == 1;
$WIN = $H->{data}->{grid}->{f1}->{f2}[$c]->{f4}[1]->{id} if $k == 0;
} elsif ($H->{data}->{grid}->{f1}->{f2}[$c]->{id} == 0){
$H->{data}->{grid}->{f1}->{f2}[$c]->{id} = $U->{_ID};
$WIN = $H->{data}->{grid}->{f1}->{f2}[0]->{id} if $c == 1;
$WIN = $H->{data}->{grid}->{f1}->{f2}[1]->{id} if $c == 0;
} elsif ($H->{data}->{grid}->{f1}->{id} == 0){
$H->{data}->{grid}->{f1}->{id} = $U->{_ID};
$WIN = -1;
}
}
}
}
}
} elsif($T->{_MAX_COUNT} == 4){
for($c = 0; $c < 2; $c++){
foreach(0..1){
if($H->{data}->{grid}->{f1}->{f2}[$c]->{ppl}[$_]->{id} == $U->{_ID}){
if($H->{data}->{grid}->{f1}->{f2}[$c]->{id} == 0){
$H->{data}->{grid}->{f1}->{f2}[$c]->{id} = $U->{_ID};
$WIN = $H->{data}->{grid}->{f1}->{f2}[0]->{id} if $c == 1;
$WIN = $H->{data}->{grid}->{f1}->{f2}[1]->{id} if $c == 0;
} elsif ($H->{data}->{grid}->{f1}->{id} == 0){
$H->{data}->{grid}->{f1}->{id} = $U->{_ID};
$WIN = -1;
}
}