function PluginProc(Code: Cardinal; p1, p2, p3: PWideChar): PWideChar; stdcall;
begin
  case code of
    0: result := PChar(user.name);
    1: Engine.DMoveTo(StrToInt(p1), StrToInt(p2), user.z);
    2: Print(p2);
    3: Result := PChar(FToStr(User.X));
    4: Result := PChar(FToStr(User.Y));
    5: Result := PChar('0');
    6: Result := PChar('abc');
    7: Result := pchar(2);
end;