Guild Allianse

Короче меняете айди чара у которого воруем, ево бекпак айди и тайп который будет воровать и ставите как написано true - для того кто качает; false - для бинтореза



ENEMYPACK = $FFFFFFFA; // ID бекпака чара у которого воруем
ENEMYID = $50B46B73; // ID чара у которого воруем
TARGETTYPE = $1400; // тайп воруемого предмета
STEALINGMODE = true; // true - для того кто качает; false - для бинтореза

Код: Выделить всё

Program stealingvv;

const
  ENEMYPACK = $FFFFFFFA;      // ID бекпака чара у которого воруем
  ENEMYID = $50B46B73;      // ID чара у которого воруем
  TARGETTYPE = $1400;      // тайп воруемого предмета
  SKILLDELAY = 8200;      // задержка для стилинга
  STEALINGMODE = true;      // true - для того кто качает; false - для бинтореза
  SHORTDELAY = 200;

procedure resend;
begin
  wait(5000);
  uosay('''' + 'resend');
  wait(5000);
end;

procedure stealing;
begin
  if findtype(TARGETTYPE,ENEMYPACK) > 0 then
  begin
    waittargetobject(finditem);
    useskill('Stealing');
    wait(SKILLDELAY);
  end;
end;

procedure OpenPack;
begin
  resend;
  useobject(ENEMYID);
  wait(SHORTDELAY);
  useobject(ENEMYPACK);
  wait(8200);
end;

procedure checkreconnect;
begin
  if InJournal('Добро пожаловать на Age Of Power !') <> -1 then
  begin
    resend;
    OpenPack;
    useobject(backpack);
    wait(SHORTDELAY);
    ClearJournal;
  end;
end;

procedure checkhide;
begin
  if not hidden then
  begin
    useskill('hiding');
    wait(3200);
  end;
end;

procedure Circle;
begin
  clearjournal;
  resend;
  OpenPack;
  if STEALINGMODE then
    while getskillvalue('Stealing') < 100.0 do
    begin
      if findtype(TARGETTYPE,backpack) > 0 then
        drophere(finditem);
      checkreconnect;
      checkhide;
      stealing;
    end else
    begin
      FindDistance := 2;
      while true do
      begin
        checkreconnect;
        if findtype(TARGETTYPE,ground) > 0 then
        begin
          grab(finditem,0);
          wait(500);
        end;
      end;
    end;
end;

BEGIN
  Circle;
END.