/********************************************************************
* OnCreate()
* Called when the pad is created
* TimS Oct 10 2002
********************************************************************/
OnCreate()
{
    AddProperty1( THIS, "PadDoor", "" );
}
/*******************************************************************/


/********************************************************************
* OnActivatePad()
* Called when someone stands on the pad
* TimS Oct 10 2002
********************************************************************/
OnActivatePad()
{
    VAR door, doorName;

    doorName = QueryProperty_String( THIS, "PadDoor" );
    door     = FindObjectByName( doorName );

    if ( door != 0 ) {
        DOOR_Open( door );
    }
}
/*******************************************************************/