var
  i: integer;
begin
   SetLength(itm,$314*$15);
   ZeroMemory(Pointer(@itm), $314 * 19);
   MoveMemory(Pointer(@itm), Pointer($02FBAB50), $314 * 19);
   for i := 0 to 19 do
     PDword(@itm[(i * $314) + $107])^ := PDword(@itm[(i * $314) + $107])^+ 1;
   ChatPrintf('Item Pego com Sucesso!');