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

[Archibal]

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

написано на коленке.

var
timer:ttimer;

procedure ontimer(sender:tobject);
begin
pck := hstr('packet'); //пакет
sendtoserverex('charname');
end;

procedure init;
begin
timer := ttimer.create(nil);
timer.ontimer := @ontimer;  
timer.interval := 10;  //интервал (ms)
timer.enabled := true;
end;

procedure free;
begin
timer.free;
end;

begin
end.

а если несколько пакетов то надо будет с каждым пакетом добавлять строчку pck := hstr('packet');

[alexteam]

2 строчки.

pck := hstr('packet'); //пакет
sendtoserverex('charname');

это в случае если слать на сервер.
на клиент - использовать sendtoclientex

[Archibal]

спасиб буду тестить

Добавлено через 12 минут
чето не отсылает(... посмотри плз

Добавлено через 2 минуты
и такой вопрос еще он постоянно отсылает? - мне надо чтобы постоянно отсылал.спасиб

[alexteam]

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

[alexteam]

имя соединения это и есть имя чара.
а галочку...
№19.. вот тут... http://l2phx.pp.ru/arhive/l2ph_help/...ge=scripts.htm

[Archibal]

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

имя соединения это и есть имя чара.
а галочку...
№19.. вот тут... http://l2phx.pp.ru/arhive/l2ph_help/...ge=scripts.htm

это я всё делаю но никакой реакции не происходит (

var
timer:ttimer;

procedure ontimer(sender:tobject);
begin
pck := hstr('01 EB 72 10 48 98 AB 00 00 3C C5 00 00 08 F4 FF FF 00 '); //пакет
sendtoserverex('zzzzzzzz');
end;

procedure init;
begin
timer := ttimer.create(nil);
timer.ontimer := @ontimer;  
timer.interval := 10;  //интервал (ms)
timer.enabled := true;
end;

procedure free;
begin
timer.free;
end;

begin
end.

вот пакет атаки и ничего ( как и с люб другими (

[alexteam]

Archibal, пакет атаки ? мляяять !! учим матчасть!!

[Archibal]

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

Archibal, пакет атаки ? мляяять !! учим матчасть!!

Та слуш у меня да - я не стандарт беру а то что l2ph показывает и на этот раз
Tèï: 0x01 (AttackRequest)
Pàçìåð: 18+2
Âðåìÿ ïðèõîäà: 12:03:08:578
0002 d ObjectID: 1209037642 (0x4810734A)
0006 d OrigX: 43880 (0x0000AB68)
000A d OrigY: 50510 (0x0000C54E)
000E d OrigZ: -3064 (0xFFFFF408)
0012 c AttackID: 0 (0x00)

такой пакет 01 4A 73 10 48 68 AB 00 00 4E C5 00 00 08 F4 FF FF 00

но фишка в том что если просто в посылку его поставить и включить то он таки атакует нпс а через скрипт нет HELP me мож чето не так в скрипте ? ты сам его проверял на деле?

[Stasrus]

var
 tick: Integer;

procedure Init;
begin
end;
function Pause(Timewait: Integer):Boolean;

  var
    t : integer;
  begin
    result := false;
    t := Round(Time*86400);
    if  t > (tick + Timewait) then
      begin
        tick := t;
        result := true;
      end;
  end;
  begin
if   pause(1) then
          begin
                buf:=hstr('packet');
SendToServerEx('name');
          end;
          end.

Попробуй так
только измени packet, name

[Katena]

всем привет..подскажите почему у меня выкидывает клиент...ну тоесть запускаю програму...патом клиент ...програма тока находит l2.exe и сразу клиент выкидывает типа прервано соединение? что может блокировать?