sample4.wdl

3D GameStudio 的Delphi开发包

// Sample4.wdl 
// uses Sample4.DLL, you must compile Sample4.dpr first

plugindir = ".";                     // where to find the dll, this is current directory

include <MsgDialog.wdl>;             // gives us access to the ShowMsg_Var function defined in DLL_Debug

dllfunction FindDirectX;             // use this function, defined in DLL_Library
dllfunction ClipCursorToWindow;      // use this function, defined in DLL_Library
dllfunction ManageClipCursor;        // use this function, defined in DLL_Library

var video_screen = 2;   // default to window mode
var video_mode   = 7;   // default to 800x600
var video_depth  = 32;  // default to 32 bit depth  	

text MouseTrap
{
	pos_x = 400;
	pos_y = 200;
	flags = center_x, visible;
	string = "The Mouse Cursor has been restricted to the window, Hit ESC to quit";
	strings = 1;
}

function main()
{
  if FindDirectX() < 9
  {
    ShowMsg_Var("DirectX 9 is required to run this program","",mtError,mbOk);    
    sys_exit("");
  }

  wait(2);  // make sure to wait until the window is properly initialized
            // before calling ClipCursorToWindow
  
  ClipCursorToWindow();  
  
  while key_esc == 0
  {
    ManageClipCursor();
    wait(1);
  }
}