github publish

2025-07-10 00:20:27 -04:00 · 2025-01-24 18:27:22 +01:00 · 2025-01-24 18:27:22 +01:00 · 506e23bf32
commit 506e23bf32
542 changed files with 120675 additions and 0 deletions
--- a/Windows/skeldal_win.c
+++ b/Windows/skeldal_win.c
@ -0,0 +1,199 @@
+#include "skeldal_win.h"
+#include "debug.h"
+#include "resource.h"
+#include <devices.h>
+
+void DXMouseTransform(unsigned short *x, unsigned short *y);
+void DxLockBuffers(BOOL lock);
+
+HKL english_layout=NULL;
+
+#define WM_EXTRACHAR (WM_APP+100)
+
+#define MAX_KEYQUEUE 16
+
+#define GET_X_LPARAM(lp)   ((int)(short)LOWORD(lp))
+#define GET_Y_LPARAM(lp)   ((int)(short)HIWORD(lp))
+
+
+static unsigned long keyqueue[MAX_KEYQUEUE];
+static unsigned long keyqueuelen=0;
+static char wheel_mapping[2]={'Q','I'};
+static BOOL noextra;
+MS_EVENT win_mouseEvent;
+static BOOL ActiveWindow=FALSE;
+static DWORD WaitNext=0;
+
+void SetWheelMapping(char up, char down)
+{
+  wheel_mapping[0]=down;
+  wheel_mapping[1]=up;
+}
+
+static void SetMouseEvent(MS_EVENT *event,UINT msg, WPARAM wParam,LPARAM lParam)
+  {
+  event->event_type=0;
+  switch (msg)
+    {
+    case WM_LBUTTONDOWN: event->event_type=0x2;break;
+    case WM_LBUTTONUP: event->event_type=0x4;break;
+    case WM_RBUTTONDOWN: event->event_type=0x8;break;
+    case WM_RBUTTONUP: event->event_type=0x10;break;
+    case WM_MBUTTONDOWN: event->event_type=0x20;break;
+    case WM_MBUTTONUP: event->event_type=0x40;break;
+    case WM_MOUSEMOVE: event->event_type=0x1;break;
+    }
+  event->x=GET_X_LPARAM(lParam);
+  event->y=GET_Y_LPARAM(lParam);
+  event->tl1=(wParam & MK_LBUTTON)!=0;
+  event->tl3=(wParam & MK_MBUTTON)!=0;
+  event->tl2=(wParam & MK_RBUTTON)!=0;
+  event->event=1;  
+  DXMouseTransform(&event->x,&event->y);  
+  }
+
+LRESULT GameMainWindowWindowProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
+  {
+  if (msg>=WM_MOUSEFIRST && msg<=WM_MOUSELAST && msg!=WM_MOUSEWHEEL)
+    {
+    SetMouseEvent(&win_mouseEvent,msg,wParam,lParam);
+    }
+  else switch (msg)
+    {
+    case WM_CREATE:
+       if (english_layout==NULL) english_layout=LoadKeyboardLayout("00000409",KLF_ACTIVATE);
+       DSReportWindowCreation(hWnd);
+       return TRUE;
+    case WM_ENDSESSION:
+    case WM_CLOSE:
+        DXCloseMode();
+        exit(1);
+        break;    
+    case WM_SETCURSOR: if (LOWORD(lParam)==HTCLIENT)SetCursor(NULL);
+          else return DefWindowProc(hWnd,msg,wParam,lParam);break;
+          return TRUE;
+    case WM_EXTRACHAR: if (noextra) {noextra=FALSE;break; }
+    case WM_CHAR:
+        if (keyqueuelen<16)
+          {
+          memmove(keyqueue,keyqueue+1,sizeof(*keyqueue)*keyqueuelen);
+          keyqueuelen++;
+          keyqueue[0]=MAKEWORD(wParam,HIWORD(lParam));      
+          }
+        if (msg==WM_CHAR) noextra=TRUE;
+        break;
+	case WM_MOUSEWHEEL:
+	  {
+		short delta=HIWORD(wParam);
+        if (keyqueuelen<16)
+          {
+          memmove(keyqueue,keyqueue+1,sizeof(*keyqueue)*keyqueuelen);
+          keyqueuelen++;
+          keyqueue[0]=MAKEWORD(0,delta<0?wheel_mapping[0]:wheel_mapping[1]);
+          }
+		break;
+	  }
+    case WM_ACTIVATE:
+      {
+        int fActive = LOWORD(wParam);
+        ActiveWindow=fActive!=WA_INACTIVE;
+        break;
+      }
+    case WM_PAINT:
+      {
+      PAINTSTRUCT ps;
+      BeginPaint(hWnd,&ps);
+      DXCopyRects64(0,0,DxGetResX(),DxGetResY());
+      EndPaint(hWnd,&ps);
+      break;      
+      }
+	case WM_RELOADMAP:
+	  {
+		char buff[256];
+		int sektor=wParam;
+		GlobalGetAtomName((ATOM)lParam,buff,256);
+		GlobalDeleteAtom((ATOM)lParam);
+		send_message(E_RELOADMAP,buff,sektor);
+		break;
+	  }
+
+    default: return DefWindowProc(hWnd,msg,wParam,lParam);break;
+    }
+  return 0;
+  }
+
+
+void CheckMessageQueue()
+  {
+  MSG msg;
+  while (PeekMessage(&msg,NULL,0,0,PM_REMOVE))
+    {
+    TranslateMessage(&msg);
+    if (msg.message==WM_KEYDOWN)
+      {
+      PostMessage(msg.hwnd,WM_EXTRACHAR,0,msg.lParam);
+      }
+    DispatchMessage(&msg);
+    }
+  }
+
+void WaitMsgQueue()
+  {
+  WaitMessage();
+  CheckMessageQueue();
+  }
+
+unsigned long _bios_keybrd(int mode)
+  {
+repeat:
+  if (keyqueuelen)
+    {
+    if (mode==_KEYBRD_READY) return 1;
+    if (mode==_KEYBRD_READ) {keyqueuelen--;return keyqueue[keyqueuelen];}
+    }
+  if (mode==_KEYBRD_READ) {WaitMsgQueue(); goto repeat;}
+  CheckMessageQueue();  
+  return keyqueuelen!=0;
+  }
+
+void task_terminating()
+  {
+  STOP();
+  }
+
+void *LoadResourceFont(const char *name)
+  {
+  HINSTANCE hInst=GetModuleHandle(NULL);
+  HRSRC rsrc=FindResource(hInst,name,"SKELDAL_FONT");
+  HGLOBAL glb=LoadResource(hInst,rsrc);
+  return LockResource(glb);
+  }
+
+void *LoadDefaultFont()
+  {
+  return LoadResourceFont(MAKEINTRESOURCE(IDR_BOLDCZ));
+  }
+
+
+void ShareCPU()
+{  
+  DWORD curTime=GetTickCount(); 
+  DWORD timeout=WaitNext<curTime?0:WaitNext-curTime;
+  DWORD res=WAIT_TIMEOUT;
+  if (WaitNext==0) WaitNext=GetTickCount();
+
+  DxLockBuffers(FALSE);
+  if (timeout) res=MsgWaitForMultipleObjects(0,NULL,FALSE,timeout,QS_ALLINPUT);
+  if (res==WAIT_TIMEOUT) WaitNext=WaitNext+10;
+  DxLockBuffers(TRUE);
+}
+
+char *AutodetectWinAmp()
+{
+    char *cwd = getcwd(0);
+    char *fullpath = (char *)malloc(strlen(cwd)+50);
+    sprintf(fullpath,"%s\\Plugins",cwd);
+    free(cwd);
+    return fullpath;
+}
+