Здраствуйте уважаемие посетители етой теми, кто может помогите написать скрипт такого примера:
Персонаж идет на определенное место, юзает кнопочку, берет в таргет то што появилось, отходит, юзает кнопочку опять отходит, таким образом пока не перейдет до определенних координат(пакетов), потом возвращаетса на место и опять виполняетса скрипт.
Как я понял тут лучше делать таймер с задержкой тоесть пока чар добежит и т.д, но интересно можна ли сделать проверку пришел ли он на определенное место если нет опять перейти(отправить пакет места), если да то продолжать.
вот попробовал такое:
Код:
const
name = 'name';
var
timer:TTimer;
TimerStep:byte;
procedure Init;
begin
TimerStep:=1;
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
timer.interval:=70000; //âðåìÿ çàäåðæêè ìåæäó îòïðàâêîé ïàêåòîâ.
end;
procedure Free;
begin
timer.free;
end;
procedure OnTimer;
begin
case TimerStep of
1:
begin
timer.interval:=600;
buf:=Hstr('19 98 C4 6B 40 00 00 00 00 ');
SendToServerEx(name);
// SendMsg('1');
Inc(TimerStep);
end;
2:
begin
buf:=Hstr('1F D0 8A 10 4B 34 A2 00 00 56 C9 00 00 37 F1 FF FF 00 ');
SendToServerEx(name);
// SendMsg('2');
Inc(TimerStep);
end;
3:
begin
buf:=Hstr('0F D9 A1 00 00 8D C9 00 00 55 F1 FF FF 34 A2 00 00 56 C9 00 00 37 F1 FF FF 01 00 00 00 ');
SendToServerEx(name);
// SendMsg('3');
TimerStep:=1;
timer.enabled:=false;
timer.interval:=6000000; //60000 ìñ = 1 ìèíóòà
end;
end;
end;
begin
timer.enabled:=true;
end.
сложил со скрипта на форуме, прога виснет сразу и появляетса безконечное число ошибок хз в чем проблема, как я понял оно не может скока раз виполнить или как то так, тоесть скрипт не имеет конца, пакети подставил свои.
Подскажите пож кому не сложно, в чем проблема.
П.с name ставил свое, клент GOD