--- deliantra/Deliantra-Client/DC/UI.pm	2006/04/08 17:21:01	1.20
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/04/08 18:15:59	1.21
@@ -423,22 +423,28 @@
 }
 
 sub _draw {
+   my ($self) = @_;
+
    glEnable GL_TEXTURE_2D;
    glEnable GL_BLEND;
    glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
 
    my $map = $::CONN->{map};
 
-   for my $x (0 .. $::CONN->{mapw} - 1) {
-      for my $y (0 .. $::CONN->{maph} - 1) {
+   for my $x (0 .. int $::WIDTH / 32) {
+      for my $y (0 .. int $::HEIGHT / 32) {
 
-         my $cell = $map->[$x][$y]
+         my $cell = $map->[$x + $::CONN->{mapx}]
+                          [$y + $::CONN->{mapy}]
             or next;
 
-         my $darkness = $cell->[3] * (1 / 255);
+         my $darkness = $cell->[0] * (1 / 255);
+         if ($darkness < 0) {
+            $darkness = 0.5;
+         }
          glColor $darkness, $darkness, $darkness;
 
-         for my $num (grep $_, $cell->[0], $cell->[1], $cell->[2]) {
+         for my $num (grep $_, @$cell[1,2,3]) {
             my $tex = $::CONN->{face}[$num]{texture} || next;
 
             glBindTexture GL_TEXTURE_2D, $tex->{name};