program EvasivLesserMagicTraining;

{$DEFINE SMART}
{$i AeroLib/AeroLib.Simba}
{$i Reflection/Reflection.simba}

var
  demon: TReflectNpc;
  reflectPlayer: TReflectLocalPlayer;
  attacking:boolean;

begin
  initAL('C:\Javas\Java3\jre1.8.0_91\bin\javaw.exe');
  Reflect.Setup;
  reflectPlayer.Username := 'stijnvanloom@gmail.com';
  reflectPlayer.Password := 'weedpw123';
  reflectPlayer.Active := True;
  Me.Member := True;
  reflectPlayer.Create;
  reflectPlayer.Login;
  repeat
    if(Reflect.Chat.NpcChooseOption('40'))then
      terminatescript;
    if(Reflect.Chat.NpcChatOpen) then
      Reflect.Chat.NpcClickToContinue;
    if(demon.Find('Lesser demon'))then
        begin
          if(not attacking)then
            begin
              repeat
                Reflect.Mouse.Move(demon.GetMSPoint,4,4);
                sleep(100);
              until(Reflect.Text.IsUpText('Attack'));
              Reflect.Mouse.Click(Mouse_left);
              attacking:=true;
              sleep(100);
            end else
              begin

              end;
        end else
          begin
            repeat
              attacking:=false;
              sleep(100+random(50));
            until(demon.Find('Lesser demon'));
          end;
    sleep(500+random(100));
  until(false);
end.