SRL Archive - RS3 Script Requests

Could someone make a script that would make pastry dough?
Take out pots of flour and jugs of water and make it into the dough then repeat after banking?

If I have time I'll do it tomorrow

I made it yesterday, it's in my sig.
Just uncomment the BankingII part.

Meh I deleted it for you.

program PieShellMaker;
//{$DEFINE SMART}
{$i srl/srl.simba}

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Pin := '';
  Players[0].Active := True;
end;

procedure SetupLogin;
begin
  ClearDebug;
  Smart_Server := 1;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
end;


procedure BankingI;
var
a, Jug, Flour, X, Y:Integer;

begin
a:=0

repeat
  begin;
    OpenBank('vwb', False, True)
      if(PinScreen) then
        InPin('');                  //Enter your pin between the ''
      if(BankScreen) then
        Deposit(1, 28, True);
        Withdraw(0, 0, 9);
        Withdraw(1, 0, 9);
        CloseBank;
        Wait(100 + Random(100));
  end;


  begin;
    if GetCurrentTab = (tab_Inv) then
      begin
        WriteLn('Current tab is the inventory tab, correct!')
      end else
        begin
          FTab(tab_Inv);
          WriteLn('Changed tab to the inventory tab')
        end;

      begin;
        Jug := BitmapFromString(4, 4, 'meJzrC/CfFhYyPypyRXxcZGRsSGgE' +
        'EAUFheXkFqanZycnp8fGJhYUlAIZiYmp8fHJAM/UEsU=');
        Flour := BitmapFromString(4, 4, 'meJzbtm3f/v0nTpy4eOHiLVXrEAVj' +
        'jy1b927YsEPHNVnTMVbdLgIoaBpSbuRfqO+dreeRDgB6BBWa');
      end;

      if (FindBitmapToleranceIn(Jug, X, Y, 553, 204, 738, 467, 10)) and (FindBitmapToleranceIn(Flour, X, Y, 553, 204, 738, 467, 10)) then
        begin;
          Mouse(X, Y, 5, 5, True);
          FindBitmapToleranceIn(Jug, X, Y, 553, 204, 738, 467, 10);
          Mouse(X, Y, 5, 5, True);
          FreeBitMap(Jug);
          FreeBitMap(Flour);
          Wait(400 + Random(200));
          Mouse(259, 428, 15, 15, True);
          Wait(10500 + Random(1000));
          inc(a);
          end;
  end;

until a=14
end;


procedure BankingII;
var
b, Dish, Dough, X, Y:Integer;

begin
b:=0

repeat
  begin;
    OpenBank('vwb', False, True)
      if(PinScreen) then
        InPin('');                  //Enter your pin between the ''
      if(BankScreen) then
        Deposit(1, 28, True);
        Withdraw(2, 0, 9);
        Withdraw(2, 0, 5);
        Withdraw(3, 0, 9);
        Withdraw(3, 0, 5);
        CloseBank;
        Wait(100 + Random(100));
  end;

  begin;
    if GetCurrentTab = (tab_Inv) then
      begin
        WriteLn('Current tab is the inventory tab, correct!')
      end else
        begin
          FTab(tab_Inv);
          WriteLn('Changed tab to the inventory tab')
        end;

      begin;
        Dish := BitmapFromString(4, 5, 'meJzT88/UQ0Z+6RDkG1cMZ/vEFAIR' +
        'UASIIGwIAgA6UhPB');
        Dough := BitmapFromString(6, 6, 'meJwzcfAwcfAwtHZmYmCAICDX2MED' +
        'yMirr89vaCxuaYFwa/r76yZOrOrtK+vogIi0zprVNG0aRBDI7V64s' +
        'Gv+fLggUKRvyZLeRYvhggDN4Cfg');
      end;

      if (FindBitmapToleranceIn(Dish, X, Y, 553, 204, 738, 467, 10)) and (FindBitmapToleranceIn(Dough, X, Y, 553, 204, 738, 467, 10)) then
          begin;
            Mouse(X, Y, 5, 5, True);
            FindBitmapToleranceIn(Dish, X, Y, 553, 204, 738, 467, 10);
            Mouse(X, Y, 5, 5, True);
            FreeBitMap(Dish);
            FreeBitMap(Dough);
            Wait(400 + Random(400));
            Mouse(259, 429, 10, 10, True);
            Wait(16500 + Random(2000));
            inc(b);
          end;
  end;

until b=9
end;




begin
  //SetupLogin;
    //begin
      SetUpSRL;
      ActivateClient;
        repeat
          BankingI;
          //BankingII;
        until(false);
   //end;
end.

awesome thanks guys =)