| … | |
… | |
| 843 | make_hash $k, $v->{data64}, $v->{hash64}; |
843 | make_hash $k, $v->{data64}, $v->{hash64}; |
| 844 | |
844 | |
| 845 | #length $v->{data32} <= 10000 or warn "$k: face32 larger than 10000 bytes, will not work with crossfire client.\n"; |
845 | #length $v->{data32} <= 10000 or warn "$k: face32 larger than 10000 bytes, will not work with crossfire client.\n"; |
| 846 | #length $v->{data64} <= 10000 or warn "$k: face64 larger than 10000 bytes.\n"; |
846 | #length $v->{data64} <= 10000 or warn "$k: face64 larger than 10000 bytes.\n"; |
| 847 | |
847 | |
| 848 | my $stem = delete $v->{stem}; |
|
|
| 849 | $v->{glyph} //= autoglyph $stem, $v; |
|
|
| 850 | |
|
|
| 851 | if (my $magicmap = $v->{magicmap}) { |
848 | if (my $magicmap = $v->{magicmap}) { |
| 852 | $magicmap =~ y/A-Z_\-/a-z/d; |
849 | $magicmap =~ y/A-Z_\-/a-z/d; |
| 853 | $v->{magicmap} = $COLOR{$magicmap}; |
850 | $v->{magicmap} = $COLOR{$magicmap}; |
| 854 | } |
851 | } |
|
|
852 | |
|
|
853 | my $stem = delete $v->{stem}; |
|
|
854 | $v->{glyph} //= autoglyph $stem, $v; |
|
|
855 | $v->{glyph} = (chr $v->{magicmap}) . $v->{glyph}; |
| 855 | |
856 | |
| 856 | delete $v->{arc}; |
857 | delete $v->{arc}; |
| 857 | } |
858 | } |
| 858 | |
859 | |
| 859 | print "processing resources...\n" if $VERBOSE; |
860 | print "processing resources...\n" if $VERBOSE; |
