--- deliantra/Deliantra-Client/Client.xs	2008/08/20 13:30:02	1.273
+++ deliantra/Deliantra-Client/Client.xs	2008/11/26 23:08:34	1.280
@@ -93,6 +93,8 @@
 /* mask out modifiers we are not interested in */
 #define MOD_MASK (KMOD_CTRL | KMOD_SHIFT | KMOD_ALT | KMOD_META)
 
+#define KMOD_LRAM 0x10000 // our extension
+
 static AV *texture_av;
 
 static struct
@@ -233,6 +235,7 @@
   uint8_t r, g, b, a;
   tileid smoothtile;
   uint8_t smoothlevel;
+  uint8_t unused; /* set to zero on use */
 } maptex;
 
 typedef struct {
@@ -529,12 +532,25 @@
   return 1;
 }
 
+/******************************************************************************/
+
+/* process keyboard modifiers */
+static int
+mod_munge (int mod)
+{
+  mod &= MOD_MASK;
+
+  if (mod & (KMOD_META | KMOD_ALT))
+    mod |= KMOD_LRAM;
+
+  return mod;
+}
+
 static void
 deliantra_main ()
 {
   char *argv[] = { 0 };
   call_argv ("::main", G_DISCARD | G_VOID, argv);
-  dSP;
 }
 
 #ifdef __MACOSX__
@@ -606,6 +622,56 @@
         const_iv (SDL_APPMOUSEFOCUS),
         const_iv (SDL_APPACTIVE),
 
+
+        const_iv (SDLK_UNKNOWN),
+        const_iv (SDLK_FIRST),
+        const_iv (SDLK_BACKSPACE),
+        const_iv (SDLK_TAB),
+        const_iv (SDLK_CLEAR),
+        const_iv (SDLK_RETURN),
+        const_iv (SDLK_PAUSE),
+        const_iv (SDLK_ESCAPE),
+        const_iv (SDLK_SPACE),
+        const_iv (SDLK_EXCLAIM),
+        const_iv (SDLK_QUOTEDBL),
+        const_iv (SDLK_HASH),
+        const_iv (SDLK_DOLLAR),
+        const_iv (SDLK_AMPERSAND),
+        const_iv (SDLK_QUOTE),
+        const_iv (SDLK_LEFTPAREN),
+        const_iv (SDLK_RIGHTPAREN),
+        const_iv (SDLK_ASTERISK),
+        const_iv (SDLK_PLUS),
+        const_iv (SDLK_COMMA),
+        const_iv (SDLK_MINUS),
+        const_iv (SDLK_PERIOD),
+        const_iv (SDLK_SLASH),
+        const_iv (SDLK_0),
+        const_iv (SDLK_1),
+        const_iv (SDLK_2),
+        const_iv (SDLK_3),
+        const_iv (SDLK_4),
+        const_iv (SDLK_5),
+        const_iv (SDLK_6),
+        const_iv (SDLK_7),
+        const_iv (SDLK_8),
+        const_iv (SDLK_9),
+        const_iv (SDLK_COLON),
+        const_iv (SDLK_SEMICOLON),
+        const_iv (SDLK_LESS),
+        const_iv (SDLK_EQUALS),
+        const_iv (SDLK_GREATER),
+        const_iv (SDLK_QUESTION),
+        const_iv (SDLK_AT),
+
+        const_iv (SDLK_LEFTBRACKET),
+        const_iv (SDLK_BACKSLASH),
+        const_iv (SDLK_RIGHTBRACKET),
+        const_iv (SDLK_CARET),
+        const_iv (SDLK_UNDERSCORE),
+        const_iv (SDLK_BACKQUOTE),
+        const_iv (SDLK_DELETE),
+
 	const_iv (SDLK_FIRST),
 	const_iv (SDLK_LAST),
 	const_iv (SDLK_KP0),
@@ -690,6 +756,8 @@
 	const_iv (KMOD_CAPS),
 	const_iv (KMOD_MODE),
 
+        const_iv (KMOD_LRAM),
+
         const_iv (MIX_DEFAULT_FORMAT),
 
 	const_iv (SDL_INIT_TIMER),
@@ -886,8 +954,8 @@
                 case SDL_KEYUP:
                   hv_store (hv, "state",   5, newSViv (ev.key.state), 0);
                   hv_store (hv, "sym",     3, newSViv (ev.key.keysym.sym), 0);
-                  hv_store (hv, "mod",     3, newSViv (ev.key.keysym.mod & MOD_MASK), 0);
-                  hv_store (hv, "cmod",    4, newSViv (SDL_GetModState () & MOD_MASK), 0); /* current mode */
+                  hv_store (hv, "mod",     3, newSViv (mod_munge (ev.key.keysym.mod)), 0);
+                  hv_store (hv, "cmod",    4, newSViv (mod_munge (SDL_GetModState ())), 0); /* current mode */
                   hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
                   break;
 
@@ -915,7 +983,7 @@
                         SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));
                       }
 
-                    hv_store (hv, "mod",    3, newSViv (SDL_GetModState () & MOD_MASK), 0);
+                    hv_store (hv, "mod",    3, newSViv (mod_munge (SDL_GetModState ())), 0);
                     hv_store (hv, "state",  5, newSViv (state), 0);
                     hv_store (hv, "x",      1, newSViv (x), 0);
                     hv_store (hv, "y",      1, newSViv (y), 0);
@@ -1141,6 +1209,13 @@
 #endif
 }
 
+int
+SvREFCNT (SV *sv)
+	CODE:
+        RETVAL = SvREFCNT (sv);
+	OUTPUT:
+	RETVAL
+
 MODULE = Deliantra::Client	PACKAGE = DC::Font
 
 PROTOTYPES: DISABLE
@@ -1695,6 +1770,26 @@
        glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
 }
 
+void
+expire_textures (DC::Map self, int texid, int count)
+	PPCODE:
+  	for (; texid < self->texs && count; ++texid, --count)
+          {
+            maptex *tex = self->tex + texid;
+
+            if (tex->name)
+              {
+                if (tex->unused)
+                  {
+                    tex->name   = 0;
+                    tex->unused = 0,
+                    XPUSHs (sv_2mortal (newSViv (texid)));
+                  }
+                else
+                  tex->unused = 1;
+              }
+          }
+
 int
 ox (DC::Map self)
 	ALIAS:
@@ -1824,12 +1919,14 @@
                       if (cell->tile [z])
                         {
                           maptex *tex = self->tex + cell->tile [z];
+                          tex->unused = 0;
                           if (!tex->name)
                             av_push (missing, newSViv (cell->tile [z]));
 
                           if (tex->smoothtile)
                             {
                               maptex *smooth = self->tex + tex->smoothtile;
+                              smooth->unused = 0;
                               if (!smooth->name)
                                 av_push (missing, newSViv (tex->smoothtile));
                             }
@@ -1984,6 +2081,8 @@
 
                             if (key.texname != tex.name)
                               {
+                                self->tex [tile].unused = 0;
+
                                 if (!tex.name)
                                   tex = self->tex [2]; /* missing, replace by noface */
 
@@ -2115,6 +2214,8 @@
                                       // save gobs of state changes.
                                       if (key.texname != tex.name)
                                         {
+                                          self->tex [skey->tile].unused = 0;
+
                                           glEnd ();
                                           glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);
                                           glBegin (GL_QUADS);
@@ -2187,6 +2288,12 @@
                     int px = x * T;
                     int py = y * T;
 
+                    if (expect_false (cell->player == player))
+                      {
+                        px += sdx;
+                        py += sdy;
+                      }
+
                     if (cell->stat_hp)
                       {
                         int width = cell->stat_width * T;
@@ -2936,6 +3043,7 @@
         glRotatef (angle, x, y, z);
 
 void glColor (float r, float g, float b, float a = 1.0)
+        PROTOTYPE: @
         ALIAS:
            glColor_premultiply = 1
         CODE: