Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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: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');
- 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;
- begin
- if (stairs.Find(objGame,'Stairs',4)) then
- begin
- repeat
- Reflect.Mouse.Move(stairs.getMSPoint,3,8);
- sleep(300+random(33));
- until(Reflect.Text.IsUpText('Climb'));
- Reflect.Mouse.Click(Mouse_Left);
- sleep(2000+random(200));
- 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);
- Reflect.Mouse.Move(Reflect.Tiles.TileToMS(stair,0,0,0),3,3);
- sleep(100+random(100));
- 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: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);
- until(done);
- 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 horphisToBiblia();
- var
- path1,path2,path3:TPointArray;
- biblia: TReflectNpc;
- begin
- path1:=[Point(1644,3818)];
- path2:=[Point(1643,3829)];
- path3:=[Point(1633,3824)];
- walker(path1);
- climbstairs;
- walker(path2);
- 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);
- sleep(100+random(50));
- gotBook:=false;
- horphisToBiblia;
- end;
- 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:=135;
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement