src/gen_img2aven

   1 #!/usr/bin/perl -w
   2 use strict;
   3
   4 sub img_SFLAG_SURFACE() { 0x01 }
   5 sub img_SFLAG_UNDERGROUND { 0x02 }
   6 sub img_SFLAG_ENTRANCE { 0x04 }
   7 sub img_SFLAG_EXPORTED { 0x08 }
   8 sub img_SFLAG_FIXED { 0x10 }
   9 sub img_SFLAG_ANON { 0x20 }
  10 sub img_SFLAG_WALL { 0x40 }
  11
  12 my @tab;
  13 for (0 .. 0x7f) {
  14     my @f;
  15     push @f, "LFLAG_SURFACE" if ($_ & img_SFLAG_SURFACE);
  16     push @f, "LFLAG_UNDERGROUND" if ($_ & img_SFLAG_UNDERGROUND);
  17     push @f, "LFLAG_ENTRANCE" if ($_ & img_SFLAG_ENTRANCE);
  18     push @f, "LFLAG_EXPORTED" if ($_ & img_SFLAG_EXPORTED);
  19     push @f, "LFLAG_FIXED" if ($_ & img_SFLAG_FIXED);
  20     push @f, "LFLAG_NOT_ANON" unless ($_ & img_SFLAG_ANON);
  21     push @f, "LFLAG_NOT_WALL" unless ($_ & img_SFLAG_WALL);
  22     push @f, "0" if @f == 0;
  23     print "\t".join("|", @f).",\n";
  24 }