SRL Archive - RS3 Outdated / Broken Scripts

well its a clay softener, start i varrock east bank(place doest matter) fill in where the clay can be found in the bank and have a jug in your inventory, open to any suggestions, and please post how it went if you use it.

{.include srl/srl.scar}

const
ClayRow = 1;//bankslot
ClayColumn = 1;//bankslot
NumBahOfPlayers = 1;

var
TheRoadColor, SymbX, SymbY, SymbXB, SymbYB : integer;

/////////////////////////////////////////////////////////////////////////////////

Procedure DeclarePlayers;
begin
     NumberOfPlayers(NumbahOfPlayers);

     Players[0].Name     :='';
     Players[0].Pass     :='';
     Players[0].Nick     :='';
     Players[0].Active   := true;

     CurrentPlayer := 0;

end;

/////////////////////////////////////////////////////////////////////////////////

procedure Bank;
 var
  YellowX, YellowY : integer;
begin
 if not(LoggedIn) then exit;
 FindMiniColor(YellowX, YellowY, 195836, 0, True);
 if((YellowX > 610) and (YellowX <680) and (YellowY > 70) and (YellowY < 120))
  then begin
   Mouse(YellowX+7, YellowY, 1, 1, True)
   Flag;
   Mouse(266, 201, 2, 2, False);
   ClickOption('quickly', 1);
  end;
 wait(500);
 Deposit(2,28,2);
 Withdraw(ClayColumn,ClayRow,0);
end;

/////////////////////////////////////////////////////////////////////////////////

procedure FirstPlayer;
 var
  Slot:integer;
  Coords:Tpoint;
begin
 LoginPlayer;
 Wait(1000);
  for Slot := 1 to 28 do
   begin
    if(ExistsItem(Slot) = True) then
     begin
      Coords:=ItemCoords(Slot);
      MMouse(Coords.X,Coords.Y,2,2);
      if(IsUpText('ug')) then DragItem(Slot,1);
     end;
   end;
 Bank;
 TheRoadColor := FindRoadColor;
end;

procedure NewPlayer;
 var
  Slot:integer;
  Coords:Tpoint;
begin
 NextPlayer(False);
 Wait(1000);
  for Slot := 1 to 28 do
   begin
    if(ExistsItem(Slot) = True) then
     begin
      Coords:=ItemCoords(Slot);
      MMouse(Coords.X,Coords.Y,2,2);
      if(IsUpText('jug')) then DragItem(Slot,1);
     end;
   end;
 PerfectNorth;
 HighestAngle;
 Bank;
 TheRoadColor := FindRoadColor;
end;


/////////////////////////////////////////////////////////////////////////////////

procedure ToFountain;
begin
 if not(LoggedIn) then exit;
 RadialRoadWalk(RoadColor, -55, -15, 60, 1, 1);
 Flag;
 If not(FindSymbol(SymbX, SymbY, 'water'))
  then begin
   logout;
   exit;
  end;
 Mouse(SymbX, SymbY, 2, 2, true);
 Flag;
end;

/////////////////////////////////////////////////////////////////////////////////
procedure ClickFountain;
 var
  FountainX, FountainY : integer;
begin
FindObj(FountainX, FountainY, 'fountain', 13871248, 1);
Mouse(FountainX, FountainY, 2, 2, True);
end;

procedure SoftenClay;
 Var
  Clay : integer;
begin
 if not(LoggedIn) then exit;
 For Clay := 2 to 28 do
  begin
   FindNormalRandoms;
   MouseItem(1 ,True);
   ClickFountain;
   Flag;
   Wait(1000 + random(500));
   MouseItem(1 ,True);
   MouseItem(Clay ,True);
  end;
end;

/////////////////////////////////////////////////////////////////////////////////

procedure ToBank;
begin
 if not(LoggedIn) then exit;
 RadialRoadWalk(RoadColor, 90, 180, 60, 1, 1);
 if not(FindSymbol(SymbXB, SymbYB, 'bank'))
  then begin
   logout;
   exit;
  end;
 Mouse(SymbXB, SymbYB, 2, 2, true);
end;



/////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////

begin
 SetupSRL;
 ActivateClient;
 DeclarePlayers;
 Wait(1000);
 FirstPlayer;
 repeat
  repeat
   ToFountain;
   SoftenClay;
   ToBank;
   Bank;
  until not(LoggedIn);
 Wait(1000);
 NewPlayer;
 until not(Players[CurrentPlayer].Active);
end.

Went alright, didnt use for long, (Only 3 loads of clays) Could be a bit faster, but on the whole good job

please tell me, where is it slow?