PDA

Просмотр полной версии : помогите активировать этот пакет пожалуйста


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. )