Нужна помощь

[ChiefEngineer]

Раврики нужна ваша помощь)
Как в скрипте прописать, что-бы он в баффере выбирал профиль баффа мой. (Баффер без строчек, а с кнопками)

 

[savant]

Сервер какой?

function Buff(value:string):boolean;
var
  s:string;
  bypass:string;
  i:integer;
  b:boolean;
  mass:array [1..100] of string;
  Obj: TL2Buff;
begin
  Engine.Settarget('Buffer');
  delay(2000);
  Engine.DlgOpen();
  s:=Engine.DlgText;
  b:=true;
  i:=1;
  while b do
  begin
    Delete(s,1,Pos('<button',s)-1);
    mass[i]:=Copy(s,1,Pos('>',s));
    Delete(s,1,Length(mass[i]));
    inc(i);
    if Pos('<button',s) = 0 then
      b:=false;
  end;
  for i:=1 to 100 do
    if mass[i] <> '' then
        if Pos(value,mass[i]) <> 0 then
        begin
          bypass := mass[i];
          delete(bypass,1,pos('action="',bypass)+17);
          bypass:=Copy(bypass,1,pos('"',bypass)-1);
          break;
        end;
    Engine.ByPassToServer(bypass);
end;

 

[ChiefEngineer]

@savant, alltar.ru
Я новичек в скриптах, мне не очень понятно, то что ты скинул (
Если не сложно, обьясни ) спасибо

 

[SARCAZM]

Программно (скриптом) с помощью функции выше выделяется бафер в таргет, открывается с ним диалог и клацается кнопка с профилем (если не надо тыкать на "Мои схемы" и т.д.).
Грубо говоря, получится скрипт:

function Buff(value:string):boolean;
var
s:string;
bypass:string;
i:integer;
b:boolean;
mass:array [1..100] of string;
Obj: TL2Buff;
begin
Engine.Settarget('Buffer');
delay(2000);
Engine.DlgOpen();
s:=Engine.DlgText;
b:=true;
i:=1;
while b do
begin
Delete(s,1,Pos('<button',s)-1);
mass:=Copy(s,1,Pos('>',s));
Delete(s,1,Length(mass));
inc(i);
if Pos('<button',s) = 0 then
b:=false;
end;
for i:=1 to 100 do
if mass <> '' then
if Pos(value,mass) <> 0 then
begin
bypass := mass;
delete(bypass,1,pos('action="',bypass)+17);
bypass:=Copy(bypass,1,pos('"',bypass)-1);
break;
end;
Engine.ByPassToServer(bypass);
end;

begin
// Предполагается, что ты уже стоишь возле баффера.
Buff('Название твоей схемы');
end.

Обрати внимание на название нпц (В скрипте у него имя "Buffer"). Повторюсь, скрипт сработает, если кнопка с личным профилем расположена на главной странице диалога. Например, на кетраварс это кнопка "Использовать". Если не на главной странице - в функции Buff нужно после Engine.DlgOpen(); с помощью Engine.DlgSel() или с помощью Engine.ByPassToServer() открыть заветную страницу с кнопкой бафа.

Пробуй, разбирайся.

 

[ChiefEngineer]

@SARCAZM, Спасибо тебе и Саванту, подтолкнули куда надо )

 

[ChiefEngineer]

 

[ChiefEngineer]

@SARCAZM, Запутался (

 

[SARCAZM]

@ChiefEngineer, http://www.snkey.net/books/delphi/ch1-6.html
Если вкратце - научись определять в коде процедуры/функции, а также научись их добавлять в свой скрипт
на будущее - скриншоты и файлы до 100мб заливать на форум

 

[ChiefEngineer]

1

Нашел на просторах интернета вот такой вот скрипт, он очень сильно отличается от вашего.. там всего лишь engine.bypasstoserver('Quest 50000_Buffer UseProfile'); .. но как найти это значение

Спойлер

Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(147936, -55368, -2733,150)
then
begin
Engine.MoveTo(148046, -55747, -2744);
engine.settarget(32125);
delay(500);
engine.dlgopen();
delay(500);
engine.bypasstoserver('Quest 50000_Buffer UseProfile');
Engine.MoveTo(147969, -55300, -2728);
delay(1000);
engine.settarget(31275);
delay(1000);
engine.dlgopen();
delay(1000);
engine.dlgsel(1);
delay(1000);
engine.dlgsel(10);
end;
if user.inrange(146945, -67407, -3655,150)
then
begin
Engine.MoveTo(146882, -67430, -3664);
Engine.MoveTo(146157, -68922, -3728);
Engine.MoveTo(145506, -68857, -3744);
Engine.MoveTo(144795, -68832, -3742);
Engine.MoveTo(144529, -69283, -3696);
Engine.MoveTo(144348, -70457, -4075);
Engine.MoveTo(144295, -72454, -4224);


engine.loadconfig('TEST');
Engine.FaceControl(0,true);
end;
end;
delay(15000);
end.