Guild Allianse

Все шо нада ето вписать айди сумки на которой будете юзать отмычки она должна лежать на полу рядом с чаром сумка должна быть Punch ну и естествено реги на каст 'Magic Lock' и сами отмычки.

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

program Lockpicking;

CONST
  Punch = $6f266663; {ID сумки}
  Pick = $14fb; {Тип отмычек. Не изминять!}

{$Include 'all.inc'}

procedure Resend;
begin
  ClearJournal;
  UOSay(Chr(39)+'resend');
    Wait(5000);   
  end;

procedure Lock;
  begin
    ClearJournal;
    WaitTargetObject(Punch); 
      cast('Magic Lock');
        wait(3200);
          if InJournal('fizzles') <> -1 then
          begin
            Lock;
            end
              else
        ClearJournal; 
    end;
 
procedure Medit;
begin
  if Mana > 10 then exit;
  while (Mana < MaxMana) do
  begin
    UseSkill('Meditation');
    Wait(3200);
  end;
end;

BEGIN

SetARStatus(true);
 
  AddToSystemJournal('Скрипт написал Metall (Age of Power)');
  UOSay(Chr(39)+'resend');
  Wait(5050);
  ClearJournal;

while true do
 begin
  if InJournal('Добро пожаловать') <> -1 then
  begin
      Resend;
    end
      else
    if InJournal('locked|manage') <> -1 then
    begin
      Lock;
    end
      else
    begin
    WaitTargetObject(Punch);
    UseObject(findType(Pick,backpack));
      wait(3200);
    end;
    Medit;
  end;
END.