вызов другого скрипта

[SeregaZ]

читаю описание, которое выскакивает при наведении на скрипт - пишет что это типа порядок в котором скипты будут выполнятся, однако при включении двух сразу - они мешают друг другу :) так и должно быть? я думал пока не выполнится отмеченый выше - тот что ниже будет сидеть и не рыпаца. а тут...

ну и собственно вопрос - можно ли в одном скрипте вызывать другой?

суть идеи - хочу сделать выполнение одного повторяющегося квеста. сперва квест берет, потом топает на место, потом мочит мобов, собирает итемы - как их наберется сколько надо, топает назад, сдает, опять берет и до посинения.

этот квест я сделал из нескольких маленьких скриптиков. один дойти до нпс, второй взять квест, третий отвечает за доставку перса до точки фарма квест-мобов... и так далее. я думал скрипты выполняются по очереди - по высоте по списку - и хотел с последнего скрипта при выходе чтобы вызывался опять первый и все по новой.

[alexteam]

Они и выполняются по очереди.
приходит пакет (от сервера/клиента)
сначала он обрабатываеться первым скриптом в очереди, потом вторым, далее третим и т.д.
и так для каждого пакета.

[SeregaZ]

эм... а я думал что сперва пока exit в первом скрипте не достигнуто, 2 скрипт спит лежит.
фигова... придется все переделывать.

как тогда можно таймер выключить? пример взял с форума, я так понял что таким образом можно запустить паралельные процессы в скрипте. они и заускаются, однако если я буду все в кучу собирать, то нужно будет отключение этого таймера, а то чар будет дергаться на одном месте.
function Wait(var tick: integer;Timewait: Integer): Boolean;

var
t: integer;
begin
result:=false;
t:=Round(Time*86400);
if t>(tick+Timewait) then begin
if tick>0 then result:=true;
tick:=t;
end;
end;

[alexteam]

используй ttimer + case.

пример

var
timer : ttimer;
step : integer;

procedure ontimer(sender:tobject);
begin
inc(step);
case step of
1 :
begin
//отправка к примеру пакета "подойти к нпц"
timer.interval := 5000; //время дающееся на выполнение этого действия
end;
2 :
begin
//диалог с нпц, пакетный уровень.
timer.interval := 2000; //время дающееся на выполнение этого действия
end;
3 :
begin
//добежать до гк
timer.interval := 10000; //время дающееся на выполнение этого действия
end;
4 :
begin
//тпшнутся
timer.interval := 3000; //время дающееся на выполнение этого действия
end;
5 :
begin
//добежать до места где бьются квест итемки
timer.enabled := false;
huntprocedure; //задействовать функцию убивания всегоживого
//после появления в инвентаре требуемых предметов сделать timer.enabled := true;
end;
6 :
begin
//юзаем сое
timer.interval := 10000; //время дающееся на выполнение этого действия
end;
7 :
begin
//бежим, здаем квест
timer.interval := 10000; //время дающееся на выполнение этого действия
end;
8 :
begin
//бежим, в исходную точку
timer.interval := 10000; //время дающееся на выполнение этого действия
end;
9 :
begin
//начинаем все с первого шага
step := 0;
timer.interval := 1;
end;
end;
end;

procedure init;
begin
step := 0;
timer := ttimer.create(nil);
timer.ontimer := @ontimer;
timer.interval := 1000; //через секунду после включения скрипта сработает первая итерация таймера.
timer.enabled := true;
end;


procedure free;
begin
timer.free;
end;

begin
end.

[SeregaZ]

это общий план обьединения скриптов - а как быть с распаралелизацией процессов внутри каждого case? :) опять напорюсь на function Wait - а как она отключается? - ведь её надо будет отключить, когда один case закончится и начнется второй.
и можно ли вместо указания значения задержки таймера управлять началом и завершением case timer.enabled := false; и timer.enabled := true; - как в пятом case?

[alexteam]

да, пример не идеальный. но общая идея таковой и будет.
по поводу отключения таймеров.
отключение таймера есть только в 5м пункте только по тому что ты не можешь сказать точно "каких мобов и с каким обжектайди небе надо бить и как долго это будет происходить" все остальные действия вполне предсказуемы.
реализовать движение в принципе можно такими же кейсами в других таймерах, включая их по требованию и выключая в этот момент основной, и наоборот когда таймер выполняющий движение достиг своего "конца".

паралельно вне таймера в основном теле прийдеться делать инвентаризацию рюкзака, учет нпц и мобов.
в общем прийдеться писать самостоятельного бота, функциями которого (движение, атака и авто подбор лута) будет управлять таймер.