[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/Client.xs

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.153 by root, Tue Sep 19 22:02:38 2006 UTC vs.
Revision 1.163 by root, Wed Oct 18 12:53:45 2006 UTC

 #ifdef _WIN32
 # define WIN32_LEAN_AND_MEAN
 # define _WIN32_WINNT 0x0500 // needed to get win2000 api calls
 # include <malloc.h>
 # include <windows.h>
+# include <wininet.h>
 # pragma warning(disable:4244)
+# pragma warning(disable:4761)
 #endif
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
 # include <sys/types.h>
 # include <sys/socket.h>
 # include <netinet/in.h>
 # include <netinet/tcp.h>
 # include <inttypes.h>
-#else
- typedef unsigned char  uint8_t;
- typedef unsigned short uint16_t;
- typedef unsigned int   uint32_t;
- typedef   signed char  int8_t;
- typedef   signed short int16_t;
- typedef   signed int   int32_t;
 #endif
-#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, objetc replacement character */
+#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */
 #define FOW_DARKNESS 32
 #define MAP_EXTEND_X  32
 #define MAP_EXTEND_Y 512
               cell = row->col + x - row->c0;
               cell->darkness = 0;
               cell->stat_hp  = 0;
+              cell->flags    = 0;
+              cell->player   = 0;
             }
       }
 }
 static void
 #ifndef _WIN32
         setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
 #endif
 void
+win32_proxy_info ()
+	PPCODE:
+{
+#ifdef _WIN32
+        char buffer[2048];
+        DWORD buflen;
+        EXTEND (SP, 3);
+        buflen = sizeof (buffer);
+        if (InternetQueryOption (0, INTERNET_OPTION_PROXY, (void *)buffer, &buflen))
+          if (((INTERNET_PROXY_INFO *)buffer)->dwAccessType == INTERNET_OPEN_TYPE_PROXY)
+            {
+              PUSHs (newSVpv (((INTERNET_PROXY_INFO *)buffer)->lpszProxy, 0));
+              buflen = sizeof (buffer);
+              if (InternetQueryOption (0, INTERNET_OPTION_PROXY_USERNAME, (void *)buffer, &buflen))
+                {
+                  PUSHs (newSVpv (buffer, 0));
+                  buflen = sizeof (buffer);
+                  if (InternetQueryOption (0, INTERNET_OPTION_PROXY_PASSWORD, (void *)buffer, &buflen))
+                    PUSHs (newSVpv (buffer, 0));
+                }
+            }
+#endif
+}
+void
 add_font (char *file)
 	CODE:
         FcConfigAppFontAddFile (0, (const FcChar8 *)file);
 void
         MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR);
 #endif
         _exit (1);
 void
-_exit (int retval)
+_exit (int retval = 0)
 	CODE:
+#ifdef WIN32
+        ExitThread (retval); // unclean, please beam me up
+#else
         _exit (retval);
+#endif
 MODULE = CFPlus	PACKAGE = CFPlus::Font
 CFPlus::Font
 new_from_file (SV *class, char *path, int id = 0)
 void
 scroll (CFPlus::Map self, int dx, int dy)
 	CODE:
 {
         if (dx > 0)
-          map_blank (self, self->x, self->y, dx - 1, self->h);
+          map_blank (self, self->x, self->y, dx, self->h);
         else if (dx < 0)
-          map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h);
+          map_blank (self, self->x + self->w + dx + 1, self->y, -dx, self->h);
         if (dy > 0)
-          map_blank (self, self->x, self->y, self->w, dy - 1);
+          map_blank (self, self->x, self->y, self->w, dy);
         else if (dy < 0)
-          map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy);
+          map_blank (self, self->x, self->y + self->h + dy + 1, self->w, -dy);
 	self->ox += dx; self->x += dx;
 	self->oy += dy; self->y += dy;
         while (self->y < 0)
             if (flags & 15)
               {
                 if (!cell->darkness)
                   {
+                    memset (cell, 0, sizeof (*cell));
                     cell->darkness = 256;
-                    cell->face [0] = 0;
-                    cell->face [1] = 0;
-                    cell->face [2] = 0;
                   }
                 //TODO: don't trust server data to be in-range(!)
                 if (flags & 8)
                   {
                     cell->face [2] = self->face [(data [0] << 8) + data [1]]; data += 2;
                   }
               }
             else
-              {
-                cell->darkness = 0;
+              cell->darkness = 0;
-                cell->stat_hp = 0;
-              }
           }
 }
 SV *
 mapmap (CFPlus::Map self, int x0, int y0, int w, int h)
 	int vx, vy;
         int x, y, z;
         int last_name;
         mapface face;
-        vx = self->x + self->w / 2 - sw / 2 - shift_x;
+        vx = self->x + ((self->w - sw) >> 1) - shift_x;
-        vy = self->y + self->h / 2 - sh / 2 - shift_y;
+        vy = self->y + ((self->h - sh) >> 1) - shift_y;
         /*
         int vx = self->vx = self->w >= sw
           ? self->x + (self->w - sw) / 2
           : MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.153 by root, Tue Sep 19 22:02:38 2006 UTC vs. Revision 1.163 by root, Wed Oct 18 12:53:45 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.153 by root, Tue Sep 19 22:02:38 2006 UTC vs.
Revision 1.163 by root, Wed Oct 18 12:53:45 2006 UTC