Спасибо большое всем кто ответил,особенно Samor888, воспользуюсь обязательно.Хотелось бы поподробней на счет как вытащить время отката из пакета. При использовании скила в l2phx у меня идут следующие пакеты:
От клиента: RequestMagicSkillUse(2F 70 00 00 00 00 00 00 00 00)
следом пакеты от серва:
1. SetupGauge(6D 00 00 00 00 87 03 00 00 87 03 00 00)
2. UserInfo(инфа о чаре я так понимаю, большой пакет не буду тут его указывать)
3. AbnormalStatusUpdate(7F 00 00)
4. UserInfo()
5. AbnormalStatusUpdate(7F 01 00 70 00 00 00 04 00 AF 04 00 00)
вот подскажите из какого пакета можно вытащить откат скила, заранее спасибо, сильно не ругайтесь я делаю первые шаги в написании скриптов
Добавлено через 5 часов 43 минуты
Вобщем вроде сообразил как вытянуть откат скила, там от сервера приходит пакет MagicSkillUse в котором есть параметр reuseDelay, вообщем считую его но все равно скрипт не работает, подскажите в чем ошибка,возможно что то неправильно с таймером сделал, заранее благодарен, вот сам скрипт который я своял):
delphi Код:
var i:integer;Timer1 : TTimer;
procedure Init; //Вызывается при включении скрипта
begin
Timer1 := TTimer.Create(nil);
//Timer1.Interval :=5000;
Timer1.Enabled := False;
Timer1.OnTimer := @OnTimer;
end;
procedure SendMsgs(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;
procedure Free; //Вызывается при выключении скрипта
begin
Timer1.Free;
end;
procedure OnTimer;
begin
sendMSGs('Откатился');
Timer1.Enabled := false;
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromServer and (pck[1]=#$48) then
begin
i:=Readd(22);
Timer1.Interval:=i;
Timer1.Enabled:= True;
end;
end.
В скрипте таймер просто не срабатывает, то есть не выполняется procedure OnTimer;, в чем ошибка, кто может помочь?
Добавлено через 12 часов 32 минуты
Вроде разобрался, теперь все работает,еще вопросик появился, а можно как то это сообщение "Откатился" вывести не в системный чат, а предположим в какую то часть окна ла2?