| … | |
… | |
| 138 | $x = ($coord >> 10) & 63; |
138 | $x = ($coord >> 10) & 63; |
| 139 | $y = ($coord >> 4) & 63; |
139 | $y = ($coord >> 4) & 63; |
| 140 | |
140 | |
| 141 | $cell = $map->[$x][$y] ||= []; |
141 | $cell = $map->[$x][$y] ||= []; |
| 142 | |
142 | |
|
|
143 | $cell->[3] = $coord & 8 |
| 143 | $cell->[3] = unpack "C", substr $data, 0, 1, "" |
144 | ? unpack "C", substr $data, 0, 1, "" |
| 144 | if $coord & 8; |
145 | : 255; |
|
|
146 | |
| 145 | $cell->[0] = unpack "n", substr $data, 0, 2, "" |
147 | $cell->[0] = unpack "n", substr $data, 0, 2, "" |
| 146 | if $coord & 4; |
148 | if $coord & 4; |
| 147 | $cell->[1] = unpack "n", substr $data, 0, 2, "" |
149 | $cell->[1] = unpack "n", substr $data, 0, 2, "" |
| 148 | if $coord & 2; |
150 | if $coord & 2; |
| 149 | $cell->[2] = unpack "n", substr $data, 0, 2, "" |
151 | $cell->[2] = unpack "n", substr $data, 0, 2, "" |
