procedure init;
begin
NoFreeOnClientDisconnect:=true;
end;
if FromClient and (ConnectName='Amorality')
and (pck=HStr('1b 04 00 00 00')) then begin
DisconnectClient;
end;
---
Значит такой код получается?
На счет Ему проги , если исходники то гляну , как скачаю дельфи 2006 , спасибо
Теперь другая проблема , как я говорила выше 3.2.0 работает у меня только под Камаель , в общем пытюась зайти на сервер La2.theabyss.ru , запускаю ПНХ , снимаю все галочки , кроме первой и второй , запускаю клиент , логинюсь чаром , разворачиваю ПНХ , в списке соединений везде пусто , на вкладке просмотр ни одного пакета нету
var
NetPing: string; // здесь запомним Нетпинг от клиента, будем сами его посылать
LogOutOk: boolean; // флаг показывающий, что мы отключили клиентbeginif(ConnectName=Name)and FromServer thenbegincase pck[1] of//****************************************************
#$D3: begin// D3=NetPing:d(kID) на Нетпинг сервера шлем сохранённый пакет Нетпинга от клиента
msg.Lines.Add('S>Пакет NetPing #$D3');
if LogOutOk thenbegin
buf:=NetPing;
SendToServerEx(Name);
msg.Lines.Add('C>Пакет NetPing #$A8');
end;
end;
end;
end;
//****************************************************if(ConnectName=Name)and FromClient thenbegincase pck[1] of
#$09: begin//C>09=LogoutRequest - выходим ручками из клиента
msg.Lines.Add('S>Пакет LogoutRequest #$09');
// вроде не надо тут их ставить?
NoFreeOnClientDisconnect;
NoFreeOnServerDisconnect;
pck:='';
// шлем s7E=LogOutOk, для отключения клиента
msg.Lines.Add('S>Пакет LogOutOk #$7E');
buf:=#$7E;
SendToClientEx(Name);
LogOutOk:=true;
end;
#$A8: begin// C>A8=NetPing:d(kID)d(PING)d(dta)
msg.Lines.Add('C>Пакет NetPing #$A8');
NetPing:=pck; // запомним его
pck:='';
end;
end;
end;
end.
Цитата:
Сообщение от Amorality
Теперь другая проблема , как я говорила выше 3.2.0 работает у меня только под Камаель , в общем пытюась зайти на сервер La2.theabyss.ru , запускаю ПНХ , снимаю все галочки , кроме первой и второй , запускаю клиент , логинюсь чаром , разворачиваю ПНХ , в списке соединений везде пусто , на вкладке просмотр ни одного пакета нету
На TheAbyss x300 работает, только что проверил.
Добавлено через 29 минут
Цитата:
Сообщение от PanAm
Кстати, вот пример почти бот )
Где вы такое берете? Ссылку плиз.
Последний раз редактировалось NLObP, 29.07.2008 в 22:52.
Причина: Добавлено сообщение
Разобралась почему не работал 3.2.0 , попробовала прошлый скрипт , он не пашет , не признается часть :=true .. А вот последний скрипт похоже будет работать , чуть позже попробуем , спасибо
Добавлено через 11 минут
ПС в твоем скрипте вместо Name Надо подставлять ник? или оставить все как есть?
Последний раз редактировалось Amorality, 29.07.2008 в 23:04.
Причина: Добавлено сообщение
Разобралась почему не работал 3.2.0 , попробовала прошлый скрипт , он не пашет , не признается часть :=true .. А вот последний скрипт похоже будет работать , чуть позже попробуем , спасибо
Добавлено через 11 минут
ПС в твоем скрипте вместо Name Надо подставлять ник? или оставить все как есть?
Это константа, её надо описать в начале программы
Код:
const
name='имя чара';
а можно сразу вписать имя чара, если скрипт небольшой.
Сразу предупрежу. Отключать клиент не безопастно. Делай на свой страх и риск. Клиент шлет много пакетов, которые надо будет за него посылать скриптом. В частности NetPing, ValidatePosition и т.п.
Супер , отлично работает.. А что там еще кроме NetPing'a нужно посылать? можешь сказать? Просто боюсь чара забанят , жалко бд ..
Добавлено через 1 минуту
А вот еще вопрос , можно ли сделать так , чтобы от ника Amorality этот выгруженный клиент сразу принимал пати . а при команде в пати чат '-dance' танцевал 2 дансА?
Последний раз редактировалось Amorality, 30.07.2008 в 01:39.
Причина: Добавлено сообщение