Показать сообщение отдельно
Старый 07.05.2008, 20:41   #8
Новичок
 
Регистрация: 22.04.2008
Сообщений: 21
Сказал Спасибо: 8
Имеет 26 спасибок в 6 сообщенях
poizon пока неопределено
По умолчанию

а с валидпозишнм что?есть разбор пакета у кого?

Добавлено через 2 часа 41 минуту
короче вот скрипт который при отключении посылает нетпинги

PHP код:
Const
  
Name='kolobok';
var
oksrvconstpingidpinginteger;



procedure Init//Вызывается при включении скрипта


begin
NoFreeOnClientDisconnect
;
NoFreeOnServerDisconnect;
ok:=0
end
;

procedure Free//Вызывается при выключении скрипта
begin

end
;

procedure OnConnect(WithClientBoolean); //Вызывается при установке соединения

begin

end
;

procedure OnDisonnect(WithClientBoolean); //Вызывается при потере соединения
begin

end
;




Procedure Say(msg:string);
begin
  buf
:=hstr('4A 00 00 00 00');
  
WriteD(2);
  
WriteS(Name);
  
WriteS(msg);
  
SendToClientEx(Name);
end;

begin
NoFreeOnClientDisconnect
;
NoFreeOnServerDisconnect;
 if (
ok=0) and fromclient and (ConnectName=Name) and (pck[1]=#$A8) then
 
begin
 srvconst
:=ReadD(10);
 
Say('Константа сервера получена, можно выключать клиент=');
 
pck:='';
 
ok:=1;
 
end;


 if (
ok=1) and FromServer and (ConnectName=Name) and (pck[1]=#$D3) then
 
begin
 pingid
:= ReadD(2);

 
ping:= 31 + (int(random()*3));
 
buf:= #$A8;
 
WriteD(pingid);
 
WriteD(ping);
 
WriteD(srvconst);
 
SendToServerEx(Name);
 
say(inttostr(ping));
 
end;
end
когда получена константа тогда вырубаем

есть вопросы... допустим я сделал магазин посадил бота своего и вышел.у меня чтото купили, когда купили не нужно чтото типа валид количества предметов ?

Последний раз редактировалось poizon, 07.05.2008 в 20:41. Причина: Добавлено сообщение
poizon вне форума   Ответить с цитированием
За это сообщение poizon нажился 9 спасибками от: