--- deliantra/Deliantra-Client/Client.xs	2007/07/29 04:14:45	1.213
+++ deliantra/Deliantra-Client/Client.xs	2007/08/10 04:02:13	1.221
@@ -806,7 +806,7 @@
 }
 
 int
-Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096)
+Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 1024)
   	POSTCALL:
         Mix_HookMusicFinished (music_finished);
         Mix_ChannelFinished (channel_finished);
@@ -817,6 +817,9 @@
 int
 Mix_AllocateChannels (int numchans = -1)
 
+const char *
+Mix_GetError ()
+
 void
 lowdelay (int fd, int val = 1)
 	CODE:
@@ -1349,6 +1352,9 @@
 	float t = SvNV (*hv_fetch (hv, "t", 1, 1));
         int name = SvIV (*hv_fetch (hv, "name", 4, 1));
 
+        if (name <= 0)
+          XSRETURN_EMPTY;
+
         if (items < 5)
           {
             w = SvNV (*hv_fetch (hv, "w", 1, 1));
@@ -1546,14 +1552,16 @@
           }
 }
 
-void
+SV *
 map1a_update (CFPlus::Map self, SV *data_, int extmap)
 	CODE:
 {
         uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
         uint8_t *data_end = (uint8_t *)SvEND (data_);
         mapcell *cell;
-        int x, y, flags;
+        int x, y, z, flags;
+        AV *missing = newAV ();
+        RETVAL = newRV_noinc ((SV *)missing);
 
         while (data < data_end - 1)
           {
@@ -1614,31 +1622,34 @@
                       cell->darkness = *data++ + 1;
                   }
 
-                if (flags & 4)
-                  {
-                    faceid face = (data [0] << 8) + data [1]; data += 2;
-                    need_facenum (self, face);
-                    cell->tile [0] = self->face2tile [face];
-                  }
+                for (z = 0; z <= 2; ++z)
+                  if (flags & (4 >> z))
+                    {
+                      faceid face = (data [0] << 8) + data [1]; data += 2;
+                      need_facenum (self, face);
+                      cell->tile [z] = self->face2tile [face];
 
-                if (flags & 2)
-                  {
-                    faceid face = (data [0] << 8) + data [1]; data += 2;
-                    need_facenum (self, face);
-                    cell->tile [1] = self->face2tile [face];
-                  }
+                      if (cell->tile [z])
+                        {
+                          maptex *tex = self->tex + cell->tile [z];
+                          if (!tex->name)
+                            av_push (missing, newSViv (cell->tile [z]));
 
-                if (flags & 1)
-                  {
-                    faceid face = (data [0] << 8) + data [1]; data += 2;
-                    need_facenum (self, face);
-                    cell->tile [2] = self->face2tile [face];
-                  }
+                          if (tex->smoothtile)
+                            {
+                              maptex *smooth = self->tex + tex->smoothtile;
+                              if (!smooth->name)
+                                av_push (missing, newSViv (tex->smoothtile));
+                            }
+                        }
+                    }
               }
             else
               cell->darkness = 0;
           }
 }
+	OUTPUT:
+        RETVAL
 
 SV *
 mapmap (CFPlus::Map self, int x0, int y0, int w, int h)
@@ -1722,7 +1733,7 @@
 
         glBegin (GL_QUADS);
 
-        last_name = 0;
+        last_name = -1;
 
         mx += self->x;
         my += self->y;
@@ -1767,8 +1778,7 @@
                         if (tile)
                           {
                             maptex tex = self->tex [tile];
-                            int px = (x + 1) * T - tex.w;
-                            int py = (y + 1) * T - tex.h;
+                            int px, py;
 
                             // suppressing texture state switches here
                             // is only moderately effective, but worth the extra effort
@@ -1782,6 +1792,9 @@
                                 glBegin (GL_QUADS);
                               }
 
+                            px = (x + 1) * T - tex.w;
+                            py = (y + 1) * T - tex.h;
+
                             glTexCoord2f (0    , 0    ); glVertex2f (px        , py        );
                             glTexCoord2f (0    , tex.t); glVertex2f (px        , py + tex.h);
                             glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
@@ -2259,15 +2272,39 @@
 	OUTPUT:
         RETVAL
 
-void
-close (CFPlus::RW self)
-	CODE:
-        SDL_RWclose (self);
+# fails on win32:
+# CFPlus.xs(2268) : error C2059: syntax error : '('
+#void
+#close (CFPlus::RW self)
+#	CODE:
+#        (self->(close)) (self);
 
 MODULE = CFPlus	PACKAGE = CFPlus::Channel
 
 PROTOTYPES: DISABLE
 
+CFPlus::Channel
+find ()
+	CODE:
+{
+        RETVAL = Mix_GroupAvailable (-1);
+
+        if (RETVAL < 0)
+          {
+            RETVAL = Mix_GroupOldest (-1);
+
+            if (RETVAL < 0)
+              XSRETURN_UNDEF;
+
+            Mix_HaltChannel (RETVAL);
+          }
+
+        Mix_UnregisterAllEffects (RETVAL);
+        Mix_Volume (RETVAL, 128);
+}
+	OUTPUT:
+        RETVAL
+
 void
 halt (CFPlus::Channel self)
 	CODE:
@@ -2286,7 +2323,7 @@
 int
 volume (CFPlus::Channel self, int volume)
 	CODE:
-        RETVAL = Mix_Volume (self, volume);
+        RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));
 	OUTPUT:
         RETVAL
 
@@ -2298,17 +2335,27 @@
 void
 set_panning (CFPlus::Channel self, int left, int right)
 	CODE:
+        left  = CLAMP (left , 0, 255);
+        right = CLAMP (right, 0, 255);
         Mix_SetPanning (self, left, right);
 
 void
 set_distance (CFPlus::Channel self, int distance)
 	CODE:
-        Mix_SetDistance (self, distance);
+        Mix_SetDistance (self, CLAMP (distance, 0, 255));
 
 void
 set_position (CFPlus::Channel self, int angle, int distance)
 	CODE:
-        Mix_SetPosition (self, angle, distance);
+
+void
+set_position_r (CFPlus::Channel self, int dx, int dy, int maxdistance)
+	CODE:
+{
+	int distance = sqrtf (dx * dx + dy * dy) * (255.f / sqrtf (maxdistance * maxdistance));
+        int angle = 360 + (int)roundf (atan2f (dx, -dy) * 180.f / (float)M_PI);
+        Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
+}
 
 void
 set_reverse_stereo (CFPlus::Channel self, int flip)
@@ -2334,15 +2381,27 @@
 int
 volume (CFPlus::MixChunk self, int volume = -1)
 	CODE:
+        if (items > 1)
+          volume = CLAMP (volume, 0, 128);
         RETVAL = Mix_VolumeChunk (self, volume);
 	OUTPUT:
         RETVAL
 
 CFPlus::Channel
-play (CFPlus::MixChunk self, int channel = -1, int loops = 0, int ticks = -1)
+play (CFPlus::MixChunk self, CFPlus::Channel channel = -1, int loops = 0, int ticks = -1)
 	CODE:
+{
         RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
-        Mix_UnregisterAllEffects (RETVAL);
+
+        if (RETVAL < 0)
+          XSRETURN_UNDEF;
+
+        if (channel < 0)
+          {
+            Mix_UnregisterAllEffects (RETVAL);
+            Mix_Volume (RETVAL, 128);
+          }
+}
 	OUTPUT:
         RETVAL
 
@@ -2352,6 +2411,8 @@
 volume (int volume = -1)
 	PROTOTYPE: ;$
 	CODE:
+        if (items > 0)
+          volume = CLAMP (volume, 0, 128);
         RETVAL = Mix_VolumeMusic (volume);
 	OUTPUT:
         RETVAL