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

[J-Fobos]

integer это тип данных, я не понял вопроса О_о

[Deffol]

ладно забудь

Помоги пожалуйста...
Вот скрипт мой:

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

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

Но когда идет пакет EA, скрипт не останавливается...я не могу понять почему...бьет моба когда тот уже мертв, 2000 раз, лагает из за этого у всех кто рядом стоит)

Добавлено через 5 минут
может вот так надо в конце?

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

[J-Fobos]

Бить будет пока не убьет наверняка
for i:=1 to 2000 do просто 2к раз ударит и все. Как видно из цикла, никакой остановки в нем не предусмотрено. А таймер как я понял не используется, так что его активность не будет влиять на остановку.

[Deffol]

я просто с таймером не разобрался, если вот так сделать, должен же работать?

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

Добавлено через 12 минут
а в процедуре инита, он должен влючен быть или выключен?

Добавлено через 33 минуты
меня постоянно дисконектит...только с отправкой через интежер нормально...
помоги с таймером пожалуйста

//J-Fobos: вот инфа по таймеру, не сдавайся и все получится

Добавлено через 2 часа 50 минут

const
name = 'Destroer';
interval = 100; 
var
Timer01:TTimer;
i:integer;

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


procedure Free;
begin
Timer01.free;
end;

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

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

Этот скрипт у меня получилось включить!!! но выключить не могу при убийстве моба

const
name = 'Destroer'; 
var
Timer01:TTimer;



procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=100;
end;


procedure Free;
begin
Timer01.free;
end;

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

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

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

- это я пробовал с таймером, не получается, куда только не вставлял таймер=тру, и баф=пак

[supernewbie]

const
name = 'Destroer'; 
var
Timer01:TTimer;
MyPck:string; //блеать 1

procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=1000;
end;

procedure Free;
begin
Timer01.destroy;
end;

procedure OnTimer01(Sender: TObject);
begin
buf:=MyPck; //блеать 2
SendToServerEx(name);
end;

begin
if FromClient and (pck[1]=#$23) and (ConnectName=name)  then
begin
MyPck:=pck; //блеать 3
Timer01.enabled:=true;
end;

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

[Deffol]

хех, а я думал, что таймер не правильно засунул) а тут с пакетом косяк

[Deffol]

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

PHP код:

begin
if FromClient and (pck=HStr('Тут будет сам пакет, постоянный') then
begin
buf:=pck;
SendToSever;
pck:='';
buf:=HStr('тут второй пакет')
SendToServer;
pck:='';
end;
end. 


Вот, что тут не так? не могу до ума довести

[J-Fobos]

Вместо SendToServer лучше использовать SendToServerEx;

buf:=pck;
SendToServer;
pck:='';

Что делает такая конструкция?

[Deffol]

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

Что делает такая конструкция?

Елси честно, я не знаю я делаю на примере, вот у меня есть скрипт, на подмену пакетов:

PHP код:

begin
if FromClient and (pck=HStr('C9 57 66 15 02 00 00 00 00 00'))//эмоция гнев
  then 
       begin
            buf:=HStr('67 57 04');//Призрак
                                   
            SendToServer;
            pck:='';  
            
       end;      

     
end. 


То есть, когда приходит этот пакет, юзается другой, вот я и подумал, может сделать так, чтоб когда приходил пакет, юзался он же, и потом еще один!
и смотрел пример с этим:

PHP код:

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


Когда юзается пакет, отправляется он же как я понял этой командой:

PHP код:

MyPck:=pck; 


Но в своем скрипте, решил отправку пакета, который был выше, написать обычно:

PHP код:

buf:=pck; 


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

Добавлено через 20 минут
Я понял, что делает эта конструкция, в общем, buf:=pck; - отправляет пакет который вначале..
SendToServer что означает, я не понял
А pck:=''; означает, что первый пакет не посылается это для подмены скилов, когда юзается один скил, отправляется другой, а чтоб 1й не отправлялся, нужн описать это!
Только теперь я запутался немного

[J-Fobos]

Это хорошо что вы пользуетесь примерами, что умеете их склеить вместе. Но надо еще понимать что из этого получается. Попробуйте ответить на пару вопросов, думаю эти ответы помогут вам
1) Что такое buf? (чем подробнее напишете, тем лучше)
2) Что такое pck?
3) Что будет если pck:=''; ?