Program PCTest;
{$DEFINE SMART}
{$DEFINE SRL5}
{$i SRL/srl.simba}
{$i sps/sps.simba}
{$i SRL/SRL/skill/fighting.simba}
Var
  WalkToPortal:TPointArray;
  const
{==========Smart Setup==========}
World = 53;  // Input the runescape world number right here for it to select. You may leave it as 0 if you would like it to select a random world.
MEMBERS = False;  // Select False if you are not a member. Select True if you are a member.
SIGNED = True;  // Select True if you are using single account. Select False if not. Do know that this is a single account script.
{===============================}
procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; //Your Runescape username goes right here.
  Players[0].Pass := ''; //Your Runescape password goes right here.
  Players[0].Active := True; //Set to True if you want to use this player. Set to False to disable this player.
  Players[0].Pin := ''; //Put your Bank PIN here. Leave blank if you don't have a Bank PIN.
end;
Procedure WaitAndHigh;
begin
wait(15000);
SetAngle(SRL_ANGLE_HIGH);
end;
Procedure CrossPlank;
var x, y: integer;
begin
    FindNormalRandoms;
    WriteLn('Looking for plank.');
    if FindObj(x, y, 'ross', 3892872, 10) then //This finds the object, records the X and Y values, and tells the script to find the option "Rocks" in order to work.
    WriteLn('Crossing Plank.');
      Mouse(x, y, 0, 0, true);
      ChooseOption('ross');
      wait(50);
      if FindBlackChatMessage('You board the lander.') then
      repeat
      wait(50);
      until FindNPCChatText('You must defend the Void Knight while the portals are unsummoned. The ritual takes twenty minutes though so you can help out by destroying them yourselves! Now GO GO GO!',True);
      end;
Procedure WalkPortal;
begin
FindNormalRandoms;
SPS_Setup(RUNESCAPE_SURFACE,['6_15']);
WriteLn('Walking to portal.');
WalkToPortal := [Point(2469, 6232), Point(2468, 6249), Point(2468, 6257), Point(2474, 6265), Point(2487, 6273), Point(2496, 6284), Point(2500, 6290), Point(2504, 6296), Point(2506, 6308), Point(2514, 6319), Point(2521, 6319), Point(2533, 6316), Point(2541, 6327)];
SPS_WalkPath(WalkToPortal);
WriteLn('We have arrived at the Portal.');
MakeCompass('e');
end;
Procedure AttackPests;
var x, y: integer;
begin
repeat
FindNormalRandoms;
WriteLn('Looking For Torcher.');
if FindObj(x, y, 'ttack', 3689829, 10) then
WriteLn('Attacking Torcher.');
Mouse(x, y, 0, 0, true);
ChooseOption('ttack');
wait(500+random(250));
Until InFight;
Repeat
Wait(50);
Until (Not InFight);
end;
Procedure Win;
var x, y: integer;
begin
FindNormalRandoms;
if FindNPCChatText('Congratulations! You managed to destroy all the portals!',True) then
WriteLn('Looking for Continue button.');
if FindObj(x, y, 'ontinue', 1667398, 10) then
Mouse(x, y, 0, 0, true);
ChooseOption('ontinue');
end;
begin
  Smart_Server := WORLD;  //This here sets up the SMART Minimizing Autoing Resource Thing so you can bot.
  Smart_Members := MEMBERS;
  Smart_Signed := SIGNED;
  Smart_SuperDetail := False;
  SetupSRL; //This here sets up SRL incase you didn't know.

  DeclarePlayers; //This here is so the script knows that the player info is filled in with.
  LoginPlayer; //This here logs in your player you filled in with.

  repeat
  WaitAndHigh;
  CrossPlank;
  WalkPortal;
  AttackPests;
  Win;
  until AllPlayersInactive;
end.