Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Войти через OpenID

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 06.04.2008, 23:57   #1
Новичок
 
Аватар для Alan
 
Регистрация: 11.10.2007
Адрес: Питер
Сообщений: 13
Сказал Спасибо: 261
Имеет 0 спасибок в 0 сообщенях
Alan
По умолчанию Автобафер PP+SE

Вот слямдил идею навено у -=mks=- решил создать авто бафера. Задача у него за разные суммы кидать разные бафы, те зок воин, 25 лучнег, 20 маг. так вот это я осилил(в скрипте тока на 30 пока прописал, дальше не делал уперся в пару вопросов). вопрос как сделать что бы он кидал после трейда патю. 29 пакет крутил и так и сяк 8)
после бафа выходил из пати, ну и ессно не бежал за ним дальше, решить это наверное можно кидать таргет на сешку что рядом будет стоять. Вопрос второй как бы прикрутить, те к сумме например 30к чтобы сешка кидала вампирик, на 20 вилд и эмпавер. И уже из области фантастики заливала манку пп.

зы
Этот скрипт работает криво, бафает как хочет 8) те я тестил тока первую часть на 30к (тк бафы прописал тока там, остальные не правил пока)те криво, он может кидать в разном порядке и не всегда кидает все бафы.
понятное дело что тут ошибки, профи прошу подправить, подсказать идею как осуществить мою задумку. Пасибо за внимание..........

delphi Код:
//by mks //Бот баффер PP, баффает за 30-20к const //баффы b1='2F 10 04 00 00 00 00 00 00 00';    // Shield b2='2F 26 04 00 00 00 00 00 00 00';    // Berserker Spirit b3='2F 3D 04 00 00 00 00 00 00 00';    // Acumen b4='2F B4 04 00 00 00 00 00 00 00';    // Wind Walk b5='2F 36 04 00 00 00 00 00 00 00';    // Concentration b6='2F 15 04 00 00 00 00 00 00 00';    // Bless the Body b7='2F 18 04 00 00 00 00 00 00 00';    // Bless the Soul b8='2F 14 04 00 00 00 00 00 00 00';    // Regeneration b9='2F 0B 04 00 00 00 00 00 00 00'//  ментал b10='2F 35 04 00 00 00 00 00 00 00'//  фокус b11='2F 36 04 00 00 00 00 00 00 00'//  кон b12='2F A7 04 00 00 00 00 00 00 00'//  резист к огню b13='2F 14 04 00 00 00 00 00 00 00'//  ХП реген b14='2F 0C 04 00 00 00 00 00 00 00'//  маджик барьер b15='2F 6C 05 00 00 00 00 00 00 00'//  гритер ПА b16='2F DA 04 00 00 00 00 00 00 00'//  деф виспер b17='2F D8 04 00 00 00 00 00 00 00'//  гвиданс var Target: string; prof,x,z,y: integer; timer1: TTimer; procedure Init; begin timer1:=TTimer.Create(nil); timer1.OnTimer:=@OnTimer; timer1.enabled:=true; timer1.interval:=3500; end; procedure OnTimer(Sender: TObject); begin case x of 1: begin     buf:=hstr(b1);     sendtoserver;     x:=x+1;     end; 2: begin     buf:=hstr(b2);     sendtoserver;     x:=x+1;     end; 3: begin     buf:=hstr(b3);     sendtoserver;     x:=x+1;     end; 4: begin     buf:=hstr(b4);     sendtoserver;     x:=x+1;     end; 5: begin     buf:=hstr(b5);     sendtoserver;     x:=x+1;     end; 6: begin     buf:=hstr(b6);     sendtoserver;     x:=x+1;     end; 7: begin     buf:=hstr(b7);     sendtoserver;     x:=x+1;     end;4: begin     buf:=hstr(b4);     sendtoserver;     x:=x+1;     end; 8: begin     buf:=hstr(b8);     sendtoserver;     x:=x+1;     end; 9: begin     buf:=hstr(b9);     sendtoserver;     x:=x+1;     end; 10: begin     buf:=hstr(b10);     sendtoserver;     x:=x+1;     end; 11: begin     buf:=hstr(b11);     sendtoserver;     x:=x+1;     end; 12: begin     buf:=hstr(b12);     sendtoserver;     x:=x+1;     end; 13: begin     buf:=hstr(b13);     sendtoserver;     x:=x+1;     end; 14: begin     buf:=hstr(b14);     sendtoserver;     x:=x+1;     end; 15: begin     buf:=hstr(b15);     sendtoserver;     x:=x+1;     end; 16: begin     buf:=hstr(b16);     sendtoserver;     x:=x+1;     end; 17: begin     buf:=hstr(b17);     sendtoserver;     x:=0;     end;     end; begin case z of 1: begin     buf:=hstr(b5);     sendtoserver;     z:=z+1;     end; 2: begin     buf:=hstr(b6);     sendtoserver;     z:=z+1;     end; 3: begin     buf:=hstr(b7);     sendtoserver;     z:=z+1;     end; 4: begin     buf:=hstr(b8);     sendtoserver;     z:=0;     end;      end;      begin case y of 1: begin     buf:=hstr(b1);     sendtoserver;     y:=y+1;     end; 2: begin     buf:=hstr(b2);     sendtoserver;     y:=y+1;     end; 3: begin     buf:=hstr(b3);     sendtoserver;     y:=y+1;     end; 4: begin     buf:=hstr(b4);     sendtoserver;     y:=0;     end;      end;       end; end; end; procedure Free; begin timer1.Free; end; /////////////////////////////////////////////////////////////////// begin    if FromServer and (pck[1]=#$5E) and (x=0) then //подкорректил немного, что б бот не принимал трэйд когда кого-то уже баффает 06.08.07       begin         Target:=#$04+pck[2]+pck[3]+pck[4]+pck[5];         buf:=hstr('44 01 00 00 00');         sendtoserver;  //если кидают трэйд, то принимать    end;       if fromclient and (pck[1]=#$44) then pck:=''; {клиент почему-то иногда автоматом отылает кэнсл трэйд, поэтому убиватю этот пакет}    if fromserver and (pck[1]=#$21) then       begin         if pck[14]+pck[15]=#$30#$75  then {если в трэйд положили 30к}              begin              buf:=hstr('17 01 00 00 00');//подтвердить трэйд              prof:=1;              end;         if pck[14]+pck[15]=#$A8#$61  then {если в трэйд положили 25к}              begin              buf:=hstr('17 01 00 00 00');//подтвердить трэйд              prof:=2;              end;         if pck[14]+pck[15]=#$20#$4E  then {если в трэйд положили 20к}              begin              buf:=hstr('17 01 00 00 00');//подтвердить трэйд              prof:=3;              end;         if prof=0 then buf:=hstr('17 00 00 00 00');//отмена трэйда       sendtoserver;    end;    if FromServer and (pck[1]+pck[2]=#$22#$01) then      begin       buf:=target;       sendtoserver;     if prof=1 then     begin       x:=1;       prof:=0;     end;     if prof=2 then     begin       z:=1;       prof:=0;     end;     if prof=3 then     begin       y:=1;       prof:=0;     end;  end; end.

Последний раз редактировалось NLObP, 07.05.2008 в 01:44. Причина: вставил тэги [HIGHLIGHT="delphi"] ... [/HIGHLIGHT]
Alan вне форума   Ответить с цитированием
Старый 10.04.2008, 01:05   #2
Новичок
 
Аватар для Alan
 
Регистрация: 11.10.2007
Адрес: Питер
Сообщений: 13
Сказал Спасибо: 261
Имеет 0 спасибок в 0 сообщенях
Alan
По умолчанию 8)

8)ап........ подскажите как организовать патю после трейда, остальное сделал, вроде работает...... кой чего подправил...... хотя еще с сешкой не решил вопрос.. 8)
Alan вне форума   Ответить с цитированием
Старый 10.04.2008, 08:53   #3
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Перенесено в "Скриптинг".
З.Ы. Чувак, юзай теги [ code ] [/ code ] без пробелов).
QaK вне форума   Ответить с цитированием
Старый 10.04.2008, 10:29   #4
Новичок
 
Аватар для Alan
 
Регистрация: 11.10.2007
Адрес: Питер
Сообщений: 13
Сказал Спасибо: 261
Имеет 0 спасибок в 0 сообщенях
Alan
По умолчанию

пасибо, красиво оформил......... :)
Alan вне форума   Ответить с цитированием
Старый 10.04.2008, 17:40   #5
Местный
 
Аватар для PanAm
 
Регистрация: 18.01.2008
Сообщений: 286
Сказал Спасибо: 24
Имеет 133 спасибок в 80 сообщенях
PanAm
По умолчанию

уже насколько раз писал....
и до сих пор не понял одной вещи.
зачем брать в пати при бафе? ПП и СЕ не варк, и в оффпати набафают.

Добавлено спустя 1 минуту 32 секунды:
а даже если в пати, то легко узнать профы сопартийцев, и легко написать каму что бафать.
PanAm вне форума   Ответить с цитированием
Старый 10.04.2008, 17:46   #6
Гость
 
Сообщений: n/a
По умолчанию

пати нужно для берса.
  Ответить с цитированием
Старый 10.04.2008, 19:07   #7
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от Bash1k
пати нужно для берса.
это еще почему?
QaK вне форума   Ответить с цитированием
Старый 11.04.2008, 08:17   #8
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

Цитата:
Сообщение от lQaKl
это еще почему?
потому что это факт с с5 нужен пати что кинуть берс или холивеапон, а то для пп на олимпе вообзе сказка на тока кидаешь берс и холи веапон а себе сетлый щит :) и дамаг падает по тебе
Grinch вне форума   Ответить с цитированием
Старый 29.04.2008, 12:46   #9
Местный
 
Аватар для Breadfan
 
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
Breadfan пока неопределено
Вопрос Проба автоПП

Вот тоже попытался коечто слямзить и добавить но....как говорится "дело было не в машине.." вот оно:
delphi Код:
//основа by mks //Бот баффер ПП, должен бафать за 100к и 150к const //баффы 3й профы bufer='хххххххх'; b1='2F 0B 04 00 00 00 00 00 00 00 ';    //mental shield b2='2F 0C 04 00 00 00 00 00 00 00 ';    //magic barrier b3='2F 10 04 00 00 00 00 00 00 00 ';    // shield b4='2F 14 04 00 00 00 00 00 00 00 ';    //  regeneration b5='2F 15 04 00 00 00 00 00 00 00 ';    //  bless body b6='2F 18 04 00 00 00 00 00 00 00 ';    //bless soul b7='2F 2c 04 00 00 00 00 00 00 00 ';    //might b8='2F 35 04 00 00 00 00 00 00 00 ';    //focus b9='2F d8 04 00 00 00 00 00 00 00 ';    //guidance b11='2F 3e 04 00 00 00 00 00 00 00 ';   //haste b10='2F B4 04 00 00 00 00 00 00 00 '// Wind walk b12='2F da 04 00 00 00 00 00 00 00 ';   //death wisper b13='2F 26 04 00 00 00 00 00 00 00 '; //berserk spirit b14='2F 3d 04 00 00 00 00 00 00 00 '; //acumen b15='2F 36 04 00 00 00 00 00 00 00 '; //concentration b16='2F db 04 00 00 00 00 00 00 00 '; //bless shield var Target: string; prof,x: integer; timer1: TTimer; procedure Init; begin timer1:=TTimer.Create(nil); timer1.OnTimer:=@OnTimer; timer1.enabled:=true; timer1.interval:=2500; x:=0 end; procedure OnTimer(Sender: TObject); begin  case x of    1: begin       buf:=hstr(b1);       SendToServerEx(bufer);       x:=x+1;    end;    2: begin       buf:=hstr(b2);       SendToServerEx(bufer);       x:=x+1;    end;    3: begin       buf:=hstr(b3);       SendToServerEx(bufer);       x:=x+1;    end;    4: begin       buf:=hstr(b4);       SendToServerEx(bufer);       x:=x+1;    end;    5: begin       buf:=hstr(b5);       SendToServerEx(bufer);       x:=x+1;    end;    6: begin       buf:=hstr(b6);       SendToServerEx(bufer);       x:=x+1;    end;    7: begin       if (prof=1) then begin buf:=hstr(b7); SendToServerEx(bufer); end;       x:=x+1;    end;    8: begin       buf:=hstr(b8);       SendToServerEx(bufer);       x:=x+1;    end;    9: begin       if (prof=1) then begin buf:=hstr(b9); SendToServerEx(bufer); end;       x:=x+1    end;       10: begin        buf:=hstr(b10);        SendToServerEx(bufer);        x:=x+1;    end;    11: begin        if (prof=1) then begin buf:=hstr(b11); SendToServerEx(bufer); end;       x:=x+1;    end;    12: begin        if (prof=1) then begin buf:=hstr(b12); SendToServerEx(bufer); end;       x:=x+1     end;    13: begin        buf:=hstr(b13);        SendToServerEx(bufer);        x:=x+1;    end;    14: begin        if (prof=2) then begin buf:=hstr(b14); SendToServerEx(bufer); end;        x:=x+1;    end;    15: begin       if (prof=2) then begin buf:=hstr(b15); SendToServerEx(bufer); end;       x:=x+1;    end;    16: begin        buf:=hstr(b16);        SendToServerEx(bufer);        x:=0;    end; end; end; procedure Free; begin timer1.Free; end;  /////////////////////////////////////////////////////////////////// begin    if FromServer and (pck[1]=#$5E) and (x=0) and (ConnectName=bufer) then //подкорректил немного, что б бот не принимал трэйд когда кого-то уже баффает 06.08.07       begin         Target:=#$04+pck[2]+pck[3]+pck[4]+pck[5];         buf:=hstr('44 01 00 00 00');         SendToServerEx(bufer)//если кидают трэйд, то принимать    end;       if fromclient and (pck[1]=#$44) and (ConnectName=bufer) then pck:=''; {клиент почему-то иногда автоматом отылает кэнсл трэйд, поэтому убиватю этот пакет}    if fromserver and (pck[1]=#$21) then       begin       if pck[14]+pck[15]+pck[16]=#$f0#$49#$02  then {если в трэйд положили 5кк}              begin              buf:=hstr('17 01 00 00 00');//подтвердить трэйд              prof:=1;       end;       if pck[14]+pck[15]+pck[16]=#$a0#$86#$01  then {если в трэйд положили 5кк}              begin              buf:=hstr('17 01 00 00 00');//подтвердить трэйд              prof:=2       end;                    if prof=0 then buf:=hstr('17 00 00 00 00');//отмена трэйда       SendToServerEx(bufer);    end;    if FromServer and (pck[1]+pck[2]=#$22#$01) then      begin       buf:=target;       SendToServerEx(bufer);     if prof<>0 then     begin       x:=1;       prof:=0;     end;     end; end.

Переделал все как посоветовали, синтаксис исправлен, но вложенные условия почему то невыполняются

Последний раз редактировалось Breadfan, 29.04.2008 в 17:47. Причина: Переделал скрипт, но все равно бафает только до WindWalk и все
Breadfan вне форума   Ответить с цитированием
Старый 29.04.2008, 13:56   #10
Рыцарь
 
Аватар для mks
 
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
mks пока неопределено
По умолчанию

Breadfan, ну при таком расскладе он уже и b9 не должен баффать, получается x доходит до x=8, далее x не повышается, так как в 8 кейсе ты убрал x:=x+1.
mks вне форума   Ответить с цитированием
За это сообщение mks нажился спасибкой от:
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг


Опции темы
Опции просмотра

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 14:37.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!