| … | |
… | |
| 28 | # Bottom object: the highest object that is a floor type object. |
28 | # Bottom object: the highest object that is a floor type object. |
| 29 | # |
29 | # |
| 30 | # ... i believe that anytime, but it still doesn't mention the smoothlevel |
30 | # ... i believe that anytime, but it still doesn't mention the smoothlevel |
| 31 | # interaction :( |
31 | # interaction :( |
| 32 | |
32 | |
| 33 | our $VERSION = '1.211'; |
33 | our $VERSION = '1.212'; |
| 34 | |
34 | |
| 35 | use strict; |
35 | use strict; |
| 36 | |
36 | |
| 37 | use Storable; |
37 | use Storable; |
| 38 | use List::Util qw(max); |
38 | use List::Util qw(max); |
| … | |
… | |
| 286 | |
286 | |
| 287 | # full tile |
287 | # full tile |
| 288 | $draw_info{$smoothlevel}{$sface}{$mx , $my } |= 0x1000; |
288 | $draw_info{$smoothlevel}{$sface}{$mx , $my } |= 0x1000; |
| 289 | |
289 | |
| 290 | # borders |
290 | # borders |
| 291 | $draw_info{$smoothlevel}{$sface}{$mx + 1, $my } |= 0x0031; |
291 | $draw_info{$smoothlevel}{$sface}{$mx + 1, $my } |= 0x0091; |
| 292 | $draw_info{$smoothlevel}{$sface}{$mx , $my + 1} |= 0x0092; |
292 | $draw_info{$smoothlevel}{$sface}{$mx , $my + 1} |= 0x0032; |
| 293 | $draw_info{$smoothlevel}{$sface}{$mx - 1, $my } |= 0x0064; |
293 | $draw_info{$smoothlevel}{$sface}{$mx - 1, $my } |= 0x0064; |
| 294 | $draw_info{$smoothlevel}{$sface}{$mx , $my - 1} |= 0x00c8; |
294 | $draw_info{$smoothlevel}{$sface}{$mx , $my - 1} |= 0x00c8; |
| 295 | |
295 | |
| 296 | # corners |
296 | # corners |
| 297 | $draw_info{$smoothlevel}{$sface}{$mx + 1, $my + 1} |= 0x0100; |
297 | $draw_info{$smoothlevel}{$sface}{$mx + 1, $my + 1} |= 0x0100; |
