--- cfmaps/cfmap2png	2006/09/16 18:39:10	1.20
+++ cfmaps/cfmap2png	2007/04/13 18:09:23	1.22
@@ -1,7 +1,7 @@
 #!/opt/bin/perl
 
 # cfarch2png - convert crossfire maps to png+metadata
-# Copyright (C) 2005      Marc Lehmann <gvpe@schmorp.de>
+# Copyright (C) 2005,2007 Marc Lehmann <cfmaps@schmorp.de>
 #
 # CFARCH2PNG is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -30,7 +30,7 @@
 # ... i believe that anytime, but it still doesn't mention the smoothlevel
 # interaction :(
 
-our $VERSION = '1.21';
+our $VERSION = '1.212';
 
 use strict;
 
@@ -288,8 +288,8 @@
                   $draw_info{$smoothlevel}{$sface}{$mx    , $my    } |= 0x1000;
 
                   # borders
-                  $draw_info{$smoothlevel}{$sface}{$mx + 1, $my    } |= 0x0031;
-                  $draw_info{$smoothlevel}{$sface}{$mx    , $my + 1} |= 0x0092;
+                  $draw_info{$smoothlevel}{$sface}{$mx + 1, $my    } |= 0x0091;
+                  $draw_info{$smoothlevel}{$sface}{$mx    , $my + 1} |= 0x0032;
                   $draw_info{$smoothlevel}{$sface}{$mx - 1, $my    } |= 0x0064;
                   $draw_info{$smoothlevel}{$sface}{$mx    , $my - 1} |= 0x00c8;
 
@@ -387,6 +387,7 @@
 
 for my $file (@ARGV) {
    my $mapa = read_arch $file;
+   $file =~ s/\.map$//;
    my ($pb, $meta) = cfmap_render $mapa, $file;
    $pb->save ("$file.png~~", "png");
    system "gm", "convert", "$file.png~~", "-filter" => "lanczos", "-geometry" => "3.125%", "-quality" => 85, "$file.jpg";