Делевел (Classic)

Модератор: IvaniuS

Ответить
Paradigma
Сообщения: 13
Зарегистрирован: Ср окт 07, 2015 12:40 pm

Сб янв 26, 2019 9:04 pm

Накидал скрипт по делвл в тюрьме на классике, если кому надо будет, пользуйтесь.

Почему делвл в тюрьме? беслпатный ТП и далеко бегать не надо

Начало у НПЦ в адене.

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

uses SysUtils;

var I: Integer;
    NpcJail: array[0..3] of Integer=(31776, 31777, 31775, 31774);
    Npc: TL2Npc;

procedure downLvl;
begin
  if User.inrange(146945,26764,-2200, 250, 150) then begin
              print('Я в адене, го в данш');
     Engine.SetTarget(31778);
     Engine.DlgOpen();
    
     if (User.level >= 45) then begin
       Engine.DlgSel(2);
     end
     else begin
       Engine.DlgSel(1);
     end;
     
     delay(10000);

     if (Engine.GetZoneType = ztPeace) then begin    
          print('в Данше нашел НПЦ го сливаться');
          Engine.SetTarget(NpcJailNear());
          Engine.DlgOpen();
          Engine.DlgSel(1);
          Engine.FaceControl(0,true);
          delay(10000);
     end;
  end;

  if User.Dead then begin
    delay(5000);
    print('Сдох летим в город');
    Engine.FaceControl(0,false);
    Engine.gohome;

    delay(10000);

    if (Engine.GetZoneType = ztPeace) then begin
            print('Нашел НПЦ го в аден');
          Engine.SetTarget(NpcJailNear());
       Engine.DlgOpen();
          Engine.DlgSel(4);
          delay(10000);
     end;
  end;
end;

function NpcJailNear () : Integer;
begin
  for i := Low(NpcJail) to High(NpcJail) do begin
    if NpcList.ByID(NpcJail[i], npc) then begin
      Result := NpcJail[i];
    end;
  end;
end;

Begin
while true do begin
  if (User.level <> 40) then begin // Указываем нужный лвл для слива
    downLvl;
  end;

  
end;
end.
Paradigma
Сообщения: 13
Зарегистрирован: Ср окт 07, 2015 12:40 pm

Сб янв 26, 2019 9:10 pm

while User.level <> 40 do begin // Указываем нужный лвл для слива
downLvl;
end;

Зацикливание лучше поменять на вот так
Ответить