Показать сообщение отдельно
Старый 26.12.2007, 10:22   #121
Новичок
 
Регистрация: 21.12.2007
Сообщений: 10
Сказал Спасибо: 7
Имеет 1 спасибку в 1 сообщении
jestb
По умолчанию опять про БД

Привет всем, кто тут сидит и помогает нупам типа меня :) , нашел много полезных идей, как, например, рыбалка и сдача манора. С спойлом и авто-качем не разбирался еще, но вот увидел, кто-то подымал тему насчет кача с БД.
Тема такая - качаюсь с БД оф пати, в принципе комп тянет 2 окна без лагов, играю в Окнах, есть макрос БД такой /danc1,/danc2,/dan3,/leave,/target "ник",/attack, а у мня соответственно макрос на прием БД.
Приходится при приему БД в пати каждый раз тыкать в окне БД "Yes" и нажимать макрос на танец.
В принципе ничего сложного и можно качаться сколько влезет, НО главная проблема это ДРОП с мобов :) .
Вот есть ли у кого-то скриптик на то, чтобы БД бегал за мной и переодически нажимал Pickup?

Ну а в идеале при кидании ему пати (только от меня) - принимал пати, делал данс и продолжал бегать за мной и подбирать дроп.

Кто-то сочтет меня совсем нубом (а так и есть, я в программировании не силен и с прогой разбираюсь методом тыка :) ), так вот пробовал запоминать пакет на нажатие Pickup и посылать его каждые 5000 м.сек, но ничего не происходит :( , а например другие SocialAction работают, а вот пикап нет :( .

Кто может помочь с скриптом - пишите, буду очень рад, наверное не только я мечтаю о таком скрипте.

п.с.: сори за длину поста - привык все подробно расписывать, чтобы не задавали лишних вопросов :) .

Добавлено спустя 5 минут 44 секунды:
Да я читал правила и видел, что нельзя просить пакеты или взломать сервер и т.п., но считаю, что в моей просьбе нет ничего противозаконного, просто экономия времени при каче (подборе дропа), прошу сильно не агриться :) .
Может примитивно рассуждаю, но думаю выглядеть скрип будет примерно как:

1. что-то типа определения кидающего пати.
2. прием пати.
3. танцы, выход с пати.
4. взятие таргета хозяина и follow (attack).
5. переодический pickup.

тока вот как это написать на языке программирования не знаю :( .

П.с. Играю на Интерлюде если это играет роль в написании скрипта.

Добавлено спустя 1 час 4 минуты 37 секунд:
Код:
//Вот попробовал по аналогии с ЕЕ бафом за 5кк сделать для БД,
//кто может подкорректируйте плз.
//Бот баффер БД, танцует при приеме в пати.

const //Танцы БД
d1='2F 13 01 00 00 00 00 00 00 00 ';   //Fury
d2='2F 12 01 00 00 00 00 00 00 00 ';   //Fire
d3='2F 0F 01 00 00 00 00 00 00 00 ';   //Warrior
//протестировал, танцы работают :) .
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(d1);
    sendtoserver;
    x:=x+1;
    end;
2: begin
    buf:=hstr(d2);
    sendtoserver;
    x:=x+1;
    end;
3: begin
    buf:=hstr(d3);
    sendtoserver;
    x:=x+1;
    end;
end;
end;

procedure Free; 
begin
timer1.Free;
end;
///////////////////////////////////////////////////////////////////
begin

   if FromServer and (pck[1]=#$5E) and (x=0) then //что делает эта строка? Можно ли
//сделать чтобы не пытался принять пати если уже в пати, потому что
//после приема продолжает слать сообщения типа "кого вы приглашаете, сейчас не в игре"?
      begin
        Target:=#$04+pck[2]+pck[3]+pck[4]+pck[5]; //ммм, берет в таргет того, кто кидает трейд?
        buf:=hstr('44 01 00 00 00');    //как понимаю это пакет на "yes" трейда? хотелось бы тоже самое на прием пати.
        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.
Вот попробовал сам поредактировать скрипт на офф пати Дансы, пометил где что понял, а где нет.
Надеюсь не зря стараюсь и кто-то доведет до ума мою задумку.
jestb вне форума   Ответить с цитированием