/*******************************************************************************
 Plugin Teleport
 Server part
 Version: 1.0
 Authors: Sylvain HUET & sebastien DENEUX
 Last update: 20/06/2001
*******************************************************************************/

typeof class = S;; /* plugin class */



fun cbGoto(from, u, action, param, ulist, tag) =  

  ObPlaceAvatar u getInfo strextr param "position"
;;


/*******************************************************************************
  Function called when plugin is initialised
  file -> S : '*.plug' file name
       <- I : not used
*******************************************************************************/
fun IniPlug(file) =

  set class = getInfo strextr _getpack _checkpack file "name";
  PlugRegister class nil nil;
  _DMSdefineActions this [strcat class ".goto" @cbGoto]::nil;
  0
;;