--- deliantra/Deliantra-Client/Client.xs	2007/04/18 09:39:49	1.182
+++ deliantra/Deliantra-Client/Client.xs	2007/04/20 16:56:08	1.183
@@ -402,12 +402,17 @@
 #define SDLK_MODIFIER_MIN 300
 #define SDLK_MODIFIER_MAX 314
 
+static AV *texture_av;
+
 MODULE = CFPlus	PACKAGE = CFPlus
 
 PROTOTYPES: ENABLE
 
 BOOT:
 {
+  texture_av = newAV ();
+  AvREAL_off (texture_av);
+
   HV *stash = gv_stashpv ("CFPlus", 1);
   static const struct {
     const char *name;
@@ -2372,7 +2377,10 @@
         CODE:
 {
         GLuint name;
-        glGenTextures (1, &name);
+        if (AvFILL (texture_av) >= 0)
+          name = (GLuint)av_pop (texture_av);
+        else
+          glGenTextures (1, &name);
         RETVAL = name;
 }
 	OUTPUT:
@@ -2381,8 +2389,10 @@
 void glDeleteTexture (int name)
 	CODE:
 {
-        GLuint name_ = name;
-        glDeleteTextures (1, &name_);
+        glBindTexture (GL_TEXTURE_2D, name);
+        glTexImage2D (GL_TEXTURE_2D, 0, GL_ALPHA, 0, 0, 0, GL_ALPHA, GL_UNSIGNED_BYTE, 0);
+        av_push (texture_av, (SV *)name);
+        /*glDeleteTextures (1, &name_);*/
 }
         
 int glGenList ()