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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 05.12.2007, 16:18   #91
Новичок
 
Регистрация: 22.11.2007
Сообщений: 17
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Rubec
По умолчанию

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

Кстати NLObP логику то ты доработал но БД не может нон стоп танцевать больше 3-х танцев ) да и три тоже не нон стоп )

Но спасибо что посмотрел ) :beer:
Rubec вне форума   Ответить с цитированием
Старый 11.12.2007, 05:02   #92
Рыцарь
 
Аватар для VORON
 
Регистрация: 06.08.2007
Сообщений: 209
Сказал Спасибо: 6
Имеет 67 спасибок в 34 сообщенях
VORON пока неопределено
По умолчанию

сдрасте я немного отсутствовал-)
QAK твою идею я поддерживаю- ето очень утомляет искать место с которого сообщения начинаются. если никто непротив- откреплю пост. я всё тут перечитал. есть кое что интересного. но мало конечно.
ченить придумать надо новое. скучновато стало. есть идеи какиенибудь?
__________________
Цитата:
Сообщение от pybukon
прежде чета попросить я немнога раскажу чтоб вы понили как мне плоха
Цитата:
Сообщение от Byrger
А как сделать мой скрипт бесконечным?
Цитата:
Сообщение от XKOR
.. каждый день ионизированной ногой протирает больную)
Цитата:
Сообщение от PsyR
Вылоджите пожалуйста скрипт на рыбалку желательно что бы сам в ВХ клал адаптированый под шоки и так же скрипт на ТТ рец, тоже с диалогами
VORON вне форума   Ответить с цитированием
Старый 11.12.2007, 21:03   #93
Новичок
 
Регистрация: 13.10.2007
Сообщений: 10
Сказал Спасибо: 0
Имеет 1 спасибку в 1 сообщении
ZZa
По умолчанию

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

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

VORON, дописал тут твой скрипт сдачи манора, чтобы он автоматом вырубался при удачной попытке сдачи, да и вообще причесал его, а то я смотрю у тебя руки все никак не доходят..

Добавлено спустя 1 минуту 4 секунды:
Да, кстати, эти темки с проверенными полезными скриптами неплохо было бы запиннить, ну т.е. важными сделать, да и эту темку тоже..
ZZa вне форума   Ответить с цитированием
Старый 13.12.2007, 00:51   #94
Пользователь
 
Регистрация: 15.11.2007
Сообщений: 67
Сказал Спасибо: 4
Имеет 2 спасибок в 2 сообщенях
boyan
По умолчанию

а может кто нить подкоректировать вот это, чтобы определял профу маг/дд и соответсвтенно баф на выбор делал

Код:
//by mks
//Бот баффер Elven Saint, баффает за 5кк

const //баффы 3й профы
b1='2F 49 05 00 00 00 00 00 00 00 ';
b2='2F 4A 05 00 00 00 00 00 00 00 ';
b3='2F 17 05 00 00 00 00 00 00 00 ';
b4='2F 4B 05 00 00 00 00 00 00 00 ';

var
Target: string;
prof,x: integer;
timer1: TTimer;

procedure Init;
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer;
timer1.enabled:=true;
timer1.interval:=2000;
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:=0;
    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]+pck[16]=#$40#$4B#$4C  then {если в трэйд положили 5кк}
             begin
             buf:=hstr('17 01 00 00 00');//подтвердить трэйд
             prof:=1;
             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;
   
end;
end.
boyan вне форума   Ответить с цитированием
Старый 13.12.2007, 12:48   #95
Рыцарь
 
Аватар для mks
 
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
mks пока неопределено
По умолчанию Re: ДА БУДЕТ БОТ!

Этот скрипт сырой ппц бэта версия, да и написан на скорую руку. Имеется доработаная проверенная временем версия, только я ее не выкладывал 8)
__________________
FA©Q!
mks вне форума   Ответить с цитированием
Старый 13.12.2007, 22:40   #96
Пользователь
 
Регистрация: 15.11.2007
Сообщений: 67
Сказал Спасибо: 4
Имеет 2 спасибок в 2 сообщенях
boyan
По умолчанию

а что тебя останавливает?

Добавлено спустя 9 часов 25 минут 48 секунд:
покапался я и разобрался.. =)
переделал под пп, чтобы бафал за 2кк. вроде все работает нармуль..
так как берс только в пати, то если ему кинуть пати, он ее возьмет, бафнет берс, и выйдет с пати..(только с пати палево - все очень быстро происходит, окна пати даже не видно.. )
вот скрипт..
Код:
//исходник by mks | переработан boyan
//Prophet бафае

const //баффы профета
b1='2F 0C 04 00 00 00 00 00 00 00 '; //shield 
b2='2F 0B 04 00 00 00 00 00 00 00 '; //mental shield  
b3='2F 3D 04 00 00 00 00 00 00 00 '; //acumen
b4='2F 15 04 00 00 00 00 00 00 00 '; //blessHP
b5='2F B4 04 00 00 00 00 00 00 00 '; //ww
b6='2F 0C 04 00 00 00 00 00 00 00 '; //magic barier 
b7='2F 26 04 00 00 00 00 00 00 00 '; //bers 


var
Target: string;
prof,x: integer;
timer1: TTimer;

procedure Init;
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer;
timer1.enabled:=true;
timer1.interval:=2000;
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:=0;
    buf:=#$38;
    WriteS('Spasibo i udachi! Nuzhen bers? invite to party');
    WriteD(0);
    SendToServer;
    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
  begin
    pck:=''; {клиент почему-то иногда автоматом отылает кэнсл трэйд, поэтому убиватю этот пакет}
    sendtoserver;
  end;
   if fromserver and (pck[1]=#$21) then
      begin
      if pck[14]+pck[15]+pck[16]=#$80#$84#$1E  then {если в трэйд положили 2000000}
             begin
             buf:=hstr('17 01 00 00 00');//подтвердить трэйд
             prof:=1;
             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;
   
end;
  if FromServer and (pck[1]=#$39) then //если кидают пати - берет ее, бафает берс, и выходит из пати
  begin
  buf:=Hstr('2A 01 00 00 00 ');
  sendtoserver;
  buf:=Hstr(b7);
  sendtoserver;
  buf:=Hstr('2B');
  SendToServer;
  end;
end.
Добавлено спустя 7 минут:
забыл сказать, что скрипт сделан только под баф на мага..
в планах, доработать его, чтобы определял профу, и бафал в соответствии с ней..

Добавлено спустя 6 минут 3 секунды:
буду очень благодарен, тому кто мне покажет, как прочитать ИД профы, того кто заплатил боту.. =) (чот башка не варит.. надо с дудкой завязывать)
boyan вне форума   Ответить с цитированием
Старый 14.12.2007, 10:18   #97
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от boyan
буду очень благодарен, тому кто мне покажет, как прочитать ИД профы, того кто заплатил боту.. =) (чот башка не варит.. надо с дудкой завязывать)
Сделай массив данных в который записывай обджектИД и профаИД,которые выдираются из пакета ЧарИнфо. Когда тебе кидают трейд - по обджектИД из пакета трейда ищещ в базе нужный профаИД, и в соответствии бафаешь.
QaK вне форума   Ответить с цитированием
Старый 14.12.2007, 11:23   #98
Пользователь
 
Регистрация: 15.11.2007
Сообщений: 67
Сказал Спасибо: 4
Имеет 2 спасибок в 2 сообщенях
boyan
По умолчанию Re:

Цитата:
Сообщение от lQaKl
Цитата:
Сообщение от boyan
буду очень благодарен, тому кто мне покажет, как прочитать ИД профы, того кто заплатил боту.. =) (чот башка не варит.. надо с дудкой завязывать)
Сделай массив данных в который записывай обджектИД и профаИД,которые выдираются из пакета ЧарИнфо. Когда тебе кидают трейд - по обджектИД из пакета трейда ищещ в базе нужный профаИД, и в соответствии бафаешь.
а примерчик можеш написать, как при торге выдрать обжек ид и профа ид?
Я ваще не секу.. :crazy:

Добавлено спустя 4 минуты 39 секунд:
а case я сам сделаю.. =)
boyan вне форума   Ответить с цитированием
Старый 14.12.2007, 11:32   #99
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от boyan
Target:=#$04+pck[2]+pck[3]+pck[4]+pck[5];
pck[2]+pck[3]+pck[4]+pck[5] - Это и есть ОбджектИД из пекета на трейд, а профаИД выдираешь из пакета ЧарИнфо.

З.Ы. ПОка на работе - выложить не могу, дня через 2 дома появлюсь - выложу, если не забуду :D
QaK вне форума   Ответить с цитированием
Старый 14.12.2007, 13:36   #100
Пользователь
 
Регистрация: 15.11.2007
Сообщений: 67
Сказал Спасибо: 4
Имеет 2 спасибок в 2 сообщенях
boyan
По умолчанию Re:

Цитата:
Сообщение от lQaKl
Цитата:
Сообщение от boyan
Target:=#$04+pck[2]+pck[3]+pck[4]+pck[5];
pck[2]+pck[3]+pck[4]+pck[5] - Это и есть ОбджектИД из пекета на трейд, а профаИД выдираешь из пакета ЧарИнфо.
З.Ы. ПОка на работе - выложить не могу, дня через 2 дома появлюсь - выложу, если не забуду :D
а почему из 04? 04 - это же информация о себе..
или #$04 - это не 04 пакет?
boyan вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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