Показать сообщение отдельно
Старый 20.05.2016, 16:50   #1
Новичок
 
Регистрация: 20.05.2016
Сообщений: 1
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
cicos пока неопределено
Вопрос HELP FIND SECRET MULTISELL'S

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. )
cicos вне форума   Ответить с цитированием