PDA

Просмотр полной версии : Подскажите где ошибка в скрипте


^Я Русский^
11.01.2013, 21:11
Запустил скрипт а сдачу манора - в момент начала олимпиады - пришло сообщение что время пошло - но не пришло сообщения что время вышло и манор не сдался. Вот скрипт


var
PaketManora: string;

timer1: TTimer;
StartTime: TDateTime;
EndTime: TDateTime;


x:integer;

procedure Init;
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer;
timer1.enabled:=false;
timer1.interval:=300;

x:=0;
end;

procedure Free;
begin
timer1.Free;
end;


procedure OnTimer(Sender: TObject);
begin
if (time >= EndTime) and (x<11) then
begin
buf:=hstr('4A AB F6 A0 48 02 00 00 00 2D 00 3E 00 56 00 4F 00 52 00 4F 00 4E 00 37 00 00 00 3F 04 3E 04 3F 04 4B 04 42 04 3A 04 30 04 20 00 41 04 34 04 30 04 42 04 4C 04 00 00');
SendToClient;
buf:=PaketManora;
SendToServer;
x:=x+1;
end;
end;


begin
if FromClient and (pck[1]=#$D0) and (pck[2]=#$09) and (pck[3]=#$00) then
begin
PaketManora:=pck;
end;

if FromServer and (pck[1]=#$64) and (pck[2]=#$69) and (pck[3]=#$06) then
begin
StartTime:=time;
EndTime:=StartTime + EncodeTime(0,5,52,0);
timer1.enabled:=true;
buf:=hstr('4A AB F6 A0 48 02 00 00 00 2D 00 3E 00 56 00 4F 00 52 00 4F 00 4E 00 37 00 00 00 32 04 40 04 35 04 3C 04 4F 04 20 00 3F 04 3E 04 48 04 3B 04 3E 04 00 00');
SendToClient;
end;
end.


Отладчик ошибок не видит.

Возможно ошибка в моих действиях:
1. Запустил l2phx
2. Запустил клиент
(все через вертуальную машину - проксирование (proxifier), проксисервер (ccproxy), в l2phx указал в качестве бота - ccproxy)
3. После сообщения время пошло, выбрал нужные мне семена и города и нажал кнопку - купить
Получил сообщение что еще рано и ждал.

goodvin1709
12.01.2013, 19:46
делай как я
Брал пока 18.00-18.01 пробовал сам сдать манор какой у меня есть,приходило сообщение о том что еще манор не работает,сразу же записывался этот пакет на сдачу.
Потом социальным действием включал таймер за 1 минуту до сдачи с интервалом 100 мс(спамить этим пакетом) и тупо ждал.Когда манор сдасться потом же другой социалкой отключал таймер.(думал сделать через приход пакета InventoryUpdate)
Очень класно работало.95% сдач были удачными.