program EvasivArceuusFavour;

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

var
  reflectPlayer: TReflectLocalPlayer;
  villia,horphis,sam,grackle,biblia: TPoint;
  mode,onTask,gotBook,gotLoc,firstTimeHorphis:boolean;
  startingfavour,currentState,bl,booksRetrieved,i:integer;
  currentSearch:String;
  AllShelves: TReflectObjectArray;
  Shelf: TReflectObject;
  xpbook: TReflectInvItem;
const
  LIB_DIST = 60;
{
 1: Journey of Souls
 2: Ideology of Darkness
 3: Rada's Census
 4: Rada's journey
 5: Twill Accord
 6: Transvergence Theory
 7: Byrne's coronation speech - Speach of King Byrne
 8: Tristessa's tragedy- The Tragedy of Tristessa
 9: Ricktor's diary - Diary of Steklan Ricktor
 10:Treachery of Royalty - Treachery of Royalty
 11:Killing of a King - Killing of a King
 12:Dark manuscript
}
procedure declarePoints();
begin
  villia := Point(1626,3815);
  horphis := Point(1639,3815);
  sam := Point(1638,3801);
  grackle := Point(1626,3801);
  biblia := Point(1633,3824);
end;

procedure login();
begin
  reflectPlayer.Username := 'andrecourau1993@gmail.com';
  reflectPlayer.Password := 'lebaguette333';
  reflectPlayer.Active := True;
  Me.Member := True;
  reflectPlayer.Create;
  reflectPlayer.Login;
end;

function TileInsideZone(tile : TTile; xMax, yMax, xMin, yMin : Integer) : boolean;
var
  x,y:Integer;
  ret : boolean;
begin
  x := tile.X;
  y := tile.Y;
  exit ( (x <= xMax) and (x>=xMin) and (y<=yMax) and (y>=yMin) );
end;

function DistFromPlayer(tile : TTile) : single;
Var
  playerTile: TTile;
begin
  playerTile := reflectPlayer.GetTile;
  exit (Sqrt(power(playerTile.X - tile.X, 2) + power(playerTile.Y - tile.Y, 2)));
end;

procedure RemoveFromArray(var objects : Array of TReflectObject; index : Integer);
var
  i: Integer;
begin
  for i := index + 1 to Length(objects) - 1 do
    objects[i - 1] := objects[i];
  SetLength(AllShelves, Length(AllShelves)-1);
end;

procedure SortGameObjectByDist(var objects : Array of TReflectObject; size : Integer);
Var
    i, j: Integer;
  temp : TReflectObject;
Begin
    For i := size-1 DownTo 1 do
        For j := 1 to i do
            If (DistFromPlayer(objects[j-1].GetTile) > DistFromPlayer(objects[j].GetTile)) Then
            Begin
                temp := objects[j-1];
                objects[j-1] := objects[j];
                objects[j] := temp;
            End;
End;

function searchShelves(bookName : String; xMax, yMax, xMin, yMin : Integer) : boolean;
var
  i: Integer;
  tile: TTile;
  shelf : TReflectObject;
  book : TReflectInvItem;
  safety: boolean;
begin
  WriteLn('Starting book search for: ', bookName);
  //Check if inside room
  if(not TileInsideZone(reflectPlayer.GetTile, xMax, yMax, xMin, yMin)) then
  begin
    WriteLn('Player not inside correct room, exiting');
    exit(false);
  end;

  //Move pitch
  Reflect.Compass.MakePitch(7);

  //Search
  AllShelves.Get(objGame, 'Bookshelf', LIB_DIST);
  WriteLn('Shelves found: ', Length(AllShelves));

  //Clamp search
  i:=0;
  while(i<Length(AllShelves)) do
  begin
    if(not(TileInsideZone(AllShelves[i].GetTile,xMax, yMax, xMin, yMin))) then
    begin
      RemoveFromArray(AllShelves,i);
    end else
    begin
      inc(i);
    end;
  end;
  WriteLn('Shelves after clamp: ', Length(AllShelves));

  //Start searching
  while(Length(AllShelves)>0) do
  begin
    //Get next
    shelf := AllShelves[0];
    tile := shelf.GetTile;

    //If far go to shelf
    if(Reflect.Tiles.DistanceFromTile(tile) > 1) then
    begin
      repeat
        reflectPlayer.BlindWalkMM (tile,0);
        wait(1000);
        while(reflectPlayer.IsMoving) do
          wait(250);
      until (Reflect.Tiles.DistanceFromTile(tile) <= 1);
    end;

    //Rotate to
    Reflect.Tiles.RotateCameraToTile(tile);

    //Click shelf
    repeat
      Reflect.Mouse.Move(shelf.getMSPoint,5,5);
      wait(1000);
      if(Reflect.Text.IsUpText('Stairs')) then
        begin
          Reflect.Mouse.Click(Mouse_Right);
          chooseOption('Search');
          safety:=true;
        end;
    until((Reflect.Text.IsUpText('Bookshelf')) or safety);

    if(not safety) then
      Reflect.Mouse.Click(Mouse_Left);
    safety:=false;
    wait(1000);
    repeat
      wait(200);
    until((not reflectPlayer.IsAnimating) and (not reflectPlayer.IsMoving));

    //Check for book
    if(book.Find(bookName)) then
      begin
        WriteLn('Book Found!');
          if(mode) then
            begin
              startingfavour:=startingfavour+30;
            end else
              begin
                startingfavour:=startingfavour+15;
              end;
        gotBook:=true;
        Reflect.Compass.Make('n');
        WriteLn('EXIT TRUE');
        exit(true);
        break;
      end;

    //Remove and resort
    RemoveFromArray(AllShelves,0);
    SortGameObjectByDist(AllShelves, Length(AllShelves));
    WriteLn('Books left: ', Length(AllShelves));

  end;
  //Loop ended
  WriteLn('Book not found, very sad');
  exit(false);

end;

procedure getBookName();
var
  book:integer;

begin
  if(Reflect.Chat.NpcChooseOption('Journey of Souls') = true ) then
    currentSearch:='Soul journey';

  if(Reflect.Chat.NpcChooseOption('Ideology of Darkness') = true ) then
    currentSearch:='Ideology of darkness';

  if(Reflect.Chat.NpcChooseOption('census') = true ) then
    currentSearch:='Rada''s census';

  if(Reflect.Chat.NpcChooseOption('Journey of Rada') = true ) then
    currentSearch:='Rada''s journey';

  if(Reflect.Chat.NpcChooseOption('Twill') = true ) then
    currentSearch:='Twill accord';

  if(Reflect.Chat.NpcChooseOption('Transvergence') = true ) then
    currentSearch:='Transvergence theory';

  if(Reflect.Chat.NpcChooseOption('Byrne') = true ) then
    currentSearch:='Byrne''s coronation speech';

  if(Reflect.Chat.NpcChooseOption('Tristessa') = true ) then
    currentSearch:='Tristessa''s tragedy';

  if(Reflect.Chat.NpcChooseOption('Steklan') = true ) then
    currentSearch:='Ricktor''s diary(7)';

  if(Reflect.Chat.NpcChooseOption('Treachery ') = true ) then
    currentSearch:='Treachery of royalty';

  if(Reflect.Chat.NpcChooseOption('Killing') = true ) then
    currentSearch:='Killing of a king';

  if(Reflect.Chat.NpcChooseOption('hodidius') = true ) then
    currentSearch:='Hosidius letter';

  if(Reflect.Chat.NpcChooseOption('Wintertodt') = true ) then
    currentSearch:='Wintertodt parable';

  if(Reflect.Chat.NpcChooseOption('extract') = true ) then
    currentSearch:='Eathram & rada extract';

  if(Reflect.Chat.NpcChooseOption('Transportation') = true ) then
    currentSearch:='Transportation incantations';
  WriteLn(currentSearch);
end;

procedure walker(tpa:TPointArray);
var
  i:integer;

begin
  for i:=0 to length(tpa)-1 do
    begin
      repeat
        reflectPlayer.BlindWalkMM(tpa[i],1);
        sleep(1000+random(83));
      until(Reflect.Tiles.DistanceFromTile(tpa[i])< 2);
    end;
end;

procedure atGrackle();
var
  path:TPointArray;

begin
  path:=[villia];
  walker(path);
end;



procedure climbStairs();
var
  stairs:TReflectObject;
  plane:integer;

begin
  if (stairs.Find(objGame,'Stairs',4)) then
    begin
      plane:=Reflect.Tiles.GetPlane;
      repeat
        Reflect.Mouse.Move(stairs.getMSPoint,3,8);
        sleep(300+random(33));
      until(Reflect.Text.IsUpText('Climb'));
      Reflect.Mouse.Click(Mouse_Left);
      while(Reflect.Tiles.GetPlane<>plane) do sleep(100);
      sleep(2000+random(100));
    end;
end;

procedure toTopNW();
var
  path1:TPointArray;
begin
  path1:=[Point(1623,3824),Point(1615,3825)];
  walker(path1);
end;

procedure toMiddleNW();
var
  path1,path2:TPointArray;
begin
  path1:=[Point(1623,3824),Point(1608,3819)];
  path2:=[Point(1619,3820)];
  walker(path1);
  climbstairs;
  walker(path2);
end;

procedure toBottomNW();
var
  path1,path2,path3:TPointArray;
begin
  path1:=[Point(1623,3824),Point(1608,3819)];
  path2:=[Point(1610,3827)];
  path3:=[Point(1620,3824)];
  walker(path1);
  climbstairs;
  walker(path2);
  climbstairs;
  walker(path3);
end;

procedure toTopS();
var
  path1:TPointArray;
begin
  path1:=[Point(1623,3824),Point(1615,3815),Point(1614,3799),Point(1618,3798)];
  walker(path1);
end;

procedure toMiddleS();
var
  path1,path2:TPointArray;
begin
  path1:=[Point(1623,3824),Point(1615,3815),Point(1614,3799),Point(1621,3798)];
  path2:=[Point(1616,3788)];
  walker(path1);
  climbstairs;
  walker(path2);
end;

procedure toBottomS();
var
  path1,path2,path3:TPointArray;
begin
  path1:=[Point(1623,3824),Point(1615,3815),Point(1614,3799),Point(1621,3798),Point(1621,3798)];
  path2:=[Point(1610,3795)];
  path3:=[Point(1620,3791)];
  walker(path1);
  climbstairs;
  walker(path2);
  climbstairs;
  walker(path3);
end;

procedure toTopNE();
var
  path1:TPointArray;
begin
  path1:=[Point(1642,3825),Point(1653,3820)];
  walker(path1);
end;

procedure toMiddleNE();
var
  path1,path2,path3:TPointArray;
begin
  path1:=[Point(1642,3825),Point(1650,3828)];
  path2:=[Point(1652,3825)];
  walker(path1);
  climbstairs;
  walker(path2);
end;

procedure toBottomNE();
var
  path1,path2,path3:TPointArray;
begin
  path1:=[Point(1642,3825),Point(1650,3828)];
  path2:=[Point(1642,3821)];
  path3:=[Point(1648,3826)];
  walker(path1);
  climbstairs;
  walker(path2);
  climbstairs;
  walker(path3);
end;

procedure toTopCenter();
var
  path1:TPointArray;
begin
  path1:=[Point(1638,3801)];
  walker(path1);
end;

procedure toMiddleCenter();
var
  path1,path2:TPointArray;
  stair:TTile;
begin
  stair:=Point(1639,3804);
  path1:=[Point(1639,3803)];
  path2:=[Point(1639,3810)];
  walker(path1);
  repeat
    Reflect.Mouse.Move(Reflect.Tiles.TileToMS(stair,0,0,0),3,3);
    sleep(1000+random(100));
  until (Reflect.Text.IsUpText('Stairs'));
  Reflect.Mouse.Click(Mouse_Left);
  sleep(1500+random(100));
  walker(path2);
end;

procedure MiddleNEtoStart();
var
  path1,path2,path3,path4:TPointArray;

begin
  path1:=[Point(1642,3822)];

  walker(path1);
  climbstairs;

  if(mode)then
    begin
    walker([horphis]);
  end else
    begin
      walker([horphis]);
      walker([villia]);
    end;
end;

procedure TopNEtoStart();
var
  path1,path2,path3,path4:TPointArray;

begin
  path1:=[Point(1644,3828)];
  walker(path1);
  climbstairs;
  MiddleNEtoStart;
end;

procedure BottomNEtoStart();
begin
  if(mode)then
    begin
    walker([horphis]);
  end else
    begin
      walker([horphis]);
      walker([villia]);
    end;
end;

procedure TopNWtoStart();
var
  path1,path2:TPointArray;

begin
  path1:=[Point(1608,3818)];
  path2:=[Point(1610,3826)];
  walker(path1);
  climbstairs;
  walker(path2);
  climbstairs;
  if(mode) then
    begin
      walker([horphis]);
  end else
    walker([villia]);
end;

procedure MiddleNWtoStart();
var
  path1:TPointArray;

begin
  path1:=[Point(1610,3826)];
  walker(path1);
  climbstairs;
  if(mode) then
    begin
      walker([horphis]);
  end else
    walker([villia]);
end;

procedure BottomNWtoStart();

begin
  if(mode) then
    begin
      walker([horphis]);
  end else
    walker([villia]);
end;

procedure TopStoStart();
var
  path1,path2,path3:TPointArray;

begin
  path1:=[Point(1621,3798)];
  path2:=[Point(1610,3795)];
  path3:=[Point(1626,3803)];
  walker(path1);
  climbstairs;
  walker(path2);
  climbstairs;
  walker(path3);
  if(mode) then
    begin
      walker([horphis]);
  end else
    walker([villia]);
end;

procedure MiddleStoStart();
var
  path1,path2:TPointArray;

begin

  path1:=[Point(1610,3795)];
  path2:=[Point(1626,3803)];

  walker(path1);
  climbstairs;
  walker(path2);
  if(mode) then
    begin
      walker([horphis]);
  end else
    walker([villia]);
end;

procedure BottomStoStart();
var
  path1,path2:TPointArray;

begin
  path1:=[Point(1626,3803)];
  walker(path1);
  if(mode) then
    begin
      walker([horphis]);
  end else
    walker([villia]);
end;

procedure TopCenterToStart();
var
  path1:TPointArray;

begin

  path1:=[Point(1646,3825)];
  walker([biblia]);
  if(mode)then
    begin
      walker(path1);
      TopNEtoStart;
    end;
end;

procedure MiddleCenterToStart();

var
  path1:TPointArray;
begin
  path1:=[Point(1639,3810)];
  walker(path1);
  climbstairs;
  TopCenterToStart;
end;

procedure moveToStart();

begin
  case (bl) of
    1: TopStoStart();
    2: TopNEtoStart();
    3: TopNWtoStart();
    4: TopCenterToStart();
    5: MiddleStoStart();
    6: MiddleNEtoStart();
    7: MiddleNWtoStart();
    8: MiddleCenterToStart();
    9: BottomStoStart();
    10:BottomNEtoStart();
    11:BottomNWtoStart();
  end;
end;

procedure moveToBook();
var
  xMax,yMax,xMin,yMin,safeI:integer;
  done:boolean;
begin
  case (bl) of
    1: toTopS();
    2: toTopNE();
    3: toTopNW();
    4: toTopCenter();
    5: toMiddleS();
    6: toMiddleNE();
    7: toMiddleNW();
    8: toMiddleCenter();
    9: toBottomS();
    10:toBottomNE();
    11:toBottomNW();
  end;
  sleep(1000+random(200));
  if(mode=true) then
    currentSearch:='Dark manuscript';
  if((bl=1) or (bl = 5) or (bl = 9)) then
    begin
      xMax:=1627;
      yMax:=3803;
      xMin:=1606;
      yMin:=3783;
    end;

  if((bl=4) or (bl = 8)) then
    begin
      xMax:=1642;
      yMax:=3816;
      xMin:=1624;
      yMin:=3799;
    end;

  if((bl=3) or (bl = 7) or (bl = 11)) then
    begin
      xMax:=1628;
      yMax:=3832;
      xMin:=1606;
      yMin:=3813;
    end;

  if((bl=2) or (bl = 6) or (bl = 10)) then
    begin
      xMax:=1659;
      yMax:=3832;
      xMin:=1638;
      yMin:=3813;
    end;
  repeat
    done := searchShelves(currentSearch,xMax,yMax,xMin,yMin);
    WriteLn('Done????',done);
    if(done=false)then
      inc(safeI);
    WriteLn('Done? ',done);
  until(done or (safeI>2));
  movetostart;
end;

procedure getBookLocation();
begin
if((Reflect.Chat.NpcChooseOption('top') = true) and (Reflect.Chat.NpcChooseOption('south') = true)) then
    bl:=1;
if((Reflect.Chat.NpcChooseOption('top') = true) and (Reflect.Chat.NpcChooseOption('north-eastern') = true)) then
    bl:=2;
if((Reflect.Chat.NpcChooseOption('top') = true) and (Reflect.Chat.NpcChooseOption('north-western') = true)) then
    bl:=3;
if((Reflect.Chat.NpcChooseOption('top') = true) and (Reflect.Chat.NpcChooseOption('central') = true)) then
    bl:=4;
if((Reflect.Chat.NpcChooseOption('middle') = true) and (Reflect.Chat.NpcChooseOption('south') = true)) then
    bl:=5;
if((Reflect.Chat.NpcChooseOption('middle') = true) and (Reflect.Chat.NpcChooseOption('north-eastern') = true)) then
    bl:=6;
if((Reflect.Chat.NpcChooseOption('middle') = true) and (Reflect.Chat.NpcChooseOption('north-western') = true)) then
    bl:=7;
if((Reflect.Chat.NpcChooseOption('middle') = true) and (Reflect.Chat.NpcChooseOption('central') = true)) then
    bl:=8;
if((Reflect.Chat.NpcChooseOption('bottom') = true) and (Reflect.Chat.NpcChooseOption('south') = true)) then
    bl:=9;
if((Reflect.Chat.NpcChooseOption('bottom') = true) and (Reflect.Chat.NpcChooseOption('north-eastern') = true)) then
    bl:=10;
if((Reflect.Chat.NpcChooseOption('bottom') = true) and (Reflect.Chat.NpcChooseOption('north-western') = true)) then
    bl:=11;
WriteLn('Book Location: ', bl);
    moveToBook;
end;

procedure talkToBiblia();
var
  biblia: TReflectNpc;
  msp:integer;

begin
  repeat
      if(xpbook.Find('Book of arcane knowledge')) then
      begin
        Reflect.Mouse.Move(xpbook.GetMSPoint,3,8);
        if(Reflect.Text.IsUpText('knowledge'))then
          begin
            Reflect.Mouse.Click(Mouse_left);
            sleep(1500+random(150));
            Reflect.Chat.NpcChooseOption('Magic');
          end;
      end;
  repeat
    sleep(500+random(50));
  until(biblia.Find('Biblia'));
  if(biblia.Find('Biblia')) then
    begin
      repeat
        reflectPlayer.BlindWalkMM(biblia.GetTile,2);
      until(Reflect.Tiles.DistanceFromTile(biblia.GetTile)<3);
      msp:=Reflect.MouseSpeed;
      Reflect.MouseSpeed:=30;
      repeat
      sleep(150+random(100));
      Reflect.Mouse.Move(biblia.getMSPoint,3,8);
      until(Reflect.Text.IsUpText('Biblia'));
      Reflect.Mouse.Click(MOUSE_RIGHT);
      Reflect.MouseSpeed:=msp;
      chooseOption('Talk');
      if(not didRedClick)then
        talkToBiblia;
      repeat
      sleep(100+random(20));
      until(Reflect.Chat.NpcChooseOption('I have much tidying'))
      if(mode=false) then
        begin
          if(Reflect.Chat.NpcChooseOption('I have much tidying') = true ) then
            begin
              Reflect.Chat.NpcClickToContinue;
              repeat
                sleep(200+random(30));
              until(Reflect.Chat.NpcChooseOption('looking for a book') = true);
              Reflect.Chat.NpcChooseOption('looking for a book');
              sleep(1200+random(100));
              Reflect.Chat.NpcClickToContinue;
              sleep(2000+random(100));
              gotLoc:=true;
              getBookLocation;
            end else
              talkToBiblia;
        end else
          begin
            sleep(500+random(100));
            Reflect.Chat.NpcClickToContinue;
            sleep(1200+random(100));
            if(Reflect.Chat.NpcChooseOption('seen') = true ) then
              begin
                if(Reflect.Chat.NpcChooseOption('book'))then
                  TopNEtoStart;
                Reflect.Chat.NpcChooseOption('Have');
                sleep(500+random(200));
                Reflect.Chat.NpcClickToContinue;
                sleep(800+random(100));
                gotLoc:=true;
                getBookLocation;
              end;
          end;
    end;
    until(gotLoc);
end;

procedure toBiblia();
var
  biblia: TReflectNpc;
  stairs,stairs1:TReflectObject;
  path1,path2,path3:TPointArray;

begin
  path1:=[Point(1618,3826)];
  path2:=[Point(1615,3818)];
  path3:=[Point(1623,3824),Point(1633,3825)];

  walker(path1);
  stairs.Find(objGame,'Stairs',3);
  climbstairs;
  walker(path2);
  stairs1.Find(objGame,'Stairs',4);
  climbstairs;
  walker(path3);
  talkToBiblia;
end;

procedure talkToHorphis();
var
  horphis: TReflectNpc;
begin
if(horphis.Find('Horphis')) then
  begin
    repeat
      Reflect.Mouse.Move(horphis.GetMSPoint,3,5);
      sleep(100+random(100));
    until(Reflect.Text.IsUpText('Horphis'));
    Reflect.Mouse.Click(Mouse_Left);
    if(Reflect.Chat.NpcChooseOption('assist'))then
      begin
        Reflect.Chat.NpcClickToContinue;
        sleep(2000+random(200));
        Reflect.Chat.NpcChooseOption('you');
        sleep(1000+random(200));
        Reflect.Chat.NpcClickToContinue;
        sleep(1000+random(200));
        Reflect.Chat.NpcClickToContinue;
        sleep(1000+random(200));
        Reflect.Chat.NpcClickToContinue;
        sleep(1000+random(200));
        Reflect.Chat.NpcClickToContinue;
        sleep(1000+random(200));
        Reflect.Chat.NpcClickToContinue;
        firstTimeHorphis:=true;
      end;
    sleep(1000+random(50));
    gotBook:=false;
  end;
end;

procedure horphisToBiblia();
var
  path1,path2,path3:TPointArray;
  biblia: TReflectNpc;

begin
  if(firstTimeHorphis=false)then
    talkToHorphis;
  path1:=[Point(1644,3818)];
  path2:=[Point(1643,3829)];
  path3:=[Point(1633,3824)];
  walker(path1);
  climbstairs;
  walker(path2);
  climbstairs;
  walker(path3);
  talkToBiblia;
end;

procedure talkToGrackle();

var
  grackle,biblia: TReflectNpc;
  stairs,stairs1:TReflectObject;
  path:TPointArray;

begin
  path:=[villia];
  if(grackle.Find('Professor Gracklebone')) then
    begin
      repeat
        Reflect.Mouse.Move(grackle.getMSPoint,3,8);
      until(Reflect.Text.IsUpText('Talk'));
      Reflect.Mouse.Click(MOUSE_RIGHT);
      chooseOption('Help');
      sleep(1000+random(100));
      if((Reflect.Chat.NpcChooseOption('Thank') = true) or (Reflect.Chat.NpcChooseOption('I believe you are curr') = true) ) then
        begin
          walker(path);
          exit;
        end;
      getBookName;
      sleep(500+random(100));
      toBiblia;
    end;
end;

procedure talkToVillia();
var
  villia,biblia: TReflectNpc;
  stairs,stairs1:TReflectObject;
  path:TPointArray;
begin
  path:=[grackle];
  if(villia.Find('Villia')) then
    begin
      repeat
        Reflect.Mouse.Move(villia.getMSPoint,3,8);
      until(Reflect.Text.IsUpText('Talk'));
      Reflect.Mouse.Click(MOUSE_RIGHT);
      chooseOption('Help');
      sleep(1000+random(100));
      if((Reflect.Chat.NpcChooseOption('Thank') = true) or (Reflect.Chat.NpcChooseOption('I believe you are curr') = true) ) then
        begin
          walker(path);
          exit;
        end;
      getBookName;
      sleep(500+random(100));
      toBiblia;
    end;
end;

function getState(): Integer;
var
  horphis: TReflectNpc;
begin
  if((Reflect.Tiles.DistanceFromTile(villia)< 6) and not onTask and not mode and (Reflect.Tiles.GetTileHeight(reflectPlayer.GetTile)<1600)) then
    exit(1);
  if((Reflect.Tiles.DistanceFromTile(grackle)< 6) and not onTask and not mode and (Reflect.Tiles.GetTileHeight(reflectPlayer.GetTile)<1600)) then
    exit(2);
  {if((Reflect.Tiles.GetPlane=2) and not(Reflect.Chat.NpcChatOpen)) then
    exit(3);}
  if(mode and (horphis.Find('Horphis')) and not(gotBook))then
    exit(4);
  if(mode and (horphis.Find('Horphis')) and (gotBook))then
    exit(5);
end;

procedure executeState(State: Integer);
begin
  case (State) of
    1: talkToVillia();
    2: talkToGrackle();
    3: talkToBiblia();
    4: horphisToBiblia();
    5: talkToHorphis();
  end;
  sleep(Random(100,200));
end;

begin
  initAL('C:\Javas\Java4\jre1.8.0_91\bin\javaw.exe');
  Reflect.Setup;
  login;
  declarePoints;
  mode:=false;;
  //startingfavour is your current favour x10
  startingfavour:=510;
   repeat
    if (startingfavour>200) then
      mode:=true;
    WriteLn(reflectPlayer.GetTile);
    WriteLn(Reflect.Tiles.GetPlane);
    currentState := getState();
    WriteLn('Current mode :',mode,' Favour: ', startingfavour, ' State :', currentState);

    executeState(currentState);
    sleep(1000);
   until(startingfavour=600);
   logoutPlayer;
   terminatescript;
end.