- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
- 99
- 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;
}
}
Один мой знакомый написал в универе строковый двоичный калькулятор с 4 разрядами в таком стиле. Я сначала подумал что он уснул на клаве.
мама)