sample3.wdl

3D GameStudio 的Delphi开发包

// Sample3.wdl 
// uses Sample3.DLL, you must compile Sample3.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 SetTextMode;             // use this function, defined by you
dllfunction ShowMainMessage;         // use this function, defined by you

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

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

  SetTextMode();
  
  while key_esc == 0
  {
    ShowMainMessage();
    wait(1);
  }
}