Цитата:
Сообщение от supernewbie
мб
delphi Код:
if FromServer and (pck[1] = #$4A) and (ReadS(10+(length(ReadS(10))*2+2))='start') and (ReadS(10)='TpoIIuHkaKHe6y') then
|
if FromServer and (pck[1] = #$4A) and (ReadS(10+(length(ReadS(10))*2+2))='start') and (ReadS(10)='TpoIIuHkaKHe6y') then
begin
buf:=Hstr('1B 0C 00 00 00') ;
SendToServerEx('name2') ;
end;
все ровно падла не танцует)