#Include once "windows.bi"

declare sub Convert16to32(ENTRADA as any ptr,SAIDA as any ptr,HORIZ as integer,VERTI as integer,PITCH as integer=0)
declare sub CreatePreDetours()
declare sub CreateDetours()
declare function dwSubClass (HWND as hwnd,UMSG as integer,WPARAM as wparam,LPARAM as lparam) as lresult
declare function gfxSubClass (HWND as hwnd,UMSG as integer,WPARAM as wparam,LPARAM as lparam) as lresult
declare sub RenderThread(ID as any ptr)

#ifdef EnableNetPlay
declare sub CreateDirectPlay(lplpDP as any ptr ptr)
#endif

extern QCOLORKEY as ulongint
extern QALPHA as ulongint
extern as any ptr ORGPROC,DWORGPROC

'extern as integer DETOURED

type MYCHECKGUID
  GUID as GUID
  GUIDNAME as zstring*32
end type

'common shared as any ptr IDIRECTPLAY3A_FUNCS() '46
#macro FatalError(sMSG...)
  #ifdef DebugFatal
    scope
      dim as zstring*256 TempStr
      sprintf(TempStr,sMSG):printf(!"%s\n",TempStr)
      messagebox(null,TempStr,__FUNCTION__,MB_SYSTEMMODAL or MB_ICONERROR)
      ExitProcess(1)
    end scope
  #endif
#endmacro