cicos
20.05.2016, 16:50
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. )
( 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. )