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

[Deffol]

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

раньше вы готовый скрипт просили. А все подсказки имеются на форуме

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

//J-Fobos: никто вместо вас не выучит табличку умножения. К сожалению, иногда, чтобы заставить человека взяться за удочку и самому научится ловить рыбу приходится ставить его в глухой угол. Может это не лучший метод, но он действует. Все начинают с нуля, главное не сдаваться и все получится.

[vex2865]

что может быть не так со скриптом

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.

когда юзаю скил сумона приходит пакет 23, но он не повторяется, вместо этого отправляет пакет 00 и дисконектит

подскажите в чем может быть ошибка

[supernewbie]

создай переменную для пакета, записывай его туда и в таймере равняй buf на него и отсылай

[J-Fobos]

Ошибка в том, что в процедуру еnchant не передается значение переменной buf. Есть 2 варианта:
1) придумал supernewbie: ввести дополнительную глобальную переменную и использовать ее для передачи значения.
2) использовать ссылку на объект вызывающий процедуру Sender: TObject

[vex2865]

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

Ошибка в том, что в процедуру еnchant не передается значение переменной buf. Есть 2 варианта:
1) придумал supernewbie: ввести дополнительную глобальную переменную и использовать ее для передачи значения.
2) использовать ссылку на объект вызывающий процедуру Sender: TObject

даже если так

procedure enchant(Sender: TObject);
begin
SendToServerEx(name);
end;

всё равно дисконектит((

//J-Fobos: procedure enchant(Sender: TObject) и делает такая конструкция?

[supernewbie]

мой спосаб 100500 робит

[vex2865]

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

даже если так

procedure enchant(Sender: TObject);
begin
SendToServerEx(name);
end;

всё равно дисконектит((

//J-Fobos: procedure enchant(Sender: TObject) и делает такая конструкция?

подскажите че мне еще исправить чтоб не дисконектило.
может проблема в (ConnectName=name) ?

[supernewbie]

var
s:string;

pck:=s;

s:=buf;

догадайся что куда

[vex2865]

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

var
s:string;

pck:=s;

s:=buf;

догадайся что куда

получается так? если так, то все равно что-то не так, всё равно дисконект((

const
name = 'IhelpYou';
interval = 10; //в мс
var
TimerEnchant:TTimer;
s:string;


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


procedure Free;
begin
TimerEnchant.free;
end;

procedure enchant;
begin
s:=buf;
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.

[supernewbie]

*ля!

buf:=pck; замени на s:=pck; епт