Будьте любезны, помогите со скриптом.

[ПомогитеПожалуйста]

Сообщение от J-Fobos

Только пакеты у вас разные почему-то) У дреда 23, а у помогите CF

Два разных примера. 23 - это нужное нам действие. А CF - это я юзанул рандомный скилл. Не было возможности 23 юзать.

[J-Fobos]

Сообщение от BioDread

В аионе всё не так просто там не считываются имена чаров.
Тоесть получится SendToServerEx(name); изменить на
SendToServerEx; или SendToServer; ?
И ещё у меня получается не FromServer а FromClient это ж ничего не меняет?

В данном случаи FromClient будет правильно, я просто скопировал и не обратил внимания, хорошо что вы поправили )
А вот использование SendToServerEx крайне желательно. На вкладке "выполнить" (в главном окне, там где список пакетов и оправка пакетов) запустите на выполнение следующий скрипт:

begin
SetName('asdasd')
end.

Он задаст нужное имя для соединения и можно будет использовать функцию SendToServerEx. Скрипт надо будет выполнять при каждом открытии соединения.

[BioDread]

А можно по такому способу?
begin
if FromClient and (pck[1]=#$23) and (ConnectName=name) then
for i:=1 to 50 do
buf:=pck;
SendToServerEx(name);

end;
end.
Так думаю будет лучше ибо в нашем случае чем быстрее будут посылатся пакеты тем лучше
Имя я укажу.

Кстати А можно сделать так чтобы пакеты посылались очень быстро до получения пакета на клиент "Моб умер"?

[J-Fobos]

Циклом будет проще, но не лучше. Задержки между отправкой пакетов не будет, скорее всего чар будет кикнут за спам пакетами, в линейдже на некоторых серверах за такое банят.

[ПомогитеПожалуйста]

Нет, в айоне не кикнут. Мы-же тестили это просто пакетами, с минимальным таймером, без скрипта. Скрипт нужен для автоматизации. Поэтому чем быстрее - тем лучше.

[J-Fobos]

Быстрее всего будет так, но все же я считаю что лучше организовать таймер с небольшой задержкой

begin 
if FromClient and (pck[1]=#$23) and (ConnectName=name) then
begin
buf:=pck;
for i:=1 to 50 do
SendToServerEx(name);
end;
end.

[ПомогитеПожалуйста]

А можно пожалуйста немного больше информации про таймер? В частности, можно-ли сделать так, что после смерти моба таймер обнулялся? Иначе придётся ждать, пока все пакеты будут отправлены.

[J-Fobos]

http://coderx.ru/showpost.php?p=30293&postcount=404
Если полазить по форуму можно найти много примеров

[BioDread]

Ну вот чтото получилось только не знаем как его запустить при условии (pck[1]=#$23) и остановить при условии pck[1]=#$xx) (xx-тип пакета на смерть моба)
куда вставлять условие? "if FromClient and (pck[1]=#$23) and (ConnectName='name') then"


const
name = 'IhelpYou';
interval = 100; //в мс
var
TimerEnchant:TTimer;



procedure Init;
begin
TimerEnchant:=TTimer.Create(nil);
TimerEnchant.OnTimer:=@enchant;
TimerEnchant.enabled:=true;
TimerEnchant.interval:=interval;
end;


procedure Free;
begin
TimerEnchant.free;
end;

procedure enchant;
begin
buf:=pck;
SendToServerEx(name);
end;

begin
end.

[J-Fobos]

Ну вот, все правильно сделали, молодцы. С включением будет выглядить так:

const
name = 'IhelpYou';
interval = 100; //в мс
var
TimerEnchant:TTimer;



procedure Init;
begin
TimerEnchant:=TTimer.Create(nil);
TimerEnchant.OnTimer:=@enchant;
TimerEnchant.enabled:=false;
TimerEnchant.interval:=interval;
end;


procedure Free;
begin
TimerEnchant.free;
end;

procedure enchant;
begin
SendToServerEx(name);
end;

begin
if FromClient and (pck[1]=#$23) and (ConnectName=name) then
begin
buf:=pck;
TimerEnchant.enabled:=true;
end;

end.

Ну а выключение я думаю сумеете дописать