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

[BioDread]

както так?)

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;

begin
if FromServer and (pck[1]=#$EA) and (ConnectName=name) then
begin
TimerEnchant.enabled:=false;
end;
end;
end.

EA пакет на смерть моба.

[J-Fobos]

Все верно

Хочу обратить внимание на одну вещь.

procedure enchant;
begin
SendToServerEx(name);
end;

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

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

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

При использовании скилла с работающим скриптом "Соединение с сервером прервано". В чём может быть дело?

[J-Fobos]

Может кикает из за слишком частой отправки пакета? Попробуйте увеличить интервал до 2 сек и проверить скрипт.

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

Неа, не в этом дело. Всё равно дисконект. Может connectname лишнее?

[BioDread]

Отправляю отдельно с частотой 0,1 всё нормально. Может чтото не то на сервер посылается?)
С именем всё норм (Пробовал поставить другое имя то ничего не происходило а как поставил то что в скрипте сразу дисконнект).

[J-Fobos]

Дело не connectname, пока что не знаю в чем причина, правильный скрипт который должен работать. Завтра на свежую голову еще раз все обдумаю и отпишусь.

[BioDread]

Спасибо ещё раз за помощь

Добавлено через 32 минуты
Я пришёл к выводу что buf:=pck; не присваивается и на сервер отсылается пакет толи пустой толи 00 в логе тип 00 а выделить его нельзя. Подскажите как по другому присвоить buf:=pck;

[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(Sender: TObject);
begin
SendToServerEx(name);
end;

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

begin
if FromServer and (pck[1]=#$EA) and (ConnectName=name) then
begin
TimerEnchant.enabled:=false;
end;
end;
end.

[BioDread]

ДА!!!!!!!! РАБОТАЕТ!!!!! Огромное спасибо за помощь!