[Информация] Скриптинг или от новичка к профи

[happytorn]

Если на сервере 2.6 пакеты то как-то
так

Цитата: const name = 'borrow'; //тут логин var Timer:TTimer; TimerStep:integer; TargetID:integer; StartSkill:word; procedure DoTheSkill(SkillID:word; Level:byte); begin buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00'); WriteH(SkillID, 4); WriteC(Level, 6); WriteD(TargetID, 8); SendToServerEx(name); end; procedure Init; begin TimerStep:=1; Timer:=TTimer.Create(nil); Timer.OnTimer:=@OnTimer; Timer.enabled:=false; Timer.interval:=300; end; procedure Free; begin Timer.free; end; procedure OnTimer(Sender: TObject); begin case TimerStep of 1: begin DoTheSkill(1990,1); Inc(TimerStep); end; 2: begin DoTheSkill(839,1); Timer.enabled:=false; //выключаем таймер Inc(TimerStep); TimerStep:=1; //Переходим на первый шаг end; end; end; begin StartSkill := 1987; if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then begin TargetID := ReadD(8); Timer.enabled:=true; end; end.

[/\0/\]

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

[happytorn]

Цитата: Сообщение от /\0/\ спасибо, сделал беспалевный скрипт на сина, а как сделать чтобы при тп перс появлялся в воздухе? чтобы можно было парировать куда хочешь.

C2 00 57 61 FF 04 CC DB A7 44 A4 20 F9 44 00 80 2A 42 36
04 нужно поменять на что-то,что бы перс не садился.Хз на что менять,над тестить.
00 80 2A 42-координаты по высоте.Меняем на нужные нам.

[syler1993]

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C B2 00 06 00 24 AB 00 00 F4 01 F9 AB 00 00');
WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 10);
SendToServer;
end;

begin
StartSkill := 178;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);

DoTheSkill(515, 9);
DoTheSkill(427, 9);
DoTheSkill(177, 2);
DoTheSkill(545, 4);
DoTheSkill(412, 1);
DoTheSkill(465, 1);
DoTheSkill(505, 6);
DoTheSkill(510, 6);
DoTheSkill(2271, 1);
DoTheSkill(529, 4);
DoTheSkill(157, 5);
DoTheSkill(405, 1);
DoTheSkill(529, 4);
DoTheSkill(509, 9);
DoTheSkill(449, 3);
DoTheSkill(410, 1);
end;
end.


Здравствуйте, попробовал сам склепать скриптик на автоатаку всеми боевыми скилами Стража 45 лвл на "нюшке"
Скрипт не работает не могу найти ошибку...
Особенно непонятно где берутся следующие значения :
WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 10);
Помогите разобраться .

[Abensur]

Цитата: Сообщение от syler1993 Здравствуйте, попробовал сам склепать скриптик на автоатаку всеми боевыми скилами Стража 45 лвл на "нюшке" Скрипт не работает не могу найти ошибку... Особенно непонятно где берутся следующие значения : WriteH(SkillID, 6); WriteC(Level, 8); WriteD(TargetID, 10); Помогите разобраться .

в этом скрипте все скилы которые ты указал будут вылетать за 1ну сек, в пвп тебя сразу спалят и забанят... но если так хочешь вот

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 178;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(515, 9);
DoTheSkill(427, 9);
DoTheSkill(177, 2);
DoTheSkill(545, 4);
DoTheSkill(412, 1);
DoTheSkill(465, 1);
DoTheSkill(505, 6);
DoTheSkill(510, 6);
DoTheSkill(2271, 1);
DoTheSkill(529, 4);
DoTheSkill(157, 5);
DoTheSkill(405, 1);
DoTheSkill(529, 4);
DoTheSkill(509, 9);
DoTheSkill(449, 3);
DoTheSkill(410, 1);
end;
end

[syler1993]

Благодарочка все работает!
По поводу задержки скилов...мне скрипт нужен исключительно для РБ-боссов,ведь пвп я вижу Более интересным когда оно "честное".
Ещё мне непонятные пару вещей:

buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00'); -Этот пакет мы ловим когда юзаем скил (я так понимаю)

WriteH(SkillID, 4);
WriteC(Level, 6); Это мне до сих пор не понятно... .
WriteD(TargetID, 8);
begin
StartSkill := 178;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

Хотелось бы не быть нубом и самому понимать что к чему)
Как наберу 10 сообщений поставлю обязательно спасибо!

[happytorn]

Цитата: Сообщение от syler1993 Хотелось бы не быть нубом и самому понимать что к чему) Как наберу 10 сообщений поставлю обязательно спасибо!

CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00 это пакет из которого мы "стряпаем" (подставляем в него ID скила, ID таргета, Уровень скила)
WriteH(SkillID, 4); //пишем ID скила(заменяем 2 байта,начиная с четвертого)
WriteC(Level, 6); //пишем уровень скила(заменяем 1 байт,шестой по счету)
WriteD(TargetID, 8); //пишем ID таргета (заменяем 4 байта,начиная с восьмого)

[Levapishe]

Кстати - данная строчка WriteD(TargetID, 8); //пишем ID таргета (заменяем 4 байта,начиная с восьмого), как и сама переменная TargetID - вещь ненужная. в своих скриптах на скиллы я ее игнорирую - что на результате не сказывается. Ведь когда мы жмем активатор скилла - у нас уже в таргете есть "кто-то".

[Abensur]

чёт всё равно скрипт не работает(( подскажите плиз где ошибка?

const
name = 'nnn';       //тут логин
var
Timer:TTimer;
TimerStep:integer;
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServerEx(name);
end;
      

   procedure Init;
       begin
            TimerStep:=1;               
            Timer:=TTimer.Create(nil);   
            Timer.OnTimer:=@OnTimer;    
            Timer.enabled:=false;        
            Timer.interval:=800;        
       end;

   procedure Free;
       begin
            Timer.free;
       end;

   procedure OnTimer(Sender: TObject);
     
    begin
         
      case TimerStep of
               1:
                  begin
                       DoTheSkill(1990,1);
                       Inc(TimerStep);
                  end;
               2:
                  begin
                       DoTheSkill(839,1);
                       Timer.enabled:=false;
                       Inc(TimerStep);
                       TimerStep:=1;               
                  end;
      end;                                                         
    end;
      
      begin

            StartSkill := 1987;
                   if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
                   
        begin
             TargetID := ReadD(8);
             Timer.enabled:=true;
        end;
 end.

[happytorn]

Цитата: Сообщение от Abensur чёт всё равно скрипт не работает(( подскажите плиз где ошибка?

Или у тебя пакеты 2.7 на сервере или старая версия l2ph.Можешь написать мне в личку или скайп, найдем траблу.

[strepsil]

Цитата: C2 00 57 61 FF 04 CC DB A7 44 A4 20 F9 44 00 80 2A 42 36

Из чего этот пакет взял, из обычного возвращения?

[happytorn]

Цитата: Сообщение от strepsil Из чего этот пакет взял, из обычного возвращения?

http://zhyk.ru/forum/showthread.php?t=359114

[world.ru]

Цитата: Сообщение от happytorn WriteH(SkillID, 4); //пишем ID скила(заменяем 2 байта,начиная с четвертого) WriteC(Level, 6); //пишем уровень скила(заменяем 1 байт,шестой по счету) WriteD(TargetID, 8); //пишем ID таргета (заменяем 4 байта,начиная с восьмого)

Если честно , то не понял про байты

[happytorn]

Цитата: Сообщение от world.ru Если честно , то не понял про байты

CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00 это пакет из которого мы "стряпаем" (подставляем в него ID скила, ID таргета, Уровень скила)
WriteH(SkillID, 4); //пишем ID скила(заменяем 2 байта,начиная с четвертого) то есть CC CC меняем на наш ID
WriteC(Level, 6); //пишем уровень скила(заменяем 1 байт,шестой по счету) т.е. DD меняем на наш ур. скила
WriteD(TargetID, 8); //пишем ID таргета (заменяем 4 байта,начиная с восьмого) т.е. FF FF FF FF меняем на наш ID

Все это находится в теле процедуры и менять здесь ничего не нужно. И если вы не имеете представления о том что такое процедура и как она вызывается, то можно просто упустить эту часть.

[world.ru]

Цитата: const name = 'borrow'; //имя соединения var Timer:TTimer; TimerStep:integer; TargetID:integer; StartSkill:word; procedure DoTheSkill(SkillID:word; Level:byte); //Формируем пакет нового скила begin buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00'); //Начальный пакет на скил WriteH(SkillID, 4); //Вставляем в начальный пакет ID скила WriteC(Level, 6); //Всталяем в начальный пакет уровень скила WriteD(TargetID, 8); //Вставляем в начальный пакет ID таргета SendToServerEx(name); end; procedure Init; begin TimerStep:=1; //Шаг Timer:=TTimer.Create(nil); //выделяем память Timer.OnTimer:=@OnTimer; //привязываем процедуру к событию Timer.enabled:=false; //начальное положение выключен(false) Timer.interval:=300; //интервал(в миллисекундах) как часто таймер срабатывает end;

Блин не знаю где ошибка.Все перечитал- нифига. Вот как посмотрел темку решил со всеми скриптами разобраться.И когда я захожу при этих значениях, юзаю активацию и тогда вылет из серва