Page 3 of 8 FirstFirst 12345 ... LastLast
Results 51 to 75 of 187

Thread: [SRL 4] BH - Edgeville Yew Cutter + Banker

  1. #51
    Join Date
    Dec 2006
    Location
    Boss central
    Posts
    811
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default another problem

    dude the new version it banks then logs out and try to change player
    even i if i set to 1 player so idk next can u test out befor postin to make sure all problems are out ty

  2. #52
    Join Date
    Apr 2007
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you need to change the time per person i saw on the scar menu thing it said tiem ran out

    so in the mean time u need to do a lil re search before you come mouthing peoples scripts i was asking why it did it i wasnt telling him this or that his script works great u just need to change the player time i changed it and it did 2 bank runs then logged me otu which i can understand lol nice script man

  3. #53
    Join Date
    Apr 2007
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default


  4. #54
    Join Date
    Apr 2007
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i like ur script lol it helped me get from 60 wc 2 62 if it wasnt for the randoms like the camo one n the demon class n the mime one i know it woulda been higher srl needs to work them out lol

  5. #55
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Ye thats why in version 0.10 i added more and diffrent antiban

    Also dude dont Triple posts its really annoying, just edit

  6. #56
    Join Date
    Aug 2007
    Location
    Canada eh'
    Posts
    44
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice, Script!

    (Reserved For My Proggy)

  7. #57
    Join Date
    Jul 2007
    Posts
    1,055
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It isn't just making an acount, activating a pin, waiting 3 days, and giving you acount. Cause won't it need 60 WC?

  8. #58
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Quote Originally Posted by osmm View Post
    It isn't just making an acount, activating a pin, waiting 3 days, and giving you acount. Cause won't it need 60 WC?
    I only need an account with a pin, it doesnt need 60 wc.

  9. #59
    Join Date
    Dec 2006
    Location
    Boss central
    Posts
    811
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default member version??

    when will the member version be out
    and will it be better then the one out now?

  10. #60
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Hmm, i dont know if ill release the mem's version. And yes mems version if i make LOL, will have everything better like:
    - Faster tree finding and detection.
    - More Antiban!
    - Movements like a real human
    - Better banking + failsafe for banking
    - More options of walking.
    - Maybe form.

    But ill tell you i will be making another free version, will have a few stuff fixed.

  11. #61
    Join Date
    Dec 2006
    Location
    Boss central
    Posts
    811
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default sound wiked

    sounds wiked looks like u got like to work to lol
    but if i no u which i dont i think youll be fine
    kk


    and i heard u were makin a good varrock yew cuttere if that out yet?

  12. #62
    Join Date
    Dec 2006
    Location
    Boss central
    Posts
    811
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default stuff get from randoms

    ummm little problem
    doesnt drop the items that u get from randoms
    just wonderin if it is spose to do that
    just informin u that it doesnt drop

  13. #63
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    .. Dude it banks them, why would i bother to make it drop, maybe people need uncuts and sandwiches and stuff for health who knows.

    AND dont double post.

  14. #64
    Join Date
    Jul 2007
    Posts
    1,055
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by BobboHobbo View Post
    I only need an account with a pin, it doesnt need 60 wc.
    ...then why dont u just make one =P

    Also your "member" version. You talkin rs member or SRL memebr (im guessing SRL member) also i could POSSIBLY buy one if it was good enough (better than the one out now)

  15. #65
    Join Date
    Apr 2007
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey soz about the post n the creater of this awesome woodcutter please add me on msn

    JamesPoision@hotmail.com

    Or

    JamesPoision@msn.com

  16. #66
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Quote Originally Posted by osmm View Post
    ...then why dont u just make one =P

    Also your "member" version. You talkin rs member or SRL memebr (im guessing SRL member) also i could POSSIBLY buy one if it was good enough (better than the one out now)
    As in mems version I meant a SRL Members Version, but decided not to make, ill just make a few more better versions then Ill make one super one, maybe private or pay.

  17. #67
    Join Date
    Oct 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    excellent script, just needs to avoid lunch lady and it would be perfecto!
    try and update that next time great script

  18. #68
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    It does talk to the sandwhich i cant help if it doesnt its all from SRL, unless you didnt set your nickname right.

  19. #69
    Join Date
    Jun 2007
    Posts
    160
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sexy!

    <============== Progress Report ===============>
    Script Worked for 1 Hours, 6 Minutes and 50 Seconds
    Banked 1 load[s].
    Chopped 25 Log[s].
    Ents Broke the Axe 0 Time[s].
    Avioided Ents 0 Time[s].
    Banked 0 Broken axes and got a new one.
    <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
    Name : xx
    Player : 1
    Active : True
    Location : At tree, cutting.
    <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
    0 : xx := False
    1 : xx := True
    <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
    at top
    Found NickName
    Found NickName
    ******** FOUND TALKING RANDOM TEXT********: Talk-to Sandwich lady
    Answer = baguette
    Close Match in Slot:2. Scanning Slots 2
    Close Match in Slot:3. Scanning Slots 3
    Close Match in Slot:4. Scanning Slots 4
    Close Match in Slot:5. Scanning Slots 5
    Close Match in Slot:7. Scanning Slots 7

    got owned though i dont think those log count is write. maybe thats just for my number 2 guy

    Edit: o0o i banked once and almost had a second full load

    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    | SRL 4 Randoms Report |
    | www.srl-forums.com |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | SRL Logs : 1 |
    | Talks : 3 |
    | Dwarfs : 1 |
    | Sandwiches : 2 |
    | Ents Found : 4 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

  20. #70
    Join Date
    Nov 2006
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    <============== Progress Report ===============>
    Script Worked for 1 Hours, 31 Minutes and 2 Seconds
    Banked 7 load[s].
    Chopped 195 Log[s].
    Ents Broke the Axe 0 Time[s].
    Avioided Ents 0 Time[s].
    Banked 0 Broken axes and got a new one.
    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    | SRL 4 Randoms Report |
    | www.srl-forums.com |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | Fights : 3 |
    | Talks : 1 |
    | Capn Hand[s] : 1 |
    | Ents Found : 1 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/


    The only problem i had was, when i got a talking random, it would talk to the random, but after it left, it wouldnt click on the yew tree. but other than that, awesome script. also has some problems finding a bank, but i just turned the angle right a bit and it founded it with no problem.
    http://i36.photobucket.com/albums/e4...mer/quake1.jpg
    Possible Projects in the Future
    Snape grass collector + banker

  21. #71
    Join Date
    Mar 2007
    Location
    New York
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    BobboHobbo - I edited some small spelling errors you made in the script. Here is the updated one with those fixed while I was watching the program run. Runs great, will keep using whenever I can....

    <============== Progress Report ===============>
    Script Worked for 18 Minutes and 8 Seconds
    Banked 1 load[s].
    Chopped 27 Log[s].
    Ents Broke the Axe 0 Time[s].
    Avioided Ents 0 Time[s].
    Banked 0 Broken axes and got a new one.
    <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>

    I forgot to reset the amount of loads, so it only did one, kept logging in and out since the loads were finished.

    Here's the updated script with spelling changes fixed...

    SCAR Code:
    {===================================================================]
    [            BobboHobbo's  Edgeville Yew Cutter + Banker            ]
    [                                                                   ]
    [           NAME        : BH - Edgeville Yew Cutter + Banker        ]
    [           WRITER      : BobboHobbo                                ]
    [           CATEGORY    : WoodCutting                               ]
    [           DESCRIPTION : Cuts and banks yews as Edgeville          ]
    [           AUTOCOLOR   : Yes                                       ]
    [           SRL Used    : 4.0                                       ]
    [           SCAR VERSION: SCAR DIVI 3.12                            ]
    [                                                                   ]
    [                   More Scripts can be found at                    ]
    [                        [url]www.SRL-Forums.com[/url]                         ]
    [===================================================================]
    [                           Instructions.                           ]
    [===================================================================]
    [ 1. USE Runescape with Low Detail, Very Bright.                    ]
    [ 2. Set your Screen to 32 bit TRUE color.                          ]
    [ 3. Setup lines below                                              ]
    [ 4. Have your axe in you INVENTORY and spare axes in bank          ]
    [ 5. Start in the Southest bank slot in Edgeville Bank              ]
    [ 6. Drag the Cross Hair into Runescape and press PLAY!             ]
    [===================================================================]
    [ Credits to :                                                      ]
    [    Sulimon - For the Layout thing above.                          ]
    [    Starblaster100 - For the UpdateCord Procedure (Modded by me)   ]
    [    Rotflmfwao - For his CountItemDTM Procedure.                   ]
    [===================================================================}

    program BHEYC;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\Skill\Woodcutting.SCAR}
    const
      ///////////////////////
      // -> SET THESE CONSTS
      ///////////////////////
      NormalMouseSpeed = 9; // Mouse speed.
      SRLStatsID = ''; // SRL Stats ID Number.
      SRLStatsPW = ''; // SRL Stats Password.
      Maxtime = 100000; // Max time per player? (In MILISECONDS)*DOESNT WORK GOOD*
      WaitTime = 10000; // Time after logging out to log back in. (keep at 0 if you dont want this)
    var
      x, y: Integer;
      brokenaxedtm, Chopped, Ents, Banked: integer;
      Bank, AxeH, Axe, Yew, Yew1, Logmask, Bankedd: Integer;
      TotalScriptTime,Timer: LongInt;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      CurrentPlayer := 0;
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Integers[1] := 1; //Loads
      Players[0].Active := True;
      Players[0].Pin   := ;

    {  Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[1].Integers[1] := 1; //Loads
      Players[1].Active := True;
      Players[1].Pin   := 0000;

      Players[2].Name := 'Username';
      Players[2].Pass := 'Password';
      Players[2].Nick := 'Nickname';
      Players[2].Integers[1] := 3; //Loads
      Players[2].Active := True;
      Players[2].Pin   := 0000;

      Players[3].Name := 'Username';
      Players[3].Pass := 'Password';
      Players[3].Nick := 'Nickname';
      Players[3].Integers[1] := 3; //Loads
      Players[3].Active := True;
      Players[3].Pin   := 0000;

    }


      //ADD MORE PLAYERS IF YOU WANT.



      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    procedure LoadDtms;
    begin
      BrokenAxedtm := BitmapFromString(6, 12, 'z78DA3330200CDC700003' +
        'A2F552A206972CF12EA1AE6B315562EAA2DCCDB80000FF8D5941');
      Bank := DTMFromString('78DA63CC656260886640017FFE30816946289' +
        'F11A42608BF1A00D5010584');
      AxeH := DTMFromString('78DA63B463626078CA8002FAB20519FE03694' +
        '620FE0F048CD640351F18D000231209A42D816A5E115003B2EB36' +
        '0135CE4035D709A8F102AAB941408D0F50CD1D026ABC816A1E105' +
        '0E304547317BF1A000F77106A');
      Yew := DTMFromString('78DA63CC63626078C2800282EC3819FE03694' +
        '620FE0F048CB140354F19D000231209A493816AEE105003B2EB36' +
        '0135E540358F08A82901AA794B404D2E50CD7B026A52816A3E105' +
        '0130754F306BF1A0097FF1192');
      Yew1 := DTMFromString('78DA63CC63626078C2800282EC3819FE03694' +
        '620FE0F048CB140354F19D000231209A493816AEE105003B2EB36' +
        '0135E540358F08A82901AA794B404D2E50CD7B026A52816A3E105' +
        '0130754F306BF1A0097FF1192');
      LogMask := BitmapFromString(19, 14, 'z78DA3330A00E704302067407' +
        'F4B777D4C6A16EE3F0F09D1B5E400B9369E7F2E114D7230100008' +
        'F6836A8');
    end;

    function CountItemDTM(DTM: Integer): Integer; // From rotflmfwao
    var
      i, x, y: Integer;
      TB: Tbox;
    begin
      GameTab(4);
      for i := 1 to 28 do
      begin
        TB := InvBox(i);
        if ExistsItem(i) then
          if FindDTM(DTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
            Inc(Chopped); //EDITED This bit <----


      end;
    end;

    function CountItemDTM1(DTM: Integer): Integer; // From rotflmfwao
    var
      i, x, y: Integer;
      TB: Tbox;
    begin
      GameTab(4);
      for i := 1 to 28 do
      begin
        TB := InvBox(i);
        if ExistsItem(i) then
          if FindDTM(DTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
            Inc(Result);

      end;
    end;


    //////////////////////////////////////////////////////////
    //      >> Symbol Stuff - DONT TOUCH AT ALL!
    //////////////////////////////////////////////////////////
    //FInds symbol in top part of MM

    function GetSymbolColorTopHalfMM(var rx, ry: Integer; Name: string): Integer;
    begin
      Result := GetSymbolColorIn(rx, ry, LowerCase(Name), 570, 5, 718, 69);
    end;
    //FInds symbol in bottom part of MM

    function GetSymbolColorBottomHalfMM(var rx, ry: Integer; Name: string): Integer;
    begin
      Result := GetSymbolColorIn(rx, ry, LowerCase(Name), 570, 82, 718, 154);
    end;
    //FInds symbol in bottom part of MM

    function FindSymbolB(var rx, ry: Integer; Name: string): Boolean;
    begin
      Result := (GetSymbolColorBottomHalfMM(rx, ry, LowerCase(Name)) > 0);
    end;
    //FInds symbol in top part of MM

    function FindSymbolT(var rx, ry: Integer; Name: string): Boolean;
    begin
      Result := (GetSymbolColorTopHalfMM(rx, ry, LowerCase(Name)) > 0);
    end;

    procedure Chop1;
    begin
      repeat
        if invfull or not (LoggedIn) then
        begin
          Break;
          Exit;
        end else
         ftwait(1);
         wait(50);
        begin
          case random(150) of
            0: GameTab(4 + Random(12));
            1: Wait2(1000,true);
            2: PickupMouse;
            3: GameTab(1 + Random(12));
            4: GameTab(1 + Random(12));
            5: RandomRClick;
          end;
        end;
      until (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 4));
      if (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 4)) then
      begin
        if FindObjCustom(x, y, ['Yew', 'ew Tree'], [4945777], 5) then
        begin
          Mouse(x, y, 0, 0, false);
          wait(100);
          ChooseOption('Chop');
        end;
      end;
    end;

    procedure EntFinder;
    begin
      if FindEnt(x, y, true) then
      begin
        Chop1;
      end else
        ftwait(1);
      Exit;
    end;

    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
      i: Integer;
    begin
      for i := 1 to 8 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          7: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
      end;
    end;


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

    procedure RunBackBH;
    begin
      if not (LoggedIn) then Exit;
      if FindSymbol(x, y, 'tree') then
      begin
        mouse(x, y, 1, 1, true);
        flag;
        Chop1;
      end;
    end;

    procedure FindRandoms;
    var
      WaitTree1: LongInt;
    begin
      if (not (LoggedIn)) then
      begin
        Exit;
      end;
      FindFastRandoms;
      FindNormalRandoms;
      EntFinder;
      if (FindFight) then
      begin
        RunTo('S', True)
          Flag;
        MarkTime(WaitTree1)
          repeat
          FindRandoms;
        until TimeFromMark(WaitTree1) > 2000 + Random(3000)
          RunBackBH;
      end;
    end;

    procedure FindRandoms1;
    var
      WaitTree1: LongInt;
    begin
      if (not (LoggedIn)) then
      begin
        Exit;
      end;
      FindFastRandoms;
      //FindNormalRandoms;
      EntFinder;
      if (FindFight) then
      begin
        RunTo('S', True)
          Flag;
        MarkTime(WaitTree1)
          repeat
          FindRandoms;
        until TimeFromMark(WaitTree1) > 2000 + Random(3000)
          RunBackBH;
      end;
    end;
    //////////////////////////////////////////////////////////
    //      >> Walking to Yew - Please Dont touch if not needed
    //////////////////////////////////////////////////////////

    procedure Think;
    begin
      if FindSymbol(x, y, 'tree') then
      begin
        Mouse(x, y - 15, 6, 6, true);
        Flag;
      end else
        if not FindSymbol(x, y, 'tree') then
        begin
          Mouse(673, 43, 2, 2, true);
          Flag;
          if FindSymbolT(x, y, 'tree') then
          begin
            mouse(x, y + 9, 3, 3, true);
            FindRandoms1;
            Flag;
          end;
        end;
    end;

    procedure Think2;
    begin
      if RadialWalk(FindDirtRoadColor, 332, 375, 53, 0, 0) then
      begin
        if FindSymbolT(x, y, 'tree') then
        begin
          Mouse(x, y + 15, 1, 1, true);
          Flag;
        end else
          Think;
      end;
    end;

    procedure WalkToYew;
    begin
      case random(2) of
        0: Think2;
        1: Think;
      end;
        Chop1;
        Disguise('Total Banks [' + IntToStr(Banked) + ']');
    end;

    procedure BankDTM;
    begin
      if not (LoggedIn) then Exit;
      if DTMRotated(Bank, x, y, MMx1, MMy1, MMX2, MMY2) then
      begin
        Mouse(x, y, 1, 1, true)
          Flag;
        Exit;
      end else
        if FindSymbol(x, y, 'bank') then
        begin
          Mouse(x, y, 1, 1, true)
            Flag;
          Exit;
        end;
    end;
    function OpenBankQuietBH(WhichBank: string): Boolean;
    var
      TheCounter, dx, dy, tol, Mark2, Mark3: Integer;
      acc, accthres: Extended;
    begin
      case WhichBank of
        'feb', 'fwb': TheCounter := BitmapFromString(1, 10, '6C583296897A948779948779736' +
            'C63A59E968C7F6F9686749B8A7685663E');
        // varrock west
        'vwb': TheCounter:= BitmapFromString(10, 1, 'A0997F504A49504A49504A495E4' +
           'F215E4F215E4F215E4F212C250EA0997F');
        // varrock east
        'veb': TheCounter := BitmapFromString(1, 10, '5E4D1589826D88806D88806D867' +
           'F6C9996907C7664847D648C836891876B');
        // draynor and this works too for alkharid
        'akb', 'db', 'eb': TheCounter:= BitmapFromString(12, 1, '584209735C29735C29735C29605' +
           '85558504D60504D58504D58504D58504D58504D605855');
      end;

      MarkTime(Mark3);
      tol := 1;
      accthres := 0.6;
      repeat
        if IsUpTextMulti('ank', 'Bo', 'ot') then
        begin
          GetMousePos(dx, dy);
          Mouse(dx, dy, 0, 0, False);
          if ChooseOption('uickly') then
          begin
            MarkTime(Mark2);
            repeat
              Wait(10);
              if TimeFromMark(Mark2) > 20000 then
              begin
                WriteLn('couldnt find the bank. Exiting');
                FreeBitmap(TheCounter);
                Exit;
              end;
            until BankScreen or (PinScreen);
            Result := True;
            FreeBitmap(TheCounter);
            Exit;
          end;
        end;

        FindDeformedBitmapToleranceIn(TheCounter, dx, dy, MSX1 + 50, MSY1 + 50, MSX2
          - 50, MSY2 - 50, tol, 4, True, acc);
        if (acc >= accthres) then
        begin
          MMouse(dx, dy, 0, 0);
          if IsUpTextMulti('ank', 'Bo', 'ot') then
          begin
            GetMousePos(dx, dy);
            Mouse(dx, dy, 0, 0, False);
            if ChooseOption('uickly') then
            begin
              MarkTime(Mark2);
              repeat
                Wait(10);
                if TimeFromMark(Mark2) > 20000 then
                begin
                  WriteLn('couldnt find the bank. Exiting');
                  FreeBitmap(TheCounter);
                  Exit;
                end;
              until BankScreen or (PinScreen);
            end;
            Result := True;
            FreeBitmap(TheCounter);
            Exit;
          end;
        end;
        Wait(100);
        tol := tol + 4;
        if tol >= 20 then
        begin
          tol := 1;
          accthres := accthres - 0.1;
          if accthres < 0.2 then
          begin
            WriteLn('couldnt find the bank. Exiting');
            FreeBitmap(TheCounter);
            Exit;
          end;
        end;
      until TimeFromMark(Mark3) > 60000;
      FreeBitmap(TheCounter);
    end;
    function OpenBank13: Boolean;
    begin
      if not (LoggedIn) then Exit;
      Makecompass('S');
      OpenBankQuietBH('eb');
        If(PinScreen)Then
        Begin
          InPin(IntToStr(Players[CurrentPlayer].Pin));
          Wait(500+Random(250));
        End else
      if BankScreen then
      begin
        wait(200);
        LoadDTMs;
        FixBank;
        if (FindBitmapMaskTolerance(BrokenAxedtm, x, y, MIX1, MIY1, MIX2, MIY2, 5, 5)) then
        begin
          Mouse(x, y, 1, 1, true);
          wait(1000 + random(100));
          if FindDTM(AxeH, x, y, MSX1, MSY1, MSX2, MSY2) then
          begin
            Mouse(x, y, 1, 1, true);
            CloseBank;
            Axe := Axe + 1;
            ReportVars[2] := 1;
            Players[CurrentPlayer].Loc := 'Got new Axe!';

            Exit;
          end else
            if not (FindDTM(AxeH, x, y, MSX1, MSY1, MSX2, MSY2)) then
            begin
              Players[CurrentPlayer].Loc := 'You have no spare axes!';
              Nextplayer(false);
              Writeln('No spare broken axes in bank CHANGING PLAYERS');
            end else
              if not BankScreen then
              begin
                Result := False;
                writeln('Player couldnt find the bank');
                Players[CurrentPlayer].Loc := 'Couldnt find the bank, Trying to get back from broken axe';
                Players[CurrentPlayer].Active := False;
                Logout;
                Exit;
              end;
        end;
      end;
    end;

    procedure WalkToBank;
    begin
      if not (LoggedIn) then Exit;
      if FindSymbolB(x, y, 'tree') then
      begin
        mouse(x, y - 10, 3, 3, true);
        setrun(true);
      end;
      if (FindColorTolerance(x, y, FindVarrockRoadColor, MmX1, MmY1, MmX2, MmY2, 2)) then
      begin
        Mouse(x, y, 1, 1, true);
        wait(7500 + random(100));
        flag;
        BankDTM;

      end;
    end;

    function AxeBroken: boolean;
    begin
      if not (LoggedIn) then Exit;
      GameTab(4);
      if (InChat('No you just did not')) or
        (FindBitmapMaskTolerance(BrokenAxedtm, x, y, MIX1, MIY1, MIX2, MIY2, 5, 5)) then
      begin
        Writeln('Dang thing smashed my axe!');
        Result := True;
      end else
        Result := False;
    end;

    procedure HandleBrokenAxe;
    begin
      WalkToBank;
      ftwait(1);
      OpenBank13;
      WalkToYew;
    end;


    procedure changetree;
    begin
    Disguise('Total Banks [' + IntToStr(Banked) + ']');
      if not (LoggedIn) then Exit;
      writeln('at top');
      if FindSymbolT(x, y, 'tree') then
      begin
        mouse(x, y + 9, 3, 3, true);
        FindRandoms1;
        Flag;
        chop1;
        Exit;
      end else
        writeln('at bottom tree');
      if FindSymbolB(x, y, 'tree') then
      begin
        mouse(x, y - 9, 3, 3, true);
        Flag;
        Chop1;
      end;
    end;

    function Check: boolean;
    var
      WaitTree: LongInt;
    begin
      if not (LoggedIn) then Exit;
      if (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 4)) then
      begin
        result := true;
        EntFinder;
        exit;
      end else
        result := false;
      if Result = false then
      begin
        ChangeTree;
        MarkTime(WaitTree)
          repeat
          if (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 4)) then
          begin
            Break;
            Exit;
            FindRandoms;
          end else
            FindRandoms;
          Wait(100);
        until TimeFromMark(WaitTree) > 8000 + Random(3000);
      end;
    end;


    procedure AntiBan1;
    begin
      case random(13) of
        0: GameTab(4 + Random(12));
        1: GameTab(2 + Random(12));
        2: Wait2(1000,true);
        3: GameTab(2 + Random(12));
        4: GameTab(2 + Random(12));
        5: GameTab(2 + Random(12));
      end;
    end;

    procedure AntiBan;
    var
      B: Integer;
    begin
      if not (LoggedIn) then Exit;
      if (AxeBroken = True) then
        HandleBrokenAxe;
      MouseSpeed := 6 + random(8);
      repeat
        MMouse(x - 312 + random(1100), y + random(400), 2, 2);
        Wait(1500 + random(1000));
        EntFinder;
        FindRandoms;
        b := B + 1;
        Disguise('Done [' + IntToStr(Banked) + '/' + IntToStr(Players[CurrentPlayer].Integers[1]) + '] Loads');
      until (b >= 3 + random(6))or Invfull or not (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 2));
      if not (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 4)) then
        MouseSpeed := NormalMouseSpeed;
      if (b >= 3) then
      begin
        MouseSpeed := NormalMouseSpeed;
        Antiban1;
        EntFinder;
      end else
        MouseSpeed := NormalMouseSpeed;
      Exit;
    end;

    function UpdateCoords(var cx, cy: Integer; ax, ay, TheColor, Tol: Integer): Boolean;
    var
      Counter: integer;
    begin
      if not (LoggedIn) then Exit;
      //GetMousePos(ax, ay);
      if (ax < 20) then ax := 20; if (ay < 20) then ay := 20;
      while (FlagPresent) and (FindColorSpiralTolerance(cx, cy, TheColor, ax - 20, ay - 20, ax + 20, ay + 20, Tol)) do
      begin
        ax := cx; ay := cy;
        Wait(10);
        FindRandoms;
        Check;
        EntFinder;
        if invfull then
          Exit;
        Check;
        EntFinder;
        if (AxeBroken = True) then
          HandleBrokenAxe;
      end;
      if (ax < 10) then ax := 10; if (ay < 10) then ay := 10;
      while (FindColorSpiralTolerance(cx, cy, TheColor, ax - 10, ay - 10, ax + 10, ay + 10, Tol)) and (Counter < 100) do
      begin
        ax := cx; ay := cy;
        Counter := Counter + 1;
        Wait(10);
        FindRandoms;
        EntFinder;
        Antiban;
        if invfull then
          Exit;
        Check;
        if (AxeBroken = True) then
          HandleBrokenAxe;
      end;
      Result := FindColorSpiralTolerance(cx, cy, TheColor, ax - 10, ay - 10, ax + 10, ay + 10, Tol);
      if (not Result) then
      else
        EntFinder;
      FindRandoms;
      EntFinder;
      if invfull then
        Exit;
      Check;
      AntiBan;
      EntFinder;
      if (AxeBroken = True) then
        HandleBrokenAxe;
    end;

    procedure Chopping;
    begin
      if invfull then
        Exit;
      Players[CurrentPlayer].Loc := 'At tree, cutting.';
      repeat
        if not (LoggedIn) then Exit;
        if invfull then Exit;
        EntFinder;
        Check;
        ftwait(1);
        Entfinder;

        AntiBan;
        Check;
        if (AxeBroken = True) then
        begin
          Break;
          HandleBrokenAxe;
        end;
      until (Invfull) or not (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 2));
    end;

    function OpenBank12: Boolean;
    begin
      if OpenBankQuietBH('eb') then
      begin
      If(PinScreen)Then
        Begin
          InPin(IntToStr(Players[CurrentPlayer].Pin));
          Wait(500+Random(250));
        End else
          If(BankScreen)Then
        Begin
      wait(200);
      FixBank;
      CountItemDTM(Yew);
      ReportVars[1] := CountItemDTM1(Yew);
      Deposit(2, 28, 2);
      CloseBank;
      Players[CurrentPlayer].Loc := 'Bank, Just banked.';
      Banked := Banked + 1;
      Bankedd := Bankedd + 1;
      Wait(1);
      ReportVars[0] := 1;

      SendSRLReport;
      Disguise('Done [' + IntToStr(Banked) + '/' + IntToStr(Players[CurrentPlayer].Integers[1]) + '] Loads');

      Exit;
      end else
      if not BankScreen then
      begin
        Result := False;
        Writeln('Player couldnt find the bank');
        Players[CurrentPlayer].Active := False;
        Logout;
        end;
      end;
    end;

    procedure Setup;
    begin
      Players[CurrentPlayer].Loc := 'In setup';
      Makecompass('S');
      HighestAngle;
      SetRun(false);
    end;

    procedure PlayerStats; // From Fawki!

    var Active: string;
    var i: Integer;
    begin
      if Players[CurrentPlayer].Active = True then
        Active := 'True'
      else
        Active := 'False';
      WriteLn('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
      Writeln('  Name         : ' + Players[CurrentPlayer].Name);
      Writeln('  Player       : ' + inttostr(CurrentPlayer));
      Writeln('  Active       : ' + Active);
      Writeln('  Location     : ' + Players[CurrentPlayer].loc);
      WriteLn('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');

      for I := 0 to HowManyPlayers - 1 do
      begin
        if Players[i].Active = True then Active := 'True' else Active := 'False';
        WriteLn(' ' + Inttostr(I) + ' : ' + Players[i].Name + ' := ' + Active);
      end
        WriteLn('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
    end;

    //----------------------------------------------------------------------------//

    procedure ProgressReport;
    begin
      begin
        ClearDebug;
        SRLRandomsReport;
        WriteLn('<============== Progress Report ===============>');
        Writeln('Script Worked for ' + TimeRunning);
        Writeln('Banked ' + IntToStr(Banked) + ' load[s].');
        Writeln('Chopped ' + IntToStr(Chopped) + ' Log[s].');
        Writeln('Ents Broke the Axe ' + IntToStr(Axe) + ' Time[s].');
        writeln('Avoided Ents ' + IntToStr(Ents) + ' Time[s].');
        writeln('Banked ' + IntToStr(Axe) + ' Broken axes and got a new one.');
        Disguise('Done [' + IntToStr(Banked) + '/' + IntToStr(Players[CurrentPlayer].Integers[1]) + '] Loads');

        PlayerStats;

      end;
    end;

    begin
      SetupSRL;
      ScriptID := '382';
      SRLID := SRLStatsID;
      SRLPassword := SRLStatsPW;
      activateclient;
      wait(1000);
      declareplayers;
      if (not (loggedIn)) then
      begin
        LoginPlayer;
      end;
      LoadDTMs;
      repeat
       Repeat
        MarkTime(TotalScriptTime);
        repeat
          Setup;
          walktoyew;
          repeat
            chopping;
            ProgressReport;
            EntFinder;
            check;
          until (invfull) or (not (loggedIn));
          if Invfull then
            walktobank;
          Openbank12;
          ProgressReport;
         if (not (loggedIn)) then
         Nextplayer(false);
         Until (TimeFromMark(TotalScriptTime) > Maxtime);
         if(TimeFromMark(TotalScriptTime) > Maxtime) then
        Disguise('Times up! Changing Players');
        Players[CurrentPlayer].Loc := 'Bank? Times up.';
        Logout;
        MarkTime(Timer);
        Repeat
        Disguise('Waiting for timer.. ');
        Until (TimeFromMark(Timer) > WaitTime);
        if (TimeFromMark(Timer) > WaitTime)then
        NextPlayer(true);
        Bankedd :=0;

        until (Banked >= Players[CurrentPlayer].Integers[1]) or (not (loggedIn));
        if (Banked >= Players[CurrentPlayer].Integers[1]) then
        begin
          writeln('Loads done, changing player');
          Disguise('Loads Done, Changing Player');
          Players[CurrentPlayer].Loc := 'Bank? Loads done.';
          Logout;
              MarkTime(Timer);
        Repeat
        Disguise('Waiting for timer.. ');
        Until (TimeFromMark(Timer) > WaitTime);
        if (TimeFromMark(Timer) > WaitTime)then
        NextPlayer(true);
        Bankedd :=0;
          end;

        if (not (loggedIn)) then
        begin
          Nextplayer(false);
          Bankedd := 0;
        end;
        ProgressReport;
      until (false);
    end.

    Upon fixing spelling errors, I got this [Hint] in the script...

    Line 113: [Hint] (15009:10): Variable 'Result' never used in script C:\Program Files\SCAR 3.12\Scripts\BH - Edgeville Yew Cutter + Banker V0.10.scar

    Even though Result is no where to be found in Line 113 as I had checked, so must have been a glitch on my end somewhere. Not sure if you even used the Variable 'Result' anywhere in the script, but you might want to check anyway.

    Happy Scripting....

  22. #72
    Join Date
    Sep 2007
    Location
    Australia
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SpAz ur a noob hint isnt anything just that he didnt call result = true or false in the item DTM funtion

  23. #73
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    You get the Hint because:

    SCAR Code:
    function CountItemDTM(DTM: Integer): Integer; // From rotflmfwao
    var
      i, x, y: Integer;
      TB: Tbox;
    begin
      GameTab(4);
      for i := 1 to 28 do
      begin
        TB := InvBox(i);
        if ExistsItem(i) then
          if FindDTM(DTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
            Inc(Chopped); //<--------------------
      end;
    end;

    You can that because the result is being counted as chopped not as a result. Their is nothing wrong with it. Also i appreicate that you edited but i got i complete new version. 1.1k lines +

  24. #74
    Join Date
    Oct 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Its a great script and all but, i just sumtimes logg in and im in a random place
    it doesnt happen often so its ok
    btw ur great at makin scripts, i would recomend u

  25. #75
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Quote Originally Posted by yeahdudeirock View Post
    Its a great script and all but, i just sumtimes logg in and im in a random place
    it doesnt happen often so its ok
    btw ur great at makin scripts, i would recomend u
    Thanks, i never had that logging out error though

Page 3 of 8 FirstFirst 12345 ... LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Edgeville Cutter and Banker
    By duplex in forum First Scripts
    Replies: 11
    Last Post: 02-01-2009, 06:53 PM
  2. [SRL 4] Edgeville Yew Cutter + Banker
    By Zach1188 in forum RS3 Outdated / Broken Scripts
    Replies: 61
    Last Post: 07-12-2008, 11:06 PM
  3. Edgeville Yew Cutter And Banker
    By Harry in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 08-19-2007, 05:42 AM
  4. [Edgeville Yew Cutter and Banker]
    By Fourscape in forum RS3 Outdated / Broken Scripts
    Replies: 25
    Last Post: 07-14-2007, 08:50 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
  •