Results 1 to 12 of 12

Thread: My edgeville bucket filler help

  1. #1
    Join Date
    Mar 2007
    Location
    England
    Posts
    274
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My edgeville bucket filler help

    Hi iv nearly completed my first script which is an edgeville bucket filler and i just need a bit of help improving it and fixing errors. and i need to know how to get the script to count the loads it does.

    SCAR Code:
    Program EdgevilleBucketFiller;
    {.Include SRL/SRL.Scar}

    //////////////////////////////////-INFORMATION-/////////////////////////////////
    // This script will get your empty buckets from the bank and then fill them   //
    // with water. Press F12 to terminate script                                  //
    /////////////////////////////////////-SETUP-////////////////////////////////////
    // 1.Load Runescape 32-bit low detail                                         //
    // 2.Place your character in Edgeville bank with empty buckets in the first   //
    //   slot and full buckets 2nd                                                //
    // 3.Drag the crosshair onto the client                                       //
    // 4.Run the script                                                           //
    ////////////////////////////////-Later Versions-////////////////////////////////
    // Make Soft Clay as well                                                     //
    // Better Walking                                                             //
    // Multiplayer                                                                //
    // More Functions                                                             //
    ////////////////////////////////////////////////////////////////////////////////

    var
      FullBucket:integer;
      LoadsDone:integer;

    Const
    LoadsToDo  = 20;     //How many Loads to do 28 buckets per load
    RoadColour = 7699582; //The colour of the road on the minimap
    WellColour = 333; //obv not right yet

    Procedure DeclarePlayers;
    Begin
      HowManyPlayers:=1;
      CurrentPlayer:=0;
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name := 'username'; //your username
      Players[0].Pass := 'password'; //your password
      Players[0].Nick := 'ser';      //3-4 letters of username
      Players[0].Active := True;     //use this player?
      Players[0].Strings[1] := '';   //bank pin?
    end;

    procedure antirandom;
    begin
      findnormalrandoms;
        if findfight=true then
        begin
          runaway('S',true,1,5000+random(1000));
      end;
    end;

    procedure antiban;
    begin
      if not loggedin then exit;
      case Random(100) of
        0: RandomRClick;
        1: BoredHuman;
        2: HoverSkill('Random', False);
        3: DoEmote(1 + Random(10));
        4: PickUpMouse;
      end;
    end;

    var
    Emptybucket: Integer;
     
    procedure LoadBitmaps;
    begin
      Emptybucket := BitmapFromString(8, 17, 'beNpjYAADxkBv78jgYA' +
           'ZU0NPUlJOaCpQFI2QAEWHMSExAluqor0sPkAYiIKOluirKTQIoCyQ' +
           'hgkCU7CsV7ykZaC8KZABJNPGwgIDsYJkwJzE08cSoqKJIOUxzgG6r' +
           'Ky0tiDFtyrYDKoCjCeUuvS3NxfFmHQUO3UVOQAQUAaLJlW4QZ/eVO' +
           'gMRRGRatfvkzk6IOFwZUHBGncfE9naIOJDd1dAARMAAAaJ5Td5w9U' +
           'CVsxs8V3T5TyxUA5sPAm21NcgIqAwiDjQHqBioHah+QYsPPOggjgE' +
           'aBZSCGgIAI+twqQ==');
    End;

    procedure CloseBS;
    begin
      if bankscreen then
      begin
        mouse(489, 34, 3, 4, true);
        antirandom;
      end;
    end;

    var
     x, y :integer;
     
    procedure WithdrawEmptyBuckets;
    begin
      if bankscreen then
      begin
        If FindBitmapToleranceIn(EmptyBucket, x, y, 32, 88, 75, 128, 25)then
        Withdraw(1,1,28);
        if not FindBitmapToleranceIn(EmptyBucket, x, y, 32, 88, 75, 128, 25)then
        logout;
        writeln ('Couldn''t Find Empty Buckets In 1st Bank Slot Logging out!!');
      end;
    end;

    procedure DepositInv;
    begin
      If not LoggedIn then Exit;
          antirandom;
          OpenBankFast('ab');
          wait(500+random(500))then // i get Line 106: [Error] (16309:22): Identifier expected in script error here
          If Not(BankScreen) or Not(PinScreen)Then
        begin
          wait(2000+random(1000))then
          If Not(BankScreen) or Not(PinScreen)Then
          logout;
          writeln('couldn''t open bank');
        end;
          if PinScreen then InPin(Players[CurrentPlayer].Strings[1])then
          if bankscreen then
          begin
          DepositAll;
    end;

    procedure Setup;
    begin
      cleardebug;
      setupsrl;
      Disguise('Windows Live Messenger');
      ActivateClient;
      declareplayers;
      wait(1000);
      makecompass('N');
        if not InvEmpty;
          then OpenBankFast('ab');
          DepositAll;
      end;
    end;

    procedure Proggy;
    begin
      writeln('====================================');
      writeln('TROJANS EDGEVILLE BUCKET FILLER V0.1');
      writeln('Loads done = ' + IntToStr(loadsdone));
      writeln('filled' + IntToStr(loadsdone * 28)'Buckets');
      writeln('Worked for' + (GetTimeRunning/60000)'Minutes');
      writeln('====================================');
    end;
     
       
    procedure FillBuckets;
      If not LoggedIn then Exit;
      begin
        RadialWalk(RoadColour, 270, 290, 35, 0, 5);
        until fflag (0);
        then RadialWalk(RoadColour, 359, 1, 20, 0, 0);
        until fflag (0);
        then mouse(579, 231, false);
        wait (200);
        FindObjCustom(x, y, ['ell'], [WellColour], 5);


    procedure WalkToBank;
    begin
      if findsymbol (x,y,'bank') then
      begin
        Mouse(x, y, 5, 5, True);
      end else wait(2000)
      if not findsymbol(x,y,'bank') then
      writeln ('couldn''t find bank symbol logging out') then
      logout;
      end;
    end;

    begin
      Setup;
      LoadBitmaps;
      LoginPlayer;
        repeat
          WithdrawEmptyBuckets;
          CloseBS;
          antirandom;
          FillBuckets;
          antirandom;
          WalkToBank;
          DepositInv;
        until(LoadsDone = LoadsToDo;
        or
        until isfkeydown(12)
        proggy;
    end.

    p.s. i know that the standards are way off atm

  2. #2
    Join Date
    Oct 2007
    Location
    The deep web
    Posts
    2,496
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    SCAR Code:
    Program EdgevilleBucketFiller;
    {.Include SRL/SRL.Scar}

    //////////////////////////////////-INFORMATION-/////////////////////////////////
    // This script will get your empty buckets from the bank and then fill them   //
    // with water. Press F12 to terminate script                                  //
    /////////////////////////////////////-SETUP-////////////////////////////////////
    // 1.Load Runescape 32-bit low detail                                         //
    // 2.Place your character in Edgeville bank with empty buckets in the first   //
    //   slot and full buckets 2nd                                                //
    // 3.Drag the crosshair onto the client                                       //
    // 4.Run the script                                                           //
    ////////////////////////////////-Later Versions-////////////////////////////////
    // Make Soft Clay as well                                                     //
    // Better Walking                                                             //
    // Multiplayer                                                                //
    // More Functions                                                             //
    ////////////////////////////////////////////////////////////////////////////////

    var
      FullBucket:integer;
      LoadsDone:integer;

    Const
    LoadsToDo  = 20;     //How many Loads to do 28 buckets per load
    RoadColour = 7699582; //The colour of the road on the minimap
    WellColour = 333; //obv not right yet

    Procedure DeclarePlayers;
    Begin
      HowManyPlayers:=1;
      CurrentPlayer:=0;
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name := 'username'; //your username
      Players[0].Pass := 'password'; //your password
      Players[0].Nick := 'ser';      //3-4 letters of username
      Players[0].Active := True;     //use this player?
      Players[0].Strings[1] := '';   //bank pin?
    end;

    procedure antirandom;
    begin
      findnormalrandoms;
        if findfight=true then
        begin
          runaway('S',true,1,5000+random(1000));
      end;
    end;

    procedure antiban;
    begin
      if not loggedin then exit;
      case Random(100) of
        0: RandomRClick;
        1: BoredHuman;
        2: HoverSkill('Random', False);
        3: DoEmote(1 + Random(10));
        4: PickUpMouse;
      end;
    end;

    var
    Emptybucket: Integer;

    procedure LoadBitmaps;
    begin
      Emptybucket := BitmapFromString(8, 17, 'beNpjYAADxkBv78jgYA' +
           'ZU0NPUlJOaCpQFI2QAEWHMSExAluqor0sPkAYiIKOluirKTQIoCyQ' +
           'hgkCU7CsV7ykZaC8KZABJNPGwgIDsYJkwJzE08cSoqKJIOUxzgG6r' +
           'Ky0tiDFtyrYDKoCjCeUuvS3NxfFmHQUO3UVOQAQUAaLJlW4QZ/eVO' +
           'gMRRGRatfvkzk6IOFwZUHBGncfE9naIOJDd1dAARMAAAaJ5Td5w9U' +
           'CVsxs8V3T5TyxUA5sPAm21NcgIqAwiDjQHqBioHah+QYsPPOggjgE' +
           'aBZSCGgIAI+twqQ==');
    End;

    procedure CloseBS;
    begin
      if bankscreen then
      begin
        mouse(489, 34, 3, 4, true);
        antirandom;
      end;
    end;

    var
     x, y :integer;

    procedure WithdrawEmptyBuckets;
    begin
      if bankscreen then
      begin
        If FindBitmapToleranceIn(EmptyBucket, x, y, 32, 88, 75, 128, 25)then
        Withdraw(1,1,28);
        if not FindBitmapToleranceIn(EmptyBucket, x, y, 32, 88, 75, 128, 25)then
        logout;
        writeln ('Couldn''t Find Empty Buckets In 1st Bank Slot Logging out!!');
      end;
    end;

    procedure DepositInv;
    begin
          If not LoggedIn then Exit;
          antirandom;

          If OpenBankFast('eb') Then
            If BankScreen Xor PinScreen Then
              Begin
                If InPin(Players[CurrentPlayer].PIN) Then
                   FFlag(0);
                     DepositAll;
          CloseBank;
    end;
     WriteLn('Banked!');
    end;

    procedure Setup;
    begin
      cleardebug;
      setupsrl;
      Disguise('Windows Live Messenger');
      ActivateClient;
      declareplayers;
      wait(1000);
      makecompass('N');
        if not InvEmpty;
          then OpenBankFast('eb');
          DepositAll;
      end;
    end;

    procedure Proggy;
    begin
      writeln('====================================');
      writeln('TROJANS EDGEVILLE BUCKET FILLER V0.1');
      writeln('Loads done = ' + IntToStr(loadsdone));
      writeln('filled' + IntToStr(loadsdone * 28)'Buckets');
      writeln('Worked for' + (GetTimeRunning/60000)'Minutes');
      writeln('====================================');
    end;


    procedure FillBuckets;
      If not LoggedIn then Exit;
      begin
        RadialWalk(RoadColour, 270, 290, 35, 0, 5);
        until fflag (0);
        then RadialWalk(RoadColour, 359, 1, 20, 0, 0);
        until fflag (0);
        then mouse(579, 231, false);
        wait (200);
        FindObjCustom(x, y, ['ell'], [WellColour], 5);


    procedure WalkToBank;
    begin
      if findsymbol (x,y,'bank') then
      begin
        Mouse(x, y, 5, 5, True);
      end else wait(2000)
      if not findsymbol(x,y,'bank') then
      writeln ('couldn''t find bank symbol logging out') then
      logout;
      end;
    end;

    begin
      Setup;
      LoadBitmaps;
      LoginPlayer;
        repeat
          WithdrawEmptyBuckets;
          CloseBS;
          antirandom;
          FillBuckets;
          antirandom;
          WalkToBank;
          DepositInv;
        until(LoadsDone = LoadsToDo;
        or
        until isfkeydown(12)
        proggy;
    end.

    thats a little bit done 4 u.
    Did someone say GDK?

  3. #3
    Join Date
    Dec 2007
    Posts
    2,766
    Mentioned
    2 Post(s)
    Quoted
    37 Post(s)

    Default

    As you mentioned your standarts are a little off, fixed most stuff :

    SCAR Code:
    Program EdgevilleBucketFiller;
    {.Include SRL/SRL.Scar}

    //////////////////////////////////-INFORMATION-/////////////////////////////////
    // This script will get your empty buckets from the bank and then fill them   //
    // with water. Press F12 to terminate script                                  //
    /////////////////////////////////////-SETUP-////////////////////////////////////
    // 1.Load Runescape 32-bit low detail                                         //
    // 2.Place your character in Edgeville bank with empty buckets in the first   //
    //   slot and full buckets 2nd                                                //
    // 3.Drag the crosshair onto the client                                       //
    // 4.Run the script                                                           //
    ////////////////////////////////-Later Versions-////////////////////////////////
    // Make Soft Clay as well                                                     //
    // Better Walking                                                             //
    // Multiplayer                                                                //
    // More Functions                                                             //
    ////////////////////////////////////////////////////////////////////////////////

    var
      FullBucket:integer;
      LoadsDone:integer;
      Emptybucket: Integer;
      x, y :integer;

    Const
      LoadsToDo  = 20;     //How many Loads to do 28 buckets per load
      RoadColour = 7699582; //The colour of the road on the minimap
      WellColour = 333; //obv not right yet

    Procedure DeclarePlayers;
    Begin
      HowManyPlayers:=1;
      CurrentPlayer:=0;
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name := 'username'; //your username
      Players[0].Pass := 'password'; //your password
      Players[0].Nick := 'ser';      //3-4 letters of username
      Players[0].Active := True;     //use this player?
      Players[0].Strings[1] := '';   //bank pin?
    end;

    procedure antirandom;
    begin
      findnormalrandoms;
      if (FindFight) then
      begin
        runaway('S',true,1,5000+random(1000));
      end;
    end;

    procedure antiban;
    begin
      if not loggedin then exit;
      case Random(100) of
        0: RandomRClick;
        1: BoredHuman;
        2: HoverSkill('Random', False);
        3: DoEmote(1 + Random(10));
        4: PickUpMouse;
      end;
    end;

    procedure LoadBitmaps;
    begin
      Emptybucket := BitmapFromString(8, 17, 'beNpjYAADxkBv78jgYA' +//make a DTM instead of these ~Dr DD
           'ZU0NPUlJOaCpQFI2QAEWHMSExAluqor0sPkAYiIKOluirKTQIoCyQ' +
           'hgkCU7CsV7ykZaC8KZABJNPGwgIDsYJkwJzE08cSoqKJIOUxzgG6r' +
           'Ky0tiDFtyrYDKoCjCeUuvS3NxfFmHQUO3UVOQAQUAaLJlW4QZ/eVO' +
           'gMRRGRatfvkzk6IOFwZUHBGncfE9naIOJDd1dAARMAAAaJ5Td5w9U' +
           'CVsxs8V3T5TyxUA5sPAm21NcgIqAwiDjQHqBioHah+QYsPPOggjgE' +
           'aBZSCGgIAI+twqQ==');
    End;

    procedure CloseBS;
    begin
      if bankscreen then
      begin
        CloseBank;
        antirandom;
      end;
    end;

    procedure WithdrawEmptyBuckets;
    begin
      if bankscreen then
      begin
        If FindBitmapToleranceIn(EmptyBucket, x, y, 32, 88, 75, 128, 25)then
        Withdraw(1,1,28);
        if not FindBitmapToleranceIn(EmptyBucket, x, y, 32, 88, 75, 128, 25)then
        begin
          logout;
          writeln ('Couldn''t Find Empty Buckets In 1st Bank Slot Logging out!!');
        end;
      end;
    end;

    procedure DepositInv;
    begin
      If not LoggedIn then Exit;
      antirandom;
      OpenBankFast('ab');
      wait(500+random(500))then // i get Line 106: [Error] (16309:22): Identifier expected in script error here
      If Not(BankScreen) or Not(PinScreen)Then
      begin
        wait(2000+random(1000))then
        If Not(BankScreen) or Not(PinScreen)Then
        begin
          logout;
          writeln('couldn''t open bank');
        end;
        if PinScreen then InPin(Players[CurrentPlayer].Strings[1])then
        if bankscreen then
        begin
          DepositAll;
        end;
      end;
    end;

    procedure Setup;
    begin
      cleardebug;
      setupsrl;
      Disguise('Windows Live Messenger');//unnecessary, left it though ~Dr DD
      ActivateClient;
      declareplayers;
      wait(1000);
      makecompass('N');
      if not InvEmpty then
      begin
        OpenBankFast('ab');
        DepositAll;
      end;
    end;

    procedure Proggy;
    begin
      writeln('====================================');
      writeln('TROJANS EDGEVILLE BUCKET FILLER V0.1');
      writeln('Loads done = ' + IntToStr(loadsdone));
      writeln('filled' + IntToStr(loadsdone * 28)+'Buckets');
      writeln('Worked for' + TimeRunning);
      writeln('====================================');
    end;


    procedure FillBuckets;
    begin
      If not LoggedIn then Exit;
      begin
        RadialWalk(RoadColour, 270, 290, 35, 0, 5);
        Flag;
        RadialWalk(RoadColour, 359, 1, 20, 0, 0);
        Flag;
        mouse(579, 231,5,5,false);//added tolerance...Don't understand what its for.
        wait(200);
        FindObjCustom(x, y, ['ell'], [WellColour], 5);
      end else
      begin
        Writeln('Not logged in...');
        Exit;
      end;
    end;

    procedure WalkToBank;
    begin
      if findsymbol (x,y,'bank') then
      begin
        Mouse(x, y, 5, 5, True);
      end else wait(2000)
      if not findsymbol(x,y,'bank') then
      begin
        writeln ('couldn''t find bank symbol logging out') then
        logout;
        TerminateScript;
      end;
    end;

    begin
      Setup;
      LoadBitmaps;
      LoginPlayer;
      repeat
        WithdrawEmptyBuckets;
        CloseBS;
        antirandom;
        FillBuckets;
        antirandom;
        WalkToBank;
        DepositInv;
      until(LoadsDone = LoadsToDo;
      or
      until isfkeydown(12)
      Proggy;
    end.

    You should go read some tuts, is this your first script ? :S

  4. #4
    Join Date
    Sep 2007
    Posts
    638
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try using DTM's instead of bitmaps as they are faster. Also instead of logging out if bucket is not in first slot try to find the bucket first.

    SCAR Code:
    wait(500+random(500))then

    That is because you don't need if then for wait get rid of
    SCAR Code:
    then

    //added tolerance...Don't understand what its for.
    tolerance in a
    SCAR Code:
    Mouse()
    is the randomness in the mouse's click. It is the same as saying
    SCAR Code:
    (x + random(5))
    .

    make

    SCAR Code:
    until(LoadsDone = LoadsToDo


    SCAR Code:
    until(LoadsDone = LoadsToDo)
    looks nicer.

  5. #5
    Join Date
    Dec 2007
    Posts
    2,766
    Mentioned
    2 Post(s)
    Quoted
    37 Post(s)

    Default

    That message about tolerance was made by me, I just asked where the Mouse would click and why and what it was for xD, not the tolerance, I added the tolerance :P

  6. #6
    Join Date
    Mar 2007
    Location
    England
    Posts
    274
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thank you so much for improving my script. I have read loads of tutorials and yes this is my first script.
    how can i click any item in the inventory?
    and how come disguise is no longer needed?
    and im getting this new error now lol
    ill look up a tutorial for making a dtm now
    SCAR Code:
    procedure FillBuckets;
    begin
      If not LoggedIn then Exit;
      begin
        RadialWalk(RoadColour, 270, 290, 35, 0, 5);
        Flag;
        RadialWalk(RoadColour, 359, 1, 20, 0, 0);
        Flag;
        mouse(579, 231,5,5,false);//This was to click the first item in inventory Dr D~
        wait(200);
        FindObjCustom(x, y, ['ell'], [WellColour], 5);
      end else //Line 175: [Error] (16378:5): Identifier expected in script
      begin
        Writeln('Not logged in...');
        Exit;
      end;
    end;

    edit: GOT THE SCRIPT TO WORK thank you so much Dr D. Dervish i will thank you when i release it.

  7. #7
    Join Date
    Dec 2007
    Posts
    2,766
    Mentioned
    2 Post(s)
    Quoted
    37 Post(s)

    Default

    Use MouseItem(item spot,true) I guess ? :S

    EDIT : wooooopies, little mistake of mine there :

    SCAR Code:
    Program EdgevilleBucketFiller;
    {.Include SRL/SRL.Scar}

    //////////////////////////////////-INFORMATION-/////////////////////////////////
    // This script will get your empty buckets from the bank and then fill them   //
    // with water. Press F12 to terminate script                                  //
    /////////////////////////////////////-SETUP-////////////////////////////////////
    // 1.Load Runescape 32-bit low detail                                         //
    // 2.Place your character in Edgeville bank with empty buckets in the first   //
    //   slot and full buckets 2nd                                                //
    // 3.Drag the crosshair onto the client                                       //
    // 4.Run the script                                                           //
    ////////////////////////////////-Later Versions-////////////////////////////////
    // Make Soft Clay as well                                                     //
    // Better Walking                                                             //
    // Multiplayer                                                                //
    // More Functions                                                             //
    ////////////////////////////////////////////////////////////////////////////////

    var
      FullBucket:integer;
      LoadsDone:integer;
      Emptybucket: Integer;
      x, y :integer;

    Const
      LoadsToDo  = 20;     //How many Loads to do 28 buckets per load
      RoadColour = 7699582; //The colour of the road on the minimap
      WellColour = 333; //obv not right yet

    Procedure DeclarePlayers;
    Begin
      HowManyPlayers:=1;
      CurrentPlayer:=0;
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name := 'username'; //your username
      Players[0].Pass := 'password'; //your password
      Players[0].Nick := 'ser';      //3-4 letters of username
      Players[0].Active := True;     //use this player?
      Players[0].Strings[1] := '';   //bank pin?
    end;

    procedure antirandom;
    begin
      findnormalrandoms;
      if (FindFight) then
      begin
        runaway('S',true,1,5000+random(1000));
      end;
    end;

    procedure antiban;
    begin
      if not loggedin then exit;
      case Random(100) of
        0: RandomRClick;
        1: BoredHuman;
        2: HoverSkill('Random', False);
        3: DoEmote(1 + Random(10));
        4: PickUpMouse;
      end;
    end;

    procedure LoadBitmaps;
    begin
      Emptybucket := BitmapFromString(8, 17, 'beNpjYAADxkBv78jgYA' +//make a DTM instead of these ~Dr DD
           'ZU0NPUlJOaCpQFI2QAEWHMSExAluqor0sPkAYiIKOluirKTQIoCyQ' +
           'hgkCU7CsV7ykZaC8KZABJNPGwgIDsYJkwJzE08cSoqKJIOUxzgG6r' +
           'Ky0tiDFtyrYDKoCjCeUuvS3NxfFmHQUO3UVOQAQUAaLJlW4QZ/eVO' +
           'gMRRGRatfvkzk6IOFwZUHBGncfE9naIOJDd1dAARMAAAaJ5Td5w9U' +
           'CVsxs8V3T5TyxUA5sPAm21NcgIqAwiDjQHqBioHah+QYsPPOggjgE' +
           'aBZSCGgIAI+twqQ==');
    End;

    procedure CloseBS;
    begin
      if bankscreen then
      begin
        CloseBank;
        antirandom;
      end;
    end;

    procedure WithdrawEmptyBuckets;
    begin
      if bankscreen then
      begin
        If FindBitmapToleranceIn(EmptyBucket, x, y, 32, 88, 75, 128, 25)then
        Withdraw(1,1,28);
        if not FindBitmapToleranceIn(EmptyBucket, x, y, 32, 88, 75, 128, 25)then
        begin
          logout;
          writeln ('Couldn''t Find Empty Buckets In 1st Bank Slot Logging out!!');
        end;
      end;
    end;

    procedure DepositInv;
    begin
      If not LoggedIn then Exit;
      antirandom;
      OpenBankFast('ab');
      wait(500+random(500))then // i get Line 106: [Error] (16309:22): Identifier expected in script error here
      If Not(BankScreen) or Not(PinScreen)Then
      begin
        wait(2000+random(1000))then
        If Not(BankScreen) or Not(PinScreen)Then
        begin
          logout;
          writeln('couldn''t open bank');
        end;
        if PinScreen then InPin(Players[CurrentPlayer].Strings[1])then
        if bankscreen then
        begin
          DepositAll;
        end;
      end;
    end;

    procedure Setup;
    begin
      cleardebug;
      setupsrl;
      Disguise('Windows Live Messenger');//unnecessary, left it though ~Dr DD
      ActivateClient;
      declareplayers;
      wait(1000);
      makecompass('N');
      if not InvEmpty then
      begin
        OpenBankFast('ab');
        DepositAll;
      end;
    end;

    procedure Proggy;
    begin
      writeln('====================================');
      writeln('TROJANS EDGEVILLE BUCKET FILLER V0.1');
      writeln('Loads done = ' + IntToStr(loadsdone));
      writeln('filled' + IntToStr(loadsdone * 28)+'Buckets');
      writeln('Worked for' + TimeRunning);
      writeln('====================================');
    end;


    procedure FillBuckets;
    begin
      If not LoggedIn then
      begin
        Writeln('Not logged on...');
        Exit;
      end else
      begin
        RadialWalk(RoadColour, 270, 290, 35, 0, 5);
        Flag;
        RadialWalk(RoadColour, 359, 1, 20, 0, 0);
        Flag;
        mouse(579, 231,5,5,false);//added tolerance...Don't understand what its for.
        wait(200);
        FindObjCustom(x, y, ['ell'], [WellColour], 5);
    end;

    procedure WalkToBank;
    begin
      if findsymbol (x,y,'bank') then
      begin
        Mouse(x, y, 5, 5, True);
      end else wait(2000)
      if not findsymbol(x,y,'bank') then
      begin
        writeln ('couldn''t find bank symbol logging out') then
        logout;
        TerminateScript;
      end;
    end;

    begin
      Setup;
      LoadBitmaps;
      LoginPlayer;
      repeat
        WithdrawEmptyBuckets;
        CloseBS;
        antirandom;
        FillBuckets;
        antirandom;
        WalkToBank;
        DepositInv;
      until(LoadsDone = LoadsToDo;
      or
      until isfkeydown(12)
      Proggy;
    end.

  8. #8
    Join Date
    Mar 2007
    Location
    England
    Posts
    274
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok thanks, now I have my empty bucket dtm aswell

  9. #9
    Join Date
    Mar 2007
    Location
    England
    Posts
    274
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    ////////////////////////////////////////////////////////////////////////////////
    //    _______   ______    ______   _____     _      _____  ___                //
    //    |_   _|   | O  _|   |  _ |   |_ _|    /O\     | |\ \ | |                //
    //      | |     | |\ \    | |_||   __||    / _ \    | | \ \| |                //
    //      |_|     |_| \_\   |____|   |__|   /_/ \_\   |_|  \___| Bucket Filler  //
    ////////////////////////////////////////////////////////////////////////////////

    //////////////////////////////////-INFORMATION-/////////////////////////////////
    // This script will get your empty buckets from the bank and then fill them   //
    // with water. Press F12 to terminate script                                  //
    ////////////////////////////////////////////////////////////////////////////////

    /////////////////////////////////////-SETUP-////////////////////////////////////
    // 1.Load Runescape 32-bit low detail                                         //
    // 2.Place your character in Edgeville bank with empty buckets in the first   //
    //   slot and full buckets 2nd                                                //
    // 3.Drag the crosshair onto the client                                       //
    // 4.Run the script                                                           //
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////-Later Versions-////////////////////////////////
    // Make Soft Clay as well                                                     //
    // Better Walking                                                             //
    // Multiplayer                                                                //
    // More Functions                                                             //
    ////////////////////////////////////////////////////////////////////////////////

    Program EdgevilleBucketFiller;
    {.Include SRL/SRL.Scar}

    var
      EBucketDTM:integer;
      LoadsDone:integer;
      x, y :integer;
      TimeM, TimeS :integer;

    Const
      LoadsToDo  = 20;     //How many Loads to do 28 buckets per load
      RoadColour = 7699582; //The colour of the road on the minimap
      WellColour = 333; //obv not right yet

    Procedure DeclarePlayers;
    Begin
      HowManyPlayers:=1;
      CurrentPlayer:=0;
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name := 'username'; //your username
      Players[0].Pass := 'password'; //your password
      Players[0].Nick := 'ser';      //3-4 letters of username
      Players[0].Active := True;     //use this player?
      Players[0].Strings[1] := '';   //bank pin?
    end;

    Procedure Signature;
    begin
      ClearDebug
      WriteLn('Hello');
      Wait(200)
      WriteLn('    _______   ______    ______   _____     _      _____  ___                                                  ');
      Wait(200);
      WriteLn('    |_   _|   | O  _|   |  _ |   |_ _|    /O\     | |\ \ | |                                             ');
      Wait(200);
      WriteLn('      | |     | |\ \    | |_||   __||    / _ \    | | \ \| |                                                ');
      Wait(200);
      WriteLn('      |_|     |_| \_\   |____|   |__|   /_/ \_\   |_|  \___|                                   ');
      Wait(200);
      end;

    procedure LoadDTM;
    begin
      EBucketDTM := DTMFromString('78DA63F461606070644001134A9D18FE03694' +
           '620FE0F048C21408603448E19AE8A91811FAA06CCF302120604D4' +
           '38030927026A3C81840F01358140C28B0835A6F8D50000C2A40A9' +
           '9');
    end;

    procedure Setup;
    begin
      cleardebug;
      setupsrl;
      ActivateClient;
      declareplayers;
      wait(1000);
      makecompass('N');
      if not InvEmpty then
      begin
        OpenBankFast('ab');
        DepositAll;
      end;
    end;

    procedure antirandom;
    begin
      findnormalrandoms;
      if (FindFight) then
      begin
        runaway('S', true, 1, 5000+random(1000));
      end;
    end;

    procedure antiban;
    begin
      if not loggedin then exit;
      case Random(100) of
        0: RandomRClick;
        1: BoredHuman;
        2: HoverSkill('Random', False);
        3: DoEmote(1 + Random(10));
        4: PickUpMouse;
      end;
    end;

    procedure CloseBS;
    begin
      if bankscreen then
      begin
        CloseBank;
        antirandom;
      end;
    end;

    procedure WithdrawEBuckets;
    begin
      if not bankscreen then
        OpenBankFast('ab');
      if PinScreen then InPin(Players[CurrentPlayer].Strings[1]);
      if bankscreen then
      begin
        if(FindDTM(EBucketDTM, x, y, MIx1, MIy1, MIx2, MIy2))then
        Withdraw(1,1,28);
        if not(FindDTM(EBucketDTM, x, y, MIx1, MIy1, MIx2, MIy2)) then
        begin
          logout;
          writeln ('Couldn''t Find Empty Buckets In 1st Bank Slot Logging out!!');
        end;
      end;
    end;

    procedure DepositInv;
    begin
      If not LoggedIn then Exit;
      antirandom;
      OpenBankFast('ab');
      wait(500+random(500));
      If Not(BankScreen) or Not(PinScreen)Then
      begin
        wait(2000+random(1000));
        If Not(BankScreen) or Not(PinScreen)Then
        begin
          logout;
          writeln('couldn''t open bank');
        end;
        if PinScreen then InPin(Players[CurrentPlayer].Strings[1]);
        if bankscreen then
        begin
          DepositAll;
        end;
      end;
    end;

    procedure Proggy;
    begin
      writeln('====================================');
      writeln('TROJANS EDGEVILLE BUCKET FILLER V0.1');
      writeln('Loads Done = ' + IntToStr(loadsdone));
      writeln('Filled' + IntToStr(loadsdone*28)+'Buckets');
      TimeM := (GetTimeRunning/60000);
      TimeS := (GetTimeRunning-(TimeM*60000))/1000
      writeln('Ran For' + IntToStr(TimeM) + ' Minutes And ' + IntToStr(TimeS)+ ' Seconds');
      writeln('====================================');
    end;

    procedure WalkToBank;
    begin
      if findsymbol (x, y, 'bank') then
      begin
        Mouse(x, y, 5, 5, True);
      end else wait(2000);
      if not findsymbol(x, y, 'bank') then
      begin
        writeln ('couldn''t find bank symbol logging out');
        logout;
        TerminateScript;
        proggy;
      end;
    end;


    procedure FillBuckets;
    begin
      If not LoggedIn then
      begin
        Writeln('Not logged on...');
        Exit;
      end else
      begin
        RadialWalk(RoadColour, 270, 290, 35, 0, 5);
        Flag;
        RadialWalk(RoadColour, 359, 1, 20, 0, 0);
        Flag;
        MouseItem(1+random(27),true);
        wait(200 +random(100));
        FindObjCustom(x, y, ['ell'], [WellColour], 5);
       end;
    end;

    begin
      Signature;
      Setup;
      LoadDTM;
      if not loggedin then
        LoginPlayer;
      repeat
        WithdrawEBuckets;
        CloseBS;
        antirandom;
        FillBuckets;
        antirandom;
        WalkToBank;
        DepositInv;
      until(LoadsDone = LoadsToDo);
      or //Line 223: [Error] (16426:1): Identifier expected in script
      until isfkeydown(12);
        Proggy;
        FreeDTM(BucketDTM);
    end.

    this is probably the last error as it is on the 4th to last line please help someone

  10. #10
    Join Date
    Dec 2007
    Posts
    2,766
    Mentioned
    2 Post(s)
    Quoted
    37 Post(s)

    Default

    I posted the fix to that bug, look my edit up...

  11. #11
    Join Date
    Mar 2007
    Location
    England
    Posts
    274
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    begin
      Signature;
      Setup;
      LoadDTM;
      if not loggedin then
        LoginPlayer;
      repeat
        WithdrawEBuckets;
        CloseBS;
        antirandom;
        FillBuckets;
        antirandom;
        WalkToBank;
        DepositInv;
      until(LoadsDone = LoadsToDo);
      or //Line 223: [Error] (16426:1): Identifier expected in script
      until isfkeydown(12);
        Proggy;
        FreeDTM(BucketDTM);
    end.

    this is probably the last error as it is on the 4th to last line please help someone.
    And how does the loadstodo work? do i need to type anything else for it to count the loads?

  12. #12
    Join Date
    Mar 2007
    Location
    England
    Posts
    274
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Got The Script To Work Will Thank You In The Script When I Release It :d

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Clay Softner and Bucket Filler
    By BazzBarrett in forum RS3 Outdated / Broken Scripts
    Replies: 17
    Last Post: 05-01-2009, 01:04 AM
  2. Edgeville Bucket Filler And Clay Softner
    By trojan in forum First Scripts
    Replies: 11
    Last Post: 12-22-2008, 06:15 PM
  3. Bucket Filler
    By lVlaverick in forum First Scripts
    Replies: 18
    Last Post: 11-27-2008, 05:10 PM
  4. varrock east bucket filler
    By infested999 in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 01-06-2008, 04:35 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
  •