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

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

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

ту Voron.
вопросец по твоему куску скрипта:
delphi Код:
//YES-  РУТ ПО АССИСТУ (4-я кнопка) либо переделать в какойто дебаф от каждого бафера он свой.. по ассисту все баферы какуюто куйню кинут на цель по ассисту..   if FromClient then   if ConnectName=NameKom then   if pck[1]+pck[2]=hstr('1B 06') then     begin      pck:='';       buf:= hstr('14') + OidgcpPotion0 + hstr('00 00 00 00'); // обычную хилку       if (OidgcpPotion0 <> '') then SendToServerEX(NameKom); {      buf:=hstr('04') + IDAssistTarget + Bot1X + Bot1Y + Bot1Z + hstr('00');       if NameBot1<>'' then SendToServerEX(NameBot1);       buf:=hstr('04') + IDAssistTarget + Bot2X + Bot2Y + Bot2Z + hstr('00');       if NameBot2<>'' then SendToServerEX(NameBot2);       buf:=hstr('04') + IDAssistTarget + Bot3X + Bot3Y + Bot3Z + hstr('00');       if NameBot3<>'' then SendToServerEX(NameBot3);       buf:=hstr('2F B1 04 00 00 00 00 00 00 00');       if NameBot1<>'' then SendToServerEX(NameBot1);       buf:=hstr('2F B1 04 00 00 00 00 00 00 00');       if NameBot2<>'' then SendToServerEX(NameBot2);       buf:=hstr('2F B1 04 00 00 00 00 00 00 00');       if NameBot3<>'' then SendToServerEX(NameBot3);}      exit;     end;

что не так? баферы не кидают рут

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

подскажите я ещё токо седня начал разбираться я всё сделал по интрукции скрипта Бот - локомотив от Alexus
версия : 0.3 (бета)
дата: 08.04.08
Но при нажатии старт пишет не все параметры заданы
в чём же может дело Хотя я всё сделал как надо
Хроники6 клиент

Ой Ура разобрался
Желаю всем успехов по написанию ботов вы спасаите многих



Да ещё хотел добавить нехватает бафера-бота полноценного к примеру пп что бы просто ввести ник за кем бегать и бафать определёнными бафами ( просто и со вкусом )

Последний раз редактировалось boroda, 19.04.2008 в 23:51.
boroda вне форума   Ответить с цитированием
Старый 20.04.2008, 11:06   #353
Новичок
 
Аватар для Alan
 
Регистрация: 11.10.2007
Адрес: Питер
Сообщений: 13
Сказал Спасибо: 261
Имеет 0 спасибок в 0 сообщенях
Alan
По умолчанию

boroda, все есть, поиск в руки........

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

Alan, скобки фигурные убери { } - такие вот
QaK вне форума   Ответить с цитированием
Старый 28.04.2008, 11:53   #355
Рыцарь
 
Аватар для VORON
 
Регистрация: 06.08.2007
Сообщений: 209
Сказал Спасибо: 6
Имеет 67 спасибок в 34 сообщенях
VORON пока неопределено
По умолчанию

Цитата:
Сообщение от QaK Посмотреть сообщение
Alan, скобки фигурные убери { } - такие вот
логично
VORON вне форума   Ответить с цитированием
Старый 28.04.2008, 12:20   #356
Новичок
 
Аватар для Alan
 
Регистрация: 11.10.2007
Адрес: Питер
Сообщений: 13
Сказал Спасибо: 261
Имеет 0 спасибок в 0 сообщенях
Alan
По умолчанию

Пасиба, ща буду тестить, Voron с возвращеницем 8)
Потестил, вместо рута жрет банки сп. нужно поменять пакет наверное, если ты еще тут подскажи какой, чичаз буду искать его.

Последний раз редактировалось Alan, 28.04.2008 в 14:03.
Alan вне форума   Ответить с цитированием
Старый 02.05.2008, 23:49   #357
Рыцарь
 
Аватар для VORON
 
Регистрация: 06.08.2007
Сообщений: 209
Сказал Спасибо: 6
Имеет 67 спасибок в 34 сообщенях
VORON пока неопределено
По умолчанию

АЛАН ну ты голова вапще...
ну сам подумай над текстом кода приведенным тобой.. кусок кода с киданием ДЕБАФА (рута и фикни всякой) закоментирован.. а лишний явно кусок кода ето выпивание ЦП (или ХП там) банок..
я думаю так что 2 строки относящиеся к выпивани. ХП-ЦП пробирок- там явно лишнии.. а то что закоменчено- явно- нужное..
почему так вышло? ну когда я функцию глотания банок внедрял то тестировал на принудительном выпивании етих пробирок и вот закоментил кусок кода с РУТам и вместо них вбил 2 строки принудительного глотания ЦП и ХП банок.. а когда всё сделал забыл стереть ети 2 строки и раскоментить то что в скобках..
__________________
Цитата:
Сообщение от pybukon
прежде чета попросить я немнога раскажу чтоб вы понили как мне плоха
Цитата:
Сообщение от Byrger
А как сделать мой скрипт бесконечным?
Цитата:
Сообщение от XKOR
.. каждый день ионизированной ногой протирает больную)
Цитата:
Сообщение от PsyR
Вылоджите пожалуйста скрипт на рыбалку желательно что бы сам в ВХ клал адаптированый под шоки и так же скрипт на ТТ рец, тоже с диалогами
VORON вне форума   Ответить с цитированием
За это сообщение VORON нажился 2 спасибками от:
Старый 03.05.2008, 00:17   #358
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

VORON, +1 ответ кульный слав богу скрипта твоего не видел, он снова для всего и вся?
Grinch вне форума   Ответить с цитированием
Старый 03.05.2008, 22:56   #359
Новичок
 
Регистрация: 03.05.2008
Адрес: Тула
Сообщений: 7
Сказал Спасибо: 2
Имеет 3 спасибок в 2 сообщенях
cat пока неопределено
По умолчанию

2F EF 03 00 00 00 00 00 00 00 chant of battle
48 A0 C7 00 00 9B 98 02 00 91 EC FF FF C1 92 00 00 00 00 00 00 chant of sheilding
это из пакета реквест меджик скилл юс... то это или я где то ошибся?

Добавлено через 8 часов 23 минуты
всё понял ошибку , для начинающих , каждый скил начинаеться с "2F", затем в 16-ом код скила

Последний раз редактировалось cat, 03.05.2008 в 22:56. Причина: Добавлено сообщение
cat вне форума   Ответить с цитированием
Старый 04.05.2008, 10:13   #360
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

cat,
delphi Код:
const        PPbafer = 'НИК';// ник бафера        buff =        ['2F 3D 04 00 00 00 00 00 00 00 ',   //Acumen         '2F 26 04 00 00 00 00 00 00 00  ',   //BtS         '2F 15 04 00 00 00 00 00 00 00 ',   //BtB         '2F 2C 04 00 00 00 00 00 00 00 ',   //Might         '2F 10 04 00 00 00 00 00 00 00 ',   //Shield         '2F 36 04 00 00 00 00 00 00 00 ',   //concentration         '2F 35 04 00 00 00 00 00 00 00 ',   //Focus         '2F DA 04 00 00 00 00 00 00 00 ',   //DW         '2F D8 04 00 00 00 00 00 00 00 ',   //Точночть         '2F B4 04 00 00 00 00 00 00 00 ',   //WW         '2F 0C 04 00 00 00 00 00 00 00 ',   //   MB         '2F 0B 04 00 00 00 00 00 00 00 ',   //   Mental         '2F 3E 04 00 00 00 00 00 00 00 ',   //   Haste         '2F 48 05 00 00 00 00 00 00 00 ',   // EP         '2F DB 04 00 00 00 00 00 00 00 '];  // щит         SS=0;     var         prof,x,y, SkilID, SkilHIT,PPbaferID : integer;         timer1, timer2: TTimer;         Target: string;     procedure Say(msg:string);     begin     buf:=hstr('4A 00 00 00 00');     WriteD(2);     WriteS(PPbafer);     WriteS(msg);     SendToClientEx(PPbafer);     end;     procedure Init; //Вызывается при включении скрипта     begin     //делаем таймер     timer1:=TTimer.Create(nil);     timer1.OnTimer:=@OnTimer1;     timer1.enabled:=false;//по начал не баффаемся, толко по команде     timer1.interval:=200;// 0,2 секунды - начальный интервал таймера     end;     procedure InitStats;     begin         PPbaferID:=ReadD(18);        //Say('ID'+inttostr(PPbaferID));     end;      procedure OnTimer1(Sender: TObject);     begin     if x = 1 then     Say('Начинаем баффаццо');     buf:=hstr(buff[x]);             //берем нужный элемент из массива     SendToServerEx(PPbafer);     inc(x);                        //увеличиваем х на 1     if x = 15 then     begin Say('Баффаццо вроде закончили');           Timer1.Enabled:=False;    //закончили баффаццо - таймер отключили           x:=0;     end;   //  Say('x='+inttostr(x))// так что б мониторить измение в чате     end;     procedure Free; //Вызывается при выключении скрипта     begin     timer1.enabled:=false;     timer1.Free;     x:=0;     end;     //основная часть скрипта     //вызывается при приходе каждого пакета если скрипт включен     begin     if pck='' then exit;     if FromServer and (ConnectName=PPbafer) and (pck[1]=#$04)  then InitStats;     if FromServer and (ConnectName=PPbafer) and ((pck[1]=#$48) and (ReadD(18)=SS)) then exit ;     if FromServer and (ConnectName=PPbafer) and (pck[1]=#$48)and (ReadD(2)=PPbaferID) then        begin        SkilHIT:=ReadD(18);        SkilID:= ReadD(10);        Timer1.Interval:=SkilHit+100;      //ставим время отката скила   +100 константа смешения тупо что б паузу сделать маленькую      //  Say('Скил='+inttostr(SkilID)); // иди скрипта так для самопроверке кстате можно тестить бафы на ускорение каста и шмот     //   Say('Откат='+inttostr(SkilHIT)); //время каста скила        end;     if FromClient and (pck[1]+pck[2]=#$38#$31) and (ConnectName=PPbafer)and(pck[3]=#$00) and (pck[4]=#$00) and (pck[5]=#$00)and (pck[6]=#$09) then  //1- нажимаем в любой чат окуратней я пакет не убил     begin     pck:='';       prof:=1;       Timer1.Enabled:=True//врубаем таймер     end;     //  if prof=1 then begin       //    y:=1;       //    prof:=0;      // end;     end.
вот тут каст сдлан по изменению скорости каста скилов варк не самый быстрый но не надо парится с таймером

Последний раз редактировалось NLObP, 07.05.2008 в 01:11. Причина: вставил тэги [HIGHLIGHT="delphi"]...[/HIGHLIGHT]
Grinch вне форума   Ответить с цитированием
За это сообщение Grinch нажился 5 спасибками от:
Ответ

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


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

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

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


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

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

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