HELP FIND SECRET MULTISELL'S

[cicos]

I HAVE THIS CODE BELLOW AND I DON'T KNOW HOW TO USE THIS I AM FROM GR AND KNOW EN SOMEONE IF CAN HELP ME GIVE ME A SMALL TUTORIAL HOW TO USE THIS CODE?

( var

i:int64;

procedure Init;

begin

i:=205; {Òóò âáèâàåì íîìåð ñ êîòîðîãî ìóëüòèñåëëà íà÷í¸ì áðóòèòü}

end;

begin

if FromClient and (pck[1]=#$1B) then

begin

pck:='';

buf:=#$21;

WriteS('npc_268474200_Multisell '+inttostr(i));

SendToServer;

inc(i);

end;

end. )