Results 1 to 7 of 7

Thread: varrock east bucket filler

  1. #1
    Join Date
    Dec 2007
    Posts
    515
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default varrock east bucket filler

    simple


    1. take buckets from bank
    2. fills them up
    3. banks them


    i need to fill 3k buckets lol

  2. #2
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    thats easy enough, pm me with exactly what you want it to do and dont want it to do.

  3. #3
    Join Date
    Mar 2006
    Posts
    3,051
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    If you're softening clay, I've got a good Clay Softener for Varrock West bank. It could be easily modified to fill and bank buckets instead of softening the clay itself.


  4. #4
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    here peeps, this is what i got so far....
    tell me what to, and il update!
    Start logged in with 28 buckets. and if you have pin pre-enter it.
    SCAR Code:
    program BucketFiller;
    {.include SRL/SRL.Scar}
    var
      x, y, WaterCol : integer;
    procedure DeclarePlayers;
    begin
      HowManyPlayers         := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer          := 0;
      Players[0].Nick        := '';//3-4 Letters Of Your Username
      Players[0].Active      := True;//Are You Using This Player? True=Yes False=No.
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;
    function WakToWater : boolean;
    begin
      Result := False;
      RoadColor := FindVarrockRoadColor;
      RadialRoadWalk(RoadColor, 325, 295, 70, 0, 0);
      wait(1000+random(200));
      CountFlag(0);
      if (FindSymbolIn(x, y, 'water', 562, 11, 623, 137)) then
      begin
        Mouse(x, y, 5, 5, True);
      end else
        RadialRoadWalk(RoadColor, 310, 260, 22, 0, 0);
      wait(1000+random(2000));
      CountFlag(0);
      wait(random(1000));
      Result := True;
    end;
    function AutoColorWater : boolean;
    var
      WaterTol : integer;
    begin
      WaterTol := 0;
      Result := False;
      wait(random(2000));
      repeat
        if (FindColorTolerance(x, y, 10777692, MSX1, MSY1, MSX2, MSY2, WaterTol)) then
          break;
        WaterTol := WaterTol + 1;
      until (not(LoggedIn)) or (WaterTol >= 25);
      if (WaterTol >= 25) then
        Writeln('AHH');
      Result := True;
      WaterCol := GetColor(x, y);
      Writeln(IntToStr(WaterCol));
    end;
    function FillBucket : boolean;
    begin
      Result := False;
      MouseItem(1, True);
      Wait(200+random(200));
      if (FindObjCustom(x, y, ['ntai', 'ount', 'nta'], [WaterCol], 0)) then
      begin
        Mouse(x, y, 4, 4, True);
        Result := True;
      end;
    end;
    function WaitWhileFilling : boolean;
    var
      I : integer;
    begin
      Result := False;
      for I := 0 to 54 do
      begin
        Wait(560+random(50));
      end;
      MMouseItem(28);
      if (IsUpTextMultiCustom(['of', 'wate', 'ater'])) then
        Result := True;
      Writeln(BoolToStr(Result));
    end;
    function ToBank : boolean;
    var
      Tries : integer;
    begin
      Result := False;
      if (RadialRoadWalk(RoadColor, 110, 130, 50, 0, 0)) then
      begin
        Wait(random(1000));
        CountFlag(0);
        repeat
           FindBank('veb');
        until (BankScreen) or (Tries >= 10)
        if (Tries >= 10) then
          Logout;
        Result := True;
      end;
    end;
    function DoBankStuff : boolean;
    begin
      Result := False;
      FixBank;
      DepositAll;
      Withdraw(1, 1, 0);
      CloseBank;
      Result := True;
    end;
    begin
      SetupSRL;
      DeclarePlayers;
      repeat
        MakeCompass('N');;
        if (WakToWater) then
          if (AutoColorWater) then
            if (FillBucket) then
              WaitWhileFilling;
        if (ToBank) then
          DoBankStuff;
      until(False);
    end.

  5. #5
    Join Date
    Dec 2007
    Posts
    515
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    nice, maybe you could add srl stats or that thing where it makes a proggy


    but thats just to much

  6. #6
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    that took five minutes to make. stop leeching edit yourself.

  7. #7
    Join Date
    Dec 2007
    Posts
    515
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    sorry

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Varrock East Bank Vial Filler & Banker
    By the scar noob in forum RS3 Outdated / Broken Scripts
    Replies: 18
    Last Post: 08-11-2009, 01:46 AM
  2. Clay Softner and Bucket Filler
    By BazzBarrett in forum RS3 Outdated / Broken Scripts
    Replies: 17
    Last Post: 05-01-2009, 01:04 AM
  3. My edgeville bucket filler help
    By trojan in forum OSR Help
    Replies: 11
    Last Post: 12-16-2008, 07:18 PM
  4. Bucket Filler
    By lVlaverick in forum First Scripts
    Replies: 18
    Last Post: 11-27-2008, 05:10 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •