__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
const
MaxValue = 60; // Определенное значение, по достижении которого 4-й байт в пакете будет обнуляться
TimerInterval = 1000; // Интервалл в милисекундах для таймера
var
Timer1: TTimer;
tmpint: integer;
intbyte: string;
procedure Init;
begin
Timer1:=TTimer.Create(nil); // создаем объект таймер
Timer1.OnTimer:=@OnTimer1; // привязываем к нашему объекут процедуру OnTimer1
Timer1.enabled:=true; // включаем запуск таймера при старте скрипта
Timer1.interval:=TimerInterval; // устанавливаем интервал в милисекундах (в нашем случае интревла равен 1 секунде)
tmpint:=0; // Устанавливаем переменную по умолчанию
end;
procedure OnTimer1(Sender: TObject);
begin
tmpint:=tmpint+1; // суммируем счетчик через кажддую секунду
if(tmpint <= MaxValue) then // Если счетчик меньше или равно MaxValue, то продолжаем работать
begin
// Тут мы отправляем пакет, в котором четвертый байт будет равен счетчику, т.е. от 1 до 60
buf:='';
WriteC(tmpint);
intbyte:=copy(buf,1,(length(buf))); // переводим Ineger to Hex
buf:=HStr('5d5e5f') + HStr(intbyte); // intbyte - значение четвертого байта
SendToServer;
end else // Иначе, т.е. если счетчик больше MaxValue то обнуляем его
begin
tmpint:=0;
end;
end;
procedure Free;
begin
Timer1.Free; // Освобождаем память занятую таймером
end;
begin
end.
Последний раз редактировалось RayTraceR, 05.12.2010 в 17:27.
недавно запустился сервер на teraion.com (бывший aion.211.ru). по сравнению с предшественником, один и тот же скил выдаёт разные значения пакета, при отправке на сервер... хотя некоторые байты из пакета остаются неизменными. хоть я почти не играю, было бы интересно узнать решение этой проблемы. извиняюсь, если я обращаюсь не по адресу))
dreamlore, видать и на айоне начали применять изменение шифрования...
да. сейчас такая защита почти на каждом серве стоит. хотя изменения пакетов незначительные. меняются только 1й, 3й и последний байты в основном, в определённой последовательности. можно ли как-нить определить эту последовательность?
извините но почему виста так отвергает ПХ??? я и настройки на айон сделал правильно а как об стенку горох ничего не ищет (сервер newaion.ru) пакеты не ищет и....ну вобщем как будто игру и не запускал(((
всё-равно не поможет. даже спидхак на скилы не работает. серв задаёт длительность скила и его откат даже если и рассчитать код, толку это даст мало(( ..."читерские форумы - находка для игровых админов" всегда в курсе событий, негодяи)
день добрый, есть ли какие нить определённые требования к железу? проблема собсна вот http://s003.radikal.ru/i202/1101/41/55d94a36e2ab.jpg происходит это когда начинаеш делать какие нить функции прогой (выделить пкет, добавить на отсылку, итд) это происходит у знакомого челоаека, у меня всё работает на ура)) большое вам спс за програмку, часто выручает если сделал куданить тп, и тебя киноло к кибу, на или бить рб в данже)) помогите пожалуйста решить проблемму.. и клиент при ошибке падает(
Последний раз редактировалось bdsm, 23.01.2011 в 16:18.