Перейти к содержанию

Рекомендуемые сообщения

13 minutes ago, Stalevar said:

Ну тут тебя удивлю, шансовый надо руками

спасибки в виде адены принимаю

 

uses sysutils,classes;

var myChars: TStringList;
var E: TL2Control;
var vm: TL2skill;

begin
  
  while Engine.Status = lsOnline do begin
   
    E:= GetControl('AuthSS'); 	
	while ((E.GetUser.CP > 10)
	  and (not E.GetUser.Buffs.ByID(5164, vm)
	  or (vm.EndTime < 15000))) do begin
	  Engine.SetTarget('AuthSS');
	  Engine.Attack(true);
      Delay(500);
    end;
    Engine.DMoveTo(Engine.GetUser.X+1, Engine.GetUser.Y+1, Engine.GetUser.Z);
    Delay(5000);
    end;
end.



 

Изменено пользователем Auth
Ссылка на сообщение
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
×
×
  • Создать...