Breno5833
06.06.2022, 23:04
( 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. )
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. )