sample6.wdl

3D GameStudio 的Delphi开发包

// Sample6.wdl 

BIND "sample6.wdl";

path "files";

var SliderPos;
var ButtonClicked  = 0;
var MouseOffButton = 0;
var MouseOnButton  = 0;
var WinBmpX        = 10;
var WinBmpY        = 10;

function ClickOnButton
{
  ButtonClicked = 1;
}

function LeaveButton
{
  if event_type == EVENT_RELEASE
  {
    MouseOffButton = 1;
  }
}

function OverButton
{
  if event_type == EVENT_TOUCH
  {
    MouseOnButton = 1;
  }
}