Кружок нубов(Вопрос-Ответ)

[nosfirel]

помогите, не ставится галочка в лсп перехват

[Breadfan]

проверь путь и имя нужной библиотеки

[Grom]

помогите

[semiromid]

Здравствуйте! Он работает на хрониках Etheria?

[Александр Клиндухов]

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

[kpa9pt]

Сообщение от Александр Клиндухов

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

В чём помочь? весь скрипт написать это не помощь в реализации скрипта, это тупо его написать?
Начнём с begin end. дальше справишься?

[Александр Клиндухов]

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

[kpa9pt]

Сообщение от Александр Клиндухов

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

PHP код:

packet1='пакет соц действия';
packet2='пакет действия';

if fromclient and (pck=packet1) then 
 begin
    buf:=hstr(packet2);
    sendtoserver;
 end; 


[Breadfan]

топорно как-то так вроде бы:

Оффтоп

PHP код:

const
name='';
var
Cycl:Ttimer;
procedure Init; //Вызывается при включении скрипта
begin
k:=1;
Cycl:=TTimer.Create(nil);
Cycl.OnTimer:=@NextStep;
Cycl.enabled:=false;
Cycl.interval:=2000;
end;

Procedure NextStep;
begin
    case k of
        3:begin
                Buf:=четотамэтакое3;
                Sendtoserverex(name); 
                Cycl.enabled:=False;
                inc(k);
            end; 
        2:begin
                Buf:=четотамэтакое2;
                Sendtoserverex(name);
                inc(k);
            end;
        1:begin
                buf:=четотамэтакое1;     
                Sendtoserverex(name);
                inc(k);
            end;
    end;
           if (k=4) then k:=1;
end;

procedure Free; //Вызывается при выключении скрипта
begin
 Cycl.enabled:=false;
 Cycl.free
end;

begin
     If FromClient and (connectname=name) and (pck[1]=соц действие) then begin
        Cycl.enabled:=True;
    end;
end.
//листинг - не проверял. 


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

[SeregaZ]

Cycl.interval:=2000; - выставление таймера будет тикать раз в 2 секунды
Cycl.enabled:=True; - запуск таймера. в данном случае запуск происходит когда сообщение пришло от клиента - FromClient, когда персонаж в этом клиенте имеет определенное имя - connectname=name, и когда пришедший пакет является пакетом вызова социального действия, например в ладоши похлопать или поплакать гномкой - pck[1]=соц действие - ясно что вместо слова соц действие должна быть цифровая абракадабра - пакет, который вызывает это соц действие. смотреть такой пакет следует в логах л2пх в момент когда раз 10 жмешь кнопку этого самого соц действия типа поклон или когда черный эльф зигу кидает.
name=''; и Sendtoserverex(name); - указание ника персонажа, например name='Vasiya'; и в дальнейшем скрипт будет слать пакеты Sendtoserverex конкретно для Васи. (это на случай если у тебя 2-3 персонажа запущены одновременно, чтобы л2пх не парился какому именно персонажу слать данный пакет)
четотамэтакое1 - и далее всего три пакета и есть те твои пакеты, которые тебе надо вставить в свой валшебный на всю голову скрипт