delphi Код:
const
Name='Char'; //в начале скрипта, в блоке констант, объявляешь имя
.............
SendtoserverEx(Name); // и впоследствии отправляешь пакеты именно на соединение с таким именем
.............
а вот такие вещи:
delphi Код:
if FromServer and (pck[1]=#$4A) and (pck[6]=#$11) then begin //блок херо чата
pck:='';
end;
поправь на такое:
delphi Код:
if FromServer and (ConnectName=Name) and (pck[1]=#$4A) and (pck[6]=#$11) then begin //блок херо чата
pck:='';
end;
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 18.09.2010 в 19:48.
|