bla

function WarpLuaCallBack(QuelqueChose: Pointer): Integer; cdecl;
var
  iArguments: Integer;
  szText: AnsiString;
begin
  if (not(Teleport.GetTeleState() = TELEPORT_DONE)) then
  begin
    WoW.AddChatMessage(MSG_COLOR_LIGHTRED, 'Teleport already in progress, you can stop the teleport with 
 
/console cancelwarp');
    result := 0;
    exit;
  end;
 
  iArguments := WoW.LuaGetTop(QuelqueChose);
 
 
  if (iArguments < 3) then
  begin
    WoW.AddChatMessage(MSG_COLOR_LIGHTRED, 'Need more parameters. Usage is warp(x, y, z)');
    result := 0;
    exit;
  end;
 
  szText := WoW.LuaToString(WoW.LuaGetState(), 0, 0);
  WoW.AddChatMessage(MSG_COLOR_LIGHTRED, Format('Your parameters are: %s', [szText]));
  result := 1;
end;